[Home] [Help]
58: Select
59: Status_Code,
60: Job_Group_Id
61: From
62: Pa_Rbs_Versions_B
63: Where
64: Rbs_Version_Id = P_Rbs_Version_Id
65: And Status_Code = 'WORKING'
66: And Record_Version_Number = P_Rec_Num
76: TL.Name
77: From
78: Pa_Rbs_Headers_B H,
79: Pa_Rbs_Headers_TL TL,
80: Pa_Rbs_Versions_B V
81: Where
82: TL.Rbs_Header_Id = H.Rbs_Header_Id
83: And UserEnv('LANG') in (TL.Language, TL.Source_Lang)
84: And H.Rbs_Header_Id = V.Rbs_Header_Id
89: Cursor GetLatestFrozenRbsVersionId(P_Id IN Number) Is
90: Select
91: Max(Rbs_Version_Id)
92: From
93: Pa_Rbs_Versions_B
94: Where
95: Rbs_Header_Id = P_Id
96: And Status_Code <> 'WORKING';
97:
99: Select
100: Version_Start_Date,
101: Version_End_Date
102: From
103: Pa_Rbs_Versions_B
104: Where
105: Rbs_Version_Id = P_Id;
106:
107: l_Prior_Rbs_Ver_Id Number(15) := Null;
629: Cursor GetLatestFrozenRbsVersionId(l_Rbs_Header_Id IN Number) Is
630: Select
631: Max(Rbs_Version_Id)
632: From
633: Pa_Rbs_Versions_B
634: Where
635: Rbs_Header_Id = l_Rbs_Header_Id
636: And Status_Code <> 'WORKING';
637:
639: Select
640: Version_Start_Date,
641: Nvl(Version_End_Date,SysDate) Version_End_Date
642: From
643: Pa_Rbs_Versions_B
644: Where
645: Rbs_Version_Id = P_Rbs_Ver_Id;
646:
647: l_Ver_Dates_Rec c_GetVersionDates%RowType;
649: Cursor c_Record_Ver_No is
650: Select
651: Record_Version_Number
652: From
653: Pa_Rbs_Versions_B
654: Where
655: Rbs_Version_Id = P_Rbs_Version_Id
656: For Update Of Version_Start_Date NoWait;
657:
740: Into
741: l_Version_Start_Date,
742: l_Rbs_Header_Id
743: From
744: Pa_Rbs_Versions_B
745: Where
746: Rbs_Version_Id = P_Rbs_Version_Id;
747:
748: --commented out since checking of this flag is not needed to copy hierarchy of elements when we freeze a version
930:
931: End IF; --End of changes made for bug 3659078. modified for bug 3703364
932:
933: Pa_Debug.G_Stage := 'Mark the working version as frozen.';
934: Update Pa_Rbs_Versions_B
935: Set
936: Status_code = 'FROZEN'
937: Where
938: Rbs_Version_Id = P_Rbs_Version_Id;
958:
959: End If;
960:
961:
962: Update Pa_Rbs_Versions_B
963: Set
964: Version_End_Date = l_end_date
965: Where
966: Rbs_Version_Id = l_Latest_Freezed_Version_Id;
977: ******************************************************************/
978: BEGIN
979: SELECT count(*)
980: INTO l_count
981: FROM pa_rbs_versions_b
982: where rbs_header_id = l_rbs_header_id;
983: EXCEPTION
984: WHEN OTHERS THEN
985: l_count := 0;
985: l_count := 0;
986: END;
987:
988: IF l_count = 1 THEN
989: Update pa_rbs_versions_b
990: Set current_reporting_flag = 'Y'
991: where rbs_version_id = p_rbs_version_id;
992: END IF;
993:
1001: FROM pa_rbs_prj_assignments
1002: WHERE rbs_header_id = l_rbs_header_id;
1003:
1004: IF l_assoc_count = 0 THEN
1005: UPDATE pa_rbs_versions_b
1006: SET current_reporting_flag = 'Y'
1007: WHERE rbs_version_id = p_rbs_version_id;
1008:
1009: UPDATE pa_rbs_versions_b
1005: UPDATE pa_rbs_versions_b
1006: SET current_reporting_flag = 'Y'
1007: WHERE rbs_version_id = p_rbs_version_id;
1008:
1009: UPDATE pa_rbs_versions_b
1010: SET current_reporting_flag = NULL
1011: WHERE rbs_header_id = l_rbs_header_id
1012: AND rbs_version_id <> p_rbs_version_id;
1013: