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 79: Pa_Debug.G_Path := ' ';

75: l_cost_code_name varchar2(250); --16430696
76:
77: Begin
78:
79: Pa_Debug.G_Path := ' ';
80:
81: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
82: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub');
83:

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

77: Begin
78:
79: Pa_Debug.G_Path := ' ';
80:
81: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
82: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub');
83:
84: Pa_Debug.G_Stage := 'Call Compatibility API.';
85: If Not Fnd_Api.Compatible_API_Call (

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

78:
79: Pa_Debug.G_Path := ' ';
80:
81: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
82: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub');
83:
84: Pa_Debug.G_Stage := 'Call Compatibility API.';
85: If Not Fnd_Api.Compatible_API_Call (
86: Pa_Rbs_Elements_Pub.G_Api_Version_Number,

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

80:
81: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
82: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub');
83:
84: Pa_Debug.G_Stage := 'Call Compatibility API.';
85: If Not Fnd_Api.Compatible_API_Call (
86: Pa_Rbs_Elements_Pub.G_Api_Version_Number,
87: P_Api_Version_Number,
88: l_Api_Name,

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

91: Raise Fnd_Api.G_Exc_Unexpected_Error;
92:
93: End If;
94:
95: Pa_Debug.G_Stage := 'Check if need to initialize the message stack(T-True,F-False) - ' || P_Init_Msg_List;
96: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
97:
98: Fnd_Msg_Pub.Initialize;
99:

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

98: Fnd_Msg_Pub.Initialize;
99:
100: End If;
101:
102: Pa_Debug.G_Stage := 'Initialize error handling variables.';
103: X_Msg_Count := 0;
104: X_Error_Msg_Data := Null;
105: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
106:

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

104: X_Error_Msg_Data := Null;
105: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
106:
107: -- Lock the rbs_version record.
108: Pa_Debug.G_Stage := 'Opening cursor which locks the Rbs Version.';
109: Open cLockVersionRec(P_Id => P_RBS_Version_Id);
110: Fetch cLockVersionRec Into l_dummy;
111:
112: If cLockVersionRec%NotFound Then

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

114: Raise locked_version_rec;
115: End If;
116:
117: -- first time thru the loop for deleted records.
118: Pa_Debug.G_Stage := 'Beginning Loop thru to process DELETED records.';
119: For i in P_Process_Type_Tbl.First .. P_Process_Type_Tbl.Last
120: Loop
121:
122: IF P_Process_Type_Tbl(i) = 'D'

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

121:
122: IF P_Process_Type_Tbl(i) = 'D'
123: THEN
124:
125: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() Pvt - 1.';
126: -- When it is a delete, the resource source ID is not passed in
127: -- Need to get it for the error message token
128: Select Resource_Source_Id
129: Into l_Resource_Source_Id

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

142: X_Error_Msg_Data => X_Error_Msg_Data );
143:
144: If X_Error_Msg_Data is not null Then
145:
146: Pa_Debug.G_Stage := 'Assign error message - 1.';
147: Pa_Rbs_Elements_Pub.PopulateErrorStack(
148: P_Calling_Page => P_Calling_Page,
149: P_Element_Id => P_Element_Id_Tbl(i),
150: P_Resource_Type_Id => P_Resource_Type_Id_Tbl(i),

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

160:
161: END LOOP; -- first time thru the loop for deleted records.
162:
163: -- Second run thru the loop for updated records.
164: Pa_Debug.G_Stage := 'Beginning Loop thru to process UPDATE records.';
165: For i in P_Process_Type_Tbl.First .. P_Process_Type_Tbl.Last
166: Loop
167:
168: If P_Process_Type_Tbl(i) = 'U'

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

169: Then
170:
171: If P_Resource_Source_Id_Tbl(i) is Null Then
172:
173: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 2.';
174: Pa_Rbs_Elements_Utils.GetResSourceId(
175: P_Resource_Type_Id => P_Resource_Type_Id_Tbl(i),
176: P_Resource_Source_Code => P_Resource_Source_Code_Tbl(i),
177: X_Resource_Source_Id => l_Resource_Source_Id);

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

178:
179:
180: Else
181:
182: Pa_Debug.G_Stage := 'Assign resource source id - 2.';
183: l_Resource_Source_Id := P_Resource_Source_Id_Tbl(i);
184:
185: End If;
186:

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

183: l_Resource_Source_Id := P_Resource_Source_Id_Tbl(i);
184:
185: End If;
186:
187: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() Pvt - 2.';
188:
189: /* Added for CBS phase changes */
190: if(P_LEVEL_CODE_TBL is not null) then
191: l_level_code :=P_LEVEL_CODE_TBL(i);

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

212: X_Error_Msg_Data => X_Error_Msg_Data );
213:
214: If X_Error_Msg_Data is not null Then
215:
216: Pa_Debug.G_Stage := 'Assign error message - 2.';
217: Pa_Rbs_Elements_Pub.PopulateErrorStack(
218: P_Calling_Page => P_Calling_Page,
219: P_Element_Id => P_Element_Id_Tbl(i),
220: P_Resource_Type_Id => P_Resource_Type_Id_Tbl(i),

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

237:
238: End Loop; -- Second run thru the loop for updated records.
239:
240: -- third time thru the the loop for added records.
241: Pa_Debug.G_Stage := 'Beginning Loop thru to process ADD records.';
242: For i in P_Process_Type_Tbl.First .. P_Process_Type_Tbl.Last
243: Loop
244:
245: If P_Process_Type_Tbl(i) = 'A' Then

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

245: If P_Process_Type_Tbl(i) = 'A' Then
246:
247: If P_Resource_Source_Id_Tbl(i) is Null Then
248:
249: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 3.';
250:
251: Pa_Rbs_Elements_Utils.GetResSourceId(
252: P_Resource_Type_Id => P_Resource_Type_Id_Tbl(i),
253: P_Resource_Source_Code => P_Resource_Source_Code_Tbl(i),

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

254: X_Resource_Source_Id => l_Resource_Source_Id);
255:
256: Else
257:
258: Pa_Debug.G_Stage := 'Assign resource source id - 3.';
259: l_Resource_Source_Id := P_Resource_Source_Id_Tbl(i);
260:
261: End If;
262:

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

270: l_cost_code :=null;
271: l_cost_code_name :=null;--16430696
272: end if;
273:
274: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() Pvt - 3.';
275: Pa_Rbs_Elements_Pvt.Process_Rbs_Element(
276: P_RBS_Version_Id => P_RBS_Version_Id,
277: P_Parent_Element_Id => P_Parent_Element_Id_Tbl(i),
278: P_Element_Id => P_Element_Id_Tbl(i),

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

287: X_Error_Msg_Data => X_Error_Msg_Data );
288:
289: If X_Error_Msg_Data is not null Then
290:
291: Pa_Debug.G_Stage := 'Assign error message - 3.';
292: Pa_Rbs_Elements_Pub.PopulateErrorStack(
293: P_Calling_Page => P_Calling_Page,
294: P_Element_Id => P_Element_Id_Tbl(i),
295: P_Resource_Type_Id => P_Resource_Type_Id_Tbl(i),

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

315: -- 5) If there is no value for the outline number already then assigned 'NONE'
316:
317: If X_Error_Msg_Data is not null Then
318:
319: Pa_Debug.G_Stage := 'Assign error message - 4.';
320: Pa_Rbs_Elements_Pub.PopulateErrorStack(
321: P_Calling_Page => P_Calling_Page,
322: P_Element_Id => P_Element_Id_Tbl(i),
323: P_Resource_Type_Id => P_Resource_Type_Id_Tbl(i),

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

327: X_Return_Status := Fnd_Api.G_Ret_Sts_UnExp_Error;
328:
329: End If;
330:
331: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
332: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
333:
334: Commit;
335:

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

334: Commit;
335:
336: End If;
337:
338: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';
339: Close cLockVersionRec;
340:
341: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';
342: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub');

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

337:
338: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';
339: Close cLockVersionRec;
340:
341: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';
342: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub');
343:
344: Exception
345: When locked_version_rec Then

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

338: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';
339: Close cLockVersionRec;
340:
341: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';
342: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub');
343:
344: Exception
345: When locked_version_rec Then
346: X_Return_Status := 'E';

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

350: 'or is currently locked by someone else.';
351: When Others Then
352: X_Return_Status := 'E';
353: X_Msg_Count := 1;
354: X_Error_Msg_Data := Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
355: Rollback;
356:
357: End Process_Rbs_Elements;
358:

Line 401: Pa_Debug.G_Path := ' ';

397: For Update of Status_code NoWait;
398:
399: Begin
400:
401: Pa_Debug.G_Path := ' ';
402:
403: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
404: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub-AMG');
405:

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

399: Begin
400:
401: Pa_Debug.G_Path := ' ';
402:
403: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
404: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub-AMG');
405:
406: Pa_Debug.G_Stage := 'Call Compatibility API.';
407:

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

400:
401: Pa_Debug.G_Path := ' ';
402:
403: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
404: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub-AMG');
405:
406: Pa_Debug.G_Stage := 'Call Compatibility API.';
407:
408: If Not Fnd_Api.Compatible_API_Call (

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

402:
403: Pa_Debug.G_Stage := 'Entering Process_Rbs_Elements() Pub.';
404: Pa_Debug.TrackPath('ADD','Process_Rbs_Elements Pub-AMG');
405:
406: Pa_Debug.G_Stage := 'Call Compatibility API.';
407:
408: If Not Fnd_Api.Compatible_API_Call (
409: Pa_Rbs_Elements_Pub.G_Api_Version_Number,
410: P_Api_Version_Number,

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

418: THEN
419: Fnd_Msg_Pub.Initialize;
420: END IF;
421:
422: Pa_Debug.G_Stage := 'Initialize error handling variables.';
423: X_Msg_Count := 0;
424: X_Error_Msg_Data := Null;
425: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
426:

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

424: X_Error_Msg_Data := Null;
425: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
426:
427: -- Lock the rbs_version record.
428: Pa_Debug.G_Stage := 'Opening cursor which locks the Rbs Version.';
429: Open cLockVersionRec(P_Id => P_RBS_Version_Id);
430: Fetch cLockVersionRec Into l_dummy;
431:
432: If cLockVersionRec%NotFound Then

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

434: Raise locked_version_rec;
435: End If;
436:
437: -- first time thru the loop for deleted records.
438: Pa_Debug.G_Stage := 'Beginning Loop thru to process DELETED records.';
439: For i in P_Rbs_Elements_Tbl.First .. P_Rbs_Elements_Tbl.Last
440: Loop
441:
442: If P_Rbs_Elements_Tbl(i).Process_Type = 'D' Then

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

442: If P_Rbs_Elements_Tbl(i).Process_Type = 'D' Then
443:
444: If P_Rbs_Elements_Tbl(i).Resource_Source_Id is Null Then
445:
446: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 1.';
447: Pa_Rbs_Elements_Utils.GetResSourceId(
448: P_Resource_Type_Id => P_Rbs_Elements_Tbl(i).Resource_Type_Id,
449: P_Resource_Source_Code => P_Rbs_Elements_Tbl(i).Resource_Source_Code,
450: X_Resource_Source_Id => l_Resource_Source_Id);

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

450: X_Resource_Source_Id => l_Resource_Source_Id);
451:
452: Else
453:
454: Pa_Debug.G_Stage := 'Assign resource source id 1.';
455: l_Resource_Source_Id := P_Rbs_Elements_Tbl(i).Resource_Source_Id;
456:
457: End If;
458:

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

455: l_Resource_Source_Id := P_Rbs_Elements_Tbl(i).Resource_Source_Id;
456:
457: End If;
458:
459: Pa_Debug.G_Stage := 'Call Process_Rbs_Elements() Pvt - 1.';
460: Pa_Rbs_Elements_Pvt.Process_Rbs_Element(
461: P_RBS_Version_Id => P_RBS_Version_Id,
462: P_Parent_Element_Id => P_Rbs_Elements_Tbl(i).Parent_Element_Id,
463: P_Element_Id => P_Rbs_Elements_Tbl(i).Rbs_Element_Id,

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

469: X_Error_Msg_Data => X_Error_Msg_Data );
470:
471: If X_Error_Msg_Data is not null Then
472:
473: Pa_Debug.G_Stage := 'Assign error message - 1.';
474: Pa_Rbs_Elements_Pub.PopulateErrorStack(
475: P_Element_Id => P_Rbs_Elements_Tbl(i).Rbs_Element_Id,
476: P_Resource_Type_Id => P_Rbs_Elements_Tbl(i).Resource_Type_Id,
477: P_Resource_Source_Id => l_Resource_Source_Id,

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

485:
486: End Loop; -- first time thru the loop for deleted records.
487:
488: -- second time thru the loop for updated records.
489: Pa_Debug.G_Stage := 'Beginning Loop thru to process UPDATE records.';
490: For i in P_Rbs_Elements_Tbl.First .. P_Rbs_Elements_Tbl.Last
491: Loop
492:
493: If P_Rbs_Elements_Tbl(i).Process_Type = 'U' Then

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

493: If P_Rbs_Elements_Tbl(i).Process_Type = 'U' Then
494:
495: If P_Rbs_Elements_Tbl(i).Resource_Source_Id is Null Then
496:
497: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 2.';
498: Pa_Rbs_Elements_Utils.GetResSourceId(
499: P_Resource_Type_Id => P_Rbs_Elements_Tbl(i).Resource_Type_Id,
500: P_Resource_Source_Code => P_Rbs_Elements_Tbl(i).Resource_Source_Code,
501: X_Resource_Source_Id => l_Resource_Source_Id);

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

501: X_Resource_Source_Id => l_Resource_Source_Id);
502:
503: Else
504:
505: Pa_Debug.G_Stage := 'Assign resource source id 2.';
506: l_Resource_Source_Id := P_Rbs_Elements_Tbl(i).Resource_Source_Id;
507:
508: End If;
509:

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

506: l_Resource_Source_Id := P_Rbs_Elements_Tbl(i).Resource_Source_Id;
507:
508: End If;
509:
510: Pa_Debug.G_Stage := 'Call Process_Rbs_Element() Pvt - 2.';
511: Pa_Rbs_Elements_Pvt.Process_Rbs_Element(
512: P_RBS_Version_Id => P_RBS_Version_Id,
513: P_Parent_Element_Id => P_Rbs_Elements_Tbl(i).Parent_Element_Id,
514: P_Element_Id => P_Rbs_Elements_Tbl(i).Rbs_Element_Id,

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

520: X_Error_Msg_Data => X_Error_Msg_Data );
521:
522: If X_Error_Msg_Data is not null Then
523:
524: Pa_Debug.G_Stage := 'Assign error message - 2.';
525: Pa_Rbs_Elements_Pub.PopulateErrorStack(
526: P_Element_Id => P_Rbs_Elements_Tbl(i).Rbs_Element_Id,
527: P_Resource_Type_Id => P_Rbs_Elements_Tbl(i).Resource_Type_Id,
528: P_Resource_Source_Id => l_Resource_Source_Id,

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

536:
537: End Loop; -- second time thru the loop for updated records.
538:
539: -- third time thru the loop for add records.
540: Pa_Debug.G_Stage := 'Beginning Loop thru to process ADD records.';
541: For i in P_Rbs_Elements_Tbl.First .. P_Rbs_Elements_Tbl.Last
542: Loop
543:
544: If P_Rbs_Elements_Tbl(i).Process_Type = 'A' Then

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

544: If P_Rbs_Elements_Tbl(i).Process_Type = 'A' Then
545:
546: If P_Rbs_Elements_Tbl(i).Resource_Source_Id is Null Then
547:
548: Pa_Debug.G_Stage := 'Get Resource Source Id using code - 3.';
549: Pa_Rbs_Elements_Utils.GetResSourceId(
550: P_Resource_Type_Id => P_Rbs_Elements_Tbl(i).Resource_Type_Id,
551: P_Resource_Source_Code => P_Rbs_Elements_Tbl(i).Resource_Source_Code,
552: X_Resource_Source_Id => l_Resource_Source_Id);

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

552: X_Resource_Source_Id => l_Resource_Source_Id);
553:
554: Else
555:
556: Pa_Debug.G_Stage := 'Assign resource source id 3.';
557: l_Resource_Source_Id := P_Rbs_Elements_Tbl(i).Resource_Source_Id;
558:
559: End If;
560:

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

557: l_Resource_Source_Id := P_Rbs_Elements_Tbl(i).Resource_Source_Id;
558:
559: End If;
560:
561: Pa_Debug.G_Stage := 'Call Process_Rbs_Element() Pvt - 3.';
562: Pa_Rbs_Elements_Pvt.Process_Rbs_Element(
563: P_RBS_Version_Id => P_RBS_Version_Id,
564: P_Parent_Element_Id => P_Rbs_Elements_Tbl(i).Parent_Element_Id,
565: P_Element_Id => P_Rbs_Elements_Tbl(i).Rbs_Element_Id,

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

571: X_Error_Msg_Data => X_Error_Msg_Data );
572:
573: If X_Error_Msg_Data is not null Then
574:
575: Pa_Debug.G_Stage := 'Assign error message - 3.';
576: Pa_Rbs_Elements_Pub.PopulateErrorStack(
577: P_Element_Id => P_Rbs_Elements_Tbl(i).Rbs_Element_Id,
578: P_Resource_Type_Id => P_Rbs_Elements_Tbl(i).Resource_Type_Id,
579: P_Resource_Source_Id => l_Resource_Source_Id,

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

588: l_Parent_Element_Id_Tbl(i) := P_Rbs_Elements_Tbl(i).Parent_Element_Id;
589:
590: End Loop; -- third time thru the loop for add records.
591:
592: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - '|| P_Commit;
593: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
594:
595: Commit;
596:

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

595: Commit;
596:
597: End If;
598:
599: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';
600: Close cLockVersionRec;
601:
602: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';
603: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub-AMG');

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

598:
599: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';
600: Close cLockVersionRec;
601:
602: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';
603: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub-AMG');
604:
605: Exception
606: When locked_version_rec Then

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

599: Pa_Debug.G_Stage := 'Closing cursor which locked the Rbs Version.';
600: Close cLockVersionRec;
601:
602: Pa_Debug.G_Stage := 'Leaving Process_Rbs_Elements() Pub procedure.';
603: Pa_Debug.TrackPath('STRIP','Process_Rbs_Elements Pub-AMG');
604:
605: Exception
606: When locked_version_rec Then
607: X_Return_Status := 'E';

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

609: X_Error_Msg_Data := 'Unable to lock the Rbs Version to process its elements.';
610: When Others Then
611: X_Return_Status := 'E';
612: X_Msg_Count := 1;
613: X_Error_Msg_Data := Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
614: Rollback;
615:
616: End Process_Rbs_Elements;
617:

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

683: And Language = UserEnv('LANG');
684:
685: Begin
686:
687: Pa_Debug.G_Stage := 'Entering PopulateErrorStack() procedure.';
688: Pa_Debug.TrackPath('ADD','PopulateErrorStack');
689:
690: Pa_Debug.G_Stage := 'Get translated meaning for Resource Type.';
691: Open c1('RESOURCE_TYPE');

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

684:
685: Begin
686:
687: Pa_Debug.G_Stage := 'Entering PopulateErrorStack() procedure.';
688: Pa_Debug.TrackPath('ADD','PopulateErrorStack');
689:
690: Pa_Debug.G_Stage := 'Get translated meaning for Resource Type.';
691: Open c1('RESOURCE_TYPE');
692: Fetch c1 Into l_Temp_Res_Type;

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

686:
687: Pa_Debug.G_Stage := 'Entering PopulateErrorStack() procedure.';
688: Pa_Debug.TrackPath('ADD','PopulateErrorStack');
689:
690: Pa_Debug.G_Stage := 'Get translated meaning for Resource Type.';
691: Open c1('RESOURCE_TYPE');
692: Fetch c1 Into l_Temp_Res_Type;
693: Close c1;
694:

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

691: Open c1('RESOURCE_TYPE');
692: Fetch c1 Into l_Temp_Res_Type;
693: Close c1;
694:
695: Pa_Debug.G_Stage := 'Get translated meaning for Resource.';
696: Open c1('RESOURCE');
697: Fetch c1 Into l_Temp_Res;
698: Close c1;
699:

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

722: End If;
723:
724: If P_Calling_Page = 'VERSION_ELEMENTS' Then
725:
726: Pa_Debug.G_Stage := 'Get translated meaning for Parent.';
727: Open c1('OUTLINE_NUMBER');
728: Fetch c1 Into l_Outline;
729: Close c1;
730:

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

727: Open c1('OUTLINE_NUMBER');
728: Fetch c1 Into l_Outline;
729: Close c1;
730:
731: Pa_Debug.G_Stage := 'Get element outline number.';
732: Open c2(P_Element_Id);
733: Fetch c2 Into l_Outline_Number;
734: Close c2;
735:

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

732: Open c2(P_Element_Id);
733: Fetch c2 Into l_Outline_Number;
734: Close c2;
735:
736: Pa_Debug.G_Stage := 'Building token for Version Elements format.';
737: -- Format for messages:
738: -- Outline: : Message Text
739: -- Build string with translated values for outline
740:

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

741: l_Msg_Token_Value := l_Outline || ': ' || l_Outline_Number || ': ';
742:
743: Else
744:
745: Pa_Debug.G_Stage := 'Building token for Child Elements format.';
746: -- Format for messages:
747: -- Resource Type: Resource : : Message Text
748: -- Build string with translated values for resource type, resource
749: l_Msg_Token_Value := l_temp_res_type || ': ' || l_res_type_name || ' ' || l_temp_res || ': ' ||

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

750: l_res_name || ': ';
751:
752: End If;
753:
754: Pa_Debug.G_Stage := 'Calling Pa_Utils.Add_Message() procedure.';
755: Pa_Utils.Add_Message
756: (P_App_Short_Name => 'PA',
757: P_Msg_Name => P_Error_Msg_Data,
758: P_Token1 => 'MSG_TOKEN',

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

757: P_Msg_Name => P_Error_Msg_Data,
758: P_Token1 => 'MSG_TOKEN',
759: P_Value1 => l_Msg_Token_value);
760:
761: Pa_Debug.G_Stage := 'Leaving PopulateErrorStack() procedure.';
762: Pa_Debug.TrackPath('STRIP','PopulateErrorStack');
763:
764: Exception
765: When Others Then

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

758: P_Token1 => 'MSG_TOKEN',
759: P_Value1 => l_Msg_Token_value);
760:
761: Pa_Debug.G_Stage := 'Leaving PopulateErrorStack() procedure.';
762: Pa_Debug.TrackPath('STRIP','PopulateErrorStack');
763:
764: Exception
765: When Others Then
766: Raise;