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);
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');
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);
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);
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,'-'));
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,'-'));
389: fnd_file.new_line(fnd_file.log);
390:
391: END generate_log;
392:
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,'-'));
389: fnd_file.new_line(fnd_file.log);
390:
391: END generate_log;
392:
393: FUNCTION validate_credit_type(p_c_credit_type_id igs_fi_cr_types.credit_type_id%TYPE,
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');
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;
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');
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;
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');
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;
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');
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:
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');
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;
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: /******************************************************************
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');
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:
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
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
753: IF NOT validate_credit_class(p_rec_input_param.credit_class) THEN
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
753: IF NOT validate_credit_class(p_rec_input_param.credit_class) THEN
754: l_b_temp := FALSE;
811: END IF;
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:
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
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
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
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
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');
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
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
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.
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:
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:
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:
1511: IF (p_c_term_cal_inst IS NOT NULL) THEN
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
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
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:
1591: END igs_fi_prc_stdnt_dpsts;