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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

199: AND NVL(B.CBS_ENABLED,'N')=NVL(P_Cbs_Enabled,'N') --16437884
200: And language = USERENV('LANG');
201:
202:
203: Pa_Debug.G_Stage := 'Check if the number of rbs headers using the name.';
204: If l_Count <> 0 Then
205: if(NVL(P_Cbs_Enabled,'N') = 'N') THEN --Added for CBS phase 2 16234030
206: Pa_Debug.G_Stage := 'The p_name parameter for a new rbs name is already used. Add message to message stack.';
207: Pa_Utils.Add_Message(

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

202:
203: Pa_Debug.G_Stage := 'Check if the number of rbs headers using the name.';
204: If l_Count <> 0 Then
205: if(NVL(P_Cbs_Enabled,'N') = 'N') THEN --Added for CBS phase 2 16234030
206: Pa_Debug.G_Stage := 'The p_name parameter for a new rbs name is already used. Add message to message stack.';
207: Pa_Utils.Add_Message(
208: P_App_Short_Name => 'PA',
209: P_Msg_Name => 'PA_RBS_NOT_UNIQUE',
210: P_Token1 => 'RBSNAME',

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

224:
225: End If;
226:
227: /* check for locking */
228: Pa_Debug.G_Stage := 'Use cursor to lock the header record for update.';
229: Open c_Record_Ver_No;
230: Fetch c_Record_Ver_No Into RecInfo;
231:
232: Pa_Debug.G_Stage := 'Check if header record to lock.';

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

228: Pa_Debug.G_Stage := 'Use cursor to lock the header record for update.';
229: Open c_Record_Ver_No;
230: Fetch c_Record_Ver_No Into RecInfo;
231:
232: Pa_Debug.G_Stage := 'Check if header record to lock.';
233: If c_Record_Ver_No%NotFound Then
234:
235: Close c_Record_Ver_No;
236: End If;

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

236: End If;
237:
238: Close c_Record_Ver_No;
239:
240: Pa_Debug.G_Stage := 'Check if the record version number retrieved matches the parameter value passed in.';
241: If RecInfo.Record_Version_Number = P_RecordVersionNumber Then
242:
243: Pa_Debug.G_Stage := 'The record version number matches up.';
244: Null;

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

239:
240: Pa_Debug.G_Stage := 'Check if the record version number retrieved matches the parameter value passed in.';
241: If RecInfo.Record_Version_Number = P_RecordVersionNumber Then
242:
243: Pa_Debug.G_Stage := 'The record version number matches up.';
244: Null;
245:
246: Else
247:

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

244: Null;
245:
246: Else
247:
248: Pa_Debug.G_Stage := 'The record version number does not match up. The record has already been update ' ||
249: 'other others. Add message to error stack.';
250: Pa_Utils.Add_Message(
251: P_App_Short_Name => 'PA',
252: P_Msg_Name => 'PA_RBS_HEADER_CHANGED');

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

254: l_Error_Raised := 'Y';
255:
256: End If;
257:
258: Pa_Debug.G_Stage := 'Check if any error were found.';
259: If l_Error_Raised = 'Y' Then
260:
261: Pa_Debug.G_Stage := 'We have validation error so raising.';
262: Raise l_Error;

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

257:
258: Pa_Debug.G_Stage := 'Check if any error were found.';
259: If l_Error_Raised = 'Y' Then
260:
261: Pa_Debug.G_Stage := 'We have validation error so raising.';
262: Raise l_Error;
263:
264: End If;
265:

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

279: Pa_Utils.Add_Message(
280: P_App_Short_Name => 'PA',
281: P_Msg_Name => 'PA_RBS_HAS_RULES');
282:
283: Pa_Debug.G_Stage := 'We have rules as elements so raising error.';
284: Raise l_Error;
285:
286: End If;
287: End IF;

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

285:
286: End If;
287: End IF;
288:
289: Pa_Debug.G_Stage := 'See if there is a frozen rbs version for this header.';
290: Begin
291:
292: l_Check := 0;
293:

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

312: l_Check := 0;
313:
314: End;
315:
316: Pa_Debug.G_Stage := 'Check if a version record was found.';
317: If l_Check Is Null Or l_Check = 0 Then
318:
319:
320: Pa_Debug.G_Stage := 'No frozen version record was found. Update the header information by calling ' ||

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

316: Pa_Debug.G_Stage := 'Check if a version record was found.';
317: If l_Check Is Null Or l_Check = 0 Then
318:
319:
320: Pa_Debug.G_Stage := 'No frozen version record was found. Update the header information by calling ' ||
321: 'the Pa_Rbs_Header_Pvt.Update_Header() procedure.';
322:
323: --When user checks use_for_alloc_flag there is no need to check its usage in allocation rule.
324: --The RBS has no freezed version and hence cant be used in allocation rule.

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

334: X_Return_Status => X_Return_Status,
335: X_Msg_Data => X_Msg_Data,
336: X_Msg_Count => X_Msg_Count);
337:
338: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Header() procedure is U.';
339: If X_Return_Status = 'U' Then
340:
341: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Header() procedure returned Unexpected error. Raise.';
342: Raise l_UnExp_Error;

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

337:
338: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Header() procedure is U.';
339: If X_Return_Status = 'U' Then
340:
341: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Header() procedure returned Unexpected error. Raise.';
342: Raise l_UnExp_Error;
343:
344: End If;
345:

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

342: Raise l_UnExp_Error;
343:
344: End If;
345:
346: Pa_Debug.G_Stage := 'No frozen version record was found. Check if allow to update the version record in this module.';
347: If P_Process_Version = Fnd_Api.G_True Then
348:
349: Pa_Debug.G_Stage := 'No frozen version record was found. Update the working version record for ' ||
350: 'the Rbs header by calling the Pa_Rbs_Header_Pvt.Update_Versions procedure.';

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

345:
346: Pa_Debug.G_Stage := 'No frozen version record was found. Check if allow to update the version record in this module.';
347: If P_Process_Version = Fnd_Api.G_True Then
348:
349: Pa_Debug.G_Stage := 'No frozen version record was found. Update the working version record for ' ||
350: 'the Rbs header by calling the Pa_Rbs_Header_Pvt.Update_Versions procedure.';
351: Pa_Rbs_Header_Pvt.Update_Versions(
352: P_RbsHeaderId => P_RbsHeaderId,
353: P_Name => P_Name,

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

355: X_Return_Status => X_Return_Status,
356: X_Msg_Data => X_Msg_Data,
357: X_Msg_Count => X_Msg_Count);
358:
359: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Versions() procedure is U.';
360: If X_Return_Status = 'U' Then
361:
362: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Versions() procedure returned ' ||
363: 'Unexpected error. Raise.';

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

358:
359: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Versions() procedure is U.';
360: If X_Return_Status = 'U' Then
361:
362: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Versions() procedure returned ' ||
363: 'Unexpected error. Raise.';
364: Raise l_UnExp_Error;
365:
366: End If;

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

373: -- it cannot be less than effective to date of its versions. effective from cannot be updated
374: -- Also if use_for_alloc_flag is unchecked test for its usage in allocation rules. If yes raise appropriate error.
375:
376: /* validation: effective from cannot be updated*/
377: Pa_Debug.G_Stage := 'Found frozen versions for the rbs. Get the effective from date in the header.';
378: Select
379: Effective_From_Date
380: Into
381: l_EffectiveFromDate

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

383: Pa_Rbs_Headers_B
384: Where
385: Rbs_Header_Id = P_RbsHeaderId;
386:
387: Pa_Debug.G_Stage := 'Check if trying to change the effective from date of the header.';
388: If l_EffectiveFromDate <> P_EffectiveFrom Then
389:
390: Pa_Debug.G_Stage := 'Trying to change the effective from date of the header when have frozen ' ||
391: 'rbs versions. Add message to error stack.';

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

386:
387: Pa_Debug.G_Stage := 'Check if trying to change the effective from date of the header.';
388: If l_EffectiveFromDate <> P_EffectiveFrom Then
389:
390: Pa_Debug.G_Stage := 'Trying to change the effective from date of the header when have frozen ' ||
391: 'rbs versions. Add message to error stack.';
392: Pa_Utils.Add_Message(
393: P_App_Short_Name => 'PA',
394: P_Msg_Name => 'PA_RBS_FROM_CHANGED',

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

401:
402: -- Per bug 3602821 we don't need to check the header end_date to the version end_dates
403: -- VALIDATION: Effective to if being updated to a not null value for the rbs header must not be
404: -- less than effective to of rbs frozen versions*/
405: -- Pa_Debug.G_Stage := 'Check if the effective_to_date is being changed. Check If not null then if < max ' ||
406: -- 'version_end_date of frozen versions.';
407: -- If P_EffectiveTo Is Not Null And P_EffectiveTo < l_Effect_To_Date Then
408:
409: -- Pa_Debug.G_Stage := 'Trying to change effective to date of header and it is < that ' ||

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

405: -- Pa_Debug.G_Stage := 'Check if the effective_to_date is being changed. Check If not null then if < max ' ||
406: -- 'version_end_date of frozen versions.';
407: -- If P_EffectiveTo Is Not Null And P_EffectiveTo < l_Effect_To_Date Then
408:
409: -- Pa_Debug.G_Stage := 'Trying to change effective to date of header and it is < that ' ||
410: -- 'max version_end_date of frozen versions. Add msg to error stack.';
411: -- Pa_Utils.Add_MessagE(
412: -- P_App_Short_Name => 'PA',
413: -- P_Msg_Name => 'PA_RBS_TO_LESS_THAN_VERSIONS',

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

417: -- l_Error_Raised := 'Y';
418:
419: -- End If;
420:
421: Pa_Debug.G_Stage := 'Check 2 if validation errors were found.';
422: If l_Error_Raised ='Y' Then
423:
424: Pa_Debug.G_Stage := 'Validation errors were found - 2. Raise l_Error.';
425: Raise l_Error;

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

420:
421: Pa_Debug.G_Stage := 'Check 2 if validation errors were found.';
422: If l_Error_Raised ='Y' Then
423:
424: Pa_Debug.G_Stage := 'Validation errors were found - 2. Raise l_Error.';
425: Raise l_Error;
426:
427: End If;
428:

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

427: End If;
428:
429: --Logic for Use For alloc Flag
430:
431: Pa_Debug.G_Stage := 'Check if use_for_alloc_flag is changed from Y to N. If so then check for its ' ||
432: 'usage in allocation rules.';
433:
434:
435: IF(l_use_for_alloc_flag='Y' and p_use_for_alloc_flag='N') Then

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

435: IF(l_use_for_alloc_flag='Y' and p_use_for_alloc_flag='N') Then
436: --Check if Rbs is used for allocation
437: IF PA_ALLOC_UTILS.IS_RBS_IN_RULES(p_rbs_id=> P_RbsHeaderId) = 'Y'
438: THEN
439: Pa_Debug.G_Stage := 'Trying to change use_for_alloc_flag to N for Rbs used in allocation rule' ||
440: 'Add msg to error stack.';
441:
442: Pa_Utils.Add_Message(
443: P_App_Short_Name => 'PA',

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

444: P_Msg_Name => 'PA_RBS_USED_IN_ALLOC',
445: P_Token1 => 'RBSNAME',
446: P_Value1 => P_Name);
447:
448: Pa_Debug.G_Stage := 'We have used in allocation error so raising.';
449: Raise l_Error;
450:
451: End If;
452: End IF;

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

450:
451: End If;
452: End IF;
453:
454: Pa_Debug.G_Stage := 'Check 3 if allocation usage error is found.';
455: If l_Error_Raised ='Y' Then
456:
457: Pa_Debug.G_Stage := 'Allcation error found - 3. Raise l_Error.';
458: Raise l_Error;

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

453:
454: Pa_Debug.G_Stage := 'Check 3 if allocation usage error is found.';
455: If l_Error_Raised ='Y' Then
456:
457: Pa_Debug.G_Stage := 'Allcation error found - 3. Raise l_Error.';
458: Raise l_Error;
459:
460: End If;
461:

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

459:
460: End If;
461:
462: --Updates the header information for the Rbs
463: Pa_Debug.G_Stage := 'Update the rbs header record - 2 by calling the Pa_Rbs_Header_Pvt.Update_Header() procedure.';
464: Pa_Rbs_Header_Pvt.Update_Header(
465: p_rbsHeaderId,
466: p_name,
467: p_description,

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

472: x_return_status,
473: x_msg_data,
474: x_msg_count);
475:
476: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Header() procedure is U.';
477: If X_Return_Status = 'U' Then
478:
479: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Header() procedure returned Unexpected error. Raise.';
480: Raise l_UnExp_Error;

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

475:
476: Pa_Debug.G_Stage := 'Check if return status from call to Pa_Rbs_Header_Pvt.Update_Header() procedure is U.';
477: If X_Return_Status = 'U' Then
478:
479: Pa_Debug.G_Stage := 'Call to Pa_Rbs_Header_Pvt.Update_Header() procedure returned Unexpected error. Raise.';
480: Raise l_UnExp_Error;
481:
482: End If;
483:

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

482: End If;
483:
484: End If;
485:
486: Pa_Debug.G_Stage := 'Check if need to commit data.';
487: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
488:
489: Pa_Debug.G_Stage := 'Commit inserts to db.';
490: Commit;

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

485:
486: Pa_Debug.G_Stage := 'Check if need to commit data.';
487: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
488:
489: Pa_Debug.G_Stage := 'Commit inserts to db.';
490: Commit;
491:
492: End If;
493:

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

490: Commit;
491:
492: End If;
493:
494: Pa_Debug.G_Stage := 'Leaving Update_Header() procedure.';
495: Pa_Debug.TrackPath('STRIP','Update_Header');
496:
497: Exception
498:

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

491:
492: End If;
493:
494: Pa_Debug.G_Stage := 'Leaving Update_Header() procedure.';
495: Pa_Debug.TrackPath('STRIP','Update_Header');
496:
497: Exception
498:
499: When l_Error Then

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

515: End If;
516:
517: When l_UnExp_Error Then
518: x_return_status := 'U';
519: x_msg_data := Pa_Rbs_Header_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || X_Msg_Data;
520: x_msg_count := 1;
521: Rollback;
522:
523: When Others Then

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

521: Rollback;
522:
523: When Others Then
524: x_return_status := 'U';
525: x_msg_data := Pa_Rbs_Header_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
526: x_msg_count := 1;
527: Rollback;
528:
529: END Update_Header;

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

605: l_UnExp_Error Exception;
606:
607: BEGIN
608:
609: Pa_Debug.G_Stage := 'Entering Insert_Header().';
610: Pa_Debug.TrackPath('ADD','Insert_Header');
611:
612: Pa_Debug.G_Stage := 'Check API Version compatibility by calling Fnd_Api.Compatible_API_Call() procedure.';
613: If Not Fnd_Api.Compatible_API_Call (

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

606:
607: BEGIN
608:
609: Pa_Debug.G_Stage := 'Entering Insert_Header().';
610: Pa_Debug.TrackPath('ADD','Insert_Header');
611:
612: Pa_Debug.G_Stage := 'Check API Version compatibility by calling Fnd_Api.Compatible_API_Call() procedure.';
613: If Not Fnd_Api.Compatible_API_Call (
614: Pa_Rbs_Elements_Pub.G_Api_Version_Number,

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

608:
609: Pa_Debug.G_Stage := 'Entering Insert_Header().';
610: Pa_Debug.TrackPath('ADD','Insert_Header');
611:
612: Pa_Debug.G_Stage := 'Check API Version compatibility by calling Fnd_Api.Compatible_API_Call() procedure.';
613: If Not Fnd_Api.Compatible_API_Call (
614: Pa_Rbs_Elements_Pub.G_Api_Version_Number,
615: P_Api_Version_Number,
616: l_Api_Name,

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

615: P_Api_Version_Number,
616: l_Api_Name,
617: Pa_Rbs_Elements_Pub.G_Pkg_Name) Then
618:
619: Pa_Debug.G_Stage := 'API Version compatibility failure.';
620: Raise Fnd_Api.G_Exc_Unexpected_Error;
621:
622: End If;
623:

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

620: Raise Fnd_Api.G_Exc_Unexpected_Error;
621:
622: End If;
623:
624: Pa_Debug.G_Stage := 'Check if need to initialize the message error stack.';
625: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
626:
627: Pa_Debug.G_Stage := 'Initilize the message error stack by calling the Fnd_Msg_Pub.Initialize() procedure.';
628: Fnd_Msg_Pub.Initialize;

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

623:
624: Pa_Debug.G_Stage := 'Check if need to initialize the message error stack.';
625: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
626:
627: Pa_Debug.G_Stage := 'Initilize the message error stack by calling the Fnd_Msg_Pub.Initialize() procedure.';
628: Fnd_Msg_Pub.Initialize;
629:
630: End If;
631:

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

632: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
633: X_Msg_Count := 0;
634:
635: /* validation: Rbs name cannot be null */
636: Pa_Debug.G_Stage := 'Check if the paramter p_name is null.';
637: If P_Name Is Null Then
638:
639: Pa_Debug.G_Stage := 'Rbs Name is null. Add message to error stage.';
640: Pa_Utils.Add_Message(

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

635: /* validation: Rbs name cannot be null */
636: Pa_Debug.G_Stage := 'Check if the paramter p_name is null.';
637: If P_Name Is Null Then
638:
639: Pa_Debug.G_Stage := 'Rbs Name is null. Add message to error stage.';
640: Pa_Utils.Add_Message(
641: P_App_Short_Name => 'PA',
642: P_Msg_Name => 'PA_RBS_NAME_NULL');
643:

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

645:
646: End If;
647:
648: /* validation:Rbs effective From date cannot be null */
649: Pa_Debug.G_Stage := 'Check if the effective from date is null.';
650: If P_EffectiveFrom Is Null Then
651:
652: Pa_Debug.G_Stage := 'The Effective from date is null. Add message to error stack.';
653: Pa_Utils.Add_Message(

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

648: /* validation:Rbs effective From date cannot be null */
649: Pa_Debug.G_Stage := 'Check if the effective from date is null.';
650: If P_EffectiveFrom Is Null Then
651:
652: Pa_Debug.G_Stage := 'The Effective from date is null. Add message to error stack.';
653: Pa_Utils.Add_Message(
654: P_App_Short_Name => 'PA',
655: P_Msg_Name => 'PA_RBS_FROM_NULL',
656: P_Token1 => 'RBSNAME',

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

660:
661: Else
662:
663: /* validation: Rbs effective From should always be less than Rbs effective to */
664: Pa_Debug.G_Stage := 'Check if the rbs header effective from date > effective to date.';
665: If P_EffectiveFrom > Nvl(P_EffectiveTo,P_EffectiveFrom) Then
666:
667: Pa_Debug.G_Stage := 'The rbs header effective from date > effective to date. Add message to error stack.';
668: Pa_Utils.Add_Message(

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

663: /* validation: Rbs effective From should always be less than Rbs effective to */
664: Pa_Debug.G_Stage := 'Check if the rbs header effective from date > effective to date.';
665: If P_EffectiveFrom > Nvl(P_EffectiveTo,P_EffectiveFrom) Then
666:
667: Pa_Debug.G_Stage := 'The rbs header effective from date > effective to date. Add message to error stack.';
668: Pa_Utils.Add_Message(
669: P_App_Short_Name => 'PA',
670: P_Msg_Name => 'PA_RBS_TO_LESS_FROM',
671: P_Token1 => 'RBSNAME',

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

677:
678: End If;
679:
680: /* validation: Rbs name should be unique*/
681: Pa_Debug.G_Stage := 'Get a count of the number of rbs headers using the p_name parameter passed in.';
682: Select
683: Count(*)
684: Into
685: l_Count

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

691: AND B.RBS_HEADER_ID=TL.RBS_HEADER_ID --16437884
692: AND NVL(B.CBS_ENABLED,'N')=NVL(P_Cbs_Enabled,'N') --16437884
693: And language = USERENV('LANG');
694:
695: Pa_Debug.G_Stage := 'Check if the count of rbs headers using the p_name parameter is <> 0.';
696: IF l_count <> 0 THEN
697:
698: Pa_Debug.G_Stage := 'When create rbs the header name must be unique. Add message to error stack.';
699: if(NVL(P_Cbs_Enabled,'N') = 'N') THEN --Added for CBS phase 2 16234030

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

694:
695: Pa_Debug.G_Stage := 'Check if the count of rbs headers using the p_name parameter is <> 0.';
696: IF l_count <> 0 THEN
697:
698: Pa_Debug.G_Stage := 'When create rbs the header name must be unique. Add message to error stack.';
699: if(NVL(P_Cbs_Enabled,'N') = 'N') THEN --Added for CBS phase 2 16234030
700: Pa_Utils.Add_Message(
701: P_App_Short_Name => 'PA',
702: P_Msg_Name => 'PA_RBS_NOT_UNIQUE',

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

715: END IF;
716:
717: End If;
718:
719: Pa_Debug.G_Stage := 'Check if any validation error occured.';
720: If l_Error_Raised = 'Y' Then
721:
722: Pa_Debug.G_Stage := 'Validation errors occured. Raise l_Error.';
723: Raise l_Error;

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

718:
719: Pa_Debug.G_Stage := 'Check if any validation error occured.';
720: If l_Error_Raised = 'Y' Then
721:
722: Pa_Debug.G_Stage := 'Validation errors occured. Raise l_Error.';
723: Raise l_Error;
724:
725: End If;
726:

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

724:
725: End If;
726:
727: --Inserts into pa_rbs_header table.
728: Pa_Debug.G_Stage := 'Insert header record by calling the Pa_Rbs_Header_Pvt.Insert_Header() procedure.';
729: Pa_Rbs_Header_Pvt.Insert_Header(
730: P_Name => P_Name,
731: P_Description => P_Description,
732: P_EffectiveFrom => P_EffectiveFrom,

Line 744: Pa_Debug.G_Stage := 'Calling to Pa_Rbs_Header_Pvt.Insert_Header() 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_Header() procedure returned error. Raise.';
745: Raise l_UnExp_Error;
746:
747: End If;
748:

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

752: where
753: Rbs_Header_Id = X_Rbs_Header_Id;
754: End If;
755:
756: Pa_Debug.G_Stage := 'Insert the version record by calling the Pa_Rbs_Header_Pvt.Insert_Versions() procedure.';
757: Pa_Rbs_Header_Pvt.Insert_Versions(
758: P_RbsHeaderId => X_Rbs_Header_Id,
759: P_Name => P_Name,
760: P_Description => P_Description,

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

765: X_Msg_Count => X_Msg_Count );
766:
767: If X_Return_Status ='U' Then
768:
769: Pa_Debug.G_Stage := 'Calling to Pa_Rbs_Header_Pvt.Insert_Versions() procedure returned error. Raise.';
770: Raise l_UnExp_Error;
771:
772: End If;
773:

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

770: Raise l_UnExp_Error;
771:
772: End If;
773:
774: Pa_Debug.G_Stage := 'Insert the root element node for the rbs by callling the Pa_Rbs_Header_Pvt.Insert_Structure_Element() procedure.';
775: Pa_Rbs_Header_Pvt.Insert_Structure_Element(
776: P_Rbs_Version_Id => X_Rbs_Version_Id,
777: X_Rbs_Element_Id => X_Rbs_Element_Id,
778: X_Return_Status => X_Return_Status,

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

780: X_Msg_Count => X_Msg_Count);
781:
782: If X_Return_Status ='U' Then
783:
784: Pa_Debug.G_Stage := 'Calling to Pa_Rbs_Header_Pvt.Insert_Structure_Element() procedure returned error. Raise.';
785: Raise l_UnExp_Error;
786:
787: End If;
788:

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

785: Raise l_UnExp_Error;
786:
787: End If;
788:
789: Pa_Debug.G_Stage := 'Check if need to commit data.';
790: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
791:
792: Pa_Debug.G_Stage := 'Commit inserts to db.';
793: Commit;

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

788:
789: Pa_Debug.G_Stage := 'Check if need to commit data.';
790: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
791:
792: Pa_Debug.G_Stage := 'Commit inserts to db.';
793: Commit;
794:
795: End If;
796:

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

793: Commit;
794:
795: End If;
796:
797: Pa_Debug.G_Stage := 'Leaving Insert_Header() procedure.';
798: Pa_Debug.TrackPath('STRIP','Insert_Header');
799:
800: Exception
801: When l_Error Then

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

794:
795: End If;
796:
797: Pa_Debug.G_Stage := 'Leaving Insert_Header() procedure.';
798: Pa_Debug.TrackPath('STRIP','Insert_Header');
799:
800: Exception
801: When l_Error Then
802: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;

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

817: End If;
818:
819: When l_UnExp_Error Then
820: X_Return_Status := 'U';
821: X_Msg_Data := Pa_Rbs_Header_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || X_Msg_Data;
822: X_Msg_Count := 1;
823: Rollback;
824:
825: When Others Then

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

823: Rollback;
824:
825: When Others Then
826: X_Return_Status := 'U';
827: X_Msg_Data := Pa_Rbs_Header_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
828: X_Msg_Count := 1;
829: Rollback;
830:
831: END Insert_Header;