QAN2P34.m

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 ---QAN2P34   1746     printed  Apr 09, 2024@21:01:24                                                                                                                                                                                                     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