xp_comm_proj/rd_dicom/Papyrus3/PapyInitModules3.c
/********************************************************************************/
/*										*/
/*	init_PatientDemographic : initializes the elements of the module	*/
/*	Patient Demographic 							*/
/*										*/
/********************************************************************************/
init_PatientDemographic : initializes the elements of the module
Patient Demographic
init_PatientDemographic : initializes the elements of the module Patient Demographic
void
init_PatientDemographic (SElement ioElem [])
{
  SElement	*theWrkP;
  theWrkP = &ioElem [papPatientsAddress];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x1040;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papRegionofResidence];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x2152;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papCountryofResidence];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x2150;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsTelephoneNumbers];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x2154;
  theWrkP->length = 0L;
  theWrkP->vr = SH;
  theWrkP->vm = "1-n";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsBirthDatePD];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x0030;
  theWrkP->length = 0L;
  theWrkP->vr = DA;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsBirthTimePD];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x0032;
  theWrkP->length = 0L;
  theWrkP->vr = TM;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papEthnicGroupPD];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x2160;
  theWrkP->length = 0L;
  theWrkP->vr = SH;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsSexPD];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x0040;
  theWrkP->length = 0L;
  theWrkP->vr = CS;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsSizePD];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x1020;
  theWrkP->length = 0L;
  theWrkP->vr = DS;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsWeightPD];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x1030;
  theWrkP->length = 0L;
  theWrkP->vr = DS;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papMilitaryRank];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x1080;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papBranchofService];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x1081;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsInsurancePlanCodeSequence];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x0050;
  theWrkP->length = 0L;
  theWrkP->vr = SQ;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsReligiousPreference];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x21F0;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientCommentsPD];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x4000;
  theWrkP->length = 0L;
  theWrkP->vr = LT;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
}
void init_PatientDemographic ( SElement ioElem [ ] ) { SElement * theWrkP ; theWrkP = & ioElem [ papPatientsAddress ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x1040 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papRegionofResidence ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x2152 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papCountryofResidence ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x2150 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsTelephoneNumbers ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x2154 ; theWrkP -> length = 0L ; theWrkP -> vr = SH ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsBirthDatePD ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x0030 ; theWrkP -> length = 0L ; theWrkP -> vr = DA ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsBirthTimePD ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x0032 ; theWrkP -> length = 0L ; theWrkP -> vr = TM ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papEthnicGroupPD ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x2160 ; theWrkP -> length = 0L ; theWrkP -> vr = SH ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsSexPD ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x0040 ; theWrkP -> length = 0L ; theWrkP -> vr = CS ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsSizePD ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x1020 ; theWrkP -> length = 0L ; theWrkP -> vr = DS ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsWeightPD ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x1030 ; theWrkP -> length = 0L ; theWrkP -> vr = DS ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papMilitaryRank ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x1080 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papBranchofService ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x1081 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsInsurancePlanCodeSequence ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x0050 ; theWrkP -> length = 0L ; theWrkP -> vr = SQ ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsReligiousPreference ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x21F0 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientCommentsPD ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x4000 ; theWrkP -> length = 0L ; theWrkP -> vr = LT ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; }
init_PatientDemographic : initializes the elements of the module
Patient Demographic
init_PatientDemographic : initializes the elements of the module Patient Demographic