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

APPS.IGF_GR_LI_IMPORT dependencies on FND_LOG

Line 174: g_debug_runtime_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

170: g_cal_type igf_ap_fa_base_rec_all.ci_cal_type%TYPE;
171: g_seq_number igf_ap_fa_base_rec_all.ci_sequence_number%TYPE;
172: g_sys_award_year igf_ap_batch_aw_map_all.sys_award_year%TYPE;
173: g_awd_yr_status_cd igf_ap_batch_aw_map_all.award_year_status_code%TYPE;
174: g_debug_runtime_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
175: g_disb_pad_str VARCHAR2(10) := ' ';
176: g_tot_rec_processed NUMBER :=0 ;
177: g_tot_rec_imp_warning NUMBER :=0 ;
178: g_tot_rec_imp_error NUMBER :=0 ;

Line 254: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN

250: fnd_file.put_line(fnd_file.log,RPAD('-',55,'-'));
251:
252: EXCEPTION
253: WHEN OTHERS THEN
254: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
255: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.log_parameters.exception', SQLERRM );
256: END IF;
257: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
258: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.LOG_PARAMETERS');

Line 255: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.log_parameters.exception', SQLERRM );

251:
252: EXCEPTION
253: WHEN OTHERS THEN
254: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
255: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.log_parameters.exception', SQLERRM );
256: END IF;
257: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
258: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.LOG_PARAMETERS');
259: igs_ge_msg_stack.add;

Line 276: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Function derive_rep_pell_id() :: ';

272: || (reverse chronological order - newest change first)
273: */
274: AS
275: l_rep_pell VARCHAR2(30);
276: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Function derive_rep_pell_id() :: ';
277:
278:
279: BEGIN
280: IF (p_pell_orig_int.ope_cd IS NOT NULL)

Line 293: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

289: THEN
290: l_rep_pell := igf_gr_gen.get_rep_pell_from_base(g_cal_type,g_seq_number,g_base_id);
291: IF (l_rep_pell IS NOT NULL)
292: THEN
293: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
294: l_debug_str := l_debug_str || ' Derived reporting pell Id from Base ID '|| l_rep_pell;
295: END IF;
296: RETURN l_rep_pell;
297: ELSE

Line 298: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

294: l_debug_str := l_debug_str || ' Derived reporting pell Id from Base ID '|| l_rep_pell;
295: END IF;
296: RETURN l_rep_pell;
297: ELSE
298: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
299: l_debug_str := l_debug_str || ' Unable to derive the rep_pell ID from ope_cd, attending campus ID and base ID.';
300: END IF;
301: RETURN null;
302: END IF;

Line 304: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

300: END IF;
301: RETURN null;
302: END IF;
303: ELSE
304: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
305: l_debug_str := l_debug_str || ' Derived reporting pell Id from Attending campus ID '||l_rep_pell;
306: END IF;
307: RETURN l_rep_pell;
308: END IF;

Line 313: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

309: ELSE
310: l_rep_pell := igf_gr_gen.get_rep_pell_from_base(g_cal_type,g_seq_number,g_base_id);
311: IF (l_rep_pell IS NOT NULL)
312: THEN
313: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
314: l_debug_str := l_debug_str || ' Derived Reporting Pell Id from the base ID '||l_rep_pell;
315: END IF;
316: RETURN l_rep_pell;
317: ELSE

Line 318: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

314: l_debug_str := l_debug_str || ' Derived Reporting Pell Id from the base ID '||l_rep_pell;
315: END IF;
316: RETURN l_rep_pell;
317: ELSE
318: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
319: l_debug_str := l_debug_str || ' Unable to derive the rep_pell ID from ope_cd, attending campus ID and base ID.';
320: END IF;
321: RETURN null;
322: END IF;

Line 325: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

321: RETURN null;
322: END IF;
323: END IF;
324: ELSE
325: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
326: l_debug_str := l_debug_str || 'Derived reporting pell Id from the OPE CD '||l_rep_pell;
327: END IF;
328: RETURN l_rep_pell;
329: END IF;

Line 340: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

336: THEN
337: l_rep_pell := igf_gr_gen.get_rep_pell_from_base(g_cal_type,g_seq_number,g_base_id);
338: IF (l_rep_pell IS NOT NULL)
339: THEN
340: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
341: l_debug_str := l_debug_str || 'Derived repoting pell ID from Base ID' || l_rep_pell;
342: END IF;
343: RETURN l_rep_pell;
344: ELSE

Line 345: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

341: l_debug_str := l_debug_str || 'Derived repoting pell ID from Base ID' || l_rep_pell;
342: END IF;
343: RETURN l_rep_pell;
344: ELSE
345: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
346: l_debug_str := l_debug_str || ' Unable to derive the rep_pell ID from ope_cd, attending campus ID and base ID.';
347: END IF;
348: RETURN null;
349: END IF;

Line 351: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

347: END IF;
348: RETURN null;
349: END IF;
350: ELSE
351: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
352: l_debug_str := l_debug_str || 'Derived reporting pell ID from the Attend campus ID '||l_rep_pell;
353: END IF;
354: RETURN l_rep_pell;
355: END IF;

Line 360: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

356: ELSE
357: l_rep_pell := igf_gr_gen.get_rep_pell_from_base(g_cal_type,g_seq_number,g_base_id);
358: IF (l_rep_pell IS NOT NULL)
359: THEN
360: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
361: l_debug_str := l_debug_str || 'Derived repoting pell ID from Base Id '||l_rep_pell;
362: END IF;
363: RETURN l_rep_pell;
364: ELSE

Line 365: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

361: l_debug_str := l_debug_str || 'Derived repoting pell ID from Base Id '||l_rep_pell;
362: END IF;
363: RETURN l_rep_pell;
364: ELSE
365: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
366: l_debug_str := l_debug_str || ' Unable to derive the rep_pell ID from ope_cd, attending campus ID and base ID.';
367: END IF;
368: RETURN null;
369: END IF;

Line 408: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Procedure update_fa_base_data :: ';

404: WHERE base.base_id = cp_base_id;
405:
406: lc_get_base_rec_dtls c_get_base_rec_dtls%ROWTYPE;
407:
408: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Procedure update_fa_base_data :: ';
409:
410: BEGIN
411:
412: -- Get the details of the Base record to update the PELL COA and PELL ALT Expenses

Line 423: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

419: RETURN 'E';
420: END IF;
421:
422:
423: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
424: l_debug_str := l_debug_str || ' Before updating FA Base : Pell COA ' || p_coa_pell || ' Pell Alt Exp : '|| p_pell_alt_expense;
425: END IF;
426:
427: -- update the fa base record

Line 544: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

540: x_lock_coa_flag => lc_get_base_rec_dtls.lock_coa_flag
541:
542: );
543:
544: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
545: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.update_fa_base_data.debug', l_debug_str || ' Sucssfully updated ');
546: l_debug_str := NULL;
547: END IF;
548:

Line 545: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.update_fa_base_data.debug', l_debug_str || ' Sucssfully updated ');

541:
542: );
543:
544: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
545: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.update_fa_base_data.debug', l_debug_str || ' Sucssfully updated ');
546: l_debug_str := NULL;
547: END IF;
548:
549: RETURN 'S';

Line 554: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN

550:
551: EXCEPTION
552: WHEN OTHERS THEN
553:
554: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
555: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.update_fa_base_data.exception', l_debug_str || SQLERRM );
556: END IF;
557: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
558: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.UPDATE_FA_BASE_DATA');

Line 555: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.update_fa_base_data.exception', l_debug_str || SQLERRM );

551: EXCEPTION
552: WHEN OTHERS THEN
553:
554: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
555: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.update_fa_base_data.exception', l_debug_str || SQLERRM );
556: END IF;
557: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
558: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.UPDATE_FA_BASE_DATA');
559: igs_ge_msg_stack.add;

Line 605: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Procedure delete_existing_pell_rec :: ';

601: FROM igf_gr_rfms_disb_all pdb
602: WHERE pdb.origination_id = cp_origination_id;
603:
604: l_return_val VARCHAR2(1) := 'E';
605: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Procedure delete_existing_pell_rec :: ';
606:
607: BEGIN
608:
609: -- check whether Pell Origination record is present in the system with the legacy flag is set to 'Y'

Line 617: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

613: CLOSE c_chk_pell_orig;
614:
615: IF (lc_chk_pell_orig.row_id IS NOT NULL) THEN
616:
617: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
618: l_debug_str := l_debug_str || ' Pell Orig : ' || p_origination_id || ', Looping Pell disb ';
619: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.delete_existing_pell_rec.debug', l_debug_str);
620: l_debug_str := NULL;
621: END IF;

Line 619: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.delete_existing_pell_rec.debug', l_debug_str);

615: IF (lc_chk_pell_orig.row_id IS NOT NULL) THEN
616:
617: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
618: l_debug_str := l_debug_str || ' Pell Orig : ' || p_origination_id || ', Looping Pell disb ';
619: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.delete_existing_pell_rec.debug', l_debug_str);
620: l_debug_str := NULL;
621: END IF;
622:
623: BEGIN

Line 628: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

624:
625: -- Loop for all Pell Disbursement records for the given Pell record
626: FOR lc_get_pell_disb IN c_get_pell_disb(p_origination_id) LOOP
627:
628: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
629: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.delete_existing_pell_rec.debug', ' Deleting Pell Disb : ' || lc_get_pell_disb.rfmd_id);
630: END IF;
631:
632: igf_gr_rfms_disb_pkg.delete_row(lc_get_pell_disb.row_id);

Line 629: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.delete_existing_pell_rec.debug', ' Deleting Pell Disb : ' || lc_get_pell_disb.rfmd_id);

625: -- Loop for all Pell Disbursement records for the given Pell record
626: FOR lc_get_pell_disb IN c_get_pell_disb(p_origination_id) LOOP
627:
628: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
629: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.delete_existing_pell_rec.debug', ' Deleting Pell Disb : ' || lc_get_pell_disb.rfmd_id);
630: END IF;
631:
632: igf_gr_rfms_disb_pkg.delete_row(lc_get_pell_disb.row_id);
633: END LOOP;

Line 653: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN

649:
650: EXCEPTION
651: WHEN OTHERS THEN
652:
653: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
654: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.delete_existing_pell_rec.exception', l_debug_str || SQLERRM );
655: END IF;
656: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
657: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.DELETE_EXISTING_PELL_REC');

Line 654: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.delete_existing_pell_rec.exception', l_debug_str || SQLERRM );

650: EXCEPTION
651: WHEN OTHERS THEN
652:
653: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
654: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.delete_existing_pell_rec.exception', l_debug_str || SQLERRM );
655: END IF;
656: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
657: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.DELETE_EXISTING_PELL_REC');
658: igs_ge_msg_stack.add;

Line 735: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN

731: RETURN l_rfmb_id;
732:
733: EXCEPTION
734: WHEN OTHERS THEN
735: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
736: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_disb_batch.exception', SQLERRM );
737: END IF;
738: fnd_message.set_name('IGF','IGF_GR_LI_BDINSRT_FAIL');
739: fnd_message.set_token('BATCH_NUM',p_pell_disb_int.disburse_batch_id_txt);

Line 736: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_disb_batch.exception', SQLERRM );

732:
733: EXCEPTION
734: WHEN OTHERS THEN
735: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
736: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_disb_batch.exception', SQLERRM );
737: END IF;
738: fnd_message.set_name('IGF','IGF_GR_LI_BDINSRT_FAIL');
739: fnd_message.set_token('BATCH_NUM',p_pell_disb_int.disburse_batch_id_txt);
740: fnd_message.set_token('ORIG_ID',p_pell_disb_int.origination_id_txt);

Line 817: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN

813: RETURN TRUE;
814:
815: EXCEPTION
816: WHEN OTHERS THEN
817: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
818: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_disb.exception', SQLERRM );
819: END IF;
820: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
821: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.CREATE_PELL_DISB');

Line 818: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_disb.exception', SQLERRM );

814:
815: EXCEPTION
816: WHEN OTHERS THEN
817: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
818: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_disb.exception', SQLERRM );
819: END IF;
820: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
821: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.CREATE_PELL_DISB');
822: igs_ge_msg_stack.add;

Line 856: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Function import_pell_disb :: ';

852:
853: lc_awd_disb c_awd_disb%ROWTYPE;
854:
855: l_rfmb_id igf_gr_rfms_batch_all.rfmb_id%TYPE;
856: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Function import_pell_disb :: ';
857: l_disb_import_status VARCHAR2(1) := 'I';
858: l_disb_batch_id VARCHAR2(30);
859:
860: BEGIN

Line 863: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

859:
860: BEGIN
861:
862: -- Check whether the disbursement record is present in the Award disbursement table.
863: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
864: l_debug_str := l_debug_str || ', Checking Awd disb with Disb Num : ' || p_pell_disb_int.disbursement_num;
865: END IF;
866:
867: OPEN c_awd_disb(g_award_id, p_pell_disb_int.disbursement_num);

Line 873: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

869: IF (c_awd_disb%NOTFOUND) THEN
870: fnd_message.set_name('IGF','IGF_GR_LI_DNUM_INVALID');
871: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
872: CLOSE c_awd_disb;
873: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
874: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_disb.debug', l_debug_str);
875: l_debug_str := NULL;
876: END IF;
877: l_disb_import_status := 'E';

Line 874: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_disb.debug', l_debug_str);

870: fnd_message.set_name('IGF','IGF_GR_LI_DNUM_INVALID');
871: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
872: CLOSE c_awd_disb;
873: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
874: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_disb.debug', l_debug_str);
875: l_debug_str := NULL;
876: END IF;
877: l_disb_import_status := 'E';
878: RETURN l_disb_import_status;

Line 884: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

880: CLOSE c_awd_disb;
881:
882:
883: -- Validate Acknowledgement Status
884: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
885: l_debug_str := l_debug_str || ', Acknowledgement Status : ' || p_pell_disb_int.disb_ack_act_flag;
886: END IF;
887:
888: IF (p_pell_disb_int.disb_ack_act_flag IS NOT NULL) AND

Line 901: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

897: END IF;
898:
899:
900: -- Validate Disbursement Batch ID
901: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
902: l_debug_str := l_debug_str || ', Disbursement Batch ID : ' || p_pell_disb_int.disburse_batch_id_txt;
903: END IF;
904:
905: l_disb_batch_id := '#D' || -- Batch Code

Line 921: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

917: END IF;
918:
919:
920: -- Validate Action Code status date
921: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
922: l_debug_str := l_debug_str || ', Action Code status date : ' || p_pell_disb_int.disb_status_date;
923: END IF;
924:
925: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND

Line 942: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

938: END IF;
939:
940:
941: -- Validate Process Date
942: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
943: l_debug_str := l_debug_str || ', Process Date : ' || p_pell_disb_int.disburse_batch_process_date;
944: END IF;
945:
946: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND

Line 963: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

959: END IF;
960:
961:
962: -- Validate Payment Period start date
963: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
964: l_debug_str := l_debug_str || ', Payment Period Start Date : ' || p_pell_disb_int.pymt_prd_start_date;
965: END IF;
966: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
967: (p_pell_disb_int.pymt_prd_start_date IS NOT NULL) )

Line 977: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

973: END IF;
974:
975:
976: -- Validate Accepted Disbursement Date
977: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
978: l_debug_str := l_debug_str || ', Accepted Disbursement Date : ' || p_pell_disb_int.accpt_disb_date;
979: END IF;
980: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
981: (p_pell_disb_int.accpt_disb_date IS NOT NULL) )

Line 997: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

993: END IF;
994:
995:
996: -- Validate Accepted Disbursement Amount
997: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
998: l_debug_str := l_debug_str || ', Accepted Disbursement Amount : ' || p_pell_disb_int.disb_accpt_amt;
999: END IF;
1000: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1001: (p_pell_disb_int.disb_accpt_amt IS NOT NULL) )

Line 1027: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1023: END IF;
1024:
1025:
1026: -- Validate Accepted Disbursement Amount Sign Indicator
1027: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1028: l_debug_str := l_debug_str || ', Accepted Disbursement Amount Sign Indicator : ' || p_pell_disb_int.disbursement_sign_flag;
1029: l_debug_str := l_debug_str || ', Accepted Disbursment Amount : ' || p_pell_disb_int.disb_accpt_amt;
1030: END IF;
1031: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND

Line 1068: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1064: END IF;
1065: END IF;
1066:
1067: -- Validate Accepted Payment Period start date
1068: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1069: l_debug_str := l_debug_str || ', Accepted Payment Period start date : ' || p_pell_disb_int.accpt_pymt_prd_start_date;
1070: END IF;
1071: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1072: (p_pell_disb_int.accpt_pymt_prd_start_date IS NOT NULL) )

Line 1082: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1078: END IF;
1079:
1080:
1081: -- Validate Disbursement Year to Date Amount
1082: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1083: l_debug_str := l_debug_str || ', Disbursement Year to Date Amount : ' || p_pell_disb_int.disb_ytd_amt;
1084: END IF;
1085: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1086: (p_pell_disb_int.disb_ytd_amt IS NOT NULL) )

Line 1104: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1100: END IF;
1101:
1102:
1103: -- Validate Edit Code
1104: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1105: l_debug_str := l_debug_str || ', Edit Code : ' || p_pell_disb_int.edit_codes_txt;
1106: END IF;
1107: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1108: (p_pell_disb_int.edit_codes_txt IS NOT NULL) )

Line 1118: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1114: END IF;
1115:
1116:
1117: -- Validate ED Use Flags
1118: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1119: l_debug_str := l_debug_str || ', ED Use Flags : ' || p_pell_disb_int.ed_use_flags;
1120: END IF;
1121: IF ( (p_pell_disb_int.disb_ack_act_flag IN ('N','R')) AND
1122: (p_pell_disb_int.ed_use_flags IS NOT NULL) )

Line 1137: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1133: -- Create the Disbursement batch record if Pell Disb in Ack status
1134: l_rfmb_id := NULL;
1135: IF ( (p_pell_disb_int.disb_ack_act_flag IS NOT NULL) AND p_pell_disb_int.disb_ack_act_flag NOT IN ('R','N')) THEN
1136:
1137: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1138: l_debug_str := l_debug_str || ' :: Creating Pell Batch';
1139: END IF;
1140: l_rfmb_id := create_pell_disb_batch(p_pell_disb_int, p_ope_cd);
1141:

Line 1146: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1142: -- Create Pell Disbursement only if the Pell Batch is created
1143: IF l_rfmb_id = -1 THEN
1144:
1145: l_disb_import_status := 'E';
1146: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_aw_li_import.import_pell_disb.debug', l_debug_str || ' : Pell Disb Batch not created' || ' Ret status : '|| l_disb_import_status);
1148: l_debug_str := NULL;
1149: END IF;
1150:

Line 1147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_aw_li_import.import_pell_disb.debug', l_debug_str || ' : Pell Disb Batch not created' || ' Ret status : '|| l_disb_import_status);

1143: IF l_rfmb_id = -1 THEN
1144:
1145: l_disb_import_status := 'E';
1146: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_aw_li_import.import_pell_disb.debug', l_debug_str || ' : Pell Disb Batch not created' || ' Ret status : '|| l_disb_import_status);
1148: l_debug_str := NULL;
1149: END IF;
1150:
1151: RETURN l_disb_import_status;

Line 1156: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1152: END IF;
1153: END IF;
1154:
1155: ELSE
1156: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_aw_li_import.import_pell_disb.debug', l_debug_str || ' : Pell Disb Batch not created' || ' Ret status : '|| l_disb_import_status);
1158: l_debug_str := NULL;
1159: END IF;
1160: RETURN l_disb_import_status;

Line 1157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_aw_li_import.import_pell_disb.debug', l_debug_str || ' : Pell Disb Batch not created' || ' Ret status : '|| l_disb_import_status);

1153: END IF;
1154:
1155: ELSE
1156: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_aw_li_import.import_pell_disb.debug', l_debug_str || ' : Pell Disb Batch not created' || ' Ret status : '|| l_disb_import_status);
1158: l_debug_str := NULL;
1159: END IF;
1160: RETURN l_disb_import_status;
1161: END IF;

Line 1165: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1161: END IF;
1162:
1163: -- Create Pell Disbursement
1164: IF l_disb_import_status <> 'E' AND (NOT (igf_sl_dl_validation.check_full_participant (g_cal_type, g_seq_number,'PELL'))) THEN
1165: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1166: l_debug_str := l_debug_str || ' :: Creating Pell Disbursement';
1167: END IF;
1168: IF NOT create_pell_disb(p_pell_disb_int, l_rfmb_id, lc_awd_disb.disb_date, lc_awd_disb.disb_net_amt) THEN
1169:

Line 1171: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1167: END IF;
1168: IF NOT create_pell_disb(p_pell_disb_int, l_rfmb_id, lc_awd_disb.disb_date, lc_awd_disb.disb_net_amt) THEN
1169:
1170: l_disb_import_status := 'E';
1171: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1172: l_debug_str := l_debug_str || ' :: Pell Disbursement not created Ret status : '|| l_disb_import_status;
1173: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_disb.debug', l_debug_str );
1174: l_debug_str := NULL;
1175: END IF;

Line 1173: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_disb.debug', l_debug_str );

1169:
1170: l_disb_import_status := 'E';
1171: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1172: l_debug_str := l_debug_str || ' :: Pell Disbursement not created Ret status : '|| l_disb_import_status;
1173: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_disb.debug', l_debug_str );
1174: l_debug_str := NULL;
1175: END IF;
1176: RETURN l_disb_import_status;
1177: END IF;

Line 1180: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1176: RETURN l_disb_import_status;
1177: END IF;
1178: END IF;
1179:
1180: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1181: l_debug_str := l_debug_str || ' :: IMPORT_PELL_DISB Successful :: Ret status : '|| l_disb_import_status;
1182: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_disb.debug', l_debug_str );
1183: l_debug_str := NULL;
1184: END IF;

Line 1182: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_disb.debug', l_debug_str );

1178: END IF;
1179:
1180: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1181: l_debug_str := l_debug_str || ' :: IMPORT_PELL_DISB Successful :: Ret status : '|| l_disb_import_status;
1182: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_disb.debug', l_debug_str );
1183: l_debug_str := NULL;
1184: END IF;
1185: RETURN l_disb_import_status;
1186:

Line 1189: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN

1185: RETURN l_disb_import_status;
1186:
1187: EXCEPTION
1188: WHEN OTHERS THEN
1189: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
1190: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.import_pell_disb.exception', l_debug_str || SQLERRM );
1191: END IF;
1192: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1193: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.IMPORT_PELL_DISB');

Line 1190: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.import_pell_disb.exception', l_debug_str || SQLERRM );

1186:
1187: EXCEPTION
1188: WHEN OTHERS THEN
1189: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
1190: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.import_pell_disb.exception', l_debug_str || SQLERRM );
1191: END IF;
1192: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1193: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.IMPORT_PELL_DISB');
1194: igs_ge_msg_stack.add;

Line 1270: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN

1266: RETURN l_rfmb_id;
1267:
1268: EXCEPTION
1269: WHEN OTHERS THEN
1270: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
1271: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_orig_batch.exception', SQLERRM );
1272: END IF;
1273: fnd_message.set_name('IGF','IGF_GR_LI_BINSERT_FAIL');
1274: fnd_message.set_token('BATCH_NUM',p_pell_orig_int.orig_send_batch_id_txt);

Line 1271: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_orig_batch.exception', SQLERRM );

1267:
1268: EXCEPTION
1269: WHEN OTHERS THEN
1270: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
1271: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_orig_batch.exception', SQLERRM );
1272: END IF;
1273: fnd_message.set_name('IGF','IGF_GR_LI_BINSERT_FAIL');
1274: fnd_message.set_token('BATCH_NUM',p_pell_orig_int.orig_send_batch_id_txt);
1275: igs_ge_msg_stack.add;

Line 1315: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Procedure create_pell_orig :: ';

1311:
1312: lc_pymt_prds_n_date c_pymt_prds_n_date%ROWTYPE;
1313:
1314: l_row_id ROWID;
1315: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Procedure create_pell_orig :: ';
1316:
1317: BEGIN
1318:
1319: -- Get the Total Payment periods and First disbursement date

Line 1320: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1316:
1317: BEGIN
1318:
1319: -- Get the Total Payment periods and First disbursement date
1320: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1321: l_debug_str := l_debug_str || ', Fetching Disb dates for Award ID : ' || g_award_id;
1322: END IF;
1323: OPEN c_pymt_prds_n_date(g_award_id);
1324: FETCH c_pymt_prds_n_date INTO lc_pymt_prds_n_date;

Line 1328: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1324: FETCH c_pymt_prds_n_date INTO lc_pymt_prds_n_date;
1325: CLOSE c_pymt_prds_n_date;
1326:
1327: -- Create Pell Origination Record in the production table
1328: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1329: l_debug_str := l_debug_str || ', Creating RFMS record :: Total Disb Num : ' || lc_pymt_prds_n_date.disb_num;
1330: l_debug_str := l_debug_str || ', Disb Date : ' || lc_pymt_prds_n_date.disb_date;
1331: END IF;
1332:

Line 1393: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1389: x_full_resp_code => NULL,
1390: x_document_id_txt => NULL
1391: );
1392:
1393: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1394: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.create_pell_orig.debug', l_debug_str || ', Created Pell Origination record Orig ID :' || p_pell_orig_int.origination_id_txt);
1395: l_debug_str := NULL;
1396: END IF;
1397:

Line 1394: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.create_pell_orig.debug', l_debug_str || ', Created Pell Origination record Orig ID :' || p_pell_orig_int.origination_id_txt);

1390: x_document_id_txt => NULL
1391: );
1392:
1393: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1394: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.create_pell_orig.debug', l_debug_str || ', Created Pell Origination record Orig ID :' || p_pell_orig_int.origination_id_txt);
1395: l_debug_str := NULL;
1396: END IF;
1397:
1398: RETURN TRUE;

Line 1402: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN

1398: RETURN TRUE;
1399:
1400: EXCEPTION
1401: WHEN OTHERS THEN
1402: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
1403: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_orig.exception', SQLERRM );
1404: END IF;
1405: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1406: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.CREATE_PELL_ORIG');

Line 1403: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_orig.exception', SQLERRM );

1399:
1400: EXCEPTION
1401: WHEN OTHERS THEN
1402: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
1403: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.create_pell_orig.exception', SQLERRM );
1404: END IF;
1405: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1406: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.CREATE_PELL_ORIG');
1407: igs_ge_msg_stack.add;

Line 1485: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Procedure import_pell_orig (1) :: ';

1481: l_db_cr_flag igf_gr_rfms_disb.db_cr_flag%TYPE;
1482: l_rfmd_id igf_gr_rfms_disb.rfmd_id%TYPE;
1483: l_disb_num_prmpt igf_lookups_view.meaning%TYPE;
1484: l_processing igf_lookups_view.meaning%TYPE;
1485: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Procedure import_pell_orig (1) :: ';
1486: l_error VARCHAR2(30);
1487: l_orig_batch_id VARCHAR2(30);
1488: l_pell_mat VARCHAR2(10);
1489: l_pell_disb_full_status VARCHAR2(1);

Line 1515: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1511: SAVEPOINT SP_PELL;
1512:
1513: -- Validate the Award Number in the production table
1514: g_award_id := NULL;
1515: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1516: l_debug_str := l_debug_str || ', Fetching production table award details with Awd Number : '|| p_pell_orig_int.award_number_txt;
1517: END IF;
1518:
1519: OPEN c_awd_details(g_base_id, p_pell_orig_int.award_number_txt);

Line 1528: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1524:
1525: CLOSE c_awd_details;
1526: ROLLBACK TO SP_PELL;
1527: l_pell_import_status := 'E';
1528: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1529: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug',
1530: l_debug_str || 'Award ref not present in production table :'|| l_pell_import_status);
1531: END IF;
1532: RETURN l_pell_import_status;

Line 1529: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug',

1525: CLOSE c_awd_details;
1526: ROLLBACK TO SP_PELL;
1527: l_pell_import_status := 'E';
1528: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1529: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug',
1530: l_debug_str || 'Award ref not present in production table :'|| l_pell_import_status);
1531: END IF;
1532: RETURN l_pell_import_status;
1533:

Line 1537: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1533:
1534: END IF;
1535: CLOSE c_awd_details;
1536:
1537: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1538: l_debug_str := l_debug_str || ' Award ID : ' || lc_awd_details.award_id;
1539: END IF;
1540:
1541: g_award_id := lc_awd_details.award_id;

Line 1545: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1541: g_award_id := lc_awd_details.award_id;
1542:
1543:
1544: -- Validate if award id is already present in the GR RFMS table
1545: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1546: l_debug_str := l_debug_str || ', Dup Award ID chk : ';
1547: END IF;
1548: OPEN c_chk_rfms_awd(g_award_id);
1549: FETCH c_chk_rfms_awd INTO lc_chk_rfms_awd;

Line 1564: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1560: END IF;
1561:
1562:
1563: -- Validate Transaction Number
1564: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1565: l_debug_str := l_debug_str || ', Transaction Number : ' || p_pell_orig_int.transaction_num_txt;
1566: END IF;
1567: -- Bug# 3089841 Added the check for the transaction_num to be NULL
1568: IF p_pell_orig_int.transaction_num_txt IS NULL OR TO_NUMBER(p_pell_orig_int.transaction_num_txt) < 1 OR TO_NUMBER(p_pell_orig_int.transaction_num_txt) > 99 THEN

Line 1582: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1578: OPEN c_isir_details(g_base_id, p_pell_orig_int.transaction_num_txt);
1579: FETCH c_isir_details INTO lc_isir_details;
1580: IF c_isir_details%NOTFOUND THEN
1581:
1582: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1583: l_debug_str := l_debug_str || ', ISIR Details not found : ';
1584: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);
1585: l_debug_str := NULL;
1586: END IF;

Line 1584: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);

1580: IF c_isir_details%NOTFOUND THEN
1581:
1582: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1583: l_debug_str := l_debug_str || ', ISIR Details not found : ';
1584: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);
1585: l_debug_str := NULL;
1586: END IF;
1587: -- Bug# 3089841 Changed the message
1588: fnd_message.set_name('IGF','IGF_GR_ISIR_NOT_FOUND');

Line 1598: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1594: CLOSE c_isir_details;
1595:
1596:
1597: -- Validate Origination Status
1598: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1599: l_debug_str := l_debug_str || ', Origination Status : ' || p_pell_orig_int.orig_status_code;
1600: END IF;
1601: IF (p_pell_orig_int.orig_status_code IS NOT NULL) AND
1602: (igf_ap_gen.get_aw_lookup_meaning('IGF_GR_ORIG_STATUS', p_pell_orig_int.orig_status_code, g_sys_award_year) IS NULL OR

Line 1694: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1690: END IF;
1691:
1692:
1693:
1694: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1695: l_debug_str := l_debug_str || ', Origination ID : ' || p_pell_orig_int.origination_id_txt;
1696: l_debug_str := l_debug_str || ', l_origination_id : ' || l_origination_id;
1697: END IF;
1698:

Line 1711: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1707: END IF;
1708:
1709:
1710: -- Validate Pell Origianation Batch ID
1711: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1712: l_debug_str := l_debug_str || ', Origianation Batch ID : ' || p_pell_orig_int.orig_send_batch_id_txt;
1713: END IF;
1714:
1715: l_orig_batch_id := '#O' || -- Batch Code

Line 1731: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1727: END IF;
1728:
1729:
1730: -- Validate Pell Cost of Attendance
1731: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1732: l_debug_str := l_debug_str || ', Pell COA : ' || p_pell_orig_int.pell_coa_amt;
1733: END IF;
1734:
1735: IF (p_pell_orig_int.pell_coa_amt < 0) OR

Line 1746: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1742: END IF;
1743:
1744:
1745: -- Validate Pell Alternate Expenses
1746: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1747: l_debug_str := l_debug_str || ', Pell Alternate Expenses : ' || p_pell_orig_int.pell_alt_exp_amt;
1748: END IF;
1749:
1750: IF (p_pell_orig_int.pell_alt_exp_amt < 0) OR

Line 1762: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1758:
1759:
1760: -- Validate Enrollment Status
1761: -- p_pell_orig_int.enrollment_status_flag NOT IN ('1','2','3','4','5') AND
1762: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1763: l_debug_str := l_debug_str || ', Enrollment Status : ' || p_pell_orig_int.enrollment_status_flag;
1764: END IF;
1765:
1766: IF (p_pell_orig_int.enrollment_status_flag IS NOT NULL) AND

Line 1811: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1807: -- End of Validate Enrollment Status
1808:
1809:
1810: -- Validate Pell EFC Amount for valid values
1811: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1812: l_debug_str := l_debug_str || ', EFC Amount : ' || p_pell_orig_int.efc_amt;
1813: END IF;
1814:
1815: IF (p_pell_orig_int.efc_amt < 0) OR

Line 1842: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1838: END IF;
1839:
1840:
1841: -- Validate Low Tution Fee Code
1842: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1843: l_debug_str := l_debug_str || ', Low Tution Fee Code : ' || p_pell_orig_int.low_tution_fee_cd;
1844: END IF;
1845:
1846: IF (p_pell_orig_int.low_tution_fee_cd IS NOT NULL) AND

Line 1872: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1868:
1869:
1870: -- Validate Payment Method
1871: -- p_pell_orig_int.payment_method_code NOT IN ('1','2','3','4','5')
1872: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1873: l_debug_str := l_debug_str || ', Payment Method : ' || p_pell_orig_int.payment_method_code;
1874: END IF;
1875:
1876: IF igf_ap_gen.get_aw_lookup_meaning('IGF_GR_PAYMENT_METHOD', p_pell_orig_int.payment_method_code, g_sys_award_year) IS NULL THEN

Line 1885: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1881: END IF;
1882:
1883:
1884: -- Validate Payment Weeks
1885: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1886: l_debug_str := l_debug_str || ', Payment Weeks : ' || p_pell_orig_int.wk_inst_time_calc_pymt_num;
1887: END IF;
1888:
1889: IF p_pell_orig_int.payment_method_code = '1' AND

Line 1908: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1904: END IF;
1905:
1906:
1907: -- Validate Academic Weeks
1908: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1909: l_debug_str := l_debug_str || ', Academic Weeks : ' || p_pell_orig_int.wk_int_time_prg_def_yr_num;
1910: END IF;
1911:
1912: IF ( p_pell_orig_int.payment_method_code = '1' AND

Line 1930: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1926:
1927:
1928: -- Validate Academic Calendar
1929: -- p_pell_orig_int.academic_calendar_cd NOT IN ('1','2','3','4','5','6')
1930: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1931: l_debug_str := l_debug_str || ', Academic Calendar : ' || p_pell_orig_int.academic_calendar_cd;
1932: END IF;
1933:
1934: IF igf_ap_gen.get_aw_lookup_meaning('IGF_GR_ACAD_CAL', p_pell_orig_int.academic_calendar_cd, g_sys_award_year) IS NULL THEN

Line 1943: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1939: END IF;
1940:
1941:
1942: -- Validate Expected Hours
1943: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1944: l_debug_str := l_debug_str || ', Expected Hours : ' || p_pell_orig_int.cr_clk_hrs_prds_sch_yr_num;
1945: END IF;
1946:
1947: IF ( p_pell_orig_int.academic_calendar_cd IN ('1','2','3','4') AND p_pell_orig_int.cr_clk_hrs_prds_sch_yr_num IS NOT NULL ) OR

Line 1958: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1954: END IF;
1955:
1956:
1957: -- Validate Academic hours
1958: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1959: l_debug_str := l_debug_str || ', Academic Hours : ' || p_pell_orig_int.cr_clk_hrs_acad_yr_num;
1960: END IF;
1961:
1962: IF ( p_pell_orig_int.academic_calendar_cd IN ('1','2','3','4') AND p_pell_orig_int.cr_clk_hrs_acad_yr_num IS NOT NULL )OR

Line 1975: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1971:
1972: -- Validate Verification Status
1973: -- ( g_sys_award_year = '0203' AND p_pell_orig_int.verification_status_code NOT IN ('W','V') ) OR
1974: -- ( g_sys_award_year = '0304' AND p_pell_orig_int.verification_status_code NOT IN ('W','V','S') )
1975: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1976: l_debug_str := l_debug_str || ', Verification Status : ' || p_pell_orig_int.verification_status_code;
1977: END IF;
1978:
1979: IF (p_pell_orig_int.verification_status_code IS NOT NULL) AND

Line 1991: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

1987:
1988:
1989: -- Validate Incarcerated Code
1990: -- IF p_pell_orig_int.incrcd_fed_pell_rcp_code NOT IN ('Y','N') THEN
1991: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
1992: l_debug_str := l_debug_str || ', Incarcerated Code : ' || p_pell_orig_int.incrcd_fed_pell_rcp_code;
1993: END IF;
1994:
1995: IF (p_pell_orig_int.incrcd_fed_pell_rcp_code IS NOT NULL) AND

Line 2007: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2003:
2004:
2005: -- Validate Secondary EFC Code
2006: -- IF p_pell_orig_int.secondary_efc_code NOT IN ('O','S') THEN
2007: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2008: l_debug_str := l_debug_str || ', Secondary EFC Code : ' || p_pell_orig_int.secondary_efc_code;
2009: END IF;
2010:
2011: IF (p_pell_orig_int.secondary_efc_code IS NOT NULL) AND

Line 2020: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2016: fnd_file.put_line(fnd_file.log, fnd_message.get);
2017: l_pell_import_status := 'E';
2018: END IF;
2019:
2020: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2021: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);
2022: l_debug_str := 'IGFGR10B.pls Procedure import_pell_orig (2) :: ';
2023: END IF;
2024:

Line 2021: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);

2017: l_pell_import_status := 'E';
2018: END IF;
2019:
2020: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2021: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);
2022: l_debug_str := 'IGFGR10B.pls Procedure import_pell_orig (2) :: ';
2023: END IF;
2024:
2025:

Line 2027: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2023: END IF;
2024:
2025:
2026: -- Validate Previous Transaction Number
2027: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2028: l_debug_str := l_debug_str || ', Previous Transaction Number : ' || p_pell_orig_int.prev_accpt_tran_num_txt;
2029: END IF;
2030:
2031: IF (p_pell_orig_int.prev_accpt_tran_num_txt IS NOT NULL) AND

Line 2051: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2047: END IF;
2048:
2049:
2050: -- Validate Previous EFC
2051: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2052: l_debug_str := l_debug_str || ', Previous EFC : ' || p_pell_orig_int.prev_accpt_efc_amt;
2053: END IF;
2054:
2055: IF (p_pell_orig_int.prev_accpt_efc_amt < 0) OR

Line 2076: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2072:
2073:
2074: -- Validate Previous Secondary EFC
2075: -- IF p_pell_orig_int.prev_accpt_sec_efc_cd NOT IN ('O','S') THEN
2076: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2077: l_debug_str := l_debug_str || ', Previous Secondary EFC : ' || p_pell_orig_int.prev_accpt_sec_efc_cd;
2078: END IF;
2079:
2080: IF (p_pell_orig_int.prev_accpt_sec_efc_cd IS NOT NULL) AND

Line 2100: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2096: END IF;
2097:
2098:
2099: -- Validate Previous COA
2100: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2101: l_debug_str := l_debug_str || ', Previous COA : ' || p_pell_orig_int.prev_accpt_coa_amt;
2102: END IF;
2103:
2104: IF p_pell_orig_int.prev_accpt_coa_amt < 0 OR p_pell_orig_int.prev_accpt_coa_amt < 9999999 THEN

Line 2122: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2118: END IF;
2119:
2120:
2121: -- Validate Process Date
2122: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2123: l_debug_str := l_debug_str || ', Previous Date : ' || p_pell_orig_int.rfms_process_date;
2124: END IF;
2125:
2126: IF ( (p_pell_orig_int.orig_status_code IN ('A','C','E')) AND

Line 2153: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2149: END IF;
2150:
2151:
2152: -- Validate ED Use Flags
2153: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2154: l_debug_str := l_debug_str || ', ED Use Flags : ' || p_pell_orig_int.orig_ed_use_flags_txt;
2155: END IF;
2156:
2157: IF ( (p_pell_orig_int.orig_status_code IN ('R','N')) AND

Line 2168: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2164: END IF;
2165:
2166:
2167: -- Validate Warning Codes
2168: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2169: l_debug_str := l_debug_str || ', Warning Codes : ' || p_pell_orig_int.orig_reject_codes_txt;
2170: END IF;
2171:
2172: IF ( (p_pell_orig_int.orig_status_code IN ('R','N')) AND

Line 2183: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2179: END IF;
2180:
2181:
2182: -- If the validations are passed thru, then created the PELL Batch record and Pell Origination (If error should not import records)
2183: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2184: l_debug_str := l_debug_str || ' :: After all Validations : Import status : ' || l_pell_import_status;
2185: END IF;
2186:
2187: IF l_pell_import_status <> 'E' THEN

Line 2195: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2191: IF ( (p_pell_orig_int.orig_status_code IS NOT NULL) AND
2192: (p_pell_orig_int.orig_status_code NOT IN ('R','N')) )
2193: THEN
2194:
2195: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2196: l_debug_str := l_debug_str || ' :: Creating Pell Orig Batch : ';
2197: END IF;
2198: l_rfmb_id := create_pell_orig_batch(p_pell_orig_int);
2199:

Line 2201: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2197: END IF;
2198: l_rfmb_id := create_pell_orig_batch(p_pell_orig_int);
2199:
2200: IF l_rfmb_id = -1 THEN
2201: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2202: l_debug_str := l_debug_str || ' : Pell Orig Batch not created';
2203: END IF;
2204: l_pell_import_status := 'E';
2205: ROLLBACK TO SP_PELL;

Line 2211: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2207: END IF;
2208:
2209: END IF;
2210:
2211: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2212: l_debug_str := l_debug_str || ' Pell Orig Batch ID : '|| l_rfmb_id || ' :: Creating Pell Orig rec : ';
2213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);
2214: l_debug_str := NULL;
2215: END IF;

Line 2213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);

2209: END IF;
2210:
2211: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2212: l_debug_str := l_debug_str || ' Pell Orig Batch ID : '|| l_rfmb_id || ' :: Creating Pell Orig rec : ';
2213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);
2214: l_debug_str := NULL;
2215: END IF;
2216:
2217: -- Create Pell Record

Line 2222: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2218: IF NOT create_pell_orig(p_pell_orig_int, lc_isir_details, l_rfmb_id) THEN
2219: fnd_message.set_name('IGF','IGF_GR_LI_OINSERT_FAIL');
2220: fnd_message.set_token('ORIG_ID',p_pell_orig_int.origination_id_txt);
2221: fnd_file.put_line(fnd_file.log, fnd_message.get);
2222: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', ' : Pell Orig rec not created');
2224: END IF;
2225: l_pell_import_status := 'E';
2226: ROLLBACK TO SP_PELL;

Line 2223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', ' : Pell Orig rec not created');

2219: fnd_message.set_name('IGF','IGF_GR_LI_OINSERT_FAIL');
2220: fnd_message.set_token('ORIG_ID',p_pell_orig_int.origination_id_txt);
2221: fnd_file.put_line(fnd_file.log, fnd_message.get);
2222: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2223: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', ' : Pell Orig rec not created');
2224: END IF;
2225: l_pell_import_status := 'E';
2226: ROLLBACK TO SP_PELL;
2227: RETURN l_pell_import_status;

Line 2230: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2226: ROLLBACK TO SP_PELL;
2227: RETURN l_pell_import_status;
2228: END IF;
2229:
2230: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2231: l_debug_str := ' :: Creating Pell Disbursements : ';
2232: END IF;
2233:
2234: l_disb_num_prmpt := igf_ap_gen.get_lookup_meaning('IGF_GE_PARAMETERS','DISBURSEMENT_NUMBER');

Line 2248: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2244: fnd_file.put_line(fnd_file.log, g_disb_pad_str || l_processing ||' '|| l_disb_num_prmpt ||' : '|| lc_pell_disb_int.disbursement_num);
2245:
2246:
2247: -- Import Pell Disbursement
2248: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2249: l_debug_str := ' Disb num : ' || lc_pell_disb_int.disbursement_num;
2250: END IF;
2251:
2252: l_pell_disb_indv_status := 'E';

Line 2272: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2268: fnd_message.set_token('DISB_NUM',lc_pell_disb_int.disbursement_num);
2269: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2270: END IF;
2271:
2272: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2273: l_debug_str := l_debug_str || ', Disb Status : ' || l_pell_disb_indv_status;
2274: l_debug_str := l_debug_str || ', l_pell_disb_full_status : '|| l_pell_disb_full_status ||', l_pell_disb_indv_status : '|| l_pell_disb_indv_status;
2275: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);
2276: l_debug_str := NULL;

Line 2275: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);

2271:
2272: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2273: l_debug_str := l_debug_str || ', Disb Status : ' || l_pell_disb_indv_status;
2274: l_debug_str := l_debug_str || ', l_pell_disb_full_status : '|| l_pell_disb_full_status ||', l_pell_disb_indv_status : '|| l_pell_disb_indv_status;
2275: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);
2276: l_debug_str := NULL;
2277: END IF;
2278:
2279: END LOOP; -- End of creation of Disbursments

Line 2296: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2292: -- If imported with errors then rollback to the Pell and return with the status 'E'
2293: IF l_pell_import_status = 'E' THEN
2294:
2295: ROLLBACK TO SP_PELL;
2296: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str || ' End of Pell Orig Import, return status : '|| l_pell_import_status);
2298: l_debug_str := NULL;
2299: END IF;
2300:

Line 2297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str || ' End of Pell Orig Import, return status : '|| l_pell_import_status);

2293: IF l_pell_import_status = 'E' THEN
2294:
2295: ROLLBACK TO SP_PELL;
2296: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str || ' End of Pell Orig Import, return status : '|| l_pell_import_status);
2298: l_debug_str := NULL;
2299: END IF;
2300:
2301: RETURN l_pell_import_status;

Line 2310: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2306: -- Import the remaining disbursements only if Pell Disb imported successfully from Int table
2307: IF l_pell_import_status <> 'E' THEN
2308:
2309: -- Create the remaining disbursements which are present in the Awd Disb table and not present in the Pell Disb table
2310: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2311: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug','Processing Remaining disb present in the Production Awd Disb : ');
2312: END IF;
2313:
2314: ln_rem_disb_cnt := 0;

Line 2311: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug','Processing Remaining disb present in the Production Awd Disb : ');

2307: IF l_pell_import_status <> 'E' THEN
2308:
2309: -- Create the remaining disbursements which are present in the Awd Disb table and not present in the Pell Disb table
2310: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2311: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug','Processing Remaining disb present in the Production Awd Disb : ');
2312: END IF;
2313:
2314: ln_rem_disb_cnt := 0;
2315: FOR lc_get_remain_disb IN c_get_remain_disb(g_award_id) LOOP

Line 2331: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2327: -- Print the log information
2328: fnd_file.put_line(fnd_file.log, ' ');
2329: fnd_file.put_line(fnd_file.log, g_disb_pad_str || l_processing ||' '|| l_disb_num_prmpt ||' : '|| lc_get_remain_disb.disb_num);
2330:
2331: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2332:
2333: l_debug_str := l_debug_str || ' Remaining Disb Num : '|| lc_get_remain_disb.disb_num;
2334: END IF;
2335:

Line 2368: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2364: x_edit_code => NULL,
2365: x_rfmb_id => NULL,
2366: x_ed_use_flags => NULL
2367: );
2368: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2369: l_debug_str := l_debug_str || ', Created Disb successful rfmd_id: '|| l_rfmd_id;
2370: END IF;
2371:
2372: EXCEPTION

Line 2380: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2376: fnd_message.set_token('DISB_NUM',lc_get_remain_disb.disb_num);
2377: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2378: END;
2379:
2380: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);
2382: l_debug_str := NULL;
2383: END IF;
2384:

Line 2381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);

2377: fnd_file.put_line(fnd_file.log, g_disb_pad_str || fnd_message.get);
2378: END;
2379:
2380: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str);
2382: l_debug_str := NULL;
2383: END IF;
2384:
2385: END LOOP; -- End of remaining disbs

Line 2392: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2388:
2389: END IF; -- End of Error status <> 'E' to Import Pell Disb
2390:
2391: -- Return to the main routine
2392: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str || ' End of Pell Orig Import, return status : '|| l_pell_import_status);
2394: l_debug_str := NULL;
2395: END IF;
2396:

Line 2393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str || ' End of Pell Orig Import, return status : '|| l_pell_import_status);

2389: END IF; -- End of Error status <> 'E' to Import Pell Disb
2390:
2391: -- Return to the main routine
2392: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.import_pell_orig.debug', l_debug_str || ' End of Pell Orig Import, return status : '|| l_pell_import_status);
2394: l_debug_str := NULL;
2395: END IF;
2396:
2397: RETURN l_pell_import_status;

Line 2402: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN

2398:
2399: EXCEPTION
2400:
2401: WHEN OTHERS THEN
2402: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
2403: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.import_pell_orig.exception', l_debug_str || SQLERRM );
2404: END IF;
2405: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2406: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.IMPORT_PELL_ORIG');

Line 2403: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.import_pell_orig.exception', l_debug_str || SQLERRM );

2399: EXCEPTION
2400:
2401: WHEN OTHERS THEN
2402: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
2403: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.import_pell_orig.exception', l_debug_str || SQLERRM );
2404: END IF;
2405: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2406: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.IMPORT_PELL_ORIG');
2407: igs_ge_msg_stack.add;

Line 2550: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Procedure main :: ';

2546: l_prev_person_number hz_parties.party_number%TYPE;
2547: l_processing igf_lookups_view.meaning%TYPE;
2548: l_person_number igf_lookups_view.meaning%TYPE;
2549: l_award_number igf_lookups_view.meaning%TYPE;
2550: l_debug_str fnd_log_messages.message_text%TYPE := 'IGFGR10B.pls Procedure main :: ';
2551: l_pell_import_status VARCHAR2(1);
2552: l_chk_batch VARCHAR2(1);
2553: l_chk_setups VARCHAR2(1);
2554: l_chk_profile VARCHAR2(1);

Line 2571: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2567: g_delete_flag := p_delete_flag;
2568: errbuf := NULL;
2569: retcode := 0;
2570:
2571: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2572: l_debug_str := l_debug_str || ', Cal Type : ' || g_cal_type;
2573: l_debug_str := l_debug_str || ', Sequence Num : ' || g_seq_number;
2574:
2575: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', ' ---- Request ID : '||fnd_global.conc_request_id

Line 2575: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', ' ---- Request ID : '||fnd_global.conc_request_id

2571: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2572: l_debug_str := l_debug_str || ', Cal Type : ' || g_cal_type;
2573: l_debug_str := l_debug_str || ', Sequence Num : ' || g_seq_number;
2574:
2575: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', ' ---- Request ID : '||fnd_global.conc_request_id
2576: ||' Conc Prgm Id : '||fnd_global.conc_program_id
2577: ||' Pgm appl Id : '||fnd_global.prog_appl_id
2578: ||' ----');
2579: END IF;

Line 2592: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2588:
2589: -- Verify whether the school is configured for US School and uses Financial Aid.
2590: -- If not participating then log an error message
2591: l_chk_profile := igf_ap_gen.check_profile();
2592: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2593: l_debug_str := l_debug_str || ', Checking Profile value : ' || l_chk_profile;
2594: END IF;
2595:
2596: IF NVL(l_chk_profile, 'N') <> 'Y' THEN

Line 2605: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2601:
2602: -- Validate the Batch Details
2603: l_chk_batch := 'Y';
2604: l_chk_batch := igf_ap_gen.check_batch(p_batch_num, 'GRANTS');
2605: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2606: l_debug_str := l_debug_str || ', Checking Batch : ' || l_chk_batch;
2607: END IF;
2608:
2609: IF l_chk_batch = 'N' THEN

Line 2630: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2626: CLOSE c_sys_awd_yr_dtls;
2627:
2628: -- Validate Alternate code
2629: -- Check whether the import is for OPEN or Legacy Details award year or not.
2630: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2631: l_debug_str := l_debug_str || ', Validating Alternate Code Awd Yr Cd : ' || lc_sys_awd_yr_dtls.award_year_status_code;
2632: l_debug_str := l_debug_str || ', Sys Awd Yr : ' || lc_sys_awd_yr_dtls.sys_award_year;
2633: END IF;
2634:

Line 2655: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2651: OPEN c_check_setups(g_cal_type, g_seq_number);
2652: FETCH c_check_setups INTO l_chk_setups;
2653: CLOSE c_check_setups;
2654:
2655: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2656: l_debug_str := l_debug_str || ', Validating Other Pell Setups : ' || l_chk_setups;
2657: END IF;
2658:
2659: IF NVL(l_chk_setups, 'N') <> 'x' THEN

Line 2664: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2660: fnd_message.set_name('IGF','IGF_GR_LI_AWD_YR_INVALID_4');
2661: fnd_file.put_line(fnd_file.log, fnd_message.get);
2662: END IF;
2663:
2664: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2665: l_debug_str := l_debug_str || ', Starting Pell Origination import : ';
2666: END IF;
2667:
2668:

Line 2686: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2682: -- log an error message and exit process
2683: IF c_pell_orig_int%NOTFOUND THEN
2684: CLOSE c_pell_orig_int;
2685:
2686: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2687: l_debug_str := l_debug_str || ', Pell int records not found :: ';
2688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', l_debug_str);
2689: l_debug_str := NULL;
2690: END IF;

Line 2688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', l_debug_str);

2684: CLOSE c_pell_orig_int;
2685:
2686: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2687: l_debug_str := l_debug_str || ', Pell int records not found :: ';
2688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', l_debug_str);
2689: l_debug_str := NULL;
2690: END IF;
2691: fnd_message.set_name('IGF','IGF_GR_LI_NO_RECORDS');
2692: fnd_file.put_line(fnd_file.log, fnd_message.get);

Line 2698: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2694:
2695: ELSE
2696:
2697: -- Cache the temporary variables
2698: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2699: l_debug_str := l_debug_str || ', Pell int records are present :: ';
2700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', l_debug_str);
2701: l_debug_str := NULL;
2702: END IF;

Line 2700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', l_debug_str);

2696:
2697: -- Cache the temporary variables
2698: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2699: l_debug_str := l_debug_str || ', Pell int records are present :: ';
2700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', l_debug_str);
2701: l_debug_str := NULL;
2702: END IF;
2703:
2704: l_processing := igf_ap_gen.get_lookup_meaning('IGF_GE_PARAMETERS','PROCESSING');

Line 2720: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2716:
2717: fnd_file.put_line(fnd_file.log, ' ');
2718: fnd_file.put_line(fnd_file.log, ' ');
2719: g_tot_rec_processed := g_tot_rec_processed + 1;
2720: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2721: l_debug_str := ' Processing Record : ' || g_tot_rec_processed ||', Person Number : ' || lc_pell_orig_int.person_number;
2722: END IF;
2723:
2724: -- Check attending and reporting entity IDs in case of COD-XML processing

Line 2761: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2757:
2758: -- Validate Person Number
2759: g_person_id := NULL;
2760: g_base_id := NULL;
2761: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2762: l_debug_str := l_debug_str || ', Checking Person Existance ';
2763: END IF;
2764:
2765: igf_ap_gen.check_person(

Line 2772: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2768: g_seq_number,
2769: g_person_id,
2770: g_base_id
2771: );
2772: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2773: l_debug_str := l_debug_str || ', Person ID : ' || g_person_id;
2774: l_debug_str := l_debug_str || ', Base ID : ' || g_base_id;
2775: END IF;
2776:

Line 2912: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2908: END IF;
2909:
2910:
2911: -- Update Pell amounts at the FA Base rec level
2912: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2913: l_debug_str := l_debug_str || ' :: Updating FA Base Record ';
2914: END IF;
2915:
2916: l_fabase_ret_status := NULL;

Line 2930: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2926: END IF;
2927: END IF;
2928:
2929: -- Import Pell Origination Record
2930: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2931: l_debug_str := l_debug_str || ' : Import Pell Origination : ';
2932: END IF;
2933:
2934: l_pell_import_status := NULL;

Line 2962: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2958: END IF;
2959:
2960: -- Update the return status of the record.
2961: -- Delete the interface recrodss if the falg is set. (Do not delete int records if imported with warnings)
2962: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2963: l_debug_str := l_debug_str || ' : Import status : ' || l_pell_import_status;
2964: END IF;
2965:
2966: IF l_pell_import_status = 'I' AND g_delete_flag = 'Y' THEN

Line 2968: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2964: END IF;
2965:
2966: IF l_pell_import_status = 'I' AND g_delete_flag = 'Y' THEN
2967:
2968: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2969: l_debug_str := l_debug_str || ' : Deleting Pell Int rec : ';
2970: END IF;
2971:
2972: DELETE igf_aw_li_pell_ints

Line 2979: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2975: AND person_number = lc_pell_orig_int.person_number
2976: AND award_number_txt = lc_pell_orig_int.award_number_txt
2977: AND origination_id_txt = lc_pell_orig_int.origination_id_txt;
2978:
2979: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2980: l_debug_str := l_debug_str || ', Deleting Interface Pell Disb recs';
2981: END IF;
2982:
2983: DELETE igf_aw_li_pdb_ints

Line 2993: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

2989: ELSE
2990: -- Update the interface table as 'I' if imported successfully
2991: -- Update the interface table as 'W' if imported with warnings
2992: -- Update the interface table as 'E' if not imported and errors are present
2993: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
2994: l_debug_str := l_debug_str || ' : Updating Pell Int rec : ';
2995: END IF;
2996:
2997: UPDATE igf_aw_li_pell_ints

Line 3022: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN

3018: WHEN SKIP_RECORD THEN
3019: NULL;
3020:
3021: WHEN OTHERS THEN
3022: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
3023: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.main.internal Begin', l_debug_str || SQLERRM );
3024: END IF;
3025: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3026: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.MAIN_SUB_BEGIN');

Line 3023: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.main.internal Begin', l_debug_str || SQLERRM );

3019: NULL;
3020:
3021: WHEN OTHERS THEN
3022: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
3023: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.main.internal Begin', l_debug_str || SQLERRM );
3024: END IF;
3025: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3026: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.MAIN_SUB_BEGIN');
3027: igs_ge_msg_stack.add;

Line 3033: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

3029: END; -- End of local begin
3030:
3031:
3032: -- Fetch the next record, if no more records then exit the code
3033: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
3034: l_debug_str := l_debug_str || ' : Fetch next record : ';
3035: l_debug_str := l_debug_str || ' : Fetch next record : ';
3036: END IF;
3037:

Line 3042: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN

3038: lc_pell_orig_int := NULL;
3039: FETCH c_pell_orig_int INTO lc_pell_orig_int;
3040: EXIT WHEN c_pell_orig_int%NOTFOUND;
3041:
3042: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
3043: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', l_debug_str);
3044: l_debug_str := NULL;
3045: END IF;
3046: l_debug_str := NULL;

Line 3043: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', l_debug_str);

3039: FETCH c_pell_orig_int INTO lc_pell_orig_int;
3040: EXIT WHEN c_pell_orig_int%NOTFOUND;
3041:
3042: IF (FND_LOG.LEVEL_STATEMENT >= g_debug_runtime_level) THEN
3043: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_gr_li_import.main.debug', l_debug_str);
3044: l_debug_str := NULL;
3045: END IF;
3046: l_debug_str := NULL;
3047:

Line 3085: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN

3081:
3082:
3083: EXCEPTION
3084: WHEN others THEN
3085: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
3086: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.main.exception', l_debug_str || SQLERRM );
3087: END IF;
3088: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3089: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.MAIN');

Line 3086: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.main.exception', l_debug_str || SQLERRM );

3082:
3083: EXCEPTION
3084: WHEN others THEN
3085: IF(FND_LOG.LEVEL_EXCEPTION >= g_debug_runtime_level)THEN
3086: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'igf.plsql.igf_gr_li_import.main.exception', l_debug_str || SQLERRM );
3087: END IF;
3088: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
3089: fnd_message.set_token('NAME','IGF_GR_LI_IMPORT.MAIN');
3090: errbuf := fnd_message.get;