xp_comm_proj/rd_dicom/Papyrus3/DicomDir/DicomDirDataSetWrite.c
/********************************************************************************/
/*										*/
/*	LookForGroupsInRecord3 : Scan a record for its list of groups. Compares	*/
/* 	the found groups with the list of existing groups (if any) and build 	*/
/*	the list of groups to create or read (list that is returned).		*/
/*										*/
/********************************************************************************/
LookForGroupsInRecord3 : Scan a record for its list of groups. Compares
the found groups with the list of existing groups (if any) and build
the list of groups to create or read (list that is returned).
LookForGroupsInRecord3 : Scan a record for its list of groups . Compares the found groups with the list of existing groups ( if any ) and build the list of groups to create or read ( list that is returned ) .
void
LookForGroupsInRecord3 (Record *inRecordP, int inRecordID, int *inGrToCreateP)
{
  int		*theTmpCrP, i;
  int		theEnumGrNb;
  Record	*theElemP;
  theElemP  = inRecordP;
  theTmpCrP = inGrToCreateP;
  for (i = 0; i < END_GROUP; i++) theTmpCrP [i] = 0;
  for (i = 0; i < gArrRecord [inRecordID]; i++)
  {
    theEnumGrNb = Papy3ToEnumGroup (theElemP->group);
    if (theTmpCrP [theEnumGrNb] == 0)
      theTmpCrP [theEnumGrNb] = 1;
    theElemP++;
  } 
}
void LookForGroupsInRecord3 ( Record * inRecordP , int inRecordID , int * inGrToCreateP ) { int * theTmpCrP , i ; int theEnumGrNb ; Record * theElemP ; theElemP = inRecordP ; theTmpCrP = inGrToCreateP ; for ( i = 0 ; i < END_GROUP ; i ++ ) theTmpCrP [ i ] = 0 ; for ( i = 0 ; i < gArrRecord [ inRecordID ] ; i ++ ) { theEnumGrNb = Papy3ToEnumGroup ( theElemP -> group ) ; if ( theTmpCrP [ theEnumGrNb ] == 0 ) theTmpCrP [ theEnumGrNb ] = 1 ; theElemP ++ ; } }
LookForGroupsInRecord3 : Scan a record for its list of groups.
LookForGroupsInRecord3 : Scan a record for its list of groups .
/* initialize the array of groups to create to empty */ /* no list just add the groups found to the list */ /* put the group in the to read list */ /* next element of the record */ /* for ...loop on the elements of the record */