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.3 2011/12/28 11:17:00 djambhek ship $
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.Freeze_Working_Version';
5:

Line 135: Pa_Rbs_Versions_Pub.G_Api_Version_Number,

131: Pa_Debug.TrackPath('ADD','Update_Working_Version Pub');
132:
133: Pa_Debug.G_Stage := 'Call Compatibility API.';
134: If Not Fnd_Api.Compatible_API_Call (
135: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
136: P_Api_Version_Number,
137: l_Api_Name,
138: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then
139:

Line 138: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then

134: If Not Fnd_Api.Compatible_API_Call (
135: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
136: P_Api_Version_Number,
137: l_Api_Name,
138: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then
139:
140: Raise Fnd_Api.G_Exc_Unexpected_Error;
141:
142: End If;

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

336: Pa_Debug.TrackPath('STRIP','Update_Working_Version Pub');
337: When Others Then
338: X_Return_Status := 'U';
339: X_Msg_Count := 1;
340: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||
341: ':' || SqlErrm;
342: If P_Init_Debugging_Flag = 'Y' Then
343: Rollback;
344: Else

Line 399: Pa_Rbs_Versions_Pub.G_Api_Version_Number,

395: Pa_Debug.TrackPath('ADD','Delete_Working_Version Pub');
396:
397: Pa_Debug.G_Stage := 'Call Compatibility API.';
398: If Not Fnd_Api.Compatible_API_Call (
399: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
400: P_Api_Version_Number,
401: l_Api_Name,
402: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then
403:

Line 402: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then

398: If Not Fnd_Api.Compatible_API_Call (
399: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
400: P_Api_Version_Number,
401: l_Api_Name,
402: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then
403:
404: Raise Fnd_Api.G_Exc_Unexpected_Error;
405:
406: End If;

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

449: X_Msg_Count := 1;
450: When Others Then
451: X_Return_Status := 'U';
452: X_Msg_Count := 1;
453: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||
454: ':' || SqlErrm;
455: Rollback;
456:
457: End Delete_Working_Version;

Line 512: Pa_Rbs_Versions_Pub.G_Api_Version_Number,

508: Pa_Debug.TrackPath('ADD','Create_Working_Version');
509:
510: Pa_Debug.G_Stage := 'Call Compatibility API.';
511: If Not Fnd_Api.Compatible_API_Call (
512: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
513: P_Api_Version_Number,
514: l_Api_Name,
515: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then
516:

Line 515: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then

511: If Not Fnd_Api.Compatible_API_Call (
512: Pa_Rbs_Versions_Pub.G_Api_Version_Number,
513: P_Api_Version_Number,
514: l_Api_Name,
515: Pa_Rbs_Versions_Pub.G_Pkg_Name) Then
516:
517: Raise Fnd_Api.G_Exc_Unexpected_Error;
518:
519: End If;

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

562: X_Msg_Count := 1;
563: When Others Then
564: X_Return_Status := 'U';
565: X_Msg_Count := 1;
566: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||
567: ':' || SqlErrm;
568: If P_Init_Debugging_Flag = 'Y' Then
569: Rollback;
570: Else

Line 1069: Pa_Rbs_Versions_Pub.Create_Working_Version(

1065:
1066: l_Api_Version_Number := 1;
1067:
1068: Pa_Debug.G_Stage := 'Create a copy of the version being freezed which will be the working version for this header.';
1069: Pa_Rbs_Versions_Pub.Create_Working_Version(
1070: P_Commit => Fnd_Api.G_False,
1071: P_Init_Msg_List => Fnd_Api.G_False,
1072: P_Api_Version_Number => l_Api_Version_Number,
1073: P_RBS_Version_Id => P_RBS_Version_Id,

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

1077: X_Return_Status => X_Return_Status,
1078: X_Msg_Count => X_Msg_Count,
1079: X_Error_Msg_Data => X_Error_Msg_Data);
1080:
1081: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
1082: IF X_Error_Msg_Data Is Not Null Then
1083:
1084: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
1085: Raise l_error;

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

1080:
1081: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
1082: IF X_Error_Msg_Data Is Not Null Then
1083:
1084: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pub.Create_Working_Version() procedure return error.';
1085: Raise l_error;
1086:
1087: END IF;
1088:

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

1104:
1105: When Others Then
1106: X_Return_Status := 'E';
1107: X_Msg_Count := 1;
1108: X_Error_Msg_Data := Pa_Rbs_Versions_Pub.G_Pkg_Name || ':::' || Pa_Debug.G_Path || '::' || Pa_Debug.G_Stage ||
1109: ':' || SqlErrm;
1110: If P_Init_Debugging_Flag = 'Y' Then
1111: Rollback;
1112: Else

Line 1118: End Pa_Rbs_Versions_Pub;

1114: End If;
1115:
1116: END Freeze_Working_Version;
1117:
1118: End Pa_Rbs_Versions_Pub;