DBA Data[Home] [Help]

APPS.PA_RBS_HEADER_PVT dependencies on PA_DEBUG

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

54: x_return_status := FND_API.G_RET_STS_SUCCESS;
55: x_msg_data := NULL;
56: x_msg_count := 0;
57:
58: Pa_Debug.G_Stage := 'Entering Insert_Header() Pvt.';
59: Pa_Debug.TrackPath('ADD','Insert_Header Pvt');
60:
61: Pa_Debug.G_Stage := 'Get next available value for the rbs header id.';
62: Open c_Rbs_Id_Seq;

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

55: x_msg_data := NULL;
56: x_msg_count := 0;
57:
58: Pa_Debug.G_Stage := 'Entering Insert_Header() Pvt.';
59: Pa_Debug.TrackPath('ADD','Insert_Header Pvt');
60:
61: Pa_Debug.G_Stage := 'Get next available value for the rbs header id.';
62: Open c_Rbs_Id_Seq;
63: Fetch c_Rbs_Id_Seq Into X_RbsHeaderId;

Line 61: Pa_Debug.G_Stage := 'Get next available value for the rbs header id.';

57:
58: Pa_Debug.G_Stage := 'Entering Insert_Header() Pvt.';
59: Pa_Debug.TrackPath('ADD','Insert_Header Pvt');
60:
61: Pa_Debug.G_Stage := 'Get next available value for the rbs header id.';
62: Open c_Rbs_Id_Seq;
63: Fetch c_Rbs_Id_Seq Into X_RbsHeaderId;
64: Close c_Rbs_Id_Seq;
65:

Line 68: Pa_Debug.G_Stage := 'Get the business group id from pa_implementations.';

64: Close c_Rbs_Id_Seq;
65:
66: /* MOAC changes - get the BG ID from the HR Profile */
67: /*
68: Pa_Debug.G_Stage := 'Get the business group id from pa_implementations.';
69: Select
70: Business_Group_Id
71: Into
72: l_Business_Group_Id

Line 76: Pa_Debug.G_Stage := 'Get the BG ID from HR Profile PER_BUSINESS_GROUP_ID';

72: l_Business_Group_Id
73: From
74: Pa_Implementations ;
75: */
76: Pa_Debug.G_Stage := 'Get the BG ID from HR Profile PER_BUSINESS_GROUP_ID';
77:
78: l_Business_Group_Id := fnd_profile.value('PER_BUSINESS_GROUP_ID');
79:
80: Pa_Debug.G_Stage := 'Calls the table handler which inserts the rbs header record into the Pa_Rbs_Header table.';

Line 80: Pa_Debug.G_Stage := 'Calls the table handler which inserts the rbs header record into the Pa_Rbs_Header table.';

76: Pa_Debug.G_Stage := 'Get the BG ID from HR Profile PER_BUSINESS_GROUP_ID';
77:
78: l_Business_Group_Id := fnd_profile.value('PER_BUSINESS_GROUP_ID');
79:
80: Pa_Debug.G_Stage := 'Calls the table handler which inserts the rbs header record into the Pa_Rbs_Header table.';
81: Pa_Rbs_Headers_Pkg.Insert_Row(
82: P_RbsHeaderId => X_RbsHeaderId,
83: P_Name => P_Name,
84: P_Description => P_Description,

Line 92: Pa_Debug.G_Stage := 'Leaving Insert_Header() Pvt.';

88: P_Cbs_Enabled => P_Cbs_Enabled, --bug#15834912
89: P_ACTIVE_FLAG => P_ACTIVE_FLAG, --bug#15834912
90: P_BusinessGroupId => l_Business_Group_Id );
91:
92: Pa_Debug.G_Stage := 'Leaving Insert_Header() Pvt.';
93: Pa_Debug.TrackPath('STRIP','Insert_Header Pvt');
94:
95: Exception
96: When Others Then

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

89: P_ACTIVE_FLAG => P_ACTIVE_FLAG, --bug#15834912
90: P_BusinessGroupId => l_Business_Group_Id );
91:
92: Pa_Debug.G_Stage := 'Leaving Insert_Header() Pvt.';
93: Pa_Debug.TrackPath('STRIP','Insert_Header Pvt');
94:
95: Exception
96: When Others Then
97: X_Return_Status := 'U';

Line 159: Pa_Debug.G_Stage := 'Entering Insert_Versions() Pvt.';

155: x_msg_data := NULL;
156: x_msg_count := 0;
157:
158:
159: Pa_Debug.G_Stage := 'Entering Insert_Versions() Pvt.';
160: Pa_Debug.TrackPath('ADD','Insert_Versions Pvt');
161:
162: Pa_Debug.G_Stage := 'Get the next available sequence for the rbs version table.';
163: Open c_Rbs_Version_Id_Seq;

Line 160: Pa_Debug.TrackPath('ADD','Insert_Versions Pvt');

156: x_msg_count := 0;
157:
158:
159: Pa_Debug.G_Stage := 'Entering Insert_Versions() Pvt.';
160: Pa_Debug.TrackPath('ADD','Insert_Versions Pvt');
161:
162: Pa_Debug.G_Stage := 'Get the next available sequence for the rbs version table.';
163: Open c_Rbs_Version_Id_Seq;
164: Fetch c_Rbs_Version_Id_Seq Into X_Rbs_Version_Id;

Line 162: Pa_Debug.G_Stage := 'Get the next available sequence for the rbs version table.';

158:
159: Pa_Debug.G_Stage := 'Entering Insert_Versions() Pvt.';
160: Pa_Debug.TrackPath('ADD','Insert_Versions Pvt');
161:
162: Pa_Debug.G_Stage := 'Get the next available sequence for the rbs version table.';
163: Open c_Rbs_Version_Id_Seq;
164: Fetch c_Rbs_Version_Id_Seq Into X_Rbs_Version_Id;
165: Close c_Rbs_Version_Id_Seq;
166:

Line 167: Pa_Debug.G_Stage := 'Insert a working version into Pa_Rbs_Versions_B table directly here.';

163: Open c_Rbs_Version_Id_Seq;
164: Fetch c_Rbs_Version_Id_Seq Into X_Rbs_Version_Id;
165: Close c_Rbs_Version_Id_Seq;
166:
167: Pa_Debug.G_Stage := 'Insert a working version into Pa_Rbs_Versions_B table directly here.';
168: Insert Into Pa_Rbs_Versions_B(
169: Rbs_Header_Id,
170: Rbs_Version_Id,
171: Version_Number,

Line 197: Pa_Debug.G_Stage := 'Insert working versions into Pa_Rbs_Versions_TL table directly here.';

193: l_Last_Updated_By,
194: l_Last_Update_Login,
195: 1 );
196:
197: Pa_Debug.G_Stage := 'Insert working versions into Pa_Rbs_Versions_TL table directly here.';
198: Insert Into Pa_Rbs_Versions_TL(
199: Rbs_Version_Id,
200: Name,
201: Description,

Line 235: Pa_Debug.G_Stage := 'Entering Insert_Versions() Pvt.';

231: T.Rbs_Version_Id=X_Rbs_Version_Id
232: And
233: T.Language=L.Language_Code);
234:
235: Pa_Debug.G_Stage := 'Entering Insert_Versions() Pvt.';
236: Pa_Debug.TrackPath('STRIP','Insert_Versions Pvt');
237:
238: Exception
239: When Others Then

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

232: And
233: T.Language=L.Language_Code);
234:
235: Pa_Debug.G_Stage := 'Entering Insert_Versions() Pvt.';
236: Pa_Debug.TrackPath('STRIP','Insert_Versions Pvt');
237:
238: Exception
239: When Others Then
240: X_Return_Status := 'U';

Line 272: Pa_Debug.G_Stage := 'Entering Insert_Structure_Element() Pvt.';

268: x_return_status := FND_API.G_RET_STS_SUCCESS;
269: X_Error_Msg_Data := NULL;
270: x_msg_count := 0;
271:
272: Pa_Debug.G_Stage := 'Entering Insert_Structure_Element() Pvt.';
273: Pa_Debug.TrackPath('ADD','Insert_Structure_Element Pvt');
274:
275: -- pass in the version name to create rbs_element_name.
276: Pa_Debug.G_Stage := 'Get the element_name_id by calling Pa_Rbs_Utils.Populate_Rbs_Element_Name() procedure.';

Line 273: Pa_Debug.TrackPath('ADD','Insert_Structure_Element Pvt');

269: X_Error_Msg_Data := NULL;
270: x_msg_count := 0;
271:
272: Pa_Debug.G_Stage := 'Entering Insert_Structure_Element() Pvt.';
273: Pa_Debug.TrackPath('ADD','Insert_Structure_Element Pvt');
274:
275: -- pass in the version name to create rbs_element_name.
276: Pa_Debug.G_Stage := 'Get the element_name_id by calling Pa_Rbs_Utils.Populate_Rbs_Element_Name() procedure.';
277: Pa_Rbs_Utils.Populate_Rbs_Element_Name(

Line 276: Pa_Debug.G_Stage := 'Get the element_name_id by calling Pa_Rbs_Utils.Populate_Rbs_Element_Name() procedure.';

272: Pa_Debug.G_Stage := 'Entering Insert_Structure_Element() Pvt.';
273: Pa_Debug.TrackPath('ADD','Insert_Structure_Element Pvt');
274:
275: -- pass in the version name to create rbs_element_name.
276: Pa_Debug.G_Stage := 'Get the element_name_id by calling Pa_Rbs_Utils.Populate_Rbs_Element_Name() procedure.';
277: Pa_Rbs_Utils.Populate_Rbs_Element_Name(
278: P_Resource_Source_Id => P_Rbs_Version_Id,
279: P_Resource_Type_Id => -1,
280: X_Rbs_Element_Name_Id => l_Rbs_Element_Name_Id,

Line 283: Pa_Debug.G_Stage := 'Check if the calling to Pa_Rbs_Utils.Populate_Rbs_Element_Name() procedure returned status of U.';

279: P_Resource_Type_Id => -1,
280: X_Rbs_Element_Name_Id => l_Rbs_Element_Name_Id,
281: X_Return_Status => l_Error_Status);
282:
283: Pa_Debug.G_Stage := 'Check if the calling to Pa_Rbs_Utils.Populate_Rbs_Element_Name() procedure returned status of U.';
284: If l_Error_Status = 'U' Then
285:
286: Pa_Debug.G_Stage := 'The call to Pa_Rbs_Utils.Populate_Rbs_Element_Name() procedure returned status Unexpected Error.';
287: Raise NO_RBS_ELEMENT_NAME;

Line 286: Pa_Debug.G_Stage := 'The call to Pa_Rbs_Utils.Populate_Rbs_Element_Name() procedure returned status Unexpected Error.';

282:
283: Pa_Debug.G_Stage := 'Check if the calling to Pa_Rbs_Utils.Populate_Rbs_Element_Name() procedure returned status of U.';
284: If l_Error_Status = 'U' Then
285:
286: Pa_Debug.G_Stage := 'The call to Pa_Rbs_Utils.Populate_Rbs_Element_Name() procedure returned status Unexpected Error.';
287: Raise NO_RBS_ELEMENT_NAME;
288:
289: End If;
290:

Line 291: Pa_Debug.G_Stage := 'Get the next available sequence for tabpel pa_rbs_elements.';

287: Raise NO_RBS_ELEMENT_NAME;
288:
289: End If;
290:
291: Pa_Debug.G_Stage := 'Get the next available sequence for tabpel pa_rbs_elements.';
292: Open c1;
293: Fetch c1 Into l_Rbs_Element_Id;
294: Close c1;
295:

Line 296: Pa_Debug.G_Stage := 'Insert record directly into table pa_rbs_elements,';

292: Open c1;
293: Fetch c1 Into l_Rbs_Element_Id;
294: Close c1;
295:
296: Pa_Debug.G_Stage := 'Insert record directly into table pa_rbs_elements,';
297: Insert Into Pa_Rbs_Elements(
298: RBS_Element_Id,
299: Rbs_Element_Name_Id,
300: RBS_Version_Id,

Line 380: Pa_Debug.G_Stage := 'Leaving Insert_Structure_Element() Pvt.';

376: 1);
377:
378: X_Rbs_Element_Id := l_Rbs_Element_Id;
379:
380: Pa_Debug.G_Stage := 'Leaving Insert_Structure_Element() Pvt.';
381: Pa_Debug.TrackPath('STRIP','Insert_Structure_Element Pvt');
382:
383: Exception
384: When Others Then

Line 381: Pa_Debug.TrackPath('STRIP','Insert_Structure_Element Pvt');

377:
378: X_Rbs_Element_Id := l_Rbs_Element_Id;
379:
380: Pa_Debug.G_Stage := 'Leaving Insert_Structure_Element() Pvt.';
381: Pa_Debug.TrackPath('STRIP','Insert_Structure_Element Pvt');
382:
383: Exception
384: When Others Then
385: X_Return_Status := 'U';

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

434: x_return_status := FND_API.G_RET_STS_SUCCESS;
435: x_msg_data := NULL;
436: x_msg_count := 0;
437:
438: Pa_Debug.G_Stage := 'Entering Update_Header() Pvt.';
439: Pa_Debug.TrackPath('ADD','Update_Header Pvt');
440:
441: --Updates Rbs header information
442: Pa_Debug.G_Stage := 'Call the table handler procedure Pa_Rbs_Headers_Pkg.Update_Row to update the header record.';

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

435: x_msg_data := NULL;
436: x_msg_count := 0;
437:
438: Pa_Debug.G_Stage := 'Entering Update_Header() Pvt.';
439: Pa_Debug.TrackPath('ADD','Update_Header Pvt');
440:
441: --Updates Rbs header information
442: Pa_Debug.G_Stage := 'Call the table handler procedure Pa_Rbs_Headers_Pkg.Update_Row to update the header record.';
443: Pa_Rbs_Headers_Pkg.Update_Row(

Line 442: Pa_Debug.G_Stage := 'Call the table handler procedure Pa_Rbs_Headers_Pkg.Update_Row to update the header record.';

438: Pa_Debug.G_Stage := 'Entering Update_Header() Pvt.';
439: Pa_Debug.TrackPath('ADD','Update_Header Pvt');
440:
441: --Updates Rbs header information
442: Pa_Debug.G_Stage := 'Call the table handler procedure Pa_Rbs_Headers_Pkg.Update_Row to update the header record.';
443: Pa_Rbs_Headers_Pkg.Update_Row(
444: P_RbsHeaderId => P_RbsHeaderId,
445: P_Name => P_Name,
446: P_Description => P_Description,

Line 452: Pa_Debug.G_Stage := 'Leaving Update_Header() Pvt.';

448: P_Use_For_Alloc_Flag => P_Use_For_Alloc_Flag,
449: P_ACTIVE_FLAG => P_ACTIVE_FLAG, --bug#15834912
450: P_EffectiveTo => P_EffectiveTo);
451:
452: Pa_Debug.G_Stage := 'Leaving Update_Header() Pvt.';
453: Pa_Debug.TrackPath('STRIP','Update_Header Pvt');
454:
455: Exception
456: When Others Then

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

449: P_ACTIVE_FLAG => P_ACTIVE_FLAG, --bug#15834912
450: P_EffectiveTo => P_EffectiveTo);
451:
452: Pa_Debug.G_Stage := 'Leaving Update_Header() Pvt.';
453: Pa_Debug.TrackPath('STRIP','Update_Header Pvt');
454:
455: Exception
456: When Others Then
457: X_Return_Status := 'U';

Line 511: Pa_Debug.G_Stage := 'Leaving Update_Versions() Pvt.';

507: x_return_status := FND_API.G_RET_STS_SUCCESS;
508: x_msg_data := NULL;
509: x_msg_count := 0;
510:
511: Pa_Debug.G_Stage := 'Leaving Update_Versions() Pvt.';
512: Pa_Debug.TrackPath('ADD','Update_Versions Pvt');
513:
514: Pa_Debug.G_Stage := 'Check if parameter P_RbsVersionId is null.';
515: If P_RbsVersionId is Null Then

Line 512: Pa_Debug.TrackPath('ADD','Update_Versions Pvt');

508: x_msg_data := NULL;
509: x_msg_count := 0;
510:
511: Pa_Debug.G_Stage := 'Leaving Update_Versions() Pvt.';
512: Pa_Debug.TrackPath('ADD','Update_Versions Pvt');
513:
514: Pa_Debug.G_Stage := 'Check if parameter P_RbsVersionId is null.';
515: If P_RbsVersionId is Null Then
516:

Line 514: Pa_Debug.G_Stage := 'Check if parameter P_RbsVersionId is null.';

510:
511: Pa_Debug.G_Stage := 'Leaving Update_Versions() Pvt.';
512: Pa_Debug.TrackPath('ADD','Update_Versions Pvt');
513:
514: Pa_Debug.G_Stage := 'Check if parameter P_RbsVersionId is null.';
515: If P_RbsVersionId is Null Then
516:
517: Pa_Debug.G_Stage := 'Since we do not have the rbs version id we need to get it.';
518: Select

Line 517: Pa_Debug.G_Stage := 'Since we do not have the rbs version id we need to get it.';

513:
514: Pa_Debug.G_Stage := 'Check if parameter P_RbsVersionId is null.';
515: If P_RbsVersionId is Null Then
516:
517: Pa_Debug.G_Stage := 'Since we do not have the rbs version id we need to get it.';
518: Select
519: Rbs_Version_Id
520: Into
521: l_Rbs_Version_Id

Line 530: Pa_Debug.G_Stage := 'We have the rbs version id via the parameters passed in assign to local variable for use.';

526: And Status_Code = 'WORKING';
527:
528: Else
529:
530: Pa_Debug.G_Stage := 'We have the rbs version id via the parameters passed in assign to local variable for use.';
531: l_Rbs_Version_Id := P_RbsVersionId;
532:
533: End If;
534:

Line 535: Pa_Debug.G_Stage := 'Directly update the rbs working version.';

531: l_Rbs_Version_Id := P_RbsVersionId;
532:
533: End If;
534:
535: Pa_Debug.G_Stage := 'Directly update the rbs working version.';
536: Update Pa_Rbs_Versions_B
537: Set
538: Version_Start_Date = P_EffectiveFrom,
539: Last_Update_Date = l_Last_Update_Date,

Line 549: Pa_Debug.G_Stage := 'Check if the update took place.';

545: And Status_Code = 'WORKING'
546: And Record_Version_Number = Nvl(P_Rec_Version_Num,Record_Version_Number);
547:
548:
549: Pa_Debug.G_Stage := 'Check if the update took place.';
550: If Sql%NotFound Then
551:
552: Pa_Debug.G_Stage := 'Unable to update the rbs version because already updated. Raising error.';
553: Raise No_Data_Found;

Line 552: Pa_Debug.G_Stage := 'Unable to update the rbs version because already updated. Raising error.';

548:
549: Pa_Debug.G_Stage := 'Check if the update took place.';
550: If Sql%NotFound Then
551:
552: Pa_Debug.G_Stage := 'Unable to update the rbs version because already updated. Raising error.';
553: Raise No_Data_Found;
554:
555: End If;
556:

Line 557: Pa_Debug.G_Stage := 'Directly update the pa_rbs_versions_tl table.';

553: Raise No_Data_Found;
554:
555: End If;
556:
557: Pa_Debug.G_Stage := 'Directly update the pa_rbs_versions_tl table.';
558: Update Pa_Rbs_Versions_TL
559: Set
560: Name = P_Name,
561: Description = Nvl(Description,P_Description),

Line 611: Pa_Debug.G_Stage := 'Inside Validate_Rbs_For_Allocations().';

607: l_exists Varchar2(1) := 'N';
608: l_count Number ;
609: BEGIN
610:
611: Pa_Debug.G_Stage := 'Inside Validate_Rbs_For_Allocations().';
612: Pa_Debug.TrackPath('ADD','Validate_Rbs_For_Allocations Pvt');
613:
614: /* Checking PA_RBS_ELEMENTS */
615:

Line 612: Pa_Debug.TrackPath('ADD','Validate_Rbs_For_Allocations Pvt');

608: l_count Number ;
609: BEGIN
610:
611: Pa_Debug.G_Stage := 'Inside Validate_Rbs_For_Allocations().';
612: Pa_Debug.TrackPath('ADD','Validate_Rbs_For_Allocations Pvt');
613:
614: /* Checking PA_RBS_ELEMENTS */
615:
616: Select count(*) INTO l_count

Line 627: Pa_Debug.G_Stage := 'Check if rbs has rules as its elements. If so return Y';

623: verb.Rbs_Version_Id=Ele.Rbs_Version_Id
624: And
625: Ele.resource_source_id=-1;
626:
627: Pa_Debug.G_Stage := 'Check if rbs has rules as its elements. If so return Y';
628:
629: If l_count<>0 Then
630: l_exists := 'Y';
631: Else

Line 635: Pa_Debug.G_Stage := 'Leaving Validate_Rbs_For_Allocations().';

631: Else
632: l_exists := 'N';
633: End If;
634:
635: Pa_Debug.G_Stage := 'Leaving Validate_Rbs_For_Allocations().';
636:
637: Return l_exists ;
638:
639: END Validate_Rbs_For_Allocations;