eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.IGF_AP_LI_ISIR_IMP_PROC

Source


1 PACKAGE BODY igf_ap_li_isir_imp_proc AS
2   /* $Header: IGFAP34B.pls 120.7 2006/04/18 05:41:05 hkodali ship $ */
3 
4   CURSOR c_int_data (p_batch_id NUMBER)
5         IS
6         SELECT
7               a.rowid              row_id,
8               a.person_number,
9               a.batch_year_num,
10               a.transaction_num_txt,
11               a.ssn_name_change_type,
12               a.original_ssn_txt,
13               a.orig_name_id_txt,
14               a.current_ssn_txt,
15               a.last_name,
16               a.first_name,
17               a.middle_initial_txt,
18               a.perm_mail_address_txt,
19               a.perm_city_txt,
20               a.perm_state_txt,
21               a.perm_zip_cd,
22               a.birth_date,
23               a.phone_number_txt,
24               a.driver_license_number_txt,
25               a.driver_license_state_txt,
26               a.citizenship_status_type,
27               a.alien_reg_number_txt,
28               a.s_marital_status_type,
29               a.s_marital_status_date,
30               a.summ_enrl_status_type,
31               a.fall_enrl_status_type,
32               a.winter_enrl_status_type,
33               a.spring_enrl_status_type,
34               a.summ2_enrl_status_type,
35               a.fathers_highest_edu_level_type,
36               a.mothers_highest_edu_level_type,
37               a.s_state_legal_residence,
38               a.legal_res_before_year_flag,
39               a.s_legal_resd_date,
40               a.ss_r_u_male_flag,
41               a.selective_service_reg_flag,
42               a.degree_certification_type,
43               a.grade_level_in_college_type,
44               a.high_school_diploma_ged_flag,
45               a.first_bachelor_deg_year_flag,
46               a.interest_in_loan_flag,
47               a.interest_in_stu_employmnt_flag,
48               a.drug_offence_conviction_type,
49               a.s_tax_return_status_type,
50               a.s_type_tax_return_type,
51               a.s_elig_1040ez_type,
52               a.s_adjusted_gross_income_amt,
53               a.s_fed_taxes_paid_amt,
54               a.s_exemptions_amt,
55               a.s_income_from_work_amt,
56               a.spouse_income_from_work_amt,
57               a.s_total_from_wsa_amt,
58               a.s_total_from_wsb_amt,
59               a.s_total_from_wsc_amt,
60               a.s_investment_networth_amt,
61               a.s_busi_farm_networth_amt,
62               a.s_cash_savings_amt,
63               a.va_months_num,
64               a.va_amt,
65               a.stud_dob_before_year_flag,
66               a.deg_beyond_bachelor_flag,
67               a.s_married_flag,
68               a.s_have_children_flag,
69               a.legal_dependents_flag,
70               a.orphan_ward_of_court_flag,
71               a.s_veteran_flag,
72               a.p_marital_status_type,
73               a.father_ssn_txt,
74               a.f_last_name,
75               a.mother_ssn_txt,
76               a.m_last_name,
77               a.p_family_members_num,
78               a.p_in_college_num,
79               a.p_state_legal_residence_txt,
80               a.p_legal_res_before_dt_flag,
81               a.p_legal_res_date,
82               a.age_older_parent_num,
83               a.p_tax_return_status_type,
84               a.p_type_tax_return_type,
85               a.p_elig_1040aez_type,
86               a.p_adjusted_gross_income_amt,
87               a.p_taxes_paid_amt,
88               a.p_exemptions_amt,
89               a.f_income_work_amt,
90               a.m_income_work_amt,
91               a.p_income_wsa_amt,
92               a.p_income_wsb_amt,
93               a.p_income_wsc_amt,
94               a.p_investment_networth_amt,
95               a.p_business_networth_amt,
96               a.p_cash_saving_amt,
97               a.s_family_members_num,
98               a.s_in_college_num,
99               a.first_college_cd,
100               a.first_house_plan_type,
101               a.second_college_cd,
102               a.second_house_plan_type,
103               a.third_college_cd,
104               a.third_house_plan_type,
105               a.fourth_college_cd,
106               a.fourth_house_plan_type,
107               a.fifth_college_cd,
108               a.fifth_house_plan_type,
109               a.sixth_college_cd,
110               a.sixth_house_plan_type,
111               a.app_completed_date,
112               a.signed_by_type,
113               a.preparer_ssn_txt,
114               a.preparer_emp_id_number_txt,
115               a.preparer_sign_flag,
116               a.transaction_receipt_date,
117               a.dependency_override_type,
118               a.faa_fedral_schl_cd,
119               a.faa_adjustment_type,
120               a.input_record_type,
121               a.serial_num,
122               a.batch_number_txt,
123               a.early_analysis_flag,
124               a.app_entry_source_type,
125               a.eti_destination_cd,
126               a.reject_override_b_flag,
127               a.reject_override_n_flag,
128               a.reject_override_w_flag,
129               a.assum_override_1_flag,
130               a.assum_override_2_flag,
131               a.assum_override_3_flag,
132               a.assum_override_4_flag,
133               a.assum_override_5_flag,
134               a.assum_override_6_flag,
135               a.dependency_status_type,
136               a.s_email_address_txt,
137               a.nslds_reason_cd,
138               a.app_receipt_date,
139               a.processed_rec_type,
140               a.hist_corr_for_tran_num,
141               a.sys_generated_indicator_type,
142               a.dup_request_indicator_type,
143               a.source_of_correction_type,
144               a.p_cal_tax_status_type,
145               a.s_cal_tax_status_type,
146               a.graduate_flag,
147               a.auto_zero_efc_flag,
148               a.efc_change_flag,
149               a.sarc_flag,
150               a.simplified_need_test_flag,
151               a.reject_reason_codes_txt,
152               a.select_service_match_type,
153               a.select_service_reg_type,
154               a.ins_match_flag,
155               a.ins_verification_num,
156               a.sec_ins_match_type,
157               a.sec_ins_ver_num,
158               a.ssn_match_type,
159               a.ssa_citizenship_type,
160               a.ssn_death_date,
161               a.nslds_match_type,
162               a.va_match_type,
163               a.prisoner_match_flag,
164               a.verification_flag,
165               a.subsequent_app_flag,
166               a.app_source_site_cd,
167               a.tran_source_site_cd,
168               a.drn_num,
169               a.tran_process_date,
170               a.correction_flags_txt,
171               a.computer_batch_num,
172               a.highlight_flags_txt,
173               a.paid_efc_amt,
174               a.primary_efc_amt,
175               a.secondary_efc_amt,
176               a.fed_pell_grant_efc_type,
177               a.primary_efc_type,
178               a.sec_efc_type,
179               a.primary_alt_month_1_amt,
180               a.primary_alt_month_2_amt,
181               a.primary_alt_month_3_amt,
182               a.primary_alt_month_4_amt,
183               a.primary_alt_month_5_amt,
184               a.primary_alt_month_6_amt,
185               a.primary_alt_month_7_amt,
186               a.primary_alt_month_8_amt,
187               a.primary_alt_month_10_amt,
188               a.primary_alt_month_11_amt,
189               a.primary_alt_month_12_amt,
190               a.sec_alternate_month_1_amt,
191               a.sec_alternate_month_2_amt,
192               a.sec_alternate_month_3_amt,
193               a.sec_alternate_month_4_amt,
194               a.sec_alternate_month_5_amt,
195               a.sec_alternate_month_6_amt,
196               a.sec_alternate_month_7_amt,
197               a.sec_alternate_month_8_amt,
198               a.sec_alternate_month_10_amt,
199               a.sec_alternate_month_11_amt,
200               a.sec_alternate_month_12_amt,
201               a.total_income_amt,
202               a.allow_total_income_amt,
203               a.state_tax_allow_amt,
204               a.employment_allow_amt,
205               a.income_protection_allow_amt,
206               a.available_income_amt,
207               a.contribution_from_ai_amt,
208               a.discretionary_networth_amt,
209               a.efc_networth_amt,
210               a.asset_protect_allow_amt,
211               a.parents_cont_from_assets_amt,
212               a.adjusted_available_income_amt,
213               a.total_student_contribution_amt,
214               a.total_parent_contribution_amt,
215               a.parents_contribution_amt,
216               a.student_total_income_amt,
217               a.sati_amt,
218               a.sic_amt,
219               a.sdnw_amt,
220               a.sca_amt,
221               a.fti_amt,
222               a.secti_amt,
223               a.secati_amt,
224               a.secstx_amt,
225               a.secea_amt,
226               a.secipa_amt,
227               a.secai_amt,
228               a.seccai_amt,
229               a.secdnw_amt,
230               a.secnw_amt,
231               a.secapa_amt,
232               a.secpca_amt,
233               a.secaai_amt,
234               a.sectsc_amt,
235               a.sectpc_amt,
236               a.secpc_amt,
237               a.secsti_amt,
238               a.secsati_amt,
239               a.secsic_amt,
240               a.secsdnw_amt,
241               a.secsca_amt,
242               a.secfti_amt,
243               a.a_citizenship_flag,
244               a.a_student_marital_status_flag,
245               a.a_student_agi_amt,
246               a.a_s_us_tax_paid_amt,
247               a.a_s_income_work_amt,
248               a.a_spouse_income_work_amt,
249               a.a_s_total_wsc_amt,
250               a.a_date_of_birth_flag,
251               a.a_student_married_flag,
252               a.a_have_children_flag,
253               a.a_s_have_dependents_flag,
254               a.a_va_status_flag,
255               a.a_s_in_family_num,
256               a.a_s_in_college_num,
257               a.a_p_marital_status_flag,
258               a.a_father_ssn_txt,
259               a.a_mother_ssn_txt,
260               a.a_parents_family_num,
261               a.a_parents_college_num,
262               a.a_parents_agi_amt,
263               a.a_p_us_tax_paid_amt,
264               a.a_f_work_income_amt,
265               a.a_m_work_income_amt,
266               a.a_p_total_wsc_amt,
267               a.comment_codes_txt,
268               a.sar_ack_comm_codes_txt,
269               a.pell_grant_elig_flag,
270               a.reprocess_reason_cd,
271               a.duplicate_date,
272               a.isir_transaction_type,
273               a.fedral_schl_type,
274               a.multi_school_cd_flags_txt,
275               a.dup_ssn_indicator_flag,
276               a.nslds_transaction_num,
277               a.nslds_database_results_type,
278               a.nslds_flag,
279               a.nslds_pell_overpay_type,
280               a.nslds_pell_overpay_contact_txt,
281               a.nslds_seog_overpay_type,
282               a.nslds_seog_overpay_contact_txt,
283               a.nslds_perkins_overpay_type,
284               a.nslds_perkins_ovrpay_cntct_txt,
285               a.nslds_defaulted_loan_flag,
286               a.nslds_discharged_loan_type,
287               a.nslds_satis_repay_flag,
288               a.nslds_act_bankruptcy_flag,
289               a.nslds_agg_subsz_out_pbal_amt,
290               a.nslds_agg_unsbz_out_pbal_amt,
291               a.nslds_agg_comb_out_pbal_amt,
292               a.nslds_agg_cons_out_pbal_amt,
293               a.nslds_agg_subsz_pend_disb_amt,
294               a.nslds_agg_unsbz_pend_disb_amt,
295               a.nslds_agg_comb_pend_disb_amt,
296               a.nslds_agg_subsz_total_amt,
297               a.nslds_agg_unsbz_total_amt,
298               a.nslds_agg_comb_total_amt,
299               a.nslds_agg_consd_total_amt,
300               a.nslds_perkins_out_bal_amt,
301               a.nslds_perkins_cur_yr_disb_amt,
302               a.nslds_default_loan_chng_flag,
303               a.nslds_dischged_loan_chng_flag,
304               a.nslds_satis_repay_chng_flag,
305               a.nslds_act_bnkrupt_chng_flag,
306               a.nslds_overpay_chng_flag,
307               a.nslds_agg_loan_chng_flag,
308               a.nslds_perkins_loan_chng_flag,
309               a.nslds_pell_paymnt_chng_flag,
310               a.nslds_addtnl_pell_flag,
311               a.nslds_addtnl_loan_flag,
312               a.direct_loan_mas_prom_nt_type,
313               a.nslds_pell_1_seq_num,
314               a.nslds_pell_1_verify_f_txt,
315               a.nslds_pell_1_efc_amt,
316               a.nslds_pell_1_school_num,
317               a.nslds_pell_1_transcn_num,
318               a.nslds_pell_1_last_updt_date,
319               a.nslds_pell_1_scheduled_amt,
320               a.nslds_pell_1_paid_todt_amt,
321               a.nslds_pell_1_remng_amt,
322               a.nslds_pell_1_pc_schawd_use_amt,
323               a.nslds_pell_1_award_amt,
324               a.nslds_pell_2_seq_num,
325               a.nslds_pell_2_verify_f_txt,
326               a.nslds_pell_2_efc_amt,
327               a.nslds_pell_2_school_num,
328               a.nslds_pell_2_transcn_num,
329               a.nslds_pell_2_last_updt_date,
330               a.nslds_pell_2_scheduled_amt,
331               a.nslds_pell_2_paid_todt_amt,
332               a.nslds_pell_2_remng_amt,
333               a.nslds_pell_2_pc_schawd_use_amt,
334               a.nslds_pell_2_award_amt,
335               a.nslds_pell_3_seq_num,
336               a.nslds_pell_3_verify_f_txt,
337               a.nslds_pell_3_efc_amt,
338               a.nslds_pell_3_school_num,
339               a.nslds_pell_3_transcn_num,
340               a.nslds_pell_3_last_updt_date,
341               a.nslds_pell_3_scheduled_amt,
342               a.nslds_pell_3_paid_todt_amt,
343               a.nslds_pell_3_remng_amt,
344               a.nslds_pell_3_pc_schawd_use_amt,
345               a.nslds_pell_3_award_amt,
346               a.nslds_loan_1_seq_num,
347               a.nslds_loan_1_type,
348               a.nslds_loan_1_chng_flag,
349               a.nslds_loan_1_prog_cd,
350               a.nslds_loan_1_net_amt,
351               a.nslds_loan_1_cur_st_cd,
352               a.nslds_loan_1_cur_st_date,
353               a.nslds_loan_1_agg_pr_bal_amt,
354               a.nslds_loan_1_out_pr_bal_date,
355               a.nslds_loan_1_begin_date,
356               a.nslds_loan_1_end_date,
357               a.nslds_loan_1_ga_cd,
358               a.nslds_loan_1_cont_type,
359               a.nslds_loan_1_schol_cd,
360               a.nslds_loan_1_cont_cd,
361               a.nslds_loan_1_grade_lvl_txt,
362               a.nslds_loan_1_xtr_unsbz_ln_type,
363               a.nslds_loan_1_capital_int_flag,
364               a.nslds_loan_2_seq_num,
365               a.nslds_loan_2_type,
366               a.nslds_loan_2_chng_flag,
367               a.nslds_loan_2_prog_cd,
368               a.nslds_loan_2_net_amt,
369               a.nslds_loan_2_cur_st_cd,
370               a.nslds_loan_2_cur_st_date,
371               a.nslds_loan_2_agg_pr_bal_amt,
372               a.nslds_loan_2_out_pr_bal_date,
373               a.nslds_loan_2_begin_date,
374               a.nslds_loan_2_end_date,
375               a.nslds_loan_2_ga_cd,
376               a.nslds_loan_2_cont_type,
377               a.nslds_loan_2_schol_cd,
378               a.nslds_loan_2_cont_cd,
379               a.nslds_loan_2_grade_lvl_txt,
380               a.nslds_loan_2_xtr_unsbz_ln_type,
381               a.nslds_loan_2_capital_int_flag,
382               a.nslds_loan_3_seq_num,
383               a.nslds_loan_3_type,
384               a.nslds_loan_3_chng_flag,
385               a.nslds_loan_3_prog_cd,
386               a.nslds_loan_3_net_amt,
387               a.nslds_loan_3_cur_st_cd,
388               a.nslds_loan_3_cur_st_date,
389               a.nslds_loan_3_agg_pr_bal_amt,
390               a.nslds_loan_3_out_pr_bal_date,
391               a.nslds_loan_3_begin_date,
392               a.nslds_loan_3_end_date,
393               a.nslds_loan_3_ga_cd,
394               a.nslds_loan_3_cont_type,
395               a.nslds_loan_3_schol_cd,
396               a.nslds_loan_3_cont_cd,
397               a.nslds_loan_3_grade_lvl_txt,
398               a.nslds_loan_3_xtr_unsbz_ln_type,
399               a.nslds_loan_3_capital_int_flag,
400               a.nslds_loan_4_seq_num,
401               a.nslds_loan_4_type,
402               a.nslds_loan_4_chng_flag,
403               a.nslds_loan_4_prog_cd,
404               a.nslds_loan_4_net_amt,
405               a.nslds_loan_4_cur_st_cd,
406               a.nslds_loan_4_cur_st_date,
407               a.nslds_loan_4_agg_pr_bal_amt,
408               a.nslds_loan_4_out_pr_bal_date,
409               a.nslds_loan_4_begin_date,
410               a.nslds_loan_4_end_date,
411               a.nslds_loan_4_ga_cd,
412               a.nslds_loan_4_cont_type,
413               a.nslds_loan_4_schol_cd,
414               a.nslds_loan_4_cont_cd,
415               a.nslds_loan_4_grade_lvl_txt,
416               a.nslds_loan_4_xtr_unsbz_ln_type,
417               a.nslds_loan_4_capital_int_flag,
418               a.nslds_loan_5_seq_num,
419               a.nslds_loan_5_type,
420               a.nslds_loan_5_chng_flag,
421               a.nslds_loan_5_prog_cd,
422               a.nslds_loan_5_net_amt,
423               a.nslds_loan_5_cur_st_cd,
424               a.nslds_loan_5_cur_st_date,
425               a.nslds_loan_5_agg_pr_bal_amt,
426               a.nslds_loan_5_out_pr_bal_date,
427               a.nslds_loan_5_begin_date,
428               a.nslds_loan_5_end_date,
429               a.nslds_loan_5_ga_cd,
430               a.nslds_loan_5_cont_type,
431               a.nslds_loan_5_schol_cd,
432               a.nslds_loan_5_cont_cd,
433               a.nslds_loan_5_grade_lvl_txt,
434               a.nslds_loan_5_xtr_unsbz_ln_type,
435               a.nslds_loan_5_capital_int_flag,
436               a.nslds_loan_6_seq_num,
437               a.nslds_loan_6_type,
438               a.nslds_loan_6_chng_flag,
439               a.nslds_loan_6_prog_cd,
440               a.nslds_loan_6_net_amt,
441               a.nslds_loan_6_cur_st_cd,
442               a.nslds_loan_6_cur_st_date,
443               a.nslds_loan_6_agg_pr_bal_amt,
444               a.nslds_loan_6_out_pr_bal_date,
445               a.nslds_loan_6_begin_date,
446               a.nslds_loan_6_end_date,
447               a.nslds_loan_6_ga_cd,
448               a.nslds_loan_6_cont_type,
449               a.nslds_loan_6_schol_cd,
450               a.nslds_loan_6_cont_cd,
451               a.nslds_loan_6_grade_lvl_txt,
452               a.nslds_loan_6_xtr_unsbz_ln_type,
453               a.nslds_loan_6_capital_int_flag,
454               a.request_id,
455               a.program_application_id,
456               a.program_id,
457               a.program_update_date,
458               a.nslds_loan_1_last_disb_amt,
459               a.nslds_loan_1_last_disb_date,
460               a.nslds_loan_2_last_disb_amt,
461               a.nslds_loan_2_last_disb_date,
462               a.nslds_loan_3_last_disb_amt,
463               a.nslds_loan_3_last_disb_date,
464               a.nslds_loan_4_last_disb_amt,
465               a.nslds_loan_4_last_disb_date,
466               a.nslds_loan_5_last_disb_amt,
467               a.nslds_loan_5_last_disb_date,
468               a.nslds_loan_6_last_disb_amt,
469               a.nslds_loan_6_last_disb_date,
470               a.verif_track_type,
471               a.fafsa_data_verification_txt,
472               a.reject_override_a_flag,
473               a.reject_override_c_flag,
474               a.parent_marital_status_date,
475               a.dlp_master_prom_note_type,
476               NVL(a.import_record_type,'I')   import_record_type,
477               a.father_first_name_initial_txt,
478               a.father_step_father_birth_date,
479               a.mother_first_name_initial_txt,
480               a.mother_step_mother_birth_date,
481               a.parents_email_address_txt,
482               a.address_change_type,
483               a.cps_pushed_isir_flag,
484               a.electronic_transaction_type,
485               a.sar_c_change_type,
486               a.father_ssn_match_type,
487               a.mother_ssn_match_type,
488               a.subsidized_loan_limit_type,
489               a.combined_loan_limit_type,
490               a.reject_override_g_flag,
491               a.dhs_verification_num_txt,
492               'IDAP05OP.dat' data_file_name_txt,
493               'IDAP05OP' message_class_txt,
494               reject_override_3_flag,
495               reject_override_12_flag,
496               reject_override_j_flag,
497               reject_override_k_flag,
498               rejected_status_change_flag,
499               verification_selection_flag
500         FROM
501               igf_ap_li_isir_ints a
502         WHERE
503               a.batch_num = p_batch_id  AND
504               a.import_status_type IN ('U','R')
505         ORDER BY  a.person_number;
506 
507         c_int_data_rec       c_int_data%ROWTYPE;
508 
509   CURSOR c_cps_int_data(p_batch_year  VARCHAR2 )
510         IS
511         SELECT rowid row_id, a.*
512         FROM
513              igf_ap_isir_ints_all a
514         WHERE
515              a.record_status = 'LEGACY' AND
516              a.batch_year_num = p_batch_year
517         ORDER BY  a.original_ssn_txt;
518 
519   l_cps_int_data_rec   c_cps_int_data%rowtype;
520   l_blank              VARCHAR2(30) := '       ' ;
521   l_debug_str          VARCHAR2(4000) := NULL;
522   l_error              igf_lookups_view.meaning%TYPE ;
523   l_cps_log            VARCHAR2(1) ;
524   g_import_type        VARCHAR2(1);
525   g_sys_award_year     igf_ap_batch_aw_map.sys_award_year%TYPE ;
526 
527   FUNCTION convert_negative_char( pv_charnum IN VARCHAR2)
528   RETURN NUMBER
529   IS
530     /*
531     ||  Created By : brajendr
532     ||  Created On : 24-NOV-2000
533     ||  Purpose :        Process which converts the Alphaneumeric signed number to equavalent numeric signed number.
534     ||  Known limitations, enhancements or remarks :
535     ||  Change History :
536     ||  Who              When              What
537     ||  (reverse chronological order - newest change first)
538     */
539       ln_Amount         NUMBER;
540       lv_Signed_Char    VARCHAR2(1);
541       lv_Number         VARCHAR2(10);
542       lv_Signed_Value   VARCHAR2(1);
543 
544   BEGIN
545 
546       -- Select the last character which is used to denote a signed number
547       IF pv_charnum IS NULL THEN
548            RETURN NULL;
549       END IF;
550 
551       lv_signed_char := SUBSTR( pv_charnum, LENGTH( pv_charnum), 1);
552 
553       IF lv_signed_char NOT IN ( '{','}','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R')        THEN
554            RETURN NULL ;
555       END IF;
556 
557       -- Select the number part from the amount field
558       lv_number := SUBSTR( pv_charnum, 1,LENGTH( pv_charnum)-1);
559 
560       -- Get the value of        the signed character
561       -- The mapping is '{' => +0,  'A' =>+1 to 'I' => +9        and '}'        => -0,        'J'=> -1 so on to 'R' => -9
562       SELECT DECODE( lv_signed_char, '{','0','A','1', 'B','2', 'C','3', 'D','4', 'E','5',        'F','6',
563                                      'G','7', 'H','8', 'I','9', 'J','1', 'K','2',
564                                      'L','3', 'M','4', 'N','5', 'O','6', 'P','7',        'Q','8', 'R','9', '}','0' )
565       INTO   lv_signed_value
566       FROM   dual;
567 
568       -- Get the amount by concatanating number and signed value
569       ln_Amount := TO_NUMBER( lv_number||lv_signed_value);
570 
571       -- add the signed value
572       IF lv_signed_char IN ( '}','J','K','L','M','N','O','P','Q','R') THEN
573             ln_Amount := ln_Amount*(-1);
574       END IF;
575 
576       RETURN ln_Amount;
577 
578   EXCEPTION
579 
580       WHEN others THEN
581        RETURN NULL;
582 
583   END convert_negative_char;
584 
585 
586 PROCEDURE p_convert_rec
587   IS
588 
589    l_field_debug NUMBER;
590   BEGIN
591 
592    l_field_debug := 0 ;
593    l_field_debug := l_field_debug + 1 ;
594 
595               c_int_data_rec.row_id                                               := l_cps_int_data_rec.row_id;
596               l_field_debug := l_field_debug + 1 ;
597               c_int_data_rec.person_number                                        := NULL;
598               l_field_debug := l_field_debug + 1 ;
599               c_int_data_rec.batch_year_num                                       := l_cps_int_data_rec.batch_year_num ;
600               l_field_debug := l_field_debug + 1 ;
601               c_int_data_rec.transaction_num_txt                                  := l_cps_int_data_rec.transaction_num_txt ;
602               l_field_debug := l_field_debug + 1 ;
603               c_int_data_rec.ssn_name_change_type                                 := l_cps_int_data_rec.ssn_name_change_type  ;
604              l_field_debug := l_field_debug + 1 ;
605              c_int_data_rec.original_ssn_txt                                     := l_cps_int_data_rec.original_ssn_txt ;
606               l_field_debug := l_field_debug + 1 ;
607               c_int_data_rec.orig_name_id_txt                                     := l_cps_int_data_rec.orig_name_id_txt ;
608               l_field_debug := l_field_debug + 1 ;
609               c_int_data_rec.current_ssn_txt                                      := l_cps_int_data_rec.current_ssn_txt;
610               l_field_debug := l_field_debug + 1 ;
611               c_int_data_rec.last_name                                            := l_cps_int_data_rec.last_name ;
612               l_field_debug := l_field_debug + 1 ;
613               c_int_data_rec.first_name                                           := l_cps_int_data_rec.first_name ;
614               l_field_debug := l_field_debug + 1 ;
615               c_int_data_rec.middle_initial_txt                                   := l_cps_int_data_rec.middle_initial_txt ;
616               l_field_debug := l_field_debug + 1 ;
617               c_int_data_rec.perm_mail_address_txt                                := l_cps_int_data_rec.perm_mail_address_txt ;
618               l_field_debug := l_field_debug + 1 ;
619               c_int_data_rec.perm_city_txt                                        := l_cps_int_data_rec.perm_city_txt ;
620               l_field_debug := l_field_debug + 1 ;
621               c_int_data_rec.perm_state_txt                                       := l_cps_int_data_rec.perm_state_txt ;
622               l_field_debug := l_field_debug + 1 ;
623               c_int_data_rec.perm_zip_cd                                          := l_cps_int_data_rec.perm_zip_cd ;
624               l_field_debug := l_field_debug + 1 ;
625               c_int_data_rec.birth_date                                           := l_cps_int_data_rec.birth_date ;
626               l_field_debug := l_field_debug + 1 ;
627               c_int_data_rec.phone_number_txt                                     := l_cps_int_data_rec.phone_number_txt ;
628               l_field_debug := l_field_debug + 1 ;
629               c_int_data_rec.driver_license_number_txt                            := l_cps_int_data_rec.driver_license_number_txt ;
630               l_field_debug := l_field_debug + 1 ;
631               c_int_data_rec.driver_license_state_txt                             := l_cps_int_data_rec.driver_license_state_txt ;
632               l_field_debug := l_field_debug + 1 ;
633               c_int_data_rec.citizenship_status_type                              := l_cps_int_data_rec.citizenship_status_type ;
634               l_field_debug := l_field_debug + 1 ;
635               c_int_data_rec.alien_reg_number_txt                                 := l_cps_int_data_rec.alien_reg_number_txt ;
636               l_field_debug := l_field_debug + 1 ;
637               c_int_data_rec.s_marital_status_type                                := l_cps_int_data_rec.s_marital_status_type ;
638               l_field_debug := l_field_debug + 1 ;
639               c_int_data_rec.s_marital_status_date                                := l_cps_int_data_rec.s_marital_status_date ;
640               l_field_debug := l_field_debug + 1 ;
641               c_int_data_rec.summ_enrl_status_type                                := l_cps_int_data_rec.summ_enrl_status_type ;
642               l_field_debug := l_field_debug + 1 ;
643               c_int_data_rec.fall_enrl_status_type                                := l_cps_int_data_rec.fall_enrl_status_type ;
644               l_field_debug := l_field_debug + 1 ;
645               c_int_data_rec.winter_enrl_status_type                              := l_cps_int_data_rec.winter_enrl_status_type ;
646               l_field_debug := l_field_debug + 1 ;
647               c_int_data_rec.spring_enrl_status_type                              := l_cps_int_data_rec.spring_enrl_status_type ;
648               l_field_debug := l_field_debug + 1 ;
649               c_int_data_rec.summ2_enrl_status_type                               := l_cps_int_data_rec.summ2_enrl_status_type ;
650               l_field_debug := l_field_debug + 1 ;
651               c_int_data_rec.fathers_highest_edu_level_type                       := l_cps_int_data_rec.fathers_highst_edu_lvl_type ;
652               l_field_debug := l_field_debug + 1 ;
653               c_int_data_rec.mothers_highest_edu_level_type                       := l_cps_int_data_rec.mothers_highst_edu_lvl_type ;
654               l_field_debug := l_field_debug + 1 ;
655               c_int_data_rec.s_state_legal_residence                              := l_cps_int_data_rec.s_state_legal_residence ;
656               l_field_debug := l_field_debug + 1 ;
657               c_int_data_rec.legal_res_before_year_flag                           := l_cps_int_data_rec.legal_res_before_year_flag ;
658               l_field_debug := l_field_debug + 1 ;
659               c_int_data_rec.s_legal_resd_date                                    := l_cps_int_data_rec.s_legal_resd_date ;
660               l_field_debug := l_field_debug + 1 ;
661               c_int_data_rec.ss_r_u_male_flag                                     := l_cps_int_data_rec.ss_r_u_male_flag ;
662               l_field_debug := l_field_debug + 1 ;
663               c_int_data_rec.selective_service_reg_flag                           := l_cps_int_data_rec.selective_service_reg_flag ;
664               l_field_debug := l_field_debug + 1 ;
665               c_int_data_rec.degree_certification_type                            := l_cps_int_data_rec.degree_certification_type ;
666               l_field_debug := l_field_debug + 1 ;
667               c_int_data_rec.grade_level_in_college_type                          := l_cps_int_data_rec.grade_level_in_college_type ;
668               l_field_debug := l_field_debug + 1 ;
669               c_int_data_rec.high_school_diploma_ged_flag                         := l_cps_int_data_rec.high_schl_diploma_ged_flag ;
670               l_field_debug := l_field_debug + 1 ;
671               c_int_data_rec.first_bachelor_deg_year_flag                         := l_cps_int_data_rec.first_bachlr_deg_year_flag ;
672               l_field_debug := l_field_debug + 1 ;
673               c_int_data_rec.interest_in_loan_flag                                := l_cps_int_data_rec.interest_in_loan_flag ;
674               l_field_debug := l_field_debug + 1 ;
675               c_int_data_rec.interest_in_stu_employmnt_flag                       := l_cps_int_data_rec.interest_in_stu_employ_flag ;
676               l_field_debug := l_field_debug + 1 ;
677               c_int_data_rec.drug_offence_conviction_type                         := l_cps_int_data_rec.drug_offence_convict_type ;
678               l_field_debug := l_field_debug + 1 ;
679               c_int_data_rec.s_tax_return_status_type                             := l_cps_int_data_rec.s_tax_return_status_type ;
680               l_field_debug := l_field_debug + 1 ;
681               c_int_data_rec.s_type_tax_return_type                               := l_cps_int_data_rec.s_type_tax_return_type ;
682               l_field_debug := l_field_debug + 1 ;
683               c_int_data_rec.s_elig_1040ez_type                                   := l_cps_int_data_rec.s_elig_1040ez_type ;
684               l_field_debug := l_field_debug + 1 ;
685               c_int_data_rec.s_adjusted_gross_income_amt                          := convert_negative_char( l_cps_int_data_rec.s_adjusted_gross_income_amt) ;
686               l_field_debug := l_field_debug + 1 ;
687               c_int_data_rec.s_fed_taxes_paid_amt                                 := l_cps_int_data_rec.s_fed_taxes_paid_amt ;
688               l_field_debug := l_field_debug + 1 ;
689               c_int_data_rec.s_exemptions_amt                                     := l_cps_int_data_rec.s_exemptions_amt ;
690               l_field_debug := l_field_debug + 1 ;
691               c_int_data_rec.s_income_from_work_amt                               := convert_negative_char( l_cps_int_data_rec.s_income_from_work_amt) ;
692               l_field_debug := l_field_debug + 1 ;
693               c_int_data_rec.spouse_income_from_work_amt                          := convert_negative_char( l_cps_int_data_rec.spouse_income_from_work_amt) ;
694               l_field_debug := l_field_debug + 1 ;
695               c_int_data_rec.s_total_from_wsa_amt                                 := l_cps_int_data_rec.s_total_from_wsa_amt ;
696               l_field_debug := l_field_debug + 1 ;
697               c_int_data_rec.s_total_from_wsb_amt                                 := l_cps_int_data_rec.s_total_from_wsb_amt ;
698               l_field_debug := l_field_debug + 1 ;
699               c_int_data_rec.s_total_from_wsc_amt                                 := l_cps_int_data_rec.s_total_from_wsc_amt ;
700               l_field_debug := l_field_debug + 1 ;
701               c_int_data_rec.s_investment_networth_amt                            := l_cps_int_data_rec.s_investment_networth_amt ;
702               l_field_debug := l_field_debug + 1 ;
703               c_int_data_rec.s_busi_farm_networth_amt                             := l_cps_int_data_rec.s_busi_farm_networth_amt ;
704               l_field_debug := l_field_debug + 1 ;
705               c_int_data_rec.s_cash_savings_amt                                   := l_cps_int_data_rec.s_cash_savings_amt ;
706               l_field_debug := l_field_debug + 1 ;
707               c_int_data_rec.va_months_num                                        := l_cps_int_data_rec.va_months_num ;
708               l_field_debug := l_field_debug + 1 ;
709               c_int_data_rec.va_amt                                               := l_cps_int_data_rec.va_amt ;
710               l_field_debug := l_field_debug + 1 ;
711               c_int_data_rec.stud_dob_before_year_flag                            := l_cps_int_data_rec.stud_dob_before_year_flag ;
712               l_field_debug := l_field_debug + 1 ;
713               c_int_data_rec.deg_beyond_bachelor_flag                             := l_cps_int_data_rec.deg_beyond_bachelor_flag ;
714               l_field_debug := l_field_debug + 1 ;
715               c_int_data_rec.s_married_flag                                       := l_cps_int_data_rec.s_married_flag ;
716               l_field_debug := l_field_debug + 1 ;
717               c_int_data_rec.s_have_children_flag                                 := l_cps_int_data_rec.s_have_children_flag ;
718               l_field_debug := l_field_debug + 1 ;
719               c_int_data_rec.legal_dependents_flag                                := l_cps_int_data_rec.legal_dependents_flag ;
720               l_field_debug := l_field_debug + 1 ;
721               c_int_data_rec.orphan_ward_of_court_flag                            := l_cps_int_data_rec.orphan_ward_of_court_flag ;
722               l_field_debug := l_field_debug + 1 ;
723               c_int_data_rec.s_veteran_flag                                       := l_cps_int_data_rec.s_veteran_flag ;
724               l_field_debug := l_field_debug + 1 ;
725               c_int_data_rec.p_marital_status_type                                := l_cps_int_data_rec.p_marital_status_type ;
726               l_field_debug := l_field_debug + 1 ;
727               c_int_data_rec.father_ssn_txt                                       := l_cps_int_data_rec.father_ssn_txt ;
728               l_field_debug := l_field_debug + 1 ;
729               c_int_data_rec.f_last_name                                          := l_cps_int_data_rec.f_last_name ;
730               l_field_debug := l_field_debug + 1 ;
731               c_int_data_rec.mother_ssn_txt                                       := l_cps_int_data_rec.mother_ssn_txt ;
732               l_field_debug := l_field_debug + 1 ;
733               c_int_data_rec.m_last_name                                          := l_cps_int_data_rec.m_last_name ;
734               l_field_debug := l_field_debug + 1 ;
735               c_int_data_rec.p_family_members_num                                 := l_cps_int_data_rec.p_family_members_num ;
736               l_field_debug := l_field_debug + 1 ;
737               c_int_data_rec.p_in_college_num                                     := l_cps_int_data_rec.p_in_college_num ;
738               l_field_debug := l_field_debug + 1 ;
739               c_int_data_rec.p_state_legal_residence_txt                          := l_cps_int_data_rec.p_state_legal_residence_txt ;
740               l_field_debug := l_field_debug + 1 ;
741               c_int_data_rec.p_legal_res_before_dt_flag                           := l_cps_int_data_rec.p_legal_res_before_dt_flag ;
742               l_field_debug := l_field_debug + 1 ;
743               c_int_data_rec.p_legal_res_date                                     := l_cps_int_data_rec.p_legal_res_date ;
744               l_field_debug := l_field_debug + 1 ;
745               c_int_data_rec.age_older_parent_num                                 := l_cps_int_data_rec.age_older_parent_num ;
746               l_field_debug := l_field_debug + 1 ;
747               c_int_data_rec.p_tax_return_status_type                             := l_cps_int_data_rec.p_tax_return_status_type ;
748               l_field_debug := l_field_debug + 1 ;
749               c_int_data_rec.p_type_tax_return_type                               := l_cps_int_data_rec.p_type_tax_return_type ;
750               l_field_debug := l_field_debug + 1 ;
751               c_int_data_rec.p_elig_1040aez_type                                  := l_cps_int_data_rec.p_elig_1040aez_type ;
752               l_field_debug := l_field_debug + 1 ;
753               c_int_data_rec.p_adjusted_gross_income_amt                          := convert_negative_char( l_cps_int_data_rec.p_adjusted_gross_income_amt) ;
754               l_field_debug := l_field_debug + 1 ;
755               c_int_data_rec.p_taxes_paid_amt                                     := l_cps_int_data_rec.p_taxes_paid_amt ;
756               l_field_debug := l_field_debug + 1 ;
757               c_int_data_rec.p_exemptions_amt                                     := l_cps_int_data_rec.p_exemptions_amt ;
758               l_field_debug := l_field_debug + 1 ;
759               c_int_data_rec.f_income_work_amt                                    := convert_negative_char( l_cps_int_data_rec.f_income_work_amt) ;
760               l_field_debug := l_field_debug + 1 ;
761               c_int_data_rec.m_income_work_amt                                    := convert_negative_char( l_cps_int_data_rec.m_income_work_amt) ;
762               l_field_debug := l_field_debug + 1 ;
763               c_int_data_rec.p_income_wsa_amt                                     := l_cps_int_data_rec.p_income_wsa_amt ;
764               l_field_debug := l_field_debug + 1 ;
765               c_int_data_rec.p_income_wsb_amt                                     := l_cps_int_data_rec.p_income_wsb_amt ;
766               l_field_debug := l_field_debug + 1 ;
767               c_int_data_rec.p_income_wsc_amt                                     := l_cps_int_data_rec.p_income_wsc_amt ;
768               l_field_debug := l_field_debug + 1 ;
769               c_int_data_rec.p_investment_networth_amt                            := l_cps_int_data_rec.p_investment_networth_amt ;
770               l_field_debug := l_field_debug + 1 ;
771               c_int_data_rec.p_business_networth_amt                              := l_cps_int_data_rec.p_business_networth_amt ;
772               l_field_debug := l_field_debug + 1 ;
773               c_int_data_rec.p_cash_saving_amt                                    := l_cps_int_data_rec.p_cash_saving_amt ;
774               l_field_debug := l_field_debug + 1 ;
775               c_int_data_rec.s_family_members_num                                 := l_cps_int_data_rec.s_family_members_num ;
776               l_field_debug := l_field_debug + 1 ;
777               c_int_data_rec.s_in_college_num                                     := l_cps_int_data_rec.s_in_college_num ;
778               l_field_debug := l_field_debug + 1 ;
779               c_int_data_rec.first_college_cd                                     := l_cps_int_data_rec.first_college_cd ;
780               l_field_debug := l_field_debug + 1 ;
781               c_int_data_rec.first_house_plan_type                                := l_cps_int_data_rec.first_house_plan_type ;
782               l_field_debug := l_field_debug + 1 ;
783               c_int_data_rec.second_college_cd                                    := l_cps_int_data_rec.second_college_cd ;
784               l_field_debug := l_field_debug + 1 ;
785               c_int_data_rec.second_house_plan_type                               := l_cps_int_data_rec.second_house_plan_type ;
786               l_field_debug := l_field_debug + 1 ;
787               c_int_data_rec.third_college_cd                                     := l_cps_int_data_rec.third_college_cd ;
788               l_field_debug := l_field_debug + 1 ;
789               c_int_data_rec.third_house_plan_type                                := l_cps_int_data_rec.third_house_plan_type ;
790               l_field_debug := l_field_debug + 1 ;
791               c_int_data_rec.fourth_college_cd                                    := l_cps_int_data_rec.fourth_college_cd ;
792               l_field_debug := l_field_debug + 1 ;
793               c_int_data_rec.fourth_house_plan_type                               := l_cps_int_data_rec.fourth_house_plan_type ;
794               l_field_debug := l_field_debug + 1 ;
795               c_int_data_rec.fifth_college_cd                                     := l_cps_int_data_rec.fifth_college_cd ;
796               l_field_debug := l_field_debug + 1 ;
797               c_int_data_rec.fifth_house_plan_type                                := l_cps_int_data_rec.fifth_house_plan_type ;
798               l_field_debug := l_field_debug + 1 ;
799               c_int_data_rec.sixth_college_cd                                     := l_cps_int_data_rec.sixth_college_cd ;
800               l_field_debug := l_field_debug + 1 ;
801               c_int_data_rec.sixth_house_plan_type                                := l_cps_int_data_rec.sixth_house_plan_type ;
802               l_field_debug := l_field_debug + 1 ;
803               c_int_data_rec.app_completed_date                                   := l_cps_int_data_rec.app_completed_date ;
804               l_field_debug := l_field_debug + 1 ;
805               c_int_data_rec.signed_by_type                                       := l_cps_int_data_rec.signed_by_type ;
806               l_field_debug := l_field_debug + 1 ;
807               c_int_data_rec.preparer_ssn_txt                                     := l_cps_int_data_rec.preparer_ssn_txt ;
808               l_field_debug := l_field_debug + 1 ;
809               c_int_data_rec.preparer_emp_id_number_txt                           := l_cps_int_data_rec.preparer_emp_id_number_txt ;
810               l_field_debug := l_field_debug + 1 ;
811               c_int_data_rec.preparer_sign_flag                                   := l_cps_int_data_rec.preparer_sign_flag ;
812               l_field_debug := l_field_debug + 1 ;
813               c_int_data_rec.transaction_receipt_date                             := l_cps_int_data_rec.transaction_receipt_date ;
814               l_field_debug := l_field_debug + 1 ;
815               c_int_data_rec.dependency_override_type                             := l_cps_int_data_rec.dependency_override_type ;
816               l_field_debug := l_field_debug + 1 ;
817               c_int_data_rec.faa_fedral_schl_cd                                   := l_cps_int_data_rec.faa_fedral_schl_cd ;
818               l_field_debug := l_field_debug + 1 ;
819               c_int_data_rec.faa_adjustment_type                                  := l_cps_int_data_rec.faa_adjustment_type ;
820               l_field_debug := l_field_debug + 1 ;
821               c_int_data_rec.input_record_type                                    := l_cps_int_data_rec.input_record_type ;
822               l_field_debug := l_field_debug + 1 ;
823               c_int_data_rec.serial_num                                           := l_cps_int_data_rec.serial_num ;
824               l_field_debug := l_field_debug + 1 ;
825               c_int_data_rec.batch_number_txt                                     := l_cps_int_data_rec.batch_number_txt ;
826               l_field_debug := l_field_debug + 1 ;
827               c_int_data_rec.early_analysis_flag                                  := l_cps_int_data_rec.early_analysis_flag ;
828               l_field_debug := l_field_debug + 1 ;
829               c_int_data_rec.app_entry_source_type                                := l_cps_int_data_rec.app_entry_source_type ;
830               l_field_debug := l_field_debug + 1 ;
831               c_int_data_rec.eti_destination_cd                                   := l_cps_int_data_rec.eti_destination_cd ;
832               l_field_debug := l_field_debug + 1 ;
833               c_int_data_rec.reject_override_b_flag                               := l_cps_int_data_rec.reject_override_b_flag ;
834               l_field_debug := l_field_debug + 1 ;
835               c_int_data_rec.reject_override_n_flag                               := l_cps_int_data_rec.reject_override_n_flag ;
836               l_field_debug := l_field_debug + 1 ;
837               c_int_data_rec.reject_override_w_flag                               := l_cps_int_data_rec.reject_override_w_flag ;
838               l_field_debug := l_field_debug + 1 ;
839               c_int_data_rec.assum_override_1_flag                                := l_cps_int_data_rec.assum_override_1_flag ;
840               l_field_debug := l_field_debug + 1 ;
841               c_int_data_rec.assum_override_2_flag                                := l_cps_int_data_rec.assum_override_2_flag ;
842               l_field_debug := l_field_debug + 1 ;
843               c_int_data_rec.assum_override_3_flag                                := l_cps_int_data_rec.assum_override_3_flag ;
844               l_field_debug := l_field_debug + 1 ;
845               c_int_data_rec.assum_override_4_flag                                := l_cps_int_data_rec.assum_override_4_flag ;
846               l_field_debug := l_field_debug + 1 ;
847               c_int_data_rec.assum_override_5_flag                                := l_cps_int_data_rec.assum_override_5_flag ;
848               l_field_debug := l_field_debug + 1 ;
849               c_int_data_rec.assum_override_6_flag                                := l_cps_int_data_rec.assum_override_6_flag ;
850               l_field_debug := l_field_debug + 1 ;
851               c_int_data_rec.dependency_status_type                               := l_cps_int_data_rec.dependency_status_type ;
852               l_field_debug := l_field_debug + 1 ;
853               c_int_data_rec.s_email_address_txt                                  := l_cps_int_data_rec.s_email_address_txt ;
854               l_field_debug := l_field_debug + 1 ;
855               c_int_data_rec.nslds_reason_cd                                      := l_cps_int_data_rec.nslds_reason_cd ;
856               l_field_debug := l_field_debug + 1 ;
857               c_int_data_rec.app_receipt_date                                     := l_cps_int_data_rec.app_receipt_date ;
858               l_field_debug := l_field_debug + 1 ;
859               c_int_data_rec.processed_rec_type                                   := l_cps_int_data_rec.processed_rec_type ;
860               l_field_debug := l_field_debug + 1 ;
861               c_int_data_rec.hist_corr_for_tran_num                               := l_cps_int_data_rec.hist_corr_for_tran_num ;
862               l_field_debug := l_field_debug + 1 ;
863               c_int_data_rec.sys_generated_indicator_type                         := l_cps_int_data_rec.sys_generated_indicator_type ;
864               l_field_debug := l_field_debug + 1 ;
865               c_int_data_rec.dup_request_indicator_type                           := l_cps_int_data_rec.dup_request_indicator_type ;
866               l_field_debug := l_field_debug + 1 ;
867               c_int_data_rec.source_of_correction_type                            := l_cps_int_data_rec.source_of_correction_type ;
868               l_field_debug := l_field_debug + 1 ;
869               c_int_data_rec.p_cal_tax_status_type                                := l_cps_int_data_rec.p_cal_tax_status_type ;
870               l_field_debug := l_field_debug + 1 ;
871               c_int_data_rec.s_cal_tax_status_type                                := l_cps_int_data_rec.s_cal_tax_status_type ;
872               l_field_debug := l_field_debug + 1 ;
873               c_int_data_rec.graduate_flag                                        := l_cps_int_data_rec.graduate_flag ;
874               l_field_debug := l_field_debug + 1 ;
875               c_int_data_rec.auto_zero_efc_flag                                   := l_cps_int_data_rec.auto_zero_efc_flag ;
876               l_field_debug := l_field_debug + 1 ;
877               c_int_data_rec.efc_change_flag                                      := l_cps_int_data_rec.efc_change_flag ;
878               l_field_debug := l_field_debug + 1 ;
879               c_int_data_rec.sarc_flag                                            := l_cps_int_data_rec.sarc_flag ;
880               l_field_debug := l_field_debug + 1 ;
881               c_int_data_rec.simplified_need_test_flag                            := l_cps_int_data_rec.simplified_need_test_flag ;
882               l_field_debug := l_field_debug + 1 ;
883               c_int_data_rec.reject_reason_codes_txt                              := l_cps_int_data_rec.reject_reason_codes_txt ;
884               l_field_debug := l_field_debug + 1 ;
885               c_int_data_rec.select_service_match_type                            := l_cps_int_data_rec.select_service_match_type ;
886               l_field_debug := l_field_debug + 1 ;
887               c_int_data_rec.select_service_reg_type                              := l_cps_int_data_rec.select_service_reg_type ;
888               l_field_debug := l_field_debug + 1 ;
889               c_int_data_rec.ins_match_flag                                       := l_cps_int_data_rec.ins_match_flag ;
890               l_field_debug := l_field_debug + 1 ;
891               c_int_data_rec.ins_verification_num                                 := l_cps_int_data_rec.ins_verification_num ;
892               l_field_debug := l_field_debug + 1 ;
893               c_int_data_rec.sec_ins_match_type                                   := l_cps_int_data_rec.sec_ins_match_type ;
894               l_field_debug := l_field_debug + 1 ;
895               c_int_data_rec.sec_ins_ver_num                                      := l_cps_int_data_rec.sec_ins_ver_num ;
896               l_field_debug := l_field_debug + 1 ;
897               c_int_data_rec.ssn_match_type                                       := l_cps_int_data_rec.ssn_match_type ;
898               l_field_debug := l_field_debug + 1 ;
899               c_int_data_rec.ssa_citizenship_type                                 := l_cps_int_data_rec.ssa_citizenship_type ;
900               l_field_debug := l_field_debug + 1 ;
901               c_int_data_rec.ssn_death_date                                       := l_cps_int_data_rec.ssn_death_date ;
902               l_field_debug := l_field_debug + 1 ;
903               c_int_data_rec.nslds_match_type                                     := l_cps_int_data_rec.nslds_match_type ;
904               l_field_debug := l_field_debug + 1 ;
905               c_int_data_rec.va_match_type                                        := l_cps_int_data_rec.va_match_type ;
906               l_field_debug := l_field_debug + 1 ;
907               c_int_data_rec.prisoner_match_flag                                  := l_cps_int_data_rec.prisoner_match_flag ;
908               l_field_debug := l_field_debug + 1 ;
909               c_int_data_rec.verification_flag                                    := l_cps_int_data_rec.verification_flag ;
910               l_field_debug := l_field_debug + 1 ;
911               c_int_data_rec.subsequent_app_flag                                  := l_cps_int_data_rec.subsequent_app_flag ;
912               l_field_debug := l_field_debug + 1 ;
913               c_int_data_rec.app_source_site_cd                                   := l_cps_int_data_rec.app_source_site_cd ;
914               l_field_debug := l_field_debug + 1 ;
915               c_int_data_rec.tran_source_site_cd                                  := l_cps_int_data_rec.tran_source_site_cd ;
916               l_field_debug := l_field_debug + 1 ;
917               c_int_data_rec.drn_num                                              := l_cps_int_data_rec.drn_num ;
918               l_field_debug := l_field_debug + 1 ;
919               c_int_data_rec.tran_process_date                                    := l_cps_int_data_rec.tran_process_date ;
920               l_field_debug := l_field_debug + 1 ;
921               c_int_data_rec.correction_flags_txt                                 := l_cps_int_data_rec.correction_flags_txt ;
922               l_field_debug := l_field_debug + 1 ;
923               c_int_data_rec.computer_batch_num                                   := l_cps_int_data_rec.computer_batch_num ;
924               l_field_debug := l_field_debug + 1 ;
925               c_int_data_rec.highlight_flags_txt                                  := l_cps_int_data_rec.highlight_flags_txt ;
926               l_field_debug := l_field_debug + 1 ;
927               c_int_data_rec.paid_efc_amt                                         := l_cps_int_data_rec.paid_efc_amt ;
928               l_field_debug := l_field_debug + 1 ;
929               c_int_data_rec.primary_efc_amt                                      := l_cps_int_data_rec.primary_efc_amt ;
930               l_field_debug := l_field_debug + 1 ;
931               c_int_data_rec.secondary_efc_amt                                    := l_cps_int_data_rec.secondary_efc_amt ;
932               l_field_debug := l_field_debug + 1 ;
933               c_int_data_rec.fed_pell_grant_efc_type                              := l_cps_int_data_rec.fed_pell_grant_efc_type ;
934               l_field_debug := l_field_debug + 1 ;
935               c_int_data_rec.primary_efc_type                                     := l_cps_int_data_rec.primary_efc_type ;
936               l_field_debug := l_field_debug + 1 ;
937               c_int_data_rec.sec_efc_type                                         := l_cps_int_data_rec.sec_efc_type ;
938               l_field_debug := l_field_debug + 1 ;
939               c_int_data_rec.primary_alt_month_1_amt                              := l_cps_int_data_rec.primary_alt_month_1_amt ;
940               l_field_debug := l_field_debug + 1 ;
941               c_int_data_rec.primary_alt_month_2_amt                              := l_cps_int_data_rec.primary_alt_month_2_amt ;
942               l_field_debug := l_field_debug + 1 ;
943               c_int_data_rec.primary_alt_month_3_amt                              := l_cps_int_data_rec.primary_alt_month_3_amt ;
944               l_field_debug := l_field_debug + 1 ;
945               c_int_data_rec.primary_alt_month_4_amt                              := l_cps_int_data_rec.primary_alt_month_4_amt ;
946               l_field_debug := l_field_debug + 1 ;
947               c_int_data_rec.primary_alt_month_5_amt                              := l_cps_int_data_rec.primary_alt_month_5_amt ;
948               l_field_debug := l_field_debug + 1 ;
949               c_int_data_rec.primary_alt_month_6_amt                              := l_cps_int_data_rec.primary_alt_month_6_amt ;
950               l_field_debug := l_field_debug + 1 ;
951               c_int_data_rec.primary_alt_month_7_amt                              := l_cps_int_data_rec.primary_alt_month_7_amt ;
952               l_field_debug := l_field_debug + 1 ;
953               c_int_data_rec.primary_alt_month_8_amt                              := l_cps_int_data_rec.primary_alt_month_8_amt ;
954               l_field_debug := l_field_debug + 1 ;
955               c_int_data_rec.primary_alt_month_10_amt                             := l_cps_int_data_rec.primary_alt_month_10_amt ;
956               l_field_debug := l_field_debug + 1 ;
957               c_int_data_rec.primary_alt_month_11_amt                             := l_cps_int_data_rec.primary_alt_month_11_amt ;
958               l_field_debug := l_field_debug + 1 ;
959               c_int_data_rec.primary_alt_month_12_amt                             := l_cps_int_data_rec.primary_alt_month_12_amt ;
960               l_field_debug := l_field_debug + 1 ;
961               c_int_data_rec.sec_alternate_month_1_amt                            := l_cps_int_data_rec.sec_alternate_month_1_amt ;
962               l_field_debug := l_field_debug + 1 ;
963               c_int_data_rec.sec_alternate_month_2_amt                            := l_cps_int_data_rec.sec_alternate_month_2_amt ;
964               l_field_debug := l_field_debug + 1 ;
965               c_int_data_rec.sec_alternate_month_3_amt                            := l_cps_int_data_rec.sec_alternate_month_3_amt ;
966               l_field_debug := l_field_debug + 1 ;
967               c_int_data_rec.sec_alternate_month_4_amt                            := l_cps_int_data_rec.sec_alternate_month_4_amt ;
968               l_field_debug := l_field_debug + 1 ;
969               c_int_data_rec.sec_alternate_month_5_amt                            := l_cps_int_data_rec.sec_alternate_month_5_amt ;
970               l_field_debug := l_field_debug + 1 ;
971               c_int_data_rec.sec_alternate_month_6_amt                            := l_cps_int_data_rec.sec_alternate_month_6_amt ;
972               l_field_debug := l_field_debug + 1 ;
973               c_int_data_rec.sec_alternate_month_7_amt                            := l_cps_int_data_rec.sec_alternate_month_7_amt ;
974               l_field_debug := l_field_debug + 1 ;
975               c_int_data_rec.sec_alternate_month_8_amt                            := l_cps_int_data_rec.sec_alternate_month_8_amt ;
976               l_field_debug := l_field_debug + 1 ;
977               c_int_data_rec.sec_alternate_month_10_amt                           := l_cps_int_data_rec.sec_alternate_month_10_amt ;
978               l_field_debug := l_field_debug + 1 ;
979               c_int_data_rec.sec_alternate_month_11_amt                           := l_cps_int_data_rec.sec_alternate_month_11_amt ;
980               l_field_debug := l_field_debug + 1 ;
981               c_int_data_rec.sec_alternate_month_12_amt                           := l_cps_int_data_rec.sec_alternate_month_12_amt ;
982               l_field_debug := l_field_debug + 1 ;
983               c_int_data_rec.total_income_amt                                     := convert_negative_char( l_cps_int_data_rec.total_income_amt) ;
984               l_field_debug := l_field_debug + 1 ;
985               c_int_data_rec.allow_total_income_amt                               := l_cps_int_data_rec.allow_total_income_amt ;
986               l_field_debug := l_field_debug + 1 ;
987               c_int_data_rec.state_tax_allow_amt                                  := convert_negative_char( l_cps_int_data_rec.state_tax_allow_amt) ;
988               l_field_debug := l_field_debug + 1 ;
989               c_int_data_rec.employment_allow_amt                                 := l_cps_int_data_rec.employment_allow_amt ;
990               l_field_debug := l_field_debug + 1 ;
991               c_int_data_rec.income_protection_allow_amt                          := l_cps_int_data_rec.income_protection_allow_amt ;
992               l_field_debug := l_field_debug + 1 ;
993               c_int_data_rec.available_income_amt                                 := convert_negative_char( l_cps_int_data_rec.available_income_amt) ;
994               l_field_debug := l_field_debug + 1 ;
995               c_int_data_rec.contribution_from_ai_amt                             := convert_negative_char( l_cps_int_data_rec.contribution_from_ai_amt) ;
996               l_field_debug := l_field_debug + 1 ;
997               c_int_data_rec.discretionary_networth_amt                           := convert_negative_char( l_cps_int_data_rec.discretionary_networth_amt) ;
998               l_field_debug := l_field_debug + 1 ;
999               c_int_data_rec.efc_networth_amt                                     := l_cps_int_data_rec.efc_networth_amt ;
1000               l_field_debug := l_field_debug + 1 ;
1001               c_int_data_rec.asset_protect_allow_amt                              := l_cps_int_data_rec.asset_protect_allow_amt ;
1002               l_field_debug := l_field_debug + 1 ;
1003               c_int_data_rec.parents_cont_from_assets_amt                         := convert_negative_char( l_cps_int_data_rec.parents_cont_from_assets_amt) ;
1004               l_field_debug := l_field_debug + 1 ;
1005               c_int_data_rec.adjusted_available_income_amt                        := convert_negative_char( l_cps_int_data_rec.adjusted_avail_income_amt) ;
1006               l_field_debug := l_field_debug + 1 ;
1007               c_int_data_rec.total_student_contribution_amt                       := l_cps_int_data_rec.total_student_contrib_amt ;
1008               l_field_debug := l_field_debug + 1 ;
1009               c_int_data_rec.total_parent_contribution_amt                        := l_cps_int_data_rec.total_parent_contrib_amt ;
1010               l_field_debug := l_field_debug + 1 ;
1011               c_int_data_rec.parents_contribution_amt                             := l_cps_int_data_rec.parents_contribution_amt ;
1012               l_field_debug := l_field_debug + 1 ;
1013               c_int_data_rec.student_total_income_amt                             := convert_negative_char( l_cps_int_data_rec.student_total_income_amt) ;
1014               l_field_debug := l_field_debug + 1 ;
1015               c_int_data_rec.sati_amt                                             := convert_negative_char( l_cps_int_data_rec.sati_amt) ;
1016               l_field_debug := l_field_debug + 1 ;
1017               c_int_data_rec.sic_amt                                              := l_cps_int_data_rec.sic_amt ;
1018               l_field_debug := l_field_debug + 1 ;
1019               c_int_data_rec.sdnw_amt                                             := convert_negative_char( l_cps_int_data_rec.sdnw_amt) ;
1020               l_field_debug := l_field_debug + 1 ;
1021               c_int_data_rec.sca_amt                                              := convert_negative_char( l_cps_int_data_rec.sca_amt) ;
1022               l_field_debug := l_field_debug + 1 ;
1023               c_int_data_rec.fti_amt                                              := convert_negative_char( l_cps_int_data_rec.fti_amt) ;
1024               l_field_debug := l_field_debug + 1 ;
1025               c_int_data_rec.secti_amt                                            := convert_negative_char( l_cps_int_data_rec.secti_amt) ;
1026               l_field_debug := l_field_debug + 1 ;
1027               c_int_data_rec.secati_amt                                           := l_cps_int_data_rec.secati_amt ;
1028               l_field_debug := l_field_debug + 1 ;
1029               c_int_data_rec.secstx_amt                                           := convert_negative_char( l_cps_int_data_rec.secstx_amt) ;
1030               l_field_debug := l_field_debug + 1 ;
1031               c_int_data_rec.secea_amt                                            := l_cps_int_data_rec.secea_amt ;
1032               l_field_debug := l_field_debug + 1 ;
1033               c_int_data_rec.secipa_amt                                           := l_cps_int_data_rec.secipa_amt ;
1034               l_field_debug := l_field_debug + 1 ;
1035               c_int_data_rec.secai_amt                                            := convert_negative_char( l_cps_int_data_rec.secai_amt) ;
1036               l_field_debug := l_field_debug + 1 ;
1037               c_int_data_rec.seccai_amt                                           := convert_negative_char( l_cps_int_data_rec.seccai_amt) ;
1038               l_field_debug := l_field_debug + 1 ;
1039               c_int_data_rec.secdnw_amt                                           := convert_negative_char( l_cps_int_data_rec.secdnw_amt) ;
1040               l_field_debug := l_field_debug + 1 ;
1041               c_int_data_rec.secnw_amt                                            := l_cps_int_data_rec.secnw_amt ;
1042               l_field_debug := l_field_debug + 1 ;
1043               c_int_data_rec.secapa_amt                                           := l_cps_int_data_rec.secapa_amt ;
1044               l_field_debug := l_field_debug + 1 ;
1045               c_int_data_rec.secpca_amt                                           := convert_negative_char( l_cps_int_data_rec.secpca_amt) ;
1046               l_field_debug := l_field_debug + 1 ;
1047               c_int_data_rec.secaai_amt                                           := convert_negative_char( l_cps_int_data_rec.secaai_amt) ;
1048               l_field_debug := l_field_debug + 1 ;
1049               c_int_data_rec.sectsc_amt                                           := l_cps_int_data_rec.sectsc_amt ;
1050               l_field_debug := l_field_debug + 1 ;
1051               c_int_data_rec.sectpc_amt                                           := l_cps_int_data_rec.sectpc_amt ;
1052               l_field_debug := l_field_debug + 1 ;
1053               c_int_data_rec.secpc_amt                                            := l_cps_int_data_rec.secpc_amt ;
1054               l_field_debug := l_field_debug + 1 ;
1055               c_int_data_rec.secsti_amt                                           := convert_negative_char( l_cps_int_data_rec.secsti_amt) ;
1056               l_field_debug := l_field_debug + 1 ;
1057               c_int_data_rec.secsati_amt                                          := l_cps_int_data_rec.secsati_amt ;
1058               l_field_debug := l_field_debug + 1 ;
1059               c_int_data_rec.secsic_amt                                           := convert_negative_char( l_cps_int_data_rec.secsic_amt) ;
1060               l_field_debug := l_field_debug + 1 ;
1061               c_int_data_rec.secsdnw_amt                                          := convert_negative_char( l_cps_int_data_rec.secsdnw_amt) ;
1062               l_field_debug := l_field_debug + 1 ;
1063               c_int_data_rec.secsca_amt                                           := convert_negative_char( l_cps_int_data_rec.secsca_amt) ;
1064               l_field_debug := l_field_debug + 1 ;
1065               c_int_data_rec.secfti_amt                                           := convert_negative_char( l_cps_int_data_rec.secfti_amt) ;
1066               l_field_debug := l_field_debug + 1 ;
1067               c_int_data_rec.a_citizenship_flag                                   := l_cps_int_data_rec.a_citizenship_flag ;
1068               l_field_debug := l_field_debug + 1 ;
1069               c_int_data_rec.a_student_marital_status_flag                        := l_cps_int_data_rec.a_studnt_marital_status_flag ;
1070               l_field_debug := l_field_debug + 1 ;
1071               c_int_data_rec.a_student_agi_amt                                    := convert_negative_char( l_cps_int_data_rec.a_student_agi_amt) ;
1072               l_field_debug := l_field_debug + 1 ;
1073               c_int_data_rec.a_s_us_tax_paid_amt                                  := l_cps_int_data_rec.a_s_us_tax_paid_amt ;
1074               l_field_debug := l_field_debug + 1 ;
1075               c_int_data_rec.a_s_income_work_amt                                  := convert_negative_char( l_cps_int_data_rec.a_s_income_work_amt) ;
1076               l_field_debug := l_field_debug + 1 ;
1077               c_int_data_rec.a_spouse_income_work_amt                             := convert_negative_char( l_cps_int_data_rec.a_spouse_income_work_amt) ;
1078               l_field_debug := l_field_debug + 1 ;
1079               c_int_data_rec.a_s_total_wsc_amt                                    := l_cps_int_data_rec.a_s_total_wsc_amt ;
1080               l_field_debug := l_field_debug + 1 ;
1081               c_int_data_rec.a_date_of_birth_flag                                 := l_cps_int_data_rec.a_date_of_birth_flag ;
1082               l_field_debug := l_field_debug + 1 ;
1083               c_int_data_rec.a_student_married_flag                               := l_cps_int_data_rec.a_student_married_flag ;
1084               l_field_debug := l_field_debug + 1 ;
1085               c_int_data_rec.a_have_children_flag                                 := l_cps_int_data_rec.a_have_children_flag ;
1086               l_field_debug := l_field_debug + 1 ;
1087               c_int_data_rec.a_s_have_dependents_flag                             := l_cps_int_data_rec.a_s_have_dependents_flag ;
1088               l_field_debug := l_field_debug + 1 ;
1089               c_int_data_rec.a_va_status_flag                                     := l_cps_int_data_rec.a_va_status_flag ;
1090               l_field_debug := l_field_debug + 1 ;
1091               c_int_data_rec.a_s_in_family_num                                    := l_cps_int_data_rec.a_s_in_family_num ;
1092               l_field_debug := l_field_debug + 1 ;
1093               c_int_data_rec.a_s_in_college_num                                   := l_cps_int_data_rec.a_s_in_college_num ;
1094               l_field_debug := l_field_debug + 1 ;
1095               c_int_data_rec.a_p_marital_status_flag                              := l_cps_int_data_rec.a_p_marital_status_flag ;
1096               l_field_debug := l_field_debug + 1 ;
1097               c_int_data_rec.a_father_ssn_txt                                     := l_cps_int_data_rec.a_father_ssn_txt ;
1098               l_field_debug := l_field_debug + 1 ;
1099               c_int_data_rec.a_mother_ssn_txt                                     := l_cps_int_data_rec.a_mother_ssn_txt ;
1100               l_field_debug := l_field_debug + 1 ;
1101               c_int_data_rec.a_parents_family_num                                 := l_cps_int_data_rec.a_parents_family_num ;
1102               l_field_debug := l_field_debug + 1 ;
1103               c_int_data_rec.a_parents_college_num                                := l_cps_int_data_rec.a_parents_college_num ;
1104               l_field_debug := l_field_debug + 1 ;
1105               c_int_data_rec.a_parents_agi_amt                                    := convert_negative_char( l_cps_int_data_rec.a_parents_agi_amt) ;
1106               l_field_debug := l_field_debug + 1 ;
1107               c_int_data_rec.a_p_us_tax_paid_amt                                  := l_cps_int_data_rec.a_p_us_tax_paid_amt ;
1108               l_field_debug := l_field_debug + 1 ;
1109               c_int_data_rec.a_f_work_income_amt                                  := convert_negative_char( l_cps_int_data_rec.a_f_work_income_amt) ;
1110               l_field_debug := l_field_debug + 1 ;
1111               c_int_data_rec.a_m_work_income_amt                                  := convert_negative_char( l_cps_int_data_rec.a_m_work_income_amt) ;
1112               l_field_debug := l_field_debug + 1 ;
1113               c_int_data_rec.a_p_total_wsc_amt                                    := l_cps_int_data_rec.a_p_total_wsc_amt ;
1114               l_field_debug := l_field_debug + 1 ;
1115               c_int_data_rec.comment_codes_txt                                    := l_cps_int_data_rec.comment_codes_txt ;
1116               l_field_debug := l_field_debug + 1 ;
1117               c_int_data_rec.sar_ack_comm_codes_txt                               := l_cps_int_data_rec.sar_ack_comm_codes_txt ;
1118               l_field_debug := l_field_debug + 1 ;
1119               c_int_data_rec.pell_grant_elig_flag                                 := l_cps_int_data_rec.pell_grant_elig_flag ;
1120               l_field_debug := l_field_debug + 1 ;
1121               c_int_data_rec.reprocess_reason_cd                                  := l_cps_int_data_rec.reprocess_reason_cd ;
1122               l_field_debug := l_field_debug + 1 ;
1123               c_int_data_rec.duplicate_date                                       := l_cps_int_data_rec.duplicate_date ;
1124               l_field_debug := l_field_debug + 1 ;
1125               c_int_data_rec.isir_transaction_type                                := l_cps_int_data_rec.isir_transaction_type ;
1126               l_field_debug := l_field_debug + 1 ;
1127               c_int_data_rec.fedral_schl_type                                     := l_cps_int_data_rec.fedral_schl_type ;
1128               l_field_debug := l_field_debug + 1 ;
1129               c_int_data_rec.multi_school_cd_flags_txt                            := l_cps_int_data_rec.multi_school_cd_flags_txt ;
1130               l_field_debug := l_field_debug + 1 ;
1131               c_int_data_rec.dup_ssn_indicator_flag                               := l_cps_int_data_rec.dup_ssn_indicator_flag ;
1132               l_field_debug := l_field_debug + 1 ;
1133               c_int_data_rec.nslds_transaction_num                                := l_cps_int_data_rec.nslds_transaction_num ;
1134               l_field_debug := l_field_debug + 1 ;
1135               c_int_data_rec.nslds_database_results_type                          := l_cps_int_data_rec.nslds_database_results_type ;
1136               l_field_debug := l_field_debug + 1 ;
1137               c_int_data_rec.nslds_flag                                           := l_cps_int_data_rec.nslds_flag ;
1138               l_field_debug := l_field_debug + 1 ;
1139               c_int_data_rec.nslds_pell_overpay_type                              := l_cps_int_data_rec.NSLDS_PELL_OVERPAY_TYPE ;
1140               l_field_debug := l_field_debug + 1 ;
1141               c_int_data_rec.nslds_pell_overpay_contact_txt                       := l_cps_int_data_rec.nslds_pell_overpay_cont_txt ;
1142               l_field_debug := l_field_debug + 1 ;
1143               c_int_data_rec.nslds_seog_overpay_type                              := l_cps_int_data_rec.nslds_seog_overpay_type ;
1144               l_field_debug := l_field_debug + 1 ;
1145               c_int_data_rec.nslds_seog_overpay_contact_txt                       := l_cps_int_data_rec.nslds_seog_overpay_cont_txt ;
1146               l_field_debug := l_field_debug + 1 ;
1147               c_int_data_rec.nslds_perkins_overpay_type                           := l_cps_int_data_rec.nslds_perkins_overpay_type ;
1148               l_field_debug := l_field_debug + 1 ;
1149               c_int_data_rec.nslds_perkins_ovrpay_cntct_txt                       := l_cps_int_data_rec.NSLDS_PERK_OVRPAY_CNTCT_TXT ;
1150               l_field_debug := l_field_debug + 1 ;
1151               c_int_data_rec.nslds_defaulted_loan_flag                            := l_cps_int_data_rec.nslds_defaulted_loan_flag ;
1152               l_field_debug := l_field_debug + 1 ;
1153               c_int_data_rec.nslds_discharged_loan_type                           := l_cps_int_data_rec.nslds_discharged_loan_type ;
1154               l_field_debug := l_field_debug + 1 ;
1155               c_int_data_rec.nslds_satis_repay_flag                               := l_cps_int_data_rec.nslds_satis_repay_flag ;
1156               l_field_debug := l_field_debug + 1 ;
1157               c_int_data_rec.nslds_act_bankruptcy_flag                            := l_cps_int_data_rec.nslds_act_bankruptcy_flag ;
1158               l_field_debug := l_field_debug + 1 ;
1159               c_int_data_rec.nslds_agg_subsz_out_pbal_amt                         := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_agg_subsz_out_pbal_amt) ;
1160               l_field_debug := l_field_debug + 1 ;
1161               c_int_data_rec.nslds_agg_unsbz_out_pbal_amt                         := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_agg_unsbz_out_pbal_amt) ;
1162               l_field_debug := l_field_debug + 1 ;
1163               c_int_data_rec.nslds_agg_comb_out_pbal_amt                          := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_agg_comb_out_pbal_amt) ;
1164               l_field_debug := l_field_debug + 1 ;
1165               c_int_data_rec.nslds_agg_cons_out_pbal_amt                          := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_agg_cons_out_pbal_amt) ;
1166               l_field_debug := l_field_debug + 1 ;
1167               c_int_data_rec.nslds_agg_subsz_pend_disb_amt                        := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.NSLDS_AGG_SUBSZ_PND_DISB_AMT) ;
1168               l_field_debug := l_field_debug + 1 ;
1169               c_int_data_rec.nslds_agg_unsbz_pend_disb_amt                        := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.NSLDS_AGG_UNSBZ_PND_DISB_AMT) ;
1170               l_field_debug := l_field_debug + 1 ;
1171               c_int_data_rec.nslds_agg_comb_pend_disb_amt                         := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_agg_comb_pend_disb_amt) ;
1172               l_field_debug := l_field_debug + 1 ;
1173               c_int_data_rec.nslds_agg_subsz_total_amt                            := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_agg_subsz_total_amt) ;
1174               l_field_debug := l_field_debug + 1 ;
1175               c_int_data_rec.nslds_agg_unsbz_total_amt                            := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_agg_unsbz_total_amt) ;
1176               l_field_debug := l_field_debug + 1 ;
1177               c_int_data_rec.nslds_agg_comb_total_amt                             := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_agg_comb_total_amt) ;
1178               l_field_debug := l_field_debug + 1 ;
1179               c_int_data_rec.nslds_agg_consd_total_amt                            := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_agg_consd_total_amt) ;
1180               l_field_debug := l_field_debug + 1 ;
1181               c_int_data_rec.nslds_perkins_out_bal_amt                            := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_perkins_out_bal_amt) ;
1182               l_field_debug := l_field_debug + 1 ;
1183               c_int_data_rec.nslds_perkins_cur_yr_disb_amt                        := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_perkin_cur_yr_disb_amt) ;
1184               l_field_debug := l_field_debug + 1 ;
1185               c_int_data_rec.nslds_default_loan_chng_flag                         := l_cps_int_data_rec.nslds_default_loan_chng_flag ;
1186               l_field_debug := l_field_debug + 1 ;
1187               c_int_data_rec.nslds_dischged_loan_chng_flag                        := l_cps_int_data_rec.nslds_dischgd_loan_chng_flag ;
1188               l_field_debug := l_field_debug + 1 ;
1189               c_int_data_rec.nslds_satis_repay_chng_flag                          := l_cps_int_data_rec.nslds_satis_repay_chng_flag ;
1190               l_field_debug := l_field_debug + 1 ;
1191               c_int_data_rec.nslds_act_bnkrupt_chng_flag                          := l_cps_int_data_rec.nslds_act_bnkrupt_chng_flag ;
1192               l_field_debug := l_field_debug + 1 ;
1193               c_int_data_rec.nslds_overpay_chng_flag                              := l_cps_int_data_rec.nslds_overpay_chng_flag ;
1194               l_field_debug := l_field_debug + 1 ;
1195               c_int_data_rec.nslds_agg_loan_chng_flag                             := l_cps_int_data_rec.nslds_agg_loan_chng_flag ;
1196               l_field_debug := l_field_debug + 1 ;
1197               c_int_data_rec.nslds_perkins_loan_chng_flag                         := l_cps_int_data_rec.nslds_perkins_loan_chng_flag ;
1198               l_field_debug := l_field_debug + 1 ;
1199               c_int_data_rec.nslds_pell_paymnt_chng_flag                          := l_cps_int_data_rec.nslds_pell_paymnt_chng_flag ;
1200               l_field_debug := l_field_debug + 1 ;
1201               c_int_data_rec.nslds_addtnl_pell_flag                               := l_cps_int_data_rec.nslds_addtnl_pell_flag ;
1202               l_field_debug := l_field_debug + 1 ;
1203               c_int_data_rec.nslds_addtnl_loan_flag                               := l_cps_int_data_rec.nslds_addtnl_loan_flag ;
1204               l_field_debug := l_field_debug + 1 ;
1205               c_int_data_rec.direct_loan_mas_prom_nt_type                         := l_cps_int_data_rec.direct_loan_mas_prom_nt_type ;
1206               l_field_debug := l_field_debug + 1 ;
1207               c_int_data_rec.nslds_pell_1_seq_num                                 := l_cps_int_data_rec.nslds_pell_1_seq_num ;
1208               l_field_debug := l_field_debug + 1 ;
1209               c_int_data_rec.nslds_pell_1_verify_f_txt                            := l_cps_int_data_rec.nslds_pell_1_verify_f_txt ;
1210               l_field_debug := l_field_debug + 1 ;
1211               c_int_data_rec.nslds_pell_1_efc_amt                                 := l_cps_int_data_rec.nslds_pell_1_efc_amt ;
1212               l_field_debug := l_field_debug + 1 ;
1213               c_int_data_rec.nslds_pell_1_school_num                              := l_cps_int_data_rec.nslds_pell_1_school_num ;
1214               l_field_debug := l_field_debug + 1 ;
1215               c_int_data_rec.nslds_pell_1_transcn_num                             := l_cps_int_data_rec.nslds_pell_1_transcn_num ;
1216               l_field_debug := l_field_debug + 1 ;
1217               c_int_data_rec.nslds_pell_1_last_updt_date                          := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_pell_1_last_updt_date) ;
1218               l_field_debug := l_field_debug + 1 ;
1219               c_int_data_rec.nslds_pell_1_scheduled_amt                           := l_cps_int_data_rec.nslds_pell_1_scheduled_amt ;
1220               l_field_debug := l_field_debug + 1 ;
1221               c_int_data_rec.nslds_pell_1_paid_todt_amt                           := l_cps_int_data_rec.nslds_pell_1_paid_todt_amt ;
1222               l_field_debug := l_field_debug + 1 ;
1223               c_int_data_rec.nslds_pell_1_remng_amt                               := l_cps_int_data_rec.nslds_pell_1_remng_amt ;
1224               l_field_debug := l_field_debug + 1 ;
1225               c_int_data_rec.nslds_pell_1_pc_schawd_use_amt                       := l_cps_int_data_rec.nslds_pell_1_pc_scwd_use_amt ;
1226               l_field_debug := l_field_debug + 1 ;
1227               c_int_data_rec.nslds_pell_1_award_amt                               := l_cps_int_data_rec.nslds_pell_1_award_amt ;
1228               l_field_debug := l_field_debug + 1 ;
1229               c_int_data_rec.nslds_pell_2_seq_num                                 := l_cps_int_data_rec.nslds_pell_2_seq_num ;
1230               l_field_debug := l_field_debug + 1 ;
1231               c_int_data_rec.nslds_pell_2_verify_f_txt                            := l_cps_int_data_rec.nslds_pell_2_verify_f_txt ;
1232               l_field_debug := l_field_debug + 1 ;
1233               c_int_data_rec.nslds_pell_2_efc_amt                                 := l_cps_int_data_rec.nslds_pell_2_efc_amt ;
1234               l_field_debug := l_field_debug + 1 ;
1235               c_int_data_rec.nslds_pell_2_school_num                              := l_cps_int_data_rec.nslds_pell_2_school_num ;
1236               l_field_debug := l_field_debug + 1 ;
1237               c_int_data_rec.nslds_pell_2_transcn_num                             := l_cps_int_data_rec.nslds_pell_2_transcn_num ;
1238               l_field_debug := l_field_debug + 1 ;
1239               c_int_data_rec.nslds_pell_2_last_updt_date                          := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_pell_2_last_updt_date) ;
1240               l_field_debug := l_field_debug + 1 ;
1241               c_int_data_rec.nslds_pell_2_scheduled_amt                           := l_cps_int_data_rec.nslds_pell_2_scheduled_amt ;
1242               l_field_debug := l_field_debug + 1 ;
1243               c_int_data_rec.nslds_pell_2_paid_todt_amt                           := l_cps_int_data_rec.nslds_pell_2_paid_todt_amt ;
1244               l_field_debug := l_field_debug + 1 ;
1245               c_int_data_rec.nslds_pell_2_remng_amt                               := l_cps_int_data_rec.nslds_pell_2_remng_amt ;
1246               l_field_debug := l_field_debug + 1 ;
1247               c_int_data_rec.nslds_pell_2_pc_schawd_use_amt                       := l_cps_int_data_rec.NSLDS_PELL_2_PC_SCWD_USE_AMT ;
1248               l_field_debug := l_field_debug + 1 ;
1249               c_int_data_rec.nslds_pell_2_award_amt                               := l_cps_int_data_rec.nslds_pell_2_award_amt ;
1250               l_field_debug := l_field_debug + 1 ;
1251               c_int_data_rec.nslds_pell_3_seq_num                                 := l_cps_int_data_rec.nslds_pell_3_seq_num ;
1252               l_field_debug := l_field_debug + 1 ;
1253               c_int_data_rec.nslds_pell_3_verify_f_txt                            := l_cps_int_data_rec.nslds_pell_3_verify_f_txt ;
1254               l_field_debug := l_field_debug + 1 ;
1255               c_int_data_rec.nslds_pell_3_efc_amt                                 := l_cps_int_data_rec.nslds_pell_3_efc_amt ;
1256               l_field_debug := l_field_debug + 1 ;
1257               c_int_data_rec.nslds_pell_3_school_num                              := l_cps_int_data_rec.nslds_pell_3_school_num ;
1258               l_field_debug := l_field_debug + 1 ;
1259               c_int_data_rec.nslds_pell_3_transcn_num                             := l_cps_int_data_rec.nslds_pell_3_transcn_num ;
1260               l_field_debug := l_field_debug + 1 ;
1261               c_int_data_rec.nslds_pell_3_last_updt_date                          := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_pell_3_last_updt_date) ;
1262               l_field_debug := l_field_debug + 1 ;
1263               c_int_data_rec.nslds_pell_3_scheduled_amt                           := l_cps_int_data_rec.nslds_pell_3_scheduled_amt ;
1264               l_field_debug := l_field_debug + 1 ;
1265               c_int_data_rec.nslds_pell_3_paid_todt_amt                           := l_cps_int_data_rec.nslds_pell_3_paid_todt_amt ;
1266               l_field_debug := l_field_debug + 1 ;
1267               c_int_data_rec.nslds_pell_3_remng_amt                               := l_cps_int_data_rec.nslds_pell_3_remng_amt ;
1268               l_field_debug := l_field_debug + 1 ;
1269               c_int_data_rec.nslds_pell_3_pc_schawd_use_amt                       := l_cps_int_data_rec.NSLDS_PELL_3_PC_SCWD_USE_AMT ;
1270               l_field_debug := l_field_debug + 1 ;
1271               c_int_data_rec.nslds_pell_3_award_amt                               := l_cps_int_data_rec.nslds_pell_3_award_amt ;
1272               l_field_debug := l_field_debug + 1 ;
1273               c_int_data_rec.nslds_loan_1_seq_num                                 := l_cps_int_data_rec.nslds_loan_1_seq_num ;
1274               l_field_debug := l_field_debug + 1 ;
1275               c_int_data_rec.nslds_loan_1_type                                    := l_cps_int_data_rec.nslds_loan_1_type ;
1276               l_field_debug := l_field_debug + 1 ;
1277               c_int_data_rec.nslds_loan_1_chng_flag                               := l_cps_int_data_rec.nslds_loan_1_chng_flag ;
1278               l_field_debug := l_field_debug + 1 ;
1279               c_int_data_rec.nslds_loan_1_prog_cd                                 := l_cps_int_data_rec.nslds_loan_1_prog_cd ;
1280               l_field_debug := l_field_debug + 1 ;
1281               c_int_data_rec.nslds_loan_1_net_amt                                 := l_cps_int_data_rec.nslds_loan_1_net_amt ;
1282               l_field_debug := l_field_debug + 1 ;
1283               c_int_data_rec.nslds_loan_1_cur_st_cd                               := l_cps_int_data_rec.nslds_loan_1_cur_st_cd ;
1284               l_field_debug := l_field_debug + 1 ;
1285               c_int_data_rec.nslds_loan_1_cur_st_date                             := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_1_cur_st_date) ;
1286               l_field_debug := l_field_debug + 1 ;
1287               c_int_data_rec.nslds_loan_1_agg_pr_bal_amt                          := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_loan_1_agg_pr_bal_amt) ;
1288               l_field_debug := l_field_debug + 1 ;
1289               c_int_data_rec.nslds_loan_1_out_pr_bal_date                         := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_1_out_pr_bal_date) ;
1290               l_field_debug := l_field_debug + 1 ;
1291               c_int_data_rec.nslds_loan_1_begin_date                              := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_1_begin_date) ;
1292               l_field_debug := l_field_debug + 1 ;
1293               c_int_data_rec.nslds_loan_1_end_date                                := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_1_end_date) ;
1294               l_field_debug := l_field_debug + 1 ;
1295               c_int_data_rec.nslds_loan_1_ga_cd                                   := l_cps_int_data_rec.nslds_loan_1_ga_cd ;
1296               l_field_debug := l_field_debug + 1 ;
1297               c_int_data_rec.nslds_loan_1_cont_type                               := l_cps_int_data_rec.nslds_loan_1_cont_type ;
1298               l_field_debug := l_field_debug + 1 ;
1299               c_int_data_rec.nslds_loan_1_schol_cd                                := l_cps_int_data_rec.nslds_loan_1_schol_cd ;
1300               l_field_debug := l_field_debug + 1 ;
1301               c_int_data_rec.nslds_loan_1_cont_cd                                 := l_cps_int_data_rec.nslds_loan_1_cont_cd ;
1302               l_field_debug := l_field_debug + 1 ;
1303               c_int_data_rec.nslds_loan_1_grade_lvl_txt                           := l_cps_int_data_rec.nslds_loan_1_grade_lvl_txt ;
1304               l_field_debug := l_field_debug + 1 ;
1305               c_int_data_rec.nslds_loan_1_xtr_unsbz_ln_type                       := l_cps_int_data_rec.NSLDS_LOAN_1_X_UNSBZ_LN_TYPE  ;
1306               l_field_debug := l_field_debug + 1 ;
1307               c_int_data_rec.nslds_loan_1_capital_int_flag                        := l_cps_int_data_rec.NSLDS_LOAN_1_CAPTAL_INT_FLAG  ;
1308               l_field_debug := l_field_debug + 1 ;
1309               c_int_data_rec.nslds_loan_2_seq_num                                 := l_cps_int_data_rec.nslds_loan_2_seq_num ;
1310               l_field_debug := l_field_debug + 1 ;
1311               c_int_data_rec.nslds_loan_2_type                                    := l_cps_int_data_rec.nslds_loan_2_type ;
1312               l_field_debug := l_field_debug + 1 ;
1313               c_int_data_rec.nslds_loan_2_chng_flag                               := l_cps_int_data_rec.nslds_loan_2_chng_flag ;
1314               l_field_debug := l_field_debug + 1 ;
1315               c_int_data_rec.nslds_loan_2_prog_cd                                 := l_cps_int_data_rec.nslds_loan_2_prog_cd ;
1316               l_field_debug := l_field_debug + 1 ;
1317               c_int_data_rec.nslds_loan_2_net_amt                                 := l_cps_int_data_rec.nslds_loan_2_net_amt ;
1318               l_field_debug := l_field_debug + 1 ;
1319               c_int_data_rec.nslds_loan_2_cur_st_cd                               := l_cps_int_data_rec.nslds_loan_2_cur_st_cd ;
1320               l_field_debug := l_field_debug + 1 ;
1321               c_int_data_rec.nslds_loan_2_cur_st_date                             := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_2_cur_st_date) ;
1322               l_field_debug := l_field_debug + 1 ;
1323               c_int_data_rec.nslds_loan_2_agg_pr_bal_amt                          := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_loan_2_agg_pr_bal_amt) ;
1324               l_field_debug := l_field_debug + 1 ;
1325               c_int_data_rec.nslds_loan_2_out_pr_bal_date                         := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_2_out_pr_bal_date) ;
1326               l_field_debug := l_field_debug + 1 ;
1327               c_int_data_rec.nslds_loan_2_begin_date                              := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_2_begin_date) ;
1328               l_field_debug := l_field_debug + 1 ;
1329               c_int_data_rec.nslds_loan_2_end_date                                := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_2_end_date) ;
1330               l_field_debug := l_field_debug + 1 ;
1331               c_int_data_rec.nslds_loan_2_ga_cd                                   := l_cps_int_data_rec.nslds_loan_2_ga_cd ;
1332               l_field_debug := l_field_debug + 1 ;
1333               c_int_data_rec.nslds_loan_2_cont_type                               := l_cps_int_data_rec.nslds_loan_2_cont_type ;
1334               l_field_debug := l_field_debug + 1 ;
1335               c_int_data_rec.nslds_loan_2_schol_cd                                := l_cps_int_data_rec.nslds_loan_2_schol_cd ;
1336               l_field_debug := l_field_debug + 1 ;
1337               c_int_data_rec.nslds_loan_2_cont_cd                                 := l_cps_int_data_rec.nslds_loan_2_cont_cd ;
1338               l_field_debug := l_field_debug + 1 ;
1339               c_int_data_rec.nslds_loan_2_grade_lvl_txt                           := l_cps_int_data_rec.nslds_loan_2_grade_lvl_txt ;
1340               l_field_debug := l_field_debug + 1 ;
1341               c_int_data_rec.nslds_loan_2_xtr_unsbz_ln_type                       := l_cps_int_data_rec.NSLDS_LOAN_2_X_UNSBZ_LN_TYPE ;
1342               l_field_debug := l_field_debug + 1 ;
1343               c_int_data_rec.nslds_loan_2_capital_int_flag                        := l_cps_int_data_rec.nslds_loan_2_captal_int_flag ;
1344               l_field_debug := l_field_debug + 1 ;
1345               c_int_data_rec.nslds_loan_3_seq_num                                 := l_cps_int_data_rec.nslds_loan_3_seq_num ;
1346               l_field_debug := l_field_debug + 1 ;
1347               c_int_data_rec.nslds_loan_3_type                                    := l_cps_int_data_rec.nslds_loan_3_type ;
1348               l_field_debug := l_field_debug + 1 ;
1349               c_int_data_rec.nslds_loan_3_chng_flag                               := l_cps_int_data_rec.nslds_loan_3_chng_flag ;
1350               l_field_debug := l_field_debug + 1 ;
1351               c_int_data_rec.nslds_loan_3_prog_cd                                 := l_cps_int_data_rec.nslds_loan_3_prog_cd ;
1352               l_field_debug := l_field_debug + 1 ;
1353               c_int_data_rec.nslds_loan_3_net_amt                                 := l_cps_int_data_rec.nslds_loan_3_net_amt ;
1354               l_field_debug := l_field_debug + 1 ;
1355               c_int_data_rec.nslds_loan_3_cur_st_cd                               := l_cps_int_data_rec.nslds_loan_3_cur_st_cd ;
1356               l_field_debug := l_field_debug + 1 ;
1357               c_int_data_rec.nslds_loan_3_cur_st_date                             := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_3_cur_st_date) ;
1358               l_field_debug := l_field_debug + 1 ;
1359               c_int_data_rec.nslds_loan_3_agg_pr_bal_amt                          := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_loan_3_agg_pr_bal_amt) ;
1360               l_field_debug := l_field_debug + 1 ;
1361               c_int_data_rec.nslds_loan_3_out_pr_bal_date                         := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_3_out_pr_bal_date) ;
1362               l_field_debug := l_field_debug + 1 ;
1363               c_int_data_rec.nslds_loan_3_begin_date                              := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_3_begin_date) ;
1364               l_field_debug := l_field_debug + 1 ;
1365               c_int_data_rec.nslds_loan_3_end_date                                := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_3_end_date) ;
1366               l_field_debug := l_field_debug + 1 ;
1367               c_int_data_rec.nslds_loan_3_ga_cd                                   := l_cps_int_data_rec.nslds_loan_3_ga_cd ;
1368               l_field_debug := l_field_debug + 1 ;
1369               c_int_data_rec.nslds_loan_3_cont_type                               := l_cps_int_data_rec.nslds_loan_3_cont_type ;
1370               l_field_debug := l_field_debug + 1 ;
1371               c_int_data_rec.nslds_loan_3_schol_cd                                := l_cps_int_data_rec.nslds_loan_3_schol_cd ;
1372               l_field_debug := l_field_debug + 1 ;
1373               c_int_data_rec.nslds_loan_3_cont_cd                                 := l_cps_int_data_rec.nslds_loan_3_cont_cd ;
1374               l_field_debug := l_field_debug + 1 ;
1375               c_int_data_rec.nslds_loan_3_grade_lvl_txt                           := l_cps_int_data_rec.nslds_loan_3_grade_lvl_txt ;
1376               l_field_debug := l_field_debug + 1 ;
1377               c_int_data_rec.nslds_loan_3_xtr_unsbz_ln_type                       := l_cps_int_data_rec.nslds_loan_3_x_unsbz_ln_type ;
1378               l_field_debug := l_field_debug + 1 ;
1379               c_int_data_rec.nslds_loan_3_capital_int_flag                        := l_cps_int_data_rec.nslds_loan_3_captal_int_flag ;
1380               l_field_debug := l_field_debug + 1 ;
1381               c_int_data_rec.nslds_loan_4_seq_num                                 := l_cps_int_data_rec.nslds_loan_4_seq_num ;
1382               l_field_debug := l_field_debug + 1 ;
1383               c_int_data_rec.nslds_loan_4_type                                    := l_cps_int_data_rec.nslds_loan_4_type ;
1384               l_field_debug := l_field_debug + 1 ;
1385               c_int_data_rec.nslds_loan_4_chng_flag                               := l_cps_int_data_rec.nslds_loan_4_chng_flag ;
1386               l_field_debug := l_field_debug + 1 ;
1387               c_int_data_rec.nslds_loan_4_prog_cd                                 := l_cps_int_data_rec.nslds_loan_4_prog_cd ;
1388               l_field_debug := l_field_debug + 1 ;
1389               c_int_data_rec.nslds_loan_4_net_amt                                 := l_cps_int_data_rec.nslds_loan_4_net_amt ;
1390               l_field_debug := l_field_debug + 1 ;
1391               c_int_data_rec.nslds_loan_4_cur_st_cd                               := l_cps_int_data_rec.nslds_loan_4_cur_st_cd ;
1392               l_field_debug := l_field_debug + 1 ;
1393               c_int_data_rec.nslds_loan_4_cur_st_date                             := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_4_cur_st_date) ;
1394               l_field_debug := l_field_debug + 1 ;
1395               c_int_data_rec.nslds_loan_4_agg_pr_bal_amt                          := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_loan_4_agg_pr_bal_amt) ;
1396               l_field_debug := l_field_debug + 1 ;
1397               c_int_data_rec.nslds_loan_4_out_pr_bal_date                         := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_4_out_pr_bal_date) ;
1398               l_field_debug := l_field_debug + 1 ;
1399               c_int_data_rec.nslds_loan_4_begin_date                              := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_4_begin_date) ;
1400               l_field_debug := l_field_debug + 1 ;
1401               c_int_data_rec.nslds_loan_4_end_date                                := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_4_end_date) ;
1402               l_field_debug := l_field_debug + 1 ;
1403               c_int_data_rec.nslds_loan_4_ga_cd                                   := l_cps_int_data_rec.nslds_loan_4_ga_cd ;
1404               l_field_debug := l_field_debug + 1 ;
1405               c_int_data_rec.nslds_loan_4_cont_type                               := l_cps_int_data_rec.nslds_loan_4_cont_type ;
1406               l_field_debug := l_field_debug + 1 ;
1407               c_int_data_rec.nslds_loan_4_schol_cd                                := l_cps_int_data_rec.nslds_loan_4_schol_cd ;
1408               l_field_debug := l_field_debug + 1 ;
1409               c_int_data_rec.nslds_loan_4_cont_cd                                 := l_cps_int_data_rec.nslds_loan_4_cont_cd ;
1410               l_field_debug := l_field_debug + 1 ;
1411               c_int_data_rec.nslds_loan_4_grade_lvl_txt                           := l_cps_int_data_rec.nslds_loan_4_grade_lvl_txt ;
1412               l_field_debug := l_field_debug + 1 ;
1413               c_int_data_rec.nslds_loan_4_xtr_unsbz_ln_type                       := l_cps_int_data_rec.nslds_loan_4_x_unsbz_ln_type ;
1414               l_field_debug := l_field_debug + 1 ;
1415               c_int_data_rec.nslds_loan_4_capital_int_flag                        := l_cps_int_data_rec.nslds_loan_4_captal_int_flag ;
1416               l_field_debug := l_field_debug + 1 ;
1417               c_int_data_rec.nslds_loan_5_seq_num                                 := l_cps_int_data_rec.nslds_loan_5_seq_num ;
1418               l_field_debug := l_field_debug + 1 ;
1419               c_int_data_rec.nslds_loan_5_type                                    := l_cps_int_data_rec.nslds_loan_5_type ;
1420               l_field_debug := l_field_debug + 1 ;
1421               c_int_data_rec.nslds_loan_5_chng_flag                               := l_cps_int_data_rec.nslds_loan_5_chng_flag ;
1422               l_field_debug := l_field_debug + 1 ;
1423               c_int_data_rec.nslds_loan_5_prog_cd                                 := l_cps_int_data_rec.nslds_loan_5_prog_cd ;
1424               l_field_debug := l_field_debug + 1 ;
1425               c_int_data_rec.nslds_loan_5_net_amt                                 := l_cps_int_data_rec.nslds_loan_5_net_amt ;
1426               l_field_debug := l_field_debug + 1 ;
1427               c_int_data_rec.nslds_loan_5_cur_st_cd                               := l_cps_int_data_rec.nslds_loan_5_cur_st_cd ;
1428               l_field_debug := l_field_debug + 1 ;
1429               c_int_data_rec.nslds_loan_5_cur_st_date                             := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_5_cur_st_date) ;
1430               l_field_debug := l_field_debug + 1 ;
1431               c_int_data_rec.nslds_loan_5_agg_pr_bal_amt                          := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_loan_5_agg_pr_bal_amt) ;
1432               l_field_debug := l_field_debug + 1 ;
1433               c_int_data_rec.nslds_loan_5_out_pr_bal_date                         := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_5_out_pr_bal_date) ;
1434               l_field_debug := l_field_debug + 1 ;
1435               c_int_data_rec.nslds_loan_5_begin_date                              := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_5_begin_date) ;
1436               l_field_debug := l_field_debug + 1 ;
1437               c_int_data_rec.nslds_loan_5_end_date                                := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_5_end_date) ;
1438               l_field_debug := l_field_debug + 1 ;
1439               c_int_data_rec.nslds_loan_5_ga_cd                                   := l_cps_int_data_rec.nslds_loan_5_ga_cd ;
1440               l_field_debug := l_field_debug + 1 ;
1441               c_int_data_rec.nslds_loan_5_cont_type                               := l_cps_int_data_rec.nslds_loan_5_cont_type ;
1442               l_field_debug := l_field_debug + 1 ;
1443               c_int_data_rec.nslds_loan_5_schol_cd                                := l_cps_int_data_rec.nslds_loan_5_schol_cd ;
1444               l_field_debug := l_field_debug + 1 ;
1445               c_int_data_rec.nslds_loan_5_cont_cd                                 := l_cps_int_data_rec.nslds_loan_5_cont_cd ;
1446               l_field_debug := l_field_debug + 1 ;
1447               c_int_data_rec.nslds_loan_5_grade_lvl_txt                           := l_cps_int_data_rec.nslds_loan_5_grade_lvl_txt ;
1448               l_field_debug := l_field_debug + 1 ;
1449               c_int_data_rec.nslds_loan_5_xtr_unsbz_ln_type                       := l_cps_int_data_rec.nslds_loan_5_x_unsbz_ln_type ;
1450               l_field_debug := l_field_debug + 1 ;
1451               c_int_data_rec.nslds_loan_5_capital_int_flag                        := l_cps_int_data_rec.nslds_loan_5_captal_int_flag ;
1452               l_field_debug := l_field_debug + 1 ;
1453               c_int_data_rec.nslds_loan_6_seq_num                                 := l_cps_int_data_rec.nslds_loan_6_seq_num ;
1454               l_field_debug := l_field_debug + 1 ;
1455               c_int_data_rec.nslds_loan_6_type                                    := l_cps_int_data_rec.nslds_loan_6_type ;
1456               l_field_debug := l_field_debug + 1 ;
1457               c_int_data_rec.nslds_loan_6_chng_flag                               := l_cps_int_data_rec.nslds_loan_6_chng_flag ;
1458               l_field_debug := l_field_debug + 1 ;
1459               c_int_data_rec.nslds_loan_6_prog_cd                                 := l_cps_int_data_rec.nslds_loan_6_prog_cd ;
1460               l_field_debug := l_field_debug + 1 ;
1461               c_int_data_rec.nslds_loan_6_net_amt                                 := l_cps_int_data_rec.nslds_loan_6_net_amt ;
1462               l_field_debug := l_field_debug + 1 ;
1463               c_int_data_rec.nslds_loan_6_cur_st_cd                               := l_cps_int_data_rec.nslds_loan_6_cur_st_cd ;
1464               l_field_debug := l_field_debug + 1 ;
1465               c_int_data_rec.nslds_loan_6_cur_st_date                             := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_6_cur_st_date) ;
1466               l_field_debug := l_field_debug + 1 ;
1467               c_int_data_rec.nslds_loan_6_agg_pr_bal_amt                          := igf_ap_matching_process_pkg.convert_to_number( l_cps_int_data_rec.nslds_loan_6_agg_pr_bal_amt) ;
1468               l_field_debug := l_field_debug + 1 ;
1469               c_int_data_rec.nslds_loan_6_out_pr_bal_date                         := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_6_out_pr_bal_date) ;
1470               l_field_debug := l_field_debug + 1 ;
1471               c_int_data_rec.nslds_loan_6_begin_date                              := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_6_begin_date) ;
1472               l_field_debug := l_field_debug + 1 ;
1473               c_int_data_rec.nslds_loan_6_end_date                                := igf_ap_matching_process_pkg.convert_to_date( l_cps_int_data_rec.nslds_loan_6_end_date) ;
1474               l_field_debug := l_field_debug + 1 ;
1475               c_int_data_rec.nslds_loan_6_ga_cd                                   := l_cps_int_data_rec.nslds_loan_6_ga_cd ;
1476               l_field_debug := l_field_debug + 1 ;
1477               c_int_data_rec.nslds_loan_6_cont_type                               := l_cps_int_data_rec.nslds_loan_6_cont_type ;
1478               l_field_debug := l_field_debug + 1 ;
1479               c_int_data_rec.nslds_loan_6_schol_cd                                := l_cps_int_data_rec.nslds_loan_6_schol_cd ;
1480               l_field_debug := l_field_debug + 1 ;
1481               c_int_data_rec.nslds_loan_6_cont_cd                                 := l_cps_int_data_rec.nslds_loan_6_cont_cd ;
1482               l_field_debug := l_field_debug + 1 ;
1483               c_int_data_rec.nslds_loan_6_grade_lvl_txt                           := l_cps_int_data_rec.nslds_loan_6_grade_lvl_txt ;
1484               l_field_debug := l_field_debug + 1 ;
1485               c_int_data_rec.nslds_loan_6_xtr_unsbz_ln_type                       := l_cps_int_data_rec.nslds_loan_6_x_unsbz_ln_type ;
1486               l_field_debug := l_field_debug + 1 ;
1487               c_int_data_rec.nslds_loan_6_capital_int_flag                        := l_cps_int_data_rec.nslds_loan_6_captal_int_flag ;
1488               l_field_debug := l_field_debug + 1 ;
1489               c_int_data_rec.nslds_loan_1_last_disb_amt                           := igf_ap_matching_process_pkg.convert_to_number(l_cps_int_data_rec.nslds_loan_1_last_disb_amt) ;
1490               l_field_debug := l_field_debug + 1 ;
1491               c_int_data_rec.nslds_loan_1_last_disb_date                          := igf_ap_matching_process_pkg.convert_to_date(l_cps_int_data_rec.nslds_loan_1_last_disb_date) ;
1492               l_field_debug := l_field_debug + 1 ;
1493               c_int_data_rec.nslds_loan_2_last_disb_amt                           := igf_ap_matching_process_pkg.convert_to_number(l_cps_int_data_rec.nslds_loan_2_last_disb_amt) ;
1494               l_field_debug := l_field_debug + 1 ;
1495               c_int_data_rec.nslds_loan_2_last_disb_date                          := igf_ap_matching_process_pkg.convert_to_date(l_cps_int_data_rec.nslds_loan_2_last_disb_date) ;
1496               l_field_debug := l_field_debug + 1 ;
1497               c_int_data_rec.nslds_loan_3_last_disb_amt                           := igf_ap_matching_process_pkg.convert_to_number(l_cps_int_data_rec.nslds_loan_3_last_disb_amt) ;
1498               l_field_debug := l_field_debug + 1 ;
1499               c_int_data_rec.nslds_loan_3_last_disb_date                          := igf_ap_matching_process_pkg.convert_to_date(l_cps_int_data_rec.nslds_loan_3_last_disb_date) ;
1500               l_field_debug := l_field_debug + 1 ;
1501               c_int_data_rec.nslds_loan_4_last_disb_amt                           := igf_ap_matching_process_pkg.convert_to_number(l_cps_int_data_rec.nslds_loan_4_last_disb_amt) ;
1502               l_field_debug := l_field_debug + 1 ;
1503               c_int_data_rec.nslds_loan_4_last_disb_date                          := igf_ap_matching_process_pkg.convert_to_date(l_cps_int_data_rec.nslds_loan_4_last_disb_date) ;
1504               l_field_debug := l_field_debug + 1 ;
1505               c_int_data_rec.nslds_loan_5_last_disb_amt                           := igf_ap_matching_process_pkg.convert_to_number(l_cps_int_data_rec.nslds_loan_5_last_disb_amt) ;
1506               l_field_debug := l_field_debug + 1 ;
1507               c_int_data_rec.nslds_loan_5_last_disb_date                          := igf_ap_matching_process_pkg.convert_to_date(l_cps_int_data_rec.nslds_loan_5_last_disb_date) ;
1508               l_field_debug := l_field_debug + 1 ;
1509               c_int_data_rec.nslds_loan_6_last_disb_amt                           := igf_ap_matching_process_pkg.convert_to_number(l_cps_int_data_rec.nslds_loan_6_last_disb_amt) ;
1510               l_field_debug := l_field_debug + 1 ;
1511               c_int_data_rec.nslds_loan_6_last_disb_date                          := igf_ap_matching_process_pkg.convert_to_date(l_cps_int_data_rec.nslds_loan_6_last_disb_date) ;
1512               l_field_debug := l_field_debug + 1 ;
1513               c_int_data_rec.import_record_type                                   := 'I' ;
1514               l_field_debug := l_field_debug + 1 ;
1515               c_int_data_rec.fafsa_data_verification_txt                          := l_cps_int_data_rec.fafsa_data_verification_txt;
1516               l_field_debug := l_field_debug + 1 ;
1517               c_int_data_rec.reject_override_a_flag                               := l_cps_int_data_rec.reject_override_a_flag;
1518               l_field_debug := l_field_debug + 1 ;
1519               c_int_data_rec.reject_override_c_flag                               := l_cps_int_data_rec.reject_override_c_flag;
1520               l_field_debug := l_field_debug + 1 ;
1521               c_int_data_rec.parent_marital_status_date                           := l_cps_int_data_rec.parent_marital_status_date;
1522               l_field_debug := l_field_debug + 1 ;
1523               c_int_data_rec.father_first_name_initial_txt                        := l_cps_int_data_rec.fathr_first_name_initial_txt ;
1524               l_field_debug := l_field_debug + 1 ;
1525               c_int_data_rec.father_step_father_birth_date                        := l_cps_int_data_rec.fathr_step_father_birth_date ;
1526               l_field_debug := l_field_debug + 1 ;
1527               c_int_data_rec.mother_first_name_initial_txt                        := l_cps_int_data_rec.mothr_first_name_initial_txt ;
1528               l_field_debug := l_field_debug + 1 ;
1529               c_int_data_rec.mother_step_mother_birth_date                        := l_cps_int_data_rec.mothr_step_mother_birth_date ;
1530               l_field_debug := l_field_debug + 1 ;
1531               c_int_data_rec.parents_email_address_txt                            := l_cps_int_data_rec.parents_email_address_txt ;
1532               l_field_debug := l_field_debug + 1 ;
1533               c_int_data_rec.address_change_type                                  := l_cps_int_data_rec.address_change_type       ;
1534               l_field_debug := l_field_debug + 1 ;
1535               c_int_data_rec.cps_pushed_isir_flag                                 := l_cps_int_data_rec.cps_pushed_isir_flag          ;
1536               l_field_debug := l_field_debug + 1 ;
1537               c_int_data_rec.electronic_transaction_type                          := l_cps_int_data_rec.electronic_transaction_type ;
1538               l_field_debug := l_field_debug + 1 ;
1539               c_int_data_rec.sar_c_change_type                                    := l_cps_int_data_rec.sar_c_change_type         ;
1540               l_field_debug := l_field_debug + 1 ;
1541               c_int_data_rec.father_ssn_match_type                                := l_cps_int_data_rec.father_ssn_match_type         ;
1542               l_field_debug := l_field_debug + 1 ;
1543               c_int_data_rec.mother_ssn_match_type                                := l_cps_int_data_rec.mother_ssn_match_type         ;
1544               l_field_debug := l_field_debug + 1 ;
1545               c_int_data_rec.subsidized_loan_limit_type                           := l_cps_int_data_rec.subsidized_loan_limit_type  ;
1546               l_field_debug := l_field_debug + 1 ;
1547               c_int_data_rec.combined_loan_limit_type                             := l_cps_int_data_rec.combined_loan_limit_type  ;
1548               l_field_debug := l_field_debug + 1 ;
1549               c_int_data_rec.reject_override_g_flag                               := l_cps_int_data_rec.reject_override_g_flag  ;
1550               l_field_debug := l_field_debug + 1 ;
1551               c_int_data_rec.dhs_verification_num_txt                             := l_cps_int_data_rec.dhs_verification_num_txt;
1552               l_field_debug := l_field_debug + 1 ;
1553               c_int_data_rec.reject_override_3_flag                               := l_cps_int_data_rec.reject_override_3_flag;
1554               l_field_debug := l_field_debug + 1 ;
1555               c_int_data_rec.reject_override_12_flag                              := l_cps_int_data_rec.reject_override_12_flag;
1556               l_field_debug := l_field_debug + 1 ;
1557               c_int_data_rec.reject_override_j_flag                               := l_cps_int_data_rec.reject_override_j_flag;
1558               l_field_debug := l_field_debug + 1 ;
1559               c_int_data_rec.reject_override_k_flag                               := l_cps_int_data_rec.reject_override_k_flag;
1560               l_field_debug := l_field_debug + 1 ;
1561               c_int_data_rec.rejected_status_change_flag                          := l_cps_int_data_rec.rejected_status_change_flag;
1562               l_field_debug := l_field_debug + 1 ;
1563               c_int_data_rec.verification_selection_flag                          := l_cps_int_data_rec.verification_selection_flag;
1564               l_field_debug := l_field_debug + 1 ;
1565 
1566   EXCEPTION WHEN OTHERS THEN
1567 
1568     l_debug_str := l_debug_str || ' Error while Swapping fields in p_convert_rec - Value of l_field_debug >' || TO_CHAR(l_field_debug) || ' ' ;
1569     RETURN ;
1570 
1571   END p_convert_rec;
1572 
1573 
1574   FUNCTION p_l_to_i_col( p_in_col_name IN VARCHAR2)
1575   RETURN VARCHAR2
1576   /***************************************************************
1577      Created By :       rasahoo
1578      Date Created By  : 03-June-2003
1579      Purpose    : Returns col name to print based on type of import being run
1580      Known Limitations,Enhancements or Remarks
1581      Change History :
1582      Who      When    What
1583    ***************************************************************/
1584   IS
1585     p_out_col_name VARCHAR2(200);
1586 
1587     BEGIN
1588 
1589     IF l_cps_log = 'N' THEN
1590 
1591       RETURN p_in_col_name ;
1592 
1593     END IF;
1594 
1595     IF p_in_col_name = 'ORIGINAL_SSN_NUM' THEN
1596        p_out_col_name := 'ORIGINAL_SSN_TXT' ;
1597     ELSIF p_in_col_name = 'CURRENT_SSN_NUM' THEN
1598        p_out_col_name := 'CURRENT_SSN_TXT' ;
1599     ELSIF p_in_col_name = 'FATHERS_HIGHEST_EDU_LEVEL_TYPE' THEN
1600        p_out_col_name := 'FATHERS_HIGHST_EDU_LVL_TYPE' ;
1601     ELSIF p_in_col_name = 'MOTHERS_HIGHEST_EDU_LEVEL_TYPE' THEN
1602        p_out_col_name := 'MOTHERS_HIGHST_EDU_LVL_TYPE' ;
1603     ELSIF p_in_col_name = 'HIGH_SCHOOL_DIPLOMA_GED_FLAG' THEN
1604        p_out_col_name := 'HIGH_SCHL_DIPLOMA_GED_FLAG' ;
1605     ELSIF p_in_col_name = 'FIRST_BACHELOR_DEG_YEAR_FLAG' THEN
1606        p_out_col_name := 'FIRST_BACHLR_DEG_YEAR_FLAG' ;
1607     ELSIF p_in_col_name = 'INTEREST_IN_STU_EMPLOYMNT_FLAG' THEN
1608        p_out_col_name := 'INTEREST_IN_STU_EMPLOY_FLAG' ;
1609     ELSIF p_in_col_name = 'DRUG_OFFENCE_CONVICTION_TYPE' THEN
1610        p_out_col_name := 'DRUG_OFFENCE_CONVICT_TYPE' ;
1611     ELSIF p_in_col_name = 'ADJUSTED_AVAILABLE_INCOME_AMT' THEN
1612        p_out_col_name := 'ADJUSTED_AVAIL_INCOME_AMT' ;
1613     ELSIF p_in_col_name = 'TOTAL_STUDENT_CONTRIBUTION_AMT' THEN
1614        p_out_col_name := 'TOTAL_STUDENT_CONTRIB_AMT' ;
1615     ELSIF p_in_col_name = 'TOTAL_PARENT_CONTRIBUTION_AMT' THEN
1616        p_out_col_name := 'TOTAL_PARENT_CONTRIB_AMT' ;
1617     ELSIF p_in_col_name = 'A_STUDENT_MARITAL_STATUS_FLAG' THEN
1618        p_out_col_name := 'A_STUDNT_MARITAL_STATUS_FLAG' ;
1619     ELSIF p_in_col_name = 'NSLDS_PELL_OVERPAY_CONTACT_TXT' THEN
1620        p_out_col_name := 'NSLDS_PELL_OVERPAY_CONT_TXT' ;
1621     ELSIF p_in_col_name = 'NSLDS_SEOG_OVERPAY_CONTACT_TXT' THEN
1622        p_out_col_name := 'NSLDS_SEOG_OVERPAY_CONT_TXT' ;
1623     ELSIF p_in_col_name = 'NSLDS_PERKINS_OVRPAY_CNTCT_TXT' THEN
1624        p_out_col_name := 'NSLDS_PERK_OVRPAY_CNTCT_TXT' ;
1625     ELSIF p_in_col_name = 'NSLDS_AGG_SUBSZ_PEND_DISB_AMT' THEN
1626        p_out_col_name := 'NSLDS_AGG_SUBSZ_PND_DISB_AMT' ;
1627     ELSIF p_in_col_name = 'NSLDS_AGG_UNSBZ_PEND_DISB_AMT' THEN
1628        p_out_col_name := 'NSLDS_AGG_UNSBZ_PND_DISB_AMT' ;
1629     ELSIF p_in_col_name = 'NSLDS_PERKINS_CUR_YR_DISB_AMT' THEN
1630        p_out_col_name := 'NSLDS_PERKIN_CUR_YR_DISB_AMT' ;
1631     ELSIF p_in_col_name = 'NSLDS_DISCHGED_LOAN_CHNG_FLAG' THEN
1632        p_out_col_name := 'NSLDS_DISCHGD_LOAN_CHNG_FLAG' ;
1633     ELSIF p_in_col_name = 'NSLDS_PELL_1_PC_SCHAWD_USE_AMT' THEN
1634        p_out_col_name := 'NSLDS_PELL_1_PC_SCWD_USE_AMT' ;
1635     ELSIF p_in_col_name = 'NSLDS_PELL_2_PC_SCHAWD_USE_AMT' THEN
1636        p_out_col_name := 'NSLDS_PELL_2_PC_SCWD_USE_AMT' ;
1637     ELSIF p_in_col_name = 'NSLDS_PELL_3_PC_SCHAWD_USE_AMT' THEN
1638        p_out_col_name := 'NSLDS_PELL_3_PC_SCWD_USE_AMT' ;
1639     ELSIF p_in_col_name = 'NSLDS_LOAN_1_XTR_UNSBZ_LN_TYPE' THEN
1640        p_out_col_name := 'NSLDS_LOAN_1_X_UNSBZ_LN_TYPE' ;
1641     ELSIF p_in_col_name = 'NSLDS_LOAN_1_CAPITAL_INT_FLAG' THEN
1642        p_out_col_name := 'NSLDS_LOAN_1_CAPTAL_INT_FLAG' ;
1643     ELSIF p_in_col_name = 'NSLDS_LOAN_2_XTR_UNSBZ_LN_TYPE' THEN
1644        p_out_col_name := 'NSLDS_LOAN_2_X_UNSBZ_LN_TYPE' ;
1645     ELSIF p_in_col_name = 'NSLDS_LOAN_2_CAPITAL_INT_FLAG' THEN
1646        p_out_col_name := 'NSLDS_LOAN_2_CAPTAL_INT_FLAG' ;
1647     ELSIF p_in_col_name = 'NSLDS_LOAN_3_XTR_UNSBZ_LN_TYPE' THEN
1648        p_out_col_name := 'NSLDS_LOAN_3_X_UNSBZ_LN_TYPE' ;
1649     ELSIF p_in_col_name = 'NSLDS_LOAN_3_CAPITAL_INT_FLAG' THEN
1650        p_out_col_name := 'NSLDS_LOAN_3_CAPTAL_INT_FLAG' ;
1651     ELSIF p_in_col_name = 'NSLDS_LOAN_4_XTR_UNSBZ_LN_TYPE' THEN
1652        p_out_col_name := 'NSLDS_LOAN_4_X_UNSBZ_LN_TYPE' ;
1653     ELSIF p_in_col_name = 'NSLDS_LOAN_4_CAPITAL_INT_FLAG' THEN
1654        p_out_col_name := 'NSLDS_LOAN_4_CAPTAL_INT_FLAG' ;
1655     ELSIF p_in_col_name = 'NSLDS_LOAN_5_XTR_UNSBZ_LN_TYPE' THEN
1656        p_out_col_name := 'NSLDS_LOAN_5_X_UNSBZ_LN_TYPE' ;
1657     ELSIF p_in_col_name = 'NSLDS_LOAN_5_CAPITAL_INT_FLAG' THEN
1658        p_out_col_name := 'NSLDS_LOAN_5_CAPTAL_INT_FLAG' ;
1659     ELSIF p_in_col_name = 'NSLDS_LOAN_6_XTR_UNSBZ_LN_TYPE' THEN
1660        p_out_col_name := 'NSLDS_LOAN_6_X_UNSBZ_LN_TYPE' ;
1661     ELSIF p_in_col_name = 'NSLDS_LOAN_6_CAPITAL_INT_FLAG' THEN
1662        p_out_col_name := 'NSLDS_LOAN_6_CAPTAL_INT_FLAG' ;
1663     ELSIF p_in_col_name = 'FATHER_FIRST_NAME_INITIAL_TXT' THEN
1664        p_out_col_name := 'FATHR_FIRST_NAME_INITIAL_TXT';
1665     ELSIF p_in_col_name = 'FATHER_STEP_FATHER_BIRTH_DATE' THEN
1666        p_out_col_name := 'FATHR_STEP_FATHER_BIRTH_DATE';
1667     ELSIF p_in_col_name = 'MOTHER_FIRST_NAME_INITIAL_TXT' THEN
1668        p_out_col_name := 'MOTHR_FIRST_NAME_INITIAL_TXT';
1669     ELSIF p_in_col_name = 'MOTHER_STEP_MOTHER_BIRTH_DATE' THEN
1670        p_out_col_name := 'MOTHR_STEP_MOTHER_BIRTH_DATE' ;
1671     ELSE
1672        p_out_col_name := p_in_col_name;
1673     END IF;
1674 
1675     RETURN p_out_col_name ;
1676   END p_l_to_i_col;
1677 
1678 
1679 PROCEDURE log_input_params( p_batch_num         IN  igf_aw_li_coa_ints.batch_num%TYPE,
1680                             p_alternate_code    IN  igs_ca_inst.alternate_code%TYPE,
1681                             p_delete_flag       IN  VARCHAR2,
1682                             p_import_type       IN  VARCHAR2)  IS
1683 /*
1684 ||  Created By : masehgal
1685 ||  Created On : 28-May-2003
1686 ||  Purpose    : Logs all the Input Parameters
1687 ||  Known limitations, enhancements or remarks :
1688 ||  Change History :
1689 ||  Who             When            What
1690 ||  (reverse chronological order - newest change first)
1691 */
1692 
1693   -- cursor to get batch desc for the batch id from igf_ap_li_bat_ints
1694   CURSOR c_batch_desc(cp_batch_num     igf_aw_li_coa_ints.batch_num%TYPE ) IS
1695      SELECT batch_desc, batch_type
1696        FROM igf_ap_li_bat_ints
1697       WHERE batch_num = cp_batch_num ;
1698 
1699   -- cursor for getting the message from fnd_new_messages
1700   CURSOR c_get_message(cp_message_name VARCHAR2) IS
1701      SELECT message_text
1702        FROM fnd_new_messages
1703       WHERE message_name = cp_message_name;
1704 
1705   l_delete_flag_prmpt fnd_new_messages.message_text%TYPE;
1706 
1707   l_lkup_type            VARCHAR2(60) ;
1708   l_lkup_code            VARCHAR2(60) ;
1709   l_batch_desc           igf_ap_li_bat_ints.batch_desc%TYPE ;
1710   l_batch_type           igf_ap_li_bat_ints.batch_type%TYPE ;
1711   l_batch_id             igf_ap_li_bat_ints.batch_type%TYPE ;
1712   l_yes_no               igf_lookups_view.meaning%TYPE ;
1713   l_award_year_pmpt      igf_lookups_view.meaning%TYPE ;
1714   l_params_pass_prmpt    igf_lookups_view.meaning%TYPE ;
1715   l_person_number_prmpt  igf_lookups_view.meaning%TYPE ;
1716   l_batch_num_prmpt      igf_lookups_view.meaning%TYPE ;
1717 
1718   BEGIN -- begin log parameters
1719 
1720      -- get the batch description
1721      OPEN  c_batch_desc( p_batch_num) ;
1722      FETCH c_batch_desc INTO l_batch_desc, l_batch_type ;
1723      CLOSE c_batch_desc ;
1724 
1725     OPEN  c_get_message('IGS_GE_ASK_DEL_REC');
1726     FETCH c_get_message INTO l_delete_flag_prmpt;
1727     CLOSE c_get_message;
1728 
1729     l_error               := igf_ap_gen.get_lookup_meaning('IGF_AW_LOOKUPS_MSG','ERROR');
1730     l_person_number_prmpt := igf_ap_gen.get_lookup_meaning('IGF_AW_LOOKUPS_MSG','PERSON_NUMBER');
1731     l_batch_num_prmpt     := igf_ap_gen.get_lookup_meaning('IGF_AW_LOOKUPS_MSG','BATCH_ID');
1732     l_award_year_pmpt     := igf_ap_gen.get_lookup_meaning('IGF_AW_LOOKUPS_MSG','AWARD_YEAR');
1733     l_yes_no              := igf_ap_gen.get_lookup_meaning('IGF_AP_YES_NO',p_delete_flag);
1734     l_params_pass_prmpt   := igf_ap_gen.get_lookup_meaning('IGF_GE_PARAMETERS','PARAMETER_PASS');
1735 
1736     fnd_file.put_line( fnd_file.log, ' ');
1737     fnd_file.put_line( fnd_file.log, '-------------------------------------------------------------');
1738     fnd_file.put_line( fnd_file.log, ' ');
1739 
1740     fnd_file.put_line( fnd_file.log, ' ') ;
1741     fnd_file.put_line( fnd_file.log, l_params_pass_prmpt) ; --parameters passed
1742     fnd_file.put_line( fnd_file.log, ' ') ;
1743 
1744     fnd_file.put_line( fnd_file.log, RPAD( l_award_year_pmpt, 40)    || ' : '|| p_alternate_code ) ;
1745     IF NVL(g_import_type,'N') <> 'Y' THEN
1746     fnd_file.put_line( fnd_file.log, RPAD( l_batch_num_prmpt, 40)     || ' : '|| p_batch_num || '-' || l_batch_desc ) ;
1747     END IF;
1748 
1749     fnd_file.put_line( fnd_file.log, RPAD( l_delete_flag_prmpt, 40)   || ' : '|| l_yes_no ) ;
1750     fnd_file.put_line( fnd_file.log, ' ');
1751     fnd_file.put_line( fnd_file.log, '-------------------------------------------------------------');
1752     fnd_file.put_line( fnd_file.log, ' ');
1753 
1754   EXCEPTION
1755     WHEN OTHERS THEN
1756       NULL;
1757   END log_input_params ;
1758 
1759 
1760 
1761   FUNCTION convert_to_number( pv_org_number IN VARCHAR2 )
1762   RETURN NUMBER
1763   IS
1764   /*
1765   ||  Created By : rasahoo
1766   ||  Created On : 03-June-2003
1767   ||  Purpose :        Converts the valid number to into the NUMBER format else RETURN NULL.
1768   ||  Known limitations, enhancements or remarks :
1769   ||  Change History :
1770   ||  Who              When              What
1771   ||  (reverse chronological order - newest change first)
1772   */
1773       ld_number NUMBER;
1774   BEGIN
1775       ld_number := TO_NUMBER( pv_org_number);
1776       RETURN ld_number;
1777   EXCEPTION
1778       WHEN others THEN
1779         RETURN NULL;
1780   END convert_to_number;
1781 
1782   PROCEDURE create_ssn(cp_person_id igs_pe_alt_pers_id.pe_person_id%TYPE,
1783                        cp_original_ssn_txt VARCHAR2
1784                       )
1785     AS
1786 
1787    /*
1788     ||  Created By : rajagupt
1789     ||  Created On : 06-Oct-2005
1790     ||  Purpose : create SSN record
1791     ||  Known limitations, enhancements or remarks :
1792     ||  Change History :
1793     ||  Who             When            What
1794     */
1795 
1796    l_rowid ROWID;
1797 
1798   BEGIN
1799      IGS_PE_ALT_PERS_ID_PKG.INSERT_ROW (
1800                     X_ROWID => l_rowid,
1801                     X_PE_PERSON_ID  => cp_person_id,
1802                     X_API_PERSON_ID => cp_original_ssn_txt,
1803                     X_PERSON_ID_TYPE  => 'SSN',
1804                     X_START_DT   => SYSDATE,
1805                     X_END_DT => NULL,
1806                     X_ATTRIBUTE_CATEGORY => NULL,
1807                     X_ATTRIBUTE1         => NULL,
1808                     X_ATTRIBUTE2         => NULL,
1809                     X_ATTRIBUTE3         => NULL,
1810                     X_ATTRIBUTE4         => NULL,
1811                     X_ATTRIBUTE5         => NULL,
1812                     X_ATTRIBUTE6         => NULL,
1813                     X_ATTRIBUTE7         => NULL,
1814                     X_ATTRIBUTE8         => NULL,
1815                     X_ATTRIBUTE9         => NULL,
1816                     X_ATTRIBUTE10        => NULL,
1817                     X_ATTRIBUTE11        => NULL,
1818                     X_ATTRIBUTE12        => NULL,
1819                     X_ATTRIBUTE13        => NULL,
1820                     X_ATTRIBUTE14        => NULL,
1821                     X_ATTRIBUTE15        => NULL,
1822                     X_ATTRIBUTE16        => NULL,
1823                     X_ATTRIBUTE17        => NULL,
1824                     X_ATTRIBUTE18        => NULL,
1825                     X_ATTRIBUTE19        => NULL,
1826                     X_ATTRIBUTE20        => NULL,
1827                     X_REGION_CD          => NULL,
1828                     X_MODE =>  'R'
1829                    );
1830   END create_ssn;
1831 
1832   PROCEDURE create_base_rec(p_ci_cal_type         IN VARCHAR2,
1833                           p_person_id             IN NUMBER,
1834                           p_ci_sequence_number    IN NUMBER,
1835                           p_nslds_match_type      IN VARCHAR2,
1836                           l_fa_base_id            OUT NOCOPY NUMBER,
1837                           p_award_fmly_contribution_type IN VARCHAR2
1838                           )
1839 AS
1840  /*
1841     ||  Created By : rasahoo
1842     ||  Created On : 03-June-2003
1843     ||  Purpose : create FA base record
1844     ||  Known limitations, enhancements or remarks :
1845     ||  Change History :
1846     ||  Who             When            What
1847     ||  (reverse chronological order - newest change first)
1848     ||  museshad       12-Apr-2006      Added the IF condition to call create_ssn()
1849     ||                                  only if there is a valid SSN. If create_ssn()
1850     ||                                  is called with SSN as null, it throws ORA-06502
1851     ||                                  error. Also, this proc gets called from other
1852     ||                                  packages also, in which case c_int_data_rec.original_ssn_txt
1853     ||                                  would be null.
1854     ||  ridas          14-Feb-2006      Bug #5021084. Removed trunc function from
1855     ||                                  cursor SSN_CUR.
1856     ||  rajagupt       06-Oct-2005      Bug#4068548 - added a new cursor ssn_cur
1857     ||  rasahoo        17-NOV-2003      FA 128 - ISIR update 2004-05
1858     ||                                  added new parameter award_fmly_contribution_type to
1859     ||                                  igf_ap_fa_base_rec_pkg.insert_row
1860     */
1861    -- cursor to get the ssn no of a person
1862    CURSOR ssn_cur(cp_person_id number) IS
1863      SELECT api_person_id,api_person_id_uf, end_dt
1864      FROM   igs_pe_alt_pers_id
1865      WHERE  pe_person_id=cp_person_id
1866      AND    person_id_type like 'SSN'
1867      AND    SYSDATE < = NVL(end_dt,SYSDATE);
1868 
1869        rec_ssn_cur ssn_cur%ROWTYPE;
1870        l_rowid   VARCHAR2(30);
1871        l_isir_id NUMBER;
1872        l_base_id NUMBER;
1873        lv_profile_value VARCHAR2(20);
1874  BEGIN
1875          l_rowid:= NULL;
1876          l_isir_id := NULL;
1877          l_base_id := NULL;
1878    --check if the ssn no is available or not
1879 
1880     fnd_profile.get('IGF_AP_SSN_REQ_FOR_BASE_REC',lv_profile_value);
1881 
1882     IF(lv_profile_value = 'Y') THEN
1883      OPEN ssn_cur(p_person_id) ;
1884      FETCH ssn_cur INTO rec_ssn_cur;
1885      IF ssn_cur%NOTFOUND THEN
1886        CLOSE ssn_cur;
1887 
1888        IF c_int_data_rec.original_ssn_txt IS NOT NULL THEN
1889         create_ssn(p_person_id, c_int_data_rec.original_ssn_txt);
1890        END IF;
1891 
1892      ELSE
1893        CLOSE ssn_cur;
1894 
1895      END IF;
1896 
1897      END IF;
1898 
1899      igf_ap_fa_base_rec_pkg.insert_row(
1900         x_Mode                                  => 'R',
1901         x_rowid                                 => l_rowid,
1902         x_base_id                               => l_base_id,
1903         x_ci_cal_type                           => p_ci_cal_type,
1904         x_person_id                             => p_person_id,   --  p_int_data_rec.igs_person_id,
1905         x_ci_sequence_number                    => p_ci_sequence_number,
1906         x_org_id                                => NULL,
1907         x_coa_pending                           => NULL,
1908         x_verification_process_run              => NULL,
1909         x_inst_verif_status_date                => NULL,
1910         x_manual_verif_flag                     => NULL,
1911         x_fed_verif_status                      => NULL,
1912         x_fed_verif_status_date                 => NULL,
1913         x_inst_verif_status                     => NULL,
1914         x_nslds_eligible                        => p_nslds_match_type,  -- p_int_data_rec.NSLDS_MATCH_TYPE,
1915         x_ede_correction_batch_id               => NULL,
1916         x_fa_process_status_date                => TRUNC(SYSDATE),
1917         x_isir_corr_status                      => NULL,
1918         x_isir_corr_status_date                 => NULL,
1919         x_isir_status                           => NULL,
1920         x_isir_status_date                      => NULL,
1921         x_coa_code_f                            => NULL,
1922         x_coa_code_i                            => NULL,
1923         x_coa_f                                 => NULL,
1924         x_coa_i                                 => NULL,
1925         x_disbursement_hold                     => NULL,
1926         x_fa_process_status                     => 'RECEIVED',
1927         x_notification_status                   => NULL,
1928         x_notification_status_date              => NULL,
1929         x_packaging_status                      => NULL,
1930         x_packaging_status_date                 => NULL,
1931         x_total_package_accepted                => NULL,
1932         x_total_package_offered                 => NULL,
1933         x_admstruct_id                          => NULL,
1934         x_admsegment_1                          => NULL,
1935         x_admsegment_2                          => NULL,
1936         x_admsegment_3                          => NULL,
1937         x_admsegment_4                          => NULL,
1938         x_admsegment_5                          => NULL,
1939         x_admsegment_6                          => NULL,
1940         x_admsegment_7                          => NULL,
1941         x_admsegment_8                          => NULL,
1942         x_admsegment_9                          => NULL,
1943         x_admsegment_10                         => NULL,
1944         x_admsegment_11                         => NULL,
1945         x_admsegment_12                         => NULL,
1946         x_admsegment_13                         => NULL,
1947         x_admsegment_14                         => NULL,
1948         x_admsegment_15                         => NULL,
1949         x_admsegment_16                         => NULL,
1950         x_admsegment_17                         => NULL,
1951         x_admsegment_18                         => NULL,
1952         x_admsegment_19                         => NULL,
1953         x_admsegment_20                         => NULL,
1954         x_packstruct_id                         => NULL,
1955         x_packsegment_1                         => NULL,
1956         x_packsegment_2                         => NULL,
1957         x_packsegment_3                         => NULL,
1958         x_packsegment_4                         => NULL,
1959         x_packsegment_5                         => NULL,
1960         x_packsegment_6                         => NULL,
1961         x_packsegment_7                         => NULL,
1962         x_packsegment_8                         => NULL,
1963         x_packsegment_9                         => NULL,
1964         x_packsegment_10                        => NULL,
1965         x_packsegment_11                        => NULL,
1966         x_packsegment_12                        => NULL,
1967         x_packsegment_13                        => NULL,
1968         x_packsegment_14                        => NULL,
1969         x_packsegment_15                        => NULL,
1970         x_packsegment_16                        => NULL,
1971         x_packsegment_17                        => NULL,
1972         x_packsegment_18                        => NULL,
1973         x_packsegment_19                        => NULL,
1974         x_packsegment_20                        => NULL,
1975         x_miscstruct_id                         => NULL,
1976         x_miscsegment_1                         => NULL,
1977         x_miscsegment_2                         => NULL,
1978         x_miscsegment_3                         => NULL,
1979         x_miscsegment_4                         => NULL,
1980         x_miscsegment_5                         => NULL,
1981         x_miscsegment_6                         => NULL,
1982         x_miscsegment_7                         => NULL,
1983         x_miscsegment_8                         => NULL,
1984         x_miscsegment_9                         => NULL,
1985         x_miscsegment_10                        => NULL,
1986         x_miscsegment_11                        => NULL,
1987         x_miscsegment_12                        => NULL,
1988         x_miscsegment_13                        => NULL,
1989         x_miscsegment_14                        => NULL,
1990         x_miscsegment_15                        => NULL,
1991         x_miscsegment_16                        => NULL,
1992         x_miscsegment_17                        => NULL,
1993         x_miscsegment_18                        => NULL,
1994         x_miscsegment_19                        => NULL,
1995         x_miscsegment_20                        => NULL,
1996         x_prof_judgement_flg                    => NULL,
1997         x_nslds_data_override_flg               => NULL,
1998         x_target_group                          => NULL,
1999         x_coa_fixed                             => NULL,
2000          x_coa_pell                              => NULL,
2001         x_profile_status                        => NULL,
2002         x_profile_status_date                   => NULL,
2003         x_profile_fc                            => NULL,
2004         x_manual_disb_hold                      => NULL,
2005         x_pell_alt_expense                      => NULL,
2006         x_assoc_org_num                         => NULL,
2007         x_award_fmly_contribution_type          => p_award_fmly_contribution_type,
2008         x_isir_locked_by                        => NULL,
2009         x_adnl_unsub_loan_elig_flag             => 'N',
2010         x_lock_awd_flag                         => 'N',
2011         x_lock_coa_flag                         => 'N'
2012         );
2013 
2014      l_fa_base_id := l_base_id;
2015   END create_base_rec;
2016 
2017   PROCEDURE update_row(p_int_data_rec     IN  c_int_data%ROWTYPE,
2018                        p_base_id          IN  NUMBER,
2019                        p_rowid            IN  VARCHAR2,
2020                        p_isir_id          IN  NUMBER
2021                        ) AS
2022     /*
2023     ||  Created By : rasahoo
2024     ||  Created On : 03-June-2003
2025     ||  Purpose : update the isir matched table
2026     ||  Known limitations, enhancements or remarks :
2027     ||  Change History :
2028     ||  Who             When            What
2029     ||  (reverse chronological order - newest change first)
2030     */
2031 
2032 
2033 
2034   BEGIN
2035 
2036 
2037     igf_ap_isir_matched_pkg.update_row(
2038          x_Mode                         =>  'R',
2039          x_rowid                        =>  p_rowid,
2040          x_isir_id                      =>  p_isir_id,
2041          x_base_id                      =>  p_base_id,
2042          x_batch_year                   =>  p_int_data_rec.batch_year_num,
2043          x_transaction_num              =>  p_int_data_rec.transaction_num_txt,
2044          x_current_ssn                  =>  p_int_data_rec.current_ssn_txt,
2045          x_ssn_name_change              =>  p_int_data_rec.ssn_name_change_type,
2046          x_original_ssn                 =>  p_int_data_rec.original_ssn_txt,
2047          x_orig_name_id                 =>  p_int_data_rec.orig_name_id_txt,
2048          x_last_name                    =>  p_int_data_rec.last_name,
2049          x_first_name                   =>  p_int_data_rec.first_name,
2050          x_middle_initial               =>  p_int_data_rec.middle_initial_txt,
2051          x_perm_mail_add                =>  p_int_data_rec.perm_mail_address_txt,
2052          x_perm_city                    =>  p_int_data_rec.perm_city_txt,
2053          x_perm_state                   =>  p_int_data_rec.perm_state_txt,
2054          x_perm_zip_code                =>  p_int_data_rec.perm_zip_cd,
2055          x_date_of_birth                =>  p_int_data_rec.birth_date,
2056          x_phone_number                 =>  p_int_data_rec.phone_number_txt,
2057          x_driver_license_number        =>  p_int_data_rec.driver_license_number_txt,
2058          x_driver_license_state         =>  p_int_data_rec.driver_license_state_txt,
2059          x_citizenship_status           =>  p_int_data_rec.citizenship_status_type,
2060          x_alien_reg_number             =>  p_int_data_rec.alien_reg_number_txt,
2061          x_s_marital_status             =>  p_int_data_rec.s_marital_status_type,
2062          x_s_marital_status_date        =>  p_int_data_rec.s_marital_status_date,
2063          x_summ_enrl_status             =>  p_int_data_rec.summ_enrl_status_type,
2064          x_fall_enrl_status             =>  p_int_data_rec.fall_enrl_status_type,
2065          x_winter_enrl_status           =>  p_int_data_rec.winter_enrl_status_type,
2066          x_spring_enrl_status           =>  p_int_data_rec.spring_enrl_status_type,
2067          x_summ2_enrl_status            =>  p_int_data_rec.summ2_enrl_status_type,
2068          x_fathers_highest_edu_level    =>  p_int_data_rec.fathers_highest_edu_level_type,
2069          x_mothers_highest_edu_level    =>  p_int_data_rec.mothers_highest_edu_level_type,
2070          x_s_state_legal_residence      =>  p_int_data_rec.s_state_legal_residence,
2071          x_legal_residence_before_date  =>  p_int_data_rec.legal_res_before_year_flag,
2072          x_s_legal_resd_date            =>  p_int_data_rec.s_legal_resd_date,
2073          x_ss_r_u_male                  =>  p_int_data_rec.ss_r_u_male_flag,
2074          x_selective_service_reg        =>  p_int_data_rec.selective_service_reg_flag,
2075          x_degree_certification         =>  p_int_data_rec.degree_certification_type,
2076          x_grade_level_in_college       =>  p_int_data_rec.grade_level_in_college_type,
2077          x_high_school_diploma_ged      =>  p_int_data_rec.high_school_diploma_ged_flag,
2078          x_first_bachelor_deg_by_date   =>  p_int_data_rec.first_bachelor_deg_year_flag,
2079          x_interest_in_loan             =>  p_int_data_rec.interest_in_loan_flag,
2080          x_interest_in_stud_employment  =>  p_int_data_rec.interest_in_stu_employmnt_flag,
2081          x_drug_offence_conviction      =>  p_int_data_rec.drug_offence_conviction_type,
2082          x_s_tax_return_status          =>  p_int_data_rec.s_tax_return_status_type,
2083          x_s_type_tax_return            =>  p_int_data_rec.s_type_tax_return_type,
2084          x_s_elig_1040ez                =>  p_int_data_rec.s_elig_1040ez_type,
2085          x_s_adjusted_gross_income      =>  p_int_data_rec.s_adjusted_gross_income_amt,
2086          x_s_fed_taxes_paid             =>  p_int_data_rec.s_fed_taxes_paid_amt,
2087          x_s_exemptions                 =>  p_int_data_rec.s_exemptions_amt,
2088          x_s_income_from_work           =>  p_int_data_rec.s_income_from_work_amt,
2089          x_spouse_income_from_work      =>  p_int_data_rec.spouse_income_from_work_amt,
2090          x_s_toa_amt_from_wsa           =>  p_int_data_rec.s_total_from_wsa_amt,
2091          x_s_toa_amt_from_wsb           =>  p_int_data_rec.s_total_from_wsb_amt,
2092          x_s_toa_amt_from_wsc           =>  p_int_data_rec.s_total_from_wsc_amt,
2093          x_s_investment_networth        =>  p_int_data_rec.s_investment_networth_amt,
2094          x_s_busi_farm_networth         =>  p_int_data_rec.s_busi_farm_networth_amt,
2095          x_s_cash_savings               =>  p_int_data_rec.s_cash_savings_amt,
2096          x_va_months                    =>  p_int_data_rec.va_months_num,
2097          x_va_amount                    =>  p_int_data_rec.va_amt,
2098          x_stud_dob_before_date         =>  p_int_data_rec.stud_dob_before_year_flag,
2099          x_deg_beyond_bachelor          =>  p_int_data_rec.deg_beyond_bachelor_flag,
2100          x_s_married                    =>  p_int_data_rec.s_married_flag,
2101          x_s_have_children              =>  p_int_data_rec.s_have_children_flag,
2102          x_legal_dependents             =>  p_int_data_rec.legal_dependents_flag,
2103          x_orphan_ward_of_court         =>  p_int_data_rec.orphan_ward_of_court_flag,
2104          x_s_veteran                    =>  p_int_data_rec.s_veteran_flag,
2105          x_p_marital_status             =>  p_int_data_rec.p_marital_status_type,
2106          x_father_ssn                   =>  p_int_data_rec.father_ssn_txt,
2107          x_f_last_name                  =>  p_int_data_rec.f_last_name,
2108          x_mother_ssn                   =>  p_int_data_rec.mother_ssn_txt,
2109          x_m_last_name                  =>  p_int_data_rec.m_last_name,
2110          x_p_num_family_member          =>  p_int_data_rec.p_family_members_num,
2111          x_p_num_in_college             =>  p_int_data_rec.p_in_college_num,
2112          x_p_state_legal_residence      =>  p_int_data_rec.p_state_legal_residence_txt,
2113          x_p_state_legal_res_before_dt  =>  p_int_data_rec.p_legal_res_before_dt_flag,
2114          x_p_legal_res_date             =>  p_int_data_rec.p_legal_res_date,
2115          x_age_older_parent             =>  p_int_data_rec.age_older_parent_num,
2116          x_p_tax_return_status          =>  p_int_data_rec.p_tax_return_status_type,
2117          x_p_type_tax_return            =>  p_int_data_rec.p_type_tax_return_type,
2118          x_p_elig_1040aez               =>  p_int_data_rec.p_elig_1040aez_type,
2119          x_p_adjusted_gross_income      =>  p_int_data_rec.p_adjusted_gross_income_amt,
2120          x_p_taxes_paid                 =>  p_int_data_rec.p_taxes_paid_amt,
2121          x_p_exemptions                 =>  p_int_data_rec.p_exemptions_amt,
2122          x_f_income_work                =>  p_int_data_rec.f_income_work_amt,
2123          x_m_income_work                =>  p_int_data_rec.m_income_work_amt,
2124          x_p_income_wsa                 =>  p_int_data_rec.p_income_wsa_amt,
2125          x_p_income_wsb                 =>  p_int_data_rec.p_income_wsb_amt,
2126          x_p_income_wsc                 =>  p_int_data_rec.p_income_wsc_amt,
2127          x_p_investment_networth        =>  p_int_data_rec.p_investment_networth_amt,
2128          x_p_business_networth          =>  p_int_data_rec.p_business_networth_amt,
2129          x_p_cash_saving                =>  p_int_data_rec.p_cash_saving_amt,
2130          x_s_num_family_members         =>  p_int_data_rec.s_family_members_num,
2131          x_s_num_in_college             =>  p_int_data_rec.s_in_college_num,
2132          x_first_college                =>  p_int_data_rec.first_college_cd,
2133          x_first_house_plan             =>  p_int_data_rec.first_house_plan_type,
2134          x_second_college               =>  p_int_data_rec.second_college_cd,
2135          x_second_house_plan            =>  p_int_data_rec.second_house_plan_type,
2136          x_third_college                =>  p_int_data_rec.third_college_cd,
2137          x_third_house_plan             =>  p_int_data_rec.third_house_plan_type,
2138          x_fourth_college               =>  p_int_data_rec.fourth_college_cd,
2139          x_fourth_house_plan            =>  p_int_data_rec.fourth_house_plan_type,
2140          x_fifth_college                =>  p_int_data_rec.fifth_college_cd,
2141          x_fifth_house_plan             =>  p_int_data_rec.fifth_house_plan_type,
2142          x_sixth_college                =>  p_int_data_rec.sixth_college_cd,
2143          x_sixth_house_plan             =>  p_int_data_rec.sixth_house_plan_type,
2144          x_date_app_completed           =>  p_int_data_rec.app_completed_date,
2145          x_signed_by                    =>  p_int_data_rec.signed_by_type,
2146          x_preparer_ssn                 =>  p_int_data_rec.preparer_ssn_txt,
2147          x_preparer_emp_id_number       =>  p_int_data_rec.preparer_emp_id_number_txt,
2148          x_preparer_sign                =>  p_int_data_rec.preparer_sign_flag,
2149          x_transaction_receipt_date     =>  p_int_data_rec.transaction_receipt_date,
2150          x_dependency_override_ind      =>  p_int_data_rec.dependency_override_type,
2151          x_faa_fedral_schl_code         =>  p_int_data_rec.faa_fedral_schl_cd,
2152          x_faa_adjustment               =>  p_int_data_rec.faa_adjustment_type,
2153          x_input_record_type            =>  p_int_data_rec.input_record_type,
2154          x_serial_number                =>  p_int_data_rec.serial_num,
2155          x_batch_number                 =>  p_int_data_rec.batch_number_txt,
2156          x_early_analysis_flag          =>  p_int_data_rec.early_analysis_flag,
2157          x_app_entry_source_code        =>  p_int_data_rec.app_entry_source_type,
2158          x_eti_destination_code         =>  p_int_data_rec.eti_destination_cd,
2159          x_reject_override_b            =>  p_int_data_rec.reject_override_b_flag,
2160          x_reject_override_n            =>  p_int_data_rec.reject_override_n_flag,
2161          x_reject_override_w            =>  p_int_data_rec.reject_override_w_flag,
2162          x_assum_override_1             =>  p_int_data_rec.assum_override_1_flag,
2163          x_assum_override_2             =>  p_int_data_rec.assum_override_2_flag,
2164          x_assum_override_3             =>  p_int_data_rec.assum_override_3_flag,
2165          x_assum_override_4             =>  p_int_data_rec.assum_override_4_flag,
2166          x_assum_override_5             =>  p_int_data_rec.assum_override_5_flag,
2167          x_assum_override_6             =>  p_int_data_rec.assum_override_6_flag,
2168          x_dependency_status            =>  p_int_data_rec.dependency_status_type,
2169          x_s_email_address              =>  p_int_data_rec.s_email_address_txt,
2170          x_nslds_reason_code            =>  p_int_data_rec.nslds_reason_cd,
2171          x_app_receipt_date             =>  p_int_data_rec.app_receipt_date,
2172          x_processed_rec_type           =>  p_int_data_rec.processed_rec_type,
2173          x_hist_correction_for_tran_id  =>  p_int_data_rec.hist_corr_for_tran_num,
2174          x_system_generated_indicator   =>  p_int_data_rec.sys_generated_indicator_type,
2175          x_dup_request_indicator        =>  p_int_data_rec.dup_request_indicator_type,
2176          x_source_of_correction         =>  p_int_data_rec.source_of_correction_type,
2177          x_p_cal_tax_status             =>  p_int_data_rec.p_cal_tax_status_type,
2178          x_s_cal_tax_status             =>  p_int_data_rec.s_cal_tax_status_type,
2179          x_graduate_flag                =>  p_int_data_rec.graduate_flag,
2180          x_auto_zero_efc                =>  p_int_data_rec.auto_zero_efc_flag,
2181          x_efc_change_flag              =>  p_int_data_rec.efc_change_flag,
2182          x_sarc_flag                    =>  p_int_data_rec.sarc_flag,
2183          x_simplified_need_test         =>  p_int_data_rec.simplified_need_test_flag,
2184          x_reject_reason_codes          =>  p_int_data_rec.reject_reason_codes_txt,
2185          x_select_service_match_flag    =>  p_int_data_rec.select_service_match_type,
2186          x_select_service_reg_flag      =>  p_int_data_rec.select_service_reg_type,
2187          x_ins_match_flag               =>  p_int_data_rec.ins_match_flag,
2188          x_ins_verification_number      =>  NULL,
2189          x_sec_ins_match_flag           =>  p_int_data_rec.sec_ins_match_type,
2190          x_sec_ins_ver_number           =>  p_int_data_rec.sec_ins_ver_num,
2191          x_ssn_match_flag               =>  p_int_data_rec.ssn_match_type,
2192          x_ssa_citizenship_flag         =>  p_int_data_rec.ssa_citizenship_type,
2193          x_ssn_date_of_death            =>  p_int_data_rec.ssn_death_date,
2194          x_nslds_match_flag             =>  p_int_data_rec.nslds_match_type,
2195          x_va_match_flag                =>  p_int_data_rec.va_match_type,
2196          x_prisoner_match               =>  p_int_data_rec.prisoner_match_flag,
2197          x_verification_flag            =>  p_int_data_rec.verification_flag,
2198          x_subsequent_app_flag          =>  p_int_data_rec.subsequent_app_flag,
2199          x_app_source_site_code         =>  p_int_data_rec.app_source_site_cd,
2200          x_tran_source_site_code        =>  p_int_data_rec.tran_source_site_cd,
2201          x_drn                          =>  p_int_data_rec.drn_num,
2202          x_tran_process_date            =>  p_int_data_rec.tran_process_date,
2203          x_computer_batch_number        =>  p_int_data_rec.computer_batch_num,
2204          x_correction_flags             =>  p_int_data_rec.correction_flags_txt,
2205          x_highlight_flags              =>  p_int_data_rec.highlight_flags_txt,
2206          x_paid_efc                     =>  NULL,
2207          x_primary_efc                  =>  p_int_data_rec.primary_efc_amt,
2208          x_secondary_efc                =>  p_int_data_rec.secondary_efc_amt,
2209          x_fed_pell_grant_efc_type      =>  NULL,
2210          x_primary_efc_type             =>  p_int_data_rec.primary_efc_type,
2211          x_sec_efc_type                 =>  p_int_data_rec.sec_efc_type,
2212          x_primary_alternate_month_1    =>  p_int_data_rec.primary_alt_month_1_amt,
2213          x_primary_alternate_month_2    =>  p_int_data_rec.primary_alt_month_2_amt,
2214          x_primary_alternate_month_3    =>  p_int_data_rec.primary_alt_month_3_amt,
2215          x_primary_alternate_month_4    =>  p_int_data_rec.primary_alt_month_4_amt,
2216          x_primary_alternate_month_5    =>  p_int_data_rec.primary_alt_month_5_amt,
2217          x_primary_alternate_month_6    =>  p_int_data_rec.primary_alt_month_6_amt,
2218          x_primary_alternate_month_7    =>  p_int_data_rec.primary_alt_month_7_amt,
2219          x_primary_alternate_month_8    =>  p_int_data_rec.primary_alt_month_8_amt,
2220          x_primary_alternate_month_10   =>  p_int_data_rec.primary_alt_month_10_amt,
2221          x_primary_alternate_month_11   =>  p_int_data_rec.primary_alt_month_11_amt,
2222          x_primary_alternate_month_12   =>  p_int_data_rec.primary_alt_month_12_amt,
2223          x_sec_alternate_month_1        =>  p_int_data_rec.sec_alternate_month_1_amt,
2224          x_sec_alternate_month_2        =>  p_int_data_rec.sec_alternate_month_2_amt,
2225          x_sec_alternate_month_3        =>  p_int_data_rec.sec_alternate_month_3_amt,
2226          x_sec_alternate_month_4        =>  p_int_data_rec.sec_alternate_month_4_amt,
2227          x_sec_alternate_month_5        =>  p_int_data_rec.sec_alternate_month_5_amt,
2228          x_sec_alternate_month_6        =>  p_int_data_rec.sec_alternate_month_6_amt,
2229          x_sec_alternate_month_7        =>  p_int_data_rec.sec_alternate_month_7_amt,
2230          x_sec_alternate_month_8        =>  p_int_data_rec.sec_alternate_month_8_amt,
2231          x_sec_alternate_month_10       =>  p_int_data_rec.sec_alternate_month_10_amt,
2232          x_sec_alternate_month_11       =>  p_int_data_rec.sec_alternate_month_11_amt,
2233          x_sec_alternate_month_12       =>  p_int_data_rec.sec_alternate_month_12_amt,
2234          x_total_income                 =>  p_int_data_rec.total_income_amt,
2235          x_allow_total_income           =>  p_int_data_rec.allow_total_income_amt,
2236          x_state_tax_allow              =>  p_int_data_rec.state_tax_allow_amt,
2237          x_employment_allow             =>  p_int_data_rec.employment_allow_amt,
2238          x_income_protection_allow      =>  p_int_data_rec.income_protection_allow_amt,
2239          x_available_income             =>  p_int_data_rec.available_income_amt,
2240          x_contribution_from_ai         =>  p_int_data_rec.contribution_from_ai_amt,
2241          x_discretionary_networth       =>  p_int_data_rec.discretionary_networth_amt,
2242          x_efc_networth                 =>  p_int_data_rec.efc_networth_amt,
2243          x_asset_protect_allow          =>  p_int_data_rec.asset_protect_allow_amt,
2244          x_parents_cont_from_assets     =>  p_int_data_rec.parents_cont_from_assets_amt,
2245          x_adjusted_available_income    =>  p_int_data_rec.adjusted_available_income_amt,
2246          x_total_student_contribution   =>  p_int_data_rec.total_student_contribution_amt,
2247          x_total_parent_contribution    =>  p_int_data_rec.total_parent_contribution_amt,
2248          x_parents_contribution         =>  p_int_data_rec.parents_contribution_amt,
2249          x_student_total_income         =>  p_int_data_rec.student_total_income_amt,
2250          x_sati                         =>  p_int_data_rec.sati_amt,
2251          x_sic                          =>  p_int_data_rec.sic_amt,
2252          x_sdnw                         =>  p_int_data_rec.sdnw_amt,
2253          x_sca                          =>  p_int_data_rec.sca_amt,
2254          x_fti                          =>  p_int_data_rec.fti_amt,
2255          x_secti                        =>  p_int_data_rec.secti_amt,
2256          x_secati                       =>  p_int_data_rec.secati_amt,
2257          x_secstx                       =>  p_int_data_rec.secstx_amt,
2258          x_secea                        =>  p_int_data_rec.secea_amt,
2259          x_secipa                       =>  p_int_data_rec.secipa_amt,
2260          x_secai                        =>  p_int_data_rec.secai_amt,
2261          x_seccai                       =>  p_int_data_rec.seccai_amt,
2262          x_secdnw                       =>  p_int_data_rec.secdnw_amt,
2263          x_secnw                        =>  p_int_data_rec.secnw_amt,
2264          x_secapa                       =>  p_int_data_rec.secapa_amt,
2265          x_secpca                       =>  p_int_data_rec.secpca_amt,
2266          x_secaai                       =>  p_int_data_rec.secaai_amt,
2267          x_sectsc                       =>  p_int_data_rec.sectsc_amt,
2268          x_sectpc                       =>  p_int_data_rec.sectpc_amt,
2269          x_secpc                        =>  p_int_data_rec.secpc_amt,
2270          x_secsti                       =>  p_int_data_rec.secsti_amt,
2271          x_secsic                       =>  p_int_data_rec.secsati_amt,
2272          x_secsati                      =>  p_int_data_rec.secsic_amt,
2273          x_secsdnw                      =>  p_int_data_rec.secsdnw_amt,
2274          x_secsca                       =>  p_int_data_rec.secsca_amt,
2275          x_secfti                       =>  p_int_data_rec.secfti_amt,
2276          x_a_citizenship                =>  p_int_data_rec.a_citizenship_flag,
2277          x_a_student_marital_status     =>  p_int_data_rec.a_student_marital_status_flag,
2278          x_a_student_agi                =>  p_int_data_rec.a_student_agi_amt,
2279          x_a_s_us_tax_paid              =>  p_int_data_rec.a_s_us_tax_paid_amt,
2280          x_a_s_income_work              =>  p_int_data_rec.a_s_income_work_amt,
2281          x_a_spouse_income_work         =>  p_int_data_rec.a_spouse_income_work_amt,
2282          x_a_s_total_wsc                =>  p_int_data_rec.a_s_total_wsc_amt,
2283          x_a_date_of_birth              =>  p_int_data_rec.a_date_of_birth_flag,
2284          x_a_student_married            =>  p_int_data_rec.a_student_married_flag,
2285          x_a_have_children              =>  p_int_data_rec.a_have_children_flag,
2286          x_a_s_have_dependents          =>  p_int_data_rec.a_s_have_dependents_flag,
2287          x_a_va_status                  =>  p_int_data_rec.a_va_status_flag,
2288          x_a_s_num_in_family            =>  p_int_data_rec.a_s_in_family_num,
2289          x_a_s_num_in_college           =>  p_int_data_rec.a_s_in_college_num,
2290          x_a_p_marital_status           =>  p_int_data_rec.a_p_marital_status_flag,
2291          x_a_father_ssn                 =>  p_int_data_rec.a_father_ssn_txt,
2292          x_a_mother_ssn                 =>  p_int_data_rec.a_mother_ssn_txt,
2293          x_a_parents_num_family         =>  p_int_data_rec.a_parents_family_num,
2294          x_a_parents_num_college        =>  p_int_data_rec.a_parents_college_num,
2295          x_a_parents_agi                =>  p_int_data_rec.a_parents_agi_amt,
2296          x_a_p_us_tax_paid              =>  p_int_data_rec.a_p_us_tax_paid_amt,
2297          x_a_f_work_income              =>  p_int_data_rec.a_f_work_income_amt,
2298          x_a_m_work_income              =>  p_int_data_rec.a_m_work_income_amt,
2299          x_a_p_total_wsc                =>  p_int_data_rec.a_p_total_wsc_amt,
2300          x_comment_codes                =>  p_int_data_rec.comment_codes_txt,
2301          x_sar_ack_comm_code            =>  p_int_data_rec.sar_ack_comm_codes_txt,
2302          x_pell_grant_elig_flag         =>  p_int_data_rec.pell_grant_elig_flag,
2303          x_reprocess_reason_code        =>  p_int_data_rec.reprocess_reason_cd,
2304          x_duplicate_date               =>  p_int_data_rec.duplicate_date,
2305          x_isir_transaction_type        =>  p_int_data_rec.isir_transaction_type,
2306          x_fedral_schl_code_indicator   =>  p_int_data_rec.fedral_schl_type,
2307          x_multi_school_code_flags      =>  p_int_data_rec.multi_school_cd_flags_txt,
2308          x_dup_ssn_indicator            =>  p_int_data_rec.dup_ssn_indicator_flag,
2309          x_system_record_type           =>  'ORIGINAL',
2310          x_payment_isir                 =>  NULL,
2311          x_receipt_status               =>  NULL,
2312          x_isir_receipt_completed       =>  NULL,
2313          x_active_isir                  =>  NULL,
2314          x_fafsa_data_verify_flags      =>  p_int_data_rec.fafsa_data_verification_txt,
2315          x_reject_override_a            =>  p_int_data_rec.reject_override_a_flag,
2316          x_reject_override_c            =>  p_int_data_rec.reject_override_c_flag,
2317          x_parent_marital_status_date   =>  p_int_data_rec.parent_marital_status_date,
2318          x_legacy_record_flag           =>  'Y',
2319          x_father_first_name_initial    => p_int_data_rec.father_first_name_initial_txt,
2320          x_father_step_father_birth_dt  => p_int_data_rec.father_step_father_birth_date,
2321          x_mother_first_name_initial    => p_int_data_rec.mother_first_name_initial_txt,
2322          x_mother_step_mother_birth_dt  => p_int_data_rec.mother_step_mother_birth_date,
2323          x_parents_email_address_txt    => p_int_data_rec.parents_email_address_txt,
2324          x_address_change_type          => p_int_data_rec.address_change_type,
2325          x_cps_pushed_isir_flag         => p_int_data_rec.cps_pushed_isir_flag,
2326          x_electronic_transaction_type  => p_int_data_rec.electronic_transaction_type,
2327          x_sar_c_change_type            => p_int_data_rec.sar_c_change_type,
2328          x_father_ssn_match_type        => p_int_data_rec.father_ssn_match_type,
2329          x_mother_ssn_match_type        => p_int_data_rec.mother_ssn_match_type,
2330          x_reject_override_g_flag       => p_int_data_rec.reject_override_g_flag,
2331          x_dhs_verification_num_txt     => p_int_data_rec.dhs_verification_num_txt,
2332          x_data_file_name_txt           => p_int_data_rec.data_file_name_txt,
2333          x_message_class_txt            => p_int_data_rec.message_class_txt,
2334          x_reject_override_3_flag       => p_int_data_rec.reject_override_3_flag,
2335          x_reject_override_12_flag      => p_int_data_rec.reject_override_12_flag,
2336          x_reject_override_j_flag       => p_int_data_rec.reject_override_j_flag,
2337          x_reject_override_k_flag       => p_int_data_rec.reject_override_k_flag,
2338          x_rejected_status_change_flag  => p_int_data_rec.rejected_status_change_flag,
2339          x_verification_selection_flag  => p_int_data_rec.verification_selection_flag
2340         );
2341   END update_row;
2342 
2343   PROCEDURE insert_row( p_int_data_rec      IN c_int_data%ROWTYPE,
2344                         p_base_id           IN NUMBER,
2345                         pv_isir_id          OUT NOCOPY NUMBER)
2346              AS
2347     /*
2348     ||  Created By : rasahoo
2349     ||  Created On : 03-June-2003
2350     ||  Purpose : insert into the isir matched table
2351     ||  Known limitations, enhancements or remarks :
2352     ||  Change History :
2353     ||  Who             When            What
2354     ||  (reverse chronological order - newest change first)
2355     */
2356 
2357        l_rowid   VARCHAR2(30);
2358        l_isir_id NUMBER;
2359 
2360   BEGIN
2361        l_rowid:= NULL;
2362        l_isir_id := NULL;
2363        igf_ap_isir_matched_pkg.insert_row(
2364              x_Mode                         =>  'R',
2365              x_rowid                        =>  l_rowid,
2366              x_isir_id                      =>  l_isir_id,
2367              x_base_id                      =>  p_base_id,
2368              x_batch_year                   =>  p_int_data_rec.batch_year_num,
2369              x_transaction_num              =>  p_int_data_rec.transaction_num_txt,
2370              x_current_ssn                  =>  p_int_data_rec.current_ssn_txt,
2371              x_ssn_name_change              =>  p_int_data_rec.ssn_name_change_type,
2372              x_original_ssn                 =>  p_int_data_rec.original_ssn_txt,
2373              x_orig_name_id                 =>  p_int_data_rec.orig_name_id_txt,
2374              x_last_name                    =>  p_int_data_rec.last_name,
2375              x_first_name                   =>  p_int_data_rec.first_name,
2376              x_middle_initial               =>  p_int_data_rec.middle_initial_txt,
2377              x_perm_mail_add                =>  p_int_data_rec.perm_mail_address_txt,
2378              x_perm_city                    =>  p_int_data_rec.perm_city_txt,
2379              x_perm_state                   =>  p_int_data_rec.perm_state_txt,
2380              x_perm_zip_code                =>  p_int_data_rec.perm_zip_cd,
2381              x_date_of_birth                =>  p_int_data_rec.birth_date,
2382              x_phone_number                 =>  p_int_data_rec.phone_number_txt,
2383              x_driver_license_number        =>  p_int_data_rec.driver_license_number_txt,
2384              x_driver_license_state         =>  p_int_data_rec.driver_license_state_txt,
2385              x_citizenship_status           =>  p_int_data_rec.citizenship_status_type,
2386              x_alien_reg_number             =>  p_int_data_rec.alien_reg_number_txt,
2387              x_s_marital_status             =>  p_int_data_rec.s_marital_status_type,
2388              x_s_marital_status_date        =>  p_int_data_rec.s_marital_status_date,
2389              x_summ_enrl_status             =>  p_int_data_rec.summ_enrl_status_type,
2390              x_fall_enrl_status             =>  p_int_data_rec.fall_enrl_status_type,
2391              x_winter_enrl_status           =>  p_int_data_rec.winter_enrl_status_type,
2392              x_spring_enrl_status           =>  p_int_data_rec.spring_enrl_status_type,
2393              x_summ2_enrl_status            =>  p_int_data_rec.summ2_enrl_status_type,
2394              x_fathers_highest_edu_level    =>  p_int_data_rec.fathers_highest_edu_level_type,
2395              x_mothers_highest_edu_level    =>  p_int_data_rec.mothers_highest_edu_level_type,
2396              x_s_state_legal_residence      =>  p_int_data_rec.s_state_legal_residence,
2397              x_legal_residence_before_date  =>  p_int_data_rec.legal_res_before_year_flag,
2398              x_s_legal_resd_date            =>  p_int_data_rec.s_legal_resd_date,
2399              x_ss_r_u_male                  =>  p_int_data_rec.ss_r_u_male_flag,
2400              x_selective_service_reg        =>  p_int_data_rec.selective_service_reg_flag,
2401              x_degree_certification         =>  p_int_data_rec.degree_certification_type,
2402              x_grade_level_in_college       =>  p_int_data_rec.grade_level_in_college_type,
2403              x_high_school_diploma_ged      =>  p_int_data_rec.high_school_diploma_ged_flag,
2404              x_first_bachelor_deg_by_date   =>  p_int_data_rec.first_bachelor_deg_year_flag,
2405              x_interest_in_loan             =>  p_int_data_rec.interest_in_loan_flag,
2406              x_interest_in_stud_employment  =>  p_int_data_rec.interest_in_stu_employmnt_flag,
2407              x_drug_offence_conviction      =>  p_int_data_rec.drug_offence_conviction_type,
2408              x_s_tax_return_status          =>  p_int_data_rec.s_tax_return_status_type,
2409              x_s_type_tax_return            =>  p_int_data_rec.s_type_tax_return_type,
2410              x_s_elig_1040ez                =>  p_int_data_rec.s_elig_1040ez_type,
2411              x_s_adjusted_gross_income      =>  p_int_data_rec.s_adjusted_gross_income_amt,
2412              x_s_fed_taxes_paid             =>  p_int_data_rec.s_fed_taxes_paid_amt,
2413              x_s_exemptions                 =>  p_int_data_rec.s_exemptions_amt,
2414              x_s_income_from_work           =>  p_int_data_rec.s_income_from_work_amt,
2415              x_spouse_income_from_work      =>  p_int_data_rec.spouse_income_from_work_amt,
2416              x_s_toa_amt_from_wsa           =>  p_int_data_rec.s_total_from_wsa_amt,
2417              x_s_toa_amt_from_wsb           =>  p_int_data_rec.s_total_from_wsb_amt,
2418              x_s_toa_amt_from_wsc           =>  p_int_data_rec.s_total_from_wsc_amt,
2419              x_s_investment_networth        =>  p_int_data_rec.s_investment_networth_amt,
2420              x_s_busi_farm_networth         =>  p_int_data_rec.s_busi_farm_networth_amt,
2421              x_s_cash_savings               =>  p_int_data_rec.s_cash_savings_amt,
2422              x_va_months                    =>  p_int_data_rec.va_months_num,
2423              x_va_amount                    =>  p_int_data_rec.va_amt,
2424              x_stud_dob_before_date         =>  p_int_data_rec.stud_dob_before_year_flag,
2425              x_deg_beyond_bachelor          =>  p_int_data_rec.deg_beyond_bachelor_flag,
2426              x_s_married                    =>  p_int_data_rec.s_married_flag,
2427              x_s_have_children              =>  p_int_data_rec.s_have_children_flag,
2428              x_legal_dependents             =>  p_int_data_rec.legal_dependents_flag,
2429              x_orphan_ward_of_court         =>  p_int_data_rec.orphan_ward_of_court_flag,
2430              x_s_veteran                    =>  p_int_data_rec.s_veteran_flag,
2431              x_p_marital_status             =>  p_int_data_rec.p_marital_status_type,
2432              x_father_ssn                   =>  p_int_data_rec.father_ssn_txt,
2433              x_f_last_name                  =>  p_int_data_rec.f_last_name,
2434              x_mother_ssn                   =>  p_int_data_rec.mother_ssn_txt,
2435              x_m_last_name                  =>  p_int_data_rec.m_last_name,
2436              x_p_num_family_member          =>  p_int_data_rec.p_family_members_num,
2437              x_p_num_in_college             =>  p_int_data_rec.p_in_college_num,
2438              x_p_state_legal_residence      =>  p_int_data_rec.p_state_legal_residence_txt,
2439              x_p_state_legal_res_before_dt  =>  p_int_data_rec.p_legal_res_before_dt_flag,
2440              x_p_legal_res_date             =>  p_int_data_rec.p_legal_res_date,
2441              x_age_older_parent             =>  p_int_data_rec.age_older_parent_num,
2442              x_p_tax_return_status          =>  p_int_data_rec.p_tax_return_status_type,
2443              x_p_type_tax_return            =>  p_int_data_rec.p_type_tax_return_type,
2444              x_p_elig_1040aez               =>  p_int_data_rec.p_elig_1040aez_type,
2445              x_p_adjusted_gross_income      =>  p_int_data_rec.p_adjusted_gross_income_amt,
2446              x_p_taxes_paid                 =>  p_int_data_rec.p_taxes_paid_amt,
2447              x_p_exemptions                 =>  p_int_data_rec.p_exemptions_amt,
2448              x_f_income_work                =>  p_int_data_rec.f_income_work_amt,
2449              x_m_income_work                =>  p_int_data_rec.m_income_work_amt,
2450              x_p_income_wsa                 =>  p_int_data_rec.p_income_wsa_amt,
2451              x_p_income_wsb                 =>  p_int_data_rec.p_income_wsb_amt,
2452              x_p_income_wsc                 =>  p_int_data_rec.p_income_wsc_amt,
2453              x_p_investment_networth        =>  p_int_data_rec.p_investment_networth_amt,
2454              x_p_business_networth          =>  p_int_data_rec.p_business_networth_amt,
2455              x_p_cash_saving                =>  p_int_data_rec.p_cash_saving_amt,
2456              x_s_num_family_members         =>  p_int_data_rec.s_family_members_num,
2457              x_s_num_in_college             =>  p_int_data_rec.s_in_college_num,
2458              x_first_college                =>  p_int_data_rec.first_college_cd,
2459              x_first_house_plan             =>  p_int_data_rec.first_house_plan_type,
2460              x_second_college               =>  p_int_data_rec.second_college_cd,
2461              x_second_house_plan            =>  p_int_data_rec.second_house_plan_type,
2462              x_third_college                =>  p_int_data_rec.third_college_cd,
2463              x_third_house_plan             =>  p_int_data_rec.third_house_plan_type,
2464              x_fourth_college               =>  p_int_data_rec.fourth_college_cd,
2465              x_fourth_house_plan            =>  p_int_data_rec.fourth_house_plan_type,
2466              x_fifth_college                =>  p_int_data_rec.fifth_college_cd,
2467              x_fifth_house_plan             =>  p_int_data_rec.fifth_house_plan_type,
2468              x_sixth_college                =>  p_int_data_rec.sixth_college_cd,
2469              x_sixth_house_plan             =>  p_int_data_rec.sixth_house_plan_type,
2470              x_date_app_completed           =>  p_int_data_rec.app_completed_date,
2471              x_signed_by                    =>  p_int_data_rec.signed_by_type,
2472              x_preparer_ssn                 =>  p_int_data_rec.preparer_ssn_txt,
2473              x_preparer_emp_id_number       =>  p_int_data_rec.preparer_emp_id_number_txt,
2474              x_preparer_sign                =>  p_int_data_rec.preparer_sign_flag,
2475              x_transaction_receipt_date     =>  p_int_data_rec.transaction_receipt_date,
2476              x_dependency_override_ind      =>  p_int_data_rec.dependency_override_type,
2477              x_faa_fedral_schl_code         =>  p_int_data_rec.faa_fedral_schl_cd,
2478              x_faa_adjustment               =>  p_int_data_rec.faa_adjustment_type,
2479              x_input_record_type            =>  p_int_data_rec.input_record_type,
2480              x_serial_number                =>  p_int_data_rec.serial_num,
2481              x_batch_number                 =>  p_int_data_rec.batch_number_txt,
2482              x_early_analysis_flag          =>  p_int_data_rec.early_analysis_flag,
2483              x_app_entry_source_code        =>  p_int_data_rec.app_entry_source_type,
2484              x_eti_destination_code         =>  p_int_data_rec.eti_destination_cd,
2485              x_reject_override_b            =>  p_int_data_rec.reject_override_b_flag,
2486              x_reject_override_n            =>  p_int_data_rec.reject_override_n_flag,
2487              x_reject_override_w            =>  p_int_data_rec.reject_override_w_flag,
2488              x_assum_override_1             =>  p_int_data_rec.assum_override_1_flag,
2489              x_assum_override_2             =>  p_int_data_rec.assum_override_2_flag,
2490              x_assum_override_3             =>  p_int_data_rec.assum_override_3_flag,
2491              x_assum_override_4             =>  p_int_data_rec.assum_override_4_flag,
2492              x_assum_override_5             =>  p_int_data_rec.assum_override_5_flag,
2493              x_assum_override_6             =>  p_int_data_rec.assum_override_6_flag,
2494              x_dependency_status            =>  p_int_data_rec.dependency_status_type,
2495              x_s_email_address              =>  p_int_data_rec.s_email_address_txt,
2496              x_nslds_reason_code            =>  p_int_data_rec.nslds_reason_cd,
2497              x_app_receipt_date             =>  p_int_data_rec.app_receipt_date,
2498              x_processed_rec_type           =>  p_int_data_rec.processed_rec_type,
2499              x_hist_correction_for_tran_id  =>  p_int_data_rec.hist_corr_for_tran_num,
2500              x_system_generated_indicator   =>  p_int_data_rec.sys_generated_indicator_type,
2501              x_dup_request_indicator        =>  p_int_data_rec.dup_request_indicator_type,
2502              x_source_of_correction         =>  p_int_data_rec.source_of_correction_type,
2503              x_p_cal_tax_status             =>  p_int_data_rec.p_cal_tax_status_type,
2504              x_s_cal_tax_status             =>  p_int_data_rec.s_cal_tax_status_type,
2505              x_graduate_flag                =>  p_int_data_rec.graduate_flag,
2506              x_auto_zero_efc                =>  p_int_data_rec.auto_zero_efc_flag,
2507              x_efc_change_flag              =>  p_int_data_rec.efc_change_flag,
2508              x_sarc_flag                    =>  p_int_data_rec.sarc_flag,
2509              x_simplified_need_test         =>  p_int_data_rec.simplified_need_test_flag,
2510              x_reject_reason_codes          =>  p_int_data_rec.reject_reason_codes_txt,
2511              x_select_service_match_flag    =>  p_int_data_rec.select_service_match_type,
2512              x_select_service_reg_flag      =>  p_int_data_rec.select_service_reg_type,
2513              x_ins_match_flag               =>  p_int_data_rec.ins_match_flag,
2514              x_ins_verification_number      =>  NULL,
2515              x_sec_ins_match_flag           =>  p_int_data_rec.sec_ins_match_type,
2516              x_sec_ins_ver_number           =>  p_int_data_rec.sec_ins_ver_num,
2517              x_ssn_match_flag               =>  p_int_data_rec.ssn_match_type,
2518              x_ssa_citizenship_flag         =>  p_int_data_rec.ssa_citizenship_type,
2519              x_ssn_date_of_death            =>  p_int_data_rec.ssn_death_date,
2520              x_nslds_match_flag             =>  p_int_data_rec.nslds_match_type,
2521              x_va_match_flag                =>  p_int_data_rec.va_match_type,
2522              x_prisoner_match               =>  p_int_data_rec.prisoner_match_flag,
2523              x_verification_flag            =>  p_int_data_rec.verification_flag,
2524              x_subsequent_app_flag          =>  p_int_data_rec.subsequent_app_flag,
2525              x_app_source_site_code         =>  p_int_data_rec.app_source_site_cd,
2526              x_tran_source_site_code        =>  p_int_data_rec.tran_source_site_cd,
2527              x_drn                          =>  p_int_data_rec.drn_num,
2528              x_tran_process_date            =>  p_int_data_rec.tran_process_date,
2529              x_computer_batch_number        =>  p_int_data_rec.computer_batch_num,
2530              x_correction_flags             =>  p_int_data_rec.correction_flags_txt,
2531              x_highlight_flags              =>  p_int_data_rec.highlight_flags_txt,
2532              x_paid_efc                     =>  NULL,
2533              x_primary_efc                  =>  p_int_data_rec.primary_efc_amt,
2534              x_secondary_efc                =>  p_int_data_rec.secondary_efc_amt,
2535              x_fed_pell_grant_efc_type      =>  NULL,
2536              x_primary_efc_type             =>  p_int_data_rec.primary_efc_type,
2537              x_sec_efc_type                 =>  p_int_data_rec.sec_efc_type,
2538              x_primary_alternate_month_1    =>  p_int_data_rec.primary_alt_month_1_amt,
2539              x_primary_alternate_month_2    =>  p_int_data_rec.primary_alt_month_2_amt,
2540              x_primary_alternate_month_3    =>  p_int_data_rec.primary_alt_month_3_amt,
2541              x_primary_alternate_month_4    =>  p_int_data_rec.primary_alt_month_4_amt,
2542              x_primary_alternate_month_5    =>  p_int_data_rec.primary_alt_month_5_amt,
2543              x_primary_alternate_month_6    =>  p_int_data_rec.primary_alt_month_6_amt,
2544              x_primary_alternate_month_7    =>  p_int_data_rec.primary_alt_month_7_amt,
2545              x_primary_alternate_month_8    =>  p_int_data_rec.primary_alt_month_8_amt,
2546              x_primary_alternate_month_10   =>  p_int_data_rec.primary_alt_month_10_amt,
2547              x_primary_alternate_month_11   =>  p_int_data_rec.primary_alt_month_11_amt,
2548              x_primary_alternate_month_12   =>  p_int_data_rec.primary_alt_month_12_amt,
2549              x_sec_alternate_month_1        =>  p_int_data_rec.sec_alternate_month_1_amt,
2550              x_sec_alternate_month_2        =>  p_int_data_rec.sec_alternate_month_2_amt,
2551              x_sec_alternate_month_3        =>  p_int_data_rec.sec_alternate_month_3_amt,
2552              x_sec_alternate_month_4        =>  p_int_data_rec.sec_alternate_month_4_amt,
2553              x_sec_alternate_month_5        =>  p_int_data_rec.sec_alternate_month_5_amt,
2554              x_sec_alternate_month_6        =>  p_int_data_rec.sec_alternate_month_6_amt,
2555              x_sec_alternate_month_7        =>  p_int_data_rec.sec_alternate_month_7_amt,
2556              x_sec_alternate_month_8        =>  p_int_data_rec.sec_alternate_month_8_amt,
2557              x_sec_alternate_month_10       =>  p_int_data_rec.sec_alternate_month_10_amt,
2558              x_sec_alternate_month_11       =>  p_int_data_rec.sec_alternate_month_11_amt,
2559              x_sec_alternate_month_12       =>  p_int_data_rec.sec_alternate_month_12_amt,
2560              x_total_income                 =>  p_int_data_rec.total_income_amt,
2561              x_allow_total_income           =>  p_int_data_rec.allow_total_income_amt,
2562              x_state_tax_allow              =>  p_int_data_rec.state_tax_allow_amt,
2563              x_employment_allow             =>  p_int_data_rec.employment_allow_amt,
2564              x_income_protection_allow      =>  p_int_data_rec.income_protection_allow_amt,
2565              x_available_income             =>  p_int_data_rec.available_income_amt,
2566              x_contribution_from_ai         =>  p_int_data_rec.contribution_from_ai_amt,
2567              x_discretionary_networth       =>  p_int_data_rec.discretionary_networth_amt,
2568              x_efc_networth                 =>  p_int_data_rec.efc_networth_amt,
2569              x_asset_protect_allow          =>  p_int_data_rec.asset_protect_allow_amt,
2570              x_parents_cont_from_assets     =>  p_int_data_rec.parents_cont_from_assets_amt,
2571              x_adjusted_available_income    =>  p_int_data_rec.adjusted_available_income_amt,
2572              x_total_student_contribution   =>  p_int_data_rec.total_student_contribution_amt,
2573              x_total_parent_contribution    =>  p_int_data_rec.total_parent_contribution_amt,
2574              x_parents_contribution         =>  p_int_data_rec.parents_contribution_amt,
2575              x_student_total_income         =>  p_int_data_rec.student_total_income_amt,
2576              x_sati                         =>  p_int_data_rec.sati_amt,
2577              x_sic                          =>  p_int_data_rec.sic_amt,
2578              x_sdnw                         =>  p_int_data_rec.sdnw_amt,
2579              x_sca                          =>  p_int_data_rec.sca_amt,
2580              x_fti                          =>  p_int_data_rec.fti_amt,
2581              x_secti                        =>  p_int_data_rec.secti_amt,
2582              x_secati                       =>  p_int_data_rec.secati_amt,
2583              x_secstx                       =>  p_int_data_rec.secstx_amt,
2584              x_secea                        =>  p_int_data_rec.secea_amt,
2585              x_secipa                       =>  p_int_data_rec.secipa_amt,
2586              x_secai                        =>  p_int_data_rec.secai_amt,
2587              x_seccai                       =>  p_int_data_rec.seccai_amt,
2588              x_secdnw                       =>  p_int_data_rec.secdnw_amt,
2589              x_secnw                        =>  p_int_data_rec.secnw_amt,
2590              x_secapa                       =>  p_int_data_rec.secapa_amt,
2591              x_secpca                       =>  p_int_data_rec.secpca_amt,
2592              x_secaai                       =>  p_int_data_rec.secaai_amt,
2593              x_sectsc                       =>  p_int_data_rec.sectsc_amt,
2594              x_sectpc                       =>  p_int_data_rec.sectpc_amt,
2595              x_secpc                        =>  p_int_data_rec.secpc_amt,
2596              x_secsti                       =>  p_int_data_rec.secsti_amt,
2597              x_secsic                       =>  p_int_data_rec.secsati_amt,
2598              x_secsati                      =>  p_int_data_rec.secsic_amt,
2599              x_secsdnw                      =>  p_int_data_rec.secsdnw_amt,
2600              x_secsca                       =>  p_int_data_rec.secsca_amt,
2601              x_secfti                       =>  p_int_data_rec.secfti_amt,
2602              x_a_citizenship                =>  p_int_data_rec.a_citizenship_flag,
2603              x_a_student_marital_status     =>  p_int_data_rec.a_student_marital_status_flag,
2604              x_a_student_agi                =>  p_int_data_rec.a_student_agi_amt,
2605              x_a_s_us_tax_paid              =>  p_int_data_rec.a_s_us_tax_paid_amt,
2606              x_a_s_income_work              =>  p_int_data_rec.a_s_income_work_amt,
2607              x_a_spouse_income_work         =>  p_int_data_rec.a_spouse_income_work_amt,
2608              x_a_s_total_wsc                =>  p_int_data_rec.a_s_total_wsc_amt,
2609              x_a_date_of_birth              =>  p_int_data_rec.a_date_of_birth_flag,
2610              x_a_student_married            =>  p_int_data_rec.a_student_married_flag,
2611              x_a_have_children              =>  p_int_data_rec.a_have_children_flag,
2612              x_a_s_have_dependents          =>  p_int_data_rec.a_s_have_dependents_flag,
2613              x_a_va_status                  =>  p_int_data_rec.a_va_status_flag,
2614              x_a_s_num_in_family            =>  p_int_data_rec.a_s_in_family_num,
2615              x_a_s_num_in_college           =>  p_int_data_rec.a_s_in_college_num,
2616              x_a_p_marital_status           =>  p_int_data_rec.a_p_marital_status_flag,
2617              x_a_father_ssn                 =>  p_int_data_rec.a_father_ssn_txt,
2618              x_a_mother_ssn                 =>  p_int_data_rec.a_mother_ssn_txt,
2619              x_a_parents_num_family         =>  p_int_data_rec.a_parents_family_num,
2620              x_a_parents_num_college        =>  p_int_data_rec.a_parents_college_num,
2621              x_a_parents_agi                =>  p_int_data_rec.a_parents_agi_amt,
2622              x_a_p_us_tax_paid              =>  p_int_data_rec.a_p_us_tax_paid_amt,
2623              x_a_f_work_income              =>  p_int_data_rec.a_f_work_income_amt,
2624              x_a_m_work_income              =>  p_int_data_rec.a_m_work_income_amt,
2625              x_a_p_total_wsc                =>  p_int_data_rec.a_p_total_wsc_amt,
2626              x_comment_codes                =>  p_int_data_rec.comment_codes_txt,
2627              x_sar_ack_comm_code            =>  p_int_data_rec.sar_ack_comm_codes_txt,
2628              x_pell_grant_elig_flag         =>  p_int_data_rec.pell_grant_elig_flag,
2629              x_reprocess_reason_code        =>  p_int_data_rec.reprocess_reason_cd,
2630              x_duplicate_date               =>  p_int_data_rec.duplicate_date,
2631              x_isir_transaction_type        =>  p_int_data_rec.isir_transaction_type,
2632              x_fedral_schl_code_indicator   =>  p_int_data_rec.fedral_schl_type,
2633              x_multi_school_code_flags      =>  p_int_data_rec.multi_school_cd_flags_txt,
2634              x_dup_ssn_indicator            =>  p_int_data_rec.dup_ssn_indicator_flag,
2635              x_system_record_type           =>  'ORIGINAL',
2636              x_payment_isir                 =>  NULL,
2637              x_receipt_status               =>  NULL,
2638              x_isir_receipt_completed       =>  NULL,
2639              x_active_isir                  =>  NULL,
2640              x_fafsa_data_verify_flags      =>  p_int_data_rec.fafsa_data_verification_txt,
2641              x_reject_override_a            =>  p_int_data_rec.reject_override_a_flag,
2642              x_reject_override_c            =>  p_int_data_rec.reject_override_c_flag,
2643              x_parent_marital_status_date   =>  p_int_data_rec.parent_marital_status_date,
2644              x_legacy_record_flag           =>  'Y',
2645              x_father_first_name_initial    => p_int_data_rec.father_first_name_initial_txt,
2646              x_father_step_father_birth_dt  => p_int_data_rec.father_step_father_birth_date,
2647              x_mother_first_name_initial    => p_int_data_rec.mother_first_name_initial_txt,
2648              x_mother_step_mother_birth_dt  => p_int_data_rec.mother_step_mother_birth_date,
2649              x_parents_email_address_txt    => p_int_data_rec.parents_email_address_txt,
2650              x_address_change_type          => p_int_data_rec.address_change_type,
2651              x_cps_pushed_isir_flag         => p_int_data_rec.cps_pushed_isir_flag,
2652              x_electronic_transaction_type  => p_int_data_rec.electronic_transaction_type,
2653              x_sar_c_change_type            => p_int_data_rec.sar_c_change_type,
2654              x_father_ssn_match_type        => p_int_data_rec.father_ssn_match_type,
2655              x_mother_ssn_match_type        => p_int_data_rec.mother_ssn_match_type,
2656              x_reject_override_g_flag       => p_int_data_rec.reject_override_g_flag,
2657              x_dhs_verification_num_txt     => p_int_data_rec.dhs_verification_num_txt,
2658              x_data_file_name_txt           => p_int_data_rec.data_file_name_txt,
2659              x_message_class_txt            => p_int_data_rec.message_class_txt,
2660              x_reject_override_3_flag       => p_int_data_rec.reject_override_3_flag,
2661              x_reject_override_12_flag      => p_int_data_rec.reject_override_12_flag,
2662              x_reject_override_j_flag       => p_int_data_rec.reject_override_j_flag,
2663              x_reject_override_k_flag       => p_int_data_rec.reject_override_k_flag,
2664              x_rejected_status_change_flag  => p_int_data_rec.rejected_status_change_flag,
2665              x_verification_selection_flag  => p_int_data_rec.verification_selection_flag
2666             );
2667 
2668              pv_isir_id :=l_isir_id ;
2669 
2670    END insert_row;
2671 
2672      PROCEDURE nslds_insert_row(p_int_data_rec IN c_int_data%ROWTYPE,
2673                                 p_base_id      IN NUMBER,
2674                                 p_isir_id      IN NUMBER)
2675              AS
2676     /*
2677     ||  Created By : rasahoo
2678     ||  Created On : 03-June-2003
2679     ||  Purpose : Insert  NSLDS data
2680     ||  Known limitations, enhancements or remarks :
2681     ||  Change History :
2682     ||  Who             When            What
2683     ||  (reverse chronological order - newest change first)
2684     */
2685       l_rowid        VARCHAR2(30);
2686       l_nslds_id     NUMBER;
2687 
2688 
2689    BEGIN
2690              l_rowid := NULL;
2691              l_nslds_id := NULL;
2692 
2693         igf_ap_nslds_data_pkg.insert_row(
2694              x_mode                                => 'R',
2695              x_rowid                               => l_rowid,
2696              x_nslds_id                            => l_nslds_id,
2697              x_isir_id                             => p_isir_id,
2698              x_base_id                             => p_base_id,
2699              x_nslds_transaction_num               => p_int_data_rec.transaction_num_txt,
2700              x_nslds_database_results_f            => p_int_data_rec.nslds_database_results_type,
2701              x_nslds_f                             => p_int_data_rec.nslds_flag,
2702              x_nslds_pell_overpay_f                => p_int_data_rec.nslds_pell_overpay_type,
2703              x_nslds_pell_overpay_contact          => p_int_data_rec.nslds_pell_overpay_contact_txt,
2704              x_nslds_seog_overpay_f                => p_int_data_rec.nslds_seog_overpay_type,
2705              x_nslds_seog_overpay_contact          => p_int_data_rec.nslds_seog_overpay_contact_txt,
2706              x_nslds_perkins_overpay_f             => p_int_data_rec.nslds_perkins_overpay_type,
2707              x_nslds_perkins_overpay_cntct         => p_int_data_rec.nslds_perkins_ovrpay_cntct_txt,
2708              x_nslds_defaulted_loan_f              => p_int_data_rec.nslds_defaulted_loan_flag,
2709              x_nslds_dischged_loan_chng_f          => p_int_data_rec.nslds_discharged_loan_type,
2710              x_nslds_satis_repay_f                 => p_int_data_rec.nslds_satis_repay_flag,
2711              x_nslds_act_bankruptcy_f              => p_int_data_rec.nslds_act_bankruptcy_flag,
2712              x_nslds_agg_subsz_out_prin_bal        => p_int_data_rec.nslds_agg_subsz_out_pbal_amt,
2713              x_nslds_agg_unsbz_out_prin_bal        => p_int_data_rec.nslds_agg_unsbz_out_pbal_amt,
2714              x_nslds_agg_comb_out_prin_bal         => p_int_data_rec.nslds_agg_comb_out_pbal_amt,
2715              x_nslds_agg_cons_out_prin_bal         => p_int_data_rec.nslds_agg_cons_out_pbal_amt,
2716              x_nslds_agg_subsz_pend_dismt          => p_int_data_rec.nslds_agg_subsz_pend_disb_amt,
2717              x_nslds_agg_unsbz_pend_dismt          => p_int_data_rec.nslds_agg_unsbz_pend_disb_amt,
2718              x_nslds_agg_comb_pend_dismt           => p_int_data_rec.nslds_agg_comb_pend_disb_amt,
2719              x_nslds_agg_subsz_total               => p_int_data_rec.nslds_agg_subsz_total_amt,
2720              x_nslds_agg_unsbz_total               => p_int_data_rec.nslds_agg_unsbz_total_amt,
2721              x_nslds_agg_comb_total                => p_int_data_rec.nslds_agg_comb_total_amt,
2722              x_nslds_agg_consd_total               => p_int_data_rec.nslds_agg_consd_total_amt,
2723              x_nslds_perkins_out_bal               => p_int_data_rec.nslds_perkins_out_bal_amt,
2724              x_nslds_perkins_cur_yr_dismnt         => p_int_data_rec.nslds_perkins_cur_yr_disb_amt,
2725              x_nslds_default_loan_chng_f           => p_int_data_rec.nslds_default_loan_chng_flag,
2726              x_nslds_discharged_loan_f             => p_int_data_rec.nslds_dischged_loan_chng_flag,
2727              x_nslds_satis_repay_chng_f            => p_int_data_rec.nslds_satis_repay_chng_flag,
2728              x_nslds_act_bnkrupt_chng_f            => p_int_data_rec.nslds_act_bnkrupt_chng_flag,
2729              x_nslds_overpay_chng_f                => p_int_data_rec.nslds_overpay_chng_flag,
2730              x_nslds_agg_loan_chng_f               => p_int_data_rec.nslds_agg_loan_chng_flag,
2731              x_nslds_perkins_loan_chng_f           => p_int_data_rec.nslds_perkins_loan_chng_flag,
2732              x_nslds_pell_paymnt_chng_f            => p_int_data_rec.nslds_pell_paymnt_chng_flag,
2733              x_nslds_addtnl_pell_f                 => p_int_data_rec.nslds_addtnl_pell_flag,
2734              x_nslds_addtnl_loan_f                 => p_int_data_rec.nslds_addtnl_loan_flag,
2735              x_direct_loan_mas_prom_nt_f           => p_int_data_rec.direct_loan_mas_prom_nt_type,
2736              x_nslds_pell_seq_num_1                => p_int_data_rec.nslds_pell_1_seq_num,
2737              x_nslds_pell_verify_f_1               => p_int_data_rec.nslds_pell_1_verify_f_txt,
2738              x_nslds_pell_efc_1                    => p_int_data_rec.nslds_pell_1_efc_amt,
2739              x_nslds_pell_school_code_1            => p_int_data_rec.nslds_pell_1_school_num,
2740              x_nslds_pell_transcn_num_1            => p_int_data_rec.nslds_pell_1_transcn_num,
2741              x_nslds_pell_last_updt_dt_1           => p_int_data_rec.nslds_pell_1_last_updt_date,
2742              x_nslds_pell_scheduled_amt_1          => p_int_data_rec.nslds_pell_1_scheduled_amt,
2743              x_nslds_pell_amt_paid_todt_1          => p_int_data_rec.nslds_pell_1_paid_todt_amt,
2744              x_nslds_pell_remng_amt_1              => p_int_data_rec.nslds_pell_1_remng_amt,
2745              x_nslds_pell_pc_schd_awd_us_1         => p_int_data_rec.nslds_pell_1_pc_schawd_use_amt,
2746              x_nslds_pell_award_amt_1              => p_int_data_rec.nslds_pell_1_award_amt,
2747              x_nslds_pell_seq_num_2                => p_int_data_rec.nslds_pell_2_seq_num,
2748              x_nslds_pell_verify_f_2               => p_int_data_rec.nslds_pell_2_verify_f_txt,
2749              x_nslds_pell_efc_2                    => p_int_data_rec.nslds_pell_2_efc_amt,
2750              x_nslds_pell_school_code_2            => p_int_data_rec.nslds_pell_2_school_num,
2751              x_nslds_pell_transcn_num_2            => p_int_data_rec.nslds_pell_2_transcn_num,
2752              x_nslds_pell_last_updt_dt_2           => p_int_data_rec.nslds_pell_2_last_updt_date,
2753              x_nslds_pell_scheduled_amt_2          => p_int_data_rec.nslds_pell_2_scheduled_amt,
2754              x_nslds_pell_amt_paid_todt_2          => p_int_data_rec.nslds_pell_2_paid_todt_amt,
2755              x_nslds_pell_remng_amt_2              => p_int_data_rec.nslds_pell_2_remng_amt,
2756              x_nslds_pell_pc_schd_awd_us_2         => p_int_data_rec.nslds_pell_2_pc_schawd_use_amt,
2757              x_nslds_pell_award_amt_2              => p_int_data_rec.nslds_pell_2_award_amt,
2758              x_nslds_pell_seq_num_3                => p_int_data_rec.nslds_pell_3_seq_num,
2759              x_nslds_pell_verify_f_3               => p_int_data_rec.nslds_pell_3_verify_f_txt,
2760              x_nslds_pell_efc_3                    => p_int_data_rec.nslds_pell_3_efc_amt,
2761              x_nslds_pell_school_code_3            => p_int_data_rec.nslds_pell_3_school_num,
2762              x_nslds_pell_transcn_num_3            => p_int_data_rec.nslds_pell_3_transcn_num,
2763              x_nslds_pell_last_updt_dt_3           => p_int_data_rec.nslds_pell_3_last_updt_date,
2764              x_nslds_pell_scheduled_amt_3          => p_int_data_rec.nslds_pell_3_scheduled_amt,
2765              x_nslds_pell_amt_paid_todt_3          => p_int_data_rec.nslds_pell_3_paid_todt_amt,
2766              x_nslds_pell_remng_amt_3              => p_int_data_rec.nslds_pell_3_remng_amt,
2767              x_nslds_pell_pc_schd_awd_us_3         => p_int_data_rec.nslds_pell_3_pc_schawd_use_amt,
2768              x_nslds_pell_award_amt_3              => p_int_data_rec.nslds_pell_3_award_amt,
2769              x_nslds_loan_seq_num_1                => p_int_data_rec.nslds_loan_1_seq_num,
2770              x_nslds_loan_type_code_1              => p_int_data_rec.nslds_loan_1_type,
2771              x_nslds_loan_chng_f_1                 => p_int_data_rec.nslds_loan_1_chng_flag,
2772              x_nslds_loan_prog_code_1              => p_int_data_rec.nslds_loan_1_prog_cd,
2773              x_nslds_loan_net_amnt_1               => p_int_data_rec.nslds_loan_1_net_amt,
2774              x_nslds_loan_cur_st_code_1            => p_int_data_rec.nslds_loan_1_cur_st_cd,
2775              x_nslds_loan_cur_st_date_1            => p_int_data_rec.nslds_loan_1_cur_st_date,
2776              x_nslds_loan_agg_pr_bal_1             => p_int_data_rec.nslds_loan_1_agg_pr_bal_amt,
2777              x_nslds_loan_out_pr_bal_dt_1          => p_int_data_rec.nslds_loan_1_out_pr_bal_date,
2778              x_nslds_loan_begin_dt_1               => p_int_data_rec.nslds_loan_1_begin_date,
2779              x_nslds_loan_end_dt_1                 => p_int_data_rec.nslds_loan_1_end_date,
2780              x_nslds_loan_ga_code_1                => p_int_data_rec.nslds_loan_1_ga_cd,
2781              x_nslds_loan_cont_type_1              => p_int_data_rec.nslds_loan_1_cont_type,
2782              x_nslds_loan_schol_code_1             => p_int_data_rec.nslds_loan_1_schol_cd,
2783              x_nslds_loan_cont_code_1              => p_int_data_rec.nslds_loan_1_cont_cd,
2784              x_nslds_loan_grade_lvl_1              => p_int_data_rec.nslds_loan_1_grade_lvl_txt,
2785              x_nslds_loan_xtr_unsbz_ln_f_1         => p_int_data_rec.nslds_loan_1_xtr_unsbz_ln_type,
2786              x_nslds_loan_capital_int_f_1          => p_int_data_rec.nslds_loan_1_capital_int_flag,
2787              x_nslds_loan_seq_num_2                => p_int_data_rec.nslds_loan_2_seq_num,
2788              x_nslds_loan_type_code_2              => p_int_data_rec.nslds_loan_2_type,
2789              x_nslds_loan_chng_f_2                 => p_int_data_rec.nslds_loan_2_chng_flag,
2790              x_nslds_loan_prog_code_2              => p_int_data_rec.nslds_loan_2_prog_cd,
2791              x_nslds_loan_net_amnt_2               => p_int_data_rec.nslds_loan_2_net_amt,
2792              x_nslds_loan_cur_st_code_2            => p_int_data_rec.nslds_loan_2_cur_st_cd,
2793              x_nslds_loan_cur_st_date_2            => p_int_data_rec.nslds_loan_2_cur_st_date,
2794              x_nslds_loan_agg_pr_bal_2             => p_int_data_rec.nslds_loan_2_agg_pr_bal_amt,
2795              x_nslds_loan_out_pr_bal_dt_2          => p_int_data_rec.nslds_loan_2_out_pr_bal_date,
2796              x_nslds_loan_begin_dt_2               => p_int_data_rec.nslds_loan_2_begin_date,
2797              x_nslds_loan_end_dt_2                 => p_int_data_rec.nslds_loan_2_end_date,
2798              x_nslds_loan_ga_code_2                => p_int_data_rec.nslds_loan_2_ga_cd,
2799              x_nslds_loan_cont_type_2              => p_int_data_rec.nslds_loan_2_cont_type,
2800              x_nslds_loan_schol_code_2             => p_int_data_rec.nslds_loan_2_schol_cd,
2801              x_nslds_loan_cont_code_2              => p_int_data_rec.nslds_loan_2_cont_cd,
2802              x_nslds_loan_grade_lvl_2              => p_int_data_rec.nslds_loan_2_grade_lvl_txt,
2803              x_nslds_loan_xtr_unsbz_ln_f_2         => p_int_data_rec.nslds_loan_2_xtr_unsbz_ln_type,
2804              x_nslds_loan_capital_int_f_2          => p_int_data_rec.nslds_loan_2_capital_int_flag,
2805              x_nslds_loan_seq_num_3                => p_int_data_rec.nslds_loan_3_seq_num,
2806              x_nslds_loan_type_code_3              => p_int_data_rec.nslds_loan_3_type,
2807              x_nslds_loan_chng_f_3                 => p_int_data_rec.nslds_loan_3_chng_flag,
2808              x_nslds_loan_prog_code_3              => p_int_data_rec.nslds_loan_3_prog_cd,
2809              x_nslds_loan_net_amnt_3               => p_int_data_rec.nslds_loan_3_net_amt,
2810              x_nslds_loan_cur_st_code_3            => p_int_data_rec.nslds_loan_3_cur_st_cd,
2811              x_nslds_loan_cur_st_date_3            => p_int_data_rec.nslds_loan_3_cur_st_date,
2812              x_nslds_loan_agg_pr_bal_3             => p_int_data_rec.nslds_loan_3_agg_pr_bal_amt,
2813              x_nslds_loan_out_pr_bal_dt_3          => p_int_data_rec.nslds_loan_3_out_pr_bal_date,
2814              x_nslds_loan_begin_dt_3               => p_int_data_rec.nslds_loan_3_begin_date,
2815              x_nslds_loan_end_dt_3                 => p_int_data_rec.nslds_loan_3_end_date,
2816              x_nslds_loan_ga_code_3                => p_int_data_rec.nslds_loan_3_ga_cd,
2817              x_nslds_loan_cont_type_3              => p_int_data_rec.nslds_loan_3_cont_type,
2818              x_nslds_loan_schol_code_3             => p_int_data_rec.nslds_loan_3_schol_cd,
2819              x_nslds_loan_cont_code_3              => p_int_data_rec.nslds_loan_3_cont_cd,
2820              x_nslds_loan_grade_lvl_3              => p_int_data_rec.nslds_loan_3_grade_lvl_txt,
2821              x_nslds_loan_xtr_unsbz_ln_f_3         => p_int_data_rec.nslds_loan_3_xtr_unsbz_ln_type,
2822              x_nslds_loan_capital_int_f_3          => p_int_data_rec.nslds_loan_3_capital_int_flag,
2823              x_nslds_loan_seq_num_4                => p_int_data_rec.nslds_loan_4_seq_num,
2824              x_nslds_loan_type_code_4              => p_int_data_rec.nslds_loan_4_type,
2825              x_nslds_loan_chng_f_4                 => p_int_data_rec.nslds_loan_4_chng_flag,
2826              x_nslds_loan_prog_code_4              => p_int_data_rec.nslds_loan_4_prog_cd,
2827              x_nslds_loan_net_amnt_4               => p_int_data_rec.nslds_loan_4_net_amt,
2828              x_nslds_loan_cur_st_code_4            => p_int_data_rec.nslds_loan_4_cur_st_cd,
2829              x_nslds_loan_cur_st_date_4            => p_int_data_rec.nslds_loan_4_cur_st_date,
2830              x_nslds_loan_agg_pr_bal_4             => p_int_data_rec.nslds_loan_4_agg_pr_bal_amt,
2831              x_nslds_loan_out_pr_bal_dt_4          => p_int_data_rec.nslds_loan_4_out_pr_bal_date,
2832              x_nslds_loan_begin_dt_4               => p_int_data_rec.nslds_loan_4_begin_date,
2833              x_nslds_loan_end_dt_4                 => p_int_data_rec.nslds_loan_4_end_date,
2834              x_nslds_loan_ga_code_4                => p_int_data_rec.nslds_loan_4_ga_cd,
2835              x_nslds_loan_cont_type_4              => p_int_data_rec.nslds_loan_4_cont_type,
2836              x_nslds_loan_schol_code_4             => p_int_data_rec.nslds_loan_4_schol_cd,
2837              x_nslds_loan_cont_code_4              => p_int_data_rec.nslds_loan_4_cont_cd,
2838              x_nslds_loan_grade_lvl_4              => p_int_data_rec.nslds_loan_4_grade_lvl_txt,
2839              x_nslds_loan_xtr_unsbz_ln_f_4         => p_int_data_rec.nslds_loan_4_xtr_unsbz_ln_type,
2840              x_nslds_loan_capital_int_f_4          => p_int_data_rec.nslds_loan_4_capital_int_flag,
2841              x_nslds_loan_seq_num_5                => p_int_data_rec.nslds_loan_5_seq_num,
2842              x_nslds_loan_type_code_5              => p_int_data_rec.nslds_loan_5_type,
2843              x_nslds_loan_chng_f_5                 => p_int_data_rec.nslds_loan_5_chng_flag,
2844              x_nslds_loan_prog_code_5              => p_int_data_rec.nslds_loan_5_prog_cd,
2845              x_nslds_loan_net_amnt_5               => p_int_data_rec.nslds_loan_5_net_amt,
2846              x_nslds_loan_cur_st_code_5            => p_int_data_rec.nslds_loan_5_cur_st_cd,
2847              x_nslds_loan_cur_st_date_5            => p_int_data_rec. nslds_loan_5_cur_st_date,
2848              x_nslds_loan_agg_pr_bal_5             => p_int_data_rec. nslds_loan_5_agg_pr_bal_amt,
2849              x_nslds_loan_out_pr_bal_dt_5          => p_int_data_rec. nslds_loan_5_out_pr_bal_date,
2850              x_nslds_loan_begin_dt_5               => p_int_data_rec. nslds_loan_5_begin_date,
2851              x_nslds_loan_end_dt_5                 => p_int_data_rec. nslds_loan_5_end_date,
2852              x_nslds_loan_ga_code_5                => p_int_data_rec.nslds_loan_5_ga_cd,
2853              x_nslds_loan_cont_type_5              => p_int_data_rec.nslds_loan_5_cont_type,
2854              x_nslds_loan_schol_code_5             => p_int_data_rec.nslds_loan_5_schol_cd,
2855              x_nslds_loan_cont_code_5              => p_int_data_rec.nslds_loan_5_cont_cd,
2856              x_nslds_loan_grade_lvl_5              => p_int_data_rec.nslds_loan_5_grade_lvl_txt,
2857              x_nslds_loan_xtr_unsbz_ln_f_5         => p_int_data_rec.nslds_loan_5_xtr_unsbz_ln_type,
2858              x_nslds_loan_capital_int_f_5          => p_int_data_rec.nslds_loan_5_capital_int_flag,
2859              x_nslds_loan_seq_num_6                => p_int_data_rec.nslds_loan_6_seq_num,
2860              x_nslds_loan_type_code_6              => p_int_data_rec.nslds_loan_6_type,
2861              x_nslds_loan_chng_f_6                 => p_int_data_rec.nslds_loan_6_chng_flag,
2862              x_nslds_loan_prog_code_6              => p_int_data_rec.nslds_loan_6_prog_cd,
2863              x_nslds_loan_net_amnt_6               => p_int_data_rec.nslds_loan_6_net_amt,
2864              x_nslds_loan_cur_st_code_6            => p_int_data_rec.nslds_loan_6_cur_st_cd,
2865              x_nslds_loan_cur_st_date_6            => p_int_data_rec.nslds_loan_6_cur_st_date,
2866              x_nslds_loan_agg_pr_bal_6             => p_int_data_rec.nslds_loan_6_agg_pr_bal_amt,
2867              x_nslds_loan_out_pr_bal_dt_6          => p_int_data_rec.nslds_loan_6_out_pr_bal_date,
2868              x_nslds_loan_begin_dt_6               => p_int_data_rec.nslds_loan_6_begin_date,
2869              x_nslds_loan_end_dt_6                 => p_int_data_rec.nslds_loan_6_end_date,
2870              x_nslds_loan_ga_code_6                => p_int_data_rec.nslds_loan_6_ga_cd,
2871              x_nslds_loan_cont_type_6              => p_int_data_rec.nslds_loan_6_cont_type,
2872              x_nslds_loan_schol_code_6             => p_int_data_rec.nslds_loan_6_schol_cd,
2873              x_nslds_loan_cont_code_6              => p_int_data_rec.nslds_loan_6_cont_cd,
2874              x_nslds_loan_grade_lvl_6              => p_int_data_rec.nslds_loan_6_grade_lvl_txt,
2875              x_nslds_loan_xtr_unsbz_ln_f_6         => p_int_data_rec.nslds_loan_6_xtr_unsbz_ln_type,
2876              x_nslds_loan_capital_int_f_6          => p_int_data_rec.nslds_loan_6_capital_int_flag,
2877              x_nslds_loan_last_d_amt_1             => p_int_data_rec.nslds_loan_1_last_disb_amt,
2878              x_nslds_loan_last_d_date_1            => p_int_data_rec.NSLDS_LOAN_1_LAST_DISB_DATE,
2879              x_nslds_loan_last_d_amt_2             => p_int_data_rec.nslds_loan_2_last_disb_amt,
2880              x_nslds_loan_last_d_date_2            => p_int_data_rec.nslds_loan_2_last_disb_date,
2881              x_nslds_loan_last_d_amt_3             => p_int_data_rec.nslds_loan_3_last_disb_amt,
2882              x_nslds_loan_last_d_date_3            => p_int_data_rec.nslds_loan_3_last_disb_date,
2883              x_nslds_loan_last_d_amt_4             => p_int_data_rec.nslds_loan_4_last_disb_amt,
2884              x_nslds_loan_last_d_date_4            => p_int_data_rec.nslds_loan_4_last_disb_date,
2885              x_nslds_loan_last_d_amt_5             => p_int_data_rec.nslds_loan_5_last_disb_amt,
2886              x_nslds_loan_last_d_date_5            => p_int_data_rec.nslds_loan_5_last_disb_date,
2887              x_nslds_loan_last_d_amt_6             => p_int_data_rec.nslds_loan_6_last_disb_amt,
2888              x_nslds_loan_last_d_date_6            => p_int_data_rec.nslds_loan_6_last_disb_date,
2889              x_dlp_master_prom_note_flag           => p_int_data_rec.dlp_master_prom_note_type,
2890              x_subsidized_loan_limit_type          => p_int_data_rec.subsidized_loan_limit_type,
2891              x_combined_loan_limit_type            => p_int_data_rec.combined_loan_limit_type,
2892              x_transaction_num_txt                 => p_int_data_rec.transaction_num_txt
2893              );
2894 
2895  END nslds_insert_row;
2896 
2897  PROCEDURE nslds_update_row(p_int_data_rec IN c_int_data%ROWTYPE,
2898                             p_base_id      IN NUMBER,
2899           p_rowid        IN VARCHAR2,
2900           p_nslds_id     IN NUMBER,
2901           p_isir_id      IN NUMBER)
2902               AS
2903      /*
2904     ||  Created By : rasahoo
2905     ||  Created On : 03-June-2003
2906     ||  Purpose : Update  NSLDS data
2907     ||  Known limitations, enhancements or remarks :
2908     ||  Change History :
2909     ||  Who             When            What
2910     ||  (reverse chronological order - newest change first)
2911     */
2912 
2913 
2914   BEGIN
2915 
2916   igf_ap_nslds_data_pkg.update_row(
2917              x_mode                                  => 'R',
2918              x_rowid                                 => p_rowid,
2919              x_nslds_id                              => p_nslds_id,
2920              x_isir_id                               => p_isir_id,
2921              x_base_id                               => p_base_id,
2922              x_nslds_transaction_num               => p_int_data_rec.transaction_num_txt,
2923              x_nslds_database_results_f            => p_int_data_rec.nslds_database_results_type,
2924              x_nslds_f                             => p_int_data_rec.nslds_flag,
2925              x_nslds_pell_overpay_f                => p_int_data_rec.nslds_pell_overpay_type,
2926              x_nslds_pell_overpay_contact          => p_int_data_rec.nslds_pell_overpay_contact_txt,
2927              x_nslds_seog_overpay_f                => p_int_data_rec.nslds_seog_overpay_type,
2928              x_nslds_seog_overpay_contact          => p_int_data_rec.nslds_seog_overpay_contact_txt,
2929              x_nslds_perkins_overpay_f             => p_int_data_rec.nslds_perkins_overpay_type,
2930              x_nslds_perkins_overpay_cntct         => p_int_data_rec.nslds_perkins_ovrpay_cntct_txt,
2931              x_nslds_defaulted_loan_f              => p_int_data_rec.nslds_defaulted_loan_flag,
2932              x_nslds_dischged_loan_chng_f          => p_int_data_rec.nslds_discharged_loan_type,
2933              x_nslds_satis_repay_f                 => p_int_data_rec.nslds_satis_repay_flag,
2934              x_nslds_act_bankruptcy_f              => p_int_data_rec.nslds_act_bankruptcy_flag,
2935              x_nslds_agg_subsz_out_prin_bal        => p_int_data_rec.nslds_agg_subsz_out_pbal_amt,
2936              x_nslds_agg_unsbz_out_prin_bal        => p_int_data_rec.nslds_agg_unsbz_out_pbal_amt,
2937              x_nslds_agg_comb_out_prin_bal         => p_int_data_rec.nslds_agg_comb_out_pbal_amt,
2938              x_nslds_agg_cons_out_prin_bal         => p_int_data_rec.nslds_agg_cons_out_pbal_amt,
2939              x_nslds_agg_subsz_pend_dismt          => p_int_data_rec.nslds_agg_subsz_pend_disb_amt,
2940              x_nslds_agg_unsbz_pend_dismt          => p_int_data_rec.nslds_agg_unsbz_pend_disb_amt,
2941              x_nslds_agg_comb_pend_dismt           => p_int_data_rec.nslds_agg_comb_pend_disb_amt,
2942              x_nslds_agg_subsz_total               => p_int_data_rec.nslds_agg_subsz_total_amt,
2943              x_nslds_agg_unsbz_total               => p_int_data_rec.nslds_agg_unsbz_total_amt,
2944              x_nslds_agg_comb_total                => p_int_data_rec.nslds_agg_comb_total_amt,
2945              x_nslds_agg_consd_total               => p_int_data_rec.nslds_agg_consd_total_amt,
2946              x_nslds_perkins_out_bal               => p_int_data_rec.nslds_perkins_out_bal_amt,
2947              x_nslds_perkins_cur_yr_dismnt         => p_int_data_rec.nslds_perkins_cur_yr_disb_amt,
2948              x_nslds_default_loan_chng_f           => p_int_data_rec.nslds_default_loan_chng_flag,
2949              x_nslds_discharged_loan_f             => p_int_data_rec.nslds_dischged_loan_chng_flag,
2950              x_nslds_satis_repay_chng_f            => p_int_data_rec.nslds_satis_repay_chng_flag,
2951              x_nslds_act_bnkrupt_chng_f            => p_int_data_rec.nslds_act_bnkrupt_chng_flag,
2952              x_nslds_overpay_chng_f                => p_int_data_rec.nslds_overpay_chng_flag,
2953              x_nslds_agg_loan_chng_f               => p_int_data_rec.nslds_agg_loan_chng_flag,
2954              x_nslds_perkins_loan_chng_f           => p_int_data_rec.nslds_perkins_loan_chng_flag,
2955              x_nslds_pell_paymnt_chng_f            => p_int_data_rec.nslds_pell_paymnt_chng_flag,
2956              x_nslds_addtnl_pell_f                 => p_int_data_rec.nslds_addtnl_pell_flag,
2957              x_nslds_addtnl_loan_f                 => p_int_data_rec.nslds_addtnl_loan_flag,
2958              x_direct_loan_mas_prom_nt_f           => p_int_data_rec.direct_loan_mas_prom_nt_type,
2959              x_nslds_pell_seq_num_1                => p_int_data_rec.nslds_pell_1_seq_num,
2960              x_nslds_pell_verify_f_1               => p_int_data_rec.nslds_pell_1_verify_f_txt,
2961              x_nslds_pell_efc_1                    => p_int_data_rec.nslds_pell_1_efc_amt,
2962              x_nslds_pell_school_code_1            => p_int_data_rec.nslds_pell_1_school_num,
2963              x_nslds_pell_transcn_num_1            => p_int_data_rec.nslds_pell_1_transcn_num,
2964              x_nslds_pell_last_updt_dt_1           => p_int_data_rec.nslds_pell_1_last_updt_date,
2965              x_nslds_pell_scheduled_amt_1          => p_int_data_rec.nslds_pell_1_scheduled_amt,
2966              x_nslds_pell_amt_paid_todt_1          => p_int_data_rec.nslds_pell_1_paid_todt_amt,
2967              x_nslds_pell_remng_amt_1              => p_int_data_rec.nslds_pell_1_remng_amt,
2968              x_nslds_pell_pc_schd_awd_us_1         => p_int_data_rec.nslds_pell_1_pc_schawd_use_amt,
2969              x_nslds_pell_award_amt_1              => p_int_data_rec.nslds_pell_1_award_amt,
2970              x_nslds_pell_seq_num_2                => p_int_data_rec.nslds_pell_2_seq_num,
2971              x_nslds_pell_verify_f_2               => p_int_data_rec.nslds_pell_2_verify_f_txt,
2972              x_nslds_pell_efc_2                    => p_int_data_rec.nslds_pell_2_efc_amt,
2973              x_nslds_pell_school_code_2            => p_int_data_rec.nslds_pell_2_school_num,
2974              x_nslds_pell_transcn_num_2            => p_int_data_rec.nslds_pell_2_transcn_num,
2975              x_nslds_pell_last_updt_dt_2           => p_int_data_rec.nslds_pell_2_last_updt_date,
2976              x_nslds_pell_scheduled_amt_2          => p_int_data_rec.nslds_pell_2_scheduled_amt,
2977              x_nslds_pell_amt_paid_todt_2          => p_int_data_rec.nslds_pell_2_paid_todt_amt,
2978              x_nslds_pell_remng_amt_2              => p_int_data_rec.nslds_pell_2_remng_amt,
2979              x_nslds_pell_pc_schd_awd_us_2         => p_int_data_rec.nslds_pell_2_pc_schawd_use_amt,
2980              x_nslds_pell_award_amt_2              => p_int_data_rec.nslds_pell_2_award_amt,
2981              x_nslds_pell_seq_num_3                => p_int_data_rec.nslds_pell_3_seq_num,
2982              x_nslds_pell_verify_f_3               => p_int_data_rec.nslds_pell_3_verify_f_txt,
2983              x_nslds_pell_efc_3                    => p_int_data_rec.nslds_pell_3_efc_amt,
2984              x_nslds_pell_school_code_3            => p_int_data_rec.nslds_pell_3_school_num,
2985              x_nslds_pell_transcn_num_3            => p_int_data_rec.nslds_pell_3_transcn_num,
2986              x_nslds_pell_last_updt_dt_3           => p_int_data_rec.nslds_pell_3_last_updt_date,
2987              x_nslds_pell_scheduled_amt_3          => p_int_data_rec.nslds_pell_3_scheduled_amt,
2988              x_nslds_pell_amt_paid_todt_3          => p_int_data_rec.nslds_pell_3_paid_todt_amt,
2989              x_nslds_pell_remng_amt_3              => p_int_data_rec.nslds_pell_3_remng_amt,
2990              x_nslds_pell_pc_schd_awd_us_3         => p_int_data_rec.nslds_pell_3_pc_schawd_use_amt,
2991              x_nslds_pell_award_amt_3              => p_int_data_rec.nslds_pell_3_award_amt,
2992              x_nslds_loan_seq_num_1                => p_int_data_rec.nslds_loan_1_seq_num,
2993              x_nslds_loan_type_code_1              => p_int_data_rec.nslds_loan_1_type,
2994              x_nslds_loan_chng_f_1                 => p_int_data_rec.nslds_loan_1_chng_flag,
2995              x_nslds_loan_prog_code_1              => p_int_data_rec.nslds_loan_1_prog_cd,
2996              x_nslds_loan_net_amnt_1               => p_int_data_rec.nslds_loan_1_net_amt,
2997              x_nslds_loan_cur_st_code_1            => p_int_data_rec.nslds_loan_1_cur_st_cd,
2998              x_nslds_loan_cur_st_date_1            => p_int_data_rec.nslds_loan_1_cur_st_date,
2999              x_nslds_loan_agg_pr_bal_1             => p_int_data_rec.nslds_loan_1_agg_pr_bal_amt,
3000              x_nslds_loan_out_pr_bal_dt_1          => p_int_data_rec.nslds_loan_1_out_pr_bal_date,
3001              x_nslds_loan_begin_dt_1               => p_int_data_rec.nslds_loan_1_begin_date,
3002              x_nslds_loan_end_dt_1                 => p_int_data_rec.nslds_loan_1_end_date,
3003              x_nslds_loan_ga_code_1                => p_int_data_rec.nslds_loan_1_ga_cd,
3004              x_nslds_loan_cont_type_1              => p_int_data_rec.nslds_loan_1_cont_type,
3005              x_nslds_loan_schol_code_1             => p_int_data_rec.nslds_loan_1_schol_cd,
3006              x_nslds_loan_cont_code_1              => p_int_data_rec.nslds_loan_1_cont_cd,
3007              x_nslds_loan_grade_lvl_1              => p_int_data_rec.nslds_loan_1_grade_lvl_txt,
3008              x_nslds_loan_xtr_unsbz_ln_f_1         => p_int_data_rec.nslds_loan_1_xtr_unsbz_ln_type,
3009              x_nslds_loan_capital_int_f_1          => p_int_data_rec.nslds_loan_1_capital_int_flag,
3010              x_nslds_loan_seq_num_2                => p_int_data_rec.nslds_loan_2_seq_num,
3011              x_nslds_loan_type_code_2              => p_int_data_rec.nslds_loan_2_type,
3012              x_nslds_loan_chng_f_2                 => p_int_data_rec.nslds_loan_2_chng_flag,
3013              x_nslds_loan_prog_code_2              => p_int_data_rec.nslds_loan_2_prog_cd,
3014              x_nslds_loan_net_amnt_2               => p_int_data_rec.nslds_loan_2_net_amt,
3015              x_nslds_loan_cur_st_code_2            => p_int_data_rec.nslds_loan_2_cur_st_cd,
3016              x_nslds_loan_cur_st_date_2            => p_int_data_rec.nslds_loan_2_cur_st_date,
3017              x_nslds_loan_agg_pr_bal_2             => p_int_data_rec.nslds_loan_2_agg_pr_bal_amt,
3018              x_nslds_loan_out_pr_bal_dt_2          => p_int_data_rec.nslds_loan_2_out_pr_bal_date,
3019              x_nslds_loan_begin_dt_2               => p_int_data_rec.nslds_loan_2_begin_date,
3020              x_nslds_loan_end_dt_2                 => p_int_data_rec.nslds_loan_2_end_date,
3021              x_nslds_loan_ga_code_2                => p_int_data_rec.nslds_loan_2_ga_cd,
3022              x_nslds_loan_cont_type_2              => p_int_data_rec.nslds_loan_2_cont_type,
3023              x_nslds_loan_schol_code_2             => p_int_data_rec.nslds_loan_2_schol_cd,
3024              x_nslds_loan_cont_code_2              => p_int_data_rec.nslds_loan_2_cont_cd,
3025              x_nslds_loan_grade_lvl_2              => p_int_data_rec.nslds_loan_2_grade_lvl_txt,
3026              x_nslds_loan_xtr_unsbz_ln_f_2         => p_int_data_rec.nslds_loan_2_xtr_unsbz_ln_type,
3027              x_nslds_loan_capital_int_f_2          => p_int_data_rec.nslds_loan_2_capital_int_flag,
3028              x_nslds_loan_seq_num_3                => p_int_data_rec.nslds_loan_3_seq_num,
3029              x_nslds_loan_type_code_3              => p_int_data_rec.nslds_loan_3_type,
3030              x_nslds_loan_chng_f_3                 => p_int_data_rec.nslds_loan_3_chng_flag,
3031              x_nslds_loan_prog_code_3              => p_int_data_rec.nslds_loan_3_prog_cd,
3032              x_nslds_loan_net_amnt_3               => p_int_data_rec.nslds_loan_3_net_amt,
3033              x_nslds_loan_cur_st_code_3            => p_int_data_rec.nslds_loan_3_cur_st_cd,
3034              x_nslds_loan_cur_st_date_3            => p_int_data_rec. nslds_loan_3_cur_st_date,
3035              x_nslds_loan_agg_pr_bal_3             => p_int_data_rec. nslds_loan_3_agg_pr_bal_amt,
3036              x_nslds_loan_out_pr_bal_dt_3          => p_int_data_rec. nslds_loan_3_out_pr_bal_date,
3037              x_nslds_loan_begin_dt_3               => p_int_data_rec. nslds_loan_3_begin_date,
3038              x_nslds_loan_end_dt_3                 => p_int_data_rec. nslds_loan_3_end_date,
3039              x_nslds_loan_ga_code_3                => p_int_data_rec.nslds_loan_3_ga_cd,
3040              x_nslds_loan_cont_type_3              => p_int_data_rec.nslds_loan_3_cont_type,
3041              x_nslds_loan_schol_code_3             => p_int_data_rec.nslds_loan_3_schol_cd,
3042              x_nslds_loan_cont_code_3              => p_int_data_rec.nslds_loan_3_cont_cd,
3043              x_nslds_loan_grade_lvl_3              => p_int_data_rec.nslds_loan_3_grade_lvl_txt,
3044              x_nslds_loan_xtr_unsbz_ln_f_3         => p_int_data_rec.nslds_loan_3_xtr_unsbz_ln_type,
3045              x_nslds_loan_capital_int_f_3          => p_int_data_rec.nslds_loan_3_capital_int_flag,
3046              x_nslds_loan_seq_num_4                => p_int_data_rec.nslds_loan_4_seq_num,
3047              x_nslds_loan_type_code_4              => p_int_data_rec.nslds_loan_4_type,
3048              x_nslds_loan_chng_f_4                 => p_int_data_rec.nslds_loan_4_chng_flag,
3049              x_nslds_loan_prog_code_4              => p_int_data_rec.nslds_loan_4_prog_cd,
3050              x_nslds_loan_net_amnt_4               => p_int_data_rec.nslds_loan_4_net_amt,
3051              x_nslds_loan_cur_st_code_4            => p_int_data_rec.nslds_loan_4_cur_st_cd,
3052              x_nslds_loan_cur_st_date_4            => p_int_data_rec.nslds_loan_4_cur_st_date,
3053              x_nslds_loan_agg_pr_bal_4             => p_int_data_rec.nslds_loan_4_agg_pr_bal_amt,
3054              x_nslds_loan_out_pr_bal_dt_4          => p_int_data_rec.nslds_loan_4_out_pr_bal_date,
3055              x_nslds_loan_begin_dt_4               => p_int_data_rec.nslds_loan_4_begin_date,
3056              x_nslds_loan_end_dt_4                 => p_int_data_rec.nslds_loan_4_end_date,
3057              x_nslds_loan_ga_code_4                => p_int_data_rec.nslds_loan_4_ga_cd,
3058              x_nslds_loan_cont_type_4              => p_int_data_rec.nslds_loan_4_cont_type,
3059              x_nslds_loan_schol_code_4             => p_int_data_rec.nslds_loan_4_schol_cd,
3060              x_nslds_loan_cont_code_4              => p_int_data_rec.nslds_loan_4_cont_cd,
3061              x_nslds_loan_grade_lvl_4              => p_int_data_rec.nslds_loan_4_grade_lvl_txt,
3062              x_nslds_loan_xtr_unsbz_ln_f_4         => p_int_data_rec.nslds_loan_4_xtr_unsbz_ln_type,
3063              x_nslds_loan_capital_int_f_4          => p_int_data_rec.nslds_loan_4_capital_int_flag,
3064              x_nslds_loan_seq_num_5                => p_int_data_rec.nslds_loan_5_seq_num,
3065              x_nslds_loan_type_code_5              => p_int_data_rec.nslds_loan_5_type,
3066              x_nslds_loan_chng_f_5                 => p_int_data_rec.nslds_loan_5_chng_flag,
3067              x_nslds_loan_prog_code_5              => p_int_data_rec.nslds_loan_5_prog_cd,
3068              x_nslds_loan_net_amnt_5               => p_int_data_rec.nslds_loan_5_net_amt,
3069              x_nslds_loan_cur_st_code_5            => p_int_data_rec.nslds_loan_5_cur_st_cd,
3070              x_nslds_loan_cur_st_date_5            => p_int_data_rec. nslds_loan_5_cur_st_date,
3071              x_nslds_loan_agg_pr_bal_5             => p_int_data_rec. nslds_loan_5_agg_pr_bal_amt,
3072              x_nslds_loan_out_pr_bal_dt_5          => p_int_data_rec. nslds_loan_5_out_pr_bal_date,
3073              x_nslds_loan_begin_dt_5               => p_int_data_rec. nslds_loan_5_begin_date,
3074              x_nslds_loan_end_dt_5                 => p_int_data_rec. nslds_loan_5_end_date,
3075              x_nslds_loan_ga_code_5                => p_int_data_rec.nslds_loan_5_ga_cd,
3076              x_nslds_loan_cont_type_5              => p_int_data_rec.nslds_loan_5_cont_type,
3077              x_nslds_loan_schol_code_5             => p_int_data_rec.nslds_loan_5_schol_cd,
3078              x_nslds_loan_cont_code_5              => p_int_data_rec.nslds_loan_5_cont_cd,
3079              x_nslds_loan_grade_lvl_5              => p_int_data_rec.nslds_loan_5_grade_lvl_txt,
3080              x_nslds_loan_xtr_unsbz_ln_f_5         => p_int_data_rec.nslds_loan_5_xtr_unsbz_ln_type,
3081              x_nslds_loan_capital_int_f_5          => p_int_data_rec.nslds_loan_5_capital_int_flag,
3082              x_nslds_loan_seq_num_6                => p_int_data_rec.nslds_loan_6_seq_num,
3083              x_nslds_loan_type_code_6              => p_int_data_rec.nslds_loan_6_type,
3084              x_nslds_loan_chng_f_6                 => p_int_data_rec.nslds_loan_6_chng_flag,
3085              x_nslds_loan_prog_code_6              => p_int_data_rec.nslds_loan_6_prog_cd,
3086              x_nslds_loan_net_amnt_6               => p_int_data_rec.nslds_loan_6_net_amt,
3087              x_nslds_loan_cur_st_code_6            => p_int_data_rec.nslds_loan_6_cur_st_cd,
3088              x_nslds_loan_cur_st_date_6            => p_int_data_rec.nslds_loan_6_cur_st_date,
3089              x_nslds_loan_agg_pr_bal_6             => p_int_data_rec.nslds_loan_6_agg_pr_bal_amt,
3090              x_nslds_loan_out_pr_bal_dt_6          => p_int_data_rec.nslds_loan_6_out_pr_bal_date,
3091              x_nslds_loan_begin_dt_6               => p_int_data_rec.nslds_loan_6_begin_date,
3092              x_nslds_loan_end_dt_6                 => p_int_data_rec.nslds_loan_6_end_date,
3093              x_nslds_loan_ga_code_6                => p_int_data_rec.nslds_loan_6_ga_cd,
3094              x_nslds_loan_cont_type_6              => p_int_data_rec.nslds_loan_6_cont_type,
3095              x_nslds_loan_schol_code_6             => p_int_data_rec.nslds_loan_6_schol_cd,
3096              x_nslds_loan_cont_code_6              => p_int_data_rec.nslds_loan_6_cont_cd,
3097              x_nslds_loan_grade_lvl_6              => p_int_data_rec.nslds_loan_6_grade_lvl_txt,
3098              x_nslds_loan_xtr_unsbz_ln_f_6         => p_int_data_rec.nslds_loan_6_xtr_unsbz_ln_type,
3099              x_nslds_loan_capital_int_f_6          => p_int_data_rec.nslds_loan_6_capital_int_flag,
3100              x_nslds_loan_last_d_amt_1             => p_int_data_rec.nslds_loan_1_last_disb_amt,
3101              x_nslds_loan_last_d_date_1            => p_int_data_rec.NSLDS_LOAN_1_LAST_DISB_DATE,
3102              x_nslds_loan_last_d_amt_2             => p_int_data_rec.nslds_loan_2_last_disb_amt,
3103              x_nslds_loan_last_d_date_2            => p_int_data_rec.nslds_loan_2_last_disb_date,
3104              x_nslds_loan_last_d_amt_3             => p_int_data_rec.nslds_loan_3_last_disb_amt,
3105              x_nslds_loan_last_d_date_3            => p_int_data_rec.nslds_loan_3_last_disb_date,
3106              x_nslds_loan_last_d_amt_4             => p_int_data_rec.nslds_loan_4_last_disb_amt,
3107              x_nslds_loan_last_d_date_4            => p_int_data_rec.nslds_loan_4_last_disb_date,
3108              x_nslds_loan_last_d_amt_5             => p_int_data_rec.nslds_loan_5_last_disb_amt,
3109              x_nslds_loan_last_d_date_5            => p_int_data_rec.nslds_loan_5_last_disb_date,
3110              x_nslds_loan_last_d_amt_6             => p_int_data_rec.nslds_loan_6_last_disb_amt,
3111              x_nslds_loan_last_d_date_6            => p_int_data_rec.nslds_loan_6_last_disb_date,
3112              x_dlp_master_prom_note_flag           => p_int_data_rec.dlp_master_prom_note_type,
3113              x_subsidized_loan_limit_type          => p_int_data_rec.subsidized_loan_limit_type,
3114              x_combined_loan_limit_type            => p_int_data_rec.combined_loan_limit_type,
3115              x_transaction_num_txt                 => p_int_data_rec.transaction_num_txt
3116              );
3117 
3118    END nslds_update_row;
3119 
3120 
3121   PROCEDURE put_meaning(list IN VARCHAR2)
3122          AS
3123            lookups_table    dbms_utility.uncl_array;
3124            -- Get the details of
3125            CURSOR c_meaning(p_lookup_code VARCHAR2,
3126                             p_lookup_type VARCHAR2)
3127            IS
3128            SELECT meaning
3129            FROM igf_lookups_view
3130            WHERE lookup_code=p_lookup_code
3131            AND lookup_type = p_lookup_type
3132            AND enabled_flag = 'Y' ;
3133            c_meaning_rec c_meaning%ROWTYPE;
3134            l_hash_value  NUMBER;
3135            tablen NUMBER;
3136          BEGIN
3137            dbms_utility.comma_to_table(list,tablen,lookups_table);
3138            FOR i IN lookups_table.FIRST .. lookups_table.LAST
3139            LOOP
3140              c_meaning_rec := NULL;
3141              OPEN c_meaning(lookups_table(i),'IGF_AW_LOOKUPS_MSG');
3142              FETCH c_meaning INTO c_meaning_rec;
3143              CLOSE c_meaning;
3144              l_hash_value := dbms_utility.get_hash_value(
3145                                            lookups_table(i),
3146                                            1000,
3147                                            25000);
3148              lookup_meaning_table(l_hash_value).field_name:=lookups_table(i);
3149              lookup_meaning_table(l_hash_value).msg_text:=c_meaning_rec.meaning;
3150           END LOOP;
3151   END put_meaning;
3152 
3153 
3154   PROCEDURE put_hash_values(list         IN VARCHAR2,
3155                             p_award_year IN VARCHAR2)
3156 
3157 
3158   IS
3159   /*
3160   ||  Created By : rasahoo
3161   ||  Created On : 03-June-2003
3162   ||  Purpose : Takes a list of lookup types separated by comma and store those in a pl/sql table.
3163   ||            Generate hash values with corresponding look up code and store in another pl/sql table.
3164   ||  Known limitations, enhancements or remarks :
3165   ||  Change History :
3166   ||  Who             When            What
3167   ||  (reverse chronological order - newest change first)
3168   */
3169         tablen           BINARY_INTEGER      ;
3170         lookups_table    DBMS_UTILITY.uncl_array;
3171         l_hash_value     NUMBER;
3172 
3173 
3174         -- Get the details of
3175         CURSOR c_lookup_values(p_lookup_type VARCHAR2,
3176                                p_award_year  VARCHAR2 )
3177                    IS
3178 
3179              SELECT   LOOKUP_CODE
3180              FROM     IGF_AW_LOOKUPS_VIEW
3181              WHERE    LOOKUP_TYPE = p_lookup_type
3182              AND SYS_AWARD_YEAR =p_award_year
3183              AND enabled_flag = 'Y' ;
3184 
3185              l_lookup_values c_lookup_values%ROWTYPE;
3186 
3187       BEGIN
3188        DBMS_UTILITY.comma_to_table(list,tablen,lookups_table);
3189 
3190        FOR i IN lookups_table.FIRST .. lookups_table.LAST
3191        LOOP
3192 
3193 
3194           FOR rec IN c_lookup_values(lookups_table(i),p_award_year)
3195           LOOP
3196            l_hash_value := DBMS_UTILITY.get_hash_value(
3197                                      RTRIM(LTRIM(lookups_table(i)))||'@*?'||rec.lookup_code,
3198                                      1000,
3199                                      25000);
3200 
3201            lookup_hash_table(l_hash_value):=l_hash_value;
3202 
3203 
3204 
3205           END LOOP;
3206 
3207 
3208 
3209        END LOOP;
3210 
3211 
3212 
3213 
3214   END put_hash_values ;
3215 
3216    FUNCTION  is_lookup_code_exist(p_lookup_code  IN VARCHAR2,
3217                                   p_lookup_type  IN VARCHAR2)
3218    RETURN BOOLEAN AS
3219     /*
3220     ||  Created By : rasahoo
3221     ||  Created On : 03-June-2003
3222     ||  Purpose : Takes look up code and lookup type and generate hash code  and checks whether the hash value (for a lookup code) exists or not
3223     ||  Known limitations, enhancements or remarks :
3224     ||  Change History :
3225     ||  Who             When            What
3226     ||  (reverse chronological order - newest change first)
3227     */
3228   l_hash_value  NUMBER;
3229   l_lookup_type igf_aw_lookups_view. lookup_type%TYPE;
3230   BEGIN
3231 
3232 
3233                l_hash_value := dbms_utility.get_hash_value(
3234                                         RTRIM(LTRIM(p_lookup_type))||'@*?'|| RTRIM(LTRIM(p_lookup_code)),
3235                                        1000,
3236                                        25000);
3237 
3238 
3239 
3240                IF lookup_hash_table.EXISTS(l_hash_value) THEN
3241 
3242                     RETURN TRUE;
3243                ELSE
3244 
3245                     RETURN FALSE;
3246 
3247                END IF;
3248 
3249   END is_lookup_code_exist;
3250 
3251 
3252   PROCEDURE print_message(p_igf_ap_message_table IN igf_ap_message_table) AS
3253         /*
3254         ||  Created By : rasahoo
3255         ||  Created On : 03-June-2003
3256         ||  Purpose : Print the error messages stored in PL/SQL message table.
3257         ||  Known limitations, enhancements or remarks :
3258         ||  Change History :
3259         ||  Who             When            What
3260         ||  (reverse chronological order - newest change first)
3261         */
3262   CURSOR c_lkup_values(p_lookup_code  VARCHAR2 )
3263              IS
3264              SELECT   meaning
3265              FROM     igf_lookups_view
3266              WHERE    lookup_type ='IGF_AW_LOOKUPS_MSG'
3267              AND lookup_code =p_lookup_code
3268              AND enabled_flag = 'Y' ;
3269 
3270              c_lkup_values_err_rec  c_lkup_values%ROWTYPE;
3271              indx NUMBER;
3272   BEGIN
3273         c_lkup_values_err_rec := NULL;
3274         OPEN  c_lkup_values('ERROR');
3275         FETCH c_lkup_values INTO c_lkup_values_err_rec;
3276         CLOSE c_lkup_values;
3277 
3278         IF p_igf_ap_message_table.COUNT<>0 THEN
3279 
3280         FOR indx IN p_igf_ap_message_table.FIRST..p_igf_ap_message_table.LAST
3281 
3282           LOOP
3283 
3284           fnd_file.put_line(fnd_file.log,l_error || l_blank || p_igf_ap_message_table(indx).field_name||' '||p_igf_ap_message_table(indx).msg_text);
3285 
3286           END LOOP;
3287         END IF;
3288   END print_message;
3289 
3290 
3291 
3292 
3293   FUNCTION convert_to_date( pv_org_date IN VARCHAR2)
3294   RETURN DATE
3295   IS
3296     /*
3297     ||  Created By : rasahoo
3298     ||  Created On : 03-June-2003
3299     ||  Purpose :        Converts the valid dates to into the DATE format else return NULL.
3300     ||  Known limitations, enhancements or remarks :
3301     ||  Change History :
3302     ||  Who              When              What
3303     ||  (reverse chronological order - newest change first)
3304     */
3305   ld_date   DATE;
3306   BEGIN
3307     ld_date := fnd_date.chardate_to_date( pv_org_date);
3308     RETURN ld_date;
3309   EXCEPTION
3310     WHEN others THEN
3311     RETURN NULL;
3312   END convert_to_date;
3313 
3314   PROCEDURE get_hash_value( string       IN VARCHAR2,
3315                             l_hash_value OUT NOCOPY NUMBER) AS
3316   /*
3317   ||  Created By : rasahoo
3318   ||  Created On : 03-June-2003
3319   ||  Purpose :  Accepts one string and returns hash value corresponding to that string.
3320   ||  Known limitations, enhancements or remarks :
3321   ||  Change History :
3322   ||  Who             When            What
3323   ||  (reverse chronological order - newest change first)
3324   */
3325 
3326   BEGIN
3327 
3328   l_hash_value := dbms_utility.get_hash_value(string,1000,25000);
3329   END get_hash_value;
3330 
3331 
3332   FUNCTION Val_Name ( l_length IN NUMBER,
3333                     l_value  IN VARCHAR2
3334                   ) RETURN BOOLEAN
3335   AS
3336   /*
3337   ||  Created By : rasahoo
3338   ||  Created On : 03-June-2003
3339   ||  Purpose :   Validate the length of string is less that the length of the field(l_length)
3340   ||              Validate that there are no invalid characters present in the string using
3341   ||              translate function ( check the length of string before and after translation)
3342   ||              Validate that first character is alphabet.
3343   ||              Validate that the second character is NON NUMERIC
3344   ||  Known limitations, enhancements or remarks :
3345   ||  Change History :
3346   ||  Who             When            What
3347   ||  (reverse chronological order - newest change first)
3348   */
3349 
3350   l_char_set VARCHAR2(100) := '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ.,- ';
3351   BEGIN
3352 
3353     IF      l_length < LENGTH(l_value)
3354     OR(TRANSLATE((SUBSTR(UPPER(l_value),1,1)),'ABCDEFGHIJKLMNOPQRSTUVWXYZ',  'AAAAAAAAAAAAAAAAAAAAAAAAAA') <> 'A'      )
3355     OR l_value <> UPPER(l_value)
3356     OR TRANSLATE(SUBSTR(l_value,2,1),'1234567890',  '**********') = '*'
3357     OR NVL(LENGTH(TRIM(TRANSLATE(UPPER(l_value),l_char_set,LPAD(' ',LENGTH(l_char_set),' ' )))),0) > 0
3358     THEN
3359        RETURN FALSE;
3360     ELSE
3361        RETURN TRUE;
3362     END IF;
3363   EXCEPTION
3364     WHEN OTHERS THEN
3365        RETURN FALSE;
3366   END Val_Name;
3367 
3368   FUNCTION Val_Char ( l_length IN NUMBER,
3369                       l_value  IN VARCHAR2
3370           ) RETURN BOOLEAN AS
3371   /*
3372   ||  Created By : rasahoo
3373   ||  Created On : 03-June-2003
3374   ||  Purpose : Validate the length of string is less that the length of the field(l_length)
3375   ||      Validate that there are no invalid characters present in the string using translate function ( check the length of string before and after translation)
3376   ||      Validate that first character is alphabet.
3377   ||      Validate that the second character is NON NUMERIC
3378   ||  Known limitations, enhancements or remarks :
3379   ||  Change History :
3380   ||  Who             When            What
3381   ||  (reverse chronological order - newest change first)
3382   */
3383   l_char_set VARCHAR2(100) := '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-* ';
3384   BEGIN
3385 
3386     IF LENGTH (l_value) > l_length
3387        OR LTRIM (RTRIM(SUBSTR(l_value,1,1))) IS NULL
3388        OR LTRIM(RTRIM(SUBSTR(l_value,1,1))) = '*'
3389        OR NVL(LENGTH(TRIM(TRANSLATE(UPPER(l_value),l_char_set,LPAD(' ',LENGTH(l_char_set),' ' )))),0) > 0
3390        OR   LENGTH (TRANSLATE (l_value,'*','*')) = LENGTH (l_value)
3391        OR   LENGTH (TRANSLATE (l_value,'0123456789','0123456789')) = LENGTH (l_value)
3392     THEN
3393         RETURN FALSE;
3394     ELSE
3395         RETURN TRUE ;
3396     END IF;
3397   EXCEPTION
3398     WHEN OTHERS THEN
3399        RETURN FALSE;
3400   END Val_Char;
3401 
3402   FUNCTION Val_Date ( l_value IN  VARCHAR2)
3403          RETURN BOOLEAN AS
3404   /*
3405   ||  Created By : rasahoo
3406   ||  Created On : 03-June-2003
3407   ||  Purpose :Validate the validity of date
3408   ||         date should be between 01011900 and 31121999
3409   ||  Known limitations, enhancements or remarks :
3410   ||  Change History :
3411   ||  Who             When            What
3412   ||  (reverse chronological order - newest change first)
3413   */
3414   BEGIN
3415 
3416      IF TO_NUMBER(l_value) BETWEEN  19000101  AND  19991231
3417       THEN
3418           RETURN TRUE ;
3419       ELSE
3420           RETURN FALSE;
3421       END IF;
3422   EXCEPTION
3423     WHEN OTHERS THEN
3424        RETURN FALSE;
3425   END Val_Date;
3426   FUNCTION Val_Date_2( l_value IN  VARCHAR2
3427           ) RETURN BOOLEAN  AS
3428   /*
3429   ||  Created By : rasahoo
3430   ||  Created On :  03-June-2003
3431   ||
3432   ||  Purpose :Validate the validity of date
3433   ||           Date should be between 190001 to 20041
3434   ||  Known limitations, enhancements or remarks :
3435   ||  Change History :
3436   ||  Who             When            What
3437   ||  (reverse chronological order - newest change first)
3438   */
3439   BEGIN
3440   IF g_sys_award_year = '0304' THEN
3441        IF  TO_NUMBER(l_value) BETWEEN  190001 AND  200412
3442        THEN
3443           RETURN TRUE;
3444        ELSE
3445           RETURN FALSE;
3446        END IF;
3447    ELSIF g_sys_award_year = '0405' THEN
3448        IF  TO_NUMBER(l_value) BETWEEN  190001 AND  200512
3449        THEN
3450           RETURN TRUE;
3451        ELSE
3452           RETURN FALSE;
3453        END IF;
3454    ELSIF g_sys_award_year = '0506' THEN
3455        IF  TO_NUMBER(l_value) BETWEEN  190001 AND  200612
3456        THEN
3457           RETURN TRUE;
3458        ELSE
3459           RETURN FALSE;
3460        END IF;
3461    ELSIF g_sys_award_year = '0607' THEN
3462        IF  TO_NUMBER(l_value) BETWEEN  190001 AND  200712
3463        THEN
3464           RETURN TRUE;
3465        ELSE
3466           RETURN FALSE;
3467        END IF;
3468    END IF;
3469 
3470   EXCEPTION
3471     WHEN OTHERS THEN
3472        RETURN FALSE;
3473   END Val_Date_2;
3474 
3475   FUNCTION Val_Email( l_length IN NUMBER,
3476                       l_value  IN VARCHAR2
3477                   ) RETURN BOOLEAN AS
3478   /*
3479   ||  Created By : rasahoo
3480   ||  Created On :  03-June-2003
3481   ||  Purpose :   Validate that only one '@' is present.
3482   ||        Validate that non alphanumeric characters are not together. Translate all alphanumeric characters to '2'
3483   ||              and then check if there is occurrence of more than one '2' together.
3484   ||          Translate the whole string into NUMBER except '@' which is translated to '.'.
3485   ||              Now this string is converted into NUMBER, if more that 2 '@' are present, to_number will give error.
3486   ||            round off translated string, if the string value is same after translation, that means there are no characters after '@' and give error
3487   ||  Known limitations, enhancements or remarks :
3488   ||  Change History :
3489   ||  Who             When            What
3490   ||  (reverse chronological order - newest change first)
3491   */
3492    lv_val     VARCHAR2(100);
3493    lv_num_val NUMBER;
3494    l_loc1     NUMBER;
3495    l_loc2     NUMBER;
3496    l_ret_val  NUMBER;
3497   BEGIN
3498 
3499     lv_val := TRANSLATE (UPPER(l_value),'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ._-@', '111111111111111111111111111111111111222.');
3500     lv_num_val := TO_NUMBER(lv_val);
3501     l_loc1 := INSTR(lv_val,'2');
3502     l_loc2 := INSTR(lv_val,'22');
3503     is_number(lv_val,l_ret_val);
3504     IF l_loc1 = 1
3505      OR l_loc1 = LENGTH(l_value)
3506      OR l_loc2 <> 0
3507      OR lv_val = ROUND(lv_val)
3508      OR l_ret_val<>1
3509     THEN
3510        RETURN FALSE;
3511     ELSE
3512        RETURN TRUE;
3513     END IF;
3514   EXCEPTION
3515     WHEN OTHERS THEN
3516        RETURN FALSE;
3517   END Val_Email;
3518 
3519   FUNCTION Val_Input_Rec_type(l_value IN  VARCHAR2
3520                            ) RETURN BOOLEAN AS
3521   /*
3522   ||  Created By : rasahoo
3523   ||  Created On : 03-June-2003
3524   ||  Purpose :  Validate that the value is among the one defined in the list
3525   ||  Known limitations, enhancements or remarks :
3526   ||  Change History :
3527   ||  Who             When            What
3528   ||  (reverse chronological order - newest change first)
3529   */
3530   BEGIN
3531 
3532     IF NVL(l_value,'C')  in ('C','D','H','Q','R','S','V')
3533     THEN
3534       RETURN TRUE;
3535     ELSE
3536       RETURN FALSE;
3537     END IF;
3538   EXCEPTION
3539     WHEN OTHERS THEN
3540        RETURN FALSE;
3541   END Val_Input_Rec_type;
3542 
3543   FUNCTION Val_Int( l_value  IN VARCHAR2
3544           ) RETURN BOOLEAN AS
3545   /*
3546   ||  Created By : rasahoo
3547   ||  Created On : 03-June-2003
3548   ||  Purpose :  Validate that the value is between -999999 and 999999.
3549   ||  Known limitations, enhancements or remarks :
3550   ||  Change History :
3551   ||  Who             When            What
3552   ||  (reverse chronological order - newest change first)
3553   */
3554   BEGIN
3555 
3556      IF LENGTH(TO_CHAR(ABS(l_value))) > 6
3557      THEN
3558        RETURN FALSE;
3559      ELSE
3560        RETURN TRUE;
3561      END IF;
3562   EXCEPTION
3563     WHEN OTHERS THEN
3564        RETURN FALSE;
3565   END Val_Int;
3566 
3567   FUNCTION Val_Alpha( l_value  IN VARCHAR2,
3568                     l_length IN NUMBER
3569                   ) RETURN BOOLEAN  AS
3570   /*
3571   ||  Created By : rasahoo
3572   ||  Created On : 03-June-2003
3573   ||  Purpose  : Validate that the value is a valid alphabetic character
3574   ||             Validate that the length of the field is valid.
3575   ||  Known limitations, enhancements or remarks :
3576   ||  Change History :
3577   ||  Who             When            What
3578   ||  (reverse chronological order - newest change first)
3579   */
3580   BEGIN
3581 
3582     IF l_length <> LENGTH(l_value)
3583     OR      TRANSLATE(UPPER(l_value),' ABCDEFGHIJKLMNOPQRSTUVWXYZ','0') <> RPAD('0',l_length,'0')
3584     THEN
3585       RETURN FALSE;
3586     ELSE
3587       RETURN TRUE;
3588     END IF;
3589   EXCEPTION
3590     WHEN OTHERS THEN
3591        RETURN FALSE;
3592   END Val_Alpha;
3593 
3594   FUNCTION Val_Add( l_length IN NUMBER,
3595                   l_value  IN VARCHAR2
3596                 ) RETURN BOOLEAN AS
3597   /*
3598   ||  Created By : rasahoo
3599   ||  Created On : 03-June-2003
3600   ||  Purpose : Only Uppercase A-Z, 0-9, period, apostrophe, dash, slash,
3601   ||            number sign, at sign, percent sign, ampersand sign, comma or embedded space(s)
3602   ||  Known limitations, enhancements or remarks :
3603   ||  Change History :
3604   ||  Who             When            What
3605   ||  (reverse chronological order - newest change first)
3606   */
3607    lv_val    VARCHAR2(100);
3608    l_ret_val NUMBER;
3609   BEGIN
3610 
3611     lv_val := TRANSLATE (UPPER(l_value),'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ.'||'''-/#@%&, ', '111111111111111111111111111111111111111111111111');
3612     is_number(lv_val,l_ret_val);
3613     IF l_ret_val=1
3614     THEN
3615        RETURN TRUE;
3616     ELSE
3617        RETURN FALSE;
3618     END IF;
3619   EXCEPTION
3620     WHEN OTHERS THEN
3621        RETURN FALSE;
3622   END Val_Add;
3623 
3624   FUNCTION Val_Num( l_length IN NUMBER,
3625                   l_value  IN VARCHAR2
3626                 ) RETURN BOOLEAN AS
3627   /*
3628   ||  Created By : rasahoo
3629   ||  Created On : 03-June-2003
3630   ||  Purpose :The value should be a valid NUMBER of size less than or equal to l_length
3631   ||  Known limitations, enhancements or remarks :
3632   ||  Change History :
3633   ||  Who             When            What
3634   ||  (reverse chronological order - newest change first)
3635   */
3636     l_ret_val NUMBER;
3637   BEGIN
3638 
3639     is_number(l_value,l_ret_val);
3640     IF l_length < LENGTH(l_value)
3641     OR l_ret_val<>1
3642     OR l_value < 0
3643     THEN
3644       RETURN FALSE;
3645     ELSE
3646       RETURN TRUE;
3647     END IF;
3648   EXCEPTION
3649     WHEN OTHERS THEN
3650        RETURN FALSE;
3651   END Val_Num;
3652 
3653   FUNCTION Val_Num_NonZero( l_value IN   VARCHAR2,
3654                           l_length IN NUMBER
3655                         ) RETURN BOOLEAN  AS
3656   /*
3657   ||  Created By : rasahoo
3658   ||  Created On : 03-June-2003
3659   ||  Purpose :The value should be a valid NUMBER of size less than or equal to l_length
3660   ||           The value must be non zero
3661   ||  Known limitations, enhancements or remarks :
3662   ||  Change History :
3663   ||  Who             When            What
3664   ||  (reverse chronological order - newest change first)
3665   */
3666   l_ret_val NUMBER;
3667   BEGIN
3668 
3669     is_number(l_value,l_ret_val);
3670     IF l_length < LENGTH(l_value)
3671     OR l_ret_val<>1
3672     OR l_value <= 0
3673     THEN
3674        RETURN FALSE;
3675     ELSE
3676        RETURN TRUE;
3677     END IF;
3678   EXCEPTION
3679     WHEN OTHERS THEN
3680        RETURN FALSE;
3681   END Val_Num_NonZero;
3682 
3683   FUNCTION Val_Num_1( l_value IN  VARCHAR2)
3684                  RETURN  BOOLEAN AS
3685   /*
3686   ||  Created By : brajendr
3687   ||  Created On : 03-June-2003
3688   ||  Purpose :    Validate that the value is '1'. No other value is allowed
3689   ||  Known limitations, enhancements or remarks :
3690   ||  Change History :
3691   ||  Who             When            What
3692   ||  (reverse chronological order - newest change first)
3693   */
3694   BEGIN
3695 
3696     IF NVL(l_value,'1') = '1'
3697     THEN
3698       RETURN TRUE;
3699     ELSE
3700       RETURN FALSE;
3701     END IF;
3702   EXCEPTION
3703     WHEN OTHERS THEN
3704        RETURN FALSE;
3705   END Val_Num_1;
3706 
3707   FUNCTION Val_Num_12( l_value IN  VARCHAR2)
3708               RETURN BOOLEAN AS
3709   /*
3710   ||  Created By : rasahoo
3711   ||  Created On :  03-June-2003
3712   ||  Purpose :  Validate that the value is between 0 and 12. No other value is allowed
3713   ||  Known limitations, enhancements or remarks :
3714   ||  Change History :
3715   ||  Who             When            What
3716   ||  (reverse chronological order - newest change first)
3717   */
3718   BEGIN
3719 
3720      IF NVL(l_value,'1') NOT IN ( '0','1','2','3','4','5','6','7','8','9','10','11','12')
3721     THEN
3722       RETURN FALSE;
3723     ELSE
3724       RETURN TRUE;
3725     END IF;
3726   EXCEPTION
3727     WHEN OTHERS THEN
3728        RETURN FALSE;
3729   END Val_Num_12;
3730 
3731   FUNCTION Val_Num_2( l_value IN  VARCHAR2)
3732            RETURN BOOLEAN AS
3733   /*
3734   ||  Created By : rasahoo
3735   ||  Created On :03-June-2003
3736   ||  Purpose : Validate that the value is between 1 and 2. No other value is allowed
3737   ||  Known limitations, enhancements or remarks :
3738   ||  Change History :
3739   ||  Who             When            What
3740   ||  (reverse chronological order - newest change first)
3741   */
3742   BEGIN
3743 
3744    IF NVL(l_value,'1') NOT IN ( '1','2')
3745     THEN
3746       RETURN FALSE;
3747     ELSE
3748       RETURN TRUE;
3749     END IF;
3750   EXCEPTION
3751     WHEN OTHERS THEN
3752        RETURN FALSE;
3753   END Val_Num_2;
3754 
3755   FUNCTION Val_Num_3( l_value IN  VARCHAR2)
3756           RETURN BOOLEAN AS
3757   /*
3758   ||  Created By : brajendr
3759   ||  Created On : 03-June-2003
3760   ||  Purpose :  Validate that the value is between 1 and 3. No other value is allowed.
3761   ||  Known limitations, enhancements or remarks :
3762   ||  Change History :
3763   ||  Who             When            What
3764   ||  (reverse chronological order - newest change first)
3765   */
3766   BEGIN
3767 
3768 
3769 
3770 
3771     IF NVL(l_value,'1') NOT IN ( '1','2','3') THEN
3772       RETURN FALSE;
3773     ELSE
3774       RETURN TRUE;
3775     END IF;
3776   EXCEPTION
3777     WHEN OTHERS THEN
3778        RETURN FALSE;
3779 
3780   END Val_Num_3;
3781 
3782   FUNCTION Val_Num_4( l_value IN  VARCHAR2)
3783            RETURN BOOLEAN AS
3784   /*
3785   ||  Created By : rasahoo
3786   ||  Created On :03-June-2003
3787   ||  Purpose :  Validate that the value is between 1 and 4. No other value is allowed.
3788   ||  Known limitations, enhancements or remarks :
3789   ||  Change History :
3790   ||  Who             When            What
3791   ||  (reverse chronological order - newest change first)
3792   */
3793   BEGIN
3794 
3795 
3796     IF NVL(l_value,'1') NOT IN ( '1','2','3','4') THEN
3797      RETURN FALSE;
3798     ELSE
3799      RETURN TRUE;
3800     END IF;
3801   EXCEPTION
3802     WHEN OTHERS THEN
3803        RETURN FALSE;
3804   END Val_Num_4;
3805 
3806   FUNCTION Val_Num_5( l_value IN  VARCHAR2)
3807           RETURN BOOLEAN  AS
3808   /*
3809   ||  Created By : rasahoo
3810   ||  Created On : 03-June-2003
3811   ||  Purpose : Validate that the value is between 1 and 5. No other value is allowed
3812   ||  Known limitations, enhancements or remarks :
3813   ||  Change History :
3814   ||  Who             When            What
3815   ||  (reverse chronological order - newest change first)
3816   */
3817   BEGIN
3818 
3819      IF NVL(l_value,'1') NOT IN ( '1','2','3','4','5') THEN
3820       RETURN FALSE;
3821      ELSE
3822       RETURN TRUE;
3823      END IF;
3824   EXCEPTION
3825     WHEN OTHERS THEN
3826        RETURN FALSE;
3827   END Val_Num_5;
3828 
3829   FUNCTION Val_Num_7(l_value IN  VARCHAR2)
3830            RETURN BOOLEAN AS
3831   /*
3832   ||  Created By : rasahoo
3833   ||  Created On :03-June-2003
3834   ||  Purpose :  Validate that the value is between 0 and 7. No other value is allowed.
3835   ||  Known limitations, enhancements or remarks :
3836   ||  Change History :
3837   ||  Who             When            What
3838   ||  (reverse chronological order - newest change first)
3839   */
3840   BEGIN
3841 
3842 
3843     IF NVL(l_value,'1') NOT IN ( '0','1','2','3','4','5','6','7') THEN
3844       RETURN FALSE;
3845      ELSE
3846       RETURN TRUE;
3847      END IF;
3848   EXCEPTION
3849     WHEN OTHERS THEN
3850        RETURN FALSE;
3851   END Val_Num_7;
3852 
3853   FUNCTION Val_Num_9( l_value IN  VARCHAR2)
3854            RETURN BOOLEAN AS
3855   /*
3856   ||  Created By : rasahoo
3857   ||  Created On : 03-June-2003
3858   ||  Purpose : Validate that the value is between 1 and 9. No other value is allowed
3859   ||  Known limitations, enhancements or remarks :
3860   ||  Change History :
3861   ||  Who             When            What
3862   ||  (reverse chronological order - newest change first)
3863   */
3864   BEGIN
3865 
3866     IF NVL(l_value,'1') NOT IN ( '1','2','3','4','5','6','7','8','9') THEN
3867       RETURN FALSE;
3868      ELSE
3869       RETURN TRUE;
3870      END IF;
3871   EXCEPTION
3872     WHEN OTHERS THEN
3873        RETURN FALSE;
3874 
3875   END Val_Num_9;
3876 
3877   FUNCTION Val_School_Cd( l_value IN   VARCHAR2,
3878                         l_length IN NUMBER
3879                       ) RETURN BOOLEAN AS
3880   /*
3881   ||  Created By :rasahoo
3882   ||  Created On :03-June-2003
3883   ||  Purpose : Validate that first character is '0','B','E','G'
3884   ||      Validate that length is 6 characters
3885   ||  Known limitations, enhancements or remarks :
3886   ||  Change History :
3887   ||  Who             When            What
3888   ||  (reverse chronological order - newest change first)
3889   */
3890   BEGIN
3891 
3892     IF SUBSTR(l_value,1,1) NOT IN ('0','B','E','G')
3893     OR  LENGTH(l_value) <> 6
3894     THEN
3895       RETURN FALSE;
3896     ELSE
3897       RETURN TRUE;
3898     END IF;
3899   EXCEPTION
3900     WHEN OTHERS THEN
3901        RETURN FALSE;
3902   END Val_School_Cd;
3903 
3904   FUNCTION Val_Signed_By( l_value IN  VARCHAR2)
3905             RETURN BOOLEAN AS
3906   /*
3907   ||  Created By : rasahoo
3908   ||  Created On : 03-June-2003
3909   ||  Purpose :    Validate that first character is 'A','B','P'
3910   ||  Known limitations, enhancements or remarks :
3911   ||  Change History :
3912   ||  Who             When            What
3913   ||  (reverse chronological order - newest change first)
3914   */
3915   BEGIN
3916 
3917     IF l_value NOT IN ('A','B','P')
3918     THEN
3919        RETURN FALSE;
3920     ELSE
3921        RETURN TRUE;
3922     END IF;
3923   EXCEPTION
3924     WHEN OTHERS THEN
3925        RETURN FALSE;
3926   END Val_Signed_By;
3927 
3928 FUNCTION val_ssn(l_value IN  VARCHAR2)
3929            RETURN BOOLEAN AS
3930   /*
3931   ||  Created By : rasahoo
3932   ||  Created On : 03-June-2003
3933   ||  Purpose :   Validate that length is 9 characters long
3934   ||              Value of each segment is greater that 001-01-0001
3935   ||              Valid number
3936   ||  Known limitations, enhancements or remarks :
3937   ||  Change History :
3938   ||  Who             When            What
3939   ||  (reverse chronological order - newest change first)
3940   */
3941     l_ret_val NUMBER;
3942 BEGIN
3943       is_number(l_value,l_ret_val);
3944       IF  NVL(l_ret_val,0)<>1
3945       OR  NVL(TO_NUMBER(SUBSTR(l_value,1,3)),0) < 1
3946       OR  NVL(TO_NUMBER(SUBSTR(l_value,4,2)),0) < 1
3947       OR  NVL(TO_NUMBER(SUBSTR(l_value,6,4)),0) < 1
3948       OR  NVL(LENGTH (l_value),0) <> 9
3949       THEN
3950         RETURN FALSE;
3951       ELSE
3952         RETURN TRUE;
3953       END IF;
3954  EXCEPTION
3955     WHEN OTHERS THEN
3956        RETURN FALSE;
3957 END val_ssn;
3958 
3959   PROCEDURE is_number (
3960                          p_number  IN           VARCHAR2,
3961                          ret_num   OUT NOCOPY   NUMBER
3962                        ) IS
3963    /***************************************************************
3964      Created By :       rasahoo
3965      Date Created By  : 03-June-2003
3966      Purpose    : To Check if it is number
3967      Known Limitations,Enhancements or Remarks
3968      Change History :
3969      Who      When    What
3970    ***************************************************************/
3971      l_value NUMBER;
3972     BEGIN
3973       l_value := TO_NUMBER(p_number);
3974       ret_num := 1 ;
3975     EXCEPTION
3976       WHEN OTHERS THEN
3977            ret_num := 0 ;
3978   END is_number ;
3979 
3980   FUNCTION Val_Char_set( l_value      IN VARCHAR2,
3981                          l_length     IN NUMBER,
3982                          l_char_set   IN VARCHAR2
3983                         ) RETURN BOOLEAN AS
3984   BEGIN
3985     IF LENGTH (l_value) <> l_length
3986      OR NVL(LENGTH(TRIM(TRANSLATE(UPPER(l_value),l_char_set,LPAD(' ',LENGTH(l_char_set),' ' )))),0) > 0
3987     THEN
3988         RETURN FALSE;
3989     ELSE
3990         RETURN TRUE ;
3991     END IF;
3992   EXCEPTION
3993     WHEN OTHERS THEN
3994        RETURN FALSE;
3995   END Val_Char_set;
3996 
3997   PROCEDURE validate_isir_rec(        p_isir_rec                IN c_int_data%ROWTYPE,
3998                                        p_status                 OUT NOCOPY BOOLEAN,
3999                                        p_igf_ap_message_table   OUT NOCOPY igf_ap_message_table)
4000   AS
4001 
4002   /***************************************************************
4003      Created By :       rasahoo
4004      Date Created By  : 03-June-2003
4005      Purpose    : To Validate legacy ISIR record
4006      Known Limitations,Enhancements or Remarks
4007      Change History :
4008      Who      When    What
4009    ***************************************************************/
4010 
4011 
4012     CURSOR c_lkup_values(p_lookup_code  VARCHAR2 )
4013              IS
4014        SELECT   meaning
4015        FROM     igf_aw_lookups_view
4016        WHERE    lookup_type ='IGF_AW_LOOKUPS_MSG'
4017        AND lookup_code =p_lookup_code
4018        AND enabled_flag = 'Y' ;
4019 
4020        c_lkup_values_rec c_lkup_values%ROWTYPE;
4021        indx NUMBER ;
4022        l_ret_val BOOLEAN;
4023        l_hash_value NUMBER;
4024        message      VARCHAR2(200);
4025 
4026   BEGIN
4027     indx  :=0 ;
4028 
4029 
4030     p_igf_ap_message_table.DELETE;
4031     put_meaning('IGF_AP_CSS_DEP_STATUS,STATE_CODES,CITIZENSHIP_TYPES,MARITAL_STATUSES,ENROLLMENT_TYPES,HIGHGRADLEVEL_TYPES,DEGCERT_TYPES,GRADE_LEVELS,DRUG_CONVICTS,TAXRETSTAT_TYPES,TAXFORM_TYPES,TAXEXEM_ELIGTYPES,PMARITAL_STATUSES,HOUSING_STATS');
4032 
4033     p_status:=TRUE;
4034 
4035     IF p_isir_rec.p_state_legal_residence_txt IS NOT NULL THEN
4036 
4037       l_ret_val:=is_lookup_code_exist(p_isir_rec.p_state_legal_residence_txt,'IGF_AP_STATE_CODES');
4038 
4039       IF  NOT l_ret_val   THEN
4040         p_status:=FALSE;
4041         indx:= indx+1;
4042         l_hash_value:=dbms_utility.get_hash_value('STATE_CODES',
4043                                        1000,
4044                                        25000);
4045         p_igf_ap_message_table(indx).field_name:='';
4046         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('P_STATE_LEGAL_RESIDENCE_TXT');
4047 
4048 
4049       END IF;
4050 
4051    END IF;
4052      IF p_isir_rec.s_state_legal_residence IS NOT NULL THEN
4053       l_ret_val:=is_lookup_code_exist(p_isir_rec.s_state_legal_residence,'IGF_AP_STATE_CODES');
4054 
4055        IF NOT l_ret_val   THEN
4056         p_status:=FALSE;
4057         indx:= indx+1;
4058         l_hash_value:=dbms_utility.get_hash_value('STATE_CODES',
4059                                        1000,
4060                                        25000);
4061         p_igf_ap_message_table(indx).field_name:='';
4062         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('S_STATE_LEGAL_RESIDENCE');
4063 
4064       END IF;
4065    END IF;
4066 
4067      IF p_isir_rec.perm_state_txt IS NOT NULL THEN
4068          l_ret_val:=is_lookup_code_exist(p_isir_rec.perm_state_txt,'IGF_AP_STATE_CODES');
4069         IF NOT l_ret_val  THEN
4070         p_status:=FALSE;
4071         indx:= indx+1;
4072         l_hash_value:=dbms_utility.get_hash_value('STATE_CODES',
4073                                        1000,
4074                                        25000);
4075         p_igf_ap_message_table(indx).field_name:='';
4076         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('PERM_STATE_TXT');
4077 
4078      END IF;
4079   END IF;
4080 
4081     IF p_isir_rec.driver_license_state_txt IS NOT NULL THEN
4082       l_ret_val:=is_lookup_code_exist(p_isir_rec.driver_license_state_txt,'IGF_AP_STATE_CODES');
4083       IF NOT l_ret_val   THEN
4084         p_status:=FALSE;
4085         indx:= indx+1;
4086         l_hash_value:=dbms_utility.get_hash_value('STATE_CODES',
4087                                        1000,
4088                                        25000);
4089         p_igf_ap_message_table(indx).field_name:=' ';
4090         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('DRIVER_LICENSE_STATE_TXT');
4091 
4092      END IF;
4093   END IF;
4094      IF p_isir_rec.citizenship_status_type IS NOT NULL THEN
4095       l_ret_val:=is_lookup_code_exist(p_isir_rec.citizenship_status_type,'IGF_CITIZENSHIP_TYPE');
4096       IF NOT l_ret_val   THEN
4097         p_status:=FALSE;
4098         indx:= indx+1;
4099         l_hash_value:=dbms_utility.get_hash_value('CITIZENSHIP_TYPES',
4100                                        1000,
4101                                        25000);
4102         p_igf_ap_message_table(indx).field_name:=' ';
4103         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('CITIZENSHIP_STATUS_TYPE');
4104 
4105      END IF;
4106   END IF;
4107      IF p_isir_rec.s_marital_status_type IS NOT NULL THEN
4108 
4109          l_ret_val:=is_lookup_code_exist( p_isir_rec.s_marital_status_type,'IGF_ST_MARITAL_STAT_TYPE');
4110          IF NOT l_ret_val  THEN
4111           p_status:=FALSE;
4112           indx:= indx+1;
4113           l_hash_value:=dbms_utility.get_hash_value('MARITAL_STATUSES',
4114                                          1000,
4115                                          25000);
4116           p_igf_ap_message_table(indx).field_name:=' ';
4117           p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('S_MARITAL_STATUS_TYPE');
4118 
4119      END IF;
4120    END IF;
4121 
4122 
4123     IF p_isir_rec.summ_enrl_status_type IS NOT NULL THEN
4124       IF g_sys_award_year NOT IN ('0405','0506', '0607') THEN
4125         l_ret_val:=is_lookup_code_exist(  p_isir_rec.summ_enrl_status_type,'IGF_ENROLMENT_TYPE');
4126         IF NOT l_ret_val   THEN
4127           p_status:=FALSE;
4128           indx:= indx+1;
4129           l_hash_value:=dbms_utility.get_hash_value('ENROLLMENT_TYPES',
4130                                          1000,
4131                                          25000);
4132 
4133           p_igf_ap_message_table(indx).field_name:=' ';
4134           p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('SUMM_ENRL_STATUS_TYPE');
4135         END IF;
4136       ELSE
4137         l_ret_val:=is_lookup_code_exist(  p_isir_rec.summ_enrl_status_type,'IGF_AP_ENROLLMENT_STATUS_TYPE');
4138         IF NOT l_ret_val   THEN
4139           p_status:=FALSE;
4140           indx:= indx+1;
4141           l_hash_value:=dbms_utility.get_hash_value('ENROLLMENT_TYPES',
4142                                          1000,
4143                                          25000);
4144 
4145           p_igf_ap_message_table(indx).field_name:=' ';
4146           p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('SUMM_ENRL_STATUS_TYPE');
4147         END IF;
4148       END IF;
4149     END IF;
4150    IF g_sys_award_year NOT IN ('0405','0506', '0607') THEN
4151       IF p_isir_rec.fall_enrl_status_type IS NOT NULL THEN
4152          l_ret_val:=is_lookup_code_exist(p_isir_rec.fall_enrl_status_type,'IGF_ENROLMENT_TYPE');
4153          IF NOT l_ret_val   THEN
4154           p_status:=FALSE;
4155           indx:= indx+1;
4156           l_hash_value:=dbms_utility.get_hash_value('ENROLLMENT_TYPES',
4157                                          1000,
4158                                          25000);
4159           p_igf_ap_message_table(indx).field_name:=' ';
4160           p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('FALL_ENRL_STATUS_TYPE');
4161 
4162          END IF;
4163       END IF;
4164    ELSE
4165       IF p_isir_rec.fall_enrl_status_type IS NOT NULL THEN
4166          p_status:=FALSE;
4167          fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
4168          indx:= indx+1;
4169 
4170          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FALL_ENRL_STATUS_TYPE');
4171          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4172       END IF;
4173    END IF;
4174    IF g_sys_award_year NOT IN ('0405','0506','0607') THEN
4175      IF p_isir_rec.winter_enrl_status_type IS NOT NULL THEN
4176         l_ret_val:=is_lookup_code_exist(p_isir_rec.winter_enrl_status_type,'IGF_ENROLMENT_TYPE');
4177         IF NOT l_ret_val   THEN
4178           p_status:=FALSE;
4179           indx:= indx+1;
4180           l_hash_value:=dbms_utility.get_hash_value('ENROLLMENT_TYPES',
4181                                          1000,
4182                                          25000);
4183           p_igf_ap_message_table(indx).field_name:=' ';
4184           p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('WINTER_ENRL_STATUS_TYPE');
4185 
4186        END IF;
4187      END IF;
4188   ELSE
4189     IF p_isir_rec.winter_enrl_status_type IS NOT NULL THEN
4190          p_status:=FALSE;
4191          fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
4192          indx:= indx+1;
4193 
4194          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('WINTER_ENRL_STATUS_TYPE');
4195          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4196     END IF;
4197   END IF;
4198   IF g_sys_award_year NOT IN ('0405','0506','0607') THEN
4199      IF p_isir_rec.spring_enrl_status_type IS NOT NULL THEN
4200       l_ret_val:=is_lookup_code_exist(p_isir_rec.spring_enrl_status_type,'IGF_ENROLMENT_TYPE');
4201       IF NOT l_ret_val   THEN
4202         p_status:=FALSE;
4203         indx:= indx+1;
4204         l_hash_value:=dbms_utility.get_hash_value('ENROLLMENT_TYPES',
4205                                        1000,
4206                                        25000);
4207         p_igf_ap_message_table(indx).field_name:=' ';
4208         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('SPRING_ENRL_STATUS_TYPE');
4209 
4210      END IF;
4211     END IF;
4212   ELSE
4213     IF p_isir_rec.spring_enrl_status_type IS NOT NULL THEN
4214          p_status:=FALSE;
4215          fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
4216          indx:= indx+1;
4217 
4218          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SPRING_ENRL_STATUS_TYPE');
4219          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4220     END IF;
4221   END IF;
4222 
4223   IF g_sys_award_year NOT IN ('0405','0506','0607') THEN
4224      IF p_isir_rec.summ2_enrl_status_type IS NOT NULL THEN
4225         l_ret_val:=is_lookup_code_exist(p_isir_rec.summ2_enrl_status_type,'IGF_ENROLMENT_TYPE');
4226        IF NOT l_ret_val   THEN
4227         p_status:=FALSE;
4228         indx:= indx+1;
4229         l_hash_value:=dbms_utility.get_hash_value('ENROLLMENT_TYPES',
4230                                        1000,
4231                                        25000);
4232         p_igf_ap_message_table(indx).field_name:=' ';
4233         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('SUMM2_ENRL_STATUS_TYPE');
4234 
4235        END IF;
4236      END IF;
4237    ELSE
4238       IF p_isir_rec.summ2_enrl_status_type IS NOT NULL THEN
4239          p_status:=FALSE;
4240          fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
4241          indx:= indx+1;
4242 
4243          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SUMM2_ENRL_STATUS_TYPE');
4244          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4245       END IF;
4246    END IF;
4247    IF p_isir_rec.fathers_highest_edu_level_type IS NOT NULL THEN
4248       l_ret_val:=is_lookup_code_exist(p_isir_rec.fathers_highest_edu_level_type,'IGF_HIGH_GRAD_LVL_TYPE');
4249       IF NOT l_ret_val   THEN
4250         p_status:=FALSE;
4251         indx:= indx+1;
4252         l_hash_value:=dbms_utility.get_hash_value('HIGHGRADLEVEL_TYPES',
4253                                        1000,
4254                                        25000);
4255         p_igf_ap_message_table(indx).field_name:=' ';
4256         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('FATHERS_HIGHEST_EDU_LEVEL_TYPE');
4257 
4258      END IF;
4259    END IF;
4260     IF p_isir_rec.mothers_highest_edu_level_type IS NOT NULL THEN
4261        l_ret_val:=is_lookup_code_exist(p_isir_rec.mothers_highest_edu_level_type,'IGF_HIGH_GRAD_LVL_TYPE');
4262        IF NOT l_ret_val  THEN
4263         p_status:=FALSE;
4264         indx:= indx+1;
4265         l_hash_value:=dbms_utility.get_hash_value('HIGHGRADLEVEL_TYPES',
4266                                        1000,
4267                                        25000);
4268         p_igf_ap_message_table(indx).field_name:=' ';
4269         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('MOTHERS_HIGHEST_EDU_LEVEL_TYPE');
4270 
4271      END IF;
4272    END IF;
4273 
4274      IF p_isir_rec.degree_certification_type IS NOT NULL THEN
4275       l_ret_val:=is_lookup_code_exist(p_isir_rec.degree_certification_type,'IGF_DEG_CERT_TYPE');
4276       IF NOT l_ret_val   THEN
4277         p_status:=FALSE;
4278         indx:= indx+1;
4279         l_hash_value:=dbms_utility.get_hash_value('DEGCERT_TYPES',
4280                                        1000,
4281                                        25000);
4282         p_igf_ap_message_table(indx).field_name:=' ';
4283         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('DEGREE_CERTIFICATION_TYPE');
4284 
4285      END IF;
4286    END IF;
4287      IF p_isir_rec.grade_level_in_college_type IS NOT NULL THEN
4288       l_ret_val:=is_lookup_code_exist(p_isir_rec.grade_level_in_college_type,'IGF_AP_GRADE_LEVEL');
4289       IF NOT l_ret_val   THEN
4290         p_status:=FALSE;
4291         indx:= indx+1;
4292         l_hash_value:=dbms_utility.get_hash_value('GRADE_LEVELS',
4293                                        1000,
4294                                        25000);
4295         p_igf_ap_message_table(indx).field_name:=' ';
4296         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('GRADE_LEVEL_IN_COLLEGE_TYPE');
4297 
4298      END IF;
4299    END IF;
4300 
4301      IF p_isir_rec.drug_offence_conviction_type IS NOT NULL THEN
4302          l_ret_val:=is_lookup_code_exist(p_isir_rec.drug_offence_conviction_type,'IGF_DRUG_ELIGIBILITY_TYPE');
4303        IF NOT l_ret_val  THEN
4304         p_status:=FALSE;
4305         indx:= indx+1;
4306         l_hash_value:=dbms_utility.get_hash_value('DRUG_CONVICTS',
4307                                        1000,
4308                                        25000);
4309         p_igf_ap_message_table(indx).field_name:=' ';
4310         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('DRUG_OFFENCE_CONVICTION_TYPE');
4311 
4312      END IF;
4313    END IF;
4314 
4315     IF p_isir_rec.s_tax_return_status_type IS NOT NULL THEN
4316       l_ret_val:=is_lookup_code_exist(p_isir_rec.s_tax_return_status_type,'IGF_TAX_RET_STAT_TYPE');
4317      IF NOT l_ret_val  THEN
4318         p_status:=FALSE;
4319         indx:= indx+1;
4320         l_hash_value:=dbms_utility.get_hash_value('TAXRETSTAT_TYPES',
4321                                        1000,
4322                                        25000);
4323         p_igf_ap_message_table(indx).field_name:=' ';
4324         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('S_TAX_RETURN_STATUS_TYPE');
4325 
4326      END IF;
4327    END IF;
4328 
4329     IF p_isir_rec.p_tax_return_status_type IS NOT NULL THEN
4330        l_ret_val:=is_lookup_code_exist(p_isir_rec.p_tax_return_status_type,'IGF_TAX_RET_STAT_TYPE') ;
4331        IF NOT l_ret_val  THEN
4332         p_status:=FALSE;
4333         indx:= indx+1;
4334          l_hash_value:=dbms_utility.get_hash_value('TAXRETSTAT_TYPES',
4335                                        1000,
4336                                        25000);
4337         p_igf_ap_message_table(indx).field_name:=' ';
4338         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('P_TAX_RETURN_STATUS_TYPE');
4339 
4340      END IF;
4341    END IF;
4342     IF p_isir_rec.s_type_tax_return_type IS NOT NULL THEN
4343        l_ret_val:=is_lookup_code_exist(p_isir_rec.s_type_tax_return_type,'IGF_TAX_FORM_TYPE');
4344       IF NOT l_ret_val  THEN
4345         p_status:=FALSE;
4346         indx:= indx+1;
4347          l_hash_value:=dbms_utility.get_hash_value('TAXFORM_TYPES',
4348                                        1000,
4349                                        25000);
4350         p_igf_ap_message_table(indx).field_name:=' ';
4351         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('S_TYPE_TAX_RETURN_TYPE');
4352 
4353      END IF;
4354    END IF;
4355 
4356     IF p_isir_rec.p_type_tax_return_type IS NOT NULL THEN
4357         l_ret_val:=is_lookup_code_exist(p_isir_rec.p_type_tax_return_type,'IGF_TAX_FORM_TYPE');
4358        IF NOT l_ret_val   THEN
4359         p_status:=FALSE;
4360         indx:= indx+1;
4361         l_hash_value:=dbms_utility.get_hash_value('TAXFORM_TYPES',
4362                                        1000,
4363                                        25000);
4364         p_igf_ap_message_table(indx).field_name:=' ';
4365         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('P_TYPE_TAX_RETURN_TYPE');
4366 
4367      END IF;
4368   END IF;
4369    IF p_isir_rec.s_elig_1040ez_type IS NOT NULL THEN
4370        l_ret_val:=is_lookup_code_exist(p_isir_rec.s_elig_1040ez_type,'IGF_TAX_EXEMPTION_ELIG_TYPE');
4371        IF NOT l_ret_val   THEN
4372         p_status:=FALSE;
4373         indx:= indx+1;
4374         l_hash_value:=dbms_utility.get_hash_value('TAXEXEM_ELIGTYPES',
4375                                        1000,
4376                                        25000);
4377         p_igf_ap_message_table(indx).field_name:=' ';
4378         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('S_ELIG_1040EZ_TYPE');
4379 
4380      END IF;
4381   END IF;
4382     IF p_isir_rec.p_elig_1040aez_type IS NOT NULL THEN
4383        l_ret_val:=is_lookup_code_exist(p_isir_rec.p_elig_1040aez_type,'IGF_TAX_EXEMPTION_ELIG_TYPE');
4384        IF NOT l_ret_val   THEN
4385         p_status:=FALSE;
4386         indx:= indx+1;
4387         l_hash_value:=dbms_utility.get_hash_value('TAXEXEM_ELIGTYPES',
4388                                        1000,
4389                                        25000);
4390         p_igf_ap_message_table(indx).field_name:=' ';
4391         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('P_ELIG_1040AEZ_TYPE');
4392 
4393      END IF;
4394    END IF;
4395      IF p_isir_rec.p_marital_status_type IS NOT NULL THEN
4396       l_ret_val:=is_lookup_code_exist(p_isir_rec.p_marital_status_type,'IGF_P_MARITAL_STAT_TYPE');
4397       IF NOT l_ret_val   THEN
4398         p_status:=FALSE;
4399          indx:= indx+1;
4400          l_hash_value:=dbms_utility.get_hash_value('PMARITAL_STATUSES',
4401                                        1000,
4402                                        25000);
4403         p_igf_ap_message_table(indx).field_name:=' ';
4404         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('P_MARITAL_STATUS_TYPE');
4405 
4406      END IF;
4407   END IF;
4408     IF p_isir_rec.first_house_plan_type IS NOT NULL THEN
4409       l_ret_val:=is_lookup_code_exist(p_isir_rec.first_house_plan_type,'IGF_AP_HOUSING_STAT');
4410      IF NOT l_ret_val   THEN
4411       p_status:=FALSE;
4412       indx:= indx+1;
4413       l_hash_value:=dbms_utility.get_hash_value('HOUSING_STATS',
4414                                      1000,
4415                                      25000);
4416       p_igf_ap_message_table(indx).field_name:=' ';
4417       p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('FIRST_HOUSE_PLAN_TYPE');
4418 
4419      END IF;
4420   END IF;
4421    IF p_isir_rec.second_house_plan_type IS NOT NULL THEN
4422       l_ret_val:=is_lookup_code_exist(p_isir_rec.second_house_plan_type,'IGF_AP_HOUSING_STAT');
4423       IF NOT l_ret_val   THEN
4424         p_status:=FALSE;
4425         indx:= indx+1;
4426         l_hash_value:=dbms_utility.get_hash_value('HOUSING_STATS',
4427                                        1000,
4428                                        25000);
4429         p_igf_ap_message_table(indx).field_name:=' ';
4430         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('SECOND_HOUSE_PLAN_TYPE');
4431 
4432      END IF;
4433    END IF;
4434     IF p_isir_rec.third_house_plan_type IS NOT NULL THEN
4435        l_ret_val:=is_lookup_code_exist(p_isir_rec.third_house_plan_type,'IGF_AP_HOUSING_STAT');
4436        IF NOT l_ret_val   THEN
4437         p_status:=FALSE;
4438         indx:= indx+1;
4439         l_hash_value:=dbms_utility.get_hash_value('HOUSING_STATS',
4440                                        1000,
4441                                        25000);
4442         p_igf_ap_message_table(indx).field_name:=' ';
4443         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('THIRD_HOUSE_PLAN_TYPE');
4444 
4445      END IF;
4446    END IF;
4447      IF p_isir_rec.fourth_house_plan_type IS NOT NULL THEN
4448        l_ret_val:=is_lookup_code_exist(p_isir_rec.fourth_house_plan_type,'IGF_AP_HOUSING_STAT');
4449       IF NOT l_ret_val   THEN
4450         p_status:=FALSE;
4451         indx:= indx+1;
4452         l_hash_value:=dbms_utility.get_hash_value('HOUSING_STATS',
4453                                        1000,
4454                                        25000);
4455         p_igf_ap_message_table(indx).field_name:=' ';
4456         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('FOURTH_HOUSE_PLAN_TYPE');
4457 
4458      END IF;
4459   END IF;
4460 
4461    IF p_isir_rec.fifth_house_plan_type IS NOT NULL THEN
4462          l_ret_val:=is_lookup_code_exist(p_isir_rec.fifth_house_plan_type,'IGF_AP_HOUSING_STAT');
4463        IF NOT l_ret_val  THEN
4464         p_status:=FALSE;
4465         indx:= indx+1;
4466         l_hash_value:=dbms_utility.get_hash_value('HOUSING_STATS',
4467                                        1000,
4468                                        25000);
4469         p_igf_ap_message_table(indx).field_name:=' ';
4470         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('FIFTH_HOUSE_PLAN_TYPE');
4471 
4472      END IF;
4473    END IF;
4474 
4475     IF p_isir_rec.sixth_house_plan_type IS NOT NULL THEN
4476        l_ret_val:=is_lookup_code_exist(p_isir_rec.sixth_house_plan_type,'IGF_AP_HOUSING_STAT');
4477        IF NOT l_ret_val  THEN
4478         p_status:=FALSE;
4479         indx:= indx+1;
4480         l_hash_value:=dbms_utility.get_hash_value('HOUSING_STATS',
4481                                        1000,
4482                                        25000);
4483         p_igf_ap_message_table(indx).field_name:=' ';
4484         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('SIXTH_HOUSE_PLAN_TYPE');
4485 
4486      END IF;
4487     END IF;
4488 
4489      IF p_isir_rec.dependency_status_type IS NOT NULL THEN
4490       l_ret_val:= is_lookup_code_exist(p_isir_rec.dependency_status_type,'IGF_AP_DEP_STATUS');
4491       IF NOT l_ret_val  THEN
4492         p_status:=FALSE;
4493         indx:= indx+1;
4494         l_hash_value:=dbms_utility.get_hash_value('IGF_AP_CSS_DEP_STATUS',
4495                                        1000,
4496                                        25000);
4497         p_igf_ap_message_table(indx).field_name:=' ';
4498         p_igf_ap_message_table(indx).msg_text:=lookup_meaning_table(l_hash_value).msg_text||' '|| p_l_to_i_col('DEPENDENCY_STATUS_TYPE');
4499 
4500      END IF;
4501     END IF;
4502 
4503    IF p_isir_rec.last_name IS NOT NULL THEN
4504     IF  NOT Val_Name(16,p_isir_rec.last_name) THEN
4505          p_status:=FALSE;
4506          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_NAME');
4507          indx:= indx+1;
4508 
4509          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('LAST_NAME');
4510          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4511 
4512     END IF;
4513  END IF;
4514 
4515   IF p_isir_rec.first_name IS NOT NULL THEN
4516     IF NOT Val_Name(12,p_isir_rec.first_name) THEN
4517          p_status:=FALSE;
4518          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_NAME');
4519          indx:= indx+1;
4520 
4521          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FIRST_NAME');
4522          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4523 
4524   END IF;
4525  END IF;
4526  IF p_isir_rec.middle_initial_txt IS NOT NULL THEN
4527    IF NOT Val_Alpha(p_isir_rec.middle_initial_txt,1) OR p_isir_rec.middle_initial_txt <> UPPER(p_isir_rec.middle_initial_txt)  THEN
4528          p_status:=FALSE;
4529          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_M_INITIAL');
4530          indx:= indx+1;
4531 
4532          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('MIDDLE_INITIAL_TXT');
4533          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4534 
4535   END IF;
4536  END IF;
4537 
4538 
4539  IF p_isir_rec.perm_mail_address_txt IS NOT NULL THEN
4540     IF NOT Val_Add(12,p_isir_rec.perm_mail_address_txt) OR p_isir_rec.perm_mail_address_txt <> UPPER(p_isir_rec.perm_mail_address_txt) THEN
4541          p_status:=FALSE;
4542          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_ADDRESS');
4543          indx:= indx+1;
4544 
4545          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('PERM_MAIL_ADDRESS_TXT');
4546          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4547   END IF;
4548  END IF;
4549   IF p_isir_rec.perm_city_txt IS NOT NULL THEN
4550    IF NOT Val_Add(12,p_isir_rec.PERM_CITY_TXT) OR p_isir_rec.perm_city_txt <> UPPER(p_isir_rec.perm_city_txt) THEN
4551          p_status:=FALSE;
4552          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_CITY');
4553          indx:= indx+1;
4554 
4555          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('PERM_CITY_TXT');
4556          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4557      END IF;
4558    END IF;
4559 
4560    IF p_isir_rec.perm_zip_cd IS NOT NULL THEN
4561       IF NOT Val_Num(5,p_isir_rec.perm_zip_cd) THEN
4562          p_status:=FALSE;
4563          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_ZIP_CODE');
4564          indx:= indx+1;
4565 
4566          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('PERM_ZIP_CD');
4567          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4568      END IF;
4569   END IF;
4570 
4571    IF p_isir_rec.birth_date IS NOT NULL THEN
4572      IF NOT Val_date(TO_CHAR(p_isir_rec.birth_date,'YYYYMMDD')) THEN
4573          p_status:=FALSE;
4574          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_DOB');
4575          indx:= indx+1;
4576 
4577          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('BIRTH_DATE');
4578          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4579      END IF;
4580    END IF;
4581 
4582      IF NOT val_ssn(p_isir_rec.current_ssn_txt) THEN
4583 
4584          p_status:=FALSE;
4585          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_SSN');
4586          indx:= indx+1;
4587 
4588          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('CURRENT_SSN_TXT');
4589          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4590      END IF;
4591 
4592 
4593      IF NOT Val_SSN(p_isir_rec.ORIGINAL_SSN_TXT) THEN
4594          p_status:=FALSE;
4595          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_SSN');
4596          indx:= indx+1;
4597 
4598          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('ORIGINAL_SSN_TXT');
4599          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4600      END IF;
4601 
4602 
4603      IF p_isir_rec.phone_number_txt IS NOT NULL THEN
4604       IF NOT Val_Num(10,p_isir_rec.phone_number_txt) THEN
4605          p_status:=FALSE;
4606          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PH_NUM');
4607          indx:= indx+1;
4608 
4609          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('PHONE_NUMBER_TXT');
4610          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4611       END IF;
4612     END IF;
4613 
4614 
4615 
4616      IF p_isir_rec.citizenship_status_type IS NOT NULL THEN
4617       IF NOT Val_Num_3(p_isir_rec.citizenship_status_type) THEN
4618          p_status:=FALSE;
4619          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4620 
4621          indx:= indx+1;
4622          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('CITIZENSHIP_STATUS_TYPE');
4623          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4624      END IF;
4625     END IF;
4626     IF p_isir_rec.alien_reg_number_txt IS NOT NULL THEN
4627       IF NOT Val_Num_NonZero(p_isir_rec.alien_reg_number_txt,9) THEN
4628          p_status:=FALSE;
4629          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_ALN_NUM');
4630 
4631          indx:= indx+1;
4632          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('ALIEN_REG_NUMBER_TXT');
4633          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4634      END IF;
4635    END IF;
4636     IF p_isir_rec.s_marital_status_type IS NOT NULL THEN
4637       IF NOT Val_Num_3(p_isir_rec.s_marital_status_type) THEN
4638          p_status:=FALSE;
4639          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4640 
4641          indx:= indx+1;
4642          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_MARITAL_STATUS_TYPE');
4643          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4644      END IF;
4645 
4646    END IF;
4647     IF p_isir_rec.s_marital_status_date IS NOT NULL THEN
4648      IF NOT Val_Date_2(TO_CHAR(p_isir_rec.s_marital_status_date,'YYYYMM')) THEN
4649          p_status:=FALSE;
4650          fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
4651          fnd_message.set_token('FIELD', p_l_to_i_col('S_MARITAL_STATUS_DATE'));
4652          indx:= indx+1;
4653          p_igf_ap_message_table(indx).field_name:= '';
4654          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4655      END IF;
4656    END IF;
4657 
4658     IF p_isir_rec.summ_enrl_status_type IS NOT NULL THEN
4659       IF NOT Val_Num_5(p_isir_rec.summ_enrl_status_type) THEN
4660          p_status:=FALSE;
4661          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4662 
4663          indx:= indx+1;
4664          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SUMM_ENRL_STATUS_TYPE');
4665          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4666      END IF;
4667    END IF;
4668    IF p_isir_rec.fall_enrl_status_type IS NOT NULL THEN
4669       IF NOT Val_Num_5(p_isir_rec.fall_enrl_status_type) THEN
4670          p_status:=FALSE;
4671          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4672 
4673          indx:= indx+1;
4674          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FALL_ENRL_STATUS_TYPE');
4675          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4676      END IF;
4677    END IF;
4678      IF p_isir_rec.winter_enrl_status_type IS NOT NULL THEN
4679       IF NOT Val_Num_5(p_isir_rec.winter_enrl_status_type) THEN
4680          p_status:=FALSE;
4681          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4682 
4683          indx:= indx+1;
4684          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('WINTER_ENRL_STATUS_TYPE');
4685          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4686      END IF;
4687    END IF;
4688      IF p_isir_rec.spring_enrl_status_type IS NOT NULL THEN
4689       IF NOT Val_Num_5(p_isir_rec.spring_enrl_status_type) THEN
4690          p_status:=FALSE;
4691          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4692 
4693          indx:= indx+1;
4694          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SPRING_ENRL_STATUS_TYPE');
4695          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4696      END IF;
4697     END IF;
4698      IF p_isir_rec.summ2_enrl_status_type IS NOT NULL THEN
4699       IF NOT Val_Num_5(p_isir_rec.summ2_enrl_status_type) THEN
4700          p_status:=FALSE;
4701          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4702 
4703          indx:= indx+1;
4704          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SUMM2_ENRL_STATUS_TYPE');
4705          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4706      END IF;
4707     END IF;
4708     IF p_isir_rec.fathers_highest_edu_level_type IS NOT NULL THEN
4709       IF NOT Val_Num_4(p_isir_rec.fathers_highest_edu_level_type) THEN
4710          p_status:=FALSE;
4711          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4712 
4713          indx:= indx+1;
4714          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FATHERS_HIGHEST_EDU_LEVEL_TYPE');
4715          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4716      END IF;
4717    END IF;
4718 
4719     IF p_isir_rec.mothers_highest_edu_level_type IS NOT NULL THEN
4720       IF NOT Val_Num_4(p_isir_rec.mothers_highest_edu_level_type) THEN
4721          p_status:=FALSE;
4722          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4723 
4724          indx:= indx+1;
4725          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('MOTHERS_HIGHEST_EDU_LEVEL_TYPE');
4726          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4727      END IF;
4728    END IF;
4729     IF p_isir_rec.legal_res_before_year_flag IS NOT NULL THEN
4730       IF NOT Val_Num_2(p_isir_rec.legal_res_before_year_flag) THEN
4731          p_status:=FALSE;
4732          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4733 
4734          indx:= indx+1;
4735          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('LEGAL_RES_BEFORE_YEAR_FLAG');
4736          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4737      END IF;
4738    END IF;
4739      IF p_isir_rec.s_legal_resd_date IS NOT NULL THEN
4740       IF NOT Val_Date_2(TO_CHAR(p_isir_rec.s_legal_resd_date,'YYYYMM')) THEN
4741          p_status:=FALSE;
4742          fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
4743          fnd_message.set_token('FIELD', p_l_to_i_col('S_LEGAL_RESD_DATE'));
4744 
4745          indx:= indx+1;
4746          p_igf_ap_message_table(indx).field_name:= '';
4747          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4748       END IF;
4749     END IF;
4750 
4751    IF p_isir_rec.ss_r_u_male_flag IS NOT NULL THEN
4752       IF NOT Val_Num_2(p_isir_rec.ss_r_u_male_flag) THEN
4753          p_status:=FALSE;
4754          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4755 
4756          indx:= indx+1;
4757          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SS_R_U_MALE_FLAG');
4758          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4759      END IF;
4760   END IF;
4761 
4762     IF p_isir_rec.selective_service_reg_flag IS NOT NULL THEN
4763       IF NOT Val_Num_2(p_isir_rec.selective_service_reg_flag) THEN
4764          p_status:=FALSE;
4765          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4766 
4767          indx:= indx+1;
4768          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SELECTIVE_SERVICE_REG_FLAG');
4769          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4770      END IF;
4771    END IF;
4772 
4773    IF p_isir_rec.degree_certification_type IS NOT NULL THEN
4774       IF NOT Val_Num_9(p_isir_rec.degree_certification_type) THEN
4775          p_status:=FALSE;
4776          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4777 
4778          indx:= indx+1;
4779          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('DEGREE_CERTIFICATION_TYPE');
4780          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4781      END IF;
4782    END IF;
4783     IF p_isir_rec.grade_level_in_college_type IS NOT NULL THEN
4784       IF NOT Val_Num_7(p_isir_rec.grade_level_in_college_type)  THEN
4785          p_status:=FALSE;
4786          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4787 
4788          indx:= indx+1;
4789          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('GRADE_LEVEL_IN_COLLEGE_TYPE');
4790          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4791      END IF;
4792     END IF;
4793      IF p_isir_rec.high_school_diploma_ged_flag IS NOT NULL THEN
4794       IF NOT Val_Num_2(p_isir_rec.high_school_diploma_ged_flag) THEN
4795          p_status:=FALSE;
4796          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4797 
4798          indx:= indx+1;
4799          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('HIGH_SCHOOL_DIPLOMA_GED_FLAG');
4800          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4801      END IF;
4802     END IF;
4803 
4804     IF p_isir_rec.first_bachelor_deg_year_flag IS NOT NULL THEN
4805       IF NOT Val_Num_2(p_isir_rec.first_bachelor_deg_year_flag) THEN
4806          p_status:=FALSE;
4807          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4808 
4809          indx:= indx+1;
4810          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FIRST_BACHELOR_DEG_YEAR_FLAG');
4811          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4812      END IF;
4813     END IF;
4814 
4815      IF p_isir_rec.interest_in_loan_flag IS NOT NULL THEN
4816       IF NOT Val_Num_2(p_isir_rec.interest_in_loan_flag) THEN
4817          p_status:=FALSE;
4818          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4819 
4820          indx:= indx+1;
4821          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('INTEREST_IN_LOAN_FLAG');
4822          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4823      END IF;
4824     END IF;
4825     IF p_isir_rec.interest_in_stu_employmnt_flag IS NOT NULL THEN
4826       IF NOT Val_Num_2(p_isir_rec.interest_in_stu_employmnt_flag) THEN
4827          p_status:=FALSE;
4828          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4829 
4830          indx:= indx+1;
4831          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('INTEREST_IN_STU_EMPLOYMNT_FLAG');
4832          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4833      END IF;
4834     END IF;
4835     IF p_isir_rec.drug_offence_conviction_type IS NOT NULL THEN
4836       IF NOT Val_Num_3(p_isir_rec.drug_offence_conviction_type) THEN
4837          p_status:=FALSE;
4838          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4839 
4840          indx:= indx+1;
4841          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('DRUG_OFFENCE_CONVICTION_TYPE');
4842          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4843      END IF;
4844     END IF;
4845     IF p_isir_rec.s_tax_return_status_type IS NOT NULL THEN
4846       IF NOT Val_Num_3(p_isir_rec.s_tax_return_status_type) THEN
4847          p_status:=FALSE;
4848          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4849 
4850          indx:= indx+1;
4851          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_TAX_RETURN_STATUS_TYPE');
4852          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4853      END IF;
4854     END IF;
4855 
4856      IF p_isir_rec.s_type_tax_return_type IS NOT NULL THEN
4857       IF NOT Val_Num_4(p_isir_rec.s_type_tax_return_type) THEN
4858          p_status:=FALSE;
4859          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4860 
4861          indx:= indx+1;
4862          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_TYPE_TAX_RETURN_TYPE');
4863          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4864      END IF;
4865     END IF;
4866     IF p_isir_rec.s_elig_1040ez_type IS NOT NULL THEN
4867       IF NOT Val_Num_3(p_isir_rec.s_elig_1040ez_type) THEN
4868          p_status:=FALSE;
4869          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
4870 
4871          indx:= indx+1;
4872          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_ELIG_1040EZ_TYPE');
4873          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4874      END IF;
4875     END IF;
4876     IF p_isir_rec.s_adjusted_gross_income_amt IS NOT NULL THEN
4877       IF NOT Val_Int(p_isir_rec.s_adjusted_gross_income_amt) THEN
4878          p_status:=FALSE;
4879          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_NUMBER');
4880 
4881          indx:= indx+1;
4882          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_ADJUSTED_GROSS_INCOME_AMT');
4883          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4884      END IF;
4885     END IF;
4886 
4887    IF p_isir_rec.s_fed_taxes_paid_amt IS NOT NULL THEN
4888       IF NOT Val_Num(5,p_isir_rec.s_fed_taxes_paid_amt) THEN
4889          p_status:=FALSE;
4890          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
4891 
4892          indx:= indx+1;
4893          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_FED_TAXES_PAID_AMT');
4894          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4895      END IF;
4896     END IF;
4897    IF p_isir_rec.s_exemptions_amt IS NOT NULL THEN
4898       IF NOT Val_Num(2,p_isir_rec.s_exemptions_amt) THEN
4899          p_status:=FALSE;
4900          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_NUMBER');
4901 
4902          indx:= indx+1;
4903          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_EXEMPTIONS_AMT');
4904          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4905      END IF;
4906     END IF;
4907     IF p_isir_rec.s_income_from_work_amt IS NOT NULL THEN
4908       IF NOT Val_Int(p_isir_rec.s_income_from_work_amt) THEN
4909          p_status:=FALSE;
4910          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_NUMBER');
4911 
4912          indx:= indx+1;
4913          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_INCOME_FROM_WORK_AMT');
4914          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4915      END IF;
4916     END IF;
4917     IF p_isir_rec.spouse_income_from_work_amt IS NOT NULL THEN
4918       IF NOT Val_Int(p_isir_rec.spouse_income_from_work_amt) THEN
4919          p_status:=FALSE;
4920          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
4921 
4922          indx:= indx+1;
4923          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SPOUSE_INCOME_FROM_WORK_AMT');
4924          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4925      END IF;
4926     END IF;
4927      IF p_isir_rec.s_total_from_wsa_amt IS NOT NULL THEN
4928       IF NOT Val_Num(5,p_isir_rec.s_total_from_wsa_amt) THEN
4929          p_status:=FALSE;
4930          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
4931 
4932          indx:= indx+1;
4933          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_TOTAL_FROM_WSA_AMT');
4934          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4935       END IF;
4936      END IF;
4937 
4938     IF p_isir_rec.s_total_from_wsb_amt IS NOT NULL THEN
4939      IF NOT Val_Num(5,p_isir_rec.s_total_from_wsb_amt) THEN
4940          p_status:=FALSE;
4941          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
4942 
4943          indx:= indx+1;
4944          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_TOTAL_FROM_WSB_AMT');
4945          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4946      END IF;
4947     END IF;
4948     IF p_isir_rec.s_total_from_wsc_amt IS NOT NULL THEN
4949      IF NOT Val_Num(5,p_isir_rec.s_total_from_wsc_amt) THEN
4950          p_status:=FALSE;
4951          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
4952 
4953          indx:= indx+1;
4954          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_TOTAL_FROM_WSC_AMT');
4955          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4956     END IF;
4957    END IF;
4958     IF p_isir_rec.s_investment_networth_amt IS NOT NULL THEN
4959      IF NOT Val_Num(6,p_isir_rec.s_investment_networth_amt) THEN
4960          p_status:=FALSE;
4961          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
4962 
4963          indx:= indx+1;
4964          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_INVESTMENT_NETWORTH_AMT');
4965          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4966     END IF;
4967    END IF;
4968     IF p_isir_rec.s_busi_farm_networth_amt IS NOT NULL THEN
4969      IF NOT Val_Num(6,p_isir_rec.s_busi_farm_networth_amt) THEN
4970          p_status:=FALSE;
4971          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
4972 
4973          indx:= indx+1;
4974          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_BUSI_FARM_NETWORTH_AMT');
4975          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4976      END IF;
4977     END IF;
4978     IF p_isir_rec.s_cash_savings_amt IS NOT NULL THEN
4979      IF NOT Val_Num(6,p_isir_rec.s_cash_savings_amt) THEN
4980          p_status:=FALSE;
4981          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
4982 
4983          indx:= indx+1;
4984          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_CASH_SAVINGS_AMT');
4985          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4986     END IF;
4987    END IF;
4988     IF p_isir_rec.va_months_num IS NOT NULL THEN
4989      IF NOT Val_Num_12(p_isir_rec.va_months_num)  THEN
4990          p_status:=FALSE;
4991          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
4992 
4993          indx:= indx+1;
4994          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('VA_MONTHS_NUM');
4995          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
4996     END IF;
4997    END IF;
4998 
4999    IF p_isir_rec.va_amt IS NOT NULL THEN
5000      IF NOT Val_Num(15,p_isir_rec.va_amt) THEN
5001          p_status:=FALSE;
5002          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5003 
5004          indx:= indx+1;
5005          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('VA_AMT');
5006          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5007     END IF;
5008    END IF;
5009     IF p_isir_rec.stud_dob_before_year_flag IS NOT NULL THEN
5010      IF NOT Val_Num_2(p_isir_rec.stud_dob_before_year_flag) THEN
5011          p_status:=FALSE;
5012          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5013 
5014          indx:= indx+1;
5015          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('STUD_DOB_BEFORE_YEAR_FLAG');
5016          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5017     END IF;
5018    END IF;
5019     IF p_isir_rec.deg_beyond_bachelor_flag IS NOT NULL THEN
5020      IF NOT Val_Num_2(p_isir_rec.deg_beyond_bachelor_flag) THEN
5021          p_status:=FALSE;
5022          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5023 
5024          indx:= indx+1;
5025          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('DEG_BEYOND_BACHELOR_FLAG');
5026          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5027     END IF;
5028    END IF;
5029 
5030    IF p_isir_rec.s_married_flag IS NOT NULL THEN
5031      IF NOT Val_Num_2(p_isir_rec.s_married_flag) THEN
5032          p_status:=FALSE;
5033          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5034 
5035          indx:= indx+1;
5036          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_MARRIED_FLAG');
5037          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5038     END IF;
5039   END IF;
5040    IF p_isir_rec.s_have_children_flag IS NOT NULL THEN
5041      IF NOT Val_Num_2(p_isir_rec.s_have_children_flag) THEN
5042          p_status:=FALSE;
5043          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5044 
5045          indx:= indx+1;
5046          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_HAVE_CHILDREN_FLAG');
5047          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5048     END IF;
5049    END IF;
5050    IF p_isir_rec.legal_dependents_flag IS NOT NULL THEN
5051      IF NOT Val_Num_2(p_isir_rec.legal_dependents_flag) THEN
5052          p_status:=FALSE;
5053          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5054 
5055          indx:= indx+1;
5056          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('LEGAL_DEPENDENTS_FLAG');
5057          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5058     END IF;
5059   END IF;
5060     IF p_isir_rec.orphan_ward_of_court_flag IS NOT NULL THEN
5061      IF NOT Val_Num_2(p_isir_rec.orphan_ward_of_court_flag) THEN
5062          p_status:=FALSE;
5063          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5064 
5065          indx:= indx+1;
5066          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('ORPHAN_WARD_OF_COURT_FLAG');
5067          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5068     END IF;
5069    END IF;
5070    IF p_isir_rec.s_veteran_flag IS NOT NULL THEN
5071      IF NOT Val_Num_2(p_isir_rec.s_veteran_flag) THEN
5072          p_status:=FALSE;
5073          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5074 
5075          indx:= indx+1;
5076          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_VETERAN_FLAG');
5077          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5078     END IF;
5079    END IF;
5080     IF p_isir_rec.p_marital_status_type IS NOT NULL THEN
5081      IF NOT Val_Num_4(p_isir_rec.p_marital_status_type) THEN
5082          p_status:=FALSE;
5083          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5084 
5085          indx:= indx+1;
5086          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_MARITAL_STATUS_TYPE');
5087          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5088     END IF;
5089    END IF;
5090 
5091    IF p_isir_rec.father_ssn_txt IS NOT NULL THEN
5092      IF NOT Val_Char_set(p_isir_rec.father_ssn_txt,9,'0123456789') THEN
5093          p_status:=FALSE;
5094          fnd_message.set_name('IGF','IGF_AP_INVALID_PAR_SSN');
5095 
5096          indx:= indx+1;
5097          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FATHER_SSN_TXT');
5098          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5099     END IF;
5100    END IF;
5101   IF p_isir_rec.f_last_name IS NOT NULL THEN
5102      IF NOT Val_Name(16,p_isir_rec.f_last_name) THEN
5103          p_status:=FALSE;
5104          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_NAME');
5105 
5106          indx:= indx+1;
5107          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('F_LAST_NAME');
5108          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5109     END IF;
5110   END IF;
5111    IF p_isir_rec.mother_ssn_txt IS NOT NULL THEN
5112      IF NOT Val_Char_set(p_isir_rec.mother_ssn_txt,9,'0123456789') THEN
5113          p_status:=FALSE;
5114          fnd_message.set_name('IGF','IGF_AP_INVALID_PAR_SSN');
5115 
5116          indx:= indx+1;
5117          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('MOTHER_SSN_TXT');
5118          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5119     END IF;
5120    END IF;
5121     IF p_isir_rec.m_last_name IS NOT NULL THEN
5122      IF NOT Val_Name(16,p_isir_rec.m_last_name) THEN
5123          p_status:=FALSE;
5124          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_NAME');
5125 
5126          indx:= indx+1;
5127          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('M_LAST_NAME');
5128          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5129     END IF;
5130    END IF;
5131     IF p_isir_rec.p_family_members_num IS NOT NULL THEN
5132      IF NOT Val_Num_NonZero(p_isir_rec.p_family_members_num,2) THEN
5133          p_status:=FALSE;
5134          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5135 
5136          indx:= indx+1;
5137          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_FAMILY_MEMBERS_NUM');
5138          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5139     END IF;
5140    END IF;
5141     IF p_isir_rec.p_in_college_num IS NOT NULL THEN
5142      IF NOT Val_Num_9(p_isir_rec.p_in_college_num) THEN
5143          p_status:=FALSE;
5144          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5145 
5146          indx:= indx+1;
5147          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_IN_COLLEGE_NUM');
5148          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5149     END IF;
5150    END IF;
5151     IF p_isir_rec.p_legal_res_before_dt_flag IS NOT NULL THEN
5152      IF NOT Val_Num_2(p_isir_rec.p_legal_res_before_dt_flag) THEN
5153          p_status:=FALSE;
5154          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5155 
5156          indx:= indx+1;
5157          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_LEGAL_RES_BEFORE_DT_FLAG');
5158          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5159     END IF;
5160    END IF;
5161 
5162    IF p_isir_rec.p_legal_res_date IS NOT NULL THEN
5163      IF NOT Val_Date_2(TO_CHAR(p_isir_rec.p_legal_res_date,'YYYYMM')) THEN
5164          p_status:=FALSE;
5165          fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5166          fnd_message.set_token('FIELD',  p_l_to_i_col('P_LEGAL_RES_DATE'));
5167 
5168          indx:= indx+1;
5169          p_igf_ap_message_table(indx).field_name:= '';
5170          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5171     END IF;
5172    END IF;
5173 
5174    IF g_sys_award_year NOT IN ('0405','0506','0607') THEN
5175      IF p_isir_rec.age_older_parent_num IS NOT NULL THEN
5176        IF NOT Val_Num(2,p_isir_rec.age_older_parent_num) THEN
5177            p_status:=FALSE;
5178            fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5179 
5180            indx:= indx+1;
5181            p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('AGE_OLDER_PARENT_NUM');
5182            p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5183       END IF;
5184     END IF;
5185   ELSE
5186      IF p_isir_rec.age_older_parent_num IS NOT NULL THEN
5187          p_status:=FALSE;
5188          fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5189          indx:= indx+1;
5190 
5191          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('AGE_OLDER_PARENT_NUM');
5192          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5193       END IF;
5194   END IF;
5195    IF p_isir_rec.p_tax_return_status_type IS NOT NULL THEN
5196      IF NOT Val_Num_3(p_isir_rec.p_tax_return_status_type) THEN
5197          p_status:=FALSE;
5198          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5199 
5200          indx:= indx+1;
5201          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_TAX_RETURN_STATUS_TYPE');
5202          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5203     END IF;
5204    END IF;
5205     IF p_isir_rec.p_type_tax_return_type IS NOT NULL THEN
5206      IF NOT Val_Num_4(p_isir_rec.p_type_tax_return_type) THEN
5207          p_status:=FALSE;
5208          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5209 
5210          indx:= indx+1;
5211          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_TYPE_TAX_RETURN_TYPE');
5212          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5213     END IF;
5214    END IF;
5215     IF p_isir_rec.p_elig_1040aez_type IS NOT NULL THEN
5216      IF NOT Val_Num_3(p_isir_rec.p_elig_1040aez_type) THEN
5217          p_status:=FALSE;
5218          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5219 
5220          indx:= indx+1;
5221          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_ELIG_1040AEZ_TYPE');
5222          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5223     END IF;
5224    END IF;
5225     IF p_isir_rec.p_adjusted_gross_income_amt IS NOT NULL THEN
5226      IF NOT Val_Num(6,p_isir_rec.p_adjusted_gross_income_amt) THEN
5227          p_status:=FALSE;
5228          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_NUMBER');
5229 
5230          indx:= indx+1;
5231          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_ADJUSTED_GROSS_INCOME_AMT');
5232          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5233     END IF;
5234    END IF;
5235 
5236    IF p_isir_rec.p_taxes_paid_amt IS NOT NULL THEN
5237      IF NOT Val_Num(6,p_isir_rec.p_taxes_paid_amt) THEN
5238          p_status:=FALSE;
5239          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5240 
5241          indx:= indx+1;
5242          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_TAXES_PAID_AMT');
5243          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5244     END IF;
5245   END IF;
5246   IF p_isir_rec.p_exemptions_amt IS NOT NULL THEN
5247      IF NOT Val_Num(2,p_isir_rec.p_exemptions_amt) THEN
5248          p_status:=FALSE;
5249          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5250 
5251          indx:= indx+1;
5252          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_EXEMPTIONS_AMT');
5253          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5254     END IF;
5255    END IF;
5256     IF p_isir_rec.f_income_work_amt IS NOT NULL THEN
5257      IF NOT Val_Int(p_isir_rec.f_income_work_amt) THEN
5258          p_status:=FALSE;
5259          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_NUMBER');
5260 
5261          indx:= indx+1;
5262          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('F_INCOME_WORK_AMT');
5263          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5264     END IF;
5265    END IF;
5266    IF p_isir_rec.m_income_work_amt IS NOT NULL THEN
5267      IF NOT Val_Int(p_isir_rec.m_income_work_amt) THEN
5268          p_status:=FALSE;
5269          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_NUMBER');
5270 
5271          indx:= indx+1;
5272          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('M_INCOME_WORK_AMT');
5273          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5274     END IF;
5275    END IF;
5276    IF p_isir_rec.p_income_wsa_amt IS NOT NULL THEN
5277      IF NOT Val_Num(5,p_isir_rec.p_income_wsa_amt) THEN
5278          p_status:=FALSE;
5279          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5280 
5281          indx:= indx+1;
5282          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_INCOME_WSA_AMT');
5283          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5284     END IF;
5285    END IF;
5286 
5287    IF p_isir_rec.p_income_wsb_amt IS NOT NULL THEN
5288      IF NOT Val_Num(5,p_isir_rec.p_income_wsb_amt) THEN
5289          p_status:=FALSE;
5290          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5291 
5292          indx:= indx+1;
5293          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_INCOME_WSB_AMT');
5294          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5295     END IF;
5296    END IF;
5297    IF p_isir_rec.p_income_wsc_amt IS NOT NULL THEN
5298      IF NOT Val_Num(5,p_isir_rec.p_income_wsc_amt) THEN
5299          p_status:=FALSE;
5300          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5301 
5302          indx:= indx+1;
5303          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_INCOME_WSC_AMT');
5304          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5305     END IF;
5306   END IF;
5307   IF p_isir_rec.p_investment_networth_amt IS NOT NULL THEN
5308      IF NOT Val_Num(6,p_isir_rec.p_investment_networth_amt) THEN
5309          p_status:=FALSE;
5310          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5311 
5312          indx:= indx+1;
5313          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_INVESTMENT_NETWORTH_AMT');
5314          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5315     END IF;
5316    END IF;
5317    IF p_isir_rec.p_business_networth_amt IS NOT NULL THEN
5318      IF NOT Val_Num(6,p_isir_rec.p_business_networth_amt) THEN
5319          p_status:=FALSE;
5320          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5321 
5322          indx:= indx+1;
5323          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_BUSINESS_NETWORTH_AMT');
5324          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5325     END IF;
5326   END IF;
5327    IF p_isir_rec.p_cash_saving_amt IS NOT NULL THEN
5328      IF NOT Val_Num(6,p_isir_rec.p_cash_saving_amt) THEN
5329          p_status:=FALSE;
5330          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5331 
5332          indx:= indx+1;
5333          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('P_CASH_SAVING_AMT');
5334          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5335     END IF;
5336   END IF;
5337 
5338    IF p_isir_rec.s_family_members_num IS NOT NULL THEN
5339      IF NOT Val_Num_NonZero(p_isir_rec.s_family_members_num,2) THEN
5340          p_status:=FALSE;
5341          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5342 
5343          indx:= indx+1;
5344          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_FAMILY_MEMBERS_NUM');
5345          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5346     END IF;
5347   END IF;
5348    IF p_isir_rec.s_in_college_num IS NOT NULL THEN
5349      IF NOT Val_Num_NonZero(p_isir_rec.s_in_college_num,1) THEN
5350          p_status:=FALSE;
5351          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5352 
5353          indx:= indx+1;
5354          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_IN_COLLEGE_NUM');
5355          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5356     END IF;
5357   END IF;
5358     IF p_isir_rec.first_college_cd IS NOT NULL THEN
5359      IF NOT Val_School_Cd(p_isir_rec.first_college_cd,6) THEN
5360          p_status:=FALSE;
5361          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_SCH_CODE');
5362 
5363          indx:= indx+1;
5364          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FIRST_COLLEGE_CD');
5365          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5366     END IF;
5367   END IF;
5368    IF p_isir_rec.first_house_plan_type IS NOT NULL THEN
5369      IF NOT Val_Num_3(p_isir_rec.first_house_plan_type) THEN
5370          p_status:=FALSE;
5371          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5372 
5373          indx:= indx+1;
5374          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FIRST_HOUSE_PLAN_TYPE');
5375          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5376     END IF;
5377   END IF;
5378    IF p_isir_rec.second_college_cd IS NOT NULL THEN
5379      IF NOT Val_School_Cd(p_isir_rec.second_college_cd,6) THEN
5380          p_status:=FALSE;
5381          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_SCH_CODE');
5382 
5383          indx:= indx+1;
5384          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SECOND_COLLEGE_CD');
5385          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5386     END IF;
5387    END IF;
5388     IF p_isir_rec.second_house_plan_type IS NOT NULL THEN
5389      IF NOT Val_Num_3(p_isir_rec.second_house_plan_type) THEN
5390          p_status:=FALSE;
5391          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5392 
5393          indx:= indx+1;
5394          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SECOND_HOUSE_PLAN_TYPE');
5395          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5396     END IF;
5397    END IF;
5398 
5399     IF p_isir_rec.third_college_cd IS NOT NULL THEN
5400      IF NOT Val_School_Cd(p_isir_rec.third_college_cd,6) THEN
5401          p_status:=FALSE;
5402          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_SCH_CODE');
5403 
5404          indx:= indx+1;
5405          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('THIRD_COLLEGE_CD');
5406          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5407     END IF;
5408   END IF;
5409    IF p_isir_rec.third_house_plan_type IS NOT NULL THEN
5410      IF NOT Val_Num_3(p_isir_rec.third_house_plan_type) THEN
5411          p_status:=FALSE;
5412          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5413 
5414          indx:= indx+1;
5415          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('THIRD_HOUSE_PLAN_TYPE');
5416          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5417     END IF;
5418   END IF;
5419     IF p_isir_rec.fourth_college_cd IS NOT NULL THEN
5420      IF NOT Val_School_Cd(p_isir_rec.fourth_college_cd,6) THEN
5421          p_status:=FALSE;
5422          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_SCH_CODE');
5423 
5424          indx:= indx+1;
5425          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FOURTH_COLLEGE_CD');
5426          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5427     END IF;
5428    END IF;
5429     IF p_isir_rec.fourth_house_plan_type IS NOT NULL THEN
5430      IF NOT Val_Num_3(p_isir_rec.fourth_house_plan_type) THEN
5431          p_status:=FALSE;
5432          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5433 
5434          indx:= indx+1;
5435          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FOURTH_HOUSE_PLAN_TYPE');
5436          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5437     END IF;
5438    END IF;
5439     IF p_isir_rec.fifth_college_cd IS NOT NULL THEN
5440      IF NOT Val_School_Cd(p_isir_rec.fifth_college_cd,6) THEN
5441          p_status:=FALSE;
5442          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_SCH_CODE');
5443 
5444          indx:= indx+1;
5445          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FIFTH_COLLEGE_CD');
5446          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5447     END IF;
5448    END IF;
5449    IF p_isir_rec.fifth_house_plan_type IS NOT NULL THEN
5450      IF NOT Val_Num_3(p_isir_rec.fifth_house_plan_type) THEN
5451          p_status:=FALSE;
5452          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5453 
5454          indx:= indx+1;
5455          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FIFTH_HOUSE_PLAN_TYPE');
5456          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5457     END IF;
5458    END IF;
5459     IF p_isir_rec.sixth_college_cd IS NOT NULL THEN
5460      IF NOT Val_School_Cd(p_isir_rec.sixth_college_cd,6) THEN
5461          p_status:=FALSE;
5462          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_SCH_CODE');
5463 
5464          indx:= indx+1;
5465          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SIXTH_COLLEGE_CD');
5466          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5467     END IF;
5468    END IF;
5469    IF p_isir_rec.sixth_house_plan_type IS NOT NULL THEN
5470      IF NOT Val_Num_3(p_isir_rec.sixth_house_plan_type) THEN
5471          p_status:=FALSE;
5472          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5473 
5474          indx:= indx+1;
5475          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SIXTH_HOUSE_PLAN_TYPE');
5476          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5477     END IF;
5478   END IF;
5479    IF p_isir_rec.signed_by_type IS NOT NULL THEN
5480      IF NOT Val_Signed_By(p_isir_rec.signed_by_type) THEN
5481          p_status:=FALSE;
5482          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5483 
5484          indx:= indx+1;
5485          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SIGNED_BY_TYPE');
5486          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5487     END IF;
5488    END IF;
5489     IF p_isir_rec.preparer_ssn_txt IS NOT NULL THEN
5490      IF NOT Val_Char_set(p_isir_rec.preparer_ssn_txt,9,'0123456789') THEN
5491          p_status:=FALSE;
5492          fnd_message.set_name('IGF','IGF_AP_INVALID_PAR_SSN');
5493 
5494          indx:= indx+1;
5495          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('PREPARER_SSN_TXT');
5496          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5497     END IF;
5498    END IF;
5499     IF p_isir_rec.preparer_emp_id_number_txt IS NOT NULL THEN
5500      IF NOT Val_Num(9,p_isir_rec.preparer_emp_id_number_txt) THEN
5501          p_status:=FALSE;
5502          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_P_EMP_ID');
5503 
5504          indx:= indx+1;
5505          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('PREPARER_EMP_ID_NUMBER_TXT');
5506          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5507     END IF;
5508    END IF;
5509    IF p_isir_rec.preparer_sign_flag IS NOT NULL THEN
5510      IF NOT Val_Num_1(p_isir_rec.preparer_sign_flag) THEN
5511          p_status:=FALSE;
5512          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5513 
5514          indx:= indx+1;
5515          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('PREPARER_SIGN_FLAG');
5516          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5517     END IF;
5518    END IF;
5519     IF p_isir_rec.dependency_override_type IS NOT NULL THEN
5520      IF NOT Val_Num_2(p_isir_rec.dependency_override_type) THEN
5521          p_status:=FALSE;
5522          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5523 
5524          indx:= indx+1;
5525          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('DEPENDENCY_OVERRIDE_TYPE');
5526          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5527     END IF;
5528    END IF;
5529     IF p_isir_rec.faa_adjustment_type IS NOT NULL THEN
5530      IF NOT Val_Num_2(p_isir_rec.faa_adjustment_type) THEN
5531          p_status:=FALSE;
5532          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5533 
5534          indx:= indx+1;
5535          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FAA_ADJUSTMENT_TYPE');
5536          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5537     END IF;
5538    END IF;
5539    IF g_sys_award_year NOT IN ('0405','0506','0607') THEN
5540     IF p_isir_rec.early_analysis_flag IS NOT NULL THEN
5541       IF NOT Val_Num_1(p_isir_rec.early_analysis_flag) THEN
5542          p_status:=FALSE;
5543          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5544 
5545          indx:= indx+1;
5546          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('EARLY_ANALYSIS_FLAG');
5547          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5548       END IF;
5549     END IF;
5550    ELSE
5551        IF p_isir_rec.early_analysis_flag IS NOT NULL THEN
5552         p_status:=FALSE;
5553         indx:= indx+1;
5554         fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5555 
5556         p_igf_ap_message_table(indx).field_name:='EARLY_ANALYSIS_FLAG';
5557         p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5558        END IF;
5559    END IF;
5560     IF p_isir_rec.drn_num IS NOT NULL THEN
5561      IF NOT Val_Num_NonZero(p_isir_rec.drn_num,4) THEN
5562          p_status:=FALSE;
5563          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_DRN');
5564 
5565          indx:= indx+1;
5566          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('DRN_NUM');
5567          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5568     END IF;
5569    END IF;
5570     IF p_isir_rec.orig_name_id_txt IS NOT NULL THEN
5571      IF NOT Val_Alpha(p_isir_rec.orig_name_id_txt,2) THEN
5572      p_status:=FALSE;
5573      fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5574 
5575      indx:= indx+1;
5576      p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('ORIG_NAME_ID_TXT');
5577      p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5578     END IF;
5579    END IF;
5580    IF p_isir_rec.s_email_address_txt IS NOT NULL THEN
5581      IF NOT Val_Email(50,p_isir_rec.s_email_address_txt) THEN
5582          p_status:=FALSE;
5583          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_EMAIL_ADD');
5584 
5585          indx:= indx+1;
5586          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('S_EMAIL_ADDRESS_TXT');
5587          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5588     END IF;
5589   END IF;
5590 
5591   IF g_sys_award_year NOT IN ('0405','0506','0607') THEN
5592      IF p_isir_rec.input_record_type IS NOT NULL THEN
5593        IF NOT Val_Input_Rec_type(p_isir_rec.input_record_type) THEN
5594            p_status:=FALSE;
5595            fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5596 
5597            indx:= indx+1;
5598            p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('INPUT_RECORD_TYPE');
5599            p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5600        END IF;
5601      END IF;
5602   ELSE
5603      IF p_isir_rec.input_record_type IS NOT NULL THEN
5604          p_status:=FALSE;
5605          fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5606          indx:= indx+1;
5607 
5608          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('INPUT_RECORD_TYPE');
5609          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5610      END IF;
5611   END IF;
5612    IF p_isir_rec.transaction_num_txt IS NOT NULL THEN
5613      IF NOT Val_Num_NonZero(p_isir_rec.transaction_num_txt,2) THEN
5614          p_status:=FALSE;
5615          fnd_message.set_name('IGF','IGF_AP_INVALID_TRAN_NUM');
5616 
5617          indx:= indx+1;
5618          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('TRANSACTION_NUM_TXT');
5619          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5620     END IF;
5621    END IF;
5622    IF NOT Val_Num_NonZero(p_isir_rec.serial_num,5) THEN
5623          p_status:=FALSE;
5624          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5625 
5626          indx:= indx+1;
5627          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('SERIAL_NUM');
5628          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5629    END IF;
5630 
5631  IF g_sys_award_year IN ('0405','0506','0607') THEN
5632      IF p_isir_rec.father_first_name_initial_txt IS NOT NULL THEN
5633        IF NOT Val_Alpha(p_isir_rec.father_first_name_initial_txt,1) OR p_isir_rec.father_first_name_initial_txt <> UPPER(p_isir_rec.father_first_name_initial_txt)  THEN
5634          p_status:=FALSE;
5635          message := NULL;
5636          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5637          message := fnd_message.get;
5638          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_INITIAL');
5639          message := message || fnd_message.get;
5640          indx:= indx+1;
5641 
5642          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FATHER_FIRST_NAME_INITIAL_TXT');
5643          p_igf_ap_message_table(indx).msg_text := message;
5644 
5645        END IF;
5646      END IF;
5647   ELSE
5648      IF p_isir_rec.father_first_name_initial_txt IS NOT NULL THEN
5649          p_status:=FALSE;
5650          fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5651          indx:= indx+1;
5652 
5653          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FATHER_FIRST_NAME_INITIAL_TXT');
5654          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5655      END IF;
5656   END IF;
5657 
5658   IF g_sys_award_year IN ('0405','0506','0607') THEN
5659      IF p_isir_rec.father_step_father_birth_date IS NOT NULL THEN
5660        IF NOT Val_date(TO_CHAR(p_isir_rec.father_step_father_birth_date,'YYYYMMDD')) THEN
5661          p_status:=FALSE;
5662          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_DOB');
5663          indx:= indx+1;
5664 
5665          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FATHER_STEP_FATHER_BIRTH_DATE');
5666          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5667        END IF;
5668      END IF;
5669   ELSE
5670      IF p_isir_rec.father_step_father_birth_date IS NOT NULL THEN
5671          p_status:=FALSE;
5672          fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5673          indx:= indx+1;
5674 
5675          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('FATHER_STEP_FATHER_BIRTH_DATE');
5676          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5677      END IF;
5678   END IF;
5679   IF g_sys_award_year IN ('0405','0506','0607') THEN
5680      IF p_isir_rec.mother_first_name_initial_txt IS NOT NULL THEN
5681        IF NOT Val_Alpha(p_isir_rec.mother_first_name_initial_txt,1) OR p_isir_rec.mother_first_name_initial_txt <> UPPER(p_isir_rec.mother_first_name_initial_txt)  THEN
5682          p_status:=FALSE;
5683          message := NULL;
5684          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_VALUE');
5685          message := fnd_message.get;
5686          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_INITIAL');
5687          message := message || fnd_message.get;
5688          indx:= indx+1;
5689 
5690          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('MOTHER_FIRST_NAME_INITIAL_TXT');
5691          p_igf_ap_message_table(indx).msg_text := message;
5692 
5693        END IF;
5694      END IF;
5695   ELSE
5696      IF p_isir_rec.mother_first_name_initial_txt IS NOT NULL THEN
5697          p_status:=FALSE;
5698          fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5699          indx:= indx+1;
5700 
5701          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('MOTHER_FIRST_NAME_INITIAL_TXT');
5702          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5703      END IF;
5704   END IF;
5705   IF g_sys_award_year IN ('0405','0506','0607') THEN
5706      IF p_isir_rec.mother_step_mother_birth_date IS NOT NULL THEN
5707        IF NOT Val_date(TO_CHAR(p_isir_rec.mother_step_mother_birth_date,'YYYYMMDD')) THEN
5708          p_status:=FALSE;
5709          fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_DOB');
5710          indx:= indx+1;
5711 
5712          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('MOTHER_STEP_MOTHER_BIRTH_DATE');
5713          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5714        END IF;
5715      END IF;
5716   ELSE
5717      IF p_isir_rec.mother_step_mother_birth_date IS NOT NULL THEN
5718          p_status:=FALSE;
5719          fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5720          indx:= indx+1;
5721 
5722          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('MOTHER_STEP_MOTHER_BIRTH_DATE');
5723          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5724      END IF;
5725   END IF;
5726   IF g_sys_award_year IN ('0405','0506','0607') THEN
5727     IF p_isir_rec.parents_email_address_txt IS NOT NULL THEN
5728         IF NOT Val_Email(50,p_isir_rec.parents_email_address_txt) THEN
5729                            p_status:=FALSE;
5730                            fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_EMAIL_ADD');
5731                            indx:= indx+1;
5732 
5733                            p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('PARENTS_EMAIL_ADDRESS_TXT');
5734                            p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5735         END IF;
5736     END IF;
5737   ELSE
5738      IF p_isir_rec.parents_email_address_txt IS NOT NULL THEN
5739          p_status:=FALSE;
5740          fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5741          indx:= indx+1;
5742 
5743          p_igf_ap_message_table(indx).field_name:= p_l_to_i_col('PARENTS_EMAIL_ADDRESS_TXT');
5744          p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5745      END IF;
5746   END IF;
5747 
5748 
5749   IF g_sys_award_year NOT IN ('0405','0506','0607') THEN
5750      IF p_isir_rec.cps_pushed_isir_flag IS NOT NULL THEN
5751         p_status:=FALSE;
5752         indx:= indx+1;
5753         fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5754 
5755         p_igf_ap_message_table(indx).field_name:='CPS_PUSHED_ISIR_FLAG';
5756         p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5757      END IF;
5758   END IF;
5759 
5760  IF g_sys_award_year NOT IN ('0405','0506','0607') THEN
5761     IF p_isir_rec.electronic_transaction_type IS NOT NULL THEN
5762         p_status:=FALSE;
5763         indx:= indx+1;
5764         fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5765 
5766         p_igf_ap_message_table(indx).field_name:='ELECTRONIC_TRANSACTION_TYPE';
5767         p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5768 
5769     END IF;
5770   END IF;
5771 
5772   IF g_sys_award_year NOT IN ('0405','0506','0607') THEN
5773     IF p_isir_rec.sar_c_change_type IS NOT NULL THEN
5774         p_status:=FALSE;
5775         indx:= indx+1;
5776         fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5777 
5778         p_igf_ap_message_table(indx).field_name:='SAR_C_CHANGE_TYPE';
5779         p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5780     END IF;
5781   END IF;
5782 
5783   IF g_sys_award_year NOT IN ('0405','0506','0607') THEN
5784     IF p_isir_rec.father_ssn_match_type IS NOT NULL THEN
5785         p_status:=FALSE;
5786         indx:= indx+1;
5787         fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5788 
5789         p_igf_ap_message_table(indx).field_name:='FATHER_SSN_MATCH_TYPE';
5790         p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5791     END IF;
5792   END IF;
5793 
5794   IF g_sys_award_year NOT IN ('0405','0506','0607') THEN
5795     IF p_isir_rec.mother_ssn_match_type IS NOT NULL THEN
5796         p_status:=FALSE;
5797         indx:= indx+1;
5798         fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5799 
5800         p_igf_ap_message_table(indx).field_name:='MOTHER_SSN_MATCH_TYPE';
5801         p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5802     END IF;
5803   END IF;
5804 
5805   IF g_sys_award_year NOT IN ('0405','0506','0607') THEN
5806     IF p_isir_rec.reject_override_g_flag IS NOT NULL THEN
5807         p_status:=FALSE;
5808         indx:= indx+1;
5809         fnd_message.set_name('IGF','IGF_AP_REQ_NULL_VALUE');
5810 
5811         p_igf_ap_message_table(indx).field_name:='REJECT_OVERRIDE_G_FLAG';
5812         p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5813     END IF;
5814   END IF;
5815 
5816   IF g_sys_award_year IN ('0203','0304') THEN
5817     IF p_isir_rec.dhs_verification_num_txt IS NOT NULL AND NOT Val_Num(15,p_isir_rec.dhs_verification_num_txt) THEN
5818         p_status:=FALSE;
5819         indx:= indx+1;
5820         fnd_message.set_name('IGF','IGF_AP_SAR_INVALID_PTIVE_NUM');
5821 
5822         p_igf_ap_message_table(indx).field_name:='DHS_VERIFICATION_NUM_TXT';
5823         p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5824     END IF;
5825   END IF;
5826 
5827   END validate_isir_rec;
5828 
5829 
5830 FUNCTION remove_spl_chr(pv_ssn        IN igf_ap_isir_ints_all.CURRENT_SSN_TXT%TYPE)
5831 RETURN VARCHAR2
5832 IS
5833   /*
5834   ||  Created By : rasingh
5835   ||  Created On : 19-Apr-2002
5836   ||  Purpose :        Strips the special charactes from SSN and returns just the number
5837   ||  Known limitations, enhancements or remarks :
5838   ||  Change History :
5839   ||  Who              When              What
5840   ||  (reverse chronological order - newest change first)
5841   */
5842 
5843    ln_ssn VARCHAR2(20);
5844 
5845 BEGIN
5846 
5847    SELECT TRANSLATE (pv_ssn,'1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ`~!@#$%^&*_+=-,./?><():; ','1234567890')
5848    INTO   ln_ssn
5849    FROM   dual;
5850 
5851    RETURN ln_ssn;
5852 
5853 EXCEPTION
5854    WHEN        others THEN
5855    RETURN '-1';
5856 
5857 END remove_spl_chr;
5858 
5859   PROCEDURE main (         errbuf         IN OUT  NOCOPY VARCHAR2,
5860                            retcode        IN OUT  NOCOPY NUMBER,
5861                            p_award_year   IN VARCHAR2,
5862                            p_batch_id     IN NUMBER,
5863                            p_del_int      IN VARCHAR2,
5864                            p_cps_import   IN VARCHAR2 )
5865             IS
5866      /***************************************************************
5867        Created By :       rasahoo
5868        Date Created By  : 03-June-2003
5869        Purpose    : To Import legscy ISIR record
5870        Known Limitations,Enhancements or Remarks
5871        Change History :
5872        Who       When          What
5873      tsailaja  13/Jan/2006     Bug 4947880 Added invocation of igf_aw_gen.set_org_id(NULL);
5874        veramach  11-Dec-2003   Bug # 3184891 Removed references to igf_ap_gen. write_log and added common logging
5875        bkkumar   05-Aug-2003   Bug# 3025723 Added code to prefix the transaction_num_txt
5876                                with '0' if it is of length one.
5877 
5878      ***************************************************************/
5879   CURSOR c_award_det(p_ci_cal_type        igs_ca_inst.cal_type%TYPE,
5880                               p_ci_sequence_number igs_ca_inst.sequence_number%TYPE
5881                     ) IS
5882              SELECT
5883                BATCH_YEAR   batch_year,
5884                AWARD_YEAR_STATUS_CODE,
5885                SYS_AWARD_YEAR
5886              FROM
5887                   IGF_AP_BATCH_AW_MAP
5888              WHERE
5889                   CI_CAL_TYPE = p_ci_cal_type
5890              AND  CI_SEQUENCE_NUMBER = p_ci_sequence_number;
5891 
5892    CURSOR c_igf_ap_fa_base_rec(p_person_id       NUMBER,
5893                                p_ci_cal_type     VARCHAR2,
5894                                p_sequence_number VARCHAR2
5895                                )
5896             IS
5897                SELECT
5898                      base_id
5899                FROM
5900                     igf_ap_fa_base_rec fa
5901                WHERE
5902                     fa.ci_cal_type =p_ci_cal_type
5903                AND  fa.ci_sequence_number = p_sequence_number
5904                AND  fa.person_id = p_person_id;
5905 
5906 
5907 
5908   CURSOR c_transaction_num(p_base_id         NUMBER,
5909                            p_transaction_num VARCHAR2)
5910   IS
5911    SELECT
5912        im.transaction_num
5913     FROM
5914        igf_ap_isir_matched im
5915     WHERE
5916        im.base_id =p_base_id  and
5917        im.transaction_num = p_transaction_num and
5918        rownum = 1  ;
5919 
5920    CURSOR c_lkup_values(p_lookup_code  VARCHAR2 )
5921    IS
5922      SELECT   meaning
5923      FROM     igf_aw_lookups_view
5924      WHERE    lookup_type ='IGF_AW_LOOKUPS_MSG'
5925      AND lookup_code =p_lookup_code
5926      AND enabled_flag = 'Y' ;
5927 
5928   CURSOR  c_nslds_data(p_base_id NUMBER)
5929   IS
5930     SELECT
5931       NSLDS.ROW_ID,
5932       NSLDS.NSLDS_ID,
5933       NSLDS.NSLDS_TRANSACTION_NUM
5934     FROM
5935       IGF_AP_NSLDS_DATA NSLDS
5936     WHERE
5937       BASE_ID = p_base_id;
5938 
5939 
5940    -- Get the  record status
5941 
5942   CURSOR c_get_rowid(p_base_id NUMBER,
5943                       p_transn_num VARCHAR2)
5944   IS
5945    SELECT rowid,isir_id
5946      FROM igf_ap_isir_matched
5947     WHERE transaction_num=p_transn_num
5948       AND base_id=p_base_id
5949       AND system_record_type='ORIGINAL';
5950 
5951     -- cursor to get alternate code for award year
5952     CURSOR c_alternate_code( cp_ci_cal_type         igs_ca_inst.cal_type%TYPE,
5953                              cp_ci_sequence_number  igs_ca_inst.sequence_number%TYPE ) IS
5954        SELECT alternate_code
5955          FROM igs_ca_inst
5956         WHERE cal_type        = cp_ci_cal_type
5957           AND sequence_number = cp_ci_sequence_number ;
5958 
5959         l_alternate_code   igs_ca_inst.alternate_code%TYPE ;
5960 
5961 
5962     -- cursor to get sys award year and award year status
5963     CURSOR c_get_stat(  p_ci_cal_type VARCHAR2,p_ci_sequence_number NUMBER)IS
5964        SELECT award_year_status_code, sys_award_year
5965          FROM igf_ap_batch_aw_map   map
5966         WHERE map.ci_cal_type         = p_ci_cal_type
5967           AND map.ci_sequence_number  = p_ci_sequence_number ;
5968 
5969          g_award_year_status    igf_ap_batch_aw_map.award_year_status_code%TYPE ;
5970          l_batch_valid          VARCHAR2(1) ;
5971 
5972          c_get_rowid_rec                  c_get_rowid%ROWTYPE;
5973 
5974          -- Get the details of
5975          CURSOR c_get_person_id( lv_ssn   VARCHAR2
5976                      ) IS
5977 
5978          SELECT 'SSN' rec_type,
5979                 api.pe_person_id person_id
5980            FROM igs_pe_alt_pers_id api,
5981                 igs_pe_person_id_typ pit
5982           WHERE api.person_id_type        = pit.person_id_type
5983             AND pit.s_person_id_type = 'SSN'
5984             AND SYSDATE between api.start_dt AND NVL(api.end_dt,SYSDATE)
5985             AND api.api_person_id_uf = lv_ssn ;
5986 
5987 
5988 
5989        c_get_person_id_rec      c_get_person_id%ROWTYPE;
5990 
5991 
5992 
5993 
5994          oss_country_code                 VARCHAR2(5):='US';
5995          igs_ps_participate_fa_prog       VARCHAR2(25):='Y';
5996          c_award_det_rec                  c_award_det%ROWTYPE;
5997          isir_rec                         IGF_AP_ISIR_MATCHED%ROWTYPE;
5998          c_igf_ap_fa_base_rec_rec         c_igf_ap_fa_base_rec%ROWTYPE;
5999          c_transaction_num_rec            c_transaction_num%ROWTYPE;
6000          b_batch_year_found               BOOLEAN :=FALSE;
6001          l_ci_cal_type                    VARCHAR2(10);
6002          l_ci_sequence_number             NUMBER;
6003          l_oss_country_code               VARCHAR2(5);
6004          l_igs_ps_participate_fa_prog     VARCHAR2(25);
6005          p_validation_status              BOOLEAN :=TRUE;
6006          c_lkup_values_err_rec            c_lkup_values%ROWTYPE;
6007          c_lkup_values_pn_rec             c_lkup_values%ROWTYPE;
6008          c_lkup_values_bi_rec             c_lkup_values%ROWTYPE;
6009 
6010          c_nslds_data_rec                 c_nslds_data%ROWTYPE;
6011 
6012 
6013          l_igf_ap_message_table           igf_ap_message_table;
6014 
6015          counter                          NUMBER;
6016          l_rowid                          VARCHAR2(30):=NULL;
6017          l_isir_id                        NUMBER:=NULL;
6018          l_base_id                        NUMBER :=NULL;
6019          l_nslds_id                       NUMBER:=NULL;
6020          pv_isir_id                        NUMBER:=NULL;
6021 
6022          lv_person_number                 c_int_data_rec.person_number%TYPE;
6023          lv_ci_cal_type                   VARCHAR2(10);
6024          lv_ci_sequence_number            NUMBER;
6025          lv_person_id                     NUMBER;
6026          lv_fa_base_id                    c_igf_ap_fa_base_rec_rec.base_id%TYPE;
6027 
6028          l_ret_profile                    VARCHAR2(2);
6029          l_updated                        VARCHAR2(1):='N';
6030          l_num_recrd_passed               NUMBER:=0;
6031          l_num_recrd_failed               NUMBER:=0;
6032          l_num_recrd_processed            NUMBER := 0;
6033          l_valid_for_dml                  VARCHAR2(2);
6034          l_dup_tran_num_exists            VARCHAR2(2);
6035          l_update                         VARCHAR2(2);
6036          l_new_base_created               VARCHAR2(2) ;
6037          indx                             NUMBER;
6038          -- Get the details of sys award year
6039          CURSOR c_sys_aw_yr(p_ci_cal_type VARCHAR2,p_ci_sequence_number NUMBER)
6040          IS
6041          SELECT SYS_AWARD_YEAR
6042          FROM IGF_AP_BATCH_AW_MAP
6043          WHERE CI_CAL_TYPE = p_ci_cal_type
6044          AND   CI_SEQUENCE_NUMBER=p_ci_sequence_number;
6045          c_sys_aw_yr_rec  c_sys_aw_yr%ROWTYPE;
6046          TYPE message_rec IS RECORD
6047                   (msg_text      VARCHAR2(4000));
6048          TYPE l_message_table IS TABLE OF message_rec
6049                               INDEX BY BINARY_INTEGER;
6050          g_message_table          l_message_table;
6051          lv_ssn                   VARCHAR2(30);
6052          lv_fname                 VARCHAR2(30);
6053          lv_lname                 VARCHAR2(30);
6054          l_value                  BOOLEAN ;
6055          l_award_fmly_contribution_type VARCHAR2(1);
6056 
6057  BEGIN
6058     igf_aw_gen.set_org_id(NULL);
6059         g_import_type := p_cps_import;
6060         l_ci_cal_type          := LTRIM(RTRIM(SUBSTR(p_award_year,1,10)));
6061         l_ci_sequence_number   := TO_NUMBER(SUBSTR(p_award_year,11));
6062         IF NVL(p_cps_import,'N') = 'Y' THEN
6063            l_cps_log := 'Y' ;
6064         ELSE
6065            l_cps_log := 'N' ;
6066         END IF;
6067 
6068         -- Get the Award Year Alternate Code
6069         l_alternate_code := NULL;
6070         OPEN  c_alternate_code( l_ci_cal_type, l_ci_sequence_number ) ;
6071         FETCH c_alternate_code INTO l_alternate_code ;
6072         CLOSE c_alternate_code ;
6073 
6074         -- Log input params
6075         log_input_params(  p_batch_id, l_alternate_code,  p_del_int,p_cps_import);
6076 
6077         c_lkup_values_err_rec := NULL;
6078         OPEN  c_lkup_values('ERROR');
6079         FETCH c_lkup_values INTO c_lkup_values_err_rec;
6080         CLOSE c_lkup_values;
6081         l_error := c_lkup_values_err_rec.meaning;
6082 
6083         IF NVL(p_cps_import,'N') = 'Y' THEN
6084            OPEN  c_lkup_values('SSN');
6085         ELSE
6086            OPEN  c_lkup_values('PERSON_NUMBER');
6087         END IF;
6088            c_lkup_values_pn_rec := NULL;
6089            FETCH c_lkup_values INTO c_lkup_values_pn_rec;
6090            CLOSE c_lkup_values;
6091 
6092         c_lkup_values_bi_rec := NULL;
6093         OPEN  c_lkup_values('BATCH_ID');
6094         FETCH c_lkup_values INTO c_lkup_values_bi_rec;
6095         CLOSE c_lkup_values;
6096 
6097         -- Check if the  profiles are set
6098         l_ret_profile:=igf_ap_gen.check_profile;
6099 
6100         IF l_ret_profile <> 'Y' THEN
6101 
6102           -- check if country code is not'US' AND does not participate in financial aidprogram  THEN
6103           -- write into the log file and exit process
6104 
6105           fnd_message.set_name('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
6106           fnd_file.put(fnd_file.log,c_lkup_values_err_rec.meaning || l_blank || fnd_message.get);
6107           RETURN;
6108 
6109         END IF;
6110 
6111         /******************************
6112         batch level validations
6113         ******************************/
6114 
6115         -- Get Award Year Status
6116         OPEN  c_get_stat( l_ci_cal_type,l_ci_sequence_number) ;
6117         FETCH c_get_stat INTO g_award_year_status, g_sys_award_year ;
6118         -- check validity of award year
6119         IF c_get_stat%NOTFOUND THEN
6120             -- Award Year setup tampered .... Log a message
6121             fnd_message.set_name('IGF','IGF_AP_AWD_YR_NOT_FOUND');
6122             fnd_message.set_token('P_AWARD_YEAR', l_alternate_code);
6123             fnd_file.put_line(fnd_file.log,l_error || l_blank || fnd_message.get);
6124 
6125             RETURN;
6126         ELSE
6127             -- Award year exists but is it Open/Legacy Details .... check
6128             IF g_award_year_status NOT IN ('O','LD') THEN
6129                fnd_message.set_namE('IGF','IGF_AP_LG_INVALID_STAT');
6130                fnd_message.set_token('AWARD_STATUS', g_award_year_status);
6131                fnd_file.put_line(fnd_file.log,l_error || l_blank || fnd_message.get);
6132 
6133                RETURN;
6134             END IF ;  -- awd ye open or legacy detail chk
6135         END IF ; -- award year invalid check
6136         CLOSE c_get_stat ;
6137 
6138         -- check validity of batch
6139         IF NVL(p_cps_import,'N') <> 'Y' THEN
6140         l_batch_valid := igf_ap_gen.check_batch ( p_batch_id, 'ISIR') ;
6141           IF NVL(l_batch_valid,'N') <> 'Y' THEN
6142               fnd_message.set_name('IGF','IGF_GR_BATCH_DOES_NOT_EXIST');
6143               fnd_file.put_line(fnd_file.log,l_error || l_blank || fnd_message.get);
6144               RETURN;
6145           END IF;
6146         END IF;
6147 
6148              -- Populate the Lookup Types to be validated for each ISIR into a PL/SQL Table
6149              c_award_det_rec := NULL;
6150              OPEN c_award_det(l_ci_cal_type,l_ci_sequence_number);
6151              FETCH c_award_det INTO c_award_det_rec;
6152              CLOSE c_award_det;
6153 
6154              -- This concatenation done because line length exceeds 250, which is not allowed by GSCC standards
6155              put_hash_values('IGF_AP_STATE_CODES,IGF_CITIZENSHIP_TYPE,IGF_ST_MARITAL_STAT_TYPE,IGF_ENROLMENT_TYPE,IGF_HIGH_GRAD_LVL_TYPE,IGF_DEG_CERT_TYPE,IGF_AP_GRADE_LEVEL,IGF_DRUG_ELIGIBILITY_TYPE,IGF_TAX_RET_STAT_TYPE,IGF_TAX_FORM_TYPE,'
6156              ||'IGF_TAX_EXEMPTION_ELIG_TYPE,IGF_P_MARITAL_STAT_TYPE,IGF_AP_HOUSING_STAT,IGF_AP_DEP_STATUS,IGF_AP_ADDRESS_CHANGE_FLAG,IGF_AP_CPS_PUSHED_ISIR_FLAG,IGF_AP_ELECTRONIC_TRANS_TYPE,IGF_AP_SAR_C_CHANGE_TYPE,IGF_AP_PARENTS_SSN_MATCH_TYPE,'
6157              || 'IGF_AP_LOAN_LIMIT_TYPE,IGF_AP_REJECT_OVERRIDE_FLAG,IGF_AP_ENROLLMENT_STATUS_TYPE',c_award_det_rec.sys_award_year);
6158               l_debug_str  := l_debug_str || 'Lookups loading complete ' ;
6159                    IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
6160                     fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_isir_imp_proc.main.debug','c_award_det_rec.batch_year Is: ' || c_award_det_rec.batch_year || ' : ');
6161                   END IF;
6162 
6163               IF NVL(p_cps_import,'N') = 'Y' THEN
6164                 OPEN c_cps_int_data(c_award_det_rec.batch_year);
6165                 l_cps_log := 'Y' ;
6166               ELSE
6167                 OPEN c_int_data (p_batch_id);
6168                 l_cps_log := 'N' ;
6169               END IF;
6170 
6171              LOOP
6172               BEGIN
6173 
6174                  SAVEPOINT next_record;
6175                  -- Initialize the variables
6176                   l_valid_for_dml := 'Y' ;
6177                   l_dup_tran_num_exists := 'N' ;
6178                   l_update :=  NULL;
6179                   l_new_base_created := 'N' ;
6180                   g_person_print := 'N' ;
6181                   counter := 0;
6182                   l_debug_str := NULL;
6183                   --Check If p_cps_import = 'Y', it indicates that the Import Process has to
6184                   --run as CPS - Legacy ISIR Import Process else run as  Legacy ISIR Import Process
6185                   g_message_table.DELETE;
6186 
6187 
6188                   IF NVL(p_cps_import,'N') = 'Y' THEN
6189                          l_cps_int_data_rec := NULL;
6190                          FETCH c_cps_int_data INTO l_cps_int_data_rec ;
6191                          IF c_cps_int_data%NOTFOUND THEN
6192                           EXIT;
6193                          END IF;
6194                          p_convert_rec ;
6195                          l_num_recrd_processed := l_num_recrd_processed + 1;
6196                    ELSE
6197                          LOOP
6198                              c_int_data_rec := NULL;
6199                              FETCH c_int_data INTO c_int_data_rec;
6200                              IF c_int_data%NOTFOUND THEN
6201                                 EXIT;
6202                              END IF;
6203 
6204                           -- Check if the BATCH_YEAR is equal to the Batch Year in the C_AWARD_DET subset.
6205 
6206                              IF c_award_det_rec.batch_year=c_int_data_rec.batch_year_num THEN
6207                               l_num_recrd_processed := l_num_recrd_processed + 1;
6208                               EXIT;
6209                              END IF;
6210                              fnd_file.put_line(fnd_file.log,c_lkup_values_pn_rec.meaning || l_blank || c_int_data_rec.person_number);
6211                              fnd_message.set_name('IGF','IGF_AP_AW_BATCH_NOT_EXISTS');
6212                              fnd_file.put_line(fnd_file.log,l_error || l_blank || fnd_message.get);
6213                              FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------------------------');
6214                              l_num_recrd_processed := l_num_recrd_processed + 1;
6215                          END LOOP;
6216 
6217                         IF c_int_data%NOTFOUND THEN
6218                          EXIT;
6219                         END IF;
6220                   END IF;
6221 
6222                  --check for the  person id
6223                  lv_person_id  := NULL;
6224                  l_value       := NULL;
6225                  IF NVL(p_cps_import,'N') <> 'Y' THEN
6226                     lv_person_number:=c_int_data_rec.person_number;
6227                     l_debug_str := l_debug_str || 'Person Number Is: ' || lv_person_number || ' : ';
6228                     igf_ap_gen.check_person ( lv_person_number,l_ci_cal_type,l_ci_sequence_number, lv_person_id,lv_fa_base_id );
6229 
6230                     l_debug_str := l_debug_str || 'lv_person_id Is: ' || to_char(lv_person_id) || ' : ' || 'lv_fa_base_id is' || to_char(lv_fa_base_id) || ' : ' ;
6231                  ELSE
6232                     lv_ssn   :=  remove_spl_chr(c_int_data_rec.original_ssn_txt) ;
6233                     l_debug_str := l_debug_str || 'lv_ssn Is: ' || lv_ssn || ' : ';
6234                     IF lv_ssn IS NOT NULL THEN
6235 
6236                       c_get_person_id_rec := NULL;
6237                       OPEN c_get_person_id(lv_ssn);
6238                       FETCH c_get_person_id INTO c_get_person_id_rec;
6239                       CLOSE c_get_person_id;
6240 
6241                       lv_person_id := c_get_person_id_rec.person_id;
6242                       l_value := igf_ap_matching_process_pkg.is_fa_base_record_present(lv_person_id,
6243                                                               c_int_data_rec.batch_year_num,
6244                                                               lv_fa_base_id        );
6245                     END IF;
6246                  END IF;
6247                  l_debug_str := l_debug_str || 'lv_person_id Is: ' || to_char(lv_person_id) || ' : ';
6248                  IF lv_person_id IS NULL THEN
6249 
6250                    l_valid_for_dml := 'N' ;
6251 
6252                    IF  NVL(p_cps_import,'N') = 'Y' THEN
6253                        --Log a message in the logging table that Person does not exist in OSS (IGF_AP_PE_SSN_NOT_EXIST)
6254                        --Update the Legacy Interface Table column IMPORT_STATUS_FLAG to "E" implying Error.
6255 
6256                          l_debug_str := l_debug_str || lv_person_number || 'person does not exist' || c_int_data_rec.original_ssn_txt;
6257                          counter := counter+1;
6258                          fnd_message.set_name('IGF','IGF_AP_PE_SSN_NOT_EXIST');
6259                          fnd_message.set_token('P_SSN',c_int_data_rec.original_ssn_txt);
6260                          g_message_table(counter).msg_text:=fnd_message.get;
6261                     ELSE
6262                          l_debug_str := l_debug_str || 'person id is null - ' || c_int_data_rec.person_number ;
6263                       -- Log a message in the logging table that Person does not exist in OSS (IGF_AP_PE_NOT_EXIST)
6264                        --Update the Legacy Interface Table column IMPORT_STATUS_FLAG to "E" implying Error.
6265 
6266                          fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
6267                          counter := counter+1;
6268                          g_message_table(counter).msg_text:=fnd_message.get;
6269 
6270                          UPDATE igf_ap_li_isir_ints
6271                          SET    IMPORT_STATUS_TYPE='E'
6272                          WHERE  ROWID = c_int_data_rec.ROW_ID ;
6273                    END IF;
6274                  END IF;
6275 
6276 
6277                  IF  l_valid_for_dml = 'Y' THEN
6278                      IF lv_fa_base_id IS NULL THEN
6279                       --Base record does not exist so create base record.
6280                        l_debug_str := l_debug_str || lv_person_number || ' base record created';
6281 
6282                        IF (c_int_data_rec.secondary_efc_amt IS NOT NULL) AND (c_int_data_rec.secondary_efc_amt < NVL(c_int_data_rec.primary_efc_amt,0)) THEN
6283                          l_award_fmly_contribution_type := '2';
6284                        ELSE
6285                          l_award_fmly_contribution_type := '1';
6286                        END IF;
6287                         create_base_rec(l_ci_cal_type,
6288                                         lv_person_id,
6289                                         l_ci_sequence_number,
6290                                         c_int_data_rec.nslds_match_type,
6291                                         lv_fa_base_id,
6292                                         l_award_fmly_contribution_type
6293                                        );
6294                         l_new_base_created := 'Y' ;
6295 
6296                      END IF;
6297                  END IF;
6298                 -- Bug# 3025723
6299                  IF LENGTH(c_int_data_rec.transaction_num_txt) = 1 THEN
6300                     c_int_data_rec.transaction_num_txt := '0' || c_int_data_rec.transaction_num_txt;
6301                  END IF;
6302 
6303                  IF ( l_new_base_created <> 'Y'  AND l_valid_for_dml = 'Y' ) THEN
6304                    -- Implies that no new base ID was created so the person might have transactions
6305                    c_transaction_num_rec := NULL;
6306                    OPEN c_transaction_num(lv_fa_base_id,c_int_data_rec.transaction_num_txt);
6307                    FETCH c_transaction_num INTO c_transaction_num_rec;
6308                    CLOSE c_transaction_num;
6309 
6310                    IF c_transaction_num_rec.transaction_num =  c_int_data_rec.transaction_num_txt THEN
6311                       l_debug_str := l_debug_str || lv_person_number || ' duplication transaction number exist';
6312                       l_dup_tran_num_exists := 'Y' ;
6313                    END IF;
6314                  END IF;
6315 
6316                  IF l_dup_tran_num_exists = 'Y' THEN
6317                     IF c_int_data_rec.import_record_type <> 'U' AND  l_valid_for_dml = 'Y' THEN
6318                       l_valid_for_dml := 'N' ;
6319                       l_update :=  'N';
6320                       fnd_message.set_name('IGF','IGF_AP_TRAN_NUM_EXISTS');
6321                       fnd_message.set_token('TRAN_NUM',c_int_data_rec.transaction_num_txt);
6322                       counter := counter+1;
6323                       g_message_table(counter).msg_text:=fnd_message.get;
6324                     ELSE
6325                       l_update :=  'Y';
6326                     END IF;
6327                  ELSE -- Same transaction num does not exists/ So only Insert is possible
6328 
6329                    IF  c_int_data_rec.import_record_type = 'U'  AND  l_valid_for_dml = 'Y' THEN
6330 
6331                           -- Update not possible as no such record exists to update
6332 
6333                          l_debug_str := l_debug_str || lv_person_number || 'Update not possible as no such record exists to update ';
6334                          fnd_message.set_name('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
6335                          counter := counter+1;
6336                          g_message_table(counter).msg_text:=fnd_message.get;
6337 
6338                          l_valid_for_dml := 'N' ;
6339                          l_update :=  'N';
6340                    END IF;
6341                  END IF;
6342 
6343                 --validate legacy record
6344                  validate_isir_rec(c_int_data_rec,p_validation_status,l_igf_ap_message_table );
6345 
6346                  IF  NOT p_validation_status THEN
6347                    l_debug_str := l_debug_str || lv_person_number || 'Failed validate_isir_rec ';
6348                    l_valid_for_dml := 'N';
6349                  END IF;
6350 
6351                  IF  p_validation_status THEN
6352                    IF l_update =  'Y' AND  l_valid_for_dml ='Y'  THEN
6353                      -- Update ISIS matched table
6354                      c_get_rowid_rec := NULL;
6355                      OPEN c_get_rowid(lv_fa_base_id,c_int_data_rec.transaction_num_txt);
6356                      FETCH c_get_rowid INTO c_get_rowid_rec;
6357                      CLOSE c_get_rowid;
6358 
6359                      update_row(c_int_data_rec, lv_fa_base_id, c_get_rowid_rec.rowid,c_get_rowid_rec.isir_id);
6360                      pv_isir_id := c_get_rowid_rec.isir_id;
6361                      l_debug_str := l_debug_str || lv_person_number || ' ISIR Record updated ';
6362                      l_num_recrd_passed := l_num_recrd_passed + 1;
6363                    ELSIF l_valid_for_dml ='Y' THEN
6364                       --Insert into isir matched table
6365                        insert_row( c_int_data_rec, lv_fa_base_id,pv_isir_id);
6366                        l_debug_str := l_debug_str || lv_person_number || 'ISIR Record inserted ';
6367                        l_num_recrd_passed := l_num_recrd_passed + 1;
6368                    END IF;
6369                  END IF;
6370 
6371                    c_nslds_data_rec := null;
6372 
6373                     IF  p_validation_status THEN
6374                         IF l_valid_for_dml ='Y' THEN
6375                              c_nslds_data_rec := NULL;
6376                              OPEN c_nslds_data(lv_fa_base_id);
6377                              FETCH c_nslds_data INTO c_nslds_data_rec;
6378                              CLOSE c_nslds_data;
6379                              IF  c_nslds_data_rec.nslds_id IS NULL THEN
6380                                --  insert nslds data as the student does not have an NSLDS record
6381                                 nslds_insert_row(c_int_data_rec, lv_fa_base_id, pv_isir_id);
6382                                 l_debug_str := l_debug_str || lv_person_number || ' NSLDS Record inserted ';
6383                              ELSE
6384                                 IF  c_nslds_data_rec.nslds_transaction_num < TO_NUMBER(c_int_data_rec.transaction_num_txt)   THEN
6385                                     -- update nsllds data because a NEW ISIR has come in
6386                                    nslds_update_row(c_int_data_rec, lv_fa_base_id, c_nslds_data_rec.row_id, c_nslds_data_rec.nslds_id, pv_isir_id );
6387                                   l_debug_str := l_debug_str || lv_person_number || ' NSLDS Record updated ';
6388                                 END IF;
6389                               END IF;
6390                         END IF;
6391                     END IF;
6392 
6393                    IF p_validation_status AND l_valid_for_dml ='Y' THEN
6394                        IF  NVL(p_cps_import,'N') <> 'Y' THEN
6395                          IF p_del_int ='Y' THEN
6396                                 --Check if the P_DEL_INT parameter is set to "Y"
6397                                 --If it is set to Y then Delete the Interface Record
6398                                 DELETE FROM igf_ap_li_isir_ints
6399                                 WHERE  ROWID = c_int_data_rec.ROW_ID ;
6400                           ELSE
6401                                --Update the Legacy Interface Table column IMPORT_STATUS_FLAG with 'I' implying Imported
6402                                UPDATE igf_ap_li_isir_ints
6403                                SET    IMPORT_STATUS_TYPE='I'
6404                                WHERE  ROWID = c_int_data_rec.ROW_ID ;
6405                           END IF;
6406                        ELSE -- CPS IMPORT
6407                             UPDATE    igf_ap_isir_ints_all
6408                                SET    RECORD_STATUS ='MATCHED'
6409                              WHERE  ROWID = c_int_data_rec.ROW_ID ;
6410                       END IF;
6411                    END IF;
6412 
6413                    IF l_valid_for_dml <> 'Y' AND NVL(p_cps_import,'N') <> 'Y' THEN
6414                              UPDATE igf_ap_li_isir_ints
6415                              SET    IMPORT_STATUS_TYPE='E'
6416                              WHERE  ROWID = c_int_data_rec.ROW_ID ;
6417                    END IF;
6418 
6419                    IF l_valid_for_dml <> 'Y' THEN
6420                       IF  NVL(p_cps_import,'N') <> 'Y' THEN
6421                           fnd_file.put_line(fnd_file.log,c_lkup_values_pn_rec.meaning || l_blank || c_int_data_rec.person_number);
6422                       ELSE
6423                           fnd_file.put_line(fnd_file.log,c_lkup_values_pn_rec.meaning || l_blank || c_int_data_rec.original_ssn_txt);
6424                       END IF;
6425 
6426                       FOR indx_1 IN 1 .. counter
6427                       LOOP
6428                        fnd_file.put_line(fnd_file.log,l_error || l_blank || g_message_table(indx_1).msg_text);
6429                       END LOOP;
6430 
6431                       IF NOT p_validation_status THEN
6432                         print_message(l_igf_ap_message_table );
6433                       END IF;
6434                       FND_FILE.PUT_LINE(FND_FILE.LOG,'------------------------------------------------------------------------');
6435                    END IF;
6436                      -- write debugging message to log table
6437                      IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
6438                        fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_isir_imp_proc.main.debug',l_debug_str);
6439                      END IF;
6440 
6441                  EXCEPTION
6442                  WHEN OTHERS THEN
6443                   -- write debugging message to log table
6444                   IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
6445                     fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_isir_imp_proc.main.begin.debug',l_debug_str||SQLERRM);
6446                   END IF;
6447                   fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
6448                   fnd_message.set_token('NAME','IGF_AP_LI_ISIR_IMP_PROC.MAIN'||SQLERRM);
6449                   fnd_file.put_line(fnd_file.log,fnd_message.get );
6450                   ROLLBACK TO next_record;
6451                  END;
6452                  COMMIT;
6453                END LOOP;
6454 
6455            -- Close cursor
6456              IF NVL(p_cps_import,'N') = 'Y' THEN
6457                 CLOSE c_cps_int_data;
6458              ELSE
6459                 CLOSE c_int_data ;
6460              END IF;
6461 
6462       fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
6463       fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' ||l_num_recrd_processed);
6464       fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
6465       fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' ||l_num_recrd_passed);
6466       fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
6467       l_num_recrd_failed := l_num_recrd_processed - l_num_recrd_passed;
6468       fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_num_recrd_failed);
6469   EXCEPTION
6470     WHEN OTHERS THEN
6471       -- write debugging message to log table
6472       IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
6473         fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_isir_imp_proc.main.debug',l_debug_str||SQLERRM);
6474       END IF;
6475       fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
6476       fnd_message.set_token('NAME','IGF_AP_LI_ISIR_IMP_PROC.MAIN'||SQLERRM);
6477       fnd_file.put_line(fnd_file.log,fnd_message.get );
6478   ROLLBACK TO next_record;
6479   END main;
6480 
6481  PROCEDURE  cps_import( errbuf         IN OUT  NOCOPY VARCHAR2,
6482                    retcode             IN OUT  NOCOPY NUMBER,
6483                    p_award_year        IN VARCHAR2
6484             ) AS
6485     /*
6486     ||  Created By : rasahoo
6487     ||  Created On :
6488     ||  Purpose : To Import legscy  CPS ISIR record
6489     ||  Known limitations, enhancements or remarks :
6490     ||  Change History :
6491     ||  Who             When            What
6492   ||  tsailaja      13/Jan/2006     Bug 4947880 Added invocation of igf_aw_gen.set_org_id(NULL);
6493     ||  (reverse chronological order - newest change first)
6494     */
6495 
6496   BEGIN
6497   -- Make a call to the Legacy Import Process
6498   igf_aw_gen.set_org_id(NULL);
6499                main (      errbuf         => ERRBUF,
6500                            retcode        => RETCODE,
6501                            p_award_year   => p_award_year,
6502                            p_batch_id     => NULL,
6503                            p_del_int      => 'N',
6504                            p_cps_import   => 'Y') ;
6505 
6506 
6507   END cps_import;
6508   END IGF_AP_LI_ISIR_IMP_PROC;