xp_comm_proj/rd_dicom/Papyrus3/PapyInitModules3.c
/********************************************************************************/
/*										*/
/*	init_XRayCollimator : initializes the elements of the module		*/
/*	XRay Collimator 							*/
/*										*/
/********************************************************************************/
init_XRayCollimator : initializes the elements of the module
XRay Collimator
init_XRayCollimator : initializes the elements of the module XRay Collimator
void
init_XRayCollimator (SElement ioElem [])
{
  SElement	*theWrkP;
  theWrkP = &ioElem [papCollimatorShape];
  theWrkP->group = 0x0018;
  theWrkP->element = 0x1700;
  theWrkP->length = 0L;
  theWrkP->vr = CS;
  theWrkP->vm = "1-3";
  theWrkP->type_t = T1;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papCollimatorLeftVerticalEdge];
  theWrkP->group = 0x0018;
  theWrkP->element = 0x1702;
  theWrkP->length = 0L;
  theWrkP->vr = IS;
  theWrkP->vm = "1";
  theWrkP->type_t = T1C;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papCollimatorRightVerticalEdge];
  theWrkP->group = 0x0018;
  theWrkP->element = 0x1704;
  theWrkP->length = 0L;
  theWrkP->vr = IS;
  theWrkP->vm = "1";
  theWrkP->type_t = T1C;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papCollimatorUpperHorizontalEdge];
  theWrkP->group = 0x0018;
  theWrkP->element = 0x1706;
  theWrkP->length = 0L;
  theWrkP->vr = IS;
  theWrkP->vm = "1";
  theWrkP->type_t = T1C;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papCollimatorLowerHorizontalEdge];
  theWrkP->group = 0x0018;
  theWrkP->element = 0x1708;
  theWrkP->length = 0L;
  theWrkP->vr = IS;
  theWrkP->vm = "1";
  theWrkP->type_t = T1C;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papCenterofCircularCollimator];
  theWrkP->group = 0x0018;
  theWrkP->element = 0x1710;
  theWrkP->length = 0L;
  theWrkP->vr = IS;
  theWrkP->vm = "2";
  theWrkP->type_t = T1C;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papRadiusofCircularCollimator];
  theWrkP->group = 0x0018;
  theWrkP->element = 0x1712;
  theWrkP->length = 0L;
  theWrkP->vr = IS;
  theWrkP->vm = "1";
  theWrkP->type_t = T1C;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
  theWrkP = &ioElem [papVerticesofthePolygonalCollimator];
  theWrkP->group = 0x0018;
  theWrkP->element = 0x1720;
  theWrkP->length = 0L;
  theWrkP->vr = IS;
  theWrkP->vm = "2-2n";
  theWrkP->type_t = T1C;
  theWrkP->nb_val = 0;
  theWrkP->value = NULL;
}
void init_XRayCollimator ( SElement ioElem [ ] ) { SElement * theWrkP ; theWrkP = & ioElem [ papCollimatorShape ] ; theWrkP -> group = 0x0018 ; theWrkP -> element = 0x1700 ; theWrkP -> length = 0L ; theWrkP -> vr = CS ; theWrkP -> vm = " " ; theWrkP -> type_t = T1 ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papCollimatorLeftVerticalEdge ] ; theWrkP -> group = 0x0018 ; theWrkP -> element = 0x1702 ; theWrkP -> length = 0L ; theWrkP -> vr = IS ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papCollimatorRightVerticalEdge ] ; theWrkP -> group = 0x0018 ; theWrkP -> element = 0x1704 ; theWrkP -> length = 0L ; theWrkP -> vr = IS ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papCollimatorUpperHorizontalEdge ] ; theWrkP -> group = 0x0018 ; theWrkP -> element = 0x1706 ; theWrkP -> length = 0L ; theWrkP -> vr = IS ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papCollimatorLowerHorizontalEdge ] ; theWrkP -> group = 0x0018 ; theWrkP -> element = 0x1708 ; theWrkP -> length = 0L ; theWrkP -> vr = IS ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papCenterofCircularCollimator ] ; theWrkP -> group = 0x0018 ; theWrkP -> element = 0x1710 ; theWrkP -> length = 0L ; theWrkP -> vr = IS ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papRadiusofCircularCollimator ] ; theWrkP -> group = 0x0018 ; theWrkP -> element = 0x1712 ; theWrkP -> length = 0L ; theWrkP -> vr = IS ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; theWrkP = & ioElem [ papVerticesofthePolygonalCollimator ] ; theWrkP -> group = 0x0018 ; theWrkP -> element = 0x1720 ; theWrkP -> length = 0L ; theWrkP -> vr = IS ; theWrkP -> vm = " " ; theWrkP -> type_t = T1C ; theWrkP -> nb_val = 0 ; theWrkP -> value = NULL ; }
init_XRayCollimator : initializes the elements of the module
XRay Collimator
init_XRayCollimator : initializes the elements of the module XRay Collimator