xp_comm_proj/rd_dicom/Papyrus3/PapyInitModules3.c
/********************************************************************************/
/*										*/
/*	init_RTBeams : initializes the elements of the module			*/
/*	RT Beams								*/
/*										*/
/********************************************************************************/
init_RTBeams : initializes the elements of the module
RT Beams
init_RTBeams : initializes the elements of the module RT Beams
void
init_RTBeams (SElement ioElem [])
{
  SElement	*theWrkP;
  theWrkP = &ioElem [papBeamSequence];
  theWrkP->group = 0x300A;
  theWrkP->element = 0x00B0;
  theWrkP->length = 0L;
  theWrkP->vr = SQ;
  theWrkP->vm = "1";
  theWrkP->type_t = T1;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papHighDoseTechniqueType];
  theWrkP->group = 0x300A;
  theWrkP->element = 0x00C7;
  theWrkP->length = 0L;
  theWrkP->vr = CS;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papCompensatorNumber];
  theWrkP->group = 0x300A;
  theWrkP->element = 0x00E4;
  theWrkP->length = 0L;
  theWrkP->vr = IS;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papCompensatorType];
  theWrkP->group = 0x300A;
  theWrkP->element = 0x00EE;
  theWrkP->length = 0L;
  theWrkP->vr = CS;
  theWrkP->vm = "1";
  theWrkP->type_t = T3;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
}
void init_RTBeams ( SElement ioElem [ ] ) { SElement * theWrkP ; theWrkP = & ioElem [ papBeamSequence ] ; theWrkP -> group = 0x300A ; theWrkP -> element = 0x00B0 ; theWrkP -> length = 0L ; theWrkP -> vr = SQ ; theWrkP -> vm = " " ; theWrkP -> type_t = T1 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papHighDoseTechniqueType ] ; theWrkP -> group = 0x300A ; theWrkP -> element = 0x00C7 ; theWrkP -> length = 0L ; theWrkP -> vr = CS ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papCompensatorNumber ] ; theWrkP -> group = 0x300A ; theWrkP -> element = 0x00E4 ; theWrkP -> length = 0L ; theWrkP -> vr = IS ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papCompensatorType ] ; theWrkP -> group = 0x300A ; theWrkP -> element = 0x00EE ; theWrkP -> length = 0L ; theWrkP -> vr = CS ; theWrkP -> vm = " " ; theWrkP -> type_t = T3 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; }
init_RTBeams : initializes the elements of the module
RT Beams
init_RTBeams : initializes the elements of the module RT Beams