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

Line 98: Pa_Debug.G_Path := ' ';

94: Begin
95:
96: If P_Process_Version = 'Y' Then
97:
98: Pa_Debug.G_Path := ' ';
99:
100: End If;
101:
102: Pa_Debug.G_Stage := 'Entering Update_Header().';

Line 102: Pa_Debug.G_Stage := 'Entering Update_Header().';

98: Pa_Debug.G_Path := ' ';
99:
100: End If;
101:
102: Pa_Debug.G_Stage := 'Entering Update_Header().';
103: Pa_Debug.TrackPath('ADD','Update_Header');
104:
105: Pa_Debug.G_Stage := 'Check API Version compatibility by calling Fnd_Api.Compatible_API_Call() procedure.';
106: If Not Fnd_Api.Compatible_API_Call (

Line 103: Pa_Debug.TrackPath('ADD','Update_Header');

99:
100: End If;
101:
102: Pa_Debug.G_Stage := 'Entering Update_Header().';
103: Pa_Debug.TrackPath('ADD','Update_Header');
104:
105: Pa_Debug.G_Stage := 'Check API Version compatibility by calling Fnd_Api.Compatible_API_Call() procedure.';
106: If Not Fnd_Api.Compatible_API_Call (
107: Pa_Rbs_Header_Pub.G_Api_Version_Number,

Line 105: Pa_Debug.G_Stage := 'Check API Version compatibility by calling Fnd_Api.Compatible_API_Call() procedure.';

101:
102: Pa_Debug.G_Stage := 'Entering Update_Header().';
103: Pa_Debug.TrackPath('ADD','Update_Header');
104:
105: Pa_Debug.G_Stage := 'Check API Version compatibility by calling Fnd_Api.Compatible_API_Call() procedure.';
106: If Not Fnd_Api.Compatible_API_Call (
107: Pa_Rbs_Header_Pub.G_Api_Version_Number,
108: P_Api_Version_Number,
109: l_Api_Name,

Line 112: Pa_Debug.G_Stage := 'API Version compatibility failure.';

108: P_Api_Version_Number,
109: l_Api_Name,
110: Pa_Rbs_Header_Pub.G_Pkg_Name) Then
111:
112: Pa_Debug.G_Stage := 'API Version compatibility failure.';
113: Raise Fnd_Api.G_Exc_Unexpected_Error;
114:
115: End If;
116:

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

113: Raise Fnd_Api.G_Exc_Unexpected_Error;
114:
115: End If;
116:
117: Pa_Debug.G_Stage := 'Check if need to initialize the error message stack.';
118: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
119:
120: Pa_Debug.G_Stage := 'Initialize the error message stack by callling Fnd_Msg_Pub.Initialize() procedure.';
121: Fnd_Msg_Pub.Initialize;

Line 120: Pa_Debug.G_Stage := 'Initialize the error message stack by callling Fnd_Msg_Pub.Initialize() procedure.';

116:
117: Pa_Debug.G_Stage := 'Check if need to initialize the error message stack.';
118: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
119:
120: Pa_Debug.G_Stage := 'Initialize the error message stack by callling Fnd_Msg_Pub.Initialize() procedure.';
121: Fnd_Msg_Pub.Initialize;
122:
123: End If;
124:

Line 129: Pa_Debug.G_Stage := 'Check if the paramter p_name is null.';

125: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
126: X_Msg_Count := 0;
127:
128: /* validation: Rbs name cannot be null*/
129: Pa_Debug.G_Stage := 'Check if the paramter p_name is null.';
130: If P_Name Is Null Then
131:
132: Pa_Debug.G_Stage := 'Rbs Name is null. Add message to error stage.';
133: Pa_Utils.Add_MessagE(

Line 132: Pa_Debug.G_Stage := 'Rbs Name is null. Add message to error stage.';

128: /* validation: Rbs name cannot be null*/
129: Pa_Debug.G_Stage := 'Check if the paramter p_name is null.';
130: If P_Name Is Null Then
131:
132: Pa_Debug.G_Stage := 'Rbs Name is null. Add message to error stage.';
133: Pa_Utils.Add_MessagE(
134: P_App_Short_Name => 'PA',
135: P_Msg_Name => 'PA_RBS_NAME_NULL');
136:

Line 142: Pa_Debug.G_Stage := 'Check if the Effective From Date for the RBS Header is null.';

138:
139: End If;
140:
141: /* validation: Rbs Effective From date cannot be null*/
142: Pa_Debug.G_Stage := 'Check if the Effective From Date for the RBS Header is null.';
143: If P_EffectiveFrom Is Null Then
144:
145: Pa_Debug.G_Stage := 'The Effective From Date for the RBS Header is null.';
146: Pa_Utils.Add_Message(

Line 145: Pa_Debug.G_Stage := 'The Effective From Date for the RBS Header is null.';

141: /* validation: Rbs Effective From date cannot be null*/
142: Pa_Debug.G_Stage := 'Check if the Effective From Date for the RBS Header is null.';
143: If P_EffectiveFrom Is Null Then
144:
145: Pa_Debug.G_Stage := 'The Effective From Date for the RBS Header is null.';
146: Pa_Utils.Add_Message(
147: P_App_Short_Name => 'PA',
148: P_Msg_Name => 'PA_RBS_FROM_NULL',
149: P_Token1 => 'RBSNAME',

Line 157: Pa_Debug.G_Stage := 'Check if the RBS Header Effective From Date is > Effective To Date.';

153:
154: End If;
155:
156: /* validation: Rbs effective From should always be less than effective to date */
157: Pa_Debug.G_Stage := 'Check if the RBS Header Effective From Date is > Effective To Date.';
158: If P_EffectiveFrom > P_EffectiveTo Then
159:
160: Pa_Debug.G_Stage := 'The Rbs Header Effective From Date is > Effective To Date.';
161: Pa_Utils.Add_Message(

Line 160: Pa_Debug.G_Stage := 'The Rbs Header Effective From Date is > Effective To Date.';

156: /* validation: Rbs effective From should always be less than effective to date */
157: Pa_Debug.G_Stage := 'Check if the RBS Header Effective From Date is > Effective To Date.';
158: If P_EffectiveFrom > P_EffectiveTo Then
159:
160: Pa_Debug.G_Stage := 'The Rbs Header Effective From Date is > Effective To Date.';
161: Pa_Utils.Add_Message(
162: P_App_Short_Name => 'PA',
163: P_Msg_Name => 'PA_RBS_TO_LESS_FROM',
164: P_Token1 => 'RBSNAME',

Line 172: Pa_Debug.G_Stage := 'Get the Rbs Name using the rbs header id.';

168:
169: End If;
170:
171: /* to check the uniqueness of the RBS name*/
172: Pa_Debug.G_Stage := 'Get the Rbs Name using the rbs header id.';
173: Select
174: Name
175: Into
176: l_Name

Line 183: Pa_Debug.G_Stage := 'Check if the p_name passed in matches the name already stored in the db for the rbs header id.';

179: Where
180: Rbs_Header_Id = P_RbsHeaderId
181: And language = USERENV('LANG');
182:
183: Pa_Debug.G_Stage := 'Check if the p_name passed in matches the name already stored in the db for the rbs header id.';
184: If l_Name <> P_Name Then
185:
186: Pa_Debug.G_Stage := 'Get the number of rbs headers that use the name passed in p_name parameter.';
187: Select

Line 186: Pa_Debug.G_Stage := 'Get the number of rbs headers that use the name passed in p_name parameter.';

182:
183: Pa_Debug.G_Stage := 'Check if the p_name passed in matches the name already stored in the db for the rbs header id.';
184: If l_Name <> P_Name Then
185:
186: Pa_Debug.G_Stage := 'Get the number of rbs headers that use the name passed in p_name parameter.';
187: Select
188: Count(*)
189: Into
190: l_Count

Line 197: Pa_Debug.G_Stage := 'Check if the number of rbs headers using the name.';

193: Where
194: Name = P_Name
195: And language = USERENV('LANG');
196:
197: Pa_Debug.G_Stage := 'Check if the number of rbs headers using the name.';
198: If l_Count <> 0 Then
199:
200: Pa_Debug.G_Stage := 'The p_name parameter for a new rbs name is already used. Add message to message stack.';
201: Pa_Utils.Add_Message(

Line 200: Pa_Debug.G_Stage := 'The p_name parameter for a new rbs name is already used. Add message to message stack.';

196:
197: Pa_Debug.G_Stage := 'Check if the number of rbs headers using the name.';
198: If l_Count <> 0 Then
199:
200: Pa_Debug.G_Stage := 'The p_name parameter for a new rbs name is already used. Add message to message stack.';
201: Pa_Utils.Add_Message(
202: P_App_Short_Name => 'PA',
203: P_Msg_Name => 'PA_RBS_NOT_UNIQUE',
204: P_Token1 => 'RBSNAME',

Line 214: Pa_Debug.G_Stage := 'Use cursor to lock the header record for update.';

210:
211: End If;
212:
213: /* check for locking */
214: Pa_Debug.G_Stage := 'Use cursor to lock the header record for update.';
215: Open c_Record_Ver_No;
216: Fetch c_Record_Ver_No Into RecInfo;
217:
218: Pa_Debug.G_Stage := 'Check if header record to lock.';

Line 218: Pa_Debug.G_Stage := 'Check if header record to lock.';

214: Pa_Debug.G_Stage := 'Use cursor to lock the header record for update.';
215: Open c_Record_Ver_No;
216: Fetch c_Record_Ver_No Into RecInfo;
217:
218: Pa_Debug.G_Stage := 'Check if header record to lock.';
219: If c_Record_Ver_No%NotFound Then
220:
221: Close c_Record_Ver_No;
222: End If;

Line 226: Pa_Debug.G_Stage := 'Check if the record version number retrieved matches the parameter value passed in.';

222: End If;
223:
224: Close c_Record_Ver_No;
225:
226: Pa_Debug.G_Stage := 'Check if the record version number retrieved matches the parameter value passed in.';
227: If RecInfo.Record_Version_Number = P_RecordVersionNumber Then
228:
229: Pa_Debug.G_Stage := 'The record version number matches up.';
230: Null;

Line 229: Pa_Debug.G_Stage := 'The record version number matches up.';

225:
226: Pa_Debug.G_Stage := 'Check if the record version number retrieved matches the parameter value passed in.';
227: If RecInfo.Record_Version_Number = P_RecordVersionNumber Then
228:
229: Pa_Debug.G_Stage := 'The record version number matches up.';
230: Null;
231:
232: Else
233:

Line 234: Pa_Debug.G_Stage := 'The record version number does not match up. The record has already been update ' ||

230: Null;
231:
232: Else
233:
234: Pa_Debug.G_Stage := 'The record version number does not match up. The record has already been update ' ||
235: 'other others. Add message to error stack.';
236: Pa_Utils.Add_Message(
237: P_App_Short_Name => 'PA',
238: P_Msg_Name => 'PA_RBS_HEADER_CHANGED');

Line 244: Pa_Debug.G_Stage := 'Check if any error were found.';

240: l_Error_Raised := 'Y';
241:
242: End If;
243:
244: Pa_Debug.G_Stage := 'Check if any error were found.';
245: If l_Error_Raised = 'Y' Then
246:
247: Pa_Debug.G_Stage := 'We have validation error so raising.';
248: Raise l_Error;

Line 247: Pa_Debug.G_Stage := 'We have validation error so raising.';

243:
244: Pa_Debug.G_Stage := 'Check if any error were found.';
245: If l_Error_Raised = 'Y' Then
246:
247: Pa_Debug.G_Stage := 'We have validation error so raising.';
248: Raise l_Error;
249:
250: End If;
251:

Line 269: Pa_Debug.G_Stage := 'We have rules as elements so raising error.';

265: Pa_Utils.Add_Message(
266: P_App_Short_Name => 'PA',
267: P_Msg_Name => 'PA_RBS_HAS_RULES');
268:
269: Pa_Debug.G_Stage := 'We have rules as elements so raising error.';
270: Raise l_Error;
271:
272: End If;
273: End IF;

Line 275: Pa_Debug.G_Stage := 'See if there is a frozen rbs version for this header.';

271:
272: End If;
273: End IF;
274:
275: Pa_Debug.G_Stage := 'See if there is a frozen rbs version for this header.';
276: Begin
277:
278: l_Check := 0;
279:

Line 302: Pa_Debug.G_Stage := 'Check if a version record was found.';

298: l_Check := 0;
299:
300: End;
301:
302: Pa_Debug.G_Stage := 'Check if a version record was found.';
303: If l_Check Is Null Or l_Check = 0 Then
304:
305:
306: Pa_Debug.G_Stage := 'No frozen version record was found. Update the header information by calling ' ||

Line 306: Pa_Debug.G_Stage := 'No frozen version record was found. Update the header information by calling ' ||

302: Pa_Debug.G_Stage := 'Check if a version record was found.';
303: If l_Check Is Null Or l_Check = 0 Then
304:
305:
306: Pa_Debug.G_Stage := 'No frozen version record was found. Update the header information by calling ' ||
307: 'the Pa_Rbs_Header_Pvt.Update_Header() procedure.';
308:
309: --When user checks use_for_alloc_flag there is no need to check its usage in allocation rule.
310: --The RBS has no freezed version and hence cant be used in allocation rule.

Line 323: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Header() procedure is U.';

319: X_Return_Status => X_Return_Status,
320: X_Msg_Data => X_Msg_Data,
321: X_Msg_Count => X_Msg_Count);
322:
323: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Header() procedure is U.';
324: If X_Return_Status = 'U' Then
325:
326: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Header() procedure returned Unexpected error. Raise.';
327: Raise l_UnExp_Error;

Line 326: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Header() procedure returned Unexpected error. Raise.';

322:
323: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Header() procedure is U.';
324: If X_Return_Status = 'U' Then
325:
326: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Header() procedure returned Unexpected error. Raise.';
327: Raise l_UnExp_Error;
328:
329: End If;
330:

Line 331: Pa_Debug.G_Stage := 'No frozen version record was found. Check if allow to update the version record in this module.';

327: Raise l_UnExp_Error;
328:
329: End If;
330:
331: Pa_Debug.G_Stage := 'No frozen version record was found. Check if allow to update the version record in this module.';
332: If P_Process_Version = Fnd_Api.G_True Then
333:
334: Pa_Debug.G_Stage := 'No frozen version record was found. Update the working version record for ' ||
335: 'the Rbs header by calling the Pa_Rbs_Header_Pvt.Update_Versions procedure.';

Line 334: Pa_Debug.G_Stage := 'No frozen version record was found. Update the working version record for ' ||

330:
331: Pa_Debug.G_Stage := 'No frozen version record was found. Check if allow to update the version record in this module.';
332: If P_Process_Version = Fnd_Api.G_True Then
333:
334: Pa_Debug.G_Stage := 'No frozen version record was found. Update the working version record for ' ||
335: 'the Rbs header by calling the Pa_Rbs_Header_Pvt.Update_Versions procedure.';
336: Pa_Rbs_Header_Pvt.Update_Versions(
337: P_RbsHeaderId => P_RbsHeaderId,
338: P_Name => P_Name,

Line 344: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Versions() procedure is U.';

340: X_Return_Status => X_Return_Status,
341: X_Msg_Data => X_Msg_Data,
342: X_Msg_Count => X_Msg_Count);
343:
344: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Versions() procedure is U.';
345: If X_Return_Status = 'U' Then
346:
347: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Versions() procedure returned ' ||
348: 'Unexpected error. Raise.';

Line 347: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Versions() procedure returned ' ||

343:
344: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Versions() procedure is U.';
345: If X_Return_Status = 'U' Then
346:
347: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Versions() procedure returned ' ||
348: 'Unexpected error. Raise.';
349: Raise l_UnExp_Error;
350:
351: End If;

Line 362: Pa_Debug.G_Stage := 'Found frozen versions for the rbs. Get the effective from date in the header.';

358: -- it cannot be less than effective to date of its versions. effective from cannot be updated
359: -- Also if use_for_alloc_flag is unchecked test for its usage in allocation rules. If yes raise appropriate error.
360:
361: /* validation: effective from cannot be updated*/
362: Pa_Debug.G_Stage := 'Found frozen versions for the rbs. Get the effective from date in the header.';
363: Select
364: Effective_From_Date
365: Into
366: l_EffectiveFromDate

Line 372: Pa_Debug.G_Stage := 'Check if trying to change the effective from date of the header.';

368: Pa_Rbs_Headers_B
369: Where
370: Rbs_Header_Id = P_RbsHeaderId;
371:
372: Pa_Debug.G_Stage := 'Check if trying to change the effective from date of the header.';
373: If l_EffectiveFromDate <> P_EffectiveFrom Then
374:
375: Pa_Debug.G_Stage := 'Trying to change the effective from date of the header when have frozen ' ||
376: 'rbs versions. Add message to error stack.';

Line 375: Pa_Debug.G_Stage := 'Trying to change the effective from date of the header when have frozen ' ||

371:
372: Pa_Debug.G_Stage := 'Check if trying to change the effective from date of the header.';
373: If l_EffectiveFromDate <> P_EffectiveFrom Then
374:
375: Pa_Debug.G_Stage := 'Trying to change the effective from date of the header when have frozen ' ||
376: 'rbs versions. Add message to error stack.';
377: Pa_Utils.Add_Message(
378: P_App_Short_Name => 'PA',
379: P_Msg_Name => 'PA_RBS_FROM_CHANGED',

Line 390: -- Pa_Debug.G_Stage := 'Check if the effective_to_date is being changed. Check If not null then if < max ' ||

386:
387: -- Per bug 3602821 we don't need to check the header end_date to the version end_dates
388: -- VALIDATION: Effective to if being updated to a not null value for the rbs header must not be
389: -- less than effective to of rbs frozen versions*/
390: -- Pa_Debug.G_Stage := 'Check if the effective_to_date is being changed. Check If not null then if < max ' ||
391: -- 'version_end_date of frozen versions.';
392: -- If P_EffectiveTo Is Not Null And P_EffectiveTo < l_Effect_To_Date Then
393:
394: -- Pa_Debug.G_Stage := 'Trying to change effective to date of header and it is < that ' ||

Line 394: -- Pa_Debug.G_Stage := 'Trying to change effective to date of header and it is < that ' ||

390: -- Pa_Debug.G_Stage := 'Check if the effective_to_date is being changed. Check If not null then if < max ' ||
391: -- 'version_end_date of frozen versions.';
392: -- If P_EffectiveTo Is Not Null And P_EffectiveTo < l_Effect_To_Date Then
393:
394: -- Pa_Debug.G_Stage := 'Trying to change effective to date of header and it is < that ' ||
395: -- 'max version_end_date of frozen versions. Add msg to error stack.';
396: -- Pa_Utils.Add_MessagE(
397: -- P_App_Short_Name => 'PA',
398: -- P_Msg_Name => 'PA_RBS_TO_LESS_THAN_VERSIONS',

Line 406: Pa_Debug.G_Stage := 'Check 2 if validation errors were found.';

402: -- l_Error_Raised := 'Y';
403:
404: -- End If;
405:
406: Pa_Debug.G_Stage := 'Check 2 if validation errors were found.';
407: If l_Error_Raised ='Y' Then
408:
409: Pa_Debug.G_Stage := 'Validation errors were found - 2. Raise l_Error.';
410: Raise l_Error;

Line 409: Pa_Debug.G_Stage := 'Validation errors were found - 2. Raise l_Error.';

405:
406: Pa_Debug.G_Stage := 'Check 2 if validation errors were found.';
407: If l_Error_Raised ='Y' Then
408:
409: Pa_Debug.G_Stage := 'Validation errors were found - 2. Raise l_Error.';
410: Raise l_Error;
411:
412: End If;
413:

Line 416: Pa_Debug.G_Stage := 'Check if use_for_alloc_flag is changed from Y to N. If so then check for its ' ||

412: End If;
413:
414: --Logic for Use For alloc Flag
415:
416: Pa_Debug.G_Stage := 'Check if use_for_alloc_flag is changed from Y to N. If so then check for its ' ||
417: 'usage in allocation rules.';
418:
419:
420: IF(l_use_for_alloc_flag='Y' and p_use_for_alloc_flag='N') Then

Line 424: Pa_Debug.G_Stage := 'Trying to change use_for_alloc_flag to N for Rbs used in allocation rule' ||

420: IF(l_use_for_alloc_flag='Y' and p_use_for_alloc_flag='N') Then
421: --Check if Rbs is used for allocation
422: IF PA_ALLOC_UTILS.IS_RBS_IN_RULES(p_rbs_id=> P_RbsHeaderId) = 'Y'
423: THEN
424: Pa_Debug.G_Stage := 'Trying to change use_for_alloc_flag to N for Rbs used in allocation rule' ||
425: 'Add msg to error stack.';
426:
427: Pa_Utils.Add_Message(
428: P_App_Short_Name => 'PA',

Line 433: Pa_Debug.G_Stage := 'We have used in allocation error so raising.';

429: P_Msg_Name => 'PA_RBS_USED_IN_ALLOC',
430: P_Token1 => 'RBSNAME',
431: P_Value1 => P_Name);
432:
433: Pa_Debug.G_Stage := 'We have used in allocation error so raising.';
434: Raise l_Error;
435:
436: End If;
437: End IF;

Line 439: Pa_Debug.G_Stage := 'Check 3 if allocation usage error is found.';

435:
436: End If;
437: End IF;
438:
439: Pa_Debug.G_Stage := 'Check 3 if allocation usage error is found.';
440: If l_Error_Raised ='Y' Then
441:
442: Pa_Debug.G_Stage := 'Allcation error found - 3. Raise l_Error.';
443: Raise l_Error;

Line 442: Pa_Debug.G_Stage := 'Allcation error found - 3. Raise l_Error.';

438:
439: Pa_Debug.G_Stage := 'Check 3 if allocation usage error is found.';
440: If l_Error_Raised ='Y' Then
441:
442: Pa_Debug.G_Stage := 'Allcation error found - 3. Raise l_Error.';
443: Raise l_Error;
444:
445: End If;
446:

Line 448: Pa_Debug.G_Stage := 'Update the rbs header record - 2 by calling the Pa_Rbs_Header_Pvt.Update_Header() procedure.';

444:
445: End If;
446:
447: --Updates the header information for the Rbs
448: Pa_Debug.G_Stage := 'Update the rbs header record - 2 by calling the Pa_Rbs_Header_Pvt.Update_Header() procedure.';
449: Pa_Rbs_Header_Pvt.Update_Header(
450: p_rbsHeaderId,
451: p_name,
452: p_description,

Line 460: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Header() procedure is U.';

456: x_return_status,
457: x_msg_data,
458: x_msg_count);
459:
460: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Header() procedure is U.';
461: If X_Return_Status = 'U' Then
462:
463: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Header() procedure returned Unexpected error. Raise.';
464: Raise l_UnExp_Error;

Line 463: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Header() procedure returned Unexpected error. Raise.';

459:
460: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Header() procedure is U.';
461: If X_Return_Status = 'U' Then
462:
463: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Header() procedure returned Unexpected error. Raise.';
464: Raise l_UnExp_Error;
465:
466: End If;
467:

Line 470: Pa_Debug.G_Stage := 'Check if need to commit data.';

466: End If;
467:
468: End If;
469:
470: Pa_Debug.G_Stage := 'Check if need to commit data.';
471: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
472:
473: Pa_Debug.G_Stage := 'Commit inserts to db.';
474: Commit;

Line 473: Pa_Debug.G_Stage := 'Commit inserts to db.';

469:
470: Pa_Debug.G_Stage := 'Check if need to commit data.';
471: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
472:
473: Pa_Debug.G_Stage := 'Commit inserts to db.';
474: Commit;
475:
476: End If;
477:

Line 478: Pa_Debug.G_Stage := 'Leaving Update_Header() procedure.';

474: Commit;
475:
476: End If;
477:
478: Pa_Debug.G_Stage := 'Leaving Update_Header() procedure.';
479: Pa_Debug.TrackPath('STRIP','Update_Header');
480:
481: Exception
482:

Line 479: Pa_Debug.TrackPath('STRIP','Update_Header');

475:
476: End If;
477:
478: Pa_Debug.G_Stage := 'Leaving Update_Header() procedure.';
479: Pa_Debug.TrackPath('STRIP','Update_Header');
480:
481: Exception
482:
483: When l_Error Then

Line 503: x_msg_data := Pa_Rbs_Header_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || X_Msg_Data;

499: End If;
500:
501: When l_UnExp_Error Then
502: x_return_status := 'U';
503: x_msg_data := Pa_Rbs_Header_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || X_Msg_Data;
504: x_msg_count := 1;
505: Rollback;
506:
507: When Others Then

Line 509: x_msg_data := Pa_Rbs_Header_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

505: Rollback;
506:
507: When Others Then
508: x_return_status := 'U';
509: x_msg_data := Pa_Rbs_Header_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
510: x_msg_count := 1;
511: Rollback;
512:
513: END Update_Header;

Line 591: Pa_Debug.G_Stage := 'Entering Insert_Header().';

587: l_UnExp_Error Exception;
588:
589: BEGIN
590:
591: Pa_Debug.G_Stage := 'Entering Insert_Header().';
592: Pa_Debug.TrackPath('ADD','Insert_Header');
593:
594: Pa_Debug.G_Stage := 'Check API Version compatibility by calling Fnd_Api.Compatible_API_Call() procedure.';
595: If Not Fnd_Api.Compatible_API_Call (

Line 592: Pa_Debug.TrackPath('ADD','Insert_Header');

588:
589: BEGIN
590:
591: Pa_Debug.G_Stage := 'Entering Insert_Header().';
592: Pa_Debug.TrackPath('ADD','Insert_Header');
593:
594: Pa_Debug.G_Stage := 'Check API Version compatibility by calling Fnd_Api.Compatible_API_Call() procedure.';
595: If Not Fnd_Api.Compatible_API_Call (
596: Pa_Rbs_Elements_Pub.G_Api_Version_Number,

Line 594: Pa_Debug.G_Stage := 'Check API Version compatibility by calling Fnd_Api.Compatible_API_Call() procedure.';

590:
591: Pa_Debug.G_Stage := 'Entering Insert_Header().';
592: Pa_Debug.TrackPath('ADD','Insert_Header');
593:
594: Pa_Debug.G_Stage := 'Check API Version compatibility by calling Fnd_Api.Compatible_API_Call() procedure.';
595: If Not Fnd_Api.Compatible_API_Call (
596: Pa_Rbs_Elements_Pub.G_Api_Version_Number,
597: P_Api_Version_Number,
598: l_Api_Name,

Line 601: Pa_Debug.G_Stage := 'API Version compatibility failure.';

597: P_Api_Version_Number,
598: l_Api_Name,
599: Pa_Rbs_Elements_Pub.G_Pkg_Name) Then
600:
601: Pa_Debug.G_Stage := 'API Version compatibility failure.';
602: Raise Fnd_Api.G_Exc_Unexpected_Error;
603:
604: End If;
605:

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

602: Raise Fnd_Api.G_Exc_Unexpected_Error;
603:
604: End If;
605:
606: Pa_Debug.G_Stage := 'Check if need to initialize the message error stack.';
607: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
608:
609: Pa_Debug.G_Stage := 'Initilize the message error stack by calling the Fnd_Msg_Pub.Initialize() procedure.';
610: Fnd_Msg_Pub.Initialize;

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

605:
606: Pa_Debug.G_Stage := 'Check if need to initialize the message error stack.';
607: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
608:
609: Pa_Debug.G_Stage := 'Initilize the message error stack by calling the Fnd_Msg_Pub.Initialize() procedure.';
610: Fnd_Msg_Pub.Initialize;
611:
612: End If;
613:

Line 618: Pa_Debug.G_Stage := 'Check if the paramter p_name is null.';

614: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
615: X_Msg_Count := 0;
616:
617: /* validation: Rbs name cannot be null */
618: Pa_Debug.G_Stage := 'Check if the paramter p_name is null.';
619: If P_Name Is Null Then
620:
621: Pa_Debug.G_Stage := 'Rbs Name is null. Add message to error stage.';
622: Pa_Utils.Add_Message(

Line 621: Pa_Debug.G_Stage := 'Rbs Name is null. Add message to error stage.';

617: /* validation: Rbs name cannot be null */
618: Pa_Debug.G_Stage := 'Check if the paramter p_name is null.';
619: If P_Name Is Null Then
620:
621: Pa_Debug.G_Stage := 'Rbs Name is null. Add message to error stage.';
622: Pa_Utils.Add_Message(
623: P_App_Short_Name => 'PA',
624: P_Msg_Name => 'PA_RBS_NAME_NULL');
625:

Line 631: Pa_Debug.G_Stage := 'Check if the effective from date is null.';

627:
628: End If;
629:
630: /* validation:Rbs effective From date cannot be null */
631: Pa_Debug.G_Stage := 'Check if the effective from date is null.';
632: If P_EffectiveFrom Is Null Then
633:
634: Pa_Debug.G_Stage := 'The Effective from date is null. Add message to error stack.';
635: Pa_Utils.Add_Message(

Line 634: Pa_Debug.G_Stage := 'The Effective from date is null. Add message to error stack.';

630: /* validation:Rbs effective From date cannot be null */
631: Pa_Debug.G_Stage := 'Check if the effective from date is null.';
632: If P_EffectiveFrom Is Null Then
633:
634: Pa_Debug.G_Stage := 'The Effective from date is null. Add message to error stack.';
635: Pa_Utils.Add_Message(
636: P_App_Short_Name => 'PA',
637: P_Msg_Name => 'PA_RBS_FROM_NULL',
638: P_Token1 => 'RBSNAME',

Line 646: Pa_Debug.G_Stage := 'Check if the rbs header effective from date > effective to date.';

642:
643: Else
644:
645: /* validation: Rbs effective From should always be less than Rbs effective to */
646: Pa_Debug.G_Stage := 'Check if the rbs header effective from date > effective to date.';
647: If P_EffectiveFrom > Nvl(P_EffectiveTo,P_EffectiveFrom) Then
648:
649: Pa_Debug.G_Stage := 'The rbs header effective from date > effective to date. Add message to error stack.';
650: Pa_Utils.Add_Message(

Line 649: Pa_Debug.G_Stage := 'The rbs header effective from date > effective to date. Add message to error stack.';

645: /* validation: Rbs effective From should always be less than Rbs effective to */
646: Pa_Debug.G_Stage := 'Check if the rbs header effective from date > effective to date.';
647: If P_EffectiveFrom > Nvl(P_EffectiveTo,P_EffectiveFrom) Then
648:
649: Pa_Debug.G_Stage := 'The rbs header effective from date > effective to date. Add message to error stack.';
650: Pa_Utils.Add_Message(
651: P_App_Short_Name => 'PA',
652: P_Msg_Name => 'PA_RBS_TO_LESS_FROM',
653: P_Token1 => 'RBSNAME',

Line 663: Pa_Debug.G_Stage := 'Get a count of the number of rbs headers using the p_name parameter passed in.';

659:
660: End If;
661:
662: /* validation: Rbs name should be unique*/
663: Pa_Debug.G_Stage := 'Get a count of the number of rbs headers using the p_name parameter passed in.';
664: Select
665: Count(*)
666: Into
667: l_Count

Line 674: Pa_Debug.G_Stage := 'Check if the count of rbs headers using the p_name parameter is <> 0.';

670: Where
671: Name = P_Name
672: And language = USERENV('LANG');
673:
674: Pa_Debug.G_Stage := 'Check if the count of rbs headers using the p_name parameter is <> 0.';
675: IF l_count <> 0 THEN
676:
677: Pa_Debug.G_Stage := 'When create rbs the header name must be unique. Add message to error stack.';
678: Pa_Utils.Add_Message(

Line 677: Pa_Debug.G_Stage := 'When create rbs the header name must be unique. Add message to error stack.';

673:
674: Pa_Debug.G_Stage := 'Check if the count of rbs headers using the p_name parameter is <> 0.';
675: IF l_count <> 0 THEN
676:
677: Pa_Debug.G_Stage := 'When create rbs the header name must be unique. Add message to error stack.';
678: Pa_Utils.Add_Message(
679: P_App_Short_Name => 'PA',
680: P_Msg_Name => 'PA_RBS_NOT_UNIQUE',
681: P_Token1 => 'RBSNAME',

Line 688: Pa_Debug.G_Stage := 'Check if any validation error occured.';

684: l_Error_Raised := 'Y';
685:
686: End If;
687:
688: Pa_Debug.G_Stage := 'Check if any validation error occured.';
689: If l_Error_Raised = 'Y' Then
690:
691: Pa_Debug.G_Stage := 'Validation errors occured. Raise l_Error.';
692: Raise l_Error;

Line 691: Pa_Debug.G_Stage := 'Validation errors occured. Raise l_Error.';

687:
688: Pa_Debug.G_Stage := 'Check if any validation error occured.';
689: If l_Error_Raised = 'Y' Then
690:
691: Pa_Debug.G_Stage := 'Validation errors occured. Raise l_Error.';
692: Raise l_Error;
693:
694: End If;
695:

Line 697: Pa_Debug.G_Stage := 'Insert header record by calling the Pa_Rbs_Header_Pvt.Insert_Header() procedure.';

693:
694: End If;
695:
696: --Inserts into pa_rbs_header table.
697: Pa_Debug.G_Stage := 'Insert header record by calling the Pa_Rbs_Header_Pvt.Insert_Header() procedure.';
698: Pa_Rbs_Header_Pvt.Insert_Header(
699: P_Name => P_Name,
700: P_Description => P_Description,
701: P_EffectiveFrom => P_EffectiveFrom,

Line 711: Pa_Debug.G_Stage := 'Calling to Pa_Rbs_Header_Pvt.Insert_Header() procedure returned error. Raise.';

707: X_Msg_Count => X_Msg_Count);
708:
709: If X_Return_Status ='U' Then
710:
711: Pa_Debug.G_Stage := 'Calling to Pa_Rbs_Header_Pvt.Insert_Header() procedure returned error. Raise.';
712: Raise l_UnExp_Error;
713:
714: End If;
715:

Line 716: Pa_Debug.G_Stage := 'Insert the version record by calling the Pa_Rbs_Header_Pvt.Insert_Versions() procedure.';

712: Raise l_UnExp_Error;
713:
714: End If;
715:
716: Pa_Debug.G_Stage := 'Insert the version record by calling the Pa_Rbs_Header_Pvt.Insert_Versions() procedure.';
717: Pa_Rbs_Header_Pvt.Insert_Versions(
718: P_RbsHeaderId => X_Rbs_Header_Id,
719: P_Name => P_Name,
720: P_Description => P_Description,

Line 729: Pa_Debug.G_Stage := 'Calling to Pa_Rbs_Header_Pvt.Insert_Versions() procedure returned error. Raise.';

725: X_Msg_Count => X_Msg_Count );
726:
727: If X_Return_Status ='U' Then
728:
729: Pa_Debug.G_Stage := 'Calling to Pa_Rbs_Header_Pvt.Insert_Versions() procedure returned error. Raise.';
730: Raise l_UnExp_Error;
731:
732: End If;
733:

Line 734: Pa_Debug.G_Stage := 'Insert the root element node for the rbs by callling the Pa_Rbs_Header_Pvt.Insert_Structure_Element() procedure.';

730: Raise l_UnExp_Error;
731:
732: End If;
733:
734: Pa_Debug.G_Stage := 'Insert the root element node for the rbs by callling the Pa_Rbs_Header_Pvt.Insert_Structure_Element() procedure.';
735: Pa_Rbs_Header_Pvt.Insert_Structure_Element(
736: P_Rbs_Version_Id => X_Rbs_Version_Id,
737: X_Rbs_Element_Id => X_Rbs_Element_Id,
738: X_Return_Status => X_Return_Status,

Line 744: Pa_Debug.G_Stage := 'Calling to Pa_Rbs_Header_Pvt.Insert_Structure_Element() procedure returned error. Raise.';

740: X_Msg_Count => X_Msg_Count);
741:
742: If X_Return_Status ='U' Then
743:
744: Pa_Debug.G_Stage := 'Calling to Pa_Rbs_Header_Pvt.Insert_Structure_Element() procedure returned error. Raise.';
745: Raise l_UnExp_Error;
746:
747: End If;
748:

Line 749: Pa_Debug.G_Stage := 'Check if need to commit data.';

745: Raise l_UnExp_Error;
746:
747: End If;
748:
749: Pa_Debug.G_Stage := 'Check if need to commit data.';
750: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
751:
752: Pa_Debug.G_Stage := 'Commit inserts to db.';
753: Commit;

Line 752: Pa_Debug.G_Stage := 'Commit inserts to db.';

748:
749: Pa_Debug.G_Stage := 'Check if need to commit data.';
750: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
751:
752: Pa_Debug.G_Stage := 'Commit inserts to db.';
753: Commit;
754:
755: End If;
756:

Line 757: Pa_Debug.G_Stage := 'Leaving Insert_Header() procedure.';

753: Commit;
754:
755: End If;
756:
757: Pa_Debug.G_Stage := 'Leaving Insert_Header() procedure.';
758: Pa_Debug.TrackPath('STRIP','Insert_Header');
759:
760: Exception
761: When l_Error Then

Line 758: Pa_Debug.TrackPath('STRIP','Insert_Header');

754:
755: End If;
756:
757: Pa_Debug.G_Stage := 'Leaving Insert_Header() procedure.';
758: Pa_Debug.TrackPath('STRIP','Insert_Header');
759:
760: Exception
761: When l_Error Then
762: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;

Line 781: X_Msg_Data := Pa_Rbs_Header_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || X_Msg_Data;

777: End If;
778:
779: When l_UnExp_Error Then
780: X_Return_Status := 'U';
781: X_Msg_Data := Pa_Rbs_Header_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || X_Msg_Data;
782: X_Msg_Count := 1;
783: Rollback;
784:
785: When Others Then

Line 787: X_Msg_Data := Pa_Rbs_Header_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

783: Rollback;
784:
785: When Others Then
786: X_Return_Status := 'U';
787: X_Msg_Data := Pa_Rbs_Header_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
788: X_Msg_Count := 1;
789: Rollback;
790:
791: END Insert_Header;