Released OOPS*2*33 SEQ #32 Extracted from mail message **KIDS**:OOPS*2.0*33^ **INSTALL NAME** OOPS*2.0*33 "BLD",12541,0) OOPS*2.0*33^ASISTS^0^3220228^y "BLD",12541,1,0) ^^2^2^3220209^ "BLD",12541,1,1,0) Patch OOPS*2*33 addresses an issue where OOPS tasks are still "BLD",12541,1,2,0) scheduled at certain sites "BLD",12541,4,0) ^9.64PA^^ "BLD",12541,6) 5 "BLD",12541,6.3) 5 "BLD",12541,"INID") ^n "BLD",12541,"INIT") EN^OOPS233P "BLD",12541,"KRN",0) ^9.67PA^1.5^25 "BLD",12541,"KRN",.4,0) .4 "BLD",12541,"KRN",.401,0) .401 "BLD",12541,"KRN",.402,0) .402 "BLD",12541,"KRN",.403,0) .403 "BLD",12541,"KRN",.5,0) .5 "BLD",12541,"KRN",.84,0) .84 "BLD",12541,"KRN",1.5,0) 1.5 "BLD",12541,"KRN",1.6,0) 1.6 "BLD",12541,"KRN",1.61,0) 1.61 "BLD",12541,"KRN",1.62,0) 1.62 "BLD",12541,"KRN",3.6,0) 3.6 "BLD",12541,"KRN",3.8,0) 3.8 "BLD",12541,"KRN",9.2,0) 9.2 "BLD",12541,"KRN",9.8,0) 9.8 "BLD",12541,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",12541,"KRN",9.8,"NM",1,0) OOPS233P^^0^B2260629 "BLD",12541,"KRN",9.8,"NM","B","OOPS233P",1) "BLD",12541,"KRN",19,0) 19 "BLD",12541,"KRN",19.1,0) 19.1 "BLD",12541,"KRN",101,0) 101 "BLD",12541,"KRN",409.61,0) 409.61 "BLD",12541,"KRN",771,0) 771 "BLD",12541,"KRN",779.2,0) 779.2 "BLD",12541,"KRN",870,0) 870 "BLD",12541,"KRN",8989.51,0) 8989.51 "BLD",12541,"KRN",8989.52,0) 8989.52 "BLD",12541,"KRN",8993,0) 8993 "BLD",12541,"KRN",8994,0) 8994 "BLD",12541,"KRN","B",.4,.4) "BLD",12541,"KRN","B",.401,.401) "BLD",12541,"KRN","B",.402,.402) "BLD",12541,"KRN","B",.403,.403) "BLD",12541,"KRN","B",.5,.5) "BLD",12541,"KRN","B",.84,.84) "BLD",12541,"KRN","B",1.5,1.5) "BLD",12541,"KRN","B",1.6,1.6) "BLD",12541,"KRN","B",1.61,1.61) "BLD",12541,"KRN","B",1.62,1.62) "BLD",12541,"KRN","B",3.6,3.6) "BLD",12541,"KRN","B",3.8,3.8) "BLD",12541,"KRN","B",9.2,9.2) "BLD",12541,"KRN","B",9.8,9.8) "BLD",12541,"KRN","B",19,19) "BLD",12541,"KRN","B",19.1,19.1) "BLD",12541,"KRN","B",101,101) "BLD",12541,"KRN","B",409.61,409.61) "BLD",12541,"KRN","B",771,771) "BLD",12541,"KRN","B",779.2,779.2) "BLD",12541,"KRN","B",870,870) "BLD",12541,"KRN","B",8989.51,8989.51) "BLD",12541,"KRN","B",8989.52,8989.52) "BLD",12541,"KRN","B",8993,8993) "BLD",12541,"KRN","B",8994,8994) "BLD",12541,"QUES",0) ^9.62^^ "INIT") EN^OOPS233P "MBREQ") 0 "PKG",472,-1) 1^1 "PKG",472,0) ASISTS^OOPS^Automated Safety Incident Surveillance Tracking System "PKG",472,22,0) ^9.49I^1^1 "PKG",472,22,1,0) 2.0^3020709^3030401^66481 "PKG",472,22,1,"PAH",1,0) 33^3220228 "PKG",472,22,1,"PAH",1,1,0) ^^2^2^3220228 "PKG",472,22,1,"PAH",1,1,1,0) Patch OOPS*2*33 addresses an issue where OOPS tasks are still "PKG",472,22,1,"PAH",1,1,2,0) scheduled at certain sites "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","OOPS233P") 0^1^B2260629^n/a "RTN","OOPS233P",1,0) OOPS233P ;MNT/RFS - OOPS*2*33 post install routine ; Feb 9, 2022@08:54 "RTN","OOPS233P",2,0) ;;2.0;ASISTS;**33**;Jun 03, 2002;Build 5 "RTN","OOPS233P",3,0) ; "RTN","OOPS233P",4,0) Q "RTN","OOPS233P",5,0) EN ;entry point "RTN","OOPS233P",6,0) D DEQUEUE "RTN","OOPS233P",7,0) Q "RTN","OOPS233P",8,0) ; "RTN","OOPS233P",9,0) DEQUEUE ;Dequeue scheduled options "RTN","OOPS233P",10,0) N OOPSLST,OOPSLP,OOPSLP1,OOPSOPT,OOPSX,OOPSTSK,OOPSLST1 "RTN","OOPS233P",11,0) D BMES^XPDUTL("Starting dequeue of OOPS tasks") "RTN","OOPS233P",12,0) F OOPSLP=1:1 S OOPSTSK=$P($TEXT(TSKLST+OOPSLP),";;",2) Q:OOPSTSK="$$END" D "RTN","OOPS233P",13,0) .D RTN^%ZTLOAD(OOPSTSK,"OOPSLST") "RTN","OOPS233P",14,0) .S OOPSX=0 F S OOPSX=$O(OOPSLST(OOPSX)) Q:'OOPSX S ZTSK=OOPSX D DQ^%ZTLOAD "RTN","OOPS233P",15,0) F OOPSLP1=1:1 S OOPSOPT=$P($TEXT(OPTLST+OOPSLP1),";;",2) Q:OOPSOPT="$$END" D "RTN","OOPS233P",16,0) .D OPTION^%ZTLOAD(OOPSOPT,"OOPSLST1") "RTN","OOPS233P",17,0) .S OOPSX=0 F S OOPSX=$O(OOPSLST1(OOPSX)) Q:'OOPSX S ZTSK=OOPSX D DQ^%ZTLOAD "RTN","OOPS233P",18,0) .D RESCH^XUTMOPT(OOPSOPT,"@",,"@") ;Un-schedule option "RTN","OOPS233P",19,0) D BMES^XPDUTL("Dequeuing of OOPS tasks complete") "RTN","OOPS233P",20,0) Q "RTN","OOPS233P",21,0) ; "RTN","OOPS233P",22,0) TSKLST ;Task List "RTN","OOPS233P",23,0) ;;EN^OOPSNDB "RTN","OOPS233P",24,0) ;;EN^OOPSDOL "RTN","OOPS233P",25,0) ;;$$END "RTN","OOPS233P",26,0) OPTLST ;Option List "RTN","OOPS233P",27,0) ;;OOPS DOL SCHEDULED XMIT DATA "RTN","OOPS233P",28,0) ;;OOPS SCHEDULED XMIT 2162 DATA "RTN","OOPS233P",29,0) ;;$$END "VER") 8.0^22.2 "BLD",12541,6) ^32 **END** **END**