345: shtatiko 26-MAR-2003 Bug# 2782124, Changed the message to IGS_FI_CRD_INT_ALL_PARAMETER
346: from IGS_FI_CAL_BALANCES_LOG.
347: ********************************************************************************************** */
348: BEGIN
349: fnd_message.set_name('IGS','IGS_FI_CRD_INT_ALL_PARAMETER');
350: fnd_message.set_token('PARM_TYPE',p_msg_name);
351: fnd_message.set_token('PARM_CODE' ,p_msg_val);
352: fnd_file.put_line(fnd_file.log,fnd_message.get);
353: END log_messages ;
346: from IGS_FI_CAL_BALANCES_LOG.
347: ********************************************************************************************** */
348: BEGIN
349: fnd_message.set_name('IGS','IGS_FI_CRD_INT_ALL_PARAMETER');
350: fnd_message.set_token('PARM_TYPE',p_msg_name);
351: fnd_message.set_token('PARM_CODE' ,p_msg_val);
352: fnd_file.put_line(fnd_file.log,fnd_message.get);
353: END log_messages ;
354:
347: ********************************************************************************************** */
348: BEGIN
349: fnd_message.set_name('IGS','IGS_FI_CRD_INT_ALL_PARAMETER');
350: fnd_message.set_token('PARM_TYPE',p_msg_name);
351: fnd_message.set_token('PARM_CODE' ,p_msg_val);
352: fnd_file.put_line(fnd_file.log,fnd_message.get);
353: END log_messages ;
354:
355:
348: BEGIN
349: fnd_message.set_name('IGS','IGS_FI_CRD_INT_ALL_PARAMETER');
350: fnd_message.set_token('PARM_TYPE',p_msg_name);
351: fnd_message.set_token('PARM_CODE' ,p_msg_val);
352: fnd_file.put_line(fnd_file.log,fnd_message.get);
353: END log_messages ;
354:
355:
356:
568: x_credit_activity_id => l_credit_activity_id,
569: x_credit_number => l_v_credit_number
570: );
571: IF p_status <> 'S' THEN
572: fnd_message.set_encoded(l_msg_data);
573: p_error_desc:= fnd_message.get;
574: ELSE
575: IF l_msg_count <> 0 THEN
576: fnd_message.set_encoded(l_msg_data);
569: x_credit_number => l_v_credit_number
570: );
571: IF p_status <> 'S' THEN
572: fnd_message.set_encoded(l_msg_data);
573: p_error_desc:= fnd_message.get;
574: ELSE
575: IF l_msg_count <> 0 THEN
576: fnd_message.set_encoded(l_msg_data);
577: p_error_desc:= fnd_message.get;
572: fnd_message.set_encoded(l_msg_data);
573: p_error_desc:= fnd_message.get;
574: ELSE
575: IF l_msg_count <> 0 THEN
576: fnd_message.set_encoded(l_msg_data);
577: p_error_desc:= fnd_message.get;
578: END IF;
579: END IF;
580:
573: p_error_desc:= fnd_message.get;
574: ELSE
575: IF l_msg_count <> 0 THEN
576: fnd_message.set_encoded(l_msg_data);
577: p_error_desc:= fnd_message.get;
578: END IF;
579: END IF;
580:
581: END call_credits_api;
796: x_waiver_amount => l_n_waiver_amount);
797:
798: IF p_status <> 'S' THEN
799: IF l_msg_count = 1 THEN
800: fnd_message.set_encoded(l_msg_data);
801: p_error_desc:= fnd_message.get;
802: ELSE
803: FOR l_count IN 1 .. l_msg_count LOOP
804: l_msg := fnd_msg_pub.get(p_msg_index => l_count, p_encoded => 'T');
797:
798: IF p_status <> 'S' THEN
799: IF l_msg_count = 1 THEN
800: fnd_message.set_encoded(l_msg_data);
801: p_error_desc:= fnd_message.get;
802: ELSE
803: FOR l_count IN 1 .. l_msg_count LOOP
804: l_msg := fnd_msg_pub.get(p_msg_index => l_count, p_encoded => 'T');
805: fnd_message.set_encoded (l_msg);
801: p_error_desc:= fnd_message.get;
802: ELSE
803: FOR l_count IN 1 .. l_msg_count LOOP
804: l_msg := fnd_msg_pub.get(p_msg_index => l_count, p_encoded => 'T');
805: fnd_message.set_encoded (l_msg);
806: p_error_desc:= p_error_desc||'- '|| fnd_message.get;
807: END LOOP;
808: END IF;
809: END IF;
802: ELSE
803: FOR l_count IN 1 .. l_msg_count LOOP
804: l_msg := fnd_msg_pub.get(p_msg_index => l_count, p_encoded => 'T');
805: fnd_message.set_encoded (l_msg);
806: p_error_desc:= p_error_desc||'- '|| fnd_message.get;
807: END LOOP;
808: END IF;
809: END IF;
810: END call_charges_api;
936: IF NOT igs_fi_crdapi_util.validate_cal_inst( p_v_cal_type => p_rec_disb.ld_cal_type,
937: p_n_ci_sequence_number => p_rec_disb.ld_sequence_number,
938: p_v_s_cal_cat => 'LOAD'
939: ) THEN
940: fnd_message.set_name('IGS','IGS_FI_LOAD_CAL_NOT_ACTIVE');
941: l_error_desc := fnd_message.get;
942: l_status := 'E';
943: END IF;
944: END IF;
937: p_n_ci_sequence_number => p_rec_disb.ld_sequence_number,
938: p_v_s_cal_cat => 'LOAD'
939: ) THEN
940: fnd_message.set_name('IGS','IGS_FI_LOAD_CAL_NOT_ACTIVE');
941: l_error_desc := fnd_message.get;
942: l_status := 'E';
943: END IF;
944: END IF;
945:
954: l_fee_cal_type,
955: l_fee_ci_sequence_number,
956: l_message_name) THEN
957: IF l_message_name <> 'IGS_FI_NO_RELN_EXISTS' THEN
958: l_error_desc := fnd_message.get_string('IGS',l_message_name);
959: l_status := 'E';
960: ELSE
961: fnd_message.set_name('IGS','IGS_FI_NO_FEE_LOAD_REL');
962: fnd_message.set_token('AWARD_ID',p_rec_disb.award_id);
957: IF l_message_name <> 'IGS_FI_NO_RELN_EXISTS' THEN
958: l_error_desc := fnd_message.get_string('IGS',l_message_name);
959: l_status := 'E';
960: ELSE
961: fnd_message.set_name('IGS','IGS_FI_NO_FEE_LOAD_REL');
962: fnd_message.set_token('AWARD_ID',p_rec_disb.award_id);
963: fnd_message.set_token('DISB_NUM',p_rec_disb.disb_num);
964: fnd_message.set_token('LOAD_CAL',p_rec_disb.ld_cal_type);
965: fnd_message.set_token('LOAD_SEQ_NUM',p_rec_disb.ld_sequence_number);
958: l_error_desc := fnd_message.get_string('IGS',l_message_name);
959: l_status := 'E';
960: ELSE
961: fnd_message.set_name('IGS','IGS_FI_NO_FEE_LOAD_REL');
962: fnd_message.set_token('AWARD_ID',p_rec_disb.award_id);
963: fnd_message.set_token('DISB_NUM',p_rec_disb.disb_num);
964: fnd_message.set_token('LOAD_CAL',p_rec_disb.ld_cal_type);
965: fnd_message.set_token('LOAD_SEQ_NUM',p_rec_disb.ld_sequence_number);
966: l_error_desc := fnd_message.get;
959: l_status := 'E';
960: ELSE
961: fnd_message.set_name('IGS','IGS_FI_NO_FEE_LOAD_REL');
962: fnd_message.set_token('AWARD_ID',p_rec_disb.award_id);
963: fnd_message.set_token('DISB_NUM',p_rec_disb.disb_num);
964: fnd_message.set_token('LOAD_CAL',p_rec_disb.ld_cal_type);
965: fnd_message.set_token('LOAD_SEQ_NUM',p_rec_disb.ld_sequence_number);
966: l_error_desc := fnd_message.get;
967: l_status := 'E';
960: ELSE
961: fnd_message.set_name('IGS','IGS_FI_NO_FEE_LOAD_REL');
962: fnd_message.set_token('AWARD_ID',p_rec_disb.award_id);
963: fnd_message.set_token('DISB_NUM',p_rec_disb.disb_num);
964: fnd_message.set_token('LOAD_CAL',p_rec_disb.ld_cal_type);
965: fnd_message.set_token('LOAD_SEQ_NUM',p_rec_disb.ld_sequence_number);
966: l_error_desc := fnd_message.get;
967: l_status := 'E';
968: END IF;
961: fnd_message.set_name('IGS','IGS_FI_NO_FEE_LOAD_REL');
962: fnd_message.set_token('AWARD_ID',p_rec_disb.award_id);
963: fnd_message.set_token('DISB_NUM',p_rec_disb.disb_num);
964: fnd_message.set_token('LOAD_CAL',p_rec_disb.ld_cal_type);
965: fnd_message.set_token('LOAD_SEQ_NUM',p_rec_disb.ld_sequence_number);
966: l_error_desc := fnd_message.get;
967: l_status := 'E';
968: END IF;
969: END IF;
962: fnd_message.set_token('AWARD_ID',p_rec_disb.award_id);
963: fnd_message.set_token('DISB_NUM',p_rec_disb.disb_num);
964: fnd_message.set_token('LOAD_CAL',p_rec_disb.ld_cal_type);
965: fnd_message.set_token('LOAD_SEQ_NUM',p_rec_disb.ld_sequence_number);
966: l_error_desc := fnd_message.get;
967: l_status := 'E';
968: END IF;
969: END IF;
970: END IF;
976: IF NOT igs_fi_crdapi_util.validate_cal_inst( p_v_cal_type => l_fee_cal_type,
977: p_n_ci_sequence_number => l_fee_ci_sequence_number,
978: p_v_s_cal_cat => 'FEE'
979: ) THEN
980: fnd_message.set_name('IGS','IGS_FI_FCI_NOTFOUND');
981: l_error_desc := fnd_message.get;
982: l_status := 'E';
983: END IF;
984: END IF;
977: p_n_ci_sequence_number => l_fee_ci_sequence_number,
978: p_v_s_cal_cat => 'FEE'
979: ) THEN
980: fnd_message.set_name('IGS','IGS_FI_FCI_NOTFOUND');
981: l_error_desc := fnd_message.get;
982: l_status := 'E';
983: END IF;
984: END IF;
985: END IF;
988: --else, log the error message and skip processing the same record and continue with the next record.
989: IF l_status = 'S' THEN
990: IF NOT igs_fi_crdapi_util.validate_igf_lkp( p_v_lookup_type => 'IGF_AW_FED_FUND',
991: p_v_lookup_code => p_rec_disb.fed_fund_code) THEN
992: fnd_message.set_name('IGS','IGS_FI_CAPI_CRD_SRC_NULL');
993: fnd_message.set_token('CR_SOURCE',igf_aw_gen.lookup_desc('IGF_AW_FED_FUND',p_rec_disb.fed_fund_code));
994: l_error_desc := fnd_message.get;
995: l_status := 'E';
996: END IF;
989: IF l_status = 'S' THEN
990: IF NOT igs_fi_crdapi_util.validate_igf_lkp( p_v_lookup_type => 'IGF_AW_FED_FUND',
991: p_v_lookup_code => p_rec_disb.fed_fund_code) THEN
992: fnd_message.set_name('IGS','IGS_FI_CAPI_CRD_SRC_NULL');
993: fnd_message.set_token('CR_SOURCE',igf_aw_gen.lookup_desc('IGF_AW_FED_FUND',p_rec_disb.fed_fund_code));
994: l_error_desc := fnd_message.get;
995: l_status := 'E';
996: END IF;
997: END IF;
990: IF NOT igs_fi_crdapi_util.validate_igf_lkp( p_v_lookup_type => 'IGF_AW_FED_FUND',
991: p_v_lookup_code => p_rec_disb.fed_fund_code) THEN
992: fnd_message.set_name('IGS','IGS_FI_CAPI_CRD_SRC_NULL');
993: fnd_message.set_token('CR_SOURCE',igf_aw_gen.lookup_desc('IGF_AW_FED_FUND',p_rec_disb.fed_fund_code));
994: l_error_desc := fnd_message.get;
995: l_status := 'E';
996: END IF;
997: END IF;
998:
1007: OPEN cur_cr_type(p_rec_disb.credit_type_id);
1008: FETCH cur_cr_type INTO l_v_cr_type_name;
1009: CLOSE cur_cr_type;
1010:
1011: fnd_message.set_name('IGS','IGS_FI_CAPI_CR_TYPE_INVALID');
1012: fnd_message.set_token('CR_TYPE',l_v_cr_type_name);
1013: l_error_desc := fnd_message.get;
1014: l_status := 'E';
1015: END IF;
1008: FETCH cur_cr_type INTO l_v_cr_type_name;
1009: CLOSE cur_cr_type;
1010:
1011: fnd_message.set_name('IGS','IGS_FI_CAPI_CR_TYPE_INVALID');
1012: fnd_message.set_token('CR_TYPE',l_v_cr_type_name);
1013: l_error_desc := fnd_message.get;
1014: l_status := 'E';
1015: END IF;
1016: END IF;
1009: CLOSE cur_cr_type;
1010:
1011: fnd_message.set_name('IGS','IGS_FI_CAPI_CR_TYPE_INVALID');
1012: fnd_message.set_token('CR_TYPE',l_v_cr_type_name);
1013: l_error_desc := fnd_message.get;
1014: l_status := 'E';
1015: END IF;
1016: END IF;
1017:
1019: --If any one of them is null, then log the error message and skip processing the same record and continue with the next record.
1020: IF l_status = 'S' THEN
1021: IF l_v_credit_class IN ('EXTFA','INTFA') THEN
1022: IF p_rec_disb.ci_cal_type IS NULL OR p_rec_disb.ci_sequence_number IS NULL OR l_fee_cal_type IS NULL OR l_fee_ci_sequence_number IS NULL THEN
1023: fnd_message.set_name('IGS','IGS_FI_FPAY_MAND');
1024: l_error_desc := fnd_message.get;
1025: l_status := 'E';
1026: END IF;
1027: END IF;
1020: IF l_status = 'S' THEN
1021: IF l_v_credit_class IN ('EXTFA','INTFA') THEN
1022: IF p_rec_disb.ci_cal_type IS NULL OR p_rec_disb.ci_sequence_number IS NULL OR l_fee_cal_type IS NULL OR l_fee_ci_sequence_number IS NULL THEN
1023: fnd_message.set_name('IGS','IGS_FI_FPAY_MAND');
1024: l_error_desc := fnd_message.get;
1025: l_status := 'E';
1026: END IF;
1027: END IF;
1028: END IF;
1034: IF NOT igs_fi_crdapi_util.validate_cal_inst( p_v_cal_type => p_rec_disb.ci_cal_type,
1035: p_n_ci_sequence_number => p_rec_disb.ci_sequence_number,
1036: p_v_s_cal_cat => 'AWARD'
1037: ) THEN
1038: fnd_message.set_name('IGS','IGS_FI_INV_AWD_YR');
1039: l_error_desc := fnd_message.get;
1040: l_status := 'E';
1041: END IF;
1042: END IF;
1035: p_n_ci_sequence_number => p_rec_disb.ci_sequence_number,
1036: p_v_s_cal_cat => 'AWARD'
1037: ) THEN
1038: fnd_message.set_name('IGS','IGS_FI_INV_AWD_YR');
1039: l_error_desc := fnd_message.get;
1040: l_status := 'E';
1041: END IF;
1042: END IF;
1043: END IF;
1107: END IF;
1108:
1109: IF l_status <> 'S' THEN
1110: IF l_status = 'ZERO' THEN
1111: l_error_desc :=fnd_message.get_string ('IGF','IGF_DB_ZERO_AMOUNT');
1112: END IF;
1113: --If any of the creation of charge or credit failed
1114: l_log_status := lookup_desc('IGF_AW_LOOKUPS_MSG','ERROR') ;
1115: l_sf_credit_id := NULL;
1267: l_sf_credit_id :=NULL;
1268: l_spnsr_credit_id :=NULL;
1269: l_spnsr_charge_id :=NULL;
1270:
1271: l_error_desc:=fnd_message.get;
1272: IF l_error_desc IS NULL THEN
1273: l_error_desc:=fnd_message.get_string('IGF','IGF_DB_UPDATE_FAILED');
1274: END IF;
1275: --setting the call to refunds procedure flag to FALSE
1269: l_spnsr_charge_id :=NULL;
1270:
1271: l_error_desc:=fnd_message.get;
1272: IF l_error_desc IS NULL THEN
1273: l_error_desc:=fnd_message.get_string('IGF','IGF_DB_UPDATE_FAILED');
1274: END IF;
1275: --setting the call to refunds procedure flag to FALSE
1276: l_refunds:=FALSE;
1277: END IF;
1335: p_status => l_ref_status,
1336: p_d_gl_date => p_d_gl_date
1337: );
1338: IF l_ref_err_msg IS NOT NULL THEN
1339: fnd_message.set_name('IGS',l_ref_err_msg);
1340: fnd_file.put_line(fnd_file.log,fnd_message.get);
1341: END IF;
1342: END IF;
1343: EXCEPTION
1336: p_d_gl_date => p_d_gl_date
1337: );
1338: IF l_ref_err_msg IS NOT NULL THEN
1339: fnd_message.set_name('IGS',l_ref_err_msg);
1340: fnd_file.put_line(fnd_file.log,fnd_message.get);
1341: END IF;
1342: END IF;
1343: EXCEPTION
1344: WHEN OTHERS THEN
1341: END IF;
1342: END IF;
1343: EXCEPTION
1344: WHEN OTHERS THEN
1345: fnd_file.put_line(fnd_file.log,fnd_message.get_string('IGF','IGF_DB_REFUND_NOT_CREATE'));
1346: END;
1347: END IF;
1348:
1349: --If the above update fails then rollback the entire transaction else commit
1532: -- If this value is NULL then this process should error out.
1533: igs_fi_com_rec_interface.chk_manage_account ( p_v_manage_acc => l_v_manage_accounts,
1534: p_v_message_name => l_v_message_name );
1535: IF l_v_manage_accounts IS NULL THEN
1536: fnd_message.set_name ( 'IGS', l_v_message_name );
1537: fnd_file.put_line( fnd_file.LOG, fnd_message.get );
1538: RAISE l_exp_err_exception;
1539: END IF;
1540:
1533: igs_fi_com_rec_interface.chk_manage_account ( p_v_manage_acc => l_v_manage_accounts,
1534: p_v_message_name => l_v_message_name );
1535: IF l_v_manage_accounts IS NULL THEN
1536: fnd_message.set_name ( 'IGS', l_v_message_name );
1537: fnd_file.put_line( fnd_file.LOG, fnd_message.get );
1538: RAISE l_exp_err_exception;
1539: END IF;
1540:
1541: IF p_term_calendar IS NOT NULL THEN
1543: -- If the Load Calendar instance is passed then check whether a relation exists with the Fee Cal
1544: IF (igs_fi_gen_001.finp_chk_lfci_reln( l_ld_cal_type,
1545: l_ld_sequence_number,
1546: 'LOAD')= 'FALSE') THEN
1547: fnd_message.set_name('IGS','IGS_FI_NO_RELN_EXISTS');
1548: fnd_file.put_line(fnd_file.log,fnd_message.get);
1549: RAISE l_exp_err_exception;
1550: END IF;
1551: END IF;
1544: IF (igs_fi_gen_001.finp_chk_lfci_reln( l_ld_cal_type,
1545: l_ld_sequence_number,
1546: 'LOAD')= 'FALSE') THEN
1547: fnd_message.set_name('IGS','IGS_FI_NO_RELN_EXISTS');
1548: fnd_file.put_line(fnd_file.log,fnd_message.get);
1549: RAISE l_exp_err_exception;
1550: END IF;
1551: END IF;
1552: -- End of modification Enh#2191470
1552: -- End of modification Enh#2191470
1553:
1554: --Validating if all the mandatory parameter are passed
1555: IF (p_award_year IS NULL) THEN
1556: fnd_message.set_name('IGS','IGS_FI_PARAMETER_NULL');
1557: fnd_file.put_line(fnd_file.log,fnd_message.get);
1558: RAISE l_exp_err_exception;
1559: END IF;
1560:
1553:
1554: --Validating if all the mandatory parameter are passed
1555: IF (p_award_year IS NULL) THEN
1556: fnd_message.set_name('IGS','IGS_FI_PARAMETER_NULL');
1557: fnd_file.put_line(fnd_file.log,fnd_message.get);
1558: RAISE l_exp_err_exception;
1559: END IF;
1560:
1561: --GL Date parameter is mandatory to this concurrent job, hence it is passed as null, error out NOCOPY the job.
1559: END IF;
1560:
1561: --GL Date parameter is mandatory to this concurrent job, hence it is passed as null, error out NOCOPY the job.
1562: IF p_d_gl_date IS NULL THEN
1563: fnd_message.set_name('IGS','IGS_FI_PARAMETER_NULL');
1564: fnd_file.put_line(fnd_file.log,fnd_message.get);
1565: RAISE l_exp_err_exception;
1566: END IF;
1567:
1560:
1561: --GL Date parameter is mandatory to this concurrent job, hence it is passed as null, error out NOCOPY the job.
1562: IF p_d_gl_date IS NULL THEN
1563: fnd_message.set_name('IGS','IGS_FI_PARAMETER_NULL');
1564: fnd_file.put_line(fnd_file.log,fnd_message.get);
1565: RAISE l_exp_err_exception;
1566: END IF;
1567:
1568: --Getting cal type and sequence number
1570: l_sequence_number := TO_NUMBER(RTRIM(SUBSTR(p_award_year,11)));
1571:
1572: --Validating award year
1573: IF NOT validate_award_year(l_cal_type,l_sequence_number) THEN
1574: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
1575: fnd_file.put_line(fnd_file.log,fnd_message.get);
1576: RAISE l_exp_err_exception;
1577: END IF;
1578:
1571:
1572: --Validating award year
1573: IF NOT validate_award_year(l_cal_type,l_sequence_number) THEN
1574: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
1575: fnd_file.put_line(fnd_file.log,fnd_message.get);
1576: RAISE l_exp_err_exception;
1577: END IF;
1578:
1579: l_v_message_name := NULL;
1585: p_v_message_name => l_v_message_name
1586: );
1587: IF l_v_message_name IS NOT NULL THEN
1588: IF l_v_message_name = 'IGF_SP_INVALID_AWD_YR_STATUS' THEN
1589: fnd_message.set_name('IGF',l_v_message_name);
1590: ELSE
1591: fnd_message.set_name('IGS',l_v_message_name);
1592: END IF;
1593: fnd_file.put_line(fnd_file.log,fnd_message.get);
1587: IF l_v_message_name IS NOT NULL THEN
1588: IF l_v_message_name = 'IGF_SP_INVALID_AWD_YR_STATUS' THEN
1589: fnd_message.set_name('IGF',l_v_message_name);
1590: ELSE
1591: fnd_message.set_name('IGS',l_v_message_name);
1592: END IF;
1593: fnd_file.put_line(fnd_file.log,fnd_message.get);
1594: RAISE l_exp_err_exception;
1595: END IF;
1589: fnd_message.set_name('IGF',l_v_message_name);
1590: ELSE
1591: fnd_message.set_name('IGS',l_v_message_name);
1592: END IF;
1593: fnd_file.put_line(fnd_file.log,fnd_message.get);
1594: RAISE l_exp_err_exception;
1595: END IF;
1596:
1597: --Validating person Id and person id group cannot be present at a same time
1595: END IF;
1596:
1597: --Validating person Id and person id group cannot be present at a same time
1598: IF p_base_id IS NOT NULL AND p_person_group_id IS NOT NULL THEN
1599: fnd_message.set_name('IGS','IGS_FI_PRS_OR_PRSIDGRP');
1600: fnd_file.put_line(fnd_file.log,fnd_message.get);
1601: RAISE l_exp_err_exception;
1602: END IF;
1603:
1596:
1597: --Validating person Id and person id group cannot be present at a same time
1598: IF p_base_id IS NOT NULL AND p_person_group_id IS NOT NULL THEN
1599: fnd_message.set_name('IGS','IGS_FI_PRS_OR_PRSIDGRP');
1600: fnd_file.put_line(fnd_file.log,fnd_message.get);
1601: RAISE l_exp_err_exception;
1602: END IF;
1603:
1604: --Validating person id group
1603:
1604: --Validating person id group
1605: IF p_person_group_id IS NOT NULL THEN
1606: IF NOT validate_persid_grp(p_person_group_id) THEN
1607: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
1608: fnd_file.put_line(fnd_file.log,fnd_message.get);
1609: RAISE l_exp_err_exception;
1610: END IF;
1611: END IF;
1604: --Validating person id group
1605: IF p_person_group_id IS NOT NULL THEN
1606: IF NOT validate_persid_grp(p_person_group_id) THEN
1607: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
1608: fnd_file.put_line(fnd_file.log,fnd_message.get);
1609: RAISE l_exp_err_exception;
1610: END IF;
1611: END IF;
1612:
1612:
1613: --Validating base_id
1614: IF p_base_id IS NOT NULL THEN
1615: IF NOT validate_base_id(p_base_id,l_cal_type,l_sequence_number) THEN
1616: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
1617: fnd_file.put_line(fnd_file.log,fnd_message.get);
1618: RAISE l_exp_err_exception;
1619: END IF;
1620: END IF;
1613: --Validating base_id
1614: IF p_base_id IS NOT NULL THEN
1615: IF NOT validate_base_id(p_base_id,l_cal_type,l_sequence_number) THEN
1616: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
1617: fnd_file.put_line(fnd_file.log,fnd_message.get);
1618: RAISE l_exp_err_exception;
1619: END IF;
1620: END IF;
1621:
1621:
1622: --Validating fund_code
1623: IF p_fund_id IS NOT NULL THEN
1624: IF NOT validate_fund_id(p_fund_id,l_cal_type,l_sequence_number) THEN
1625: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
1626: fnd_file.put_line(fnd_file.log,fnd_message.get);
1627: RAISE l_exp_err_exception;
1628: END IF;
1629: END IF;
1622: --Validating fund_code
1623: IF p_fund_id IS NOT NULL THEN
1624: IF NOT validate_fund_id(p_fund_id,l_cal_type,l_sequence_number) THEN
1625: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
1626: fnd_file.put_line(fnd_file.log,fnd_message.get);
1627: RAISE l_exp_err_exception;
1628: END IF;
1629: END IF;
1630:
1633: p_v_closing_status => l_v_closing_status,
1634: p_v_message_name => l_v_message_name
1635: );
1636: IF l_v_message_name IS NOT NULL THEN
1637: fnd_message.set_name('IGS',l_v_message_name);
1638: fnd_file.put_line(fnd_file.log,fnd_message.get);
1639: RAISE l_exp_err_exception;
1640: END IF;
1641:
1634: p_v_message_name => l_v_message_name
1635: );
1636: IF l_v_message_name IS NOT NULL THEN
1637: fnd_message.set_name('IGS',l_v_message_name);
1638: fnd_file.put_line(fnd_file.log,fnd_message.get);
1639: RAISE l_exp_err_exception;
1640: END IF;
1641:
1642: --Error out the concurrent process if the GL Date is not a valid one.
1640: END IF;
1641:
1642: --Error out the concurrent process if the GL Date is not a valid one.
1643: IF l_v_closing_status IN ('C','N','W') THEN
1644: fnd_message.set_name('IGS','IGS_FI_INVALID_GL_DATE');
1645: fnd_message.set_token('GL_DATE',l_d_gl_date);
1646: fnd_file.put_line(fnd_file.log,fnd_message.get);
1647: RAISE l_exp_err_exception;
1648: END IF;
1641:
1642: --Error out the concurrent process if the GL Date is not a valid one.
1643: IF l_v_closing_status IN ('C','N','W') THEN
1644: fnd_message.set_name('IGS','IGS_FI_INVALID_GL_DATE');
1645: fnd_message.set_token('GL_DATE',l_d_gl_date);
1646: fnd_file.put_line(fnd_file.log,fnd_message.get);
1647: RAISE l_exp_err_exception;
1648: END IF;
1649:
1642: --Error out the concurrent process if the GL Date is not a valid one.
1643: IF l_v_closing_status IN ('C','N','W') THEN
1644: fnd_message.set_name('IGS','IGS_FI_INVALID_GL_DATE');
1645: fnd_message.set_token('GL_DATE',l_d_gl_date);
1646: fnd_file.put_line(fnd_file.log,fnd_message.get);
1647: RAISE l_exp_err_exception;
1648: END IF;
1649:
1650: l_v_message_name := NULL;
1653: p_v_curr_desc => l_v_curr_desc,
1654: p_v_message_name => l_v_message_name
1655: );
1656: IF l_v_message_name IS NOT NULL THEN
1657: fnd_message.set_name('IGS',l_v_message_name);
1658: fnd_file.put_line(fnd_file.log,fnd_message.get);
1659: RAISE l_exp_err_exception;
1660: END IF;
1661:
1654: p_v_message_name => l_v_message_name
1655: );
1656: IF l_v_message_name IS NOT NULL THEN
1657: fnd_message.set_name('IGS',l_v_message_name);
1658: fnd_file.put_line(fnd_file.log,fnd_message.get);
1659: RAISE l_exp_err_exception;
1660: END IF;
1661:
1662: --Check if the credit instrument - 'AID' is valid and active lookup code for the 'IGS_FI_CREDIT_INSTRUMENT' lookup type
1663: --as on the current system date.
1664: --if not valid, then log the error message and skip processing the same record and continue with the next record.
1665: IF NOT igs_fi_crdapi_util.validate_igs_lkp( p_v_lookup_type => 'IGS_FI_CREDIT_INSTRUMENT',
1666: p_v_lookup_code => 'AID') THEN
1667: fnd_message.set_name('IGS','IGS_FI_CAPI_CRD_INSTR_NULL');
1668: fnd_message.set_token('CR_INSTR',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_CREDIT_INSTRUMENT','AID'));
1669: fnd_file.put_line(fnd_file.log,fnd_message.get);
1670: RAISE l_exp_err_exception;
1671: END IF;
1664: --if not valid, then log the error message and skip processing the same record and continue with the next record.
1665: IF NOT igs_fi_crdapi_util.validate_igs_lkp( p_v_lookup_type => 'IGS_FI_CREDIT_INSTRUMENT',
1666: p_v_lookup_code => 'AID') THEN
1667: fnd_message.set_name('IGS','IGS_FI_CAPI_CRD_INSTR_NULL');
1668: fnd_message.set_token('CR_INSTR',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_CREDIT_INSTRUMENT','AID'));
1669: fnd_file.put_line(fnd_file.log,fnd_message.get);
1670: RAISE l_exp_err_exception;
1671: END IF;
1672:
1665: IF NOT igs_fi_crdapi_util.validate_igs_lkp( p_v_lookup_type => 'IGS_FI_CREDIT_INSTRUMENT',
1666: p_v_lookup_code => 'AID') THEN
1667: fnd_message.set_name('IGS','IGS_FI_CAPI_CRD_INSTR_NULL');
1668: fnd_message.set_token('CR_INSTR',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_CREDIT_INSTRUMENT','AID'));
1669: fnd_file.put_line(fnd_file.log,fnd_message.get);
1670: RAISE l_exp_err_exception;
1671: END IF;
1672:
1673: --To check whether the profile value is set to a value of 'When Transfers are made to student finance' or not
1703: IF NOT igf_aw_coa_gen.isCOALocked(l_cur_base.base_id) THEN
1704: lv_locking_success := igf_aw_coa_gen.doLock(l_cur_base.base_id);
1705:
1706: IF lv_locking_success = 'Y' THEN
1707: fnd_message.set_name('IGF','IGF_AW_STUD_COA_LOCK');
1708: fnd_message.set_token('PERSON_NUM',igf_gr_gen.get_per_num (l_cur_base.base_id));
1709: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
1710: lv_locking_success := 'N' ;
1711: END IF;
1704: lv_locking_success := igf_aw_coa_gen.doLock(l_cur_base.base_id);
1705:
1706: IF lv_locking_success = 'Y' THEN
1707: fnd_message.set_name('IGF','IGF_AW_STUD_COA_LOCK');
1708: fnd_message.set_token('PERSON_NUM',igf_gr_gen.get_per_num (l_cur_base.base_id));
1709: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
1710: lv_locking_success := 'N' ;
1711: END IF;
1712: END IF;
1705:
1706: IF lv_locking_success = 'Y' THEN
1707: fnd_message.set_name('IGF','IGF_AW_STUD_COA_LOCK');
1708: fnd_message.set_token('PERSON_NUM',igf_gr_gen.get_per_num (l_cur_base.base_id));
1709: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
1710: lv_locking_success := 'N' ;
1711: END IF;
1712: END IF;
1713:
1722:
1723: -- if the above call out returns an error status, the error message is logged in the
1724: -- log file and process errors out
1725: IF l_v_status <> 'S' THEN
1726: fnd_message.set_name('IGF','IGF_AP_INVALID_QUERY');
1727: fnd_file.put_line(fnd_file.log,fnd_message.get);
1728: RAISE l_exp_err_exception;
1729: END IF;
1730:
1723: -- if the above call out returns an error status, the error message is logged in the
1724: -- log file and process errors out
1725: IF l_v_status <> 'S' THEN
1726: fnd_message.set_name('IGF','IGF_AP_INVALID_QUERY');
1727: fnd_file.put_line(fnd_file.log,fnd_message.get);
1728: RAISE l_exp_err_exception;
1729: END IF;
1730:
1731: --Bug #5021084. Passing Group ID if the group type is STATIC.
1765: IF NOT igf_aw_coa_gen.isCOALocked(l_cur_base.base_id) THEN
1766: lv_locking_success := igf_aw_coa_gen.doLock(l_cur_base.base_id);
1767:
1768: IF lv_locking_success = 'Y' THEN
1769: fnd_message.set_name('IGF','IGF_AW_STUD_COA_LOCK');
1770: fnd_message.set_token('PERSON_NUM',igf_gr_gen.get_per_num (l_cur_base.base_id));
1771: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
1772: lv_locking_success := 'N' ;
1773: END IF;
1766: lv_locking_success := igf_aw_coa_gen.doLock(l_cur_base.base_id);
1767:
1768: IF lv_locking_success = 'Y' THEN
1769: fnd_message.set_name('IGF','IGF_AW_STUD_COA_LOCK');
1770: fnd_message.set_token('PERSON_NUM',igf_gr_gen.get_per_num (l_cur_base.base_id));
1771: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
1772: lv_locking_success := 'N' ;
1773: END IF;
1774: END IF;
1767:
1768: IF lv_locking_success = 'Y' THEN
1769: fnd_message.set_name('IGF','IGF_AW_STUD_COA_LOCK');
1770: fnd_message.set_token('PERSON_NUM',igf_gr_gen.get_per_num (l_cur_base.base_id));
1771: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
1772: lv_locking_success := 'N' ;
1773: END IF;
1774: END IF;
1775: END IF;
1810: IF NOT igf_aw_coa_gen.isCOALocked(l_cur_base.base_id) THEN
1811: lv_locking_success := igf_aw_coa_gen.doLock(l_cur_base.base_id);
1812:
1813: IF lv_locking_success = 'Y' THEN
1814: fnd_message.set_name('IGF','IGF_AW_STUD_COA_LOCK');
1815: fnd_message.set_token('PERSON_NUM',igf_gr_gen.get_per_num (l_cur_base.base_id));
1816: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
1817: lv_locking_success := 'N' ;
1818: END IF;
1811: lv_locking_success := igf_aw_coa_gen.doLock(l_cur_base.base_id);
1812:
1813: IF lv_locking_success = 'Y' THEN
1814: fnd_message.set_name('IGF','IGF_AW_STUD_COA_LOCK');
1815: fnd_message.set_token('PERSON_NUM',igf_gr_gen.get_per_num (l_cur_base.base_id));
1816: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
1817: lv_locking_success := 'N' ;
1818: END IF;
1819: END IF;
1812:
1813: IF lv_locking_success = 'Y' THEN
1814: fnd_message.set_name('IGF','IGF_AW_STUD_COA_LOCK');
1815: fnd_message.set_token('PERSON_NUM',igf_gr_gen.get_per_num (l_cur_base.base_id));
1816: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
1817: lv_locking_success := 'N' ;
1818: END IF;
1819: END IF;
1820:
1831: END IF;
1832:
1833: END IF;
1834:
1835: fnd_file.put_line(fnd_file.log,fnd_message.get_string('IGS','IGS_GE_TOTAL_REC_PROCESSED')||TO_CHAR(l_record_count));
1836:
1837: EXCEPTION
1838: WHEN l_exp_err_exception THEN
1839: retcode := 2;
1838: WHEN l_exp_err_exception THEN
1839: retcode := 2;
1840: WHEN OTHERS THEN
1841: retcode := 2;
1842: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION') || ' : ' ||sqlerrm;
1843: igs_ge_msg_stack.conc_exception_hndl;
1844: END transfer_disb_dtls_to_sf;
1845:
1846: END igf_db_sf_integration;