[Home] [Help]
1: PACKAGE BODY igs_pr_sta_type_ele_pkg AS
2: /* $Header: IGSQI33B.pls 115.6 2002/11/29 03:23:01 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_sta_type_ele%ROWTYPE;
1: PACKAGE BODY igs_pr_sta_type_ele_pkg AS
2: /* $Header: IGSQI33B.pls 115.6 2002/11/29 03:23:01 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_sta_type_ele%ROWTYPE;
6: new_references igs_pr_sta_type_ele%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSQI33B.pls 115.6 2002/11/29 03:23:01 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_sta_type_ele%ROWTYPE;
6: new_references igs_pr_sta_type_ele%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
27: */
28:
29: CURSOR cur_old_ref_values IS
30: SELECT *
31: FROM igs_pr_sta_type_ele
32: WHERE rowid = x_rowid;
33:
34: BEGIN
35:
123: || (reverse chronological order - newest change first)
124: */
125: CURSOR cur_rowid IS
126: SELECT rowid
127: FROM igs_pr_sta_type_ele
128: WHERE stat_type = x_stat_type
129: AND s_stat_element = x_s_stat_element
130: FOR UPDATE NOWAIT;
131:
158: || (reverse chronological order - newest change first)
159: */
160: CURSOR cur_rowid IS
161: SELECT rowid
162: FROM igs_pr_sta_type_ele
163: WHERE ((stat_type = x_stat_type));
164:
165: lv_rowid cur_rowid%RowType;
166:
267: || (reverse chronological order - newest change first)
268: */
269: CURSOR c IS
270: SELECT rowid
271: FROM igs_pr_sta_type_ele
272: WHERE stat_type = x_stat_type
273: AND s_stat_element = x_s_stat_element;
274:
275: x_last_update_date DATE;
308: x_last_updated_by => x_last_updated_by,
309: x_last_update_login => x_last_update_login
310: );
311:
312: INSERT INTO igs_pr_sta_type_ele (
313: stat_type,
314: s_stat_element,
315: creation_date,
316: created_by,
354: */
355: CURSOR c1 IS
356: SELECT
357: stat_type
358: FROM igs_pr_sta_type_ele
359: WHERE rowid = x_rowid
360: FOR UPDATE NOWAIT;
361:
362: tlinfo c1%ROWTYPE;
440: x_last_updated_by => x_last_updated_by,
441: x_last_update_login => x_last_update_login
442: );
443:
444: UPDATE igs_pr_sta_type_ele
445: SET
446: last_update_date = x_last_update_date,
447: last_updated_by = x_last_updated_by,
448: last_update_login = x_last_update_login
471: || (reverse chronological order - newest change first)
472: */
473: CURSOR c1 IS
474: SELECT rowid
475: FROM igs_pr_sta_type_ele
476: WHERE stat_type = x_stat_type
477: AND s_stat_element = x_s_stat_element;
478:
479: BEGIN
521: p_action => 'DELETE',
522: x_rowid => x_rowid
523: );
524:
525: DELETE FROM igs_pr_sta_type_ele
526: WHERE rowid = x_rowid;
527:
528: IF (SQL%NOTFOUND) THEN
529: RAISE NO_DATA_FOUND;
531:
532: END delete_row;
533:
534:
535: END igs_pr_sta_type_ele_pkg;