Routine: EEO2P12

EEO2P12 ;ALB/MJB - Set OUT OF ORDER field for old EEO options ; 07/15/2024

 ;;2.0;EEO Complaint Tracking;**12**;Apr 27, 1995;Build 6

 ;Reference to XPDMENU supported by ICR 1157

MAIN(EEO) ; Step through options, pull IEN from B index and update

 ;EEO IS THE MENU RESTORE FLAG : 1=restore, anything else will place out of order

 N DA,DIE,DR,DO,EEOSOPT,EEOSD0,EEOMSG,EEOI,EEOTXT  K X,Y

 S EEO=$G(EEO),EEOTXT=$S(EEO=1:"@",1:"Disabled - USE EEO Eco-Case Management System (eSquared CSM)")

 F EEOI=1:1  S EEOSOPT=$P($T(OPTS+EEOI^EEO2P12),";",3) Q:EEOSOPT=""  D

 . S EEOSD0=$O(^DIC(19,"B",EEOSOPT,0)) I EEOSD0="" S EEOMSG="OPTION "_EEOSOPT_" NOT FOUND" D EN^DDIOL(EEOMSG) Q

 . Q:$P($G(^DIC(19,EEOSD0,0)),"^")'=EEOSOPT

 . S EEOMSG="SETTING "_EEOSOPT_" TO "_$S(EEO=1:"ACTIVE...",1:"OUT OF ORDER...")

 . D EN^DDIOL(EEOMSG),OUT^XPDMENU(EEOSOPT,EEOTXT)

.Q

 D CLEAN^DILF

OPTS ; Options to disable

 ;;EEO ADHOC

 ;;EEO CLOSE CASE

 ;;EEO CLOSE/DELETE

 ;;EEO COMPLAINT STATION MENU

 ;;EEO COUNSELOR ENTER/EDIT

 ;;EEO COUNSELOR SECURITY

 ;;EEO COUNSELORS MENU

 ;;EEO DELETE

 ;;EEO ENTER/EDIT F.C.

 ;;EEO FORM 0210

 ;;EEO MANAGER

 ;;EEO NOTICE OF RIGHTS

 ;;EEO REOPEN CASE

 ;;EEO REPORT1

 ;;EEO REXMT

 ;;EEO STATION ADD/EDIT

 ;;EEO STATION INQUIRE

 ;;EEO STATION INVESTIGATION

 ;;EEO STATION REPORT

 ;;EEO STATION REPORT 1

 ;;EEO STATION REPORT 2

 ;;EEO TASKED BULLETIN

 ;;EEO TIMELINESS REPORT

 ;;EEO UNDELETE

 ;;EEO UPLINK SERVER

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEEO2P12   1471     printed  Mar 13, 2025@20:55:28                                                                                                                                                                                                     Page 2

EEO2P12   ;ALB/MJB - Set OUT OF ORDER field for old EEO options ; 07/15/2024

 +1       ;;2.0;EEO Complaint Tracking;**12**;Apr 27, 1995;Build 6

 +2       ;Reference to XPDMENU supported by ICR 1157

 +3        QUIT

 +4       ;

MAIN(EEO) ; Step through options, pull IEN from B index and update

 +1       ;EEO IS THE MENU RESTORE FLAG : 1=restore, anything else will place out of order

 +2        NEW DA,DIE,DR,DO,EEOSOPT,EEOSD0,EEOMSG,EEOI,EEOTXT

           KILL X,Y

 +3        SET EEO=$GET(EEO)

           SET EEOTXT=$SELECT(EEO=1:"@",1:"Disabled - USE EEO Eco-Case Management System (eSquared CSM)")

 +4        FOR EEOI=1:1

               SET EEOSOPT=$PIECE($TEXT(OPTS+EEOI^EEO2P12),";",3)

               if EEOSOPT=""

                   QUIT

               Begin DoDot:1

 +5                SET EEOSD0=$ORDER(^DIC(19,"B",EEOSOPT,0))

                   IF EEOSD0=""

                       SET EEOMSG="OPTION "_EEOSOPT_" NOT FOUND"

                       DO EN^DDIOL(EEOMSG)

                       QUIT

 +6                if $PIECE($GET(^DIC(19,EEOSD0,0)),"^")'=EEOSOPT

                       QUIT

 +7                SET EEOMSG="SETTING "_EEOSOPT_" TO "_$SELECT(EEO=1:"ACTIVE...",1:"OUT OF ORDER...")

 +8                DO EN^DDIOL(EEOMSG)

                   DO OUT^XPDMENU(EEOSOPT,EEOTXT)

 +9                QUIT

               End DoDot:1

 +10       DO CLEAN^DILF

 +11       QUIT

OPTS      ; Options to disable

 +1       ;;EEO ADHOC

 +2       ;;EEO CLOSE CASE

 +3       ;;EEO CLOSE/DELETE

 +4       ;;EEO COMPLAINT STATION MENU

 +5       ;;EEO COUNSELOR ENTER/EDIT

 +6       ;;EEO COUNSELOR SECURITY

 +7       ;;EEO COUNSELORS MENU

 +8       ;;EEO DELETE

 +9       ;;EEO ENTER/EDIT F.C.

 +10      ;;EEO FORM 0210

 +11      ;;EEO MANAGER

 +12      ;;EEO NOTICE OF RIGHTS

 +13      ;;EEO REOPEN CASE

 +14      ;;EEO REPORT1

 +15      ;;EEO REXMT

 +16      ;;EEO STATION ADD/EDIT

 +17      ;;EEO STATION INQUIRE

 +18      ;;EEO STATION INVESTIGATION

 +19      ;;EEO STATION REPORT

 +20      ;;EEO STATION REPORT 1

 +21      ;;EEO STATION REPORT 2

 +22      ;;EEO TASKED BULLETIN

 +23      ;;EEO TIMELINESS REPORT

 +24      ;;EEO UNDELETE

 +25      ;;EEO UPLINK SERVER

 +26       QUIT

EEO2P12.m