[Home] [Help]
1: PACKAGE BODY igs_ad_batc_def_det_pkg AS
2: /* $Header: IGSAIE8B.pls 115.7 2003/09/01 07:44:25 pbondugu noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_batc_def_det_all%ROWTYPE;
6: new_references igs_ad_batc_def_det_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAIE8B.pls 115.7 2003/09/01 07:44:25 pbondugu noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_batc_def_det_all%ROWTYPE;
6: new_references igs_ad_batc_def_det_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
39: */
40:
41: CURSOR cur_old_ref_values IS
42: SELECT *
43: FROM IGS_AD_BATC_DEF_DET_ALL
44: WHERE rowid = x_rowid;
45:
46: BEGIN
47:
96: ) RETURN BOOLEAN AS
97:
98: CURSOR cur_rowid IS
99: SELECT rowid
100: FROM IGS_AD_BATC_DEF_DET_ALL
101: WHERE batch_id = x_batch_id
102: FOR UPDATE NOWAIT;
103: lv_rowid cur_rowid%RowType;
104:
228: || (reverse chronological order - newest change first)
229: */
230: CURSOR c IS
231: SELECT rowid
232: FROM igs_ad_batc_def_det_all
233: WHERE batch_id = x_batch_id;
234:
235: x_last_update_date DATE;
236: x_last_updated_by NUMBER;
283: x_last_updated_by => x_last_updated_by,
284: x_last_update_login => x_last_update_login
285: );
286:
287: INSERT INTO igs_ad_batc_def_det_all (
288: batch_id,
289: description,
290: acad_cal_type,
291: acad_ci_sequence_number,
380: decision_reason_id,
381: pending_reason_id,
382: offer_dt,
383: offer_response_dt
384: FROM igs_ad_batc_def_det_all
385: WHERE rowid = x_rowid
386: FOR UPDATE NOWAIT;
387:
388: tlinfo c1%ROWTYPE;
503: x_last_updated_by => x_last_updated_by,
504: x_last_update_login => x_last_update_login
505: );
506:
507: UPDATE igs_ad_batc_def_det_all
508: SET
509: batch_id = new_references.batch_id,
510: description = new_references.description,
511: acad_cal_type = new_references.acad_cal_type,
560: || (reverse chronological order - newest change first)
561: */
562: CURSOR c1 IS
563: SELECT rowid
564: FROM igs_ad_batc_def_det_all
565: WHERE batch_id = x_batch_id;
566:
567: BEGIN
568:
633: p_action => 'DELETE',
634: x_rowid => x_rowid
635: );
636:
637: DELETE FROM igs_ad_batc_def_det_all
638: WHERE rowid = x_rowid;
639:
640: IF (SQL%NOTFOUND) THEN
641: RAISE NO_DATA_FOUND;