source: FOIAVistA/trunk/r/CLINICAL_PROCEDURES-MD/MDPOST06.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1MDPOST06 ; HOIFO/DP - Post Init ;2/7/07 16:15
2 ;;1.0;CLINICAL PROCEDURES;**6**;Apr 01, 2004;Build 102
3 ; Integration Agreements:
4 ; IA# 2263 [Supported] XPAR Utilities
5 ; IA# 10141 [Supported] Calls to XPDUTL
6 ;
7EN ; [Procedure] Setup preliminary parameters
8 ; This submodule is called during the KIDS installation
9 ; process.
10 ;
11 ; Variables:
12 ; DIK: [Private] Fileman delete variable
13 ; MDCLIENT: [Private] Current client version (#.#.#.#)
14 ; MDFILE: [Private] Scratch
15 ; MDRET: [Private] Scratch
16 ; MDX: [Private] Scratch
17 ;
18 ; New private variables
19 NEW DIK,MDCLIENT,MDFILE,MDRET,MDX
20 W $$MSG("Setting compatible client versions")
21 S MDCLIENT="1.0.6.4" D
22 .D SETPAR("MD VERSION CHK","CPGATEWAY.EXE:"_MDCLIENT,1)
23 .D SETPAR("MD VERSION CHK","CPMANAGER.EXE:"_MDCLIENT,1)
24 .D SETPAR("MD CRC VALUES","CPGATEWAY.EXE:"_MDCLIENT,"E0E1BB26")
25 .D SETPAR("MD CRC VALUES","CPMANAGER.EXE:"_MDCLIENT,"9ABFE692")
26 D ^MDPOST6A
27 N MDK,MDKGUI,MDKLST
28 ; Set current client version
29 S MDKGUI="1.0.6.319"
30 ; Deactivate all previous versions from XPAR
31 D GETLST^XPAR(.MDKLST,"SYS","MDK GUI VERSION")
32 F MDK=0:0 S MDK=$O(MDKLST(MDK)) Q:'MDK D
33 .D EN^XPAR("SYS","MDK GUI VERSION",$P(MDKLST(MDK),"^",1),0)
34 ; Add and/or activate current client versions
35 D EN^XPAR("SYS","MDK GUI VERSION","HEMODIALYSIS.EXE:"_MDKGUI,1)
36 Q
37 ;
38MSG(TEXT) ; [Procedure] Display message to user
39 ; Input parameters
40 ; 1. TEXT [Literal/Required] Text to display to the user
41 ;
42 D MES^XPDUTL(" MDPOST-"_TEXT_"...")
43 D MES^XPDUTL("")
44 Q ""
45 ;
46SETPAR(PAR,INS,VAL) ; [Procedure] Set value into XPAR parameter
47 ; Input parameters
48 ; 1. PAR [Literal/Required] Parameter
49 ; 2. INS [Literal/Required] Instance
50 ; 3. VAL [Literal/Required] New value
51 ;
52 D EN^XPAR("SYS",PAR,INS,VAL)
53 Q
Note: See TracBrowser for help on using the repository browser.