GMV1PST ;HOIFO/FT-POST INSTALLATION FOR GMRV*5*1 ;10/8/03 14:01
;;5.0;GEN. MED. REC. - VITALS;**1**;Oct 31, 2002
;
; This routine uses the following IAs:
; #10141 - ^XPDUTL calls (supported)
; #2263 - ^XPAR calls (supported)
;
; This post-installation:
; Updates the parameters for the required client version
;
XPAR ; Setup preliminary parameters
; This submodule is called during the KIDS installation
; process.
;
; Variables:
; GMV: [Private] Scratch
; GMVGUI: [Private] Current version of GUI being installed
; GMVLST: [Private] Scratch List
;
; New private variables
N GMV,GMVGUI,GMVLST
; Announce my intentions
D BMES^XPDUTL("Updating system parameters.")
; Set current client version
S GMVGUI="5.0.1.0"
; Deactivate all previous versions from XPAR
D GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")
F GMV=0:0 S GMV=$O(GMVLST(GMV)) Q:'GMV D
.D EN^XPAR("SYS","GMV GUI VERSION",$P(GMVLST(GMV),"^",1),0)
; Add and/or activate current client versions
D EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)
D EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVGUI,1)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMV1PST 1150 printed Dec 13, 2024@01:58:03 Page 2
GMV1PST ;HOIFO/FT-POST INSTALLATION FOR GMRV*5*1 ;10/8/03 14:01
+1 ;;5.0;GEN. MED. REC. - VITALS;**1**;Oct 31, 2002
+2 ;
+3 ; This routine uses the following IAs:
+4 ; #10141 - ^XPDUTL calls (supported)
+5 ; #2263 - ^XPAR calls (supported)
+6 ;
+7 ; This post-installation:
+8 ; Updates the parameters for the required client version
+9 ;
XPAR ; Setup preliminary parameters
+1 ; This submodule is called during the KIDS installation
+2 ; process.
+3 ;
+4 ; Variables:
+5 ; GMV: [Private] Scratch
+6 ; GMVGUI: [Private] Current version of GUI being installed
+7 ; GMVLST: [Private] Scratch List
+8 ;
+9 ; New private variables
+10 NEW GMV,GMVGUI,GMVLST
+11 ; Announce my intentions
+12 DO BMES^XPDUTL("Updating system parameters.")
+13 ; Set current client version
+14 SET GMVGUI="5.0.1.0"
+15 ; Deactivate all previous versions from XPAR
+16 DO GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")
+17 FOR GMV=0:0
SET GMV=$ORDER(GMVLST(GMV))
if 'GMV
QUIT
Begin DoDot:1
+18 DO EN^XPAR("SYS","GMV GUI VERSION",$PIECE(GMVLST(GMV),"^",1),0)
End DoDot:1
+19 ; Add and/or activate current client versions
+20 DO EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)
+21 DO EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVGUI,1)
+22 QUIT
