OOPS233P.m

OOPS233P ;MNT/RFS - OOPS*2*33 post install routine ; Feb 9, 2022@08:54

 ;;2.0;ASISTS;**33**;Jun 03, 2002;Build 5

 ;

 Q

EN ;entry point

 D DEQUEUE

 Q

 ;

DEQUEUE ;Dequeue scheduled options

 N OOPSLST,OOPSLP,OOPSLP1,OOPSOPT,OOPSX,OOPSTSK,OOPSLST1

 D BMES^XPDUTL("Starting dequeue of OOPS tasks")

 F OOPSLP=1:1 S OOPSTSK=$P($TEXT(TSKLST+OOPSLP),";;",2) Q:OOPSTSK="$$END"  D

 .D RTN^%ZTLOAD(OOPSTSK,"OOPSLST")

 .S OOPSX=0 F  S OOPSX=$O(OOPSLST(OOPSX)) Q:'OOPSX  S ZTSK=OOPSX D DQ^%ZTLOAD

 F OOPSLP1=1:1 S OOPSOPT=$P($TEXT(OPTLST+OOPSLP1),";;",2) Q:OOPSOPT="$$END"  D

 .D OPTION^%ZTLOAD(OOPSOPT,"OOPSLST1")

 .S OOPSX=0 F  S OOPSX=$O(OOPSLST1(OOPSX)) Q:'OOPSX  S ZTSK=OOPSX D DQ^%ZTLOAD

 .D RESCH^XUTMOPT(OOPSOPT,"@",,"@") ;Un-schedule option

 D BMES^XPDUTL("Dequeuing of OOPS tasks complete")

 Q

 ;

TSKLST ;Task List

 ;;EN^OOPSNDB

 ;;EN^OOPSDOL

 ;;$$END

OPTLST ;Option List

 ;;OOPS DOL SCHEDULED XMIT DATA

 ;;OOPS SCHEDULED XMIT 2162 DATA

 ;;$$END

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OOPS233P   971     printed  Apr 09, 2024@20:44:29                                                                                                                                                                                                     Page 2

OOPS233P  ;MNT/RFS - OOPS*2*33 post install routine ; Feb 9, 2022@08:54

 +1       ;;2.0;ASISTS;**33**;Jun 03, 2002;Build 5

 +2       ;

 +3        QUIT 

EN        ;entry point

 +1        DO DEQUEUE

 +2        QUIT 

 +3       ;

DEQUEUE   ;Dequeue scheduled options

 +1        NEW OOPSLST,OOPSLP,OOPSLP1,OOPSOPT,OOPSX,OOPSTSK,OOPSLST1

 +2        DO BMES^XPDUTL("Starting dequeue of OOPS tasks")

 +3        FOR OOPSLP=1:1

               SET OOPSTSK=$PIECE($TEXT(TSKLST+OOPSLP),";;",2)

               if OOPSTSK="$$END"

                   QUIT 

               Begin DoDot:1

 +4                DO RTN^%ZTLOAD(OOPSTSK,"OOPSLST")

 +5                SET OOPSX=0

                   FOR 

                       SET OOPSX=$ORDER(OOPSLST(OOPSX))

                       if 'OOPSX

                           QUIT 

                       SET ZTSK=OOPSX

                       DO DQ^%ZTLOAD

               End DoDot:1

 +6        FOR OOPSLP1=1:1

               SET OOPSOPT=$PIECE($TEXT(OPTLST+OOPSLP1),";;",2)

               if OOPSOPT="$$END"

                   QUIT 

               Begin DoDot:1

 +7                DO OPTION^%ZTLOAD(OOPSOPT,"OOPSLST1")

 +8                SET OOPSX=0

                   FOR 

                       SET OOPSX=$ORDER(OOPSLST1(OOPSX))

                       if 'OOPSX

                           QUIT 

                       SET ZTSK=OOPSX

                       DO DQ^%ZTLOAD

 +9       ;Un-schedule option

                   DO RESCH^XUTMOPT(OOPSOPT,"@",,"@")

               End DoDot:1

 +10       DO BMES^XPDUTL("Dequeuing of OOPS tasks complete")

 +11       QUIT 

 +12      ;

TSKLST    ;Task List

 +1       ;;EN^OOPSNDB

 +2       ;;EN^OOPSDOL

 +3       ;;$$END

OPTLST    ;Option List

 +1       ;;OOPS DOL SCHEDULED XMIT DATA

 +2       ;;OOPS SCHEDULED XMIT 2162 DATA

 +3       ;;$$END