1: Package Body Pa_Rbs_Elements_Pkg AS
2: /* $Header: PARELETB.pls 120.0.12020000.3 2013/03/27 13:52:38 bpottipa ship $*/
3:
4: Procedure Insert_Row(
5: P_Rbs_Element_Name_Id IN Number,
53: Cursor Return_RowId(P_Id IN Number) is
54: Select
55: RowId
56: From
57: Pa_RBS_Elements
58: Where
59: RBS_Element_Id = P_Id;
60:
61: Cursor GetNextId is
59: RBS_Element_Id = P_Id;
60:
61: Cursor GetNextId is
62: Select
63: Pa_Rbs_Elements_S.NextVal
64: From
65: Dual;
66:
67: Begin
69: Open GetNextId;
70: Fetch GetNextId Into X_RBS_Element_Id;
71: Close GetNextId;
72:
73: Insert Into Pa_RBS_Elements (
74: RBS_Element_Id,
75: Rbs_Element_Name_Id,
76: RBS_Version_Id,
77: Outline_Number,
228: REC_VER_NUM_MISMATCH Exception;
229:
230: Begin
231:
232: Update PA_RBS_Elements
233: Set
234: RBS_Version_Id = P_Rbs_Version_Id,
235: Rbs_Element_Name_Id = P_Rbs_Element_Name_Id,
236: Outline_Number = P_Outline_Number,
297: Begin
298:
299: Delete
300: From
301: Pa_Rbs_Elements
302: Where
303: Rbs_Element_Id = P_Rbs_Element_Id;
304:
305: Exception
307: Raise;
308:
309: End Delete_Row;
310:
311: End Pa_Rbs_Elements_Pkg;