source: FOIAVistA/trunk/r/CLINICAL_PROCEDURES-MD/MDPOST04.m@ 952

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1MDPOST04 ; HOIFO/DP - Post Init ; 2/18/04 11:39
2 ;;1.0;CLINICAL PROCEDURES;**4**;Apr 01, 2004;Build 3
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.4.0" D
22 .D SETPAR("MD VERSION CHK","CPUSER.EXE:"_MDCLIENT,1)
23 .D SETPAR("MD VERSION CHK","CPMANAGER.EXE:"_MDCLIENT,1)
24 .D SETPAR("MD CRC VALUES","CPUSER.EXE:"_MDCLIENT,"9823D716")
25 .D SETPAR("MD CRC VALUES","CPMANAGER.EXE:"_MDCLIENT,"E3117AF8")
26 Q
27 ;
28MSG(TEXT) ; [Procedure] Display message to user
29 ; Input parameters
30 ; 1. TEXT [Literal/Required] Text to display to the user
31 ;
32 D MES^XPDUTL(" MDPOST-"_TEXT_"...")
33 D MES^XPDUTL("")
34 Q ""
35 ;
36SETPAR(PAR,INS,VAL) ; [Procedure] Set value into XPAR parameter
37 ; Input parameters
38 ; 1. PAR [Literal/Required] Parameter
39 ; 2. INS [Literal/Required] Instance
40 ; 3. VAL [Literal/Required] New value
41 ;
42 D EN^XPAR("SYS",PAR,INS,VAL)
43 Q
44 ;
Note: See TracBrowser for help on using the repository browser.