xp_comm_proj/rd_dicom/Papyrus3/PapyInitModules3.c
/********************************************************************************/
/*										*/
/*	init_NMIsotope : initializes the elements of the module		        */
/*	NM Isotope 								*/
/*										*/
/********************************************************************************/
init_NMIsotope : initializes the elements of the module
NM Isotope
init_NMIsotope : initializes the elements of the module NM Isotope
void
init_NMIsotope (SElement ioElem [])
{
  SElement	*theWrkP;
  theWrkP = &ioElem [papEnergyWindowInformationSequence];
  theWrkP->group = 0x0054;
  theWrkP->element = 0x0012;
  theWrkP->length = 0L;
  theWrkP->vr = SQ;
  theWrkP->vm = "1";
  theWrkP->type_t = T2;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papRadiopharmaceuticalInformationSequence];
  theWrkP->group = 0x0054;
  theWrkP->element = 0x0016;
  theWrkP->length = 0L;
  theWrkP->vr = SQ;
  theWrkP->vm = "1";
  theWrkP->type_t = T2;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papInterventionDrugInformationSequence];
  theWrkP->group = 0x0018;
  theWrkP->element = 0x0026;
  theWrkP->length = 0L;
  theWrkP->vr = SQ;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
}
void init_NMIsotope ( SElement ioElem [ ] ) { SElement * theWrkP ; theWrkP = & ioElem [ papEnergyWindowInformationSequence ] ; theWrkP -> group = 0x0054 ; theWrkP -> element = 0x0012 ; theWrkP -> length = 0L ; theWrkP -> vr = SQ ; theWrkP -> vm = " " ; theWrkP -> type_t = T2 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papRadiopharmaceuticalInformationSequence ] ; theWrkP -> group = 0x0054 ; theWrkP -> element = 0x0016 ; theWrkP -> length = 0L ; theWrkP -> vr = SQ ; theWrkP -> vm = " " ; theWrkP -> type_t = T2 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papInterventionDrugInformationSequence ] ; theWrkP -> group = 0x0018 ; theWrkP -> element = 0x0026 ; theWrkP -> length = 0L ; theWrkP -> vr = SQ ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; }
init_NMIsotope : initializes the elements of the module
NM Isotope
init_NMIsotope : initializes the elements of the module NM Isotope