Skip to content

Commit

Permalink
Install: MAG*3.0*188
Browse files Browse the repository at this point in the history
Patch Subject:  Clinical Display Issues
Description:

============
 Associated Patches:
 ===================
 This patch must be installed after MAG*3.0*185 and MAG*3.0*191.
 Subject:  CLINICAL DISPLAY ISSUES
 ========
 Category:  OTHER
 =========
 Description:
 ============
 MAG*3.0*188 will resolve the following issues for the Clinical Display
 client:
   The ability to show/hide the grid on Electrocardiograms (EKGs) was
 inadvertently removed in MAG*3.0*167; the option will be restored.
  The ability to select multiple EKGs for printing was inadvertently
 removed in MAG*3.0*167; the option will be restored.
  In the Radiology viewer, Computed Tomography (CT) images jump and the
 window/level functionality is not displayed properly if the images are
 scrolled quickly with the mouse.
   Image List Window Update
   Grid On/Off Feature Updates
 Patch Components:
 =================
 This patch includes software and documentation files.  This document,
 MAG3_0P 188_Patch_Description.pdf, provides an overview, explains the
 changes, and outlines the installation for this patch.
 MAG3_0P188_README.txt, if present, is an informative file associated with
 the patch.
 Software:
 =========
 File Name                                  Description
 =========                                  ============
 MAG3_0P188.KID                             Kernel Installation and
                                            Distribution
                                            System (KIDS) build
                                            for Patch 188
 MAG3_0P188_Clinical_Display_Setup.exe      Clinical Display client
                                            installation file.
 MAG3_0P188_CLINICAL_DISPLAY_INSTALL.MSI    Clinical Display push
                                            installation file.
 MAG3_0P188_Patch_Description.pdf           Patch Description for P188
 Documentation:
 ==============
 This document, MAG3_0P188_Patch_Description.pdf, provides an overview,
 explains the changes, and outlines the installation for this patch.
 Files & Fields Associated:
 ==========================
 The following are two new FileMan (FM) Files included in MAG*3.0*188:
   MUSE TEST TYPES #2006.171
         o This file will hold a list of MUSE Test Types that are used by
           the MUSE FORMAT TABLE File to map a Test Type to a MUSE Format
           ID number.
         o The sites can add new Test Types to this file, if needed.
               -IMPORTANT: The spelling of the Test Type that is entered
                into this file must EXACTLY match the spelling of the Test
                Type on the MUSE System.
   MUSE FORMAT TABLE #2006.172
         o This file is a mapping of MUSE Test Types to the MUSE Format ID
           number for a specified MUSE System.
               -The default Format ID's listed below are used by the MUSE
                System to compile the MUSE Test data, for the specified
                Test Type, into a PDF file for viewing.
                The default Format ID's cannot be modified.
                The sites can add entries to this file if any of the
                default mappings of MUSE Test Types to MUSE Format IDs is
                not correct for a certain MUSE System.  If site specific
                Format ID's have been entered into the MUSE FORMAT TABLE,
                those Format ID's will override the defaults.
 Forms Associated:
 =================
 There are no forms associated with this patch.
 Mail Groups Associated:
 =======================
 There are no mail groups associated with this patch.
 Options Associated:
 ===================
 There are no options associated with this patch.
 Protocols Associated:
 =====================
 There are no protocols associated with this patch.
 Security Keys Associated:
 =========================
 There are no security keys associated with this patch.
 Templates Associated:
 =====================
 There are no templates associated with this patch.
 Additional Information:
 =======================
 New Service Requests (NSRs):
 ============================
 There are no new service requests addressed in this patch.
 Patient Safety Issues (PSIs):
 =============================
 There are no patient safety issues associated with this patch.
 Defect Tracking System Ticket(s) & Overview:
 ============================================
 1.Defect 541749 (Ticket I14967812FY17) Showing/Hiding Grid on EKGs
 Problem:
 MAG*3.0*167 inadvertently removed the ability to show/hide grid on EKGs.
 Resolution:
 A new menu option, Grid On, has been added to the Options menu of the
 MUSE EKG Clinical Display window.  The menu option will default to
 "checked" when the window is opened.
 When the Grid On option is checked, the test generated by the MUSE system
 will include a grid. When Grid On is unchecked, the test generated by the
 MUSE system will not include a grid.
 Note: The way that the grid is displayed on the image has changed in this
 patch. In previous versions of the MUSE EKG Viewer, the patient test was
 retrieved from the MUSE system without a grid.  When the test was
 displayed in the MUSE Viewer, a grid was drawn on top of the displayed
 test.  In this patch, different MUSE test formats are used to generate
 tests with and without grids.
 2. Defect 541795 (Trouble Ticket R14889502FY17) Printing Multiple Studies
 Problem:
 Clinical Display used to be able to select more than one EKG study and
 print them at one time.  MAG*3.0*167 inadvertently removed that option.
 Resolution:
 The EKG (ECG) Test Type List on the MUSE Viewer window has been modified
 to enable multiple selections.  The Popup Menu has a new Print Selected
 Images. option which will open the Printer Dialog window.  The user can
 select a printer and click "OK."  Selecting the File | Print Selected
 Images. option will also print the images selected in the EKG Test Type
 List.
 Notes:
 The grid will also be printed if the Options | Grid menu option is
 checked.  Multiple selections are accomplished by the standard methods:
         Ctrl-Click to select an entry
         Click to open one test
         Shift-click to select a range
         Ctrl-click to select an additional entry.
 All tests selected in the EKG Test Type list will be printed when "Print
 Selected Images." is selected.
 3. Defect 586331 (Trouble Ticket I17074853FY18, I16872958FY18,
 R15933755FY17, R16210630FY17, R16376989FY17, R16454004FY17, &
 I16715556FY17) Images Jumping in CT Images
 Problem:
 In the Radiology viewer, CT images jump and the window/level functionality
 is not displayed properly if the images are scrolled quickly with the
 mouse.
 Resolution:
 The code was modified to fix this issue.  Now when a CT preset is
 selected, the window/level settings will not change when the user scrolls
 quickly or clicks the Play button.
 4. Defect 662033 (Trouble Ticket I16798961FY18): Image List Window Update
 Problem:
 An issue was reported in the Image List window, that when the Columns are
 resized or hidden, the changes are not saved in the User Preferences.
 Resolution:
 The code was modified to fix this issue.
 5. Defect 670519 (Trouble Ticket I18544856FY18): Grid On Feature Missing
 With New MUSE
 Problem:
 When the user changes Grid on/off, the user has to click on a different
 test and back for it to reload the test with no Grid.
 Resolution:
 When the user switches the grid setting, any images that are opened, will
 be redisplayed with the new grid setting.
 The following is the MUSE Test Type and Format ID Mapping:
 MUSE Test Type and Format ID Mapping:
 To display the MUSE Format Table, open the MUSE EKG Display viewer and
 Select the menu: Options | Show Format Table.    The MUSE Format Table
 window will be displayed and the default mappings will be listed.
 Default mapping:
 MUSE Format Table Columns:
 Site:
   The MUSE System entry in the NETWORK LOCATION File.
  "All Sites" means the default mapping for all MUSE Systems.
  "All Sites" is not an entry in the NETWORK LOCATION File.
 (Internal Entry Number) IEN:
  The Internal Entry Number is for the NETWORK LOCATION entry.
  '0' means the default mapping is for all MUSE Systems.
 Test Type:
  This field can be modified by the user.
 Grid:
   Enter 'Yes' if a Grid is displayed, 'No' if a Grid is not displayed.
 Format ID:
   Enter the new Format ID Number for the Test Type.
 Modify MUSE FORMAT Table:
 Review the Appendix A for examples on modifying the MUSE FORMAT TABLE to
 override the default Test Type - Format ID mappings.
 Test Sites:
 ===========
 The following sites are  test sites for this patch:
         VA Denver Health Care System
         Augusta VA Medical Center
 Software and Documentation Retrieval Instructions:
 ==================================================
 Software being released and/or documentation describing the new
 functionality introduced by this patch are available.
 The preferred method is to retrieve files from download.vista.domain.ext.
 This transmits the files from the first available server. Sites may also
 elect to retrieve files directly from a specific server.
 Sites may retrieve the software and/or documentation directly using
 Secure File Transfer Protocol (SFTP) from the ANONYMOUS.SOFTWARE
 directory at the following OI Field Offices:
 Hines:          domain.ext
 Salt Lake City: domain.ext
 Documentation can also be found on the VA Software Documentation Library
 at:
 http://www4.domain.ext/vdl/.
 Patch Installation:
 ===================
 Supported Client Versions
 ==========================
 When MAG*3.0*188 is released, the list of supported versions of Clinical
 Display will not change.
 The list of supported versions will remain:
 Supported Versions      No Longer Supported
 3.0.188                 3.0.131
 3.0.191                 3.0.122
 3.0.181                 3.0.117
 3.0.167                 3.0.106
 3.0.161                 3.0.94
 3.0.149
 3.0.130
 Pre/Post Installation Overview:
 ===============================
 MAG*3.0*188 must be installed on the VistA System and on 64-bit
 workstations on which the VistA Imaging Applications will be used.  This
 patch must be installed by the compliance date.
 This patch may be installed with users on the system although it is
 recommended that it be installed during non-peak hours to minimize
 potential disruption to users.  This patch should take less than 5
 minutes to install.

Use default answers for KIDS load/install questions.

Patch-Files: http://code.osehra.org/VistA.git/tree/master/Packages/Imaging/Patches/MAG_3.0_188
  • Loading branch information
josephsnyder committed May 20, 2019
1 parent 22ac41b commit b85d516
Show file tree
Hide file tree
Showing 16 changed files with 624 additions and 43 deletions.
13 changes: 13 additions & 0 deletions Packages/Imaging/Globals/2006.171+MUSE TEST TYPES.zwr
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
OSEHRA ZGO Export: MUSE TEST TYPES
20-MAY-2019 01:08:39 ZWR
^MAG(2006.171,0)="MUSE TEST TYPES^2006.171^5^5"
^MAG(2006.171,1,0)="RestingECG"
^MAG(2006.171,2,0)="Stress"
^MAG(2006.171,3,0)="HiRes"
^MAG(2006.171,4,0)="Holter"
^MAG(2006.171,5,0)="ZIO"
^MAG(2006.171,"B","HiRes",3)=""
^MAG(2006.171,"B","Holter",4)=""
^MAG(2006.171,"B","RestingECG",1)=""
^MAG(2006.171,"B","Stress",2)=""
^MAG(2006.171,"B","ZIO",5)=""
3 changes: 3 additions & 0 deletions Packages/Imaging/Globals/2006.172+MUSE FORMAT TABLE.zwr
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
OSEHRA ZGO Export: MUSE FORMAT TABLE
20-MAY-2019 01:08:39 ZWR
^MAG(2006.172,0)="MUSE FORMAT TABLE^2006.172^^"
73 changes: 64 additions & 9 deletions Packages/Imaging/Routines/MAGGTSYS.m
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
MAGGTSYS ;WOIFO/GEK/NST - Calls from Imaging windows for System Manager ; 03 Nov 2017 10:51 AM
;;3.0;IMAGING;**59,93,117,185**;Mar 19, 2002;Build 2238;Jul 15, 2011
MAGGTSYS ;WOIFO/GEK/NST - Calls from Imaging windows for System Manager ; 22 Dec 2010 10:51 AM
;;3.0;IMAGING;**59,93,117,185,188**;Mar 19, 2002;Build 61;Mar 18, 2018
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
Expand All @@ -16,9 +16,20 @@
;; +---------------------------------------------------------------+
;;
Q
GETS(MAGRY,NODE,FLAGS) ; USE GETS^DIQ TO GET FIELD VALUES.
; GETS
; Called from Image Information Advanced in Clinical Display
; NODE: integer or "" or integer^integer or "N"_integer
; if Integer - this is IMAGE IEN, we display IMAGE entry for IEN
; if "" - we defalut to Last entry in IMAGE File.
; if int^int - this is FILE^IEN, we display FM Files for FILE IEN
; if "N"_int - this is Patch 185 Call.
;
GETS(MAGRY,NODE,FLAGS) ; USE GETS^DIQ TO GET FIELD VALUES.
N MAGWIN,I,CT,Y,NC,MAGOUT,MAGERR,TNC,ZZ,MAGIEN,MAGFILE
N N0
S MAGRY=$NA(^TMP("MAGNODE",$J))
K @MAGRY
I $L(NODE,"^")>1 D OTH Q ;
I NODE'?.1"N"1.N S @MAGRY@(0)="Node IEN "_NODE_" invalid"
I NODE?1"N"1.N D Q
. N MAGVIEN
Expand All @@ -29,29 +40,47 @@
S NODE=+$G(NODE)
I 'NODE S NODE=$P(^MAG(2005,0),U,3)
S MAGIEN=NODE
S MAGFILE=$$FILE^MAGGI11(NODE)
S MAGWIN=$$BROKER^XWBLIB
I 'MAGWIN W !,"MAGIEN"," ",MAGIEN
S MAGFILE=$$FILE^MAGGI11(NODE)
K @MAGRY
S @MAGRY@(0)="****** Fields for "_$S(MAGFILE=2005.1:"DELETED ",1:"")_"Image IEN: "_MAGIEN_" ******"
S I=0,CT=0
S FLAGS=$S($L($G(FLAGS)):FLAGS,1:"IERN")
I MAGFILE'>0 Q ; problem getting file number
D GETS^DIQ(MAGFILE,MAGIEN,"*",FLAGS,"MAGOUT","MAGERR")
;D GETS^DIQ(MAGFILE,MAGIEN,".01;1;2;2.1;2.2;3;5;6;12","R","MAGOUT","MAGERR")
D LOAD
I 'MAGWIN W !,"AFTER LOAD","MAGIEN= ",MAGIEN
S N0=$G(^MAG(2005,MAGIEN,0))
S MAGIEN=$P(N0,"^",3) I MAGIEN]"" D ;
. S MAGFILE="2005.2"
. S CT=CT+1,@MAGRY@(CT)=" ====== FULL File(Tier1): NETWORK LOCATION "_MAGIEN_" ======================"
. D GETS^DIQ(MAGFILE,MAGIEN,"*",FLAGS,"MAGOUT","MAGERR")
. D LOAD
S MAGIEN=$P(N0,"^",4) I MAGIEN]"" D ;
. S MAGFILE="2005.2"
. S CT=CT+1,@MAGRY@(CT)=" ====== Abstract(Tier1): NETWORK LOCATION "_MAGIEN_" ======================"
. D GETS^DIQ(MAGFILE,MAGIEN,"*",FLAGS,"MAGOUT","MAGERR")
. D LOAD
S MAGIEN=$P(N0,"^",5) I MAGIEN]"" D ;
. S MAGFILE="2005.2"
. S CT=CT+1,@MAGRY@(CT)=" ====== JukeBox(Tier2): NETWORK LOCATION "_MAGIEN_" ======================"
. D GETS^DIQ(MAGFILE,MAGIEN,"*",FLAGS,"MAGOUT","MAGERR")
. D LOAD
Q
;
LOAD ; p188 T3
S NC=MAGIEN_","
S I="" F S I=$O(MAGOUT(MAGFILE,NC,I)) Q:I="" D
. S CT=CT+1
. I $G(MAGOUT(MAGFILE,NC,I,"I"))=$G(MAGOUT(MAGFILE,NC,I,"E")) D Q
. . S ZZ=I,$E(ZZ,45,999)=" = "_$G(MAGOUT(MAGFILE,NC,I,"E"))
. . S @MAGRY@(CT)=ZZ
. . ;S @MAGRY@(CT)=I_" = "_MAGOUT(MAGFILE,NC,I,"E") Q
. . Q
. ;
. S ZZ=I,$E(ZZ,25,999)=" = ("_$G(MAGOUT(MAGFILE,NC,I,"I"))_") "
. I ($L(ZZ)>44) S ZZ=ZZ_" = "_$G(MAGOUT(MAGFILE,NC,I,"E")) S @MAGRY@(CT)=ZZ Q
. I ($L(ZZ)<45) S $E(ZZ,45,999)=" = "_$G(MAGOUT(MAGFILE,NC,I,"E")) S @MAGRY@(CT)=ZZ Q
. ;S @MAGRY@(CT)=I_" = ("_$G(MAGOUT(MAGFILE,NC,I,"I"))_") = "_$G(MAGOUT(MAGFILE,NC,I,"E"))
. Q
I $P($G(^MAG(MAGFILE,MAGIEN,2)),"^",6)=8925 D
. K MAGOUT,MAGERR
Expand All @@ -64,13 +93,39 @@
. . I $G(MAGOUT(8925,NC,I,"I"))=$G(MAGOUT(8925,NC,I,"E")) D Q
. . . S ZZ=I,$E(ZZ,45,999)=" = "_$G(MAGOUT(8925,NC,I,"E"))
. . . S @MAGRY@(CT)=ZZ
. . . ;S @MAGRY@(CT)=I_" = "_MAGOUT(MAGFILE,NC,I,"E") Q
. . . Q
. . ;
. . S ZZ=I,$E(ZZ,25,999)=" = ("_$G(MAGOUT(8925,NC,I,"I"))_") "
. . I ($L(ZZ)>44) S ZZ=ZZ_" = "_$G(MAGOUT(8925,NC,I,"E")) S @MAGRY@(CT)=ZZ Q
. . I ($L(ZZ)<45) S $E(ZZ,45,999)=" = "_$G(MAGOUT(8925,NC,I,"E")) S @MAGRY@(CT)=ZZ Q
. . ;S @MAGRY@(CT)=I_" = ("_$G(MAGOUT(MAGFILE,NC,I,"I"))_") = "_$G(MAGOUT(MAGFILE,NC,I,"E"))
. . Q
. Q
Q
OTH ; Called internally
; p188 T3 added extra functionality for the Imaging Info Advanced window.
N MAGFDA,MAGGLB
K @MAGRY
W !,"NODE ",NODE
S I=0,CT=0
S FLAGS=$S($L($G(FLAGS)):FLAGS,1:"IERN")
S MAGFILE=$P(NODE,"^",1),MAGIEN=$P(NODE,"^",2)
I MAGIEN="ALL" D Q ;
. S MAGGLB=^DIC(MAGFILE,0,"GL")
. S MAGGLB=$E(MAGGLB,1,$L(MAGGLB)-1)_")"
. S CT=CT+1 S @MAGRY@(CT)=" MAGGLB "_MAGGLB
. S MAGFDA=0 F S MAGFDA=$O(@MAGGLB@(MAGFDA)) Q:'MAGFDA D ;
. . S MAGIEN=MAGFDA
. . S CT=CT+1
. . S @MAGRY@(CT)=" ====== IEN "_MAGIEN_" ======================"
. . D GETS^DIQ(MAGFILE,MAGIEN,"*",FLAGS,"MAGOUT","MAGERR")
. . D LOAD
. Q
I MAGIEN="" D ;
. I MAGFILE="2006.1" S MAGIEN=$$DUZ2PLC^MAGBAPIP
. I MAGFILE="2005.2" S MAGIEN=$O(^MAG(2005.2,0))
S FLAGS=$S($L($G(FLAGS)):FLAGS,1:"IERN")
S @MAGRY@(0)="****** Fields for FILE : "_MAGFILE
D GETS^DIQ(MAGFILE,MAGIEN,"*",FLAGS,"MAGOUT","MAGERR")
D LOAD
;
Q
5 changes: 4 additions & 1 deletion Packages/Imaging/Routines/MAGGTU4D.m
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
MAGGTU4D ;WOIFO/SG/NST/JSL/GEK - VERSION CONTROL (CLINICAL DISPLAY) ; 25 May 2014 2:24 PM
;;3.0;IMAGING;**93,94,106,117,122,131,149,138,156,161,167,181,191**;Mar 19, 2002;Build 41;JUL 24, 2017
;;3.0;IMAGING;**93,94,106,117,122,131,149,138,156,161,167,181,191,188**;Mar 19, 2002;Build 61;Mar 18, 2018
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
Expand All @@ -23,6 +23,7 @@
;;==================================================================
;;| Version |Build|Seq #| Comment |
;;|---------+-----+------------------------------------------------|
;;| 3.0.188 | 6 | 89 | Mar 2018 |
;;| 3.0.191 | 2 | 88 | Aug 2017 |
;;| 3.0.181 | 3 | 87 | Jun 2017 |
;;| 3.0.167 | 8 | 86 | Jan 2017 |
Expand All @@ -38,6 +39,8 @@
; Sort order of the rows does not matter. However, the reversed
; order of patch sequential numbers is recommended.
; NOTE:
; Patch 188 Did not remove support for any Clients
;
; Patch 191 Emergency Patch did not remove support for any clients
; Patch 181 removed support for
; - Patch 131
Expand Down
136 changes: 136 additions & 0 deletions Packages/Imaging/Routines/MAGGTU4M.m
Original file line number Diff line number Diff line change
@@ -0,0 +1,136 @@
MAGGTU4M ;WOIFO/GEK - MUSE3 VIEWER UTILITIES
;;3.0;IMAGING;**188**;Mar 19, 2002;Build 61;Mar 18, 2018
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
;; | No permission to copy or redistribute this software is given. |
;; | Use of unreleased versions of this software requires the user |
;; | to execute a written test agreement with the VistA Imaging |
;; | Development Office of the Department of Veterans Affairs, |
;; | telephone (301) 734-0100. |
;; | The Food and Drug Administration classifies this software as |
;; | a medical device. As such, it may not be changed in any way. |
;; | Modifications to this software may result in an adulterated |
;; | medical device under 21CFR820, the use of which is considered |
;; | to be a violation of US Federal Statutes. |
;; +---------------------------------------------------------------+
;;
; This routine contains Utilities for the MUSE FORMAT TABLE
;
Q
;
; The default Format ID's listed below are used to generate the
; MUSE Test for the specified Test Type.
; If Site Specific Format ID's have been entered into the
; MUSE FORMAT TABLE, those Format ID's will override the defaults
;
; ***** DEFAULTS for Test Type -> Format ID mapping
;;===============================================================
; Test Type Grid Format ID
; RestingECG Y 6
; Stress Y 7
; Holter Y 8
; HiRes Y 9
; RestingECG N 12
; HiRes N 13
; Stress N 14
; Holter N 15
;;===============================================================
;
NETLOC(MAGRY,IEN) ;RPC [MAG4 GET NETLOC INFO]
; Gets info from Network Location file.
; IEN is the Internal Entry Number in the NETWORK LOCATION File
;
; The Return String is in the format :
; .01 Description ^ Physical Reference ^ Operational Status (OnLine/OffLine)
N IC,FNUM,MAGZZ,MAGERR
N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGGTERR"
S FNUM="2005.2"
K MAGRY
I '$G(IEN) D Q ;
. S MAGRY="0^INVALID Input: "_IEN
. Q
I '$D(^MAG(2005.2,IEN,0)) D Q ;
. S MAGRY="0^INVALID NETWORK LOCATION Entry: "_IEN
. Q
K MAGZZ,MAGERR
D GETS^DIQ(FNUM,IEN,".01;1;5","EI","MAGZZ","MAGERR")
S IC=IEN_","
S MAGRY="1^"_MAGZZ(FNUM,IC,".01","E")_"^"_IEN_"^"_MAGZZ(FNUM,IC,"1","E")_"^"_MAGZZ(FNUM,IC,"5","E")
Q
TABLE(MAGRY,IEN) ;RPC [MAG4 GET MUSE TABLE]
; IEN is the Internal Entry Number in the NETWORK LOCATION File.
; This will return all MUSE FORMAT TABLE entries for the IEN.
; or
; IEN = 'SITE'
; This will return MUSE FORMAT TABLE entries that are defined for
; MUSE Sites.
; or
; IEN = 'ALL'
; This will return an Array, including the Default Format mapping
; in a format that can be shown to the user.
;
N I,CT,NETLOC,IC,FNUM,MAGZZ,MAGERR
N $ETRAP,$ESTACK S $ETRAP="D ERRA^MAGGTERR"
S FNUM="2006.172"
S CT=0
K MAGRY
I IEN="ALL" D ALL Q ;
I IEN="SITE" D SITE Q ;
I '$G(IEN) D Q ;
. S MAGRY(0)="0^INVALID Input: "_IEN
. Q
I '$D(^MAG(2005.2,IEN,0)) D Q ;
. S MAGRY(0)="0^INVALID NETWORK LOCATION Entry: "_IEN
. Q
S NETLOC=$P(^MAG(2005.2,IEN,0),"^",1)
I '$D(^MAG(2006.172,"C",IEN)) D Q ;
. S MAGRY(0)="0^There are no MUSE FORMAT TABLE entries for: "_NETLOC_" ("_IEN_")"
. Q
S I="" F S I=$O(^MAG(2006.172,"C",IEN,I)) Q:'I D ;
. K MAGZZ,MAGERR
. D GETS^DIQ(FNUM,I,".01;1;2;3;4","EI","MAGZZ","MAGERR")
. S CT=CT+1
. S IC=I_","
. S MAGRY(CT)=MAGZZ(FNUM,IC,1,"E")_"^"_IEN_"^"_MAGZZ(FNUM,IC,2,"E")
. S MAGRY(CT)=MAGRY(CT)_"^"_MAGZZ(FNUM,IC,3,"E")_"^"_MAGZZ(FNUM,IC,4,"E")
. Q
I CT=0 S MAGRY(0)="0^0 Entries in MUSE FORMAT TABLE for: "_MAGZZ(FNUM,IC,1,"E")_" ("_IEN_")"
I CT>0 S MAGRY(0)="1^"_CT_" MUSE FORMAT TABLE Entries for: "_MAGZZ(FNUM,IC,1,"E")_" ("_IEN_")"
Q
SITE ;called internally
; We get here if user wants ALL MUSE FORMAT TABLE Entered at this VistA Site.
S MAGRY(0)="1^Returning All entries in MUSE FORMAT TABLE"
N J
S J=0
F S J=$O(^MAG(2006.172,J)) Q:'J D ;
. K MAGZZ,MAGERR
. D GETS^DIQ(FNUM,J,".01;1;2;3;4","EI","MAGZZ","MAGERR")
. S CT=CT+1
. S IC=J_","
. S MAGRY(CT)=MAGZZ(FNUM,IC,1,"E")_"^"_MAGZZ(FNUM,IC,1,"I")_"^"_MAGZZ(FNUM,IC,2,"E")
. S MAGRY(CT)=MAGRY(CT)_"^"_MAGZZ(FNUM,IC,3,"E")_"^"_MAGZZ(FNUM,IC,4,"E")
. Q
I CT=0 S MAGRY(0)="0^0 Entries in MUSE FORMAT TABLE."
I CT>0 S MAGRY(0)="1^"_CT_" MUSE FORMAT TABLE Entries."
Q
ALL ;called internally
; This function will return an array of MUSE FORMAT TABLE entries for Display
; to the user.
; This Array will include the 'Default' values that are used, and any
; Site Specific entries in the MUSE FORMAT TABLE File.
;
S MAGRY(1)="Site^IEN^Test Type^Grid^Format ID"
S MAGRY(2)="All Sites^0^RestingECG^Yes^6"
S MAGRY(3)="All Sites^0^Stress^Yes^7"
S MAGRY(4)="All Sites^0^Holter^Yes^8"
S MAGRY(5)="All Sites^0^HiRes^Yes^9"
;
S MAGRY(6)="All Sites^0^RestingECG^No^12"
S MAGRY(7)="All Sites^0^HiRes^No^13"
S MAGRY(8)="All Sites^0^Stress^No^14"
S MAGRY(9)="All Sites^0^Holter^No^15"
S CT=9
D SITE
S MAGRY(0)="1^All Format Table entries, including the Default Format IDs."
Q
14 changes: 6 additions & 8 deletions Packages/Kernel/Globals/%ZTSCH.zwr
Original file line number Diff line number Diff line change
@@ -1,7 +1,5 @@
OSEHRA ZGO Export: ^%ZTSCH
19-MAY-2019 18:58:28 ZWR
^%ZTSCH(5629222800,4650)=""
^%ZTSCH(5629222800,4651)=""
20-MAY-2019 01:07:04 ZWR
^%ZTSCH(5629459997,4625)=""
^%ZTSCH(5629460000,4626)=""
^%ZTSCH(5629460003,4627)=""
Expand Down Expand Up @@ -29,9 +27,9 @@ OSEHRA ZGO Export: ^%ZTSCH
^%ZTSCH(5629460080,4649)=""
^%ZTSCH("DEVTRY","//./nul")=5311138792
^%ZTSCH("ER")=""
^%ZTSCH("HOUR")=5629200726
^%ZTSCH("IDLE")=5629201028
^%ZTSCH("IO")="5629201051^"
^%ZTSCH("HOUR")=5629222931
^%ZTSCH("IDLE")=5629223112
^%ZTSCH("IO")="5629212057^"
^%ZTSCH("IO","GMRA UPDATE RESOURCE")="RES"
^%ZTSCH("LOAD")=""
^%ZTSCH("MON","PLA:PLAISCSVR",63928)="2^5^1^5^2^6^1^8^1^7^1^5^1^6^2^6^1^4^1^5^1^4^1^6^"
Expand Down Expand Up @@ -66,8 +64,8 @@ OSEHRA ZGO Export: ^%ZTSCH
^%ZTSCH("STARTUP","VISTA,VISTA","10Q8853")="60297,52041^^"
^%ZTSCH("STARTUP","VISTA,VISTA","11Q8412")="60297,52056^^"
^%ZTSCH("STARTUP","VISTA,VISTA","8Q9891")="59494,69903^^"
^%ZTSCH("STOP","MGR","VISTA:CACHE")="65152,68251"
^%ZTSCH("STOP","SUB","VISTA:CACHE")="65152,68251"
^%ZTSCH("STOP","MGR","VISTA:CACHE")="65153,3967"
^%ZTSCH("STOP","SUB","VISTA:CACHE")="65153,3967"
^%ZTSCH("SUB","VISTA:CACHE")=0
^%ZTSCH("SUB","VISTA:CACHE",0)=0
^%ZTSCH("WAIT")="58035,64592"
Loading

0 comments on commit b85d516

Please sign in to comment.