- GMV27PST ;HIOFO/FT - FIX PARAMETER SETTINGS ;11/05/13 9:00am
- ;;5.0;GEN. MED. REC. - VITALS;**27**;Oct 31, 2002;Build 3
- Q
- ; This routine uses the following IAs:
- ; 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,GMVLST
- ; Announce my intentions
- D BMES^XPDUTL("Updating system parameters.")
- ; Set current client version
- S GMVGUI="5.0.27.5"
- S GMVMGUI="5.0.27.3"
- ; 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)
- .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)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMV27PST 1104 printed Feb 18, 2025@23:24:29 Page 2
- GMV27PST ;HIOFO/FT - FIX PARAMETER SETTINGS ;11/05/13 9:00am
- +1 ;;5.0;GEN. MED. REC. - VITALS;**27**;Oct 31, 2002;Build 3
- +2 QUIT
- +3 ; This routine uses the following IAs:
- +4 ; 2263 - ^XPAR (supported)
- +5 ;
- 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,GMVLST
- +10 ; Announce my intentions
- +11 DO BMES^XPDUTL("Updating system parameters.")
- +12 ; Set current client version
- +13 SET GMVGUI="5.0.27.5"
- +14 SET GMVMGUI="5.0.27.3"
- +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)
- +19 QUIT
- End DoDot:1
- +20 ; Add and/or activate current client versions
- +21 DO EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)
- +22 DO EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVMGUI,1)
- +23 QUIT