Last change
on this file since 1606 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
679 bytes
|
Rev | Line | |
---|
[628] | 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.