MDPOST20.m

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 ---MDPOST20   1653     printed  Apr 09, 2024@20:47:35                                                                                                                                                                                                    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