339: CLOSE c_person;
340:
341: IF p_c_message_name IS NOT NULL THEN
342: IF p_c_message_name = 'IGS_FI_DP_SPA_NO_ACTION' THEN
343: fnd_message.set_name('IGS',p_c_message_name);
344: fnd_message.set_token('SPA_STAT',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX',p_c_sca_att_status));
345:
346: ELSIF p_c_message_name = 'IGS_FI_PCT_DCT_INVALID' THEN
347: OPEN cur_cr_type_names(g_credit_type_id);
340:
341: IF p_c_message_name IS NOT NULL THEN
342: IF p_c_message_name = 'IGS_FI_DP_SPA_NO_ACTION' THEN
343: fnd_message.set_name('IGS',p_c_message_name);
344: fnd_message.set_token('SPA_STAT',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX',p_c_sca_att_status));
345:
346: ELSIF p_c_message_name = 'IGS_FI_PCT_DCT_INVALID' THEN
347: OPEN cur_cr_type_names(g_credit_type_id);
348: FETCH cur_cr_type_names INTO rec_cur_cr_type_names;
346: ELSIF p_c_message_name = 'IGS_FI_PCT_DCT_INVALID' THEN
347: OPEN cur_cr_type_names(g_credit_type_id);
348: FETCH cur_cr_type_names INTO rec_cur_cr_type_names;
349: CLOSE cur_cr_type_names;
350: fnd_message.set_name('IGS',p_c_message_name);
351: fnd_message.set_token('PAY_CR_TYPE',rec_cur_cr_type_names.payment_credit_type_name);
352: fnd_message.set_token('DEP_CR_TYPE',rec_cur_cr_type_names.credit_type_name);
353: ELSE
354: fnd_message.set_name('IGS',p_c_message_name);
347: OPEN cur_cr_type_names(g_credit_type_id);
348: FETCH cur_cr_type_names INTO rec_cur_cr_type_names;
349: CLOSE cur_cr_type_names;
350: fnd_message.set_name('IGS',p_c_message_name);
351: fnd_message.set_token('PAY_CR_TYPE',rec_cur_cr_type_names.payment_credit_type_name);
352: fnd_message.set_token('DEP_CR_TYPE',rec_cur_cr_type_names.credit_type_name);
353: ELSE
354: fnd_message.set_name('IGS',p_c_message_name);
355: END IF;
348: FETCH cur_cr_type_names INTO rec_cur_cr_type_names;
349: CLOSE cur_cr_type_names;
350: fnd_message.set_name('IGS',p_c_message_name);
351: fnd_message.set_token('PAY_CR_TYPE',rec_cur_cr_type_names.payment_credit_type_name);
352: fnd_message.set_token('DEP_CR_TYPE',rec_cur_cr_type_names.credit_type_name);
353: ELSE
354: fnd_message.set_name('IGS',p_c_message_name);
355: END IF;
356: l_c_message_text:= fnd_message.get;
350: fnd_message.set_name('IGS',p_c_message_name);
351: fnd_message.set_token('PAY_CR_TYPE',rec_cur_cr_type_names.payment_credit_type_name);
352: fnd_message.set_token('DEP_CR_TYPE',rec_cur_cr_type_names.credit_type_name);
353: ELSE
354: fnd_message.set_name('IGS',p_c_message_name);
355: END IF;
356: l_c_message_text:= fnd_message.get;
357: END IF;
358:
352: fnd_message.set_token('DEP_CR_TYPE',rec_cur_cr_type_names.credit_type_name);
353: ELSE
354: fnd_message.set_name('IGS',p_c_message_name);
355: END IF;
356: l_c_message_text:= fnd_message.get;
357: END IF;
358:
359: -- Person Number and Deposit Action should be logged each and everytime.
360: -- Deposit Number, Amount and Payment Receipt Number should be printed only when they have a value
357: END IF;
358:
359: -- Person Number and Deposit Action should be logged each and everytime.
360: -- Deposit Number, Amount and Payment Receipt Number should be printed only when they have a value
361: fnd_message.set_name('IGS','IGS_FI_PERSON_NUM');
362: fnd_message.set_token('PERSON_NUM',l_c_person.person_number||' '||l_c_person.full_name);
363: fnd_file.put_line(fnd_file.log,fnd_message.get);
364:
365: IF p_c_credit_number IS NOT NULL THEN
358:
359: -- Person Number and Deposit Action should be logged each and everytime.
360: -- Deposit Number, Amount and Payment Receipt Number should be printed only when they have a value
361: fnd_message.set_name('IGS','IGS_FI_PERSON_NUM');
362: fnd_message.set_token('PERSON_NUM',l_c_person.person_number||' '||l_c_person.full_name);
363: fnd_file.put_line(fnd_file.log,fnd_message.get);
364:
365: IF p_c_credit_number IS NOT NULL THEN
366: fnd_message.set_name('IGS','IGS_FI_DEP_REC_NUM');
359: -- Person Number and Deposit Action should be logged each and everytime.
360: -- Deposit Number, Amount and Payment Receipt Number should be printed only when they have a value
361: fnd_message.set_name('IGS','IGS_FI_PERSON_NUM');
362: fnd_message.set_token('PERSON_NUM',l_c_person.person_number||' '||l_c_person.full_name);
363: fnd_file.put_line(fnd_file.log,fnd_message.get);
364:
365: IF p_c_credit_number IS NOT NULL THEN
366: fnd_message.set_name('IGS','IGS_FI_DEP_REC_NUM');
367: fnd_message.set_token('DEP_REC_NUM',p_c_credit_number);
362: fnd_message.set_token('PERSON_NUM',l_c_person.person_number||' '||l_c_person.full_name);
363: fnd_file.put_line(fnd_file.log,fnd_message.get);
364:
365: IF p_c_credit_number IS NOT NULL THEN
366: fnd_message.set_name('IGS','IGS_FI_DEP_REC_NUM');
367: fnd_message.set_token('DEP_REC_NUM',p_c_credit_number);
368: fnd_file.put_line(fnd_file.log,fnd_message.get);
369: END IF;
370:
363: fnd_file.put_line(fnd_file.log,fnd_message.get);
364:
365: IF p_c_credit_number IS NOT NULL THEN
366: fnd_message.set_name('IGS','IGS_FI_DEP_REC_NUM');
367: fnd_message.set_token('DEP_REC_NUM',p_c_credit_number);
368: fnd_file.put_line(fnd_file.log,fnd_message.get);
369: END IF;
370:
371: IF p_n_amount IS NOT NULL THEN
364:
365: IF p_c_credit_number IS NOT NULL THEN
366: fnd_message.set_name('IGS','IGS_FI_DEP_REC_NUM');
367: fnd_message.set_token('DEP_REC_NUM',p_c_credit_number);
368: fnd_file.put_line(fnd_file.log,fnd_message.get);
369: END IF;
370:
371: IF p_n_amount IS NOT NULL THEN
372: fnd_message.set_name('IGS','IGS_FI_DEP_AMOUNT');
368: fnd_file.put_line(fnd_file.log,fnd_message.get);
369: END IF;
370:
371: IF p_n_amount IS NOT NULL THEN
372: fnd_message.set_name('IGS','IGS_FI_DEP_AMOUNT');
373: fnd_message.set_token('DEP_AMNT',p_n_amount);
374: fnd_file.put_line(fnd_file.log,fnd_message.get);
375: END IF;
376:
369: END IF;
370:
371: IF p_n_amount IS NOT NULL THEN
372: fnd_message.set_name('IGS','IGS_FI_DEP_AMOUNT');
373: fnd_message.set_token('DEP_AMNT',p_n_amount);
374: fnd_file.put_line(fnd_file.log,fnd_message.get);
375: END IF;
376:
377: fnd_message.set_name('IGS','IGS_FI_DEP_ACTION');
370:
371: IF p_n_amount IS NOT NULL THEN
372: fnd_message.set_name('IGS','IGS_FI_DEP_AMOUNT');
373: fnd_message.set_token('DEP_AMNT',p_n_amount);
374: fnd_file.put_line(fnd_file.log,fnd_message.get);
375: END IF;
376:
377: fnd_message.set_name('IGS','IGS_FI_DEP_ACTION');
378: fnd_message.set_token('DEP_ACTION',l_c_message_text);
373: fnd_message.set_token('DEP_AMNT',p_n_amount);
374: fnd_file.put_line(fnd_file.log,fnd_message.get);
375: END IF;
376:
377: fnd_message.set_name('IGS','IGS_FI_DEP_ACTION');
378: fnd_message.set_token('DEP_ACTION',l_c_message_text);
379: fnd_file.put_line(fnd_file.log,fnd_message.get);
380:
381: IF p_c_payment_cr_num IS NOT NULL THEN
374: fnd_file.put_line(fnd_file.log,fnd_message.get);
375: END IF;
376:
377: fnd_message.set_name('IGS','IGS_FI_DEP_ACTION');
378: fnd_message.set_token('DEP_ACTION',l_c_message_text);
379: fnd_file.put_line(fnd_file.log,fnd_message.get);
380:
381: IF p_c_payment_cr_num IS NOT NULL THEN
382: fnd_message.set_name('IGS','IGS_FI_PAYMENT_REC_NUM');
375: END IF;
376:
377: fnd_message.set_name('IGS','IGS_FI_DEP_ACTION');
378: fnd_message.set_token('DEP_ACTION',l_c_message_text);
379: fnd_file.put_line(fnd_file.log,fnd_message.get);
380:
381: IF p_c_payment_cr_num IS NOT NULL THEN
382: fnd_message.set_name('IGS','IGS_FI_PAYMENT_REC_NUM');
383: fnd_message.set_token('PAYMNT_NUM',p_c_payment_cr_num);
378: fnd_message.set_token('DEP_ACTION',l_c_message_text);
379: fnd_file.put_line(fnd_file.log,fnd_message.get);
380:
381: IF p_c_payment_cr_num IS NOT NULL THEN
382: fnd_message.set_name('IGS','IGS_FI_PAYMENT_REC_NUM');
383: fnd_message.set_token('PAYMNT_NUM',p_c_payment_cr_num);
384: fnd_file.put_line(fnd_file.log,fnd_message.get);
385: END IF;
386:
379: fnd_file.put_line(fnd_file.log,fnd_message.get);
380:
381: IF p_c_payment_cr_num IS NOT NULL THEN
382: fnd_message.set_name('IGS','IGS_FI_PAYMENT_REC_NUM');
383: fnd_message.set_token('PAYMNT_NUM',p_c_payment_cr_num);
384: fnd_file.put_line(fnd_file.log,fnd_message.get);
385: END IF;
386:
387: -- Put a line to seperate from the previous log details
380:
381: IF p_c_payment_cr_num IS NOT NULL THEN
382: fnd_message.set_name('IGS','IGS_FI_PAYMENT_REC_NUM');
383: fnd_message.set_token('PAYMNT_NUM',p_c_payment_cr_num);
384: fnd_file.put_line(fnd_file.log,fnd_message.get);
385: END IF;
386:
387: -- Put a line to seperate from the previous log details
388: fnd_file.put_line(fnd_file.log,RPAD('-',77,'-'));
424: l_b_return_val := TRUE;
425: END IF;
426: CLOSE c_credit_type;
427:
428: fnd_message.set_name('IGS','IGS_FI_CREDIT_TYPE');
429: fnd_message.set_token('CREDIT_TYPE',l_v_message_text);
430: fnd_file.put_line(fnd_file.log,fnd_message.get);
431:
432: IF NOT l_b_return_val THEN
425: END IF;
426: CLOSE c_credit_type;
427:
428: fnd_message.set_name('IGS','IGS_FI_CREDIT_TYPE');
429: fnd_message.set_token('CREDIT_TYPE',l_v_message_text);
430: fnd_file.put_line(fnd_file.log,fnd_message.get);
431:
432: IF NOT l_b_return_val THEN
433: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
426: CLOSE c_credit_type;
427:
428: fnd_message.set_name('IGS','IGS_FI_CREDIT_TYPE');
429: fnd_message.set_token('CREDIT_TYPE',l_v_message_text);
430: fnd_file.put_line(fnd_file.log,fnd_message.get);
431:
432: IF NOT l_b_return_val THEN
433: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
434: fnd_message.set_token('PARAMETER','P_N_CREDIT_TYPE_ID');
429: fnd_message.set_token('CREDIT_TYPE',l_v_message_text);
430: fnd_file.put_line(fnd_file.log,fnd_message.get);
431:
432: IF NOT l_b_return_val THEN
433: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
434: fnd_message.set_token('PARAMETER','P_N_CREDIT_TYPE_ID');
435: fnd_file.put_line(fnd_file.log,fnd_message.get);
436: END IF;
437:
430: fnd_file.put_line(fnd_file.log,fnd_message.get);
431:
432: IF NOT l_b_return_val THEN
433: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
434: fnd_message.set_token('PARAMETER','P_N_CREDIT_TYPE_ID');
435: fnd_file.put_line(fnd_file.log,fnd_message.get);
436: END IF;
437:
438: RETURN l_b_return_val;
431:
432: IF NOT l_b_return_val THEN
433: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
434: fnd_message.set_token('PARAMETER','P_N_CREDIT_TYPE_ID');
435: fnd_file.put_line(fnd_file.log,fnd_message.get);
436: END IF;
437:
438: RETURN l_b_return_val;
439: END validate_credit_type;
460: ELSE
461: l_b_return_val := TRUE;
462: END IF;
463:
464: fnd_message.set_name('IGS','IGS_FI_CREDIT_CLASS');
465: fnd_message.set_token('CREDIT_CLASS',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_CREDIT_CLASS',p_c_credit_class));
466: fnd_file.put_line(fnd_file.log,fnd_message.get);
467:
468: IF NOT l_b_return_val THEN
461: l_b_return_val := TRUE;
462: END IF;
463:
464: fnd_message.set_name('IGS','IGS_FI_CREDIT_CLASS');
465: fnd_message.set_token('CREDIT_CLASS',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_CREDIT_CLASS',p_c_credit_class));
466: fnd_file.put_line(fnd_file.log,fnd_message.get);
467:
468: IF NOT l_b_return_val THEN
469: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
462: END IF;
463:
464: fnd_message.set_name('IGS','IGS_FI_CREDIT_CLASS');
465: fnd_message.set_token('CREDIT_CLASS',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_CREDIT_CLASS',p_c_credit_class));
466: fnd_file.put_line(fnd_file.log,fnd_message.get);
467:
468: IF NOT l_b_return_val THEN
469: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
470: fnd_message.set_token('PARAMETER','P_C_CREDIT_CLASS');
465: fnd_message.set_token('CREDIT_CLASS',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_CREDIT_CLASS',p_c_credit_class));
466: fnd_file.put_line(fnd_file.log,fnd_message.get);
467:
468: IF NOT l_b_return_val THEN
469: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
470: fnd_message.set_token('PARAMETER','P_C_CREDIT_CLASS');
471: fnd_file.put_line(fnd_file.log,fnd_message.get);
472: END IF;
473:
466: fnd_file.put_line(fnd_file.log,fnd_message.get);
467:
468: IF NOT l_b_return_val THEN
469: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
470: fnd_message.set_token('PARAMETER','P_C_CREDIT_CLASS');
471: fnd_file.put_line(fnd_file.log,fnd_message.get);
472: END IF;
473:
474: RETURN l_b_return_val;
467:
468: IF NOT l_b_return_val THEN
469: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
470: fnd_message.set_token('PARAMETER','P_C_CREDIT_CLASS');
471: fnd_file.put_line(fnd_file.log,fnd_message.get);
472: END IF;
473:
474: RETURN l_b_return_val;
475: END validate_credit_class;
511: l_b_return_val := TRUE;
512: END IF;
513: CLOSE c_person;
514:
515: fnd_message.set_name('IGS','IGS_FI_PERSON_NUM');
516: fnd_message.set_token('PERSON_NUM',l_v_message_text);
517: fnd_file.put_line(fnd_file.log,fnd_message.get);
518:
519: IF NOT l_b_return_val THEN
512: END IF;
513: CLOSE c_person;
514:
515: fnd_message.set_name('IGS','IGS_FI_PERSON_NUM');
516: fnd_message.set_token('PERSON_NUM',l_v_message_text);
517: fnd_file.put_line(fnd_file.log,fnd_message.get);
518:
519: IF NOT l_b_return_val THEN
520: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
513: CLOSE c_person;
514:
515: fnd_message.set_name('IGS','IGS_FI_PERSON_NUM');
516: fnd_message.set_token('PERSON_NUM',l_v_message_text);
517: fnd_file.put_line(fnd_file.log,fnd_message.get);
518:
519: IF NOT l_b_return_val THEN
520: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
521: fnd_message.set_token('PARAMETER','P_N_PERSON_ID');
516: fnd_message.set_token('PERSON_NUM',l_v_message_text);
517: fnd_file.put_line(fnd_file.log,fnd_message.get);
518:
519: IF NOT l_b_return_val THEN
520: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
521: fnd_message.set_token('PARAMETER','P_N_PERSON_ID');
522: fnd_file.put_line(fnd_file.log,fnd_message.get);
523: END IF;
524:
517: fnd_file.put_line(fnd_file.log,fnd_message.get);
518:
519: IF NOT l_b_return_val THEN
520: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
521: fnd_message.set_token('PARAMETER','P_N_PERSON_ID');
522: fnd_file.put_line(fnd_file.log,fnd_message.get);
523: END IF;
524:
525: RETURN l_b_return_val;
518:
519: IF NOT l_b_return_val THEN
520: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
521: fnd_message.set_token('PARAMETER','P_N_PERSON_ID');
522: fnd_file.put_line(fnd_file.log,fnd_message.get);
523: END IF;
524:
525: RETURN l_b_return_val;
526: END validate_person;
561: l_b_return_val := TRUE;
562: END IF;
563: CLOSE c_check_prsn_grp;
564:
565: fnd_message.set_name('IGS','IGS_FI_PERSON_GROUP');
566: fnd_message.set_token('PERSON_GRP',l_v_message_text);
567: fnd_file.put_line(fnd_file.log,fnd_message.get);
568:
569: IF NOT l_b_return_val THEN
562: END IF;
563: CLOSE c_check_prsn_grp;
564:
565: fnd_message.set_name('IGS','IGS_FI_PERSON_GROUP');
566: fnd_message.set_token('PERSON_GRP',l_v_message_text);
567: fnd_file.put_line(fnd_file.log,fnd_message.get);
568:
569: IF NOT l_b_return_val THEN
570: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
563: CLOSE c_check_prsn_grp;
564:
565: fnd_message.set_name('IGS','IGS_FI_PERSON_GROUP');
566: fnd_message.set_token('PERSON_GRP',l_v_message_text);
567: fnd_file.put_line(fnd_file.log,fnd_message.get);
568:
569: IF NOT l_b_return_val THEN
570: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
571: fnd_message.set_token('PARAMETER','P_N_PERSON_ID_GRP');
566: fnd_message.set_token('PERSON_GRP',l_v_message_text);
567: fnd_file.put_line(fnd_file.log,fnd_message.get);
568:
569: IF NOT l_b_return_val THEN
570: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
571: fnd_message.set_token('PARAMETER','P_N_PERSON_ID_GRP');
572: fnd_file.put_line(fnd_file.log,fnd_message.get);
573: END IF;
574: RETURN l_b_return_val;
567: fnd_file.put_line(fnd_file.log,fnd_message.get);
568:
569: IF NOT l_b_return_val THEN
570: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
571: fnd_message.set_token('PARAMETER','P_N_PERSON_ID_GRP');
572: fnd_file.put_line(fnd_file.log,fnd_message.get);
573: END IF;
574: RETURN l_b_return_val;
575: END validate_person_grp;
568:
569: IF NOT l_b_return_val THEN
570: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
571: fnd_message.set_token('PARAMETER','P_N_PERSON_ID_GRP');
572: fnd_file.put_line(fnd_file.log,fnd_message.get);
573: END IF;
574: RETURN l_b_return_val;
575: END validate_person_grp;
576:
619: END IF;
620: CLOSE c_cal_inst;
621: END IF;
622:
623: fnd_message.set_name('IGS','IGS_FI_TERM');
624: fnd_message.set_token('TERM',l_c_message_text);
625: fnd_file.put_line(fnd_file.log, fnd_message.get);
626:
627: IF NOT l_b_ret_status THEN
620: CLOSE c_cal_inst;
621: END IF;
622:
623: fnd_message.set_name('IGS','IGS_FI_TERM');
624: fnd_message.set_token('TERM',l_c_message_text);
625: fnd_file.put_line(fnd_file.log, fnd_message.get);
626:
627: IF NOT l_b_ret_status THEN
628: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
621: END IF;
622:
623: fnd_message.set_name('IGS','IGS_FI_TERM');
624: fnd_message.set_token('TERM',l_c_message_text);
625: fnd_file.put_line(fnd_file.log, fnd_message.get);
626:
627: IF NOT l_b_ret_status THEN
628: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
629: fnd_message.set_token('PARAMETER','P_C_TERM_CAL_INST');
624: fnd_message.set_token('TERM',l_c_message_text);
625: fnd_file.put_line(fnd_file.log, fnd_message.get);
626:
627: IF NOT l_b_ret_status THEN
628: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
629: fnd_message.set_token('PARAMETER','P_C_TERM_CAL_INST');
630: fnd_file.put_line(fnd_file.log,fnd_message.get);
631: END IF;
632:
625: fnd_file.put_line(fnd_file.log, fnd_message.get);
626:
627: IF NOT l_b_ret_status THEN
628: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
629: fnd_message.set_token('PARAMETER','P_C_TERM_CAL_INST');
630: fnd_file.put_line(fnd_file.log,fnd_message.get);
631: END IF;
632:
633: RETURN l_b_ret_status;
626:
627: IF NOT l_b_ret_status THEN
628: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
629: fnd_message.set_token('PARAMETER','P_C_TERM_CAL_INST');
630: fnd_file.put_line(fnd_file.log,fnd_message.get);
631: END IF;
632:
633: RETURN l_b_ret_status;
634: END validate_term_cal_inst;
675: p_b_ret_status := TRUE;
676: END IF;
677: END IF;
678: -- when no errors are encountered then return TRUE
679: fnd_message.set_name('IGS','IGS_FI_GL_DATE');
680: fnd_message.set_token('GL_DATE',l_v_message_text);
681: fnd_file.put_line(fnd_file.log,fnd_message.get);
682: END validate_gl_date;
683:
676: END IF;
677: END IF;
678: -- when no errors are encountered then return TRUE
679: fnd_message.set_name('IGS','IGS_FI_GL_DATE');
680: fnd_message.set_token('GL_DATE',l_v_message_text);
681: fnd_file.put_line(fnd_file.log,fnd_message.get);
682: END validate_gl_date;
683:
684: FUNCTION validate_test_mode(p_c_test_mode VARCHAR2) RETURN BOOLEAN AS
677: END IF;
678: -- when no errors are encountered then return TRUE
679: fnd_message.set_name('IGS','IGS_FI_GL_DATE');
680: fnd_message.set_token('GL_DATE',l_v_message_text);
681: fnd_file.put_line(fnd_file.log,fnd_message.get);
682: END validate_gl_date;
683:
684: FUNCTION validate_test_mode(p_c_test_mode VARCHAR2) RETURN BOOLEAN AS
685: /******************************************************************
704: l_v_message_text := igs_fi_gen_gl.get_lkp_meaning('YES_NO',p_c_test_mode);
705: l_b_return_val := TRUE;
706: END IF;
707:
708: fnd_message.set_name('IGS','IGS_FI_TEST_MODE');
709: fnd_message.set_token('TEST_MODE',l_v_message_text);
710: fnd_file.put_line(fnd_file.log,fnd_message.get);
711:
712: IF NOT l_b_return_val THEN
705: l_b_return_val := TRUE;
706: END IF;
707:
708: fnd_message.set_name('IGS','IGS_FI_TEST_MODE');
709: fnd_message.set_token('TEST_MODE',l_v_message_text);
710: fnd_file.put_line(fnd_file.log,fnd_message.get);
711:
712: IF NOT l_b_return_val THEN
713: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
706: END IF;
707:
708: fnd_message.set_name('IGS','IGS_FI_TEST_MODE');
709: fnd_message.set_token('TEST_MODE',l_v_message_text);
710: fnd_file.put_line(fnd_file.log,fnd_message.get);
711:
712: IF NOT l_b_return_val THEN
713: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
714: fnd_message.set_token('PARAMETER','P_C_TEST_MODE');
709: fnd_message.set_token('TEST_MODE',l_v_message_text);
710: fnd_file.put_line(fnd_file.log,fnd_message.get);
711:
712: IF NOT l_b_return_val THEN
713: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
714: fnd_message.set_token('PARAMETER','P_C_TEST_MODE');
715: fnd_file.put_line(fnd_file.log,fnd_message.get);
716: END IF;
717: RETURN l_b_return_val;
710: fnd_file.put_line(fnd_file.log,fnd_message.get);
711:
712: IF NOT l_b_return_val THEN
713: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
714: fnd_message.set_token('PARAMETER','P_C_TEST_MODE');
715: fnd_file.put_line(fnd_file.log,fnd_message.get);
716: END IF;
717: RETURN l_b_return_val;
718: END validate_test_mode;
711:
712: IF NOT l_b_return_val THEN
713: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
714: fnd_message.set_token('PARAMETER','P_C_TEST_MODE');
715: fnd_file.put_line(fnd_file.log,fnd_message.get);
716: END IF;
717: RETURN l_b_return_val;
718: END validate_test_mode;
719:
743: l_c_message_name fnd_new_messages.message_name%TYPE;
744:
745: BEGIN
746:
747: fnd_message.set_name('IGS','IGS_FI_PROCESS_PARAM');
748: fnd_file.put_line(fnd_file.log,fnd_message.get);
749: fnd_file.put_line(fnd_file.log,RPAD('-',77,'-'));
750: fnd_file.new_line(fnd_file.log);
751:
744:
745: BEGIN
746:
747: fnd_message.set_name('IGS','IGS_FI_PROCESS_PARAM');
748: fnd_file.put_line(fnd_file.log,fnd_message.get);
749: fnd_file.put_line(fnd_file.log,RPAD('-',77,'-'));
750: fnd_file.new_line(fnd_file.log);
751:
752: -- Check if the Credit Class that is provided is a valid Credit Class
803: IF NOT l_b_temp THEN
804: p_b_ret_status := FALSE;
805: IF l_c_message_name IS NOT NULL THEN
806: IF l_c_message_name = 'IGS_FI_INVALID_GL_DATE' THEN
807: fnd_message.set_name('IGS','IGS_FI_INVALID_GL_DATE');
808: fnd_message.set_token('GL_DATE',p_rec_input_param.gl_date);
809: ELSE
810: fnd_message.set_name('IGS',l_c_message_name);
811: END IF;
804: p_b_ret_status := FALSE;
805: IF l_c_message_name IS NOT NULL THEN
806: IF l_c_message_name = 'IGS_FI_INVALID_GL_DATE' THEN
807: fnd_message.set_name('IGS','IGS_FI_INVALID_GL_DATE');
808: fnd_message.set_token('GL_DATE',p_rec_input_param.gl_date);
809: ELSE
810: fnd_message.set_name('IGS',l_c_message_name);
811: END IF;
812: END IF;
806: IF l_c_message_name = 'IGS_FI_INVALID_GL_DATE' THEN
807: fnd_message.set_name('IGS','IGS_FI_INVALID_GL_DATE');
808: fnd_message.set_token('GL_DATE',p_rec_input_param.gl_date);
809: ELSE
810: fnd_message.set_name('IGS',l_c_message_name);
811: END IF;
812: END IF;
813: END IF;
814:
812: END IF;
813: END IF;
814:
815: fnd_file.new_line(fnd_file.log);
816: fnd_file.put_line(fnd_file.log,fnd_message.get);
817: fnd_file.put_line(fnd_file.log,RPAD('-',77,'-'));
818: fnd_file.new_line(fnd_file.log);
819:
820: -- Check if the mandatory parameters are provided abort the process they are not provided
818: fnd_file.new_line(fnd_file.log);
819:
820: -- Check if the mandatory parameters are provided abort the process they are not provided
821: IF (p_rec_input_param.credit_class IS NULL OR p_rec_input_param.test_mode IS NULL OR p_rec_input_param.gl_date IS NULL) THEN
822: fnd_message.set_name('IGS','IGS_UC_NO_MANDATORY_PARAMS');
823: fnd_file.put_line(fnd_file.log, fnd_message.get);
824: p_b_ret_status := FALSE;
825: END IF;
826:
819:
820: -- Check if the mandatory parameters are provided abort the process they are not provided
821: IF (p_rec_input_param.credit_class IS NULL OR p_rec_input_param.test_mode IS NULL OR p_rec_input_param.gl_date IS NULL) THEN
822: fnd_message.set_name('IGS','IGS_UC_NO_MANDATORY_PARAMS');
823: fnd_file.put_line(fnd_file.log, fnd_message.get);
824: p_b_ret_status := FALSE;
825: END IF;
826:
827: -- Either Person Id or Person Id Group has to be provided both cannot be provided
825: END IF;
826:
827: -- Either Person Id or Person Id Group has to be provided both cannot be provided
828: IF (p_n_person_id IS NOT NULL AND p_n_person_id_grp IS NOT NULL) THEN
829: fnd_message.set_name('IGS','IGS_FI_PRS_OR_PRSIDGRP');
830: fnd_file.put_line(fnd_file.log, fnd_message.get);
831: p_b_ret_status := FALSE;
832: END IF;
833:
826:
827: -- Either Person Id or Person Id Group has to be provided both cannot be provided
828: IF (p_n_person_id IS NOT NULL AND p_n_person_id_grp IS NOT NULL) THEN
829: fnd_message.set_name('IGS','IGS_FI_PRS_OR_PRSIDGRP');
830: fnd_file.put_line(fnd_file.log, fnd_message.get);
831: p_b_ret_status := FALSE;
832: END IF;
833:
834: -- Either Person Id or Person Id Group has to be provided both cannot be null
832: END IF;
833:
834: -- Either Person Id or Person Id Group has to be provided both cannot be null
835: IF (p_n_person_id IS NULL AND p_n_person_id_grp IS NULL) THEN
836: fnd_message.set_name('IGS','IGS_FI_PRS_PRSIDGRP_NULL');
837: fnd_file.put_line(fnd_file.log, fnd_message.get);
838: p_b_ret_status := FALSE;
839: END IF;
840:
833:
834: -- Either Person Id or Person Id Group has to be provided both cannot be null
835: IF (p_n_person_id IS NULL AND p_n_person_id_grp IS NULL) THEN
836: fnd_message.set_name('IGS','IGS_FI_PRS_PRSIDGRP_NULL');
837: fnd_file.put_line(fnd_file.log, fnd_message.get);
838: p_b_ret_status := FALSE;
839: END IF;
840:
841: -- If the Credit Class provided is ENRDEPOSIT then the term calendar should be mandatory.
845: OR
846: p_rec_input_param.load_cal_seq_num IS NULL
847: )
848: )) THEN
849: fnd_message.set_name('IGS','IGS_FI_DP_TERM_REQD');
850: fnd_file.put_line(fnd_file.log, fnd_message.get);
851: p_b_ret_status := FALSE;
852: END IF;
853: END validate_log_parameters;
846: p_rec_input_param.load_cal_seq_num IS NULL
847: )
848: )) THEN
849: fnd_message.set_name('IGS','IGS_FI_DP_TERM_REQD');
850: fnd_file.put_line(fnd_file.log, fnd_message.get);
851: p_b_ret_status := FALSE;
852: END IF;
853: END validate_log_parameters;
854:
1501: igs_fi_com_rec_interface.chk_manage_account( p_v_manage_acc => l_v_manage_acc,
1502: p_v_message_name => l_c_message_name
1503: );
1504: IF (l_v_manage_acc = 'OTHER') OR (l_v_manage_acc IS NULL) THEN
1505: fnd_message.set_name('IGS',l_c_message_name);
1506: fnd_file.put_line(fnd_file.log,fnd_message.get());
1507: fnd_file.new_line(fnd_file.log);
1508: RAISE do_nothing;
1509: END IF;
1502: p_v_message_name => l_c_message_name
1503: );
1504: IF (l_v_manage_acc = 'OTHER') OR (l_v_manage_acc IS NULL) THEN
1505: fnd_message.set_name('IGS',l_c_message_name);
1506: fnd_file.put_line(fnd_file.log,fnd_message.get());
1507: fnd_file.new_line(fnd_file.log);
1508: RAISE do_nothing;
1509: END IF;
1510:
1542: p_cal_category => 'LOAD',
1543: p_ret_cal_type => l_c_fee_cal_type,
1544: p_ret_ci_sequence_number => l_n_fee_ci_seq_num,
1545: p_message_name => l_c_message_name)) THEN
1546: fnd_message.set_name('IGS',l_c_message_name);
1547: fnd_file.put_line(fnd_file.log, fnd_message.get);
1548: RAISE do_nothing;
1549: END IF;
1550: END IF;
1543: p_ret_cal_type => l_c_fee_cal_type,
1544: p_ret_ci_sequence_number => l_n_fee_ci_seq_num,
1545: p_message_name => l_c_message_name)) THEN
1546: fnd_message.set_name('IGS',l_c_message_name);
1547: fnd_file.put_line(fnd_file.log, fnd_message.get);
1548: RAISE do_nothing;
1549: END IF;
1550: END IF;
1551: EXCEPTION
1570: IF (l_rec_input_param.test_mode='N') THEN
1571: COMMIT;
1572: ELSE
1573: ROLLBACK;
1574: fnd_message.set_name('IGF', 'IGF_SP_TEST_MODE');
1575: fnd_file.put_line(fnd_file.log, fnd_message.get);
1576: END IF;
1577:
1578:
1571: COMMIT;
1572: ELSE
1573: ROLLBACK;
1574: fnd_message.set_name('IGF', 'IGF_SP_TEST_MODE');
1575: fnd_file.put_line(fnd_file.log, fnd_message.get);
1576: END IF;
1577:
1578:
1579: EXCEPTION
1581: retcode :=2;
1582:
1583: WHEN OTHERS THEN
1584: retcode := 2;
1585: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
1586: errbuf := fnd_message.get;
1587: fnd_file.put_line(fnd_file.log,sqlerrm);
1588: igs_ge_msg_stack.conc_exception_hndl;
1589: END prc_stdnt_deposit;
1582:
1583: WHEN OTHERS THEN
1584: retcode := 2;
1585: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXCEPTION');
1586: errbuf := fnd_message.get;
1587: fnd_file.put_line(fnd_file.log,sqlerrm);
1588: igs_ge_msg_stack.conc_exception_hndl;
1589: END prc_stdnt_deposit;
1590: