diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr index ec2299246fd..e8ac223f05a 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 -25-NOV-2019 16:11:09 ZWR -^%ZTSK(-1)=5482 +25-NOV-2019 17:00:16 ZWR +^%ZTSK(-1)=5486 ^%ZTSK(0)="TASKS^14.4^5277" ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^" ^%ZTSK(1001,.02)="^PLA^^" @@ -52815,6 +52815,47 @@ OSEHRA ZGO Export: TASKS ^%ZTSK(5482,.3,"DUZ(",0)="@" ^%ZTSK(5482,.3,"XQSCH")=8 ^%ZTSK(5482,.3,"XQY")=9891 +^%ZTSK(5483,0)="HOUR^XUTMHR^.5^^65342,60928^65342,60928^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^" +^%ZTSK(5483,.02)="^VISTA^^" +^%ZTSK(5483,.03)="Taskman Hourly Job" +^%ZTSK(5483,.04)=5645609728 +^%ZTSK(5483,.1)="B^65342,60988^Task's volume set not listed in index.^^^^^^" +^%ZTSK(5483,.2)="" +^%ZTSK(5483,.21)="" +^%ZTSK(5483,.25)="" +^%ZTSK(5484,0)="ZTSK^XQ1^.5^VISTA^65342,60988^65342,60988^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(5484,.02)="^VISTA^^" +^%ZTSK(5484,.03)="No Description (%ZTLOAD)" +^%ZTSK(5484,.04)=5645609788 +^%ZTSK(5484,.1)="B^65342,60990^Task's volume set not listed in index.^^^^^^" +^%ZTSK(5484,.2)="" +^%ZTSK(5484,.21)="" +^%ZTSK(5484,.25)="" +^%ZTSK(5484,.3,"DUZ(",0)="@" +^%ZTSK(5484,.3,"XQSCH")=10 +^%ZTSK(5484,.3,"XQY")=8853 +^%ZTSK(5485,0)="ZTSK^XQ1^.5^VISTA^65342,60988^65342,60988^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(5485,.02)="^VISTA^^" +^%ZTSK(5485,.03)="No Description (%ZTLOAD)" +^%ZTSK(5485,.04)=5645609788 +^%ZTSK(5485,.1)="B^65342,60992^Task's volume set not listed in index.^^^^^^" +^%ZTSK(5485,.2)="" +^%ZTSK(5485,.21)="" +^%ZTSK(5485,.25)="" +^%ZTSK(5485,.3,"DUZ(",0)="@" +^%ZTSK(5485,.3,"XQSCH")=11 +^%ZTSK(5485,.3,"XQY")=8412 +^%ZTSK(5486,0)="ZTSK^XQ1^.5^VISTA^65342,60988^65342,60988^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(5486,.02)="^VISTA^^" +^%ZTSK(5486,.03)="No Description (%ZTLOAD)" +^%ZTSK(5486,.04)=5645609788 +^%ZTSK(5486,.1)="B^65342,60994^Task's volume set not listed in index.^^^^^^" +^%ZTSK(5486,.2)="" +^%ZTSK(5486,.21)="" +^%ZTSK(5486,.25)="" +^%ZTSK(5486,.3,"DUZ(",0)="@" +^%ZTSK(5486,.3,"XQSCH")=8 +^%ZTSK(5486,.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/9.4+PACKAGE.zwr b/Packages/Kernel/Globals/9.4+PACKAGE.zwr index b23befe8186..f2400ee5720 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 -25-NOV-2019 16:11:21 ZWR +25-NOV-2019 17:00:28 ZWR ^DIC(9.4,-1,"INI")="^2960819.165753" ^DIC(9.4,0)="PACKAGE^9.4I^232^144" ^DIC(9.4,0,"DD")="#" @@ -100884,7 +100884,7 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,48,14,"B","SC",1)="" ^DIC(9.4,48,22,0)="^9.49I^5.28^1" ^DIC(9.4,48,22,5.28,0)="5.3^3051119^2960613" -^DIC(9.4,48,22,5.28,"PAH",0)="^9.4901^522^522" +^DIC(9.4,48,22,5.28,"PAH",0)="^9.4901^523^523" ^DIC(9.4,48,22,5.28,"PAH",1,0)="42 SEQ #39^2960626^1" ^DIC(9.4,48,22,5.28,"PAH",1,1,0)="^^2^2^2960626" ^DIC(9.4,48,22,5.28,"PAH",1,1,1,0)="See National Patch Module (NPM) for a description of the contents of this" @@ -104243,6 +104243,302 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,48,22,5.28,"PAH",522,1,0)="^^2^2^3191125" ^DIC(9.4,48,22,5.28,"PAH",522,1,1,0)="CCRA-HSRM Scheduling HL7 Interfaces for processing Make" ^DIC(9.4,48,22,5.28,"PAH",522,1,2,0)="Appointment: SIU-S12, CANCEL: SIU-S15, and NOSHOW: SIU-S26 messages." +^DIC(9.4,48,22,5.28,"PAH",523,0)="717^3191125.165649^17" +^DIC(9.4,48,22,5.28,"PAH",523,1,0)="^^294^294^3191125" +^DIC(9.4,48,22,5.28,"PAH",523,1,1,0)="This patch corrects the problem of appointment processing in VistA" +^DIC(9.4,48,22,5.28,"PAH",523,1,2,0)="Scheduling (VS) GUI not invoking the event driver protocol (SDAM " +^DIC(9.4,48,22,5.28,"PAH",523,1,3,0)="APPOINTMENT" +^DIC(9.4,48,22,5.28,"PAH",523,1,4,0)="EVENTS) that roll and scroll VistA does. This protocol allows other apps" +^DIC(9.4,48,22,5.28,"PAH",523,1,5,0)="to tie functionality, including interfaces to external systems such as" +^DIC(9.4,48,22,5.28,"PAH",523,1,6,0)="Pyxis, Omnicell, and EDIS,to appointment events. Actions currently being" +^DIC(9.4,48,22,5.28,"PAH",523,1,7,0)="executed for appointment events in legacy VistA will also be executed for" +^DIC(9.4,48,22,5.28,"PAH",523,1,8,0)="appointments when those events (make appointment, check in, undo check in," +^DIC(9.4,48,22,5.28,"PAH",523,1,9,0)="check out, undo check out, cancel appointment, no show) are triggered by" +^DIC(9.4,48,22,5.28,"PAH",523,1,10,0)="the GUI. (However, this patch does not require a GUI update.)" +^DIC(9.4,48,22,5.28,"PAH",523,1,11,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,12,0)="Patch Components" +^DIC(9.4,48,22,5.28,"PAH",523,1,13,0)="================" +^DIC(9.4,48,22,5.28,"PAH",523,1,14,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,15,0)="Files & Fields Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,16,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,17,0)="File Name (#) New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,18,0)=" Sub-file Name (#) Field Name (Number) Deleted" +^DIC(9.4,48,22,5.28,"PAH",523,1,19,0)="------------------- --------------------------------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,20,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,21,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,22,0)="Bulletins Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,23,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,24,0)="Bulletin Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,25,0)="------------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,26,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,27,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,28,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,29,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,30,0)="Dialogs Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,31,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,32,0)="Dialog Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,33,0)="----------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,34,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,35,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,36,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,37,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,38,0)="Forms Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,39,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,40,0)="Form Name File Name (Number) Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,41,0)="--------- ------------------ -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,42,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,43,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,44,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,45,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,46,0)="Functions Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,47,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,48,0)="Function Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,49,0)="------------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,50,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,51,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,52,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,53,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,54,0)="HL Logical Link:" +^DIC(9.4,48,22,5.28,"PAH",523,1,55,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,56,0)="HL Logical Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,57,0)="--------------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,58,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,59,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,60,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,61,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,62,0)="HL7 Application Parameters:" +^DIC(9.4,48,22,5.28,"PAH",523,1,63,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,64,0)="HL7 Parameter Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,65,0)="------------------ -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,66,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,67,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,68,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,69,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,70,0)="HLO Application Registry:" +^DIC(9.4,48,22,5.28,"PAH",523,1,71,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,72,0)="HLO Registry Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,73,0)="----------------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,74,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,75,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,76,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,77,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,78,0)="Help Frames Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,79,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,80,0)="Help Frame Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,81,0)="--------------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,82,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,83,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,84,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,85,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,86,0)="Mail Groups Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,87,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,88,0)="Mail Group Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,89,0)="--------------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,90,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,91,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,92,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,93,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,94,0)="Options Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,95,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,96,0)="New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,97,0)="Option Name Type " +^DIC(9.4,48,22,5.28,"PAH",523,1,98,0)="Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,99,0)="----------- ---- " +^DIC(9.4,48,22,5.28,"PAH",523,1,100,0)="-------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,101,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,102,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,103,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,104,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,105,0)="Parameter Definitions:" +^DIC(9.4,48,22,5.28,"PAH",523,1,106,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,107,0)="Parameter Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,108,0)="-------------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,109,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,110,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,111,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,112,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,113,0)="Parameter Template:" +^DIC(9.4,48,22,5.28,"PAH",523,1,114,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,115,0)="Template Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,116,0)="------------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,117,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,118,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,119,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,120,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,121,0)="Protocols Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,122,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,123,0)="Protocol Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,124,0)="------------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,125,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,126,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,127,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,128,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,129,0)="Remote Procedures Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,130,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,131,0)="Remote Procedure Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,132,0)="--------------------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,133,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,134,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,135,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,136,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,137,0)="Security Keys Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,138,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,139,0)="Security Key Name Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,140,0)="----------------- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,141,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,142,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,143,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,144,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,145,0)="Templates, Input Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,146,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,147,0)="Template Name Type File Name (Number) Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,148,0)="------------- ---- ------------------ -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,149,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,150,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,151,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,152,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,153,0)="Templates, List Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,154,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,155,0)="Template Name Type Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,156,0)="------------- ---- -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,157,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,158,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,159,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,160,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,161,0)="Templates, Print Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,162,0)=" New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,163,0)="Template Name Type File Name (Number) Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,164,0)="------------- ---- ------------------ -------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,165,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,166,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,167,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,168,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,169,0)="Templates, Sort Associated:" +^DIC(9.4,48,22,5.28,"PAH",523,1,170,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,171,0)="New/Modified/" +^DIC(9.4,48,22,5.28,"PAH",523,1,172,0)="Template Name Type File Name (Number) " +^DIC(9.4,48,22,5.28,"PAH",523,1,173,0)="Deleted " +^DIC(9.4,48,22,5.28,"PAH",523,1,174,0)="------------- ---- ------------------ " +^DIC(9.4,48,22,5.28,"PAH",523,1,175,0)="-------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,176,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,177,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,178,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,179,0)="Additional Information:" +^DIC(9.4,48,22,5.28,"PAH",523,1,180,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,181,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,182,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,183,0)="New Service Requests (NSRs)" +^DIC(9.4,48,22,5.28,"PAH",523,1,184,0)="---------------------------- " +^DIC(9.4,48,22,5.28,"PAH",523,1,185,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,186,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,187,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,188,0)="Patient Safety Issues (PSIs)" +^DIC(9.4,48,22,5.28,"PAH",523,1,189,0)="-----------------------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,190,0)="N/A" +^DIC(9.4,48,22,5.28,"PAH",523,1,191,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,192,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,193,0)="ServiceNow Ticket(s) & Overview" +^DIC(9.4,48,22,5.28,"PAH",523,1,194,0)="-----------------------------------------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,195,0)="I17005764FY18 Pyxis and EDIS are not recognizing clinic check in actions" +^DIC(9.4,48,22,5.28,"PAH",523,1,196,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,197,0)="Problem:" +^DIC(9.4,48,22,5.28,"PAH",523,1,198,0)="-------" +^DIC(9.4,48,22,5.28,"PAH",523,1,199,0)="When a user performs appointment actions in VS GUI, downstream systems " +^DIC(9.4,48,22,5.28,"PAH",523,1,200,0)="such" +^DIC(9.4,48,22,5.28,"PAH",523,1,201,0)="as Pyxis (or other unit dosing devices, such as Omnicell) and EDIS are not" +^DIC(9.4,48,22,5.28,"PAH",523,1,202,0)="updated, whereas they are when the appointment actions are taken in legacy" +^DIC(9.4,48,22,5.28,"PAH",523,1,203,0)="VistA." +^DIC(9.4,48,22,5.28,"PAH",523,1,204,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,205,0)="Resolution:" +^DIC(9.4,48,22,5.28,"PAH",523,1,206,0)="----------" +^DIC(9.4,48,22,5.28,"PAH",523,1,207,0)="The GUI now invokes the SDAM APPOINTMENT EVENTS protocol just like legacy" +^DIC(9.4,48,22,5.28,"PAH",523,1,208,0)="VistA, meaning that the downstream systems will be notified in the same" +^DIC(9.4,48,22,5.28,"PAH",523,1,209,0)="way whether actions are taken on them in GUI or legacy." +^DIC(9.4,48,22,5.28,"PAH",523,1,210,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,211,0)="Test Sites:" +^DIC(9.4,48,22,5.28,"PAH",523,1,212,0)="----------" +^DIC(9.4,48,22,5.28,"PAH",523,1,213,0)="TBA" +^DIC(9.4,48,22,5.28,"PAH",523,1,214,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,215,0)="Software and Documentation Retrieval Instructions:" +^DIC(9.4,48,22,5.28,"PAH",523,1,216,0)="----------------------------------------------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,217,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,218,0)="Software being released as a host file and/or documentation describing" +^DIC(9.4,48,22,5.28,"PAH",523,1,219,0)="the new functionality introduced by this patch are available." +^DIC(9.4,48,22,5.28,"PAH",523,1,220,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,221,0)="The preferred method is to retrieve files from download.vista.domain.ext." +^DIC(9.4,48,22,5.28,"PAH",523,1,222,0)="This transmits the files from the first available server. Sites may" +^DIC(9.4,48,22,5.28,"PAH",523,1,223,0)="also elect to retrieve files directly from a specific server. " +^DIC(9.4,48,22,5.28,"PAH",523,1,224,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,225,0)="Sites may retrieve the software and/or documentation directly using " +^DIC(9.4,48,22,5.28,"PAH",523,1,226,0)="Secure File Transfer Protocol (SFTP) from the ANONYMOUS.SOFTWARE" +^DIC(9.4,48,22,5.28,"PAH",523,1,227,0)="directory at the following OI Field Offices:" +^DIC(9.4,48,22,5.28,"PAH",523,1,228,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,229,0)=" Hines: domain.ext" +^DIC(9.4,48,22,5.28,"PAH",523,1,230,0)=" Salt Lake City: domain.ext" +^DIC(9.4,48,22,5.28,"PAH",523,1,231,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,232,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,233,0)="Documentation can also be found on the VA Software Documentation Library " +^DIC(9.4,48,22,5.28,"PAH",523,1,234,0)="at:" +^DIC(9.4,48,22,5.28,"PAH",523,1,235,0)="http://www4.domain.ext/vdl/" +^DIC(9.4,48,22,5.28,"PAH",523,1,236,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,237,0)="Title File Name FTP Mode" +^DIC(9.4,48,22,5.28,"PAH",523,1,238,0)="--------------------------------------------------------------------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,239,0)="VistA Scheduling Enhancements GUI User Guide SCHEDULING_UG.PDF Binary" +^DIC(9.4,48,22,5.28,"PAH",523,1,240,0)="VistA Scheduling Enhancements Technical Manual SCHEDULING_TM.PDF Binary" +^DIC(9.4,48,22,5.28,"PAH",523,1,241,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,242,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,243,0)="Patch Installation:" +^DIC(9.4,48,22,5.28,"PAH",523,1,244,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,245,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,246,0)="Pre/Post Installation Overview" +^DIC(9.4,48,22,5.28,"PAH",523,1,247,0)="------------------------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,248,0)="There are no pre- or post-installation tasks for this patch." +^DIC(9.4,48,22,5.28,"PAH",523,1,249,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,250,0)="Installation Instructions" +^DIC(9.4,48,22,5.28,"PAH",523,1,251,0)="-------------------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,252,0)="Install Time - less than 5 minutes." +^DIC(9.4,48,22,5.28,"PAH",523,1,253,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,254,0)=" 1. Use the INSTALL/CHECK MESSAGE option on the PackMan menu." +^DIC(9.4,48,22,5.28,"PAH",523,1,255,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,256,0)=" 2. From the Kernel Installation & Distribution System menu, select" +^DIC(9.4,48,22,5.28,"PAH",523,1,257,0)=" the Installation menu." +^DIC(9.4,48,22,5.28,"PAH",523,1,258,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,259,0)=" 3. From this menu, you may select to use the following options" +^DIC(9.4,48,22,5.28,"PAH",523,1,260,0)=" (when prompted for INSTALL NAME, enter SD*5.3*717):" +^DIC(9.4,48,22,5.28,"PAH",523,1,261,0)=" a. Verify Checksums in Transport Global - This option will " +^DIC(9.4,48,22,5.28,"PAH",523,1,262,0)="allow" +^DIC(9.4,48,22,5.28,"PAH",523,1,263,0)=" you to ensure the integrity of the routines that are in the" +^DIC(9.4,48,22,5.28,"PAH",523,1,264,0)=" transport global." +^DIC(9.4,48,22,5.28,"PAH",523,1,265,0)=" b. Print Transport Global - This option will allow you to view" +^DIC(9.4,48,22,5.28,"PAH",523,1,266,0)=" the components of the KIDS build." +^DIC(9.4,48,22,5.28,"PAH",523,1,267,0)=" c. Compare Transport Global to Current System - This option " +^DIC(9.4,48,22,5.28,"PAH",523,1,268,0)="will" +^DIC(9.4,48,22,5.28,"PAH",523,1,269,0)=" allow you to view all changes that will be made when this " +^DIC(9.4,48,22,5.28,"PAH",523,1,270,0)=" patch is installed. It compares all components of this" +^DIC(9.4,48,22,5.28,"PAH",523,1,271,0)=" patch (routines, DD's, templates, etc.)." +^DIC(9.4,48,22,5.28,"PAH",523,1,272,0)=" d. Backup a Transport Global - This option will create a backup" +^DIC(9.4,48,22,5.28,"PAH",523,1,273,0)=" message of any routines exported with this patch. It will " +^DIC(9.4,48,22,5.28,"PAH",523,1,274,0)="not" +^DIC(9.4,48,22,5.28,"PAH",523,1,275,0)=" backup any other changes such as DD's or templates." +^DIC(9.4,48,22,5.28,"PAH",523,1,276,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,277,0)=" 4. Use the Install Package(s) option and select the package SD*5.3*717." +^DIC(9.4,48,22,5.28,"PAH",523,1,278,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,279,0)=" 5. When prompted ""Want KIDS to INHIBIT LOGONs during the install? NO//""" +^DIC(9.4,48,22,5.28,"PAH",523,1,280,0)=" respond NO." +^DIC(9.4,48,22,5.28,"PAH",523,1,281,0)=" 6. When prompted ""Want to DISABLE Scheduled Options, Menu Options, and" +^DIC(9.4,48,22,5.28,"PAH",523,1,282,0)=" Protocols? NO//"", respond NO" +^DIC(9.4,48,22,5.28,"PAH",523,1,283,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,284,0)="Back-Out/Roll Back Plan:" +^DIC(9.4,48,22,5.28,"PAH",523,1,285,0)="------------------------" +^DIC(9.4,48,22,5.28,"PAH",523,1,286,0)="In the event of a catastrophic failure, the Facility Chief Information " +^DIC(9.4,48,22,5.28,"PAH",523,1,287,0)="Officer may make the decision to back-out the patch." +^DIC(9.4,48,22,5.28,"PAH",523,1,288,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,289,0)="It is imperative that you have performed a backup of the routines and" +^DIC(9.4,48,22,5.28,"PAH",523,1,290,0)="the routines included matches the pre-patch checksum from the patch" +^DIC(9.4,48,22,5.28,"PAH",523,1,291,0)="description." +^DIC(9.4,48,22,5.28,"PAH",523,1,292,0)=" " +^DIC(9.4,48,22,5.28,"PAH",523,1,293,0)="This patch only contains routine updates. To back-out the patch please" +^DIC(9.4,48,22,5.28,"PAH",523,1,294,0)="restore the backup message from the patch installation process." ^DIC(9.4,48,22,5.28,"PAH","B",27,7)="" ^DIC(9.4,48,22,5.28,"PAH","B",41,3)="" ^DIC(9.4,48,22,5.28,"PAH","B",44,8)="" @@ -104347,6 +104643,7 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,48,22,5.28,"PAH","B",705,515)="" ^DIC(9.4,48,22,5.28,"PAH","B",707,522)="" ^DIC(9.4,48,22,5.28,"PAH","B",713,519)="" +^DIC(9.4,48,22,5.28,"PAH","B",717,523)="" ^DIC(9.4,48,22,5.28,"PAH","B",719,514)="" ^DIC(9.4,48,22,5.28,"PAH","B",721,518)="" ^DIC(9.4,48,22,5.28,"PAH","B",724,520)="" diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr index df09ed89721..8e12f962e2a 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 -25-NOV-2019 16:11:18 ZWR -^XPD(9.6,0)="BUILD^9.6I^11413^11053" +25-NOV-2019 17:00:25 ZWR +^XPD(9.6,0)="BUILD^9.6I^11414^11054" ^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" @@ -1230113,6 +1230113,379 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,11413,"REQB",2,0)="GMRC*3.0*106^2" ^XPD(9.6,11413,"REQB","B","GMRC*3.0*106",2)=" " ^XPD(9.6,11413,"REQB","B","GMRC*3.0*99",1)=" " +^XPD(9.6,11414,0)="SD*5.3*717^48^0^3190620^y" +^XPD(9.6,11414,1,0)="^^294^294^3181106^" +^XPD(9.6,11414,1,1,0)="This patch corrects the problem of appointment processing in VistA" +^XPD(9.6,11414,1,2,0)="Scheduling (VS) GUI not invoking the event driver protocol (SDAM " +^XPD(9.6,11414,1,3,0)="APPOINTMENT" +^XPD(9.6,11414,1,4,0)="EVENTS) that roll and scroll VistA does. This protocol allows other apps" +^XPD(9.6,11414,1,5,0)="to tie functionality, including interfaces to external systems such as" +^XPD(9.6,11414,1,6,0)="Pyxis, Omnicell, and EDIS,to appointment events. Actions currently being" +^XPD(9.6,11414,1,7,0)="executed for appointment events in legacy VistA will also be executed for" +^XPD(9.6,11414,1,8,0)="appointments when those events (make appointment, check in, undo check in," +^XPD(9.6,11414,1,9,0)="check out, undo check out, cancel appointment, no show) are triggered by" +^XPD(9.6,11414,1,10,0)="the GUI. (However, this patch does not require a GUI update.)" +^XPD(9.6,11414,1,11,0)=" " +^XPD(9.6,11414,1,12,0)="Patch Components" +^XPD(9.6,11414,1,13,0)="================" +^XPD(9.6,11414,1,14,0)=" " +^XPD(9.6,11414,1,15,0)="Files & Fields Associated:" +^XPD(9.6,11414,1,16,0)=" " +^XPD(9.6,11414,1,17,0)="File Name (#) New/Modified/" +^XPD(9.6,11414,1,18,0)=" Sub-file Name (#) Field Name (Number) Deleted" +^XPD(9.6,11414,1,19,0)="------------------- --------------------------------- -------------" +^XPD(9.6,11414,1,20,0)="N/A" +^XPD(9.6,11414,1,21,0)=" " +^XPD(9.6,11414,1,22,0)="Bulletins Associated:" +^XPD(9.6,11414,1,23,0)=" New/Modified/" +^XPD(9.6,11414,1,24,0)="Bulletin Name Deleted " +^XPD(9.6,11414,1,25,0)="------------- -------------" +^XPD(9.6,11414,1,26,0)="N/A" +^XPD(9.6,11414,1,27,0)=" " +^XPD(9.6,11414,1,28,0)=" " +^XPD(9.6,11414,1,29,0)=" " +^XPD(9.6,11414,1,30,0)="Dialogs Associated:" +^XPD(9.6,11414,1,31,0)=" New/Modified/" +^XPD(9.6,11414,1,32,0)="Dialog Name Deleted " +^XPD(9.6,11414,1,33,0)="----------- -------------" +^XPD(9.6,11414,1,34,0)="N/A" +^XPD(9.6,11414,1,35,0)=" " +^XPD(9.6,11414,1,36,0)=" " +^XPD(9.6,11414,1,37,0)=" " +^XPD(9.6,11414,1,38,0)="Forms Associated:" +^XPD(9.6,11414,1,39,0)=" New/Modified/" +^XPD(9.6,11414,1,40,0)="Form Name File Name (Number) Deleted " +^XPD(9.6,11414,1,41,0)="--------- ------------------ -------------" +^XPD(9.6,11414,1,42,0)="N/A" +^XPD(9.6,11414,1,43,0)=" " +^XPD(9.6,11414,1,44,0)=" " +^XPD(9.6,11414,1,45,0)=" " +^XPD(9.6,11414,1,46,0)="Functions Associated:" +^XPD(9.6,11414,1,47,0)=" New/Modified/" +^XPD(9.6,11414,1,48,0)="Function Name Deleted " +^XPD(9.6,11414,1,49,0)="------------- -------------" +^XPD(9.6,11414,1,50,0)="N/A" +^XPD(9.6,11414,1,51,0)=" " +^XPD(9.6,11414,1,52,0)=" " +^XPD(9.6,11414,1,53,0)=" " +^XPD(9.6,11414,1,54,0)="HL Logical Link:" +^XPD(9.6,11414,1,55,0)=" New/Modified/" +^XPD(9.6,11414,1,56,0)="HL Logical Name Deleted " +^XPD(9.6,11414,1,57,0)="--------------- -------------" +^XPD(9.6,11414,1,58,0)="N/A" +^XPD(9.6,11414,1,59,0)=" " +^XPD(9.6,11414,1,60,0)=" " +^XPD(9.6,11414,1,61,0)=" " +^XPD(9.6,11414,1,62,0)="HL7 Application Parameters:" +^XPD(9.6,11414,1,63,0)=" New/Modified/" +^XPD(9.6,11414,1,64,0)="HL7 Parameter Name Deleted " +^XPD(9.6,11414,1,65,0)="------------------ -------------" +^XPD(9.6,11414,1,66,0)="N/A" +^XPD(9.6,11414,1,67,0)=" " +^XPD(9.6,11414,1,68,0)=" " +^XPD(9.6,11414,1,69,0)=" " +^XPD(9.6,11414,1,70,0)="HLO Application Registry:" +^XPD(9.6,11414,1,71,0)=" New/Modified/" +^XPD(9.6,11414,1,72,0)="HLO Registry Name Deleted " +^XPD(9.6,11414,1,73,0)="----------------- -------------" +^XPD(9.6,11414,1,74,0)="N/A" +^XPD(9.6,11414,1,75,0)=" " +^XPD(9.6,11414,1,76,0)=" " +^XPD(9.6,11414,1,77,0)=" " +^XPD(9.6,11414,1,78,0)="Help Frames Associated:" +^XPD(9.6,11414,1,79,0)=" New/Modified/" +^XPD(9.6,11414,1,80,0)="Help Frame Name Deleted " +^XPD(9.6,11414,1,81,0)="--------------- -------------" +^XPD(9.6,11414,1,82,0)="N/A" +^XPD(9.6,11414,1,83,0)=" " +^XPD(9.6,11414,1,84,0)=" " +^XPD(9.6,11414,1,85,0)=" " +^XPD(9.6,11414,1,86,0)="Mail Groups Associated:" +^XPD(9.6,11414,1,87,0)=" New/Modified/" +^XPD(9.6,11414,1,88,0)="Mail Group Name Deleted " +^XPD(9.6,11414,1,89,0)="--------------- -------------" +^XPD(9.6,11414,1,90,0)="N/A" +^XPD(9.6,11414,1,91,0)=" " +^XPD(9.6,11414,1,92,0)=" " +^XPD(9.6,11414,1,93,0)=" " +^XPD(9.6,11414,1,94,0)="Options Associated:" +^XPD(9.6,11414,1,95,0)=" " +^XPD(9.6,11414,1,96,0)="New/Modified/" +^XPD(9.6,11414,1,97,0)="Option Name Type " +^XPD(9.6,11414,1,98,0)="Deleted " +^XPD(9.6,11414,1,99,0)="----------- ---- " +^XPD(9.6,11414,1,100,0)="-------------" +^XPD(9.6,11414,1,101,0)="N/A" +^XPD(9.6,11414,1,102,0)=" " +^XPD(9.6,11414,1,103,0)=" " +^XPD(9.6,11414,1,104,0)=" " +^XPD(9.6,11414,1,105,0)="Parameter Definitions:" +^XPD(9.6,11414,1,106,0)=" New/Modified/" +^XPD(9.6,11414,1,107,0)="Parameter Name Deleted " +^XPD(9.6,11414,1,108,0)="-------------- -------------" +^XPD(9.6,11414,1,109,0)="N/A" +^XPD(9.6,11414,1,110,0)=" " +^XPD(9.6,11414,1,111,0)=" " +^XPD(9.6,11414,1,112,0)=" " +^XPD(9.6,11414,1,113,0)="Parameter Template:" +^XPD(9.6,11414,1,114,0)=" New/Modified/" +^XPD(9.6,11414,1,115,0)="Template Name Deleted " +^XPD(9.6,11414,1,116,0)="------------- -------------" +^XPD(9.6,11414,1,117,0)="N/A" +^XPD(9.6,11414,1,118,0)=" " +^XPD(9.6,11414,1,119,0)=" " +^XPD(9.6,11414,1,120,0)=" " +^XPD(9.6,11414,1,121,0)="Protocols Associated:" +^XPD(9.6,11414,1,122,0)=" New/Modified/" +^XPD(9.6,11414,1,123,0)="Protocol Name Deleted " +^XPD(9.6,11414,1,124,0)="------------- -------------" +^XPD(9.6,11414,1,125,0)="N/A" +^XPD(9.6,11414,1,126,0)=" " +^XPD(9.6,11414,1,127,0)=" " +^XPD(9.6,11414,1,128,0)=" " +^XPD(9.6,11414,1,129,0)="Remote Procedures Associated:" +^XPD(9.6,11414,1,130,0)=" New/Modified/" +^XPD(9.6,11414,1,131,0)="Remote Procedure Name Deleted " +^XPD(9.6,11414,1,132,0)="--------------------- -------------" +^XPD(9.6,11414,1,133,0)="N/A" +^XPD(9.6,11414,1,134,0)=" " +^XPD(9.6,11414,1,135,0)=" " +^XPD(9.6,11414,1,136,0)=" " +^XPD(9.6,11414,1,137,0)="Security Keys Associated:" +^XPD(9.6,11414,1,138,0)=" New/Modified/" +^XPD(9.6,11414,1,139,0)="Security Key Name Deleted " +^XPD(9.6,11414,1,140,0)="----------------- -------------" +^XPD(9.6,11414,1,141,0)="N/A" +^XPD(9.6,11414,1,142,0)=" " +^XPD(9.6,11414,1,143,0)=" " +^XPD(9.6,11414,1,144,0)=" " +^XPD(9.6,11414,1,145,0)="Templates, Input Associated:" +^XPD(9.6,11414,1,146,0)=" New/Modified/" +^XPD(9.6,11414,1,147,0)="Template Name Type File Name (Number) Deleted " +^XPD(9.6,11414,1,148,0)="------------- ---- ------------------ -------------" +^XPD(9.6,11414,1,149,0)="N/A" +^XPD(9.6,11414,1,150,0)=" " +^XPD(9.6,11414,1,151,0)=" " +^XPD(9.6,11414,1,152,0)=" " +^XPD(9.6,11414,1,153,0)="Templates, List Associated:" +^XPD(9.6,11414,1,154,0)=" New/Modified/" +^XPD(9.6,11414,1,155,0)="Template Name Type Deleted " +^XPD(9.6,11414,1,156,0)="------------- ---- -------------" +^XPD(9.6,11414,1,157,0)="N/A" +^XPD(9.6,11414,1,158,0)=" " +^XPD(9.6,11414,1,159,0)=" " +^XPD(9.6,11414,1,160,0)=" " +^XPD(9.6,11414,1,161,0)="Templates, Print Associated:" +^XPD(9.6,11414,1,162,0)=" New/Modified/" +^XPD(9.6,11414,1,163,0)="Template Name Type File Name (Number) Deleted " +^XPD(9.6,11414,1,164,0)="------------- ---- ------------------ -------------" +^XPD(9.6,11414,1,165,0)="N/A" +^XPD(9.6,11414,1,166,0)=" " +^XPD(9.6,11414,1,167,0)=" " +^XPD(9.6,11414,1,168,0)=" " +^XPD(9.6,11414,1,169,0)="Templates, Sort Associated:" +^XPD(9.6,11414,1,170,0)=" " +^XPD(9.6,11414,1,171,0)="New/Modified/" +^XPD(9.6,11414,1,172,0)="Template Name Type File Name (Number) " +^XPD(9.6,11414,1,173,0)="Deleted " +^XPD(9.6,11414,1,174,0)="------------- ---- ------------------ " +^XPD(9.6,11414,1,175,0)="-------------" +^XPD(9.6,11414,1,176,0)="N/A" +^XPD(9.6,11414,1,177,0)=" " +^XPD(9.6,11414,1,178,0)=" " +^XPD(9.6,11414,1,179,0)="Additional Information:" +^XPD(9.6,11414,1,180,0)="N/A" +^XPD(9.6,11414,1,181,0)=" " +^XPD(9.6,11414,1,182,0)=" " +^XPD(9.6,11414,1,183,0)="New Service Requests (NSRs)" +^XPD(9.6,11414,1,184,0)="---------------------------- " +^XPD(9.6,11414,1,185,0)="N/A" +^XPD(9.6,11414,1,186,0)=" " +^XPD(9.6,11414,1,187,0)=" " +^XPD(9.6,11414,1,188,0)="Patient Safety Issues (PSIs)" +^XPD(9.6,11414,1,189,0)="-----------------------------" +^XPD(9.6,11414,1,190,0)="N/A" +^XPD(9.6,11414,1,191,0)=" " +^XPD(9.6,11414,1,192,0)=" " +^XPD(9.6,11414,1,193,0)="ServiceNow Ticket(s) & Overview" +^XPD(9.6,11414,1,194,0)="-----------------------------------------------" +^XPD(9.6,11414,1,195,0)="I17005764FY18 Pyxis and EDIS are not recognizing clinic check in actions" +^XPD(9.6,11414,1,196,0)=" " +^XPD(9.6,11414,1,197,0)="Problem:" +^XPD(9.6,11414,1,198,0)="-------" +^XPD(9.6,11414,1,199,0)="When a user performs appointment actions in VS GUI, downstream systems " +^XPD(9.6,11414,1,200,0)="such" +^XPD(9.6,11414,1,201,0)="as Pyxis (or other unit dosing devices, such as Omnicell) and EDIS are not" +^XPD(9.6,11414,1,202,0)="updated, whereas they are when the appointment actions are taken in legacy" +^XPD(9.6,11414,1,203,0)="VistA." +^XPD(9.6,11414,1,204,0)=" " +^XPD(9.6,11414,1,205,0)="Resolution:" +^XPD(9.6,11414,1,206,0)="----------" +^XPD(9.6,11414,1,207,0)="The GUI now invokes the SDAM APPOINTMENT EVENTS protocol just like legacy" +^XPD(9.6,11414,1,208,0)="VistA, meaning that the downstream systems will be notified in the same" +^XPD(9.6,11414,1,209,0)="way whether actions are taken on them in GUI or legacy." +^XPD(9.6,11414,1,210,0)=" " +^XPD(9.6,11414,1,211,0)="Test Sites:" +^XPD(9.6,11414,1,212,0)="----------" +^XPD(9.6,11414,1,213,0)="TBA" +^XPD(9.6,11414,1,214,0)=" " +^XPD(9.6,11414,1,215,0)="Software and Documentation Retrieval Instructions:" +^XPD(9.6,11414,1,216,0)="----------------------------------------------------" +^XPD(9.6,11414,1,217,0)=" " +^XPD(9.6,11414,1,218,0)="Software being released as a host file and/or documentation describing" +^XPD(9.6,11414,1,219,0)="the new functionality introduced by this patch are available." +^XPD(9.6,11414,1,220,0)=" " +^XPD(9.6,11414,1,221,0)="The preferred method is to retrieve files from download.vista.domain.ext." +^XPD(9.6,11414,1,222,0)="This transmits the files from the first available server. Sites may" +^XPD(9.6,11414,1,223,0)="also elect to retrieve files directly from a specific server. " +^XPD(9.6,11414,1,224,0)=" " +^XPD(9.6,11414,1,225,0)="Sites may retrieve the software and/or documentation directly using " +^XPD(9.6,11414,1,226,0)="Secure File Transfer Protocol (SFTP) from the ANONYMOUS.SOFTWARE" +^XPD(9.6,11414,1,227,0)="directory at the following OI Field Offices:" +^XPD(9.6,11414,1,228,0)=" " +^XPD(9.6,11414,1,229,0)=" Hines: domain.ext" +^XPD(9.6,11414,1,230,0)=" Salt Lake City: domain.ext" +^XPD(9.6,11414,1,231,0)=" " +^XPD(9.6,11414,1,232,0)=" " +^XPD(9.6,11414,1,233,0)="Documentation can also be found on the VA Software Documentation Library " +^XPD(9.6,11414,1,234,0)="at:" +^XPD(9.6,11414,1,235,0)="http://www4.domain.ext/vdl/" +^XPD(9.6,11414,1,236,0)=" " +^XPD(9.6,11414,1,237,0)="Title File Name FTP Mode" +^XPD(9.6,11414,1,238,0)="--------------------------------------------------------------------------" +^XPD(9.6,11414,1,239,0)="VistA Scheduling Enhancements GUI User Guide SCHEDULING_UG.PDF Binary" +^XPD(9.6,11414,1,240,0)="VistA Scheduling Enhancements Technical Manual SCHEDULING_TM.PDF Binary" +^XPD(9.6,11414,1,241,0)=" " +^XPD(9.6,11414,1,242,0)=" " +^XPD(9.6,11414,1,243,0)="Patch Installation:" +^XPD(9.6,11414,1,244,0)=" " +^XPD(9.6,11414,1,245,0)=" " +^XPD(9.6,11414,1,246,0)="Pre/Post Installation Overview" +^XPD(9.6,11414,1,247,0)="------------------------------" +^XPD(9.6,11414,1,248,0)="There are no pre- or post-installation tasks for this patch." +^XPD(9.6,11414,1,249,0)=" " +^XPD(9.6,11414,1,250,0)="Installation Instructions" +^XPD(9.6,11414,1,251,0)="-------------------------" +^XPD(9.6,11414,1,252,0)="Install Time - less than 5 minutes." +^XPD(9.6,11414,1,253,0)=" " +^XPD(9.6,11414,1,254,0)=" 1. Use the INSTALL/CHECK MESSAGE option on the PackMan menu." +^XPD(9.6,11414,1,255,0)=" " +^XPD(9.6,11414,1,256,0)=" 2. From the Kernel Installation & Distribution System menu, select" +^XPD(9.6,11414,1,257,0)=" the Installation menu." +^XPD(9.6,11414,1,258,0)=" " +^XPD(9.6,11414,1,259,0)=" 3. From this menu, you may select to use the following options" +^XPD(9.6,11414,1,260,0)=" (when prompted for INSTALL NAME, enter SD*5.3*717):" +^XPD(9.6,11414,1,261,0)=" a. Verify Checksums in Transport Global - This option will " +^XPD(9.6,11414,1,262,0)="allow" +^XPD(9.6,11414,1,263,0)=" you to ensure the integrity of the routines that are in the" +^XPD(9.6,11414,1,264,0)=" transport global." +^XPD(9.6,11414,1,265,0)=" b. Print Transport Global - This option will allow you to view" +^XPD(9.6,11414,1,266,0)=" the components of the KIDS build." +^XPD(9.6,11414,1,267,0)=" c. Compare Transport Global to Current System - This option " +^XPD(9.6,11414,1,268,0)="will" +^XPD(9.6,11414,1,269,0)=" allow you to view all changes that will be made when this " +^XPD(9.6,11414,1,270,0)=" patch is installed. It compares all components of this" +^XPD(9.6,11414,1,271,0)=" patch (routines, DD's, templates, etc.)." +^XPD(9.6,11414,1,272,0)=" d. Backup a Transport Global - This option will create a backup" +^XPD(9.6,11414,1,273,0)=" message of any routines exported with this patch. It will " +^XPD(9.6,11414,1,274,0)="not" +^XPD(9.6,11414,1,275,0)=" backup any other changes such as DD's or templates." +^XPD(9.6,11414,1,276,0)=" " +^XPD(9.6,11414,1,277,0)=" 4. Use the Install Package(s) option and select the package SD*5.3*717." +^XPD(9.6,11414,1,278,0)=" " +^XPD(9.6,11414,1,279,0)=" 5. When prompted ""Want KIDS to INHIBIT LOGONs during the install? NO//""" +^XPD(9.6,11414,1,280,0)=" respond NO." +^XPD(9.6,11414,1,281,0)=" 6. When prompted ""Want to DISABLE Scheduled Options, Menu Options, and" +^XPD(9.6,11414,1,282,0)=" Protocols? NO//"", respond NO" +^XPD(9.6,11414,1,283,0)=" " +^XPD(9.6,11414,1,284,0)="Back-Out/Roll Back Plan:" +^XPD(9.6,11414,1,285,0)="------------------------" +^XPD(9.6,11414,1,286,0)="In the event of a catastrophic failure, the Facility Chief Information " +^XPD(9.6,11414,1,287,0)="Officer may make the decision to back-out the patch." +^XPD(9.6,11414,1,288,0)=" " +^XPD(9.6,11414,1,289,0)="It is imperative that you have performed a backup of the routines and" +^XPD(9.6,11414,1,290,0)="the routines included matches the pre-patch checksum from the patch" +^XPD(9.6,11414,1,291,0)="description." +^XPD(9.6,11414,1,292,0)=" " +^XPD(9.6,11414,1,293,0)="This patch only contains routine updates. To back-out the patch please" +^XPD(9.6,11414,1,294,0)="restore the backup message from the patch installation process." +^XPD(9.6,11414,4,0)="^9.64PA^^" +^XPD(9.6,11414,6)="5^" +^XPD(9.6,11414,6.3)=12 +^XPD(9.6,11414,"KRN",0)="^9.67PA^1.61^23" +^XPD(9.6,11414,"KRN",.4,0)=.4 +^XPD(9.6,11414,"KRN",.401,0)=.401 +^XPD(9.6,11414,"KRN",.402,0)=.402 +^XPD(9.6,11414,"KRN",.403,0)=.403 +^XPD(9.6,11414,"KRN",.5,0)=.5 +^XPD(9.6,11414,"KRN",.84,0)=.84 +^XPD(9.6,11414,"KRN",1.6,0)=1.6 +^XPD(9.6,11414,"KRN",1.61,0)=1.61 +^XPD(9.6,11414,"KRN",1.62,0)=1.62 +^XPD(9.6,11414,"KRN",3.6,0)=3.6 +^XPD(9.6,11414,"KRN",3.8,0)=3.8 +^XPD(9.6,11414,"KRN",9.2,0)=9.2 +^XPD(9.6,11414,"KRN",9.8,0)=9.8 +^XPD(9.6,11414,"KRN",9.8,"NM",0)="^9.68A^8^7" +^XPD(9.6,11414,"KRN",9.8,"NM",1,0)="SDAMEVT^^0^B32857672" +^XPD(9.6,11414,"KRN",9.8,"NM",2,0)="SDCO3^^0^B4283789" +^XPD(9.6,11414,"KRN",9.8,"NM",3,0)="SDCODEL^^0^B14749068" +^XPD(9.6,11414,"KRN",9.8,"NM",4,0)="SDEC07B^^0^B86344811" +^XPD(9.6,11414,"KRN",9.8,"NM",5,0)="SDEC08^^0^B217036692" +^XPD(9.6,11414,"KRN",9.8,"NM",6,0)="SDEC25^^0^B151472805" +^XPD(9.6,11414,"KRN",9.8,"NM",8,0)="SDEC31^^0^B34969907" +^XPD(9.6,11414,"KRN",9.8,"NM","B","SDAMEVT",1)="" +^XPD(9.6,11414,"KRN",9.8,"NM","B","SDCO3",2)="" +^XPD(9.6,11414,"KRN",9.8,"NM","B","SDCODEL",3)="" +^XPD(9.6,11414,"KRN",9.8,"NM","B","SDEC07B",4)="" +^XPD(9.6,11414,"KRN",9.8,"NM","B","SDEC08",5)="" +^XPD(9.6,11414,"KRN",9.8,"NM","B","SDEC25",6)="" +^XPD(9.6,11414,"KRN",9.8,"NM","B","SDEC31",8)="" +^XPD(9.6,11414,"KRN",19,0)=19 +^XPD(9.6,11414,"KRN",19.1,0)=19.1 +^XPD(9.6,11414,"KRN",101,0)=101 +^XPD(9.6,11414,"KRN",409.61,0)=409.61 +^XPD(9.6,11414,"KRN",771,0)=771 +^XPD(9.6,11414,"KRN",779.2,0)=779.2 +^XPD(9.6,11414,"KRN",870,0)=870 +^XPD(9.6,11414,"KRN",8989.51,0)=8989.51 +^XPD(9.6,11414,"KRN",8989.52,0)=8989.52 +^XPD(9.6,11414,"KRN",8994,0)=8994 +^XPD(9.6,11414,"KRN","B",.4,.4)="" +^XPD(9.6,11414,"KRN","B",.401,.401)="" +^XPD(9.6,11414,"KRN","B",.402,.402)="" +^XPD(9.6,11414,"KRN","B",.403,.403)="" +^XPD(9.6,11414,"KRN","B",.5,.5)="" +^XPD(9.6,11414,"KRN","B",.84,.84)="" +^XPD(9.6,11414,"KRN","B",1.6,1.6)="" +^XPD(9.6,11414,"KRN","B",1.61,1.61)="" +^XPD(9.6,11414,"KRN","B",1.62,1.62)="" +^XPD(9.6,11414,"KRN","B",3.6,3.6)="" +^XPD(9.6,11414,"KRN","B",3.8,3.8)="" +^XPD(9.6,11414,"KRN","B",9.2,9.2)="" +^XPD(9.6,11414,"KRN","B",9.8,9.8)="" +^XPD(9.6,11414,"KRN","B",19,19)="" +^XPD(9.6,11414,"KRN","B",19.1,19.1)="" +^XPD(9.6,11414,"KRN","B",101,101)="" +^XPD(9.6,11414,"KRN","B",409.61,409.61)="" +^XPD(9.6,11414,"KRN","B",771,771)="" +^XPD(9.6,11414,"KRN","B",779.2,779.2)="" +^XPD(9.6,11414,"KRN","B",870,870)="" +^XPD(9.6,11414,"KRN","B",8989.51,8989.51)="" +^XPD(9.6,11414,"KRN","B",8989.52,8989.52)="" +^XPD(9.6,11414,"KRN","B",8994,8994)="" +^XPD(9.6,11414,"QUES",0)="^9.62^^" +^XPD(9.6,11414,"REQB",0)="^9.611^6^5" +^XPD(9.6,11414,"REQB",1,0)="DVBA*2.7*208^2" +^XPD(9.6,11414,"REQB",2,0)="SD*5.3*443^2" +^XPD(9.6,11414,"REQB",3,0)="SD*5.3*466^2" +^XPD(9.6,11414,"REQB",5,0)="SD*5.3*671^2" +^XPD(9.6,11414,"REQB",6,0)="SD*5.3*683^2" +^XPD(9.6,11414,"REQB","B","DVBA*2.7*208",1)="" +^XPD(9.6,11414,"REQB","B","SD*5.3*443",2)="" +^XPD(9.6,11414,"REQB","B","SD*5.3*466",3)="" +^XPD(9.6,11414,"REQB","B","SD*5.3*671",5)="" +^XPD(9.6,11414,"REQB","B","SD*5.3*683",6)="" ^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)="" @@ -1239486,6 +1239859,7 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,"B","SD*5.3*707",11413)="" ^XPD(9.6,"B","SD*5.3*71",321)="" ^XPD(9.6,"B","SD*5.3*713",11321)="" +^XPD(9.6,"B","SD*5.3*717",11414)="" ^XPD(9.6,"B","SD*5.3*719",11074)="" ^XPD(9.6,"B","SD*5.3*72",301)="" ^XPD(9.6,"B","SD*5.3*721",11211)="" @@ -1244935,6 +1245309,7 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,"C",48,11337)="" ^XPD(9.6,"C",48,11338)="" ^XPD(9.6,"C",48,11413)="" +^XPD(9.6,"C",48,11414)="" ^XPD(9.6,"C",49,72)="" ^XPD(9.6,"C",49,131)="" ^XPD(9.6,"C",49,150)="" diff --git a/Packages/Kernel/Globals/9.7+INSTALL.zwr b/Packages/Kernel/Globals/9.7+INSTALL.zwr index 59d61f06e79..6f54540ae0a 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 -25-NOV-2019 16:12:22 ZWR -^XPD(9.7,0)="INSTALL^9.7I^11132^10990" +25-NOV-2019 17:01:27 ZWR +^XPD(9.7,0)="INSTALL^9.7I^11133^10991" ^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" @@ -854167,6 +854167,62 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,11132,"RTN","B","SDCCRSCU",3)="" ^XPD(9.7,11132,"RTN","B","SDCCRSEN",4)="" ^XPD(9.7,11132,"RTN","B","SDPRE707",5)="" +^XPD(9.7,11133,0)="SD*5.3*717^48^3191125.165628^11133^1^^0^0SD*5.3*717^3^0^17" +^XPD(9.7,11133,1)="3191125.165649^3191125.165649^3191125.165649^3190620" +^XPD(9.7,11133,2)="Extracted from mail message ;Created on " +^XPD(9.7,11133,6)="5^" +^XPD(9.7,11133,"INI",0)="^9.713^1^1" +^XPD(9.7,11133,"INI",1,0)="XPD PREINSTALL COMPLETED^3191125.165649" +^XPD(9.7,11133,"INI","B","XPD PREINSTALL COMPLETED",1)="" +^XPD(9.7,11133,"INIT",0)="^9.716^1^1" +^XPD(9.7,11133,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3191125.165649" +^XPD(9.7,11133,"INIT","B","XPD POSTINSTALL COMPLETED",1)="" +^XPD(9.7,11133,"MES",0)="^^19^19^3191125" +^XPD(9.7,11133,"MES",1,0)=" " +^XPD(9.7,11133,"MES",2,0)=" Install Started for SD*5.3*717 : " +^XPD(9.7,11133,"MES",3,0)=" Nov 25, 2019@16:56:49" +^XPD(9.7,11133,"MES",4,0)=" " +^XPD(9.7,11133,"MES",5,0)="Build Distribution Date: Jun 20, 2019" +^XPD(9.7,11133,"MES",6,0)=" " +^XPD(9.7,11133,"MES",7,0)=" Installing Routines:" +^XPD(9.7,11133,"MES",8,0)=" Nov 25, 2019@16:56:49" +^XPD(9.7,11133,"MES",9,0)=" " +^XPD(9.7,11133,"MES",10,0)=" Updating Routine file..." +^XPD(9.7,11133,"MES",11,0)=" " +^XPD(9.7,11133,"MES",12,0)=" Updating KIDS files..." +^XPD(9.7,11133,"MES",13,0)=" " +^XPD(9.7,11133,"MES",14,0)=" SD*5.3*717 Installed. " +^XPD(9.7,11133,"MES",15,0)=" Nov 25, 2019@16:56:49" +^XPD(9.7,11133,"MES",16,0)=" " +^XPD(9.7,11133,"MES",17,0)=" Not a production UCI" +^XPD(9.7,11133,"MES",18,0)=" " +^XPD(9.7,11133,"MES",19,0)=" NO Install Message sent " +^XPD(9.7,11133,"QUES",0)="^9.701^2^2" +^XPD(9.7,11133,"QUES",1,0)="XPI1" +^XPD(9.7,11133,"QUES",1,1)=0 +^XPD(9.7,11133,"QUES",1,"A")="Want KIDS to INHIBIT LOGONs during the install" +^XPD(9.7,11133,"QUES",1,"B")="NO" +^XPD(9.7,11133,"QUES",2,0)="XPZ1" +^XPD(9.7,11133,"QUES",2,1)=0 +^XPD(9.7,11133,"QUES",2,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols" +^XPD(9.7,11133,"QUES",2,"B")="NO" +^XPD(9.7,11133,"QUES","B","XPI1",1)="" +^XPD(9.7,11133,"QUES","B","XPZ1",2)="" +^XPD(9.7,11133,"RTN",0)="^9.704A^7^7" +^XPD(9.7,11133,"RTN",1,0)="SDAMEVT" +^XPD(9.7,11133,"RTN",2,0)="SDCO3" +^XPD(9.7,11133,"RTN",3,0)="SDCODEL" +^XPD(9.7,11133,"RTN",4,0)="SDEC07B" +^XPD(9.7,11133,"RTN",5,0)="SDEC08" +^XPD(9.7,11133,"RTN",6,0)="SDEC25" +^XPD(9.7,11133,"RTN",7,0)="SDEC31" +^XPD(9.7,11133,"RTN","B","SDAMEVT",1)="" +^XPD(9.7,11133,"RTN","B","SDCO3",2)="" +^XPD(9.7,11133,"RTN","B","SDCODEL",3)="" +^XPD(9.7,11133,"RTN","B","SDEC07B",4)="" +^XPD(9.7,11133,"RTN","B","SDEC08",5)="" +^XPD(9.7,11133,"RTN","B","SDEC25",6)="" +^XPD(9.7,11133,"RTN","B","SDEC31",7)="" ^XPD(9.7,"ASP",1,1,1)="" ^XPD(9.7,"ASP",1,2,2)="" ^XPD(9.7,"ASP",3,1,3)="" @@ -865157,6 +865213,7 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,"ASP",11130,1,11130)="" ^XPD(9.7,"ASP",11131,1,11131)="" ^XPD(9.7,"ASP",11132,1,11132)="" +^XPD(9.7,"ASP",11133,1,11133)="" ^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)="" @@ -874476,6 +874533,7 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,"B","SD*5.3*707",11132)="" ^XPD(9.7,"B","SD*5.3*71",336)="" ^XPD(9.7,"B","SD*5.3*713",11040)="" +^XPD(9.7,"B","SD*5.3*717",11133)="" ^XPD(9.7,"B","SD*5.3*719",10793)="" ^XPD(9.7,"B","SD*5.3*72",314)="" ^XPD(9.7,"B","SD*5.3*721",10930)="" diff --git a/Packages/Scheduling/Routines/SDAMEVT.m b/Packages/Scheduling/Routines/SDAMEVT.m index d5030564b0b..33f594782ed 100644 --- a/Packages/Scheduling/Routines/SDAMEVT.m +++ b/Packages/Scheduling/Routines/SDAMEVT.m @@ -1,5 +1,6 @@ SDAMEVT ;ALB/MJK - Appt Event Driver Utilities ; 12/1/91 [ 09/19/96 1:39 PM ] - ;;5.3;Scheduling;**15,132,443**;Aug 13, 1993 + ;;5.3;Scheduling;**15,132,443,717**;Aug 13, 1993;Build 12 + ;;Per VHA Directive 2004-038, this routine should not be modified ; BEFORE(SDATA,DFN,SDT,SDCL,SDDA,SDHDL) ; -- get before values K ^TMP("SDAMEVT",$J) @@ -37,6 +38,7 @@ D CAPTURE("AFTER",.SDATA,.DFN,.SDT,.SDCL,.SDDA,.SDHDL) K DTOUT,DIROUT I $G(SDATA("BEFORE","STATUS"))=$G(SDATA("AFTER","STATUS")),'$$COMP^SDAMEVT4(SDHDL,SDAMEVT) G EVTQ ; SD*5.3*443 S:$P(SDATA,U,3) $P(SDATA,U,5)=$$REQ^SDM1A(+$P(SDATA,U,3)) + I SDMODE=2 N DGQUIET S DGQUIET=1 ;*zeb 10/4/18 717 set DGQUIET to suppress user interaction when called from GUI S X=+$O(^ORD(101,"B","SDAM APPOINTMENT EVENTS",0))_";ORD(101," D EN^XQOR EVTQ K XQORPOP,X,^TMP("SDAMEVT",$J) D CLEAN(SDHDL) Q @@ -48,7 +50,8 @@ D CAPTURE("AFTER",.SDATA,.DFN,.SDT,.SDCL,.SDDA,.SDHDL) S (^TMP("SDAMEVT",$J,"BEFORE","DPT"),^TMP("SDAMEVT",$J,"BEFORE","SC"),SDATA("BEFORE","STATUS"),^TMP("SDAMEVT",$J,"BEFORE","STATUS"),^TMP("SDEVT",$J,SDMKHDL,1,"DPT",0,"BEFORE"),^TMP("SDEVT",$J,SDMKHDL,1,"SC",0,"BEFORE"))="" D AFTER(.SDATA,DFN,SDT,SDCL,SDDA,SDMKHDL) S SDATA=SDDA_U_DFN_U_SDT_U_SDCL - D EVT(.SDATA,1,+$G(SDAMODE),SDMKHDL) + D EVT(.SDATA,1,+$G(SDMODE),SDMKHDL) ;*zeb 10/25/18 717 fix typo with SDMODE so SDMODE is passed correctly + Q:SDMODE=2 ;*zeb 10/24/18 717 don't need check in/out code below if calling from GUI ; -- if appt d/t is less than NOW then check-in D NOW^%DTC I SDT<% W:'$G(SDMODE) ! D @@ -63,9 +66,9 @@ D EVT(.SDATA,1,+$G(SDAMODE),SDMKHDL) ; CANCEL(SDATA,DFN,SDT,SDCL,SDDA,SDMODE,SDHDL) ; -- cancel event #2 D AFTER(.SDATA,DFN,SDT,SDCL,SDDA,SDHDL) - I "^5^7^9^10^"[("^"_+SDATA("AFTER","STATUS")_"^"),$P($G(^DPT(DFN,"S",SDT,0)),"^",20) D EN^SDCODEL(+$P(^(0),"^",20),0,SDHDL),OENUL^SDAMEVT1("AFTER",SDHDL) + I (SDMODE'=2),("^5^7^9^10^"[("^"_+SDATA("AFTER","STATUS")_"^")),($P($G(^DPT(DFN,"S",SDT,0)),"^",20)) D EN^SDCODEL(+$P(^(0),"^",20),0,SDHDL),OENUL^SDAMEVT1("AFTER",SDHDL) ;*zeb 10/25/18 717 status has already changed for GUI calls S SDATA=SDDA_U_DFN_U_SDT_U_SDCL - D EVT(.SDATA,2,0,SDHDL) + D EVT(.SDATA,2,$S(SDMODE=2:2,1:0),SDHDL) ;*zeb 10/25/18 717 don't assume SDMODE is 0 if it is 2 Q ; ; diff --git a/Packages/Scheduling/Routines/SDCO3.m b/Packages/Scheduling/Routines/SDCO3.m index f727e99122c..15e0bdf274a 100644 --- a/Packages/Scheduling/Routines/SDCO3.m +++ b/Packages/Scheduling/Routines/SDCO3.m @@ -1,5 +1,5 @@ SDCO3 ;ALB/RMO - Provider - Check Out;08 DEC 1992 4:05 pm - ;;5.3;Scheduling;**28,27,44,67,71,132,466**;08/13/93;Build 2 + ;;5.3;Scheduling;**28,27,44,67,71,132,466,717**;08/13/93;Build 12 ; EN ;Entry point for SDCO PROVIDER protocol ; Input -- SDOE @@ -60,7 +60,7 @@ ; N DIR,SDOK S SDOK=$$NEW^SDPCE($P($G(^SCE(+$G(SDOE),0)),U)) - IF 'SDOK,SDMODE D OLDMSG + IF 'SDOK,SDMODE=1 D OLDMSG ;*zeb 10/25/18 717 support SDMODE=2 for GUI EDITOKQ Q SDOK ; OLDMSG ; -- display message to user diff --git a/Packages/Scheduling/Routines/SDCODEL.m b/Packages/Scheduling/Routines/SDCODEL.m index ddbafdcf28c..ba7a1148f50 100644 --- a/Packages/Scheduling/Routines/SDCODEL.m +++ b/Packages/Scheduling/Routines/SDCODEL.m @@ -1,9 +1,9 @@ SDCODEL ;ALB/RMO - Delete Check Out ;JAN 15, 2016 - ;;5.3;Scheduling;**20,27,44,97,105,110,132,257,627**;Aug 13, 1993;Build 249 + ;;5.3;Scheduling;**20,27,44,97,105,110,132,257,627,717**;Aug 13, 1993;Build 12 ; EN(SDOE,SDMOD,SDELHDL,SDELSRC) ;Delete Check Out ; Input -- SDOE Outpatient Encounter file IEN - ; SDMOD 1=Interactive and 0=Non-interactive + ; SDMOD 1=Interactive and 0=Non-interactive, 2=Non-interactive/from GUI ; SDELHDL Check Out Deletion Handle [Optional] ; SDELSRC Source of delete ; Output -- Delete Check Out @@ -14,13 +14,14 @@ D SET(SDOE,.SDOE0,.SDT,.DFN,.SDCL,.SDORG,.SDDA) ; -- ok to delete? IF '$$EDITOK^SDCO3(SDOE,SDMOD) G ENQ ; - IF $G(SDELSRC)'="PCE" S X=$$DELVFILE^PXAPI("ALL",$P($G(^SCE(SDOE,0)),U,5),"","","",1) + S SDELSRC=$G(SDELSRC) ;*zeb+1 717 11/6/18 suppress event if coming from cancel appointment + IF SDELSRC'="PCE" S X=$$DELVFILE^PXAPI("ALL",$P($G(^SCE(SDOE,0)),U,5),"","","",1) S SDVFLG=1 ; ; -- get handle if not passed and do 'before' - I '$G(SDELHDL) N SDATA,SDELHDL S SDEVTF=1 D EVT^SDCOU1(SDOE,"BEFORE",.SDELHDL,.SDATA) + I '$G(SDELHDL),("^CANCEL^NOSHOW^"'["^"_SDELSRC_"^") N SDATA,SDELHDL S SDEVTF=1 D EVT^SDCOU1(SDOE,"BEFORE",.SDELHDL,.SDATA) ;*zeb 717 11/6/18 suppress event if coming from cancel or no show ; - I $G(SDMOD) W !!,">>> Deleting check out information..." + I $G(SDMOD)=1 W !!,">>> Deleting check out information..." ;*zeb 10/25/18 717 fix test for SDMOD=2 for GUI ; ; -- delete child data for appts, disposition and stop code addition I "^1^2^3^"[("^"_SDORG_"^") D CHLD(SDOE,SDMOD) ;SD/257 @@ -41,7 +42,7 @@ D OE(SDOE,SDMOD) I $G(SDMOD) W !,">>> done." ; ; -- if handle not passed, then 'after' and event - I $G(SDEVTF) D EVT^SDCOU1(SDOE,"AFTER",SDELHDL,.SDATA,SDOE0) + I $G(SDEVTF),(SDELSRC'="CANCEL") D EVT^SDCOU1(SDOE,"AFTER",SDELHDL,.SDATA,SDOE0) ;*zeb 717 11/6/18 suppress event if coming from cancel appointment ; ; -- call pce to make sure its data is gone I $G(SDVFLG) D DEAD^PXUTLSTP(SDVSAV) diff --git a/Packages/Scheduling/Routines/SDEC07B.m b/Packages/Scheduling/Routines/SDEC07B.m index 9a1debbbab3..db151618ed0 100644 --- a/Packages/Scheduling/Routines/SDEC07B.m +++ b/Packages/Scheduling/Routines/SDEC07B.m @@ -1,5 +1,6 @@ -SDEC07B ;ALB/SAT - VISTA SCHEDULING RPCS ;MAY 15, 2017 - ;;5.3;Scheduling;**627,658,665,669**;Aug 13, 1993;Build 16 +SDEC07B ;ALB/SAT - VISTA SCHEDULING RPCS ; 26 Mar 2019 7:44 AM + ;;5.3;Scheduling;**627,658,665,669,717**;Aug 13, 1993;Build 12 + ;;Per VHA Directive 2004-038, this routine should not be modified ; Q ; @@ -44,7 +45,9 @@ ; N DIC,DA,Y,X,DD,DO,DLAYGO N SDECERR - N SDFU,SDNA,SDRET,SDSRT + N SDFU,SDNA,SDRET,SDSRT,PATCH722,PATCH717 ; 717/722 WTC 3/26/19 + S PATCH722=$$PATCHSTS(722) ; + S PATCH717=$$PATCHSTS(717) ; ; S BSDR("APT")=+$G(BSDR("APT")) S BSDR("COL")=+$G(BSDR("COL")) @@ -61,31 +64,61 @@ S BSDR("COL")=+$G(BSDR("COL")) S SDFU=$S(SDFU="YES":1,1:0) K @SDRET ;store - I $D(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0)),(($P(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0),U,2)="C")!($P(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0),U,2)="PC")) D + N SDECCOND ; 722/717 wtc 3/26/2019 + S SDECCOND=0 I $D(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0)),(($P(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0),U,2)="C")!($P(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0),U,2)="PC")) S SDECCOND=1 ; + ; + I SDECCOND D . ; "un-cancel" existing appt in file 2 . N SDECFDA,SDECIENS,SDECMSG . S SDECIENS=BSDR("ADT")_","_BSDR("PAT")_"," - . S SDECFDA(2.98,SDECIENS,".01")=BSDR("CLN") - . S SDECFDA(2.98,SDECIENS,"3")=$S($G(^DPT(+$G(BSDR("PAT")),.1))'="":"I",1:"") - . S SDECFDA(2.98,SDECIENS,"5")=BSDR("LAB") ;lab date/time - . S SDECFDA(2.98,SDECIENS,"6")=BSDR("XRA") ;xray date/time - . S SDECFDA(2.98,SDECIENS,"7")=BSDR("EKG") ;ekg date/time - . S SDECFDA(2.98,SDECIENS,"9")=BSDR("TYP") - . S:+BSDR("APT") SDECFDA(2.98,SDECIENS,"9.5")=BSDR("APT") - . S:+BSDR("COL") SDECFDA(2.98,SDECIENS,"13")=BSDR("COL") - . S SDECFDA(2.98,SDECIENS,"14")="" - . S SDECFDA(2.98,SDECIENS,"15")="" - . S SDECFDA(2.98,SDECIENS,"16")="" - . S SDECFDA(2.98,SDECIENS,"17")="" ;alb/sat 658 - . S SDECFDA(2.98,SDECIENS,"19")=DUZ ;data entry clerk - . S SDECFDA(2.98,SDECIENS,"20")=$$NOW^XLFDT - . S SDECFDA(2.98,SDECIENS,"25")=SDSRT ;scheduling request type - . S SDECFDA(2.98,SDECIENS,"26")=SDNA ;next ava. appt. indicator - . S SDECFDA(2.98,SDECIENS,"27")=BSDR("DDT") ;desired date of appt - . S SDECFDA(2.98,SDECIENS,"28")=SDFU ;follow-up visit yes/no + . ; + . I PATCH722'=3 D ; Execute code if patch 722 not installed. + .. S SDECFDA(2.98,SDECIENS,".01")=BSDR("CLN") + .. S SDECFDA(2.98,SDECIENS,"3")=$S($G(^DPT(+$G(BSDR("PAT")),.1))'="":"I",1:"") + .. S SDECFDA(2.98,SDECIENS,"5")=BSDR("LAB") ;lab date/time + .. S SDECFDA(2.98,SDECIENS,"6")=BSDR("XRA") ;xray date/time + .. S SDECFDA(2.98,SDECIENS,"7")=BSDR("EKG") ;ekg date/time + .. S SDECFDA(2.98,SDECIENS,"9")=BSDR("TYP") + .. S:+BSDR("APT") SDECFDA(2.98,SDECIENS,"9.5")=BSDR("APT") + .. S:+BSDR("COL") SDECFDA(2.98,SDECIENS,"13")=BSDR("COL") + .. S SDECFDA(2.98,SDECIENS,"14")="" + .. S SDECFDA(2.98,SDECIENS,"15")="" + .. S SDECFDA(2.98,SDECIENS,"16")="" + .. S SDECFDA(2.98,SDECIENS,"17")="" ;alb/sat 658 + .. S SDECFDA(2.98,SDECIENS,"19")=DUZ ;data entry clerk + .. S SDECFDA(2.98,SDECIENS,"20")=$$NOW^XLFDT + .. S SDECFDA(2.98,SDECIENS,"25")=SDSRT ;scheduling request type + .. S SDECFDA(2.98,SDECIENS,"26")=SDNA ;next ava. appt. indicator + .. S SDECFDA(2.98,SDECIENS,"27")=BSDR("DDT") ;desired date of appt + .. S SDECFDA(2.98,SDECIENS,"28")=SDFU ;follow-up visit yes/no + . ; + . I PATCH722=3 D ; Excecute code if patch 722 is installed + .. S SDECFDA(2.98,SDECIENS,".01")=$$NULLDEL(BSDR("CLN")) ;*zeb+19 722 2/19/19 completely replace old appt's data if overlaying; prevent chimera appt + .. S SDECFDA(2.98,SDECIENS,"3")=$$NULLDEL($S($G(^DPT(+$G(BSDR("PAT")),.1))'="":"I",1:"")) + .. S SDECFDA(2.98,SDECIENS,"5")=$$NULLDEL(BSDR("LAB")) ;lab date/time + .. S SDECFDA(2.98,SDECIENS,"6")=$$NULLDEL(BSDR("XRA")) ;xray date/time + .. S SDECFDA(2.98,SDECIENS,"7")=$$NULLDEL(BSDR("EKG")) ;ekg date/time + .. S SDECFDA(2.98,SDECIENS,"9")=$$NULLDEL(BSDR("TYP")) + .. S SDECFDA(2.98,SDECIENS,"9.5")=$$NULLDEL(BSDR("APT")) + .. S SDECFDA(2.98,SDECIENS,"13")=$$NULLDEL(BSDR("COL")) + .. S SDECFDA(2.98,SDECIENS,"14")="@" + .. S SDECFDA(2.98,SDECIENS,"15")="@" + .. S SDECFDA(2.98,SDECIENS,"16")="@" + .. S SDECFDA(2.98,SDECIENS,"17")="@" ;alb/sat 658 + .. S SDECFDA(2.98,SDECIENS,"19")=$$NULLDEL(DUZ) ;data entry clerk + .. S SDECFDA(2.98,SDECIENS,"20")=$$NOW^XLFDT + .. S SDECFDA(2.98,SDECIENS,"21")="@" ;outpatient encounter ;*zeb 722 2/26/19 clear to fix OE link issue if cancelled again + .. S SDECFDA(2.98,SDECIENS,"25")=$$NULLDEL(SDSRT) ;scheduling request type + .. S SDECFDA(2.98,SDECIENS,"26")=$$NULLDEL(SDNA) ;next ava. appt. indicator + .. S SDECFDA(2.98,SDECIENS,"27")=$$NULLDEL(BSDR("DDT")) ;desired date of appt + .. S SDECFDA(2.98,SDECIENS,"28")=$$NULLDEL(SDFU) ;follow-up visit yes/no. ; + . ; . D FILE^DIE("","SDECFDA","SDECMSG") - . N SDECTEMP S SDECTEMP=$G(SDECMSG) - E D I $G(SDECERR(1)) Q 1_U_"FileMan add to DPT error: Patient="_BSDR("PAT")_" Appt="_BSDR("ADT") + . ; + . I PATCH722'=3 N SDECTEMP S SDECTEMP=$G(SDECMSG) + . I PATCH722=3 N SDECTEMP S SDECTEMP=$$NULLDEL($G(SDECMSG)) + . ; + I 'SDECCOND D I $G(SDECERR(1)) Q 1_U_"FileMan add to DPT error: Patient="_BSDR("PAT")_" Appt="_BSDR("ADT") . ; add appt to file 2 . N SDECFDA,SDECIENS,SDECMSG . S SDECIENS="?+2,"_BSDR("PAT")_"," @@ -132,7 +165,7 @@ S DIC("P")="44.003PA",DIC(0)="L",DLAYGO=44.003 .S SDFDA(44.003,SDIEN_","_BSDR("ADT")_","_BSDR("CLN")_",",688)=BSDR("CON") .D UPDATE^DIE("","SDFDA") ; - Q 0 + I PATCH717'=3 Q 0 ;*zeb 10/24/18 717 comment out quit to enable event driver ; WTC 3/26/19 Enable line only if patch 717 not installed yet. ; call event driver NEW DFN,SDT,SDCL,SDDA,SDMODE S DFN=BSDR("PAT"),SDT=BSDR("ADT"),SDCL=BSDR("CLN"),SDMODE=2 @@ -140,6 +173,9 @@ S DIC("P")="44.003PA",DIC(0)="L",DLAYGO=44.003 D MAKE^SDAMEVT(DFN,SDT,SDCL,SDDA,SDMODE) Q 0 ; +NULLDEL(STR) ;return "@" to delete a field if the new data would be null ;*zeb+tag 722 2/19/19 added to support APPADD + Q $S(STR]"":STR,1:"@") + ; SDSRT(TYP,MTR,DDT,REQ) ;get SCHEDULING REQUEST TYPE and NEXT AVA.APPT. INDICATOR ;INPUT: ; TYP = 3 for scheduled appts, 4 for walkins @@ -213,3 +249,12 @@ S DIC("P")="44.003PA",DIC(0)="L",DLAYGO=44.003 . ;L . Q Q +SDECERR + ; +PATCHSTS(NUMBER) ; 717/722 WTC 3/26/19 + ; + ; Determine if patch has been installed. Return status from Install file (#9.7). + ; + N X,DA ; + S DA=$O(^XPD(9.7,"B","SD*5.3*"_NUMBER,99999),-1) I 'DA Q "" ; + S X=$P($G(^XPD(9.7,DA,0)),U,9) Q X ; + ; diff --git a/Packages/Scheduling/Routines/SDEC08.m b/Packages/Scheduling/Routines/SDEC08.m index 6738cdfffdb..d7e071dece5 100644 --- a/Packages/Scheduling/Routines/SDEC08.m +++ b/Packages/Scheduling/Routines/SDEC08.m @@ -1,5 +1,6 @@ SDEC08 ;ALB/SAT/JSM - VISTA SCHEDULING RPCS ;JUN 21, 2017 - ;;5.3;Scheduling;**627,651,658,665**;Aug 13, 1993;Build 14 + ;;5.3;Scheduling;**627,651,658,665,717**;Aug 13, 1993;Build 12 + ;;Per VHA Directive 2004-038, this routine should not be modified ; Q ; @@ -269,8 +270,8 @@ I SDECFOUND D CANEVT3(SDECRES) Q I '$D(^VA(200,+$G(BSDR("USR")),0)) Q 1_U_"User Who Canceled Appt Error: "_$G(BSDR("USR")) I '$D(^SD(409.2,+$G(BSDR("CR")))) Q 1_U_"Cancel Reason error: "_$G(BSDR("CR")) ; - NEW IEN,DIE,DA,DR,SDMODE - S IEN=$$SCIEN^SDECU2(BSDR("PAT"),BSDR("CLN"),BSDR("ADT")) + NEW IEN,DIE,DA,DR,SDMODE,HLAPTIEN ;*zeb+1 722 2/21/19 save IEN for canceling appt + S IEN=$$SCIEN^SDECU2(BSDR("PAT"),BSDR("CLN"),BSDR("ADT")),HLAPTIEN=IEN I 'IEN Q 1_U_"Error trying to find appointment for cancel: Patient="_BSDR("PAT")_" Clinic="_BSDR("CLN")_" Appt="_BSDR("ADT") ; I $$CI^SDECU2(BSDR("PAT"),BSDR("CLN"),BSDR("ADT"),IEN) Q 1_U_"Patient already checked in; cannot cancel until check-in deleted: Patient="_BSDR("PAT")_" Clinic="_BSDR("CLN")_" Appt="_BSDR("ADT") @@ -301,16 +302,17 @@ I SDECFOUND D CANEVT3(SDECRES) Q D UPDATE^DIE("","SDFDA") N SDPCE S SDPCE=$P($G(^DPT(DFN,"S",SDT,0)),U,20) - D:+SDPCE EN^SDCODEL(SDPCE,0) ;remove OUTPATIENT ENCOUNTER link - ; - ; delete data in ^SC - NEW DIK,DA - S DIK="^SC("_BSDR("CLN")_",""S"","_BSDR("ADT")_",1," - S DA(2)=BSDR("CLN"),DA(1)=BSDR("ADT"),DA=IEN - D ^DIK + D:+SDPCE EN^SDCODEL(SDPCE,2,"","CANCEL") ;remove OUTPATIENT ENCOUNTER link ;*zeb 10/25/18 717 pass in correct SDMODE and delete source + ; + ; cancel appointment in ^SC + ;NEW DIK,DA ;*zeb+4 722 2/21/19 mark as canceled instead of (failing to) delete so expand entry works correctly + ;S DIK="^SC("_BSDR("CLN")_",""S"","_BSDR("ADT")_",1," + ;S DA(2)=BSDR("CLN"),DA(1)=BSDR("ADT"),DA=IEN + ;D ^DIK + S $P(^SC(BSDR("CLN"),"S",BSDR("ADT"),1,HLAPTIEN,0),"^",9)="C" ; call event driver S SDATA=SDDA_U_DFN_U_SDT_U_SDCL - ;D CANCEL^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDMODE,SDCPHDL) + D CANCEL^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDMODE,SDCPHDL) ;*zeb 10/25/18 717 uncomment to re-enable event driver Q 0 ; UNDOCANA(SDECY,SDECAPTID) ;Undo Cancel Appointment diff --git a/Packages/Scheduling/Routines/SDEC25.m b/Packages/Scheduling/Routines/SDEC25.m index 857f488967e..1e85c1753b0 100644 --- a/Packages/Scheduling/Routines/SDEC25.m +++ b/Packages/Scheduling/Routines/SDEC25.m @@ -1,5 +1,5 @@ SDEC25 ;ALB/SAT - VISTA SCHEDULING RPCS ;MAY 15, 2017 - ;;5.3;Scheduling;**627,665,671**;Aug 13, 1993;Build 25 + ;;5.3;Scheduling;**627,665,671,717**;Aug 13, 1993;Build 12 ; Q ; @@ -70,12 +70,36 @@ . ;Hospital Location is required for CHECKIN . ;I 'SDECSC1]"",'$D(^SC(+SDECSC1,0)) D ERR("SDEC25: Clinic not defined for this Resource: "_$P(SDECNOD,U,1)_" ("_SDECSC1_")") Q . I 'SDECSC1]"",'$D(^SC(+SDECSC1,0)) D ERR("Clinic not defined for this Resource: "_$P(SDECNOD,U,1)_" ("_SDECSC1_")") Q - . ;Checkin SDEC APPOINTMENT entry - . D SDECCHK(SDECAPTID,$S(SDECCAN:"",1:SDECCDT)) ; sets field .03 (Checkin), in file 409.84 - . ;Process cancel checkin - . I $G(SDECCAN) D CANCHKIN(SDECPATID,SDECSC1,SDECSTART) Q - . D APCHK(.SDECZ,SDECSC1,SDECPATID,SDECCDT,SDECSTART) - . I $G(SDECPRV) S DIE="^SDEC(409.84,",DA=SDECAPTID,DR=".16///"_SDECPRV D ^DIE + . ; + . ; Event driver "BEFORE" actions - wtc SD*5.3*717 10/24/18 + . ; + . N SDATA,SDDA,SDCIHDL ; + . S SDDA=$$FIND(DFN,SDECSTART,SDECSC1),SDATA=SDDA_U_DFN_U_SDECSTART_U_SDECSC1,SDCIHDL=$$HANDLE^SDAMEVT(1) ; + . D BEFORE^SDAMEVT(.SDATA,DFN,SDECSTART,SDECSC1,SDDA,SDCIHDL) ; + . ; + . I 'SDECCAN D ; + .. ; + .. ; Checkin SDEC APPOINTMENT entry - wtc SD*5.3*717 10/24/18 + .. ; + .. D SDECCHK(SDECAPTID,SDECCDT) ; sets field .03 (Checkin), in file 409.84 + .. D APCHK(.SDECZ,SDECSC1,SDECPATID,SDECCDT,SDECSTART) + .. I $G(SDECPRV) S DIE="^SDEC(409.84,",DA=SDECAPTID,DR=".16///"_SDECPRV D ^DIE + . ; + . I SDECCAN D ; + .. ; + .. ; Cancel check in - wtc SD*5.3*717 10/24/18 + .. ; + .. D SDECCHK(SDECAPTID,"") ; sets field .03 (Checkin), in file 409.84 + .. D CANCHKIN(SDECPATID,SDECSC1,SDECSTART) ; + . ; + . ; Event driver "AFTER" actions - wtc SD*5.3*717 10/24/18 + . ; + . D AFTER^SDAMEVT(.SDATA,DFN,SDECSTART,SDECSC1,SDDA,SDCIHDL) ; + . ; + . ; Execute event driver. 4=check in (see #409.66), 2=non-interactive - wtc SD*5.3*717 10/25/18 + . ; + . ;*zeb+1 717 3/19/19 prevent extra cancel check-in when canceling a checked-in appointment + . I '((SDECCDT="@")&($G(SDECTYP)]"")) D EVT^SDAMEVT(.SDATA,4,2,SDCIHDL) ;assumes SDECTYP, which is defined if coming from APPDEL^SDEC08 ; S SDECI=SDECI+1 S ^TMP("SDEC",$J,SDECI)="0^"_$S($G(EMSG)'="":EMSG,1:"")_$C(30) @@ -135,12 +159,15 @@ S SDECVEN("OUTGUIDE")=SDECOG N SDDA S SDDA=$$FIND(DFN,SDT,SDCL) ;I 'SDDA D ERR("SDEC25: Could not locate appointment in database or appointment is cancelled.") Q - I 'SDDA D ERR("Could not locate appointment in database or appointment is cancelled.") Q - N SDATA,SDCIHDL,X S SDATA=SDDA_U_DFN_U_SDT_U_SDCL,SDCIHDL=$$HANDLE^SDAMEVT(1) - D BEFORE^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL) + ;I 'SDDA D ERR("Could not locate appointment in database or appointment is cancelled.") Q + ; + ; Disabled event driver calls as they are present above in CHECKIN. SD*5.3*717 wtc 10/25/2018 + ; + ;N SDATA,SDCIHDL,X S SDATA=SDDA_U_DFN_U_SDT_U_SDCL,SDCIHDL=$$HANDLE^SDAMEVT(1) + ;D BEFORE^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL) S FDA(44.003,SDDA_","_SDT_","_SDCL_",",309)="" D FILE^DIE(,"FDA","ERR") - D AFTER^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL) - D CHKEVTD(DFN,SDT,SDCL) + ;D AFTER^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL) + ;D CHKEVTD(DFN,SDT,SDCL) K FDA,ERR Q ; @@ -271,7 +298,30 @@ I SDECRES D CHKEVT3(SDECRES) Q S SDQUIET=1 K APIERR S APIERR=0 + ; + ; Event driver "BEFORE" actions - wtc SD*5.3*717 10/25/18 + ; + N SDATA,SDDA,SDCIHDL ; + S SDDA=$$FIND(DFN,SDT,SDCL),SDATA=SDDA_U_DFN_U_SDT_U_SDCL,SDCIHDL=$$HANDLE^SDAMEVT(1) ; + ; + ; Event driver "BEFORE" actions - wtc SD*5.3*717 10/25/18 + ; + D BEFORE^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL) ; + ; D CO^SDEC25A(DFN,SDT,SDCL,SDDA,SDASK,SDCODT,SDCOACT,SDLNE,.SDCOALBF,SDECAPTID,SDQUIET,VPRV,.APIERR) ;Appt Check Out + ; + ; Skip event driver actions if error occurred checking appointment out. - wtc SD*5.3*717 10/25/2018 + ; + I 'APIERR D ; + . ; + . ; Event driver "AFTER" actions - wtc SD*5.3*717 10/25/18 + . ; + . D AFTER^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL) ; + . ; + . ; Execute event driver. 5=check out (see #409.66), 2=non-interactive - wtc SD*5.3*717 10/25/18 + . ; + . D EVT^SDAMEVT(.SDATA,5,2,SDCIHDL) ; + ; ;ERROR(S) FOUND I APIERR>0 D . S CNT="" @@ -307,6 +357,16 @@ I SDECRES D CHKEVT3(SDECRES) Q S RES=$P(SDECNOD,U,7) S SDCL=$P(^SDEC(409.831,RES,0),U,4) I $P(SDECNOD,U,14)="" D ERR("Appointment is not Checked Out.") Q + ; + ; Event driver "BEFORE" actions - wtc SD*5.3*717 10/25/18 + ; + N SDATA,SDDA,SDCIHDL ; + S SDDA=$$FIND(DFN,SDT,SDCL),SDATA=SDDA_U_DFN_U_SDT_U_SDCL,SDCIHDL=$$HANDLE^SDAMEVT(1) ; + ; + ; Event driver "BEFORE" actions - wtc SD*5.3*717 10/25/18 + ; + D BEFORE^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL) ; + ; ; ^SDECAPPT: update piece 8: Data Entry Clerk; clear piece 14: CHECKOUT; S DIE="^SDEC(409.84," S DA=SDECAPTID @@ -328,6 +388,15 @@ S DA(2)=SDCL,DA(1)=SDT,(DA,SDN)=$$SCIEN^SDECU2(DFN,SDCL,SDT) I +APS D . S DIE=409.68,DA=SDOE,DR=".07///@;.12///"_APS_";101///"_DUZ_";102///"_$$NOW^XLFDT . D ^DIE + ; + ; Event driver "AFTER" actions - wtc SD*5.3*717 10/25/18 + ; + D AFTER^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL) ; + ; + ; Execute event driver. 5=check out (see #409.66), 2=non-interactive - wtc SD*5.3*717 10/25/18 + ; + D EVT^SDAMEVT(.SDATA,5,2,SDCIHDL) ; + ; S SDECI=SDECI+1 S ^TMP("SDEC",$J,SDECI)="0"_$C(30) S SDECI=SDECI+1 diff --git a/Packages/Scheduling/Routines/SDEC31.m b/Packages/Scheduling/Routines/SDEC31.m index 1d47a7b0789..6a8c08ac34d 100644 --- a/Packages/Scheduling/Routines/SDEC31.m +++ b/Packages/Scheduling/Routines/SDEC31.m @@ -1,5 +1,5 @@ SDEC31 ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016 - ;;5.3;Scheduling;**627,683**;Aug 13, 1993;Build 2 + ;;5.3;Scheduling;**627,683,717**;Aug 13, 1993;Build 12 ; Q ; @@ -12,7 +12,7 @@ ; default to current user ;SDECDATE - (optional) Date/Time that No-show was entered in external format ; default to NOW. - ;Calls CANCEL^SDEC08 to set noshow data in ^DPT + ;Calls CANCEL^SDEC08 to set noshow data in ^DPT <<== NOT TRUE wtc 10/25/18 ;Returns error code in recordset field ERRORID ; N SDECNOD,DFN,SDECSTART,SDECID,SDECI,SDECZ,SDECERR,SDECMSG,SDFDA,SDECIENS @@ -47,17 +47,37 @@ S DFN=$P(SDECNOD,U,5) S SDECSTART=$P(SDECNOD,U) ; - D SDECNOS(SDECAPTID,SDECNS,USERIEN,SDECDATE) - I $D(SDECMSG("DIERR")) S SDECMSG=$G(SDECMSG("DIERR",1,"TEXT",1)) D ERR(0,"SDEC31: "_SDECMSG) Q + ; Event driver "BEFORE" actions - wtc SD*5.3*717 10/25/18 + ; + N SDATA,SDDA,SDCIHDL,SDECR1,SDECSC1 ; + S SDECR1=$P(SDECNOD,U,7) ;RESOURCEID + I SDECR1="" D ERR(0,"SDEC31: Missing resource") Q ; + S SDECNOD=$G(^SDEC(409.831,SDECR1,0)) I SDECNOD="" D ERR(0,"SDEC31: Resource node missing") Q ; + S SDECSC1=$P(SDECNOD,U,4) ;HOSPITAL LOCATION + I SDECSC1="" D ERR(0,"SDEC31: No location for resource") Q ; + I '$D(^SC(SDECSC1,0)) D ERR(0,"SDEC31: Location node missing") Q ; + ; + S SDDA=$$FIND^SDEC25(DFN,SDECSTART,SDECSC1),SDATA=SDDA_U_DFN_U_SDECSTART_U_SDECSC1,SDCIHDL=$$HANDLE^SDAMEVT(1) ; + D BEFORE^SDAMEVT(.SDATA,DFN,SDECSTART,SDECSC1,SDDA,SDCIHDL) ; + ; + ; Process no show + ; + D SDECNOS(SDECAPTID,SDECNS,USERIEN,SDECDATE) ; + I $D(SDECMSG("DIERR")) S SDECMSG=$G(SDECMSG("DIERR",1,"TEXT",1)) D ERR(0,"SDEC31: "_SDECMSG) Q ; + D APNOSHO(.SDECZ,SDECSC1,DFN,SDECSTART,SDECNS,USERIEN,SDECDATE,SDECAPTID) ; + I +$G(SDECZ) S SDECERR="SDEC31: APNOSHO Returned: "_SDECZ D ERR(0,SDECERR) Q ; ; - S SDCL=$P(SDECNOD,U,7) ;RESOURCEID - I SDCL]"",$D(^SDEC(409.831,SDCL,0)) D I $G(SDECZ)]"" S SDECERR="SDEC31: APNOSHO Returned: "_SDECZ D ERR(0,SDECERR) Q - . S SDECNOD=^SDEC(409.831,SDCL,0) - . S SDCL=$P(SDECNOD,U,4) ;HOSPITAL LOCATION - . I SDCL]"",$D(^SC(SDCL,0)) D APNOSHO(.SDECZ,SDCL,DFN,SDECSTART,SDECNS,USERIEN,SDECDATE,SDECAPTID) ;*zeb+2 683 2/6/18 fix action required in PCE after no-show from GUI S SDECOE=$P($G(^DPT(DFN,"S",SDECSTART,0)),"^",20) - I SDECOE D EN^SDCODEL(SDECOE,0) + I SDECOE D EN^SDCODEL(SDECOE,2,"","NOSHOW") ;*zeb 717 11/13/18 suppress event logging for cancel checkout when no-showing + ; + ; Event driver "AFTER" actions - wtc SD*5.3*717 10/24/18 + ; + D AFTER^SDAMEVT(.SDATA,DFN,SDECSTART,SDECSC1,SDDA,SDCIHDL) ; + ; + ; Execute event driver. 3=no show (see #409.66), 2=non-interactive - wtc SD*5.3*717 10/25/18 + ; + D EVT^SDAMEVT(.SDATA,3,2,SDCIHDL) ; ; TCOMMIT S SDECI=SDECI+1 @@ -99,6 +119,7 @@ D SDECNOS(SDECAPTID,SDECNS,USERIEN,SDECDATE) S SDFDA(409.84,SDECIENS,.1)=SDECNS ;NOSHOW S SDFDA(409.84,SDECIENS,.101)=$S(+SDECNS:SDECDATE,1:"") ;NOSHOW DATE S SDFDA(409.84,SDECIENS,.102)=$S(+SDECNS:USERIEN,1:"") ;NOSHOW USER + S SDFDA(409.84,SDECIENS,.17)=$S(+SDECNS:"N",1:"") ; Update STATUS SD*5.3*717 wtc 10/25/18 D FILE^DIE("","SDFDA","SDECMSG") ; Q