L_DicomSendCMoveRequest

L_INT DicomSendCMoveRequestExample( 
   HDICOMNET hNet, 
   L_TCHAR gszGetFile[L_MAXPATH]) 
{ 
   L_TCHAR szClassUID[200]; 
   L_TCHAR szAE[200]; 
   L_TCHAR szMsg[200]; 
   HDICOMPDU hPDU; 
   L_UCHAR nID; 
   HDICOMDS hDS=NULL; 
   pDICOMTAG pTag=NULL; 
   pDICOMELEMENT pElement=NULL; 
   L_INT nRet; 
 
    
   /* send a Move Request to the server */ 
    
   /*  
       gszGetFile is a global variable that will be used when we get 
       the C-STORE-RQ event to store the file 
   */ 
   lstrcpy(gszGetFile, MAKE_IMAGE_PATH(TEXT("Move_request.dcm"))); 
    
   /* this demo uses fixed values */ 
   lstrcpy(szClassUID, UID_NM_IMAGE_STORAGE); 
    
   /* create the data set that encodes the identifier to be matched */ 
   hDS = L_DicomCreateDS(NULL); 
   L_DicomInitDS(hDS, CLASS_UNKNOWN, 0); 
    
   /* add the required elements */ 
   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; 
   } 
 
   L_DicomSetStringValue(hDS, pElement, TEXT("PATIENT"), 1, DICOM_CHARACTER_SET_DEFAULT); 
    
   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_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_NUMBER_OF_PATIENT_RELATED_INSTANCES); 
       
   hPDU = L_DicomGetAssociate(hNet); 
   L_DicomGetCalling(hPDU, szAE, 200); 
    
   /* now, send a request */ 
   nID = L_DicomFindAbstract(hPDU, szClassUID); 
   if(nID == 0) 
   { 
      wsprintf(szMsg, TEXT("Abstract Syntax %s Not Supported by Association!"), szClassUID); 
      MessageBox(NULL, szMsg, TEXT("Error"), MB_OK); 
   } 
   else 
   { 
      /* we are asking the Called AE to move the SOP Instance to ourselves */ 
      nRet = L_DicomSendCMoveRequest(hNet, nID, 1, szClassUID, COMMAND_PRIORITY_MEDIUM, szAE, hDS); 
      if (nRet != DICOM_SUCCESS) 
      { 
         L_DicomFreeDS(hDS); 
         return nRet; 
      } 
   } 
   /* we now must wait for the response and for the C-STORE sub-operations */ 
   L_DicomFreeDS(hDS); 
   return DICOM_SUCCESS; 
}