- 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 Apr 23, 2025@18:12:33 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
