The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_ORDER_STATUS (p_order_id IN NUMBER ,
p_status IN VARCHAR2,
p_itemtype IN VARCHAR2,
p_itemkey IN VARCHAR2) ;
SELECT 'Y'
INTO l_Continue
FROM dual
WHERE EXISTS (SELECT LINE_ITEM_ID
FROM XDP_ORDER_LINE_ITEMS
WHERE ORDER_ID = l_OrderID
AND STATUS_CODE = 'READY'
AND PROVISIONING_REQUIRED_FLAG = 'Y');
* Update the STATE of the Order to be 'RUNNING' and the status to be 'IN PROGRESS'
* Also update the item type and item key
*/
UPDATE_ORDER_STATUS (p_order_id => l_OrderID,
p_status => 'IN PROGRESS',
p_itemtype => itemtype,
p_itemkey => itemkey ) ;
SELECT 1
INTO l_BundleCount
FROM dual
WHERE EXISTS(SELECT BUNDLE_ID
FROM XDP_ORDER_LINE_ITEMS
WHERE ORDER_ID = l_OrderID
AND PROVISIONING_REQUIRED_FLAG = 'Y'
AND BUNDLE_ID IS NOT NULL);
PROCEDURE UPDATE_ORDER_STATUS (p_order_id IN NUMBER ,
p_status IN VARCHAR2,
p_itemtype IN VARCHAR2,
p_itemkey IN VARCHAR2) IS
PRAGMA AUTONOMOUS_TRANSACTION ;
UPDATE xdp_order_headers
SET status_code = p_status,
wf_item_type = p_itemtype,
wf_item_key = p_itemkey ,
actual_provisioning_date = sysdate,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE order_id = p_order_id ;
x_Progress := 'XDPCORE_ORDER.UPDATE_ORDER_STATUS. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1200);
wf_core.context('XDPCORE_ORDER', 'UPDATE_ORDER_STATUS', p_itemtype, p_itemkey, null, x_Progress);
END UPDATE_ORDER_STATUS;