[Home] [Help]
1: PACKAGE BODY igf_sl_alt_borw_pkg AS
2: /* $Header: IGFLI32B.pls 120.1 2005/06/08 00:48:35 appldev $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_alt_borw_all%ROWTYPE;
6: new_references igf_sl_alt_borw_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2 ,
2: /* $Header: IGFLI32B.pls 120.1 2005/06/08 00:48:35 appldev $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_alt_borw_all%ROWTYPE;
6: new_references igf_sl_alt_borw_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2 ,
10: x_rowid IN VARCHAR2 ,
104: */
105:
106: CURSOR cur_old_ref_values IS
107: SELECT *
108: FROM igf_sl_alt_borw_all
109: WHERE rowid = x_rowid;
110:
111: BEGIN
112:
259: || (reverse chronological order - newest change first)
260: */
261: CURSOR cur_rowid IS
262: SELECT rowid
263: FROM igf_sl_alt_borw_all
264: WHERE albw_id = x_albw_id
265: FOR UPDATE NOWAIT;
266:
267: lv_rowid cur_rowid%ROWTYPE;
292: || (reverse chronological order - newest change first)
293: */
294: CURSOR cur_rowid IS
295: SELECT rowid
296: FROM igf_sl_alt_borw_all
297: WHERE ((loan_id = x_loan_id));
298:
299: lv_rowid cur_rowid%ROWTYPE;
300:
619: || (reverse chronological order - newest change first)
620: */
621: CURSOR c IS
622: SELECT rowid
623: FROM igf_sl_alt_borw_all
624: WHERE albw_id = x_albw_id;
625:
626: x_last_update_date DATE;
627: x_last_updated_by NUMBER;
663: IGS_GE_MSG_STACK.ADD;
664: APP_EXCEPTION.RAISE_EXCEPTION;
665: END IF;
666:
667: SELECT igf_sl_alt_borw_all_s.NEXTVAL
668: INTO x_albw_id
669: FROM dual;
670:
671: new_references.org_id := igs_ge_gen_003.get_org_id;
758: x_cs2_suffix_txt => x_cs2_suffix_txt ,
759: x_cs2_years_at_address_txt => x_cs2_years_at_address_txt
760: );
761:
762: INSERT INTO igf_sl_alt_borw_all (
763: albw_id,
764: loan_id,
765: fed_stafford_loan_debt,
766: fed_sls_debt,
1122: cs2_other_income_amt,
1123: cs2_rel_to_student_flag,
1124: cs2_suffix_txt,
1125: cs2_years_at_address_txt
1126: FROM igf_sl_alt_borw_all
1127: WHERE rowid = x_rowid
1128: FOR UPDATE NOWAIT;
1129:
1130: tlinfo c1%ROWTYPE;
1457: x_program_update_date := SYSDATE;
1458: END IF;
1459: END IF;
1460:
1461: UPDATE igf_sl_alt_borw_all
1462: SET
1463: loan_id = new_references.loan_id,
1464: fed_stafford_loan_debt = new_references.fed_stafford_loan_debt,
1465: fed_sls_debt = new_references.fed_sls_debt,
1647: || (reverse chronological order - newest change first)
1648: */
1649: CURSOR c1 IS
1650: SELECT rowid
1651: FROM igf_sl_alt_borw_all
1652: WHERE albw_id = x_albw_id;
1653:
1654: BEGIN
1655:
1847: BEGIN
1848:
1849: before_dml ( p_action => 'DELETE', x_rowid => x_rowid );
1850:
1851: DELETE FROM igf_sl_alt_borw_all
1852: WHERE rowid = x_rowid;
1853:
1854: IF (SQL%NOTFOUND) THEN
1855: RAISE NO_DATA_FOUND;