1: package body Pa_Rbs_Versions_Pub as
2: --$Header: PARBSVPB.pls 120.0 2005/06/03 13:50:35 appldev noship $
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.Freeze_Working_Version';
5:
130: Pa_Debug.TrackPath('ADD','Update_Working_Version Pub');
131:
132: Pa_Debug.G_Stage := 'Call Compatibility API.';
133: If Not Fnd_Api.Compatible_API_Call (
134: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
135: P_Api_Version_Number,
136: l_Api_Name,
137: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then
138:
133: If Not Fnd_Api.Compatible_API_Call (
134: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
135: P_Api_Version_Number,
136: l_Api_Name,
137: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then
138:
139: Raise Fnd_Api.G_Exc_Unexpected_Error;
140:
141: End If;
334: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pub');
335: When Others Then
336: X_Return_Status := 'U';
337: X_Msg_Count := 1;
338: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||
339: ':' || SqlErrm;
340: If P_Init_Debugging_Flag = 'Y' Then
341: Rollback;
342: Else
393: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pub');
394:
395: Pa_Debug.G_Stage := 'Call Compatibility API.';
396: If Not Fnd_Api.Compatible_API_Call (
397: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
398: P_Api_Version_Number,
399: l_Api_Name,
400: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then
401:
396: If Not Fnd_Api.Compatible_API_Call (
397: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
398: P_Api_Version_Number,
399: l_Api_Name,
400: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then
401:
402: Raise Fnd_Api.G_Exc_Unexpected_Error;
403:
404: End If;
447: X_Msg_Count := 1;
448: When Others Then
449: X_Return_Status := 'U';
450: X_Msg_Count := 1;
451: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||
452: ':' || SqlErrm;
453: Rollback;
454:
455: End Delete_Working_Version;
506: Pa_Debug.TrackPath('ADD','Create_Working_Version');
507:
508: Pa_Debug.G_Stage := 'Call Compatibility API.';
509: If Not Fnd_Api.Compatible_API_Call (
510: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
511: P_Api_Version_Number,
512: l_Api_Name,
513: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then
514:
509: If Not Fnd_Api.Compatible_API_Call (
510: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
511: P_Api_Version_Number,
512: l_Api_Name,
513: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then
514:
515: Raise Fnd_Api.G_Exc_Unexpected_Error;
516:
517: End If;
560: X_Msg_Count := 1;
561: When Others Then
562: X_Return_Status := 'U';
563: X_Msg_Count := 1;
564: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||
565: ':' || SqlErrm;
566: If P_Init_Debugging_Flag = 'Y' Then
567: Rollback;
568: Else
1063:
1064: l_Api_Version_Number := 1;
1065:
1066: Pa_Debug.G_Stage := 'Create a copy of the version being freezed which will be the working version for this header.';
1067: Pa_Rbs_Versions_Pub.Create_Working_Version(
1068: P_Commit => Fnd_Api.G_False,
1069: P_Init_Msg_List => Fnd_Api.G_False,
1070: P_Api_Version_Number => l_Api_Version_Number,
1071: P_RBS_Version_Id => P_RBS_Version_Id,
1075: X_Return_Status => X_Return_Status,
1076: X_Msg_Count => X_Msg_Count,
1077: X_Error_Msg_Data => X_Error_Msg_Data);
1078:
1079: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
1080: IF X_Error_Msg_Data Is Not Null Then
1081:
1082: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
1083: Raise l_error;
1078:
1079: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
1080: IF X_Error_Msg_Data Is Not Null Then
1081:
1082: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
1083: Raise l_error;
1084:
1085: END IF;
1086:
1102:
1103: When Others Then
1104: X_Return_Status := 'E';
1105: X_Msg_Count := 1;
1106: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||
1107: ':' || SqlErrm;
1108: If P_Init_Debugging_Flag = 'Y' Then
1109: Rollback;
1110: Else
1112: End If;
1113:
1114: END Freeze_Working_Version;
1115:
1116: End Pa_Rbs_Versions_Pub;