[Home] [Help]
312: PROCEDURE load_ytd_detail(p_school_code VARCHAR2, p_award_year igf_sl_dl_setup_v.ci_alternate_code%TYPE, p_c_dl_version igf_sl_dl_setup_v.DL_VERSION%TYPE) AS
313: /***************************************************************
314: Created By : adhawan
315: Date Created By : 22-jan-2002
316: Purpose : To load igf_db_ytd_dtl from igf_sl_load_file_t
317: Known Limitations,Enhancements or Remarks:
318: Change History :2154941
319: Who When What
320: ugummall 15-OCT-2003 Bug # 3102439. FA 126 Multiple FA Offices.
324: smvk 25-Feb-2003 Bug # 2758823. Validating Header and trailer. Done changes for 2003-2004 awary year.
325: adhawan 22-jan-2002 Disbursements build
326: ***************************************************************/
327:
328: l_loaded_batch_id igf_db_ytd_dtl.batch_id%TYPE;
329: -- To ensure whether the batch is loaded , if yes then the records should not be loaded again
330: CURSOR c_batch IS
331: SELECT record_data FROM igf_sl_load_file_t ,igf_db_ytd_dtl ln
332: WHERE file_type ='DL_YTDD' AND
327:
328: l_loaded_batch_id igf_db_ytd_dtl.batch_id%TYPE;
329: -- To ensure whether the batch is loaded , if yes then the records should not be loaded again
330: CURSOR c_batch IS
331: SELECT record_data FROM igf_sl_load_file_t ,igf_db_ytd_dtl ln
332: WHERE file_type ='DL_YTDD' AND
333: SUBSTR(record_data,1,1)='D' AND
334: SUBSTR(record_data,2,23) =ln.batch_id ;
335: c_batch_rec c_batch%ROWTYPE;
344: AND SUBSTR(record_data,25,6)=p_school_code -- To select only those records who have a school code passed as parameter
345: AND SUBSTR(record_data,51,21)=sl.loan_number--who have a valid loan number in the system(igf_sl_loans_v)
346: ORDER BY lort_id ;
347:
348: l_dl_ytds_rec_det igf_db_ytd_dtl%ROWTYPE;
349: l_rowid VARCHAR2(30);
350: l_ytdd_id igf_db_ytd_dtl.ytdd_id%TYPE;
351: l_counter NUMBER(20) := 0;
352:
346: ORDER BY lort_id ;
347:
348: l_dl_ytds_rec_det igf_db_ytd_dtl%ROWTYPE;
349: l_rowid VARCHAR2(30);
350: l_ytdd_id igf_db_ytd_dtl.ytdd_id%TYPE;
351: l_counter NUMBER(20) := 0;
352:
353: --Variables used to give the end result of the processing of the records
354:
406:
407: -- Bug # 2758823. Removed the ref cursor c_count_ytd_rec1
408:
409: /* Get the records from the temporary table. Split each column and
410: insert into the igf_db_ytd_dtl table */
411:
412: IF (l_n_last_lort_id-2) <> l_n_rec_num THEN
413: RAISE INV_TRL_NUM;
414: END IF;
443: l_dl_ytds_rec_det.rec_count := LTRIM(RTRIM(SUBSTR(loadrec.record_data,215,11)));
444:
445: l_rowid := NULL;
446:
447: igf_db_ytd_dtl_pkg.insert_row(
448: x_mode => 'R',
449: x_rowid => l_rowid,
450: x_ytdd_id => l_ytdd_id,
451: x_dl_version => l_dl_ytds_rec_det.dl_version ,
672: END IF;
673:
674: CLOSE c_get_ver;
675:
676: -- Calling the procedure to load the data from igf_sl_load_file_t to igf_db_ytd_dtl table
677: load_ytd_detail(P_SCHOOL_CODE, l_award_year, c_get_ver_rec.dl_version);
678:
679: EXCEPTION
680: WHEN INV_TRL_NUM THEN