The following lines contain the word 'select', 'insert', 'update' or 'delete':
INSERT INTO PO_VALIDATION_RESULTS_GT
( result_set_id
, entity_type
, entity_id
, column_name
, column_val
, message_name
--PBWC Message Change Impact: Adding a token
, token1_name
, token1_value
)
SELECT
x_result_set_id
, c_ENTITY_TYPE_DISTRIBUTION
, p_dist_id_tbl(i)
, C_QUANTITY_ORDERED
, TO_CHAR(p_qty_ordered_tbl(i))
, (CASE
WHEN NVL(POD.quantity_delivered, 0) >
GREATEST(NVL(POD.quantity_billed, 0), NVL(POD.quantity_financed, 0))
THEN PO_MESSAGE_S.PO_PO_QTY_ORD_LT_QTY_DEL_NA
ELSE PO_MESSAGE_S.PO_PO_QTY_ORD_LT_QTY_BILLED_NA
END
)
--PBWC Message Change Impact: Adding a token
, (CASE
WHEN NVL(POD.quantity_delivered, 0) >
GREATEST(NVL(POD.quantity_billed, 0), NVL(POD.quantity_financed, 0))
THEN PO_MESSAGE_S.c_QTY_DEL_token
ELSE PO_MESSAGE_S.c_QTY_BILLED_token
END
)
, (CASE
WHEN NVL(POD.quantity_delivered, 0) >
GREATEST(NVL(POD.quantity_billed, 0), NVL(POD.quantity_financed, 0))
THEN TO_CHAR(POD.quantity_delivered)
ELSE TO_CHAR(POD.quantity_billed)
END
)
FROM
PO_DISTRIBUTIONS_ALL POD
WHERE
POD.po_distribution_id = p_dist_id_tbl(i)
AND p_dist_type_tbl(i) IN (c_STANDARD, c_PREPAYMENT) --
-- Quantity is being reduced below the current transaction quantity:
AND p_qty_ordered_tbl(i) < POD.quantity_ordered
AND p_qty_ordered_tbl(i) < --
GREATEST(NVL(POD.quantity_delivered, 0),
NVL(POD.quantity_billed, 0),
NVL(POD.quantity_financed, 0))
;
INSERT INTO PO_VALIDATION_RESULTS_GT
( result_set_id
, entity_type
, entity_id
, column_name
, column_val
, message_name
--PBWC Message Change Impact: Adding a token
, token1_name
, token1_value
)
SELECT
x_result_set_id
, c_ENTITY_TYPE_DISTRIBUTION
, p_dist_id_tbl(i)
, C_AMOUNT_ORDERED
, TO_CHAR(p_amt_ordered_tbl(i))
, (CASE
WHEN NVL(POD.amount_delivered, 0) >
GREATEST(NVL(POD.amount_billed, 0), NVL(POD.amount_financed, 0))
THEN PO_MESSAGE_S.PO_PO_AMT_ORD_LT_AMT_DEL_NA
ELSE PO_MESSAGE_S.PO_PO_AMT_ORD_LT_AMT_BILLED_NA
END
)
--PBWC Message Change Impact: Adding a token
, (CASE
WHEN NVL(POD.amount_delivered, 0) >
GREATEST(NVL(POD.amount_billed, 0), NVL(POD.amount_financed, 0))
THEN PO_MESSAGE_S.c_AMT_DEL_token
ELSE PO_MESSAGE_S.c_AMT_BILLED_token
END
)
, (CASE
WHEN NVL(POD.amount_delivered, 0) >
GREATEST(NVL(POD.amount_billed, 0), NVL(POD.amount_financed, 0))
THEN TO_CHAR(POD.amount_delivered)
ELSE TO_CHAR(POD.amount_billed)
END
)
FROM
PO_DISTRIBUTIONS_ALL POD
WHERE
POD.po_distribution_id = p_dist_id_tbl(i)
AND p_dist_type_tbl(i) IN (c_STANDARD, c_PREPAYMENT) --
-- Amount is being reduced below the current transaction amount:
AND p_amt_ordered_tbl(i) < POD.amount_ordered
AND p_amt_ordered_tbl(i) < GREATEST(NVL(POD.amount_delivered, 0),
NVL(POD.amount_financed, 0),
NVL(POD.amount_billed, 0));
SELECT outside_operation_flag
INTO l_outside_operation_flag
FROM po_line_types
WHERE line_type_id = p_line_line_type_id_tbl(i);
SELECT purch_encumbrance_flag, set_of_books_id
INTO l_po_enc_flag, l_sob_id
FROM financials_system_params_all
WHERE org_id = p_org_id_tbl(i);
SELECT set_of_books_id
INTO l_ledger_id
FROM financials_system_params_all
WHERE org_id = p_org_id_tbl(i);
SELECT purch_encumbrance_flag
INTO l_po_enc_flag
FROM financials_system_params_all
WHERE org_id = p_org_id_tbl(i);
SELECT purch_encumbrance_flag
INTO l_po_enc_flag
FROM financials_system_params_all
WHERE org_id = p_org_id_tbl(i);
SELECT glsob.currency_code
INTO l_func_currency_code
FROM gl_sets_of_books glsob,
financials_system_params_all fsp
WHERE glsob.set_of_books_id = fsp.set_of_books_id
AND fsp.org_id = p_org_id_tbl(i);
SELECT purch_encumbrance_flag
INTO l_po_enc_flag
FROM financials_system_params_all
WHERE org_id = p_org_id_tbl(i);
SELECT purch_encumbrance_flag
INTO l_po_enc_flag
FROM financials_system_params_all
WHERE org_id = p_org_id_tbl(i);
SELECT purch_encumbrance_flag
INTO l_po_enc_flag
FROM financials_system_params_all
WHERE org_id = p_org_id_tbl(i);
SELECT NVL(funded_value,0)
INTO l_backing_req_fund_value
FROM po_req_distributions_all
WHERE distribution_id = p_req_distribution_id_tbl(i);
INSERT INTO PO_SESSION_GT(
KEY,
index_num1,
index_num2,
num1,
num2)
SELECT
l_data_key,
p_dist_id_tbl(i),
p_req_dist_id_tbl(i),
Decode(Nvl(p_draft_id_tbl(i), -1), -1, p_funded_value_tbl(i),
Decode(Sign(Nvl(p_funded_value_tbl(i),0) - Nvl(p_enc_amount_tbl(i),0)), -1, 0,
Nvl(p_funded_value_tbl(i),0) - Nvl(p_enc_amount_tbl(i), 0))),
(SELECT Decode(Nvl(p_draft_id_tbl(i), -1), -1, funded_value,
Decode(Sign(change_in_funded_value), -1, 0, change_in_funded_value))
FROM po_distributions_merge_v
WHERE po_distribution_id = p_dist_id_tbl(i)
AND draft_id = Nvl(p_draft_id_tbl(i), -1))
FROM dual
WHERE p_req_dist_id_tbl(i) IS NOT NULL
AND p_dist_type_tbl(i) = c_STANDARD
AND PO_DOC_STYLE_HELPER.get_clm_flag(p_style_id => p_style_id_tbl(i)) = 'Y'
AND EXISTS(
SELECT NULL
FROM FINANCIALS_SYSTEM_PARAMS_ALL
WHERE org_id = p_org_id_tbl(i)
AND purch_encumbrance_flag = 'Y'
AND req_encumbrance_flag = 'Y');
INSERT INTO PO_VALIDATION_RESULTS_GT(
result_set_id,
entity_type,
entity_id,
column_name,
message_name)
SELECT
x_result_set_id,
c_ENTITY_TYPE_DISTRIBUTION,
GT.index_num1, -- po_distribution_id
c_FUNDED_VALUE,
PO_MESSAGE_S.PO_FUNDED_VAL_GT_REQ_FUNDS_RMN
FROM
PO_SESSION_GT GT
WHERE
GT.key = l_data_key
AND EXISTS(
SELECT NULL
FROM PO_SESSION_GT GT2,
PO_CLMREQ_DIST_DETAILS_V PRD
WHERE PRD.distribution_id = GT2.index_num2 -- JOIN
AND GT2.key = l_data_key
AND GT2.index_num2 = GT.index_num2 -- req_distribution_id
GROUP BY
GT2.index_num2,
PRD.funds_remaining
HAVING PRD.funds_remaining + Sum(Nvl(GT2.num2,0)) < Sum(Nvl(GT2.num1,0)));
SELECT Count(pdi.interface_distribution_id)
INTO l_lines_count
FROM po_distributions_interface pdi, po_lines_interface pli
WHERE pdi.interface_distribution_id = p_intf_dist_id_tbl(i)
AND pdi.interface_line_id = PLI.interface_line_id
AND PLI.group_line_id IS NOT NULL
AND EXISTS ( --distribution against clin
SELECT interface_distribution_id
FROM po_distributions_interface
WHERE interface_line_id = PLI.group_line_id
);
SELECT 'Y' INTO is_defence_funding_valid
FROM dual
WHERE EXISTS ( SELECT 1 FROM po_lookup_codes
WHERE LOOKUP_TYPE = 'PO_FUND_INDICATOR'
AND lookup_code = p_clm_defence_funding_tbl(i)
);
INSERT INTO PO_SESSION_GT(
KEY,
num1)
SELECT
l_data_key,
pdi.interface_distribution_id
FROM po_distributions_interface pdi,
po_lines_interface PLI
WHERE pdi.interface_distribution_id = p_intf_dist_id_tbl(i)
AND pdi.interface_line_id = PLI.interface_line_id
AND Nvl(PLI.clm_option_indicator,'*') = 'O'
AND Nvl(PLI.clm_exercised_flag,'N') <> 'Y';
DELETE FROM po_session_gt
WHERE key = l_data_key
RETURNING num1 BULK COLLECT INTO l_intf_dist_id_tbl;