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 26: Pa_Debug.G_Stage := 'Entering Create_Working_Version_Record().';

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

110: P_Msg_Name => X_Error_Msg_Data);
111:
112: End If;
113:
114: Pa_Debug.G_Stage := 'Leaving Update_Working_Version() Pvt procedure.';
115: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pvt');
116:
117: Exception
118: When Others Then

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

111:
112: End If;
113:
114: Pa_Debug.G_Stage := 'Leaving Update_Working_Version() Pvt procedure.';
115: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pvt');
116:
117: Exception
118: When Others Then
119: Raise;

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

130:
131:
132: Begin
133:
134: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pvt.';
135: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pvt');
136:
137: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Delete_Row() procedure.';
138: Pa_Rbs_Versions_Pkg.Delete_Row(

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

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

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

133:
134: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pvt.';
135: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pvt');
136:
137: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Delete_Row() procedure.';
138: Pa_Rbs_Versions_Pkg.Delete_Row(
139: P_RBS_Version_Id => P_RBS_Version_Id,
140: P_Record_Version_Number => P_Record_Version_Number,
141: X_Error_Msg_Data => X_Error_Msg_Data);

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

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

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

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

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

152:
153: If X_Error_Msg_Data is Null Then
154:
155:
156: Pa_Debug.G_Stage := 'Delete the working version element/nodes.';
157: Begin
158: Delete
159: From
160: Pa_Rbs_Elements

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

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

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

172: End If;
173:
174:
175: Pa_Debug.G_Stage := 'Leaving Delete_Working_Version() Pvt procedure.';
176: Pa_Debug.TrackPath('STRIP','Delete_Working_Version Pvt');
177:
178: Exception
179: When Others Then
180: Raise;

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

192: l_Error EXCEPTION;
193:
194: Begin
195:
196: Pa_Debug.G_Stage := 'Entering Create_New_Working_Version().';
197: Pa_Debug.TrackPath('ADD','Create_New_Working_Version');
198:
199:
200: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version() procedure.';

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

193:
194: Begin
195:
196: Pa_Debug.G_Stage := 'Entering Create_New_Working_Version().';
197: Pa_Debug.TrackPath('ADD','Create_New_Working_Version');
198:
199:
200: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version() procedure.';
201: Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version(

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

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

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

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

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

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

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

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

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

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

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

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

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

235: P_Msg_Name => X_Error_Msg_Data);
236:
237: End If;
238:
239: Pa_Debug.G_Stage := 'Leaving Create_New_Working_Version() procedure.';
240: Pa_Debug.TrackPath('STRIP','Create_New_Working_Version');
241:
242:
243:

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

236:
237: End If;
238:
239: Pa_Debug.G_Stage := 'Leaving Create_New_Working_Version() procedure.';
240: Pa_Debug.TrackPath('STRIP','Create_New_Working_Version');
241:
242:
243:
244: Exception

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

355: l_Rbs_Element_Name_Id Number(15) := Null;
356:
357: BEGIN
358:
359: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Version() procedure.';
360: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Version');
361:
362: Pa_Debug.G_Stage := 'Check if the rbs_version_id to copy from parameter is populated.';
363: If P_Rbs_Version_Id is Null Then

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

356:
357: BEGIN
358:
359: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Version() procedure.';
360: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Version');
361:
362: Pa_Debug.G_Stage := 'Check if the rbs_version_id to copy from parameter is populated.';
363: If P_Rbs_Version_Id is Null Then
364:

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

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

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

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

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

368: Close GetMaxFrozenRbsVersionId;
369:
370: Else
371:
372: Pa_Debug.G_Stage := 'Using the rbs version id passed in as the copy from rbs version.';
373: l_Rbs_Version_From_Id := P_Rbs_Version_Id;
374:
375: End If;
376:

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

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

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

379: Open GetDetails(l_Rbs_Version_From_Id);
380: Fetch GetDetails Into GetDetails_Rec;
381: If GetDetails%NotFound Then
382:
383: Pa_Debug.G_Stage := 'No frozen version record found.';
384: l_Frozen_Rbs_Ver_Exists := False;
385: Close GetDetails;
386:
387: Else

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

388:
389: l_Frozen_Rbs_Ver_Exists := True;
390: Close GetDetails;
391:
392: Pa_Debug.G_Stage := 'Get details from record in pa_rbs_versions_tl to copy from.';
393: Open GetDetails2(l_Rbs_Version_From_Id);
394: Fetch GetDetails2 Into GetDetails_Rec2;
395: Close GetDetails2;
396:

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

395: Close GetDetails2;
396:
397: End If;
398:
399: Pa_Debug.G_Stage := 'Get working version record data from pa_rbs_versions_b.';
400: Open C;
401: Fetch C Into l_rvn, l_Rbs_Version_Id;
402: Close C;
403:

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

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

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

408: Pa_Debug.G_Stage := 'Check if there is a working version record or not.';
409: If l_RVN <> 0 or l_RVN is Not Null Then
410:
411:
412: Pa_Debug.G_Stage := 'Check if the record version parameter matches with the record ' ||
413: 'version number from working version..';
414: If l_Rvn = P_Record_Version_Number Then
415:
416:

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

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

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

421: P_Rbs_Version_Id => l_Rbs_Version_Id,
422: P_Record_Version_Number => P_Record_Version_Number,
423: X_Error_Msg_Data => X_Error_Msg_Data);
424:
425: Pa_Debug.G_Stage := 'Delete the record in pa_rbs_element_names table corresponding to that ' ||
426: 'of top most element in pa_rbs_elements table.';
427: If X_Error_Msg_Data is null then
428:
429: Begin

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

447: Raise;
448: End;
449: Else
450:
451: Pa_Debug.G_Stage := 'Add Message to message stack.';
452: Pa_Utils.Add_Message
453: (P_App_Short_Name => 'PA',
454: P_Msg_Name => X_Error_Msg_Data);
455: End If;

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

455: End If;
456:
457: Else
458:
459: Pa_Debug.G_Stage := 'Unable to lock record. Raise user defined error.';
460: Raise l_Record_Locked;
461:
462: End If;
463:

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

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

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

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

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

475: Pa_Rbs_Versions_B
476: Where
477: Rbs_Header_Id = P_Rbs_Header_Id;
478:
479: Pa_Debug.G_Stage := 'Get the Rbs Name from pa_rbs_headers_tl.';
480: Select
481: Name
482: Into
483: l_Name

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

488: --MLS Changes
489: --And Source_lang = UserEnv('LANG');
490: And Language = UserEnv('LANG');
491:
492: Pa_Debug.G_Stage := 'Create new version name based on the header name and avaliable version number.';
493: l_name := l_name || ' ' || to_char(l_Version_Number);
494:
495: If l_Frozen_Rbs_Ver_Exists Then
496:

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

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

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

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

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

521: --Bug: 4537865
522:
523: Else
524:
525: Pa_Debug.G_Stage := 'This is the first version and the start date must match the header from date, so get from header.';
526: Open c_GetHdrFromDate(P_Hdr_Id => P_Rbs_Header_Id);
527: Fetch c_GetHdrFromDate Into l_Hdr_From_Date;
528: Close c_GetHdrFromDate;
529:

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

526: Open c_GetHdrFromDate(P_Hdr_Id => P_Rbs_Header_Id);
527: Fetch c_GetHdrFromDate Into l_Hdr_From_Date;
528: Close c_GetHdrFromDate;
529:
530: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Insert_Row() procedure brand new.';
531: Pa_Rbs_Versions_Pvt.Create_Working_Version_Record(
532: P_Mode => 'COPYING_FROZEN_VERSION',
533: P_Version_Number => l_Version_Number,
534: P_Rbs_Header_Id => P_Rbs_Header_Id,

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

551: -- Bug: 4537865
552:
553: End If;
554:
555: Pa_Debug.G_Stage := 'Leaving Copy_Frozen_Rbs_Version() procedure.';
556: Pa_Debug.TrackPath('STRIP','Copy_Frozen_Rbs_Version');
557:
558: Exception
559: When l_Record_Locked Then

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

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

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

578: l_Error Exception;
579:
580: Begin
581:
582: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Elements() procedure.';
583: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Elements');
584:
585: Pa_Debug.G_Stage := 'Delete all records from Pa_Rbs_Elements_Temp.';
586: Begin

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

579:
580: Begin
581:
582: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Elements() procedure.';
583: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Elements');
584:
585: Pa_Debug.G_Stage := 'Delete all records from Pa_Rbs_Elements_Temp.';
586: Begin
587:

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

581:
582: Pa_Debug.G_Stage := 'Entering Copy_Frozen_Rbs_Elements() procedure.';
583: Pa_Debug.TrackPath('ADD','Copy_Frozen_Rbs_Elements');
584:
585: Pa_Debug.G_Stage := 'Delete all records from Pa_Rbs_Elements_Temp.';
586: Begin
587:
588: Delete
589: From Pa_Rbs_Elements_Temp;

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

593: null;
594:
595: End;
596:
597: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements_Temp that are to be copied.';
598: /*******************************************************
599: * Bug - 3591534
600: * Desc - while inserting into Pa_Rbs_Elements_Temp elements that
601: * are to be copied, we should only select elements where

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

616: Where
617: Rbs_Version_Id = P_Rbs_Version_From_Id
618: and user_created_flag = 'Y' );
619:
620: Pa_Debug.G_Stage := 'Update Pa_Rbs_Elements_Temp records with the correct parent element id.';
621: Update Pa_Rbs_Elements_Temp Tmp1
622: Set New_Parent_Element_Id =
623: (Select
624: New_Element_Id

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

626: Pa_Rbs_Elements_Temp Tmp2
627: Where
628: Tmp1.Old_Parent_Element_Id = Tmp2.Old_Element_Id);
629:
630: Pa_Debug.G_Stage := 'Insert into Pa_Rbs_Elements new records.';
631:
632: /*Bug 4377886 : Included explicitly the column names in the INSERT statement
633: to remove the GSCC Warning File.Sql.33 */
634: Insert Into Pa_Rbs_Elements

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

721: Tmp.Old_Element_Id = Rbs_Elements.Rbs_Element_Id;
722:
723: --Bug 3592145
724: --Deriving the element_name_id
725: Pa_Debug.G_Stage := 'Now getting a new rbs_element_name_id for the root element since it is based on rbs_version_id.';
726: Pa_Rbs_Utils.Populate_RBS_Element_Name (
727: P_Resource_Source_Id => P_Rbs_Version_To_Id,
728: P_Resource_Type_Id => -1,
729: X_Rbs_Element_Name_Id => l_new_element_name_id,

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

728: P_Resource_Type_Id => -1,
729: X_Rbs_Element_Name_Id => l_new_element_name_id,
730: X_Return_Status => l_Dummy_Error_Status);
731:
732: Pa_Debug.G_Stage := 'Check Pa_Rbs_Utils.Populate_RBS_Element_Name() returns error or not for getting ' ||
733: 'root element element_name_id.';
734: If l_Dummy_Error_Status = Fnd_Api.G_Ret_Sts_Success Then
735:
736: Pa_Debug.G_Stage := 'Updating the root element rbs record with the new element_name_id.';

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

732: Pa_Debug.G_Stage := 'Check Pa_Rbs_Utils.Populate_RBS_Element_Name() returns error or not for getting ' ||
733: 'root element element_name_id.';
734: If l_Dummy_Error_Status = Fnd_Api.G_Ret_Sts_Success Then
735:
736: Pa_Debug.G_Stage := 'Updating the root element rbs record with the new element_name_id.';
737: Update Pa_Rbs_Elements
738: Set Rbs_Element_Name_Id = l_New_Element_Name_Id,
739: Resource_Source_Id = P_Rbs_Version_To_Id
740: Where Rbs_Version_Id = P_Rbs_Version_To_Id

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

746: Raise l_Error;
747:
748: End If;
749:
750: Pa_Debug.G_Stage := 'Leaving Copy_Frozen_Rbs_Elements() procedure.';
751: Pa_Debug.TrackPath('STRIP','Copy_Frozen_Rbs_Elements');
752:
753: Exception
754: When Others Then

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

747:
748: End If;
749:
750: Pa_Debug.G_Stage := 'Leaving Copy_Frozen_Rbs_Elements() procedure.';
751: Pa_Debug.TrackPath('STRIP','Copy_Frozen_Rbs_Elements');
752:
753: Exception
754: When Others Then
755: Raise;