3:
4: /***************************************************************
5: Created By : avenkatr
6: Date Created By : 2000/12/20
7: Purpose : To upload data into IGF_GR_YTD_ORIG and IGF_GR_YTD_DISB files
8:
9: Known Limitations,Enhancements or Remarks
10: Change History : Big Id : 1706091 Wrong error message and token
11: Who When What
208: END split_into_orig_fields;
209:
210:
211: PROCEDURE split_into_disb_fields ( p_record_data IN igf_gr_load_file_t.record_data%TYPE,
212: p_ytd_disb_row OUT NOCOPY igf_gr_ytd_disb%ROWTYPE)
213: AS
214: /***************************************************************
215: Created By : avenkatr
216: Date Created By : 2000/12/20
214: /***************************************************************
215: Created By : avenkatr
216: Date Created By : 2000/12/20
217: Purpose : To split data in the single record_data column of igf_gr_load_file_t
218: into the different columns of igf_gr_ytd_disb table
219:
220: Known Limitations,Enhancements or Remarks
221: Change History :
222: Who When What
407:
408: END insert_in_ytdor_table;
409:
410:
411: PROCEDURE insert_in_ytdds_table ( p_orig_rec IN igf_gr_ytd_disb%ROWTYPE )
412: AS
413: /***************************************************************
414: Created By : avenkatr
415: Date Created By : 2000/12/22
412: AS
413: /***************************************************************
414: Created By : avenkatr
415: Date Created By : 2000/12/22
416: Purpose : To Load data into IGF_GR_YTD_DISB table
417:
418: Known Limitations,Enhancements or Remarks
419: Change History :
420: Who When What
423: lv_ytdds_id NUMBER;
424:
425: BEGIN
426:
427: igf_gr_ytd_disb_pkg.insert_row (
428: x_rowid => lv_rowid,
429: x_ytdds_id => lv_ytdds_id,
430: x_origination_id => p_orig_rec.origination_id,
431: x_inst_cross_ref_code => p_orig_rec.inst_cross_ref_code,
521: gldr_id;
522:
523: ytd_rec_data c_ytd_data%ROWTYPE;
524: lv_ytdor_row igf_gr_ytd_orig%ROWTYPE;
525: lv_ytdds_row igf_gr_ytd_disb%ROWTYPE;
526:
527: BEGIN
528: --
529: -- Check for the type of data in the Flat File
570:
571: ELSIF ( (SUBSTR(ytd_rec_data.record_data, 1, 1)) = 'D' ) THEN
572:
573: --
574: -- This file has Disbursement records and has to be updated in the igf_gr_ytd_disb file
575: --
576: BEGIN
577: --
578: -- Split the data in the column of igf_gr_load_file_t into the columns of igf_gr_ytd_orig file
671: AS
672: /***************************************************************
673: Created By : avenkatr
674: Date Created By : 2000/12/19
675: Purpose : To Load the IGF_GR_YTD_ORIG and IGF_GR_YTD_DISB tables
676:
677: Known Limitations,Enhancements or Remarks
678: Change History :
679: Who When What