1: PACKAGE BODY igs_uc_app_results_pkg AS
2: /* $Header: IGSXI06B.pls 115.7 2003/06/11 10:29:08 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_app_results%ROWTYPE;
1: PACKAGE BODY igs_uc_app_results_pkg AS
2: /* $Header: IGSXI06B.pls 115.7 2003/06/11 10:29:08 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_app_results%ROWTYPE;
6: new_references igs_uc_app_results%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI06B.pls 115.7 2003/06/11 10:29:08 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_app_results%ROWTYPE;
6: new_references igs_uc_app_results%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
41: */
42:
43: CURSOR cur_old_ref_values IS
44: SELECT *
45: FROM IGS_UC_APP_RESULTS
46: WHERE rowid = x_rowid;
47:
48: BEGIN
49:
144: || (reverse chronological order - newest change first)
145: */
146: CURSOR cur_rowid IS
147: SELECT rowid
148: FROM igs_uc_app_results
149: WHERE app_result_id = x_app_result_id ;
150:
151: lv_rowid cur_rowid%RowType;
152:
178: || (reverse chronological order - newest change first)
179: */
180: CURSOR cur_rowid IS
181: SELECT rowid
182: FROM igs_uc_app_results
183: WHERE ((app_id = x_app_id));
184:
185: lv_rowid cur_rowid%RowType;
186:
213: || (reverse chronological order - newest change first)
214: */
215: CURSOR cur_rowid IS
216: SELECT rowid
217: FROM igs_uc_app_results
218: WHERE ((subject_id = x_subject_id));
219:
220: lv_rowid cur_rowid%RowType;
221:
356: || (reverse chronological order - newest change first)
357: */
358: CURSOR c IS
359: SELECT rowid
360: FROM igs_uc_app_results
361: WHERE app_result_id = x_app_result_id;
362:
363: x_last_update_date DATE;
364: x_last_updated_by NUMBER;
384: igs_ge_msg_stack.add;
385: app_exception.raise_exception;
386: END IF;
387:
388: SELECT igs_uc_app_results_s.NEXTVAL
389: INTO x_app_result_id
390: FROM dual;
391:
392: before_dml(
413: x_last_updated_by => x_last_updated_by,
414: x_last_update_login => x_last_update_login
415: );
416:
417: INSERT INTO igs_uc_app_results (
418: app_result_id,
419: app_id,
420: app_no,
421: enquiry_no,
512: ebl_result,
513: ebl_amended_result,
514: claimed_result,
515: imported
516: FROM igs_uc_app_results
517: WHERE rowid = x_rowid
518: FOR UPDATE NOWAIT;
519:
520: tlinfo c1%ROWTYPE;
638: x_last_updated_by => x_last_updated_by,
639: x_last_update_login => x_last_update_login
640: );
641:
642: UPDATE igs_uc_app_results
643: SET
644: app_id = new_references.app_id,
645: app_no = new_references.app_no,
646: enquiry_no = new_references.enquiry_no,
697: || (reverse chronological order - newest change first)
698: */
699: CURSOR c1 IS
700: SELECT rowid
701: FROM igs_uc_app_results
702: WHERE app_result_id = x_app_result_id;
703:
704: BEGIN
705:
772: p_action => 'DELETE',
773: x_rowid => x_rowid
774: );
775:
776: DELETE FROM igs_uc_app_results
777: WHERE rowid = x_rowid;
778:
779: IF (SQL%NOTFOUND) THEN
780: RAISE NO_DATA_FOUND;
782:
783: END delete_row;
784:
785:
786: END igs_uc_app_results_pkg;