[Home] [Help]
1: PACKAGE BODY igs_co_cat_itm_pkg AS
2: /* $Header: IGSLI03B.pls 115.6 2002/11/29 01:02:48 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_cat_itm%ROWTYPE;
1: PACKAGE BODY igs_co_cat_itm_pkg AS
2: /* $Header: IGSLI03B.pls 115.6 2002/11/29 01:02:48 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_cat_itm%ROWTYPE;
6: new_references igs_co_cat_itm%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSLI03B.pls 115.6 2002/11/29 01:02:48 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_cat_itm%ROWTYPE;
6: new_references igs_co_cat_itm%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
30: */
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM IGS_CO_CAT_ITM
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
157: || (reverse chronological order - newest change first)
158: */
159: CURSOR cur_rowid IS
160: SELECT rowid
161: FROM igs_co_cat_itm
162: WHERE correspondence_cat = x_correspondence_cat
163: AND correspondence_type = x_correspondence_type
164: AND create_dt = x_create_dt
165: FOR UPDATE NOWAIT;
194: || (reverse chronological order - newest change first)
195: */
196: CURSOR cur_rowid IS
197: SELECT rowid
198: FROM igs_co_cat_itm
199: WHERE ((correspondence_cat = x_correspondence_cat));
200:
201: lv_rowid cur_rowid%RowType;
202:
229: || (reverse chronological order - newest change first)
230: */
231: CURSOR cur_rowid IS
232: SELECT rowid
233: FROM igs_co_cat_itm
234: WHERE ((correspondence_type = x_correspondence_type));
235:
236: lv_rowid cur_rowid%RowType;
237:
349: || (reverse chronological order - newest change first)
350: */
351: CURSOR c IS
352: SELECT rowid
353: FROM igs_co_cat_itm
354: WHERE correspondence_cat = x_correspondence_cat
355: AND correspondence_type = x_correspondence_type
356: AND create_dt = new_references.create_dt;
357:
394: x_last_updated_by => x_last_updated_by,
395: x_last_update_login => x_last_update_login
396: );
397:
398: INSERT INTO igs_co_cat_itm (
399: correspondence_cat,
400: correspondence_type,
401: create_dt,
402: logical_delete_dt,
450: CURSOR c1 IS
451: SELECT
452: logical_delete_dt,
453: block_when_encumbered_ind
454: FROM igs_co_cat_itm
455: WHERE rowid = x_rowid
456: FOR UPDATE NOWAIT;
457:
458: tlinfo c1%ROWTYPE;
543: x_last_updated_by => x_last_updated_by,
544: x_last_update_login => x_last_update_login
545: );
546:
547: UPDATE igs_co_cat_itm
548: SET
549: logical_delete_dt = new_references.logical_delete_dt,
550: block_when_encumbered_ind = new_references.block_when_encumbered_ind,
551: last_update_date = x_last_update_date,
579: || (reverse chronological order - newest change first)
580: */
581: CURSOR c1 IS
582: SELECT rowid
583: FROM igs_co_cat_itm
584: WHERE correspondence_cat = x_correspondence_cat
585: AND correspondence_type = x_correspondence_type
586: AND create_dt = NVL (x_create_dt, 'Y' );
587:
636: p_action => 'DELETE',
637: x_rowid => x_rowid
638: );
639:
640: DELETE FROM igs_co_cat_itm
641: WHERE rowid = x_rowid;
642:
643: IF (SQL%NOTFOUND) THEN
644: RAISE NO_DATA_FOUND;
646:
647: END delete_row;
648:
649:
650: END igs_co_cat_itm_pkg;