1: Package Body Pa_Rbs_Elements_Pkg AS
2: /* $Header: PARELETB.pls 120.0 2005/05/29 20:40:20 appldev noship $*/
3:
4: Procedure Insert_Row(
5: P_Rbs_Element_Name_Id IN Number,
50: Cursor Return_RowId(P_Id IN Number) is
51: Select
52: RowId
53: From
54: Pa_RBS_Elements
55: Where
56: RBS_Element_Id = P_Id;
57:
58: Cursor GetNextId is
56: RBS_Element_Id = P_Id;
57:
58: Cursor GetNextId is
59: Select
60: Pa_Rbs_Elements_S.NextVal
61: From
62: Dual;
63:
64: Begin
66: Open GetNextId;
67: Fetch GetNextId Into X_RBS_Element_Id;
68: Close GetNextId;
69:
70: Insert Into Pa_RBS_Elements (
71: RBS_Element_Id,
72: Rbs_Element_Name_Id,
73: RBS_Version_Id,
74: Outline_Number,
214: REC_VER_NUM_MISMATCH Exception;
215:
216: Begin
217:
218: Update PA_RBS_Elements
219: Set
220: RBS_Version_Id = P_Rbs_Version_Id,
221: Rbs_Element_Name_Id = P_Rbs_Element_Name_Id,
222: Outline_Number = P_Outline_Number,
280: Begin
281:
282: Delete
283: From
284: Pa_Rbs_Elements
285: Where
286: Rbs_Element_Id = P_Rbs_Element_Id;
287:
288: Exception
290: Raise;
291:
292: End Delete_Row;
293:
294: End Pa_Rbs_Elements_Pkg;