Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: OOPS233P

OOPS233P.m

Go to the documentation of this file.
  1. OOPS233P ;MNT/RFS - OOPS*2*33 post install routine ; Feb 9, 2022@08:54
  1. ;;2.0;ASISTS;**33**;Jun 03, 2002;Build 5
  1. ;
  1. Q
  1. EN ;entry point
  1. D DEQUEUE
  1. Q
  1. ;
  1. DEQUEUE ;Dequeue scheduled options
  1. N OOPSLST,OOPSLP,OOPSLP1,OOPSOPT,OOPSX,OOPSTSK,OOPSLST1
  1. D BMES^XPDUTL("Starting dequeue of OOPS tasks")
  1. F OOPSLP=1:1 S OOPSTSK=$P($TEXT(TSKLST+OOPSLP),";;",2) Q:OOPSTSK="$$END" D
  1. .D RTN^%ZTLOAD(OOPSTSK,"OOPSLST")
  1. .S OOPSX=0 F S OOPSX=$O(OOPSLST(OOPSX)) Q:'OOPSX S ZTSK=OOPSX D DQ^%ZTLOAD
  1. F OOPSLP1=1:1 S OOPSOPT=$P($TEXT(OPTLST+OOPSLP1),";;",2) Q:OOPSOPT="$$END" D
  1. .D OPTION^%ZTLOAD(OOPSOPT,"OOPSLST1")
  1. .S OOPSX=0 F S OOPSX=$O(OOPSLST1(OOPSX)) Q:'OOPSX S ZTSK=OOPSX D DQ^%ZTLOAD
  1. .D RESCH^XUTMOPT(OOPSOPT,"@",,"@") ;Un-schedule option
  1. D BMES^XPDUTL("Dequeuing of OOPS tasks complete")
  1. Q
  1. ;
  1. TSKLST ;Task List
  1. ;;EN^OOPSNDB
  1. ;;EN^OOPSDOL
  1. ;;$$END
  1. OPTLST ;Option List
  1. ;;OOPS DOL SCHEDULED XMIT DATA
  1. ;;OOPS SCHEDULED XMIT 2162 DATA
  1. ;;$$END