[Home] [Help]
95: ,x_utilization_id OUT NOCOPY NUMBER
96: ) IS
97: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
98: l_use_fund_staging_tables VARCHAR2(1):= 'F';
99: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
100: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
101: l_batch_type VARCHAR2(30);
102: BEGIN
103: create_utilization (
166: ,x_utilization_id OUT NOCOPY NUMBER
167: ,p_batch_type IN VARCHAR2
168: ,p_use_fund_staging_tables IN VARCHAR2
169: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
170: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
171: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
172: ) IS
173: l_api_version CONSTANT NUMBER := 1.0;
174: l_api_name CONSTANT VARCHAR2 (30) := 'Create_Utilization';
209: l_budget_count NUMBER;
210: -- Cursor to get the org_id for budget
211: CURSOR c_fund_org_id (p_fund_id IN NUMBER)IS
212: SELECT org_id, ledger_id
213: FROM ozf_funds_all_b
214: WHERE fund_id = p_fund_id;
215: */
216:
217: -- l_activity_product_id NUMBER;
266: ,ROLLUP_EARNED_AMT
267: ,ROLLUP_PAID_AMT
268: ,UTILIZED_AMT
269: ,ROLLUP_UTILIZED_AMT
270: FROM ozf_funds_all_b
271: WHERE fund_id = p_fund_id;
272:
273: --- Cursor to get the adjustment_type from adjustmentId
274: CURSOR c_adj_type (p_adj_type_id IN NUMBER) IS
342: -- yzhao: 11.5.10 check if post to gl for off invoice discount
343: CURSOR c_offinvoice_gl_post_flag(p_fund_id IN NUMBER) IS
344: SELECT NVL(sob.gl_acct_for_offinv_flag, 'F')
345: FROM ozf_sys_parameters_all sob
346: ,ozf_funds_all_b fun
347: WHERE fun.fund_id = p_fund_id
348: AND sob.org_id = fun.ORG_id ;
349: */
350: CURSOR c_offinvoice_gl_post_flag(p_org_id IN NUMBER) IS
490: l_qlf_id NUMBER;
491: l_fund_reconc_msg VARCHAR2(4000);
492: l_act_bud_cst_msg VARCHAR2(4000);
493:
494: l_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype := NULL;
495: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype := px_ozf_funds_old_rectype;
496:
497: l_use_fund_staging_tables VARCHAR2(1):= p_use_fund_staging_tables;
498: l_request_id NUMBER;
491: l_fund_reconc_msg VARCHAR2(4000);
492: l_act_bud_cst_msg VARCHAR2(4000);
493:
494: l_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype := NULL;
495: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype := px_ozf_funds_old_rectype;
496:
497: l_use_fund_staging_tables VARCHAR2(1):= p_use_fund_staging_tables;
498: l_request_id NUMBER;
499: l_operation VARCHAR2(6);
2578:
2579: CURSOR c_fund_b (p_fund_id IN NUMBER) IS
2580: SELECT utilized_amt
2581: ,object_version_number
2582: FROM ozf_funds_all_b
2583: WHERE fund_id = p_fund_id;
2584:
2585: CURSOR c_old_util_amt (p_util_id IN NUMBER) IS
2586: SELECT amount
3199:
3200: ----------------------- fund_id ------------------------
3201: IF p_utilization_rec.fund_id <> fnd_api.g_miss_num THEN
3202: IF ozf_utility_pvt.check_fk_exists (
3203: 'ozf_funds_all_b'
3204: , -- Parent schema object having the primary key
3205: 'fund_id'
3206: , -- Column name in the parent object that maps to the fk value
3207: p_utilization_rec.fund_id -- Value of fk to be validated against the parent object's pk column
3602: l_status VARCHAR2 (30);
3603:
3604: CURSOR c_budget_rec (p_fund_id IN NUMBER) IS
3605: SELECT status_code
3606: FROM ozf_funds_all_b
3607: WHERE fund_id = p_fund_id;
3608: BEGIN
3609: OPEN c_budget_rec (p_fund_id);
3610: FETCH c_budget_rec INTO l_status;
3643: ,x_return_status OUT NOCOPY VARCHAR2
3644: ) IS
3645: CURSOR c_fund_type (p_fund_id IN NUMBER) IS
3646: SELECT 'X'
3647: FROM ozf_funds_all_b ozf
3648: WHERE ozf.fund_type = 'FULLY_ACCRUED'
3649: AND ozf.fund_id = p_fund_id;
3650:
3651: l_dummy VARCHAR2 (3) := 'X';