source: WorldVistAEHR/trunk/r/GEN_MED_OTHER-GMV/GMV18PST.m@ 1801

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

initial load of WorldVistAEHR

File size: 679 bytes
RevLine 
[613]1GMV18PST ;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 ;
5POST ; 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.