- MDPOST20 ; HOIFO/NCA - Post Init ;7/1/10 10:45
- ;;1.0;CLINICAL PROCEDURES;**20**;Apr 01, 2004;Build 9
- ; Integration Agreements:
- ; IA# 2263 [Supported] XPAR parameter calls.
- ; IA# 10141 [Supported] Calls to XPDUTL
- ;
- EN ; [Procedure] Setup MD DEVICE SURVEY TRANSMISSION parameter
- ; This submodule is called during the KIDS Post installation
- ; process.
- ;
- ; New private variables
- N MDOPT,MDAPU
- S MDAPU=$G(XPDQUES("POS1"))
- D EN^XPAR("SYS","MD DEVICE SURVEY TRANSMISSION",1,MDAPU)
- I +MDAPU D COL^MDDEVCL D BMES^XPDUTL("Collecting device information for initial transmission...")
- ;
- EN1 ; [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,MDFILE,MDRET,MDX
- W $$MSG("Setting compatible client versions")
- S MDCLIENT="1.0.20.4" D
- .D SETPAR("MD VERSION CHK","CPGATEWAY.EXE:"_MDCLIENT,1)
- .D SETPAR("MD CRC VALUES","CPGATEWAY.EXE:"_MDCLIENT,"7C3BE136")
- 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[HMDPOST20 1653 printed Feb 18, 2025@23:09:43 Page 2
- MDPOST20 ; HOIFO/NCA - Post Init ;7/1/10 10:45
- +1 ;;1.0;CLINICAL PROCEDURES;**20**;Apr 01, 2004;Build 9
- +2 ; Integration Agreements:
- +3 ; IA# 2263 [Supported] XPAR parameter calls.
- +4 ; IA# 10141 [Supported] Calls to XPDUTL
- +5 ;
- EN ; [Procedure] Setup MD DEVICE SURVEY TRANSMISSION parameter
- +1 ; This submodule is called during the KIDS Post installation
- +2 ; process.
- +3 ;
- +4 ; New private variables
- +5 NEW MDOPT,MDAPU
- +6 SET MDAPU=$GET(XPDQUES("POS1"))
- +7 DO EN^XPAR("SYS","MD DEVICE SURVEY TRANSMISSION",1,MDAPU)
- +8 IF +MDAPU
- DO COL^MDDEVCL
- DO BMES^XPDUTL("Collecting device information for initial transmission...")
- +9 ;
- EN1 ; [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.20.4"
- Begin DoDot:1
- +15 DO SETPAR("MD VERSION CHK","CPGATEWAY.EXE:"_MDCLIENT,1)
- +16 DO SETPAR("MD CRC VALUES","CPGATEWAY.EXE:"_MDCLIENT,"7C3BE136")
- End DoDot:1
- +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
