1: PACKAGE BODY igf_aw_loan_limit_pkg AS
2: /* $Header: IGFWI35B.pls 115.6 2002/11/28 14:41:53 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_loan_limit_all%ROWTYPE;
6: new_references igf_aw_loan_limit_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFWI35B.pls 115.6 2002/11/28 14:41:53 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_loan_limit_all%ROWTYPE;
6: new_references igf_aw_loan_limit_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
35: */
36:
37: CURSOR cur_old_ref_values IS
38: SELECT *
39: FROM IGF_AW_LOAN_LIMIT_ALL
40: WHERE rowid = x_rowid;
41:
42: BEGIN
43:
154: || (reverse chronological order - newest change first)
155: */
156: CURSOR cur_rowid IS
157: SELECT rowid
158: FROM igf_aw_loan_limit_all
159: WHERE allt_id = x_allt_id
160: FOR UPDATE NOWAIT;
161:
162: lv_rowid cur_rowid%RowType;
191: || Known limitations, enhancements or remarks :
192: || Change History :
193: || Who When What
194: || vvutukur 18-feb-2002 modified org_id check in cur_rowid cursor with new local variable l_org_id
195: || and selected from igf_aw_loan_limit instead of igf_aw_loan_limit_all for bug 2222272.
196: || (reverse chronological order - newest change first)
197: */
198:
199: l_org_id igf_aw_loan_limit_all.org_id%TYPE DEFAULT igf_aw_gen.get_org_id;
195: || and selected from igf_aw_loan_limit instead of igf_aw_loan_limit_all for bug 2222272.
196: || (reverse chronological order - newest change first)
197: */
198:
199: l_org_id igf_aw_loan_limit_all.org_id%TYPE DEFAULT igf_aw_gen.get_org_id;
200:
201: CURSOR cur_rowid IS
202: SELECT rowid
203: FROM igf_aw_loan_limit
240: || (reverse chronological order - newest change first)
241: */
242: CURSOR cur_rowid IS
243: SELECT rowid
244: FROM igf_aw_loan_limit_all
245: WHERE ((ci_cal_type = x_cal_type) AND
246: (ci_sequence_number = x_sequence_number));
247:
248: lv_rowid cur_rowid%RowType;
372: || (reverse chronological order - newest change first)
373: */
374: CURSOR c IS
375: SELECT rowid
376: FROM igf_aw_loan_limit_all
377: WHERE allt_id = x_allt_id;
378:
379: x_last_update_date DATE;
380: x_last_updated_by NUMBER;
426: x_last_updated_by => x_last_updated_by,
427: x_last_update_login => x_last_update_login
428: );
429:
430: INSERT INTO igf_aw_loan_limit_all (
431: allt_id,
432: ci_cal_type,
433: ci_sequence_number,
434: depend_stat,
506: subs_annual_lt,
507: tot_annual_lt,
508: subs_aggr_lt,
509: tot_aggr_lt
510: FROM igf_aw_loan_limit_all
511: WHERE rowid = x_rowid
512: FOR UPDATE NOWAIT;
513:
514: tlinfo c1%ROWTYPE;
616: x_last_updated_by => x_last_updated_by,
617: x_last_update_login => x_last_update_login
618: );
619:
620: UPDATE igf_aw_loan_limit_all
621: SET
622: ci_cal_type = new_references.ci_cal_type,
623: ci_sequence_number = new_references.ci_sequence_number,
624: depend_stat = new_references.depend_stat,
664: || (reverse chronological order - newest change first)
665: */
666: CURSOR c1 IS
667: SELECT rowid
668: FROM igf_aw_loan_limit_all
669: WHERE allt_id = x_allt_id;
670:
671: BEGIN
672:
729: p_action => 'DELETE',
730: x_rowid => x_rowid
731: );
732:
733: DELETE FROM igf_aw_loan_limit_all
734: WHERE rowid = x_rowid;
735:
736: IF (SQL%NOTFOUND) THEN
737: RAISE NO_DATA_FOUND;