- GMV44PST ;HIOFO/FT - FIX PARAMETER SETTINGS ;Dec 11, 2020@12:51:33
- ;;5.0;GEN. MED. REC. - VITALS;**44**;Oct 31, 2002;Build 2
- ;;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,GMVERR,GMVHLP
- ; Announce my intentions
- D BMES^XPDUTL("Updating system parameters.")
- ; Set current client version
- S GMVGUI="5.0.44.1"
- S GMVMGUI="5.0.38.3"
- S GMVDLL="5.0.44.1"
- S GMVHLP="your ITOPS 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 DLL VERSION",GMVDLL,1)
- D EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVMGUI,1)
- ;Update the help text
- D EN^XPAR("SYS","GMV HELP DESK TEXT",GMVHLP,1)
- D BMES^XPDUTL(" GMRV*5.0*44 Post Install complete")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMV44PST 1723 printed Apr 23, 2025@18:12:42 Page 2
- GMV44PST ;HIOFO/FT - FIX PARAMETER SETTINGS ;Dec 11, 2020@12:51:33
- +1 ;;5.0;GEN. MED. REC. - VITALS;**44**;Oct 31, 2002;Build 2
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;
- +4 QUIT
- +5 ; This routine uses the following IAs:
- +6 ; #10141 - MES^XPDUTL Kernel (supported)
- +7 ; #2263 - ^XPAR (Supported)
- +8 ;
- 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.44.1"
- +14 SET GMVMGUI="5.0.38.3"
- +15 SET GMVDLL="5.0.44.1"
- +16 SET GMVHLP="your ITOPS 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 DLL VERSION",GMVDLL,1)
- +30 DO EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVMGUI,1)
- +31 ;Update the help text
- +32 DO EN^XPAR("SYS","GMV HELP DESK TEXT",GMVHLP,1)
- +33 DO BMES^XPDUTL(" GMRV*5.0*44 Post Install complete")
- +34 QUIT
