xp_comm_proj/rd_dicom/Papyrus3/PapyInitModules3.c
/********************************************************************************/
/*										*/
/*	init_VisitIdentification : initializes the elements of the module	*/
/*	Visit Identification 							*/
/*										*/
/********************************************************************************/
init_VisitIdentification : initializes the elements of the module
Visit Identification
init_VisitIdentification : initializes the elements of the module Visit Identification
void
init_VisitIdentification (SElement ioElem [])
{
  SElement	*theWrkP;
  theWrkP = &ioElem [papInstitutionNameVI];
  theWrkP->group = 0x0008;
  theWrkP->element = 0x0080;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papInstitutionAddressVI];
  theWrkP->group = 0x0008;
  theWrkP->element = 0x0081;
  theWrkP->length = 0L;
  theWrkP->vr = ST;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papInstitutionCodeSequence];
  theWrkP->group = 0x0008;
  theWrkP->element = 0x0082;
  theWrkP->length = 0L;
  theWrkP->vr = SQ;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papAdmissionID];
  theWrkP->group = 0x0038;
  theWrkP->element = 0x0010;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papIssuerofAdmissionID];
  theWrkP->group = 0x0038;
  theWrkP->element = 0x0011;
  theWrkP->length = 0L;
  theWrkP->vr = LO;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
}
void init_VisitIdentification ( SElement ioElem [ ] ) { SElement * theWrkP ; theWrkP = & ioElem [ papInstitutionNameVI ] ; theWrkP -> group = 0x0008 ; theWrkP -> element = 0x0080 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papInstitutionAddressVI ] ; theWrkP -> group = 0x0008 ; theWrkP -> element = 0x0081 ; theWrkP -> length = 0L ; theWrkP -> vr = ST ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papInstitutionCodeSequence ] ; theWrkP -> group = 0x0008 ; theWrkP -> element = 0x0082 ; theWrkP -> length = 0L ; theWrkP -> vr = SQ ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papAdmissionID ] ; theWrkP -> group = 0x0038 ; theWrkP -> element = 0x0010 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papIssuerofAdmissionID ] ; theWrkP -> group = 0x0038 ; theWrkP -> element = 0x0011 ; theWrkP -> length = 0L ; theWrkP -> vr = LO ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; }
init_VisitIdentification : initializes the elements of the module
Visit Identification
init_VisitIdentification : initializes the elements of the module Visit Identification