GMV40PST ;HIOFO/FT - FIX PARAMETER SETTINGS ; Mar 3, 2026@08:13:34
;;5.0;GEN. MED. REC. - VITALS;**40**;Oct 31, 2002;Build 51
;;Per VA Directive 6402, this routine should not be modified.
;
Q
; Reference to MES^XPDUTL in ICR #10141
; Reference to ^XPAR in ICR #2363
;
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,GMVERR,GMVHLP
; Announce my intentions
D BMES^XPDUTL("Updating system parameters.")
; Set current client version
S GMVGUI="5.0.40.23"
S GMVMGUI="5.0.40.23"
S GMVDLL="5.0.40.23"
S GMVHLP="your Clinical Apps support"
; 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)
;Update the help text
D EN^XPAR("SYS","GMV HELP DESK TEXT",GMVHLP,1)
; Update the purge days
D EN^XPAR("SYS","GMV EXCEPTION PURGE",1,"60",.GMVERR)
I +$G(GMVERR) D
. D BMES^XPDUTL(" "_GMVERR)
. D BMES^XPDUTL(" ....GMV EXCEPTION PURGE Parameter not updated ")
;
; Update the log toggle
D EN^XPAR("SYS","GMV EXCEPTION LOGGER",1,"YES",.GMVERR)
I +$G(GMVERR) D
. D BMES^XPDUTL(" "_GMVERR)
. D BMES^XPDUTL(" ....GMV EXCEPTION LOGGER Parameter not updated ")
;
; Disbaled for testing only - leave in for future needs
;D DEBUGGMV
D BMES^XPDUTL(" GMV*5.0*40 Post Install complete")
Q
DEBUGGMV ;
;TEST CODE ONLY
N GMVDGUI,GMVMDGUI,GMVDDLL,GMVDERR
S GMVDGUI="5.0.43.2"
S GMVMDGUI="5.0.43.2"
S GMVDDLL="5.0.43.2"
D EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVDGUI,1)
D EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVMDGUI,1)
D EN^XPAR("SYS","GMV DLL VERSION",GMVDDLL,1)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMV40PST 2497 printed Sep 17, 2026@20:43:19 Page 2
GMV40PST ;HIOFO/FT - FIX PARAMETER SETTINGS ; Mar 3, 2026@08:13:34
+1 ;;5.0;GEN. MED. REC. - VITALS;**40**;Oct 31, 2002;Build 51
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ; Reference to MES^XPDUTL in ICR #10141
+6 ; Reference to ^XPAR in ICR #2363
+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,GMVERR,GMVHLP
+10 ; Announce my intentions
+11 DO BMES^XPDUTL("Updating system parameters.")
+12 ; Set current client version
+13 SET GMVGUI="5.0.40.23"
+14 SET GMVMGUI="5.0.40.23"
+15 SET GMVDLL="5.0.40.23"
+16 SET GMVHLP="your Clinical Apps support"
+17 ; Deactivate all previous versions of the Standalone and Manager from XPAR
+18 DO GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")
+19 FOR GMV=0:0
SET GMV=$ORDER(GMVLST(GMV))
if 'GMV
QUIT
Begin DoDot:1
+20 DO EN^XPAR("SYS","GMV GUI VERSION",$PIECE(GMVLST(GMV),"^",1),0)
+21 QUIT
End DoDot:1
+22 ; Deactivate all previous versions of the DLL from XPAR
+23 DO GETLST^XPAR(.GMVLST,"SYS","GMV DLL VERSION")
+24 FOR GMV=0:0
SET GMV=$ORDER(GMVLST(GMV))
if 'GMV
QUIT
Begin DoDot:1
+25 DO EN^XPAR("SYS","GMV DLL VERSION",$PIECE(GMVLST(GMV),"^",1),0)
+26 QUIT
End DoDot:1
+27 ; Add and/or activate current client versions
+28 DO EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)
+29 DO EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVMGUI,1)
+30 DO EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
+31 ;Update the help text
+32 DO EN^XPAR("SYS","GMV HELP DESK TEXT",GMVHLP,1)
+33 ; Update the purge days
+34 DO EN^XPAR("SYS","GMV EXCEPTION PURGE",1,"60",.GMVERR)
+35 IF +$GET(GMVERR)
Begin DoDot:1
+36 DO BMES^XPDUTL(" "_GMVERR)
+37 DO BMES^XPDUTL(" ....GMV EXCEPTION PURGE Parameter not updated ")
End DoDot:1
+38 ;
+39 ; Update the log toggle
+40 DO EN^XPAR("SYS","GMV EXCEPTION LOGGER",1,"YES",.GMVERR)
+41 IF +$GET(GMVERR)
Begin DoDot:1
+42 DO BMES^XPDUTL(" "_GMVERR)
+43 DO BMES^XPDUTL(" ....GMV EXCEPTION LOGGER Parameter not updated ")
End DoDot:1
+44 ;
+45 ; Disbaled for testing only - leave in for future needs
+46 ;D DEBUGGMV
+47 DO BMES^XPDUTL(" GMV*5.0*40 Post Install complete")
+48 QUIT
DEBUGGMV ;
+1 ;TEST CODE ONLY
+2 NEW GMVDGUI,GMVMDGUI,GMVDDLL,GMVDERR
+3 SET GMVDGUI="5.0.43.2"
+4 SET GMVMDGUI="5.0.43.2"
+5 SET GMVDDLL="5.0.43.2"
+6 DO EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVDGUI,1)
+7 DO EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVMDGUI,1)
+8 DO EN^XPAR("SYS","GMV DLL VERSION",GMVDDLL,1)
+9 QUIT
