GMV18PST ;HOIFO/KAM-POST INSTALLATION FOR GMRV*5*18 ;5/16/06 1:35pm
;;5.0;GEN. MED. REC. - VITALS;**18**;Oct 31, 2002;Build 7
;
;
POST ; New private variables
N GMV,GMVGUI,GMVLST
; Announce my intentions
D BMES^XPDUTL("Updating system parameters.")
; Set current client version
S GMVGUI="5.0.18.1"
; 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[HGMV18PST 697 printed Dec 13, 2024@01:58:02 Page 2
GMV18PST ;HOIFO/KAM-POST INSTALLATION FOR GMRV*5*18 ;5/16/06 1:35pm
+1 ;;5.0;GEN. MED. REC. - VITALS;**18**;Oct 31, 2002;Build 7
+2 ;
+3 ;
POST ; New private variables
+1 NEW GMV,GMVGUI,GMVLST
+2 ; Announce my intentions
+3 DO BMES^XPDUTL("Updating system parameters.")
+4 ; Set current client version
+5 SET GMVGUI="5.0.18.1"
+6 ; Deactivate all previous versions from XPAR
+7 DO GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")
+8 FOR GMV=0:0
SET GMV=$ORDER(GMVLST(GMV))
if 'GMV
QUIT
Begin DoDot:1
+9 DO EN^XPAR("SYS","GMV GUI VERSION",$PIECE(GMVLST(GMV),"^",1),0)
End DoDot:1
+10 ; Add and/or activate current client versions
+11 DO EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)
+12 DO EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVGUI,1)
+13 QUIT
