GMV26PST ;HIOFO/FT - FIX PARAMETER SETTINGS ; 7/12/10 10:49am
;;5.0;GEN. MED. REC. - VITALS;26;Oct 31, 2002;Build 4
Q
;
; This routine is experimental and is not to be nationally released.
; This routine fixes the following GUI parameters for the Vitals package:
; ABNORMALQUALIFIERS
; NORMALQUALIFIERS
; ABNORMALTEXTCOLOR
; NORMALTEXCOLOR
; CanvasAbnormal
; CanvasNormal
;
; This routine uses the following IAs:
; 1519 - ^XUTMDEVQ calls (supported)
; 2263 - ^XPAR (supported)
; 2685 - FILE 8989.51 (private) ,but Vitals is not a subscriber, yet.
; 2686 - FILE 8989.5 (controlled) ,but Vitals is not a subscriber, yet.
; 10089 - ^%ZISC call (supported)
;
EN ; main entry point
D XPAR,DLL,DEVICE
Q
START ; Find and repair instance values
N GMVATC,GMVAQ,GMVCA,GMVCN,GMVENT,GMVERR,GMVNEW,GMVNQ,GMVNTC,GMVPARM,GMVALUE
S GMVPARM=$O(^XTV(8989.51,"B","GMV USER DEFAULTS",0))
Q:'GMVPARM
Q:'$D(^XTV(8989.5,"AC",GMVPARM))
S GMVAQ="ABNORMALQUALIFIERS",GMVCA="CanvasAbnormal",GMVATC="ABNORMALTEXTCOLOR"
S GMVNQ="NORMALQUALIFIERS",GMVCN="CanvasNormal",GMVNTC="NORMALTEXTCOLOR"
S GMVENT=""
F S GMVENT=$O(^XTV(8989.5,"AC",GMVPARM,GMVENT)) Q:GMVENT="" D
.Q:'$D(^XTV(8989.5,"AC",GMVPARM,GMVENT))
.;get qualifier settings
.S GMVALUE("AQ")=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVAQ))
.S GMVALUE("NQ")=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVNQ))
.S GMVALUE("ATC")=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVATC))
.S GMVALUE("NTC")=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVNTC))
.S GMVALUE("CA")=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVCA))
.S GMVALUE("CN")=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVCN))
.;check/reset ABNORMAL/NORMALQUALIFIERs
.I GMVALUE("AQ")'="ON" D
..I GMVALUE("AQ")="" D EN^XPAR(GMVENT,"GMV USER DEFAULTS",GMVAQ,"ON",.GMVERR) Q
..D CHG^XPAR(GMVENT,"GMV USER DEFAULTS",GMVAQ,"ON",.GMVERR)
.I GMVALUE("NQ")'="ON" D
..I GMVALUE("NQ")="" D EN^XPAR(GMVENT,"GMV USER DEFAULTS",GMVNQ,"ON",.GMVERR) Q
..D CHG^XPAR(GMVENT,"GMV USER DEFAULTS",GMVNQ,"ON",.GMVERR)
.;check/reset CanvasAbnormal/Normal values
.I GMVALUE("CA")="" D
..S GMVNEW="15;9;0;1;15"
..D EN^XPAR(GMVENT,"GMV USER DEFAULTS",GMVCA,GMVNEW,.GMVERR)
.I GMVALUE("CA")]"" D
..S GMVNEW=GMVALUE("CA"),$P(GMVNEW,";",4)=1
..D CHG^XPAR(GMVENT,"GMV USER DEFAULTS",GMVCA,GMVNEW,.GMVERR)
.I GMVALUE("CN")="" D
..S GMVNEW="15;0;0;1;15;15388544;15388544;ORWPT PTINQ"
..D EN^XPAR(GMVENT,"GMV USER DEFAULTS",GMVCN,GMVNEW,.GMVERR)
.I GMVALUE("CN")]"" D
..S GMVNEW=GMVALUE("CN"),$P(GMVNEW,";",4)=1
..D CHG^XPAR(GMVENT,"GMV USER DEFAULTS",GMVCN,GMVNEW,.GMVERR)
.;get the updated canvas values
.S GMVALUE("CA")=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVCA))
.S GMVALUE("CN")=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVCN))
.;check/reset Abnormal/NormalTextColor values
.I GMVALUE("ATC")="" D
..S GMVNEW=$P(GMVALUE("CA"),";",2),GMVNEW=$S(GMVNEW]"":GMVNEW,1:9)
..D EN^XPAR(GMVENT,"GMV USER DEFAULTS",GMVATC,GMVNEW,.GMVERR)
.I GMVALUE("ATC")]"" D
..S GMVNEW=$P(GMVALUE("CA"),";",2),GMVNEW=$S(GMVNEW]"":GMVNEW,1:9)
..D CHG^XPAR(GMVENT,"GMV USER DEFAULTS",GMVATC,GMVNEW,.GMVERR)
.I GMVALUE("NTC")="" D
..S GMVNEW=$P(GMVALUE("CN"),";",2),GMVNEW=$S(GMVNEW]"":GMVNEW,1:0)
..D EN^XPAR(GMVENT,"GMV USER DEFAULTS",GMVNTC,GMVNEW,.GMVERR)
.I GMVALUE("NTC")]"" D
..S GMVNEW=$P(GMVALUE("CN"),";",2),GMVNEW=$S(GMVNEW]"":GMVNEW,1:0)
..D CHG^XPAR(GMVENT,"GMV USER DEFAULTS",GMVNTC,GMVNEW,.GMVERR)
Q
DEVICE ; Select a device
N ZTDESC,ZTRTN
S ZTRTN="START^GMV26PST",ZTDESC="FIX XPAR PARAMETERS FOR VITALS GUI"
D EN^XUTMDEVQ(ZTRTN,ZTDESC)
D HOME^%ZIS
Q
TEST(GMVX) ; TESTING PURPOSES ONLY
N GMVENT,GMVPARM,GMVAQ,GMVCA,GMVATC,GMVNQ,GMVCN,GMVNTC
K ^TRAX(GMVX)
S GMVAQ="ABNORMALQUALIFIERS",GMVCA="CanvasAbnormal",GMVATC="ABNORMALTEXTCOLOR"
S GMVNQ="NORMALQUALIFIERS",GMVCN="CanvasNormal",GMVNTC="NORMALTEXTCOLOR"
S GMVENT="",GMVPARM=$O(^XTV(8989.51,"B","GMV USER DEFAULTS",0))
F S GMVENT=$O(^XTV(8989.5,"AC",GMVPARM,GMVENT)) Q:GMVENT="" D
.Q:'$D(^XTV(8989.5,"AC",GMVPARM,GMVENT))
.;get values
.S ^TRAX(GMVX,GMVENT,GMVAQ)=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVAQ))
.S ^TRAX(GMVX,GMVENT,GMVNQ)=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVNQ))
.S ^TRAX(GMVX,GMVENT,GMVATC)=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVATC))
.S ^TRAX(GMVX,GMVENT,GMVNTC)=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVNTC))
.S ^TRAX(GMVX,GMVENT,GMVCA)=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVCA))
.S ^TRAX(GMVX,GMVENT,GMVCN)=$G(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVCN))
Q
COMPARE ;
N GMVENT,GMVPARM,GMVAQ,GMVCA,GMVATC,GMVNQ,GMVCN,GMVNTC
S GMVAQ="ABNORMALQUALIFIERS",GMVCA="CanvasAbnormal",GMVATC="ABNORMALTEXTCOLOR"
S GMVNQ="NORMALQUALIFIERS",GMVCN="CanvasNormal",GMVNTC="NORMALTEXTCOLOR"
K ^TRAX("C")
S GMVENT=""
F S GMVENT=$O(^TRAX("B",GMVENT)) Q:GMVENT="" D
.I $G(^TRAX("B",GMVENT,GMVAQ))'=$G(^TRAX("A",GMVENT,GMVAQ)) D
..S ^TRAX("C",GMVENT,GMVAQ)=""
.I $G(^TRAX("B",GMVENT,GMVNQ))'=$G(^TRAX("A",GMVENT,GMVNQ)) D
..S ^TRAX("C",GMVENT,GMVNQ)=""
.I $G(^TRAX("B",GMVENT,GMVATC))'=$G(^TRAX("A",GMVENT,GMVATC)) D
..S ^TRAX("C",GMVENT,GMVATC)=""
.I $G(^TRAX("B",GMVENT,GMVNTC))'=$G(^TRAX("A",GMVENT,GMVNTC)) D
..S ^TRAX("C",GMVENT,GMVNTC)=""
.I $G(^TRAX("B",GMVENT,GMVCA))'=$G(^TRAX("A",GMVENT,GMVCA)) D
..S ^TRAX("C",GMVENT,GMVCA)=""
.I $G(^TRAX("B",GMVENT,GMVCN))'=$G(^TRAX("A",GMVENT,GMVCN)) D
..S ^TRAX("C",GMVENT,GMVCN)=""
S GMVENT=""
F S GMVENT=$O(^TRAX("A",GMVENT)) Q:GMVENT="" D
.I $G(^TRAX("A",GMVENT,GMVAQ))'=$G(^TRAX("B",GMVENT,GMVAQ)) D
..S ^TRAX("C",GMVENT,GMVAQ)=""
.I $G(^TRAX("A",GMVENT,GMVNQ))'=$G(^TRAX("B",GMVENT,GMVNQ)) D
..S ^TRAX("C",GMVENT,GMVNQ)=""
.I $G(^TRAX("A",GMVENT,GMVATC))'=$G(^TRAX("B",GMVENT,GMVATC)) D
..S ^TRAX("C",GMVENT,GMVATC)=""
.I $G(^TRAX("A",GMVENT,GMVNTC))'=$G(^TRAX("B",GMVENT,GMVNTC)) D
..S ^TRAX("C",GMVENT,GMVNTC)=""
.I $G(^TRAX("A",GMVENT,GMVCA))'=$G(^TRAX("B",GMVENT,GMVCA)) D
..S ^TRAX("C",GMVENT,GMVCA)=""
.I $G(^TRAX("A",GMVENT,GMVCN))'=$G(^TRAX("B",GMVENT,GMVCN)) D
..S ^TRAX("C",GMVENT,GMVCN)=""
S GMVENT=""
F S GMVENT=$O(^TRAX("C",GMVENT)) Q:GMVENT="" D
.S GMVPARM=""
.F S GMVPARM=$O(^TRAX("C",GMVENT,GMVPARM)) Q:GMVPARM="" D
..W !,GMVENT_" "_GMVPARM,!," B: "_$G(^TRAX("B",GMVENT,GMVPARM)),!," A: ",$G(^TRAX("A",GMVENT,GMVPARM)),!
Q
KILL ;
K ^TRAX("A"),^TRAX("B"),^TRAX("C")
Q
XPAR ; Setup preliminary 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.26.1"
; 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:"_GMVGUI,1)
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" ;patch 23
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)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMV26PST 7999 printed Dec 13, 2024@01:58:06 Page 2
GMV26PST ;HIOFO/FT - FIX PARAMETER SETTINGS ; 7/12/10 10:49am
+1 ;;5.0;GEN. MED. REC. - VITALS;26;Oct 31, 2002;Build 4
+2 QUIT
+3 ;
+4 ; This routine is experimental and is not to be nationally released.
+5 ; This routine fixes the following GUI parameters for the Vitals package:
+6 ; ABNORMALQUALIFIERS
+7 ; NORMALQUALIFIERS
+8 ; ABNORMALTEXTCOLOR
+9 ; NORMALTEXCOLOR
+10 ; CanvasAbnormal
+11 ; CanvasNormal
+12 ;
+13 ; This routine uses the following IAs:
+14 ; 1519 - ^XUTMDEVQ calls (supported)
+15 ; 2263 - ^XPAR (supported)
+16 ; 2685 - FILE 8989.51 (private) ,but Vitals is not a subscriber, yet.
+17 ; 2686 - FILE 8989.5 (controlled) ,but Vitals is not a subscriber, yet.
+18 ; 10089 - ^%ZISC call (supported)
+19 ;
EN ; main entry point
+1 DO XPAR
DO DLL
DO DEVICE
+2 QUIT
START ; Find and repair instance values
+1 NEW GMVATC,GMVAQ,GMVCA,GMVCN,GMVENT,GMVERR,GMVNEW,GMVNQ,GMVNTC,GMVPARM,GMVALUE
+2 SET GMVPARM=$ORDER(^XTV(8989.51,"B","GMV USER DEFAULTS",0))
+3 if 'GMVPARM
QUIT
+4 if '$DATA(^XTV(8989.5,"AC",GMVPARM))
QUIT
+5 SET GMVAQ="ABNORMALQUALIFIERS"
SET GMVCA="CanvasAbnormal"
SET GMVATC="ABNORMALTEXTCOLOR"
+6 SET GMVNQ="NORMALQUALIFIERS"
SET GMVCN="CanvasNormal"
SET GMVNTC="NORMALTEXTCOLOR"
+7 SET GMVENT=""
+8 FOR
SET GMVENT=$ORDER(^XTV(8989.5,"AC",GMVPARM,GMVENT))
if GMVENT=""
QUIT
Begin DoDot:1
+9 if '$DATA(^XTV(8989.5,"AC",GMVPARM,GMVENT))
QUIT
+10 ;get qualifier settings
+11 SET GMVALUE("AQ")=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVAQ))
+12 SET GMVALUE("NQ")=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVNQ))
+13 SET GMVALUE("ATC")=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVATC))
+14 SET GMVALUE("NTC")=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVNTC))
+15 SET GMVALUE("CA")=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVCA))
+16 SET GMVALUE("CN")=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVCN))
+17 ;check/reset ABNORMAL/NORMALQUALIFIERs
+18 IF GMVALUE("AQ")'="ON"
Begin DoDot:2
+19 IF GMVALUE("AQ")=""
DO EN^XPAR(GMVENT,"GMV USER DEFAULTS",GMVAQ,"ON",.GMVERR)
QUIT
+20 DO CHG^XPAR(GMVENT,"GMV USER DEFAULTS",GMVAQ,"ON",.GMVERR)
End DoDot:2
+21 IF GMVALUE("NQ")'="ON"
Begin DoDot:2
+22 IF GMVALUE("NQ")=""
DO EN^XPAR(GMVENT,"GMV USER DEFAULTS",GMVNQ,"ON",.GMVERR)
QUIT
+23 DO CHG^XPAR(GMVENT,"GMV USER DEFAULTS",GMVNQ,"ON",.GMVERR)
End DoDot:2
+24 ;check/reset CanvasAbnormal/Normal values
+25 IF GMVALUE("CA")=""
Begin DoDot:2
+26 SET GMVNEW="15;9;0;1;15"
+27 DO EN^XPAR(GMVENT,"GMV USER DEFAULTS",GMVCA,GMVNEW,.GMVERR)
End DoDot:2
+28 IF GMVALUE("CA")]""
Begin DoDot:2
+29 SET GMVNEW=GMVALUE("CA")
SET $PIECE(GMVNEW,";",4)=1
+30 DO CHG^XPAR(GMVENT,"GMV USER DEFAULTS",GMVCA,GMVNEW,.GMVERR)
End DoDot:2
+31 IF GMVALUE("CN")=""
Begin DoDot:2
+32 SET GMVNEW="15;0;0;1;15;15388544;15388544;ORWPT PTINQ"
+33 DO EN^XPAR(GMVENT,"GMV USER DEFAULTS",GMVCN,GMVNEW,.GMVERR)
End DoDot:2
+34 IF GMVALUE("CN")]""
Begin DoDot:2
+35 SET GMVNEW=GMVALUE("CN")
SET $PIECE(GMVNEW,";",4)=1
+36 DO CHG^XPAR(GMVENT,"GMV USER DEFAULTS",GMVCN,GMVNEW,.GMVERR)
End DoDot:2
+37 ;get the updated canvas values
+38 SET GMVALUE("CA")=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVCA))
+39 SET GMVALUE("CN")=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVCN))
+40 ;check/reset Abnormal/NormalTextColor values
+41 IF GMVALUE("ATC")=""
Begin DoDot:2
+42 SET GMVNEW=$PIECE(GMVALUE("CA"),";",2)
SET GMVNEW=$SELECT(GMVNEW]"":GMVNEW,1:9)
+43 DO EN^XPAR(GMVENT,"GMV USER DEFAULTS",GMVATC,GMVNEW,.GMVERR)
End DoDot:2
+44 IF GMVALUE("ATC")]""
Begin DoDot:2
+45 SET GMVNEW=$PIECE(GMVALUE("CA"),";",2)
SET GMVNEW=$SELECT(GMVNEW]"":GMVNEW,1:9)
+46 DO CHG^XPAR(GMVENT,"GMV USER DEFAULTS",GMVATC,GMVNEW,.GMVERR)
End DoDot:2
+47 IF GMVALUE("NTC")=""
Begin DoDot:2
+48 SET GMVNEW=$PIECE(GMVALUE("CN"),";",2)
SET GMVNEW=$SELECT(GMVNEW]"":GMVNEW,1:0)
+49 DO EN^XPAR(GMVENT,"GMV USER DEFAULTS",GMVNTC,GMVNEW,.GMVERR)
End DoDot:2
+50 IF GMVALUE("NTC")]""
Begin DoDot:2
+51 SET GMVNEW=$PIECE(GMVALUE("CN"),";",2)
SET GMVNEW=$SELECT(GMVNEW]"":GMVNEW,1:0)
+52 DO CHG^XPAR(GMVENT,"GMV USER DEFAULTS",GMVNTC,GMVNEW,.GMVERR)
End DoDot:2
End DoDot:1
+53 QUIT
DEVICE ; Select a device
+1 NEW ZTDESC,ZTRTN
+2 SET ZTRTN="START^GMV26PST"
SET ZTDESC="FIX XPAR PARAMETERS FOR VITALS GUI"
+3 DO EN^XUTMDEVQ(ZTRTN,ZTDESC)
+4 DO HOME^%ZIS
+5 QUIT
TEST(GMVX) ; TESTING PURPOSES ONLY
+1 NEW GMVENT,GMVPARM,GMVAQ,GMVCA,GMVATC,GMVNQ,GMVCN,GMVNTC
+2 KILL ^TRAX(GMVX)
+3 SET GMVAQ="ABNORMALQUALIFIERS"
SET GMVCA="CanvasAbnormal"
SET GMVATC="ABNORMALTEXTCOLOR"
+4 SET GMVNQ="NORMALQUALIFIERS"
SET GMVCN="CanvasNormal"
SET GMVNTC="NORMALTEXTCOLOR"
+5 SET GMVENT=""
SET GMVPARM=$ORDER(^XTV(8989.51,"B","GMV USER DEFAULTS",0))
+6 FOR
SET GMVENT=$ORDER(^XTV(8989.5,"AC",GMVPARM,GMVENT))
if GMVENT=""
QUIT
Begin DoDot:1
+7 if '$DATA(^XTV(8989.5,"AC",GMVPARM,GMVENT))
QUIT
+8 ;get values
+9 SET ^TRAX(GMVX,GMVENT,GMVAQ)=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVAQ))
+10 SET ^TRAX(GMVX,GMVENT,GMVNQ)=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVNQ))
+11 SET ^TRAX(GMVX,GMVENT,GMVATC)=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVATC))
+12 SET ^TRAX(GMVX,GMVENT,GMVNTC)=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVNTC))
+13 SET ^TRAX(GMVX,GMVENT,GMVCA)=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVCA))
+14 SET ^TRAX(GMVX,GMVENT,GMVCN)=$GET(^XTV(8989.5,"AC",GMVPARM,GMVENT,GMVCN))
End DoDot:1
+15 QUIT
COMPARE ;
+1 NEW GMVENT,GMVPARM,GMVAQ,GMVCA,GMVATC,GMVNQ,GMVCN,GMVNTC
+2 SET GMVAQ="ABNORMALQUALIFIERS"
SET GMVCA="CanvasAbnormal"
SET GMVATC="ABNORMALTEXTCOLOR"
+3 SET GMVNQ="NORMALQUALIFIERS"
SET GMVCN="CanvasNormal"
SET GMVNTC="NORMALTEXTCOLOR"
+4 KILL ^TRAX("C")
+5 SET GMVENT=""
+6 FOR
SET GMVENT=$ORDER(^TRAX("B",GMVENT))
if GMVENT=""
QUIT
Begin DoDot:1
+7 IF $GET(^TRAX("B",GMVENT,GMVAQ))'=$GET(^TRAX("A",GMVENT,GMVAQ))
Begin DoDot:2
+8 SET ^TRAX("C",GMVENT,GMVAQ)=""
End DoDot:2
+9 IF $GET(^TRAX("B",GMVENT,GMVNQ))'=$GET(^TRAX("A",GMVENT,GMVNQ))
Begin DoDot:2
+10 SET ^TRAX("C",GMVENT,GMVNQ)=""
End DoDot:2
+11 IF $GET(^TRAX("B",GMVENT,GMVATC))'=$GET(^TRAX("A",GMVENT,GMVATC))
Begin DoDot:2
+12 SET ^TRAX("C",GMVENT,GMVATC)=""
End DoDot:2
+13 IF $GET(^TRAX("B",GMVENT,GMVNTC))'=$GET(^TRAX("A",GMVENT,GMVNTC))
Begin DoDot:2
+14 SET ^TRAX("C",GMVENT,GMVNTC)=""
End DoDot:2
+15 IF $GET(^TRAX("B",GMVENT,GMVCA))'=$GET(^TRAX("A",GMVENT,GMVCA))
Begin DoDot:2
+16 SET ^TRAX("C",GMVENT,GMVCA)=""
End DoDot:2
+17 IF $GET(^TRAX("B",GMVENT,GMVCN))'=$GET(^TRAX("A",GMVENT,GMVCN))
Begin DoDot:2
+18 SET ^TRAX("C",GMVENT,GMVCN)=""
End DoDot:2
End DoDot:1
+19 SET GMVENT=""
+20 FOR
SET GMVENT=$ORDER(^TRAX("A",GMVENT))
if GMVENT=""
QUIT
Begin DoDot:1
+21 IF $GET(^TRAX("A",GMVENT,GMVAQ))'=$GET(^TRAX("B",GMVENT,GMVAQ))
Begin DoDot:2
+22 SET ^TRAX("C",GMVENT,GMVAQ)=""
End DoDot:2
+23 IF $GET(^TRAX("A",GMVENT,GMVNQ))'=$GET(^TRAX("B",GMVENT,GMVNQ))
Begin DoDot:2
+24 SET ^TRAX("C",GMVENT,GMVNQ)=""
End DoDot:2
+25 IF $GET(^TRAX("A",GMVENT,GMVATC))'=$GET(^TRAX("B",GMVENT,GMVATC))
Begin DoDot:2
+26 SET ^TRAX("C",GMVENT,GMVATC)=""
End DoDot:2
+27 IF $GET(^TRAX("A",GMVENT,GMVNTC))'=$GET(^TRAX("B",GMVENT,GMVNTC))
Begin DoDot:2
+28 SET ^TRAX("C",GMVENT,GMVNTC)=""
End DoDot:2
+29 IF $GET(^TRAX("A",GMVENT,GMVCA))'=$GET(^TRAX("B",GMVENT,GMVCA))
Begin DoDot:2
+30 SET ^TRAX("C",GMVENT,GMVCA)=""
End DoDot:2
+31 IF $GET(^TRAX("A",GMVENT,GMVCN))'=$GET(^TRAX("B",GMVENT,GMVCN))
Begin DoDot:2
+32 SET ^TRAX("C",GMVENT,GMVCN)=""
End DoDot:2
End DoDot:1
+33 SET GMVENT=""
+34 FOR
SET GMVENT=$ORDER(^TRAX("C",GMVENT))
if GMVENT=""
QUIT
Begin DoDot:1
+35 SET GMVPARM=""
+36 FOR
SET GMVPARM=$ORDER(^TRAX("C",GMVENT,GMVPARM))
if GMVPARM=""
QUIT
Begin DoDot:2
+37 WRITE !,GMVENT_" "_GMVPARM,!," B: "_$GET(^TRAX("B",GMVENT,GMVPARM)),!," A: ",$GET(^TRAX("A",GMVENT,GMVPARM)),!
End DoDot:2
End DoDot:1
+38 QUIT
KILL ;
+1 KILL ^TRAX("A"),^TRAX("B"),^TRAX("C")
+2 QUIT
XPAR ; Setup preliminary 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.26.1"
+14 ; Deactivate all previous versions from XPAR
+15 DO GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")
+16 FOR GMV=0:0
SET GMV=$ORDER(GMVLST(GMV))
if 'GMV
QUIT
Begin DoDot:1
+17 DO EN^XPAR("SYS","GMV GUI VERSION",$PIECE(GMVLST(GMV),"^",1),0)
+18 QUIT
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
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 ;patch 23
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 QUIT
