MDPOST29 ;HOIFO/NCA - Post Init ;2/7/07 16:15
;;1.0;CLINICAL PROCEDURES;**29**;Apr 01, 2004;Build 22
; Integration Agreements:
; IA# 2263 [Supported] XPAR Utilities
;
EN ; [Procedure] Setup preliminary parameters
; This submodule is called during the KIDS installation
; process.
;
; New private variables
N MDK,MDKGUI,MDKLST
; Set current client version
S MDKGUI="1.0.29.22"
; 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST29 727 printed Dec 13, 2024@01:43:23 Page 2
MDPOST29 ;HOIFO/NCA - Post Init ;2/7/07 16:15
+1 ;;1.0;CLINICAL PROCEDURES;**29**;Apr 01, 2004;Build 22
+2 ; Integration Agreements:
+3 ; IA# 2263 [Supported] XPAR Utilities
+4 ;
EN ; [Procedure] Setup preliminary parameters
+1 ; This submodule is called during the KIDS installation
+2 ; process.
+3 ;
+4 ; New private variables
+5 NEW MDK,MDKGUI,MDKLST
+6 ; Set current client version
+7 SET MDKGUI="1.0.29.22"
+8 ; Deactivate all previous versions from XPAR
+9 DO GETLST^XPAR(.MDKLST,"SYS","MDK GUI VERSION")
+10 FOR MDK=0:0
SET MDK=$ORDER(MDKLST(MDK))
if 'MDK
QUIT
Begin DoDot:1
+11 DO EN^XPAR("SYS","MDK GUI VERSION",$PIECE(MDKLST(MDK),"^",1),0)
End DoDot:1
+12 ; Add and/or activate current client versions
+13 DO EN^XPAR("SYS","MDK GUI VERSION","HEMODIALYSIS.EXE:"_MDKGUI,1)
+14 QUIT
