- 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 Apr 23, 2025@17:53:03 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