xp_comm_proj/rd_dicom/Papyrus3/PapyInitModules3.c
/********************************************************************************/
/*										*/
/*	init_Patient : initializes the elements of the module			*/
/*	Patient 								*/
/*										*/
/********************************************************************************/
init_Patient : initializes the elements of the module
Patient
init_Patient : initializes the elements of the module Patient
void
init_Patient (SElement ioElem [])
{
  SElement	*theWrkP;
  theWrkP = &ioElem [papPatientsNameP];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x0010;
  theWrkP->length = 0L;
  theWrkP->vr = PN;
  theWrkP->vm = "1";
  theWrkP->type_t = T2;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientIDP];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x0020;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T2;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsBirthDateP];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x0030;
  theWrkP->length = 0L;
  theWrkP->vr = DA;
  theWrkP->vm = "1";
  theWrkP->type_t = T2;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsSexP];
  theWrkP->group = 0x0010;
  theWrkP->element = 0x0040;
  theWrkP->length = 0L;
  theWrkP->vr = CS;
  theWrkP->vm = "1";
  theWrkP->type_t = T2;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papReferencedPatientSequenceP];
  theWrkP->group = 0x0008;
  theWrkP->element = 0x1120;
  theWrkP->length = 0L;
  theWrkP->vr = SQ;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papPatientsBirthTimeP];
  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 [papOtherPatientID];
  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 [papOtherPatientNamesP];
  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 [papEthnicGroupP];
  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 [papPatientCommentsP];
  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_Patient ( SElement ioElem [ ] ) { SElement * theWrkP ; theWrkP = & ioElem [ papPatientsNameP ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x0010 ; theWrkP -> length = 0L ; theWrkP -> vr = PN ; theWrkP -> vm = " " ; theWrkP -> type_t = T2 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientIDP ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x0020 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T2 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsBirthDateP ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x0030 ; theWrkP -> length = 0L ; theWrkP -> vr = DA ; theWrkP -> vm = " " ; theWrkP -> type_t = T2 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsSexP ] ; theWrkP -> group = 0x0010 ; theWrkP -> element = 0x0040 ; theWrkP -> length = 0L ; theWrkP -> vr = CS ; theWrkP -> vm = " " ; theWrkP -> type_t = T2 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papReferencedPatientSequenceP ] ; theWrkP -> group = 0x0008 ; theWrkP -> element = 0x1120 ; theWrkP -> length = 0L ; theWrkP -> vr = SQ ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papPatientsBirthTimeP ] ; 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 [ papOtherPatientID ] ; 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 [ papOtherPatientNamesP ] ; 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 [ papEthnicGroupP ] ; 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 [ papPatientCommentsP ] ; 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_Patient : initializes the elements of the module
Patient
init_Patient : initializes the elements of the module Patient