DBA Data[Home] [Help]

APPS.PA_RBS_VERSIONS_PUB dependencies on FND_API

Line 17: -- P_Commit - Varchar2 Default Fnd_Api.G_False

13: --
14: -- Parameters:
15: --
16: -- IN
17: -- P_Commit - Varchar2 Default Fnd_Api.G_False
18: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True
19: -- P_Api_Version_Number - Number
20: -- P_RBS_Version_Id - Number
21: -- P_Name - Varchar2(240)

Line 18: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True

14: -- Parameters:
15: --
16: -- IN
17: -- P_Commit - Varchar2 Default Fnd_Api.G_False
18: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True
19: -- P_Api_Version_Number - Number
20: -- P_RBS_Version_Id - Number
21: -- P_Name - Varchar2(240)
22: -- P_Description - Varchar2(2000)

Line 35: P_Commit IN Varchar2 Default Fnd_Api.G_False,

31: -- X_Error_Msg_Data - Varchar2(30)
32: /*-------------------------------------------------------------------------*/
33:
34: Procedure Update_Working_Version(
35: P_Commit IN Varchar2 Default Fnd_Api.G_False,
36: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
37: P_API_Version_Number IN Number,
38: P_RBS_Version_Id IN Number,
39: P_Name IN Varchar2,

Line 36: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,

32: /*-------------------------------------------------------------------------*/
33:
34: Procedure Update_Working_Version(
35: P_Commit IN Varchar2 Default Fnd_Api.G_False,
36: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
37: P_API_Version_Number IN Number,
38: P_RBS_Version_Id IN Number,
39: P_Name IN Varchar2,
40: P_Description IN Varchar2,

Line 133: If Not Fnd_Api.Compatible_API_Call (

129: Pa_Debug.G_Stage := 'Entering Update_Working_Version() Pub.';
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

Line 139: Raise Fnd_Api.G_Exc_Unexpected_Error;

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;
142:
143: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';

Line 144: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then

140:
141: End If;
142:
143: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
144: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
145:
146: Pa_Debug.G_Stage := 'Initialize Message Stack.';
147: Fnd_Msg_Pub.Initialize;
148:

Line 154: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;

150:
151: Pa_Debug.G_Stage := 'Initialize error handling variables.';
152: X_Msg_Count := 0;
153: X_Error_Msg_Data := Null;
154: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
155:
156: Pa_Debug.G_Stage := 'Lock the version record.';
157: Open c1(P_Rbs_Ver_Id => P_Rbs_Version_Id, P_Rec_Num => P_Record_Version_Number);
158: Fetch c1 Into l_Ver_Rec;

Line 320: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then

316:
317: End If;
318:
319: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
320: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
321:
322: Commit;
323:
324: End If;

Line 360: -- P_Commit - Varchar2 Default Fnd_Api.G_False

356: --
357: -- Parameters:
358: --
359: -- IN
360: -- P_Commit - Varchar2 Default Fnd_Api.G_False
361: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True
362: -- P_Api_Version_Number - Number
363: -- P_RBS_Version_Id - Number(15)
364: -- P_Record_Version_Number - Number(15)

Line 361: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True

357: -- Parameters:
358: --
359: -- IN
360: -- P_Commit - Varchar2 Default Fnd_Api.G_False
361: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True
362: -- P_Api_Version_Number - Number
363: -- P_RBS_Version_Id - Number(15)
364: -- P_Record_Version_Number - Number(15)
365: -- OUT

Line 373: P_Commit IN Varchar2 Default Fnd_Api.G_False,

369: --
370: /*-------------------------------------------------------------------------*/
371:
372: Procedure Delete_Working_Version(
373: P_Commit IN Varchar2 Default Fnd_Api.G_False,
374: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
375: P_Api_Version_Number IN Number,
376: P_RBS_Version_Id IN Number,
377: P_Record_Version_Number IN Number,

Line 374: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,

370: /*-------------------------------------------------------------------------*/
371:
372: Procedure Delete_Working_Version(
373: P_Commit IN Varchar2 Default Fnd_Api.G_False,
374: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
375: P_Api_Version_Number IN Number,
376: P_RBS_Version_Id IN Number,
377: P_Record_Version_Number IN Number,
378: X_Return_Status OUT NOCOPY Varchar2,

Line 396: If Not Fnd_Api.Compatible_API_Call (

392: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pub.';
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

Line 402: Raise Fnd_Api.G_Exc_Unexpected_Error;

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;
405:
406: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';

Line 407: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then

403:
404: End If;
405:
406: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
407: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
408:
409: Pa_Debug.G_Stage := 'Initialize Message Stack.';
410: Fnd_Msg_Pub.Initialize;
411:

Line 417: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;

413:
414: Pa_Debug.G_Stage := 'Initialize error handling variables.';
415: X_Msg_Count := 0;
416: X_Error_Msg_Data := Null;
417: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
418:
419: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Delete_Working_Version() procedure.';
420: Pa_Rbs_Versions_Pvt.Delete_Working_Version(
421: P_Rbs_Version_Id => P_RBS_Version_Id,

Line 435: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then

431:
432: End If;
433:
434: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
435: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
436:
437: Commit;
438:
439: End If;

Line 469: -- P_Commit - Varchar2 Default Fnd_Api.G_False,

465: --
466: -- Parameters:
467: --
468: -- IN
469: -- P_Commit - Varchar2 Default Fnd_Api.G_False,
470: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True,
471: -- P_Api_Version_Number - Number
472: -- P_RBS_Version_Id - Number(15) is the frozen version id to copy from(should not be null copying)
473: -- P_Rbs_Header_Id - Number(15) is Header for the frozen and the working version

Line 470: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True,

466: -- Parameters:
467: --
468: -- IN
469: -- P_Commit - Varchar2 Default Fnd_Api.G_False,
470: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True,
471: -- P_Api_Version_Number - Number
472: -- P_RBS_Version_Id - Number(15) is the frozen version id to copy from(should not be null copying)
473: -- P_Rbs_Header_Id - Number(15) is Header for the frozen and the working version
474: -- P_Rec_Version_Number - Number(15) is for the current working version

Line 483: P_Commit IN Varchar2 Default Fnd_Api.G_False,

479: --
480: /*-------------------------------------------------------------------------*/
481:
482: Procedure Create_Working_Version (
483: P_Commit IN Varchar2 Default Fnd_Api.G_False,
484: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
485: P_Api_Version_Number IN Number,
486: P_RBS_Version_Id IN Number Default Null,
487: P_Rbs_Header_Id IN Number,

Line 484: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,

480: /*-------------------------------------------------------------------------*/
481:
482: Procedure Create_Working_Version (
483: P_Commit IN Varchar2 Default Fnd_Api.G_False,
484: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
485: P_Api_Version_Number IN Number,
486: P_RBS_Version_Id IN Number Default Null,
487: P_Rbs_Header_Id IN Number,
488: P_Rec_Version_Number IN Number Default Null,

Line 509: If Not Fnd_Api.Compatible_API_Call (

505: Pa_Debug.G_Stage := 'Entering Create_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

Line 515: Raise Fnd_Api.G_Exc_Unexpected_Error;

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;
518:
519: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';

Line 520: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then

516:
517: End If;
518:
519: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
520: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
521:
522: Pa_Debug.G_Stage := 'Initialize Message Stack.';
523: Fnd_Msg_Pub.Initialize;
524:

Line 530: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;

526:
527: Pa_Debug.G_Stage := 'Initialize error handling variables.';
528: X_Msg_Count := 0;
529: X_Error_Msg_Data := Null;
530: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
531:
532: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Create_New_Working_Version() procedure.';
533: Pa_Rbs_Versions_Pvt.Create_New_Working_Version(
534: P_RBS_Version_Id => P_RBS_Version_Id,

Line 548: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then

544:
545: End If;
546:
547: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
548: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
549:
550: Commit;
551:
552: End If;

Line 588: -- P_Commit - Varchar2 Default Fnd_Api.G_False,

584: --
585: -- Parameters:
586: --
587: -- IN
588: -- P_Commit - Varchar2 Default Fnd_Api.G_False,
589: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True,
590: -- P_Rbs_Version_Id - Number(15) is the version id of the version to be freezed
591: -- P_Rbs_Version_Record_Ver_Num - Number(15) is record version number of the version to be freezed
592: -- P_Init_Debugging_Flag - Vachar2(1)

Line 589: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True,

585: -- Parameters:
586: --
587: -- IN
588: -- P_Commit - Varchar2 Default Fnd_Api.G_False,
589: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True,
590: -- P_Rbs_Version_Id - Number(15) is the version id of the version to be freezed
591: -- P_Rbs_Version_Record_Ver_Num - Number(15) is record version number of the version to be freezed
592: -- P_Init_Debugging_Flag - Vachar2(1)
593: -- OUT

Line 600: P_Commit IN Varchar2 Default Fnd_Api.G_False,

596: -- X_Error_Msg_Data - Varchar2(30)
597: --
598:
599: PROCEDURE Freeze_Working_Version(
600: P_Commit IN Varchar2 Default Fnd_Api.G_False,
601: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
602: P_Rbs_Version_Id IN Number,
603: P_Rbs_Version_Record_Ver_Num IN Number Default Null,
604: P_Init_Debugging_Flag IN Varchar2 Default 'Y',

Line 601: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,

597: --
598:
599: PROCEDURE Freeze_Working_Version(
600: P_Commit IN Varchar2 Default Fnd_Api.G_False,
601: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
602: P_Rbs_Version_Id IN Number,
603: P_Rbs_Version_Record_Ver_Num IN Number Default Null,
604: P_Init_Debugging_Flag IN Varchar2 Default 'Y',
605: X_Return_Status OUT NOCOPY Varchar2,

Line 673: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then

669: Pa_Debug.TrackPath('ADD','Freeze_Working_Version');
670:
671: --Initialize the message stack if not initialized
672: Pa_Debug.G_Stage := 'Check if need to initialize the error message stack.';
673: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
674:
675: Pa_Debug.G_Stage := 'Initialize the error message stack by calling Fnd_Msg_Pub.Initialize().';
676: Fnd_Msg_Pub.Initialize;
677:

Line 683: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;

679:
680: Pa_Debug.G_Stage := 'Initialize error handling variables.';
681: X_Msg_Count := 0;
682: X_Error_Msg_Data := Null;
683: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
684:
685:
686: Pa_Debug.G_Stage := 'Check if the version record is locked.';
687: Open c_record_ver_no;

Line 704: x_return_status := Fnd_Api.G_Ret_Sts_Error;

700:
701: Else
702:
703: Pa_Debug.G_Stage := 'Rbs Version record_version_number does not match. Add error to message stack.';
704: x_return_status := Fnd_Api.G_Ret_Sts_Error;
705:
706: Pa_Utils.Add_Message(
707: P_App_Short_Name => 'FND', /* Bug 3819654: Changed short name from PA to FND */
708: P_Msg_Name => 'FND_LOCK_RECORD_ERROR');

Line 714: P_Encoded => Fnd_Api.G_True,

710: l_msg_count := Fnd_Msg_Pub.Count_Msg;
711: If l_Msg_Count = 1 Then
712:
713: Pa_Interface_Utils_Pub.Get_Messages(
714: P_Encoded => Fnd_Api.G_True,
715: P_Msg_Index => 1,
716: P_Msg_Count => l_Msg_Count,
717: P_Msg_Data => l_Msg_Data,
718: P_Data => l_Data,

Line 1020: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1016: p_rbs_version_id => p_rbs_version_id,
1017: x_return_status => x_return_status,
1018: x_error_code => x_error_msg_data);
1019:
1020: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1021: pa_debug.G_Stage := 'Error in API PA_ALLOC_UTILS.ASSOCIATE_RBS_TO_ALLOC_RULE';
1022: Raise l_error;
1023: END IF;
1024:

Line 1068: P_Commit => Fnd_Api.G_False,

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,
1072: P_Rbs_Header_Id => l_Rbs_Header_Id,

Line 1069: P_Init_Msg_List => Fnd_Api.G_False,

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,
1072: P_Rbs_Header_Id => l_Rbs_Header_Id,
1073: P_Rec_Version_Number => l_Rec_Version_Number,

Line 1088: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then

1084:
1085: END IF;
1086:
1087: Pa_Debug.G_Stage := 'Check if need to do commit.';
1088: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
1089:
1090: Pa_Debug.G_Stage := 'Commit changes to the db.';
1091: Commit;
1092: