[Home] [Help]
34: Cursor Return_RowId(P_Id IN Number) is
35: Select
36: RowId
37: From
38: Pa_RBS_Versions_B
39: Where
40: RBS_Version_Id = P_Id;
41:
42: Cursor GetNextId is
61: Open GetNextId;
62: Fetch GetNextId Into X_Rbs_Version_Id;
63: Close GetNextId;
64:
65: Insert Into Pa_Rbs_Versions_B (
66: Rbs_Version_Id,
67: Version_Number,
68: Rbs_Header_Id,
69: Version_Start_Date,
184: REC_VER_NUM_MISMATCH Exception;
185:
186: Begin
187:
188: Update Pa_RBS_Versions_B
189: Set Version_Start_Date = P_Version_Start_Date,
190: Job_Group_Id = P_Job_Group_Id,
191: Record_Version_Number = Record_Version_Number + 1,
192: Last_Update_Date = P_Last_Update_Date,
247: Begin
248:
249: Delete
250: From
251: Pa_Rbs_Versions_B
252: Where
253: RBS_Version_Id = P_RBS_Version_Id
254: And Record_Version_Number = P_Record_Version_Number;
255:
279: begin
280: delete from pa_rbs_versions_tl T
281: where not exists
282: (select NULL
283: from pa_rbs_versions_b B
284: where B.RBS_VERSION_ID = T.RBS_VERSION_ID
285: );
286:
287: update pa_rbs_versions_tl T set (