MDPOST19.m

MDPOST19 ; HOIFO/NCA - Post Init ;2/7/07  16:15

 ;;1.0;CLINICAL PROCEDURES;**19**;Apr 01, 2004;Build 3

 ; 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.6.320"

 ; 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 ---MDPOST19   721     printed  Apr 09, 2024@20:48:02                                                                                                                                                                                                     Page 2

MDPOST19  ; HOIFO/NCA - Post Init ;2/7/07  16:15

 +1       ;;1.0;CLINICAL PROCEDURES;**19**;Apr 01, 2004;Build 3

 +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.6.320"

 +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