DBA Data[Home] [Help]

APPS.PA_RBS_VERSIONS_PUB dependencies on PA_RBS_VERSIONS_PUB

Line 1: package body Pa_Rbs_Versions_Pub as

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:

Line 134: Pa_Rbs_Versions_Pub.G_Api_Version_Number,

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:

Line 137: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then

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;

Line 338: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||

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

Line 397: Pa_Rbs_Versions_Pub.G_Api_Version_Number,

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:

Line 400: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then

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;

Line 451: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||

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;

Line 510: Pa_Rbs_Versions_Pub.G_Api_Version_Number,

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:

Line 513: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then

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;

Line 564: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||

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

Line 1067: Pa_Rbs_Versions_Pub.Create_Working_Version(

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,

Line 1079: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';

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;

Line 1082: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return 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:

Line 1106: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||

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

Line 1116: End Pa_Rbs_Versions_Pub;

1112: End If;
1113:
1114: END Freeze_Working_Version;
1115:
1116: End Pa_Rbs_Versions_Pub;