L_DicomIsRoleSelect

L_INT DicomIsRoleSelectExample(HDICOMPDU hPDU) 
{ 
   L_INT x; 
   L_UCHAR nID; 
   L_TCHAR szOut[20000]; 
   L_TCHAR szTemp[2000]; 
   L_UCHAR nUser; 
   L_UCHAR nProvider; 
   L_INT nRet; 
    
   /* indicate that we wish to serve as user for each SOP associated */ 
   for(x = 0; x < L_DicomGetPresentationCount(hPDU); x ++) 
   { 
      nID = L_DicomGetPresentation(hPDU, x); 
      nRet = L_DicomSetRoleSelect(hPDU, nID, TRUE, PDU_ROLE_SUPPORT, PDU_ROLE_NON_SUPPORT); 
      if (nRet != DICOM_SUCCESS) 
         return nRet; 
       
   } 
    
   /* now, display the information */ 
   lstrcpy(szOut, TEXT("Role Select Info\n")); 
   for(x = 0; x < L_DicomGetPresentationCount(hPDU); x ++) 
   { 
      nID = L_DicomGetPresentation(hPDU, x); 
      wsprintf(szTemp, TEXT("ID: %d"), nID); 
      lstrcat(szOut, szTemp); 
      if(L_DicomIsRoleSelect(hPDU, nID)) 
      { 
         nUser = L_DicomGetUserRole(hPDU, nID); 
         nProvider = L_DicomGetProviderRole(hPDU, nID); 
         wsprintf(szTemp, TEXT("  User: %d"), nUser); 
         lstrcat(szOut, szTemp); 
         wsprintf(szTemp, TEXT("  Provider: %d\n"), nProvider); 
         lstrcat(szOut, szTemp); 
      } 
      else 
         lstrcat(szOut, TEXT("  No Role Select\n")); 
   } 
   MessageBox(NULL, szOut, TEXT("Test"), MB_OK); 
 
   return DICOM_SUCCESS; 
}