1: PACKAGE BODY igs_as_notify_be_pkg AS
2: /* $Header: IGSDI65B.pls 115.1 2002/11/28 23:27:17 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_notify_be%ROWTYPE;
1: PACKAGE BODY igs_as_notify_be_pkg AS
2: /* $Header: IGSDI65B.pls 115.1 2002/11/28 23:27:17 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_notify_be%ROWTYPE;
6: new_references igs_as_notify_be%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSDI65B.pls 115.1 2002/11/28 23:27:17 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_notify_be%ROWTYPE;
6: new_references igs_as_notify_be%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
27: */
28:
29: CURSOR cur_old_ref_values IS
30: SELECT *
31: FROM igs_as_notify_be
32: WHERE rowid = x_rowid;
33:
34: BEGIN
35:
80: || (reverse chronological order - newest change first)
81: */
82: CURSOR cur_rowid IS
83: SELECT rowid
84: FROM igs_as_notify_be
85: WHERE uoo_id = x_uoo_id
86: AND internal_name = x_internal_name
87: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
88:
167: || (reverse chronological order - newest change first)
168: */
169: CURSOR cur_rowid IS
170: SELECT rowid
171: FROM igs_as_notify_be
172: WHERE uoo_id = x_uoo_id
173: AND internal_name = x_internal_name
174: FOR UPDATE NOWAIT;
175:
205: || (reverse chronological order - newest change first)
206: */
207: CURSOR cur_rowid IS
208: SELECT rowid
209: FROM igs_as_notify_be
210: WHERE uoo_id = x_uoo_id;
211:
212: lv_rowid cur_rowid%RowType;
213:
314: || (reverse chronological order - newest change first)
315: */
316: CURSOR c IS
317: SELECT rowid
318: FROM igs_as_notify_be
319: WHERE uoo_id = x_uoo_id
320: AND internal_name = x_internal_name;
321:
322: x_last_update_date DATE;
371: x_last_updated_by => x_last_updated_by,
372: x_last_update_login => x_last_update_login
373: );
374:
375: INSERT INTO igs_as_notify_be (
376: uoo_id,
377: internal_name,
378: creation_date,
379: created_by,
426: CURSOR c1 IS
427: SELECT
428: uoo_id,
429: internal_name
430: FROM igs_as_notify_be
431: WHERE rowid = x_rowid
432: FOR UPDATE NOWAIT;
433:
434: tlinfo c1%ROWTYPE;
531: x_program_update_date := SYSDATE;
532: END IF;
533: END IF;
534:
535: UPDATE igs_as_notify_be
536: SET
537: uoo_id = new_references.uoo_id,
538: internal_name = new_references.internal_name,
539: last_update_date = x_last_update_date,
568: || (reverse chronological order - newest change first)
569: */
570: CURSOR c1 IS
571: SELECT rowid
572: FROM igs_as_notify_be
573: WHERE uoo_id = x_uoo_id
574: AND internal_name = x_internal_name;
575: BEGIN
576:
617: p_action => 'DELETE',
618: x_rowid => x_rowid
619: );
620:
621: DELETE FROM igs_as_notify_be
622: WHERE rowid = x_rowid;
623:
624: IF (SQL%NOTFOUND) THEN
625: RAISE NO_DATA_FOUND;
627:
628: END delete_row;
629:
630:
631: END igs_as_notify_be_pkg;