[Home] [Help]
105:
106: RETURN get_grp_name_rec.group_cd;
107: EXCEPTION
108: WHEN OTHERS THEN
109: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
110: fnd_message.set_token('NAME','IGF_GR_GEN_XML.GET_GRP_NAME');
111: igs_ge_msg_stack.add;
112: app_exception.raise_exception;
113: END get_grp_name;
106: RETURN get_grp_name_rec.group_cd;
107: EXCEPTION
108: WHEN OTHERS THEN
109: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
110: fnd_message.set_token('NAME','IGF_GR_GEN_XML.GET_GRP_NAME');
111: igs_ge_msg_stack.add;
112: app_exception.raise_exception;
113: END get_grp_name;
114:
147: RETURN TRUE;
148: END IF;
149: EXCEPTION
150: WHEN OTHERS THEN
151: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
152: fnd_message.set_token('NAME','IGF_GR_GEN_XML.CHECK_FA_REC');
153: igs_ge_msg_stack.add;
154: app_exception.raise_exception;
155: END check_fa_rec;
148: END IF;
149: EXCEPTION
150: WHEN OTHERS THEN
151: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
152: fnd_message.set_token('NAME','IGF_GR_GEN_XML.CHECK_FA_REC');
153: igs_ge_msg_stack.add;
154: app_exception.raise_exception;
155: END check_fa_rec;
156:
204: END IF;
205:
206: EXCEPTION
207: WHEN OTHERS THEN
208: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
209: fnd_message.set_token('NAME','IGF_GR_GEN_XML.PER_IN_FA');
210: igs_ge_msg_stack.add;
211: app_exception.raise_exception;
212: END per_in_fa;
205:
206: EXCEPTION
207: WHEN OTHERS THEN
208: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
209: fnd_message.set_token('NAME','IGF_GR_GEN_XML.PER_IN_FA');
210: igs_ge_msg_stack.add;
211: app_exception.raise_exception;
212: END per_in_fa;
213:
290: END IF;
291:
292: EXCEPTION
293: WHEN OTHERS THEN
294: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
295: fnd_message.set_token('NAME','IGF_GR_GEN_XML.LOG_INPUT_PARAMETERS');
296: igs_ge_msg_stack.add;
297: app_exception.raise_exception;
298: END log_input_parameters;
291:
292: EXCEPTION
293: WHEN OTHERS THEN
294: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
295: fnd_message.set_token('NAME','IGF_GR_GEN_XML.LOG_INPUT_PARAMETERS');
296: igs_ge_msg_stack.add;
297: app_exception.raise_exception;
298: END log_input_parameters;
299:
402:
403: -- Award year is mandatory parameter
404: IF p_award_year IS NULL OR l_ci_cal_type IS NULL OR l_ci_sequence_number IS NULL THEN
405: l_params_status := FALSE;
406: fnd_message.set_name('IGF', 'IGF_SL_COD_REQ_PARAM');
407: fnd_message.set_token('PARAM', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','AWARD_YEAR'));
408: fnd_file.put_line(fnd_file.log, fnd_message.get);
409: fnd_file.new_line(fnd_file.log, 1);
410: END IF;
403: -- Award year is mandatory parameter
404: IF p_award_year IS NULL OR l_ci_cal_type IS NULL OR l_ci_sequence_number IS NULL THEN
405: l_params_status := FALSE;
406: fnd_message.set_name('IGF', 'IGF_SL_COD_REQ_PARAM');
407: fnd_message.set_token('PARAM', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','AWARD_YEAR'));
408: fnd_file.put_line(fnd_file.log, fnd_message.get);
409: fnd_file.new_line(fnd_file.log, 1);
410: END IF;
411:
404: IF p_award_year IS NULL OR l_ci_cal_type IS NULL OR l_ci_sequence_number IS NULL THEN
405: l_params_status := FALSE;
406: fnd_message.set_name('IGF', 'IGF_SL_COD_REQ_PARAM');
407: fnd_message.set_token('PARAM', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','AWARD_YEAR'));
408: fnd_file.put_line(fnd_file.log, fnd_message.get);
409: fnd_file.new_line(fnd_file.log, 1);
410: END IF;
411:
412: -- Source entity id is mandatory parameter
411:
412: -- Source entity id is mandatory parameter
413: IF TRIM(p_source_entity_id) IS NULL THEN
414: l_params_status := FALSE;
415: fnd_message.set_name('IGF', 'IGF_SL_COD_REQ_PARAM');
416: fnd_message.set_token('PARAM', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'SOURCE_ENTITY_ID'));
417: fnd_file.put_line(fnd_file.log, fnd_message.get);
418: fnd_file.new_line(fnd_file.log, 1);
419: ELSIF is_alpha_numeric(p_source_entity_id) OR LENGTH(TRIM(p_source_entity_id)) > 8 THEN
412: -- Source entity id is mandatory parameter
413: IF TRIM(p_source_entity_id) IS NULL THEN
414: l_params_status := FALSE;
415: fnd_message.set_name('IGF', 'IGF_SL_COD_REQ_PARAM');
416: fnd_message.set_token('PARAM', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'SOURCE_ENTITY_ID'));
417: fnd_file.put_line(fnd_file.log, fnd_message.get);
418: fnd_file.new_line(fnd_file.log, 1);
419: ELSIF is_alpha_numeric(p_source_entity_id) OR LENGTH(TRIM(p_source_entity_id)) > 8 THEN
420: -- bvisvana BUg # 4124839
413: IF TRIM(p_source_entity_id) IS NULL THEN
414: l_params_status := FALSE;
415: fnd_message.set_name('IGF', 'IGF_SL_COD_REQ_PARAM');
416: fnd_message.set_token('PARAM', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'SOURCE_ENTITY_ID'));
417: fnd_file.put_line(fnd_file.log, fnd_message.get);
418: fnd_file.new_line(fnd_file.log, 1);
419: ELSIF is_alpha_numeric(p_source_entity_id) OR LENGTH(TRIM(p_source_entity_id)) > 8 THEN
420: -- bvisvana BUg # 4124839
421: l_params_status := FALSE;
418: fnd_file.new_line(fnd_file.log, 1);
419: ELSIF is_alpha_numeric(p_source_entity_id) OR LENGTH(TRIM(p_source_entity_id)) > 8 THEN
420: -- bvisvana BUg # 4124839
421: l_params_status := FALSE;
422: fnd_message.set_name('IGF','IGF_SL_COD_INVL_SOURCE_ID');
423: fnd_file.put_line(fnd_file.log, fnd_message.get);
424: fnd_file.new_line(fnd_file.log, 1);
425: END IF;
426:
419: ELSIF is_alpha_numeric(p_source_entity_id) OR LENGTH(TRIM(p_source_entity_id)) > 8 THEN
420: -- bvisvana BUg # 4124839
421: l_params_status := FALSE;
422: fnd_message.set_name('IGF','IGF_SL_COD_INVL_SOURCE_ID');
423: fnd_file.put_line(fnd_file.log, fnd_message.get);
424: fnd_file.new_line(fnd_file.log, 1);
425: END IF;
426:
427: -- validating person number and person group are mutually exclusive or not.
426:
427: -- validating person number and person group are mutually exclusive or not.
428: IF ( (p_base_id IS NOT NULL) AND (p_persid_grp IS NOT NULL) ) THEN
429: l_params_status := FALSE;
430: fnd_message.set_name('IGF', 'IGF_SL_COD_INV_PARAM');
431: fnd_message.set_token('PARAM1', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'BASE_ID'));
432: fnd_message.set_token('PARAM2', igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS', 'PERSON_ID_GROUP'));
433: fnd_file.put_line(fnd_file.log, fnd_message.get);
434: fnd_file.new_line(fnd_file.log, 1);
427: -- validating person number and person group are mutually exclusive or not.
428: IF ( (p_base_id IS NOT NULL) AND (p_persid_grp IS NOT NULL) ) THEN
429: l_params_status := FALSE;
430: fnd_message.set_name('IGF', 'IGF_SL_COD_INV_PARAM');
431: fnd_message.set_token('PARAM1', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'BASE_ID'));
432: fnd_message.set_token('PARAM2', igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS', 'PERSON_ID_GROUP'));
433: fnd_file.put_line(fnd_file.log, fnd_message.get);
434: fnd_file.new_line(fnd_file.log, 1);
435: END IF;
428: IF ( (p_base_id IS NOT NULL) AND (p_persid_grp IS NOT NULL) ) THEN
429: l_params_status := FALSE;
430: fnd_message.set_name('IGF', 'IGF_SL_COD_INV_PARAM');
431: fnd_message.set_token('PARAM1', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'BASE_ID'));
432: fnd_message.set_token('PARAM2', igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS', 'PERSON_ID_GROUP'));
433: fnd_file.put_line(fnd_file.log, fnd_message.get);
434: fnd_file.new_line(fnd_file.log, 1);
435: END IF;
436:
429: l_params_status := FALSE;
430: fnd_message.set_name('IGF', 'IGF_SL_COD_INV_PARAM');
431: fnd_message.set_token('PARAM1', igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'BASE_ID'));
432: fnd_message.set_token('PARAM2', igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS', 'PERSON_ID_GROUP'));
433: fnd_file.put_line(fnd_file.log, fnd_message.get);
434: fnd_file.new_line(fnd_file.log, 1);
435: END IF;
436:
437: -- Validating attributes for COD support.
444: OR rec_awd_year.sys_award_year IS NULL
445: THEN
446: -- ie award year is not setup at System Award Year Mappings Form.
447: l_params_status := FALSE;
448: fnd_message.set_name('IGF', 'IGF_SL_COD_INV_AWD_YR');
449: fnd_file.put_line(fnd_file.log, fnd_message.get);
450: fnd_file.new_line(fnd_file.log, 1);
451: ELSE
452: -- check award year is Open award year or not.
445: THEN
446: -- ie award year is not setup at System Award Year Mappings Form.
447: l_params_status := FALSE;
448: fnd_message.set_name('IGF', 'IGF_SL_COD_INV_AWD_YR');
449: fnd_file.put_line(fnd_file.log, fnd_message.get);
450: fnd_file.new_line(fnd_file.log, 1);
451: ELSE
452: -- check award year is Open award year or not.
453: IF (rec_awd_year.award_year_status_code <> 'O') THEN
451: ELSE
452: -- check award year is Open award year or not.
453: IF (rec_awd_year.award_year_status_code <> 'O') THEN
454: l_params_status := FALSE;
455: fnd_message.set_name('IGF', 'IGF_GR_COD_AWDYR_OPEN');
456: fnd_file.put_line(fnd_file.log, fnd_message.get);
457: fnd_file.new_line(fnd_file.log, 1);
458: END IF;
459:
452: -- check award year is Open award year or not.
453: IF (rec_awd_year.award_year_status_code <> 'O') THEN
454: l_params_status := FALSE;
455: fnd_message.set_name('IGF', 'IGF_GR_COD_AWDYR_OPEN');
456: fnd_file.put_line(fnd_file.log, fnd_message.get);
457: fnd_file.new_line(fnd_file.log, 1);
458: END IF;
459:
460: -- check pell participation is Full or not.
459:
460: -- check pell participation is Full or not.
461: IF (rec_awd_year.pell_participant_code <> 'FULL_PARTICIPANT') THEN
462: l_params_status := FALSE;
463: fnd_message.set_name('IGF', 'IGF_GR_COD_AWDYR_FULL');
464: fnd_file.put_line(fnd_file.log, fnd_message.get);
465: fnd_file.new_line(fnd_file.log, 1);
466: END IF;
467:
460: -- check pell participation is Full or not.
461: IF (rec_awd_year.pell_participant_code <> 'FULL_PARTICIPANT') THEN
462: l_params_status := FALSE;
463: fnd_message.set_name('IGF', 'IGF_GR_COD_AWDYR_FULL');
464: fnd_file.put_line(fnd_file.log, fnd_message.get);
465: fnd_file.new_line(fnd_file.log, 1);
466: END IF;
467:
468: -- check wether the award year is before 04-05.
467:
468: -- check wether the award year is before 04-05.
469: IF (rec_awd_year.sys_award_year < '0405') THEN
470: l_params_status := FALSE;
471: fnd_message.set_name('IGF', 'IGF_SL_COD_XML_SUPPORT');
472: fnd_file.put_line(fnd_file.log, fnd_message.get);
473: fnd_file.new_line(fnd_file.log, 1);
474: END IF;
475: END IF;
468: -- check wether the award year is before 04-05.
469: IF (rec_awd_year.sys_award_year < '0405') THEN
470: l_params_status := FALSE;
471: fnd_message.set_name('IGF', 'IGF_SL_COD_XML_SUPPORT');
472: fnd_file.put_line(fnd_file.log, fnd_message.get);
473: fnd_file.new_line(fnd_file.log, 1);
474: END IF;
475: END IF;
476: CLOSE cur_awd_year;
482: FETCH cur_source_entity INTO lv_dummy;
483: IF cur_source_entity%NOTFOUND THEN
484: -- Not a valid source entity id.
485: l_params_status := FALSE;
486: fnd_message.set_name('IGF', 'IGF_SL_COD_INV_SRC_ID');
487: fnd_file.put_line(fnd_file.log, fnd_message.get);
488: fnd_file.new_line(fnd_file.log, 1);
489: END IF;
490: CLOSE cur_source_entity;
483: IF cur_source_entity%NOTFOUND THEN
484: -- Not a valid source entity id.
485: l_params_status := FALSE;
486: fnd_message.set_name('IGF', 'IGF_SL_COD_INV_SRC_ID');
487: fnd_file.put_line(fnd_file.log, fnd_message.get);
488: fnd_file.new_line(fnd_file.log, 1);
489: END IF;
490: CLOSE cur_source_entity;
491: END IF;
496: FETCH cur_rep_entity INTO lv_dummy;
497: IF cur_rep_entity%NOTFOUND THEN
498: -- No origination records to process.
499: l_params_status := FALSE;
500: fnd_message.set_name('IGF', 'IGF_GR_COD_INV_REP_ID');
501: fnd_message.set_token('REPORTING_ID', p_report_entity_id);
502: fnd_file.put_line(fnd_file.log, fnd_message.get);
503: fnd_file.new_line(fnd_file.log, 1);
504: END IF;
497: IF cur_rep_entity%NOTFOUND THEN
498: -- No origination records to process.
499: l_params_status := FALSE;
500: fnd_message.set_name('IGF', 'IGF_GR_COD_INV_REP_ID');
501: fnd_message.set_token('REPORTING_ID', p_report_entity_id);
502: fnd_file.put_line(fnd_file.log, fnd_message.get);
503: fnd_file.new_line(fnd_file.log, 1);
504: END IF;
505: CLOSE cur_rep_entity;
498: -- No origination records to process.
499: l_params_status := FALSE;
500: fnd_message.set_name('IGF', 'IGF_GR_COD_INV_REP_ID');
501: fnd_message.set_token('REPORTING_ID', p_report_entity_id);
502: fnd_file.put_line(fnd_file.log, fnd_message.get);
503: fnd_file.new_line(fnd_file.log, 1);
504: END IF;
505: CLOSE cur_rep_entity;
506: END IF;
507:
508: -- Validate attending entity id. Is it present without reporting entity id.
509: IF (p_attend_entity_id IS NOT NULL AND p_report_entity_id IS NULL) THEN
510: l_params_status := FALSE;
511: fnd_message.set_name('IGF', 'IGF_SL_COD_INV_ATD_PARAM');
512: fnd_file.put_line(fnd_file.log, fnd_message.get);
513: fnd_file.new_line(fnd_file.log, 1);
514: END IF;
515:
508: -- Validate attending entity id. Is it present without reporting entity id.
509: IF (p_attend_entity_id IS NOT NULL AND p_report_entity_id IS NULL) THEN
510: l_params_status := FALSE;
511: fnd_message.set_name('IGF', 'IGF_SL_COD_INV_ATD_PARAM');
512: fnd_file.put_line(fnd_file.log, fnd_message.get);
513: fnd_file.new_line(fnd_file.log, 1);
514: END IF;
515:
516: -- Validate Attending Entity ID. Records with report and attend entity id exists or not.
519: FETCH cur_attd_entity INTO lv_dummy;
520: IF cur_attd_entity%NOTFOUND THEN
521: -- No origination records to process.
522: l_params_status := FALSE;
523: fnd_message.set_name('IGF', 'IGF_GR_COD_INV_ATD_ID');
524: fnd_message.set_token('REPORTING_ID', p_report_entity_id);
525: fnd_message.set_token('ATTENDING_ID', p_attend_entity_id);
526: fnd_file.put_line(fnd_file.log, fnd_message.get);
527: fnd_file.new_line(fnd_file.log, 1);
520: IF cur_attd_entity%NOTFOUND THEN
521: -- No origination records to process.
522: l_params_status := FALSE;
523: fnd_message.set_name('IGF', 'IGF_GR_COD_INV_ATD_ID');
524: fnd_message.set_token('REPORTING_ID', p_report_entity_id);
525: fnd_message.set_token('ATTENDING_ID', p_attend_entity_id);
526: fnd_file.put_line(fnd_file.log, fnd_message.get);
527: fnd_file.new_line(fnd_file.log, 1);
528: END IF;
521: -- No origination records to process.
522: l_params_status := FALSE;
523: fnd_message.set_name('IGF', 'IGF_GR_COD_INV_ATD_ID');
524: fnd_message.set_token('REPORTING_ID', p_report_entity_id);
525: fnd_message.set_token('ATTENDING_ID', p_attend_entity_id);
526: fnd_file.put_line(fnd_file.log, fnd_message.get);
527: fnd_file.new_line(fnd_file.log, 1);
528: END IF;
529: CLOSE cur_attd_entity;
522: l_params_status := FALSE;
523: fnd_message.set_name('IGF', 'IGF_GR_COD_INV_ATD_ID');
524: fnd_message.set_token('REPORTING_ID', p_report_entity_id);
525: fnd_message.set_token('ATTENDING_ID', p_attend_entity_id);
526: fnd_file.put_line(fnd_file.log, fnd_message.get);
527: fnd_file.new_line(fnd_file.log, 1);
528: END IF;
529: CLOSE cur_attd_entity;
530: END IF;
533: IF (p_base_id IS NOT NULL) THEN
534: -- check fa base record exists or not.
535: IF NOT check_fa_rec(p_base_id, l_ci_cal_type, l_ci_sequence_number) THEN
536: l_params_status := FALSE;
537: fnd_message.set_name('IGF', 'IGF_SP_NO_FA_BASE_REC');
538: fnd_file.put_line(fnd_file.log, fnd_message.get);
539: fnd_file.new_line(fnd_file.log, 1);
540: ELSE
541: -- check wether this person has any pell origination records or not.
534: -- check fa base record exists or not.
535: IF NOT check_fa_rec(p_base_id, l_ci_cal_type, l_ci_sequence_number) THEN
536: l_params_status := FALSE;
537: fnd_message.set_name('IGF', 'IGF_SP_NO_FA_BASE_REC');
538: fnd_file.put_line(fnd_file.log, fnd_message.get);
539: fnd_file.new_line(fnd_file.log, 1);
540: ELSE
541: -- check wether this person has any pell origination records or not.
542: OPEN cur_person_number(l_ci_cal_type, l_ci_sequence_number, p_base_id);
543: FETCH cur_person_number INTO lv_dummy;
544: IF cur_person_number%NOTFOUND THEN
545: -- no pell origination records for this person.
546: l_params_status := FALSE;
547: fnd_message.set_name('IGF', 'IGF_GR_COD_NO_ORIG_REC');
548: fnd_message.set_token('PERSON_NUMBER', igf_gr_gen.get_per_num(p_base_id));
549: fnd_file.put_line(fnd_file.log, fnd_message.get);
550: fnd_file.new_line(fnd_file.log, 1);
551: END IF;
544: IF cur_person_number%NOTFOUND THEN
545: -- no pell origination records for this person.
546: l_params_status := FALSE;
547: fnd_message.set_name('IGF', 'IGF_GR_COD_NO_ORIG_REC');
548: fnd_message.set_token('PERSON_NUMBER', igf_gr_gen.get_per_num(p_base_id));
549: fnd_file.put_line(fnd_file.log, fnd_message.get);
550: fnd_file.new_line(fnd_file.log, 1);
551: END IF;
552: CLOSE cur_person_number;
545: -- no pell origination records for this person.
546: l_params_status := FALSE;
547: fnd_message.set_name('IGF', 'IGF_GR_COD_NO_ORIG_REC');
548: fnd_message.set_token('PERSON_NUMBER', igf_gr_gen.get_per_num(p_base_id));
549: fnd_file.put_line(fnd_file.log, fnd_message.get);
550: fnd_file.new_line(fnd_file.log, 1);
551: END IF;
552: CLOSE cur_person_number;
553: END IF;
559: FETCH cur_person_group INTO lv_dummy;
560: IF cur_person_group%NOTFOUND THEN
561: -- Invalid person id group.
562: l_params_status := FALSE;
563: fnd_message.set_name('IGF', 'IGF_SL_COD_PERSID_GRP_INV');
564: fnd_file.put_line(fnd_file.log, fnd_message.get);
565: fnd_file.new_line(fnd_file.log, 1);
566: END IF;
567: CLOSE cur_person_group;
560: IF cur_person_group%NOTFOUND THEN
561: -- Invalid person id group.
562: l_params_status := FALSE;
563: fnd_message.set_name('IGF', 'IGF_SL_COD_PERSID_GRP_INV');
564: fnd_file.put_line(fnd_file.log, fnd_message.get);
565: fnd_file.new_line(fnd_file.log, 1);
566: END IF;
567: CLOSE cur_person_group;
568: END IF;
570: RETURN l_params_status;
571:
572: EXCEPTION
573: WHEN OTHERS THEN
574: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
575: fnd_message.set_token('NAME','IGF_GR_GEN_XML.VALIDATE_INPUT_PARAMETERS');
576: igs_ge_msg_stack.add;
577: app_exception.raise_exception;
578: END validate_input_parameters;
571:
572: EXCEPTION
573: WHEN OTHERS THEN
574: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
575: fnd_message.set_token('NAME','IGF_GR_GEN_XML.VALIDATE_INPUT_PARAMETERS');
576: igs_ge_msg_stack.add;
577: app_exception.raise_exception;
578: END validate_input_parameters;
579:
644:
645: -- validating full response code
646: IF ( p_rfms_rec.full_resp_code NOT IN ('S', 'F', 'M', 'N') ) THEN
647: lv_complete := FALSE;
648: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
649: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','FULL_RESP_CD'));
650: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.full_resp_code);
651: fnd_file.put_line(fnd_file.log, fnd_message.get);
652: END IF;
645: -- validating full response code
646: IF ( p_rfms_rec.full_resp_code NOT IN ('S', 'F', 'M', 'N') ) THEN
647: lv_complete := FALSE;
648: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
649: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','FULL_RESP_CD'));
650: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.full_resp_code);
651: fnd_file.put_line(fnd_file.log, fnd_message.get);
652: END IF;
653:
646: IF ( p_rfms_rec.full_resp_code NOT IN ('S', 'F', 'M', 'N') ) THEN
647: lv_complete := FALSE;
648: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
649: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','FULL_RESP_CD'));
650: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.full_resp_code);
651: fnd_file.put_line(fnd_file.log, fnd_message.get);
652: END IF;
653:
654: -- validating student's date of birth
647: lv_complete := FALSE;
648: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
649: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','FULL_RESP_CD'));
650: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.full_resp_code);
651: fnd_file.put_line(fnd_file.log, fnd_message.get);
652: END IF;
653:
654: -- validating student's date of birth
655: IF g_ver_num = '2004-2005' THEN
654: -- validating student's date of birth
655: IF g_ver_num = '2004-2005' THEN
656: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011905', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121996', 'DDMMYYYY')) ) THEN
657: lv_complete := FALSE;
658: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
659: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
660: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
661: fnd_file.put_line(fnd_file.log, fnd_message.get);
662: END IF;
655: IF g_ver_num = '2004-2005' THEN
656: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011905', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121996', 'DDMMYYYY')) ) THEN
657: lv_complete := FALSE;
658: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
659: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
660: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
661: fnd_file.put_line(fnd_file.log, fnd_message.get);
662: END IF;
663: END IF;
656: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011905', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121996', 'DDMMYYYY')) ) THEN
657: lv_complete := FALSE;
658: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
659: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
660: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
661: fnd_file.put_line(fnd_file.log, fnd_message.get);
662: END IF;
663: END IF;
664: IF g_ver_num = '2005-2006' THEN
657: lv_complete := FALSE;
658: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
659: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
660: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
661: fnd_file.put_line(fnd_file.log, fnd_message.get);
662: END IF;
663: END IF;
664: IF g_ver_num = '2005-2006' THEN
665: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011906', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121997', 'DDMMYYYY')) ) THEN
663: END IF;
664: IF g_ver_num = '2005-2006' THEN
665: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011906', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121997', 'DDMMYYYY')) ) THEN
666: lv_complete := FALSE;
667: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
668: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
669: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
670: fnd_file.put_line(fnd_file.log, fnd_message.get);
671: END IF;
664: IF g_ver_num = '2005-2006' THEN
665: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011906', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121997', 'DDMMYYYY')) ) THEN
666: lv_complete := FALSE;
667: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
668: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
669: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
670: fnd_file.put_line(fnd_file.log, fnd_message.get);
671: END IF;
672: END IF;
665: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011906', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121997', 'DDMMYYYY')) ) THEN
666: lv_complete := FALSE;
667: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
668: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
669: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
670: fnd_file.put_line(fnd_file.log, fnd_message.get);
671: END IF;
672: END IF;
673: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
666: lv_complete := FALSE;
667: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
668: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
669: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
670: fnd_file.put_line(fnd_file.log, fnd_message.get);
671: END IF;
672: END IF;
673: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
674: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011907', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121998', 'DDMMYYYY')) ) THEN
672: END IF;
673: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
674: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011907', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121998', 'DDMMYYYY')) ) THEN
675: lv_complete := FALSE;
676: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
677: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
678: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
679: fnd_file.put_line(fnd_file.log, fnd_message.get);
680: END IF;
673: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
674: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011907', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121998', 'DDMMYYYY')) ) THEN
675: lv_complete := FALSE;
676: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
677: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
678: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
679: fnd_file.put_line(fnd_file.log, fnd_message.get);
680: END IF;
681: END IF;
674: IF ( (student_dtl_rec.p_date_of_birth < TO_DATE('01011907', 'DDMMYYYY')) OR (student_dtl_rec.p_date_of_birth > TO_DATE('31121998', 'DDMMYYYY')) ) THEN
675: lv_complete := FALSE;
676: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
677: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
678: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
679: fnd_file.put_line(fnd_file.log, fnd_message.get);
680: END IF;
681: END IF;
682:
675: lv_complete := FALSE;
676: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
677: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_DATE_OF_BIRTH'));
678: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.birth_dt);
679: fnd_file.put_line(fnd_file.log, fnd_message.get);
680: END IF;
681: END IF;
682:
683: -- validating student's SSN
682:
683: -- validating student's SSN
684: IF ( (student_dtl_rec.p_ssn < '001010001') OR (student_dtl_rec.p_ssn > '999999998') ) THEN
685: lv_complete := FALSE;
686: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
687: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_SSN'));
688: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_ssn);
689: fnd_file.put_line(fnd_file.log, fnd_message.get);
690: END IF;
683: -- validating student's SSN
684: IF ( (student_dtl_rec.p_ssn < '001010001') OR (student_dtl_rec.p_ssn > '999999998') ) THEN
685: lv_complete := FALSE;
686: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
687: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_SSN'));
688: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_ssn);
689: fnd_file.put_line(fnd_file.log, fnd_message.get);
690: END IF;
691:
684: IF ( (student_dtl_rec.p_ssn < '001010001') OR (student_dtl_rec.p_ssn > '999999998') ) THEN
685: lv_complete := FALSE;
686: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
687: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_SSN'));
688: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_ssn);
689: fnd_file.put_line(fnd_file.log, fnd_message.get);
690: END IF;
691:
692: -- validating student's first name
685: lv_complete := FALSE;
686: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
687: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_SSN'));
688: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_ssn);
689: fnd_file.put_line(fnd_file.log, fnd_message.get);
690: END IF;
691:
692: -- validating student's first name
693: IF ( LENGTH(student_dtl_rec.p_first_name) > 12) THEN
691:
692: -- validating student's first name
693: IF ( LENGTH(student_dtl_rec.p_first_name) > 12) THEN
694: lv_complete := FALSE;
695: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
696: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_FIRST_NAME'));
697: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_first_name);
698: fnd_file.put_line(fnd_file.log, fnd_message.get);
699: END IF;
692: -- validating student's first name
693: IF ( LENGTH(student_dtl_rec.p_first_name) > 12) THEN
694: lv_complete := FALSE;
695: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
696: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_FIRST_NAME'));
697: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_first_name);
698: fnd_file.put_line(fnd_file.log, fnd_message.get);
699: END IF;
700:
693: IF ( LENGTH(student_dtl_rec.p_first_name) > 12) THEN
694: lv_complete := FALSE;
695: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
696: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_FIRST_NAME'));
697: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_first_name);
698: fnd_file.put_line(fnd_file.log, fnd_message.get);
699: END IF;
700:
701: -- validating student's last name
694: lv_complete := FALSE;
695: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
696: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_FIRST_NAME'));
697: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_first_name);
698: fnd_file.put_line(fnd_file.log, fnd_message.get);
699: END IF;
700:
701: -- validating student's last name
702: IF ( LENGTH(student_dtl_rec.p_last_name) > 35) THEN
700:
701: -- validating student's last name
702: IF ( LENGTH(student_dtl_rec.p_last_name) > 35) THEN
703: lv_complete := FALSE;
704: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
705: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_LAST_NAME'));
706: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_last_name);
707: fnd_file.put_line(fnd_file.log, fnd_message.get);
708: END IF;
701: -- validating student's last name
702: IF ( LENGTH(student_dtl_rec.p_last_name) > 35) THEN
703: lv_complete := FALSE;
704: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
705: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_LAST_NAME'));
706: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_last_name);
707: fnd_file.put_line(fnd_file.log, fnd_message.get);
708: END IF;
709:
702: IF ( LENGTH(student_dtl_rec.p_last_name) > 35) THEN
703: lv_complete := FALSE;
704: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
705: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_LAST_NAME'));
706: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_last_name);
707: fnd_file.put_line(fnd_file.log, fnd_message.get);
708: END IF;
709:
710: -- validating student's middle name
703: lv_complete := FALSE;
704: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
705: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_LAST_NAME'));
706: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_last_name);
707: fnd_file.put_line(fnd_file.log, fnd_message.get);
708: END IF;
709:
710: -- validating student's middle name
711: IF ( LENGTH(student_dtl_rec.p_middle_name) > 1) THEN
709:
710: -- validating student's middle name
711: IF ( LENGTH(student_dtl_rec.p_middle_name) > 1) THEN
712: lv_complete := FALSE;
713: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
714: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_MIDDLE_NAME'));
715: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_middle_name);
716: fnd_file.put_line(fnd_file.log, fnd_message.get);
717: END IF;
710: -- validating student's middle name
711: IF ( LENGTH(student_dtl_rec.p_middle_name) > 1) THEN
712: lv_complete := FALSE;
713: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
714: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_MIDDLE_NAME'));
715: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_middle_name);
716: fnd_file.put_line(fnd_file.log, fnd_message.get);
717: END IF;
718:
711: IF ( LENGTH(student_dtl_rec.p_middle_name) > 1) THEN
712: lv_complete := FALSE;
713: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
714: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_MIDDLE_NAME'));
715: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_middle_name);
716: fnd_file.put_line(fnd_file.log, fnd_message.get);
717: END IF;
718:
719: -- validating student's driver licencse state
712: lv_complete := FALSE;
713: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
714: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_MIDDLE_NAME'));
715: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_middle_name);
716: fnd_file.put_line(fnd_file.log, fnd_message.get);
717: END IF;
718:
719: -- validating student's driver licencse state
720: IF ( (LENGTH(student_dtl_rec.p_license_state) < 2) OR (LENGTH(student_dtl_rec.p_license_state) > 3) )THEN
718:
719: -- validating student's driver licencse state
720: IF ( (LENGTH(student_dtl_rec.p_license_state) < 2) OR (LENGTH(student_dtl_rec.p_license_state) > 3) )THEN
721: lv_complete := FALSE;
722: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
723: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','P_LICENSE_STATE'));
724: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_license_state);
725: fnd_file.put_line(fnd_file.log, fnd_message.get);
726: END IF;
719: -- validating student's driver licencse state
720: IF ( (LENGTH(student_dtl_rec.p_license_state) < 2) OR (LENGTH(student_dtl_rec.p_license_state) > 3) )THEN
721: lv_complete := FALSE;
722: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
723: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','P_LICENSE_STATE'));
724: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_license_state);
725: fnd_file.put_line(fnd_file.log, fnd_message.get);
726: END IF;
727:
720: IF ( (LENGTH(student_dtl_rec.p_license_state) < 2) OR (LENGTH(student_dtl_rec.p_license_state) > 3) )THEN
721: lv_complete := FALSE;
722: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
723: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','P_LICENSE_STATE'));
724: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_license_state);
725: fnd_file.put_line(fnd_file.log, fnd_message.get);
726: END IF;
727:
728: -- validating student's driver licencse number
721: lv_complete := FALSE;
722: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
723: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','P_LICENSE_STATE'));
724: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_license_state);
725: fnd_file.put_line(fnd_file.log, fnd_message.get);
726: END IF;
727:
728: -- validating student's driver licencse number
729: IF ( LENGTH(student_dtl_rec.p_license_num) > 20) THEN
727:
728: -- validating student's driver licencse number
729: IF ( LENGTH(student_dtl_rec.p_license_num) > 20) THEN
730: lv_complete := FALSE;
731: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
732: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_LICENSE_NUM'));
733: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_license_num);
734: fnd_file.put_line(fnd_file.log, fnd_message.get);
735: END IF;
728: -- validating student's driver licencse number
729: IF ( LENGTH(student_dtl_rec.p_license_num) > 20) THEN
730: lv_complete := FALSE;
731: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
732: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_LICENSE_NUM'));
733: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_license_num);
734: fnd_file.put_line(fnd_file.log, fnd_message.get);
735: END IF;
736:
729: IF ( LENGTH(student_dtl_rec.p_license_num) > 20) THEN
730: lv_complete := FALSE;
731: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
732: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_LICENSE_NUM'));
733: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_license_num);
734: fnd_file.put_line(fnd_file.log, fnd_message.get);
735: END IF;
736:
737: -- validating student's citizenship status code
730: lv_complete := FALSE;
731: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
732: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_LICENSE_NUM'));
733: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_license_num);
734: fnd_file.put_line(fnd_file.log, fnd_message.get);
735: END IF;
736:
737: -- validating student's citizenship status code
738: IF ( (LENGTH(student_dtl_rec.p_citizenship_status) > 1) OR (student_dtl_rec.p_citizenship_status NOT IN ('1', '2', '3')) ) THEN
736:
737: -- validating student's citizenship status code
738: IF ( (LENGTH(student_dtl_rec.p_citizenship_status) > 1) OR (student_dtl_rec.p_citizenship_status NOT IN ('1', '2', '3')) ) THEN
739: lv_complete := FALSE;
740: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
741: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_CITIZENSHIP_STATUS'));
742: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_citizenship_status);
743: fnd_file.put_line(fnd_file.log, fnd_message.get);
744: END IF;
737: -- validating student's citizenship status code
738: IF ( (LENGTH(student_dtl_rec.p_citizenship_status) > 1) OR (student_dtl_rec.p_citizenship_status NOT IN ('1', '2', '3')) ) THEN
739: lv_complete := FALSE;
740: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
741: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_CITIZENSHIP_STATUS'));
742: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_citizenship_status);
743: fnd_file.put_line(fnd_file.log, fnd_message.get);
744: END IF;
745:
738: IF ( (LENGTH(student_dtl_rec.p_citizenship_status) > 1) OR (student_dtl_rec.p_citizenship_status NOT IN ('1', '2', '3')) ) THEN
739: lv_complete := FALSE;
740: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
741: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_CITIZENSHIP_STATUS'));
742: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_citizenship_status);
743: fnd_file.put_line(fnd_file.log, fnd_message.get);
744: END IF;
745:
746: -- validating note message
739: lv_complete := FALSE;
740: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
741: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','S_CITIZENSHIP_STATUS'));
742: fnd_message.set_token('FIELD_VALUE',student_dtl_rec.p_citizenship_status);
743: fnd_file.put_line(fnd_file.log, fnd_message.get);
744: END IF;
745:
746: -- validating note message
747: IF ( LENGTH(p_rfms_rec.note_message) > 20) THEN
745:
746: -- validating note message
747: IF ( LENGTH(p_rfms_rec.note_message) > 20) THEN
748: lv_complete := FALSE;
749: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
750: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','NOTE_MESSAGE'));
751: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.note_message);
752: fnd_file.put_line(fnd_file.log, fnd_message.get);
753: END IF;
746: -- validating note message
747: IF ( LENGTH(p_rfms_rec.note_message) > 20) THEN
748: lv_complete := FALSE;
749: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
750: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','NOTE_MESSAGE'));
751: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.note_message);
752: fnd_file.put_line(fnd_file.log, fnd_message.get);
753: END IF;
754:
747: IF ( LENGTH(p_rfms_rec.note_message) > 20) THEN
748: lv_complete := FALSE;
749: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
750: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','NOTE_MESSAGE'));
751: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.note_message);
752: fnd_file.put_line(fnd_file.log, fnd_message.get);
753: END IF;
754:
755: -- validating student's low_tution_fee
748: lv_complete := FALSE;
749: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
750: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','NOTE_MESSAGE'));
751: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.note_message);
752: fnd_file.put_line(fnd_file.log, fnd_message.get);
753: END IF;
754:
755: -- validating student's low_tution_fee
756: IF ( (LENGTH(p_rfms_rec.low_tution_fee) > 1) OR (p_rfms_rec.low_tution_fee NOT IN ('1', '2', '3', '4')) ) THEN
754:
755: -- validating student's low_tution_fee
756: IF ( (LENGTH(p_rfms_rec.low_tution_fee) > 1) OR (p_rfms_rec.low_tution_fee NOT IN ('1', '2', '3', '4')) ) THEN
757: lv_complete := FALSE;
758: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
759: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','LOW_TUTION_FEE'));
760: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.low_tution_fee);
761: fnd_file.put_line(fnd_file.log, fnd_message.get);
762: END IF;
755: -- validating student's low_tution_fee
756: IF ( (LENGTH(p_rfms_rec.low_tution_fee) > 1) OR (p_rfms_rec.low_tution_fee NOT IN ('1', '2', '3', '4')) ) THEN
757: lv_complete := FALSE;
758: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
759: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','LOW_TUTION_FEE'));
760: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.low_tution_fee);
761: fnd_file.put_line(fnd_file.log, fnd_message.get);
762: END IF;
763:
756: IF ( (LENGTH(p_rfms_rec.low_tution_fee) > 1) OR (p_rfms_rec.low_tution_fee NOT IN ('1', '2', '3', '4')) ) THEN
757: lv_complete := FALSE;
758: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
759: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','LOW_TUTION_FEE'));
760: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.low_tution_fee);
761: fnd_file.put_line(fnd_file.log, fnd_message.get);
762: END IF;
763:
764: -- validating transaction number
757: lv_complete := FALSE;
758: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
759: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','LOW_TUTION_FEE'));
760: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.low_tution_fee);
761: fnd_file.put_line(fnd_file.log, fnd_message.get);
762: END IF;
763:
764: -- validating transaction number
765: IF ( (LENGTH(p_rfms_rec.transaction_num) < '01') OR (LENGTH(p_rfms_rec.transaction_num) > '99') ) THEN
763:
764: -- validating transaction number
765: IF ( (LENGTH(p_rfms_rec.transaction_num) < '01') OR (LENGTH(p_rfms_rec.transaction_num) > '99') ) THEN
766: lv_complete := FALSE;
767: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
768: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','TRANSACTION_NUMBER'));
769: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.transaction_num);
770: fnd_file.put_line(fnd_file.log, fnd_message.get);
771: END IF;
764: -- validating transaction number
765: IF ( (LENGTH(p_rfms_rec.transaction_num) < '01') OR (LENGTH(p_rfms_rec.transaction_num) > '99') ) THEN
766: lv_complete := FALSE;
767: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
768: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','TRANSACTION_NUMBER'));
769: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.transaction_num);
770: fnd_file.put_line(fnd_file.log, fnd_message.get);
771: END IF;
772:
765: IF ( (LENGTH(p_rfms_rec.transaction_num) < '01') OR (LENGTH(p_rfms_rec.transaction_num) > '99') ) THEN
766: lv_complete := FALSE;
767: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
768: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','TRANSACTION_NUMBER'));
769: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.transaction_num);
770: fnd_file.put_line(fnd_file.log, fnd_message.get);
771: END IF;
772:
773: -- validating enrollment date
766: lv_complete := FALSE;
767: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
768: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','TRANSACTION_NUMBER'));
769: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.transaction_num);
770: fnd_file.put_line(fnd_file.log, fnd_message.get);
771: END IF;
772:
773: -- validating enrollment date
774: IF g_ver_num = '2004-2005' THEN
773: -- validating enrollment date
774: IF g_ver_num = '2004-2005' THEN
775: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012004', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062005', 'DDMMYYYY')) ) THEN
776: lv_complete := FALSE;
777: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
778: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
779: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
780: fnd_file.put_line(fnd_file.log, fnd_message.get);
781: END IF;
774: IF g_ver_num = '2004-2005' THEN
775: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012004', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062005', 'DDMMYYYY')) ) THEN
776: lv_complete := FALSE;
777: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
778: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
779: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
780: fnd_file.put_line(fnd_file.log, fnd_message.get);
781: END IF;
782: END IF;
775: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012004', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062005', 'DDMMYYYY')) ) THEN
776: lv_complete := FALSE;
777: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
778: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
779: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
780: fnd_file.put_line(fnd_file.log, fnd_message.get);
781: END IF;
782: END IF;
783: IF g_ver_num = '2005-2006' THEN
776: lv_complete := FALSE;
777: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
778: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
779: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
780: fnd_file.put_line(fnd_file.log, fnd_message.get);
781: END IF;
782: END IF;
783: IF g_ver_num = '2005-2006' THEN
784: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012005', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062006', 'DDMMYYYY')) ) THEN
782: END IF;
783: IF g_ver_num = '2005-2006' THEN
784: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012005', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062006', 'DDMMYYYY')) ) THEN
785: lv_complete := FALSE;
786: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
787: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
788: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
789: fnd_file.put_line(fnd_file.log, fnd_message.get);
790: END IF;
783: IF g_ver_num = '2005-2006' THEN
784: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012005', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062006', 'DDMMYYYY')) ) THEN
785: lv_complete := FALSE;
786: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
787: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
788: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
789: fnd_file.put_line(fnd_file.log, fnd_message.get);
790: END IF;
791: END IF;
784: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012005', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062006', 'DDMMYYYY')) ) THEN
785: lv_complete := FALSE;
786: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
787: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
788: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
789: fnd_file.put_line(fnd_file.log, fnd_message.get);
790: END IF;
791: END IF;
792: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
785: lv_complete := FALSE;
786: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
787: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
788: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
789: fnd_file.put_line(fnd_file.log, fnd_message.get);
790: END IF;
791: END IF;
792: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
793: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012006', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062007', 'DDMMYYYY')) ) THEN
791: END IF;
792: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
793: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012006', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062007', 'DDMMYYYY')) ) THEN
794: lv_complete := FALSE;
795: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
796: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
797: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
798: fnd_file.put_line(fnd_file.log, fnd_message.get);
799: END IF;
792: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
793: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012006', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062007', 'DDMMYYYY')) ) THEN
794: lv_complete := FALSE;
795: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
796: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
797: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
798: fnd_file.put_line(fnd_file.log, fnd_message.get);
799: END IF;
800: END IF;
793: IF ( (p_rfms_rec.enrollment_dt < TO_DATE('01012006', 'DDMMYYYY')) OR (p_rfms_rec.enrollment_dt > TO_DATE('30062007', 'DDMMYYYY')) ) THEN
794: lv_complete := FALSE;
795: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
796: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
797: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
798: fnd_file.put_line(fnd_file.log, fnd_message.get);
799: END IF;
800: END IF;
801:
794: lv_complete := FALSE;
795: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
796: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ENROLLMENT_DT'));
797: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.enrollment_dt);
798: fnd_file.put_line(fnd_file.log, fnd_message.get);
799: END IF;
800: END IF;
801:
802: -- validating secondary efc
801:
802: -- validating secondary efc
803: IF ( (LENGTH(p_rfms_rec.secondary_efc_cd) > 1) OR (p_rfms_rec.secondary_efc_cd NOT IN ('O', 'S')) ) THEN
804: lv_complete := FALSE;
805: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
806: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_AP_AWARDING_FC_TYPE','2'));
807: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.secondary_efc);
808: fnd_file.put_line(fnd_file.log, fnd_message.get);
809: END IF;
802: -- validating secondary efc
803: IF ( (LENGTH(p_rfms_rec.secondary_efc_cd) > 1) OR (p_rfms_rec.secondary_efc_cd NOT IN ('O', 'S')) ) THEN
804: lv_complete := FALSE;
805: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
806: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_AP_AWARDING_FC_TYPE','2'));
807: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.secondary_efc);
808: fnd_file.put_line(fnd_file.log, fnd_message.get);
809: END IF;
810:
803: IF ( (LENGTH(p_rfms_rec.secondary_efc_cd) > 1) OR (p_rfms_rec.secondary_efc_cd NOT IN ('O', 'S')) ) THEN
804: lv_complete := FALSE;
805: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
806: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_AP_AWARDING_FC_TYPE','2'));
807: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.secondary_efc);
808: fnd_file.put_line(fnd_file.log, fnd_message.get);
809: END IF;
810:
811: -- validating verification status code
804: lv_complete := FALSE;
805: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
806: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_AP_AWARDING_FC_TYPE','2'));
807: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.secondary_efc);
808: fnd_file.put_line(fnd_file.log, fnd_message.get);
809: END IF;
810:
811: -- validating verification status code
812: IF ( (LENGTH(p_rfms_rec.ver_status_code) > 1) OR (p_rfms_rec.ver_status_code NOT IN ('W', 'V', 'S')) ) THEN
810:
811: -- validating verification status code
812: IF ( (LENGTH(p_rfms_rec.ver_status_code) > 1) OR (p_rfms_rec.ver_status_code NOT IN ('W', 'V', 'S')) ) THEN
813: lv_complete := FALSE;
814: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
815: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_VER'));
816: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.ver_status_code);
817: fnd_file.put_line(fnd_file.log, fnd_message.get);
818: END IF;
811: -- validating verification status code
812: IF ( (LENGTH(p_rfms_rec.ver_status_code) > 1) OR (p_rfms_rec.ver_status_code NOT IN ('W', 'V', 'S')) ) THEN
813: lv_complete := FALSE;
814: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
815: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_VER'));
816: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.ver_status_code);
817: fnd_file.put_line(fnd_file.log, fnd_message.get);
818: END IF;
819:
812: IF ( (LENGTH(p_rfms_rec.ver_status_code) > 1) OR (p_rfms_rec.ver_status_code NOT IN ('W', 'V', 'S')) ) THEN
813: lv_complete := FALSE;
814: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
815: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_VER'));
816: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.ver_status_code);
817: fnd_file.put_line(fnd_file.log, fnd_message.get);
818: END IF;
819:
820: -- validating incarcerated status.
813: lv_complete := FALSE;
814: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
815: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_VER'));
816: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.ver_status_code);
817: fnd_file.put_line(fnd_file.log, fnd_message.get);
818: END IF;
819:
820: -- validating incarcerated status.
821: IF ( p_rfms_rec.incrcd_fed_pell_rcp_cd IS NOT NULL AND ((LENGTH(p_rfms_rec.incrcd_fed_pell_rcp_cd) > 1) OR (p_rfms_rec.incrcd_fed_pell_rcp_cd NOT IN ('Y', 'N'))) ) THEN
819:
820: -- validating incarcerated status.
821: IF ( p_rfms_rec.incrcd_fed_pell_rcp_cd IS NOT NULL AND ((LENGTH(p_rfms_rec.incrcd_fed_pell_rcp_cd) > 1) OR (p_rfms_rec.incrcd_fed_pell_rcp_cd NOT IN ('Y', 'N'))) ) THEN
822: lv_complete := FALSE;
823: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
824: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','INCRCD_FED_PELL_RCP_CD'));
825: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.incrcd_fed_pell_rcp_cd);
826: fnd_file.put_line(fnd_file.log, fnd_message.get);
827: END IF;
820: -- validating incarcerated status.
821: IF ( p_rfms_rec.incrcd_fed_pell_rcp_cd IS NOT NULL AND ((LENGTH(p_rfms_rec.incrcd_fed_pell_rcp_cd) > 1) OR (p_rfms_rec.incrcd_fed_pell_rcp_cd NOT IN ('Y', 'N'))) ) THEN
822: lv_complete := FALSE;
823: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
824: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','INCRCD_FED_PELL_RCP_CD'));
825: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.incrcd_fed_pell_rcp_cd);
826: fnd_file.put_line(fnd_file.log, fnd_message.get);
827: END IF;
828:
821: IF ( p_rfms_rec.incrcd_fed_pell_rcp_cd IS NOT NULL AND ((LENGTH(p_rfms_rec.incrcd_fed_pell_rcp_cd) > 1) OR (p_rfms_rec.incrcd_fed_pell_rcp_cd NOT IN ('Y', 'N'))) ) THEN
822: lv_complete := FALSE;
823: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
824: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','INCRCD_FED_PELL_RCP_CD'));
825: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.incrcd_fed_pell_rcp_cd);
826: fnd_file.put_line(fnd_file.log, fnd_message.get);
827: END IF;
828:
829: IF ( p_rfms_rec.pell_amount >= 999999999.99) THEN
822: lv_complete := FALSE;
823: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
824: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','INCRCD_FED_PELL_RCP_CD'));
825: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.incrcd_fed_pell_rcp_cd);
826: fnd_file.put_line(fnd_file.log, fnd_message.get);
827: END IF;
828:
829: IF ( p_rfms_rec.pell_amount >= 999999999.99) THEN
830: lv_complete := FALSE;
827: END IF;
828:
829: IF ( p_rfms_rec.pell_amount >= 999999999.99) THEN
830: lv_complete := FALSE;
831: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
832: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_PELL'));
833: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.pell_amount);
834: fnd_file.put_line(fnd_file.log, fnd_message.get);
835: END IF;
828:
829: IF ( p_rfms_rec.pell_amount >= 999999999.99) THEN
830: lv_complete := FALSE;
831: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
832: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_PELL'));
833: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.pell_amount);
834: fnd_file.put_line(fnd_file.log, fnd_message.get);
835: END IF;
836:
829: IF ( p_rfms_rec.pell_amount >= 999999999.99) THEN
830: lv_complete := FALSE;
831: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
832: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_PELL'));
833: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.pell_amount);
834: fnd_file.put_line(fnd_file.log, fnd_message.get);
835: END IF;
836:
837: -- validating disbursement data from the IGF_AW_DB_CHG_DTLS table
830: lv_complete := FALSE;
831: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
832: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_PELL'));
833: fnd_message.set_token('FIELD_VALUE',p_rfms_rec.pell_amount);
834: fnd_file.put_line(fnd_file.log, fnd_message.get);
835: END IF;
836:
837: -- validating disbursement data from the IGF_AW_DB_CHG_DTLS table
838: l_award_id := p_rfms_rec.award_id;
839: FOR rec_disb_chg_dtls IN cur_disb_chg_dtls(l_award_id) LOOP
840: -- validating disbursement accepted amount
841: IF ( rec_disb_chg_dtls.disb_accepted_amt >= 999999999.99) THEN
842: lv_complete := FALSE;
843: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
844: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_DB_AMT'));
845: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_accepted_amt);
846: fnd_file.put_line(fnd_file.log, fnd_message.get);
847: END IF;
840: -- validating disbursement accepted amount
841: IF ( rec_disb_chg_dtls.disb_accepted_amt >= 999999999.99) THEN
842: lv_complete := FALSE;
843: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
844: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_DB_AMT'));
845: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_accepted_amt);
846: fnd_file.put_line(fnd_file.log, fnd_message.get);
847: END IF;
848:
841: IF ( rec_disb_chg_dtls.disb_accepted_amt >= 999999999.99) THEN
842: lv_complete := FALSE;
843: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
844: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_DB_AMT'));
845: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_accepted_amt);
846: fnd_file.put_line(fnd_file.log, fnd_message.get);
847: END IF;
848:
849: -- validating disbursement number
842: lv_complete := FALSE;
843: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
844: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_DB_AMT'));
845: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_accepted_amt);
846: fnd_file.put_line(fnd_file.log, fnd_message.get);
847: END IF;
848:
849: -- validating disbursement number
850: IF ( rec_disb_chg_dtls.disb_num >= 60) THEN
848:
849: -- validating disbursement number
850: IF ( rec_disb_chg_dtls.disb_num >= 60) THEN
851: lv_complete := FALSE;
852: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
853: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_AW_LOOKUPS_MSG','DISB_NUM'));
854: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_num);
855: fnd_file.put_line(fnd_file.log, fnd_message.get);
856: END IF;
849: -- validating disbursement number
850: IF ( rec_disb_chg_dtls.disb_num >= 60) THEN
851: lv_complete := FALSE;
852: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
853: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_AW_LOOKUPS_MSG','DISB_NUM'));
854: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_num);
855: fnd_file.put_line(fnd_file.log, fnd_message.get);
856: END IF;
857:
850: IF ( rec_disb_chg_dtls.disb_num >= 60) THEN
851: lv_complete := FALSE;
852: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
853: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_AW_LOOKUPS_MSG','DISB_NUM'));
854: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_num);
855: fnd_file.put_line(fnd_file.log, fnd_message.get);
856: END IF;
857:
858: -- validating disbursement sequence number
851: lv_complete := FALSE;
852: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
853: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_AW_LOOKUPS_MSG','DISB_NUM'));
854: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_num);
855: fnd_file.put_line(fnd_file.log, fnd_message.get);
856: END IF;
857:
858: -- validating disbursement sequence number
859: IF ( rec_disb_chg_dtls.disb_seq_num >= 99) THEN
857:
858: -- validating disbursement sequence number
859: IF ( rec_disb_chg_dtls.disb_seq_num >= 99) THEN
860: lv_complete := FALSE;
861: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
862: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','DISB_SEQ_NUM'));
863: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_seq_num);
864: fnd_file.put_line(fnd_file.log, fnd_message.get);
865: END IF;
858: -- validating disbursement sequence number
859: IF ( rec_disb_chg_dtls.disb_seq_num >= 99) THEN
860: lv_complete := FALSE;
861: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
862: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','DISB_SEQ_NUM'));
863: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_seq_num);
864: fnd_file.put_line(fnd_file.log, fnd_message.get);
865: END IF;
866:
859: IF ( rec_disb_chg_dtls.disb_seq_num >= 99) THEN
860: lv_complete := FALSE;
861: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
862: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','DISB_SEQ_NUM'));
863: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_seq_num);
864: fnd_file.put_line(fnd_file.log, fnd_message.get);
865: END IF;
866:
867: -- validating disbursement date
860: lv_complete := FALSE;
861: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
862: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_LOAN_FIELDS','DISB_SEQ_NUM'));
863: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_seq_num);
864: fnd_file.put_line(fnd_file.log, fnd_message.get);
865: END IF;
866:
867: -- validating disbursement date
868: IF g_ver_num = '2004-2005' THEN
867: -- validating disbursement date
868: IF g_ver_num = '2004-2005' THEN
869: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('22062003', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102006', 'DDMMYYYY')) ) THEN
870: lv_complete := FALSE;
871: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
872: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
873: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
874: fnd_file.put_line(fnd_file.log, fnd_message.get);
875: END IF;
868: IF g_ver_num = '2004-2005' THEN
869: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('22062003', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102006', 'DDMMYYYY')) ) THEN
870: lv_complete := FALSE;
871: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
872: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
873: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
874: fnd_file.put_line(fnd_file.log, fnd_message.get);
875: END IF;
876: END IF;
869: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('22062003', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102006', 'DDMMYYYY')) ) THEN
870: lv_complete := FALSE;
871: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
872: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
873: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
874: fnd_file.put_line(fnd_file.log, fnd_message.get);
875: END IF;
876: END IF;
877: IF g_ver_num = '2005-2006' THEN
870: lv_complete := FALSE;
871: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
872: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
873: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
874: fnd_file.put_line(fnd_file.log, fnd_message.get);
875: END IF;
876: END IF;
877: IF g_ver_num = '2005-2006' THEN
878: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('22062004', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102007', 'DDMMYYYY')) ) THEN
876: END IF;
877: IF g_ver_num = '2005-2006' THEN
878: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('22062004', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102007', 'DDMMYYYY')) ) THEN
879: lv_complete := FALSE;
880: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
881: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
882: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
883: fnd_file.put_line(fnd_file.log, fnd_message.get);
884: END IF;
877: IF g_ver_num = '2005-2006' THEN
878: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('22062004', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102007', 'DDMMYYYY')) ) THEN
879: lv_complete := FALSE;
880: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
881: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
882: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
883: fnd_file.put_line(fnd_file.log, fnd_message.get);
884: END IF;
885: END IF;
878: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('22062004', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102007', 'DDMMYYYY')) ) THEN
879: lv_complete := FALSE;
880: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
881: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
882: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
883: fnd_file.put_line(fnd_file.log, fnd_message.get);
884: END IF;
885: END IF;
886: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
879: lv_complete := FALSE;
880: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
881: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
882: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
883: fnd_file.put_line(fnd_file.log, fnd_message.get);
884: END IF;
885: END IF;
886: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
887: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('01072006', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102009', 'DDMMYYYY')) ) THEN
885: END IF;
886: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
887: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('01072006', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102009', 'DDMMYYYY')) ) THEN
888: lv_complete := FALSE;
889: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
890: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
891: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
892: fnd_file.put_line(fnd_file.log, fnd_message.get);
893: END IF;
886: IF g_ver_num = '2006-2007' THEN -- check made as part of FA162(COD Reg Updates R12 porting)
887: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('01072006', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102009', 'DDMMYYYY')) ) THEN
888: lv_complete := FALSE;
889: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
890: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
891: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
892: fnd_file.put_line(fnd_file.log, fnd_message.get);
893: END IF;
894: END IF;
887: IF ( (rec_disb_chg_dtls.disb_date < TO_DATE('01072006', 'DDMMYYYY')) OR (rec_disb_chg_dtls.disb_date > TO_DATE('27102009', 'DDMMYYYY')) ) THEN
888: lv_complete := FALSE;
889: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
890: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
891: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
892: fnd_file.put_line(fnd_file.log, fnd_message.get);
893: END IF;
894: END IF;
895: END LOOP;
888: lv_complete := FALSE;
889: fnd_message.set_name('IGF','IGF_GR_COD_INVALID_VALUE');
890: fnd_message.set_token('FIELD_NAME',igf_aw_gen.lookup_desc('IGF_SL_CL_CHANGE_FIELDS','DISB_DATE'));
891: fnd_message.set_token('FIELD_VALUE',rec_disb_chg_dtls.disb_date);
892: fnd_file.put_line(fnd_file.log, fnd_message.get);
893: END IF;
894: END IF;
895: END LOOP;
896:
897: RETURN lv_complete;
898:
899: EXCEPTION
900: WHEN OTHERS THEN
901: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
902: fnd_message.set_token('NAME','IGF_GR_GEN_XML.XML_BOUNDARY_VALIDATE');
903: igs_ge_msg_stack.add;
904: app_exception.raise_exception;
905: END xml_boundary_validate;
898:
899: EXCEPTION
900: WHEN OTHERS THEN
901: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
902: fnd_message.set_token('NAME','IGF_GR_GEN_XML.XML_BOUNDARY_VALIDATE');
903: igs_ge_msg_stack.add;
904: app_exception.raise_exception;
905: END xml_boundary_validate;
906:
1115: END IF;
1116: END LOOP;
1117: EXCEPTION
1118: WHEN OTHERS THEN
1119: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1120: fnd_message.set_token('NAME','IGF_GR_GEN_XML.INSERT_INTO_COD_TABLES');
1121: igs_ge_msg_stack.add;
1122: app_exception.raise_exception;
1123: END insert_into_cod_tables;
1116: END LOOP;
1117: EXCEPTION
1118: WHEN OTHERS THEN
1119: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1120: fnd_message.set_token('NAME','IGF_GR_GEN_XML.INSERT_INTO_COD_TABLES');
1121: igs_ge_msg_stack.add;
1122: app_exception.raise_exception;
1123: END insert_into_cod_tables;
1124:
1191: -- 1. validate general validations
1192: -- 2. validate xml boundary validations
1193: -- 3. insert data into IGF_GR_COD_DTLS and IGF_AW_DB_COD_DTLS tables.
1194:
1195: fnd_message.set_name('IGF','IGF_GR_PROCESS_STUD');
1196: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_rfms_rec.base_id));
1197: fnd_message.set_token('ORIG_ID',p_rfms_rec.origination_id);
1198: fnd_file.put_line(fnd_file.log,fnd_message.get);
1199:
1192: -- 2. validate xml boundary validations
1193: -- 3. insert data into IGF_GR_COD_DTLS and IGF_AW_DB_COD_DTLS tables.
1194:
1195: fnd_message.set_name('IGF','IGF_GR_PROCESS_STUD');
1196: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_rfms_rec.base_id));
1197: fnd_message.set_token('ORIG_ID',p_rfms_rec.origination_id);
1198: fnd_file.put_line(fnd_file.log,fnd_message.get);
1199:
1200: -- validate general validations
1193: -- 3. insert data into IGF_GR_COD_DTLS and IGF_AW_DB_COD_DTLS tables.
1194:
1195: fnd_message.set_name('IGF','IGF_GR_PROCESS_STUD');
1196: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_rfms_rec.base_id));
1197: fnd_message.set_token('ORIG_ID',p_rfms_rec.origination_id);
1198: fnd_file.put_line(fnd_file.log,fnd_message.get);
1199:
1200: -- validate general validations
1201:
1194:
1195: fnd_message.set_name('IGF','IGF_GR_PROCESS_STUD');
1196: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_rfms_rec.base_id));
1197: fnd_message.set_token('ORIG_ID',p_rfms_rec.origination_id);
1198: fnd_file.put_line(fnd_file.log,fnd_message.get);
1199:
1200: -- validate general validations
1201:
1202: -- check if attending entity id is a child of reporting entity id.
1205: FETCH cur_attending_entity INTO rec_attending_entity;
1206: IF (cur_attending_entity%NOTFOUND) THEN -- Attending entity child record exists?
1207: -- No attending pell child record exists. Do not process this record
1208: CLOSE cur_attending_entity;
1209: fnd_message.set_name('IGF','IGF_GR_ATD_ENTITY_NOT_SETUP');
1210: fnd_message.set_token('ATD_ENTITY', p_rfms_rec.atd_entity_id_txt);
1211: fnd_file.put_line(fnd_file.log, fnd_message.get);
1212: RETURN;
1213: ELSE
1206: IF (cur_attending_entity%NOTFOUND) THEN -- Attending entity child record exists?
1207: -- No attending pell child record exists. Do not process this record
1208: CLOSE cur_attending_entity;
1209: fnd_message.set_name('IGF','IGF_GR_ATD_ENTITY_NOT_SETUP');
1210: fnd_message.set_token('ATD_ENTITY', p_rfms_rec.atd_entity_id_txt);
1211: fnd_file.put_line(fnd_file.log, fnd_message.get);
1212: RETURN;
1213: ELSE
1214: -- attending pell child record exists. Proceed further...
1207: -- No attending pell child record exists. Do not process this record
1208: CLOSE cur_attending_entity;
1209: fnd_message.set_name('IGF','IGF_GR_ATD_ENTITY_NOT_SETUP');
1210: fnd_message.set_token('ATD_ENTITY', p_rfms_rec.atd_entity_id_txt);
1211: fnd_file.put_line(fnd_file.log, fnd_message.get);
1212: RETURN;
1213: ELSE
1214: -- attending pell child record exists. Proceed further...
1215: CLOSE cur_attending_entity;
1225: END IF;
1226: CLOSE cur_pymnt_isir;
1227:
1228: IF NOT l_isir_present THEN
1229: fnd_message.set_name('IGF','IGF_AP_NO_PAYMENT_ISIR');
1230: fnd_file.put_line(fnd_file.log,fnd_message.get);
1231:
1232: -- If the Transaction Number being reported does not match do not Originate
1233: ELSIF p_rfms_rec.transaction_num <> NVL(cur_pymnt_isir_rec.transaction_num,-1) THEN
1226: CLOSE cur_pymnt_isir;
1227:
1228: IF NOT l_isir_present THEN
1229: fnd_message.set_name('IGF','IGF_AP_NO_PAYMENT_ISIR');
1230: fnd_file.put_line(fnd_file.log,fnd_message.get);
1231:
1232: -- If the Transaction Number being reported does not match do not Originate
1233: ELSIF p_rfms_rec.transaction_num <> NVL(cur_pymnt_isir_rec.transaction_num,-1) THEN
1234: fnd_message.set_name('IGF','IGF_GR_PYMNT_ISIR_MISMATCH');
1230: fnd_file.put_line(fnd_file.log,fnd_message.get);
1231:
1232: -- If the Transaction Number being reported does not match do not Originate
1233: ELSIF p_rfms_rec.transaction_num <> NVL(cur_pymnt_isir_rec.transaction_num,-1) THEN
1234: fnd_message.set_name('IGF','IGF_GR_PYMNT_ISIR_MISMATCH');
1235: fnd_file.put_line(fnd_file.log,fnd_message.get);
1236: RETURN;
1237: END IF;
1238:
1231:
1232: -- If the Transaction Number being reported does not match do not Originate
1233: ELSIF p_rfms_rec.transaction_num <> NVL(cur_pymnt_isir_rec.transaction_num,-1) THEN
1234: fnd_message.set_name('IGF','IGF_GR_PYMNT_ISIR_MISMATCH');
1235: fnd_file.put_line(fnd_file.log,fnd_message.get);
1236: RETURN;
1237: END IF;
1238:
1239: -- Get disbursements amounts total
1243: CLOSE cur_disb_amt_tot;
1244:
1245: -- If origination record's amount is less than sum of disbursement amounts, then do not originate.
1246: IF (p_rfms_rec.pell_amount < rec_disb_amt_tot.disb_amt_tot) THEN
1247: fnd_message.set_name('IGF','IGF_GR_PELL_DIFF_AMTS');
1248: fnd_message.set_token('DISB_AMT', TO_CHAR(rec_disb_amt_tot.disb_amt_tot));
1249: fnd_message.set_token('PELL_TOT', TO_CHAR(p_rfms_rec.pell_amount));
1250: fnd_file.put_line(fnd_file.log,fnd_message.get);
1251: RETURN;
1244:
1245: -- If origination record's amount is less than sum of disbursement amounts, then do not originate.
1246: IF (p_rfms_rec.pell_amount < rec_disb_amt_tot.disb_amt_tot) THEN
1247: fnd_message.set_name('IGF','IGF_GR_PELL_DIFF_AMTS');
1248: fnd_message.set_token('DISB_AMT', TO_CHAR(rec_disb_amt_tot.disb_amt_tot));
1249: fnd_message.set_token('PELL_TOT', TO_CHAR(p_rfms_rec.pell_amount));
1250: fnd_file.put_line(fnd_file.log,fnd_message.get);
1251: RETURN;
1252: END IF;
1245: -- If origination record's amount is less than sum of disbursement amounts, then do not originate.
1246: IF (p_rfms_rec.pell_amount < rec_disb_amt_tot.disb_amt_tot) THEN
1247: fnd_message.set_name('IGF','IGF_GR_PELL_DIFF_AMTS');
1248: fnd_message.set_token('DISB_AMT', TO_CHAR(rec_disb_amt_tot.disb_amt_tot));
1249: fnd_message.set_token('PELL_TOT', TO_CHAR(p_rfms_rec.pell_amount));
1250: fnd_file.put_line(fnd_file.log,fnd_message.get);
1251: RETURN;
1252: END IF;
1253:
1246: IF (p_rfms_rec.pell_amount < rec_disb_amt_tot.disb_amt_tot) THEN
1247: fnd_message.set_name('IGF','IGF_GR_PELL_DIFF_AMTS');
1248: fnd_message.set_token('DISB_AMT', TO_CHAR(rec_disb_amt_tot.disb_amt_tot));
1249: fnd_message.set_token('PELL_TOT', TO_CHAR(p_rfms_rec.pell_amount));
1250: fnd_file.put_line(fnd_file.log,fnd_message.get);
1251: RETURN;
1252: END IF;
1253:
1254: -- If Student's verification status is 'W' then we can send only one disbursment with
1260: FETCH cur_get_num_of_disb INTO ln_num_disb_with_relflag_true;
1261: CLOSE cur_get_num_of_disb;
1262:
1263: IF ln_num_disb_with_relflag_true > 1 THEN
1264: fnd_message.set_name('IGF','IGF_GR_COD_VERF_STAT_W');
1265: fnd_file.put_line(fnd_file.log, fnd_message.get);
1266: RETURN;
1267: END IF;
1268: END IF;
1261: CLOSE cur_get_num_of_disb;
1262:
1263: IF ln_num_disb_with_relflag_true > 1 THEN
1264: fnd_message.set_name('IGF','IGF_GR_COD_VERF_STAT_W');
1265: fnd_file.put_line(fnd_file.log, fnd_message.get);
1266: RETURN;
1267: END IF;
1268: END IF;
1269:
1284: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1285: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_gen_xml.process_rfms_record.debug','l_pell_amt = ' || l_pell_amt || 'and l_ft_pell_amt = ' || l_ft_pell_amt);
1286: END IF;
1287: IF p_rfms_rec.pell_amount > l_ft_pell_amt THEN
1288: fnd_message.set_name('IGF','IGF_GR_LIMIT_EXC');
1289: fnd_message.set_token('PEL_AMT',l_ft_pell_amt);
1290: fnd_message.set_token('AWD_AMT',p_rfms_rec.pell_amount);
1291: fnd_file.put_line(fnd_file.log, fnd_message.get);
1292: RETURN;
1285: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_gen_xml.process_rfms_record.debug','l_pell_amt = ' || l_pell_amt || 'and l_ft_pell_amt = ' || l_ft_pell_amt);
1286: END IF;
1287: IF p_rfms_rec.pell_amount > l_ft_pell_amt THEN
1288: fnd_message.set_name('IGF','IGF_GR_LIMIT_EXC');
1289: fnd_message.set_token('PEL_AMT',l_ft_pell_amt);
1290: fnd_message.set_token('AWD_AMT',p_rfms_rec.pell_amount);
1291: fnd_file.put_line(fnd_file.log, fnd_message.get);
1292: RETURN;
1293: END IF;
1286: END IF;
1287: IF p_rfms_rec.pell_amount > l_ft_pell_amt THEN
1288: fnd_message.set_name('IGF','IGF_GR_LIMIT_EXC');
1289: fnd_message.set_token('PEL_AMT',l_ft_pell_amt);
1290: fnd_message.set_token('AWD_AMT',p_rfms_rec.pell_amount);
1291: fnd_file.put_line(fnd_file.log, fnd_message.get);
1292: RETURN;
1293: END IF;
1294: END IF;
1287: IF p_rfms_rec.pell_amount > l_ft_pell_amt THEN
1288: fnd_message.set_name('IGF','IGF_GR_LIMIT_EXC');
1289: fnd_message.set_token('PEL_AMT',l_ft_pell_amt);
1290: fnd_message.set_token('AWD_AMT',p_rfms_rec.pell_amount);
1291: fnd_file.put_line(fnd_file.log, fnd_message.get);
1292: RETURN;
1293: END IF;
1294: END IF;
1295:
1296: -- Updates to COD Technical Reference (May 05 changes)
1297: -- Attendance Cost tag is mandatory when processing a Pell Grant anticipated/actual disbursement.
1298: -- Check wether the attendance cost value is NULL or not. If NULL, then log a message.
1299: IF p_rfms_rec.coa_amount IS NULL THEN
1300: fnd_message.set_name('IGF','IGF_GR_NO_COA_NULL');
1301: fnd_file.put_line(fnd_file.log, fnd_message.get);
1302: RETURN;
1303: END IF;
1304:
1297: -- Attendance Cost tag is mandatory when processing a Pell Grant anticipated/actual disbursement.
1298: -- Check wether the attendance cost value is NULL or not. If NULL, then log a message.
1299: IF p_rfms_rec.coa_amount IS NULL THEN
1300: fnd_message.set_name('IGF','IGF_GR_NO_COA_NULL');
1301: fnd_file.put_line(fnd_file.log, fnd_message.get);
1302: RETURN;
1303: END IF;
1304:
1305: -- xml boundary validations.
1317: WHEN OTHERS THEN
1318: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1319: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_gen_xml.process_rfms_record.exception','Exception:'||SQLERRM);
1320: END IF;
1321: fnd_message.set_name('IGF','IGF_GR_XML_INSERT_EXC');
1322: fnd_message.set_token('ORIGINATION_ID',p_rfms_rec.origination_id);
1323: fnd_file.put_line(fnd_file.log,fnd_message.get);
1324: fnd_file.put_line(fnd_file.log,SQLERRM);
1325: IF lb_spoint_est THEN
1318: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1319: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_gen_xml.process_rfms_record.exception','Exception:'||SQLERRM);
1320: END IF;
1321: fnd_message.set_name('IGF','IGF_GR_XML_INSERT_EXC');
1322: fnd_message.set_token('ORIGINATION_ID',p_rfms_rec.origination_id);
1323: fnd_file.put_line(fnd_file.log,fnd_message.get);
1324: fnd_file.put_line(fnd_file.log,SQLERRM);
1325: IF lb_spoint_est THEN
1326: lb_spoint_est := FALSE;
1319: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_gen_xml.process_rfms_record.exception','Exception:'||SQLERRM);
1320: END IF;
1321: fnd_message.set_name('IGF','IGF_GR_XML_INSERT_EXC');
1322: fnd_message.set_token('ORIGINATION_ID',p_rfms_rec.origination_id);
1323: fnd_file.put_line(fnd_file.log,fnd_message.get);
1324: fnd_file.put_line(fnd_file.log,SQLERRM);
1325: IF lb_spoint_est THEN
1326: lb_spoint_est := FALSE;
1327: ROLLBACK TO IGFGR12B_PROCESS_RFMS_REC;
1396: p_event_name => l_event_name,
1397: p_event_key => l_event_key,
1398: p_parameters => l_parameter_list);
1399:
1400: fnd_message.set_name('IGF','IGF_GR_COD_RAISE_EVENT');
1401: fnd_message.set_token('EVENT_KEY_VALUE',l_event_key);
1402: fnd_file.put_line(fnd_file.log,fnd_message.get);
1403: fnd_file.new_line(fnd_file.log,1);
1404:
1397: p_event_key => l_event_key,
1398: p_parameters => l_parameter_list);
1399:
1400: fnd_message.set_name('IGF','IGF_GR_COD_RAISE_EVENT');
1401: fnd_message.set_token('EVENT_KEY_VALUE',l_event_key);
1402: fnd_file.put_line(fnd_file.log,fnd_message.get);
1403: fnd_file.new_line(fnd_file.log,1);
1404:
1405: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1398: p_parameters => l_parameter_list);
1399:
1400: fnd_message.set_name('IGF','IGF_GR_COD_RAISE_EVENT');
1401: fnd_message.set_token('EVENT_KEY_VALUE',l_event_key);
1402: fnd_file.put_line(fnd_file.log,fnd_message.get);
1403: fnd_file.new_line(fnd_file.log,1);
1404:
1405: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1406: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_gen_xml.submit_xml_event','raised event ');
1410: WHEN OTHERS THEN
1411: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1412: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_gen_xml.submit_xml_event.exception','Exception:'||SQLERRM);
1413: END IF;
1414: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1415: fnd_message.set_token('NAME','IGF_GR_GEN_XML.SUBMIT_XML_EVENT');
1416: igs_ge_msg_stack.add;
1417: END submit_xml_event;
1418:
1411: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1412: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_gen_xml.submit_xml_event.exception','Exception:'||SQLERRM);
1413: END IF;
1414: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1415: fnd_message.set_token('NAME','IGF_GR_GEN_XML.SUBMIT_XML_EVENT');
1416: igs_ge_msg_stack.add;
1417: END submit_xml_event;
1418:
1419: PROCEDURE main (
1501: OPEN cur_full_resp_code(l_ci_cal_type, l_ci_sequence_number, p_source_entity_id);
1502: FETCH cur_full_resp_code INTO rec_full_resp_code;
1503: IF cur_full_resp_code%NOTFOUND THEN
1504: -- print error message;
1505: fnd_message.set_name('IGF','IGF_GR_NO_RESP_OPT_SRC_ENTITY');
1506: fnd_file.put_line(fnd_file.log, fnd_message.get);
1507: CLOSE cur_full_resp_code;
1508: RETURN;
1509: ELSE
1502: FETCH cur_full_resp_code INTO rec_full_resp_code;
1503: IF cur_full_resp_code%NOTFOUND THEN
1504: -- print error message;
1505: fnd_message.set_name('IGF','IGF_GR_NO_RESP_OPT_SRC_ENTITY');
1506: fnd_file.put_line(fnd_file.log, fnd_message.get);
1507: CLOSE cur_full_resp_code;
1508: RETURN;
1509: ELSE
1510: g_full_resp_code := rec_full_resp_code.response_option_code;
1513:
1514: -- Start of Step 3. Find all PELL records to be processed and process them.
1515: -- Processing when base_id is given.
1516: IF p_base_id IS NOT NULL THEN
1517: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
1518: fnd_message.set_token('STDNT',igf_gr_gen.get_per_num(p_base_id));
1519: fnd_file.put_line(fnd_file.log, fnd_message.get);
1520:
1521: lb_record_exist := FALSE;
1514: -- Start of Step 3. Find all PELL records to be processed and process them.
1515: -- Processing when base_id is given.
1516: IF p_base_id IS NOT NULL THEN
1517: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
1518: fnd_message.set_token('STDNT',igf_gr_gen.get_per_num(p_base_id));
1519: fnd_file.put_line(fnd_file.log, fnd_message.get);
1520:
1521: lb_record_exist := FALSE;
1522: FOR rec IN cur_rfms (l_ci_cal_type, l_ci_sequence_number, p_report_entity_id, p_attend_entity_id, p_base_id)
1515: -- Processing when base_id is given.
1516: IF p_base_id IS NOT NULL THEN
1517: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
1518: fnd_message.set_token('STDNT',igf_gr_gen.get_per_num(p_base_id));
1519: fnd_file.put_line(fnd_file.log, fnd_message.get);
1520:
1521: lb_record_exist := FALSE;
1522: FOR rec IN cur_rfms (l_ci_cal_type, l_ci_sequence_number, p_report_entity_id, p_attend_entity_id, p_base_id)
1523: LOOP
1527: END IF;
1528: END LOOP;
1529:
1530: IF NOT lb_record_exist THEN
1531: fnd_message.set_name('IGF','IGF_GR_COD_NO_STDNT_RFMS_REC');
1532: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
1533: fnd_file.put_line(fnd_file.log, fnd_message.get);
1534: fnd_file.new_line(fnd_file.log, 1);
1535: RETURN;
1528: END LOOP;
1529:
1530: IF NOT lb_record_exist THEN
1531: fnd_message.set_name('IGF','IGF_GR_COD_NO_STDNT_RFMS_REC');
1532: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
1533: fnd_file.put_line(fnd_file.log, fnd_message.get);
1534: fnd_file.new_line(fnd_file.log, 1);
1535: RETURN;
1536: END IF;
1529:
1530: IF NOT lb_record_exist THEN
1531: fnd_message.set_name('IGF','IGF_GR_COD_NO_STDNT_RFMS_REC');
1532: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
1533: fnd_file.put_line(fnd_file.log, fnd_message.get);
1534: fnd_file.new_line(fnd_file.log, 1);
1535: RETURN;
1536: END IF;
1537: END IF;
1537: END IF;
1538:
1539: -- Processing when person id group is given.
1540: IF p_persid_grp IS NOT NULL THEN
1541: fnd_message.set_name('IGF','IGF_AW_PERSON_ID_GROUP');
1542: fnd_message.set_token('P_PER_GRP',get_grp_name(p_persid_grp));
1543: fnd_file.new_line(fnd_file.log, 1);
1544: fnd_file.put_line(fnd_file.log, fnd_message.get);
1545:
1538:
1539: -- Processing when person id group is given.
1540: IF p_persid_grp IS NOT NULL THEN
1541: fnd_message.set_name('IGF','IGF_AW_PERSON_ID_GROUP');
1542: fnd_message.set_token('P_PER_GRP',get_grp_name(p_persid_grp));
1543: fnd_file.new_line(fnd_file.log, 1);
1544: fnd_file.put_line(fnd_file.log, fnd_message.get);
1545:
1546: --Bug #5021084
1540: IF p_persid_grp IS NOT NULL THEN
1541: fnd_message.set_name('IGF','IGF_AW_PERSON_ID_GROUP');
1542: fnd_message.set_token('P_PER_GRP',get_grp_name(p_persid_grp));
1543: fnd_file.new_line(fnd_file.log, 1);
1544: fnd_file.put_line(fnd_file.log, fnd_message.get);
1545:
1546: --Bug #5021084
1547: l_list := igf_ap_ss_pkg.get_pid(p_persid_grp,lv_status,lv_group_type);
1548:
1560: END IF;
1561:
1562: IF cur_per_grp%NOTFOUND THEN
1563: CLOSE cur_per_grp;
1564: fnd_message.set_name('IGF','IGF_DB_NO_PER_GRP');
1565: fnd_file.put_line(fnd_file.log,fnd_message.get);
1566: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1567: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_gen_xml.main.debug','No persons in group '||p_persid_grp);
1568: END IF;
1561:
1562: IF cur_per_grp%NOTFOUND THEN
1563: CLOSE cur_per_grp;
1564: fnd_message.set_name('IGF','IGF_DB_NO_PER_GRP');
1565: fnd_file.put_line(fnd_file.log,fnd_message.get);
1566: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1567: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_gen_xml.main.debug','No persons in group '||p_persid_grp);
1568: END IF;
1569: ELSE
1574: lv_person_number := NULL;
1575: lv_person_number := per_in_fa (l_person_id,l_ci_cal_type,l_ci_sequence_number,ln_base_id);
1576: IF lv_person_number IS NOT NULL THEN
1577: IF ln_base_id IS NOT NULL THEN
1578: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
1579: fnd_message.set_token('STDNT',lv_person_number);
1580: fnd_file.put_line(fnd_file.log, fnd_message.get);
1581:
1582: lb_record_exist_stdnt := FALSE;
1575: lv_person_number := per_in_fa (l_person_id,l_ci_cal_type,l_ci_sequence_number,ln_base_id);
1576: IF lv_person_number IS NOT NULL THEN
1577: IF ln_base_id IS NOT NULL THEN
1578: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
1579: fnd_message.set_token('STDNT',lv_person_number);
1580: fnd_file.put_line(fnd_file.log, fnd_message.get);
1581:
1582: lb_record_exist_stdnt := FALSE;
1583: FOR rec IN cur_rfms (l_ci_cal_type, l_ci_sequence_number, p_report_entity_id, p_attend_entity_id, ln_base_id)
1576: IF lv_person_number IS NOT NULL THEN
1577: IF ln_base_id IS NOT NULL THEN
1578: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
1579: fnd_message.set_token('STDNT',lv_person_number);
1580: fnd_file.put_line(fnd_file.log, fnd_message.get);
1581:
1582: lb_record_exist_stdnt := FALSE;
1583: FOR rec IN cur_rfms (l_ci_cal_type, l_ci_sequence_number, p_report_entity_id, p_attend_entity_id, ln_base_id)
1584: LOOP
1591: END IF;
1592: END LOOP;
1593:
1594: IF NOT lb_record_exist_stdnt THEN
1595: fnd_message.set_name('IGF','IGF_GR_COD_NO_STDNT_RFMS_REC');
1596: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
1597: fnd_file.put_line(fnd_file.log, fnd_message.get);
1598: fnd_file.new_line(fnd_file.log, 1);
1599: END IF;
1592: END LOOP;
1593:
1594: IF NOT lb_record_exist_stdnt THEN
1595: fnd_message.set_name('IGF','IGF_GR_COD_NO_STDNT_RFMS_REC');
1596: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
1597: fnd_file.put_line(fnd_file.log, fnd_message.get);
1598: fnd_file.new_line(fnd_file.log, 1);
1599: END IF;
1600: ELSE -- log a message and skip this person, base id not found
1593:
1594: IF NOT lb_record_exist_stdnt THEN
1595: fnd_message.set_name('IGF','IGF_GR_COD_NO_STDNT_RFMS_REC');
1596: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_base_id));
1597: fnd_file.put_line(fnd_file.log, fnd_message.get);
1598: fnd_file.new_line(fnd_file.log, 1);
1599: END IF;
1600: ELSE -- log a message and skip this person, base id not found
1601: fnd_message.set_name('IGF','IGF_GR_LI_PER_INVALID');
1597: fnd_file.put_line(fnd_file.log, fnd_message.get);
1598: fnd_file.new_line(fnd_file.log, 1);
1599: END IF;
1600: ELSE -- log a message and skip this person, base id not found
1601: fnd_message.set_name('IGF','IGF_GR_LI_PER_INVALID');
1602: fnd_message.set_token('PERSON_NUMBER',lv_person_number);
1603: fnd_message.set_token('AWD_YR',igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number));
1604: fnd_file.put_line(fnd_file.log,fnd_message.get);
1605: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1598: fnd_file.new_line(fnd_file.log, 1);
1599: END IF;
1600: ELSE -- log a message and skip this person, base id not found
1601: fnd_message.set_name('IGF','IGF_GR_LI_PER_INVALID');
1602: fnd_message.set_token('PERSON_NUMBER',lv_person_number);
1603: fnd_message.set_token('AWD_YR',igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number));
1604: fnd_file.put_line(fnd_file.log,fnd_message.get);
1605: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1606: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_gen_xml.main.debug',igf_gr_gen.get_per_num_oss(l_person_id) || ' not in FA');
1599: END IF;
1600: ELSE -- log a message and skip this person, base id not found
1601: fnd_message.set_name('IGF','IGF_GR_LI_PER_INVALID');
1602: fnd_message.set_token('PERSON_NUMBER',lv_person_number);
1603: fnd_message.set_token('AWD_YR',igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number));
1604: fnd_file.put_line(fnd_file.log,fnd_message.get);
1605: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1606: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_gen_xml.main.debug',igf_gr_gen.get_per_num_oss(l_person_id) || ' not in FA');
1607: END IF;
1600: ELSE -- log a message and skip this person, base id not found
1601: fnd_message.set_name('IGF','IGF_GR_LI_PER_INVALID');
1602: fnd_message.set_token('PERSON_NUMBER',lv_person_number);
1603: fnd_message.set_token('AWD_YR',igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number));
1604: fnd_file.put_line(fnd_file.log,fnd_message.get);
1605: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1606: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_gen_xml.main.debug',igf_gr_gen.get_per_num_oss(l_person_id) || ' not in FA');
1607: END IF;
1608: END IF; -- base id not found
1606: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_gen_xml.main.debug',igf_gr_gen.get_per_num_oss(l_person_id) || ' not in FA');
1607: END IF;
1608: END IF; -- base id not found
1609: ELSE
1610: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
1611: fnd_file.put_line(fnd_file.log,RPAD(' ',5) ||fnd_message.get);
1612: END IF; -- person number not null
1613:
1614: FETCH cur_per_grp INTO l_person_id;
1607: END IF;
1608: END IF; -- base id not found
1609: ELSE
1610: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
1611: fnd_file.put_line(fnd_file.log,RPAD(' ',5) ||fnd_message.get);
1612: END IF; -- person number not null
1613:
1614: FETCH cur_per_grp INTO l_person_id;
1615: EXIT WHEN cur_per_grp%NOTFOUND;
1615: EXIT WHEN cur_per_grp%NOTFOUND;
1616: END LOOP;
1617: CLOSE cur_per_grp;
1618: IF NOT lb_record_exist THEN
1619: fnd_message.set_name('IGF','IGF_GR_NO_RFMS_ORIG');
1620: fnd_file.put_line(fnd_file.log, fnd_message.get);
1621: fnd_file.new_line(fnd_file.log, 1);
1622: END IF;
1623: END IF; -- group found
1616: END LOOP;
1617: CLOSE cur_per_grp;
1618: IF NOT lb_record_exist THEN
1619: fnd_message.set_name('IGF','IGF_GR_NO_RFMS_ORIG');
1620: fnd_file.put_line(fnd_file.log, fnd_message.get);
1621: fnd_file.new_line(fnd_file.log, 1);
1622: END IF;
1623: END IF; -- group found
1624: END IF;
1638: lb_record_exist := TRUE;
1639: END IF;
1640: END LOOP;
1641: IF NOT lb_record_exist THEN
1642: fnd_message.set_name('IGF','IGF_GR_NO_RFMS_ORIG');
1643: fnd_file.put_line(fnd_file.log, fnd_message.get);
1644: fnd_file.new_line(fnd_file.log, 1);
1645: END IF;
1646: END IF;
1639: END IF;
1640: END LOOP;
1641: IF NOT lb_record_exist THEN
1642: fnd_message.set_name('IGF','IGF_GR_NO_RFMS_ORIG');
1643: fnd_file.put_line(fnd_file.log, fnd_message.get);
1644: fnd_file.new_line(fnd_file.log, 1);
1645: END IF;
1646: END IF;
1647: -- End of Step 3.
1655: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_gen_xml.main.debug',' gv_document_id_txt ' || gv_document_id_txt);
1656: END IF;
1657:
1658: IF cod_dtls_rec.document_id_txt IS NULL THEN
1659: fnd_message.set_name('IGF','IGF_GR_COD_NO_REC');
1660: fnd_file.put_line(fnd_file.log,fnd_message.get);
1661: RETURN;
1662: ELSE
1663: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1656: END IF;
1657:
1658: IF cod_dtls_rec.document_id_txt IS NULL THEN
1659: fnd_message.set_name('IGF','IGF_GR_COD_NO_REC');
1660: fnd_file.put_line(fnd_file.log,fnd_message.get);
1661: RETURN;
1662: ELSE
1663: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1664: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_gen_xml.main.debug',' before submit event ');
1674: EXCEPTION
1675: WHEN OTHERS THEN
1676: ROLLBACK;
1677: retcode := 2;
1678: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION');
1679: fnd_file.put_line(fnd_file.log,SQLERRM);
1680: igs_ge_msg_stack.conc_exception_hndl;
1681: END main;
1682:
1953: WHEN OTHERS THEN
1954: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1955: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_gen_xml.update_status.exception','Exception:'||SQLERRM);
1956: END IF;
1957: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1958: fnd_message.set_token('NAME','IGF_GR_GEN_XML.UPDATE_STATUS');
1959: igs_ge_msg_stack.add;
1960: app_exception.raise_exception;
1961: END update_status;
1954: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
1955: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_gr_gen_xml.update_status.exception','Exception:'||SQLERRM);
1956: END IF;
1957: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1958: fnd_message.set_token('NAME','IGF_GR_GEN_XML.UPDATE_STATUS');
1959: igs_ge_msg_stack.add;
1960: app_exception.raise_exception;
1961: END update_status;
1962:
2057: EXCEPTION
2058: WHEN OTHERS THEN
2059: ROLLBACK;
2060: retcode := 2;
2061: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION');
2062: fnd_file.put_line(fnd_file.log,SQLERRM);
2063: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2064: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_gr_gen_xml.print_xml.debug','OTHERS exception raised in print_xml: ' || SQLERRM);
2065: END IF;