EEO2P12A ;ALB/MJB - Dequeue obsolete EEO tasks ; 07/15/2024
;;2.0;EEO Complaint Tracking;**12**;Apr 27, 1995;Build 6
;
Q
EN ;entry point
D DEQUEUE
Q
;
DEQUEUE ;Dequeue scheduled options
N EEOLST,EEOLP,EEOLP1,EEOOPT,EEOX,EEOTSK,EEOLST1
D BMES^XPDUTL("Starting dequeue of EEO tasks")
F EEOLP=1:1 S EEOTSK=$P($TEXT(TSKLST+EEOLP),";;",2) Q:EEOTSK="$$END" D
.D RTN^%ZTLOAD(EEOTSK,"EEOLST")
.S EEOX=0 F S EEOX=$O(EEOLST(EEOX)) Q:'EEOX S ZTSK=EEOX D DQ^%ZTLOAD
F EEOLP1=1:1 S EEOOPT=$P($TEXT(OPTLST+EEOLP1),";;",2) Q:EEOOPT="$$END" D
.D OPTION^%ZTLOAD(EEOOPT,"EEOLST1")
.S EEOX=0 F S EEOX=$O(EEOLST1(EEOX)) Q:'EEOX S ZTSK=EEOX D DQ^%ZTLOAD
.D RESCH^XUTMOPT(EEOOPT,"@",,"@") ;Un-schedule option
D BMES^XPDUTL("Dequeuing of EEO tasks complete")
Q
;
TSKLST ;Task List
;;D^EEOEXMT1
;;$$END
OPTLST ;Option List
;;EEO TASKED BULLETIN
;;EEO TASKED UPLINK BULLETIN
;;$$END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEEO2P12A 915 printed Aug 26, 2025@22:06:36 Page 2
EEO2P12A ;ALB/MJB - Dequeue obsolete EEO tasks ; 07/15/2024
+1 ;;2.0;EEO Complaint Tracking;**12**;Apr 27, 1995;Build 6
+2 ;
+3 QUIT
EN ;entry point
+1 DO DEQUEUE
+2 QUIT
+3 ;
DEQUEUE ;Dequeue scheduled options
+1 NEW EEOLST,EEOLP,EEOLP1,EEOOPT,EEOX,EEOTSK,EEOLST1
+2 DO BMES^XPDUTL("Starting dequeue of EEO tasks")
+3 FOR EEOLP=1:1
SET EEOTSK=$PIECE($TEXT(TSKLST+EEOLP),";;",2)
if EEOTSK="$$END"
QUIT
Begin DoDot:1
+4 DO RTN^%ZTLOAD(EEOTSK,"EEOLST")
+5 SET EEOX=0
FOR
SET EEOX=$ORDER(EEOLST(EEOX))
if 'EEOX
QUIT
SET ZTSK=EEOX
DO DQ^%ZTLOAD
End DoDot:1
+6 FOR EEOLP1=1:1
SET EEOOPT=$PIECE($TEXT(OPTLST+EEOLP1),";;",2)
if EEOOPT="$$END"
QUIT
Begin DoDot:1
+7 DO OPTION^%ZTLOAD(EEOOPT,"EEOLST1")
+8 SET EEOX=0
FOR
SET EEOX=$ORDER(EEOLST1(EEOX))
if 'EEOX
QUIT
SET ZTSK=EEOX
DO DQ^%ZTLOAD
+9 ;Un-schedule option
DO RESCH^XUTMOPT(EEOOPT,"@",,"@")
End DoDot:1
+10 DO BMES^XPDUTL("Dequeuing of EEO tasks complete")
+11 QUIT
+12 ;
TSKLST ;Task List
+1 ;;D^EEOEXMT1
+2 ;;$$END
OPTLST ;Option List
+1 ;;EEO TASKED BULLETIN
+2 ;;EEO TASKED UPLINK BULLETIN
+3 ;;$$END
