1: Package Body Pa_Rbs_Versions_Pvt as
2: --$Header: PARBSVVB.pls 120.1 2005/08/25 03:50:50 sunkalya noship $
3:
4: Procedure Create_Working_Version_Record(
5: P_Mode IN Varchar2 Default Null,
37: P_Job_Group_Id => P_Job_Group_Id,
38: P_Rule_Based_Flag => P_Rule_Based_Flag,
39: P_Validated_Flag => P_Validated_Flag,
40: P_Status_Code => P_Status_Code,
41: P_Creation_Date => Pa_Rbs_Versions_Pvt.G_Creation_Date,
42: P_Created_By => Pa_Rbs_Versions_Pvt.G_Created_By,
43: P_Last_Update_Date => Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
44: P_Last_Updated_By => Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
45: P_Last_Update_Login => Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
38: P_Rule_Based_Flag => P_Rule_Based_Flag,
39: P_Validated_Flag => P_Validated_Flag,
40: P_Status_Code => P_Status_Code,
41: P_Creation_Date => Pa_Rbs_Versions_Pvt.G_Creation_Date,
42: P_Created_By => Pa_Rbs_Versions_Pvt.G_Created_By,
43: P_Last_Update_Date => Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
44: P_Last_Updated_By => Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
45: P_Last_Update_Login => Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
46: X_Record_Version_Number => X_Record_Version_Number,
39: P_Validated_Flag => P_Validated_Flag,
40: P_Status_Code => P_Status_Code,
41: P_Creation_Date => Pa_Rbs_Versions_Pvt.G_Creation_Date,
42: P_Created_By => Pa_Rbs_Versions_Pvt.G_Created_By,
43: P_Last_Update_Date => Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
44: P_Last_Updated_By => Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
45: P_Last_Update_Login => Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
46: X_Record_Version_Number => X_Record_Version_Number,
47: X_Rbs_Version_Id => X_RBS_Version_Id,
40: P_Status_Code => P_Status_Code,
41: P_Creation_Date => Pa_Rbs_Versions_Pvt.G_Creation_Date,
42: P_Created_By => Pa_Rbs_Versions_Pvt.G_Created_By,
43: P_Last_Update_Date => Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
44: P_Last_Updated_By => Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
45: P_Last_Update_Login => Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
46: X_Record_Version_Number => X_Record_Version_Number,
47: X_Rbs_Version_Id => X_RBS_Version_Id,
48: X_Error_Msg_Data => X_Error_Msg_Data);
41: P_Creation_Date => Pa_Rbs_Versions_Pvt.G_Creation_Date,
42: P_Created_By => Pa_Rbs_Versions_Pvt.G_Created_By,
43: P_Last_Update_Date => Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
44: P_Last_Updated_By => Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
45: P_Last_Update_Login => Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
46: X_Record_Version_Number => X_Record_Version_Number,
47: X_Rbs_Version_Id => X_RBS_Version_Id,
48: X_Error_Msg_Data => X_Error_Msg_Data);
49:
90: P_Description => P_Description,
91: P_Version_Start_Date => P_Version_Start_Date,
92: P_Job_Group_Id => P_Job_Group_Id,
93: P_Record_Version_Number => P_Record_Version_Number,
94: P_Last_Update_Date => Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
95: P_Last_Updated_By => Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
96: P_Last_Update_Login => Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
97: X_Record_Version_Number => X_Record_Version_Number,
98: X_Error_Msg_Data => X_Error_Msg_Data);
91: P_Version_Start_Date => P_Version_Start_Date,
92: P_Job_Group_Id => P_Job_Group_Id,
93: P_Record_Version_Number => P_Record_Version_Number,
94: P_Last_Update_Date => Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
95: P_Last_Updated_By => Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
96: P_Last_Update_Login => Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
97: X_Record_Version_Number => X_Record_Version_Number,
98: X_Error_Msg_Data => X_Error_Msg_Data);
99:
92: P_Job_Group_Id => P_Job_Group_Id,
93: P_Record_Version_Number => P_Record_Version_Number,
94: P_Last_Update_Date => Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
95: P_Last_Updated_By => Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
96: P_Last_Update_Login => Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
97: X_Record_Version_Number => X_Record_Version_Number,
98: X_Error_Msg_Data => X_Error_Msg_Data);
99:
100: Pa_Debug.G_Stage := 'Check if Pa_Rbs_Versions_Pkg.Update_Row() procedure returned error msg.';
192: Pa_Debug.G_Stage := 'Entering Create_New_Working_Version().';
193: Pa_Debug.TrackPath('ADD','Create_New_Working_Version');
194:
195:
196: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version() procedure.';
197: Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version(
198: P_Rbs_Version_Id => P_Rbs_Version_Id, -- the frozen version being copied
199: P_Rbs_Header_Id => P_Rbs_Header_Id,
200: P_Record_Version_Number => P_Record_Version_Number, -- This is the record_version_number of the working version
193: Pa_Debug.TrackPath('ADD','Create_New_Working_Version');
194:
195:
196: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version() procedure.';
197: Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Version(
198: P_Rbs_Version_Id => P_Rbs_Version_Id, -- the frozen version being copied
199: P_Rbs_Header_Id => P_Rbs_Header_Id,
200: P_Record_Version_Number => P_Record_Version_Number, -- This is the record_version_number of the working version
201: X_Rbs_Version_Id => l_Rbs_Version_Id, -- The working version being copied to
212: Raise l_Error;
213:
214: End If;
215:
216: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Elements() procedure.';
217:
218:
219: Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Elements(
220: P_Rbs_Version_From_Id => P_Rbs_Version_Id, -- this is the frozen version being copied from
215:
216: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Elements() procedure.';
217:
218:
219: Pa_Rbs_Versions_Pvt.Copy_Frozen_Rbs_Elements(
220: P_Rbs_Version_From_Id => P_Rbs_Version_Id, -- this is the frozen version being copied from
221: P_Rbs_Version_To_Id => l_Rbs_Version_Id, -- this is the working version being copied to
222: X_Error_Msg_Data => X_Error_Msg_Data);
223:
409: If l_Rvn = P_Record_Version_Number Then
410:
411:
412: -- Delete the current working rbs version and its element/node records
413: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Delete_Working_Version() procedure.';
414: Pa_Rbs_Versions_Pvt.Delete_Working_Version(
415: P_Mode => 'COPYING_FROZEN_VERSION',
416: P_Rbs_Version_Id => l_Rbs_Version_Id,
417: P_Record_Version_Number => P_Record_Version_Number,
410:
411:
412: -- Delete the current working rbs version and its element/node records
413: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pvt.Delete_Working_Version() procedure.';
414: Pa_Rbs_Versions_Pvt.Delete_Working_Version(
415: P_Mode => 'COPYING_FROZEN_VERSION',
416: P_Rbs_Version_Id => l_Rbs_Version_Id,
417: P_Record_Version_Number => P_Record_Version_Number,
418: X_Error_Msg_Data => X_Error_Msg_Data);
492: Pa_Debug.G_Stage := 'Use the version end date of last frozen version to derive new start date adding 1 to it.';
493: GetDetails_Rec.Version_End_Date := GetDetails_Rec.Version_End_Date + 1;
494:
495: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Insert_Row() procedure from existing .';
496: Pa_Rbs_Versions_Pvt.Create_Working_Version_Record(
497: P_Mode => 'COPYING_FROZEN_VERSION',
498: P_Version_Number => l_Version_Number,
499: P_Rbs_Header_Id => P_Rbs_Header_Id,
500: P_Record_Version_Number => l_Rec_Version_Number,
521: Fetch c_GetHdrFromDate Into l_Hdr_From_Date;
522: Close c_GetHdrFromDate;
523:
524: Pa_Debug.G_Stage := 'Call Pa_Rbs_Versions_Pkg.Insert_Row() procedure brand new.';
525: Pa_Rbs_Versions_Pvt.Create_Working_Version_Record(
526: P_Mode => 'COPYING_FROZEN_VERSION',
527: P_Version_Number => l_Version_Number,
528: P_Rbs_Header_Id => P_Rbs_Header_Id,
529: P_Record_Version_Number => l_Rec_Version_Number,
700: Rbs_Elements.User_Defined_Custom3_Id,
701: Rbs_Elements.User_Defined_Custom4_Id,
702: Rbs_Elements.User_Defined_Custom5_Id,
703: Rbs_Elements.User_Created_Flag,
704: Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
705: Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
706: Pa_Rbs_Versions_Pvt.G_Creation_Date,
707: Pa_Rbs_Versions_Pvt.G_Created_By,
708: Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
701: Rbs_Elements.User_Defined_Custom4_Id,
702: Rbs_Elements.User_Defined_Custom5_Id,
703: Rbs_Elements.User_Created_Flag,
704: Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
705: Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
706: Pa_Rbs_Versions_Pvt.G_Creation_Date,
707: Pa_Rbs_Versions_Pvt.G_Created_By,
708: Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
709: 1
702: Rbs_Elements.User_Defined_Custom5_Id,
703: Rbs_Elements.User_Created_Flag,
704: Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
705: Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
706: Pa_Rbs_Versions_Pvt.G_Creation_Date,
707: Pa_Rbs_Versions_Pvt.G_Created_By,
708: Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
709: 1
710: From
703: Rbs_Elements.User_Created_Flag,
704: Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
705: Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
706: Pa_Rbs_Versions_Pvt.G_Creation_Date,
707: Pa_Rbs_Versions_Pvt.G_Created_By,
708: Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
709: 1
710: From
711: Pa_Rbs_Elements_Temp Tmp,
704: Pa_Rbs_Versions_Pvt.G_Last_Update_Date,
705: Pa_Rbs_Versions_Pvt.G_Last_Updated_By,
706: Pa_Rbs_Versions_Pvt.G_Creation_Date,
707: Pa_Rbs_Versions_Pvt.G_Created_By,
708: Pa_Rbs_Versions_Pvt.G_Last_Update_Login,
709: 1
710: From
711: Pa_Rbs_Elements_Temp Tmp,
712: Pa_Rbs_Elements Rbs_Elements
815:
816: End Set_Reporting_Flag;
817:
818:
819: END Pa_Rbs_Versions_Pvt;