MDPOST21.m

MDPOST21 ; HOIFO/NCA - Post Init ;2/7/07  16:15

 ;;1.0;CLINICAL PROCEDURES;**21**;Apr 01, 2004;Build 30

 ; Integration Agreements:

 ; IA#  2263 [Supported] XPAR routine calls. 

 ;      4677 [Subscription] XUSAP routine call

 ;     10060 [Supported] New Person file #200 Read w/Fileman

 ;     10141 [Supported] XPDUTL routine call

 ;

EN ; [Procedure] Setup Application PROXY 

 ; This submodule is called during the KIDS installation

 ; process.

 ;

 ; New private variables

 N MDFD,MDFMC,MDHERR,MDHLST,MDK,MDL,MDOPT,MDAPU S MDAPU="CLINICAL,DEVICE PROXY SERVICE"

 S MDOPT("MD GUI USER")=1,MDOPT("MD GUI MANAGER")=1,MDFMC=""

 S MDFD=$$FIND1^DIC(200,,"X",MDAPU,"B") Q:+MDFD

 S MDK=+$$CREATE^XUSAP(MDAPU,MDFMC,.MDOPT)

 I MDK>0 S MDTXT(1)="'"_MDAPU_"' has been created as an Application Proxy User."

 I MDK<0 S XPDABORT=1 D

 .S MDTXT(1)="The post-init routine has stopped.  The Application Proxy User"

 .S MDTXT(2)="was not created.  Make sure the name '"_MDAPU_"' is unique in"

 .S MDTXT(3)="the NEW PERSON file (#200).  The patch can not continue until"

 .S MDTXT(4)="the Application Proxy User can be created."

 D:$O(MDTXT(0)) BMES^XPDUTL(.MDTXT)

 Q:+$$PATCH^XPDUTL("MD*1.0*21")

 D GETLST^XPAR(.MDHLST,"SYS","MD GET HIGH VOLUME")

 I +$G(MDHLST) D NDEL^XPAR("SYS","MD GET HIGH VOLUME",.MDHERR)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MDPOST21   1320     printed  Apr 09, 2024@20:49:37                                                                                                                                                                                                    Page 2

MDPOST21  ; HOIFO/NCA - Post Init ;2/7/07  16:15

 +1       ;;1.0;CLINICAL PROCEDURES;**21**;Apr 01, 2004;Build 30

 +2       ; Integration Agreements:

 +3       ; IA#  2263 [Supported] XPAR routine calls. 

 +4       ;      4677 [Subscription] XUSAP routine call

 +5       ;     10060 [Supported] New Person file #200 Read w/Fileman

 +6       ;     10141 [Supported] XPDUTL routine call

 +7       ;

EN        ; [Procedure] Setup Application PROXY 

 +1       ; This submodule is called during the KIDS installation

 +2       ; process.

 +3       ;

 +4       ; New private variables

 +5        NEW MDFD,MDFMC,MDHERR,MDHLST,MDK,MDL,MDOPT,MDAPU

           SET MDAPU="CLINICAL,DEVICE PROXY SERVICE"

 +6        SET MDOPT("MD GUI USER")=1

           SET MDOPT("MD GUI MANAGER")=1

           SET MDFMC=""

 +7        SET MDFD=$$FIND1^DIC(200,,"X",MDAPU,"B")

           if +MDFD

               QUIT 

 +8        SET MDK=+$$CREATE^XUSAP(MDAPU,MDFMC,.MDOPT)

 +9        IF MDK>0

               SET MDTXT(1)="'"_MDAPU_"' has been created as an Application Proxy User."

 +10       IF MDK<0

               SET XPDABORT=1

               Begin DoDot:1

 +11               SET MDTXT(1)="The post-init routine has stopped.  The Application Proxy User"

 +12               SET MDTXT(2)="was not created.  Make sure the name '"_MDAPU_"' is unique in"

 +13               SET MDTXT(3)="the NEW PERSON file (#200).  The patch can not continue until"

 +14               SET MDTXT(4)="the Application Proxy User can be created."

               End DoDot:1

 +15       if $ORDER(MDTXT(0))

               DO BMES^XPDUTL(.MDTXT)

 +16       if +$$PATCH^XPDUTL("MD*1.0*21")

               QUIT 

 +17       DO GETLST^XPAR(.MDHLST,"SYS","MD GET HIGH VOLUME")

 +18       IF +$GET(MDHLST)

               DO NDEL^XPAR("SYS","MD GET HIGH VOLUME",.MDHERR)

 +19       QUIT