[Home] [Help]
1: PACKAGE BODY igs_uc_old_oustat_pkg AS
2: /* $Header: IGSXI43B.pls 115.3 2003/02/28 07:51:55 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_old_oustat%ROWTYPE;
1: PACKAGE BODY igs_uc_old_oustat_pkg AS
2: /* $Header: IGSXI43B.pls 115.3 2003/02/28 07:51:55 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_old_oustat%ROWTYPE;
6: new_references igs_uc_old_oustat%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI43B.pls 115.3 2003/02/28 07:51:55 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_old_oustat%ROWTYPE;
6: new_references igs_uc_old_oustat%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM igs_uc_old_oustat
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
89: || (reverse chronological order - newest change first)
90: */
91: CURSOR cur_rowid IS
92: SELECT rowid
93: FROM igs_uc_old_oustat
94: WHERE app_no = x_app_no
95: AND choice_no = x_choice_no ;
96:
97: lv_rowid cur_rowid%RowType;
241: x_last_updated_by => x_last_updated_by,
242: x_last_update_login => x_last_update_login
243: );
244:
245: INSERT INTO igs_uc_old_oustat (
246: app_no,
247: choice_no,
248: old_outcome_status,
249: decision_date,
294: old_outcome_status,
295: decision_date,
296: decision_reason_id,
297: decision_make_id
298: FROM igs_uc_old_oustat
299: WHERE rowid = x_rowid
300: FOR UPDATE NOWAIT;
301:
302: tlinfo c1%ROWTYPE;
391: x_last_updated_by => x_last_updated_by,
392: x_last_update_login => x_last_update_login
393: );
394:
395: UPDATE igs_uc_old_oustat
396: SET
397: old_outcome_status = new_references.old_outcome_status,
398: decision_date = new_references.decision_date,
399: decision_reason_id = new_references.decision_reason_id,
430: || (reverse chronological order - newest change first)
431: */
432: CURSOR c1 IS
433: SELECT rowid
434: FROM igs_uc_old_oustat
435: WHERE app_no = x_app_no
436: AND choice_no = x_choice_no;
437:
438: BEGIN
488: p_action => 'DELETE',
489: x_rowid => x_rowid
490: );
491:
492: DELETE FROM igs_uc_old_oustat
493: WHERE rowid = x_rowid;
494:
495: IF (SQL%NOTFOUND) THEN
496: RAISE NO_DATA_FOUND;
498:
499: END delete_row;
500:
501:
502: END igs_uc_old_oustat_pkg;