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 ---[H[J[2J[HOOPS233P 971 printed Dec 13, 2024@01:38:37 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
