xp_comm_proj/rd_dicom/Papyrus3/PapyInitModules3.c
/********************************************************************************/
/*										*/
/*	init_PatientIdentification : initializes the elements of the module	*/
/*	Patient Identification 							*/
/*										*/
/********************************************************************************/
init_PatientIdentification : initializes the elements of the module
Patient Identification
init_PatientIdentification : initializes the elements of the module Patient Identification
void
init_PatientIdentification (SElement ioElem [])
{
  SElement	*theWrkP;
  theWrkP = &ioElem [papPatientsNamePI];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x0010;
  theWrkP->length = 0L;
  theWrkP->vr = PN;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientIDPI];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x0020;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papIssuerofPatientID];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x0021;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papOtherPatientIDs];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x1000;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1-n";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papOtherPatientNamesPI];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x1001;
  theWrkP->length = 0L;
  theWrkP->vr = PN;
  theWrkP->vm = "1-n";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsBirthName];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x1005;
  theWrkP->length = 0L;
  theWrkP->vr = PN;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsMothersBirthName];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x1060;
  theWrkP->length = 0L;
  theWrkP->vr = PN;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papMedicalRecordLocator];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x1090;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
}
void init_PatientIdentification ( SElement ioElem [ ] ) { SElement * theWrkP ; theWrkP = & ioElem [ papPatientsNamePI ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x0010 ; theWrkP -> length = 0L ; theWrkP -> vr = PN ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientIDPI ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x0020 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papIssuerofPatientID ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x0021 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papOtherPatientIDs ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x1000 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papOtherPatientNamesPI ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x1001 ; theWrkP -> length = 0L ; theWrkP -> vr = PN ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsBirthName ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x1005 ; theWrkP -> length = 0L ; theWrkP -> vr = PN ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsMothersBirthName ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x1060 ; theWrkP -> length = 0L ; theWrkP -> vr = PN ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papMedicalRecordLocator ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x1090 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; }
init_PatientIdentification : initializes the elements of the module
Patient Identification
init_PatientIdentification : initializes the elements of the module Patient Identification