source: WorldVistAEHR/trunk/r/GEN_MED_OTHER-GMV/GMV1PST.m@ 701

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1GMV1PST ;HOIFO/FT-POST INSTALLATION FOR GMRV*5*1 ;10/8/03 14:01
2 ;;5.0;GEN. MED. REC. - VITALS;**1**;Oct 31, 2002
3 ;
4 ; This routine uses the following IAs:
5 ; #10141 - ^XPDUTL calls (supported)
6 ; #2263 - ^XPAR calls (supported)
7 ;
8 ; This post-installation:
9 ; Updates the parameters for the required client version
10 ;
11XPAR ; Setup preliminary parameters
12 ; This submodule is called during the KIDS installation
13 ; process.
14 ;
15 ; Variables:
16 ; GMV: [Private] Scratch
17 ; GMVGUI: [Private] Current version of GUI being installed
18 ; GMVLST: [Private] Scratch List
19 ;
20 ; New private variables
21 N GMV,GMVGUI,GMVLST
22 ; Announce my intentions
23 D BMES^XPDUTL("Updating system parameters.")
24 ; Set current client version
25 S GMVGUI="5.0.1.0"
26 ; Deactivate all previous versions from XPAR
27 D GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")
28 F GMV=0:0 S GMV=$O(GMVLST(GMV)) Q:'GMV D
29 .D EN^XPAR("SYS","GMV GUI VERSION",$P(GMVLST(GMV),"^",1),0)
30 ; Add and/or activate current client versions
31 D EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)
32 D EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVGUI,1)
33 Q
Note: See TracBrowser for help on using the repository browser.