1: PACKAGE BODY per_kr_g_points_pkg AS
2: /* $Header: pekrsg03.pkb 115.1 2002/12/03 09:40:42 viagarwa noship $ */
3: -------------------------------------------------------------------------------------
4: PROCEDURE insert_row
5: (p_row_id IN OUT NOCOPY VARCHAR2
18: ,p_creation_date DATE
19: ) IS
20: --
21: CURSOR c_s1 IS
22: SELECT per_kr_g_points_s.NEXTVAL
23: FROM dual;
24: --
25: BEGIN
26: --
32: END IF;
33: --
34: CLOSE c_s1;
35: --
36: INSERT INTO per_kr_g_points
37: (grade_point_id
38: ,grade_id
39: ,grade_point_name
40: ,sequence
96: ,last_updated_by
97: ,last_update_login
98: ,created_by
99: ,creation_date
100: FROM per_kr_g_points
101: WHERE rowid = chartorowid(p_row_id)
102: FOR UPDATE of grade_point_id NOWAIT;
103: --
104: recinfo c1%ROWTYPE;
171: ,p_created_by NUMBER
172: ,p_creation_date DATE
173: ) IS
174: BEGIN
175: UPDATE per_kr_g_points
176: SET sequence =p_sequence
177: ,grade_point_name =p_grade_point_name
178: ,enabled_flag =p_enabled_flag
179: ,start_date_active =p_start_date_active
194: (p_row_id VARCHAR2
195: ) IS
196: BEGIN
197: --
198: DELETE FROM per_kr_g_points
199: WHERE rowid = chartorowid(p_row_id);
200: --
201: IF (SQL%NOTFOUND) THEN
202: RAISE NO_DATA_FOUND;
203: END IF;
204: --
205: END delete_row;
206: -------------------------------------------------------------------------------------
207: END per_kr_g_points_pkg;