[Home] [Help]
2: /* $Header: ARXPRELB.pls 120.92.12020000.6 2013/04/25 13:02:33 kgnanase ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_RECEIPT_LIB_PVT';
5:
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_RECEIPT_LIB_PVT';
5:
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
11: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_RECEIPT_LIB_PVT';
5:
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
11: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
12:
5:
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
11: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
12:
13: G_SITE_USE_CACHE_SIZE BINARY_INTEGER := 1000;
6: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
11: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
12:
13: G_SITE_USE_CACHE_SIZE BINARY_INTEGER := 1000;
14: G_CUST_NUM_CACHE_SIZE BINARY_INTEGER := 1000;
7: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
8: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
9: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
10: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
11: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
12:
13: G_SITE_USE_CACHE_SIZE BINARY_INTEGER := 1000;
14: G_CUST_NUM_CACHE_SIZE BINARY_INTEGER := 1000;
15: G_CUST_NAME_CACHE_SIZE BINARY_INTEGER := 1000;
940: ELSE
941: --p_return_status := FND_API.G_RET_STS_ERROR;
942: --FND_MESSAGE.SET_NAME('AR', 'INVALID_VALUE_ERR');
943: --FND_MESSAGE.SET_TOKEN('PARAMETER','Customer Number/Name');
944: --FND_MSG_PUB.Add;
945: RETURN(NULL);
946: END IF;
947:
948: EXCEPTION
1120: END IF;
1121: -- Raise error message if failure in defaulting the gl_date
1122: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
1123: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
1124: FND_MSG_PUB.Add;
1125: p_return_status := FND_API.G_RET_STS_ERROR;
1126: END IF;
1127: END IF;
1128: IF PG_DEBUG in ('Y', 'C') THEN
1367: --This will happen only if the receipt method was specified
1368: --and we tried to default the remittance bank and the state
1369: p_return_status := FND_API.G_RET_STS_ERROR;
1370: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_ID_NULL');
1371: FND_MSG_PUB.Add;
1372: IF PG_DEBUG in ('Y', 'C') THEN
1373: arp_util.debug('Default_Receipt_Method_Info: ' || 'The remittance bank account could not be defaulted ');
1374: END IF;
1375: WHEN others THEN
1423: END IF;
1424: END IF;
1425: IF (NOT l_value) THEN
1426: FND_MESSAGE.SET_NAME('AR',p_message);
1427: FND_MSG_PUB.Add;
1428: p_return_status := FND_API.G_RET_STS_ERROR;
1429: END IF;
1430: END validate_cc_segments;
1431:
1685: ELSE
1686: --if user has entered exchange rate for type <> User, raise error message
1687: p_return_status := FND_API.G_RET_STS_ERROR;
1688: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_INVALID');
1689: FND_MSG_PUB.Add;
1690: END IF;
1691: ELSE
1692: --case where rate_type is 'User'
1693:
1803: p_customer_name,
1804: l_get_id_return_status);
1805: IF p_customer_id IS NULL THEN
1806: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_INVALID');
1807: FND_MSG_PUB.Add;
1808: p_return_status := FND_API.G_RET_STS_ERROR;
1809: END IF;
1810:
1811: ELSIF(p_customer_name IS NULL) and
1815: p_customer_number,
1816: l_get_id_return_status);
1817: IF p_customer_id IS NULL THEN
1818: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NUM_INVALID');
1819: FND_MSG_PUB.Add;
1820: p_return_status := FND_API.G_RET_STS_ERROR;
1821: END IF;
1822:
1823: ELSIF(p_customer_name IS NOT NULL) and
1828: p_customer_name,
1829: l_get_x_val_return_status);
1830: IF p_customer_id IS NULL THEN
1831: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_INVALID');
1832: FND_MSG_PUB.Add;
1833: p_return_status := FND_API.G_RET_STS_ERROR;
1834: END IF;
1835: END IF;
1836:
1839: IF (p_customer_name IS NOT NULL) OR
1840: (p_customer_number IS NOT NULL) THEN
1841: --give a warning message to indicate that the customer_number and customer_name
1842: --entered by the user have been ignored.
1843: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1844: THEN
1845: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1846: FND_MSG_PUB.Add;
1847: p_return_status := FND_API.G_RET_STS_ERROR;
1842: --entered by the user have been ignored.
1843: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1844: THEN
1845: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1846: FND_MSG_PUB.Add;
1847: p_return_status := FND_API.G_RET_STS_ERROR;
1848: END IF;
1849: END IF;
1850:
1910: l_get_id_return_status
1911: );
1912: IF p_receipt_method_id IS NULL THEN
1913: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_INVALID');
1914: FND_MSG_PUB.Add;
1915: p_return_status := FND_API.G_RET_STS_ERROR;
1916: ELSE
1917: l_boe_flag := arpt_sql_func_util.check_BOE_Paymeth(p_receipt_method_id);
1918: if l_boe_flag = 'Y' then
1916: ELSE
1917: l_boe_flag := arpt_sql_func_util.check_BOE_Paymeth(p_receipt_method_id);
1918: if l_boe_flag = 'Y' then
1919: FND_MESSAGE.SET_NAME('AR','AR_BOE_OBSOLETE');
1920: FND_MSG_PUB.Add;
1921: p_return_status := FND_API.G_RET_STS_ERROR;
1922: end if;
1923: END IF;
1924: END IF;
1925: ELSE
1926: IF (p_receipt_method_name IS NOT NULL) THEN
1927: --give a warning message to indicate that the receipt_method_name
1928: --entered by the user has been ignored.
1929: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1930: THEN
1931: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_IGN');
1932: FND_MSG_PUB.Add;
1933: END IF;
1928: --entered by the user has been ignored.
1929: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1930: THEN
1931: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_IGN');
1932: FND_MSG_PUB.Add;
1933: END IF;
1934: ELSE
1935: BEGIN
1936: SELECT name
1940:
1941: l_boe_flag := arpt_sql_func_util.check_BOE_Paymeth(p_receipt_method_id);
1942: if l_boe_flag = 'Y' then
1943: FND_MESSAGE.SET_NAME('AR','AR_BOE_OBSOLETE');
1944: FND_MSG_PUB.Add;
1945: p_return_status := FND_API.G_RET_STS_ERROR;
1946: end if;
1947:
1948: EXCEPTION
1966: l_get_id_return_status
1967: );
1968: IF p_currency_code IS NULL THEN
1969: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_INVALID');
1970: FND_MSG_PUB.Add;
1971: p_return_status := FND_API.G_RET_STS_ERROR;
1972: END IF;
1973: ELSE
1974:
1973: ELSE
1974:
1975: p_currency_code := arp_global.functional_currency;
1976: --Raise a warning message saying that currency was defaulted
1977: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1978: THEN
1979: FND_MESSAGE.SET_NAME('AR','AR_RAPI_FUNC_CURR_DEFAULTED');
1980: FND_MSG_PUB.Add;
1981: END IF;
1976: --Raise a warning message saying that currency was defaulted
1977: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1978: THEN
1979: FND_MESSAGE.SET_NAME('AR','AR_RAPI_FUNC_CURR_DEFAULTED');
1980: FND_MSG_PUB.Add;
1981: END IF;
1982:
1983: END IF;
1984:
1986: IF (p_usr_currency_code IS NOT NULL) THEN
1987:
1988: --give a warning message to indicate that the usr_currency_code
1989: -- entered by the user have been ignored.
1990: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1991: THEN
1992: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_IGN');
1993: FND_MSG_PUB.Add;
1994: END IF;
1989: -- entered by the user have been ignored.
1990: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1991: THEN
1992: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_IGN');
1993: FND_MSG_PUB.Add;
1994: END IF;
1995:
1996: END IF;
1997: END IF;
2010: l_get_id_return_status
2011: );
2012: IF p_customer_bank_account_id IS NULL THEN
2013: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
2014: FND_MSG_PUB.Add;
2015: p_return_status := FND_API.G_RET_STS_ERROR;
2016: END IF; */
2017:
2018: begin
2030: and bb.bank_account_name = p_customer_bank_account_name;
2031: exception
2032: when others then
2033: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
2034: FND_MSG_PUB.Add;
2035: p_return_status := FND_API.G_RET_STS_ERROR;
2036: end;
2037:
2038: ELSIF(p_customer_bank_account_name IS NULL) and
2043: l_get_id_return_status
2044: );
2045: IF p_customer_bank_account_id IS NULL THEN
2046: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
2047: FND_MSG_PUB.Add;
2048: p_return_status := FND_API.G_RET_STS_ERROR;
2049: END IF; */
2050:
2051: begin
2063: and bb.bank_account_number = p_customer_bank_account_num;
2064: exception
2065: when others then
2066: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
2067: FND_MSG_PUB.Add;
2068: p_return_status := FND_API.G_RET_STS_ERROR;
2069: end;
2070:
2071: ELSIF(p_customer_bank_account_name IS NOT NULL) and
2077: l_get_id_return_status
2078: );
2079: IF p_customer_bank_account_id IS NULL THEN
2080: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_2_INVALID');
2081: FND_MSG_PUB.Add;
2082: p_return_status := FND_API.G_RET_STS_ERROR;
2083: END IF; */
2084:
2085: begin
2098: and bb.bank_account_number = p_customer_bank_account_num;
2099: exception
2100: when others then
2101: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_2_INVALID');
2102: FND_MSG_PUB.Add;
2103: p_return_status := FND_API.G_RET_STS_ERROR;
2104: end;
2105:
2106: END IF;
2109: IF (p_customer_bank_account_num IS NOT NULL) OR
2110: (p_customer_bank_account_name IS NOT NULL) THEN
2111: --give a warning message to indicate that the customer_bank_account_num and
2112: --p_customer_bank_account_name entered by the user have been ignored.
2113: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2114: THEN
2115: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_NAME_NUM_IGN');
2116: FND_MSG_PUB.Add;
2117: END IF;
2112: --p_customer_bank_account_name entered by the user have been ignored.
2113: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2114: THEN
2115: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_NAME_NUM_IGN');
2116: FND_MSG_PUB.Add;
2117: END IF;
2118: END IF;
2119:
2120: END IF;
2133: l_get_id_return_status
2134: );
2135: IF p_remittance_bank_account_id IS NULL THEN
2136: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_INVALID');
2137: FND_MSG_PUB.Add;
2138: p_return_status := FND_API.G_RET_STS_ERROR;
2139: END IF;
2140: ELSIF(p_remittance_bank_account_name IS NULL) and
2141: (p_remittance_bank_account_num IS NOT NULL)
2145: l_get_id_return_status
2146: );
2147: IF p_remittance_bank_account_id IS NULL THEN
2148: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NUM_INVALID');
2149: FND_MSG_PUB.Add;
2150: p_return_status := FND_API.G_RET_STS_ERROR;
2151: END IF;
2152: ELSIF(p_remittance_bank_account_name IS NOT NULL) and
2153: (p_remittance_bank_account_num IS NOT NULL)
2158: l_get_x_val_return_status
2159: );
2160: IF p_remittance_bank_account_id IS NULL THEN
2161: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_2_INVALID');
2162: FND_MSG_PUB.Add;
2163: p_return_status := FND_API.G_RET_STS_ERROR;
2164: END IF;
2165: END IF;
2166:
2170: (p_remittance_bank_account_num IS NOT NULL)
2171: THEN
2172: --give a warning message to indicate that the remittance_bank_account_num and
2173: --remittance_bank_account_name entered by the user have been ignored.
2174: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2175: THEN
2176: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_NUM_IGN');
2177: FND_MSG_PUB.Add;
2178: END IF;
2173: --remittance_bank_account_name entered by the user have been ignored.
2174: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2175: THEN
2176: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_NUM_IGN');
2177: FND_MSG_PUB.Add;
2178: END IF;
2179: END IF;
2180:
2181: END IF;
2189: l_get_id_return_status
2190: );
2191: IF p_exchange_rate_type IS NULL THEN
2192: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYP_INVALID');
2193: FND_MSG_PUB.Add;
2194: p_return_status := FND_API.G_RET_STS_ERROR;
2195: END IF;
2196: END IF;
2197:
2198: ELSE
2199: IF (p_usr_exchange_rate_type IS NOT NULL) THEN
2200: --give a warning message to indicate that the usr_exchange_rate_type
2201: -- entered by the user have been ignored.
2202: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2203: THEN
2204: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYPE_IGN');
2205: FND_MSG_PUB.Add;
2206: END IF;
2201: -- entered by the user have been ignored.
2202: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2203: THEN
2204: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYPE_IGN');
2205: FND_MSG_PUB.Add;
2206: END IF;
2207: END IF;
2208:
2209: END IF;
2491: --raise error as the user specified CC rate is not the same as the
2492: --fixed rate.
2493: p_return_status := FND_API.G_RET_STS_ERROR;
2494: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CC_RATE_INVALID');
2495: FND_MSG_PUB.Add;
2496: return;
2497: END IF;
2498: END IF;
2499:
2760: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
2761: THEN
2762: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2763: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_DET_PKG.INITIALIZTION '||SQLERRM);
2764: FND_MSG_PUB.Add;
2765: p_return_status := FND_API.G_RET_STS_ERROR ;
2766:
2767: IF PG_DEBUG in ('Y', 'C') THEN
2768: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred in arp_process_det_pkg.Initialization ');
2778: IF p_line_amount IS NULL AND p_tax_amount IS NULL
2779: AND p_freight_amount IS NULL AND p_charges_amount is NULL
2780: THEN
2781: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_LTFC_AMT_NULL');
2782: FND_MSG_PUB.ADD;
2783: p_return_status := FND_API.G_RET_STS_ERROR ;
2784: END IF;
2785: IF Nvl(p_amount_applied,0) <>
2786: ( Nvl(p_line_amount,0) + Nvl(p_tax_amount,0)
2789: p_amount_applied := Nvl(p_line_amount,0)
2790: + Nvl(p_tax_amount,0) + Nvl(p_freight_amount,0)
2791: + Nvl(p_charges_amount,0);
2792:
2793: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2794: THEN
2795: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_AMT_DEFLT_IGN');
2796: FND_MSG_PUB.Add;
2797: END IF;
2792:
2793: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2794: THEN
2795: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_AMT_DEFLT_IGN');
2796: FND_MSG_PUB.Add;
2797: END IF;
2798:
2799: IF PG_DEBUG in ('Y', 'C') THEN
2800: arp_util.debug('Default_application_info: ' ||
2816: THEN
2817: p_line_amount := NULL;
2818: p_tax_amount := NULL;
2819: p_charges_amount := NULL;
2820: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2821: THEN
2822: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LTC_IGN');
2823: FND_MSG_PUB.Add;
2824: END IF;
2819: p_charges_amount := NULL;
2820: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2821: THEN
2822: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LTC_IGN');
2823: FND_MSG_PUB.Add;
2824: END IF;
2825:
2826: IF PG_DEBUG in ('Y', 'C') THEN
2827: arp_util.debug('Default_val_llca_parameters: ' || 'Line, Tax,
2840: If Nvl(p_amount_applied,0) <> 0
2841: THEN
2842: p_amount_applied := NULL;
2843:
2844: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2845: THEN
2846: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_AMT_DEFLT_IGN');
2847: FND_MSG_PUB.Add;
2848: END IF;
2843:
2844: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2845: THEN
2846: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_AMT_DEFLT_IGN');
2847: FND_MSG_PUB.Add;
2848: END IF;
2849:
2850: IF PG_DEBUG in ('Y', 'C') THEN
2851: arp_util.debug('Default_val_llca_parameters: ' || 'Amount applied
2909: arp_util.debug('' || 'EXCEPTION: Default_val_llca_parameters()');
2910: END IF;
2911: p_return_status := FND_API.G_RET_STS_ERROR ;
2912: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_TRX_LINE_ID_INVALID');
2913: FND_MSG_PUB.ADD;
2914: RAISE;
2915: WHEN others THEN
2916: IF PG_DEBUG in ('Y', 'C') THEN
2917: arp_util.debug('' || 'EXCEPTION: Default_val_llca_parameters()');
3026:
3027:
3028: If Nvl(sp_lines_row.amount_applied,0) <> Nvl(l_calc_tot_amount_app,0)
3029: Then
3030: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
3031: THEN
3032: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_AMT_DEFLT_IGN');
3033: FND_MSG_PUB.Add;
3034: END IF;
3029: Then
3030: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
3031: THEN
3032: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_AMT_DEFLT_IGN');
3033: FND_MSG_PUB.Add;
3034: END IF;
3035: END If;
3036:
3037:
3362: AND p_trx_line_amount < l_applied_in_amount THEN
3363: l_applied_in_amount := p_trx_line_amount;
3364: --give a warning message here to let the user know that the
3365: --transaction line amount has been used as the default amount applied.
3366: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
3367: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_AMT_DEFLT');
3368: FND_MSG_PUB.Add;
3369: END IF;
3370: END IF;
3364: --give a warning message here to let the user know that the
3365: --transaction line amount has been used as the default amount applied.
3366: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
3367: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_AMT_DEFLT');
3368: FND_MSG_PUB.Add;
3369: END IF;
3370: END IF;
3371:
3372: -- Defaulting mode for disount routine.
3500: THEN
3501: p_amount_applied := p_trx_line_amount;
3502: --give a warning message here to let the user know that the
3503: --transaction line amount has been used as the default amount applied.
3504: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
3505: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_AMT_DEFLT');
3506: FND_MSG_PUB.Add;
3507: END IF;
3508: END IF;
3502: --give a warning message here to let the user know that the
3503: --transaction line amount has been used as the default amount applied.
3504: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
3505: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_AMT_DEFLT');
3506: FND_MSG_PUB.Add;
3507: END IF;
3508: END IF;
3509:
3510: END IF; */
3563: EXCEPTION
3564: WHEN no_data_found THEN
3565: p_return_status := FND_API.G_RET_STS_ERROR ;
3566: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_TRX_LINE_ID_INVALID');
3567: FND_MSG_PUB.ADD;
3568: return(null);
3569:
3570: WHEN others THEN
3571: IF PG_DEBUG in ('Y', 'C') THEN
4096: IF p_applied_payment_schedule_id IS NOT NULL THEN
4097: IF l_applied_payment_schedule_id <>
4098: p_applied_payment_schedule_id THEN
4099: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_PS_ID_X_INVALID');
4100: FND_MSG_PUB.Add;
4101: p_return_status := FND_API.G_RET_STS_ERROR ;
4102: END IF;
4103: ELSE
4104: p_applied_payment_schedule_id := l_applied_payment_schedule_id;
4167: when no_data_found then
4168: null;
4169: when too_many_rows then
4170: FND_MESSAGE.SET_NAME('AR', 'AR_RW_PAID_INVOICE_TWICE' );
4171: FND_MSG_PUB.Add;
4172: p_return_status := FND_API.G_RET_STS_ERROR ;
4173: END;
4174: END IF;
4175:
4175:
4176: ELSE --case when p_customer_trx_id is null
4177: --no further validation done in the validation routines for customer_trx_id
4178: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_NULL');
4179: FND_MSG_PUB.Add;
4180: p_return_status := FND_API.G_RET_STS_ERROR ;
4181:
4182: END IF;
4183:
4200:
4201: IF ar_receipt_api_pub.Original_application_info.installment IS NOT NULL THEN
4202: p_return_status := FND_API.G_RET_STS_ERROR ;
4203: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_ID_INST_INVALID');
4204: FND_MSG_PUB.ADD;
4205: ELSE
4206: p_return_status := FND_API.G_RET_STS_ERROR ;
4207: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
4208: FND_MSG_PUB.ADD;
4204: FND_MSG_PUB.ADD;
4205: ELSE
4206: p_return_status := FND_API.G_RET_STS_ERROR ;
4207: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
4208: FND_MSG_PUB.ADD;
4209: END IF;
4210:
4211: ELSIF ar_receipt_api_pub.Original_application_info.trx_number IS NOT NULL THEN
4212:
4212:
4213: IF ar_receipt_api_pub.Original_application_info.installment IS NOT NULL THEN
4214: p_return_status := FND_API.G_RET_STS_ERROR ;
4215: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
4216: FND_MSG_PUB.ADD;
4217: ELSE
4218: p_return_status := FND_API.G_RET_STS_ERROR ;
4219: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INVALID');
4220: FND_MSG_PUB.ADD;
4216: FND_MSG_PUB.ADD;
4217: ELSE
4218: p_return_status := FND_API.G_RET_STS_ERROR ;
4219: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INVALID');
4220: FND_MSG_PUB.ADD;
4221: END IF;
4222:
4223: ELSIF ar_receipt_api_pub.Original_application_info.applied_payment_schedule_id IS NOT NULL THEN
4224: p_return_status := FND_API.G_RET_STS_ERROR ;
4222:
4223: ELSIF ar_receipt_api_pub.Original_application_info.applied_payment_schedule_id IS NOT NULL THEN
4224: p_return_status := FND_API.G_RET_STS_ERROR ;
4225: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
4226: FND_MSG_PUB.ADD;
4227: END IF;
4228: WHEN others THEN
4229: IF PG_DEBUG in ('Y', 'C') THEN
4230: arp_util.debug('EXCEPTION: Default_Trx_Info()');
4324: WHEN no_data_found THEN
4325: IF ar_receipt_api_pub.Original_application_info.cash_receipt_id IS NOT NULL THEN
4326: p_return_status := FND_API.G_RET_STS_ERROR ;
4327: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_CASH_RCPT_ID_INVALID');
4328: FND_MSG_PUB.ADD;
4329: ELSIF ar_receipt_api_pub.Original_application_info.receipt_number IS NOT NULL THEN
4330: p_return_status := FND_API.G_RET_STS_ERROR ;
4331: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_RCPT_NUM_INVALID');
4332: FND_MSG_PUB.ADD;
4328: FND_MSG_PUB.ADD;
4329: ELSIF ar_receipt_api_pub.Original_application_info.receipt_number IS NOT NULL THEN
4330: p_return_status := FND_API.G_RET_STS_ERROR ;
4331: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_RCPT_NUM_INVALID');
4332: FND_MSG_PUB.ADD;
4333: END IF;
4334: WHEN others THEN
4335: IF PG_DEBUG in ('Y', 'C') THEN
4336: arp_util.debug('EXCEPTION: Default_Receipt_Info()');
4355: --otherwise the error would have been raised while defaulting the cash receipt id from the
4356: --receipt number
4357: IF ar_receipt_api_pub.Original_application_info.receipt_number IS NULL THEN
4358: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_CASH_RCPT_ID_NULL');
4359: FND_MSG_PUB.ADD;
4360: p_return_status := FND_API.G_RET_STS_ERROR ;
4361: END IF;
4362:
4363: END IF;
4369: WHEN no_data_found THEN
4370: IF ar_receipt_api_pub.Original_application_info.cash_receipt_id IS NOT NULL THEN
4371: p_return_status := FND_API.G_RET_STS_ERROR ;
4372: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_CASH_RCPT_ID_INVALID');
4373: FND_MSG_PUB.ADD;
4374: ELSIF ar_receipt_api_pub.Original_application_info.receipt_number IS NOT NULL THEN
4375: p_return_status := FND_API.G_RET_STS_ERROR ;
4376: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_RCPT_NUM_INVALID');
4377: FND_MSG_PUB.ADD;
4373: FND_MSG_PUB.ADD;
4374: ELSIF ar_receipt_api_pub.Original_application_info.receipt_number IS NOT NULL THEN
4375: p_return_status := FND_API.G_RET_STS_ERROR ;
4376: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_RCPT_NUM_INVALID');
4377: FND_MSG_PUB.ADD;
4378: END IF;
4379: WHEN others THEN
4380: IF PG_DEBUG in ('Y', 'C') THEN
4381: arp_util.debug('EXCEPTION: Default_Receipt_Info()');
4424: WHERE trx_number = p_trx_number;
4425: EXCEPTION
4426: WHEN no_data_found THEN
4427: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INVALID');
4428: FND_MSG_PUB.Add;
4429: p_return_status := FND_API.G_RET_STS_ERROR ;
4430: END;
4431: END IF;
4432:
4435: IF p_trx_number IS NOT NULL
4436: THEN
4437: --give a warning message to indicate that the trx number
4438: --entered by the user has been ignored.
4439: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
4440: THEN
4441: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_IGN');
4442: FND_MSG_PUB.Add;
4443: END IF;
4438: --entered by the user has been ignored.
4439: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
4440: THEN
4441: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_IGN');
4442: FND_MSG_PUB.Add;
4443: END IF;
4444: END IF;
4445: END IF;
4446: IF PG_DEBUG in ('Y', 'C') THEN
4476: If nvl(l_count,0) = 0 AND
4477: nvl(p_llca_type,'S') = 'G'
4478: THEN
4479: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_GROUP_ID_INVALID');
4480: FND_MSG_PUB.Add;
4481: p_return_status := FND_API.G_RET_STS_ERROR ;
4482: END IF;
4483:
4484: IF PG_DEBUG in ('Y', 'C') THEN
4508: p_line_number IS NOT NULL
4509: THEN
4510: --give a warning message to indicate that the line number
4511: --entered by the user has been ignored.
4512: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
4513: THEN
4514: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_NUM_IGN');
4515: FND_MSG_PUB.Add;
4516: END IF;
4511: --entered by the user has been ignored.
4512: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
4513: THEN
4514: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_NUM_IGN');
4515: FND_MSG_PUB.Add;
4516: END IF;
4517: END IF;
4518:
4519: If p_llca_type IS NULL THEN
4529: AND line_type = 'LINE';
4530: EXCEPTION
4531: WHEN no_data_found THEN
4532: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_NO_INVALID');
4533: FND_MSG_PUB.Add;
4534: p_return_status := FND_API.G_RET_STS_ERROR ;
4535: END;
4536: END IF;
4537: END IF;
4547: AND line_type = 'LINE';
4548: EXCEPTION
4549: WHEN no_data_found THEN
4550: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_ID_INVALID');
4551: FND_MSG_PUB.Add;
4552: p_return_status := FND_API.G_RET_STS_ERROR ;
4553: END;
4554: END IF;
4555: END IF;
4557:
4558: If p_llca_type not in ('S','L','G')
4559: Then
4560: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INVALID_LLCA_TYPE');
4561: FND_MSG_PUB.Add;
4562: p_return_status := FND_API.G_RET_STS_ERROR ;
4563: END IF;
4564:
4565: If p_llca_type = 'L'
4663: WHERE receipt_number = p_receipt_number;
4664: EXCEPTION
4665: WHEN no_data_found THEN
4666: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
4667: FND_MSG_PUB.Add;
4668: p_return_status := FND_API.G_RET_STS_ERROR ;
4669: WHEN too_many_rows THEN
4670: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
4671: FND_MSG_PUB.Add;
4667: FND_MSG_PUB.Add;
4668: p_return_status := FND_API.G_RET_STS_ERROR ;
4669: WHEN too_many_rows THEN
4670: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
4671: FND_MSG_PUB.Add;
4672: p_return_status := FND_API.G_RET_STS_ERROR ;
4673: END;
4674:
4675: ELSE
4676: IF p_receipt_number IS NOT NULL
4677: THEN
4678: --give a warning message to indicate that the receipt number
4679: --entered by the user has been ignored.
4680: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
4681: THEN
4682: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_IGN');
4683: FND_MSG_PUB.Add;
4684: END IF;
4679: --entered by the user has been ignored.
4680: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
4681: THEN
4682: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_IGN');
4683: FND_MSG_PUB.Add;
4684: END IF;
4685: END IF;
4686: END IF;
4687: IF PG_DEBUG in ('Y', 'C') THEN
4757: OPEN payment_schedule;
4758: FETCH payment_schedule INTO l_customer_trx_id, l_installment;
4759: IF payment_schedule%NOTFOUND THEN
4760: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
4761: FND_MSG_PUB.Add;
4762: p_return_status := FND_API.G_RET_STS_ERROR ;
4763: END IF;
4764: CLOSE payment_schedule;
4765:
4785: WHERE customer_trx_id = p_customer_trx_id;
4786: EXCEPTION
4787: WHEN no_data_found THEN
4788: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
4789: FND_MSG_PUB.Add;
4790: p_return_status := FND_API.G_RET_STS_ERROR;
4791: WHEN too_many_rows THEN
4792: If p_llca_type is Null
4793: THEN
4791: WHEN too_many_rows THEN
4792: If p_llca_type is Null
4793: THEN
4794: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
4795: FND_MSG_PUB.Add;
4796: Else
4797: FND_MESSAGE.SET_NAME('AR','AR_LL_INSTALL_NOT_ALLOWED');
4798: FND_MSG_PUB.Add;
4799: End If;
4794: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
4795: FND_MSG_PUB.Add;
4796: Else
4797: FND_MESSAGE.SET_NAME('AR','AR_LL_INSTALL_NOT_ALLOWED');
4798: FND_MSG_PUB.Add;
4799: End If;
4800: p_return_status := FND_API.G_RET_STS_ERROR;
4801: END;
4802: END IF;
4813: where customer_trx_id = p_customer_trx_id;
4814: Exception
4815: WHEN no_data_found THEN
4816: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
4817: FND_MSG_PUB.Add;
4818: p_return_status := FND_API.G_RET_STS_ERROR;
4819: WHEN too_many_rows THEN
4820: FND_MESSAGE.SET_NAME('AR','AR_LL_INSTALL_NOT_ALLOWED');
4821: FND_MSG_PUB.Add;
4817: FND_MSG_PUB.Add;
4818: p_return_status := FND_API.G_RET_STS_ERROR;
4819: WHEN too_many_rows THEN
4820: FND_MESSAGE.SET_NAME('AR','AR_LL_INSTALL_NOT_ALLOWED');
4821: FND_MSG_PUB.Add;
4822: p_return_status := FND_API.G_RET_STS_ERROR;
4823: END;
4824: End If;
4825:
5030:
5031: /* Bug 4038708 */
5032: IF(l_cr_customer_id is NULL) THEN
5033: FND_MESSAGE.SET_NAME( 'AR','AR_RW_REC_NO_CT');
5034: FND_MSG_PUB.ADD;
5035: p_return_status := FND_API.G_RET_STS_ERROR ;
5036: END IF;
5037: END IF;
5038:
5336: WHEN no_data_found THEN
5337:
5338: IF ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NOT NULL THEN
5339: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_ID_INST_INVALID');
5340: FND_MSG_PUB.Add;
5341: p_return_status := FND_API.G_RET_STS_ERROR;
5342: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5343: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
5344: FND_MSG_PUB.Add;
5340: FND_MSG_PUB.Add;
5341: p_return_status := FND_API.G_RET_STS_ERROR;
5342: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5343: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
5344: FND_MSG_PUB.Add;
5345: p_return_status := FND_API.G_RET_STS_ERROR;
5346: END IF;
5347:
5348: END;
5361: ;
5362: EXCEPTION
5363: WHEN no_data_found THEN
5364: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
5365: FND_MSG_PUB.Add;
5366: p_return_status := FND_API.G_RET_STS_ERROR;
5367: WHEN too_many_rows THEN
5368: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
5369: FND_MSG_PUB.Add;
5365: FND_MSG_PUB.Add;
5366: p_return_status := FND_API.G_RET_STS_ERROR;
5367: WHEN too_many_rows THEN
5368: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
5369: FND_MSG_PUB.Add;
5370: p_return_status := FND_API.G_RET_STS_ERROR;
5371: END;
5372:
5373: END IF;
5391: WHEN no_data_found THEN
5392:
5393: IF ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NOT NULL THEN
5394: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_ID_INST_INVALID');
5395: FND_MSG_PUB.Add;
5396: p_return_status := FND_API.G_RET_STS_ERROR;
5397: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5398: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
5399: FND_MSG_PUB.Add;
5395: FND_MSG_PUB.Add;
5396: p_return_status := FND_API.G_RET_STS_ERROR;
5397: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5398: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
5399: FND_MSG_PUB.Add;
5400: p_return_status := FND_API.G_RET_STS_ERROR;
5401: END IF;
5402: END;
5403:
5418: ;
5419: EXCEPTION
5420: WHEN no_data_found THEN
5421: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
5422: FND_MSG_PUB.Add;
5423: p_return_status := FND_API.G_RET_STS_ERROR;
5424: WHEN too_many_rows THEN
5425: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
5426: FND_MSG_PUB.Add;
5422: FND_MSG_PUB.Add;
5423: p_return_status := FND_API.G_RET_STS_ERROR;
5424: WHEN too_many_rows THEN
5425: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
5426: FND_MSG_PUB.Add;
5427: p_return_status := FND_API.G_RET_STS_ERROR;
5428: END;
5429:
5430: END IF;
5477: END IF;
5478: EXCEPTION
5479: WHEN no_data_found THEN
5480: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NOT_APP_TO_INV');
5481: FND_MSG_PUB.Add;
5482: p_return_status := FND_API.G_RET_STS_ERROR;
5483: WHEN others THEN
5484: IF PG_DEBUG in ('Y', 'C') THEN
5485: arp_util.debug('Derive_receivable_appln_id: ' || 'EXCEPTION: Get_receivable_application_id()');
5522: FETCH payment_schedule_br_remit INTO p_customer_trx_id, p_installment;
5523: IF payment_schedule_br_remit%NOTFOUND THEN
5524: --raise error message
5525: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
5526: FND_MSG_PUB.Add;
5527: p_return_status := FND_API.G_RET_STS_ERROR;
5528: END IF;
5529: CLOSE payment_schedule_br_remit;
5530:
5534: FETCH payment_schedule INTO p_customer_trx_id, p_installment;
5535: IF payment_schedule%NOTFOUND THEN
5536: --raise error message
5537: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
5538: FND_MSG_PUB.Add;
5539: p_return_status := FND_API.G_RET_STS_ERROR;
5540: END IF;
5541: CLOSE payment_schedule;
5542:
5589: OPEN rec_apppln_br_remit;
5590: FETCH rec_apppln_br_remit INTO p_cash_receipt_id, p_ra_app_ps_id, p_apply_gl_date, p_customer_trx_id; /* Bug fix 3451241 */
5591: IF rec_apppln_br_remit%NOTFOUND THEN
5592: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
5593: FND_MSG_PUB.Add;
5594: p_return_status := FND_API.G_RET_STS_ERROR;
5595: END IF;
5596: CLOSE rec_apppln_br_remit;
5597:
5600: OPEN rec_apppln;
5601: FETCH rec_apppln INTO p_cash_receipt_id, p_ra_app_ps_id, p_apply_gl_date,p_customer_trx_id; /* Bug fix 3451241 */
5602: IF rec_apppln%NOTFOUND THEN
5603: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
5604: FND_MSG_PUB.Add;
5605: p_return_status := FND_API.G_RET_STS_ERROR;
5606: END IF;
5607: CLOSE rec_apppln;
5608:
5667: --Compare the two customer_trx_ids
5668: IF (nvl(p_customer_trx_id,l_customer_trx_id) <> l_customer_trx_id OR
5669: nvl(p_installment,l_installment) <> l_installment) THEN
5670: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_PS_ID_X_INVALID');
5671: FND_MSG_PUB.Add;
5672: p_return_status := FND_API.G_RET_STS_ERROR;
5673: ELSE
5674: p_customer_trx_id := l_customer_trx_id;
5675: END IF;
5712: THEN
5713: IF ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NOT NULL OR
5714: ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5715: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_RA_ID_X_INVALID');
5716: FND_MSG_PUB.Add;
5717: p_return_status := FND_API.G_RET_STS_ERROR;
5718: ELSIF ar_receipt_api_pub.Original_unapp_info.applied_ps_id IS NOT NULL THEN
5719: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_RA_ID_X_INVALID');
5720: FND_MSG_PUB.Add;
5716: FND_MSG_PUB.Add;
5717: p_return_status := FND_API.G_RET_STS_ERROR;
5718: ELSIF ar_receipt_api_pub.Original_unapp_info.applied_ps_id IS NOT NULL THEN
5719: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_RA_ID_X_INVALID');
5720: FND_MSG_PUB.Add;
5721: p_return_status := FND_API.G_RET_STS_ERROR;
5722: END IF;
5723: ELSE
5724: p_applied_payment_schedule_id := l_ra_app_ps_id;
5726:
5727: IF nvl(l_cash_receipt_id,-99) <> nvl(p_cash_receipt_id,nvl(l_cash_receipt_id,-99)) THEN
5728: --Invalid receivable application identifier for the entered cash receipt
5729: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
5730: FND_MSG_PUB.Add;
5731: p_return_status := FND_API.G_RET_STS_ERROR;
5732: ELSE
5733: p_cash_receipt_id := l_cash_receipt_id;
5734: END IF;
5736: /* LLCA */
5737: IF nvl(l_customer_trx_id,-99) <> nvl(p_customer_trx_id,nvl(l_customer_trx_id,-99)) THEN
5738: --Invalid receivable application identifier for the entered customer trx id receipt
5739: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
5740: FND_MSG_PUB.Add;
5741: p_return_status := FND_API.G_RET_STS_ERROR;
5742: ELSE
5743: p_customer_trx_id := l_customer_trx_id;
5744: END IF;
5852: --here on the stack, but the return status will be set
5853: --to FND_API.G_RET_STS_ERROR in the validation phase.
5854: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
5855: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
5856: FND_MSG_PUB.Add;
5857: END IF;
5858: END IF;
5859: END IF;
5860: IF PG_DEBUG in ('Y', 'C') THEN
5946: AND meaning = p_reversal_category_name;
5947: EXCEPTION
5948: WHEN no_data_found THEN
5949: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_NAME_INVALID');
5950: FND_MSG_PUB.Add;
5951: p_return_status := FND_API.G_RET_STS_ERROR ;
5952: null;
5953: END;
5954: ELSE
5954: ELSE
5955: IF p_reversal_category_name IS NOT NULL THEN
5956: --give a warning message to indicate that the reversal category name
5957: --entered by the user has been ignored.
5958: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
5959: THEN
5960: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_NAME_IGN');
5961: FND_MSG_PUB.Add;
5962: END IF;
5957: --entered by the user has been ignored.
5958: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
5959: THEN
5960: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_NAME_IGN');
5961: FND_MSG_PUB.Add;
5962: END IF;
5963: END IF;
5964: END IF;
5965: IF PG_DEBUG in ('Y', 'C') THEN
5996: AND meaning = p_reversal_reason_name;
5997: EXCEPTION
5998: WHEN no_data_found THEN
5999: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_NAME_INVALID');
6000: FND_MSG_PUB.Add;
6001: p_return_status := FND_API.G_RET_STS_ERROR ;
6002: null;
6003: END;
6004: ELSE
6004: ELSE
6005: IF p_reversal_reason_name IS NOT NULL THEN
6006: --give a warning message to indicate that the reversal category name
6007: --entered by the user has been ignored.
6008: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6009: THEN
6010: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_NAME_IGN');
6011: FND_MSG_PUB.Add;
6012: END IF;
6007: --entered by the user has been ignored.
6008: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6009: THEN
6010: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_NAME_IGN');
6011: FND_MSG_PUB.Add;
6012: END IF;
6013: END IF;
6014: END IF;
6015: IF PG_DEBUG in ('Y', 'C') THEN
6311: AND status = 'ACC';
6312: EXCEPTION
6313: WHEN no_data_found THEN
6314: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
6315: FND_MSG_PUB.Add;
6316: p_return_status := FND_API.G_RET_STS_ERROR ;
6317: WHEN too_many_rows THEN
6318: IF p_receivable_application_id IS NULL THEN
6319: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ON_AC_APP');
6316: p_return_status := FND_API.G_RET_STS_ERROR ;
6317: WHEN too_many_rows THEN
6318: IF p_receivable_application_id IS NULL THEN
6319: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ON_AC_APP');
6320: FND_MSG_PUB.Add;
6321: p_return_status := FND_API.G_RET_STS_ERROR ;
6322: END IF;
6323:
6324: END;
6336: and status = 'ACC';
6337: EXCEPTION
6338: WHEN no_data_found THEN
6339: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
6340: FND_MSG_PUB.Add;
6341: p_return_status := FND_API.G_RET_STS_ERROR ;
6342: END;
6343:
6344: --Compare the two cash_receipt_ids
6345: IF p_cash_receipt_id IS NOT NULL THEN
6346: IF p_cash_receipt_id <> NVL(l_cash_receipt_id,p_cash_receipt_id) THEN
6347: --raise error X validation failed
6348: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
6349: FND_MSG_PUB.Add;
6350: p_return_status := FND_API.G_RET_STS_ERROR ;
6351: END IF;
6352: END IF;
6353:
6406: AND status = 'OTHER ACC';
6407: EXCEPTION
6408: WHEN no_data_found THEN
6409: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
6410: FND_MSG_PUB.Add;
6411: p_return_status := FND_API.G_RET_STS_ERROR ;
6412: WHEN too_many_rows THEN
6413: IF p_receivable_application_id IS NULL THEN
6414: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_PREPAY');
6411: p_return_status := FND_API.G_RET_STS_ERROR ;
6412: WHEN too_many_rows THEN
6413: IF p_receivable_application_id IS NULL THEN
6414: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_PREPAY');
6415: FND_MSG_PUB.Add;
6416: p_return_status := FND_API.G_RET_STS_ERROR ;
6417: END IF;
6418:
6419: END;
6432: and status = 'OTHER ACC';
6433: EXCEPTION
6434: WHEN no_data_found THEN
6435: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
6436: FND_MSG_PUB.Add;
6437: p_return_status := FND_API.G_RET_STS_ERROR ;
6438: END;
6439:
6440: --Compare the two cash_receipt_ids
6441: IF p_cash_receipt_id IS NOT NULL THEN
6442: IF p_cash_receipt_id <> NVL(l_cash_receipt_id,p_cash_receipt_id) THEN
6443: --raise error X validation failed
6444: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
6445: FND_MSG_PUB.Add;
6446: p_return_status := FND_API.G_RET_STS_ERROR ;
6447: END IF;
6448: END IF;
6449:
6514: --here on the stack, but the return status will be set
6515: --to FND_API.G_RET_STS_ERROR in the validation phase.
6516: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
6517: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
6518: FND_MSG_PUB.Add;
6519: END IF;
6520: END IF;
6521:
6522: --derive the receipt_gl_date which is to be used
6598: EXCEPTION
6599: WHEN no_data_found THEN
6600: IF ar_receipt_api_pub.original_activity_unapp_info.cash_receipt_id IS NOT NULL THEN
6601: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
6602: FND_MSG_PUB.Add;
6603: p_return_status := FND_API.G_RET_STS_ERROR ;
6604: ELSIF ar_receipt_api_pub.original_activity_unapp_info.receipt_number IS NOT NULL THEN
6605: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
6606: FND_MSG_PUB.Add;
6602: FND_MSG_PUB.Add;
6603: p_return_status := FND_API.G_RET_STS_ERROR ;
6604: ELSIF ar_receipt_api_pub.original_activity_unapp_info.receipt_number IS NOT NULL THEN
6605: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
6606: FND_MSG_PUB.Add;
6607: p_return_status := FND_API.G_RET_STS_ERROR ;
6608: END IF;
6609: WHEN too_many_rows THEN
6610: IF p_receivable_application_id IS NULL THEN
6608: END IF;
6609: WHEN too_many_rows THEN
6610: IF p_receivable_application_id IS NULL THEN
6611: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ACTIVITY_APP');
6612: FND_MSG_PUB.Add;
6613: p_return_status := FND_API.G_RET_STS_ERROR ;
6614: END IF;
6615:
6616: END;
6638: and status = 'ACTIVITY';
6639: EXCEPTION
6640: WHEN no_data_found THEN
6641: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
6642: FND_MSG_PUB.Add;
6643: p_return_status := FND_API.G_RET_STS_ERROR ;
6644: END;
6645:
6646: --Compare the two cash_receipt_ids
6647: IF p_cash_receipt_id IS NOT NULL THEN
6648: IF p_cash_receipt_id <> NVL(l_cash_receipt_id,p_cash_receipt_id) THEN
6649: --raise error X validation failed
6650: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
6651: FND_MSG_PUB.Add;
6652: p_return_status := FND_API.G_RET_STS_ERROR ;
6653: END IF;
6654: END IF;
6655:
6739: END IF;
6740: p_return_status := FND_API.G_RET_STS_ERROR;
6741: --Error message
6742: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_DOC_SEQ_NOT_EXIST_A');
6743: FND_MSG_PUB.Add;
6744: ELSIF l_doc_seq_ret_stat = -2 THEN
6745: --this is the case of Partially Used
6746: IF PG_DEBUG in ('Y', 'C') THEN
6747: arp_util.debug('get_doc_seq: ' || 'The doc sequence does not exist for the current document');
6746: IF PG_DEBUG in ('Y', 'C') THEN
6747: arp_util.debug('get_doc_seq: ' || 'The doc sequence does not exist for the current document');
6748: END IF;
6749: --Warning
6750: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6751: THEN
6752: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_NOT_EXIST_P');
6753: FND_MSG_PUB.Add;
6754: END IF;
6749: --Warning
6750: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6751: THEN
6752: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_NOT_EXIST_P');
6753: FND_MSG_PUB.Add;
6754: END IF;
6755: END IF;
6756: /* Added SUBSTRB(l_doc_sequence_type,1,1) = 'A' in IF
6757: for Bug 2667348 */
6780: --raise an error message because the user is not supposed to pass
6781: --in a value for the document sequence number in this case.
6782: p_return_status := FND_API.G_RET_STS_ERROR;
6783: FND_MESSAGE.Set_Name('AR', 'AR_RAPI_DOC_SEQ_AUTOMATIC');
6784: FND_MSG_PUB.Add;
6785: END IF;
6786: p_doc_sequence_value := l_doc_sequence_value;
6787: arp_util.debug('l_doc_sequence_value :'||to_char(nvl(p_doc_sequence_value,-99)));
6788: ELSIF (
6812: IF NVL(pg_profile_doc_seq,'N') = 'A' THEN
6813: p_return_status := FND_API.G_RET_STS_ERROR;
6814: FND_MESSAGE.Set_Name('AR', 'AR_RAPI_DOC_SEQ_VALUE_NULL_A');
6815: FND_MESSAGE.Set_Token('SEQUENCE', l_doc_sequence_name);
6816: FND_MSG_PUB.Add;
6817: ELSIF NVL(pg_profile_doc_seq,'N') = 'P' THEN
6818: --Warning
6819: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
6820: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_VALUE_NULL_P');
6815: FND_MESSAGE.Set_Token('SEQUENCE', l_doc_sequence_name);
6816: FND_MSG_PUB.Add;
6817: ELSIF NVL(pg_profile_doc_seq,'N') = 'P' THEN
6818: --Warning
6819: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
6820: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_VALUE_NULL_P');
6821: FND_MSG_PUB.Add;
6822: END IF;
6823: END IF;
6817: ELSIF NVL(pg_profile_doc_seq,'N') = 'P' THEN
6818: --Warning
6819: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
6820: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_VALUE_NULL_P');
6821: FND_MSG_PUB.Add;
6822: END IF;
6823: END IF;
6824:
6825:
6837: END IF;
6838: IF (pg_profile_doc_seq = 'A' ) THEN
6839: p_return_status := FND_API.G_RET_STS_ERROR;
6840: FND_MESSAGE.Set_Name( 'FND','UNIQUE-ALWAYS USED');
6841: FND_MSG_PUB.Add;
6842: ELSE
6843: p_doc_sequence_id := NULL;
6844: p_doc_sequence_value := NULL;
6845: END IF;
6942: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6943: ELSE
6944: p_return_status := FND_API.G_RET_STS_ERROR;
6945: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_PSID_NOT_DEF_CUS');
6946: FND_MSG_PUB.Add;
6947: END IF;
6948: dbms_sql.close_cursor(trx_customer);
6949: -- End Bug 1907635
6950: ELSIF p_applied_payment_schedule_id IS NOT NULL AND
6957: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6958: ELSE
6959: p_return_status := FND_API.G_RET_STS_ERROR;
6960: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_INS_PS_NOT_DEF_CUS');
6961: FND_MSG_PUB.Add;
6962: END IF;
6963: dbms_sql.close_cursor(trx_customer);
6964: -- End Bug 1907635
6965: ELSIF p_applied_payment_schedule_id IS NOT NULL AND
6972: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6973: ELSE
6974: p_return_status := FND_API.G_RET_STS_ERROR;
6975: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_PS_NOT_DEF_CUS');
6976: FND_MSG_PUB.Add;
6977: END IF;
6978: dbms_sql.close_cursor(trx_customer);
6979: -- End Bug 1907635
6980: ELSIF p_applied_payment_schedule_id IS NOT NULL AND
6987: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6988: ELSE
6989: p_return_status := FND_API.G_RET_STS_ERROR;
6990: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_INS_PS_NOT_DEF_CUS');
6991: FND_MSG_PUB.Add;
6992: END IF;
6993: dbms_sql.close_cursor(trx_customer);
6994: -- End Bug 1907635
6995: ELSIF p_applied_payment_schedule_id IS NULL AND
7002: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
7003: ELSE
7004: p_return_status := FND_API.G_RET_STS_ERROR;
7005: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_INS_NOT_DEF_CUS');
7006: FND_MSG_PUB.Add;
7007: END IF;
7008: dbms_sql.close_cursor(trx_customer);
7009: -- End Bug 1907635
7010: ELSIF p_applied_payment_schedule_id IS NULL AND
7017: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
7018: ELSE
7019: p_return_status := FND_API.G_RET_STS_ERROR;
7020: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_PSID_NOT_DEF_CUS');
7021: FND_MSG_PUB.Add;
7022: END IF;
7023: dbms_sql.close_cursor(trx_customer);
7024: -- End Bug 1907635
7025: ELSE
7034: IF p_customer_id IS NULL THEN
7035: --raise error because application cant be done against an unidentified receipt
7036: p_return_status := FND_API.G_RET_STS_ERROR;
7037: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_CUST_ID_NULL');
7038: FND_MSG_PUB.Add;
7039: END IF;
7040:
7041: pg_cust_derived_from := 'TRANSACTION';
7042:
7080: l_get_id_return_status
7081: );
7082: IF p_receivables_trx_id IS NULL THEN
7083: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_INVALID');
7084: FND_MSG_PUB.Add;
7085: p_return_status := FND_API.G_RET_STS_ERROR;
7086: END IF;
7087:
7088: END IF;
7090: ELSE
7091: IF (p_activity IS NOT NULL) THEN
7092: --give a warning message to indicate that the activity name
7093: --entered by the user has been ignored.
7094: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7095: THEN
7096: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_IGN');
7097: FND_MSG_PUB.Add;
7098: END IF;
7093: --entered by the user has been ignored.
7094: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7095: THEN
7096: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_IGN');
7097: FND_MSG_PUB.Add;
7098: END IF;
7099: END IF;
7100:
7101: END IF;
7109: l_get_id_return_status
7110: );
7111: IF p_receipt_method_id IS NULL THEN
7112: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_INVALID');
7113: FND_MSG_PUB.Add;
7114: p_return_status := FND_API.G_RET_STS_ERROR;
7115: END IF;
7116: END IF;
7117:
7118: ELSE
7119: IF (p_receipt_method_name IS NOT NULL) THEN
7120: --give a warning message to indicate that the receipt_method_name
7121: --entered by the user has been ignored.
7122: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7123: THEN
7124: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_IGN');
7125: FND_MSG_PUB.Add;
7126: END IF;
7121: --entered by the user has been ignored.
7122: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7123: THEN
7124: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_IGN');
7125: FND_MSG_PUB.Add;
7126: END IF;
7127: ELSE
7128: BEGIN
7129: SELECT name
7153: l_get_id_return_status
7154: );
7155: IF p_remittance_bank_account_id IS NULL THEN
7156: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_INVALID');
7157: FND_MSG_PUB.Add;
7158: p_return_status := FND_API.G_RET_STS_ERROR;
7159: END IF;
7160: ELSIF(p_remittance_bank_account_name IS NULL) and
7161: (p_remittance_bank_account_num IS NOT NULL)
7165: l_get_id_return_status
7166: );
7167: IF p_remittance_bank_account_id IS NULL THEN
7168: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NUM_INVALID');
7169: FND_MSG_PUB.Add;
7170: p_return_status := FND_API.G_RET_STS_ERROR;
7171: END IF;
7172: ELSIF(p_remittance_bank_account_name IS NOT NULL) and
7173: (p_remittance_bank_account_num IS NOT NULL)
7178: l_get_x_val_return_status
7179: );
7180: IF p_remittance_bank_account_id IS NULL THEN
7181: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_2_INVALID');
7182: FND_MSG_PUB.Add;
7183: p_return_status := FND_API.G_RET_STS_ERROR;
7184: END IF;
7185: END IF;
7186:
7190: (p_remittance_bank_account_num IS NOT NULL)
7191: THEN
7192: --give a warning message to indicate that the remittance_bank_account_num and
7193: --remittance_bank_account_name entered by the user have been ignored.
7194: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7195: THEN
7196: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_NUM_IGN');
7197: FND_MSG_PUB.Add;
7198: END IF;
7193: --remittance_bank_account_name entered by the user have been ignored.
7194: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7195: THEN
7196: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_NUM_IGN');
7197: FND_MSG_PUB.Add;
7198: END IF;
7199: END IF;
7200:
7201: END IF;
7213: l_get_id_return_status
7214: );
7215: IF p_exchange_rate_type IS NULL THEN
7216: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYP_INVALID');
7217: FND_MSG_PUB.Add;
7218: p_return_status := FND_API.G_RET_STS_ERROR;
7219: END IF;
7220: END IF;
7221:
7222: ELSE
7223: IF (p_usr_exchange_rate_type IS NOT NULL) THEN
7224: --give a warning message to indicate that the usr_exchange_rate_type
7225: -- entered by the user have been ignored.
7226: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7227: THEN
7228: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYPE_IGN');
7229: FND_MSG_PUB.Add;
7230: END IF;
7225: -- entered by the user have been ignored.
7226: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7227: THEN
7228: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYPE_IGN');
7229: FND_MSG_PUB.Add;
7230: END IF;
7231: END IF;
7232:
7233: END IF;
7241: l_get_id_return_status
7242: );
7243: IF p_currency_code IS NULL THEN
7244: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_INVALID');
7245: FND_MSG_PUB.Add;
7246: p_return_status := FND_API.G_RET_STS_ERROR;
7247: END IF;
7248: ELSE
7249:
7248: ELSE
7249:
7250: p_currency_code := arp_global.functional_currency;
7251: --Raise a warning message saying that currency was defaulted
7252: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7253: THEN
7254: FND_MESSAGE.SET_NAME('AR','AR_RAPI_FUNC_CURR_DEFAULTED');
7255: FND_MSG_PUB.Add;
7256: END IF;
7251: --Raise a warning message saying that currency was defaulted
7252: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7253: THEN
7254: FND_MESSAGE.SET_NAME('AR','AR_RAPI_FUNC_CURR_DEFAULTED');
7255: FND_MSG_PUB.Add;
7256: END IF;
7257:
7258: END IF;
7259:
7261: IF (p_usr_currency_code IS NOT NULL) THEN
7262:
7263: --give a warning message to indicate that the usr_currency_code
7264: -- entered by the user have been ignored.
7265: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7266: THEN
7267: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_IGN');
7268: FND_MSG_PUB.Add;
7269: END IF;
7264: -- entered by the user have been ignored.
7265: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7266: THEN
7267: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_IGN');
7268: FND_MSG_PUB.Add;
7269: END IF;
7270:
7271: END IF;
7272: END IF;
7303: END IF;
7304:
7305: IF p_reference_id IS NULL THEN
7306: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_NUM_INVALID');
7307: FND_MSG_PUB.Add;
7308: p_return_status := FND_API.G_RET_STS_ERROR;
7309: END IF;
7310:
7311: END IF;
7316: --give a warning message to indicate that the reference number
7317: -- entered by the user have been ignored.
7318: -- This warning message is coming as an error in the form. So commenting out NOCOPY
7319:
7320: /* IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7321: THEN
7322: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_NUM_IGN');
7323: FND_MSG_PUB.Add;
7324: END IF;
7319:
7320: /* IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7321: THEN
7322: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_NUM_IGN');
7323: FND_MSG_PUB.Add;
7324: END IF;
7325: */
7326: null;
7327:
7480: p_receipt_date
7481: );
7482: IF p_vat_tax_id IS NULL THEN
7483: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_CODE_INVALID');
7484: FND_MSG_PUB.Add;
7485: p_return_status := FND_API.G_RET_STS_ERROR;
7486: END IF;
7487: END IF;
7488: ELSE
7488: ELSE
7489: IF (p_tax_code IS NOT NULL) THEN
7490: --give a warning message to indicate that the tax_code
7491: --entered by the user has been ignored.
7492: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7493: THEN
7494: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_CODE_IGN');
7495: FND_MSG_PUB.Add;
7496: END IF;
7491: --entered by the user has been ignored.
7492: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7493: THEN
7494: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_CODE_IGN');
7495: FND_MSG_PUB.Add;
7496: END IF;
7497: END IF;
7498:
7499: END IF;
7676:
7677: IF round(p_tax_rate*p_amount,3) <> p_tax_amount THEN
7678: l_tax_rt_amt_x_ret_status := FND_API.G_RET_STS_ERROR;
7679: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_RATE_AMT_X_INVALID');
7680: FND_MSG_PUB.Add;
7681: END IF;
7682: END IF;
7683:
7684:
7734: IF desc_flex_exists%NOTFOUND THEN
7735: CLOSE desc_flex_exists;
7736: FND_MESSAGE.SET_NAME('AR', 'AR_RAPI_DESC_FLEX_INVALID');
7737: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name);
7738: FND_MSG_PUB.ADD ;
7739: p_return_status := FND_API.G_RET_STS_ERROR;
7740: return;
7741: END IF;
7742: CLOSE desc_flex_exists;
7764: THEN
7765:
7766: FND_MESSAGE.SET_NAME('AR', 'AR_RAPI_DESC_FLEX_INVALID');
7767: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name);
7768: FND_MSG_PUB.ADD ;
7769: p_return_status := FND_API.G_RET_STS_ERROR;
7770: END IF;
7771:
7772: l_count := fnd_flex_descval.segment_count;
7876: END IF;
7877:
7878: EXCEPTION WHEN OTHERS THEN
7879: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
7880: FND_MSG_PUB.Add;
7881: p_return_status := FND_API.G_RET_STS_ERROR;
7882: End Default_Desc_Flexfield;
7883: /* End bug fix 3539008 */
7884:
7986: WHERE payment_schedule_id = p_applied_ps_id;
7987: EXCEPTION when others then
7988: --raise error message
7989: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
7990: FND_MSG_PUB.Add;
7991: x_return_status := FND_API.G_RET_STS_ERROR;
7992: END;
7993: END IF;
7994:
8021: WHERE receivable_application_id = p_open_rec_app_id ;
8022: EXCEPTION
8023: WHEN no_data_found THEN
8024: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
8025: FND_MSG_PUB.Add;
8026: x_return_status := FND_API.G_RET_STS_ERROR ;
8027: END;
8028:
8029: default_cash_receipt_id
8033:
8034: /* Bug 3018366 - check for current open receipt separated from logic above */
8035: IF (l_display <> 'Y' OR l_status NOT IN ('OTHER ACC','ACC')) THEN
8036: FND_MESSAGE.SET_NAME('AR','AR_RW_NET_OPEN_RCT_ONLY');
8037: FND_MSG_PUB.Add;
8038: x_return_status := FND_API.G_RET_STS_ERROR ;
8039: END IF;
8040:
8041: --Compare the two cash_receipt_ids
8042: IF p_open_cash_receipt_id IS NOT NULL THEN
8043: IF p_open_cash_receipt_id <> l_open_cash_receipt_id THEN
8044: --raise error X validation failed
8045: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
8046: FND_MSG_PUB.Add;
8047: x_return_status := FND_API.G_RET_STS_ERROR ;
8048: END IF;
8049: END IF;
8050: END IF;
8164:
8165: EXCEPTION
8166: WHEN no_data_found THEN
8167: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
8168: FND_MSG_PUB.Add;
8169: x_return_status := FND_API.G_RET_STS_ERROR ;
8170: END default_unapp_open_receipt;
8171:
8172: FUNCTION get_legal_entity (p_remit_bank_acct_use_id IN NUMBER)