1: PACKAGE BODY OE_PC_RSET_SEL_COLS_PKG AS
2: /* $Header: OEXPCRSB.pls 120.0 2005/06/01 02:24:54 appldev noship $ */
3:
4: ---------------------------------------------------
5: PROCEDURE Insert_Row(
12: ,x_last_update_date in date
13: ,x_last_update_login in number
14: )
15: Is
16: CURSOR CROWID IS SELECT rowid FROM oe_pc_rset_sel_cols
17: WHERE record_set_id = x_record_set_id
18: AND column_name = x_column_name;
19:
20: Begin
18: AND column_name = x_column_name;
19:
20: Begin
21:
22: INSERT INTO oe_pc_rset_sel_cols (
23: record_set_id
24: ,column_name
25: ,created_by
26: ,creation_date
69: )
70: Is
71: CURSOR C IS
72: SELECT *
73: FROM oe_pc_rset_sel_cols
74: WHERE rowid = x_rowid
75: FOR UPDATE OF column_name NOWAIT;
76:
77: Recinfo C%ROWTYPE;
114: ,x_last_update_login in number
115: )
116: Is
117: Begin
118: UPDATE oe_pc_rset_sel_cols
119: SET
120: column_name = x_column_name
121: ,last_updated_by = x_last_updated_by
122: ,last_update_date = x_last_update_date
139: )
140: Is
141: Begin
142:
143: DELETE FROM oe_pc_rset_sel_cols
144: WHERE rowid = x_rowid;
145: if (SQL%NOTFOUND) then
146: RAISE NO_DATA_FOUND;
147: end if;
158: Begin
159: -- column names name should be unique within a record set
160: SELECT count(1)
161: INTO dummy
162: FROM oe_pc_rset_sel_cols
163: WHERE record_set_id = x_record_set_id
164: AND column_name = x_column_name
165: AND ((x_rowid IS null) OR (rowid <> x_rowid));
166:
169: app_exception.raise_exception;
170: end if;
171: End Check_Unique;
172: -----------------------------------------------------------------------
173: END OE_PC_RSET_SEL_COLS_PKG;