DBA Data[Home] [Help]

APPS.PA_RBS_HEADER_PVT dependencies on PA_DEBUG

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

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

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

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

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

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

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

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

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

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

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

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

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

84: P_EffectiveTo => P_EffectiveTo,
85: P_Use_For_Alloc_Flag => P_Use_For_Alloc_Flag,
86: P_BusinessGroupId => l_Business_Group_Id );
87:
88: Pa_Debug.G_Stage := 'Leaving Insert_Header() Pvt.';
89: Pa_Debug.TrackPath('STRIP','Insert_Header Pvt');
90:
91: Exception
92: When Others Then

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

85: P_Use_For_Alloc_Flag => P_Use_For_Alloc_Flag,
86: P_BusinessGroupId => l_Business_Group_Id );
87:
88: Pa_Debug.G_Stage := 'Leaving Insert_Header() Pvt.';
89: Pa_Debug.TrackPath('STRIP','Insert_Header Pvt');
90:
91: Exception
92: When Others Then
93: X_Return_Status := 'U';

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

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

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

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

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

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

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

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

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

189: l_Last_Updated_By,
190: l_Last_Update_Login,
191: 1 );
192:
193: Pa_Debug.G_Stage := 'Insert working versions into Pa_Rbs_Versions_TL table directly here.';
194: Insert Into Pa_Rbs_Versions_TL(
195: Rbs_Version_Id,
196: Name,
197: Description,

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

227: T.Rbs_Version_Id=X_Rbs_Version_Id
228: And
229: T.Language=L.Language_Code);
230:
231: Pa_Debug.G_Stage := 'Entering Insert_Versions() Pvt.';
232: Pa_Debug.TrackPath('STRIP','Insert_Versions Pvt');
233:
234: Exception
235: When Others Then

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

228: And
229: T.Language=L.Language_Code);
230:
231: Pa_Debug.G_Stage := 'Entering Insert_Versions() Pvt.';
232: Pa_Debug.TrackPath('STRIP','Insert_Versions Pvt');
233:
234: Exception
235: When Others Then
236: X_Return_Status := 'U';

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

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

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

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

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

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

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

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

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

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

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

283: Raise NO_RBS_ELEMENT_NAME;
284:
285: End If;
286:
287: Pa_Debug.G_Stage := 'Get the next available sequence for tabpel pa_rbs_elements.';
288: Open c1;
289: Fetch c1 Into l_Rbs_Element_Id;
290: Close c1;
291:

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

288: Open c1;
289: Fetch c1 Into l_Rbs_Element_Id;
290: Close c1;
291:
292: Pa_Debug.G_Stage := 'Insert record directly into table pa_rbs_elements,';
293: Insert Into Pa_Rbs_Elements(
294: RBS_Element_Id,
295: Rbs_Element_Name_Id,
296: RBS_Version_Id,

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

372: 1);
373:
374: X_Rbs_Element_Id := l_Rbs_Element_Id;
375:
376: Pa_Debug.G_Stage := 'Leaving Insert_Structure_Element() Pvt.';
377: Pa_Debug.TrackPath('STRIP','Insert_Structure_Element Pvt');
378:
379: Exception
380: When Others Then

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

373:
374: X_Rbs_Element_Id := l_Rbs_Element_Id;
375:
376: Pa_Debug.G_Stage := 'Leaving Insert_Structure_Element() Pvt.';
377: Pa_Debug.TrackPath('STRIP','Insert_Structure_Element Pvt');
378:
379: Exception
380: When Others Then
381: X_Return_Status := 'U';

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

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

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

430: x_msg_data := NULL;
431: x_msg_count := 0;
432:
433: Pa_Debug.G_Stage := 'Entering Update_Header() Pvt.';
434: Pa_Debug.TrackPath('ADD','Update_Header Pvt');
435:
436: --Updates Rbs header information
437: Pa_Debug.G_Stage := 'Call the table handler procedure Pa_Rbs_Headers_Pkg.Update_Row to update the header record.';
438: Pa_Rbs_Headers_Pkg.Update_Row(

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

433: Pa_Debug.G_Stage := 'Entering Update_Header() Pvt.';
434: Pa_Debug.TrackPath('ADD','Update_Header Pvt');
435:
436: --Updates Rbs header information
437: Pa_Debug.G_Stage := 'Call the table handler procedure Pa_Rbs_Headers_Pkg.Update_Row to update the header record.';
438: Pa_Rbs_Headers_Pkg.Update_Row(
439: P_RbsHeaderId => P_RbsHeaderId,
440: P_Name => P_Name,
441: P_Description => P_Description,

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

442: P_EffectiveFrom => P_EffectiveFrom,
443: P_Use_For_Alloc_Flag => P_Use_For_Alloc_Flag,
444: P_EffectiveTo => P_EffectiveTo);
445:
446: Pa_Debug.G_Stage := 'Leaving Update_Header() Pvt.';
447: Pa_Debug.TrackPath('STRIP','Update_Header Pvt');
448:
449: Exception
450: When Others Then

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

443: P_Use_For_Alloc_Flag => P_Use_For_Alloc_Flag,
444: P_EffectiveTo => P_EffectiveTo);
445:
446: Pa_Debug.G_Stage := 'Leaving Update_Header() Pvt.';
447: Pa_Debug.TrackPath('STRIP','Update_Header Pvt');
448:
449: Exception
450: When Others Then
451: X_Return_Status := 'U';

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

501: x_return_status := FND_API.G_RET_STS_SUCCESS;
502: x_msg_data := NULL;
503: x_msg_count := 0;
504:
505: Pa_Debug.G_Stage := 'Leaving Update_Versions() Pvt.';
506: Pa_Debug.TrackPath('ADD','Update_Versions Pvt');
507:
508: Pa_Debug.G_Stage := 'Check if parameter P_RbsVersionId is null.';
509: If P_RbsVersionId is Null Then

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

502: x_msg_data := NULL;
503: x_msg_count := 0;
504:
505: Pa_Debug.G_Stage := 'Leaving Update_Versions() Pvt.';
506: Pa_Debug.TrackPath('ADD','Update_Versions Pvt');
507:
508: Pa_Debug.G_Stage := 'Check if parameter P_RbsVersionId is null.';
509: If P_RbsVersionId is Null Then
510:

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

504:
505: Pa_Debug.G_Stage := 'Leaving Update_Versions() Pvt.';
506: Pa_Debug.TrackPath('ADD','Update_Versions Pvt');
507:
508: Pa_Debug.G_Stage := 'Check if parameter P_RbsVersionId is null.';
509: If P_RbsVersionId is Null Then
510:
511: Pa_Debug.G_Stage := 'Since we do not have the rbs version id we need to get it.';
512: Select

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

507:
508: Pa_Debug.G_Stage := 'Check if parameter P_RbsVersionId is null.';
509: If P_RbsVersionId is Null Then
510:
511: Pa_Debug.G_Stage := 'Since we do not have the rbs version id we need to get it.';
512: Select
513: Rbs_Version_Id
514: Into
515: l_Rbs_Version_Id

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

520: And Status_Code = 'WORKING';
521:
522: Else
523:
524: Pa_Debug.G_Stage := 'We have the rbs version id via the parameters passed in assign to local variable for use.';
525: l_Rbs_Version_Id := P_RbsVersionId;
526:
527: End If;
528:

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

525: l_Rbs_Version_Id := P_RbsVersionId;
526:
527: End If;
528:
529: Pa_Debug.G_Stage := 'Directly update the rbs working version.';
530: Update Pa_Rbs_Versions_B
531: Set
532: Version_Start_Date = P_EffectiveFrom,
533: Last_Update_Date = l_Last_Update_Date,

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

539: And Status_Code = 'WORKING'
540: And Record_Version_Number = Nvl(P_Rec_Version_Num,Record_Version_Number);
541:
542:
543: Pa_Debug.G_Stage := 'Check if the update took place.';
544: If Sql%NotFound Then
545:
546: Pa_Debug.G_Stage := 'Unable to update the rbs version because already updated. Raising error.';
547: Raise No_Data_Found;

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

542:
543: Pa_Debug.G_Stage := 'Check if the update took place.';
544: If Sql%NotFound Then
545:
546: Pa_Debug.G_Stage := 'Unable to update the rbs version because already updated. Raising error.';
547: Raise No_Data_Found;
548:
549: End If;
550:

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

547: Raise No_Data_Found;
548:
549: End If;
550:
551: Pa_Debug.G_Stage := 'Directly update the pa_rbs_versions_tl table.';
552: Update Pa_Rbs_Versions_TL
553: Set
554: Name = P_Name,
555: Description = Nvl(Description,P_Description),

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

601: l_exists Varchar2(1) := 'N';
602: l_count Number ;
603: BEGIN
604:
605: Pa_Debug.G_Stage := 'Inside Validate_Rbs_For_Allocations().';
606: Pa_Debug.TrackPath('ADD','Validate_Rbs_For_Allocations Pvt');
607:
608: /* Checking PA_RBS_ELEMENTS */
609:

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

602: l_count Number ;
603: BEGIN
604:
605: Pa_Debug.G_Stage := 'Inside Validate_Rbs_For_Allocations().';
606: Pa_Debug.TrackPath('ADD','Validate_Rbs_For_Allocations Pvt');
607:
608: /* Checking PA_RBS_ELEMENTS */
609:
610: Select count(*) INTO l_count

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

617: verb.Rbs_Version_Id=Ele.Rbs_Version_Id
618: And
619: Ele.resource_source_id=-1;
620:
621: Pa_Debug.G_Stage := 'Check if rbs has rules as its elements. If so return Y';
622:
623: If l_count<>0 Then
624: l_exists := 'Y';
625: Else

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

625: Else
626: l_exists := 'N';
627: End If;
628:
629: Pa_Debug.G_Stage := 'Leaving Validate_Rbs_For_Allocations().';
630:
631: Return l_exists ;
632:
633: END Validate_Rbs_For_Allocations;