MDPOST06.m

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 ---MDPOST06   1797     printed  Apr 09, 2024@20:47:27                                                                                                                                                                                                    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