[Home] [Help]
1: PACKAGE BODY igs_en_sevis_auth_pkg AS
2: /* $Header: IGSEI66B.pls 115.2 2002/11/28 23:48:41 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_sevis_auth%ROWTYPE;
1: PACKAGE BODY igs_en_sevis_auth_pkg AS
2: /* $Header: IGSEI66B.pls 115.2 2002/11/28 23:48:41 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_sevis_auth%ROWTYPE;
6: new_references igs_en_sevis_auth%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSEI66B.pls 115.2 2002/11/28 23:48:41 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_sevis_auth%ROWTYPE;
6: new_references igs_en_sevis_auth%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
30: */
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM igs_en_sevis_auth
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
114: || (reverse chronological order - newest change first)
115: */
116: CURSOR cur_rowid IS
117: SELECT rowid
118: FROM igs_en_sevis_auth
119: WHERE elgb_override_id = x_elgb_override_id
120: AND sevis_authorization_cd = x_sevis_authorization_cd
121: AND start_dt = x_start_dt
122: FOR UPDATE NOWAIT;
151: || (reverse chronological order - newest change first)
152: */
153: CURSOR cur_rowid IS
154: SELECT rowid
155: FROM igs_en_sevis_auth
156: WHERE ((elgb_override_id = x_elgb_override_id));
157:
158: lv_rowid cur_rowid%RowType;
159:
321: x_last_updated_by => x_last_updated_by,
322: x_last_update_login => x_last_update_login
323: );
324:
325: INSERT INTO igs_en_sevis_auth (
326: sevis_authorization_cd,
327: start_dt,
328: end_dt,
329: comments,
376: */
377: CURSOR c1 IS
378: SELECT
379: comments
380: FROM igs_en_sevis_auth
381: WHERE rowid = x_rowid
382: FOR UPDATE NOWAIT;
383:
384: tlinfo c1%ROWTYPE;
486: x_program_update_date := SYSDATE;
487: END IF;
488: END IF;
489:
490: UPDATE igs_en_sevis_auth
491: SET
492: end_dt = new_references.end_dt,
493: comments = new_references.comments,
494: last_update_date = x_last_update_date,
526: || (reverse chronological order - newest change first)
527: */
528: CURSOR c1 IS
529: SELECT rowid
530: FROM igs_en_sevis_auth
531: WHERE elgb_override_id = x_elgb_override_id
532: AND sevis_authorization_cd = x_sevis_authorization_cd
533: AND start_dt = x_start_dt
534: AND end_dt = x_end_dt;
584: p_action => 'DELETE',
585: x_rowid => x_rowid
586: );
587:
588: DELETE FROM igs_en_sevis_auth
589: WHERE rowid = x_rowid;
590:
591: IF (SQL%NOTFOUND) THEN
592: RAISE NO_DATA_FOUND;
594:
595: END delete_row;
596:
597:
598: END igs_en_sevis_auth_pkg;