The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE bl_mc_delete
(
p_cc_dist_line_id IN PA_PLSQL_DATATYPES.IDTabTyp
,p_debug_mode IN boolean
) IS
BEGIN
/**set_curr_function('bl_mc_delete');
log_message('50: Entered bl_mc_delete');
DELETE
FROM PA_MC_CC_DIST_LINES_ALL
WHERE cc_dist_line_id = p_cc_dist_line_id(j);
log_message('100: -- Records deleted : ' || sql%rowcount);
log_message('150: Leaving bl_mc_delete');
log_message('200: ERROR in bl_mc_delete');
END bl_mc_delete;
PROCEDURE bl_mc_update
(
p_primary_sob_id IN gl_sets_of_books.set_of_books_id%TYPE
,p_prvdr_org_id IN PA_PLSQL_DATATYPES.IDTabTyp
,p_rsob_id IN PA_PLSQL_DATATYPES.IDTabTyp
,p_rcurrency_code IN PA_PLSQL_DATATYPES.Char15TabTyp
,p_cc_dist_line_id IN PA_PLSQL_DATATYPES.IDTabTyp
,p_line_type IN PA_PLSQL_DATATYPES.Char2TabTyp
,p_upd_type IN PA_PLSQL_DATATYPES.Char1TabTyp
,p_expenditure_item_date IN PA_PLSQL_DATATYPES.DateTabTyp
,p_expenditure_item_id IN PA_PLSQL_DATATYPES.IDTabTyp
DEFAULT PA_PLSQL_DATATYPES.EmptyIDTab
,p_denom_currency_code IN PA_PLSQL_DATATYPES.Char15TabTyp
,p_acct_tp_rate_type IN PA_PLSQL_DATATYPES.Char30TabTyp
,p_acct_tp_exchange_rate IN PA_PLSQL_DATATYPES.NumTabTyp
,p_denom_transfer_price IN PA_PLSQL_DATATYPES.NumTabTyp
,p_cdl_line_num IN PA_PLSQL_DATATYPES.NumTabTyp
DEFAULT PA_PLSQL_DATATYPES.EmptyNumTab
,p_prvdr_cost_reclass_code IN PA_PLSQL_DATATYPES.Char240TabTyp
DEFAULT PA_PLSQL_DATATYPES.EmptyChar240Tab
,p_login_id IN NUMBER
,p_program_id IN NUMBER
,p_program_application_id IN NUMBER
,p_request_id IN NUMBER
,p_debug_mode IN boolean
) IS
x_sob_id PA_PLSQL_DATATYPES.IDTabTyp;
set_curr_function('bl_mc_update');
log_message('250: Entered bl_mc_update');
log_message('300: About to update pa_mc_cc_dist_lines_all');
UPDATE pa_mc_cc_dist_lines_all
SET
acct_tp_rate_type = x_rate_type(j)
,acct_tp_rate_date = x_rate_date(j)
,acct_tp_exchange_rate = x_exchange_rate(j)
,amount = x_amount(j)
,request_id = p_request_id
,program_id = p_program_id
,program_application_id = p_program_application_id
WHERE set_of_books_id = x_sob_id(j)
AND cc_dist_line_id = x_cc_dist_line_id(j)
AND prc_assignment_id = -99;
log_message('350: Rows updated : ' || sql%rowcount);
x_sob_id.delete;
x_cc_dist_line_id.delete;
x_expenditure_item_id.delete;
x_line_num.delete;
x_line_type.delete;
x_exchange_rate.delete;
x_rate_type.delete;
x_rate_date.delete;
x_currency_code.delete;
x_amount.delete;
log_message('400: Leaving bl_mc_update');
log_message('450: ERROR in bl_mc_update');
END bl_mc_update;
PROCEDURE bl_mc_insert
(
p_primary_sob_id IN gl_sets_of_books.set_of_books_id%TYPE
,p_prvdr_org_id IN PA_PLSQL_DATATYPES.IDTabTyp
,p_rsob_id IN PA_PLSQL_DATATYPES.IDTabTyp
,p_rcurrency_code IN PA_PLSQL_DATATYPES.Char15TabTyp
,p_cc_dist_line_id IN PA_PLSQL_DATATYPES.IDTabTyp
,p_line_type IN PA_PLSQL_DATATYPES.Char2TabTyp
,p_expenditure_item_id IN PA_PLSQL_DATATYPES.IDTabTyp
,p_line_num IN PA_PLSQL_DATATYPES.IDTabTyp
,p_denom_currency_code IN PA_PLSQL_DATATYPES.Char15TabTyp
,p_acct_tp_rate_type IN PA_PLSQL_DATATYPES.Char30TabTyp
,p_expenditure_item_date IN PA_PLSQL_DATATYPES.DateTabTyp
,p_acct_tp_exchange_rate IN PA_PLSQL_DATATYPES.NumTabTyp
,p_denom_transfer_price IN PA_PLSQL_DATATYPES.NumTabTyp
,p_dist_line_id_reversed IN PA_PLSQL_DATATYPES.IDTabTyp
DEFAULT PA_PLSQL_DATATYPES.EmptyIDTab
,p_cdl_line_num IN PA_PLSQL_DATATYPES.NumTabTyp
DEFAULT PA_PLSQL_DATATYPES.EmptyNumTab
,p_prvdr_cost_reclass_code IN PA_PLSQL_DATATYPES.Char240TabTyp
DEFAULT PA_PLSQL_DATATYPES.EmptyChar240Tab
,p_login_id IN NUMBER
,p_program_id IN NUMBER
,p_program_application_id IN NUMBER
,p_request_id IN NUMBER
,p_debug_mode IN boolean
) IS
x_sob_id PA_PLSQL_DATATYPES.IDTabTyp;
set_curr_function('bl_mc_insert');
log_message('500: Entered bl_mc_insert');
log_message('550: About to apply MRC inserts');
INSERT INTO PA_MC_CC_DIST_LINES_ALL
(
set_of_books_id
,prc_assignment_id
,cc_dist_line_id
,expenditure_item_id
,line_num
,line_type
,acct_currency_code
,amount
,program_id
,program_application_id
,program_update_date
,request_id
,transfer_status_code
,acct_tp_rate_type
,acct_tp_rate_date
,acct_tp_exchange_rate
,gl_batch_name
,transferred_date
,transfer_rejection_code
)
VALUES
(
x_sob_id(i) -- set_of_books_id
,-99 -- prc_assignment_id
,x_cc_dist_line_id(i) -- cc_dist_line_id
,x_expenditure_item_id(i) -- expenditure_item_id
,x_line_num(i) -- line_num
,x_line_type(i) -- line_type
,x_currency_code(i) -- acct_currency_code
,x_amount(i) -- amount
,p_program_id -- program_id
,p_program_application_id -- program_application_id
,sysdate -- program_update_date
,p_request_id -- request_id
,'P' -- transfer_status_code
,x_rate_type(i) -- acct_tp_rate_type
,x_rate_date(i) -- acct_tp_rate_date
,x_exchange_rate(i) -- acct_tp_exchange_rate
,NULL -- gl_batch_name
,NULL -- transferred_date
,NULL -- transfer_rejection_code
);
log_message('600: Rows inserted: ' || sql%rowcount);
x_sob_id.delete;
x_cc_dist_line_id.delete;
x_expenditure_item_id.delete;
x_line_num.delete;
x_line_type.delete;
x_exchange_rate.delete;
x_rate_type.delete;
x_rate_date.delete;
x_currency_code.delete;
x_amount.delete;
log_message('650: Leaving bl_mc_insert');
log_message('700: ERROR in bl_mc_insert');
END bl_mc_insert;
log_message('1650: Selecting MRC Cost distribution line');
SELECT currency_code
,decode(p_prvdr_cost_reclass_code(l_id_cnt), 'R',
amount, burdened_cost)
,rate_type
,conversion_date
,exchange_rate
INTO
x_currency_code(i)
,x_amount(i)
,x_rate_type(i)
,x_rate_date(i)
,x_exchange_rate(i)
FROM pa_mc_cost_dist_lines_all
WHERE expenditure_item_id = p_expenditure_item_id(l_id_cnt)
AND line_num = p_cdl_line_num(l_id_cnt)
AND prc_assignment_id = -99
AND set_of_books_id = p_rsob_id(l_sob_cnt);
SELECT
acct_currency_code,
-amount,
acct_tp_rate_type,
acct_tp_rate_date,
acct_tp_exchange_rate
INTO
x_currency_code(i),
x_amount(i),
x_rate_type(i),
x_rate_date(i),
x_exchange_rate(i)
FROM pa_mc_cc_dist_lines_all
WHERE set_of_books_id = p_rsob_id(l_sob_cnt)
AND cc_dist_line_id = p_dist_line_id_reversed(l_id_cnt)
AND prc_assignment_id = -99;
x_sob_id.delete;
x_cc_dist_line_id.delete;
x_expenditure_item_id.delete;
x_line_num.delete;
x_line_type.delete;
x_exchange_rate.delete;
x_rate_type.delete;
x_rate_date.delete;
x_currency_code.delete;
x_amount.delete;