5630: IF NOT l_ret_val THEN
5631: p_status:=FALSE;
5632: indx:= indx+1;
5633: p_igf_ap_message_table(indx).field_name:='';
5634: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5635: fnd_message.set_token('FIELD', p_l_to_i_col('STU_LIVES_WITH_NUM'));
5636: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5637: END IF;
5638: END IF;
5631: p_status:=FALSE;
5632: indx:= indx+1;
5633: p_igf_ap_message_table(indx).field_name:='';
5634: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5635: fnd_message.set_token('FIELD', p_l_to_i_col('STU_LIVES_WITH_NUM'));
5636: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5637: END IF;
5638: END IF;
5639:
5632: indx:= indx+1;
5633: p_igf_ap_message_table(indx).field_name:='';
5634: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5635: fnd_message.set_token('FIELD', p_l_to_i_col('STU_LIVES_WITH_NUM'));
5636: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5637: END IF;
5638: END IF;
5639:
5640: IF p_profile_rec.stu_most_support_from_num IS NOT NULL THEN
5642: IF NOT l_ret_val THEN
5643: p_status:=FALSE;
5644: indx:= indx+1;
5645: p_igf_ap_message_table(indx).field_name:='';
5646: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5647: fnd_message.set_token('FIELD', p_l_to_i_col('STU_MOST_SUPPORT_FROM_NUM'));
5648: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5649: END IF;
5650: END IF;
5643: p_status:=FALSE;
5644: indx:= indx+1;
5645: p_igf_ap_message_table(indx).field_name:='';
5646: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5647: fnd_message.set_token('FIELD', p_l_to_i_col('STU_MOST_SUPPORT_FROM_NUM'));
5648: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5649: END IF;
5650: END IF;
5651:
5644: indx:= indx+1;
5645: p_igf_ap_message_table(indx).field_name:='';
5646: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5647: fnd_message.set_token('FIELD', p_l_to_i_col('STU_MOST_SUPPORT_FROM_NUM'));
5648: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5649: END IF;
5650: END IF;
5651:
5652: IF p_profile_rec.location_computer_num IS NOT NULL THEN
5654: IF NOT l_ret_val THEN
5655: p_status:=FALSE;
5656: indx:= indx+1;
5657: p_igf_ap_message_table(indx).field_name:='';
5658: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5659: fnd_message.set_token('FIELD', p_l_to_i_col('LOCATION_COMPUTER_NUM'));
5660: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5661: END IF;
5662: END IF;
5655: p_status:=FALSE;
5656: indx:= indx+1;
5657: p_igf_ap_message_table(indx).field_name:='';
5658: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5659: fnd_message.set_token('FIELD', p_l_to_i_col('LOCATION_COMPUTER_NUM'));
5660: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5661: END IF;
5662: END IF;
5663:
5656: indx:= indx+1;
5657: p_igf_ap_message_table(indx).field_name:='';
5658: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5659: fnd_message.set_token('FIELD', p_l_to_i_col('LOCATION_COMPUTER_NUM'));
5660: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5661: END IF;
5662: END IF;
5663:
5664: IF p_profile_rec.cust_parent_cont_adj_num IS NOT NULL THEN
5666: IF p_profile_rec.cust_parent_cont_adj_num <> 1 THEN
5667: p_status:=FALSE;
5668: indx:= indx+1;
5669: p_igf_ap_message_table(indx).field_name:='';
5670: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5671: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PARENT_CONT_ADJ_NUM'));
5672: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5673: END IF;
5674: END IF;
5667: p_status:=FALSE;
5668: indx:= indx+1;
5669: p_igf_ap_message_table(indx).field_name:='';
5670: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5671: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PARENT_CONT_ADJ_NUM'));
5672: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5673: END IF;
5674: END IF;
5675: END IF;
5668: indx:= indx+1;
5669: p_igf_ap_message_table(indx).field_name:='';
5670: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5671: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PARENT_CONT_ADJ_NUM'));
5672: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5673: END IF;
5674: END IF;
5675: END IF;
5676:
5679: IF p_profile_rec.cust_par_base_prcnt_inc_amt < 0 OR p_profile_rec.cust_par_base_prcnt_inc_amt > 1 THEN
5680: p_status:=FALSE;
5681: indx:= indx+1;
5682: p_igf_ap_message_table(indx).field_name:='';
5683: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5684: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_BASE_PRCNT_INC_AMT'));
5685: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5686: END IF;
5687: END IF;
5680: p_status:=FALSE;
5681: indx:= indx+1;
5682: p_igf_ap_message_table(indx).field_name:='';
5683: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5684: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_BASE_PRCNT_INC_AMT'));
5685: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5686: END IF;
5687: END IF;
5688: END IF;
5681: indx:= indx+1;
5682: p_igf_ap_message_table(indx).field_name:='';
5683: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5684: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_BASE_PRCNT_INC_AMT'));
5685: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5686: END IF;
5687: END IF;
5688: END IF;
5689:
5692: IF p_profile_rec.cust_par_base_cont_inc_amt < 0 OR p_profile_rec.cust_par_base_cont_inc_amt > 99999 THEN
5693: p_status:=FALSE;
5694: indx:= indx+1;
5695: p_igf_ap_message_table(indx).field_name:='';
5696: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5697: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_BASE_CONT_INC_AMT'));
5698: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5699: END IF;
5700: END IF;
5693: p_status:=FALSE;
5694: indx:= indx+1;
5695: p_igf_ap_message_table(indx).field_name:='';
5696: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5697: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_BASE_CONT_INC_AMT'));
5698: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5699: END IF;
5700: END IF;
5701: END IF;
5694: indx:= indx+1;
5695: p_igf_ap_message_table(indx).field_name:='';
5696: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5697: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_BASE_CONT_INC_AMT'));
5698: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5699: END IF;
5700: END IF;
5701: END IF;
5702:
5705: IF p_profile_rec.cust_par_base_cont_ast_amt < 0 OR p_profile_rec.cust_par_base_cont_ast_amt > 99999 THEN
5706: p_status:=FALSE;
5707: indx:= indx+1;
5708: p_igf_ap_message_table(indx).field_name:='';
5709: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5710: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_BASE_CONT_AST_AMT'));
5711: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5712: END IF;
5713: END IF;
5706: p_status:=FALSE;
5707: indx:= indx+1;
5708: p_igf_ap_message_table(indx).field_name:='';
5709: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5710: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_BASE_CONT_AST_AMT'));
5711: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5712: END IF;
5713: END IF;
5714: END IF;
5707: indx:= indx+1;
5708: p_igf_ap_message_table(indx).field_name:='';
5709: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5710: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_BASE_CONT_AST_AMT'));
5711: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5712: END IF;
5713: END IF;
5714: END IF;
5715:
5718: IF p_profile_rec.cust_par_base_tot_cont_amt < 0 OR p_profile_rec.cust_par_base_tot_cont_amt > 99999 THEN
5719: p_status:=FALSE;
5720: indx:= indx+1;
5721: p_igf_ap_message_table(indx).field_name:='';
5722: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5723: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_BASE_TOT_CONT_AMT'));
5724: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5725: END IF;
5726: END IF;
5719: p_status:=FALSE;
5720: indx:= indx+1;
5721: p_igf_ap_message_table(indx).field_name:='';
5722: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5723: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_BASE_TOT_CONT_AMT'));
5724: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5725: END IF;
5726: END IF;
5727: END IF;
5720: indx:= indx+1;
5721: p_igf_ap_message_table(indx).field_name:='';
5722: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5723: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_BASE_TOT_CONT_AMT'));
5724: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5725: END IF;
5726: END IF;
5727: END IF;
5728:
5731: IF p_profile_rec.cust_par_opt_prcnt_inc_amt < 0 OR p_profile_rec.cust_par_opt_prcnt_inc_amt > 1 THEN
5732: p_status:=FALSE;
5733: indx:= indx+1;
5734: p_igf_ap_message_table(indx).field_name:='';
5735: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5736: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_OPT_PRCNT_INC_AMT'));
5737: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5738: END IF;
5739: END IF;
5732: p_status:=FALSE;
5733: indx:= indx+1;
5734: p_igf_ap_message_table(indx).field_name:='';
5735: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5736: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_OPT_PRCNT_INC_AMT'));
5737: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5738: END IF;
5739: END IF;
5740: END IF;
5733: indx:= indx+1;
5734: p_igf_ap_message_table(indx).field_name:='';
5735: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5736: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_OPT_PRCNT_INC_AMT'));
5737: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5738: END IF;
5739: END IF;
5740: END IF;
5741:
5744: IF p_profile_rec.cust_par_opt_cont_inc_amt < 0 OR p_profile_rec.cust_par_opt_cont_inc_amt > 99999 THEN
5745: p_status:=FALSE;
5746: indx:= indx+1;
5747: p_igf_ap_message_table(indx).field_name:='';
5748: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5749: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_OPT_CONT_INC_AMT'));
5750: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5751: END IF;
5752: END IF;
5745: p_status:=FALSE;
5746: indx:= indx+1;
5747: p_igf_ap_message_table(indx).field_name:='';
5748: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5749: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_OPT_CONT_INC_AMT'));
5750: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5751: END IF;
5752: END IF;
5753: END IF;
5746: indx:= indx+1;
5747: p_igf_ap_message_table(indx).field_name:='';
5748: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5749: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_OPT_CONT_INC_AMT'));
5750: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5751: END IF;
5752: END IF;
5753: END IF;
5754:
5757: IF p_profile_rec.cust_par_opt_cont_ast_amt < 0 OR p_profile_rec.cust_par_opt_cont_ast_amt > 99999 THEN
5758: p_status:=FALSE;
5759: indx:= indx+1;
5760: p_igf_ap_message_table(indx).field_name:='';
5761: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5762: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_OPT_CONT_AST_AMT'));
5763: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5764: END IF;
5765: END IF;
5758: p_status:=FALSE;
5759: indx:= indx+1;
5760: p_igf_ap_message_table(indx).field_name:='';
5761: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5762: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_OPT_CONT_AST_AMT'));
5763: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5764: END IF;
5765: END IF;
5766: END IF;
5759: indx:= indx+1;
5760: p_igf_ap_message_table(indx).field_name:='';
5761: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5762: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_OPT_CONT_AST_AMT'));
5763: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5764: END IF;
5765: END IF;
5766: END IF;
5767:
5770: IF p_profile_rec.cust_par_opt_tot_cont_amt < 0 OR p_profile_rec.cust_par_opt_tot_cont_amt > 99999 THEN
5771: p_status:=FALSE;
5772: indx:= indx+1;
5773: p_igf_ap_message_table(indx).field_name:='';
5774: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5775: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_OPT_TOT_CONT_AMT'));
5776: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5777: END IF;
5778: END IF;
5771: p_status:=FALSE;
5772: indx:= indx+1;
5773: p_igf_ap_message_table(indx).field_name:='';
5774: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5775: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_OPT_TOT_CONT_AMT'));
5776: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5777: END IF;
5778: END IF;
5779: END IF;
5772: indx:= indx+1;
5773: p_igf_ap_message_table(indx).field_name:='';
5774: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5775: fnd_message.set_token('FIELD', p_l_to_i_col('CUST_PAR_OPT_TOT_CONT_AMT'));
5776: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5777: END IF;
5778: END IF;
5779: END IF;
5780:
5783: IF p_profile_rec.application_type NOT IN ('1','2','3') THEN
5784: p_status:=FALSE;
5785: indx:= indx+1;
5786: p_igf_ap_message_table(indx).field_name:='';
5787: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5788: fnd_message.set_token('FIELD', p_l_to_i_col('APPLICATION_TYPE'));
5789: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5790: END IF;
5791: END IF;
5784: p_status:=FALSE;
5785: indx:= indx+1;
5786: p_igf_ap_message_table(indx).field_name:='';
5787: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5788: fnd_message.set_token('FIELD', p_l_to_i_col('APPLICATION_TYPE'));
5789: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5790: END IF;
5791: END IF;
5792: END IF;
5785: indx:= indx+1;
5786: p_igf_ap_message_table(indx).field_name:='';
5787: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5788: fnd_message.set_token('FIELD', p_l_to_i_col('APPLICATION_TYPE'));
5789: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5790: END IF;
5791: END IF;
5792: END IF;
5793:
5796: IF SUBSTR(p_profile_rec.css_id_number_txt,1,1) <> '7' THEN
5797: p_status:=FALSE;
5798: indx:= indx+1;
5799: p_igf_ap_message_table(indx).field_name:='';
5800: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5801: fnd_message.set_token('FIELD', p_l_to_i_col('CSS_ID_NUMBER_TXT'));
5802: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5803: END IF;
5804: END IF;
5797: p_status:=FALSE;
5798: indx:= indx+1;
5799: p_igf_ap_message_table(indx).field_name:='';
5800: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5801: fnd_message.set_token('FIELD', p_l_to_i_col('CSS_ID_NUMBER_TXT'));
5802: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5803: END IF;
5804: END IF;
5805: END IF;
5798: indx:= indx+1;
5799: p_igf_ap_message_table(indx).field_name:='';
5800: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5801: fnd_message.set_token('FIELD', p_l_to_i_col('CSS_ID_NUMBER_TXT'));
5802: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5803: END IF;
5804: END IF;
5805: END IF;
5806:
5809: IF NOT l_ret_val THEN
5810: p_status:=FALSE;
5811: indx:= indx+1;
5812: p_igf_ap_message_table(indx).field_name:='';
5813: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5814: fnd_message.set_token('FIELD', p_l_to_i_col('CUSTODIAL_PARENT_NUM'));
5815: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5816: END IF;
5817: END IF;
5810: p_status:=FALSE;
5811: indx:= indx+1;
5812: p_igf_ap_message_table(indx).field_name:='';
5813: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5814: fnd_message.set_token('FIELD', p_l_to_i_col('CUSTODIAL_PARENT_NUM'));
5815: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5816: END IF;
5817: END IF;
5818: END validate_profile_rec;
5811: indx:= indx+1;
5812: p_igf_ap_message_table(indx).field_name:='';
5813: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
5814: fnd_message.set_token('FIELD', p_l_to_i_col('CUSTODIAL_PARENT_NUM'));
5815: p_igf_ap_message_table(indx).msg_text:=fnd_message.get;
5816: END IF;
5817: END IF;
5818: END validate_profile_rec;
5819:
5951: IF l_ret_profile <> 'Y' THEN
5952: -- check if country code is not'US' AND does not participate in financial aidprogram THEN
5953: -- write into the log file and exit process
5954: fnd_file.put(fnd_file.log,c_lkup_values_err_rec.meaning ||' ');
5955: fnd_message.set_name('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
5956: fnd_file.put_line(fnd_file.log, fnd_message.get);
5957: RETURN;
5958: END IF;
5959:
5952: -- check if country code is not'US' AND does not participate in financial aidprogram THEN
5953: -- write into the log file and exit process
5954: fnd_file.put(fnd_file.log,c_lkup_values_err_rec.meaning ||' ');
5955: fnd_message.set_name('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
5956: fnd_file.put_line(fnd_file.log, fnd_message.get);
5957: RETURN;
5958: END IF;
5959:
5960: OPEN c_award_det(l_ci_cal_type,l_ci_sequence_number);
5987: FETCH c_get_stat INTO l_award_year_status, g_sys_award_year ;
5988: -- check validity of award year
5989: IF c_get_stat%NOTFOUND THEN
5990: -- Award Year setup tampered .... Log a message
5991: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_YR_NOT_FOUND');
5992: FND_MESSAGE.SET_TOKEN('P_AWARD_YEAR', l_alternate_code);
5993: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
5994: -- g_terminate_process := TRUE ;
5995: RETURN;
5988: -- check validity of award year
5989: IF c_get_stat%NOTFOUND THEN
5990: -- Award Year setup tampered .... Log a message
5991: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_YR_NOT_FOUND');
5992: FND_MESSAGE.SET_TOKEN('P_AWARD_YEAR', l_alternate_code);
5993: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
5994: -- g_terminate_process := TRUE ;
5995: RETURN;
5996: ELSE -- Award year exists but is it Open/Legacy Details .... check
5989: IF c_get_stat%NOTFOUND THEN
5990: -- Award Year setup tampered .... Log a message
5991: FND_MESSAGE.SET_NAME('IGF','IGF_AP_AWD_YR_NOT_FOUND');
5992: FND_MESSAGE.SET_TOKEN('P_AWARD_YEAR', l_alternate_code);
5993: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
5994: -- g_terminate_process := TRUE ;
5995: RETURN;
5996: ELSE -- Award year exists but is it Open/Legacy Details .... check
5997: IF l_award_year_status NOT IN ('O','LD') THEN
5994: -- g_terminate_process := TRUE ;
5995: RETURN;
5996: ELSE -- Award year exists but is it Open/Legacy Details .... check
5997: IF l_award_year_status NOT IN ('O','LD') THEN
5998: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LG_INVALID_STAT');
5999: FND_MESSAGE.SET_TOKEN('AWARD_STATUS', l_award_year_status);
6000: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
6001: --g_terminate_process := TRUE ;
6002: RETURN;
5995: RETURN;
5996: ELSE -- Award year exists but is it Open/Legacy Details .... check
5997: IF l_award_year_status NOT IN ('O','LD') THEN
5998: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LG_INVALID_STAT');
5999: FND_MESSAGE.SET_TOKEN('AWARD_STATUS', l_award_year_status);
6000: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
6001: --g_terminate_process := TRUE ;
6002: RETURN;
6003: END IF ; -- awd ye open or legacy detail chk
5996: ELSE -- Award year exists but is it Open/Legacy Details .... check
5997: IF l_award_year_status NOT IN ('O','LD') THEN
5998: FND_MESSAGE.SET_NAME('IGF','IGF_AP_LG_INVALID_STAT');
5999: FND_MESSAGE.SET_TOKEN('AWARD_STATUS', l_award_year_status);
6000: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
6001: --g_terminate_process := TRUE ;
6002: RETURN;
6003: END IF ; -- awd ye open or legacy detail chk
6004: END IF ; -- award year invalid check
6007: l_batch_valid := igf_ap_gen.check_batch ( p_batch_id, 'PROFILE') ;
6008:
6009: IF p_css_import <> 'Y' THEN
6010: IF NVL(l_batch_valid,'N') <> 'Y' THEN
6011: fnd_message.set_name('IGF','IGF_GR_BATCH_DOES_NOT_EXIST');
6012: fnd_file.put_line(fnd_file.log,fnd_message.get);
6013: RETURN;
6014: END IF;
6015: END IF;
6008:
6009: IF p_css_import <> 'Y' THEN
6010: IF NVL(l_batch_valid,'N') <> 'Y' THEN
6011: fnd_message.set_name('IGF','IGF_GR_BATCH_DOES_NOT_EXIST');
6012: fnd_file.put_line(fnd_file.log,fnd_message.get);
6013: RETURN;
6014: END IF;
6015: END IF;
6016: c_award_det_rec := NULL;
6021: IF p_css_import = 'Y' THEN
6022: BEGIN
6023: l_css_academic_year := TO_NUMBER(c_award_det_rec.css_academic_year);
6024: EXCEPTION WHEN OTHERS THEN
6025: fnd_message.set_name('IGF','IGF_AP_AW_CSS_NOT_EXISTS');
6026: fnd_file.put_line(fnd_file.log,fnd_message.get);
6027: RETURN;
6028: END;
6029: OPEN c_css_int_data(l_css_academic_year);
6022: BEGIN
6023: l_css_academic_year := TO_NUMBER(c_award_det_rec.css_academic_year);
6024: EXCEPTION WHEN OTHERS THEN
6025: fnd_message.set_name('IGF','IGF_AP_AW_CSS_NOT_EXISTS');
6026: fnd_file.put_line(fnd_file.log,fnd_message.get);
6027: RETURN;
6028: END;
6029: OPEN c_css_int_data(l_css_academic_year);
6030: ELSE
6060: END IF;
6061: -- message IGF_AP_AW_BATCH_NOT_EXISTS
6062: fnd_file.put_line(fnd_file.log,c_lkup_values_pn_rec.meaning||' '|| c_int_data_rec.person_number);
6063: fnd_file.put(fnd_file.log,c_lkup_values_err_rec.meaning ||' ');
6064: fnd_message.set_name('IGF','IGF_AP_AW_BATCH_NOT_EXISTS');
6065: fnd_file.put_line(fnd_file.log, fnd_message.get);
6066: fnd_file.put_line(fnd_file.log,'------------------------------------------------------------------------');
6067: END LOOP;
6068: IF c_int_data%NOTFOUND THEN
6061: -- message IGF_AP_AW_BATCH_NOT_EXISTS
6062: fnd_file.put_line(fnd_file.log,c_lkup_values_pn_rec.meaning||' '|| c_int_data_rec.person_number);
6063: fnd_file.put(fnd_file.log,c_lkup_values_err_rec.meaning ||' ');
6064: fnd_message.set_name('IGF','IGF_AP_AW_BATCH_NOT_EXISTS');
6065: fnd_file.put_line(fnd_file.log, fnd_message.get);
6066: fnd_file.put_line(fnd_file.log,'------------------------------------------------------------------------');
6067: END LOOP;
6068: IF c_int_data%NOTFOUND THEN
6069: EXIT;
6091: l_valid_for_dml := 'N' ;
6092: IF p_css_import ='Y' THEN
6093: --Log a message in the logging table that Person does not exist in OSS (IGF_AP_PE_SSN_NOT_EXIST)
6094: --Update the Legacy Interface Table column IMPORT_STATUS_FLAG to "E" implying Error.
6095: fnd_message.set_name('IGF','IGF_AP_PE_SSN_NOT_EXIST');
6096: fnd_message.set_token('P_SSN',c_int_data_rec.social_security_num);
6097: counter := counter+1;
6098: g_message_table(counter).msg_text:=fnd_message.get;
6099: l_debug_str := l_debug_str || lv_person_number || 'person idoes not exist';
6092: IF p_css_import ='Y' THEN
6093: --Log a message in the logging table that Person does not exist in OSS (IGF_AP_PE_SSN_NOT_EXIST)
6094: --Update the Legacy Interface Table column IMPORT_STATUS_FLAG to "E" implying Error.
6095: fnd_message.set_name('IGF','IGF_AP_PE_SSN_NOT_EXIST');
6096: fnd_message.set_token('P_SSN',c_int_data_rec.social_security_num);
6097: counter := counter+1;
6098: g_message_table(counter).msg_text:=fnd_message.get;
6099: l_debug_str := l_debug_str || lv_person_number || 'person idoes not exist';
6100: ELSE
6094: --Update the Legacy Interface Table column IMPORT_STATUS_FLAG to "E" implying Error.
6095: fnd_message.set_name('IGF','IGF_AP_PE_SSN_NOT_EXIST');
6096: fnd_message.set_token('P_SSN',c_int_data_rec.social_security_num);
6097: counter := counter+1;
6098: g_message_table(counter).msg_text:=fnd_message.get;
6099: l_debug_str := l_debug_str || lv_person_number || 'person idoes not exist';
6100: ELSE
6101: -- Log a message in the logging table that Person does not exist in OSS (IGF_AP_PE_NOT_EXIST)
6102: --Update the Legacy Interface Table column IMPORT_STATUS_FLAG to "E" implying Error.
6099: l_debug_str := l_debug_str || lv_person_number || 'person idoes not exist';
6100: ELSE
6101: -- Log a message in the logging table that Person does not exist in OSS (IGF_AP_PE_NOT_EXIST)
6102: --Update the Legacy Interface Table column IMPORT_STATUS_FLAG to "E" implying Error.
6103: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
6104: -- fnd_file.put_line(fnd_file.log, fnd_message.get);
6105: counter := counter+1;
6106: g_message_table(counter).msg_text:=fnd_message.get;
6107: l_debug_str := l_debug_str || lv_person_number || 'person idoes not exist';
6100: ELSE
6101: -- Log a message in the logging table that Person does not exist in OSS (IGF_AP_PE_NOT_EXIST)
6102: --Update the Legacy Interface Table column IMPORT_STATUS_FLAG to "E" implying Error.
6103: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
6104: -- fnd_file.put_line(fnd_file.log, fnd_message.get);
6105: counter := counter+1;
6106: g_message_table(counter).msg_text:=fnd_message.get;
6107: l_debug_str := l_debug_str || lv_person_number || 'person idoes not exist';
6108:
6102: --Update the Legacy Interface Table column IMPORT_STATUS_FLAG to "E" implying Error.
6103: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
6104: -- fnd_file.put_line(fnd_file.log, fnd_message.get);
6105: counter := counter+1;
6106: g_message_table(counter).msg_text:=fnd_message.get;
6107: l_debug_str := l_debug_str || lv_person_number || 'person idoes not exist';
6108:
6109: UPDATE igf_ap_li_css_ints
6110: SET IMPORT_STATUS_TYPE='E'
6129: IF c_transaction_num_rec.transaction_num IS NOT NULL THEN
6130: l_debug_str := l_debug_str || lv_person_number || ' duplication transaction number exist';
6131: l_dup_tran_num_exists := 'Y' ;
6132: l_valid_for_dml := 'N';
6133: fnd_message.set_name('IGF','IGF_AP_TRAN_NUM_EXISTS');
6134: fnd_message.set_token('TRAN_NUM',c_transaction_num_rec.transaction_num);
6135: counter := counter+1;
6136: g_message_table(counter).msg_text:=fnd_message.get;
6137: END IF;
6130: l_debug_str := l_debug_str || lv_person_number || ' duplication transaction number exist';
6131: l_dup_tran_num_exists := 'Y' ;
6132: l_valid_for_dml := 'N';
6133: fnd_message.set_name('IGF','IGF_AP_TRAN_NUM_EXISTS');
6134: fnd_message.set_token('TRAN_NUM',c_transaction_num_rec.transaction_num);
6135: counter := counter+1;
6136: g_message_table(counter).msg_text:=fnd_message.get;
6137: END IF;
6138: END IF;
6132: l_valid_for_dml := 'N';
6133: fnd_message.set_name('IGF','IGF_AP_TRAN_NUM_EXISTS');
6134: fnd_message.set_token('TRAN_NUM',c_transaction_num_rec.transaction_num);
6135: counter := counter+1;
6136: g_message_table(counter).msg_text:=fnd_message.get;
6137: END IF;
6138: END IF;
6139:
6140: -- validate the profile record
6188: WHEN OTHERS THEN
6189: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
6190: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_li_prof_imp_proc.main.exception',l_debug_str || ' ' || SQLERRM);
6191: END IF;
6192: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
6193: fnd_message.set_token('NAME','IGF_AP_LI_ISIR_IMP_PROC.MAIN'|| SQLERRM);
6194: fnd_file.put_line(fnd_file.log,fnd_message.get);
6195: ROLLBACK TO next_record;
6196: END;
6189: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
6190: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_li_prof_imp_proc.main.exception',l_debug_str || ' ' || SQLERRM);
6191: END IF;
6192: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
6193: fnd_message.set_token('NAME','IGF_AP_LI_ISIR_IMP_PROC.MAIN'|| SQLERRM);
6194: fnd_file.put_line(fnd_file.log,fnd_message.get);
6195: ROLLBACK TO next_record;
6196: END;
6197: COMMIT;
6190: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_li_prof_imp_proc.main.exception',l_debug_str || ' ' || SQLERRM);
6191: END IF;
6192: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
6193: fnd_message.set_token('NAME','IGF_AP_LI_ISIR_IMP_PROC.MAIN'|| SQLERRM);
6194: fnd_file.put_line(fnd_file.log,fnd_message.get);
6195: ROLLBACK TO next_record;
6196: END;
6197: COMMIT;
6198: END LOOP;
6204: IF (c_int_data%ISOPEN) THEN
6205: CLOSE c_int_data;
6206: END IF;
6207:
6208: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
6209: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' ||l_num_recrd_processed);
6210: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
6211: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' ||l_num_recrd_passed);
6212: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
6205: CLOSE c_int_data;
6206: END IF;
6207:
6208: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
6209: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' ||l_num_recrd_processed);
6210: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
6211: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' ||l_num_recrd_passed);
6212: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
6213: l_num_recrd_failed := l_num_recrd_processed - l_num_recrd_passed;
6206: END IF;
6207:
6208: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
6209: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' ||l_num_recrd_processed);
6210: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
6211: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' ||l_num_recrd_passed);
6212: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
6213: l_num_recrd_failed := l_num_recrd_processed - l_num_recrd_passed;
6214: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_num_recrd_failed);
6207:
6208: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
6209: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' ||l_num_recrd_processed);
6210: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
6211: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' ||l_num_recrd_passed);
6212: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
6213: l_num_recrd_failed := l_num_recrd_processed - l_num_recrd_passed;
6214: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_num_recrd_failed);
6215: END MAIN;
6208: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
6209: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' ||l_num_recrd_processed);
6210: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
6211: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' ||l_num_recrd_passed);
6212: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
6213: l_num_recrd_failed := l_num_recrd_processed - l_num_recrd_passed;
6214: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_num_recrd_failed);
6215: END MAIN;
6216:
6210: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
6211: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' ||l_num_recrd_passed);
6212: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
6213: l_num_recrd_failed := l_num_recrd_processed - l_num_recrd_passed;
6214: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_num_recrd_failed);
6215: END MAIN;
6216:
6217: PROCEDURE css_import( errbuf IN OUT NOCOPY VARCHAR2,
6218: retcode IN OUT NOCOPY NUMBER,