The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_any_line_updated IN VARCHAR2,
p_buyer_id IN NUMBER,
p_agent_id IN NUMBER,
p_vendor_id IN NUMBER,
p_vendor_name IN VARCHAR2
) IS
d_api_name CONSTANT VARCHAR2(30) := 'start_price_tolerance_wf';
PO_LOG.proc_begin(d_module, 'p_any_line_updated', p_any_line_updated);
SELECT 'Y', WI.end_date
INTO l_wf_item_exists, l_wf_item_end_date
FROM WF_ITEMS_V WI
WHERE WI.ITEM_TYPE = l_wf_item_type
AND WI.ITEM_KEY = l_wf_item_key;
SELECT COUNT(1)
INTO l_num_of_items
FROM po_lines_interface
WHERE interface_header_id = p_intf_header_id
AND process_code = 'NOTIFIED'
AND nvl(price_break_flag,'N') = 'N';
aname => 'ANY_LINE_ITEM_UPDATED',
avalue => NVL(p_any_line_updated, 'N')
);
x_price_update_tolerance_tbl OUT NOCOPY PO_TBL_NUMBER
) IS
d_api_name CONSTANT VARCHAR2(30) := 'get_price_tolerance';
x_price_update_tolerance_tbl := PO_TBL_NUMBER();
x_price_update_tolerance_tbl.EXTEND(p_po_header_id_tbl.COUNT);
INSERT INTO po_session_gt(key, num1, num2)
SELECT l_key,
p_index_tbl(i),
price_update_tolerance
FROM po_asl_attributes
WHERE (item_id = p_item_id_tbl(i) OR
category_id = p_category_id_tbl(i) OR
category_id IN
(SELECT MIC.category_id
FROM MTL_ITEM_CATEGORIES MIC
WHERE MIC.inventory_item_id = p_item_id_tbl(i)
AND MIC.organization_id =
PO_PDOI_PARAMS.g_sys.master_inv_org_id)
)
AND vendor_id = p_vendor_id_tbl(i)
AND using_organization_id IN (-1, PO_PDOI_PARAMS.g_sys.master_inv_org_id);
DELETE FROM po_session_gt
WHERE key = l_key
RETURNING num1, num2 BULK COLLECT INTO l_index_tbl, l_tolerance_tbl;
x_price_update_tolerance_tbl(l_index_tbl(i)) := l_tolerance_tbl(i);
INSERT INTO po_session_gt(key, num1, num2)
SELECT l_key,
p_index_tbl(i),
price_update_tolerance
FROM po_headers_all
WHERE po_header_id = p_po_header_id_tbl(i)
AND type_lookup_code = PO_PDOI_CONSTANTS.g_DOC_TYPE_BLANKET
AND x_price_update_tolerance_tbl(i) IS NULL;
DELETE FROM po_session_gt
WHERE key = l_key
RETURNING num1, num2 BULK COLLECT INTO l_index_tbl, l_tolerance_tbl;
x_price_update_tolerance_tbl(l_index_tbl(i)) := l_tolerance_tbl(i);
IF (x_price_update_tolerance_tbl(l_index) IS NULL) THEN
IF (PO_LOG.d_stmt) THEN
PO_LOG.stmt(d_module, d_position, 'index', l_index);
PO_PDOI_PARAMS.g_profile.po_price_update_tolerance);
x_price_update_tolerance_tbl(l_index) :=
PO_PDOI_PARAMS.g_profile.po_price_update_tolerance;