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
Q
;
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
Q
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEEO2P12 1471 printed Aug 26, 2025@22:06:35 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
