+ st1 = pa1->GetFirstStudy();
+ while ( st1 )
+ { // we process all the STUDY of this patient
+ std::cout << "--- "<< st1->GetEntryString(0x0008, 0x1030) // Study Description
+ << std::endl;
+ std::cout << " Stud.ID:[" << st1->GetEntryString(0x0020, 0x0010) // Study ID
+ << "]";
+
+ se1 = st1->GetFirstSerie();
+ while ( se1 )
+ { // we process all the SERIES of this study
+ std::cout << "--- --- "<< se1->GetEntryString(0x0008, 0x103e) << std::endl; // Serie Description
+ std::cout << " Ser.nb:[" << se1->GetEntryString(0x0020, 0x0011); // Series number
+ std::cout << "] Mod.:[" << se1->GetEntryString(0x0008, 0x0060) << "]"; // Modality
+
+ im1 = se1->GetFirstImage();
+ while ( im1 ) { // we process all the IMAGE of this serie
+ std::cout << "--- --- --- "<< im1->GetEntryString(0x0004, 0x1500) << std::endl; // File name
+ im1 = se1->GetNextImage();
+ }
+ se1 = st1->GetNextSerie();
+ }
+ st1 = pa1->GetNextStudy();
+ }
+ pa1 = dicomdir->GetNextPatient();
+ }
+
+ std::cout << std::endl << std::endl
+ << " = DICOMDIR full content ===================================="
+ << std::endl<< std::endl;
+ // dicomdir->Print();
+
+ // ------------------------- second stage ---------------------------
+
+ // Write on disc what we read
+ dicomdir->Write("NewDICOMDIR");
+
+ std::cout << std::endl << std::endl
+ << "NewDICOMDIR written on disc ================================="
+ << std::endl<< std::endl;
+ // Read what we wrote
+ gdcm::DicomDir *d2 = gdcm::DicomDir::New();
+ d2->SetFileName("NewDICOMDIR");
+ d2->Load();
+ if (!d2->IsReadable())
+ {
+ std::cout << std::endl << std::endl
+ << "Read NewDicomDir from disc failed ========================"
+ << std::endl<< std::endl;
+ return 1;