Advanced Queuing - Oracle

tkaqdoca.sql: Script to Create Users, Objects, Queue Tables, Queues & Subscribers
subscriber aq$_agent;
begin
subscriber := aq$_agent('West_Shipping', 'WS.WS_bookedorders_que', null);
dbms_aqadm.add_subscriber(queue_name => 'OE.OE_bookedorders_que',
subscriber => subscriber,
rule => 'tab.user_data.orderregion =
''WESTERN'' AND tab.user_data.ordertype != ''RUSH''');
end;
/
Rem Add a rule-based subscriber for East Shipping
Rem East shipping handles all Eastern region orders
Rem East shipping also handles all US rush orders
declare
subscriber aq$_agent;
begin
subscriber := aq$_agent('East_Shipping', 'ES.ES_bookedorders_que', null);
dbms_aqadm.add_subscriber(queue_name => 'OE.OE_bookedorders_que',
subscriber => subscriber,
rule => 'tab.user_data.orderregion =
''EASTERN'' OR (tab.user_data.ordertype = ''RUSH'' AND tab.user_
data.customer.country = ''USA'') ');
end;
/
Rem Add a rule-based subscriber for Overseas Shipping
Rem Intl Shipping handles all non-US orders
declare
subscriber aq$_agent;
begin
subscriber := aq$_agent('Overseas_Shipping', 'OS.OS_bookedorders_que', null);
dbms_aqadm.add_subscriber(queue_name => 'OE.OE_bookedorders_que',
subscriber => subscriber,
rule => 'tab.user_data.orderregion =
''INTERNATIONAL''');
end;
/
Rem Add the Customer Service order queues as a subscribers to the
Rem corresponding queues in OrderEntry, Shipping and Billing
declare
subscriber aq$_agent;
begin
/* Subscribe to the booked orders queue */
Scripts for Implementing BooksOnLine C-13