MDPOST20 ; HOIFO/NCA - Post Init ;7/1/10 10:45
;;1.0;CLINICAL PROCEDURES;**20**;Apr 01, 2004;Build 9
; Integration Agreements:
; IA# 2263 [Supported] XPAR parameter calls.
; IA# 10141 [Supported] Calls to XPDUTL
;
EN ; [Procedure] Setup MD DEVICE SURVEY TRANSMISSION parameter
; This submodule is called during the KIDS Post installation
; process.
;
; New private variables
N MDOPT,MDAPU
S MDAPU=$G(XPDQUES("POS1"))
D EN^XPAR("SYS","MD DEVICE SURVEY TRANSMISSION",1,MDAPU)
I +MDAPU D COL^MDDEVCL D BMES^XPDUTL("Collecting device information for initial transmission...")
;
EN1 ; [Procedure] Setup preliminary parameters
; This submodule is called during the KIDS installation
; process.
;
; Variables:
; DIK: [Private] Fileman delete variable
; MDCLIENT: [Private] Current client version (#.#.#.#)
; MDFILE: [Private] Scratch
; MDRET: [Private] Scratch
; MDX: [Private] Scratch
;
; New private variables
N DIK,MDCLIENT,MDFILE,MDRET,MDX
W $$MSG("Setting compatible client versions")
S MDCLIENT="1.0.20.4" D
.D SETPAR("MD VERSION CHK","CPGATEWAY.EXE:"_MDCLIENT,1)
.D SETPAR("MD CRC VALUES","CPGATEWAY.EXE:"_MDCLIENT,"7C3BE136")
Q
;
MSG(TEXT) ; [Procedure] Display message to user
; Input parameters
; 1. TEXT [Literal/Required] Text to display to the user
;
D MES^XPDUTL(" MDPOST-"_TEXT_"...")
D MES^XPDUTL("")
Q ""
;
SETPAR(PAR,INS,VAL) ; [Procedure] Set value into XPAR parameter
; Input parameters
; 1. PAR [Literal/Required] Parameter
; 2. INS [Literal/Required] Instance
; 3. VAL [Literal/Required] New value
;
D EN^XPAR("SYS",PAR,INS,VAL)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST20 1653 printed Dec 13, 2024@01:43:20 Page 2
MDPOST20 ; HOIFO/NCA - Post Init ;7/1/10 10:45
+1 ;;1.0;CLINICAL PROCEDURES;**20**;Apr 01, 2004;Build 9
+2 ; Integration Agreements:
+3 ; IA# 2263 [Supported] XPAR parameter calls.
+4 ; IA# 10141 [Supported] Calls to XPDUTL
+5 ;
EN ; [Procedure] Setup MD DEVICE SURVEY TRANSMISSION parameter
+1 ; This submodule is called during the KIDS Post installation
+2 ; process.
+3 ;
+4 ; New private variables
+5 NEW MDOPT,MDAPU
+6 SET MDAPU=$GET(XPDQUES("POS1"))
+7 DO EN^XPAR("SYS","MD DEVICE SURVEY TRANSMISSION",1,MDAPU)
+8 IF +MDAPU
DO COL^MDDEVCL
DO BMES^XPDUTL("Collecting device information for initial transmission...")
+9 ;
EN1 ; [Procedure] Setup preliminary parameters
+1 ; This submodule is called during the KIDS installation
+2 ; process.
+3 ;
+4 ; Variables:
+5 ; DIK: [Private] Fileman delete variable
+6 ; MDCLIENT: [Private] Current client version (#.#.#.#)
+7 ; MDFILE: [Private] Scratch
+8 ; MDRET: [Private] Scratch
+9 ; MDX: [Private] Scratch
+10 ;
+11 ; New private variables
+12 NEW DIK,MDCLIENT,MDFILE,MDRET,MDX
+13 WRITE $$MSG("Setting compatible client versions")
+14 SET MDCLIENT="1.0.20.4"
Begin DoDot:1
+15 DO SETPAR("MD VERSION CHK","CPGATEWAY.EXE:"_MDCLIENT,1)
+16 DO SETPAR("MD CRC VALUES","CPGATEWAY.EXE:"_MDCLIENT,"7C3BE136")
End DoDot:1
+17 QUIT
+18 ;
MSG(TEXT) ; [Procedure] Display message to user
+1 ; Input parameters
+2 ; 1. TEXT [Literal/Required] Text to display to the user
+3 ;
+4 DO MES^XPDUTL(" MDPOST-"_TEXT_"...")
+5 DO MES^XPDUTL("")
+6 QUIT ""
+7 ;
SETPAR(PAR,INS,VAL) ; [Procedure] Set value into XPAR parameter
+1 ; Input parameters
+2 ; 1. PAR [Literal/Required] Parameter
+3 ; 2. INS [Literal/Required] Instance
+4 ; 3. VAL [Literal/Required] New value
+5 ;
+6 DO EN^XPAR("SYS",PAR,INS,VAL)
+7 QUIT
