MDPOST95 ; HOIFO/NCA - Post Init ;Apr 23, 2025@13:39
;;1.0;CLINICAL PROCEDURES;**95**;Apr 01, 2004;Build 9
; Integration Agreements:
; IA# 2263 [Supported] XPAR parameter calls.
; IA# 10141 [Supported] Calls to XPDUTL
;
EN ; [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
W $$MSG("Setting compatible client versions")
S MDCLIENT="1.0.95.1"
D SETPAR("MD VERSION CHK","CPGATEWAY.EXE:"_MDCLIENT,1)
D SETPAR("MD CRC VALUES","CPGATEWAY.EXE:"_MDCLIENT,"26F6B6F9")
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[HMDPOST95 1257 printed Aug 26, 2025@21:59:33 Page 2
MDPOST95 ; HOIFO/NCA - Post Init ;Apr 23, 2025@13:39
+1 ;;1.0;CLINICAL PROCEDURES;**95**;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 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
+13 WRITE $$MSG("Setting compatible client versions")
+14 SET MDCLIENT="1.0.95.1"
+15 DO SETPAR("MD VERSION CHK","CPGATEWAY.EXE:"_MDCLIENT,1)
+16 DO SETPAR("MD CRC VALUES","CPGATEWAY.EXE:"_MDCLIENT,"26F6B6F9")
+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
