[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().
1349: l_act_budgets_rec act_budgets_rec_type;
1350: l_temp_rec act_budgets_rec_type;
1351: l_act_util_rec act_util_rec_type := p_act_util_rec;
1352: l_old_status_code VARCHAR2 (30); -- Used to capture the current status code
1353: l_fund_rec ozf_funds_pvt.fund_rec_type;
1354: l_fund_object_version_number NUMBER;
1355: l_fund_currency_tc VARCHAR2 (15); -- a fund's transactional currency code
1356: l_fund_planned_amount NUMBER;
1357: l_request_id NUMBER;
1614: IF l_act_budgets_rec.budget_source_type = 'FUND' AND l_act_budgets_rec.arc_act_budget_used_by <> 'FUND'THEN
1615: --- fix bug 4174002 to exclude budget transfer since not planned_amt exists for pending status.
1616: -- if the budget source is a fund, then the fund's planned amount must be decreased
1617: -- by the request_amount during approval submission.
1618: ozf_funds_pvt.init_fund_rec (l_fund_rec);
1619: OPEN c_fund (l_act_budgets_rec.budget_source_id);
1620: FETCH c_fund INTO l_fund_object_version_number
1621: ,l_fund_currency_tc
1622: ,l_fund_planned_amount;
1708: -- subtract the request amount, l_fund_rec.planned_amt, to the
1709: -- fund's planned amount, l_fund_planned_amount.
1710: l_fund_rec.planned_amt := l_fund_planned_amount
1711: - l_fund_rec.planned_amt;
1712: ozf_funds_pvt.update_fund (
1713: p_api_version=> 1.0
1714: ,p_init_msg_list=> fnd_api.g_false
1715: , -- allow the calling API to handle
1716: p_commit=> fnd_api.g_false
1772: IF l_act_budgets_rec.budget_source_type = 'FUND'
1773: AND l_act_budgets_rec.arc_act_budget_used_by <> 'FUND' THEN
1774: -- if the budget source is a fund, then the fund's planned amount must be incremented
1775: -- by the request_amount during approval submission.
1776: ozf_funds_pvt.init_fund_rec (l_fund_rec);
1777: OPEN c_fund (l_act_budgets_rec.budget_source_id);
1778: FETCH c_fund INTO l_fund_object_version_number
1779: ,l_fund_currency_tc
1780: ,l_fund_planned_amount;
1891: RAISE fnd_api.g_exc_error;
1892: END IF;
1893: END IF;
1894:
1895: ozf_funds_pvt.update_fund (
1896: p_api_version=> 1.0
1897: ,p_init_msg_list=> fnd_api.g_false
1898: ,p_commit=> fnd_api.g_false
1899: ,p_validation_level=> p_validation_level
4647: l_api_name CONSTANT VARCHAR2 (30) := 'Process_Approval';
4648: l_return_status VARCHAR2 (1);
4649: l_temp_rec act_budgets_rec_type;
4650: l_temp_in_rec act_budgets_rec_type;
4651: l_fund_rec ozf_funds_pvt.fund_rec_type;
4652: l_fund_object_version_number NUMBER;
4653: l_fund_currency_tc VARCHAR2 (15); -- a fund's transactional currency code
4654: l_fund_planned_amount NUMBER;
4655: l_fund_committed_amount NUMBER;
4861: -- by the request_amount during approval
4862: -- submission.
4863: IF l_temp_rec.budget_source_type = 'FUND'
4864: OR l_temp_rec.arc_act_budget_used_by = 'FUND' THEN
4865: ozf_funds_pvt.init_fund_rec (l_fund_rec);
4866:
4867: l_objfundsum_rec := NULL;
4868:
4869: IF l_temp_rec.budget_source_type = 'FUND' THEN
5190: l_fund_rec.description := p_act_budget_rec.justification;
5191: l_fund_rec.fund_usage := 'TRANSFER';
5192: END IF;
5193:
5194: ozf_funds_pvt.update_fund (
5195: p_api_version=> 1.0
5196: ,p_init_msg_list=> fnd_api.g_false
5197: ,p_commit=> fnd_api.g_false
5198: ,p_validation_level=> fnd_api.g_valid_level_full
5316: ,x_msg_data OUT NOCOPY VARCHAR2
5317: ) IS
5318: l_return_status VARCHAR2 (1);
5319: l_temp_rec act_budgets_rec_type := p_act_budget_rec;
5320: l_fund_rec ozf_funds_pvt.fund_rec_type;
5321: l_fund_object_version_number NUMBER;
5322: l_fund_currency_tc VARCHAR2 (15); -- a fund's transactional currency code
5323: l_fund_planned_amount NUMBER;
5324: l_univ_planned_amount NUMBER;
5350: -- if the budget source is a fund, then the
5351: -- fund's planned amount must be incremented
5352: -- by the request_amount during approval
5353: -- submission.
5354: ozf_funds_pvt.init_fund_rec (l_fund_rec);
5355: OPEN c_fund (l_temp_rec.budget_source_id);
5356: FETCH c_fund INTO l_fund_object_version_number, l_fund_currency_tc, l_fund_planned_amount;
5357: CLOSE c_fund;
5358: l_fund_rec.fund_id := l_temp_rec.budget_source_id;
5444: -- fund's planned amount, l_fund_planned_amount.
5445: l_fund_rec.planned_amt :=
5446: NVL (l_fund_planned_amount, 0)
5447: - NVL (l_fund_rec.planned_amt, 0);
5448: ozf_funds_pvt.update_fund (
5449: p_api_version=> 1.0
5450: ,p_init_msg_list=> fnd_api.g_false
5451: , -- allow the calling API to handle
5452: p_commit=> fnd_api.g_false