Install: QAN*2.0*34

Patch Subject: INCIDENT REPORTING DATA ENTRY DEACTIVATION Description: ============ Incident Reporting patch, QAN*2.0*34, marks menu options as, "Disabled-USE Joint Patient Safety Reporting-JPSR". This was requested by the Veterans Health Administration National Center for Patient Safety Joint Patient Safety Reporting (VHANCPS JPSR) TEAM. Patch Components: ================= Files & Fields Associated: File Name (Number) Field Name (Number) New/Modified/Deleted ------------------ ------------------- -------------------- N/A Forms Associated: Form Name File # New/Modified/Deleted --------- ------ -------------------- N/A Mail Group Associated: Mail Group Name New/Modified/Deleted --------------- -------------------- N/A Options Associated: Option Name Type New/Modified/Deleted ----------- ---- -------------------- N/A Protocols Associated: Protocol Name New/Modified/Deleted ------------- -------------------- N/A Security Keys Associated: Security Key Name ----------------- N/A Templates Associated: Template Name Type File Name (Number) New/Modified/Deleted ------------- ---- ------------------ -------------------- N/A Additional Information: N/A New Service Request (NSRs): --------------------------- N/A Patient Safety Issues (PSIs): ----------------------------- N/A Defect Tracking System Ticket(s) & Overview: -------------------------------------------- 1. Rational Defect# 781764- Place Incident Reporting Menu Options "out of order". Problem: -------- The VHANCPS JPSR TEAM has identified that several Incident Reporting menu options are obsolete and no longer in use. They have requested the options listed in this patch be disabled with the message: "Disabled-USE Joint Patient Safety Reporting-JPSR". Resolution: ----------- The post install routine QAN2P34 has been created to update the OUT OF ORDER MESSAGE field (#2), with, "Disabled-USE Joint Patient Safety Reporting-JPSR". NOTE: The following list is inclusive and some sites may not have all listed options. There is no cause for concern if your site does not have some of these listed options. Option Name Type New/Modified/Deleted ----------------- ---- -------------------- QAN AUTO E-MAIL BRIEF R Modified QAN AUTO E-MAIL DELETE R Modified QAN AUTO E-MAIL FULL R Modified QAN BRIEF EDIT R Modified QAN DBASE INTEGRITY CHECKER R Modified QAN EARLY WARNING SYSTEM AUTO R Modified QAN EARLY WARNING SYSTEM MAN R Modified QAN INCIDENT FOLLOW-UP R Modified QAN INCIDENT LOCATION R Modified QAN INCIDENT MAIL TO REGION R Modified QAN INCIDENT QUICK R Modified QAN INCIDENT REGION STATUS R Modified QAN INCIDENT REPORT R Modified QAN INCIDENT STATUS ENTER/EDIT R Modified QAN INCIDENT SUMMARY REGION R Modified QAN INCIDENT WORKSHEET R Modified QAN PATIENT MANIPULATION R Modified QAN PATIENT/INCIDENT VIEW R Modified QAN RECORD MANIPULATION R Modified QAN SITE PARAMETERS ENTER/EDIT R Modified QAN FR ENTER/EDIT R Modified QAN FR PRINT R Modified QAN BOI ENTER/EDIT R Modified QANSERV R Modified QAN FR DELETE R Modified QAN MANUAL FORM UPDATE R Modified QAN MANUAL FORM NOTIFICATION R Modified QAN IR MANUAL UPDATE R Modified QAN IR MANUAL NOTIFICATION R Modified QANERC R Modified QAN TEST R Modified QAN TRANSMIT R Modified QAN PRINT IR R Modified Test Sites: ----------- North Texas HCS (Dallas) Maine HCS (Togus) Software and Documentation Retrieval Instructions: -------------------------------------------------- Software being released as a host file and/or documentation describing the new functionality introduced by this patch are available. The preferred method is to retrieve files from download.vista.domain.ext. This transmits the files from the first available server. Sites may also elect to retrieve files directly from a specific server. Sites may retrieve the software and/or documentation directly using Secure File Transfer Protocol (SFTP) from the ANONYMOUS.SOFTWARE directory at the following OI Field Offices: Albany: domain.ext Hines: domain.ext Salt Lake City: domain.ext Filename Description ======= ======================================================== irtm.pdf Incident Reporting V 2.0 Technical Manual irum.pdf Incident Reporting V 2.0 User Manual NOTE: These files must be transferred using the binary (BIN) file transfer mode. The complete and updated User Manual will be posted to the VDL immediately after the release of the patch. Installation Instruction: Pre/Post Installation Overview: ------------------------------- This patch may be installed with users on the system although it is recommended it be queued to run after normal business hours to minimize potential disruption to users. This patch should take less than 5 minutes to install. Use default answers for KIDS load/install questions. Patch-Files: http://code.osehra.org/VistA.git/tree/master/Packages/Incident+Reporting/Patches/QAN_2.0_34
WorldVistA · May 22, 2019 · 6bc27bb · 6bc27bb
1 parent 6f18259
commit 6bc27bb
Show file tree

Hide file tree

Showing 7 changed files with 287 additions and 35 deletions.
diff --git a/Packages/Incident Reporting/Routines/QAN2P34.m b/Packages/Incident Reporting/Routines/QAN2P34.m
@@ -0,0 +1,52 @@
+QAN2P34 ;ALB/DRP - Set OUT OF ORDER field for old QAN options ;07/17/2018  13:00
+ ;;2.0;Incident Reporting;**34**;08/07/1992;Build 6
+ ;Reference to XPDMENU supported by ICR 1157
+ Q
+ ;
+MAIN(QAN) ; Step through options, pull IEN from B index and update
+ ;QAN IS THE MENU RESTORE FLAG : 1=restore, anything else will place out of order
+ N DA,DIE,DR,DO,QANSOPT,QANSD0,QANMSG,QANI,QANTXT  K X,Y
+ S QAN=$G(QAN),QANTXT=$S(QAN=1:"@",1:"Disabled-USE Joint Patient Safety Reporting-JPSR")
+ F QANI=1:1  S QANSOPT=$P($T(OPTS+QANI^QAN2P34),";",3) Q:QANSOPT=""  D
+ . S QANSD0=$O(^DIC(19,"B",QANSOPT,0)) I QANSD0="" S QANMSG="OPTION "_QANSOPT_" NOT FOUND" D EN^DDIOL(QANMSG) Q
+ . Q:$P($G(^DIC(19,QANSD0,0)),"^")'=QANSOPT
+ . S QANMSG="SETTING "_QANSOPT_" TO "_$S(QAN=1:"ACTIVE...",1:"OUT OF ORDER...")
+ . D EN^DDIOL(QANMSG),OUT^XPDMENU(QANSOPT,QANTXT)
+ .Q
+ D CLEAN^DILF
+ Q
+OPTS ; Options to disable
+ ;;QAN AUTO E-MAIL BRIEF
+ ;;QAN AUTO E-MAIL DELETE
+ ;;QAN AUTO E-MAIL FULL
+ ;;QAN BRIEF EDIT
+ ;;QAN DBASE INTEGRITY CHECKER
+ ;;QAN EARLY WARNING SYSTEM AUTO
+ ;;QAN EARLY WARNING SYSTEM MAN
+ ;;QAN INCIDENT FOLLOW-UP
+ ;;QAN INCIDENT LOCATION
+ ;;QAN INCIDENT MAIL TO REGION
+ ;;QAN INCIDENT QUICK
+ ;;QAN INCIDENT REGION STATUS
+ ;;QAN INCIDENT REPORT
+ ;;QAN INCIDENT STATUS ENTER/EDIT
+ ;;QAN INCIDENT SUMMARY REGION
+ ;;QAN INCIDENT WORKSHEET
+ ;;QAN PATIENT MANIPULATION
+ ;;QAN PATIENT/INCIDENT VIEW
+ ;;QAN RECORD MANIPULATION
+ ;;QAN SITE PARAMETERS ENTER/EDIT
+ ;;QAN FR ENTER/EDIT
+ ;;QAN FR PRINT
+ ;;QAN BOI ENTER/EDIT
+ ;;QANSERV
+ ;;QAN FR DELETE
+ ;;QAN MANUAL FORM UPDATE
+ ;;QAN MANUAL FORM NOTIFICATION
+ ;;QAN IR MANUAL UPDATE
+ ;;QAN IR MANUAL NOTIFICATION
+ ;;QANERC
+ ;;QAN TEST
+ ;;QAN TRANSMIT
+ ;;QAN PRINT IR
+ Q
diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr
@@ -1,6 +1,6 @@
 OSEHRA ZGO Export: TASKS
-22-MAY-2019 13:29:31 ZWR
-^%ZTSK(-1)=4893
+22-MAY-2019 14:47:49 ZWR
+^%ZTSK(-1)=4898
 ^%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^^"
@@ -46329,6 +46329,69 @@ OSEHRA ZGO Export: TASKS
 ^%ZTSK(4893,.3,"DUZ(",0)="@"
 ^%ZTSK(4893,.3,"XQSCH")=8
 ^%ZTSK(4893,.3,"XQY")=9891
+^%ZTSK(4894,0)="HOUR^XUTMHR^.5^^65155,52978^65155,52978^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^"
+^%ZTSK(4894,.02)="^VISTA^^"
+^%ZTSK(4894,.03)="Taskman Hourly Job"
+^%ZTSK(4894,.04)=5629444978
+^%ZTSK(4894,.1)="B^65155,53038^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4894,.2)=""
+^%ZTSK(4894,.21)=""
+^%ZTSK(4894,.25)=""
+^%ZTSK(4895,0)="ZTSK^XQ1^.5^VISTA^65155,53038^65155,53038^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4895,.02)="^VISTA^^"
+^%ZTSK(4895,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4895,.04)=5629445038
+^%ZTSK(4895,.1)="B^65155,53040^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4895,.2)=""
+^%ZTSK(4895,.21)=""
+^%ZTSK(4895,.25)=""
+^%ZTSK(4895,.3,"DUZ(",0)="@"
+^%ZTSK(4895,.3,"XQSCH")=10
+^%ZTSK(4895,.3,"XQY")=8853
+^%ZTSK(4896,0)="ZTSK^XQ1^.5^VISTA^65155,53038^65155,53038^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4896,.02)="^VISTA^^"
+^%ZTSK(4896,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4896,.04)=5629445038
+^%ZTSK(4896,.1)="B^65155,53042^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4896,.2)=""
+^%ZTSK(4896,.21)=""
+^%ZTSK(4896,.25)=""
+^%ZTSK(4896,.3,"DUZ(",0)="@"
+^%ZTSK(4896,.3,"XQSCH")=11
+^%ZTSK(4896,.3,"XQY")=8412
+^%ZTSK(4897,0)="ZTSK^XQ1^.5^VISTA^65155,53038^65155,53038^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4897,.02)="^VISTA^^"
+^%ZTSK(4897,.03)="No Description (%ZTLOAD)"
+^%ZTSK(4897,.04)=5629445038
+^%ZTSK(4897,.1)="B^65155,53044^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4897,.2)=""
+^%ZTSK(4897,.21)=""
+^%ZTSK(4897,.25)=""
+^%ZTSK(4897,.3,"DUZ(",0)="@"
+^%ZTSK(4897,.3,"XQSCH")=8
+^%ZTSK(4897,.3,"XQY")=9891
+^%ZTSK(4898,0)="DQ^XQ83^17^VISTA^65155,53048^65154,53048^R^245^XPD INSTALL BUILD^USER,SEVENTEEN^VISTA^VISTA^ZTDESC^VISTA^"
+^%ZTSK(4898,.02)="^VISTA^^"
+^%ZTSK(4898,.03)="MICRO UPDATING XUTL"
+^%ZTSK(4898,.04)=5629358648
+^%ZTSK(4898,.1)="B^65155,53053^Task's volume set not listed in index.^^^^^^"
+^%ZTSK(4898,.2)=""
+^%ZTSK(4898,.21)=""
+^%ZTSK(4898,.25)=""
+^%ZTSK(4898,.3,"%XQT")=3190522.024945
+^%ZTSK(4898,.3,"DUZ")=.5
+^%ZTSK(4898,.3,"DUZ(",0)="@"
+^%ZTSK(4898,.3,"DUZ(",1)=""
+^%ZTSK(4898,.3,"DUZ(",2)=1214
+^%ZTSK(4898,.3,"DUZ(","AG")="E"
+^%ZTSK(4898,.3,"DUZ(","AUTHENTICATION")="XUP"
+^%ZTSK(4898,.3,"DUZ(","AUTO")=1
+^%ZTSK(4898,.3,"DUZ(","BUF")=1
+^%ZTSK(4898,.3,"DUZ(","LANG")=""
+^%ZTSK(4898,.3,"DUZ(","LOA")=2
+^%ZTSK(4898,.3,"DUZ(","TEST")=" <TEST ACCOUNT>"
+^%ZTSK(4898,.3,"XQY")=245
+^%ZTSK(4898,.3,"XQY0")="XPD INSTALL BUILD^Install Package(s)^^R^^^^^^^^2"
 ^%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"