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 ---[H[J[2J[HMDPOST21 1320 printed Nov 22, 2024@16:53:33 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
