L_DicomSendCFindRequest

#include <windowsx.h> 
#define FIND_TYPE_STUDY  1 
#define FIND_TYPE_SERIES 2 
#define FIND_TYPE_IMAGE  3 
L_INT DicomSendCFindRequestExample( 
HWND hStudyList, 
HDICOMNET hNet, 
L_INT* gnFindType, 
L_INT* gnFindCount) 
{ 
   HDICOMPDU hPDU; 
   L_UCHAR nID; 
   HDICOMDS hDS=NULL; 
   L_TCHAR szUID[200]; 
   L_TCHAR szMsg[200]; 
   long x; 
   long lCount; 
   L_TCHAR szFile[L_MAXPATH]; 
   HANDLE hFile=NULL; 
   pDICOMTAG pTag=NULL; 
   pDICOMELEMENT pElement=NULL; 
   L_INT nRet; 
   /* this example sends a command that will find all STUDIES on a called AE that 
   supports the Study Root Query/Retrieve Information Model - FIND SOP Class 
   The results are stored in a ListBox named StudyList as each result 
   is received in the NetReceiveCStoreRequest event */ 
   /* delete all previous find results */ 
   lCount = ListBox_GetCount(hStudyList); 
   for(x=0; x<lCount; x++) 
   { 
      ListBox_GetText(hStudyList, x, szFile); 
      hFile = CreateFile(szFile, GENERIC_READ, 0, NULL, 
      OPEN_EXISTING, FILE_FLAG_DELETE_ON_CLOSE, 
      NULL); 
      if(hFile) 
         CloseHandle(hFile); 
   } 
   ListBox_ResetContent(hStudyList); 
   *gnFindType = FIND_TYPE_STUDY; /* global variable used to distingish this find */ 
   /* send a Find request to the server */ 
   hPDU = L_DicomGetAssociate(hNet); 
   lstrcpy(szUID, UID_STUDY_ROOT_QUERY_FIND); 
   nID = L_DicomFindAbstract(hPDU, szUID); 
   if(nID == 0) 
   { 
      wsprintf(szMsg, TEXT("Abstract Syntax %s Not Supported by Association!"), szUID); 
      MessageBox(NULL, szMsg, TEXT("Error"), MB_OK); 
   } 
   else 
   { 
      /* create a find attribute data set */ 
      hDS = L_DicomCreateDS(NULL); 
      L_DicomInitDS(hDS, CLASS_UNKNOWN, 0); 
      L_DicomResetDS(hDS); 
      /* add the required fields for this seach */ 
      pTag = L_DicomFindTag(TAG_QUERY_RETRIEVE_LEVEL); 
      pElement = L_DicomInsertElement(hDS, NULL, FALSE, TAG_QUERY_RETRIEVE_LEVEL, pTag->nVR, FALSE, 0); 
      if (pElement == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
      /* we are searching at the study level */ 
      L_DicomSetStringValue(hDS, pElement, TEXT("STUDY "), 1, DICOM_CHARACTER_SET_DEFAULT); 
      pTag = L_DicomFindTag(TAG_STUDY_DATE); 
      pElement = L_DicomInsertElement(hDS, NULL, FALSE, TAG_STUDY_DATE, pTag->nVR, FALSE, 0); 
      if (pElement == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
      pTag = L_DicomFindTag(TAG_STUDY_TIME); 
      pElement = L_DicomInsertElement(hDS, NULL, FALSE, TAG_STUDY_TIME, pTag->nVR, FALSE, 0); 
      if (pElement == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
      pTag = L_DicomFindTag(TAG_ACCESSION_NUMBER); 
      pElement = L_DicomInsertElement(hDS, NULL, FALSE, TAG_ACCESSION_NUMBER, pTag->nVR, FALSE, 0); 
      if (pElement == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
      pTag = L_DicomFindTag(TAG_PATIENT_NAME); 
      pElement = L_DicomInsertElement(hDS, NULL, FALSE, TAG_PATIENT_NAME, pTag->nVR, FALSE, 0); 
      if (pElement == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
      pTag = L_DicomFindTag(TAG_PATIENT_ID); 
      pElement = L_DicomInsertElement(hDS, NULL, FALSE, TAG_PATIENT_ID, pTag->nVR, FALSE, 0); 
      if (pElement == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
      pTag = L_DicomFindTag(TAG_STUDY_ID); 
      pElement = L_DicomInsertElement(hDS, NULL, FALSE, TAG_STUDY_ID, pTag->nVR, FALSE, 0); 
      if (pElement == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
      pTag = L_DicomFindTag(TAG_STUDY_INSTANCE_UID); 
      pElement = L_DicomInsertElement(hDS, NULL, FALSE, TAG_STUDY_INSTANCE_UID, pTag->nVR, FALSE, 0); 
      if (pElement == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
      /* optional tags */ 
      pTag = L_DicomFindTag(TAG_STUDY_DESCRIPTION); 
      pElement = L_DicomInsertElement(hDS, NULL, FALSE, TAG_STUDY_DESCRIPTION, pTag->nVR, FALSE, 0); 
      if (pElement == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
      pTag = L_DicomFindTag(TAG_PATIENT_BIRTH_DATE); 
      pElement = L_DicomInsertElement(hDS, NULL, FALSE, TAG_PATIENT_BIRTH_DATE, pTag->nVR, FALSE, 0); 
      if (pElement == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
      pTag = L_DicomFindTag(TAG_PATIENT_SEX); 
      pElement = L_DicomInsertElement(hDS, NULL, FALSE, TAG_PATIENT_SEX, pTag->nVR, FALSE, 0); 
      if (pElement == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
      pTag = L_DicomFindTag(TAG_OTHER_PATIENT_IDS); 
      pElement = L_DicomInsertElement(hDS, NULL, FALSE, TAG_OTHER_PATIENT_IDS, pTag->nVR, FALSE, 0); 
      if (pElement == NULL) 
      { 
         L_DicomFreeDS(hDS); 
         return DICOM_ERROR_MEMORY; 
      } 
      /* now, send the command set and data set */ 
      *gnFindCount = 0; /* global variable to cound results */ 
      nRet = L_DicomSendCFindRequest(hNet, nID, 1, szUID, COMMAND_PRIORITY_MEDIUM, hDS); 
      if (nRet != DICOM_SUCCESS) 
      { 
         L_DicomFreeDS(hDS); 
         return nRet; 
      } 
      L_DicomFreeDS(hDS); 
   } 
   return DICOM_SUCCESS; 
}