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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAN2P34 1746 printed Dec 13, 2024@01:59:28 Page 2
QAN2P34 ;ALB/DRP - Set OUT OF ORDER field for old QAN options ;07/17/2018 13:00
+1 ;;2.0;Incident Reporting;**34**;08/07/1992;Build 6
+2 ;Reference to XPDMENU supported by ICR 1157
+3 QUIT
+4 ;
MAIN(QAN) ; Step through options, pull IEN from B index and update
+1 ;QAN IS THE MENU RESTORE FLAG : 1=restore, anything else will place out of order
+2 NEW DA,DIE,DR,DO,QANSOPT,QANSD0,QANMSG,QANI,QANTXT
KILL X,Y
+3 SET QAN=$GET(QAN)
SET QANTXT=$SELECT(QAN=1:"@",1:"Disabled-USE Joint Patient Safety Reporting-JPSR")
+4 FOR QANI=1:1
SET QANSOPT=$PIECE($TEXT(OPTS+QANI^QAN2P34),";",3)
if QANSOPT=""
QUIT
Begin DoDot:1
+5 SET QANSD0=$ORDER(^DIC(19,"B",QANSOPT,0))
IF QANSD0=""
SET QANMSG="OPTION "_QANSOPT_" NOT FOUND"
DO EN^DDIOL(QANMSG)
QUIT
+6 if $PIECE($GET(^DIC(19,QANSD0,0)),"^")'=QANSOPT
QUIT
+7 SET QANMSG="SETTING "_QANSOPT_" TO "_$SELECT(QAN=1:"ACTIVE...",1:"OUT OF ORDER...")
+8 DO EN^DDIOL(QANMSG)
DO OUT^XPDMENU(QANSOPT,QANTXT)
+9 QUIT
End DoDot:1
+10 DO CLEAN^DILF
+11 QUIT
OPTS ; Options to disable
+1 ;;QAN AUTO E-MAIL BRIEF
+2 ;;QAN AUTO E-MAIL DELETE
+3 ;;QAN AUTO E-MAIL FULL
+4 ;;QAN BRIEF EDIT
+5 ;;QAN DBASE INTEGRITY CHECKER
+6 ;;QAN EARLY WARNING SYSTEM AUTO
+7 ;;QAN EARLY WARNING SYSTEM MAN
+8 ;;QAN INCIDENT FOLLOW-UP
+9 ;;QAN INCIDENT LOCATION
+10 ;;QAN INCIDENT MAIL TO REGION
+11 ;;QAN INCIDENT QUICK
+12 ;;QAN INCIDENT REGION STATUS
+13 ;;QAN INCIDENT REPORT
+14 ;;QAN INCIDENT STATUS ENTER/EDIT
+15 ;;QAN INCIDENT SUMMARY REGION
+16 ;;QAN INCIDENT WORKSHEET
+17 ;;QAN PATIENT MANIPULATION
+18 ;;QAN PATIENT/INCIDENT VIEW
+19 ;;QAN RECORD MANIPULATION
+20 ;;QAN SITE PARAMETERS ENTER/EDIT
+21 ;;QAN FR ENTER/EDIT
+22 ;;QAN FR PRINT
+23 ;;QAN BOI ENTER/EDIT
+24 ;;QANSERV
+25 ;;QAN FR DELETE
+26 ;;QAN MANUAL FORM UPDATE
+27 ;;QAN MANUAL FORM NOTIFICATION
+28 ;;QAN IR MANUAL UPDATE
+29 ;;QAN IR MANUAL NOTIFICATION
+30 ;;QANERC
+31 ;;QAN TEST
+32 ;;QAN TRANSMIT
+33 ;;QAN PRINT IR
+34 QUIT
