Last change
on this file since 1005 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
679 bytes
|
Line | |
---|
1 | GMV18PST ;HOIFO/KAM-POST INSTALLATION FOR GMRV*5*18 ;5/16/06 1:35pm
|
---|
2 | ;;5.0;GEN. MED. REC. - VITALS;**18**;Oct 31, 2002;Build 7
|
---|
3 | ;
|
---|
4 | ;
|
---|
5 | POST ; New private variables
|
---|
6 | N GMV,GMVGUI,GMVLST
|
---|
7 | ; Announce my intentions
|
---|
8 | D BMES^XPDUTL("Updating system parameters.")
|
---|
9 | ; Set current client version
|
---|
10 | S GMVGUI="5.0.18.1"
|
---|
11 | ; Deactivate all previous versions from XPAR
|
---|
12 | D GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")
|
---|
13 | F GMV=0:0 S GMV=$O(GMVLST(GMV)) Q:'GMV D
|
---|
14 | .D EN^XPAR("SYS","GMV GUI VERSION",$P(GMVLST(GMV),"^",1),0)
|
---|
15 | ; Add and/or activate current client versions
|
---|
16 | D EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)
|
---|
17 | D EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVGUI,1)
|
---|
18 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.