|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 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.
