GMV38PST ;HIOFO/FT - FIX PARAMETER SETTINGS ; 10/30/18 2:46pm
;;5.0;GEN. MED. REC. - VITALS;**38**;Oct 31, 2002;Build 8
;;Per VA Directive 6402, this routine should not be modified.
Q
; This routine uses the following IAs:
; #10141 - MES^XPDUTL Kernel (supported)
; #2263 - ^XPAR (supported)
;
EN ; main entry point
D XPAR
Q
XPAR ; Update the GUI version parameters. This subroutine 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,GMVMGUI,GMVDLL,GMVLST
; Announce my intentions
D BMES^XPDUTL("Updating system parameters.")
; Set current client version
S GMVGUI="5.0.38.3"
S GMVMGUI="5.0.38.3"
S GMVDLL="5.0.38.3"
; Deactivate all previous versions of the Standalone and Manager 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)
. Q
; Deactivate all previous versions of the DLL from XPAR
D GETLST^XPAR(.GMVLST,"SYS","GMV DLL VERSION")
F GMV=0:0 S GMV=$O(GMVLST(GMV)) Q:'GMV D
. D EN^XPAR("SYS","GMV DLL VERSION",$P(GMVLST(GMV),"^",1),0)
.Q
; 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:"_GMVMGUI,1)
D EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMV38PST 1548 printed Dec 13, 2024@01:58:12 Page 2
GMV38PST ;HIOFO/FT - FIX PARAMETER SETTINGS ; 10/30/18 2:46pm
+1 ;;5.0;GEN. MED. REC. - VITALS;**38**;Oct 31, 2002;Build 8
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ; This routine uses the following IAs:
+5 ; #10141 - MES^XPDUTL Kernel (supported)
+6 ; #2263 - ^XPAR (supported)
+7 ;
EN ; main entry point
+1 DO XPAR
+2 QUIT
XPAR ; Update the GUI version parameters. This subroutine is called during the
+1 ; KIDS installation process.
+2 ;
+3 ; Variables:
+4 ; GMV: [Private] Scratch
+5 ; GMVGUI: [Private] Current version of GUI being installed
+6 ; GMVLST: [Private] Scratch List
+7 ;
+8 ; NEW private variables
+9 NEW GMV,GMVGUI,GMVMGUI,GMVDLL,GMVLST
+10 ; Announce my intentions
+11 DO BMES^XPDUTL("Updating system parameters.")
+12 ; Set current client version
+13 SET GMVGUI="5.0.38.3"
+14 SET GMVMGUI="5.0.38.3"
+15 SET GMVDLL="5.0.38.3"
+16 ; Deactivate all previous versions of the Standalone and Manager from XPAR
+17 DO GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")
+18 FOR GMV=0:0
SET GMV=$ORDER(GMVLST(GMV))
if 'GMV
QUIT
Begin DoDot:1
+19 DO EN^XPAR("SYS","GMV GUI VERSION",$PIECE(GMVLST(GMV),"^",1),0)
+20 QUIT
End DoDot:1
+21 ; Deactivate all previous versions of the DLL from XPAR
+22 DO GETLST^XPAR(.GMVLST,"SYS","GMV DLL VERSION")
+23 FOR GMV=0:0
SET GMV=$ORDER(GMVLST(GMV))
if 'GMV
QUIT
Begin DoDot:1
+24 DO EN^XPAR("SYS","GMV DLL VERSION",$PIECE(GMVLST(GMV),"^",1),0)
+25 QUIT
End DoDot:1
+26 ; Add and/or activate current client versions
+27 DO EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)
+28 DO EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVMGUI,1)
+29 DO EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
