L_DicomGetCodedConceptGroup

L_INT DicomGetCodedConceptGroupExample( 
   pDICOMCODEDCONCEPT pConcept, 
   L_BOOL bYesNo) 
{ 
   pDICOMCONTEXTGROUP pGroup;  
   L_TCHAR szMsg[256], szTitle[32]; 
 
   // Is it a valid pointer?  
   if (!L_DicomExistsCodedConcept(pConcept))  
      return DICOM_ERROR_NULL_PTR; 
 
   pGroup = L_DicomGetCodedConceptGroup (pConcept);  
   wsprintf(szTitle, TEXT("Coded Concept (%s)"), pGroup->pszContextIdentifier);  
 
   if (pConcept->pszCodingSchemeVersion) 
   { 
      wsprintf(szMsg, 
               bYesNo ? TEXT("%s\n%s\n%s\n%s\n\nContinue?") : TEXT("%s\n%s\n%s\n%s"), 
               pConcept->pszCodingSchemeDesignator,  
               pConcept->pszCodingSchemeVersion,  
               pConcept->pszCodeValue,  
               pConcept->pszCodeMeaning);  
   } 
   else 
   { 
      wsprintf(szMsg, 
               bYesNo ? TEXT("%s\n%s\n%s\n\nContinue?") :TEXT( "%s\n%s\n%s"), 
               pConcept->pszCodingSchemeDesignator,  
               pConcept->pszCodeValue,  
               pConcept->pszCodeMeaning);  
   } 
 
   if (bYesNo) 
   { 
      if (MessageBox(NULL, szMsg, szTitle, MB_YESNO) != IDYES) 
         return FAILURE - 1; 
   } 
   else 
      MessageBox(NULL, szMsg, szTitle, MB_OK);  
 
   return DICOM_SUCCESS; 
}