L_DicomInsertKey

L_INT DicomInsertKeyExample(L_VOID) 
{ 
   L_INT x; 
   L_TCHAR szOut[200]; 
   L_TCHAR * pVal=NULL; 
   HDICOMDS hDS=NULL; 
   pDICOMELEMENT pKey=NULL; 
   pDICOMELEMENT pElement=NULL; 
    
   hDS = L_DicomCreateDS(NULL); 
   L_DicomInitDS(hDS, CLASS_UNKNOWN, 0); 
 
   /* insert some keys */ 
   pKey = L_DicomInsertKey(hDS, NULL, TEXT("PATIENT"), TRUE); /* insert PATIENT level key */ 
   if (pKey == NULL) 
   { 
      L_DicomFreeDS(hDS); 
      return DICOM_ERROR_MEMORY; 
   } 
 
   pKey = L_DicomInsertKey(hDS, pKey, TEXT("STUDY"), TRUE); /* insert STUDY level key */ 
   if (pKey == NULL) 
   { 
      L_DicomFreeDS(hDS); 
      return DICOM_ERROR_MEMORY; 
   } 
    
   /* insert 5 SERIES level keys and some data */ 
   for(x=1; x<=5; x++) 
   { 
      wsprintf(szOut, TEXT("%d"), x); 
      pKey = L_DicomInsertKey(hDS, pKey, TEXT("SERIES"), TRUE); 
      if (pKey == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
 
      pElement = L_DicomGetChildElement(hDS, pKey, FALSE); 
      pElement = L_DicomFindFirstElement(hDS, pElement, TAG_REFERENCED_FILE_ID, TRUE); 
      if (!L_DicomSetStringValue(hDS, pElement, szOut, 1, DICOM_CHARACTER_SET_DEFAULT)) 
      { 
         L_DicomFreeDS(hDS); 
         return FAILURE - 1; 
      } 
 
      pKey = L_DicomGetParentKey(hDS, pKey); /*move back up one level */ 
   } 
    
   /* move to root key */ 
   pKey = L_DicomGetRootKey(hDS, pKey); /* PATIENT level */ 
   MessageBox(NULL, L_DicomGetValueKey(hDS, pKey), TEXT("Test"), MB_OK); 
       
   /* move to SERIES level */ 
   pKey = L_DicomGetChildKey(hDS, pKey); /*STUDY*/ 
   pKey = L_DicomGetChildKey(hDS, pKey); /*SERIES*/ 
    
   /* find first SERIES */ 
   pKey = L_DicomFindFirstKey(hDS, pKey, TEXT("SERIES"), TRUE); 
   pElement = L_DicomGetChildElement(hDS, pKey, TRUE); 
   pElement = L_DicomFindFirstElement(hDS, pElement, TAG_REFERENCED_FILE_ID, TRUE); 
   pVal = L_DicomGetStringValue(hDS, pElement, 0, 1); 
   MessageBox(NULL, pVal, TEXT("Test"), MB_OK); 
    
   /* find next series */ 
   pKey = L_DicomFindNextKey(hDS, pKey, TRUE); 
   pElement = L_DicomGetChildElement(hDS, pKey, TRUE); 
   pElement = L_DicomFindFirstElement(hDS, pElement, TAG_REFERENCED_FILE_ID, TRUE); 
   pVal = L_DicomGetStringValue(hDS, pElement, 0, 1); 
   MessageBox(NULL, pVal, TEXT("Test"), MB_OK); 
    
   /* find last SERIES */ 
   pKey = L_DicomFindLastKey(hDS, pKey, TEXT("SERIES"), TRUE); 
   pElement = L_DicomGetChildElement(hDS, pKey, TRUE); 
   pElement = L_DicomFindFirstElement(hDS, pElement, TAG_REFERENCED_FILE_ID, TRUE); 
   pVal = L_DicomGetStringValue(hDS, pElement, 0, 1); 
   MessageBox(NULL, pVal, TEXT("Test"), MB_OK); 
    
   /* find previous SERIES */ 
   pKey = L_DicomFindPrevKey(hDS, pKey, TRUE); 
   pElement = L_DicomGetChildElement(hDS, pKey, TRUE); 
   pElement = L_DicomFindFirstElement(hDS, pElement, TAG_REFERENCED_FILE_ID, TRUE); 
   pVal = L_DicomGetStringValue(hDS, pElement, 0, 1); 
   MessageBox(NULL, pVal, TEXT("Test"), MB_OK); 
 
   /* find last SERIES and delete it */ 
   pKey = L_DicomFindLastKey(hDS, pKey, TEXT("SERIES"), TRUE); 
   L_DicomDeleteKey(hDS, pKey); 
    
   /* move to root key */ 
   pKey = L_DicomGetFirstKey(hDS, NULL, FALSE); 
   MessageBox(NULL, L_DicomGetValueKey(hDS, pKey), TEXT("Test"), MB_OK); 
    
   /* move to SERIES level */ 
   pKey = L_DicomGetChildKey(hDS, pKey); /*STUDY*/ 
   pKey = L_DicomGetChildKey(hDS, pKey); /*SERIES*/ 
    
   /* move to first SERIES */ 
   pKey = L_DicomGetFirstKey(hDS, pKey, TRUE); 
   pElement = L_DicomGetChildElement(hDS, pKey, TRUE); 
   pElement = L_DicomFindFirstElement(hDS, pElement, TAG_REFERENCED_FILE_ID, TRUE); 
   pVal = L_DicomGetStringValue(hDS, pElement, 0, 1); 
   MessageBox(NULL, pVal, TEXT("Test"), MB_OK); 
    
   /* move to next series */ 
   pKey = L_DicomGetNextKey(hDS, pKey, TRUE); 
   pElement = L_DicomGetChildElement(hDS, pKey, TRUE); 
   pElement = L_DicomFindFirstElement(hDS, pElement, TAG_REFERENCED_FILE_ID, TRUE); 
   pVal = L_DicomGetStringValue(hDS, pElement, 0, 1); 
   MessageBox(NULL, pVal, TEXT("Test"), MB_OK); 
    
   /* move to last SERIES */ 
   pKey = L_DicomGetLastKey(hDS, pKey, TRUE); 
   pElement = L_DicomGetChildElement(hDS, pKey, TRUE); 
   pElement = L_DicomFindFirstElement(hDS, pElement, TAG_REFERENCED_FILE_ID, TRUE); 
   pVal = L_DicomGetStringValue(hDS, pElement, 0, 1); 
   MessageBox(NULL, pVal, TEXT("Test"), MB_OK); 
    
   /* move to previous SERIES */ 
   pKey = L_DicomGetPrevKey(hDS, pKey, TRUE); 
   pElement = L_DicomGetChildElement(hDS, pKey, TRUE); 
   pElement = L_DicomFindFirstElement(hDS, pElement, TAG_REFERENCED_FILE_ID, TRUE); 
   pVal = L_DicomGetStringValue(hDS, pElement, 0, 1); 
   MessageBox(NULL, pVal, TEXT("Test"), MB_OK); 
 
   L_DicomFreeDS(hDS); 
   return DICOM_SUCCESS; 
}