[Home] [Help]
44: --before the budget baselining notification was approved
45: -- R12 Funds Management Uptake : Obsolete cursor c_updsts with new architecture
46:
47: ---------------------------------------------------------------------------------------------
48: -- procedure to create pa_bc_balances records from PA_BUDGET_LINES and to clean up PA_BC_PACKETS
49: /* ========================================================================================== +
50: FOLLOWING CODE MOVED TO PA_BUDGET_FUND_PKG (PABBFNDB.pls)
51:
52: PROCEDURE INSERT_BGT_BALANCES(
66: l_base_version_id number;
67: l_res_list_id number;
68: l_entry_level_code varchar2(1);
69:
70: --Cursor to select BGT budget balances from pa_budget_lines,etc.
71: cursor c_bdgt_bal is
72: select pa.project_id,
73: pa.task_id,
74: pt.top_task_id,
79: pb.END_DATE,
80: rm.PARENT_MEMBER_ID,
81: pb.burdened_cost
82: from
83: pa_budget_lines pb,
84: pa_resource_assignments pa,
85: pa_tasks pt,
86: pa_resource_list_members rm,
87: pa_budget_versions pbv
429:
430: IF P_DEBUG_MODE = 'Y' THEN
431: pa_fck_util.debug_msg('MAINTAIN_BAL_FCHK: ' || 'Before Insert, no. of rec = '|| l_ProjTab.count);
432: END IF;
433: -- insert into pa_bc_balances from pa_budget_lines
434: FORALL i in l_ProjTab.FIRST..l_ProjTab.LAST
435: insert into pa_bc_balances(
436: PROJECT_ID,
437: TASK_ID,
564: pra_b.task_id task_id,
565: pbl_b.start_date start_date
566: from pa_budget_versions pbv_b,
567: pa_budgetary_control_options pbco_b,
568: pa_budget_lines pbl_b,
569: pa_resource_assignments pra_b
570: where pbv_b.project_id = p_project_id
571: and pbv_b.budget_status_code = 'B'
572: and pbv_b.current_flag ='Y'
589: pra_d.task_id task_id,
590: pbl_d.start_date start_date
591: from pa_budget_versions pbv_d,
592: pa_budgetary_control_options pbco_d,
593: pa_budget_lines pbl_d,
594: pa_resource_assignments pra_d
595: where pbv_d.project_id = p_project_id
596: and pbv_d.budget_status_code in ('W','S')
597: and pbco_d.bdgt_cntrl_flag = 'Y'