APPS.PA_YEAR_END_ROLLOVER_PKG dependencies on PA_DEBUG

Line 7: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');

3:
4: -------------------------------------------------------------------------------------
5: -- Execute the Year End Budget Rollover process
6: -------------------------------------------------------------------------------------
7: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
8:
9: -- # Forward Declaration
10: PROCEDURE Create_bc_balances(p_budget_version_id IN NUMBER,
11: p_last_baselined_version_id IN NUMBER,

Line 15: -- Procedure used to call pa_debug.write for FND logging

11: p_last_baselined_version_id IN NUMBER,
12: p_Set_of_books_id IN NUMBER,
13: p_return_status OUT NOCOPY VARCHAR2);
14:
15: -- Procedure used to call pa_debug.write for FND logging
16: PROCEDURE LOG_MESSAGE(p_message in VARCHAR2);
17:
18: g_procedure_name VARCHAR2(30);
19:

Line 1256: l_Rel_Lock := PA_Debug.Release_User_Lock(l_Lock_Name);

1252: log_message('Year_End_Rollover: ' || 'Releasing the lock '|| l_Lock_Name );
1253: log_message('Year_End_Rollover: ' || '--');
1254: END IF;
1255:
1256: l_Rel_Lock := PA_Debug.Release_User_Lock(l_Lock_Name);
1257:
1258: IF P_DEBUG_MODE = 'Y' THEN
1259: log_message('Year_End_Rollover: ' || 'Value of Release Lock '|| l_Rel_Lock );
1260: END IF;

Line 1353: l_Rel_Lock := PA_Debug.Release_User_Lock(l_Lock_Name);

1349: IF P_DEBUG_MODE = 'Y' THEN
1350: log_message('Year_End_Rollover: ' || 'In When Others. End');
1351: END IF;
1352: /* Commenting for Bug 5726535
1353: l_Rel_Lock := PA_Debug.Release_User_Lock(l_Lock_Name);
1354: */
1355: /* Bug 5726535 - The Year End Rollover Flag is updated to 'E' here in an autonomous transaction if an
1356: unhandled exception occurs */
1357: Upd_Yr_End_Rollover_Flag_To_E (

Line 1848: IF PA_Debug.Acquire_User_Lock(l_Lock_Name) <> 0

1844: /* Commenting for Bug 5726535
1845: -------------------------------------------------------------------------------+
1846: -- Create (acquire) a lock for the Budget version record
1847: -------------------------------------------------------------------------------+
1848: IF PA_Debug.Acquire_User_Lock(l_Lock_Name) <> 0
1849: THEN
1850: l_Work_Budget_Version_Id := P_Budget_Version_ID;
1851: RAISE l_Lock_Bdgt_ERR;
1852: END IF;

Line 2262: l_Lock_Result := PA_Debug.Release_User_Lock(P_Lock_Name);

2258: -- Release the lock
2259: IF P_DEBUG_MODE = 'Y' THEN
2260: log_message('In Year_End_Rollover_Log API. Releasing Lock Name = '|| P_Lock_Name );
2261: END IF;
2262: l_Lock_Result := PA_Debug.Release_User_Lock(P_Lock_Name);
2263: IF P_DEBUG_MODE = 'Y' THEN
2264: log_message('Year_End_Rollover: ' || 'Lock Result : '|| l_Lock_Result );
2265: END IF;
2266: */

Line 2310: -- Procedure used to call pa_debug.write for FND logging

2306: AND Budget_Type_Code = l_Budget_Type_Code;
2307:
2308: END Year_End_Rollover_Log;
2309:
2310: -- Procedure used to call pa_debug.write for FND logging
2311: PROCEDURE LOG_MESSAGE(p_message in VARCHAR2)
2312: IS
2313: BEGIN
2314: -- IF g_debug_mode = 'Y' then

Line 2317: pa_debug.g_err_stage := 'Debug Msg :'||substr(p_message,1,250);

2313: BEGIN
2314: -- IF g_debug_mode = 'Y' then
2315:
2316: IF p_message is NOT NULL then
2317: pa_debug.g_err_stage := 'Debug Msg :'||substr(p_message,1,250);
2318:
2319: -- Following to write to request log
2320: pa_debug.write_file(pa_debug.g_err_stage);
2321: -- for fnd log

Line 2320: pa_debug.write_file(pa_debug.g_err_stage);

2316: IF p_message is NOT NULL then
2317: pa_debug.g_err_stage := 'Debug Msg :'||substr(p_message,1,250);
2318:
2319: -- Following to write to request log
2320: pa_debug.write_file(pa_debug.g_err_stage);
2321: -- for fnd log
2322: PA_DEBUG.write
2323: (x_Module => 'pa.plsql.PA_YEAR_END_ROLLOVER_PKG.'||g_procedure_name
2324: ,x_Msg => substr(p_message,1,240)

Line 2322: PA_DEBUG.write

2318:
2319: -- Following to write to request log
2320: pa_debug.write_file(pa_debug.g_err_stage);
2321: -- for fnd log
2322: PA_DEBUG.write
2323: (x_Module => 'pa.plsql.PA_YEAR_END_ROLLOVER_PKG.'||g_procedure_name
2324: ,x_Msg => substr(p_message,1,240)
2325: ,x_Log_Level => 3);
2326: END IF;