1: PACKAGE BODY igs_ad_per_stm_typ_pkg AS
2: /* $Header: IGSAIG1B.pls 115.7 2003/10/30 13:17:51 akadam noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_per_stm_typ%ROWTYPE;
1: PACKAGE BODY igs_ad_per_stm_typ_pkg AS
2: /* $Header: IGSAIG1B.pls 115.7 2003/10/30 13:17:51 akadam noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_per_stm_typ%ROWTYPE;
6: new_references igs_ad_per_stm_typ%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAIG1B.pls 115.7 2003/10/30 13:17:51 akadam noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_per_stm_typ%ROWTYPE;
6: new_references igs_ad_per_stm_typ%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM igs_ad_per_stm_typ
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
97: || (reverse chronological order - newest change first)
98: */
99: BEGIN
100:
101: igs_ad_appl_perstat_pkg.get_fk_igs_ad_per_stm_typ (
102: old_references.persl_stat_type
103: );
104:
105: igs_ad_aptyp_pestat_pkg.get_fk_igs_ad_per_stm_typ (
101: igs_ad_appl_perstat_pkg.get_fk_igs_ad_per_stm_typ (
102: old_references.persl_stat_type
103: );
104:
105: igs_ad_aptyp_pestat_pkg.get_fk_igs_ad_per_stm_typ (
106: old_references.persl_stat_type
107: );
108:
109: END check_child_existance;
123: || (reverse chronological order - newest change first)
124: */
125: CURSOR cur_rowid IS
126: SELECT rowid
127: FROM igs_ad_per_stm_typ
128: WHERE UPPER(persl_stat_type) = UPPER(x_persl_stat_type) AND
129: closed_ind = NVL(x_closed_ind,closed_ind)
130: FOR UPDATE NOWAIT;
131:
233: || (reverse chronological order - newest change first)
234: */
235: CURSOR c IS
236: SELECT rowid
237: FROM igs_ad_per_stm_typ
238: WHERE persl_stat_type = x_persl_stat_type;
239:
240: x_last_update_date DATE;
241: x_last_updated_by NUMBER;
275: x_last_updated_by => x_last_updated_by,
276: x_last_update_login => x_last_update_login
277: );
278:
279: INSERT INTO igs_ad_per_stm_typ (
280: persl_stat_type,
281: persl_stat_type_desc,
282: step_catalog_cd,
283: closed_ind,
329: SELECT
330: persl_stat_type_desc,
331: step_catalog_cd,
332: closed_ind
333: FROM igs_ad_per_stm_typ
334: WHERE rowid = x_rowid
335: FOR UPDATE NOWAIT;
336:
337: tlinfo c1%ROWTYPE;
421: x_last_updated_by => x_last_updated_by,
422: x_last_update_login => x_last_update_login
423: );
424:
425: UPDATE igs_ad_per_stm_typ
426: SET
427: persl_stat_type_desc = new_references.persl_stat_type_desc,
428: step_catalog_cd = new_references.step_catalog_cd,
429: closed_ind = new_references.closed_ind,
457: || (reverse chronological order - newest change first)
458: */
459: CURSOR c1 IS
460: SELECT rowid
461: FROM igs_ad_per_stm_typ
462: WHERE persl_stat_type = x_persl_stat_type;
463:
464: BEGIN
465:
510: p_action => 'DELETE',
511: x_rowid => x_rowid
512: );
513:
514: DELETE FROM igs_ad_per_stm_typ
515: WHERE rowid = x_rowid;
516:
517: IF (SQL%NOTFOUND) THEN
518: RAISE NO_DATA_FOUND;
520:
521: END delete_row;
522:
523:
524: END igs_ad_per_stm_typ_pkg;