xp_comm_proj/rd_dicom/Papyrus3/DicomDir/DicomDirInitRecords.c
/********************************************************************************/
/*										*/
/*	init_StudyR : initializes the elements of the Directory Record		*/
/*	Study 									*/
/*										*/
/********************************************************************************/
init_StudyR : initializes the elements of the Directory Record
Study
init_StudyR : initializes the elements of the Directory Record Study
void
init_StudyR (SElement ioElem [])
{
  SElement	*theWrkP;
  theWrkP 		= &ioElem [papOffsetofNextDirectoryRecordS];
  theWrkP->group 	= 0x0004;
  theWrkP->element 	= 0x1400;
  theWrkP->length 	= 0L;
  theWrkP->vr 		= UL;
  theWrkP->vm 		= "1";
  theWrkP->type_t 	= T1C;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papRecordInuseS];
  theWrkP->group 	= 0x0004;
  theWrkP->element 	= 0x1410;
  theWrkP->length 	= 0L;
  theWrkP->vr 		= USS;
  theWrkP->vm 		= "1";
  theWrkP->type_t 	= T1C;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papOffsetofReferencedLowerLevelDirectoryEntityS];
  theWrkP->group 	= 0x0004;
  theWrkP->element 	= 0x1420;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= UL;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T1C;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papDirectoryRecordTypeS];
  theWrkP->group 	= 0x0004;
  theWrkP->element 	= 0x1430;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= CS;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T1C;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papPrivateRecordUIDS];
  theWrkP->group 	= 0x0004;
  theWrkP->element 	= 0x1432;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= UI;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T1C;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papReferencedFileIDS];
  theWrkP->group 	= 0x0004;
  theWrkP->element 	= 0x1500;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= CS;
  theWrkP->vm 	 	= "1-n";
  theWrkP->type_t 	= T2C;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papMRDRDirectoryRecordOffsetS];
  theWrkP->group 	= 0x0004;
  theWrkP->element 	= 0x1504;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= UL;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T1C;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papReferencedSOPClassUIDinFileS];
  theWrkP->group 	= 0x0004;
  theWrkP->element 	= 0x1510;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= UI;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T1C;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papReferencedSOPInstanceUIDinFileS];
  theWrkP->group 	= 0x0004;
  theWrkP->element 	= 0x1511;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= UI;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T1C;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papReferencedTransferSyntaxUIDinFileS];
  theWrkP->group 	= 0x0004;
  theWrkP->element 	= 0x1512;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= UI;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T1C;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papSpecificCharacterSetDRS];
  theWrkP->group 	= 0x0008;
  theWrkP->element 	= 0x0005;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= CS;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T1C;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papStudyDateDRS];
  theWrkP->group 	= 0x0008;
  theWrkP->element 	= 0x0020;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= DA;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T1;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papStudyTimeDRS];
  theWrkP->group 	= 0x0008;
  theWrkP->element 	= 0x0030;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= TM;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T1;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papStudyDescriptionDRS];
  theWrkP->group 	= 0x0008;
  theWrkP->element 	= 0x1030;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= LO;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T2;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papStudyInstanceUIDDRS];
  theWrkP->group 	= 0x0020;
  theWrkP->element 	= 0x000D;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= UI;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T1C;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papStudyIDDRS];
  theWrkP->group 	= 0x0020;
  theWrkP->element 	= 0x0010;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= SH;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T1;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
  theWrkP		= &ioElem [papAccessionNumberDRS];
  theWrkP->group 	= 0x0008;
  theWrkP->element 	= 0x0050;
  theWrkP->length 	= 0L;
  theWrkP->vr 	 	= SH;
  theWrkP->vm 	 	= "1";
  theWrkP->type_t 	= T2;
  theWrkP->nb_val 	= 0;
  theWrkP->value 	= NULL;
}
void init_StudyR ( SElement ioElem [ ] ) { SElement * theWrkP ; theWrkP = & ioElem [ papOffsetofNextDirectoryRecordS ] ; theWrkP -> group = 0x0004 ; theWrkP -> element = 0x1400 ; theWrkP -> length = 0L ; theWrkP -> vr = UL ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papRecordInuseS ] ; theWrkP -> group = 0x0004 ; theWrkP -> element = 0x1410 ; theWrkP -> length = 0L ; theWrkP -> vr = USS ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papOffsetofReferencedLowerLevelDirectoryEntityS ] ; theWrkP -> group = 0x0004 ; theWrkP -> element = 0x1420 ; theWrkP -> length = 0L ; theWrkP -> vr = UL ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papDirectoryRecordTypeS ] ; theWrkP -> group = 0x0004 ; theWrkP -> element = 0x1430 ; theWrkP -> length = 0L ; theWrkP -> vr = CS ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPrivateRecordUIDS ] ; theWrkP -> group = 0x0004 ; theWrkP -> element = 0x1432 ; theWrkP -> length = 0L ; theWrkP -> vr = UI ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papReferencedFileIDS ] ; theWrkP -> group = 0x0004 ; theWrkP -> element = 0x1500 ; theWrkP -> length = 0L ; theWrkP -> vr = CS ; theWrkP -> vm = " " ; theWrkP -> type_t = T2C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papMRDRDirectoryRecordOffsetS ] ; theWrkP -> group = 0x0004 ; theWrkP -> element = 0x1504 ; theWrkP -> length = 0L ; theWrkP -> vr = UL ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papReferencedSOPClassUIDinFileS ] ; theWrkP -> group = 0x0004 ; theWrkP -> element = 0x1510 ; theWrkP -> length = 0L ; theWrkP -> vr = UI ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papReferencedSOPInstanceUIDinFileS ] ; theWrkP -> group = 0x0004 ; theWrkP -> element = 0x1511 ; theWrkP -> length = 0L ; theWrkP -> vr = UI ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papReferencedTransferSyntaxUIDinFileS ] ; theWrkP -> group = 0x0004 ; theWrkP -> element = 0x1512 ; theWrkP -> length = 0L ; theWrkP -> vr = UI ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papSpecificCharacterSetDRS ] ; theWrkP -> group = 0x0008 ; theWrkP -> element = 0x0005 ; theWrkP -> length = 0L ; theWrkP -> vr = CS ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papStudyDateDRS ] ; theWrkP -> group = 0x0008 ; theWrkP -> element = 0x0020 ; theWrkP -> length = 0L ; theWrkP -> vr = DA ; theWrkP -> vm = " " ; theWrkP -> type_t = T1 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papStudyTimeDRS ] ; theWrkP -> group = 0x0008 ; theWrkP -> element = 0x0030 ; theWrkP -> length = 0L ; theWrkP -> vr = TM ; theWrkP -> vm = " " ; theWrkP -> type_t = T1 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papStudyDescriptionDRS ] ; theWrkP -> group = 0x0008 ; theWrkP -> element = 0x1030 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T2 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papStudyInstanceUIDDRS ] ; theWrkP -> group = 0x0020 ; theWrkP -> element = 0x000D ; theWrkP -> length = 0L ; theWrkP -> vr = UI ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papStudyIDDRS ] ; theWrkP -> group = 0x0020 ; theWrkP -> element = 0x0010 ; theWrkP -> length = 0L ; theWrkP -> vr = SH ; theWrkP -> vm = " " ; theWrkP -> type_t = T1 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papAccessionNumberDRS ] ; theWrkP -> group = 0x0008 ; theWrkP -> element = 0x0050 ; theWrkP -> length = 0L ; theWrkP -> vr = SH ; theWrkP -> vm = " " ; theWrkP -> type_t = T2 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; }
init_StudyR : initializes the elements of the Directory Record
Study
init_StudyR : initializes the elements of the Directory Record Study