MDPOST06 ; HOIFO/DP - Post Init ;2/7/07 16:15
;;1.0;CLINICAL PROCEDURES;**6**;Apr 01, 2004;Build 102
; 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.6.4" D
.D SETPAR("MD VERSION CHK","CPGATEWAY.EXE:"_MDCLIENT,1)
.D SETPAR("MD VERSION CHK","CPMANAGER.EXE:"_MDCLIENT,1)
.D SETPAR("MD CRC VALUES","CPGATEWAY.EXE:"_MDCLIENT,"E0E1BB26")
.D SETPAR("MD CRC VALUES","CPMANAGER.EXE:"_MDCLIENT,"9ABFE692")
D ^MDPOST6A
N MDK,MDKGUI,MDKLST
; Set current client version
S MDKGUI="1.0.6.319"
; Deactivate all previous versions from XPAR
D GETLST^XPAR(.MDKLST,"SYS","MDK GUI VERSION")
F MDK=0:0 S MDK=$O(MDKLST(MDK)) Q:'MDK D
.D EN^XPAR("SYS","MDK GUI VERSION",$P(MDKLST(MDK),"^",1),0)
; Add and/or activate current client versions
D EN^XPAR("SYS","MDK GUI VERSION","HEMODIALYSIS.EXE:"_MDKGUI,1)
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[HMDPOST06 1797 printed Oct 16, 2024@17:44:06 Page 2
MDPOST06 ; HOIFO/DP - Post Init ;2/7/07 16:15
+1 ;;1.0;CLINICAL PROCEDURES;**6**;Apr 01, 2004;Build 102
+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.6.4"
Begin DoDot:1
+15 DO SETPAR("MD VERSION CHK","CPGATEWAY.EXE:"_MDCLIENT,1)
+16 DO SETPAR("MD VERSION CHK","CPMANAGER.EXE:"_MDCLIENT,1)
+17 DO SETPAR("MD CRC VALUES","CPGATEWAY.EXE:"_MDCLIENT,"E0E1BB26")
+18 DO SETPAR("MD CRC VALUES","CPMANAGER.EXE:"_MDCLIENT,"9ABFE692")
End DoDot:1
+19 DO ^MDPOST6A
+20 NEW MDK,MDKGUI,MDKLST
+21 ; Set current client version
+22 SET MDKGUI="1.0.6.319"
+23 ; Deactivate all previous versions from XPAR
+24 DO GETLST^XPAR(.MDKLST,"SYS","MDK GUI VERSION")
+25 FOR MDK=0:0
SET MDK=$ORDER(MDKLST(MDK))
if 'MDK
QUIT
Begin DoDot:1
+26 DO EN^XPAR("SYS","MDK GUI VERSION",$PIECE(MDKLST(MDK),"^",1),0)
End DoDot:1
+27 ; Add and/or activate current client versions
+28 DO EN^XPAR("SYS","MDK GUI VERSION","HEMODIALYSIS.EXE:"_MDKGUI,1)
+29 QUIT
+30 ;
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