[Home] [Help]
19: -- 22-Aug-2000 choang Added get_approver(), can_modify() and is_account_closed().
20: -- 24-Aug-2000 choang approval and rejection of budget should also include approver_id.
21: -- 30-Aug-2000 choang Corr ected currency conversion values when budget source is submitted for approval.
22: -- 05-Sep-2000 choang Fixed bug 1397577 - added deliverable as consumer of budget source.
23: -- Modified call to ozf_funds_pvt.update_fund to include p_mode = 'WORKFLOW'
24: -- to by-pass validation of budget status.
25: -- 12-Sep-2000 choang 1) Moved approval API's to OZF_BudgetApproval_PVT.
26: -- 2) Removed get_approver() 3) Modified trigger_approval_process()
27: -- 14-Sep-2000 choang Moved approval processing steps into procedure process_approval().
1896: l_old_act_budgets_rec act_budgets_rec_type := p_old_act_budgets_rec;
1897: l_temp_rec act_budgets_rec_type;
1898: l_act_util_rec act_util_rec_type := p_act_util_rec;
1899: l_old_status_code VARCHAR2 (30); -- Used to capture the current status code
1900: l_fund_rec ozf_funds_pvt.fund_rec_type;
1901: l_fund_object_version_number NUMBER;
1902: l_fund_currency_tc VARCHAR2 (15); -- a fund's transactional currency code
1903: l_fund_planned_amount NUMBER;
1904: l_fund_committed_amount NUMBER;
2229: IF l_act_budgets_rec.budget_source_type = 'FUND' AND l_act_budgets_rec.arc_act_budget_used_by <> 'FUND'THEN
2230: --- fix bug 4174002 to exclude budget transfer since not planned_amt exists for pending status.
2231: -- if the budget source is a fund, then the fund's planned amount must be decreased
2232: -- by the request_amount during approval submission.
2233: ozf_funds_pvt.init_fund_rec (l_fund_rec);
2234: OPEN c_fund (l_act_budgets_rec.budget_source_id);
2235: FETCH c_fund INTO l_fund_object_version_number
2236: ,l_fund_currency_tc
2237: ,l_fund_planned_amount;
2326: -- subtract the request amount, l_fund_rec.planned_amt, to the
2327: -- fund's planned amount, l_fund_planned_amount.
2328: l_fund_rec.planned_amt := l_fund_planned_amount
2329: - l_fund_rec.planned_amt;
2330: ozf_funds_pvt.update_fund (
2331: p_api_version=> 1.0
2332: ,p_init_msg_list=> fnd_api.g_false
2333: , -- allow the calling API to handle
2334: p_commit=> fnd_api.g_false
2391: IF l_act_budgets_rec.budget_source_type = 'FUND'
2392: AND l_act_budgets_rec.arc_act_budget_used_by <> 'FUND' THEN
2393: -- if the budget source is a fund, then the fund's planned amount must be incremented
2394: -- by the request_amount during approval submission.
2395: ozf_funds_pvt.init_fund_rec (l_fund_rec);
2396: OPEN c_fund (l_act_budgets_rec.budget_source_id);
2397: FETCH c_fund INTO l_fund_object_version_number
2398: ,l_fund_currency_tc
2399: ,l_fund_planned_amount;
2513: RAISE fnd_api.g_exc_error;
2514: END IF;
2515: END IF;
2516:
2517: ozf_funds_pvt.update_fund (
2518: p_api_version=> 1.0
2519: ,p_init_msg_list=> fnd_api.g_false
2520: ,p_commit=> fnd_api.g_false
2521: ,p_validation_level=> p_validation_level
5523: l_api_name CONSTANT VARCHAR2 (30) := 'Process_Approval';
5524: l_return_status VARCHAR2 (1);
5525: l_temp_rec act_budgets_rec_type;
5526: l_temp_in_rec act_budgets_rec_type;
5527: l_fund_rec ozf_funds_pvt.fund_rec_type;
5528: l_fund_object_version_number NUMBER;
5529: l_fund_currency_tc VARCHAR2 (15); -- a fund's transactional currency code
5530: l_fund_planned_amount NUMBER;
5531: l_fund_committed_amount NUMBER;
5774: -- by the request_amount during approval
5775: -- submission.
5776: IF l_temp_rec.budget_source_type = 'FUND'
5777: OR l_temp_rec.arc_act_budget_used_by = 'FUND' THEN
5778: ozf_funds_pvt.init_fund_rec (l_fund_rec);
5779:
5780: l_objfundsum_rec := NULL;
5781:
5782: IF l_temp_rec.budget_source_type = 'FUND' THEN
6165: -- and px_ozf_funds_old_rectype for taking the funds old values
6166: -- For TPA Parallel Execution ER Bug#9614703
6167: -- and changed px_ozf_funds_new_rectype to px_ozf_funds_new_tbl.
6168:
6169: ozf_funds_pvt.update_fund (
6170: p_api_version=> 1.0
6171: ,p_init_msg_list=> fnd_api.g_false
6172: ,p_commit=> fnd_api.g_false
6173: ,p_validation_level=> fnd_api.g_valid_level_full
6324: ,x_msg_data OUT NOCOPY VARCHAR2
6325: ) IS
6326: l_return_status VARCHAR2 (1);
6327: l_temp_rec act_budgets_rec_type := p_act_budget_rec;
6328: l_fund_rec ozf_funds_pvt.fund_rec_type;
6329: l_fund_object_version_number NUMBER;
6330: l_fund_currency_tc VARCHAR2 (15); -- a fund's transactional currency code
6331: l_fund_planned_amount NUMBER;
6332: l_univ_planned_amount NUMBER;
6358: -- if the budget source is a fund, then the
6359: -- fund's planned amount must be incremented
6360: -- by the request_amount during approval
6361: -- submission.
6362: ozf_funds_pvt.init_fund_rec (l_fund_rec);
6363: OPEN c_fund (l_temp_rec.budget_source_id);
6364: FETCH c_fund INTO l_fund_object_version_number, l_fund_currency_tc, l_fund_planned_amount;
6365: CLOSE c_fund;
6366: l_fund_rec.fund_id := l_temp_rec.budget_source_id;
6456: -- fund's planned amount, l_fund_planned_amount.
6457: l_fund_rec.planned_amt :=
6458: NVL (l_fund_planned_amount, 0)
6459: - NVL (l_fund_rec.planned_amt, 0);
6460: ozf_funds_pvt.update_fund (
6461: p_api_version=> 1.0
6462: ,p_init_msg_list=> fnd_api.g_false
6463: , -- allow the calling API to handle
6464: p_commit=> fnd_api.g_false