GMRC75P.m

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 ---GMRC75P   602     printed  Apr 09, 2024@20:53:03                                                                                                                                                                                                      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