LDicomContextGroup::Find

L_INT LDicomContextGroup_FindExample() 
{ 
   L_INT nRet; 
   LDicomContextGroup::Reset (); 
   nRet = LDicomContextGroup::Load (); 
   if(nRet != DICOM_SUCCESS) 
      return nRet; 
 
   pDICOMCONTEXTGROUP pGroup;  
   pDICOMCODEDCONCEPT pConcept;  
 
   // Look for a Context Group 
   pGroup = LDicomContextGroup::Find(CID_6019);  
   if (!pGroup)  
   { 
      return -1;  
   } 
 
   // Look for a Coded Concept in the Context Group 
   pConcept = LDicomContextGroup::FindCodedConcept(pGroup, TEXT("SRT"), TEXT("F-01781")); 
 
   if (!pConcept)  
   { 
      return -1;  
   } 
 
   // Set the Code Meaning of the Coded Concept (French translation)  
   if (!LDicomContextGroup::SetCodeMeaning(pConcept, TEXT("Situé à 1 heure"))) 
   { 
      return - 1;  
   } 
 
   // Refer to the example of LDicomContextGroup::GetContextGroup for 
   // the function DisplayCodedConcept 
   DisplayCodedConcept(pConcept, FALSE); 
 
   // Delete the Coded Concept 
   LDicomContextGroup::DeleteCodedConcept(pConcept);  
 
   // Add a (testing) Coded Concept to the Context Group 
   pConcept = LDicomContextGroup::InsertCodedConcept(pGroup,  
                                                     TEXT("CSD"), 
                                                     NULL,  
                                                     TEXT("CV"), 
                                                     TEXT("CM")); 
   if (!pConcept)  
   { 
      return -1; 
   } 
 
   DisplayCodedConcept(pConcept, FALSE);  
 
   // Restore the Context Group (discard all the changes made to the Group)  
   LDicomContextGroup::Default(pGroup);  
   // Refer to the example of LDicomContextGroup::GetFirstCodedConcept for 
   // the function EnumCodedConcepts 
   EnumCodedConcepts(pGroup);  
 
   // Delete the Context Group 
   LDicomContextGroup::Delete(pGroup);  
 
   return nRet; 
}