[Home] [Help]
1: PACKAGE BODY igf_sp_prg_pkg AS
2: /* $Header: IGFPI02B.pls 115.2 2003/03/19 08:49:48 smadathi noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sp_prg_all%ROWTYPE;
6: new_references igf_sp_prg_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFPI02B.pls 115.2 2003/03/19 08:49:48 smadathi noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sp_prg_all%ROWTYPE;
6: new_references igf_sp_prg_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM igf_sp_prg_all
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
173: || (reverse chronological order - newest change first)
174: */
175: CURSOR cur_rowid IS
176: SELECT rowid
177: FROM igf_sp_prg_all
178: WHERE fee_cls_prg_id = x_fee_cls_prg_id
179: FOR UPDATE NOWAIT;
180:
181: lv_rowid cur_rowid%RowType;
210: || (reverse chronological order - newest change first)
211: */
212: CURSOR cur_rowid IS
213: SELECT rowid
214: FROM igf_sp_prg_all
215: WHERE fee_cls_id = x_fee_cls_id
216: AND course_cd = x_course_cd
217: AND version_number = x_version_number
218: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
247: || (reverse chronological order - newest change first)
248: */
249: CURSOR cur_rowid IS
250: SELECT rowid
251: FROM igf_sp_prg_all
252: WHERE ((fee_cls_id = x_fee_cls_id));
253:
254: lv_rowid cur_rowid%RowType;
255:
282: || (reverse chronological order - newest change first)
283: */
284: CURSOR cur_rowid IS
285: SELECT rowid
286: FROM igf_sp_prg_all
287: WHERE ( course_cd = x_course_cd
288: AND version_number = x_version_number );
289:
290: lv_rowid cur_rowid%RowType;
408: || (reverse chronological order - newest change first)
409: */
410: CURSOR c IS
411: SELECT rowid
412: FROM igf_sp_prg_all
413: WHERE fee_cls_prg_id = x_fee_cls_prg_id;
414:
415: x_last_update_date DATE;
416: x_last_updated_by NUMBER;
458: x_last_updated_by => x_last_updated_by,
459: x_last_update_login => x_last_update_login
460: );
461:
462: INSERT INTO igf_sp_prg_all (
463: fee_cls_prg_id,
464: fee_cls_id,
465: course_cd,
466: version_number,
522: course_cd,
523: version_number,
524: fee_percent,
525: max_amount
526: FROM igf_sp_prg_all
527: WHERE rowid = x_rowid
528: FOR UPDATE NOWAIT;
529:
530: tlinfo c1%ROWTYPE;
620: x_last_updated_by => x_last_updated_by,
621: x_last_update_login => x_last_update_login
622: );
623:
624: UPDATE igf_sp_prg_all
625: SET
626: fee_cls_id = new_references.fee_cls_id,
627: course_cd = new_references.course_cd,
628: version_number = new_references.version_number,
660: || (reverse chronological order - newest change first)
661: */
662: CURSOR c1 IS
663: SELECT rowid
664: FROM igf_sp_prg_all
665: WHERE fee_cls_prg_id = x_fee_cls_prg_id;
666:
667: BEGIN
668:
717: p_action => 'DELETE',
718: x_rowid => x_rowid
719: );
720:
721: DELETE FROM igf_sp_prg_all
722: WHERE rowid = x_rowid;
723:
724: IF (SQL%NOTFOUND) THEN
725: RAISE NO_DATA_FOUND;