Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMV27PST

GMV27PST.m

Go to the documentation of this file.
  1. GMV27PST ;HIOFO/FT - FIX PARAMETER SETTINGS ;11/05/13 9:00am
  1. ;;5.0;GEN. MED. REC. - VITALS;**27**;Oct 31, 2002;Build 3
  1. Q
  1. ; This routine uses the following IAs:
  1. ; 2263 - ^XPAR (supported)
  1. ;
  1. EN ; main entry point
  1. D XPAR
  1. Q
  1. XPAR ; Update the GUI version parameters. This subroutine is called during the
  1. ; KIDS installation process.
  1. ;
  1. ; Variables:
  1. ; GMV: [Private] Scratch
  1. ; GMVGUI: [Private] Current version of GUI being installed
  1. ; GMVLST: [Private] Scratch List
  1. ;
  1. ; NEW private variables
  1. N GMV,GMVGUI,GMVLST
  1. ; Announce my intentions
  1. D BMES^XPDUTL("Updating system parameters.")
  1. ; Set current client version
  1. S GMVGUI="5.0.27.5"
  1. S GMVMGUI="5.0.27.3"
  1. ; Deactivate all previous versions from XPAR
  1. D GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")
  1. F GMV=0:0 S GMV=$O(GMVLST(GMV)) Q:'GMV D
  1. . D EN^XPAR("SYS","GMV GUI VERSION",$P(GMVLST(GMV),"^",1),0)
  1. .Q
  1. ; Add and/or activate current client versions
  1. D EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)
  1. D EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVMGUI,1)
  1. Q