| 1 | GMV1PST ;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 | ;
|
|---|
| 11 | XPAR ; 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
|
|---|
