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
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,
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,
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:
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;
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);
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);
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);
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);
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,
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,
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:
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;
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);
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);
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);
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);
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,
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,
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:
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;
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(
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:
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;
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,
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:
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;
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;
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,
3194: Raise;
3195:
3196: End PopulateErrorStack;
3197:
3198: End Pa_Rbs_Pub;