DBA Data[Home] [Help]

APPS.PA_YEAR_END_ROLLOVER_PKG dependencies on PA_BUDGETARY_CONTROL_OPTIONS

Line 181: l_External_Budget_Code PA_Budgetary_Control_Options.External_Budget_Code%TYPE;

177: l_Project_Completion_Date DATE;
178: l_Task_ID PA_Tasks.Task_ID%TYPE;
179: l_Budget_Type_Code PA_Budget_Types.Budget_Type_Code%TYPE;
180: l_Encumbrance_Type_ID GL_Encumbrance_Types.Encumbrance_Type_ID%TYPE;
181: l_External_Budget_Code PA_Budgetary_Control_Options.External_Budget_Code%TYPE;
182: l_GL_Budget_Version_ID PA_Budgetary_Control_Options.GL_Budget_Version_ID%TYPE;
183: l_Raw_Cost_Flag PA_Budget_Entry_Methods.Raw_Cost_Flag%TYPE;
184: l_Burdened_Cost_Flag PA_Budget_Entry_Methods.Burdened_Cost_Flag%TYPE;
185: l_Entry_Level_Code PA_Budget_Entry_Methods.Entry_Level_Code%TYPE;

Line 182: l_GL_Budget_Version_ID PA_Budgetary_Control_Options.GL_Budget_Version_ID%TYPE;

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

Line 208: l_balance_type PA_Budgetary_Control_Options.Balance_Type%type;

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

Line 209: l_cc_budget_type_code PA_Budgetary_Control_Options.Budget_Type_Code%type;

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

Line 240: PA_Budgetary_Control_Options BCO,

236: BEM.Burdened_Cost_Flag Burdened_Cost_Flag,
237: BEM.Entry_Level_Code Entry_Level_Code,
238: BCO.Balance_type Balance_Type
239: FROM
240: PA_Budgetary_Control_Options BCO,
241: PA_Projects PROJ,
242: PA_Budget_Versions BV,
243: PA_Budget_Entry_Methods BEM
244: WHERE

Line 462: from pa_budgetary_control_options cc

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

Line 1175: UPDATE PA_Budgetary_Control_Options

1171: log_message('l_Project_ID='||l_Project_ID); /* added for bug 2699417 */
1172: log_message('l_Budget_Type_Code='||l_Budget_Type_Code); /* added for bug 2699417 */
1173: END IF;
1174:
1175: UPDATE PA_Budgetary_Control_Options
1176: SET
1177: Yr_End_Rollover_Message = l_Message_Code_Error,
1178: Yr_End_Rollover_Year = -1,
1179: Yr_End_Rollover_Flag = 'E',

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

1184:
1185: IF SQL%ROWCOUNT = 0 THEN
1186:
1187: IF P_DEBUG_MODE = 'Y' THEN
1188: log_message('Doing ROLLBACK after update PA_Budgetary_Control_Options');
1189: END IF;
1190:
1191: ROLLBACK;
1192: l_Message_Name := 'PA_BC_UPD_CNT_OPTN_ERR';

Line 1207: UPDATE PA_Budgetary_Control_Options

1203: IF P_DEBUG_MODE = 'Y' THEN
1204: log_message('Year_End_Rollover: ' || 'Processing correctly');
1205: END IF;
1206:
1207: UPDATE PA_Budgetary_Control_Options
1208: SET
1209: Yr_End_Rollover_Amount = l_Total_Rollover_Amount,
1210: Yr_End_Rollover_Year = P_Closing_Year,
1211: Yr_End_Rollover_Flag = 'S', -- successfully done

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

1878: -- End of checking if Year End Rollover program is already running for this
1879: -- Project and Budget Type
1880:
1881: -------------------------------------------------------------------------------+
1882: -- Update PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'P' indicating
1883: -- to other processes that this program is running
1884: -------------------------------------------------------------------------------+
1885: Upd_Yr_End_Rollover_Flag_To_P(
1886: P_Request_ID => P_Request_ID,

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

1887: P_Project_ID => P_Project_ID,
1888: P_Budget_Type_Code => P_Budget_Type_Code);
1889: IF P_DEBUG_MODE = 'Y' THEN
1890: log_message('Year_End_Rollover: ' || '--');
1891: log_message('Year_End_Rollover: ' || 'Updated PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to ''P''');
1892: log_message('Year_End_Rollover: ' || '--');
1893: log_message('Year_End_Rollover: Calling PA_Budget_Core.Copy');
1894: END IF;
1895: -- End of updating PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'P'

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

1891: log_message('Year_End_Rollover: ' || 'Updated PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to ''P''');
1892: log_message('Year_End_Rollover: ' || '--');
1893: log_message('Year_End_Rollover: Calling PA_Budget_Core.Copy');
1894: END IF;
1895: -- End of updating PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'P'
1896: /* Bug 5726535 - End */
1897:
1898: -------------------------------------------------------------------------------+
1899: -- Create (using PA_Budget_Core.Copy API) a new Draft Budget Version

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

2288: END;
2289:
2290: -- Update the Budget Version record
2291: IF P_DEBUG_MODE = 'Y' THEN
2292: log_message('Year_End_Rollover: ' || 'Updating with Error in PA_Budgetary_Control_Options');
2293: log_message ('l_Project_ID = '|| l_Project_ID ); /* 2699417 */
2294: log_message ('l_Budget_Type_Code = '|| l_Budget_Type_Code ); /* 2699417 */
2295: log_message ('P_Message_Name = '|| P_Message_Name ); /* 2699417 */
2296: END IF;

Line 2298: PA_Budgetary_Control_Options

2294: log_message ('l_Budget_Type_Code = '|| l_Budget_Type_Code ); /* 2699417 */
2295: log_message ('P_Message_Name = '|| P_Message_Name ); /* 2699417 */
2296: END IF;
2297: UPDATE
2298: PA_Budgetary_Control_Options
2299: SET
2300: Yr_End_Rollover_Message = P_Message_Name,
2301: Yr_End_Rollover_Flag = 'E',
2302: Yr_End_Rollover_Year = -1,

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

2328:
2329: END LOG_MESSAGE;
2330:
2331: /* Bug 5726535 - Start */
2332: /* This function checks if PA_Budgetary_Control_Options.Yr_End_Rollover_Flag
2333: is already set to 'P' for the given Project and Budget Type combination.
2334: If yes, the function returns TRUE. Otherwise, the function returns FALSE */
2335: FUNCTION Is_Yr_End_Rollover_Running(
2336: P_Project_ID IN PA_Projects_all.Project_ID%TYPE,

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

2336: P_Project_ID IN PA_Projects_all.Project_ID%TYPE,
2337: P_Budget_Type_Code IN PA_Budget_Types.Budget_Type_Code%TYPE
2338: ) RETURN BOOLEAN
2339: IS
2340: l_Yr_End_Rollover_Flag PA_Budgetary_Control_Options.Yr_End_Rollover_Flag%TYPE := NULL;
2341: BEGIN
2342: SELECT Yr_End_Rollover_Flag
2343: INTO l_Yr_End_Rollover_Flag
2344: FROM PA_Budgetary_Control_Options

Line 2344: FROM PA_Budgetary_Control_Options

2340: l_Yr_End_Rollover_Flag PA_Budgetary_Control_Options.Yr_End_Rollover_Flag%TYPE := NULL;
2341: BEGIN
2342: SELECT Yr_End_Rollover_Flag
2343: INTO l_Yr_End_Rollover_Flag
2344: FROM PA_Budgetary_Control_Options
2345: WHERE Project_ID = p_Project_ID
2346: AND Budget_Type_Code = p_Budget_Type_Code;
2347:
2348: IF l_Yr_End_Rollover_Flag = 'P' THEN

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

2351: RETURN FALSE;
2352: END IF;
2353: END Is_Yr_End_Rollover_Running;
2354:
2355: /* This procedure updates PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'P'
2356: in an autonomous transaction */
2357: PROCEDURE Upd_Yr_End_Rollover_Flag_To_P(
2358: P_Request_ID IN FND_Concurrent_Requests.Request_ID%TYPE,
2359: P_Project_ID IN PA_Projects_all.Project_ID%TYPE,

Line 2365: UPDATE PA_Budgetary_Control_Options

2361: )
2362: IS
2363: PRAGMA AUTONOMOUS_TRANSACTION;
2364: BEGIN
2365: UPDATE PA_Budgetary_Control_Options
2366: SET Yr_End_Rollover_Flag = 'P',
2367: Request_ID = P_Request_ID
2368: WHERE Project_ID = P_Project_ID
2369: AND Budget_Type_Code = P_Budget_Type_Code;

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

2369: AND Budget_Type_Code = P_Budget_Type_Code;
2370: COMMIT;
2371: END Upd_Yr_End_Rollover_Flag_To_P;
2372:
2373: /* This procedure updates PA_Budgetary_Control_Options.Yr_End_Rollover_Flag to 'E'
2374: in an autonomous transaction */
2375: PROCEDURE Upd_Yr_End_Rollover_Flag_To_E(
2376: P_Request_ID IN FND_Concurrent_Requests.Request_ID%TYPE
2377: )

Line 2381: UPDATE PA_Budgetary_Control_Options

2377: )
2378: IS
2379: PRAGMA AUTONOMOUS_TRANSACTION;
2380: BEGIN
2381: UPDATE PA_Budgetary_Control_Options
2382: SET Yr_End_Rollover_Flag = 'E'
2383: WHERE Request_ID = P_Request_ID;
2384: COMMIT;
2385: END Upd_Yr_End_Rollover_Flag_To_E;