Advanced Queuing - Oracle

tkaqdocd.sql: Examples of Administrative and Operational Interfaces
/* query old status from the table */
SELECT st.status INTO old_status from order_status_table st
where st.customer_order.orderno = order_msg.orderno;
/* Status can be 'BOOKED_ORDER', 'SHIPPED_ORDER', 'BACK_ORDER'
* and 'BILLED_ORDER'
*/
IF new_status = 'SHIPPED_ORDER' THEN
IF old_status = 'BILLED_ORDER' THEN
return; /* message about a previous state */
END IF;
ELSIF new_status = 'BACK_ORDER' THEN
IF old_status = 'SHIPPED_ORDER' OR old_status = 'BILLED_ORDER' THEN
return; /* message about a previous state */
END IF;
END IF;
/* update the order status */
UPDATE order_status_table st
SET st.customer_order = order_msg, st.status = new_status
where st.customer_order.orderno = order_msg.orderno;
COMMIT;
EXCEPTION
WHEN OTHERS THEN /* change to no data found */
/* first update for the order */
INSERT INTO order_status_table(customer_order, status)
VALUES (order_msg, new_status);
COMMIT;
END;
END;
/
Rem
Rem Monitors the customer service queues for 'time' seconds
Rem
CREATE OR REPLACE PROCEDURE MONITOR_STATUS_QUEUE(time IN NUMBER)
IS
agent_w_message aq$_agent;
agent_list dbms_aq.agent_list_t;
C-18 Oracle9i Application Developer’s Guide - Advanced Queuing