- GMV1PST ;HOIFO/FT-POST INSTALLATION FOR GMRV*5*1 ;10/8/03 14:01
- ;;5.0;GEN. MED. REC. - VITALS;**1**;Oct 31, 2002
- ;
- ; This routine uses the following IAs:
- ; #10141 - ^XPDUTL calls (supported)
- ; #2263 - ^XPAR calls (supported)
- ;
- ; This post-installation:
- ; Updates the parameters for the required client version
- ;
- XPAR ; Setup preliminary parameters
- ; This submodule 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.1.0"
- ; 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[HGMV1PST 1150 printed Mar 13, 2025@21:02:49 Page 2
- GMV1PST ;HOIFO/FT-POST INSTALLATION FOR GMRV*5*1 ;10/8/03 14:01
- +1 ;;5.0;GEN. MED. REC. - VITALS;**1**;Oct 31, 2002
- +2 ;
- +3 ; This routine uses the following IAs:
- +4 ; #10141 - ^XPDUTL calls (supported)
- +5 ; #2263 - ^XPAR calls (supported)
- +6 ;
- +7 ; This post-installation:
- +8 ; Updates the parameters for the required client version
- +9 ;
- XPAR ; Setup preliminary parameters
- +1 ; This submodule is called during the KIDS installation
- +2 ; process.
- +3 ;
- +4 ; Variables:
- +5 ; GMV: [Private] Scratch
- +6 ; GMVGUI: [Private] Current version of GUI being installed
- +7 ; GMVLST: [Private] Scratch List
- +8 ;
- +9 ; New private variables
- +10 NEW GMV,GMVGUI,GMVLST
- +11 ; Announce my intentions
- +12 DO BMES^XPDUTL("Updating system parameters.")
- +13 ; Set current client version
- +14 SET GMVGUI="5.0.1.0"
- +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)
- End DoDot:1
- +19 ; Add and/or activate current client versions
- +20 DO EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)
- +21 DO EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVGUI,1)
- +22 QUIT
