EEO2P12A.m

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 ---EEO2P12A   915     printed  Apr 23, 2025@18:05:18                                                                                                                                                                                                     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