- MDPOST88 ; HOIFO/NCA - Post Init ;Sep 16, 2024@09:58
- ;;1.0;CLINICAL PROCEDURES;**88**;Apr 01, 2004;Build 12
- ; Integration Agreements:
- ; IA# 2263 [Supported] XPAR parameter calls.
- ; 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
- N DIK,MDCLIENT
- W $$MSG("Setting compatible client versions")
- S MDCLIENT="1.0.88.3"
- D SETPAR("MD VERSION CHK","CPGATEWAY.EXE:"_MDCLIENT,1)
- D SETPAR("MD CRC VALUES","CPGATEWAY.EXE:"_MDCLIENT,"0CB17880")
- 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[HMDPOST88 1258 printed Mar 13, 2025@20:48:27 Page 2
- MDPOST88 ; HOIFO/NCA - Post Init ;Sep 16, 2024@09:58
- +1 ;;1.0;CLINICAL PROCEDURES;**88**;Apr 01, 2004;Build 12
- +2 ; Integration Agreements:
- +3 ; IA# 2263 [Supported] XPAR parameter calls.
- +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
- +13 WRITE $$MSG("Setting compatible client versions")
- +14 SET MDCLIENT="1.0.88.3"
- +15 DO SETPAR("MD VERSION CHK","CPGATEWAY.EXE:"_MDCLIENT,1)
- +16 DO SETPAR("MD CRC VALUES","CPGATEWAY.EXE:"_MDCLIENT,"0CB17880")
- +17 QUIT
- +18 ;
- 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
