[Home] [Help]
1: PACKAGE BODY igf_sl_dl_pnote_p_p_pkg AS
2: /* $Header: IGFLI30B.pls 115.4 2002/11/28 14:28:20 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_dl_pnote_p_p_all%ROWTYPE;
6: new_references igf_sl_dl_pnote_p_p_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFLI30B.pls 115.4 2002/11/28 14:28:20 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_dl_pnote_p_p_all%ROWTYPE;
6: new_references igf_sl_dl_pnote_p_p_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
74: */
75:
76: CURSOR cur_old_ref_values IS
77: SELECT *
78: FROM IGF_SL_DL_PNOTE_P_P_ALL
79: WHERE rowid = x_rowid;
80:
81: BEGIN
82:
200: || (reverse chronological order - newest change first)
201: */
202: CURSOR cur_rowid IS
203: SELECT rowid
204: FROM igf_sl_dl_pnote_p_p_all
205: WHERE pnpp_id = x_pnpp_id
206: FOR UPDATE NOWAIT;
207:
208: lv_rowid cur_rowid%RowType;
235: || (reverse chronological order - newest change first)
236: */
237: CURSOR cur_rowid IS
238: SELECT rowid
239: FROM igf_sl_dl_pnote_p_p_all
240: WHERE ((loan_id = x_loan_id));
241:
242: lv_rowid cur_rowid%RowType;
243:
478: || (reverse chronological order - newest change first)
479: */
480: CURSOR c IS
481: SELECT rowid
482: FROM igf_sl_dl_pnote_p_p_all
483: WHERE pnpp_id = x_pnpp_id;
484:
485: x_last_update_date DATE;
486: x_last_updated_by NUMBER;
522: igs_ge_msg_stack.add;
523: app_exception.raise_exception;
524: END IF;
525:
526: SELECT igf_sl_dl_pnote_p_p_all_s.NEXTVAL
527: INTO x_pnpp_id
528: FROM dual;
529:
530: new_references.org_id := igs_ge_gen_003.get_org_id;
587: x_last_updated_by => x_last_updated_by,
588: x_last_update_login => x_last_update_login
589: );
590:
591: INSERT INTO igf_sl_dl_pnote_p_p_all (
592: pnpp_id,
593: batch_seq_num,
594: loan_id,
595: loan_number,
831: p_permt_zip,
832: p_email_addr,
833: p_phone,
834: status
835: FROM igf_sl_dl_pnote_p_p_all
836: WHERE rowid = x_rowid
837: FOR UPDATE NOWAIT;
838:
839: tlinfo c1%ROWTYPE;
1076: x_program_update_date := SYSDATE;
1077: END IF;
1078: END IF;
1079:
1080: UPDATE igf_sl_dl_pnote_p_p_all
1081: SET
1082: batch_seq_num = new_references.batch_seq_num,
1083: loan_id = new_references.loan_id,
1084: loan_number = new_references.loan_number,
1206: || (reverse chronological order - newest change first)
1207: */
1208: CURSOR c1 IS
1209: SELECT rowid
1210: FROM igf_sl_dl_pnote_p_p_all
1211: WHERE pnpp_id = x_pnpp_id;
1212:
1213: BEGIN
1214:
1349: p_action => 'DELETE',
1350: x_rowid => x_rowid
1351: );
1352:
1353: DELETE FROM igf_sl_dl_pnote_p_p_all
1354: WHERE rowid = x_rowid;
1355:
1356: IF (SQL%NOTFOUND) THEN
1357: RAISE NO_DATA_FOUND;