The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_PACKAGESERVICE_STATUS (p_line_item_id IN NUMBER,
p_status_code IN VARCHAR2,
p_itemtype IN VARCHAR2,
p_itemkey IN VARCHAR2) ;
PROCEDURE UPDATE_PACKAGESERVICE_STATUS (p_line_item_id IN NUMBER,
p_status_code IN VARCHAR2,
p_itemtype IN VARCHAR2,
p_itemkey IN VARCHAR2) IS
PRAGMA AUTONOMOUS_TRANSACTION ;
UPDATE xdp_order_line_items
SET status_code = p_status_code,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE line_item_id = p_line_item_id ;
x_Progress := 'XDPCORE_PKG.UPDATE_PACKAGESERVICE_STATUS. Unhandled Exception: ' || SUBSTR(SQLERRM, 1, 1500);
wf_core.context('XDPCORE_PKG', 'UPDATE_PACKAGESERVICE_STATUS', p_itemtype, p_itemkey, null,null);
END UPDATE_PACKAGESERVICE_STATUS;
SELECT XOL.LINE_ITEM_ID
FROM XDP_LINE_RELATIONSHIPS XLR,
XDP_ORDER_LINE_ITEMS XOL
WHERE XLR.RELATED_LINE_ITEM_ID = LineItemID
AND XLR.LINE_RELATIONSHIP IN ('IS_PART_OF_PACKAGE','IS_PART_OF_IB_EXPLOSION')
AND XOL.LINE_ITEM_ID = XLR.LINE_ITEM_ID
AND XOL.STATUS_CODE = 'READY'
AND XOL.IS_VIRTUAL_LINE_FLAG = 'Y'
AND (SEQ_IN_PACKAGE IS NULL OR SEQ_IN_PACKAGE = 0);
SELECT XOL.LINE_ITEM_ID
FROM XDP_LINE_RELATIONSHIPS XLR, XDP_ORDER_LINE_ITEMS XOL
WHERE XLR.RELATED_LINE_ITEM_ID = LineItemID
AND XLR.LINE_RELATIONSHIP IN ('IS_PART_OF_PACKAGE','IS_PART_OF_IB_EXPLOSION')
AND XOL.LINE_ITEM_ID = XLR.LINE_ITEM_ID
AND XOL.STATUS_CODE = 'READY'
AND XOL.IS_VIRTUAL_LINE_FLAG = 'Y'
AND SEQ_IN_PACKAGE > 0;
SELECT to_char(XDP_WF_ITEMKEY_S.NEXTVAL) INTO l_tempKey FROM dual;
SELECT to_char(XDP_WF_ITEMKEY_S.NEXTVAL) INTO l_tempKey FROM dual;
SELECT XOl.LINE_ITEM_ID, XOL.SEQ_IN_PACKAGE
FROM XDP_ORDER_LINE_ITEMS XOL, XDP_LINE_RELATIONSHIPS XLR
WHERE XLR.RELATED_LINE_ITEM_ID = LineItemID
AND XLR.LINE_RELATIONSHIP = 'IS_PART_OF_PACKAGE'
AND XOL.LINE_ITEM_ID = XLR.LINE_ITEM_ID
AND XOL.STATUS_CODE = 'READY'
AND XOL.IS_VIRTUAL_LINE_FLAG = 'Y'
AND XOL.SEQ_IN_PACKAGE = (
SELECT MIN(XOL1.SEQ_IN_PACKAGE)
FROM XDP_ORDER_LINE_ITEMS XOL1, XDP_LINE_RELATIONSHIPS XLR1
WHERE XLR1.RELATED_LINE_ITEM_ID = LineItemID
AND XLR1.LINE_RELATIONSHIP = 'IS_PART_OF_PACKAGE'
AND XOL1.LINE_ITEM_ID = XLR1.LINE_ITEM_ID
AND XOL1.STATUS_CODE = 'READY'
AND XOL1.IS_VIRTUAL_LINE_FLAG = 'Y'
AND XOL1.SEQ_IN_PACKAGE > Seq);
SELECT XOl.LINE_ITEM_ID, XOL.SEQ_IN_PACKAGE
FROM XDP_ORDER_LINE_ITEMS XOL,
XDP_LINE_RELATIONSHIPS XLR
WHERE XLR.RELATED_LINE_ITEM_ID = LineItemID
AND XLR.LINE_RELATIONSHIP = 'IS_PART_OF_PACKAGE'
AND XOL.LINE_ITEM_ID = XLR.LINE_ITEM_ID
AND XOL.STATUS_CODE = 'READY'
AND XOL.IS_VIRTUAL_LINE_FLAG = 'Y'
AND XOL.SEQ_IN_PACKAGE = (
SELECT MIN(XOL1.SEQ_IN_PACKAGE)
FROM XDP_ORDER_LINE_ITEMS XOL1,
XDP_LINE_RELATIONSHIPS XLR1
WHERE XLR1.RELATED_LINE_ITEM_ID = LineItemID
AND XLR1.LINE_RELATIONSHIP = 'IS_PART_OF_PACKAGE'
AND XOL1.LINE_ITEM_ID = XLR1.LINE_ITEM_ID
AND XOL1.STATUS_CODE = 'READY'
AND XOL1.IS_VIRTUAL_LINE_FLAG = 'Y'
AND XOL1.SEQ_IN_PACKAGE > Seq);
SELECT to_char(XDP_WF_ITEMKEY_S.NEXTVAL) INTO l_tempKey FROM dual;
UPDATE_PACKAGESERVICE_STATUS (p_line_item_id => l_LineItemID,
p_status_code => 'IN PROGRESS',
p_itemtype => itemtype,
p_itemkey => itemkey);
SELECT 'Y'
FROM XDP_LINE_RELATIONSHIPS XLR,
XDP_ORDER_LINE_ITEMS XOL
WHERE XLR.RELATED_LINE_ITEM_ID = LineItemID
AND XLR.LINE_RELATIONSHIP IN ('IS_PART_OF_PACKAGE','IS_PART_OF_IB_EXPLOSION')
AND XOL.LINE_ITEM_ID = XLR.LINE_ITEM_ID
AND XOL.STATUS_CODE = 'READY'
AND XOL.IS_VIRTUAL_LINE_FLAG = 'Y'
AND (SEQ_IN_PACKAGE IS NULL OR SEQ_IN_PACKAGE = 0);
SELECT 'Y'
FROM XDP_LINE_RELATIONSHIPS XLR, XDP_ORDER_LINE_ITEMS XOL
WHERE XLR.RELATED_LINE_ITEM_ID = LineItemID
AND XLR.LINE_RELATIONSHIP IN ('IS_PART_OF_PACKAGE','IS_PART_OF_IB_EXPLOSION')
AND XOL.LINE_ITEM_ID = XLR.LINE_ITEM_ID
AND XOL.STATUS_CODE = 'READY'
AND XOL.IS_VIRTUAL_LINE_FLAG = 'Y'
AND SEQ_IN_PACKAGE > 0;
SELECT XOL.LINE_ITEM_ID
FROM XDP_LINE_RELATIONSHIPS XLR,
XDP_ORDER_LINE_ITEMS XOL
WHERE XLR.RELATED_LINE_ITEM_ID = LineItemID
AND XLR.LINE_RELATIONSHIP IN ('IS_PART_OF_PACKAGE','IS_PART_OF_IB_EXPLOSION')
AND XOL.LINE_ITEM_ID = XLR.LINE_ITEM_ID
AND XOL.STATUS_CODE = 'READY'
AND XOL.IS_VIRTUAL_LINE_FLAG = 'Y'
AND (SEQ_IN_PACKAGE IS NULL OR SEQ_IN_PACKAGE = 0);
SELECT to_char(XDP_WF_ITEMKEY_S.NEXTVAL) INTO l_tempKey FROM dual;