DBA Data[Home] [Help]

APPS.PA_RBS_PUB dependencies on PA_RBS_PUB

Line 1: Package Body Pa_Rbs_Pub AS

1: Package Body Pa_Rbs_Pub AS
2: /* $Header: PARBSAPB.pls 120.1 2005/08/19 04:23:04 avaithia noship $*/
3: /*
4: * ***************************************************************************************
5: * API Name: Convert_Missing_Rbs_Header

Line 637: P_Header_Rec IN Pa_Rbs_Pub.Rbs_Header_Rec_Typ,

633: Procedure Create_Rbs (
634: P_Commit IN Varchar2 Default Fnd_Api.G_False,
635: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
636: P_API_Version_Number IN Number,
637: P_Header_Rec IN Pa_Rbs_Pub.Rbs_Header_Rec_Typ,
638: P_Version_Rec IN Pa_Rbs_Pub.Rbs_Version_Rec_Typ Default G_Empty_Rbs_Ver_Rec,
639: P_Elements_Tbl IN Rbs_Elements_Tbl_Typ Default G_Empty_Rbs_Elements_Tbl,
640: X_Rbs_Header_Id OUT NOCOPY Number,
641: X_Rbs_Version_Id OUT NOCOPY Number,

Line 638: P_Version_Rec IN Pa_Rbs_Pub.Rbs_Version_Rec_Typ Default G_Empty_Rbs_Ver_Rec,

634: P_Commit IN Varchar2 Default Fnd_Api.G_False,
635: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
636: P_API_Version_Number IN Number,
637: P_Header_Rec IN Pa_Rbs_Pub.Rbs_Header_Rec_Typ,
638: P_Version_Rec IN Pa_Rbs_Pub.Rbs_Version_Rec_Typ Default G_Empty_Rbs_Ver_Rec,
639: P_Elements_Tbl IN Rbs_Elements_Tbl_Typ Default G_Empty_Rbs_Elements_Tbl,
640: X_Rbs_Header_Id OUT NOCOPY Number,
641: X_Rbs_Version_Id OUT NOCOPY Number,
642: X_Elements_Tbl OUT NOCOPY Rbs_Elements_Tbl_Typ,

Line 720: Pa_Rbs_Pub.G_Api_Version_Number,

716: Pa_Debug.TrackPath('ADD','Create_Rbs');
717:
718: Pa_Debug.G_Stage := 'Call Compatibility API.';
719: If Not Fnd_Api.Compatible_API_Call (
720: Pa_Rbs_Pub.G_Api_Version_Number,
721: P_Api_Version_Number,
722: l_Api_Name,
723: Pa_Rbs_Pub.G_Pkg_Name) Then
724:

Line 723: Pa_Rbs_Pub.G_Pkg_Name) Then

719: If Not Fnd_Api.Compatible_API_Call (
720: Pa_Rbs_Pub.G_Api_Version_Number,
721: P_Api_Version_Number,
722: l_Api_Name,
723: Pa_Rbs_Pub.G_Pkg_Name) Then
724:
725: Raise Fnd_Api.G_Exc_Unexpected_Error;
726:
727: End If;

Line 745: Pa_Rbs_Pub.Convert_Missing_Rbs_Header(

741:
742: /***********************************
743: call to covert missing
744: *************************************/
745: Pa_Rbs_Pub.Convert_Missing_Rbs_Header(
746: P_Header_Rec => P_Header_Rec,
747: X_Header_Rec => l_Header_Rec,
748: P_Mode => l_Mode ,
749: X_Error_Msg => X_Error_Msg_Data);

Line 751: Pa_Rbs_Pub.Convert_Missing_Rbs_Version(

747: X_Header_Rec => l_Header_Rec,
748: P_Mode => l_Mode ,
749: X_Error_Msg => X_Error_Msg_Data);
750:
751: Pa_Rbs_Pub.Convert_Missing_Rbs_Version(
752: P_Version_Rec => P_Version_Rec,
753: X_Version_Rec => l_Version_Rec,
754: P_Mode => l_Mode ,
755: X_Error_Msg => X_Error_Msg_Data);

Line 757: Pa_Rbs_Pub.Convert_Missing_Rbs_Elements(

753: X_Version_Rec => l_Version_Rec,
754: P_Mode => l_Mode ,
755: X_Error_Msg => X_Error_Msg_Data);
756:
757: Pa_Rbs_Pub.Convert_Missing_Rbs_Elements(
758: P_Elements_Tbl => P_Elements_Tbl,
759: X_Elements_Tbl => l_Elements_Tbl,
760: P_Mode => l_Mode ,
761: X_Error_Msg => X_Error_Msg_Data);

Line 1044: Pa_Rbs_Pub.PopulateErrorStack(

1040: If X_Error_Msg_Data is not null Then
1041:
1042: Pa_Debug.G_Stage := 'The Process_Rbs_Elements() procedure returned error. ' ||
1043: 'Assign error message to the stack.';
1044: Pa_Rbs_Pub.PopulateErrorStack(
1045: P_Ref_Element_Id => Element_Rec.Rbs_Ref_Element_Id,
1046: P_Element_Id => Element_Rec.Rbs_Element_Id,
1047: P_Process_Type => Element_Rec.Process_Type,
1048: P_Error_Msg_Data => X_Error_Msg_Data);

Line 1144: P_Header_Rec IN Pa_Rbs_Pub.Rbs_Header_Rec_Typ,

1140: Procedure Update_Rbs(
1141: P_Commit IN Varchar2 Default Fnd_Api.G_False,
1142: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
1143: P_API_Version_Number IN Number,
1144: P_Header_Rec IN Pa_Rbs_Pub.Rbs_Header_Rec_Typ,
1145: P_Version_Rec IN Pa_Rbs_Pub.Rbs_Version_Rec_Typ,
1146: P_Elements_Tbl IN Rbs_Elements_Tbl_Typ,
1147: X_Elements_Tbl OUT NOCOPY Rbs_Elements_Tbl_Typ,
1148: X_Return_Status OUT NOCOPY Varchar2,

Line 1145: P_Version_Rec IN Pa_Rbs_Pub.Rbs_Version_Rec_Typ,

1141: P_Commit IN Varchar2 Default Fnd_Api.G_False,
1142: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
1143: P_API_Version_Number IN Number,
1144: P_Header_Rec IN Pa_Rbs_Pub.Rbs_Header_Rec_Typ,
1145: P_Version_Rec IN Pa_Rbs_Pub.Rbs_Version_Rec_Typ,
1146: P_Elements_Tbl IN Rbs_Elements_Tbl_Typ,
1147: X_Elements_Tbl OUT NOCOPY Rbs_Elements_Tbl_Typ,
1148: X_Return_Status OUT NOCOPY Varchar2,
1149: X_Msg_Count OUT NOCOPY Number,

Line 1265: Pa_Rbs_Pub.G_Api_Version_Number,

1261: Pa_Debug.TrackPath('ADD','Update_Rbs');
1262:
1263: Pa_Debug.G_Stage := 'Call Compatibility API.';
1264: If Not Fnd_Api.Compatible_API_Call (
1265: Pa_Rbs_Pub.G_Api_Version_Number,
1266: P_Api_Version_Number,
1267: l_Api_Name,
1268: Pa_Rbs_Pub.G_Pkg_Name) Then
1269:

Line 1268: Pa_Rbs_Pub.G_Pkg_Name) Then

1264: If Not Fnd_Api.Compatible_API_Call (
1265: Pa_Rbs_Pub.G_Api_Version_Number,
1266: P_Api_Version_Number,
1267: l_Api_Name,
1268: Pa_Rbs_Pub.G_Pkg_Name) Then
1269:
1270: Raise Fnd_Api.G_Exc_Unexpected_Error;
1271:
1272: End If;

Line 1291: Pa_Rbs_Pub.Convert_Missing_Rbs_Header(

1287: /***********************************
1288: call to covert missing
1289:
1290: *************************************/
1291: Pa_Rbs_Pub.Convert_Missing_Rbs_Header(
1292: P_Header_Rec => P_Header_Rec,
1293: X_Header_Rec => l_Header_Rec,
1294: P_Mode => l_Mode ,
1295: X_Error_Msg => X_Error_Msg_Data);

Line 1297: Pa_Rbs_Pub.Convert_Missing_Rbs_Elements(

1293: X_Header_Rec => l_Header_Rec,
1294: P_Mode => l_Mode ,
1295: X_Error_Msg => X_Error_Msg_Data);
1296:
1297: Pa_Rbs_Pub.Convert_Missing_Rbs_Elements(
1298: P_Elements_Tbl => P_Elements_Tbl,
1299: X_Elements_Tbl => l_Elements_Tbl,
1300: P_Mode => l_Mode ,
1301: X_Error_Msg => X_Error_Msg_Data);

Line 1385: Pa_Rbs_Pub.Convert_Missing_Rbs_Version(

1381: /***************************
1382: Process the Version Rec
1383: ***************************/
1384:
1385: Pa_Rbs_Pub.Convert_Missing_Rbs_Version(
1386: P_Version_Rec => P_Version_Rec,
1387: X_Version_Rec => l_Version_Rec,
1388: P_Mode => l_Mode ,
1389: X_Error_Msg => X_Error_Msg_Data);

Line 1856: Pa_Rbs_Pub.PopulateErrorStack(

1852: If X_Error_Msg_Data is not null Then
1853:
1854: Pa_Debug.G_Stage := 'The Process_Rbs_Elements() procedure returned error. ' ||
1855: 'Add error message to stack.';
1856: Pa_Rbs_Pub.PopulateErrorStack(
1857: P_Ref_Element_Id => Element_Rec.Rbs_Ref_Element_Id,
1858: P_Element_Id => Element_Rec.Rbs_Element_Id,
1859: P_Process_Type => Element_Rec.Process_Type,
1860: P_Error_Msg_Data => X_Error_Msg_Data);

Line 2431: Pa_Rbs_Pub.Create_Rbs(

2427: Raise Fnd_Api.G_Exc_UnExpected_Error;
2428:
2429: End If;
2430:
2431: Pa_Rbs_Pub.Create_Rbs(
2432: P_Commit => P_Commit,
2433: P_Init_Msg_List => P_Init_Msg_List,
2434: P_API_Version_Number => P_Api_Version_Number,
2435: P_Header_Rec => G_Rbs_Hdr_Rec,

Line 2507: Pa_Rbs_Pub.Update_Rbs(

2503: Raise Fnd_Api.G_Exc_UnExpected_Error;
2504:
2505: End If;
2506:
2507: Pa_Rbs_Pub.Update_Rbs(
2508: P_Commit => P_Commit,
2509: P_Init_Msg_List => P_Init_Msg_List,
2510: P_API_Version_Number => P_Api_Version_Number,
2511: P_Header_Rec => G_Rbs_Hdr_Rec,

Line 2618: Pa_Rbs_Pub.G_Api_Version_Number,

2614: Pa_Debug.TrackPath('ADD','Copy_Rbs_Working_Version');
2615:
2616: Pa_Debug.G_Stage := 'Call Compatibility API.';
2617: If Not Fnd_Api.Compatible_API_Call (
2618: Pa_Rbs_Pub.G_Api_Version_Number,
2619: P_Api_Version_Number,
2620: l_Api_Name,
2621: Pa_Rbs_Pub.G_Pkg_Name) Then
2622:

Line 2621: Pa_Rbs_Pub.G_Pkg_Name) Then

2617: If Not Fnd_Api.Compatible_API_Call (
2618: Pa_Rbs_Pub.G_Api_Version_Number,
2619: P_Api_Version_Number,
2620: l_Api_Name,
2621: Pa_Rbs_Pub.G_Pkg_Name) Then
2622:
2623: Raise Fnd_Api.G_Exc_Unexpected_Error;
2624:
2625: End If;

Line 2714: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

2710: Return;
2711: When Others Then
2712: X_Return_Status := 'U';
2713: X_Msg_Count := 1;
2714: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
2715:
2716: --For bug 4061935.
2717: If Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_Msg_Lvl_UnExp_Error) Then
2718: Fnd_Msg_Pub.Add_Exc_Msg(

Line 2786: Pa_Rbs_Pub.G_Api_Version_Number,

2782: Pa_Debug.TrackPath('ADD','Freeze_Rbs_Version');
2783:
2784: Pa_Debug.G_Stage := 'Call Compatibility API.';
2785: If Not Fnd_Api.Compatible_API_Call (
2786: Pa_Rbs_Pub.G_Api_Version_Number,
2787: P_Api_Version_Number,
2788: l_Api_Name,
2789: Pa_Rbs_Pub.G_Pkg_Name) Then
2790:

Line 2789: Pa_Rbs_Pub.G_Pkg_Name) Then

2785: If Not Fnd_Api.Compatible_API_Call (
2786: Pa_Rbs_Pub.G_Api_Version_Number,
2787: P_Api_Version_Number,
2788: l_Api_Name,
2789: Pa_Rbs_Pub.G_Pkg_Name) Then
2790:
2791: Raise Fnd_Api.G_Exc_Unexpected_Error;
2792:
2793: End If;

Line 2869: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

2865: Return;
2866: When Others Then
2867: X_Return_Status := 'U';
2868: X_Msg_Count := 1;
2869: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
2870:
2871: If Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_Msg_Lvl_UnExp_Error) Then
2872: Fnd_Msg_Pub.Add_Exc_Msg(
2873: P_Pkg_Name => G_Pkg_Name,

Line 2952: Pa_Rbs_Pub.G_Api_Version_Number,

2948: Pa_Debug.TrackPath('ADD','Assign_Rbs_To_Project');
2949:
2950: Pa_Debug.G_Stage := 'Call Compatibility API.';
2951: If Not Fnd_Api.Compatible_API_Call (
2952: Pa_Rbs_Pub.G_Api_Version_Number,
2953: P_Api_Version_Number,
2954: l_Api_Name,
2955: Pa_Rbs_Pub.G_Pkg_Name) Then
2956:

Line 2955: Pa_Rbs_Pub.G_Pkg_Name) Then

2951: If Not Fnd_Api.Compatible_API_Call (
2952: Pa_Rbs_Pub.G_Api_Version_Number,
2953: P_Api_Version_Number,
2954: l_Api_Name,
2955: Pa_Rbs_Pub.G_Pkg_Name) Then
2956:
2957: Raise Fnd_Api.G_Exc_Unexpected_Error;
2958:
2959: End If;

Line 2991: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

2987: P_out_project_id => l_project_id,
2988: P_Return_Status => X_Return_Status);
2989:
2990: If X_Return_Status <> 'S' Then
2991: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
2992: Raise l_error;
2993: End If;
2994:
2995: End If;

Line 3104: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;

3100: Return;
3101: When Others Then
3102: X_Return_Status := 'U';
3103: X_Msg_Count := 1;
3104: X_Error_Msg_Data := Pa_Rbs_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage || ':' || SqlErrm;
3105:
3106: If Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_Msg_Lvl_UnExp_Error) Then
3107: Fnd_Msg_Pub.Add_Exc_Msg(
3108: P_Pkg_Name => G_Pkg_Name,

Line 3198: End Pa_Rbs_Pub;

3194: Raise;
3195:
3196: End PopulateErrorStack;
3197:
3198: End Pa_Rbs_Pub;