eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_RBS_VERSIONS_PUB dependencies on PA_DEBUG

Line 126: Pa_Debug.G_Path := ' ';

122: Begin
123:
124: If P_Init_Debugging_Flag = 'Y' Then
125:
126: Pa_Debug.G_Path := ' ';
127:
128: End If;
129:
130: Pa_Debug.G_Stage := 'Entering Update_Working_Version() Pub.';

Line 130: Pa_Debug.G_Stage := 'Entering Update_Working_Version() Pub.';

126: Pa_Debug.G_Path := ' ';
127:
128: End If;
129:
130: Pa_Debug.G_Stage := 'Entering Update_Working_Version() Pub.';
131: Pa_Debug.TrackPath('ADD','Update_Working_Version Pub');
132:
133: Pa_Debug.G_Stage := 'Call Compatibility API.';
134: If Not Fnd_Api.Compatible_API_Call (

Line 131: Pa_Debug.TrackPath('ADD','Update_Working_Version Pub');

127:
128: End If;
129:
130: Pa_Debug.G_Stage := 'Entering Update_Working_Version() Pub.';
131: Pa_Debug.TrackPath('ADD','Update_Working_Version Pub');
132:
133: Pa_Debug.G_Stage := 'Call Compatibility API.';
134: If Not Fnd_Api.Compatible_API_Call (
135: Pa_Rbs_Versions_Pub.G_Api_Version_Number,

Line 133: Pa_Debug.G_Stage := 'Call Compatibility API.';

129:
130: Pa_Debug.G_Stage := 'Entering Update_Working_Version() Pub.';
131: Pa_Debug.TrackPath('ADD','Update_Working_Version Pub');
132:
133: Pa_Debug.G_Stage := 'Call Compatibility API.';
134: If Not Fnd_Api.Compatible_API_Call (
135: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
136: P_Api_Version_Number,
137: l_Api_Name,

Line 144: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';

140: Raise Fnd_Api.G_Exc_Unexpected_Error;
141:
142: End If;
143:
144: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
145: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
146:
147: Pa_Debug.G_Stage := 'Initialize Message Stack.';
148: Fnd_Msg_Pub.Initialize;

Line 147: Pa_Debug.G_Stage := 'Initialize Message Stack.';

143:
144: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
145: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
146:
147: Pa_Debug.G_Stage := 'Initialize Message Stack.';
148: Fnd_Msg_Pub.Initialize;
149:
150: End If;
151:

Line 152: Pa_Debug.G_Stage := 'Initialize error handling variables.';

148: Fnd_Msg_Pub.Initialize;
149:
150: End If;
151:
152: Pa_Debug.G_Stage := 'Initialize error handling variables.';
153: X_Msg_Count := 0;
154: X_Error_Msg_Data := Null;
155: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
156:

Line 157: Pa_Debug.G_Stage := 'Lock the version record.';

153: X_Msg_Count := 0;
154: X_Error_Msg_Data := Null;
155: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
156:
157: Pa_Debug.G_Stage := 'Lock the version record.';
158: Open c1(P_Rbs_Ver_Id => P_Rbs_Version_Id, P_Rec_Num => P_Record_Version_Number);
159: Fetch c1 Into l_Ver_Rec;
160:
161: Pa_Debug.G_Stage := 'Check able to lock version rec for update.';

Line 161: Pa_Debug.G_Stage := 'Check able to lock version rec for update.';

157: Pa_Debug.G_Stage := 'Lock the version record.';
158: Open c1(P_Rbs_Ver_Id => P_Rbs_Version_Id, P_Rec_Num => P_Record_Version_Number);
159: Fetch c1 Into l_Ver_Rec;
160:
161: Pa_Debug.G_Stage := 'Check able to lock version rec for update.';
162: If c1%NotFound Then
163:
164: Pa_Debug.G_Stage := 'Unable to lock version record for update. ' ||
165: 'Add error message to stack.';

Line 164: Pa_Debug.G_Stage := 'Unable to lock version record for update. ' ||

160:
161: Pa_Debug.G_Stage := 'Check able to lock version rec for update.';
162: If c1%NotFound Then
163:
164: Pa_Debug.G_Stage := 'Unable to lock version record for update. ' ||
165: 'Add error message to stack.';
166: Pa_Utils.Add_Message(
167: P_App_Short_Name => 'PA',
168: P_Msg_Name => 'PA_RECORD_ALREADY_UPDATED');

Line 178: Pa_Debug.G_Stage := 'Check if the version start date is not null.';

174: Open c2(P_Rbs_Ver_Id => P_Rbs_Version_Id);
175: Fetch c2 Into l_Hdr_Rec;
176: Close c2;
177:
178: Pa_Debug.G_Stage := 'Check if the version start date is not null.';
179: If P_Version_Start_Date is not null Then
180:
181: Pa_Debug.G_Stage := 'The version start date is Null.';
182: If P_Version_Start_Date < l_Hdr_Rec.Effective_From_Date Then

Line 181: Pa_Debug.G_Stage := 'The version start date is Null.';

177:
178: Pa_Debug.G_Stage := 'Check if the version start date is not null.';
179: If P_Version_Start_Date is not null Then
180:
181: Pa_Debug.G_Stage := 'The version start date is Null.';
182: If P_Version_Start_Date < l_Hdr_Rec.Effective_From_Date Then
183:
184: Pa_Debug.G_Stage := 'The version start date is before the header from date.';
185: Pa_Utils.Add_Message(

Line 184: Pa_Debug.G_Stage := 'The version start date is before the header from date.';

180:
181: Pa_Debug.G_Stage := 'The version start date is Null.';
182: If P_Version_Start_Date < l_Hdr_Rec.Effective_From_Date Then
183:
184: Pa_Debug.G_Stage := 'The version start date is before the header from date.';
185: Pa_Utils.Add_Message(
186: P_App_Short_Name => 'PA',
187: P_Msg_Name => 'PA_VER_START_<_HDR_FROM_DATE',
188: P_Token1 => 'RBSNAME',

Line 197: Pa_Debug.G_Stage := 'The version start date is null. Add error message to stack.';

193: End If;
194:
195: Else
196:
197: Pa_Debug.G_Stage := 'The version start date is null. Add error message to stack.';
198: Pa_Utils.Add_Message(
199: P_App_Short_Name => 'PA',
200: P_Msg_Name => 'PA_VER_START_DATE_IS_NULL',
201: P_Token1 => 'RBSNAME',

Line 209: -- Pa_Debug.G_Stage := 'Check and see if the version start date is after the header end date.';

205:
206: End If;
207:
208: -- Per bug 3602821 don't need to check the end date of the header for anything.
209: -- Pa_Debug.G_Stage := 'Check and see if the version start date is after the header end date.';
210: -- If P_Version_Start_Date > Nvl(l_Hdr_Rec.Effective_To_Date,P_Version_Start_Date) Then
211:
212: -- Pa_Debug.G_Stage := 'The version start date is after the header end date.';
213: -- Pa_Utils.Add_Message(

Line 212: -- Pa_Debug.G_Stage := 'The version start date is after the header end date.';

208: -- Per bug 3602821 don't need to check the end date of the header for anything.
209: -- Pa_Debug.G_Stage := 'Check and see if the version start date is after the header end date.';
210: -- If P_Version_Start_Date > Nvl(l_Hdr_Rec.Effective_To_Date,P_Version_Start_Date) Then
211:
212: -- Pa_Debug.G_Stage := 'The version start date is after the header end date.';
213: -- Pa_Utils.Add_Message(
214: -- P_App_Short_Name => 'PA',
215: -- P_Msg_Name => 'PA_VER_START_>_HDR_TO_DATE',
216: -- P_Token1 => 'RBSNAME',

Line 223: Pa_Debug.G_Stage := 'Get the prior working version rbs version id if exists.';

219: -- Raise l_Error;
220:
221: -- End If;
222:
223: Pa_Debug.G_Stage := 'Get the prior working version rbs version id if exists.';
224: Open GetLatestFrozenRbsVersionId(P_Id => l_Hdr_Rec.Rbs_Header_Id);
225: Fetch GetLatestFrozenRbsVersionId Into l_Prior_Rbs_Ver_Id;
226:
227: If GetLatestFrozenRbsVersionId%NotFound Then

Line 235: Pa_Debug.G_Stage := 'Get the prior working version end date.';

231: Else
232:
233: Close GetLatestFrozenRbsVersionId;
234:
235: Pa_Debug.G_Stage := 'Get the prior working version end date.';
236: Open GetVersionEndDate(P_Id => l_Prior_Rbs_Ver_Id);
237: Fetch GetVersionEndDate Into l_Prior_Rbs_Ver_Rec;
238: Close GetVersionEndDate;
239:

Line 242: Pa_Debug.G_Stage := 'Version Start Date less than prior version. Add error message to stack.';

238: Close GetVersionEndDate;
239:
240: If P_Version_Start_Date < l_Prior_Rbs_Ver_Rec.Version_Start_Date Then
241:
242: Pa_Debug.G_Stage := 'Version Start Date less than prior version. Add error message to stack.';
243: Pa_Utils.Add_Message(
244: P_App_Short_Name => 'PA',
245: P_Msg_Name => 'PA_RBS_VER_DATES_OVERLAP');
246:

Line 257: Pa_Debug.G_Stage := 'Check if the current working record job group is populated.';

253: -- Check If the job_group has changed and if it has then check to see if there are job assigned to any of the
254: -- elements/nodes for the rbs. If there are job elements then raise an error. You can't change the job_group
255: -- when there are element/nodes with jobs assigned to them.
256:
257: Pa_Debug.G_Stage := 'Check if the current working record job group is populated.';
258: If l_Ver_Rec.Job_Group_Id Is Not Null Then
259:
260: Pa_Debug.G_Stage := 'Check if the current parameter job group is populated.';
261: If P_Job_Group_Id Is Not Null Then

Line 260: Pa_Debug.G_Stage := 'Check if the current parameter job group is populated.';

256:
257: Pa_Debug.G_Stage := 'Check if the current working record job group is populated.';
258: If l_Ver_Rec.Job_Group_Id Is Not Null Then
259:
260: Pa_Debug.G_Stage := 'Check if the current parameter job group is populated.';
261: If P_Job_Group_Id Is Not Null Then
262:
263: If P_Job_Group_Id <> l_Ver_Rec.Job_Group_Id Then
264:

Line 271: Pa_Debug.G_Stage := 'There are elements with jobs. Cannot change job group. Raise error.';

267: Close CheckJobsExist;
268:
269: If l_Job_Count > 0 Then
270:
271: Pa_Debug.G_Stage := 'There are elements with jobs. Cannot change job group. Raise error.';
272: Pa_Utils.Add_Message(
273: P_App_Short_Name => 'PA',
274: P_Msg_Name => 'PA_RBS_CANT_CHANGE_JOB_GROUP');
275:

Line 290: Pa_Debug.G_Stage := 'There are element with jobs. Cannot change job group. Raise error.';

286: Close CheckJobsExist;
287:
288: If l_Job_Count > 0 Then
289:
290: Pa_Debug.G_Stage := 'There are element with jobs. Cannot change job group. Raise error.';
291: Pa_Utils.Add_Message(
292: P_App_Short_Name => 'PA',
293: P_Msg_Name => 'PA_RBS_CANT_CHANGE_JOB_GROUP');
294:

Line 303: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Update_Working_Version() procedure.';

299: End If;
300:
301: End If;
302:
303: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Update_Working_Version() procedure.';
304: Pa_Rbs_Versions_Pvt.Update_Working_Version(
305: P_Rbs_Version_Id => P_Rbs_Version_Id,
306: P_Name => P_Name,
307: P_Description => P_Description,

Line 321: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;

317: Raise l_Error;
318:
319: End If;
320:
321: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
322: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
323:
324: Commit;
325:

Line 328: Pa_Debug.G_Stage := 'Leaving Update_Working_Version() Pub procedure.';

324: Commit;
325:
326: End If;
327:
328: Pa_Debug.G_Stage := 'Leaving Update_Working_Version() Pub procedure.';
329: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pub');
330:
331: Exception
332: When l_Error Then

Line 329: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pub');

325:
326: End If;
327:
328: Pa_Debug.G_Stage := 'Leaving Update_Working_Version() Pub procedure.';
329: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pub');
330:
331: Exception
332: When l_Error Then
333: X_Return_Status := 'E';

Line 335: Pa_Debug.G_Stage := 'Leaving Update_Working_Version() Pub procedure.';

331: Exception
332: When l_Error Then
333: X_Return_Status := 'E';
334: X_Msg_Count := 1;
335: Pa_Debug.G_Stage := 'Leaving Update_Working_Version() Pub procedure.';
336: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pub');
337: When Others Then
338: X_Return_Status := 'U';
339: X_Msg_Count := 1;

Line 336: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pub');

332: When l_Error Then
333: X_Return_Status := 'E';
334: X_Msg_Count := 1;
335: Pa_Debug.G_Stage := 'Leaving Update_Working_Version() Pub procedure.';
336: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pub');
337: When Others Then
338: X_Return_Status := 'U';
339: X_Msg_Count := 1;
340: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||

Line 340: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||

336: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pub');
337: When Others Then
338: X_Return_Status := 'U';
339: X_Msg_Count := 1;
340: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||
341: ':' || SqlErrm;
342: If P_Init_Debugging_Flag = 'Y' Then
343: Rollback;
344: Else

Line 392: Pa_Debug.G_Path := ' ';

388:
389: Begin
390:
391:
392: Pa_Debug.G_Path := ' ';
393:
394: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pub.';
395: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pub');
396:

Line 394: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pub.';

390:
391:
392: Pa_Debug.G_Path := ' ';
393:
394: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pub.';
395: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pub');
396:
397: Pa_Debug.G_Stage := 'Call Compatibility API.';
398: If Not Fnd_Api.Compatible_API_Call (

Line 395: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pub');

391:
392: Pa_Debug.G_Path := ' ';
393:
394: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pub.';
395: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pub');
396:
397: Pa_Debug.G_Stage := 'Call Compatibility API.';
398: If Not Fnd_Api.Compatible_API_Call (
399: Pa_Rbs_Versions_Pub.G_Api_Version_Number,

Line 397: Pa_Debug.G_Stage := 'Call Compatibility API.';

393:
394: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pub.';
395: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pub');
396:
397: Pa_Debug.G_Stage := 'Call Compatibility API.';
398: If Not Fnd_Api.Compatible_API_Call (
399: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
400: P_Api_Version_Number,
401: l_Api_Name,

Line 408: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';

404: Raise Fnd_Api.G_Exc_Unexpected_Error;
405:
406: End If;
407:
408: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
409: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
410:
411: Pa_Debug.G_Stage := 'Initialize Message Stack.';
412: Fnd_Msg_Pub.Initialize;

Line 411: Pa_Debug.G_Stage := 'Initialize Message Stack.';

407:
408: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
409: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
410:
411: Pa_Debug.G_Stage := 'Initialize Message Stack.';
412: Fnd_Msg_Pub.Initialize;
413:
414: End If;
415:

Line 416: Pa_Debug.G_Stage := 'Initialize error handling variables.';

412: Fnd_Msg_Pub.Initialize;
413:
414: End If;
415:
416: Pa_Debug.G_Stage := 'Initialize error handling variables.';
417: X_Msg_Count := 0;
418: X_Error_Msg_Data := Null;
419: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
420:

Line 421: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Delete_Working_Version() procedure.';

417: X_Msg_Count := 0;
418: X_Error_Msg_Data := Null;
419: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
420:
421: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Delete_Working_Version() procedure.';
422: Pa_Rbs_Versions_Pvt.Delete_Working_Version(
423: P_Rbs_Version_Id => P_RBS_Version_Id,
424: P_Record_Version_Number => P_Record_Version_Number,
425: P_Mode => Null,

Line 428: Pa_Debug.G_Stage := 'Check if error message data is populated.';

424: P_Record_Version_Number => P_Record_Version_Number,
425: P_Mode => Null,
426: X_Error_Msg_Data => X_Error_Msg_Data);
427:
428: Pa_Debug.G_Stage := 'Check if error message data is populated.';
429: If X_Error_Msg_Data Is Not Null Then
430:
431: Pa_Debug.G_Stage := 'Raise user defined error due to error msg data parameter being populated.';
432: Raise l_error;

Line 431: Pa_Debug.G_Stage := 'Raise user defined error due to error msg data parameter being populated.';

427:
428: Pa_Debug.G_Stage := 'Check if error message data is populated.';
429: If X_Error_Msg_Data Is Not Null Then
430:
431: Pa_Debug.G_Stage := 'Raise user defined error due to error msg data parameter being populated.';
432: Raise l_error;
433:
434: End If;
435:

Line 436: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;

432: Raise l_error;
433:
434: End If;
435:
436: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
437: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
438:
439: Commit;
440:

Line 443: Pa_Debug.G_Stage := 'Leaving Delete_Working_Version() Pub procedure.';

439: Commit;
440:
441: End If;
442:
443: Pa_Debug.G_Stage := 'Leaving Delete_Working_Version() Pub procedure.';
444: Pa_Debug.TrackPath('STRIP','Delete_Working_Version Pub');
445:
446: Exception
447: When l_Error Then

Line 444: Pa_Debug.TrackPath('STRIP','Delete_Working_Version Pub');

440:
441: End If;
442:
443: Pa_Debug.G_Stage := 'Leaving Delete_Working_Version() Pub procedure.';
444: Pa_Debug.TrackPath('STRIP','Delete_Working_Version Pub');
445:
446: Exception
447: When l_Error Then
448: X_Return_Status := 'E';

Line 453: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||

449: X_Msg_Count := 1;
450: When Others Then
451: X_Return_Status := 'U';
452: X_Msg_Count := 1;
453: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||
454: ':' || SqlErrm;
455: Rollback;
456:
457: End Delete_Working_Version;

Line 504: Pa_Debug.G_Path := ' ';

500:
501: Begin
502:
503: If P_Init_Debugging_Flag = 'Y' Then
504: Pa_Debug.G_Path := ' ';
505: End If;
506:
507: Pa_Debug.G_Stage := 'Entering Create_Working_Version().';
508: Pa_Debug.TrackPath('ADD','Create_Working_Version');

Line 507: Pa_Debug.G_Stage := 'Entering Create_Working_Version().';

503: If P_Init_Debugging_Flag = 'Y' Then
504: Pa_Debug.G_Path := ' ';
505: End If;
506:
507: Pa_Debug.G_Stage := 'Entering Create_Working_Version().';
508: Pa_Debug.TrackPath('ADD','Create_Working_Version');
509:
510: Pa_Debug.G_Stage := 'Call Compatibility API.';
511: If Not Fnd_Api.Compatible_API_Call (

Line 508: Pa_Debug.TrackPath('ADD','Create_Working_Version');

504: Pa_Debug.G_Path := ' ';
505: End If;
506:
507: Pa_Debug.G_Stage := 'Entering Create_Working_Version().';
508: Pa_Debug.TrackPath('ADD','Create_Working_Version');
509:
510: Pa_Debug.G_Stage := 'Call Compatibility API.';
511: If Not Fnd_Api.Compatible_API_Call (
512: Pa_Rbs_Versions_Pub.G_Api_Version_Number,

Line 510: Pa_Debug.G_Stage := 'Call Compatibility API.';

506:
507: Pa_Debug.G_Stage := 'Entering Create_Working_Version().';
508: Pa_Debug.TrackPath('ADD','Create_Working_Version');
509:
510: Pa_Debug.G_Stage := 'Call Compatibility API.';
511: If Not Fnd_Api.Compatible_API_Call (
512: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
513: P_Api_Version_Number,
514: l_Api_Name,

Line 521: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';

517: Raise Fnd_Api.G_Exc_Unexpected_Error;
518:
519: End If;
520:
521: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
522: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
523:
524: Pa_Debug.G_Stage := 'Initialize Message Stack.';
525: Fnd_Msg_Pub.Initialize;

Line 524: Pa_Debug.G_Stage := 'Initialize Message Stack.';

520:
521: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
522: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
523:
524: Pa_Debug.G_Stage := 'Initialize Message Stack.';
525: Fnd_Msg_Pub.Initialize;
526:
527: End If;
528:

Line 529: Pa_Debug.G_Stage := 'Initialize error handling variables.';

525: Fnd_Msg_Pub.Initialize;
526:
527: End If;
528:
529: Pa_Debug.G_Stage := 'Initialize error handling variables.';
530: X_Msg_Count := 0;
531: X_Error_Msg_Data := Null;
532: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
533:

Line 534: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Create_New_Working_Version() procedure.';

530: X_Msg_Count := 0;
531: X_Error_Msg_Data := Null;
532: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
533:
534: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Create_New_Working_Version() procedure.';
535: Pa_Rbs_Versions_Pvt.Create_New_Working_Version(
536: P_RBS_Version_Id => P_RBS_Version_Id,
537: P_Rbs_Header_Id => P_Rbs_Header_Id,
538: P_Record_Version_Number => P_Rec_Version_Number,

Line 541: Pa_Debug.G_Stage := 'Check if error message data is populated.';

537: P_Rbs_Header_Id => P_Rbs_Header_Id,
538: P_Record_Version_Number => P_Rec_Version_Number,
539: X_Error_Msg_Data => X_Error_Msg_Data);
540:
541: Pa_Debug.G_Stage := 'Check if error message data is populated.';
542: If X_Error_Msg_Data Is Not Null Then
543:
544: Pa_Debug.G_Stage := 'Raise user defined error due to error msg data parameter being populated.';
545: Raise l_error;

Line 544: Pa_Debug.G_Stage := 'Raise user defined error due to error msg data parameter being populated.';

540:
541: Pa_Debug.G_Stage := 'Check if error message data is populated.';
542: If X_Error_Msg_Data Is Not Null Then
543:
544: Pa_Debug.G_Stage := 'Raise user defined error due to error msg data parameter being populated.';
545: Raise l_error;
546:
547: End If;
548:

Line 549: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;

545: Raise l_error;
546:
547: End If;
548:
549: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
550: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
551:
552: Commit;
553:

Line 556: Pa_Debug.G_Stage := 'Leaving Create_Working_Version() procedure.';

552: Commit;
553:
554: End If;
555:
556: Pa_Debug.G_Stage := 'Leaving Create_Working_Version() procedure.';
557: Pa_Debug.TrackPath('STRIP','Create_Working_Version');
558:
559: Exception
560: When l_Error Then

Line 557: Pa_Debug.TrackPath('STRIP','Create_Working_Version');

553:
554: End If;
555:
556: Pa_Debug.G_Stage := 'Leaving Create_Working_Version() procedure.';
557: Pa_Debug.TrackPath('STRIP','Create_Working_Version');
558:
559: Exception
560: When l_Error Then
561: X_Return_Status := 'E';

Line 566: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||

562: X_Msg_Count := 1;
563: When Others Then
564: X_Return_Status := 'U';
565: X_Msg_Count := 1;
566: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||
567: ':' || SqlErrm;
568: If P_Init_Debugging_Flag = 'Y' Then
569: Rollback;
570: Else

Line 667: Pa_Debug.G_Path := ' ';

663:
664: BEGIN
665:
666: If P_Init_Debugging_Flag = 'Y' Then
667: Pa_Debug.G_Path := ' ';
668: End If;
669:
670: Pa_Debug.G_Stage := 'Entering Freeze_Working_Version().';
671: Pa_Debug.TrackPath('ADD','Freeze_Working_Version');

Line 670: Pa_Debug.G_Stage := 'Entering Freeze_Working_Version().';

666: If P_Init_Debugging_Flag = 'Y' Then
667: Pa_Debug.G_Path := ' ';
668: End If;
669:
670: Pa_Debug.G_Stage := 'Entering Freeze_Working_Version().';
671: Pa_Debug.TrackPath('ADD','Freeze_Working_Version');
672:
673: --Initialize the message stack if not initialized
674: Pa_Debug.G_Stage := 'Check if need to initialize the error message stack.';

Line 671: Pa_Debug.TrackPath('ADD','Freeze_Working_Version');

667: Pa_Debug.G_Path := ' ';
668: End If;
669:
670: Pa_Debug.G_Stage := 'Entering Freeze_Working_Version().';
671: Pa_Debug.TrackPath('ADD','Freeze_Working_Version');
672:
673: --Initialize the message stack if not initialized
674: Pa_Debug.G_Stage := 'Check if need to initialize the error message stack.';
675: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then

Line 674: Pa_Debug.G_Stage := 'Check if need to initialize the error message stack.';

670: Pa_Debug.G_Stage := 'Entering Freeze_Working_Version().';
671: Pa_Debug.TrackPath('ADD','Freeze_Working_Version');
672:
673: --Initialize the message stack if not initialized
674: Pa_Debug.G_Stage := 'Check if need to initialize the error message stack.';
675: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
676:
677: Pa_Debug.G_Stage := 'Initialize the error message stack by calling Fnd_Msg_Pub.Initialize().';
678: Fnd_Msg_Pub.Initialize;

Line 677: Pa_Debug.G_Stage := 'Initialize the error message stack by calling Fnd_Msg_Pub.Initialize().';

673: --Initialize the message stack if not initialized
674: Pa_Debug.G_Stage := 'Check if need to initialize the error message stack.';
675: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
676:
677: Pa_Debug.G_Stage := 'Initialize the error message stack by calling Fnd_Msg_Pub.Initialize().';
678: Fnd_Msg_Pub.Initialize;
679:
680: End If;
681:

Line 682: Pa_Debug.G_Stage := 'Initialize error handling variables.';

678: Fnd_Msg_Pub.Initialize;
679:
680: End If;
681:
682: Pa_Debug.G_Stage := 'Initialize error handling variables.';
683: X_Msg_Count := 0;
684: X_Error_Msg_Data := Null;
685: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
686:

Line 688: Pa_Debug.G_Stage := 'Check if the version record is locked.';

684: X_Error_Msg_Data := Null;
685: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
686:
687:
688: Pa_Debug.G_Stage := 'Check if the version record is locked.';
689: Open c_record_ver_no;
690: Fetch c_record_ver_no Into recinfo;
691:
692: If (c_Record_Ver_No%NotFound) Then

Line 698: Pa_Debug.G_Stage := 'Check if Rbs Version record_version_number matches.';

694: End If;
695:
696: Close c_record_ver_no;
697:
698: Pa_Debug.G_Stage := 'Check if Rbs Version record_version_number matches.';
699: IF RecInfo.Record_Version_Number = P_Rbs_Version_Record_Ver_Num Then
700:
701: Null;
702:

Line 705: Pa_Debug.G_Stage := 'Rbs Version record_version_number does not match. Add error to message stack.';

701: Null;
702:
703: Else
704:
705: Pa_Debug.G_Stage := 'Rbs Version record_version_number does not match. Add error to message stack.';
706: x_return_status := Fnd_Api.G_Ret_Sts_Error;
707:
708: Pa_Utils.Add_Message(
709: P_App_Short_Name => 'FND', /* Bug 3819654: Changed short name from PA to FND */

Line 736: Pa_Debug.G_Stage := 'Get the Version_Start_Date and Rbs_Header_Id of working version.';

732: Raise l_error;
733:
734: END IF;
735:
736: Pa_Debug.G_Stage := 'Get the Version_Start_Date and Rbs_Header_Id of working version.';
737: Select
738: Version_Start_Date,
739: Rbs_Header_Id
740: Into

Line 759: Pa_Debug.G_Stage:= 'Getting version id of the latest freezed version';

755: -- Pa_Rbs_Headers_b
756: --Where
757: -- Rbs_Header_Id=l_Rbs_Header_Id;
758:
759: Pa_Debug.G_Stage:= 'Getting version id of the latest freezed version';
760: Open GetLatestFrozenRbsVersionId(l_Rbs_Header_Id);
761: Fetch GetLatestFrozenRbsVersionId Into l_latest_freezed_version_id;
762: Close GetLatestFrozenRbsVersionId;
763:

Line 767: Pa_Debug.G_Stage:= 'Updating element identifiers of the rbs elements for the working version which do not match latest freeze.';

763:
764: --If either resource type id or resource source id is different for each element of working version compared to latest,
765: --freezed version,give them new element identifiers.
766:
767: Pa_Debug.G_Stage:= 'Updating element identifiers of the rbs elements for the working version which do not match latest freeze.';
768: -- Bug 3635614 changed the update statement by removing the start with and connect by prior clause and used where clause instead
769: Update pa_rbs_elements
770: Set
771: Element_Identifier = Pa_Rbs_Element_Identifier_S.NextVal

Line 799: Pa_Debug.G_Stage:= 'Copying All Elements With user_created_Flag = N';

795:
796: IF PA_RBS_HEADER_PVT.Validate_Rbs_For_Allocations(p_rbs_id=>l_Rbs_Header_Id)='N' Then --When RBS has no rules as its element
797: --If l_use_for_alloc_flag='Y' Then
798:
799: Pa_Debug.G_Stage:= 'Copying All Elements With user_created_Flag = N';
800:
801: Pa_Debug.G_Stage:= 'Delete All Records From Pa_Rbs_Elements_Temp';
802: Begin
803:

Line 801: Pa_Debug.G_Stage:= 'Delete All Records From Pa_Rbs_Elements_Temp';

797: --If l_use_for_alloc_flag='Y' Then
798:
799: Pa_Debug.G_Stage:= 'Copying All Elements With user_created_Flag = N';
800:
801: Pa_Debug.G_Stage:= 'Delete All Records From Pa_Rbs_Elements_Temp';
802: Begin
803:
804: Delete
805: From Pa_Rbs_Elements_Temp;

Line 813: Pa_Debug.G_Stage:= 'Insert Pa_Rbs_Elements_Temp table with new element_ids';

809: null;
810:
811: End;
812:
813: Pa_Debug.G_Stage:= 'Insert Pa_Rbs_Elements_Temp table with new element_ids';
814:
815: Insert Into Pa_Rbs_Elements_Temp(
816: New_Element_Id,
817: Old_Element_Id,

Line 840: Pa_Debug.G_Stage:= 'Insert all records with user_created_flag=N with new element ids updated with new parent element ids';

836: Pa_Rbs_Elements_Temp Tmp2
837: Where
838: Tmp1.Old_Parent_Element_Id = Tmp2.Old_Element_Id);
839:
840: Pa_Debug.G_Stage:= 'Insert all records with user_created_flag=N with new element ids updated with new parent element ids';
841:
842: /*Bug 4377886 : Included explicitly the column names in the INSERT statement
843: to remove the GSCC Warning File.Sql.33 */
844: Insert Into pa_rbs_elements

Line 933: Pa_Debug.G_Stage := 'Mark the working version as frozen.';

929: Tmp.Old_Element_Id=Ele.Rbs_Element_Id;
930:
931: End IF; --End of changes made for bug 3659078. modified for bug 3703364
932:
933: Pa_Debug.G_Stage := 'Mark the working version as frozen.';
934: Update Pa_Rbs_Versions_B
935: Set
936: Status_code = 'FROZEN'
937: Where

Line 946: Pa_Debug.G_Stage := 'Set the version end date of latest freezed version to 1 minus start date of version being freezed,';

942: Fetch c_GetVersionDates Into l_Ver_Dates_Rec;
943: Close c_GetVersionDates;
944:
945:
946: Pa_Debug.G_Stage := 'Set the version end date of latest freezed version to 1 minus start date of version being freezed,';
947: Pa_Debug.G_Stage := 'if they are not equal';
948:
949: Pa_Debug.G_Stage := 'Set the version end date of latest freezed version to start date of version being freezed,';
950: Pa_Debug.G_Stage := 'if they are equal';

Line 947: Pa_Debug.G_Stage := 'if they are not equal';

943: Close c_GetVersionDates;
944:
945:
946: Pa_Debug.G_Stage := 'Set the version end date of latest freezed version to 1 minus start date of version being freezed,';
947: Pa_Debug.G_Stage := 'if they are not equal';
948:
949: Pa_Debug.G_Stage := 'Set the version end date of latest freezed version to start date of version being freezed,';
950: Pa_Debug.G_Stage := 'if they are equal';
951:

Line 949: Pa_Debug.G_Stage := 'Set the version end date of latest freezed version to start date of version being freezed,';

945:
946: Pa_Debug.G_Stage := 'Set the version end date of latest freezed version to 1 minus start date of version being freezed,';
947: Pa_Debug.G_Stage := 'if they are not equal';
948:
949: Pa_Debug.G_Stage := 'Set the version end date of latest freezed version to start date of version being freezed,';
950: Pa_Debug.G_Stage := 'if they are equal';
951:
952: If ((l_version_start_date-1)<(l_ver_dates_rec.Version_start_date)) Then
953:

Line 950: Pa_Debug.G_Stage := 'if they are equal';

946: Pa_Debug.G_Stage := 'Set the version end date of latest freezed version to 1 minus start date of version being freezed,';
947: Pa_Debug.G_Stage := 'if they are not equal';
948:
949: Pa_Debug.G_Stage := 'Set the version end date of latest freezed version to start date of version being freezed,';
950: Pa_Debug.G_Stage := 'if they are equal';
951:
952: If ((l_version_start_date-1)<(l_ver_dates_rec.Version_start_date)) Then
953:
954: l_end_date := l_version_start_date;

Line 1023: pa_debug.G_Stage := 'Error in API PA_ALLOC_UTILS.ASSOCIATE_RBS_TO_ALLOC_RULE';

1019: x_return_status => x_return_status,
1020: x_error_code => x_error_msg_data);
1021:
1022: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1023: pa_debug.G_Stage := 'Error in API PA_ALLOC_UTILS.ASSOCIATE_RBS_TO_ALLOC_RULE';
1024: Raise l_error;
1025: END IF;
1026:
1027: END IF; /* End of Bug 3987478 changes */

Line 1029: Pa_Debug.G_Stage := 'Check if we have a error message populated.';

1025: END IF;
1026:
1027: END IF; /* End of Bug 3987478 changes */
1028:
1029: Pa_Debug.G_Stage := 'Check if we have a error message populated.';
1030: If X_Error_Msg_Data Is Not Null Then
1031:
1032: Pa_Debug.G_Stage := 'We have a error message populated. Raise error.';
1033: Raise l_error;

Line 1032: Pa_Debug.G_Stage := 'We have a error message populated. Raise error.';

1028:
1029: Pa_Debug.G_Stage := 'Check if we have a error message populated.';
1030: If X_Error_Msg_Data Is Not Null Then
1031:
1032: Pa_Debug.G_Stage := 'We have a error message populated. Raise error.';
1033: Raise l_error;
1034:
1035: Else
1036:

Line 1037: Pa_Debug.G_Stage := 'Prepare to call Pji_FM_Xbs_Accum_Maint.Rbs_Push() procedure.';

1033: Raise l_error;
1034:
1035: Else
1036:
1037: Pa_Debug.G_Stage := 'Prepare to call Pji_FM_Xbs_Accum_Maint.Rbs_Push() procedure.';
1038: l_Old_Rbs_Version_Id := l_latest_freezed_version_id;
1039: l_New_Rbs_Version_Id := P_Rbs_Version_Id;
1040:
1041: Pa_Debug.G_Stage := 'Call Pji_FM_Xbs_Accum_Maint.Rbs_Push() procedure.';

Line 1041: Pa_Debug.G_Stage := 'Call Pji_FM_Xbs_Accum_Maint.Rbs_Push() procedure.';

1037: Pa_Debug.G_Stage := 'Prepare to call Pji_FM_Xbs_Accum_Maint.Rbs_Push() procedure.';
1038: l_Old_Rbs_Version_Id := l_latest_freezed_version_id;
1039: l_New_Rbs_Version_Id := P_Rbs_Version_Id;
1040:
1041: Pa_Debug.G_Stage := 'Call Pji_FM_Xbs_Accum_Maint.Rbs_Push() procedure.';
1042: Pji_FM_Xbs_Accum_Maint.Rbs_Push(
1043: P_Old_Rbs_Version_Id => l_Old_Rbs_Version_Id,
1044: P_New_Rbs_Version_Id => l_New_Rbs_Version_Id,
1045: P_Project_Id => l_Project_Id,

Line 1053: Pa_Debug.G_Stage := 'We have a error message populated. Raise error.';

1049: End If;
1050:
1051: --For Bug 3678165
1052: If X_Error_Msg_Data Is Not Null Then
1053: Pa_Debug.G_Stage := 'We have a error message populated. Raise error.';
1054: Raise l_error;
1055:
1056: Else
1057:

Line 1058: Pa_Debug.G_Stage := 'Prepare to call pa_rbs_mapping.create_mapping_rules() procedure.';

1054: Raise l_error;
1055:
1056: Else
1057:
1058: Pa_Debug.G_Stage := 'Prepare to call pa_rbs_mapping.create_mapping_rules() procedure.';
1059: Pa_Rbs_Mapping.Create_Mapping_Rules(
1060: P_Rbs_Version_Id => P_Rbs_Version_Id,
1061: X_Return_Status => X_Return_Status,
1062: X_Msg_Count => X_Msg_Count,

Line 1068: Pa_Debug.G_Stage := 'Create a copy of the version being freezed which will be the working version for this header.';

1064: End If;
1065:
1066: l_Api_Version_Number := 1;
1067:
1068: Pa_Debug.G_Stage := 'Create a copy of the version being freezed which will be the working version for this header.';
1069: Pa_Rbs_Versions_Pub.Create_Working_Version(
1070: P_Commit => Fnd_Api.G_False,
1071: P_Init_Msg_List => Fnd_Api.G_False,
1072: P_Api_Version_Number => l_Api_Version_Number,

Line 1081: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';

1077: X_Return_Status => X_Return_Status,
1078: X_Msg_Count => X_Msg_Count,
1079: X_Error_Msg_Data => X_Error_Msg_Data);
1080:
1081: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
1082: IF X_Error_Msg_Data Is Not Null Then
1083:
1084: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
1085: Raise l_error;

Line 1084: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';

1080:
1081: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
1082: IF X_Error_Msg_Data Is Not Null Then
1083:
1084: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
1085: Raise l_error;
1086:
1087: END IF;
1088:

Line 1089: Pa_Debug.G_Stage := 'Check if need to do commit.';

1085: Raise l_error;
1086:
1087: END IF;
1088:
1089: Pa_Debug.G_Stage := 'Check if need to do commit.';
1090: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
1091:
1092: Pa_Debug.G_Stage := 'Commit changes to the db.';
1093: Commit;

Line 1092: Pa_Debug.G_Stage := 'Commit changes to the db.';

1088:
1089: Pa_Debug.G_Stage := 'Check if need to do commit.';
1090: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
1091:
1092: Pa_Debug.G_Stage := 'Commit changes to the db.';
1093: Commit;
1094:
1095: End If;
1096:

Line 1097: Pa_Debug.G_Stage := 'Leaving Freeze_Working_Version() procedure.';

1093: Commit;
1094:
1095: End If;
1096:
1097: Pa_Debug.G_Stage := 'Leaving Freeze_Working_Version() procedure.';
1098: Pa_Debug.TrackPath('STRIP','Freeze_Working_Version');
1099:
1100: Exception
1101: When l_Error Then

Line 1098: Pa_Debug.TrackPath('STRIP','Freeze_Working_Version');

1094:
1095: End If;
1096:
1097: Pa_Debug.G_Stage := 'Leaving Freeze_Working_Version() procedure.';
1098: Pa_Debug.TrackPath('STRIP','Freeze_Working_Version');
1099:
1100: Exception
1101: When l_Error Then
1102: X_Return_Status := 'E';

Line 1108: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||

1104:
1105: When Others Then
1106: X_Return_Status := 'E';
1107: X_Msg_Count := 1;
1108: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||
1109: ':' || SqlErrm;
1110: If P_Init_Debugging_Flag = 'Y' Then
1111: Rollback;
1112: Else