[Home] [Help]
25: -------------------------------------------------------------------------------------
26: -- Insert/Update the Budget Summary Account details
27: -------------------------------------------------------------------------------------
28: PROCEDURE Upd_Ins_Budget_Acct_Line (
29: P_Budget_Version_ID IN PA_Budget_Versions.Budget_Version_ID%TYPE,
30: P_Period_Name IN GL_Periods.Period_Name%TYPE,
31: P_Period_Start_Date IN GL_Periods.Start_Date%TYPE,
32: P_Period_End_Date IN GL_Periods.End_Date%TYPE,
33: P_Transfer_Amount IN NUMBER,
140: END Upd_Ins_Budget_Acct_Line;
141:
142: -- -------------------------------------------------------------------------------------------------+
143: PROCEDURE Year_End_Rollover (
144: P_Closing_Year IN NUMBER, -- PA_Budget_Versions.Closing_Year%TYPE ?
145: P_Organization_ID IN PA_Organizations_V.Organization_ID%TYPE,
146: P_From_Project_Number IN PA_Projects_All.Segment1%TYPE,
147: P_To_Project_Number IN PA_Projects_All.Segment1%TYPE,
148: P_Request_ID IN FND_Concurrent_Requests.Request_ID%TYPE,
169: l_Amount_with_no_budgetline NUMBER; /*Bug: 13598400 Added to hold the PA BC BALANCE amount which has no budget line in budget matrix */
170: l_Funds_Chk_Rsrv_Status VARCHAR2(1);
171:
172: l_Accounted_Period_Type GL_Sets_Of_Books.Accounted_Period_Type%TYPE;
173: l_New_Budget_Version_ID PA_Budget_Versions.Budget_Version_ID%TYPE;
174: l_Work_Budget_Version_ID PA_Budget_Versions.Budget_Version_ID%TYPE;
175: l_Work_Resource_Assign_ID PA_Resource_Assignments.Resource_Assignment_ID%TYPE;
176: l_Bslnd_Budget_Version_ID PA_Budget_Versions.Budget_Version_ID%TYPE;
177: l_Project_ID PA_Projects_all.Project_ID%TYPE;
170: l_Funds_Chk_Rsrv_Status VARCHAR2(1);
171:
172: l_Accounted_Period_Type GL_Sets_Of_Books.Accounted_Period_Type%TYPE;
173: l_New_Budget_Version_ID PA_Budget_Versions.Budget_Version_ID%TYPE;
174: l_Work_Budget_Version_ID PA_Budget_Versions.Budget_Version_ID%TYPE;
175: l_Work_Resource_Assign_ID PA_Resource_Assignments.Resource_Assignment_ID%TYPE;
176: l_Bslnd_Budget_Version_ID PA_Budget_Versions.Budget_Version_ID%TYPE;
177: l_Project_ID PA_Projects_all.Project_ID%TYPE;
178: l_Project_Completion_Date DATE;
172: l_Accounted_Period_Type GL_Sets_Of_Books.Accounted_Period_Type%TYPE;
173: l_New_Budget_Version_ID PA_Budget_Versions.Budget_Version_ID%TYPE;
174: l_Work_Budget_Version_ID PA_Budget_Versions.Budget_Version_ID%TYPE;
175: l_Work_Resource_Assign_ID PA_Resource_Assignments.Resource_Assignment_ID%TYPE;
176: l_Bslnd_Budget_Version_ID PA_Budget_Versions.Budget_Version_ID%TYPE;
177: l_Project_ID PA_Projects_all.Project_ID%TYPE;
178: l_Project_Completion_Date DATE;
179: l_Task_ID PA_Tasks.Task_ID%TYPE;
180: l_Budget_Type_Code PA_Budget_Types.Budget_Type_Code%TYPE;
239: BCO.Balance_type Balance_Type
240: FROM
241: PA_Budgetary_Control_Options BCO,
242: PA_Projects PROJ,
243: PA_Budget_Versions BV,
244: PA_Budget_Entry_Methods BEM
245: WHERE
246: PROJ.Carrying_Out_organization_id =
247: NVL(P_Organization_ID, PROJ.Carrying_Out_organization_id )
744: RA.Resource_Assignment_ID
745: INTO
746: l_Work_Resource_Assign_ID
747: FROM
748: PA_Budget_Versions BV,
749: PA_Resource_Assignments RA
750: WHERE
751: RA.resource_list_member_id = l_Resource_List_Member_ID
752: AND RA.Budget_Version_ID = l_Work_Budget_Version_ID
1062: -- Get the latest Baselined Budget Version ID
1063: BEGIN
1064: SELECT Budget_Version_ID
1065: INTO l_New_Budget_Version_ID
1066: FROM PA_Budget_Versions
1067: WHERE Project_ID = l_Project_ID
1068: AND Budget_Type_Code = l_Budget_Type_Code
1069: AND Current_Flag = 'Y'
1070: AND Budget_Status_Code = 'B';
1289: log_message('Year_End_Rollover: ' || 'Updated Budget Version Record');
1290: END IF;
1291:
1292: l_Change_Reason_Code := 'YEAR END BUDGET ROLLOVER';
1293: UPDATE PA_Budget_Versions
1294: SET Change_Reason_Code = l_Change_Reason_Code
1295: WHERE Budget_Version_ID = l_New_Budget_Version_ID ;
1296:
1297: IF SQL%ROWCOUNT = 0 THEN
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,
1604: P_Resource_Assignment_ID IN OUT NOCOPY PA_Resource_Assignments.Resource_Assignment_ID%TYPE,
1605: P_Period_Name IN GL_Periods.Period_Name%TYPE,
1606: P_Period_Start_Date IN GL_Periods.Start_Date%TYPE,
1672:
1673: BEGIN
1674: SELECT Projfunc_Currency_Code
1675: INTO l_Txn_Curr_Code
1676: FROM PA_Projects_All a, PA_Budget_Versions b, PA_Resource_Assignments c
1677: WHERE a.Project_Id = b.Project_Id
1678: AND b.Budget_Version_Id = c.Budget_Version_Id
1679: AND c.Resource_Assignment_Id = P_Resource_Assignment_Id;
1680: EXCEPTION
1812: to be called to maintain MRC in budgets */
1813:
1814: -- Updating Budget Version Amounts
1815: UPDATE
1816: PA_Budget_Versions
1817: SET
1818: Raw_Cost = NVL(Raw_Cost,0) - l_Raw_Transfer_Amount,
1819: Burdened_Cost = NVL(Burdened_Cost,0) - l_Burdened_Transfer_Amount
1820: WHERE
1837: -----------------------------------------------------------------------------------
1838: PROCEDURE Create_Working_Budget (
1839: P_Project_ID IN PA_Projects_all.Project_ID%TYPE,
1840: P_Budget_Type_Code IN PA_Budget_Types.Budget_Type_Code%TYPE,
1841: P_Budget_Version_ID IN PA_Budget_Versions.Budget_Version_ID%TYPE,
1842: P_Request_ID IN FND_Concurrent_Requests.Request_ID%TYPE,
1843: X_Work_Budget_Version_ID OUT NOCOPY PA_Budget_Versions.Budget_Version_ID%TYPE,
1844: X_Return_Status OUT NOCOPY VARCHAR2,
1845: X_Msg_Count OUT NOCOPY NUMBER,
1839: P_Project_ID IN PA_Projects_all.Project_ID%TYPE,
1840: P_Budget_Type_Code IN PA_Budget_Types.Budget_Type_Code%TYPE,
1841: P_Budget_Version_ID IN PA_Budget_Versions.Budget_Version_ID%TYPE,
1842: P_Request_ID IN FND_Concurrent_Requests.Request_ID%TYPE,
1843: X_Work_Budget_Version_ID OUT NOCOPY PA_Budget_Versions.Budget_Version_ID%TYPE,
1844: X_Return_Status OUT NOCOPY VARCHAR2,
1845: X_Msg_Count OUT NOCOPY NUMBER,
1846: X_Msg_Data OUT NOCOPY VARCHAR2
1847: )
1847: )
1848: IS
1849:
1850: -- Local Variables
1851: l_Work_Budget_Version_ID PA_Budget_Versions.Budget_Version_ID%TYPE;
1852: l_Lock_Name VARCHAR2(100);
1853:
1854: l_Exist_Flag NUMBER;
1855:
1880: 1
1881: INTO
1882: l_Exist_Flag
1883: FROM
1884: PA_Budget_Versions
1885: WHERE
1886: Project_ID = P_Project_ID
1887: AND Budget_Type_Code = P_Budget_Type_Code
1888: AND Budget_Status_Code = 'W' ;
1991: Budget_Version_ID
1992: INTO
1993: X_Work_Budget_Version_ID
1994: FROM
1995: PA_BUDGET_VERSIONS
1996: WHERE
1997: Project_ID = P_Project_ID
1998: AND Budget_Type_Code = P_Budget_Type_Code
1999: AND Budget_Status_Code = 'W';
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
2223: where pbv.budget_version_id = p_budget_version_id
2224: and pa.resource_assignment_id = pb.resource_assignment_id
2225: and pa.task_id = pt.task_id (+)
2226: and pa.budget_version_id = pbv.budget_version_id
2296: -------------------------------------------------------------------------------------
2297: -- Update the message name for a Budget Version that was failed due to some reason
2298: -------------------------------------------------------------------------------------
2299: PROCEDURE Year_End_Rollover_Log (
2300: P_Budget_Version_ID IN PA_Budget_Versions.Budget_Version_ID%TYPE,
2301: P_Message_Name IN FND_New_Messages.Message_Name%TYPE,
2302: P_Request_ID IN FND_Concurrent_Requests.Request_ID%TYPE,
2303: P_Lock_Name IN VARCHAR2
2304: )
2333: INTO
2334: l_Project_ID,
2335: l_Budget_Type_Code
2336: FROM
2337: PA_Budget_Versions
2338: WHERE
2339: Budget_Version_ID = P_Budget_Version_ID;
2340: EXCEPTION
2341: WHEN NO_DATA_FOUND THEN
2339: Budget_Version_ID = P_Budget_Version_ID;
2340: EXCEPTION
2341: WHEN NO_DATA_FOUND THEN
2342: IF P_DEBUG_MODE = 'Y' THEN
2343: log_message('Year_End_Rollover: ' || 'No Data Found in PA_Budget_Versions');
2344: END IF;
2345: END;
2346:
2347: -- Update the Budget Version record