- 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 Mar 13, 2025@20:47:53 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 ;
