L_DicomFindFirstPrivateCreatorDataElement

#define MSG_BUFFER_SIZE 1000 
void DumpElement(L_TCHAR *pszMsgBox, pDICOMELEMENT p, L_TCHAR *pszMsg) 
{ 
   if (p == NULL) 
      return; 
 
   L_TCHAR szMsgTemp[100]={0}; 
   wsprintf(szMsgTemp, TEXT("%s (%.4x,%.4x)\n"), pszMsg ? pszMsg : TEXT(""), p->nTag >> 0x10, p->nTag & 0xFFFF); 
   _tcscat_s(pszMsgBox, MSG_BUFFER_SIZE, szMsgTemp); 
} 
 
 
L_VOID DumpPrivateElements(L_TCHAR *pszMsgBox, HDICOMDS hDS, pDICOMELEMENT pPrivateCreatorDataElement) 
{ 
   pDICOMELEMENT p = L_DicomFindFirstPrivateElement(hDS, pPrivateCreatorDataElement); 
   while (p != NULL) 
   { 
      DumpElement(pszMsgBox, p, TEXT("\t")); 
      p = L_DicomFindNextPrivateElement(hDS, p, pPrivateCreatorDataElement); 
   } 
} 
 
L_INT DicomFindFirstPrivateCreatorDataElementExample(HDICOMDS hDS, pDICOMELEMENT pRoot, L_BOOL bTree) 
{ 
   L_INT nRet = DICOM_SUCCESS; 
   pDICOMELEMENT pPrivateCreatorDataElement = NULL; 
   L_TCHAR szMsgBox[MSG_BUFFER_SIZE] = {0}; 
 
   pPrivateCreatorDataElement = L_DicomFindFirstPrivateCreatorDataElement(hDS, pRoot, bTree, NULL, 0); 
   while (pPrivateCreatorDataElement ) 
   { 
      DumpElement(szMsgBox, pPrivateCreatorDataElement, TEXT("*** Private Creator Data Element")); 
      DumpPrivateElements(szMsgBox, hDS, pPrivateCreatorDataElement); 
      pPrivateCreatorDataElement = L_DicomFindNextPrivateCreatorDataElement(hDS, pPrivateCreatorDataElement, bTree, NULL, 0); 
   } 
 
   MessageBox(NULL, szMsgBox, TEXT("Private Elements"), MB_OK); 
   return nRet; 
}