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

Line 25: Pa_Debug.G_Stage := 'Entering Create_Working_Version_Record().';

21: Is
22:
23: Begin
24:
25: Pa_Debug.G_Stage := 'Entering Create_Working_Version_Record().';
26: Pa_Debug.TrackPath('ADD','Create_Working_Version_Record');
27:
28: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Insert_Row() procedure.';
29: Pa_Rbs_Versions_Pkg.Insert_Row(

Line 26: Pa_Debug.TrackPath('ADD','Create_Working_Version_Record');

22:
23: Begin
24:
25: Pa_Debug.G_Stage := 'Entering Create_Working_Version_Record().';
26: Pa_Debug.TrackPath('ADD','Create_Working_Version_Record');
27:
28: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Insert_Row() procedure.';
29: Pa_Rbs_Versions_Pkg.Insert_Row(
30: P_Version_Number => P_Version_Number,

Line 28: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Insert_Row() procedure.';

24:
25: Pa_Debug.G_Stage := 'Entering Create_Working_Version_Record().';
26: Pa_Debug.TrackPath('ADD','Create_Working_Version_Record');
27:
28: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Insert_Row() procedure.';
29: Pa_Rbs_Versions_Pkg.Insert_Row(
30: P_Version_Number => P_Version_Number,
31: P_Rbs_Header_Id => P_Rbs_Header_Id,
32: P_Record_Version_Number => P_Record_Version_Number,

Line 50: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Insert_Row() procedure returned error msg.';

46: X_Record_Version_Number => X_Record_Version_Number,
47: X_Rbs_Version_Id => X_RBS_Version_Id,
48: X_Error_Msg_Data => X_Error_Msg_Data);
49:
50: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Insert_Row() procedure returned error msg.';
51: If X_Error_Msg_Data is Not Null And P_Mode is Null Then
52:
53: Pa_Debug.G_Stage := 'Add Message to message stack.';
54: Pa_Utils.Add_Message

Line 53: Pa_Debug.G_Stage := 'Add Message to message stack.';

49:
50: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Insert_Row() procedure returned error msg.';
51: If X_Error_Msg_Data is Not Null And P_Mode is Null Then
52:
53: Pa_Debug.G_Stage := 'Add Message to message stack.';
54: Pa_Utils.Add_Message
55: (P_App_Short_Name => 'PA',
56: P_Msg_Name => X_Error_Msg_Data);
57:

Line 60: Pa_Debug.G_Stage := 'Leaving Create_Working_Version_Record()procedure.';

56: P_Msg_Name => X_Error_Msg_Data);
57:
58: End If;
59:
60: Pa_Debug.G_Stage := 'Leaving Create_Working_Version_Record()procedure.';
61: Pa_Debug.TrackPath('STRIP','Create_Working_Version_Record');
62:
63: Exception
64: When Others Then

Line 61: Pa_Debug.TrackPath('STRIP','Create_Working_Version_Record');

57:
58: End If;
59:
60: Pa_Debug.G_Stage := 'Leaving Create_Working_Version_Record()procedure.';
61: Pa_Debug.TrackPath('STRIP','Create_Working_Version_Record');
62:
63: Exception
64: When Others Then
65: Raise;

Line 83: Pa_Debug.G_Stage := 'Entering Update_Working_Version() Pvt.';

79: Is
80:
81: Begin
82:
83: Pa_Debug.G_Stage := 'Entering Update_Working_Version() Pvt.';
84: Pa_Debug.TrackPath('ADD','Update_Working_Version Pvt');
85:
86: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Update_Row() procedure.';
87: Pa_Rbs_Versions_Pkg.Update_Row(

Line 84: Pa_Debug.TrackPath('ADD','Update_Working_Version Pvt');

80:
81: Begin
82:
83: Pa_Debug.G_Stage := 'Entering Update_Working_Version() Pvt.';
84: Pa_Debug.TrackPath('ADD','Update_Working_Version Pvt');
85:
86: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Update_Row() procedure.';
87: Pa_Rbs_Versions_Pkg.Update_Row(
88: P_RBS_Version_Id => P_RBS_Version_Id,

Line 86: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Update_Row() procedure.';

82:
83: Pa_Debug.G_Stage := 'Entering Update_Working_Version() Pvt.';
84: Pa_Debug.TrackPath('ADD','Update_Working_Version Pvt');
85:
86: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Update_Row() procedure.';
87: Pa_Rbs_Versions_Pkg.Update_Row(
88: P_RBS_Version_Id => P_RBS_Version_Id,
89: P_Name => P_Name,
90: P_Description => P_Description,

Line 100: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Update_Row() procedure returned error msg.';

96: P_Last_Update_Login => Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
97: X_Record_Version_Number => X_Record_Version_Number,
98: X_Error_Msg_Data => X_Error_Msg_Data);
99:
100: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Update_Row() procedure returned error msg.';
101: If X_Error_Msg_Data is Not Null Then
102:
103: Pa_Debug.G_Stage := 'Add Message to message stack.';
104: Pa_Utils.Add_Message

Line 103: Pa_Debug.G_Stage := 'Add Message to message stack.';

99:
100: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Update_Row() procedure returned error msg.';
101: If X_Error_Msg_Data is Not Null Then
102:
103: Pa_Debug.G_Stage := 'Add Message to message stack.';
104: Pa_Utils.Add_Message
105: (P_App_Short_Name => 'PA',
106: P_Msg_Name => X_Error_Msg_Data);
107:

Line 110: Pa_Debug.G_Stage := 'Leaving Update_Working_Version() Pvt procedure.';

106: P_Msg_Name => X_Error_Msg_Data);
107:
108: End If;
109:
110: Pa_Debug.G_Stage := 'Leaving Update_Working_Version() Pvt procedure.';
111: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pvt');
112:
113: Exception
114: When Others Then

Line 111: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pvt');

107:
108: End If;
109:
110: Pa_Debug.G_Stage := 'Leaving Update_Working_Version() Pvt procedure.';
111: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pvt');
112:
113: Exception
114: When Others Then
115: Raise;

Line 130: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pvt.';

126:
127:
128: Begin
129:
130: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pvt.';
131: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pvt');
132:
133: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Delete_Row() procedure.';
134: Pa_Rbs_Versions_Pkg.Delete_Row(

Line 131: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pvt');

127:
128: Begin
129:
130: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pvt.';
131: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pvt');
132:
133: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Delete_Row() procedure.';
134: Pa_Rbs_Versions_Pkg.Delete_Row(
135: P_RBS_Version_Id => P_RBS_Version_Id,

Line 133: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Delete_Row() procedure.';

129:
130: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pvt.';
131: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pvt');
132:
133: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Delete_Row() procedure.';
134: Pa_Rbs_Versions_Pkg.Delete_Row(
135: P_RBS_Version_Id => P_RBS_Version_Id,
136: P_Record_Version_Number => P_Record_Version_Number,
137: X_Error_Msg_Data => X_Error_Msg_Data);

Line 139: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Delete_Row() procedure returned error msg.';

135: P_RBS_Version_Id => P_RBS_Version_Id,
136: P_Record_Version_Number => P_Record_Version_Number,
137: X_Error_Msg_Data => X_Error_Msg_Data);
138:
139: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Delete_Row() procedure returned error msg.';
140: If X_Error_Msg_Data is Not Null and P_Mode is Null Then
141:
142: Pa_Debug.G_Stage := 'Add Message to message stack.';
143: Pa_Utils.Add_Message

Line 142: Pa_Debug.G_Stage := 'Add Message to message stack.';

138:
139: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Delete_Row() procedure returned error msg.';
140: If X_Error_Msg_Data is Not Null and P_Mode is Null Then
141:
142: Pa_Debug.G_Stage := 'Add Message to message stack.';
143: Pa_Utils.Add_Message
144: (P_App_Short_Name => 'PA',
145: P_Msg_Name => X_Error_Msg_Data);
146:

Line 152: Pa_Debug.G_Stage := 'Delete the working version element/nodes.';

148:
149: If X_Error_Msg_Data is Null Then
150:
151:
152: Pa_Debug.G_Stage := 'Delete the working version element/nodes.';
153: Begin
154: Delete
155: From
156: Pa_Rbs_Elements

Line 171: Pa_Debug.G_Stage := 'Leaving Delete_Working_Version() Pvt procedure.';

167:
168: End If;
169:
170:
171: Pa_Debug.G_Stage := 'Leaving Delete_Working_Version() Pvt procedure.';
172: Pa_Debug.TrackPath('STRIP','Delete_Working_Version Pvt');
173:
174: Exception
175: When Others Then

Line 172: Pa_Debug.TrackPath('STRIP','Delete_Working_Version Pvt');

168: End If;
169:
170:
171: Pa_Debug.G_Stage := 'Leaving Delete_Working_Version() Pvt procedure.';
172: Pa_Debug.TrackPath('STRIP','Delete_Working_Version Pvt');
173:
174: Exception
175: When Others Then
176: Raise;

Line 192: Pa_Debug.G_Stage := 'Entering Create_New_Working_Version().';

188: l_Error EXCEPTION;
189:
190: Begin
191:
192: Pa_Debug.G_Stage := 'Entering Create_New_Working_Version().';
193: Pa_Debug.TrackPath('ADD','Create_New_Working_Version');
194:
195:
196: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version() procedure.';

Line 193: Pa_Debug.TrackPath('ADD','Create_New_Working_Version');

189:
190: Begin
191:
192: Pa_Debug.G_Stage := 'Entering Create_New_Working_Version().';
193: Pa_Debug.TrackPath('ADD','Create_New_Working_Version');
194:
195:
196: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version() procedure.';
197: Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version(

Line 196: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version() procedure.';

192: Pa_Debug.G_Stage := 'Entering Create_New_Working_Version().';
193: Pa_Debug.TrackPath('ADD','Create_New_Working_Version');
194:
195:
196: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version() procedure.';
197: Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version(
198: P_Rbs_Version_Id => P_Rbs_Version_Id, -- the frozen version being copied
199: P_Rbs_Header_Id => P_Rbs_Header_Id,
200: P_Record_Version_Number => P_Record_Version_Number, -- This is the record_version_number of the working version

Line 204: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Copy_Frozen_Rbs_Version() procedure returned error msg.';

200: P_Record_Version_Number => P_Record_Version_Number, -- This is the record_version_number of the working version
201: X_Rbs_Version_Id => l_Rbs_Version_Id, -- The working version being copied to
202: X_Error_Msg_Data => X_Error_Msg_Data);
203:
204: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Copy_Frozen_Rbs_Version() procedure returned error msg.';
205: If X_Error_Msg_Data is Not Null Then
206:
207: Pa_Debug.G_Stage := 'Add Message to message stack.';
208: Pa_Utils.Add_Message

Line 207: Pa_Debug.G_Stage := 'Add Message to message stack.';

203:
204: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Copy_Frozen_Rbs_Version() procedure returned error msg.';
205: If X_Error_Msg_Data is Not Null Then
206:
207: Pa_Debug.G_Stage := 'Add Message to message stack.';
208: Pa_Utils.Add_Message
209: (P_App_Short_Name => 'PA',
210: P_Msg_Name => X_Error_Msg_Data);
211:

Line 216: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Elements() procedure.';

212: Raise l_Error;
213:
214: End If;
215:
216: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Elements() procedure.';
217:
218:
219: Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Elements(
220: P_Rbs_Version_From_Id => P_Rbs_Version_Id, -- this is the frozen version being copied from

Line 225: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Copy_Frozen_Rbs_Elements() procedure returned error msg.';

221: P_Rbs_Version_To_Id => l_Rbs_Version_Id, -- this is the working version being copied to
222: X_Error_Msg_Data => X_Error_Msg_Data);
223:
224:
225: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Copy_Frozen_Rbs_Elements() procedure returned error msg.';
226: If X_Error_Msg_Data is Not Null Then
227:
228: Pa_Debug.G_Stage := 'Add Message to message stack.';
229: Pa_Utils.Add_Message

Line 228: Pa_Debug.G_Stage := 'Add Message to message stack.';

224:
225: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Copy_Frozen_Rbs_Elements() procedure returned error msg.';
226: If X_Error_Msg_Data is Not Null Then
227:
228: Pa_Debug.G_Stage := 'Add Message to message stack.';
229: Pa_Utils.Add_Message
230: (P_App_Short_Name => 'PA',
231: P_Msg_Name => X_Error_Msg_Data);
232:

Line 235: Pa_Debug.G_Stage := 'Leaving Create_New_Working_Version() procedure.';

231: P_Msg_Name => X_Error_Msg_Data);
232:
233: End If;
234:
235: Pa_Debug.G_Stage := 'Leaving Create_New_Working_Version() procedure.';
236: Pa_Debug.TrackPath('STRIP','Create_New_Working_Version');
237:
238:
239:

Line 236: Pa_Debug.TrackPath('STRIP','Create_New_Working_Version');

232:
233: End If;
234:
235: Pa_Debug.G_Stage := 'Leaving Create_New_Working_Version() procedure.';
236: Pa_Debug.TrackPath('STRIP','Create_New_Working_Version');
237:
238:
239:
240: Exception

Line 354: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Version() procedure.';

350: l_Rbs_Element_Name_Id Number(15) := Null;
351:
352: BEGIN
353:
354: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Version() procedure.';
355: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Version');
356:
357: Pa_Debug.G_Stage := 'Check if the rbs_version_id to copy from parameter is populated.';
358: If P_Rbs_Version_Id is Null Then

Line 355: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Version');

351:
352: BEGIN
353:
354: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Version() procedure.';
355: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Version');
356:
357: Pa_Debug.G_Stage := 'Check if the rbs_version_id to copy from parameter is populated.';
358: If P_Rbs_Version_Id is Null Then
359:

Line 357: Pa_Debug.G_Stage := 'Check if the rbs_version_id to copy from parameter is populated.';

353:
354: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Version() procedure.';
355: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Version');
356:
357: Pa_Debug.G_Stage := 'Check if the rbs_version_id to copy from parameter is populated.';
358: If P_Rbs_Version_Id is Null Then
359:
360: Pa_Debug.G_Stage := 'Get the max rbs version id for the rbs header as the copy from rbs version.';
361: Open GetMaxFrozenRbsVersionId(P_Rbs_Header_Id);

Line 360: Pa_Debug.G_Stage := 'Get the max rbs version id for the rbs header as the copy from rbs version.';

356:
357: Pa_Debug.G_Stage := 'Check if the rbs_version_id to copy from parameter is populated.';
358: If P_Rbs_Version_Id is Null Then
359:
360: Pa_Debug.G_Stage := 'Get the max rbs version id for the rbs header as the copy from rbs version.';
361: Open GetMaxFrozenRbsVersionId(P_Rbs_Header_Id);
362: Fetch GetMaxFrozenRbsVersionId Into l_Rbs_Version_From_Id;
363: Close GetMaxFrozenRbsVersionId;
364:

Line 367: Pa_Debug.G_Stage := 'Using the rbs version id passed in as the copy from rbs version.';

363: Close GetMaxFrozenRbsVersionId;
364:
365: Else
366:
367: Pa_Debug.G_Stage := 'Using the rbs version id passed in as the copy from rbs version.';
368: l_Rbs_Version_From_Id := P_Rbs_Version_Id;
369:
370: End If;
371:

Line 372: Pa_Debug.G_Stage := 'Get details from record in pa_rbs_versions_b to copy from.';

368: l_Rbs_Version_From_Id := P_Rbs_Version_Id;
369:
370: End If;
371:
372: Pa_Debug.G_Stage := 'Get details from record in pa_rbs_versions_b to copy from.';
373: /* To get the details of selected version*/
374: Open GetDetails(l_Rbs_Version_From_Id);
375: Fetch GetDetails Into GetDetails_Rec;
376: If GetDetails%NotFound Then

Line 378: Pa_Debug.G_Stage := 'No frozen version record found.';

374: Open GetDetails(l_Rbs_Version_From_Id);
375: Fetch GetDetails Into GetDetails_Rec;
376: If GetDetails%NotFound Then
377:
378: Pa_Debug.G_Stage := 'No frozen version record found.';
379: l_Frozen_Rbs_Ver_Exists := False;
380: Close GetDetails;
381:
382: Else

Line 387: Pa_Debug.G_Stage := 'Get details from record in pa_rbs_versions_tl to copy from.';

383:
384: l_Frozen_Rbs_Ver_Exists := True;
385: Close GetDetails;
386:
387: Pa_Debug.G_Stage := 'Get details from record in pa_rbs_versions_tl to copy from.';
388: Open GetDetails2(l_Rbs_Version_From_Id);
389: Fetch GetDetails2 Into GetDetails_Rec2;
390: Close GetDetails2;
391:

Line 394: Pa_Debug.G_Stage := 'Get working version record data from pa_rbs_versions_b.';

390: Close GetDetails2;
391:
392: End If;
393:
394: Pa_Debug.G_Stage := 'Get working version record data from pa_rbs_versions_b.';
395: Open C;
396: Fetch C Into l_rvn, l_Rbs_Version_Id;
397: Close C;
398:

Line 403: Pa_Debug.G_Stage := 'Check if there is a working version record or not.';

399: Open C_GetRbsElementNameId(l_Rbs_Version_Id);
400: Fetch C_GetRbsElementNameId Into l_Rbs_Element_Name_Id;
401: Close C_GetRbsElementNameId;
402:
403: Pa_Debug.G_Stage := 'Check if there is a working version record or not.';
404: If l_RVN <> 0 or l_RVN is Not Null Then
405:
406:
407: Pa_Debug.G_Stage := 'Check if the record version parameter matches with the record ' ||

Line 407: Pa_Debug.G_Stage := 'Check if the record version parameter matches with the record ' ||

403: Pa_Debug.G_Stage := 'Check if there is a working version record or not.';
404: If l_RVN <> 0 or l_RVN is Not Null Then
405:
406:
407: Pa_Debug.G_Stage := 'Check if the record version parameter matches with the record ' ||
408: 'version number from working version..';
409: If l_Rvn = P_Record_Version_Number Then
410:
411:

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

409: If l_Rvn = P_Record_Version_Number Then
410:
411:
412: -- Delete the current working rbs version and its element/node records
413: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Delete_Working_Version() procedure.';
414: Pa_Rbs_Versions_Pvt.Delete_Working_Version(
415: P_Mode => 'COPYING_FROZEN_VERSION',
416: P_Rbs_Version_Id => l_Rbs_Version_Id,
417: P_Record_Version_Number => P_Record_Version_Number,

Line 420: Pa_Debug.G_Stage := 'Delete the record in pa_rbs_element_names table corresponding to that ' ||

416: P_Rbs_Version_Id => l_Rbs_Version_Id,
417: P_Record_Version_Number => P_Record_Version_Number,
418: X_Error_Msg_Data => X_Error_Msg_Data);
419:
420: Pa_Debug.G_Stage := 'Delete the record in pa_rbs_element_names table corresponding to that ' ||
421: 'of top most element in pa_rbs_elements table.';
422: If X_Error_Msg_Data is null then
423:
424: Begin

Line 446: Pa_Debug.G_Stage := 'Add Message to message stack.';

442: Raise;
443: End;
444: Else
445:
446: Pa_Debug.G_Stage := 'Add Message to message stack.';
447: Pa_Utils.Add_Message
448: (P_App_Short_Name => 'PA',
449: P_Msg_Name => X_Error_Msg_Data);
450: End If;

Line 454: Pa_Debug.G_Stage := 'Unable to lock record. Raise user defined error.';

450: End If;
451:
452: Else
453:
454: Pa_Debug.G_Stage := 'Unable to lock record. Raise user defined error.';
455: Raise l_Record_Locked;
456:
457: End If;
458:

Line 461: Pa_Debug.G_Stage := 'Increment the record version number based on the value passed in.';

457: End If;
458:
459: End If ; -- end of if l_rvn <>0
460:
461: Pa_Debug.G_Stage := 'Increment the record version number based on the value passed in.';
462: l_Rec_Version_Number := Nvl(P_Record_Version_number,0) + 1;
463:
464: Pa_Debug.G_Stage := 'Derived next available version number for use in creating new working version record.';
465: Select

Line 464: Pa_Debug.G_Stage := 'Derived next available version number for use in creating new working version record.';

460:
461: Pa_Debug.G_Stage := 'Increment the record version number based on the value passed in.';
462: l_Rec_Version_Number := Nvl(P_Record_Version_number,0) + 1;
463:
464: Pa_Debug.G_Stage := 'Derived next available version number for use in creating new working version record.';
465: Select
466: Nvl(Max(Version_Number),0) + 1
467: Into
468: l_Version_Number

Line 474: Pa_Debug.G_Stage := 'Get the Rbs Name from pa_rbs_headers_tl.';

470: Pa_Rbs_Versions_B
471: Where
472: Rbs_Header_Id = P_Rbs_Header_Id;
473:
474: Pa_Debug.G_Stage := 'Get the Rbs Name from pa_rbs_headers_tl.';
475: Select
476: Name
477: Into
478: l_Name

Line 487: Pa_Debug.G_Stage := 'Create new version name based on the header name and avaliable version number.';

483: --MLS Changes
484: --And Source_lang = UserEnv('LANG');
485: And Language = UserEnv('LANG');
486:
487: Pa_Debug.G_Stage := 'Create new version name based on the header name and avaliable version number.';
488: l_name := l_name || ' ' || to_char(l_Version_Number);
489:
490: If l_Frozen_Rbs_Ver_Exists Then
491:

Line 492: Pa_Debug.G_Stage := 'Use the version end date of last frozen version to derive new start date adding 1 to it.';

488: l_name := l_name || ' ' || to_char(l_Version_Number);
489:
490: If l_Frozen_Rbs_Ver_Exists Then
491:
492: Pa_Debug.G_Stage := 'Use the version end date of last frozen version to derive new start date adding 1 to it.';
493: GetDetails_Rec.Version_End_Date := GetDetails_Rec.Version_End_Date + 1;
494:
495: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Insert_Row() procedure from existing .';
496: Pa_Rbs_Versions_Pvt.Create_Working_Version_Record(

Line 495: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Insert_Row() procedure from existing .';

491:
492: Pa_Debug.G_Stage := 'Use the version end date of last frozen version to derive new start date adding 1 to it.';
493: GetDetails_Rec.Version_End_Date := GetDetails_Rec.Version_End_Date + 1;
494:
495: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Insert_Row() procedure from existing .';
496: Pa_Rbs_Versions_Pvt.Create_Working_Version_Record(
497: P_Mode => 'COPYING_FROZEN_VERSION',
498: P_Version_Number => l_Version_Number,
499: P_Rbs_Header_Id => P_Rbs_Header_Id,

Line 519: Pa_Debug.G_Stage := 'This is the first version and the start date must match the header from date, so get from header.';

515: --Bug: 4537865
516:
517: Else
518:
519: Pa_Debug.G_Stage := 'This is the first version and the start date must match the header from date, so get from header.';
520: Open c_GetHdrFromDate(P_Hdr_Id => P_Rbs_Header_Id);
521: Fetch c_GetHdrFromDate Into l_Hdr_From_Date;
522: Close c_GetHdrFromDate;
523:

Line 524: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Insert_Row() procedure brand new.';

520: Open c_GetHdrFromDate(P_Hdr_Id => P_Rbs_Header_Id);
521: Fetch c_GetHdrFromDate Into l_Hdr_From_Date;
522: Close c_GetHdrFromDate;
523:
524: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Insert_Row() procedure brand new.';
525: Pa_Rbs_Versions_Pvt.Create_Working_Version_Record(
526: P_Mode => 'COPYING_FROZEN_VERSION',
527: P_Version_Number => l_Version_Number,
528: P_Rbs_Header_Id => P_Rbs_Header_Id,

Line 548: Pa_Debug.G_Stage := 'Leaving Copy_Frozen_Rbs_Version() procedure.';

544: -- Bug: 4537865
545:
546: End If;
547:
548: Pa_Debug.G_Stage := 'Leaving Copy_Frozen_Rbs_Version() procedure.';
549: Pa_Debug.TrackPath('STRIP','Copy_Frozen_Rbs_Version');
550:
551: Exception
552: When l_Record_Locked Then

Line 549: Pa_Debug.TrackPath('STRIP','Copy_Frozen_Rbs_Version');

545:
546: End If;
547:
548: Pa_Debug.G_Stage := 'Leaving Copy_Frozen_Rbs_Version() procedure.';
549: Pa_Debug.TrackPath('STRIP','Copy_Frozen_Rbs_Version');
550:
551: Exception
552: When l_Record_Locked Then
553: X_Error_Msg_Data := 'PA_RECORD_ALREADY_UPDATED';

Line 575: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Elements() procedure.';

571: l_Error Exception;
572:
573: Begin
574:
575: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Elements() procedure.';
576: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Elements');
577:
578: Pa_Debug.G_Stage := 'Delete all records from Pa_Rbs_Elements_Temp.';
579: Begin

Line 576: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Elements');

572:
573: Begin
574:
575: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Elements() procedure.';
576: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Elements');
577:
578: Pa_Debug.G_Stage := 'Delete all records from Pa_Rbs_Elements_Temp.';
579: Begin
580:

Line 578: Pa_Debug.G_Stage := 'Delete all records from Pa_Rbs_Elements_Temp.';

574:
575: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Elements() procedure.';
576: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Elements');
577:
578: Pa_Debug.G_Stage := 'Delete all records from Pa_Rbs_Elements_Temp.';
579: Begin
580:
581: Delete
582: From Pa_Rbs_Elements_Temp;

Line 590: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements_Temp that are to be copied.';

586: null;
587:
588: End;
589:
590: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements_Temp that are to be copied.';
591: /*******************************************************
592: * Bug - 3591534
593: * Desc - while inserting into Pa_Rbs_Elements_Temp elements that
594: * are to be copied, we should only select elements where

Line 613: Pa_Debug.G_Stage := 'Update Pa_Rbs_Elements_Temp records with the correct parent element id.';

609: Where
610: Rbs_Version_Id = P_Rbs_Version_From_Id
611: and user_created_flag = 'Y' );
612:
613: Pa_Debug.G_Stage := 'Update Pa_Rbs_Elements_Temp records with the correct parent element id.';
614: Update Pa_Rbs_Elements_Temp Tmp1
615: Set New_Parent_Element_Id =
616: (Select
617: New_Element_Id

Line 623: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements new records.';

619: Pa_Rbs_Elements_Temp Tmp2
620: Where
621: Tmp1.Old_Parent_Element_Id = Tmp2.Old_Element_Id);
622:
623: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements new records.';
624:
625: /*Bug 4377886 : Included explicitly the column names in the INSERT statement
626: to remove the GSCC Warning File.Sql.33 */
627: Insert Into Pa_Rbs_Elements

Line 718: Pa_Debug.G_Stage := 'Now getting a new rbs_element_name_id for the root element since it is based on rbs_version_id.';

714: Tmp.Old_Element_Id = Rbs_Elements.Rbs_Element_Id;
715:
716: --Bug 3592145
717: --Deriving the element_name_id
718: Pa_Debug.G_Stage := 'Now getting a new rbs_element_name_id for the root element since it is based on rbs_version_id.';
719: Pa_Rbs_Utils.Populate_RBS_Element_Name (
720: P_Resource_Source_Id => P_Rbs_Version_To_Id,
721: P_Resource_Type_Id => -1,
722: X_Rbs_Element_Name_Id => l_new_element_name_id,

Line 725: Pa_Debug.G_Stage := 'Check Pa_Rbs_Utils.Populate_RBS_Element_Name() returns error or not for getting ' ||

721: P_Resource_Type_Id => -1,
722: X_Rbs_Element_Name_Id => l_new_element_name_id,
723: X_Return_Status => l_Dummy_Error_Status);
724:
725: Pa_Debug.G_Stage := 'Check Pa_Rbs_Utils.Populate_RBS_Element_Name() returns error or not for getting ' ||
726: 'root element element_name_id.';
727: If l_Dummy_Error_Status = Fnd_Api.G_Ret_Sts_Success Then
728:
729: Pa_Debug.G_Stage := 'Updating the root element rbs record with the new element_name_id.';

Line 729: Pa_Debug.G_Stage := 'Updating the root element rbs record with the new element_name_id.';

725: Pa_Debug.G_Stage := 'Check Pa_Rbs_Utils.Populate_RBS_Element_Name() returns error or not for getting ' ||
726: 'root element element_name_id.';
727: If l_Dummy_Error_Status = Fnd_Api.G_Ret_Sts_Success Then
728:
729: Pa_Debug.G_Stage := 'Updating the root element rbs record with the new element_name_id.';
730: Update Pa_Rbs_Elements
731: Set Rbs_Element_Name_Id = l_New_Element_Name_Id,
732: Resource_Source_Id = P_Rbs_Version_To_Id
733: Where Rbs_Version_Id = P_Rbs_Version_To_Id

Line 743: Pa_Debug.G_Stage := 'Leaving Copy_Frozen_Rbs_Elements() procedure.';

739: Raise l_Error;
740:
741: End If;
742:
743: Pa_Debug.G_Stage := 'Leaving Copy_Frozen_Rbs_Elements() procedure.';
744: Pa_Debug.TrackPath('STRIP','Copy_Frozen_Rbs_Elements');
745:
746: Exception
747: When Others Then

Line 744: Pa_Debug.TrackPath('STRIP','Copy_Frozen_Rbs_Elements');

740:
741: End If;
742:
743: Pa_Debug.G_Stage := 'Leaving Copy_Frozen_Rbs_Elements() procedure.';
744: Pa_Debug.TrackPath('STRIP','Copy_Frozen_Rbs_Elements');
745:
746: Exception
747: When Others Then
748: Raise;