diff --git a/Packages/Imaging/Globals/2006.171+MUSE TEST TYPES.zwr b/Packages/Imaging/Globals/2006.171+MUSE TEST TYPES.zwr new file mode 100644 index 00000000000..bec18e78e97 --- /dev/null +++ b/Packages/Imaging/Globals/2006.171+MUSE TEST TYPES.zwr @@ -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)="" diff --git a/Packages/Imaging/Globals/2006.172+MUSE FORMAT TABLE.zwr b/Packages/Imaging/Globals/2006.172+MUSE FORMAT TABLE.zwr new file mode 100644 index 00000000000..6c2adbbbf57 --- /dev/null +++ b/Packages/Imaging/Globals/2006.172+MUSE FORMAT TABLE.zwr @@ -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^^" diff --git a/Packages/Imaging/Routines/MAGGTSYS.m b/Packages/Imaging/Routines/MAGGTSYS.m index a5ad3a00638..bc5761540ba 100644 --- a/Packages/Imaging/Routines/MAGGTSYS.m +++ b/Packages/Imaging/Routines/MAGGTSYS.m @@ -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. | @@ -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 @@ -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 @@ -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 diff --git a/Packages/Imaging/Routines/MAGGTU4D.m b/Packages/Imaging/Routines/MAGGTU4D.m index 064edd81578..138c4263b97 100644 --- a/Packages/Imaging/Routines/MAGGTU4D.m +++ b/Packages/Imaging/Routines/MAGGTU4D.m @@ -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. | @@ -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 | @@ -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 diff --git a/Packages/Imaging/Routines/MAGGTU4M.m b/Packages/Imaging/Routines/MAGGTU4M.m new file mode 100644 index 00000000000..c98af0dd501 --- /dev/null +++ b/Packages/Imaging/Routines/MAGGTU4M.m @@ -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 diff --git a/Packages/Kernel/Globals/%ZTSCH.zwr b/Packages/Kernel/Globals/%ZTSCH.zwr index 8f963eb3288..7ba21bcd09e 100644 --- a/Packages/Kernel/Globals/%ZTSCH.zwr +++ b/Packages/Kernel/Globals/%ZTSCH.zwr @@ -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)="" @@ -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^" @@ -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" diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr index 6fbf3335b93..f628ba07d69 100644 --- a/Packages/Kernel/Globals/14.4+TASKS.zwr +++ b/Packages/Kernel/Globals/14.4+TASKS.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: TASKS -20-MAY-2019 00:04:56 ZWR -^%ZTSK(-1)=4672 +20-MAY-2019 01:07:04 ZWR +^%ZTSK(-1)=4676 ^%ZTSK(0)="TASKS^14.4^4344" ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^" ^%ZTSK(1001,.02)="^PLA^^" @@ -43645,10 +43645,13 @@ OSEHRA ZGO Export: TASKS ^%ZTSK(4649,.3,"XQY")=245 ^%ZTSK(4649,.3,"XQY0")="XPD INSTALL BUILD^Install Package(s)^^R^^^^^^^^2" ^%ZTSK(4650,0)="RESCORE^YTSCOREV^17^^65152,68084^65153,3600^R^245^XPD INSTALL BUILD^USER,SEVENTEEN^VISTA^VISTA^ZTDESC^^" +^%ZTSK(4650,.02)="^VISTA^^" ^%ZTSK(4650,.03)="Rescore MH Instrument Administrations" ^%ZTSK(4650,.04)=5629222800 -^%ZTSK(4650,.1)="1^65152,68084^^^^^^" -^%ZTSK(4650,.2)="^^^^Q^" +^%ZTSK(4650,.1)="B^65153,3791^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4650,.2)="" +^%ZTSK(4650,.21)="" +^%ZTSK(4650,.25)="" ^%ZTSK(4650,.3,"DUZ(",0)="@" ^%ZTSK(4650,.3,"DUZ(",1)="" ^%ZTSK(4650,.3,"DUZ(",2)=1214 @@ -43663,10 +43666,13 @@ OSEHRA ZGO Export: TASKS ^%ZTSK(4650,.3,"XQY0")="XPD INSTALL BUILD^Install Package(s)^^R^^^^^^^^2" ^%ZTSK(4650,.3,"YSRSREV")="0~1" ^%ZTSK(4651,0)="RESCORE^YTSCOREV^17^^65152,68087^65153,3600^R^245^XPD INSTALL BUILD^USER,SEVENTEEN^VISTA^VISTA^ZTDESC^^" +^%ZTSK(4651,.02)="^VISTA^^" ^%ZTSK(4651,.03)="Rescore MH Instrument Administrations" ^%ZTSK(4651,.04)=5629222800 -^%ZTSK(4651,.1)="1^65152,68087^^^^^^" -^%ZTSK(4651,.2)="^^^^Q^" +^%ZTSK(4651,.1)="B^65153,3793^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4651,.2)="" +^%ZTSK(4651,.21)="" +^%ZTSK(4651,.25)="" ^%ZTSK(4651,.3,"DUZ(",0)="@" ^%ZTSK(4651,.3,"DUZ(",1)="" ^%ZTSK(4651,.3,"DUZ(",2)=1214 @@ -43905,6 +43911,47 @@ OSEHRA ZGO Export: TASKS ^%ZTSK(4672,.3,"DUZ(",0)="@" ^%ZTSK(4672,.3,"XQSCH")=8 ^%ZTSK(4672,.3,"XQY")=9891 +^%ZTSK(4673,0)="HOUR^XUTMHR^.5^^65153,3731^65153,3731^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^" +^%ZTSK(4673,.02)="^VISTA^^" +^%ZTSK(4673,.03)="Taskman Hourly Job" +^%ZTSK(4673,.04)=5629222931 +^%ZTSK(4673,.1)="B^65153,3795^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4673,.2)="" +^%ZTSK(4673,.21)="" +^%ZTSK(4673,.25)="" +^%ZTSK(4674,0)="ZTSK^XQ1^.5^VISTA^65153,3791^65153,3791^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(4674,.02)="^VISTA^^" +^%ZTSK(4674,.03)="No Description (%ZTLOAD)" +^%ZTSK(4674,.04)=5629222991 +^%ZTSK(4674,.1)="B^65153,3797^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4674,.2)="" +^%ZTSK(4674,.21)="" +^%ZTSK(4674,.25)="" +^%ZTSK(4674,.3,"DUZ(",0)="@" +^%ZTSK(4674,.3,"XQSCH")=10 +^%ZTSK(4674,.3,"XQY")=8853 +^%ZTSK(4675,0)="ZTSK^XQ1^.5^VISTA^65153,3791^65153,3791^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(4675,.02)="^VISTA^^" +^%ZTSK(4675,.03)="No Description (%ZTLOAD)" +^%ZTSK(4675,.04)=5629222991 +^%ZTSK(4675,.1)="B^65153,3799^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4675,.2)="" +^%ZTSK(4675,.21)="" +^%ZTSK(4675,.25)="" +^%ZTSK(4675,.3,"DUZ(",0)="@" +^%ZTSK(4675,.3,"XQSCH")=11 +^%ZTSK(4675,.3,"XQY")=8412 +^%ZTSK(4676,0)="ZTSK^XQ1^.5^VISTA^65153,3791^65153,3791^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(4676,.02)="^VISTA^^" +^%ZTSK(4676,.03)="No Description (%ZTLOAD)" +^%ZTSK(4676,.04)=5629222991 +^%ZTSK(4676,.1)="B^65153,3801^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4676,.2)="" +^%ZTSK(4676,.21)="" +^%ZTSK(4676,.25)="" +^%ZTSK(4676,.3,"DUZ(",0)="@" +^%ZTSK(4676,.3,"XQSCH")=8 +^%ZTSK(4676,.3,"XQY")=9891 ^%ZTSK(1082462,.1)="E^64013,39495^Interrupted While Running" ^%ZTSK(1082463,.1)="E^64013,39495^Interrupted While Running" ^%ZTSK(1082464,.1)="E^64013,39495^Interrupted While Running" diff --git a/Packages/Kernel/Globals/19+OPTION.zwr b/Packages/Kernel/Globals/19+OPTION.zwr index a62755c71b2..f545db7d744 100644 --- a/Packages/Kernel/Globals/19+OPTION.zwr +++ b/Packages/Kernel/Globals/19+OPTION.zwr @@ -1,5 +1,5 @@ OSEHRA ZGO Export: OPTION -19-MAY-2019 22:02:03 ZWR +20-MAY-2019 01:07:13 ZWR ^DIC(19,0)="OPTION^19I^11919^10379" ^DIC(19,0,"DD")="#" ^DIC(19,0,"DEL")="#" @@ -94895,7 +94895,7 @@ OSEHRA ZGO Export: OPTION ^DIC(19,9220,"MAGJ RADSTATUSUPDATE",9,0)=625 ^DIC(19,9220,"MAGJ RADSTATUSUPDATE",10,0)=626 ^DIC(19,9220,"MAGJ RADSTATUSUPDATE",11,0)=626 -^DIC(19,9220,"RPC",0)="^19.05P^327^316" +^DIC(19,9220,"RPC",0)="^19.05P^329^318" ^DIC(19,9220,"RPC",1,0)=946 ^DIC(19,9220,"RPC",2,0)=939 ^DIC(19,9220,"RPC",4,0)=938 @@ -95152,6 +95152,8 @@ OSEHRA ZGO Export: OPTION ^DIC(19,9220,"RPC",325,0)=3193 ^DIC(19,9220,"RPC",326,0)=3791 ^DIC(19,9220,"RPC",327,0)=3817 +^DIC(19,9220,"RPC",328,0)=3822 +^DIC(19,9220,"RPC",329,0)=3823 ^DIC(19,9220,"RPC","B",9,206)="" ^DIC(19,9220,"RPC","B",83,138)="" ^DIC(19,9220,"RPC","B",84,137)="" @@ -95408,6 +95410,8 @@ OSEHRA ZGO Export: OPTION ^DIC(19,9220,"RPC","B",3793,321)="" ^DIC(19,9220,"RPC","B",3794,322)="" ^DIC(19,9220,"RPC","B",3817,327)="" +^DIC(19,9220,"RPC","B",3822,328)="" +^DIC(19,9220,"RPC","B",3823,329)="" ^DIC(19,9220,"U")="ALL MAG* RPC'S " ^DIC(19,9221,0)="MAGREPSTART^Imaging Utilization Report Initialization^^R^1^^^^^^^" ^DIC(19,9221,25)="STTASK^MAGQE4" diff --git a/Packages/Kernel/Globals/9.4+PACKAGE.zwr b/Packages/Kernel/Globals/9.4+PACKAGE.zwr index 02a78d96d1f..1fa084f236f 100644 --- a/Packages/Kernel/Globals/9.4+PACKAGE.zwr +++ b/Packages/Kernel/Globals/9.4+PACKAGE.zwr @@ -1,5 +1,5 @@ OSEHRA ZGO Export: PACKAGE -20-MAY-2019 00:05:02 ZWR +20-MAY-2019 01:07:06 ZWR ^DIC(9.4,-1,"INI")="^2960819.165753" ^DIC(9.4,0)="PACKAGE^9.4I^232^144" ^DIC(9.4,0,"DD")="#" @@ -204555,7 +204555,7 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,175,22,2,1,3,0)=" " ^DIC(9.4,175,22,2,1,4,0)="Information on VistA Imaging is available on web page" ^DIC(9.4,175,22,2,1,5,0)="http://vawww.domain.ext/imaging/" -^DIC(9.4,175,22,2,"PAH",0)="^9.4901^143^143" +^DIC(9.4,175,22,2,"PAH",0)="^9.4901^144^144" ^DIC(9.4,175,22,2,"PAH",1,0)="1^3020408^1" ^DIC(9.4,175,22,2,"PAH",2,0)="7^3020814^1" ^DIC(9.4,175,22,2,"PAH",2,1,0)="^^40^40^3020814" @@ -207235,6 +207235,23 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,175,22,2,"PAH",143,1,5,0)=" " ^DIC(9.4,175,22,2,"PAH",143,1,6,0)="Please note that routine MAGIP177 is deleted after the KIDS Build is" ^DIC(9.4,175,22,2,"PAH",143,1,7,0)="installed." +^DIC(9.4,175,22,2,"PAH",144,0)="188^3190520.01032^17" +^DIC(9.4,175,22,2,"PAH",144,1,0)="^^15^15^3190520" +^DIC(9.4,175,22,2,"PAH",144,1,1,0)="MAG*3.0*188" +^DIC(9.4,175,22,2,"PAH",144,1,2,0)="This patch will resolve the following issues for Clinical Display:" +^DIC(9.4,175,22,2,"PAH",144,1,3,0)="The ability to Show or Hide the Grid on the EKG Display and " +^DIC(9.4,175,22,2,"PAH",144,1,4,0)="while printing." +^DIC(9.4,175,22,2,"PAH",144,1,5,0)="The ability to select multiple EKG's for display and printing." +^DIC(9.4,175,22,2,"PAH",144,1,6,0)="The ability for a site to change the Format ID that is used" +^DIC(9.4,175,22,2,"PAH",144,1,7,0)="to generate the EKG Image." +^DIC(9.4,175,22,2,"PAH",144,1,8,0)="CT scrolling issue in the Radiology Viewer." +^DIC(9.4,175,22,2,"PAH",144,1,9,0)="This will check the routines from a BUILD file." +^DIC(9.4,175,22,2,"PAH",144,1,10,0)="Select BUILD NAME: MAG*3.0*188 IMAGING" +^DIC(9.4,175,22,2,"PAH",144,1,11,0)="MAGGTSYS value = 27028795" +^DIC(9.4,175,22,2,"PAH",144,1,12,0)="MAGGTU4D value = 5740596" +^DIC(9.4,175,22,2,"PAH",144,1,13,0)="MAGGTU4M value = 22884338" +^DIC(9.4,175,22,2,"PAH",144,1,14,0)="MAGIP188 value = 4692901" +^DIC(9.4,175,22,2,"PAH",144,1,15,0)="done" ^DIC(9.4,175,22,2,"PAH","B",1,1)="" ^DIC(9.4,175,22,2,"PAH","B",3,14)="" ^DIC(9.4,175,22,2,"PAH","B",5,22)="" @@ -207363,6 +207380,7 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,175,22,2,"PAH","B",184,121)="" ^DIC(9.4,175,22,2,"PAH","B",185,129)="" ^DIC(9.4,175,22,2,"PAH","B",186,124)="" +^DIC(9.4,175,22,2,"PAH","B",188,144)="" ^DIC(9.4,175,22,2,"PAH","B",189,125)="" ^DIC(9.4,175,22,2,"PAH","B",190,133)="" ^DIC(9.4,175,22,2,"PAH","B",191,142)="" diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr index d3d237de049..338ca66a7b2 100644 --- a/Packages/Kernel/Globals/9.6+BUILD.zwr +++ b/Packages/Kernel/Globals/9.6+BUILD.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: BUILD -20-MAY-2019 00:07:20 ZWR -^XPD(9.6,0)="BUILD^9.6I^11194^10834" +20-MAY-2019 01:09:25 ZWR +^XPD(9.6,0)="BUILD^9.6I^11195^10835" ^XPD(9.6,1,0)="KERNEL - VIRGIN INSTALL 8.0^3^0^2950703^n" ^XPD(9.6,1,1,0)="^^3^3^2950703^" ^XPD(9.6,1,1,1,0)="Install files needed to support Kernel 8.0. This package is" @@ -1211058,6 +1211058,100 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,11194,"REQB",0)="^9.611^1^1" ^XPD(9.6,11194,"REQB",1,0)="PSN*4.0*563^1" ^XPD(9.6,11194,"REQB","B","PSN*4.0*563",1)="" +^XPD(9.6,11195,0)="MAG*3.0*188^175^0^3180320^y" +^XPD(9.6,11195,1,0)="^9.61A^15^15^3180320^^^^" +^XPD(9.6,11195,1,1,0)="MAG*3.0*188" +^XPD(9.6,11195,1,2,0)="This patch will resolve the following issues for Clinical Display:" +^XPD(9.6,11195,1,3,0)="The ability to Show or Hide the Grid on the EKG Display and " +^XPD(9.6,11195,1,4,0)="while printing." +^XPD(9.6,11195,1,5,0)="The ability to select multiple EKG's for display and printing." +^XPD(9.6,11195,1,6,0)="The ability for a site to change the Format ID that is used" +^XPD(9.6,11195,1,7,0)="to generate the EKG Image." +^XPD(9.6,11195,1,8,0)="CT scrolling issue in the Radiology Viewer." +^XPD(9.6,11195,1,9,0)="This will check the routines from a BUILD file." +^XPD(9.6,11195,1,10,0)="Select BUILD NAME: MAG*3.0*188 IMAGING" +^XPD(9.6,11195,1,11,0)="MAGGTSYS value = 27028795" +^XPD(9.6,11195,1,12,0)="MAGGTU4D value = 5740596" +^XPD(9.6,11195,1,13,0)="MAGGTU4M value = 22884338" +^XPD(9.6,11195,1,14,0)="MAGIP188 value = 4692901" +^XPD(9.6,11195,1,15,0)="done" +^XPD(9.6,11195,4,0)="^9.64PA^2006.172^2" +^XPD(9.6,11195,4,2006.171,0)=2006.171 +^XPD(9.6,11195,4,2006.171,222)="y^y^f^^n^^y^o^n" +^XPD(9.6,11195,4,2006.172,0)=2006.172 +^XPD(9.6,11195,4,2006.172,222)="y^y^f^^^^n" +^XPD(9.6,11195,4,"B",2006.171,2006.171)="" +^XPD(9.6,11195,4,"B",2006.172,2006.172)="" +^XPD(9.6,11195,6.3)=61 +^XPD(9.6,11195,"ABNS",0)="^9.66A^^0" +^XPD(9.6,11195,"ABPKG")="n^n^G.IMAGING DEVELOPMENT TEAM@AADOMAIN.EXT" +^XPD(9.6,11195,"INI")="PRE^MAGIP188" +^XPD(9.6,11195,"INID")="n^y^n" +^XPD(9.6,11195,"INIT")="POS^MAGIP188" +^XPD(9.6,11195,"KRN",0)="^9.67PA^779.2^20" +^XPD(9.6,11195,"KRN",.4,0)=.4 +^XPD(9.6,11195,"KRN",.4,"NM",0)="^9.68A^^" +^XPD(9.6,11195,"KRN",.401,0)=.401 +^XPD(9.6,11195,"KRN",.402,0)=.402 +^XPD(9.6,11195,"KRN",.403,0)=.403 +^XPD(9.6,11195,"KRN",.5,0)=.5 +^XPD(9.6,11195,"KRN",.84,0)=.84 +^XPD(9.6,11195,"KRN",3.6,0)=3.6 +^XPD(9.6,11195,"KRN",3.8,0)=3.8 +^XPD(9.6,11195,"KRN",9.2,0)=9.2 +^XPD(9.6,11195,"KRN",9.8,0)=9.8 +^XPD(9.6,11195,"KRN",9.8,"NM",0)="^9.68A^5^4" +^XPD(9.6,11195,"KRN",9.8,"NM",2,0)="MAGGTU4D^^0^B5740596" +^XPD(9.6,11195,"KRN",9.8,"NM",3,0)="MAGIP188^^0^B4692901" +^XPD(9.6,11195,"KRN",9.8,"NM",4,0)="MAGGTU4M^^0^B22884338" +^XPD(9.6,11195,"KRN",9.8,"NM",5,0)="MAGGTSYS^^0^B27028795" +^XPD(9.6,11195,"KRN",9.8,"NM","B","MAGGTSYS",5)="" +^XPD(9.6,11195,"KRN",9.8,"NM","B","MAGGTU4D",2)="" +^XPD(9.6,11195,"KRN",9.8,"NM","B","MAGGTU4M",4)="" +^XPD(9.6,11195,"KRN",9.8,"NM","B","MAGIP188",3)="" +^XPD(9.6,11195,"KRN",19,0)=19 +^XPD(9.6,11195,"KRN",19,"NM",0)="^9.68A^^" +^XPD(9.6,11195,"KRN",19.1,0)=19.1 +^XPD(9.6,11195,"KRN",101,0)=101 +^XPD(9.6,11195,"KRN",409.61,0)=409.61 +^XPD(9.6,11195,"KRN",771,0)=771 +^XPD(9.6,11195,"KRN",779.2,0)=779.2 +^XPD(9.6,11195,"KRN",870,0)=870 +^XPD(9.6,11195,"KRN",8989.51,0)=8989.51 +^XPD(9.6,11195,"KRN",8989.52,0)=8989.52 +^XPD(9.6,11195,"KRN",8994,0)=8994 +^XPD(9.6,11195,"KRN",8994,"NM",0)="^9.68A^2^2" +^XPD(9.6,11195,"KRN",8994,"NM",1,0)="MAG5 GET MUSE TABLE^^0" +^XPD(9.6,11195,"KRN",8994,"NM",2,0)="MAG5 GET NETLOC INFO^^0" +^XPD(9.6,11195,"KRN",8994,"NM","B","MAG5 GET MUSE TABLE",1)="" +^XPD(9.6,11195,"KRN",8994,"NM","B","MAG5 GET NETLOC INFO",2)="" +^XPD(9.6,11195,"KRN","B",.4,.4)="" +^XPD(9.6,11195,"KRN","B",.401,.401)="" +^XPD(9.6,11195,"KRN","B",.402,.402)="" +^XPD(9.6,11195,"KRN","B",.403,.403)="" +^XPD(9.6,11195,"KRN","B",.5,.5)="" +^XPD(9.6,11195,"KRN","B",.84,.84)="" +^XPD(9.6,11195,"KRN","B",3.6,3.6)="" +^XPD(9.6,11195,"KRN","B",3.8,3.8)="" +^XPD(9.6,11195,"KRN","B",9.2,9.2)="" +^XPD(9.6,11195,"KRN","B",9.8,9.8)="" +^XPD(9.6,11195,"KRN","B",19,19)="" +^XPD(9.6,11195,"KRN","B",19.1,19.1)="" +^XPD(9.6,11195,"KRN","B",101,101)="" +^XPD(9.6,11195,"KRN","B",409.61,409.61)="" +^XPD(9.6,11195,"KRN","B",771,771)="" +^XPD(9.6,11195,"KRN","B",779.2,779.2)="" +^XPD(9.6,11195,"KRN","B",870,870)="" +^XPD(9.6,11195,"KRN","B",8989.51,8989.51)="" +^XPD(9.6,11195,"KRN","B",8989.52,8989.52)="" +^XPD(9.6,11195,"KRN","B",8994,8994)="" +^XPD(9.6,11195,"QDEF")="^^^^NO^^^^NO^^NO" +^XPD(9.6,11195,"QUES",0)="^9.62^^" +^XPD(9.6,11195,"REQB",0)="^9.611^2^2" +^XPD(9.6,11195,"REQB",1,0)="MAG*3.0*191^2" +^XPD(9.6,11195,"REQB",2,0)="MAG*3.0*185^2" +^XPD(9.6,11195,"REQB","B","MAG*3.0*185",2)="" +^XPD(9.6,11195,"REQB","B","MAG*3.0*191",1)="" ^XPD(9.6,"B","A4A7*1.01*10",1312)="" ^XPD(9.6,"B","A4A7*1.01*11",1900)="" ^XPD(9.6,"B","A4A7*1.01*9",339)="" @@ -1215303,6 +1215397,7 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,"B","MAG*3.0*184",10511)="" ^XPD(9.6,"B","MAG*3.0*185",10793)="" ^XPD(9.6,"B","MAG*3.0*186",10612)="" +^XPD(9.6,"B","MAG*3.0*188",11195)="" ^XPD(9.6,"B","MAG*3.0*189",10613)="" ^XPD(9.6,"B","MAG*3.0*19",4803)="" ^XPD(9.6,"B","MAG*3.0*190",10907)="" @@ -1231823,6 +1231918,7 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,"C",175,11144)="" ^XPD(9.6,"C",175,11148)="" ^XPD(9.6,"C",175,11153)="" +^XPD(9.6,"C",175,11195)="" ^XPD(9.6,"C",176,2321)="" ^XPD(9.6,"C",176,2829)="" ^XPD(9.6,"C",176,2830)="" diff --git a/Packages/Kernel/Globals/9.7+INSTALL.zwr b/Packages/Kernel/Globals/9.7+INSTALL.zwr index 3d54b6afe76..68b4324bcd2 100644 --- a/Packages/Kernel/Globals/9.7+INSTALL.zwr +++ b/Packages/Kernel/Globals/9.7+INSTALL.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: INSTALL -20-MAY-2019 00:07:47 ZWR -^XPD(9.7,0)="INSTALL^9.7I^10913^10771" +20-MAY-2019 01:09:47 ZWR +^XPD(9.7,0)="INSTALL^9.7I^10914^10772" ^XPD(9.7,1,0)="KERNEL - VIRGIN INSTALL 8.0^^2960531.10393^1^1^^^^3^0^.5" ^XPD(9.7,1,1)="2960604.094043^2960604.094043^2960604.094047" ^XPD(9.7,1,2)="Kernel 8.0 from ISC-SF by RSD ;Created on Jul 10, 1995@09:28:18" @@ -839339,6 +839339,88 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,10913,"RTN",2,0)="PSNPPSNU" ^XPD(9.7,10913,"RTN","B","PSN566PO",1)="" ^XPD(9.7,10913,"RTN","B","PSNPPSNU",2)="" +^XPD(9.7,10914,0)="MAG*3.0*188^175^3190520.010315^10914^1^^0^0MAG*3.0*188^3^0^17" +^XPD(9.7,10914,1)="3190520.01032^3190520.01032^3190520.01032^3180320" +^XPD(9.7,10914,2)="VistA Imaging V3 - Patch 188 - MUSE Viewer Issues. ;Created on Mar 20, 2018@13:22:40" +^XPD(9.7,10914,4,0)="^9.714P^2006.172^2" +^XPD(9.7,10914,4,2006.171,0)="2006.171^3190520.01032^3190520.01032" +^XPD(9.7,10914,4,2006.172,0)="2006.172^3190520.01032" +^XPD(9.7,10914,4,"B",2006.171,2006.171)="" +^XPD(9.7,10914,4,"B",2006.172,2006.172)="" +^XPD(9.7,10914,6)="" +^XPD(9.7,10914,"INI",0)="^9.713^2^2" +^XPD(9.7,10914,"INI",1,0)="XPD PREINSTALL COMPLETED^3190520.01032" +^XPD(9.7,10914,"INI",2,0)="XPD PREINSTALL STARTED^3190520.01032" +^XPD(9.7,10914,"INI",2,1)="PRE^MAGIP188" +^XPD(9.7,10914,"INI","B","XPD PREINSTALL COMPLETED",1)="" +^XPD(9.7,10914,"INI","B","XPD PREINSTALL STARTED",2)="" +^XPD(9.7,10914,"INIT",0)="^9.716^2^2" +^XPD(9.7,10914,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3190520.01032" +^XPD(9.7,10914,"INIT",2,0)="XPD POSTINSTALL STARTED^3190520.01032" +^XPD(9.7,10914,"INIT",2,1)="POS^MAGIP188" +^XPD(9.7,10914,"INIT","B","XPD POSTINSTALL COMPLETED",1)="" +^XPD(9.7,10914,"INIT","B","XPD POSTINSTALL STARTED",2)="" +^XPD(9.7,10914,"KRN",0)="^9.715P^8994^1" +^XPD(9.7,10914,"KRN",8994,0)="8994^3190520.01032^16" +^XPD(9.7,10914,"KRN","AC",16,8994)="" +^XPD(9.7,10914,"KRN","B",8994,8994)="" +^XPD(9.7,10914,"MES",0)="^^36^36^3190520" +^XPD(9.7,10914,"MES",1,0)=" " +^XPD(9.7,10914,"MES",2,0)=" Install Started for MAG*3.0*188 : " +^XPD(9.7,10914,"MES",3,0)=" May 20, 2019@01:03:20" +^XPD(9.7,10914,"MES",4,0)=" " +^XPD(9.7,10914,"MES",5,0)="Build Distribution Date: Mar 20, 2018" +^XPD(9.7,10914,"MES",6,0)=" " +^XPD(9.7,10914,"MES",7,0)=" Installing Routines:" +^XPD(9.7,10914,"MES",8,0)=" May 20, 2019@01:03:20" +^XPD(9.7,10914,"MES",9,0)=" " +^XPD(9.7,10914,"MES",10,0)=" Running Pre-Install Routine: PRE^MAGIP188" +^XPD(9.7,10914,"MES",11,0)=" " +^XPD(9.7,10914,"MES",12,0)=" Installing Data Dictionaries: " +^XPD(9.7,10914,"MES",13,0)=" May 20, 2019@01:03:20" +^XPD(9.7,10914,"MES",14,0)=" " +^XPD(9.7,10914,"MES",15,0)=" Installing Data: " +^XPD(9.7,10914,"MES",16,0)=" May 20, 2019@01:03:20" +^XPD(9.7,10914,"MES",17,0)=" " +^XPD(9.7,10914,"MES",18,0)=" Installing PACKAGE COMPONENTS: " +^XPD(9.7,10914,"MES",19,0)=" " +^XPD(9.7,10914,"MES",20,0)=" Installing REMOTE PROCEDURE" +^XPD(9.7,10914,"MES",21,0)=" May 20, 2019@01:03:20" +^XPD(9.7,10914,"MES",22,0)=" " +^XPD(9.7,10914,"MES",23,0)=" Running Post-Install Routine: POS^MAGIP188" +^XPD(9.7,10914,"MES",24,0)=" " +^XPD(9.7,10914,"MES",25,0)="Post Install Mail Message: May 20, 2019@01:03:20" +^XPD(9.7,10914,"MES",26,0)=" " +^XPD(9.7,10914,"MES",27,0)=" Updating Routine file..." +^XPD(9.7,10914,"MES",28,0)=" " +^XPD(9.7,10914,"MES",29,0)=" Updating KIDS files..." +^XPD(9.7,10914,"MES",30,0)=" " +^XPD(9.7,10914,"MES",31,0)=" MAG*3.0*188 Installed. " +^XPD(9.7,10914,"MES",32,0)=" May 20, 2019@01:03:20" +^XPD(9.7,10914,"MES",33,0)=" " +^XPD(9.7,10914,"MES",34,0)=" Not a production UCI" +^XPD(9.7,10914,"MES",35,0)=" " +^XPD(9.7,10914,"MES",36,0)=" NO Install Message sent " +^XPD(9.7,10914,"QUES",0)="^9.701^2^2" +^XPD(9.7,10914,"QUES",1,0)="XPI1" +^XPD(9.7,10914,"QUES",1,1)=0 +^XPD(9.7,10914,"QUES",1,"A")="Want KIDS to INHIBIT LOGONs during the install" +^XPD(9.7,10914,"QUES",1,"B")="NO" +^XPD(9.7,10914,"QUES",2,0)="XPZ1" +^XPD(9.7,10914,"QUES",2,1)=0 +^XPD(9.7,10914,"QUES",2,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols" +^XPD(9.7,10914,"QUES",2,"B")="NO" +^XPD(9.7,10914,"QUES","B","XPI1",1)="" +^XPD(9.7,10914,"QUES","B","XPZ1",2)="" +^XPD(9.7,10914,"RTN",0)="^9.704A^4^4" +^XPD(9.7,10914,"RTN",1,0)="MAGGTSYS" +^XPD(9.7,10914,"RTN",2,0)="MAGGTU4D" +^XPD(9.7,10914,"RTN",3,0)="MAGGTU4M" +^XPD(9.7,10914,"RTN",4,0)="MAGIP188" +^XPD(9.7,10914,"RTN","B","MAGGTSYS",1)="" +^XPD(9.7,10914,"RTN","B","MAGGTU4D",2)="" +^XPD(9.7,10914,"RTN","B","MAGGTU4M",3)="" +^XPD(9.7,10914,"RTN","B","MAGIP188",4)="" ^XPD(9.7,"ASP",1,1,1)="" ^XPD(9.7,"ASP",1,2,2)="" ^XPD(9.7,"ASP",3,1,3)="" @@ -850110,6 +850192,7 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,"ASP",10911,1,10911)="" ^XPD(9.7,"ASP",10912,1,10912)="" ^XPD(9.7,"ASP",10913,1,10913)="" +^XPD(9.7,"ASP",10914,1,10914)="" ^XPD(9.7,"B","A4A7*1.01*10",1037)="" ^XPD(9.7,"B","A4A7*1.01*11",1611)="" ^XPD(9.7,"B","A4A7*1.01*11",1631)="" @@ -854266,6 +854349,7 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,"B","MAG*3.0*184",10219)="" ^XPD(9.7,"B","MAG*3.0*185",10502)="" ^XPD(9.7,"B","MAG*3.0*186",10320)="" +^XPD(9.7,"B","MAG*3.0*188",10914)="" ^XPD(9.7,"B","MAG*3.0*189",10321)="" ^XPD(9.7,"B","MAG*3.0*19",4520)="" ^XPD(9.7,"B","MAG*3.0*190",10616)="" diff --git a/Packages/Kernel/Globals/9.8+ROUTINE.zwr b/Packages/Kernel/Globals/9.8+ROUTINE.zwr index 220959f5f58..0e5c62abdca 100644 --- a/Packages/Kernel/Globals/9.8+ROUTINE.zwr +++ b/Packages/Kernel/Globals/9.8+ROUTINE.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: ROUTINE -20-MAY-2019 00:05:12 ZWR -^DIC(9.8,0)="ROUTINE^9.8^35972^29042" +20-MAY-2019 01:07:10 ZWR +^DIC(9.8,0)="ROUTINE^9.8^35974^29044" ^DIC(9.8,0,"DD")="#" ^DIC(9.8,0,"DEL")="#" ^DIC(9.8,0,"GL")="^DIC(9.8," @@ -80171,7 +80171,7 @@ OSEHRA ZGO Export: ROUTINE ^DIC(9.8,21149,8,1,0)="COMPARE IMAGING 3.0^2638868/3661087" ^DIC(9.8,21149,8,"B","COMPARE IMAGING 3.0",1)="" ^DIC(9.8,21150,0)="MAGGTSYS^R" -^DIC(9.8,21150,4.1)=3180609.15205 +^DIC(9.8,21150,4.1)=3190520.01032 ^DIC(9.8,21150,8,0)="^9.818^1^1" ^DIC(9.8,21150,8,1,0)="COMPARE IMAGING 3.0^3773997/6873302" ^DIC(9.8,21150,8,"B","COMPARE IMAGING 3.0",1)="" @@ -105491,7 +105491,7 @@ OSEHRA ZGO Export: ROUTINE ^DIC(9.8,30190,0)="MAGGTU4C^R" ^DIC(9.8,30190,4.1)=3181202.034506 ^DIC(9.8,30191,0)="MAGGTU4D^R" -^DIC(9.8,30191,4.1)=3190518.054136 +^DIC(9.8,30191,4.1)=3190520.01032 ^DIC(9.8,30192,0)="MAGGTU4L^R" ^DIC(9.8,30192,4.1)=3121114.171559 ^DIC(9.8,30193,0)="MAGGTU4T^R" @@ -114614,6 +114614,10 @@ OSEHRA ZGO Export: ROUTINE ^DIC(9.8,35971,4.1)=3190519.215803 ^DIC(9.8,35972,0)="PSN566PO^R" ^DIC(9.8,35972,4.1)=3190520.000126 +^DIC(9.8,35973,0)="MAGGTU4M^R" +^DIC(9.8,35973,4.1)=3190520.01032 +^DIC(9.8,35974,0)="MAGIP188^R" +^DIC(9.8,35974,4.1)=3190520.01032 ^DIC(9.8,"%",0)="^1.005^1^1" ^DIC(9.8,"%",1,0)="XU" ^DIC(9.8,"%","B","XU",1)="" @@ -127728,6 +127732,7 @@ OSEHRA ZGO Export: ROUTINE ^DIC(9.8,"B","MAGGTU4C",30190)="" ^DIC(9.8,"B","MAGGTU4D",30191)="" ^DIC(9.8,"B","MAGGTU4L",30192)="" +^DIC(9.8,"B","MAGGTU4M",35973)="" ^DIC(9.8,"B","MAGGTU4T",30193)="" ^DIC(9.8,"B","MAGGTU5",21154)="" ^DIC(9.8,"B","MAGGTU6",21155)="" @@ -127762,6 +127767,7 @@ OSEHRA ZGO Export: ROUTINE ^DIC(9.8,"B","MAGIP183",35322)="" ^DIC(9.8,"B","MAGIP185",35460)="" ^DIC(9.8,"B","MAGIP186",35204)="" +^DIC(9.8,"B","MAGIP188",35974)="" ^DIC(9.8,"B","MAGIP189",35205)="" ^DIC(9.8,"B","MAGIP190",35562)="" ^DIC(9.8,"B","MAGIP191",35843)="" diff --git a/Packages/MailMan/Globals/3.9+MESSAGE.zwr b/Packages/MailMan/Globals/3.9+MESSAGE.zwr index c3e9c07cd87..8f2632c2ad2 100644 --- a/Packages/MailMan/Globals/3.9+MESSAGE.zwr +++ b/Packages/MailMan/Globals/3.9+MESSAGE.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: MESSAGE -20-MAY-2019 00:07:19 ZWR -^XMB(3.9,0)="MESSAGE^3.9s^283^283" +20-MAY-2019 01:09:23 ZWR +^XMB(3.9,0)="MESSAGE^3.9s^284^284" ^XMB(3.9,1,0)="PATCH OR*3*389 POSTINIT COMPLETED^PATCH OR*3*389 POSTINIT^3160526.130443" ^XMB(3.9,1,.6)=3160526 ^XMB(3.9,1,1,0)="^3.91A^2^2" @@ -46932,6 +46932,29 @@ OSEHRA ZGO Export: MESSAGE ^XMB(3.9,283,6,0)="^3.911A^1^1" ^XMB(3.9,283,6,1,0)="USER,SEVENTEEN" ^XMB(3.9,283,6,"B","USER,SEVENTEEN",1)="" +^XMB(3.9,284,0)="MAG*3.0*188 INSTALLATION^17^3190520.01032" +^XMB(3.9,284,.6)=3190520 +^XMB(3.9,284,1,0)="^3.91A^1^1" +^XMB(3.9,284,1,1,0)=17 +^XMB(3.9,284,1,"C",17,1)="" +^XMB(3.9,284,2,0)="^^14^14^3190520" +^XMB(3.9,284,2,1,0)="PACKAGE INSTALL" +^XMB(3.9,284,2,2,0)="SITE: FOIA.DOMAIN.EXT" +^XMB(3.9,284,2,3,0)=" Production Account: 0" +^XMB(3.9,284,2,4,0)="PACKAGE: MAG*3.0*188" +^XMB(3.9,284,2,5,0)="Version: 3.0" +^XMB(3.9,284,2,6,0)="Start time: May 20, 2019@01:03:20" +^XMB(3.9,284,2,7,0)="Completion time: May 20, 2019@01:03:20" +^XMB(3.9,284,2,8,0)="Run time: " +^XMB(3.9,284,2,9,0)="Environment: VISTA^VISTA^surkesh^VISTA:CACHE" +^XMB(3.9,284,2,10,0)="FILE COMMENT: VistA Imaging V3 - Patch 188 - MUSE Viewer Issues. ;Created on Mar 20, 2018@13:22:40" +^XMB(3.9,284,2,11,0)="DATE: 3190520.01032" +^XMB(3.9,284,2,12,0)="Installed by: USER,SEVENTEEN" +^XMB(3.9,284,2,13,0)="Install Name: MAG*3.0*188" +^XMB(3.9,284,2,14,0)="Distribution Date: Mar 20, 2018" +^XMB(3.9,284,6,0)="^3.911A^1^1" +^XMB(3.9,284,6,1,0)="USER,SEVENTEEN" +^XMB(3.9,284,6,"B","USER,SEVENTEEN",1)="" ^XMB(3.9,"B","050 PCE CODE MAPPING DATA FOR ",70)="" ^XMB(3.9,"B","DATA UPDATE FOR NDF",3)="" ^XMB(3.9,"B","DATA UPDATE FOR NDF",7)="" @@ -47093,6 +47116,7 @@ OSEHRA ZGO Export: MESSAGE ^XMB(3.9,"B","MAG*3.0*184 INSTALLATION",94)="" ^XMB(3.9,"B","MAG*3.0*185 INSTALLATION",170)="" ^XMB(3.9,"B","MAG*3.0*186 INSTALLATION",115)="" +^XMB(3.9,"B","MAG*3.0*188 INSTALLATION",284)="" ^XMB(3.9,"B","MAG*3.0*189 INSTALLATION",116)="" ^XMB(3.9,"B","MAG*3.0*191 INSTALLATION",281)="" ^XMB(3.9,"B","MAG*3.0*192 INSTALLATION",169)="" @@ -47498,3 +47522,4 @@ OSEHRA ZGO Export: MESSAGE ^XMB(3.9,"C",3190518,281)="" ^XMB(3.9,"C",3190518,282)="" ^XMB(3.9,"C",3190520,283)="" +^XMB(3.9,"C",3190520,284)="" diff --git a/Packages/MailMan/Globals/XMBPOST.zwr b/Packages/MailMan/Globals/XMBPOST.zwr index b2f07ee3f34..b82e472b6d0 100644 --- a/Packages/MailMan/Globals/XMBPOST.zwr +++ b/Packages/MailMan/Globals/XMBPOST.zwr @@ -1,5 +1,5 @@ OSEHRA ZGO Export: ^XMBPOST -20-MAY-2019 00:07:20 ZWR +20-MAY-2019 01:09:24 ZWR ^XMBPOST("BOX",5535176683,"M",1)="2^1" ^XMBPOST("BOX",5535176771,"M",2)="1^1" ^XMBPOST("BOX",5535176905,"M",3)="1^1" @@ -252,6 +252,7 @@ OSEHRA ZGO Export: ^XMBPOST ^XMBPOST("BOX",5629066896,"M",281)="1^1" ^XMBPOST("BOX",5629081683,"M",282)="1^1" ^XMBPOST("BOX",5629219286,"M",283)="1^1" +^XMBPOST("BOX",5629223000,"M",284)="1^1" ^XMBPOST("FWD","106^17^8260^5574136506",1)=17 ^XMBPOST("FWD","166^17^8072^5599418225",1)=17 ^XMBPOST("FWD","167^17^8072^5599418225",1)=17 diff --git a/Packages/RPC Broker/Globals/8994+REMOTE PROCEDURE.zwr b/Packages/RPC Broker/Globals/8994+REMOTE PROCEDURE.zwr index a70ca515d45..1769404e2db 100644 --- a/Packages/RPC Broker/Globals/8994+REMOTE PROCEDURE.zwr +++ b/Packages/RPC Broker/Globals/8994+REMOTE PROCEDURE.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: REMOTE PROCEDURE -19-MAY-2019 19:01:09 ZWR -^XWB(8994,0)="REMOTE PROCEDURE^8994^3821^3649" +20-MAY-2019 01:09:32 ZWR +^XWB(8994,0)="REMOTE PROCEDURE^8994^3823^3651" ^XWB(8994,1,0)="XWB EGCHO STRING^ECHO1^XWBZ1^1^R" ^XWB(8994,1,1,0)="^^2^2^2970825^^" ^XWB(8994,1,1,1,0)="This RPC receives a string which will be sent right back to the client." @@ -74589,6 +74589,46 @@ OSEHRA ZGO Export: REMOTE PROCEDURE ^XWB(8994,3821,2,"B","CODE",2)="" ^XWB(8994,3821,2,"B","DFN",1)="" ^XWB(8994,3821,2,"B","HANDLE",3)="" +^XWB(8994,3822,0)="MAG5 GET MUSE TABLE^TABLE^MAGGTU4M^2^R^^^1" +^XWB(8994,3822,1,0)="^8994.01^1^1^3180113^^^^" +^XWB(8994,3822,1,1,0)="This RPC will return entries from the MUSE FORMAT TABLE" +^XWB(8994,3822,2,0)="^8994.02A^1^1" +^XWB(8994,3822,2,1,0)="IEN^1^30^1^1" +^XWB(8994,3822,2,1,1,0)="^8994.021^8^8^3180113^^^^" +^XWB(8994,3822,2,1,1,1,0)="IEN=nnn, or IEN='SITE' or IEN='ALL'" +^XWB(8994,3822,2,1,1,2,0)=" nnn is the IEN from NETWORK LOCATION File for the MUSE System." +^XWB(8994,3822,2,1,1,3,0)=" If IEN=nnn then all entries in the MUSE FORMAT TABLE for" +^XWB(8994,3822,2,1,1,4,0)="that MUSE System will be returned." +^XWB(8994,3822,2,1,1,5,0)=" If IEN='SITE', then all entries in the MUSE FORMAT TABLE" +^XWB(8994,3822,2,1,1,6,0)=" File will be returned." +^XWB(8994,3822,2,1,1,7,0)=" If IEN='ALL' then all entries in the MUSE FORMAT TABLE" +^XWB(8994,3822,2,1,1,8,0)=" File will be returned. Including the Default Format IDs." +^XWB(8994,3822,2,"B","IEN",1)="" +^XWB(8994,3822,2,"PARAMSEQ",1,1)="" +^XWB(8994,3822,3,0)="^8994.03^7^7^3180113^^^^" +^XWB(8994,3822,3,1,0)="Array of entries in the MUSE FORMAT TABLE." +^XWB(8994,3822,3,2,0)="Format of each entry in the Array is : " +^XWB(8994,3822,3,3,0)=" Piece 1: NETWORK LOCATION Name" +^XWB(8994,3822,3,4,0)=" Piece 2: NETWORK LOCATION IEN" +^XWB(8994,3822,3,5,0)=" Piece 3: TEST TYPE" +^XWB(8994,3822,3,6,0)=" Piece 4: YES/NO if a Grid is displayed" +^XWB(8994,3822,3,7,0)=" Piece 5: Format ID Number" +^XWB(8994,3823,0)="MAG5 GET NETLOC INFO^NETLOC^MAGGTU4M^1^R" +^XWB(8994,3823,1,0)="^8994.01^3^3^3180105^^" +^XWB(8994,3823,1,1,0)="Returns a string of information from NETWORK LOCATION File." +^XWB(8994,3823,1,2,0)="Information includes:" +^XWB(8994,3823,1,3,0)="Description (.01), Physical Refernece (1), Operational Status (5)" +^XWB(8994,3823,2,0)="^8994.02A^1^1" +^XWB(8994,3823,2,1,0)="IEN^1^20^1^1" +^XWB(8994,3823,2,1,1,0)="^8994.021^1^1^3180105^^" +^XWB(8994,3823,2,1,1,1,0)="Internal Entry number for NETWORK LOCATION FILE." +^XWB(8994,3823,2,"B","IEN",1)="" +^XWB(8994,3823,2,"PARAMSEQ",1,1)="" +^XWB(8994,3823,3,0)="^8994.03^4^4^3180105^^" +^XWB(8994,3823,3,1,0)="String returned in format : " +^XWB(8994,3823,3,2,0)="Description ^ Physical Reference ^ Operational Status." +^XWB(8994,3823,3,3,0)=" example :" +^XWB(8994,3823,3,4,0)=" MUSE-9 ^ \\Server\Vol000\ ^ OnLine" ^XWB(8994,"B","ACKQAUD1",1578)="" ^XWB(8994,"B","ACKQAUD2",1579)="" ^XWB(8994,"B","ACKQAUD4",2095)="" @@ -75701,6 +75741,8 @@ OSEHRA ZGO Export: REMOTE PROCEDURE ^XWB(8994,"B","MAG4 VALIDATE DATA",1253)="" ^XWB(8994,"B","MAG4 VERSION CHECK",1123)="" ^XWB(8994,"B","MAG4 VERSION STATUS",2423)="" +^XWB(8994,"B","MAG5 GET MUSE TABLE",3822)="" +^XWB(8994,"B","MAG5 GET NETLOC INFO",3823)="" ^XWB(8994,"B","MAGD CR PARAMS",2359)="" ^XWB(8994,"B","MAGD CT PARAMS",2358)="" ^XWB(8994,"B","MAGDDR GETS ENTRY DATA",2768)="" diff --git a/Packages/VA FileMan/Globals/1+FILE.zwr b/Packages/VA FileMan/Globals/1+FILE.zwr index 30952de9527..60ebad11ed2 100644 --- a/Packages/VA FileMan/Globals/1+FILE.zwr +++ b/Packages/VA FileMan/Globals/1+FILE.zwr @@ -1,5 +1,5 @@ OSEHRA ZGO Export: FILE -19-MAY-2019 18:58:47 ZWR +20-MAY-2019 01:07:21 ZWR ^DIC(0)="FILE^1^9999999.41^2704" ^DIC(".11",0)="INDEX^.11" ^DIC(".11",0,"DD")="^" @@ -2804,7 +2804,7 @@ OSEHRA ZGO Export: FILE ^DIC("50.68","%D",8,0)="supported. " ^DIC("50.68","%D",9,0)=" " ^DIC("50.68","%D",10,0)="This file contains a list of available drug products." -^DIC("50.68","%MSC")=3180102.123414 +^DIC("50.68","%MSC")=3190519.225938 ^DIC("50.7",0)="PHARMACY ORDERABLE ITEM^50.7I" ^DIC("50.7",0,"DD")="@" ^DIC("50.7",0,"GL")="^PS(50.7," @@ -29961,6 +29961,54 @@ OSEHRA ZGO Export: FILE ^DIC("2006.17","%D",20,0)="for the Imaging Display software to perform certain actions based" ^DIC("2006.17","%D",21,0)="on the MUSE version installed at the site. This file will be updated " ^DIC("2006.17","%D",22,0)="as new MUSE versions are released. " +^DIC("2006.171",0)="MUSE TEST TYPES^2006.171" +^DIC("2006.171",0,"AUDIT")="@" +^DIC("2006.171",0,"DD")="@" +^DIC("2006.171",0,"DEL")="@" +^DIC("2006.171",0,"GL")="^MAG(2006.171," +^DIC("2006.171",0,"LAYGO")="@" +^DIC("2006.171",0,"RD")="@" +^DIC("2006.171",0,"WR")="@" +^DIC("2006.171","%D",0)="^1.001^7^7^3180113^^^^" +^DIC("2006.171","%D",1,0)="This file holds the list of MUSE Test Types that are used" +^DIC("2006.171","%D",2,0)="by the MUSE FORMAT TABLE File to map a Test Type to a " +^DIC("2006.171","%D",3,0)="MUSE Format ID number." +^DIC("2006.171","%D",4,0)="Sites can add new Test Types to this file if needed." +^DIC("2006.171","%D",5,0)="IMPORTANT:" +^DIC("2006.171","%D",6,0)="The TEXT of the Test Type that is entered into this file" +^DIC("2006.171","%D",7,0)="must EXACTLY Match the TEXT of the Test Type on the MUSE System." +^DIC("2006.171","%MSC")=3190520.01032 +^DIC("2006.172",0)="MUSE FORMAT TABLE^2006.172" +^DIC("2006.172",0,"AUDIT")="@" +^DIC("2006.172",0,"DD")="@" +^DIC("2006.172",0,"DEL")="@" +^DIC("2006.172",0,"GL")="^MAG(2006.172," +^DIC("2006.172",0,"LAYGO")="@" +^DIC("2006.172",0,"RD")="@" +^DIC("2006.172",0,"WR")="@" +^DIC("2006.172","%D",0)="^1.001^21^21^3180113^^^^" +^DIC("2006.172","%D",1,0)="This File is a mapping of MUSE Test Types to the MUSE Format ID number" +^DIC("2006.172","%D",2,0)="for a specified MUSE System." +^DIC("2006.172","%D",3,0)="The default Format IDs listed below are used by the MUSE System" +^DIC("2006.172","%D",4,0)="to compile the MUSE Test data, for the specified Test Type, into" +^DIC("2006.172","%D",5,0)="a PDF File for viewing." +^DIC("2006.172","%D",6,0)="The deafult Format IDs cannot be modified." +^DIC("2006.172","%D",7,0)="Sites can add entries to this file if any of the Default mappings" +^DIC("2006.172","%D",8,0)="of MUSE Test Types to MUSE Format IDs is not correct for a certain" +^DIC("2006.172","%D",9,0)="MUSE System." +^DIC("2006.172","%D",10,0)="If Site Specific Format ID's have been entered into the " +^DIC("2006.172","%D",11,0)="MUSE FORMAT TABLE, those Format ID's will override the defaults." +^DIC("2006.172","%D",12,0)="---------- Default mapping ----------------------" +^DIC("2006.172","%D",13,0)="Test Type Grid Format ID" +^DIC("2006.172","%D",14,0)="RestingECG Y 6" +^DIC("2006.172","%D",15,0)="Stress Y 7" +^DIC("2006.172","%D",16,0)="Holter Y 8" +^DIC("2006.172","%D",17,0)="HiRes Y 9" +^DIC("2006.172","%D",18,0)="RestingECG N 12" +^DIC("2006.172","%D",19,0)="HiRes N 13" +^DIC("2006.172","%D",20,0)="Stress N 14" +^DIC("2006.172","%D",21,0)="Holter N 15" +^DIC("2006.172","%MSC")=3190520.01032 ^DIC("2006.18",0)="IMAGING USER PREFERENCE^2006.18" ^DIC("2006.18",0,"AUDIT")="" ^DIC("2006.18",0,"DD")="@" @@ -39647,6 +39695,8 @@ OSEHRA ZGO Export: FILE ^DIC("B","MULTIPLE CHOICE FIELD","357.93")="" ^DIC("B","MULTIPLE DISTRIBUTION","421.1")="" ^DIC("B","MUMPS OPERATING SYSTEM",".7")="" +^DIC("B","MUSE FORMAT TABLE","2006.172")="" +^DIC("B","MUSE TEST TYPES","2006.171")="" ^DIC("B","MUSE VERSIONS","2006.17")="" ^DIC("B","NAME","680.4")="" ^DIC("B","NAME COMPONENTS",20)=""