[Home] [Help]
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;
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
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;
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
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;
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
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;
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');
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;
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:
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;
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
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;
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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;
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
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;
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
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;
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
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;
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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:= '';
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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:= '';
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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
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;
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;
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;
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
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;
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:
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');
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;
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;
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
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;
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
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;
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
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;
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:
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');
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;
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;
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
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;
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
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;
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
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;
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
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;
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;
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
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:
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;
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
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;
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
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;
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
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;
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
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;
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;
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;
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:
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;
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
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
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;
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
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
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;
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:
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;
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:
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 ;
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)
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.
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
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 ;
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
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';
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
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' ;
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;
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;
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;
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;
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');
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;
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);
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
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
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
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;
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:
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,