L_DicomSendNSetRequest

L_INT DicomSendNSetRequestExample(HDICOMNET hNet) 
{ 
   L_TCHAR szClassUID[200]; 
   L_TCHAR szInstance[200]; 
   L_TCHAR szMsg[200]; 
   HDICOMPDU hPDU; 
   L_UCHAR nID; 
   L_TCHAR szNewID[200]; 
   HDICOMDS hDS=NULL; 
   pDICOMTAG pTag=NULL; 
   pDICOMELEMENT pElement=NULL; 
   L_INT nRet; 
    
   /* this sample allows you to change the patient id of an SOP Instance */ 
    
   /* send an N-GET-REQUEST to the server */ 
    
   /* this sample uses fixed values */ 
   lstrcpy(szClassUID, UID_SC_IMAGE_STORAGE); 
    
   lstrcpy(szInstance, TEXT("998.998.1.19950214.94000.1.102")); 
    
   /* new patient id */ 
   lstrcpy(szNewID, TEXT("123-45-6789")); 
    
   /* create the data set that encodes the changed element(s) */ 
   hDS = L_DicomCreateDS(NULL); 
   L_DicomInitDS(hDS, CLASS_UNKNOWN, 0); 
   L_DicomResetDS(hDS); 
    
   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; 
   } 
 
   L_DicomSetStringValue(hDS, pElement, szNewID, 1, DICOM_CHARACTER_SET_DEFAULT); 
    
   hPDU = L_DicomGetAssociate(hNet); 
    
   /* 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 
   { 
      nRet = L_DicomSendNSetRequest(hNet, nID, 1, szClassUID, szInstance, hDS); 
      if (nRet != DICOM_SUCCESS) 
      { 
         L_DicomFreeDS(hDS); 
         return nRet; 
      } 
   } 
   L_DicomFreeDS(hDS); 
   return DICOM_SUCCESS; 
}