66:
67: ******************************************************************/
68: BEGIN
69: -- Seperator: ------------
70: fnd_message.set_name('IGS','IGS_FI_END_DATE');
71: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
72: fnd_msg_pub.add;
73: -- Person Number:
74: fnd_message.set_name('IGS','IGS_FI_END_DATE');
67: ******************************************************************/
68: BEGIN
69: -- Seperator: ------------
70: fnd_message.set_name('IGS','IGS_FI_END_DATE');
71: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
72: fnd_msg_pub.add;
73: -- Person Number:
74: fnd_message.set_name('IGS','IGS_FI_END_DATE');
75: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||p_v_person_number);
70: fnd_message.set_name('IGS','IGS_FI_END_DATE');
71: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
72: fnd_msg_pub.add;
73: -- Person Number:
74: fnd_message.set_name('IGS','IGS_FI_END_DATE');
75: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||p_v_person_number);
76: fnd_msg_pub.add;
77: --Logging Fee Assessment Period.
78: fnd_message.set_name('IGS','IGS_FI_END_DATE');
71: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
72: fnd_msg_pub.add;
73: -- Person Number:
74: fnd_message.set_name('IGS','IGS_FI_END_DATE');
75: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||p_v_person_number);
76: fnd_msg_pub.add;
77: --Logging Fee Assessment Period.
78: fnd_message.set_name('IGS','IGS_FI_END_DATE');
79: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '|| p_v_fee_period );
74: fnd_message.set_name('IGS','IGS_FI_END_DATE');
75: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||p_v_person_number);
76: fnd_msg_pub.add;
77: --Logging Fee Assessment Period.
78: fnd_message.set_name('IGS','IGS_FI_END_DATE');
79: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '|| p_v_fee_period );
80: fnd_msg_pub.add;
81: -- Unit Section:
82: fnd_message.set_name('IGS','IGS_FI_END_DATE');
75: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||p_v_person_number);
76: fnd_msg_pub.add;
77: --Logging Fee Assessment Period.
78: fnd_message.set_name('IGS','IGS_FI_END_DATE');
79: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '|| p_v_fee_period );
80: fnd_msg_pub.add;
81: -- Unit Section:
82: fnd_message.set_name('IGS','IGS_FI_END_DATE');
83: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','USEC')||': '||p_v_unit_section_desc);
78: fnd_message.set_name('IGS','IGS_FI_END_DATE');
79: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '|| p_v_fee_period );
80: fnd_msg_pub.add;
81: -- Unit Section:
82: fnd_message.set_name('IGS','IGS_FI_END_DATE');
83: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','USEC')||': '||p_v_unit_section_desc);
84: fnd_msg_pub.add;
85: -- Fee Type:
86: IF p_v_fee_type IS NOT NULL THEN
79: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '|| p_v_fee_period );
80: fnd_msg_pub.add;
81: -- Unit Section:
82: fnd_message.set_name('IGS','IGS_FI_END_DATE');
83: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','USEC')||': '||p_v_unit_section_desc);
84: fnd_msg_pub.add;
85: -- Fee Type:
86: IF p_v_fee_type IS NOT NULL THEN
87: fnd_message.set_name('IGS','IGS_FI_END_DATE');
83: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','USEC')||': '||p_v_unit_section_desc);
84: fnd_msg_pub.add;
85: -- Fee Type:
86: IF p_v_fee_type IS NOT NULL THEN
87: fnd_message.set_name('IGS','IGS_FI_END_DATE');
88: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_TYPE')||': '||p_v_fee_type);
89: fnd_msg_pub.add;
90: END IF;
91: END log_details;
84: fnd_msg_pub.add;
85: -- Fee Type:
86: IF p_v_fee_type IS NOT NULL THEN
87: fnd_message.set_name('IGS','IGS_FI_END_DATE');
88: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_TYPE')||': '||p_v_fee_type);
89: fnd_msg_pub.add;
90: END IF;
91: END log_details;
92:
410: (p_v_fee_cal_type IS NULL) OR (p_n_fee_ci_sequence_number IS NULL) OR
411: (p_v_load_cal_type IS NULL) OR (p_n_load_ci_sequence_number IS NULL) OR
412: (p_d_gl_date IS NULL) OR (p_b_log_messages IS NULL) THEN
413: IF p_b_log_messages THEN
414: fnd_message.set_name('IGS','IGS_FI_PARAMETER_NULL');
415: fnd_msg_pub.add;
416: END IF;
417: RAISE e_expected_error;
418: END IF;
427: p_v_curr_desc => l_v_currency_desc,
428: p_v_message_name => l_v_message_name);
429: IF l_v_message_name IS NOT NULL THEN
430: IF p_b_log_messages THEN
431: fnd_message.set_name('IGS',l_v_message_name);
432: fnd_msg_pub.add;
433: END IF;
434: RAISE e_expected_error;
435: END IF;
556: IF (l_b_chg_decl_rev) THEN
557: -- Charge is reversed or declined. skip the record
558: IF p_b_log_messages THEN
559: -- Message that the fee has been declined, so no further processing would happen
560: fnd_message.set_name('IGS','IGS_FI_SP_FEE_DECLINED');
561: fnd_message.set_token('INVOICE_NUM',l_v_invoice_number);
562: fnd_msg_pub.add;
563: END IF;
564: ELSE
557: -- Charge is reversed or declined. skip the record
558: IF p_b_log_messages THEN
559: -- Message that the fee has been declined, so no further processing would happen
560: fnd_message.set_name('IGS','IGS_FI_SP_FEE_DECLINED');
561: fnd_message.set_token('INVOICE_NUM',l_v_invoice_number);
562: fnd_msg_pub.add;
563: END IF;
564: ELSE
565: -- Charge not reversed or declined.
632: p_n_invoice_id => l_n_invoice_id,
633: p_v_ret_status => l_v_ret_status);
634: IF l_v_ret_status <> 'S' THEN
635: -- Message that no transactions have been carried out due to some error
636: fnd_message.set_name('IGS','IGS_FI_SP_NO_CHARGE');
637: fnd_message.set_token('PERSON_NUMBER',p_v_person_number);
638: fnd_msg_pub.add;
639: RAISE e_expected_error;
640: END IF;
633: p_v_ret_status => l_v_ret_status);
634: IF l_v_ret_status <> 'S' THEN
635: -- Message that no transactions have been carried out due to some error
636: fnd_message.set_name('IGS','IGS_FI_SP_NO_CHARGE');
637: fnd_message.set_token('PERSON_NUMBER',p_v_person_number);
638: fnd_msg_pub.add;
639: RAISE e_expected_error;
640: END IF;
641:
685: p_v_ret_status => l_v_ret_status
686: );
687: IF l_v_ret_status <> 'S' THEN
688: -- Message that no transactions have been carried out due to some error
689: fnd_message.set_name('IGS','IGS_FI_SP_NO_CHARGE');
690: fnd_message.set_token('PERSON_NUMBER',p_v_person_number);
691: fnd_msg_pub.add;
692: RAISE e_expected_error;
693: END IF;
686: );
687: IF l_v_ret_status <> 'S' THEN
688: -- Message that no transactions have been carried out due to some error
689: fnd_message.set_name('IGS','IGS_FI_SP_NO_CHARGE');
690: fnd_message.set_token('PERSON_NUMBER',p_v_person_number);
691: fnd_msg_pub.add;
692: RAISE e_expected_error;
693: END IF;
694:
714: -- Log messages for any creation/reversal of charges
715: IF p_b_log_messages THEN
716: IF l_n_net_amount > 0.0 THEN
717: -- Message that a new charge has been created
718: fnd_message.set_name('IGS','IGS_FI_SPECIAL_FEE_CREATED');
719: fnd_message.set_token('INVOICE_NUMBER',igs_fi_gen_008.get_invoice_number(l_n_invoice_id));
720: fnd_message.set_token('AMT',l_n_net_amount);
721: fnd_msg_pub.add;
722: ELSIF l_n_net_amount < 0.0 THEN
715: IF p_b_log_messages THEN
716: IF l_n_net_amount > 0.0 THEN
717: -- Message that a new charge has been created
718: fnd_message.set_name('IGS','IGS_FI_SPECIAL_FEE_CREATED');
719: fnd_message.set_token('INVOICE_NUMBER',igs_fi_gen_008.get_invoice_number(l_n_invoice_id));
720: fnd_message.set_token('AMT',l_n_net_amount);
721: fnd_msg_pub.add;
722: ELSIF l_n_net_amount < 0.0 THEN
723: -- Message that the charge has been reversed
716: IF l_n_net_amount > 0.0 THEN
717: -- Message that a new charge has been created
718: fnd_message.set_name('IGS','IGS_FI_SPECIAL_FEE_CREATED');
719: fnd_message.set_token('INVOICE_NUMBER',igs_fi_gen_008.get_invoice_number(l_n_invoice_id));
720: fnd_message.set_token('AMT',l_n_net_amount);
721: fnd_msg_pub.add;
722: ELSIF l_n_net_amount < 0.0 THEN
723: -- Message that the charge has been reversed
724: fnd_message.set_name('IGS','IGS_FI_SPECIAL_FEE_REVERSED');
720: fnd_message.set_token('AMT',l_n_net_amount);
721: fnd_msg_pub.add;
722: ELSIF l_n_net_amount < 0.0 THEN
723: -- Message that the charge has been reversed
724: fnd_message.set_name('IGS','IGS_FI_SPECIAL_FEE_REVERSED');
725: fnd_message.set_token('INVOICE_NUMBER',igs_fi_gen_008.get_invoice_number(l_sp_fees_tbl(l_n_tbl_cnt).invoice_id));
726: fnd_message.set_token('AMT',l_sp_fees_tbl(l_n_tbl_cnt).old_amount);
727: fnd_msg_pub.add;
728: IF l_n_retention_amt > 0.0 THEN
721: fnd_msg_pub.add;
722: ELSIF l_n_net_amount < 0.0 THEN
723: -- Message that the charge has been reversed
724: fnd_message.set_name('IGS','IGS_FI_SPECIAL_FEE_REVERSED');
725: fnd_message.set_token('INVOICE_NUMBER',igs_fi_gen_008.get_invoice_number(l_sp_fees_tbl(l_n_tbl_cnt).invoice_id));
726: fnd_message.set_token('AMT',l_sp_fees_tbl(l_n_tbl_cnt).old_amount);
727: fnd_msg_pub.add;
728: IF l_n_retention_amt > 0.0 THEN
729: -- Message that a retention charge has been created
722: ELSIF l_n_net_amount < 0.0 THEN
723: -- Message that the charge has been reversed
724: fnd_message.set_name('IGS','IGS_FI_SPECIAL_FEE_REVERSED');
725: fnd_message.set_token('INVOICE_NUMBER',igs_fi_gen_008.get_invoice_number(l_sp_fees_tbl(l_n_tbl_cnt).invoice_id));
726: fnd_message.set_token('AMT',l_sp_fees_tbl(l_n_tbl_cnt).old_amount);
727: fnd_msg_pub.add;
728: IF l_n_retention_amt > 0.0 THEN
729: -- Message that a retention charge has been created
730: fnd_message.set_name('IGS','IGS_FI_RET_TRANSACTION_AMT');
726: fnd_message.set_token('AMT',l_sp_fees_tbl(l_n_tbl_cnt).old_amount);
727: fnd_msg_pub.add;
728: IF l_n_retention_amt > 0.0 THEN
729: -- Message that a retention charge has been created
730: fnd_message.set_name('IGS','IGS_FI_RET_TRANSACTION_AMT');
731: fnd_message.set_token('AMOUNT',l_n_retention_amt);
732: fnd_msg_pub.add;
733: END IF;
734: END IF; -- End of check for l_n_net_amount
727: fnd_msg_pub.add;
728: IF l_n_retention_amt > 0.0 THEN
729: -- Message that a retention charge has been created
730: fnd_message.set_name('IGS','IGS_FI_RET_TRANSACTION_AMT');
731: fnd_message.set_token('AMOUNT',l_n_retention_amt);
732: fnd_msg_pub.add;
733: END IF;
734: END IF; -- End of check for l_n_net_amount
735: END IF; -- End of log_messages = 'TRUE'
736:
737: ELSE
738: IF p_b_log_messages THEN
739: -- Message that there is no change in the charge amount
740: fnd_message.set_name('IGS','IGS_FI_SP_FEE_NO_CHANGE');
741: fnd_msg_pub.add;
742: END IF;
743: END IF; -- End for net_amount <> 0
744:
753: log_details(p_v_person_number => p_v_person_number,
754: p_v_fee_period => p_v_fee_period,
755: p_v_unit_section_desc => l_v_unit_section_desc,
756: p_v_fee_type => NULL);
757: fnd_message.set_name('IGF', 'IGF_AP_NO_DATA_FOUND');
758: fnd_msg_pub.add;
759: END IF;
760: END IF; -- End for tbl count > 0
761:
768: x_return_status := 'E';
769: -- If FND logging is enabled, then send message to the FND log table
770: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
771:
772: -- Get the message from fnd_msg_pub and put it onto fnd_message stack so that it is logged in fnd_log_messages.
773: fnd_msg_pub.count_and_get(p_count => x_msg_count,
774: p_data => x_msg_data);
775: IF (x_msg_count = 1) THEN
776: fnd_message.set_encoded(x_msg_data);
772: -- Get the message from fnd_msg_pub and put it onto fnd_message stack so that it is logged in fnd_log_messages.
773: fnd_msg_pub.count_and_get(p_count => x_msg_count,
774: p_data => x_msg_data);
775: IF (x_msg_count = 1) THEN
776: fnd_message.set_encoded(x_msg_data);
777: ELSIF (x_msg_count > 1) THEN
778: x_msg_data := fnd_msg_pub.get(p_msg_index=>fnd_msg_pub.G_LAST);
779: fnd_message.set_encoded(x_msg_data);
780: END IF;
775: IF (x_msg_count = 1) THEN
776: fnd_message.set_encoded(x_msg_data);
777: ELSIF (x_msg_count > 1) THEN
778: x_msg_data := fnd_msg_pub.get(p_msg_index=>fnd_msg_pub.G_LAST);
779: fnd_message.set_encoded(x_msg_data);
780: END IF;
781:
782: -- Log message in FND tables, but do not pop the message from the Stack, hence pass False
783: fnd_log.message(fnd_log.level_error, 'igs.patch.115.sql.igs_fi_prc_sp_fees.assess_fees_pvt',FALSE);
789: ROLLBACK;
790: x_return_status := 'U';
791: -- If FND logging is enabled, log message as Unexpected error
792: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
793: -- Get the message from fnd_msg_pub and put it onto fnd_message stack so that it is logged in fnd_log_messages.
794: fnd_msg_pub.count_and_get(p_count => x_msg_count,
795: p_data => x_msg_data);
796: IF (x_msg_count = 1) THEN
797: fnd_message.set_encoded(x_msg_data);
793: -- Get the message from fnd_msg_pub and put it onto fnd_message stack so that it is logged in fnd_log_messages.
794: fnd_msg_pub.count_and_get(p_count => x_msg_count,
795: p_data => x_msg_data);
796: IF (x_msg_count = 1) THEN
797: fnd_message.set_encoded(x_msg_data);
798: ELSIF (x_msg_count > 1) THEN
799: x_msg_data := fnd_msg_pub.get(p_msg_index=>fnd_msg_pub.G_LAST);
800: fnd_message.set_encoded(x_msg_data);
801: END IF;
796: IF (x_msg_count = 1) THEN
797: fnd_message.set_encoded(x_msg_data);
798: ELSIF (x_msg_count > 1) THEN
799: x_msg_data := fnd_msg_pub.get(p_msg_index=>fnd_msg_pub.G_LAST);
800: fnd_message.set_encoded(x_msg_data);
801: END IF;
802: fnd_log.message(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_fi_prc_sp_fees.assess_fees_pvt',FALSE);
803: fnd_log.string(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_fi_prc_sp_fees.assess_fees_pvt',SQLERRM);
804: ELSE
874: IF (p_n_person_id IS NOT NULL) THEN
875: OPEN c_person_id(p_n_person_id);
876: FETCH c_person_id INTO l_person_id;
877: IF c_person_id%NOTFOUND THEN
878: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
879: fnd_message.set_token('PARAMETER',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON'));
880: fnd_file.put_line(fnd_file.log,fnd_message.get);
881: l_b_parameter_val_status := FALSE;
882: END IF;
875: OPEN c_person_id(p_n_person_id);
876: FETCH c_person_id INTO l_person_id;
877: IF c_person_id%NOTFOUND THEN
878: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
879: fnd_message.set_token('PARAMETER',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON'));
880: fnd_file.put_line(fnd_file.log,fnd_message.get);
881: l_b_parameter_val_status := FALSE;
882: END IF;
883: CLOSE c_person_id;
876: FETCH c_person_id INTO l_person_id;
877: IF c_person_id%NOTFOUND THEN
878: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
879: fnd_message.set_token('PARAMETER',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON'));
880: fnd_file.put_line(fnd_file.log,fnd_message.get);
881: l_b_parameter_val_status := FALSE;
882: END IF;
883: CLOSE c_person_id;
884: END IF;
888: IF (p_n_person_grp_id IS NOT NULL) THEN
889: OPEN c_person_grp_id(p_n_person_grp_id);
890: FETCH c_person_grp_id INTO l_person_grp_id;
891: IF c_person_grp_id%NOTFOUND THEN
892: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
893: fnd_message.set_token('PARAMETER',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON_GROUP'));
894: fnd_file.put_line(fnd_file.log,fnd_message.get);
895: l_b_parameter_val_status := FALSE;
896: END IF;
889: OPEN c_person_grp_id(p_n_person_grp_id);
890: FETCH c_person_grp_id INTO l_person_grp_id;
891: IF c_person_grp_id%NOTFOUND THEN
892: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
893: fnd_message.set_token('PARAMETER',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON_GROUP'));
894: fnd_file.put_line(fnd_file.log,fnd_message.get);
895: l_b_parameter_val_status := FALSE;
896: END IF;
897: CLOSE c_person_grp_id;
890: FETCH c_person_grp_id INTO l_person_grp_id;
891: IF c_person_grp_id%NOTFOUND THEN
892: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
893: fnd_message.set_token('PARAMETER',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON_GROUP'));
894: fnd_file.put_line(fnd_file.log,fnd_message.get);
895: l_b_parameter_val_status := FALSE;
896: END IF;
897: CLOSE c_person_grp_id;
898: END IF;
912: p_n_ld_ci_sequence_number => l_n_ld_ci_sequence_number ,
913: p_v_message_name => l_v_message_name ,
914: p_b_return_stat =>l_b_return_stat);
915: IF NOT l_b_return_stat THEN
916: fnd_message.set_name('IGS',l_v_message_name);
917: fnd_file.put_line(fnd_file.log,fnd_message.get);
918: l_b_parameter_val_status := FALSE;
919: END IF;
920: ELSE
913: p_v_message_name => l_v_message_name ,
914: p_b_return_stat =>l_b_return_stat);
915: IF NOT l_b_return_stat THEN
916: fnd_message.set_name('IGS',l_v_message_name);
917: fnd_file.put_line(fnd_file.log,fnd_message.get);
918: l_b_parameter_val_status := FALSE;
919: END IF;
920: ELSE
921: -- The Message 'Invalid Fee Period Parameters Passed To The Process.' Is Logged If
919: END IF;
920: ELSE
921: -- The Message 'Invalid Fee Period Parameters Passed To The Process.' Is Logged If
922: -- The Function Returns False.
923: fnd_message.set_name('IGS','IGS_FI_FCI_NOTFOUND');
924: fnd_file.put_line(fnd_file.log,fnd_message.get);
925: l_b_parameter_val_status := FALSE;
926: END IF;
927: END IF; -- end of p_v_fee_period validation
920: ELSE
921: -- The Message 'Invalid Fee Period Parameters Passed To The Process.' Is Logged If
922: -- The Function Returns False.
923: fnd_message.set_name('IGS','IGS_FI_FCI_NOTFOUND');
924: fnd_file.put_line(fnd_file.log,fnd_message.get);
925: l_b_parameter_val_status := FALSE;
926: END IF;
927: END IF; -- end of p_v_fee_period validation
928:
927: END IF; -- end of p_v_fee_period validation
928:
929: -- To Validate The Parameter Test Run
930: IF (p_v_test_run IS NULL) OR (p_d_gl_date IS NULL ) THEN
931: fnd_message.set_name('IGS','IGS_UC_NO_MANDATORY_PARAMS');
932: fnd_file.put_line(fnd_file.log,fnd_message.get);
933: l_b_parameter_val_status := FALSE;
934: END IF;
935:
928:
929: -- To Validate The Parameter Test Run
930: IF (p_v_test_run IS NULL) OR (p_d_gl_date IS NULL ) THEN
931: fnd_message.set_name('IGS','IGS_UC_NO_MANDATORY_PARAMS');
932: fnd_file.put_line(fnd_file.log,fnd_message.get);
933: l_b_parameter_val_status := FALSE;
934: END IF;
935:
936: IF p_v_test_run NOT IN ('Y','N') THEN
933: l_b_parameter_val_status := FALSE;
934: END IF;
935:
936: IF p_v_test_run NOT IN ('Y','N') THEN
937: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
938: fnd_message.set_token('PARAMETER',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','TEST_RUN'));
939: fnd_file.put_line(fnd_file.log,fnd_message.get);
940: l_b_parameter_val_status := FALSE;
941: END IF;
934: END IF;
935:
936: IF p_v_test_run NOT IN ('Y','N') THEN
937: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
938: fnd_message.set_token('PARAMETER',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','TEST_RUN'));
939: fnd_file.put_line(fnd_file.log,fnd_message.get);
940: l_b_parameter_val_status := FALSE;
941: END IF;
942: -- To Validate The Parameter Gl Date
935:
936: IF p_v_test_run NOT IN ('Y','N') THEN
937: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
938: fnd_message.set_token('PARAMETER',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','TEST_RUN'));
939: fnd_file.put_line(fnd_file.log,fnd_message.get);
940: l_b_parameter_val_status := FALSE;
941: END IF;
942: -- To Validate The Parameter Gl Date
943:
944: igs_fi_gen_gl.get_period_status_for_date(p_d_date => igs_ge_date.igsdate(p_d_gl_date),
945: p_v_closing_status => l_v_closing_status,
946: p_v_message_name => l_v_message_name);
947: IF l_v_closing_status NOT IN ('O','F') THEN
948: fnd_message.set_name('IGS','IGS_FI_INVALID_GL_DATE');
949: fnd_message.set_token('GL_DATE',igs_ge_date.igsdate(p_d_gl_date));
950: fnd_file.put_line(fnd_file.log,fnd_message.get);
951: l_b_parameter_val_status := FALSE;
952: END IF;
945: p_v_closing_status => l_v_closing_status,
946: p_v_message_name => l_v_message_name);
947: IF l_v_closing_status NOT IN ('O','F') THEN
948: fnd_message.set_name('IGS','IGS_FI_INVALID_GL_DATE');
949: fnd_message.set_token('GL_DATE',igs_ge_date.igsdate(p_d_gl_date));
950: fnd_file.put_line(fnd_file.log,fnd_message.get);
951: l_b_parameter_val_status := FALSE;
952: END IF;
953:
946: p_v_message_name => l_v_message_name);
947: IF l_v_closing_status NOT IN ('O','F') THEN
948: fnd_message.set_name('IGS','IGS_FI_INVALID_GL_DATE');
949: fnd_message.set_token('GL_DATE',igs_ge_date.igsdate(p_d_gl_date));
950: fnd_file.put_line(fnd_file.log,fnd_message.get);
951: l_b_parameter_val_status := FALSE;
952: END IF;
953:
954: -- To Check Whether Both Person_id And Person Group Values Are Provided.
952: END IF;
953:
954: -- To Check Whether Both Person_id And Person Group Values Are Provided.
955: IF (p_n_person_id IS NOT NULL) AND (p_n_person_grp_id IS NOT NULL)THEN
956: fnd_message.set_name('IGS','IGS_FI_NO_PERS_PGRP');
957: fnd_file.put_line(fnd_file.log,fnd_message.get);
958: l_b_parameter_val_status := FALSE;
959: END IF;
960: --Assign The Values To The Out Parameters.
953:
954: -- To Check Whether Both Person_id And Person Group Values Are Provided.
955: IF (p_n_person_id IS NOT NULL) AND (p_n_person_grp_id IS NOT NULL)THEN
956: fnd_message.set_name('IGS','IGS_FI_NO_PERS_PGRP');
957: fnd_file.put_line(fnd_file.log,fnd_message.get);
958: l_b_parameter_val_status := FALSE;
959: END IF;
960: --Assign The Values To The Out Parameters.
961: p_v_fee_cal_type :=l_v_fee_cal_type;
1032: l_org_id := NULL;
1033: igs_ge_gen_003.set_org_id(l_org_id);
1034: EXCEPTION
1035: WHEN OTHERS THEN
1036: fnd_file.put_line (fnd_file.log, fnd_message.get);
1037: retcode:=2;
1038: RETURN;
1039: END;
1040: retcode := 0;
1040: retcode := 0;
1041: l_b_person_grp_data_found :=FALSE;
1042: --Logging of all the Parameter to the Log File.
1043: --Logging Person Number.
1044: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1045: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||igs_fi_gen_008.get_party_number(p_n_person_id));
1046: fnd_file.put_line(fnd_file.log,fnd_message.get);
1047:
1048: --Logging Person Group.
1041: l_b_person_grp_data_found :=FALSE;
1042: --Logging of all the Parameter to the Log File.
1043: --Logging Person Number.
1044: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1045: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||igs_fi_gen_008.get_party_number(p_n_person_id));
1046: fnd_file.put_line(fnd_file.log,fnd_message.get);
1047:
1048: --Logging Person Group.
1049: OPEN c_get_person_grp(p_n_person_grp_id);
1042: --Logging of all the Parameter to the Log File.
1043: --Logging Person Number.
1044: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1045: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||igs_fi_gen_008.get_party_number(p_n_person_id));
1046: fnd_file.put_line(fnd_file.log,fnd_message.get);
1047:
1048: --Logging Person Group.
1049: OPEN c_get_person_grp(p_n_person_grp_id);
1050: FETCH c_get_person_grp INTO l_c_get_person_grp;
1048: --Logging Person Group.
1049: OPEN c_get_person_grp(p_n_person_grp_id);
1050: FETCH c_get_person_grp INTO l_c_get_person_grp;
1051: CLOSE c_get_person_grp;
1052: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1053: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON_GROUP')||': '||l_c_get_person_grp.group_cd);
1054: fnd_file.put_line(fnd_file.log,fnd_message.get);
1055:
1056: --Logging Fee Assesment Period.
1049: OPEN c_get_person_grp(p_n_person_grp_id);
1050: FETCH c_get_person_grp INTO l_c_get_person_grp;
1051: CLOSE c_get_person_grp;
1052: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1053: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON_GROUP')||': '||l_c_get_person_grp.group_cd);
1054: fnd_file.put_line(fnd_file.log,fnd_message.get);
1055:
1056: --Logging Fee Assesment Period.
1057: OPEN c_get_alt_code_desc(cp_v_cal_type => RTRIM(SUBSTR(p_v_fee_period,1,10)),
1050: FETCH c_get_person_grp INTO l_c_get_person_grp;
1051: CLOSE c_get_person_grp;
1052: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1053: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON_GROUP')||': '||l_c_get_person_grp.group_cd);
1054: fnd_file.put_line(fnd_file.log,fnd_message.get);
1055:
1056: --Logging Fee Assesment Period.
1057: OPEN c_get_alt_code_desc(cp_v_cal_type => RTRIM(SUBSTR(p_v_fee_period,1,10)),
1058: cp_n_sequence_number => TO_NUMBER(RTRIM(SUBSTR(p_v_fee_period,12))));
1059: FETCH c_get_alt_code_desc INTO l_c_alt_code_desc ;
1060: CLOSE c_get_alt_code_desc;
1061: --storing the Alternate Code into the Global Variable for passing it to the assess_fees_pvt procedure
1062: g_v_alternatecode := l_c_alt_code_desc.alternate_code;
1063: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1064:
1065: IF l_c_alt_code_desc.alternate_code IS NOT NULL THEN
1066: l_v_alt_code_msg := ' ( ' || l_c_alt_code_desc.alternate_code || ' ) ';
1067: END IF;
1064:
1065: IF l_c_alt_code_desc.alternate_code IS NOT NULL THEN
1066: l_v_alt_code_msg := ' ( ' || l_c_alt_code_desc.alternate_code || ' ) ';
1067: END IF;
1068: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '||l_c_alt_code_desc.description || l_v_alt_code_msg );
1069: fnd_file.put_line(fnd_file.log,fnd_message.get);
1070: --Logging Test run.
1071: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1072: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','TEST_RUN')||': '||igs_fi_gen_gl.get_lkp_meaning('YES_NO',p_v_test_run));
1065: IF l_c_alt_code_desc.alternate_code IS NOT NULL THEN
1066: l_v_alt_code_msg := ' ( ' || l_c_alt_code_desc.alternate_code || ' ) ';
1067: END IF;
1068: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '||l_c_alt_code_desc.description || l_v_alt_code_msg );
1069: fnd_file.put_line(fnd_file.log,fnd_message.get);
1070: --Logging Test run.
1071: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1072: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','TEST_RUN')||': '||igs_fi_gen_gl.get_lkp_meaning('YES_NO',p_v_test_run));
1073: fnd_file.put_line(fnd_file.log,fnd_message.get);
1067: END IF;
1068: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '||l_c_alt_code_desc.description || l_v_alt_code_msg );
1069: fnd_file.put_line(fnd_file.log,fnd_message.get);
1070: --Logging Test run.
1071: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1072: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','TEST_RUN')||': '||igs_fi_gen_gl.get_lkp_meaning('YES_NO',p_v_test_run));
1073: fnd_file.put_line(fnd_file.log,fnd_message.get);
1074:
1075: --Logging GL Date.
1068: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '||l_c_alt_code_desc.description || l_v_alt_code_msg );
1069: fnd_file.put_line(fnd_file.log,fnd_message.get);
1070: --Logging Test run.
1071: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1072: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','TEST_RUN')||': '||igs_fi_gen_gl.get_lkp_meaning('YES_NO',p_v_test_run));
1073: fnd_file.put_line(fnd_file.log,fnd_message.get);
1074:
1075: --Logging GL Date.
1076: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1069: fnd_file.put_line(fnd_file.log,fnd_message.get);
1070: --Logging Test run.
1071: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1072: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','TEST_RUN')||': '||igs_fi_gen_gl.get_lkp_meaning('YES_NO',p_v_test_run));
1073: fnd_file.put_line(fnd_file.log,fnd_message.get);
1074:
1075: --Logging GL Date.
1076: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1077: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','GL_DATE')||': '||igs_ge_date.igsdate(p_d_gl_date));
1072: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','TEST_RUN')||': '||igs_fi_gen_gl.get_lkp_meaning('YES_NO',p_v_test_run));
1073: fnd_file.put_line(fnd_file.log,fnd_message.get);
1074:
1075: --Logging GL Date.
1076: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1077: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','GL_DATE')||': '||igs_ge_date.igsdate(p_d_gl_date));
1078: fnd_file.put_line(fnd_file.log,fnd_message.get);
1079:
1080: igs_fi_com_rec_interface.chk_manage_account(p_v_manage_acc => l_v_manage_acc,
1073: fnd_file.put_line(fnd_file.log,fnd_message.get);
1074:
1075: --Logging GL Date.
1076: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1077: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','GL_DATE')||': '||igs_ge_date.igsdate(p_d_gl_date));
1078: fnd_file.put_line(fnd_file.log,fnd_message.get);
1079:
1080: igs_fi_com_rec_interface.chk_manage_account(p_v_manage_acc => l_v_manage_acc,
1081: p_v_message_name => l_v_message_name);
1074:
1075: --Logging GL Date.
1076: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1077: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','GL_DATE')||': '||igs_ge_date.igsdate(p_d_gl_date));
1078: fnd_file.put_line(fnd_file.log,fnd_message.get);
1079:
1080: igs_fi_com_rec_interface.chk_manage_account(p_v_manage_acc => l_v_manage_acc,
1081: p_v_message_name => l_v_message_name);
1082:
1080: igs_fi_com_rec_interface.chk_manage_account(p_v_manage_acc => l_v_manage_acc,
1081: p_v_message_name => l_v_message_name);
1082:
1083: IF l_v_manage_acc IS NULL THEN
1084: fnd_message.set_name('IGS',l_v_message_name);
1085: fnd_file.put_line(fnd_file.log,fnd_message.get);
1086: retcode := 2;
1087: RETURN;
1088: END IF;
1081: p_v_message_name => l_v_message_name);
1082:
1083: IF l_v_manage_acc IS NULL THEN
1084: fnd_message.set_name('IGS',l_v_message_name);
1085: fnd_file.put_line(fnd_file.log,fnd_message.get);
1086: retcode := 2;
1087: RETURN;
1088: END IF;
1089: -- To Validate The Parameters And Log The Message.
1111: p_b_log_messages => TRUE,
1112: p_b_recs_found => l_b_recs_found,
1113: p_v_return_status => l_v_return_status);
1114: IF NOT (l_b_recs_found ) THEN
1115: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1116: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1117: fnd_file.put_line(fnd_file.log,fnd_message.get);
1118: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1119: fnd_file.put_line(fnd_file.log,fnd_message.get);
1112: p_b_recs_found => l_b_recs_found,
1113: p_v_return_status => l_v_return_status);
1114: IF NOT (l_b_recs_found ) THEN
1115: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1116: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1117: fnd_file.put_line(fnd_file.log,fnd_message.get);
1118: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1119: fnd_file.put_line(fnd_file.log,fnd_message.get);
1120: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1113: p_v_return_status => l_v_return_status);
1114: IF NOT (l_b_recs_found ) THEN
1115: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1116: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1117: fnd_file.put_line(fnd_file.log,fnd_message.get);
1118: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1119: fnd_file.put_line(fnd_file.log,fnd_message.get);
1120: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1121: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1114: IF NOT (l_b_recs_found ) THEN
1115: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1116: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1117: fnd_file.put_line(fnd_file.log,fnd_message.get);
1118: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1119: fnd_file.put_line(fnd_file.log,fnd_message.get);
1120: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1121: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1122: fnd_file.put_line(fnd_file.log,fnd_message.get);
1115: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1116: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1117: fnd_file.put_line(fnd_file.log,fnd_message.get);
1118: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1119: fnd_file.put_line(fnd_file.log,fnd_message.get);
1120: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1121: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1122: fnd_file.put_line(fnd_file.log,fnd_message.get);
1123: END IF;
1116: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1117: fnd_file.put_line(fnd_file.log,fnd_message.get);
1118: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1119: fnd_file.put_line(fnd_file.log,fnd_message.get);
1120: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1121: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1122: fnd_file.put_line(fnd_file.log,fnd_message.get);
1123: END IF;
1124:
1117: fnd_file.put_line(fnd_file.log,fnd_message.get);
1118: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1119: fnd_file.put_line(fnd_file.log,fnd_message.get);
1120: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1121: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1122: fnd_file.put_line(fnd_file.log,fnd_message.get);
1123: END IF;
1124:
1125: IF l_v_return_status = 'W' THEN
1118: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1119: fnd_file.put_line(fnd_file.log,fnd_message.get);
1120: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1121: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1122: fnd_file.put_line(fnd_file.log,fnd_message.get);
1123: END IF;
1124:
1125: IF l_v_return_status = 'W' THEN
1126: retcode := 1;
1132: l_dynamic_sql := igs_pe_dynamic_persid_group.igs_get_dynamic_sql(p_n_person_grp_id,l_v_status );
1133:
1134: IF l_v_status <> 'S' THEN
1135: --Log the error message and stop the processing.
1136: fnd_message.set_name('IGF','IGF_AP_INVALID_QUERY');
1137: fnd_file.put_line(fnd_file.log,fnd_message.get);
1138: retcode := 2;
1139: RETURN;
1140: END IF;
1133:
1134: IF l_v_status <> 'S' THEN
1135: --Log the error message and stop the processing.
1136: fnd_message.set_name('IGF','IGF_AP_INVALID_QUERY');
1137: fnd_file.put_line(fnd_file.log,fnd_message.get);
1138: retcode := 2;
1139: RETURN;
1140: END IF;
1141: OPEN c_ref_person_grp FOR l_dynamic_sql;
1161: END IF;
1162: END LOOP;
1163: CLOSE c_ref_person_grp;
1164: IF NOT (l_b_person_grp_data_found) THEN
1165: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1166: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1167: fnd_file.put_line(fnd_file.log,fnd_message.get);
1168: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1169: fnd_file.put_line(fnd_file.log,fnd_message.get);
1162: END LOOP;
1163: CLOSE c_ref_person_grp;
1164: IF NOT (l_b_person_grp_data_found) THEN
1165: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1166: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1167: fnd_file.put_line(fnd_file.log,fnd_message.get);
1168: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1169: fnd_file.put_line(fnd_file.log,fnd_message.get);
1170: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1163: CLOSE c_ref_person_grp;
1164: IF NOT (l_b_person_grp_data_found) THEN
1165: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1166: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1167: fnd_file.put_line(fnd_file.log,fnd_message.get);
1168: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1169: fnd_file.put_line(fnd_file.log,fnd_message.get);
1170: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1171: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1164: IF NOT (l_b_person_grp_data_found) THEN
1165: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1166: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1167: fnd_file.put_line(fnd_file.log,fnd_message.get);
1168: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1169: fnd_file.put_line(fnd_file.log,fnd_message.get);
1170: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1171: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1172: fnd_file.put_line(fnd_file.log,fnd_message.get);
1165: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1166: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1167: fnd_file.put_line(fnd_file.log,fnd_message.get);
1168: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1169: fnd_file.put_line(fnd_file.log,fnd_message.get);
1170: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1171: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1172: fnd_file.put_line(fnd_file.log,fnd_message.get);
1173: END IF;
1166: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1167: fnd_file.put_line(fnd_file.log,fnd_message.get);
1168: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1169: fnd_file.put_line(fnd_file.log,fnd_message.get);
1170: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1171: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1172: fnd_file.put_line(fnd_file.log,fnd_message.get);
1173: END IF;
1174: END IF; -- End Of Person Group id based derivation
1167: fnd_file.put_line(fnd_file.log,fnd_message.get);
1168: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1169: fnd_file.put_line(fnd_file.log,fnd_message.get);
1170: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1171: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1172: fnd_file.put_line(fnd_file.log,fnd_message.get);
1173: END IF;
1174: END IF; -- End Of Person Group id based derivation
1175: --To Log The Message If The Process Is A Test Run .
1168: fnd_message.set_name('IGF','IGF_AP_NO_DATA_FOUND');
1169: fnd_file.put_line(fnd_file.log,fnd_message.get);
1170: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1171: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1172: fnd_file.put_line(fnd_file.log,fnd_message.get);
1173: END IF;
1174: END IF; -- End Of Person Group id based derivation
1175: --To Log The Message If The Process Is A Test Run .
1176: IF p_v_test_run = 'Y' THEN
1173: END IF;
1174: END IF; -- End Of Person Group id based derivation
1175: --To Log The Message If The Process Is A Test Run .
1176: IF p_v_test_run = 'Y' THEN
1177: fnd_message.set_name('IGS','IGS_FI_PRC_TEST_RUN');
1178: fnd_file.put_line(fnd_file.log,fnd_message.get);
1179: END IF;
1180: ELSE
1181: retcode :=2;
1174: END IF; -- End Of Person Group id based derivation
1175: --To Log The Message If The Process Is A Test Run .
1176: IF p_v_test_run = 'Y' THEN
1177: fnd_message.set_name('IGS','IGS_FI_PRC_TEST_RUN');
1178: fnd_file.put_line(fnd_file.log,fnd_message.get);
1179: END IF;
1180: ELSE
1181: retcode :=2;
1182: END IF;
1185: retcode := 2;
1186: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1187: fnd_log.string(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_fi_prc_sp_fees.assess_fees',SQLERRM);
1188: END IF;
1189: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION') || ' : ' || SQLERRM;
1190: igs_ge_msg_stack.conc_exception_hndl;
1191: END assess_fees;
1192:
1193: PROCEDURE log_error_message(p_v_person_number hz_parties.party_number%TYPE,
1210:
1211: -------------------------------------------------------------------
1212: l_unit_section VARCHAR2(4000);
1213: BEGIN
1214: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1215: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||p_v_person_number);
1216: fnd_file.put_line(fnd_file.log,fnd_message.get);
1217: --To Log The Fee Assesment Period.
1218: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1211: -------------------------------------------------------------------
1212: l_unit_section VARCHAR2(4000);
1213: BEGIN
1214: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1215: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||p_v_person_number);
1216: fnd_file.put_line(fnd_file.log,fnd_message.get);
1217: --To Log The Fee Assesment Period.
1218: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1219: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '||p_v_fee_period);
1212: l_unit_section VARCHAR2(4000);
1213: BEGIN
1214: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1215: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||p_v_person_number);
1216: fnd_file.put_line(fnd_file.log,fnd_message.get);
1217: --To Log The Fee Assesment Period.
1218: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1219: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '||p_v_fee_period);
1220: fnd_file.put_line(fnd_file.log,fnd_message.get);
1214: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1215: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||p_v_person_number);
1216: fnd_file.put_line(fnd_file.log,fnd_message.get);
1217: --To Log The Fee Assesment Period.
1218: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1219: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '||p_v_fee_period);
1220: fnd_file.put_line(fnd_file.log,fnd_message.get);
1221: -- To Log The Unit Section .
1222: l_unit_section := igs_fi_gen_apint.get_unit_section_desc( p_n_uoo_id =>p_uooid,
1215: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||p_v_person_number);
1216: fnd_file.put_line(fnd_file.log,fnd_message.get);
1217: --To Log The Fee Assesment Period.
1218: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1219: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '||p_v_fee_period);
1220: fnd_file.put_line(fnd_file.log,fnd_message.get);
1221: -- To Log The Unit Section .
1222: l_unit_section := igs_fi_gen_apint.get_unit_section_desc( p_n_uoo_id =>p_uooid,
1223: p_v_unit_cd =>NULL,
1216: fnd_file.put_line(fnd_file.log,fnd_message.get);
1217: --To Log The Fee Assesment Period.
1218: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1219: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FEE_ASS_PERIOD')||': '||p_v_fee_period);
1220: fnd_file.put_line(fnd_file.log,fnd_message.get);
1221: -- To Log The Unit Section .
1222: l_unit_section := igs_fi_gen_apint.get_unit_section_desc( p_n_uoo_id =>p_uooid,
1223: p_v_unit_cd =>NULL,
1224: p_n_version_number =>NULL,
1225: p_v_cal_type =>NULL,
1226: p_n_ci_sequence_number =>NULL,
1227: p_v_location_cd =>NULL,
1228: p_v_unit_class =>NULL );
1229: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1230: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','USEC')||': '||l_unit_section);
1231: fnd_file.put_line(fnd_file.log,fnd_message.get);
1232: -- To Log The Message
1233: fnd_message.set_name('IGS',p_v_message_name);
1226: p_n_ci_sequence_number =>NULL,
1227: p_v_location_cd =>NULL,
1228: p_v_unit_class =>NULL );
1229: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1230: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','USEC')||': '||l_unit_section);
1231: fnd_file.put_line(fnd_file.log,fnd_message.get);
1232: -- To Log The Message
1233: fnd_message.set_name('IGS',p_v_message_name);
1234: fnd_file.put_line(fnd_file.log,fnd_message.get);
1227: p_v_location_cd =>NULL,
1228: p_v_unit_class =>NULL );
1229: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1230: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','USEC')||': '||l_unit_section);
1231: fnd_file.put_line(fnd_file.log,fnd_message.get);
1232: -- To Log The Message
1233: fnd_message.set_name('IGS',p_v_message_name);
1234: fnd_file.put_line(fnd_file.log,fnd_message.get);
1235: -- Logging of Separator
1229: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1230: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','USEC')||': '||l_unit_section);
1231: fnd_file.put_line(fnd_file.log,fnd_message.get);
1232: -- To Log The Message
1233: fnd_message.set_name('IGS',p_v_message_name);
1234: fnd_file.put_line(fnd_file.log,fnd_message.get);
1235: -- Logging of Separator
1236: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1237: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1230: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','USEC')||': '||l_unit_section);
1231: fnd_file.put_line(fnd_file.log,fnd_message.get);
1232: -- To Log The Message
1233: fnd_message.set_name('IGS',p_v_message_name);
1234: fnd_file.put_line(fnd_file.log,fnd_message.get);
1235: -- Logging of Separator
1236: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1237: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1238: fnd_file.put_line(fnd_file.log,fnd_message.get);
1232: -- To Log The Message
1233: fnd_message.set_name('IGS',p_v_message_name);
1234: fnd_file.put_line(fnd_file.log,fnd_message.get);
1235: -- Logging of Separator
1236: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1237: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1238: fnd_file.put_line(fnd_file.log,fnd_message.get);
1239: END log_error_message;
1240:
1233: fnd_message.set_name('IGS',p_v_message_name);
1234: fnd_file.put_line(fnd_file.log,fnd_message.get);
1235: -- Logging of Separator
1236: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1237: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1238: fnd_file.put_line(fnd_file.log,fnd_message.get);
1239: END log_error_message;
1240:
1241: PROCEDURE process_special_fees(p_n_person_id IN PLS_INTEGER,
1234: fnd_file.put_line(fnd_file.log,fnd_message.get);
1235: -- Logging of Separator
1236: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1237: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1238: fnd_file.put_line(fnd_file.log,fnd_message.get);
1239: END log_error_message;
1240:
1241: PROCEDURE process_special_fees(p_n_person_id IN PLS_INTEGER,
1242: p_v_fee_cal_type IN VARCHAR2,
1483: l_b_error := TRUE;
1484: END IF; -- End if of Check For The L_return_status
1485: -- Code To Unravel The Message Stack And Put It In The Log File.
1486: IF l_n_msg_count = 1 THEN
1487: fnd_message.set_encoded(l_v_msg_data);
1488: fnd_file.put_line(fnd_file.log,fnd_message.get);
1489: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1490: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1491: fnd_file.put_line(fnd_file.log,fnd_message.get);
1484: END IF; -- End if of Check For The L_return_status
1485: -- Code To Unravel The Message Stack And Put It In The Log File.
1486: IF l_n_msg_count = 1 THEN
1487: fnd_message.set_encoded(l_v_msg_data);
1488: fnd_file.put_line(fnd_file.log,fnd_message.get);
1489: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1490: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1491: fnd_file.put_line(fnd_file.log,fnd_message.get);
1492: ELSIF l_n_msg_count <> 0 THEN
1485: -- Code To Unravel The Message Stack And Put It In The Log File.
1486: IF l_n_msg_count = 1 THEN
1487: fnd_message.set_encoded(l_v_msg_data);
1488: fnd_file.put_line(fnd_file.log,fnd_message.get);
1489: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1490: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1491: fnd_file.put_line(fnd_file.log,fnd_message.get);
1492: ELSIF l_n_msg_count <> 0 THEN
1493: FOR l_count IN 1 .. l_n_msg_count LOOP
1486: IF l_n_msg_count = 1 THEN
1487: fnd_message.set_encoded(l_v_msg_data);
1488: fnd_file.put_line(fnd_file.log,fnd_message.get);
1489: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1490: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1491: fnd_file.put_line(fnd_file.log,fnd_message.get);
1492: ELSIF l_n_msg_count <> 0 THEN
1493: FOR l_count IN 1 .. l_n_msg_count LOOP
1494: l_msg := fnd_msg_pub.get(p_msg_index => l_count, p_encoded => 'T');
1487: fnd_message.set_encoded(l_v_msg_data);
1488: fnd_file.put_line(fnd_file.log,fnd_message.get);
1489: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1490: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1491: fnd_file.put_line(fnd_file.log,fnd_message.get);
1492: ELSIF l_n_msg_count <> 0 THEN
1493: FOR l_count IN 1 .. l_n_msg_count LOOP
1494: l_msg := fnd_msg_pub.get(p_msg_index => l_count, p_encoded => 'T');
1495: fnd_message.set_encoded(l_msg);
1491: fnd_file.put_line(fnd_file.log,fnd_message.get);
1492: ELSIF l_n_msg_count <> 0 THEN
1493: FOR l_count IN 1 .. l_n_msg_count LOOP
1494: l_msg := fnd_msg_pub.get(p_msg_index => l_count, p_encoded => 'T');
1495: fnd_message.set_encoded(l_msg);
1496: fnd_file.put_line(fnd_file.log,fnd_message.get);
1497: END LOOP;
1498: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1499: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1492: ELSIF l_n_msg_count <> 0 THEN
1493: FOR l_count IN 1 .. l_n_msg_count LOOP
1494: l_msg := fnd_msg_pub.get(p_msg_index => l_count, p_encoded => 'T');
1495: fnd_message.set_encoded(l_msg);
1496: fnd_file.put_line(fnd_file.log,fnd_message.get);
1497: END LOOP;
1498: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1499: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1500: fnd_file.put_line(fnd_file.log,fnd_message.get);
1494: l_msg := fnd_msg_pub.get(p_msg_index => l_count, p_encoded => 'T');
1495: fnd_message.set_encoded(l_msg);
1496: fnd_file.put_line(fnd_file.log,fnd_message.get);
1497: END LOOP;
1498: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1499: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1500: fnd_file.put_line(fnd_file.log,fnd_message.get);
1501: END IF;
1502: END IF; --end if of l_b_rel_exists
1495: fnd_message.set_encoded(l_msg);
1496: fnd_file.put_line(fnd_file.log,fnd_message.get);
1497: END LOOP;
1498: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1499: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1500: fnd_file.put_line(fnd_file.log,fnd_message.get);
1501: END IF;
1502: END IF; --end if of l_b_rel_exists
1503: END IF;
1496: fnd_file.put_line(fnd_file.log,fnd_message.get);
1497: END LOOP;
1498: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1499: fnd_message.set_token('END_DATE',RPAD(g_v_seperator,77,g_v_seperator));
1500: fnd_file.put_line(fnd_file.log,fnd_message.get);
1501: END IF;
1502: END IF; --end if of l_b_rel_exists
1503: END IF;
1504: END LOOP; -- End Loop Of Cursor c_get_todo_ref_recs
1533: p_v_return_status := 'W';
1534: END IF;
1535: EXCEPTION
1536: WHEN e_lock_exception THEN
1537: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1538: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||l_v_person_number);
1539: fnd_file.put_line(fnd_file.log,fnd_message.get);
1540: fnd_message.set_name('IGS', 'IGS_FI_RFND_REC_LOCK');
1541: fnd_file.put_line(fnd_file.log,fnd_message.get);
1534: END IF;
1535: EXCEPTION
1536: WHEN e_lock_exception THEN
1537: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1538: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||l_v_person_number);
1539: fnd_file.put_line(fnd_file.log,fnd_message.get);
1540: fnd_message.set_name('IGS', 'IGS_FI_RFND_REC_LOCK');
1541: fnd_file.put_line(fnd_file.log,fnd_message.get);
1542: fnd_file.new_line(fnd_file.log);
1535: EXCEPTION
1536: WHEN e_lock_exception THEN
1537: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1538: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||l_v_person_number);
1539: fnd_file.put_line(fnd_file.log,fnd_message.get);
1540: fnd_message.set_name('IGS', 'IGS_FI_RFND_REC_LOCK');
1541: fnd_file.put_line(fnd_file.log,fnd_message.get);
1542: fnd_file.new_line(fnd_file.log);
1543: -- Set status to 'Warning'
1536: WHEN e_lock_exception THEN
1537: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1538: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||l_v_person_number);
1539: fnd_file.put_line(fnd_file.log,fnd_message.get);
1540: fnd_message.set_name('IGS', 'IGS_FI_RFND_REC_LOCK');
1541: fnd_file.put_line(fnd_file.log,fnd_message.get);
1542: fnd_file.new_line(fnd_file.log);
1543: -- Set status to 'Warning'
1544: p_v_return_status := 'W';
1537: fnd_message.set_name('IGS','IGS_FI_END_DATE');
1538: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PERSON')||': '||l_v_person_number);
1539: fnd_file.put_line(fnd_file.log,fnd_message.get);
1540: fnd_message.set_name('IGS', 'IGS_FI_RFND_REC_LOCK');
1541: fnd_file.put_line(fnd_file.log,fnd_message.get);
1542: fnd_file.new_line(fnd_file.log);
1543: -- Set status to 'Warning'
1544: p_v_return_status := 'W';
1545: WHEN OTHERS THEN
1542: fnd_file.new_line(fnd_file.log);
1543: -- Set status to 'Warning'
1544: p_v_return_status := 'W';
1545: WHEN OTHERS THEN
1546: fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
1547: fnd_Message.Set_Token('NAME','igs_fi_prc_sp_fees.process_special_fees-'||SUBSTR(sqlerrm,1,500));
1548: igs_ge_msg_stack.ADD;
1549: App_Exception.Raise_Exception;
1550:
1543: -- Set status to 'Warning'
1544: p_v_return_status := 'W';
1545: WHEN OTHERS THEN
1546: fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXP');
1547: fnd_Message.Set_Token('NAME','igs_fi_prc_sp_fees.process_special_fees-'||SUBSTR(sqlerrm,1,500));
1548: igs_ge_msg_stack.ADD;
1549: App_Exception.Raise_Exception;
1550:
1551: END process_special_fees;