The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_fv_xla_acc_errors
(
p_appli_s_name IN VARCHAR2,
p_msg_name IN VARCHAR2,
p_entity_id IN NUMBER,
p_event_id IN NUMBER,
p_ledger_id IN NUMBER
)
IS
l_procedure_name VARCHAR2(100):='.insert_fv_xla_acc_errors';
trace(C_STATE_LEVEL, l_procedure_name, ' Begin insert_fv_xla_acc_errors ');
trace(C_STATE_LEVEL, l_procedure_name, ' Before inserting into xla_accounting_errors');
END insert_fv_xla_acc_errors;
SELECT c.ap_asset_ccid, c.cash_clearing_ccid,
g.chart_of_accounts_id
INTO l_bank_rec.cash_bank_account_ccid,
l_bank_rec.cash_clearing_ccid,
l_coaid
FROM ce_gl_accounts_ccid c,
gl_code_combinations g
WHERE c.bank_acct_use_id = p_bank_acct_use_id
AND g.code_combination_id = c.ap_asset_ccid;
stack_error (l_procedure_name, 'SELECT_ce_gl_accounts_ccid', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_ce_gl_accounts_ccid:'||p_error_desc);
stack_error (l_procedure_name, 'SELECT_ce_gl_accounts_ccid', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_ce_gl_accounts_ccid:'||p_error_desc);
SELECT b.segment_num
INTO l_accounting_seg_num
FROM fnd_segment_attribute_values a,
fnd_id_flex_segments b
WHERE a.application_id = b.application_id
AND a.id_flex_code = b.id_flex_code
AND a.id_flex_num = b.id_flex_num
AND a.application_column_name = b.application_column_name
AND a.segment_attribute_type = 'GL_ACCOUNT'
AND a.attribute_value = 'Y'
AND b.application_id = C_GL_APPLICATION
AND b.id_flex_code = C_GL_FLEX_CODE
AND b.id_flex_num = l_coaid;
stack_error (l_procedure_name, 'SELECT_FND_ID_FLEX_SEGMENTS (GL_ACCOUNT)', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_FND_ID_FLEX_SEGMENTS (GL_ACCOUNT):'||p_error_desc);
stack_error (l_procedure_name, 'SELECT_FND_ID_FLEX_SEGMENTS (GL_ACCOUNT)', p_error_desc);
l_segments.DELETE;
SELECT f.dit_flag,
f.dit_confirm_cash_account
INTO l_org_rec.dit_flag,
l_org_rec.cash_account
FROM fv_operating_units_all f
WHERE org_id = p_org_id;
stack_error (l_procedure_name, 'SELECT_fv_operating_units_all', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_fv_operating_units_all:'||p_error_desc);
SELECT l.ledger_id,
l.chart_of_accounts_id,
l.name,
l.currency_code
INTO l_ledger_rec.ledger_id,
l_ledger_rec.coaid,
l_ledger_rec.ledger_name,
l_ledger_rec.currency_code
FROM gl_ledgers l
WHERE ledger_id = p_ledger_id;
stack_error (l_procedure_name, 'SELECT_GL_LEDGERS', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_GL_LEDGERS:'||p_error_desc);
SELECT b.segment_num,
b.application_column_name
INTO l_ledger_rec.accounting_seg_num,
l_ledger_rec.accounting_seg_name
FROM fnd_segment_attribute_values a,
fnd_id_flex_segments b
WHERE a.application_id = b.application_id
AND a.id_flex_code = b.id_flex_code
AND a.id_flex_num = b.id_flex_num
AND a.application_column_name = b.application_column_name
AND a.segment_attribute_type = 'GL_ACCOUNT'
AND a.attribute_value = 'Y'
AND b.application_id = C_GL_APPLICATION
AND b.id_flex_code = C_GL_FLEX_CODE
AND b.id_flex_num = l_ledger_rec.coaid;
stack_error (l_procedure_name, 'SELECT_FND_ID_FLEX_SEGMENTS (GL_ACCOUNT)', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_FND_ID_FLEX_SEGMENTS (GL_ACCOUNT):'||p_error_desc);
stack_error (l_procedure_name, 'SELECT_FND_ID_FLEX_SEGMENTS (GL_ACCOUNT)', p_error_desc);
SELECT b.segment_num,
b.application_column_name
INTO l_ledger_rec.balancing_seg_num,
l_ledger_rec.balancing_seg_name
FROM fnd_segment_attribute_values a,
fnd_id_flex_segments b
WHERE a.application_id = b.application_id
AND a.id_flex_code = b.id_flex_code
AND a.id_flex_num = b.id_flex_num
AND a.application_column_name = b.application_column_name
AND a.segment_attribute_type = 'GL_BALANCING'
AND a.attribute_value = 'Y'
AND b.application_id = C_GL_APPLICATION
AND b.id_flex_code = C_GL_FLEX_CODE
AND b.id_flex_num = l_ledger_rec.coaid;
stack_error (l_procedure_name, 'SELECT_FND_ID_FLEX_SEGMENTS (GL_BALANCING)', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_FND_ID_FLEX_SEGMENTS (GL_BALANCING):'||p_error_desc);
stack_error (l_procedure_name, 'SELECT_FND_ID_FLEX_SEGMENTS (GL_BALANCING)', p_error_desc);
SELECT b.segment_num,
a.fyr_segment_id
INTO l_ledger_rec.bfy_segment_num,
l_ledger_rec.fyr_segment_id
FROM fv_pya_fiscalyear_segment a,
fnd_id_flex_segments b
WHERE set_of_books_id = p_ledger_id
AND a.application_column_name = b.application_column_name
AND b.application_id = C_GL_APPLICATION
AND b.id_flex_code = C_GL_FLEX_CODE
AND b.id_flex_num = l_ledger_rec.coaid;
stack_error (l_procedure_name, 'SELECT_FV_PYA_FISCALYEAR_SEGMENT', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_FV_PYA_FISCALYEAR_SEGMENT:'||p_error_desc);
stack_error (l_procedure_name, 'SELECT_FV_PYA_FISCALYEAR_SEGMENT', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_FV_PYA_FISCALYEAR_SEGMENT:'||p_error_desc);
SELECT *
INTO p_fund_parameter_rec
FROM fv_fund_parameters a
WHERE a.set_of_books_id = p_ledger_id
AND a.fund_value = p_fund_value;
SELECT *
INTO p_treasury_symbols_rec
FROM fv_treasury_symbols
WHERE treasury_symbol_id = p_fund_parameter_rec.treasury_symbol_id;
SELECT period_year
INTO l_bfy_map_year
FROM fv_pya_fiscalyear_map
WHERE set_of_books_id = p_ledger_id
AND fyr_segment_id = l_ledger_info.fyr_segment_id
AND fyr_segment_value = p_bfy_value;
stack_error (l_procedure_name, 'SELECT_FV_PYA_FISCALYEAR_MAP', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_FV_PYA_FISCALYEAR_MAP:'||p_error_desc);
stack_error (l_procedure_name, 'SELECT_FV_PYA_FISCALYEAR_MAP', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_FV_PYA_FISCALYEAR_MAP:'||p_error_desc);
SELECT period_year
INTO l_transaction_year
FROM gl_period_statuses
WHERE ledger_id = p_ledger_id
AND application_id = p_application_id
AND trunc(p_gl_date) BETWEEN start_date AND end_date
AND adjustment_period_flag='N';
stack_error (l_procedure_name, 'SELECT_GL_PERIOD_STATUSES', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_GL_PERIOD_STATUSES:'||p_error_desc);
SELECT *
BULK COLLECT INTO l_fv_extract_detail
FROM fv_extract_detail_gt;
INSERT INTO fv_extract_detail_gt_logs
(
event_id,
line_number,
application_id,
fund_value,
fund_category,
fund_expired_status,
prior_year_flag,
adjustment_type,
net_pya_adj_amt,
entered_pya_amt,
entered_pya_diff_amt,
anticipation,
anticipated_amt,
unanticipated_amt,
tcf_amt,
unexpended_obligation,
paid_unexpended_obligation,
paid_received_amt,
unpaid_unexpended_obligation,
unpaid_received_amt,
unpaid_open_amt,
fund_time_frame,
rcv_parent_sub_ledger_id,
account_valid_flag,
account_rule,
old_ccid,
receivable_with_advance,
ent_commitment_amount,
ent_unpaid_obl_amount,
acc_commitment_amount,
acc_unpaid_obl_amount,
ent_unpaid_obl_pya_amount,
acc_unpaid_obl_pya_amount,
ent_unpaid_obl_pya_off_amount,
acc_unpaid_obl_pya_off_amount,
ent_anticipated_budget_amount,
acc_anticipated_budget_amount,
ent_unanticipated_bud_amount,
acc_unanticipated_bud_amount,
ent_unreserved_budget_amount,
acc_unreserved_budget_amount,
ent_charge_amount,
acc_charge_amount,
ent_unpaid_exp_amount,
acc_unpaid_exp_amount,
ent_paid_exp_amount,
acc_paid_exp_amount,
ar_transaction_category,
acc_paid_exp_pya_off_amount,
ent_paid_exp_pya_off_amount,
ent_paid_obl_amount,
acc_paid_obl_amount,
ent_unpaid_exp_pya_amount,
acc_unpaid_exp_pya_amount,
ent_unpaid_exp_pya_off_amount,
acc_unpaid_exp_pya_off_amount,
ent_paid_exp_pya_amount,
acc_paid_exp_pya_amount,
acc_expended_approp_amount,
ent_expended_approp_amount,
treasury_symbol_id,
direct_or_reimb,
po_distribution_id,
fund_type,
fed_non_fed_ind,
acc_refund_amount,
ent_refund_amount,
advance_required
)
VALUES
(
p_fv_extract_detail(i).event_id,
p_fv_extract_detail(i).line_number,
p_fv_extract_detail(i).application_id,
p_fv_extract_detail(i).fund_value,
p_fv_extract_detail(i).fund_category,
p_fv_extract_detail(i).fund_expired_status,
p_fv_extract_detail(i).prior_year_flag,
p_fv_extract_detail(i).adjustment_type,
p_fv_extract_detail(i).net_pya_adj_amt,
p_fv_extract_detail(i).entered_pya_amt,
p_fv_extract_detail(i).entered_pya_diff_amt,
p_fv_extract_detail(i).anticipation,
p_fv_extract_detail(i).anticipated_amt,
p_fv_extract_detail(i).unanticipated_amt,
p_fv_extract_detail(i).tcf_amt,
p_fv_extract_detail(i).unexpended_obligation,
p_fv_extract_detail(i).paid_unexpended_obligation,
p_fv_extract_detail(i).paid_received_amt,
p_fv_extract_detail(i).unpaid_unexpended_obligation,
p_fv_extract_detail(i).unpaid_received_amt,
p_fv_extract_detail(i).unpaid_open_amt,
p_fv_extract_detail(i).fund_time_frame,
p_fv_extract_detail(i).rcv_parent_sub_ledger_id,
p_fv_extract_detail(i).account_valid_flag,
p_fv_extract_detail(i).account_rule,
p_fv_extract_detail(i).old_ccid,
p_fv_extract_detail(i).receivable_with_advance,
p_fv_extract_detail(i).ent_commitment_amount,
p_fv_extract_detail(i).ent_unpaid_obl_amount,
p_fv_extract_detail(i).acc_commitment_amount,
p_fv_extract_detail(i).acc_unpaid_obl_amount,
p_fv_extract_detail(i).ent_unpaid_obl_pya_amount,
p_fv_extract_detail(i).acc_unpaid_obl_pya_amount,
p_fv_extract_detail(i).ent_unpaid_obl_pya_off_amount,
p_fv_extract_detail(i).acc_unpaid_obl_pya_off_amount,
p_fv_extract_detail(i).ent_anticipated_budget_amount,
p_fv_extract_detail(i).acc_anticipated_budget_amount,
p_fv_extract_detail(i).ent_unanticipated_bud_amount,
p_fv_extract_detail(i).acc_unanticipated_bud_amount,
p_fv_extract_detail(i).ent_unreserved_budget_amount,
p_fv_extract_detail(i).acc_unreserved_budget_amount,
p_fv_extract_detail(i).ent_charge_amount,
p_fv_extract_detail(i).acc_charge_amount,
p_fv_extract_detail(i).ent_unpaid_exp_amount,
p_fv_extract_detail(i).acc_unpaid_exp_amount,
p_fv_extract_detail(i).ent_paid_exp_amount,
p_fv_extract_detail(i).acc_paid_exp_amount,
p_fv_extract_detail(i).ar_transaction_category,
p_fv_extract_detail(i).acc_paid_exp_pya_off_amount,
p_fv_extract_detail(i).ent_paid_exp_pya_off_amount,
p_fv_extract_detail(i).ent_paid_obl_amount,
p_fv_extract_detail(i).acc_paid_obl_amount,
p_fv_extract_detail(i).ent_unpaid_exp_pya_amount,
p_fv_extract_detail(i).acc_unpaid_exp_pya_amount,
p_fv_extract_detail(i).ent_unpaid_exp_pya_off_amount,
p_fv_extract_detail(i).acc_unpaid_exp_pya_off_amount,
p_fv_extract_detail(i).ent_paid_exp_pya_amount,
p_fv_extract_detail(i).acc_paid_exp_pya_amount,
p_fv_extract_detail(i).acc_expended_approp_amount,
p_fv_extract_detail(i).ent_expended_approp_amount,
p_fv_extract_detail(i).treasury_symbol_id,
p_fv_extract_detail(i).direct_or_reimb,
p_fv_extract_detail(i).po_distribution_id,
p_fv_extract_detail(i).fund_type,
p_fv_extract_detail(i).fed_non_fed_ind,
p_fv_extract_detail(i).acc_refund_amount,
p_fv_extract_detail(i).ent_refund_amount,
p_fv_extract_detail(i).advance_required
);
l_fund_select VARCHAR2(2000);
SELECT template_id
INTO l_template_id
FROM fv_pya_fiscalyear_segment
WHERE set_of_books_id = p_ledger_id;
stack_error (l_procedure_name, 'SELECT_fv_pya_fiscalyear_segment', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_fv_pya_fiscalyear_segment:'||p_error_desc);
SELECT period_year,
period_num,
period_name
INTO l_period_year,
l_period_num,
l_period_name
FROM gl_period_statuses
WHERE ledger_id = p_ledger_id
AND application_id = C_GL_APPLICATION
AND adjustment_period_flag = 'N'
AND p_gl_date BETWEEN start_date AND end_date;
stack_error (l_procedure_name, 'SELECT_gl_period_statuses', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_gl_period_statuses:'||p_error_desc);
l_fund_select := 'SELECT code_combination_id ' ||
' FROM gl_code_Combinations g, ' ||
' fv_fund_parameters f'||
' WHERE g.chart_of_accounts_id = :p_coaid '||
' AND g.'||l_ledger_info.balancing_seg_name || ' = f.fund_value '||
' AND f.treasury_symbol_id = :p_treasury_symbol_id '||
' AND f.set_of_books_id = :p_ledger_id '||
' AND g.template_id = :p_template_id '||
' AND g.summary_flag = ''Y''' ;
trace(C_STATE_LEVEL, l_procedure_name, 'l_fund_select='||l_fund_select);
DBMS_SQL.PARSE(l_fund_cur_id, l_fund_select, DBMS_SQL.Native);
SELECT SUM((begin_balance_dr - begin_balance_cr) +
(period_net_dr - period_net_cr))
INTO l_amount
FROM gl_balances
WHERE ledger_id = p_Ledger_id
AND currency_code = l_ledger_info.currency_code
AND code_combination_id = l_ccid
AND period_name = l_period_name;
SELECT SUM(NVL(accounted_dr,0) - NVL(accounted_cr,0))
INTO l_amount
FROM gl_bc_packets gbc,
gl_account_hierarchies gah
WHERE gbc.ledger_id = p_Ledger_id
AND gah.ledger_id = p_Ledger_id
AND gah.template_id = l_template_id
AND gah.summary_code_combination_id = l_ccid
AND gbc.currency_code = l_ledger_info.currency_code
AND gbc.code_combination_id = gah.detail_code_combination_id
AND gbc.period_year = l_period_year
AND gbc.period_num <= l_period_num
AND gbc.status_code = 'A';
SELECT *
INTO l_po_bc_rec
FROM po_bc_distributions pbd
WHERE pbd.ae_event_id = p_extract_rec.event_id
AND pbd.line_number = p_extract_rec.line_number;
FOR event_rec IN (SELECT *
FROM xla_events_gt
WHERE application_id = p_application_id) LOOP
g_CurrentEventId := event_rec.event_id; --For Error Handling
FOR ts_rec IN (SELECT distinct treasury_symbol_id treasury_symbol_id,
DECODE(f.application_id, 200, DECODE (f.po_distribution_id, NULL, -1, -2), -2) po_match_type
FROM fv_extract_detail_gt f
WHERE f.event_id = event_rec.event_id
AND f.prior_year_flag = 'Y') LOOP
trace(C_STATE_LEVEL, l_procedure_name, 'Processing TS:'||ts_rec.treasury_symbol_id);
SELECT SUM(NVL(f.acc_unanticipated_bud_amount, 0)),
SUM(NVL(f.acc_charge_amount, 0)),
SUM(NVL(f.acc_unreserved_budget_amount, 0)),
SUM(NVL(f.acc_commitment_amount, 0))
INTO l_tot_acc_unant_bud_amount,
l_tot_acc_charge_amount,
l_tot_acc_unreserve_bud_amount,
l_tot_acc_commitment_amt
FROM fv_extract_detail_gt f
WHERE f.event_id = event_rec.event_id
AND f.treasury_symbol_id = ts_rec.treasury_symbol_id
AND DECODE(f.application_id, 200, DECODE (f.po_distribution_id, NULL, -1, -2), -2) = ts_rec.po_match_type
AND f.prior_year_flag = 'Y';
stack_error (l_procedure_name, 'SELECT_fv_extract_detail_gt', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:SELECT_fv_extract_detail_gt:'||p_error_desc);
UPDATE fv_extract_detail_gt f
SET f.acc_unanticipated_bud_amount = NVL(f.acc_unanticipated_bud_amount, 0) + NVL(f.acc_commitment_amount, 0),
f.ent_unanticipated_bud_amount = NVL(f.ent_unanticipated_bud_amount, 0) + NVL(f.ent_commitment_amount, 0),
f.acc_commitment_amount = 0,
f.ent_commitment_amount = 0
WHERE f.event_id = event_rec.event_id
AND f.treasury_symbol_id = ts_rec.treasury_symbol_id
AND f.prior_year_flag = 'Y';
trace(C_STATE_LEVEL, l_procedure_name, 'Updated'||SQL%ROWCOUNT||' rows.');
stack_error (l_procedure_name, 'UPDATE_fv_extract_detail_gt', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:UPDATE_fv_extract_detail_gt:'||p_error_desc);
FOR pya_rec IN (SELECT *
FROM fv_extract_detail_gt f
WHERE f.event_id = event_rec.event_id
AND f.treasury_symbol_id = ts_rec.treasury_symbol_id
AND DECODE(f.application_id, 200, DECODE (f.po_distribution_id, NULL, -1, -2), -2) = ts_rec.po_match_type
AND f.prior_year_flag = 'Y') LOOP
trace(C_STATE_LEVEL, l_procedure_name, 'Processing PYA');
UPDATE fv_extract_detail_gt f
SET adjustment_type = pya_rec.adjustment_type,
acc_anticipated_budget_amount = pya_rec.acc_anticipated_budget_amount,
ent_anticipated_budget_amount = pya_rec.ent_anticipated_budget_amount,
acc_unanticipated_bud_amount = pya_rec.acc_unanticipated_bud_amount,
ent_unanticipated_bud_amount = pya_rec.ent_unanticipated_bud_amount,
acc_unpaid_obl_pya_amount = pya_rec.acc_unpaid_obl_pya_amount,
ent_unpaid_obl_pya_amount = pya_rec.ent_unpaid_obl_pya_amount,
acc_unpaid_obl_amount = pya_rec.acc_unpaid_obl_amount,
ent_unpaid_obl_amount = pya_rec.ent_unpaid_obl_amount,
acc_unpaid_exp_pya_amount = pya_rec.acc_unpaid_exp_pya_amount,
ent_unpaid_exp_pya_amount = pya_rec.ent_unpaid_exp_pya_amount,
acc_paid_exp_amount = pya_rec.acc_paid_exp_amount,
ent_paid_exp_amount = pya_rec.ent_paid_exp_amount,
ent_unpaid_exp_amount = pya_rec.ent_unpaid_exp_amount,
acc_unpaid_exp_amount = pya_rec.acc_unpaid_exp_amount,
acc_commitment_amount = pya_rec.acc_commitment_amount,
ent_commitment_amount = pya_rec.ent_commitment_amount
WHERE f.event_id = pya_rec.event_id
AND f.line_number = pya_rec.line_number
AND f.treasury_symbol_id = ts_rec.treasury_symbol_id;
stack_error (l_procedure_name, 'UPDATE_fv_extract_detail_gt', p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'ERROR:UPDATE_fv_extract_detail_gt:'||p_error_desc);
trace(C_STATE_LEVEL, l_procedure_name, 'Updated'||SQL%ROWCOUNT||' rows.');
FOR exp_funds_rec IN (SELECT *
FROM fv_extract_detail_gt g
WHERE g.fund_expired_status = 'Expired'
AND g.prior_year_flag = 'N'
AND NOT EXISTS (SELECT 1 --Bug14593920
FROM fv_treasury_symbols t
WHERE t.treasury_symbol_id = g.treasury_symbol_id
AND NVL(t.no_pya_acct_flag, 'N') = 'Y')) LOOP
g_CurrentEventId := exp_funds_rec.event_id;
SELECT hzca.customer_class_code
INTO l_vendor_type
FROM hz_cust_accounts hzca
WHERE hzca.cust_account_id = p_cust_vend_id;
SELECT vendor_type_lookup_code
INTO l_vendor_type
FROM po_vendors
WHERE vendor_id = p_cust_vend_id;