DBA Data[Home] [Help]

APPS.PA_YEAR_END_ROLLOVER_PKG dependencies on PA_BUDGETARY_CONTROL_OPTIONS

Line 182: l_External_Budget_Code PA_Budgetary_Control_Options.External_Budget_Code%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;
181: l_Encumbrance_Type_ID GL_Encumbrance_Types.Encumbrance_Type_ID%TYPE;
182: l_External_Budget_Code PA_Budgetary_Control_Options.External_Budget_Code%TYPE;
183: l_GL_Budget_Version_ID PA_Budgetary_Control_Options.GL_Budget_Version_ID%TYPE;
184: l_Raw_Cost_Flag PA_Budget_Entry_Methods.Raw_Cost_Flag%TYPE;
185: l_Burdened_Cost_Flag PA_Budget_Entry_Methods.Burdened_Cost_Flag%TYPE;
186: l_Entry_Level_Code PA_Budget_Entry_Methods.Entry_Level_Code%TYPE;

Line 183: l_GL_Budget_Version_ID PA_Budgetary_Control_Options.GL_Budget_Version_ID%TYPE;

179: l_Task_ID PA_Tasks.Task_ID%TYPE;
180: l_Budget_Type_Code PA_Budget_Types.Budget_Type_Code%TYPE;
181: l_Encumbrance_Type_ID GL_Encumbrance_Types.Encumbrance_Type_ID%TYPE;
182: l_External_Budget_Code PA_Budgetary_Control_Options.External_Budget_Code%TYPE;
183: l_GL_Budget_Version_ID PA_Budgetary_Control_Options.GL_Budget_Version_ID%TYPE;
184: l_Raw_Cost_Flag PA_Budget_Entry_Methods.Raw_Cost_Flag%TYPE;
185: l_Burdened_Cost_Flag PA_Budget_Entry_Methods.Burdened_Cost_Flag%TYPE;
186: l_Entry_Level_Code PA_Budget_Entry_Methods.Entry_Level_Code%TYPE;
187: l_Resource_List_Member_ID PA_Resource_List_Members.Resource_List_Member_ID%TYPE;

Line 209: l_balance_type PA_Budgetary_Control_Options.Balance_Type%type;

205:
206: l_Err_Code NUMBER;
207: l_Err_Stage VARCHAR2(200);
208: l_Err_Stack VARCHAR2(200);
209: l_balance_type PA_Budgetary_Control_Options.Balance_Type%type;
210: l_cc_budget_type_code PA_Budgetary_Control_Options.Budget_Type_Code%type;
211:
212: -- Local Exception Variables
213: l_IU_Bdgt_Line_ERR EXCEPTION;

Line 210: l_cc_budget_type_code PA_Budgetary_Control_Options.Budget_Type_Code%type;

206: l_Err_Code NUMBER;
207: l_Err_Stage VARCHAR2(200);
208: l_Err_Stack VARCHAR2(200);
209: l_balance_type PA_Budgetary_Control_Options.Balance_Type%type;
210: l_cc_budget_type_code PA_Budgetary_Control_Options.Budget_Type_Code%type;
211:
212: -- Local Exception Variables
213: l_IU_Bdgt_Line_ERR EXCEPTION;
214: l_Lock_Bdgt_Err EXCEPTION;

Line 241: PA_Budgetary_Control_Options BCO,

237: BEM.Burdened_Cost_Flag Burdened_Cost_Flag,
238: BEM.Entry_Level_Code Entry_Level_Code,
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

Line 463: from pa_budgetary_control_options cc

459: If nvl(l_balance_type,'B') = 'E' then
460: Begin
461: select 'CC'
462: into l_cc_budget_type_code
463: from pa_budgetary_control_options cc
464: where cc.project_id = l_Project_ID
465: and cc.external_budget_code = 'CC';
466: Exception
467: When no_data_found then

Line 1232: UPDATE PA_Budgetary_Control_Options

1228: log_message('l_Project_ID='||l_Project_ID); /* added for bug 2699417 */
1229: log_message('l_Budget_Type_Code='||l_Budget_Type_Code); /* added for bug 2699417 */
1230: END IF;
1231:
1232: UPDATE PA_Budgetary_Control_Options
1233: SET
1234: Yr_End_Rollover_Message = l_Message_Code_Error,
1235: Yr_End_Rollover_Year = -1,
1236: Yr_End_Rollover_Flag = 'E',

Line 1245: log_message('Doing ROLLBACK after update PA_Budgetary_Control_Options');

1241:
1242: IF SQL%ROWCOUNT = 0 THEN
1243:
1244: IF P_DEBUG_MODE = 'Y' THEN
1245: log_message('Doing ROLLBACK after update PA_Budgetary_Control_Options');
1246: END IF;
1247:
1248: ROLLBACK;
1249: l_Message_Name := 'PA_BC_UPD_CNT_OPTN_ERR';

Line 1264: UPDATE PA_Budgetary_Control_Options

1260: IF P_DEBUG_MODE = 'Y' THEN
1261: log_message('Year_End_Rollover: ' || 'Processing correctly');
1262: END IF;
1263:
1264: UPDATE PA_Budgetary_Control_Options
1265: SET
1266: Yr_End_Rollover_Amount = l_Total_Rollover_Amount,
1267: Yr_End_Rollover_Year = P_Closing_Year,
1268: Yr_End_Rollover_Flag = 'S', -- successfully done

Line 1939: -- Update PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'P' indicating

1935: -- End of checking if Year End Rollover program is already running for this
1936: -- Project and Budget Type
1937:
1938: -------------------------------------------------------------------------------+
1939: -- Update PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'P' indicating
1940: -- to other processes that this program is running
1941: -------------------------------------------------------------------------------+
1942: Upd_Yr_End_Rollover_Flag_To_P(
1943: P_Request_ID => P_Request_ID,

Line 1948: log_message('Year_End_Rollover: ' || 'Updated PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to ''P''');

1944: P_Project_ID => P_Project_ID,
1945: P_Budget_Type_Code => P_Budget_Type_Code);
1946: IF P_DEBUG_MODE = 'Y' THEN
1947: log_message('Year_End_Rollover: ' || '--');
1948: log_message('Year_End_Rollover: ' || 'Updated PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to ''P''');
1949: log_message('Year_End_Rollover: ' || '--');
1950: log_message('Year_End_Rollover: Calling PA_Budget_Core.Copy');
1951: END IF;
1952: -- End of updating PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'P'

Line 1952: -- End of updating PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'P'

1948: log_message('Year_End_Rollover: ' || 'Updated PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to ''P''');
1949: log_message('Year_End_Rollover: ' || '--');
1950: log_message('Year_End_Rollover: Calling PA_Budget_Core.Copy');
1951: END IF;
1952: -- End of updating PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'P'
1953: /* Bug 5726535 - End */
1954:
1955: -------------------------------------------------------------------------------+
1956: -- Create (using PA_Budget_Core.Copy API) a new Draft Budget Version

Line 2349: log_message('Year_End_Rollover: ' || 'Updating with Error in PA_Budgetary_Control_Options');

2345: END;
2346:
2347: -- Update the Budget Version record
2348: IF P_DEBUG_MODE = 'Y' THEN
2349: log_message('Year_End_Rollover: ' || 'Updating with Error in PA_Budgetary_Control_Options');
2350: log_message ('l_Project_ID = '|| l_Project_ID ); /* 2699417 */
2351: log_message ('l_Budget_Type_Code = '|| l_Budget_Type_Code ); /* 2699417 */
2352: log_message ('P_Message_Name = '|| P_Message_Name ); /* 2699417 */
2353: END IF;

Line 2355: PA_Budgetary_Control_Options

2351: log_message ('l_Budget_Type_Code = '|| l_Budget_Type_Code ); /* 2699417 */
2352: log_message ('P_Message_Name = '|| P_Message_Name ); /* 2699417 */
2353: END IF;
2354: UPDATE
2355: PA_Budgetary_Control_Options
2356: SET
2357: Yr_End_Rollover_Message = P_Message_Name,
2358: Yr_End_Rollover_Flag = 'E',
2359: Yr_End_Rollover_Year = -1,

Line 2389: /* This function checks if PA_Budgetary_Control_Options.Yr_End_Rollover_Flag

2385:
2386: END LOG_MESSAGE;
2387:
2388: /* Bug 5726535 - Start */
2389: /* This function checks if PA_Budgetary_Control_Options.Yr_End_Rollover_Flag
2390: is already set to 'P' for the given Project and Budget Type combination.
2391: If yes, the function returns TRUE. Otherwise, the function returns FALSE */
2392: FUNCTION Is_Yr_End_Rollover_Running(
2393: P_Project_ID IN PA_Projects_all.Project_ID%TYPE,

Line 2397: l_Yr_End_Rollover_Flag PA_Budgetary_Control_Options.Yr_End_Rollover_Flag%TYPE := NULL;

2393: P_Project_ID IN PA_Projects_all.Project_ID%TYPE,
2394: P_Budget_Type_Code IN PA_Budget_Types.Budget_Type_Code%TYPE
2395: ) RETURN BOOLEAN
2396: IS
2397: l_Yr_End_Rollover_Flag PA_Budgetary_Control_Options.Yr_End_Rollover_Flag%TYPE := NULL;
2398: BEGIN
2399: SELECT Yr_End_Rollover_Flag
2400: INTO l_Yr_End_Rollover_Flag
2401: FROM PA_Budgetary_Control_Options

Line 2401: FROM PA_Budgetary_Control_Options

2397: l_Yr_End_Rollover_Flag PA_Budgetary_Control_Options.Yr_End_Rollover_Flag%TYPE := NULL;
2398: BEGIN
2399: SELECT Yr_End_Rollover_Flag
2400: INTO l_Yr_End_Rollover_Flag
2401: FROM PA_Budgetary_Control_Options
2402: WHERE Project_ID = p_Project_ID
2403: AND Budget_Type_Code = p_Budget_Type_Code;
2404:
2405: IF l_Yr_End_Rollover_Flag = 'P' THEN

Line 2412: /* This procedure updates PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'P'

2408: RETURN FALSE;
2409: END IF;
2410: END Is_Yr_End_Rollover_Running;
2411:
2412: /* This procedure updates PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'P'
2413: in an autonomous transaction */
2414: PROCEDURE Upd_Yr_End_Rollover_Flag_To_P(
2415: P_Request_ID IN FND_Concurrent_Requests.Request_ID%TYPE,
2416: P_Project_ID IN PA_Projects_all.Project_ID%TYPE,

Line 2422: UPDATE PA_Budgetary_Control_Options

2418: )
2419: IS
2420: PRAGMA AUTONOMOUS_TRANSACTION;
2421: BEGIN
2422: UPDATE PA_Budgetary_Control_Options
2423: SET Yr_End_Rollover_Flag = 'P',
2424: Request_ID = P_Request_ID
2425: WHERE Project_ID = P_Project_ID
2426: AND Budget_Type_Code = P_Budget_Type_Code;

Line 2430: /* This procedure updates PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'E'

2426: AND Budget_Type_Code = P_Budget_Type_Code;
2427: COMMIT;
2428: END Upd_Yr_End_Rollover_Flag_To_P;
2429:
2430: /* This procedure updates PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'E'
2431: in an autonomous transaction */
2432: PROCEDURE Upd_Yr_End_Rollover_Flag_To_E(
2433: P_Request_ID IN FND_Concurrent_Requests.Request_ID%TYPE
2434: )

Line 2438: UPDATE PA_Budgetary_Control_Options

2434: )
2435: IS
2436: PRAGMA AUTONOMOUS_TRANSACTION;
2437: BEGIN
2438: UPDATE PA_Budgetary_Control_Options
2439: SET Yr_End_Rollover_Flag = 'E'
2440: WHERE Request_ID = P_Request_ID;
2441: COMMIT;
2442: END Upd_Yr_End_Rollover_Flag_To_E;