LDicomNet::SendCMoveRequest

static void InsertNextElement(LDicomDS *pDicomDS, L_UINT32 nTag); 
L_INT LDicomNet__SendCMoveRequestExample(LMyDicomNet *m_pDicomNet) 
{ 
   //This example sends an C-Move Request to a server 
   //In this example: 
   // 
   //1. LMyDicomNet is a class derived from LDicomNet 
   //2. LMyDicomNet has the following member variables: 
   //       m_nClientOrServer:  can be (STATUS_NONE, STATUS_SERVER, STATUS_CLIENT) 
   //                           identifieds the LMyDicomNet object as a server or a client 
   //       m_nDataCommand:     can be (COMMAND_C_MOVE,COMMAND_C_GET) 
   //                           set so the server knows how a C-Store Response was generated 
   // 
   //3. m_pDicomNet points to a valid LMyDicomNet object 
   //      LMyDicomNet *m_pDicomNet 
   // 
   //4. A connection exists between client and server 
   //5. An association exists between the client and server 
   L_INT nRet; 
   CString strMsg = TEXT("C-Move\n"); 
   //Choose a class to move 
   CString strClassUID = UID_NM_IMAGE_STORAGE; 
   //create the data set that encodes the identifier to be matched 
   LDicomDS DicomDS; 
   DicomDS.InitDS(CLASS_UNKNOWN, 0); 
   //add the required elements 
   pDICOMTAG pDicomTag = LDicomTag::Find(TAG_QUERY_RETRIEVE_LEVEL); 
   pDICOMELEMENT pElement = DicomDS.InsertElement( 
   NULL,                      //pDICOMELEMENT pNeighbor 
   FALSE,                     //L_BOOL bChild 
   TAG_QUERY_RETRIEVE_LEVEL,  //L_UINT32 nTag 
   pDicomTag->nVR,            //L_UINT16 nVR 
   FALSE,                     //L_BOOL bSequence, 
   0                          //L_UINT32 nIndex 
   ); 
   DicomDS.SetStringValue(pElement, TEXT("PATIENT"), 
   1, DICOM_CHARACTER_SET_DEFAULT); 
   InsertNextElement(&DicomDS,TAG_PATIENT_NAME); 
   InsertNextElement(&DicomDS,TAG_PATIENT_ID); 
   InsertNextElement(&DicomDS,TAG_PATIENT_BIRTH_DATE); 
   InsertNextElement(&DicomDS,TAG_PATIENT_SEX); 
   InsertNextElement(&DicomDS, TAG_NUMBER_OF_STUDY_RELATED_INSTANCES); 
   //global variable to count results 
   m_pDicomNet->m_FileCount = 0; 
   //Get the associate object 
   LDicomAssociate *pDicomAssociate = m_pDicomNet->GetAssociate(); 
   //Is class supported in the assocation? 
   L_UCHAR nPresentationID = pDicomAssociate->FindAbstract((L_TCHAR *)(LPCTSTR)strClassUID); 
   //nPresentationID must be odd--0 indicates failure 
   if (nPresentationID==0) 
   { 
      CString strTmp; 
      strTmp.Format(TEXT("Abstract Syntax[%s] Not Included in the Association"), strClassUID); 
      strMsg = strMsg + strTmp; 
   } 
   else //success 
   { 
      L_UINT16 uUniqueID = 99; 
      //Choose DICOM AE title of the destination DICOM AE 
      //from which the C-store operations are being performed 
      //This is set by the SetCalling() method of the LDicomAssociateRequest object 
      //before doing a SendAssociateRequest 
      CString strMoveAE = TEXT("LEADtest"); 
      m_pDicomNet->m_FileCount = 0;  //used for file name in OnReceiveCStoreRequest event 
      //The client requests the server to move the SOP Instance to itself (the client) 
      nRet =m_pDicomNet->SendCMoveRequest( 
      nPresentationID, 
      uUniqueID, 
      (L_TCHAR *)(LPCTSTR)strClassUID, 
      COMMAND_PRIORITY_MEDIUM, 
      (L_TCHAR *)(LPCTSTR)strMoveAE, 
      &DicomDS 
      ); 
      if(nRet > 0) 
         return nRet; 
   } 
   AfxMessageBox(strMsg); 
   //now wait for one or more C-STORE sub-operations and finally the C-Get response 
   return DICOM_SUCCESS; 
} 
static void InsertNextElement(LDicomDS *pDicomDS, L_UINT32 nTag) 
{ 
   pDICOMTAG pDicomTag = LDicomTag::Find(nTag); 
   pDicomDS->InsertElement( 
   NULL,            //pDICOMELEMENT pNeighbor 
   FALSE,           //L_BOOL bChild 
   nTag,            //L_UINT32 nTag 
   pDicomTag->nVR,  //L_UINT16 nVR 
   FALSE,           //L_BOOL bSequence, 
   0                //L_UINT32 nIndex 
   ); 
}