MDPOST04 ; HOIFO/DP - Post Init ; 2/18/04 11:39
;;1.0;CLINICAL PROCEDURES;**4**;Apr 01, 2004;Build 3
; Integration Agreements:
; IA# 2263 [Supported] XPAR Utilities
; 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
NEW DIK,MDCLIENT,MDFILE,MDRET,MDX
W $$MSG("Setting compatible client versions")
S MDCLIENT="1.0.4.0" D
.D SETPAR("MD VERSION CHK","CPUSER.EXE:"_MDCLIENT,1)
.D SETPAR("MD VERSION CHK","CPMANAGER.EXE:"_MDCLIENT,1)
.D SETPAR("MD CRC VALUES","CPUSER.EXE:"_MDCLIENT,"9823D716")
.D SETPAR("MD CRC VALUES","CPMANAGER.EXE:"_MDCLIENT,"E3117AF8")
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[HMDPOST04 1389 printed Nov 22, 2024@16:53:26 Page 2
MDPOST04 ; HOIFO/DP - Post Init ; 2/18/04 11:39
+1 ;;1.0;CLINICAL PROCEDURES;**4**;Apr 01, 2004;Build 3
+2 ; Integration Agreements:
+3 ; IA# 2263 [Supported] XPAR Utilities
+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,MDFILE,MDRET,MDX
+13 WRITE $$MSG("Setting compatible client versions")
+14 SET MDCLIENT="1.0.4.0"
Begin DoDot:1
+15 DO SETPAR("MD VERSION CHK","CPUSER.EXE:"_MDCLIENT,1)
+16 DO SETPAR("MD VERSION CHK","CPMANAGER.EXE:"_MDCLIENT,1)
+17 DO SETPAR("MD CRC VALUES","CPUSER.EXE:"_MDCLIENT,"9823D716")
+18 DO SETPAR("MD CRC VALUES","CPMANAGER.EXE:"_MDCLIENT,"E3117AF8")
End DoDot:1
+19 QUIT
+20 ;
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
+8 ;
