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_ELEMENTS_PUB dependencies on PA_DEBUG

Line 52: Pa_Debug.G_Path := ' ';

48: For Update Of Status_code NoWait;
49:
50: Begin
51:
52: Pa_Debug.G_Path := ' ';
53:
54: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
55: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub');
56:

Line 54: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';

50: Begin
51:
52: Pa_Debug.G_Path := ' ';
53:
54: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
55: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub');
56:
57: Pa_Debug.G_Stage := 'Call Compatibility API.';
58: If Not Fnd_Api.Compatible_API_Call (

Line 55: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub');

51:
52: Pa_Debug.G_Path := ' ';
53:
54: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
55: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub');
56:
57: Pa_Debug.G_Stage := 'Call Compatibility API.';
58: If Not Fnd_Api.Compatible_API_Call (
59: Pa_Rbs_Elements_Pub.G_Api_Version_Number,

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

53:
54: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
55: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub');
56:
57: Pa_Debug.G_Stage := 'Call Compatibility API.';
58: If Not Fnd_Api.Compatible_API_Call (
59: Pa_Rbs_Elements_Pub.G_Api_Version_Number,
60: P_Api_Version_Number,
61: l_Api_Name,

Line 68: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;

64: Raise Fnd_Api.G_Exc_Unexpected_Error;
65:
66: End If;
67:
68: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;
69: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
70:
71: Fnd_Msg_Pub.Initialize;
72:

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

71: Fnd_Msg_Pub.Initialize;
72:
73: End If;
74:
75: Pa_Debug.G_Stage := 'Initialize error handling variables.';
76: X_Msg_Count := 0;
77: X_Error_Msg_Data := Null;
78: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
79:

Line 81: Pa_Debug.G_Stage := 'Opening cursor which locks the Rbs Version.';

77: X_Error_Msg_Data := Null;
78: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
79:
80: -- Lock the rbs_version record.
81: Pa_Debug.G_Stage := 'Opening cursor which locks the Rbs Version.';
82: Open cLockVersionRec(P_Id => P_RBS_Version_Id);
83: Fetch cLockVersionRec Into l_dummy;
84:
85: If cLockVersionRec%NotFound Then

Line 91: Pa_Debug.G_Stage := 'Beginning Loop thru to process DELETED records.';

87: Raise locked_version_rec;
88: End If;
89:
90: -- first time thru the loop for deleted records.
91: Pa_Debug.G_Stage := 'Beginning Loop thru to process DELETED records.';
92: For i in P_Process_Type_Tbl.First .. P_Process_Type_Tbl.Last
93: Loop
94:
95: IF P_Process_Type_Tbl(i) = 'D'

Line 98: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() Pvt - 1.';

94:
95: IF P_Process_Type_Tbl(i) = 'D'
96: THEN
97:
98: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() Pvt - 1.';
99: -- When it is a delete, the resource source ID is not passed in
100: -- Need to get it for the error message token
101: Select Resource_Source_Id
102: Into l_Resource_Source_Id

Line 119: Pa_Debug.G_Stage := 'Assign error message - 1.';

115: X_Error_Msg_Data => X_Error_Msg_Data );
116:
117: If X_Error_Msg_Data is not null Then
118:
119: Pa_Debug.G_Stage := 'Assign error message - 1.';
120: Pa_Rbs_Elements_Pub.PopulateErrorStack(
121: P_Calling_Page => P_Calling_Page,
122: P_Element_Id => P_Element_Id_Tbl(i),
123: P_Resource_Type_Id => P_Resource_Type_Id_Tbl(i),

Line 137: Pa_Debug.G_Stage := 'Beginning Loop thru to process UPDATE records.';

133:
134: END LOOP; -- first time thru the loop for deleted records.
135:
136: -- Second run thru the loop for updated records.
137: Pa_Debug.G_Stage := 'Beginning Loop thru to process UPDATE records.';
138: For i in P_Process_Type_Tbl.First .. P_Process_Type_Tbl.Last
139: Loop
140:
141: If P_Process_Type_Tbl(i) = 'U'

Line 146: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 2.';

142: Then
143:
144: If P_Resource_Source_Id_Tbl(i) is Null Then
145:
146: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 2.';
147: Pa_Rbs_Elements_Utils.GetResSourceId(
148: P_Resource_Type_Id => P_Resource_Type_Id_Tbl(i),
149: P_Resource_Source_Code => P_Resource_Source_Code_Tbl(i),
150: X_Resource_Source_Id => l_Resource_Source_Id);

Line 154: Pa_Debug.G_Stage := 'Assign resource source id - 2.';

150: X_Resource_Source_Id => l_Resource_Source_Id);
151:
152: Else
153:
154: Pa_Debug.G_Stage := 'Assign resource source id - 2.';
155: l_Resource_Source_Id := P_Resource_Source_Id_Tbl(i);
156:
157: End If;
158:

Line 159: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() Pvt - 2.';

155: l_Resource_Source_Id := P_Resource_Source_Id_Tbl(i);
156:
157: End If;
158:
159: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() Pvt - 2.';
160:
161: Pa_Rbs_Elements_Pvt.Process_Rbs_Element(
162: P_RBS_Version_Id => P_RBS_Version_Id,
163: P_Parent_Element_Id => P_Parent_Element_Id_Tbl(i),

Line 174: Pa_Debug.G_Stage := 'Assign error message - 2.';

170: X_Error_Msg_Data => X_Error_Msg_Data );
171:
172: If X_Error_Msg_Data is not null Then
173:
174: Pa_Debug.G_Stage := 'Assign error message - 2.';
175: Pa_Rbs_Elements_Pub.PopulateErrorStack(
176: P_Calling_Page => P_Calling_Page,
177: P_Element_Id => P_Element_Id_Tbl(i),
178: P_Resource_Type_Id => P_Resource_Type_Id_Tbl(i),

Line 192: Pa_Debug.G_Stage := 'Beginning Loop thru to process ADD records.';

188:
189: End Loop; -- Second run thru the loop for updated records.
190:
191: -- third time thru the the loop for added records.
192: Pa_Debug.G_Stage := 'Beginning Loop thru to process ADD records.';
193: For i in P_Process_Type_Tbl.First .. P_Process_Type_Tbl.Last
194: Loop
195:
196: If P_Process_Type_Tbl(i) = 'A' Then

Line 200: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 3.';

196: If P_Process_Type_Tbl(i) = 'A' Then
197:
198: If P_Resource_Source_Id_Tbl(i) is Null Then
199:
200: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 3.';
201:
202: Pa_Rbs_Elements_Utils.GetResSourceId(
203: P_Resource_Type_Id => P_Resource_Type_Id_Tbl(i),
204: P_Resource_Source_Code => P_Resource_Source_Code_Tbl(i),

Line 209: Pa_Debug.G_Stage := 'Assign resource source id - 3.';

205: X_Resource_Source_Id => l_Resource_Source_Id);
206:
207: Else
208:
209: Pa_Debug.G_Stage := 'Assign resource source id - 3.';
210: l_Resource_Source_Id := P_Resource_Source_Id_Tbl(i);
211:
212: End If;
213:

Line 214: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() Pvt - 3.';

210: l_Resource_Source_Id := P_Resource_Source_Id_Tbl(i);
211:
212: End If;
213:
214: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() Pvt - 3.';
215: Pa_Rbs_Elements_Pvt.Process_Rbs_Element(
216: P_RBS_Version_Id => P_RBS_Version_Id,
217: P_Parent_Element_Id => P_Parent_Element_Id_Tbl(i),
218: P_Element_Id => P_Element_Id_Tbl(i),

Line 228: Pa_Debug.G_Stage := 'Assign error message - 3.';

224: X_Error_Msg_Data => X_Error_Msg_Data );
225:
226: If X_Error_Msg_Data is not null Then
227:
228: Pa_Debug.G_Stage := 'Assign error message - 3.';
229: Pa_Rbs_Elements_Pub.PopulateErrorStack(
230: P_Calling_Page => P_Calling_Page,
231: P_Element_Id => P_Element_Id_Tbl(i),
232: P_Resource_Type_Id => P_Resource_Type_Id_Tbl(i),

Line 256: Pa_Debug.G_Stage := 'Assign error message - 4.';

252: -- 5) If there is no value for the outline number already then assigned 'NONE'
253:
254: If X_Error_Msg_Data is not null Then
255:
256: Pa_Debug.G_Stage := 'Assign error message - 4.';
257: Pa_Rbs_Elements_Pub.PopulateErrorStack(
258: P_Calling_Page => P_Calling_Page,
259: P_Element_Id => P_Element_Id_Tbl(i),
260: P_Resource_Type_Id => P_Resource_Type_Id_Tbl(i),

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

264: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
265:
266: End If;
267:
268: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
269: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
270:
271: Commit;
272:

Line 275: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';

271: Commit;
272:
273: End If;
274:
275: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';
276: Close cLockVersionRec;
277:
278: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';
279: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub');

Line 278: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';

274:
275: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';
276: Close cLockVersionRec;
277:
278: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';
279: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub');
280:
281: Exception
282: When locked_version_rec Then

Line 279: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub');

275: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';
276: Close cLockVersionRec;
277:
278: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';
279: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub');
280:
281: Exception
282: When locked_version_rec Then
283: X_Return_Status := 'E';

Line 291: X_Error_Msg_Data := Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

287: 'or is currently locked by someone else.';
288: When Others Then
289: X_Return_Status := 'E';
290: X_Msg_Count := 1;
291: X_Error_Msg_Data := Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
292: Rollback;
293:
294: End Process_Rbs_Elements;
295:

Line 338: Pa_Debug.G_Path := ' ';

334: For Update of Status_code NoWait;
335:
336: Begin
337:
338: Pa_Debug.G_Path := ' ';
339:
340: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
341: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub-AMG');
342:

Line 340: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';

336: Begin
337:
338: Pa_Debug.G_Path := ' ';
339:
340: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
341: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub-AMG');
342:
343: Pa_Debug.G_Stage := 'Call Compatibility API.';
344:

Line 341: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub-AMG');

337:
338: Pa_Debug.G_Path := ' ';
339:
340: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
341: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub-AMG');
342:
343: Pa_Debug.G_Stage := 'Call Compatibility API.';
344:
345: If Not Fnd_Api.Compatible_API_Call (

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

339:
340: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
341: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub-AMG');
342:
343: Pa_Debug.G_Stage := 'Call Compatibility API.';
344:
345: If Not Fnd_Api.Compatible_API_Call (
346: Pa_Rbs_Elements_Pub.G_Api_Version_Number,
347: P_Api_Version_Number,

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

355: THEN
356: Fnd_Msg_Pub.Initialize;
357: END IF;
358:
359: Pa_Debug.G_Stage := 'Initialize error handling variables.';
360: X_Msg_Count := 0;
361: X_Error_Msg_Data := Null;
362: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
363:

Line 365: Pa_Debug.G_Stage := 'Opening cursor which locks the Rbs Version.';

361: X_Error_Msg_Data := Null;
362: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
363:
364: -- Lock the rbs_version record.
365: Pa_Debug.G_Stage := 'Opening cursor which locks the Rbs Version.';
366: Open cLockVersionRec(P_Id => P_RBS_Version_Id);
367: Fetch cLockVersionRec Into l_dummy;
368:
369: If cLockVersionRec%NotFound Then

Line 375: Pa_Debug.G_Stage := 'Beginning Loop thru to process DELETED records.';

371: Raise locked_version_rec;
372: End If;
373:
374: -- first time thru the loop for deleted records.
375: Pa_Debug.G_Stage := 'Beginning Loop thru to process DELETED records.';
376: For i in P_Rbs_Elements_Tbl.First .. P_Rbs_Elements_Tbl.Last
377: Loop
378:
379: If P_Rbs_Elements_Tbl(i).Process_Type = 'D' Then

Line 383: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 1.';

379: If P_Rbs_Elements_Tbl(i).Process_Type = 'D' Then
380:
381: If P_Rbs_Elements_Tbl(i).Resource_Source_Id is Null Then
382:
383: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 1.';
384: Pa_Rbs_Elements_Utils.GetResSourceId(
385: P_Resource_Type_Id => P_Rbs_Elements_Tbl(i).Resource_Type_Id,
386: P_Resource_Source_Code => P_Rbs_Elements_Tbl(i).Resource_Source_Code,
387: X_Resource_Source_Id => l_Resource_Source_Id);

Line 391: Pa_Debug.G_Stage := 'Assign resource source id 1.';

387: X_Resource_Source_Id => l_Resource_Source_Id);
388:
389: Else
390:
391: Pa_Debug.G_Stage := 'Assign resource source id 1.';
392: l_Resource_Source_Id := P_Rbs_Elements_Tbl(i).Resource_Source_Id;
393:
394: End If;
395:

Line 396: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() Pvt - 1.';

392: l_Resource_Source_Id := P_Rbs_Elements_Tbl(i).Resource_Source_Id;
393:
394: End If;
395:
396: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() Pvt - 1.';
397: Pa_Rbs_Elements_Pvt.Process_Rbs_Element(
398: P_RBS_Version_Id => P_RBS_Version_Id,
399: P_Parent_Element_Id => P_Rbs_Elements_Tbl(i).Parent_Element_Id,
400: P_Element_Id => P_Rbs_Elements_Tbl(i).Rbs_Element_Id,

Line 410: Pa_Debug.G_Stage := 'Assign error message - 1.';

406: X_Error_Msg_Data => X_Error_Msg_Data );
407:
408: If X_Error_Msg_Data is not null Then
409:
410: Pa_Debug.G_Stage := 'Assign error message - 1.';
411: Pa_Rbs_Elements_Pub.PopulateErrorStack(
412: P_Element_Id => P_Rbs_Elements_Tbl(i).Rbs_Element_Id,
413: P_Resource_Type_Id => P_Rbs_Elements_Tbl(i).Resource_Type_Id,
414: P_Resource_Source_Id => l_Resource_Source_Id,

Line 426: Pa_Debug.G_Stage := 'Beginning Loop thru to process UPDATE records.';

422:
423: End Loop; -- first time thru the loop for deleted records.
424:
425: -- second time thru the loop for updated records.
426: Pa_Debug.G_Stage := 'Beginning Loop thru to process UPDATE records.';
427: For i in P_Rbs_Elements_Tbl.First .. P_Rbs_Elements_Tbl.Last
428: Loop
429:
430: If P_Rbs_Elements_Tbl(i).Process_Type = 'U' Then

Line 434: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 2.';

430: If P_Rbs_Elements_Tbl(i).Process_Type = 'U' Then
431:
432: If P_Rbs_Elements_Tbl(i).Resource_Source_Id is Null Then
433:
434: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 2.';
435: Pa_Rbs_Elements_Utils.GetResSourceId(
436: P_Resource_Type_Id => P_Rbs_Elements_Tbl(i).Resource_Type_Id,
437: P_Resource_Source_Code => P_Rbs_Elements_Tbl(i).Resource_Source_Code,
438: X_Resource_Source_Id => l_Resource_Source_Id);

Line 442: Pa_Debug.G_Stage := 'Assign resource source id 2.';

438: X_Resource_Source_Id => l_Resource_Source_Id);
439:
440: Else
441:
442: Pa_Debug.G_Stage := 'Assign resource source id 2.';
443: l_Resource_Source_Id := P_Rbs_Elements_Tbl(i).Resource_Source_Id;
444:
445: End If;
446:

Line 447: Pa_Debug.G_Stage := 'Call Process_Rbs_Element() Pvt - 2.';

443: l_Resource_Source_Id := P_Rbs_Elements_Tbl(i).Resource_Source_Id;
444:
445: End If;
446:
447: Pa_Debug.G_Stage := 'Call Process_Rbs_Element() Pvt - 2.';
448: Pa_Rbs_Elements_Pvt.Process_Rbs_Element(
449: P_RBS_Version_Id => P_RBS_Version_Id,
450: P_Parent_Element_Id => P_Rbs_Elements_Tbl(i).Parent_Element_Id,
451: P_Element_Id => P_Rbs_Elements_Tbl(i).Rbs_Element_Id,

Line 461: Pa_Debug.G_Stage := 'Assign error message - 2.';

457: X_Error_Msg_Data => X_Error_Msg_Data );
458:
459: If X_Error_Msg_Data is not null Then
460:
461: Pa_Debug.G_Stage := 'Assign error message - 2.';
462: Pa_Rbs_Elements_Pub.PopulateErrorStack(
463: P_Element_Id => P_Rbs_Elements_Tbl(i).Rbs_Element_Id,
464: P_Resource_Type_Id => P_Rbs_Elements_Tbl(i).Resource_Type_Id,
465: P_Resource_Source_Id => l_Resource_Source_Id,

Line 477: Pa_Debug.G_Stage := 'Beginning Loop thru to process ADD records.';

473:
474: End Loop; -- second time thru the loop for updated records.
475:
476: -- third time thru the loop for add records.
477: Pa_Debug.G_Stage := 'Beginning Loop thru to process ADD records.';
478: For i in P_Rbs_Elements_Tbl.First .. P_Rbs_Elements_Tbl.Last
479: Loop
480:
481: If P_Rbs_Elements_Tbl(i).Process_Type = 'A' Then

Line 485: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 3.';

481: If P_Rbs_Elements_Tbl(i).Process_Type = 'A' Then
482:
483: If P_Rbs_Elements_Tbl(i).Resource_Source_Id is Null Then
484:
485: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 3.';
486: Pa_Rbs_Elements_Utils.GetResSourceId(
487: P_Resource_Type_Id => P_Rbs_Elements_Tbl(i).Resource_Type_Id,
488: P_Resource_Source_Code => P_Rbs_Elements_Tbl(i).Resource_Source_Code,
489: X_Resource_Source_Id => l_Resource_Source_Id);

Line 493: Pa_Debug.G_Stage := 'Assign resource source id 3.';

489: X_Resource_Source_Id => l_Resource_Source_Id);
490:
491: Else
492:
493: Pa_Debug.G_Stage := 'Assign resource source id 3.';
494: l_Resource_Source_Id := P_Rbs_Elements_Tbl(i).Resource_Source_Id;
495:
496: End If;
497:

Line 498: Pa_Debug.G_Stage := 'Call Process_Rbs_Element() Pvt - 3.';

494: l_Resource_Source_Id := P_Rbs_Elements_Tbl(i).Resource_Source_Id;
495:
496: End If;
497:
498: Pa_Debug.G_Stage := 'Call Process_Rbs_Element() Pvt - 3.';
499: Pa_Rbs_Elements_Pvt.Process_Rbs_Element(
500: P_RBS_Version_Id => P_RBS_Version_Id,
501: P_Parent_Element_Id => P_Rbs_Elements_Tbl(i).Parent_Element_Id,
502: P_Element_Id => P_Rbs_Elements_Tbl(i).Rbs_Element_Id,

Line 512: Pa_Debug.G_Stage := 'Assign error message - 3.';

508: X_Error_Msg_Data => X_Error_Msg_Data );
509:
510: If X_Error_Msg_Data is not null Then
511:
512: Pa_Debug.G_Stage := 'Assign error message - 3.';
513: Pa_Rbs_Elements_Pub.PopulateErrorStack(
514: P_Element_Id => P_Rbs_Elements_Tbl(i).Rbs_Element_Id,
515: P_Resource_Type_Id => P_Rbs_Elements_Tbl(i).Resource_Type_Id,
516: P_Resource_Source_Id => l_Resource_Source_Id,

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

525: l_Parent_Element_Id_Tbl(i) := P_Rbs_Elements_Tbl(i).Parent_Element_Id;
526:
527: End Loop; -- third time thru the loop for add records.
528:
529: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - '|| P_Commit;
530: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
531:
532: Commit;
533:

Line 536: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';

532: Commit;
533:
534: End If;
535:
536: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';
537: Close cLockVersionRec;
538:
539: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';
540: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub-AMG');

Line 539: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';

535:
536: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';
537: Close cLockVersionRec;
538:
539: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';
540: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub-AMG');
541:
542: Exception
543: When locked_version_rec Then

Line 540: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub-AMG');

536: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';
537: Close cLockVersionRec;
538:
539: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';
540: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub-AMG');
541:
542: Exception
543: When locked_version_rec Then
544: X_Return_Status := 'E';

Line 550: X_Error_Msg_Data := Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

546: X_Error_Msg_Data := 'Unable to lock the Rbs Version to process its elements.';
547: When Others Then
548: X_Return_Status := 'E';
549: X_Msg_Count := 1;
550: X_Error_Msg_Data := Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
551: Rollback;
552:
553: End Process_Rbs_Elements;
554:

Line 624: Pa_Debug.G_Stage := 'Entering PopulateErrorStack() procedure.';

620: And Language = UserEnv('LANG');
621:
622: Begin
623:
624: Pa_Debug.G_Stage := 'Entering PopulateErrorStack() procedure.';
625: Pa_Debug.TrackPath('ADD','PopulateErrorStack');
626:
627: Pa_Debug.G_Stage := 'Get translated meaning for Resource Type.';
628: Open c1('RESOURCE_TYPE');

Line 625: Pa_Debug.TrackPath('ADD','PopulateErrorStack');

621:
622: Begin
623:
624: Pa_Debug.G_Stage := 'Entering PopulateErrorStack() procedure.';
625: Pa_Debug.TrackPath('ADD','PopulateErrorStack');
626:
627: Pa_Debug.G_Stage := 'Get translated meaning for Resource Type.';
628: Open c1('RESOURCE_TYPE');
629: Fetch c1 Into l_Temp_Res_Type;

Line 627: Pa_Debug.G_Stage := 'Get translated meaning for Resource Type.';

623:
624: Pa_Debug.G_Stage := 'Entering PopulateErrorStack() procedure.';
625: Pa_Debug.TrackPath('ADD','PopulateErrorStack');
626:
627: Pa_Debug.G_Stage := 'Get translated meaning for Resource Type.';
628: Open c1('RESOURCE_TYPE');
629: Fetch c1 Into l_Temp_Res_Type;
630: Close c1;
631:

Line 632: Pa_Debug.G_Stage := 'Get translated meaning for Resource.';

628: Open c1('RESOURCE_TYPE');
629: Fetch c1 Into l_Temp_Res_Type;
630: Close c1;
631:
632: Pa_Debug.G_Stage := 'Get translated meaning for Resource.';
633: Open c1('RESOURCE');
634: Fetch c1 Into l_Temp_Res;
635: Close c1;
636:

Line 663: Pa_Debug.G_Stage := 'Get translated meaning for Parent.';

659: End If;
660:
661: If P_Calling_Page = 'VERSION_ELEMENTS' Then
662:
663: Pa_Debug.G_Stage := 'Get translated meaning for Parent.';
664: Open c1('OUTLINE_NUMBER');
665: Fetch c1 Into l_Outline;
666: Close c1;
667:

Line 668: Pa_Debug.G_Stage := 'Get element outline number.';

664: Open c1('OUTLINE_NUMBER');
665: Fetch c1 Into l_Outline;
666: Close c1;
667:
668: Pa_Debug.G_Stage := 'Get element outline number.';
669: Open c2(P_Element_Id);
670: Fetch c2 Into l_Outline_Number;
671: Close c2;
672:

Line 673: Pa_Debug.G_Stage := 'Building token for Version Elements format.';

669: Open c2(P_Element_Id);
670: Fetch c2 Into l_Outline_Number;
671: Close c2;
672:
673: Pa_Debug.G_Stage := 'Building token for Version Elements format.';
674: -- Format for messages:
675: -- Outline: : Message Text
676: -- Build string with translated values for outline
677:

Line 682: Pa_Debug.G_Stage := 'Building token for Child Elements format.';

678: l_Msg_Token_Value := l_Outline || ': ' || l_Outline_Number || ': ';
679:
680: Else
681:
682: Pa_Debug.G_Stage := 'Building token for Child Elements format.';
683: -- Format for messages:
684: -- Resource Type: Resource : : Message Text
685: -- Build string with translated values for resource type, resource
686: l_Msg_Token_Value := l_temp_res_type || ': ' || l_res_type_name || ' ' || l_temp_res || ': ' ||

Line 691: Pa_Debug.G_Stage := 'Calling Pa_Utils.Add_Message() procedure.';

687: l_res_name || ': ';
688:
689: End If;
690:
691: Pa_Debug.G_Stage := 'Calling Pa_Utils.Add_Message() procedure.';
692: Pa_Utils.Add_Message
693: (P_App_Short_Name => 'PA',
694: P_Msg_Name => P_Error_Msg_Data,
695: P_Token1 => 'MSG_TOKEN',

Line 698: Pa_Debug.G_Stage := 'Leaving PopulateErrorStack() procedure.';

694: P_Msg_Name => P_Error_Msg_Data,
695: P_Token1 => 'MSG_TOKEN',
696: P_Value1 => l_Msg_Token_value);
697:
698: Pa_Debug.G_Stage := 'Leaving PopulateErrorStack() procedure.';
699: Pa_Debug.TrackPath('STRIP','PopulateErrorStack');
700:
701: Exception
702: When Others Then

Line 699: Pa_Debug.TrackPath('STRIP','PopulateErrorStack');

695: P_Token1 => 'MSG_TOKEN',
696: P_Value1 => l_Msg_Token_value);
697:
698: Pa_Debug.G_Stage := 'Leaving PopulateErrorStack() procedure.';
699: Pa_Debug.TrackPath('STRIP','PopulateErrorStack');
700:
701: Exception
702: When Others Then
703: Raise;