DBA Data[Home] [Help]

APPS.PA_TIEBACK_ADJ_COSTS dependencies on PA_DEBUG

Line 129: Fnd_Profile.Get('PA_DEBUG_MODE',l_Debug_Mode);

125: l_Debug_Mode VARCHAR2(10);
126:
127: Begin
128:
129: Fnd_Profile.Get('PA_DEBUG_MODE',l_Debug_Mode);
130: l_Debug_Mode := Nvl(l_Debug_Mode, 'N');
131:
132: Pa_Debug.G_Err_Stage := 'Entering Init';
133: Log_Message(P_Message => Pa_Debug.G_Err_Stage);

Line 132: Pa_Debug.G_Err_Stage := 'Entering Init';

128:
129: Fnd_Profile.Get('PA_DEBUG_MODE',l_Debug_Mode);
130: l_Debug_Mode := Nvl(l_Debug_Mode, 'N');
131:
132: Pa_Debug.G_Err_Stage := 'Entering Init';
133: Log_Message(P_Message => Pa_Debug.G_Err_Stage);
134:
135: Pa_Debug.Set_Curr_Function( P_Function => 'Init',
136: P_Debug_Mode => l_Debug_Mode);

Line 133: Log_Message(P_Message => Pa_Debug.G_Err_Stage);

129: Fnd_Profile.Get('PA_DEBUG_MODE',l_Debug_Mode);
130: l_Debug_Mode := Nvl(l_Debug_Mode, 'N');
131:
132: Pa_Debug.G_Err_Stage := 'Entering Init';
133: Log_Message(P_Message => Pa_Debug.G_Err_Stage);
134:
135: Pa_Debug.Set_Curr_Function( P_Function => 'Init',
136: P_Debug_Mode => l_Debug_Mode);
137:

Line 135: Pa_Debug.Set_Curr_Function( P_Function => 'Init',

131:
132: Pa_Debug.G_Err_Stage := 'Entering Init';
133: Log_Message(P_Message => Pa_Debug.G_Err_Stage);
134:
135: Pa_Debug.Set_Curr_Function( P_Function => 'Init',
136: P_Debug_Mode => l_Debug_Mode);
137:
138: G_REQUEST_ID := Fnd_Global.Conc_Request_Id;
139: G_PROGRAM_APPLICATION_ID := Fnd_Global.Prog_Appl_Id;

Line 160: Pa_Debug.Log_Message (P_Message => P_Message);

156: Procedure Log_Message(P_Message IN Varchar2) Is
157:
158: Begin
159:
160: Pa_Debug.Log_Message (P_Message => P_Message);
161:
162: End Log_Message;
163:
164: Procedure Write_Output (X_Return_Status OUT Varchar2,

Line 237: PA_DEBUG.Set_Curr_Function( 'TiebackAdjCosts', G_debug_mode);

233: BEGIN
234:
235: Init;
236:
237: PA_DEBUG.Set_Curr_Function( 'TiebackAdjCosts', G_debug_mode);
238:
239: PA_DEBUG.g_err_stage := 'Start of Tieback Adjustment Invoices program';
240: Log_Message(PA_DEBUG.g_err_stage);
241:

Line 239: PA_DEBUG.g_err_stage := 'Start of Tieback Adjustment Invoices program';

235: Init;
236:
237: PA_DEBUG.Set_Curr_Function( 'TiebackAdjCosts', G_debug_mode);
238:
239: PA_DEBUG.g_err_stage := 'Start of Tieback Adjustment Invoices program';
240: Log_Message(PA_DEBUG.g_err_stage);
241:
242: Open C_TiebackRecs;
243:

Line 240: Log_Message(PA_DEBUG.g_err_stage);

236:
237: PA_DEBUG.Set_Curr_Function( 'TiebackAdjCosts', G_debug_mode);
238:
239: PA_DEBUG.g_err_stage := 'Start of Tieback Adjustment Invoices program';
240: Log_Message(PA_DEBUG.g_err_stage);
241:
242: Open C_TiebackRecs;
243:
244: Loop

Line 246: Pa_Debug.G_Err_Stage := 'Inside Loop';

242: Open C_TiebackRecs;
243:
244: Loop
245:
246: Pa_Debug.G_Err_Stage := 'Inside Loop';
247: Log_Message(Pa_Debug.G_Err_Stage);
248:
249: l_RowIdTab.Delete;
250: l_EiTab.Delete;

Line 247: Log_Message(Pa_Debug.G_Err_Stage);

243:
244: Loop
245:
246: Pa_Debug.G_Err_Stage := 'Inside Loop';
247: Log_Message(Pa_Debug.G_Err_Stage);
248:
249: l_RowIdTab.Delete;
250: l_EiTab.Delete;
251: l_LineNumTab.Delete;

Line 261: Pa_Debug.G_Err_Stage := 'Log: No. of records Selected ' || l_RowIdTab.Count;

257: l_LineNumTab,
258: l_InvStatusTab
259: Limit L_ROWS;
260:
261: Pa_Debug.G_Err_Stage := 'Log: No. of records Selected ' || l_RowIdTab.Count;
262: Log_Message(Pa_Debug.G_Err_Stage);
263:
264: If l_RowIdTab.Count = 0 Then
265:

Line 262: Log_Message(Pa_Debug.G_Err_Stage);

258: l_InvStatusTab
259: Limit L_ROWS;
260:
261: Pa_Debug.G_Err_Stage := 'Log: No. of records Selected ' || l_RowIdTab.Count;
262: Log_Message(Pa_Debug.G_Err_Stage);
263:
264: If l_RowIdTab.Count = 0 Then
265:
266: Pa_Debug.G_Err_Stage := 'Log: No records in C_TiebackRecs to process, exiting.';

Line 266: Pa_Debug.G_Err_Stage := 'Log: No records in C_TiebackRecs to process, exiting.';

262: Log_Message(Pa_Debug.G_Err_Stage);
263:
264: If l_RowIdTab.Count = 0 Then
265:
266: Pa_Debug.G_Err_Stage := 'Log: No records in C_TiebackRecs to process, exiting.';
267: Log_Message(Pa_Debug.G_Err_Stage);
268: Exit;
269:
270: End If;

Line 267: Log_Message(Pa_Debug.G_Err_Stage);

263:
264: If l_RowIdTab.Count = 0 Then
265:
266: Pa_Debug.G_Err_Stage := 'Log: No records in C_TiebackRecs to process, exiting.';
267: Log_Message(Pa_Debug.G_Err_Stage);
268: Exit;
269:
270: End If;
271:

Line 348: Pa_Debug.Reset_Curr_Function;

344: Commit;
345:
346: Write_Output(X_Return_Status, X_Error_Message_Code );
347:
348: Pa_Debug.Reset_Curr_Function;
349:
350: Exception
351:
352: When Others Then