[Home] [Help]
13: --
14: -- For similar functionality for FP plan types, FP specific procedures
15: -- must be called.
16: --
17: -- PA_BUDGET_UTILS.Get_Project_Currency_Info uses package
18: -- globals to optimize peformance. It also uses x_project_id
19: -- to determine when the globals should be refreshed.
20: --
21: --History
25: --
26: -- 1) Modidified the pa_resource_assignments insert to populte
27: -- resource_assignment_type as 'USER_ENTERED'.
28: --
29: -- 2) Added a call to PA_BUDGET_UTILS.Get_Project_Currency_Info
30: -- to populate the following new currency columns:
31: -- - projfunc_currency_code
32: -- - project_currency_code
33: -- - txn_currency_code
270: -- copy value of quantity amt into raw cost and also set quantity
271: -- amt to null.
272:
273: /* Code modified for budget_amount_code for Forecasting changes 03/23/2001 */
274: v_budget_amount_code := pa_budget_utils.get_budget_amount_code(v_budget_type_code);
275: if v_budget_amount_code = 'C' then
276: -- Cost Budget
277: if pa_budget_utils.check_currency_uom(x_unit_of_measure) = 'Y' then
278: if x_raw_cost is null then
273: /* Code modified for budget_amount_code for Forecasting changes 03/23/2001 */
274: v_budget_amount_code := pa_budget_utils.get_budget_amount_code(v_budget_type_code);
275: if v_budget_amount_code = 'C' then
276: -- Cost Budget
277: if pa_budget_utils.check_currency_uom(x_unit_of_measure) = 'Y' then
278: if x_raw_cost is null then
279: x_raw_cost := x_quantity;
280: end if;
281: x_quantity := null;
285: x_burdened_cost := x_raw_cost;
286: end if;
287:
288: elsif v_budget_amount_code = 'R' then -- Revenue Budget
289: if pa_budget_utils.check_currency_uom(x_unit_of_measure) = 'Y' then
290: if x_revenue is null then
291: x_revenue := x_quantity;
292: end if;
293: x_quantity := null;
298:
299: -- Get Project Currency Information for INSERT
300: -- Note: This procedure uses package globals to effect one fecth per x_project_id.
301:
302: PA_BUDGET_UTILS.Get_Project_Currency_Info
303: (
304: p_project_id => x_project_id
305: , x_projfunc_currency_code => l_projfunc_currency_code
306: , x_project_currency_code => l_project_currency_code
492: end if;
493: CLOSE C;
494:
495:
496: -- This EXCEPTION is coded here for the PA_BUDGET_UTILS.Get_Project_Currency_Info call.
497: -- Since the table handler was not designed for this kind of thing, the public API
498: -- error-handling OUT-parameters are not populated.
499:
500: EXCEPTION
723: --
724: -- For similar functionality for FP plan types, FP specific procedures
725: -- must be called.
726: --
727: -- PA_BUDGET_UTILS.Get_Project_Currency_Info uses package
728: -- globals to optimize peformance. It also uses x_project_id
729: -- to determine when the globals should be refreshed.
730: --
731: --History
732: -- xx-xxx-xxxx who? - Created
733: --
734: -- 16-AUG-02 jwhite As per the FP model conversion effort, did the following:
735: --
736: -- 1) Added a call to PA_BUDGET_UTILS.Get_Project_Currency_Info
737: -- to populate the following new currency columns:
738: -- - projfunc_currency_code
739: -- - project_currency_code
740: -- - txn_currency_code
919: -- If the resource UOM is currency and raw cost is null then
920: -- copy value of quantity amt into raw cost and also set quantity
921: -- amt to null.
922:
923: if pa_budget_utils.get_budget_amount_code(v_budget_type_code) = 'C' then
924: -- Cost Budget
925:
926: if pa_budget_utils.check_currency_uom(x_unit_of_measure) = 'Y' then
927: if x_raw_cost is null then
922:
923: if pa_budget_utils.get_budget_amount_code(v_budget_type_code) = 'C' then
924: -- Cost Budget
925:
926: if pa_budget_utils.check_currency_uom(x_unit_of_measure) = 'Y' then
927: if x_raw_cost is null then
928: x_raw_cost := x_quantity;
929: end if;
930: x_quantity := null;
934: x_burdened_cost := x_raw_cost;
935: end if;
936:
937: else -- Revenue Budget
938: if pa_budget_utils.check_currency_uom(x_unit_of_measure) = 'Y' then
939: if x_revenue is null then
940: x_revenue := x_quantity;
941: end if;
942: x_quantity := null;