[Home] [Help]
130: adhawan 22-jan-2002 Disbursements build
131: ***************************************************************/
132:
133: CURSOR c_batch IS
134: SELECT record_data FROM igf_sl_load_file_t ,igf_db_ytd_smr ln
135: WHERE file_type ='DL_YTDS' AND
136: SUBSTR(record_data,1,1)='Y' AND
137: SUBSTR(record_data,2,23) =ln.batch_id;
138: c_batch_rec c_batch%ROWTYPE;
144: AND file_type ='DL_YTDS'
145: AND SUBSTR(record_data,1,1)='Y'
146: AND SUBSTR(record_data,25,6)=p_school_code
147: ORDER BY lort_id ;
148: l_dl_ytds_rec igf_db_ytd_smr%ROWTYPE;
149:
150: l_rowid VARCHAR2(30);
151: l_ytds_id igf_db_ytd_smr.ytds_id%TYPE;
152: l_counter NUMBER(20) := 0;
147: ORDER BY lort_id ;
148: l_dl_ytds_rec igf_db_ytd_smr%ROWTYPE;
149:
150: l_rowid VARCHAR2(30);
151: l_ytds_id igf_db_ytd_smr.ytds_id%TYPE;
152: l_counter NUMBER(20) := 0;
153:
154: --Variables used to give the end result of the processing of the records
155:
208:
209: -- Bug # 2758823. Removed the ref cursor c_count_ytd_rec1
210:
211: /* Get the records from the temporary table. Split each column and
212: insert into the igf_db_ytd_smr_all table */
213:
214: IF (l_n_last_lort_id-2) <> l_n_rec_num THEN
215: RAISE INV_TRL_NUM;
216: END IF;
237: l_dl_ytds_rec.unbkd_net :=SUBSTR(loadrec.record_data,130,11);
238: l_dl_ytds_rec.rec_count :=SUBSTR(loadrec.record_data,215,6);
239:
240: l_rowid := NULL;
241: igf_db_ytd_smr_pkg.insert_row(
242: x_mode => 'R',
243: x_rowid => l_rowid,
244: x_ytds_id =>l_ytds_id,
245: x_dl_version =>l_dl_ytds_rec.dl_version ,
580:
581: END IF;
582: CLOSE c_get_ver;
583:
584: -- Calling the procedure to load the data from igf_sl_load_file_t to igf_db_ytd_smr table
585: load_ytd_summary(P_SCHOOL_CODE, l_award_year);
586:
587: EXCEPTION
588: WHEN INV_TRL_NUM THEN