[Home] [Help]
273: ( nvl(BCBL.Actual_Period_To_Date, 0) + nvl(BCBL.Encumb_Period_To_Date, 0)) ) Transfer_Amount, /* Bug#13598400: Added nvls */
274: MAX(BL.START_DATE) Budget_period_start_date
275: FROM
276: PA_Resource_Assignments RA,
277: PA_Budget_Lines BL,
278: PA_BC_Balances BCBL
279: WHERE
280: RA.Budget_Version_ID = l_Bslnd_Budget_Version_ID
281: AND RA.Resource_Assignment_ID = BL.Resource_Assignment_ID
709: l_Task_ID IN ( bcbl.Top_Task_ID, bcbl.Task_ID )))
710: AND bcbl.Resource_List_Member_ID = l_Resource_List_Member_ID
711: AND BCBL.Start_Date BETWEEN l_Cur_Yr_First_Prd_Start_Dt
712: AND l_Cur_Yr_Last_Prd_Start_Dt
713: AND NOT EXISTS (select 1 from pa_budget_lines bl,
714: pa_resource_assignments ra
715: where bl.resource_assignment_id = ra.resource_assignment_id
716: and ra.resource_list_member_id = bcbl.resource_list_member_id
717: and ra.project_id = bcbl.project_id
1595: P_Procedure_Name => 'Get_Period_Details');
1596: END Get_Period_Details;
1597:
1598: -------------------------------------------------------------------------------------
1599: -- Update / Insert into PA_BUDGET_LINES
1600: -------------------------------------------------------------------------------------
1601: PROCEDURE Upd_Ins_Budget_Line (
1602: P_Budget_Version_ID IN PA_Budget_Versions.Budget_Version_ID%TYPE,
1603: P_Budget_Type_Code IN PA_Budget_Types.Budget_Type_Code%TYPE,
1634: /* FPB2: MRC */
1635:
1636: -- Bug Fix: 4569365. Removed MRC code.
1637: -- l_Mrc_Exception EXCEPTION;
1638: l_Txn_Curr_Code PA_BUDGET_LINES.TXN_CURRENCY_CODE%type;
1639: --l_Budget_Line_Id PA_BUDGET_LINES.BUDGET_LINE_ID%type;
1640:
1641: BEGIN
1642: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
1635:
1636: -- Bug Fix: 4569365. Removed MRC code.
1637: -- l_Mrc_Exception EXCEPTION;
1638: l_Txn_Curr_Code PA_BUDGET_LINES.TXN_CURRENCY_CODE%type;
1639: --l_Budget_Line_Id PA_BUDGET_LINES.BUDGET_LINE_ID%type;
1640:
1641: BEGIN
1642: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
1643:
1683: l_Txn_Curr_Code := NULL;
1684: END;
1685:
1686: UPDATE
1687: PA_Budget_Lines
1688: SET
1689: Burdened_Cost = NVL(Burdened_Cost,0) + l_Burdened_Transfer_Amount,
1690: Raw_Cost = NVL(Raw_Cost,0) + l_Raw_Transfer_Amount,
1691: Request_ID = P_Request_ID
1708: -- Update without using code combination_id ...
1709: -- Case: Where there is a line that is already existing with
1710: -- a diff. code combination ..
1711: UPDATE
1712: PA_Budget_Lines
1713: SET
1714: Burdened_Cost = NVL(Burdened_Cost,0) + l_Burdened_Transfer_Amount,
1715: Raw_Cost = NVL(Raw_Cost,0) + l_Raw_Transfer_Amount,
1716: Request_ID = P_Request_ID
1731:
1732: IF l_Update_Count = 0 -- No Data Found ie. NO record are updated
1733: THEN
1734: IF P_DEBUG_MODE = 'Y' THEN
1735: log_message('Year_End_Rollover: ' || 'Inserting into PA_BUDGET_LINES');
1736: END IF;
1737: ---------------------------------------------------------------------------------+
1738: -- Insert a new Budget Lines data
1739: ---------------------------------------------------------------------------------+
1739: ---------------------------------------------------------------------------------+
1740: IF P_DEBUG_MODE = 'Y' THEN
1741: log_message('Year_End_Rollover: ' || 'Raw Cost: '|| l_Raw_Cost ||' and Burdened Cost: '|| l_Burdened_Cost );
1742: END IF;
1743: PA_BUDGET_LINES_V_PKG.Insert_Row (
1744: X_ROWID => l_RowID,
1745: X_Resource_Assignment_Id => P_Resource_Assignment_ID,
1746: X_Budget_Version_Id => P_Budget_Version_ID,
1747: X_Project_Id => P_Project_ID,
1818: Raw_Cost = NVL(Raw_Cost,0) - l_Raw_Transfer_Amount,
1819: Burdened_Cost = NVL(Burdened_Cost,0) - l_Burdened_Transfer_Amount
1820: WHERE
1821: Budget_Version_ID = P_Budget_Version_ID;
1822: END IF; -- End of inserting a new record into PA_BUDGET_LINES
1823:
1824: RETURN;
1825: -- Bug Fix: 4569365. Removed MRC code.
1826: /* EXCEPTION
2018: RA.Task_ID,
2019: BL.Code_Combination_ID,
2020: BL.Start_Date
2021: FROM PA_Resource_Assignments RA,
2022: PA_Budget_Lines BL
2023: WHERE RA.Resource_Assignment_ID = BL.Resource_Assignment_ID
2024: AND RA.Budget_Version_ID = P_Budget_Version_ID )
2025: LOOP
2026:
2028: not be called. If amount fields are added to the below update, MRC apis need
2029: to be called to maintain MRC in budgets */
2030:
2031: UPDATE
2032: PA_Budget_Lines BL
2033: SET
2034: BL.Code_Combination_ID = i.Code_Combination_ID
2035: WHERE
2036: BL.Start_Date = i.Start_Date
2151: END Create_Working_Budget;
2152:
2153: -- -------------------------------------------------------------------+
2154: -- This procedure will create budget data in pa_bc_balances (from
2155: -- pa_budget_lines, pa_resource_assignments)
2156: -- -------------------------------------------------------------------+
2157:
2158: PROCEDURE Create_bc_balances(p_budget_version_id IN NUMBER,
2159: p_last_baselined_version_id IN NUMBER,
2172: IF P_DEBUG_MODE = 'Y' THEN
2173: log_message('Create_bc_balances: Create pa_bc_balances - BGT');
2174: END IF;
2175:
2176: -- Budget lines from pa_budget_lines
2177: insert into pa_bc_balances(
2178: PROJECT_ID,
2179: TASK_ID,
2180: TOP_TASK_ID,
2214: pb.burdened_cost,
2215: 0,
2216: 0,
2217: l_request_id
2218: from pa_budget_lines pb,
2219: pa_resource_assignments pa,
2220: pa_tasks pt,
2221: pa_resource_list_members rm,
2222: pa_budget_versions pbv