GMRC75P ;DAL/PHH - POST INSTALL ;8/6/14
;;3.0;CONSULT/REQUEST TRACKING;**75**;DEC 27, 1997;Build 22
;
Q
; Documented API's and Integration Agreements
; ----------------------------------------------
; 6081 $$CREATE^XUSAP
;
POST ; Create Proxy User
N GMRCPRXY,GMRCDUZ
S GMRCPRXY="HCPS,APPLICATION PROXY"
Q:$O(^VA(200,"B",GMRCPRXY,0))
S GMRCDUZ=$$CREATE^XUSAP(GMRCPRXY,"")
;
I GMRCDUZ>0 D Q
.D BMES^XPDUTL("*****")
.D MES^XPDUTL("'"_GMRCPRXY_"' user successfully created.")
E D
.D BMES^XPDUTL("*****")
.D MES^XPDUTL("Error - '"_GMRCPRXY_"' user not added.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRC75P 602 printed Nov 22, 2024@16:55:04 Page 2
GMRC75P ;DAL/PHH - POST INSTALL ;8/6/14
+1 ;;3.0;CONSULT/REQUEST TRACKING;**75**;DEC 27, 1997;Build 22
+2 ;
+3 QUIT
+4 ; Documented API's and Integration Agreements
+5 ; ----------------------------------------------
+6 ; 6081 $$CREATE^XUSAP
+7 ;
POST ; Create Proxy User
+1 NEW GMRCPRXY,GMRCDUZ
+2 SET GMRCPRXY="HCPS,APPLICATION PROXY"
+3 if $ORDER(^VA(200,"B",GMRCPRXY,0))
QUIT
+4 SET GMRCDUZ=$$CREATE^XUSAP(GMRCPRXY,"")
+5 ;
+6 IF GMRCDUZ>0
Begin DoDot:1
+7 DO BMES^XPDUTL("*****")
+8 DO MES^XPDUTL("'"_GMRCPRXY_"' user successfully created.")
End DoDot:1
QUIT
+9 IF '$TEST
Begin DoDot:1
+10 DO BMES^XPDUTL("*****")
+11 DO MES^XPDUTL("Error - '"_GMRCPRXY_"' user not added.")
End DoDot:1
+12 QUIT
