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

GMV28PST.m

Go to the documentation of this file.
GMV28PST ;HIOFO/FT - FIX PARAMETER SETTINGS ; 04/13/15 03:30pm
 ;;5.0;GEN. MED. REC. - VITALS;**28**;Oct 31, 2002;Build 13
 Q
 ; This routine uses the following IAs:
 ; 2263 - ^XPAR                  (supported)
 ; 
EN ; main entry point 
 D DLL
 Q
DLL ;
 ; Variables:
 ;  GMV:    [Private] Scratch
 ;  GMVDLL: [Private] Current version of DLL being installed
 ;  GMVLST: [Private] Scratch List
 ;
 ; New private variables
 N GMV,GMVDLL,GMVLST
 ; Announce my intentions
 D BMES^XPDUTL("Updating DLL parameter.")
 ; Deactivate all previous versions 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)
 ; Add and/or activate current client versions
 S GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 08/11/09 15:00" ;Bug in Patch 26 not checking correctly
 D EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
 S GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 01/21/11 12:52" ;patch 26
 D EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
 S GMVDLL="5.0.28.5" ;patch 28
 D EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
 Q