354: l_error := igf_ap_gen.get_lookup_meaning('IGF_AW_LOOKUPS_MSG','ERROR');
355:
356: l_chk_profile := igf_ap_gen.check_profile;
357: IF l_chk_profile = 'N' THEN
358: fnd_message.set_name('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
359: fnd_file.put_line(fnd_file.log,RPAD(l_error,12) || fnd_message.get);
360: RETURN;
361: END IF;
362:
355:
356: l_chk_profile := igf_ap_gen.check_profile;
357: IF l_chk_profile = 'N' THEN
358: fnd_message.set_name('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
359: fnd_file.put_line(fnd_file.log,RPAD(l_error,12) || fnd_message.get);
360: RETURN;
361: END IF;
362:
363: -- this is to get the alternate code
372: FETCH c_get_status INTO l_get_status;
373: CLOSE c_get_status;
374:
375: IF l_get_status.sys_award_year IS NULL THEN
376: fnd_message.set_name('IGF','IGF_AP_AWD_YR_NOT_FOUND');
377: fnd_message.set_token('P_AWARD_YEAR',p_award_year);
378: add_log_table(NULL,l_error,fnd_message.get);
379: l_terminate_flag := TRUE;
380: ELSIF
373: CLOSE c_get_status;
374:
375: IF l_get_status.sys_award_year IS NULL THEN
376: fnd_message.set_name('IGF','IGF_AP_AWD_YR_NOT_FOUND');
377: fnd_message.set_token('P_AWARD_YEAR',p_award_year);
378: add_log_table(NULL,l_error,fnd_message.get);
379: l_terminate_flag := TRUE;
380: ELSIF
381: l_get_status.award_year_status_code NOT IN('LD','O') THEN
374:
375: IF l_get_status.sys_award_year IS NULL THEN
376: fnd_message.set_name('IGF','IGF_AP_AWD_YR_NOT_FOUND');
377: fnd_message.set_token('P_AWARD_YEAR',p_award_year);
378: add_log_table(NULL,l_error,fnd_message.get);
379: l_terminate_flag := TRUE;
380: ELSIF
381: l_get_status.award_year_status_code NOT IN('LD','O') THEN
382: fnd_message.set_name('IGF','IGF_AP_LG_INVALID_STAT');
378: add_log_table(NULL,l_error,fnd_message.get);
379: l_terminate_flag := TRUE;
380: ELSIF
381: l_get_status.award_year_status_code NOT IN('LD','O') THEN
382: fnd_message.set_name('IGF','IGF_AP_LG_INVALID_STAT');
383: fnd_message.set_token('AWARD_STATUS',l_get_status.award_year_status_code);
384: add_log_table(NULL,l_error,fnd_message.get);
385: l_terminate_flag := TRUE;
386: END IF;
379: l_terminate_flag := TRUE;
380: ELSIF
381: l_get_status.award_year_status_code NOT IN('LD','O') THEN
382: fnd_message.set_name('IGF','IGF_AP_LG_INVALID_STAT');
383: fnd_message.set_token('AWARD_STATUS',l_get_status.award_year_status_code);
384: add_log_table(NULL,l_error,fnd_message.get);
385: l_terminate_flag := TRUE;
386: END IF;
387:
380: ELSIF
381: l_get_status.award_year_status_code NOT IN('LD','O') THEN
382: fnd_message.set_name('IGF','IGF_AP_LG_INVALID_STAT');
383: fnd_message.set_token('AWARD_STATUS',l_get_status.award_year_status_code);
384: add_log_table(NULL,l_error,fnd_message.get);
385: l_terminate_flag := TRUE;
386: END IF;
387:
388: l_chk_batch := igf_ap_gen.check_batch(p_batch_id,'TODO');
386: END IF;
387:
388: l_chk_batch := igf_ap_gen.check_batch(p_batch_id,'TODO');
389: IF l_chk_batch = 'N' THEN
390: fnd_message.set_name('IGF','IGF_GR_BATCH_DOES_NOT_EXIST');
391: add_log_table(NULL,l_error,fnd_message.get);
392: l_terminate_flag := TRUE;
393: END IF;
394:
387:
388: l_chk_batch := igf_ap_gen.check_batch(p_batch_id,'TODO');
389: IF l_chk_batch = 'N' THEN
390: fnd_message.set_name('IGF','IGF_GR_BATCH_DOES_NOT_EXIST');
391: add_log_table(NULL,l_error,fnd_message.get);
392: l_terminate_flag := TRUE;
393: END IF;
394:
395: -- this is to check that the todo item setup is valid or not
428: lv_person_id := NULL;
429: --HERE CALL TO THE GENERIC WRAPPER IS BEING MADE TO CHEHK THE VALIDITY OF THE PEROSN AND BASE ID
430: igf_ap_gen.check_person(l_get_persons.person_number,l_cal_type,l_seq_number,lv_person_id,lv_base_id);
431: IF lv_person_id IS NULL THEN
432: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
433: add_log_table(l_get_persons.person_number,l_error,fnd_message.get);
434: l_person_skip_flag := TRUE;
435: ELSE
436: IF lv_base_id IS NULL THEN
429: --HERE CALL TO THE GENERIC WRAPPER IS BEING MADE TO CHEHK THE VALIDITY OF THE PEROSN AND BASE ID
430: igf_ap_gen.check_person(l_get_persons.person_number,l_cal_type,l_seq_number,lv_person_id,lv_base_id);
431: IF lv_person_id IS NULL THEN
432: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
433: add_log_table(l_get_persons.person_number,l_error,fnd_message.get);
434: l_person_skip_flag := TRUE;
435: ELSE
436: IF lv_base_id IS NULL THEN
437: fnd_message.set_name('IGF','IGF_AP_FABASE_NOT_FOUND');
433: add_log_table(l_get_persons.person_number,l_error,fnd_message.get);
434: l_person_skip_flag := TRUE;
435: ELSE
436: IF lv_base_id IS NULL THEN
437: fnd_message.set_name('IGF','IGF_AP_FABASE_NOT_FOUND');
438: add_log_table(l_get_persons.person_number,l_error,fnd_message.get);
439: l_person_skip_flag := TRUE;
440: ELSE
441: g_baseid_exists := NULL;
434: l_person_skip_flag := TRUE;
435: ELSE
436: IF lv_base_id IS NULL THEN
437: fnd_message.set_name('IGF','IGF_AP_FABASE_NOT_FOUND');
438: add_log_table(l_get_persons.person_number,l_error,fnd_message.get);
439: l_person_skip_flag := TRUE;
440: ELSE
441: g_baseid_exists := NULL;
442: OPEN c_baseid_exists(lv_base_id);
449: OPEN c_get_crsp_hist(l_cal_type,l_seq_number,l_get_persons.person_number);
450: FETCH c_get_crsp_hist INTO l_get_crsp_hist;
451: CLOSE c_get_crsp_hist;
452: IF l_get_crsp_hist.person_id IS NOT NULL THEN
453: fnd_message.set_name('IGF','IGF_AP_TD_CORSP_HIST_EXIST');
454: add_log_table(l_get_persons.person_number,l_error,fnd_message.get);
455: l_person_skip_flag := TRUE;
456: END IF;
457: IF l_person_skip_flag = TRUE THEN
450: FETCH c_get_crsp_hist INTO l_get_crsp_hist;
451: CLOSE c_get_crsp_hist;
452: IF l_get_crsp_hist.person_id IS NOT NULL THEN
453: fnd_message.set_name('IGF','IGF_AP_TD_CORSP_HIST_EXIST');
454: add_log_table(l_get_persons.person_number,l_error,fnd_message.get);
455: l_person_skip_flag := TRUE;
456: END IF;
457: IF l_person_skip_flag = TRUE THEN
458: UPDATE igf_ap_li_todo_ints
465: END IF; -- HERE THE CHECK FOR DIFFERENT PERSON ENDS
466:
467: IF l_person_skip_flag = FALSE THEN
468: -- the person is not to be skipped and the record level validations are to be done
469: fnd_message.set_name('IGF','IGF_AP_PROC_ITM');
470: fnd_message.set_token('ITEM',l_get_persons.item_code);
471: l_proc_item_str := fnd_message.get;
472: l_todo_item_valid := NULL;
473: OPEN c_todo_item_valid(l_cal_type,l_seq_number,l_get_persons.item_code);
466:
467: IF l_person_skip_flag = FALSE THEN
468: -- the person is not to be skipped and the record level validations are to be done
469: fnd_message.set_name('IGF','IGF_AP_PROC_ITM');
470: fnd_message.set_token('ITEM',l_get_persons.item_code);
471: l_proc_item_str := fnd_message.get;
472: l_todo_item_valid := NULL;
473: OPEN c_todo_item_valid(l_cal_type,l_seq_number,l_get_persons.item_code);
474: FETCH c_todo_item_valid INTO l_todo_item_valid;
467: IF l_person_skip_flag = FALSE THEN
468: -- the person is not to be skipped and the record level validations are to be done
469: fnd_message.set_name('IGF','IGF_AP_PROC_ITM');
470: fnd_message.set_token('ITEM',l_get_persons.item_code);
471: l_proc_item_str := fnd_message.get;
472: l_todo_item_valid := NULL;
473: OPEN c_todo_item_valid(l_cal_type,l_seq_number,l_get_persons.item_code);
474: FETCH c_todo_item_valid INTO l_todo_item_valid;
475: CLOSE c_todo_item_valid;
473: OPEN c_todo_item_valid(l_cal_type,l_seq_number,l_get_persons.item_code);
474: FETCH c_todo_item_valid INTO l_todo_item_valid;
475: CLOSE c_todo_item_valid;
476: IF l_todo_item_valid.todo_number IS NULL THEN
477: fnd_message.set_name('IGF','IGF_AP_TD_INVALID_ITM');
478: fnd_message.set_token('ITEM',l_get_persons.item_code);
479: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
480: add_log_table(l_get_persons.person_number,l_error,l_message_str);
481: l_message_str := NULL;
474: FETCH c_todo_item_valid INTO l_todo_item_valid;
475: CLOSE c_todo_item_valid;
476: IF l_todo_item_valid.todo_number IS NULL THEN
477: fnd_message.set_name('IGF','IGF_AP_TD_INVALID_ITM');
478: fnd_message.set_token('ITEM',l_get_persons.item_code);
479: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
480: add_log_table(l_get_persons.person_number,l_error,l_message_str);
481: l_message_str := NULL;
482: l_error_flag := TRUE;
475: CLOSE c_todo_item_valid;
476: IF l_todo_item_valid.todo_number IS NULL THEN
477: fnd_message.set_name('IGF','IGF_AP_TD_INVALID_ITM');
478: fnd_message.set_token('ITEM',l_get_persons.item_code);
479: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
480: add_log_table(l_get_persons.person_number,l_error,l_message_str);
481: l_message_str := NULL;
482: l_error_flag := TRUE;
483: ELSE
486: OPEN c_todo_dup(g_baseid_exists.base_id,l_get_persons.item_code);
487: FETCH c_todo_dup INTO l_todo_dup;
488: CLOSE c_todo_dup;
489: IF l_todo_dup.item_sequence_number IS NOT NULL AND NVL(l_get_persons.import_record_type,'X') <> 'U' THEN
490: fnd_message.set_name('IGF','IGF_AP_TD_ITM_EXIST');
491: fnd_message.set_token('ITEM',l_get_persons.item_code);
492: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
493: add_log_table(l_get_persons.person_number,l_error,l_message_str);
494: l_message_str := NULL;
487: FETCH c_todo_dup INTO l_todo_dup;
488: CLOSE c_todo_dup;
489: IF l_todo_dup.item_sequence_number IS NOT NULL AND NVL(l_get_persons.import_record_type,'X') <> 'U' THEN
490: fnd_message.set_name('IGF','IGF_AP_TD_ITM_EXIST');
491: fnd_message.set_token('ITEM',l_get_persons.item_code);
492: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
493: add_log_table(l_get_persons.person_number,l_error,l_message_str);
494: l_message_str := NULL;
495: l_error_flag := TRUE;
488: CLOSE c_todo_dup;
489: IF l_todo_dup.item_sequence_number IS NOT NULL AND NVL(l_get_persons.import_record_type,'X') <> 'U' THEN
490: fnd_message.set_name('IGF','IGF_AP_TD_ITM_EXIST');
491: fnd_message.set_token('ITEM',l_get_persons.item_code);
492: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
493: add_log_table(l_get_persons.person_number,l_error,l_message_str);
494: l_message_str := NULL;
495: l_error_flag := TRUE;
496: END IF;
495: l_error_flag := TRUE;
496: END IF;
497: ----HERE THE VALIDATION IS TO BE DONE IF NULL AND 'U'
498: IF l_todo_dup.item_sequence_number IS NULL AND NVL(l_get_persons.import_record_type,'X') = 'U' THEN
499: fnd_message.set_name('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
500: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
501: add_log_table(l_get_persons.person_number,l_error,l_message_str);
502: l_message_str := NULL;
503: l_error_flag := TRUE;
496: END IF;
497: ----HERE THE VALIDATION IS TO BE DONE IF NULL AND 'U'
498: IF l_todo_dup.item_sequence_number IS NULL AND NVL(l_get_persons.import_record_type,'X') = 'U' THEN
499: fnd_message.set_name('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
500: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
501: add_log_table(l_get_persons.person_number,l_error,l_message_str);
502: l_message_str := NULL;
503: l_error_flag := TRUE;
504: END IF;
503: l_error_flag := TRUE;
504: END IF;
505: -- validation for the add date
506: IF l_get_persons.item_add_date > TRUNC(SYSDATE) THEN
507: fnd_message.set_name('IGF','IGF_AP_TODO_DATE_GR_SYSDT');
508: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
509: add_log_table(l_get_persons.person_number,l_error,l_message_str);
510: l_message_str := NULL;
511: l_error_flag := TRUE;
504: END IF;
505: -- validation for the add date
506: IF l_get_persons.item_add_date > TRUNC(SYSDATE) THEN
507: fnd_message.set_name('IGF','IGF_AP_TODO_DATE_GR_SYSDT');
508: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
509: add_log_table(l_get_persons.person_number,l_error,l_message_str);
510: l_message_str := NULL;
511: l_error_flag := TRUE;
512: END IF;
512: END IF;
513: --validation for the item status
514: l_get_meaning := igf_ap_gen.get_lookup_meaning('IGF_TD_ITEM_STATUS',l_get_persons.item_status_code);
515: IF l_get_meaning IS NULL THEN
516: fnd_message.set_name('IGF','IGF_AP_TODO_INVALID_STAT');
517: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
518: add_log_table(l_get_persons.person_number,l_error,l_message_str);
519: l_message_str := NULL;
520: l_error_flag := TRUE;
513: --validation for the item status
514: l_get_meaning := igf_ap_gen.get_lookup_meaning('IGF_TD_ITEM_STATUS',l_get_persons.item_status_code);
515: IF l_get_meaning IS NULL THEN
516: fnd_message.set_name('IGF','IGF_AP_TODO_INVALID_STAT');
517: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
518: add_log_table(l_get_persons.person_number,l_error,l_message_str);
519: l_message_str := NULL;
520: l_error_flag := TRUE;
521: END IF;
522: --VALIDATION FOR THE STATUS DATE
523: IF l_get_persons.item_status_date IS NULL THEN
524: l_get_persons.item_status_date := TRUNC(SYSDATE);
525: ELSIF l_get_persons.item_status_date < l_get_persons.item_add_date OR l_get_persons.item_status_date > TRUNC(SYSDATE) THEN
526: fnd_message.set_name('IGF','IGF_AP_STATUS_DATE');
527: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
528: add_log_table(l_get_persons.person_number,l_error,l_message_str);
529: l_message_str := NULL;
530: l_error_flag := TRUE;
523: IF l_get_persons.item_status_date IS NULL THEN
524: l_get_persons.item_status_date := TRUNC(SYSDATE);
525: ELSIF l_get_persons.item_status_date < l_get_persons.item_add_date OR l_get_persons.item_status_date > TRUNC(SYSDATE) THEN
526: fnd_message.set_name('IGF','IGF_AP_STATUS_DATE');
527: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
528: add_log_table(l_get_persons.person_number,l_error,l_message_str);
529: l_message_str := NULL;
530: l_error_flag := TRUE;
531: END IF;
531: END IF;
532: l_debug_str := l_debug_str || ' Status Date passed';
533: --VALIDATION FOR THE CORRESPONDENCE DATE...
534: IF l_get_persons.corsp_date IS NOT NULL AND (l_get_persons.corsp_date < l_get_persons.item_add_date OR l_get_persons.corsp_date > TRUNC(SYSDATE)) THEN
535: fnd_message.set_name('IGF','IGF_AP_CRSP_INVALID_DT');
536: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
537: add_log_table(l_get_persons.person_number,l_error,l_message_str);
538: l_message_str := NULL;
539: l_error_flag := TRUE;
532: l_debug_str := l_debug_str || ' Status Date passed';
533: --VALIDATION FOR THE CORRESPONDENCE DATE...
534: IF l_get_persons.corsp_date IS NOT NULL AND (l_get_persons.corsp_date < l_get_persons.item_add_date OR l_get_persons.corsp_date > TRUNC(SYSDATE)) THEN
535: fnd_message.set_name('IGF','IGF_AP_CRSP_INVALID_DT');
536: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
537: add_log_table(l_get_persons.person_number,l_error,l_message_str);
538: l_message_str := NULL;
539: l_error_flag := TRUE;
540: END IF;
540: END IF;
541: --VALIDATION FOR THE CORRESPONDENCE COUNT
542: --FIRST NEGATIVE CORR COUNT IS CHECKED
543: IF NVL(l_get_persons.corsp_count_num,0) < 0 THEN
544: fnd_message.set_name('IGF','IGF_AP_TD_CORR_COUNT_NEG');
545: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
546: add_log_table(l_get_persons.person_number,l_error,l_message_str);
547: l_message_str := NULL;
548: l_error_flag := TRUE;
541: --VALIDATION FOR THE CORRESPONDENCE COUNT
542: --FIRST NEGATIVE CORR COUNT IS CHECKED
543: IF NVL(l_get_persons.corsp_count_num,0) < 0 THEN
544: fnd_message.set_name('IGF','IGF_AP_TD_CORR_COUNT_NEG');
545: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
546: add_log_table(l_get_persons.person_number,l_error,l_message_str);
547: l_message_str := NULL;
548: l_error_flag := TRUE;
549: END IF;
547: l_message_str := NULL;
548: l_error_flag := TRUE;
549: END IF;
550: IF l_get_persons.corsp_count_num IS NOT NULL AND l_get_persons.corsp_date IS NULL THEN
551: fnd_message.set_name('IGF','IGF_AP_TD_CORR_DATE_REQ');
552: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
553: add_log_table(l_get_persons.person_number,l_error,l_message_str);
554: l_message_str := NULL;
555: l_error_flag := TRUE;
548: l_error_flag := TRUE;
549: END IF;
550: IF l_get_persons.corsp_count_num IS NOT NULL AND l_get_persons.corsp_date IS NULL THEN
551: fnd_message.set_name('IGF','IGF_AP_TD_CORR_DATE_REQ');
552: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
553: add_log_table(l_get_persons.person_number,l_error,l_message_str);
554: l_message_str := NULL;
555: l_error_flag := TRUE;
556: END IF;
554: l_message_str := NULL;
555: l_error_flag := TRUE;
556: END IF;
557: IF NVL(l_get_persons.corsp_count_num,0) = 0 AND l_get_persons.corsp_date IS NOT NULL THEN
558: fnd_message.set_name('IGF','IGF_AP_CRSP_COUNT');
559: l_message_str := l_proc_item_str ||' ' || fnd_message.get;
560: add_log_table(l_get_persons.person_number,l_error,l_message_str);
561: l_message_str := NULL;
562: l_error_flag := TRUE;
555: l_error_flag := TRUE;
556: END IF;
557: IF NVL(l_get_persons.corsp_count_num,0) = 0 AND l_get_persons.corsp_date IS NOT NULL THEN
558: fnd_message.set_name('IGF','IGF_AP_CRSP_COUNT');
559: l_message_str := l_proc_item_str ||' ' || fnd_message.get;
560: add_log_table(l_get_persons.person_number,l_error,l_message_str);
561: l_message_str := NULL;
562: l_error_flag := TRUE;
563: END IF;
562: l_error_flag := TRUE;
563: END IF;
564: --VALIDATION FOR THE INACTIVE FLAG
565: IF NVL(l_get_persons.inactive_flag,'X') NOT IN ('Y','N') THEN
566: fnd_message.set_name('IGF','IGF_AP_TD_FLAG_INCORR');
567: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
568: add_log_table(l_get_persons.person_number,l_error,l_message_str);
569: l_message_str := NULL;
570: l_error_flag := TRUE;
563: END IF;
564: --VALIDATION FOR THE INACTIVE FLAG
565: IF NVL(l_get_persons.inactive_flag,'X') NOT IN ('Y','N') THEN
566: fnd_message.set_name('IGF','IGF_AP_TD_FLAG_INCORR');
567: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
568: add_log_table(l_get_persons.person_number,l_error,l_message_str);
569: l_message_str := NULL;
570: l_error_flag := TRUE;
571: END IF;
592: IF l_get_persons.item_status_code = 'COM' THEN
593:
594: IF (l_get_persons.relationship_cd IS NULL) THEN
595: -- Error
596: fnd_message.set_name('IGF', 'IGF_AP_TD_PREFL_INCOM');
597: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
598: add_log_table(l_get_persons.person_number, l_error, l_message_str);
599: l_message_str := NULL;
600: l_error_flag := TRUE;
593:
594: IF (l_get_persons.relationship_cd IS NULL) THEN
595: -- Error
596: fnd_message.set_name('IGF', 'IGF_AP_TD_PREFL_INCOM');
597: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
598: add_log_table(l_get_persons.person_number, l_error, l_message_str);
599: l_message_str := NULL;
600: l_error_flag := TRUE;
601: ELSE
604: FETCH c_chk_lender_rel INTO l_chk_lender_rel_rec;
605:
606: IF (c_chk_lender_rel%NOTFOUND) THEN
607: -- Error
608: fnd_message.set_name('IGF', 'IGF_AP_TD_PREFL_NTFND');
609: fnd_message.set_token('RELCD', l_get_persons.relationship_cd);
610: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
611: add_log_table(l_get_persons.person_number, l_error, l_message_str);
612: l_message_str := NULL;
605:
606: IF (c_chk_lender_rel%NOTFOUND) THEN
607: -- Error
608: fnd_message.set_name('IGF', 'IGF_AP_TD_PREFL_NTFND');
609: fnd_message.set_token('RELCD', l_get_persons.relationship_cd);
610: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
611: add_log_table(l_get_persons.person_number, l_error, l_message_str);
612: l_message_str := NULL;
613: l_error_flag := TRUE;
606: IF (c_chk_lender_rel%NOTFOUND) THEN
607: -- Error
608: fnd_message.set_name('IGF', 'IGF_AP_TD_PREFL_NTFND');
609: fnd_message.set_token('RELCD', l_get_persons.relationship_cd);
610: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
611: add_log_table(l_get_persons.person_number, l_error, l_message_str);
612: l_message_str := NULL;
613: l_error_flag := TRUE;
614: END IF;
619: -- When the status code is not 'COM', then the Relationship code
620: -- must be NULL
621: IF (l_get_persons.relationship_cd IS NOT NULL) THEN
622: -- Error
623: fnd_message.set_name('IGF','IGF_AP_TD_PREFL_INCOM');
624: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
625: add_log_table(l_get_persons.person_number, l_error, l_message_str);
626: l_message_str := NULL;
627: l_error_flag := TRUE;
620: -- must be NULL
621: IF (l_get_persons.relationship_cd IS NOT NULL) THEN
622: -- Error
623: fnd_message.set_name('IGF','IGF_AP_TD_PREFL_INCOM');
624: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
625: add_log_table(l_get_persons.person_number, l_error, l_message_str);
626: l_message_str := NULL;
627: l_error_flag := TRUE;
628: END IF;
632: -- When the System todo type code of that item is not 'PREFLEND'
633: -- then Relationship code must be NULL
634: IF (l_get_persons.relationship_cd IS NOT NULL) THEN
635: -- Error
636: fnd_message.set_name('IGF','IGF_AP_TD_PREFL_INCOM');
637: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
638: add_log_table(l_get_persons.person_number,l_error,l_message_str);
639: l_message_str := NULL;
640: l_error_flag := TRUE;
633: -- then Relationship code must be NULL
634: IF (l_get_persons.relationship_cd IS NOT NULL) THEN
635: -- Error
636: fnd_message.set_name('IGF','IGF_AP_TD_PREFL_INCOM');
637: l_message_str := l_proc_item_str || ' ' || fnd_message.get;
638: add_log_table(l_get_persons.person_number,l_error,l_message_str);
639: l_message_str := NULL;
640: l_error_flag := TRUE;
641: END IF;
724: l_error_flag := FALSE;
725: l_proc_item_str := NULL;
726: l_get_meaning := NULL;
727: l_debug_str := NULL;
728: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
729: fnd_message.set_token('NAME','IGF_AP_LG_TD_IMP.MAIN');
730: add_log_table(l_get_persons.person_number,l_error,fnd_message.get);
731: ROLLBACK TO sp1;
732: END;
725: l_proc_item_str := NULL;
726: l_get_meaning := NULL;
727: l_debug_str := NULL;
728: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
729: fnd_message.set_token('NAME','IGF_AP_LG_TD_IMP.MAIN');
730: add_log_table(l_get_persons.person_number,l_error,fnd_message.get);
731: ROLLBACK TO sp1;
732: END;
733: COMMIT;
726: l_get_meaning := NULL;
727: l_debug_str := NULL;
728: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
729: fnd_message.set_token('NAME','IGF_AP_LG_TD_IMP.MAIN');
730: add_log_table(l_get_persons.person_number,l_error,fnd_message.get);
731: ROLLBACK TO sp1;
732: END;
733: COMMIT;
734:
738: END IF;
739: CLOSE c_get_persons;
740:
741: IF l_success_record_cnt = 0 AND l_error_record_cnt = 0 THEN
742: fnd_message.set_name('IGS','IGS_FI_NO_RECORD_AVAILABLE');
743: add_log_table(NULL,l_error,fnd_message.get);
744: END IF;
745:
746: -- CALL THE PRINT LOG PROCESS
739: CLOSE c_get_persons;
740:
741: IF l_success_record_cnt = 0 AND l_error_record_cnt = 0 THEN
742: fnd_message.set_name('IGS','IGS_FI_NO_RECORD_AVAILABLE');
743: add_log_table(NULL,l_error,fnd_message.get);
744: END IF;
745:
746: -- CALL THE PRINT LOG PROCESS
747: print_log_process(l_get_alternate_code.alternate_code,p_batch_id,p_del_ind);
746: -- CALL THE PRINT LOG PROCESS
747: print_log_process(l_get_alternate_code.alternate_code,p_batch_id,p_del_ind);
748:
749: l_total_record_cnt := l_success_record_cnt + l_error_record_cnt;
750: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
751: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' || l_total_record_cnt);
752: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
753: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_success_record_cnt);
754: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
747: print_log_process(l_get_alternate_code.alternate_code,p_batch_id,p_del_ind);
748:
749: l_total_record_cnt := l_success_record_cnt + l_error_record_cnt;
750: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
751: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' || l_total_record_cnt);
752: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
753: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_success_record_cnt);
754: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
755: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_error_record_cnt);
748:
749: l_total_record_cnt := l_success_record_cnt + l_error_record_cnt;
750: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
751: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' || l_total_record_cnt);
752: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
753: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_success_record_cnt);
754: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
755: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_error_record_cnt);
756:
749: l_total_record_cnt := l_success_record_cnt + l_error_record_cnt;
750: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
751: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' || l_total_record_cnt);
752: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
753: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_success_record_cnt);
754: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
755: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_error_record_cnt);
756:
757: EXCEPTION
750: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
751: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' || l_total_record_cnt);
752: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
753: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_success_record_cnt);
754: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
755: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_error_record_cnt);
756:
757: EXCEPTION
758: WHEN others THEN
751: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' || l_total_record_cnt);
752: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
753: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_success_record_cnt);
754: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
755: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_error_record_cnt);
756:
757: EXCEPTION
758: WHEN others THEN
759: --CALL TO THE COMMON LOGGING FRAMEWORK FOR DEBUG MESSAGES
759: --CALL TO THE COMMON LOGGING FRAMEWORK FOR DEBUG MESSAGES
760: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
761: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_td_imp.main.exception','Exception: '||SQLERRM);
762: END IF;
763: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
764: fnd_message.set_token('NAME','IGF_AP_LG_TD_IMP.MAIN');
765: errbuf := fnd_message.get;
766: igs_ge_msg_stack.conc_exception_hndl;
767:
760: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
761: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_td_imp.main.exception','Exception: '||SQLERRM);
762: END IF;
763: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
764: fnd_message.set_token('NAME','IGF_AP_LG_TD_IMP.MAIN');
765: errbuf := fnd_message.get;
766: igs_ge_msg_stack.conc_exception_hndl;
767:
768:
761: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_lg_td_imp.main.exception','Exception: '||SQLERRM);
762: END IF;
763: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
764: fnd_message.set_token('NAME','IGF_AP_LG_TD_IMP.MAIN');
765: errbuf := fnd_message.get;
766: igs_ge_msg_stack.conc_exception_hndl;
767:
768:
769: END main;
854: -- Update FA Base record with the right Application Status
855: IF lv_fa_process_status = 'RECEIVED' AND ln_count_open_items = 0 THEN
856: IF ln_auto_na_complete = 'Y' THEN
857: update_fabase_rec('MANUAL_REVIEW');
858: fnd_message.set_name('IGF','IGF_AP_APP_STAT_RVW');
859: add_log_table(p_person_number,' ',fnd_message.get);
860: ELSE
861: update_fabase_rec('COMPLETE');
862: fnd_message.set_name('IGF','IGF_AP_APP_STAT_COMPLETE');
855: IF lv_fa_process_status = 'RECEIVED' AND ln_count_open_items = 0 THEN
856: IF ln_auto_na_complete = 'Y' THEN
857: update_fabase_rec('MANUAL_REVIEW');
858: fnd_message.set_name('IGF','IGF_AP_APP_STAT_RVW');
859: add_log_table(p_person_number,' ',fnd_message.get);
860: ELSE
861: update_fabase_rec('COMPLETE');
862: fnd_message.set_name('IGF','IGF_AP_APP_STAT_COMPLETE');
863: add_log_table(p_person_number,' ',fnd_message.get);
858: fnd_message.set_name('IGF','IGF_AP_APP_STAT_RVW');
859: add_log_table(p_person_number,' ',fnd_message.get);
860: ELSE
861: update_fabase_rec('COMPLETE');
862: fnd_message.set_name('IGF','IGF_AP_APP_STAT_COMPLETE');
863: add_log_table(p_person_number,' ',fnd_message.get);
864: END IF;
865: ELSIF ln_count_open_items > 0 THEN
866: update_fabase_rec('RECEIVED');
859: add_log_table(p_person_number,' ',fnd_message.get);
860: ELSE
861: update_fabase_rec('COMPLETE');
862: fnd_message.set_name('IGF','IGF_AP_APP_STAT_COMPLETE');
863: add_log_table(p_person_number,' ',fnd_message.get);
864: END IF;
865: ELSIF ln_count_open_items > 0 THEN
866: update_fabase_rec('RECEIVED');
867: fnd_message.set_name('IGF', 'IGF_AP_APP_STAT_REC');
863: add_log_table(p_person_number,' ',fnd_message.get);
864: END IF;
865: ELSIF ln_count_open_items > 0 THEN
866: update_fabase_rec('RECEIVED');
867: fnd_message.set_name('IGF', 'IGF_AP_APP_STAT_REC');
868: add_log_table(p_person_number,' ',fnd_message.get);
869: END IF;
870: END update_fabase_process;
871:
864: END IF;
865: ELSIF ln_count_open_items > 0 THEN
866: update_fabase_rec('RECEIVED');
867: fnd_message.set_name('IGF', 'IGF_AP_APP_STAT_REC');
868: add_log_table(p_person_number,' ',fnd_message.get);
869: END IF;
870: END update_fabase_process;
871:
872: PROCEDURE update_fabase_rec(
1192: CLOSE c_get_batch_desc;
1193: l_batch_desc := l_get_batch_desc.batch_desc ;
1194:
1195: -- HERE THE INPUT PARAMETERS ARE TO BE LOGGED TO THE LOG FILE
1196: fnd_message.set_name('IGS','IGS_DA_JOB');
1197: fnd_file.put_line(fnd_file.log,fnd_message.get);
1198: fnd_file.put_line(fnd_file.log,RPAD(l_batch_id,50) || ' : ' || p_batch_id || ' - ' || l_batch_desc);
1199: fnd_file.put_line(fnd_file.log,RPAD(l_award_yr,50) || ' : ' || p_alternate_code);
1200: fnd_message.set_name('IGS','IGS_GE_ASK_DEL_REC');
1193: l_batch_desc := l_get_batch_desc.batch_desc ;
1194:
1195: -- HERE THE INPUT PARAMETERS ARE TO BE LOGGED TO THE LOG FILE
1196: fnd_message.set_name('IGS','IGS_DA_JOB');
1197: fnd_file.put_line(fnd_file.log,fnd_message.get);
1198: fnd_file.put_line(fnd_file.log,RPAD(l_batch_id,50) || ' : ' || p_batch_id || ' - ' || l_batch_desc);
1199: fnd_file.put_line(fnd_file.log,RPAD(l_award_yr,50) || ' : ' || p_alternate_code);
1200: fnd_message.set_name('IGS','IGS_GE_ASK_DEL_REC');
1201: fnd_file.put_line(fnd_file.log,RPAD(fnd_message.get,50) || ' : ' || l_yes_no);
1196: fnd_message.set_name('IGS','IGS_DA_JOB');
1197: fnd_file.put_line(fnd_file.log,fnd_message.get);
1198: fnd_file.put_line(fnd_file.log,RPAD(l_batch_id,50) || ' : ' || p_batch_id || ' - ' || l_batch_desc);
1199: fnd_file.put_line(fnd_file.log,RPAD(l_award_yr,50) || ' : ' || p_alternate_code);
1200: fnd_message.set_name('IGS','IGS_GE_ASK_DEL_REC');
1201: fnd_file.put_line(fnd_file.log,RPAD(fnd_message.get,50) || ' : ' || l_yes_no);
1202: fnd_file.put_line(fnd_file.log,'------------------------------------------------------------------------------');
1203:
1204: FOR i IN 1..l_count LOOP
1197: fnd_file.put_line(fnd_file.log,fnd_message.get);
1198: fnd_file.put_line(fnd_file.log,RPAD(l_batch_id,50) || ' : ' || p_batch_id || ' - ' || l_batch_desc);
1199: fnd_file.put_line(fnd_file.log,RPAD(l_award_yr,50) || ' : ' || p_alternate_code);
1200: fnd_message.set_name('IGS','IGS_GE_ASK_DEL_REC');
1201: fnd_file.put_line(fnd_file.log,RPAD(fnd_message.get,50) || ' : ' || l_yes_no);
1202: fnd_file.put_line(fnd_file.log,'------------------------------------------------------------------------------');
1203:
1204: FOR i IN 1..l_count LOOP
1205: IF g_log_tab(i).person_number IS NOT NULL THEN