116: -- Procedure to Load the Data from the Data File into the Interface tables.
117: -- Before loading, it does lot of checks to ensure it is the right file
118: -- and returns the dbth_id, for further processing.
119: PROCEDURE dl_load_data(p_dbth_id OUT NOCOPY igf_sl_dl_batch.dbth_id%TYPE,
120: p_dl_version OUT NOCOPY igf_sl_dl_file_type.dl_version%TYPE,
121: p_dl_loan_catg OUT NOCOPY igf_sl_dl_file_type.dl_loan_catg%TYPE)
122: AS
123: /*************************************************************
124: Created By : venagara
117: -- Before loading, it does lot of checks to ensure it is the right file
118: -- and returns the dbth_id, for further processing.
119: PROCEDURE dl_load_data(p_dbth_id OUT NOCOPY igf_sl_dl_batch.dbth_id%TYPE,
120: p_dl_version OUT NOCOPY igf_sl_dl_file_type.dl_version%TYPE,
121: p_dl_loan_catg OUT NOCOPY igf_sl_dl_file_type.dl_loan_catg%TYPE)
122: AS
123: /*************************************************************
124: Created By : venagara
125: Date Created On : 2000/11/22
148:
149: l_rowid VARCHAR2(25);
150: l_dbth_id igf_sl_dl_batch.dbth_id%TYPE;
151: l_dl_version igf_lookups_view.lookup_code%TYPE;
152: l_dl_file_type igf_sl_dl_file_type.dl_file_type%TYPE;
153: l_dl_loan_catg igf_sl_dl_file_type.dl_loan_catg%TYPE;
154:
155: CURSOR c_header IS
156: SELECT RTRIM(SUBSTR(record_data, 23, 23)) batch_id,
149: l_rowid VARCHAR2(25);
150: l_dbth_id igf_sl_dl_batch.dbth_id%TYPE;
151: l_dl_version igf_lookups_view.lookup_code%TYPE;
152: l_dl_file_type igf_sl_dl_file_type.dl_file_type%TYPE;
153: l_dl_loan_catg igf_sl_dl_file_type.dl_loan_catg%TYPE;
154:
155: CURSOR c_header IS
156: SELECT RTRIM(SUBSTR(record_data, 23, 23)) batch_id,
157: RTRIM(SUBSTR(record_data, 15, 8)) message_class,
511: l_rec_present VARCHAR2(10);
512: l_rec_updated VARCHAR2(10);
513: l_stat VARCHAR2(30);
514:
515: l_dl_version igf_sl_dl_file_type.dl_version%TYPE;
516: l_dl_loan_catg igf_sl_dl_file_type.dl_loan_catg%TYPE;
517:
518: CURSOR cur_batch
519: IS
512: l_rec_updated VARCHAR2(10);
513: l_stat VARCHAR2(30);
514:
515: l_dl_version igf_sl_dl_file_type.dl_version%TYPE;
516: l_dl_loan_catg igf_sl_dl_file_type.dl_loan_catg%TYPE;
517:
518: CURSOR cur_batch
519: IS
520: SELECT igf_sl_dl_batch.*