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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMV28PST 1115 printed Nov 22, 2024@17:08:16 Page 2
GMV28PST ;HIOFO/FT - FIX PARAMETER SETTINGS ; 04/13/15 03:30pm
+1 ;;5.0;GEN. MED. REC. - VITALS;**28**;Oct 31, 2002;Build 13
+2 QUIT
+3 ; This routine uses the following IAs:
+4 ; 2263 - ^XPAR (supported)
+5 ;
EN ; main entry point
+1 DO DLL
+2 QUIT
DLL ;
+1 ; Variables:
+2 ; GMV: [Private] Scratch
+3 ; GMVDLL: [Private] Current version of DLL being installed
+4 ; GMVLST: [Private] Scratch List
+5 ;
+6 ; New private variables
+7 NEW GMV,GMVDLL,GMVLST
+8 ; Announce my intentions
+9 DO BMES^XPDUTL("Updating DLL parameter.")
+10 ; Deactivate all previous versions from XPAR
+11 DO GETLST^XPAR(.GMVLST,"SYS","GMV DLL VERSION")
+12 FOR GMV=0:0
SET GMV=$ORDER(GMVLST(GMV))
if 'GMV
QUIT
Begin DoDot:1
+13 DO EN^XPAR("SYS","GMV DLL VERSION",$PIECE(GMVLST(GMV),"^",1),0)
End DoDot:1
+14 ; Add and/or activate current client versions
+15 ;Bug in Patch 26 not checking correctly
SET GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 08/11/09 15:00"
+16 DO EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
+17 ;patch 26
SET GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 01/21/11 12:52"
+18 DO EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
+19 ;patch 28
SET GMVDLL="5.0.28.5"
+20 DO EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
+21 QUIT
