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)
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)
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,
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,
130: Pa_Debug.G_Stage := 'Entering Update_Working_Version() Pub.';
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
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;
143:
144: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
141:
142: End If;
143:
144: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
145: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
146:
147: Pa_Debug.G_Stage := 'Initialize Message Stack.';
148: Fnd_Msg_Pub.Initialize;
149:
151:
152: Pa_Debug.G_Stage := 'Initialize error handling variables.';
153: X_Msg_Count := 0;
154: X_Error_Msg_Data := Null;
155: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
156:
157: Pa_Debug.G_Stage := 'Lock the version record.';
158: Open c1(P_Rbs_Ver_Id => P_Rbs_Version_Id, P_Rec_Num => P_Record_Version_Number);
159: Fetch c1 Into l_Ver_Rec;
318:
319: End If;
320:
321: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
322: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
323:
324: Commit;
325:
326: End If;
358: --
359: -- Parameters:
360: --
361: -- IN
362: -- P_Commit - Varchar2 Default Fnd_Api.G_False
363: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True
364: -- P_Api_Version_Number - Number
365: -- P_RBS_Version_Id - Number(15)
366: -- P_Record_Version_Number - Number(15)
359: -- Parameters:
360: --
361: -- IN
362: -- P_Commit - Varchar2 Default Fnd_Api.G_False
363: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True
364: -- P_Api_Version_Number - Number
365: -- P_RBS_Version_Id - Number(15)
366: -- P_Record_Version_Number - Number(15)
367: -- OUT
371: --
372: /*-------------------------------------------------------------------------*/
373:
374: Procedure Delete_Working_Version(
375: P_Commit IN Varchar2 Default Fnd_Api.G_False,
376: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
377: P_Api_Version_Number IN Number,
378: P_RBS_Version_Id IN Number,
379: P_Record_Version_Number IN Number,
372: /*-------------------------------------------------------------------------*/
373:
374: Procedure Delete_Working_Version(
375: P_Commit IN Varchar2 Default Fnd_Api.G_False,
376: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
377: P_Api_Version_Number IN Number,
378: P_RBS_Version_Id IN Number,
379: P_Record_Version_Number IN Number,
380: X_Return_Status OUT NOCOPY Varchar2,
394: Pa_Debug.G_Stage := 'Entering Delete_Working_Version() Pub.';
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
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;
407:
408: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
405:
406: End If;
407:
408: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
409: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
410:
411: Pa_Debug.G_Stage := 'Initialize Message Stack.';
412: Fnd_Msg_Pub.Initialize;
413:
415:
416: Pa_Debug.G_Stage := 'Initialize error handling variables.';
417: X_Msg_Count := 0;
418: X_Error_Msg_Data := Null;
419: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
420:
421: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Delete_Working_Version() procedure.';
422: Pa_Rbs_Versions_Pvt.Delete_Working_Version(
423: P_Rbs_Version_Id => P_RBS_Version_Id,
433:
434: End If;
435:
436: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
437: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
438:
439: Commit;
440:
441: End If;
467: --
468: -- Parameters:
469: --
470: -- IN
471: -- P_Commit - Varchar2 Default Fnd_Api.G_False,
472: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True,
473: -- P_Api_Version_Number - Number
474: -- P_RBS_Version_Id - Number(15) is the frozen version id to copy from(should not be null copying)
475: -- P_Rbs_Header_Id - Number(15) is Header for the frozen and the working version
468: -- Parameters:
469: --
470: -- IN
471: -- P_Commit - Varchar2 Default Fnd_Api.G_False,
472: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True,
473: -- P_Api_Version_Number - Number
474: -- P_RBS_Version_Id - Number(15) is the frozen version id to copy from(should not be null copying)
475: -- P_Rbs_Header_Id - Number(15) is Header for the frozen and the working version
476: -- P_Rec_Version_Number - Number(15) is for the current working version
481: --
482: /*-------------------------------------------------------------------------*/
483:
484: Procedure Create_Working_Version (
485: P_Commit IN Varchar2 Default Fnd_Api.G_False,
486: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
487: P_Api_Version_Number IN Number,
488: P_RBS_Version_Id IN Number Default Null,
489: P_Rbs_Header_Id IN Number,
482: /*-------------------------------------------------------------------------*/
483:
484: Procedure Create_Working_Version (
485: P_Commit IN Varchar2 Default Fnd_Api.G_False,
486: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
487: P_Api_Version_Number IN Number,
488: P_RBS_Version_Id IN Number Default Null,
489: P_Rbs_Header_Id IN Number,
490: P_Rec_Version_Number IN Number Default Null,
507: Pa_Debug.G_Stage := 'Entering Create_Working_Version().';
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
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;
520:
521: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
518:
519: End If;
520:
521: Pa_Debug.G_Stage := 'Check if need to initialize message stack.';
522: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
523:
524: Pa_Debug.G_Stage := 'Initialize Message Stack.';
525: Fnd_Msg_Pub.Initialize;
526:
528:
529: Pa_Debug.G_Stage := 'Initialize error handling variables.';
530: X_Msg_Count := 0;
531: X_Error_Msg_Data := Null;
532: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
533:
534: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Create_New_Working_Version() procedure.';
535: Pa_Rbs_Versions_Pvt.Create_New_Working_Version(
536: P_RBS_Version_Id => P_RBS_Version_Id,
546:
547: End If;
548:
549: Pa_Debug.G_Stage := 'Check to do commit(T-True,F-False) - ' || P_Commit;
550: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
551:
552: Commit;
553:
554: End If;
586: --
587: -- Parameters:
588: --
589: -- IN
590: -- P_Commit - Varchar2 Default Fnd_Api.G_False,
591: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True,
592: -- P_Rbs_Version_Id - Number(15) is the version id of the version to be freezed
593: -- P_Rbs_Version_Record_Ver_Num - Number(15) is record version number of the version to be freezed
594: -- P_Init_Debugging_Flag - Vachar2(1)
587: -- Parameters:
588: --
589: -- IN
590: -- P_Commit - Varchar2 Default Fnd_Api.G_False,
591: -- P_Init_Msg_List - Varchar2 Default Fnd_Api.G_True,
592: -- P_Rbs_Version_Id - Number(15) is the version id of the version to be freezed
593: -- P_Rbs_Version_Record_Ver_Num - Number(15) is record version number of the version to be freezed
594: -- P_Init_Debugging_Flag - Vachar2(1)
595: -- OUT
598: -- X_Error_Msg_Data - Varchar2(30)
599: --
600:
601: PROCEDURE Freeze_Working_Version(
602: P_Commit IN Varchar2 Default Fnd_Api.G_False,
603: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
604: P_Rbs_Version_Id IN Number,
605: P_Rbs_Version_Record_Ver_Num IN Number Default Null,
606: P_Init_Debugging_Flag IN Varchar2 Default 'Y',
599: --
600:
601: PROCEDURE Freeze_Working_Version(
602: P_Commit IN Varchar2 Default Fnd_Api.G_False,
603: P_Init_Msg_List IN Varchar2 Default Fnd_Api.G_True,
604: P_Rbs_Version_Id IN Number,
605: P_Rbs_Version_Record_Ver_Num IN Number Default Null,
606: P_Init_Debugging_Flag IN Varchar2 Default 'Y',
607: X_Return_Status OUT NOCOPY Varchar2,
671: Pa_Debug.TrackPath('ADD','Freeze_Working_Version');
672:
673: --Initialize the message stack if not initialized
674: Pa_Debug.G_Stage := 'Check if need to initialize the error message stack.';
675: If Fnd_Api.To_Boolean(nvl(P_Init_Msg_List,Fnd_Api.G_True)) Then
676:
677: Pa_Debug.G_Stage := 'Initialize the error message stack by calling Fnd_Msg_Pub.Initialize().';
678: Fnd_Msg_Pub.Initialize;
679:
681:
682: Pa_Debug.G_Stage := 'Initialize error handling variables.';
683: X_Msg_Count := 0;
684: X_Error_Msg_Data := Null;
685: X_Return_Status := Fnd_Api.G_Ret_Sts_Success;
686:
687:
688: Pa_Debug.G_Stage := 'Check if the version record is locked.';
689: Open c_record_ver_no;
702:
703: Else
704:
705: Pa_Debug.G_Stage := 'Rbs Version record_version_number does not match. Add error to message stack.';
706: x_return_status := Fnd_Api.G_Ret_Sts_Error;
707:
708: Pa_Utils.Add_Message(
709: P_App_Short_Name => 'FND', /* Bug 3819654: Changed short name from PA to FND */
710: P_Msg_Name => 'FND_LOCK_RECORD_ERROR');
712: l_msg_count := Fnd_Msg_Pub.Count_Msg;
713: If l_Msg_Count = 1 Then
714:
715: Pa_Interface_Utils_Pub.Get_Messages(
716: P_Encoded => Fnd_Api.G_True,
717: P_Msg_Index => 1,
718: P_Msg_Count => l_Msg_Count,
719: P_Msg_Data => l_Msg_Data,
720: P_Data => l_Data,
1018: p_rbs_version_id => p_rbs_version_id,
1019: x_return_status => x_return_status,
1020: x_error_code => x_error_msg_data);
1021:
1022: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1023: pa_debug.G_Stage := 'Error in API PA_ALLOC_UTILS.ASSOCIATE_RBS_TO_ALLOC_RULE';
1024: Raise l_error;
1025: END IF;
1026:
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,
1074: P_Rbs_Header_Id => l_Rbs_Header_Id,
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,
1074: P_Rbs_Header_Id => l_Rbs_Header_Id,
1075: P_Rec_Version_Number => l_Rec_Version_Number,
1086:
1087: END IF;
1088:
1089: Pa_Debug.G_Stage := 'Check if need to do commit.';
1090: If Fnd_Api.To_Boolean(Nvl(P_Commit,Fnd_Api.G_False)) Then
1091:
1092: Pa_Debug.G_Stage := 'Commit changes to the db.';
1093: Commit;
1094: