[Home] [Help]
915: RETURN;
916: END IF;
917:
918: --Get the description of the Credit to be created from the message
919: fnd_message.set_name('IGS','IGS_FI_NEG_CHG_ADJ');
920: l_cr_desc := fnd_message.get;
921:
922: l_credit_id := NULL;
923:
916: END IF;
917:
918: --Get the description of the Credit to be created from the message
919: fnd_message.set_name('IGS','IGS_FI_NEG_CHG_ADJ');
920: l_cr_desc := fnd_message.get;
921:
922: l_credit_id := NULL;
923:
924:
1576: -- If this value is NULL then this process should error out.
1577: igs_fi_com_rec_interface.chk_manage_account ( p_v_manage_acc => l_v_manage_accounts,
1578: p_v_message_name => l_v_message_name );
1579: IF l_v_manage_accounts IS NULL THEN
1580: fnd_message.set_name ( 'IGS', l_v_message_name );
1581: fnd_msg_pub.add;
1582: RAISE fnd_api.g_exc_error;
1583: END IF;
1584:
1587: FETCH cur_ctrl INTO l_ctrl_rec;
1588: CLOSE cur_ctrl;
1589: --If Oracle General Ledger is not installed and Account Conversion Flag is null, raise error.
1590: IF l_ctrl_rec.rec_installed = 'N' AND l_ctrl_rec.acct_conv_flag IS NULL THEN
1591: fnd_message.set_name('IGS','IGS_FI_ACCT_CONV_NOTRUN');
1592: fnd_msg_pub.add;
1593: RAISE fnd_api.g_exc_error;
1594: END IF;
1595:
1604: );
1605:
1606: --If Holds Balance conversion process is running..error out from Charges API.
1607: IF l_cnv_prc = 1 AND l_message_name IS NULL THEN
1608: fnd_message.set_name('IGS','IGS_FI_REASS_BAL_PRC_RUN');
1609: fnd_msg_pub.add;
1610: RAISE fnd_api.g_exc_error;
1611: END IF;
1612:
1610: RAISE fnd_api.g_exc_error;
1611: END IF;
1612:
1613: IF l_message_name IS NOT NULL THEN
1614: fnd_message.set_name('IGS',l_message_name);
1615: fnd_msg_pub.add;
1616: RAISE fnd_api.g_exc_error;
1617: END IF;
1618:
1626: );
1627:
1628: --If no active balance rule exists for 'HOLDS', error out Charges API.
1629: IF l_version_number = 0 THEN
1630: fnd_message.set_name('IGS','IGS_FI_CANNOT_CRT_TXN');
1631: fnd_msg_pub.add;
1632: RAISE fnd_api.g_exc_error;
1633: END IF;
1634: END IF;
1636: -- Check if there are records in the Lines table being input to API
1637:
1638: IF p_line_tbl.COUNT = 0 THEN
1639: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1640: fnd_message.set_name('IGS','IGS_FI_SAT_NO_ROWS_FOUND');
1641: fnd_msg_pub.add;
1642: RAISE fnd_api.g_exc_error;
1643: END IF;
1644: END IF;
1654:
1655: -- Add the message to the Message list and error out.
1656: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1657: l_valid := FALSE;
1658: fnd_message.set_name('IGS','IGS_FI_INVALID_PERSON');
1659: fnd_message.set_token('PERSON_ID',TO_CHAR(p_header_rec.p_person_id));
1660: fnd_msg_pub.add;
1661: RAISE fnd_api.g_exc_error;
1662: END IF;
1655: -- Add the message to the Message list and error out.
1656: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1657: l_valid := FALSE;
1658: fnd_message.set_name('IGS','IGS_FI_INVALID_PERSON');
1659: fnd_message.set_token('PERSON_ID',TO_CHAR(p_header_rec.p_person_id));
1660: fnd_msg_pub.add;
1661: RAISE fnd_api.g_exc_error;
1662: END IF;
1663: END IF;
1679: FETCH cur_alt_cd_desc INTO l_v_fee_alt_cd, l_v_fee_ci_desc;
1680: CLOSE cur_alt_cd_desc;
1681:
1682: l_valid := FALSE;
1683: fnd_message.set_name('IGS','IGS_FI_INVALID_FTCI');
1684: fnd_message.set_token('FEE_TYPE',p_header_rec.p_fee_type);
1685: fnd_message.set_token('CI_DESC',l_v_fee_ci_desc);
1686: fnd_msg_pub.add;
1687: RAISE fnd_api.g_exc_error;
1680: CLOSE cur_alt_cd_desc;
1681:
1682: l_valid := FALSE;
1683: fnd_message.set_name('IGS','IGS_FI_INVALID_FTCI');
1684: fnd_message.set_token('FEE_TYPE',p_header_rec.p_fee_type);
1685: fnd_message.set_token('CI_DESC',l_v_fee_ci_desc);
1686: fnd_msg_pub.add;
1687: RAISE fnd_api.g_exc_error;
1688: END IF;
1681:
1682: l_valid := FALSE;
1683: fnd_message.set_name('IGS','IGS_FI_INVALID_FTCI');
1684: fnd_message.set_token('FEE_TYPE',p_header_rec.p_fee_type);
1685: fnd_message.set_token('CI_DESC',l_v_fee_ci_desc);
1686: fnd_msg_pub.add;
1687: RAISE fnd_api.g_exc_error;
1688: END IF;
1689: END IF;
1697: IF NOT l_bool THEN
1698: -- Add the message to the Message list and error out.
1699: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1700: l_valid := FALSE;
1701: fnd_message.set_name('IGS','IGS_FI_INVALID_FCFL');
1702: fnd_message.set_token('FEE_CAT',p_header_rec.p_fee_cat);
1703: fnd_message.set_token('FEE_TYPE',p_header_rec.p_fee_type);
1704: fnd_msg_pub.add;
1705: RAISE fnd_api.g_exc_error;
1698: -- Add the message to the Message list and error out.
1699: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1700: l_valid := FALSE;
1701: fnd_message.set_name('IGS','IGS_FI_INVALID_FCFL');
1702: fnd_message.set_token('FEE_CAT',p_header_rec.p_fee_cat);
1703: fnd_message.set_token('FEE_TYPE',p_header_rec.p_fee_type);
1704: fnd_msg_pub.add;
1705: RAISE fnd_api.g_exc_error;
1706: END IF;
1699: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1700: l_valid := FALSE;
1701: fnd_message.set_name('IGS','IGS_FI_INVALID_FCFL');
1702: fnd_message.set_token('FEE_CAT',p_header_rec.p_fee_cat);
1703: fnd_message.set_token('FEE_TYPE',p_header_rec.p_fee_type);
1704: fnd_msg_pub.add;
1705: RAISE fnd_api.g_exc_error;
1706: END IF;
1707: END IF;
1714: IF NOT l_bool THEN
1715: -- Add the message to the Message list and error out.
1716: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1717: l_valid := FALSE;
1718: fnd_message.set_name('IGS','IGS_FI_INVALID_COURSE');
1719: fnd_message.set_token('COURSE_CD',p_header_rec.p_course_cd);
1720: fnd_msg_pub.add;
1721: RAISE fnd_api.g_exc_error;
1722: END IF;
1715: -- Add the message to the Message list and error out.
1716: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1717: l_valid := FALSE;
1718: fnd_message.set_name('IGS','IGS_FI_INVALID_COURSE');
1719: fnd_message.set_token('COURSE_CD',p_header_rec.p_course_cd);
1720: fnd_msg_pub.add;
1721: RAISE fnd_api.g_exc_error;
1722: END IF;
1723: END IF;
1734: IF NOT l_bool THEN
1735: -- Add the message to the message stack and error out.
1736: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1737: l_valid := FALSE;
1738: fnd_message.set_name('IGS','IGS_FI_INVALID_TXN_TYPE');
1739: fnd_message.set_token('TXN_TYPE',p_header_rec.p_transaction_type);
1740: fnd_msg_pub.add;
1741: RAISE fnd_api.g_exc_error;
1742: END IF;
1735: -- Add the message to the message stack and error out.
1736: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1737: l_valid := FALSE;
1738: fnd_message.set_name('IGS','IGS_FI_INVALID_TXN_TYPE');
1739: fnd_message.set_token('TXN_TYPE',p_header_rec.p_transaction_type);
1740: fnd_msg_pub.add;
1741: RAISE fnd_api.g_exc_error;
1742: END IF;
1743: END IF;
1750: -- Add the message to the message list and error out.
1751: -- Error message changed as part of bug 2584986
1752: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1753: l_valid := FALSE;
1754: fnd_message.set_name('IGS','IGS_FI_INVALID_CUR');
1755: fnd_message.set_token('CUR_CD',p_header_rec.p_currency_cd);
1756: fnd_msg_pub.add;
1757: RAISE fnd_api.g_exc_error;
1758: END IF;
1751: -- Error message changed as part of bug 2584986
1752: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1753: l_valid := FALSE;
1754: fnd_message.set_name('IGS','IGS_FI_INVALID_CUR');
1755: fnd_message.set_token('CUR_CD',p_header_rec.p_currency_cd);
1756: fnd_msg_pub.add;
1757: RAISE fnd_api.g_exc_error;
1758: END IF;
1759: END IF;
1773: FETCH cur_alt_cd_desc INTO l_v_fee_alt_cd, l_v_fee_ci_desc;
1774: CLOSE cur_alt_cd_desc;
1775:
1776: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1777: fnd_message.set_name('IGS','IGS_FI_WAV_PGM_NO_REC_FOUND');
1778: fnd_message.set_token('FEE_ALT_CD',l_v_fee_alt_cd);
1779: fnd_message.set_token('FEE_TYPE',p_header_rec.p_fee_type);
1780: fnd_msg_pub.add;
1781: RAISE fnd_api.g_exc_error;
1774: CLOSE cur_alt_cd_desc;
1775:
1776: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1777: fnd_message.set_name('IGS','IGS_FI_WAV_PGM_NO_REC_FOUND');
1778: fnd_message.set_token('FEE_ALT_CD',l_v_fee_alt_cd);
1779: fnd_message.set_token('FEE_TYPE',p_header_rec.p_fee_type);
1780: fnd_msg_pub.add;
1781: RAISE fnd_api.g_exc_error;
1782: END IF;
1775:
1776: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1777: fnd_message.set_name('IGS','IGS_FI_WAV_PGM_NO_REC_FOUND');
1778: fnd_message.set_token('FEE_ALT_CD',l_v_fee_alt_cd);
1779: fnd_message.set_token('FEE_TYPE',p_header_rec.p_fee_type);
1780: fnd_msg_pub.add;
1781: RAISE fnd_api.g_exc_error;
1782: END IF;
1783: END IF;
1790: IF NOT igs_fi_crdapi_util.validate_igs_lkp( p_v_lookup_type => 'IGS_FI_CREDIT_INSTRUMENT',
1791: p_v_lookup_code => g_adj) THEN
1792: --If not valid, then raise error and stop processing further.
1793: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1794: fnd_message.set_name('IGS','IGS_FI_CAPI_CRD_INSTR_NULL');
1795: fnd_message.set_token('CR_INSTR',g_adj);
1796: fnd_msg_pub.add;
1797: RAISE fnd_api.g_exc_error;
1798: END IF;
1791: p_v_lookup_code => g_adj) THEN
1792: --If not valid, then raise error and stop processing further.
1793: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1794: fnd_message.set_name('IGS','IGS_FI_CAPI_CRD_INSTR_NULL');
1795: fnd_message.set_token('CR_INSTR',g_adj);
1796: fnd_msg_pub.add;
1797: RAISE fnd_api.g_exc_error;
1798: END IF;
1799: END IF;
1811: IF NOT l_bool THEN
1812: -- Add the message to the message list and error out.
1813: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1814: l_valid := FALSE;
1815: fnd_message.set_name('IGS','IGS_FI_INV_CHG_MTHD_TYPE');
1816: fnd_message.set_token('CHG_METHOD',p_line_tbl(l_var).p_s_chg_method_type);
1817: fnd_msg_pub.add;
1818: EXIT;
1819: END IF;
1812: -- Add the message to the message list and error out.
1813: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1814: l_valid := FALSE;
1815: fnd_message.set_name('IGS','IGS_FI_INV_CHG_MTHD_TYPE');
1816: fnd_message.set_token('CHG_METHOD',p_line_tbl(l_var).p_s_chg_method_type);
1817: fnd_msg_pub.add;
1818: EXIT;
1819: END IF;
1820: END IF;
1845: IF NOT l_bool THEN
1846: -- Add the message to the message list
1847: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1848: l_valid := FALSE;
1849: fnd_message.set_name('IGS','IGS_FI_INVALID_UOO_ID');
1850: fnd_msg_pub.add;
1851: EXIT;
1852: END IF;
1853: END IF;
1874: IF NOT l_bool THEN
1875: -- Add the message to the message list
1876: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1877: l_valid := FALSE;
1878: fnd_message.set_name('IGS','IGS_FI_INVALID_ORG_UNIT_CD');
1879: fnd_message.set_token('ORG_CD',p_line_tbl(l_var).p_org_unit_cd);
1880: fnd_msg_pub.add;
1881: EXIT;
1882: END IF;
1875: -- Add the message to the message list
1876: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1877: l_valid := FALSE;
1878: fnd_message.set_name('IGS','IGS_FI_INVALID_ORG_UNIT_CD');
1879: fnd_message.set_token('ORG_CD',p_line_tbl(l_var).p_org_unit_cd);
1880: fnd_msg_pub.add;
1881: EXIT;
1882: END IF;
1883: END IF;
1904:
1905: -- Add the message to the message list and error out.
1906: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1907: l_valid := FALSE;
1908: fnd_message.set_name('IGS','IGS_FI_INVALID_SRC_TXN_ID');
1909: fnd_msg_pub.add;
1910: RAISE fnd_api.g_exc_error;
1911: END IF;
1912: END IF;
1942: -- If the validate negative amount procedure returns an error, then exit out of the charges api
1943: IF l_val_neg_amnt = 1 THEN
1944: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1945: l_valid := FALSE;
1946: fnd_message.set_name('IGS','IGS_FI_SRC_TXN_ACC_INV');
1947: fnd_msg_pub.add;
1948: RAISE fnd_api.g_exc_error;
1949: END IF;
1950: ELSIF l_val_neg_amnt = 2 THEN
1949: END IF;
1950: ELSIF l_val_neg_amnt = 2 THEN
1951: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1952: l_valid := FALSE;
1953: fnd_message.set_name('IGS','IGS_FI_INVALID_INV_AMT');
1954: fnd_msg_pub.add;
1955: RAISE fnd_api.g_exc_error;
1956: END IF;
1957: END IF;
1994: -- If the procedure has not passed the error message then just raise the error
1995: IF NOT l_status THEN
1996: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1997: IF l_err_msg IS NOT NULL THEN
1998: fnd_message.set_name('IGS',l_err_msg);
1999: fnd_msg_pub.add;
2000: END IF;
2001: RAISE fnd_api.g_exc_error;
2002: END IF;
2056: -- error
2057: IF NOT l_status THEN
2058: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2059: IF l_err_msg IS NOT NULL THEN
2060: fnd_message.set_name('IGS',l_err_msg);
2061: fnd_msg_pub.add;
2062: END IF;
2063: RAISE fnd_api.g_exc_error;
2064: END IF;
2117: p_status => l_status);
2118: IF NOT l_status THEN
2119: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2120: IF l_err_msg IS NOT NULL THEN
2121: fnd_message.set_name('IGS',l_err_msg);
2122: fnd_msg_pub.add;
2123: END IF;
2124: RAISE fnd_api.g_exc_error;
2125: END IF;
2175: p_status => l_status);
2176: IF NOT l_status THEN
2177: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2178: IF l_err_msg IS NOT NULL THEN
2179: fnd_message.set_name('IGS',l_err_msg);
2180: fnd_msg_pub.add;
2181: END IF;
2182: RAISE fnd_api.g_exc_error;
2183: END IF;
2284: p_error_string => l_error_string,
2285: p_flag => l_flag);
2286: IF l_flag =1 THEN
2287: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2288: fnd_message.set_name('IGS',l_error_string);
2289: fnd_msg_pub.add;
2290: RAISE fnd_api.g_exc_error;
2291: END IF;
2292: l_error_account := 'Y';
2296: -- even after zero fill flag is provided
2297: l_error_account := 'Y';
2298: IF p_header_rec.p_transaction_type = 'DOCUMENT' THEN
2299: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2300: fnd_message.set_name('IGS','IGS_FI_SRC_TXN_ACC_INV');
2301: fnd_msg_pub.add;
2302: RAISE fnd_api.g_exc_error;
2303: END IF;
2304: END IF;
2393: -- the update_balances procedure
2394: IF l_message_name IS NOT NULL THEN
2395: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2396: l_valid := FALSE;
2397: fnd_message.set_name('IGS',l_message_name);
2398: fnd_msg_pub.add;
2399: RAISE fnd_api.g_exc_error;
2400: END IF;
2401: END IF;
2430: -- the update_balances procedure
2431: IF l_message_name IS NOT NULL THEN
2432: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2433: l_valid := FALSE;
2434: fnd_message.set_name('IGS',l_message_name);
2435: fnd_msg_pub.add;
2436: RAISE fnd_api.g_exc_error;
2437: END IF;
2438: END IF;
2476: );
2477: --If return status of Error
2478: IF l_v_return_status = 'E' THEN
2479: -- Message that no transactions have been carried out due to some error
2480: fnd_message.set_name('IGS','IGS_FI_WAV_NO_TRANS_CREATED');
2481: fnd_msg_pub.add;
2482: x_waiver_amount := 0;
2483: --If return status of Success
2484: ELSIF l_v_return_status = 'S' THEN
2509: );
2510: --If return status of Error
2511: IF l_v_return_status = 'E' THEN
2512: -- Message that no transactions have been carried out due to some error
2513: fnd_message.set_name('IGS','IGS_FI_WAV_NO_TRANS_CREATED');
2514: fnd_msg_pub.add;
2515: x_waiver_amount := 0;
2516: --If return status of Success
2517: ELSIF l_v_return_status = 'S' THEN