[Home] [Help]
2: /* $Header: ARXPRELB.pls 120.78.12010000.7 2009/01/13 20:15:25 mraymond 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;
937: ELSE
938: --p_return_status := FND_API.G_RET_STS_ERROR;
939: --FND_MESSAGE.SET_NAME('AR', 'INVALID_VALUE_ERR');
940: --FND_MESSAGE.SET_TOKEN('PARAMETER','Customer Number/Name');
941: --FND_MSG_PUB.Add;
942: RETURN(NULL);
943: END IF;
944:
945: EXCEPTION
1116: END IF;
1117: -- Raise error message if failure in defaulting the gl_date
1118: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
1119: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
1120: FND_MSG_PUB.Add;
1121: p_return_status := FND_API.G_RET_STS_ERROR;
1122: END IF;
1123: END IF;
1124: IF PG_DEBUG in ('Y', 'C') THEN
1360: --This will happen only if the receipt method was specified
1361: --and we tried to default the remittance bank and the state
1362: p_return_status := FND_API.G_RET_STS_ERROR;
1363: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_ID_NULL');
1364: FND_MSG_PUB.Add;
1365: IF PG_DEBUG in ('Y', 'C') THEN
1366: arp_util.debug('Default_Receipt_Method_Info: ' || 'The remittance bank account could not be defaulted ');
1367: END IF;
1368: WHEN others THEN
1416: END IF;
1417: END IF;
1418: IF (NOT l_value) THEN
1419: FND_MESSAGE.SET_NAME('AR',p_message);
1420: FND_MSG_PUB.Add;
1421: p_return_status := FND_API.G_RET_STS_ERROR;
1422: END IF;
1423: END validate_cc_segments;
1424:
1678: ELSE
1679: --if user has entered exchange rate for type <> User, raise error message
1680: p_return_status := FND_API.G_RET_STS_ERROR;
1681: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_INVALID');
1682: FND_MSG_PUB.Add;
1683: END IF;
1684: ELSE
1685: --case where rate_type is 'User'
1686:
1796: p_customer_name,
1797: l_get_id_return_status);
1798: IF p_customer_id IS NULL THEN
1799: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_INVALID');
1800: FND_MSG_PUB.Add;
1801: p_return_status := FND_API.G_RET_STS_ERROR;
1802: END IF;
1803:
1804: ELSIF(p_customer_name IS NULL) and
1808: p_customer_number,
1809: l_get_id_return_status);
1810: IF p_customer_id IS NULL THEN
1811: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NUM_INVALID');
1812: FND_MSG_PUB.Add;
1813: p_return_status := FND_API.G_RET_STS_ERROR;
1814: END IF;
1815:
1816: ELSIF(p_customer_name IS NOT NULL) and
1821: p_customer_name,
1822: l_get_x_val_return_status);
1823: IF p_customer_id IS NULL THEN
1824: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_INVALID');
1825: FND_MSG_PUB.Add;
1826: p_return_status := FND_API.G_RET_STS_ERROR;
1827: END IF;
1828: END IF;
1829:
1832: IF (p_customer_name IS NOT NULL) OR
1833: (p_customer_number IS NOT NULL) THEN
1834: --give a warning message to indicate that the customer_number and customer_name
1835: --entered by the user have been ignored.
1836: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1837: THEN
1838: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1839: FND_MSG_PUB.Add;
1840: p_return_status := FND_API.G_RET_STS_ERROR;
1835: --entered by the user have been ignored.
1836: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1837: THEN
1838: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1839: FND_MSG_PUB.Add;
1840: p_return_status := FND_API.G_RET_STS_ERROR;
1841: END IF;
1842: END IF;
1843:
1903: l_get_id_return_status
1904: );
1905: IF p_receipt_method_id IS NULL THEN
1906: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_INVALID');
1907: FND_MSG_PUB.Add;
1908: p_return_status := FND_API.G_RET_STS_ERROR;
1909: ELSE
1910: l_boe_flag := arpt_sql_func_util.check_BOE_Paymeth(p_receipt_method_id);
1911: if l_boe_flag = 'Y' then
1909: ELSE
1910: l_boe_flag := arpt_sql_func_util.check_BOE_Paymeth(p_receipt_method_id);
1911: if l_boe_flag = 'Y' then
1912: FND_MESSAGE.SET_NAME('AR','AR_BOE_OBSOLETE');
1913: FND_MSG_PUB.Add;
1914: p_return_status := FND_API.G_RET_STS_ERROR;
1915: end if;
1916: END IF;
1917: END IF;
1918: ELSE
1919: IF (p_receipt_method_name IS NOT NULL) THEN
1920: --give a warning message to indicate that the receipt_method_name
1921: --entered by the user has been ignored.
1922: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1923: THEN
1924: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_IGN');
1925: FND_MSG_PUB.Add;
1926: END IF;
1921: --entered by the user has been ignored.
1922: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1923: THEN
1924: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_IGN');
1925: FND_MSG_PUB.Add;
1926: END IF;
1927: ELSE
1928: BEGIN
1929: SELECT name
1933:
1934: l_boe_flag := arpt_sql_func_util.check_BOE_Paymeth(p_receipt_method_id);
1935: if l_boe_flag = 'Y' then
1936: FND_MESSAGE.SET_NAME('AR','AR_BOE_OBSOLETE');
1937: FND_MSG_PUB.Add;
1938: p_return_status := FND_API.G_RET_STS_ERROR;
1939: end if;
1940:
1941: EXCEPTION
1959: l_get_id_return_status
1960: );
1961: IF p_currency_code IS NULL THEN
1962: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_INVALID');
1963: FND_MSG_PUB.Add;
1964: p_return_status := FND_API.G_RET_STS_ERROR;
1965: END IF;
1966: ELSE
1967:
1966: ELSE
1967:
1968: p_currency_code := arp_global.functional_currency;
1969: --Raise a warning message saying that currency was defaulted
1970: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1971: THEN
1972: FND_MESSAGE.SET_NAME('AR','AR_RAPI_FUNC_CURR_DEFAULTED');
1973: FND_MSG_PUB.Add;
1974: END IF;
1969: --Raise a warning message saying that currency was defaulted
1970: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1971: THEN
1972: FND_MESSAGE.SET_NAME('AR','AR_RAPI_FUNC_CURR_DEFAULTED');
1973: FND_MSG_PUB.Add;
1974: END IF;
1975:
1976: END IF;
1977:
1979: IF (p_usr_currency_code IS NOT NULL) THEN
1980:
1981: --give a warning message to indicate that the usr_currency_code
1982: -- entered by the user have been ignored.
1983: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1984: THEN
1985: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_IGN');
1986: FND_MSG_PUB.Add;
1987: END IF;
1982: -- entered by the user have been ignored.
1983: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1984: THEN
1985: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_IGN');
1986: FND_MSG_PUB.Add;
1987: END IF;
1988:
1989: END IF;
1990: END IF;
2003: l_get_id_return_status
2004: );
2005: IF p_customer_bank_account_id IS NULL THEN
2006: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
2007: FND_MSG_PUB.Add;
2008: p_return_status := FND_API.G_RET_STS_ERROR;
2009: END IF; */
2010:
2011: begin
2023: and bb.bank_account_name = p_customer_bank_account_name;
2024: exception
2025: when others then
2026: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
2027: FND_MSG_PUB.Add;
2028: p_return_status := FND_API.G_RET_STS_ERROR;
2029: end;
2030:
2031: ELSIF(p_customer_bank_account_name IS NULL) and
2036: l_get_id_return_status
2037: );
2038: IF p_customer_bank_account_id IS NULL THEN
2039: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
2040: FND_MSG_PUB.Add;
2041: p_return_status := FND_API.G_RET_STS_ERROR;
2042: END IF; */
2043:
2044: begin
2056: and bb.bank_account_number = p_customer_bank_account_num;
2057: exception
2058: when others then
2059: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
2060: FND_MSG_PUB.Add;
2061: p_return_status := FND_API.G_RET_STS_ERROR;
2062: end;
2063:
2064: ELSIF(p_customer_bank_account_name IS NOT NULL) and
2070: l_get_id_return_status
2071: );
2072: IF p_customer_bank_account_id IS NULL THEN
2073: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_2_INVALID');
2074: FND_MSG_PUB.Add;
2075: p_return_status := FND_API.G_RET_STS_ERROR;
2076: END IF; */
2077:
2078: begin
2091: and bb.bank_account_number = p_customer_bank_account_num;
2092: exception
2093: when others then
2094: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_2_INVALID');
2095: FND_MSG_PUB.Add;
2096: p_return_status := FND_API.G_RET_STS_ERROR;
2097: end;
2098:
2099: END IF;
2102: IF (p_customer_bank_account_num IS NOT NULL) OR
2103: (p_customer_bank_account_name IS NOT NULL) THEN
2104: --give a warning message to indicate that the customer_bank_account_num and
2105: --p_customer_bank_account_name entered by the user have been ignored.
2106: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2107: THEN
2108: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_NAME_NUM_IGN');
2109: FND_MSG_PUB.Add;
2110: END IF;
2105: --p_customer_bank_account_name entered by the user have been ignored.
2106: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2107: THEN
2108: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_NAME_NUM_IGN');
2109: FND_MSG_PUB.Add;
2110: END IF;
2111: END IF;
2112:
2113: END IF;
2126: l_get_id_return_status
2127: );
2128: IF p_remittance_bank_account_id IS NULL THEN
2129: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_INVALID');
2130: FND_MSG_PUB.Add;
2131: p_return_status := FND_API.G_RET_STS_ERROR;
2132: END IF;
2133: ELSIF(p_remittance_bank_account_name IS NULL) and
2134: (p_remittance_bank_account_num IS NOT NULL)
2138: l_get_id_return_status
2139: );
2140: IF p_remittance_bank_account_id IS NULL THEN
2141: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NUM_INVALID');
2142: FND_MSG_PUB.Add;
2143: p_return_status := FND_API.G_RET_STS_ERROR;
2144: END IF;
2145: ELSIF(p_remittance_bank_account_name IS NOT NULL) and
2146: (p_remittance_bank_account_num IS NOT NULL)
2151: l_get_x_val_return_status
2152: );
2153: IF p_remittance_bank_account_id IS NULL THEN
2154: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_2_INVALID');
2155: FND_MSG_PUB.Add;
2156: p_return_status := FND_API.G_RET_STS_ERROR;
2157: END IF;
2158: END IF;
2159:
2163: (p_remittance_bank_account_num IS NOT NULL)
2164: THEN
2165: --give a warning message to indicate that the remittance_bank_account_num and
2166: --remittance_bank_account_name entered by the user have been ignored.
2167: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2168: THEN
2169: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_NUM_IGN');
2170: FND_MSG_PUB.Add;
2171: END IF;
2166: --remittance_bank_account_name entered by the user have been ignored.
2167: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2168: THEN
2169: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_NUM_IGN');
2170: FND_MSG_PUB.Add;
2171: END IF;
2172: END IF;
2173:
2174: END IF;
2182: l_get_id_return_status
2183: );
2184: IF p_exchange_rate_type IS NULL THEN
2185: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYP_INVALID');
2186: FND_MSG_PUB.Add;
2187: p_return_status := FND_API.G_RET_STS_ERROR;
2188: END IF;
2189: END IF;
2190:
2191: ELSE
2192: IF (p_usr_exchange_rate_type IS NOT NULL) THEN
2193: --give a warning message to indicate that the usr_exchange_rate_type
2194: -- entered by the user have been ignored.
2195: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2196: THEN
2197: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYPE_IGN');
2198: FND_MSG_PUB.Add;
2199: END IF;
2194: -- entered by the user have been ignored.
2195: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2196: THEN
2197: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYPE_IGN');
2198: FND_MSG_PUB.Add;
2199: END IF;
2200: END IF;
2201:
2202: END IF;
2484: --raise error as the user specified CC rate is not the same as the
2485: --fixed rate.
2486: p_return_status := FND_API.G_RET_STS_ERROR;
2487: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CC_RATE_INVALID');
2488: FND_MSG_PUB.Add;
2489: return;
2490: END IF;
2491: END IF;
2492:
2657: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
2658: THEN
2659: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2660: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_DET_PKG.INITIALIZTION '||SQLERRM);
2661: FND_MSG_PUB.Add;
2662: p_return_status := FND_API.G_RET_STS_ERROR ;
2663:
2664: IF PG_DEBUG in ('Y', 'C') THEN
2665: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred in arp_process_det_pkg.Initialization ');
2675: IF p_line_amount IS NULL AND p_tax_amount IS NULL
2676: AND p_freight_amount IS NULL AND p_charges_amount is NULL
2677: THEN
2678: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_LTFC_AMT_NULL');
2679: FND_MSG_PUB.ADD;
2680: p_return_status := FND_API.G_RET_STS_ERROR ;
2681: END IF;
2682: IF Nvl(p_amount_applied,0) <>
2683: ( Nvl(p_line_amount,0) + Nvl(p_tax_amount,0)
2686: p_amount_applied := Nvl(p_line_amount,0)
2687: + Nvl(p_tax_amount,0) + Nvl(p_freight_amount,0)
2688: + Nvl(p_charges_amount,0);
2689:
2690: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2691: THEN
2692: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_AMT_DEFLT_IGN');
2693: FND_MSG_PUB.Add;
2694: END IF;
2689:
2690: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2691: THEN
2692: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_AMT_DEFLT_IGN');
2693: FND_MSG_PUB.Add;
2694: END IF;
2695:
2696: IF PG_DEBUG in ('Y', 'C') THEN
2697: arp_util.debug('Default_application_info: ' ||
2713: THEN
2714: p_line_amount := NULL;
2715: p_tax_amount := NULL;
2716: p_charges_amount := NULL;
2717: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2718: THEN
2719: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LTC_IGN');
2720: FND_MSG_PUB.Add;
2721: END IF;
2716: p_charges_amount := NULL;
2717: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2718: THEN
2719: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LTC_IGN');
2720: FND_MSG_PUB.Add;
2721: END IF;
2722:
2723: IF PG_DEBUG in ('Y', 'C') THEN
2724: arp_util.debug('Default_val_llca_parameters: ' || 'Line, Tax,
2737: If Nvl(p_amount_applied,0) <> 0
2738: THEN
2739: p_amount_applied := NULL;
2740:
2741: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2742: THEN
2743: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_AMT_DEFLT_IGN');
2744: FND_MSG_PUB.Add;
2745: END IF;
2740:
2741: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2742: THEN
2743: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_AMT_DEFLT_IGN');
2744: FND_MSG_PUB.Add;
2745: END IF;
2746:
2747: IF PG_DEBUG in ('Y', 'C') THEN
2748: arp_util.debug('Default_val_llca_parameters: ' || 'Amount applied
2806: arp_util.debug('' || 'EXCEPTION: Default_val_llca_parameters()');
2807: END IF;
2808: p_return_status := FND_API.G_RET_STS_ERROR ;
2809: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_TRX_LINE_ID_INVALID');
2810: FND_MSG_PUB.ADD;
2811: RAISE;
2812: WHEN others THEN
2813: IF PG_DEBUG in ('Y', 'C') THEN
2814: arp_util.debug('' || 'EXCEPTION: Default_val_llca_parameters()');
2923:
2924:
2925: If Nvl(sp_lines_row.amount_applied,0) <> Nvl(l_calc_tot_amount_app,0)
2926: Then
2927: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2928: THEN
2929: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_AMT_DEFLT_IGN');
2930: FND_MSG_PUB.Add;
2931: END IF;
2926: Then
2927: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2928: THEN
2929: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_AMT_DEFLT_IGN');
2930: FND_MSG_PUB.Add;
2931: END IF;
2932: END If;
2933:
2934:
3180: AND p_trx_line_amount < l_applied_in_amount THEN
3181: l_applied_in_amount := p_trx_line_amount;
3182: --give a warning message here to let the user know that the
3183: --transaction line amount has been used as the default amount applied.
3184: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
3185: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_AMT_DEFLT');
3186: FND_MSG_PUB.Add;
3187: END IF;
3188: END IF;
3182: --give a warning message here to let the user know that the
3183: --transaction line amount has been used as the default amount applied.
3184: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
3185: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_AMT_DEFLT');
3186: FND_MSG_PUB.Add;
3187: END IF;
3188: END IF;
3189:
3190: -- Defaulting mode for disount routine.
3318: THEN
3319: p_amount_applied := p_trx_line_amount;
3320: --give a warning message here to let the user know that the
3321: --transaction line amount has been used as the default amount applied.
3322: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
3323: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_AMT_DEFLT');
3324: FND_MSG_PUB.Add;
3325: END IF;
3326: END IF;
3320: --give a warning message here to let the user know that the
3321: --transaction line amount has been used as the default amount applied.
3322: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
3323: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_AMT_DEFLT');
3324: FND_MSG_PUB.Add;
3325: END IF;
3326: END IF;
3327:
3328: END IF; */
3381: EXCEPTION
3382: WHEN no_data_found THEN
3383: p_return_status := FND_API.G_RET_STS_ERROR ;
3384: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_TRX_LINE_ID_INVALID');
3385: FND_MSG_PUB.ADD;
3386: return(null);
3387:
3388: WHEN others THEN
3389: IF PG_DEBUG in ('Y', 'C') THEN
3871: IF p_applied_payment_schedule_id IS NOT NULL THEN
3872: IF l_applied_payment_schedule_id <>
3873: p_applied_payment_schedule_id THEN
3874: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_PS_ID_X_INVALID');
3875: FND_MSG_PUB.Add;
3876: p_return_status := FND_API.G_RET_STS_ERROR ;
3877: END IF;
3878: ELSE
3879: p_applied_payment_schedule_id := l_applied_payment_schedule_id;
3939: when no_data_found then
3940: null;
3941: when too_many_rows then
3942: FND_MESSAGE.SET_NAME('AR', 'AR_RW_PAID_INVOICE_TWICE' );
3943: FND_MSG_PUB.Add;
3944: p_return_status := FND_API.G_RET_STS_ERROR ;
3945: END;
3946:
3947: ELSE --case when p_customer_trx_id is null
3946:
3947: ELSE --case when p_customer_trx_id is null
3948: --no further validation done in the validation routines for customer_trx_id
3949: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_NULL');
3950: FND_MSG_PUB.Add;
3951: p_return_status := FND_API.G_RET_STS_ERROR ;
3952:
3953: END IF;
3954:
3971:
3972: IF ar_receipt_api_pub.Original_application_info.installment IS NOT NULL THEN
3973: p_return_status := FND_API.G_RET_STS_ERROR ;
3974: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_ID_INST_INVALID');
3975: FND_MSG_PUB.ADD;
3976: ELSE
3977: p_return_status := FND_API.G_RET_STS_ERROR ;
3978: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
3979: FND_MSG_PUB.ADD;
3975: FND_MSG_PUB.ADD;
3976: ELSE
3977: p_return_status := FND_API.G_RET_STS_ERROR ;
3978: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
3979: FND_MSG_PUB.ADD;
3980: END IF;
3981:
3982: ELSIF ar_receipt_api_pub.Original_application_info.trx_number IS NOT NULL THEN
3983:
3983:
3984: IF ar_receipt_api_pub.Original_application_info.installment IS NOT NULL THEN
3985: p_return_status := FND_API.G_RET_STS_ERROR ;
3986: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
3987: FND_MSG_PUB.ADD;
3988: ELSE
3989: p_return_status := FND_API.G_RET_STS_ERROR ;
3990: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INVALID');
3991: FND_MSG_PUB.ADD;
3987: FND_MSG_PUB.ADD;
3988: ELSE
3989: p_return_status := FND_API.G_RET_STS_ERROR ;
3990: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INVALID');
3991: FND_MSG_PUB.ADD;
3992: END IF;
3993:
3994: ELSIF ar_receipt_api_pub.Original_application_info.applied_payment_schedule_id IS NOT NULL THEN
3995: p_return_status := FND_API.G_RET_STS_ERROR ;
3993:
3994: ELSIF ar_receipt_api_pub.Original_application_info.applied_payment_schedule_id IS NOT NULL THEN
3995: p_return_status := FND_API.G_RET_STS_ERROR ;
3996: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
3997: FND_MSG_PUB.ADD;
3998: END IF;
3999: WHEN others THEN
4000: IF PG_DEBUG in ('Y', 'C') THEN
4001: arp_util.debug('EXCEPTION: Default_Trx_Info()');
4095: WHEN no_data_found THEN
4096: IF ar_receipt_api_pub.Original_application_info.cash_receipt_id IS NOT NULL THEN
4097: p_return_status := FND_API.G_RET_STS_ERROR ;
4098: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_CASH_RCPT_ID_INVALID');
4099: FND_MSG_PUB.ADD;
4100: ELSIF ar_receipt_api_pub.Original_application_info.receipt_number IS NOT NULL THEN
4101: p_return_status := FND_API.G_RET_STS_ERROR ;
4102: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_RCPT_NUM_INVALID');
4103: FND_MSG_PUB.ADD;
4099: FND_MSG_PUB.ADD;
4100: ELSIF ar_receipt_api_pub.Original_application_info.receipt_number IS NOT NULL THEN
4101: p_return_status := FND_API.G_RET_STS_ERROR ;
4102: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_RCPT_NUM_INVALID');
4103: FND_MSG_PUB.ADD;
4104: END IF;
4105: WHEN others THEN
4106: IF PG_DEBUG in ('Y', 'C') THEN
4107: arp_util.debug('EXCEPTION: Default_Receipt_Info()');
4126: --otherwise the error would have been raised while defaulting the cash receipt id from the
4127: --receipt number
4128: IF ar_receipt_api_pub.Original_application_info.receipt_number IS NULL THEN
4129: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_CASH_RCPT_ID_NULL');
4130: FND_MSG_PUB.ADD;
4131: p_return_status := FND_API.G_RET_STS_ERROR ;
4132: END IF;
4133:
4134: END IF;
4140: WHEN no_data_found THEN
4141: IF ar_receipt_api_pub.Original_application_info.cash_receipt_id IS NOT NULL THEN
4142: p_return_status := FND_API.G_RET_STS_ERROR ;
4143: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_CASH_RCPT_ID_INVALID');
4144: FND_MSG_PUB.ADD;
4145: ELSIF ar_receipt_api_pub.Original_application_info.receipt_number IS NOT NULL THEN
4146: p_return_status := FND_API.G_RET_STS_ERROR ;
4147: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_RCPT_NUM_INVALID');
4148: FND_MSG_PUB.ADD;
4144: FND_MSG_PUB.ADD;
4145: ELSIF ar_receipt_api_pub.Original_application_info.receipt_number IS NOT NULL THEN
4146: p_return_status := FND_API.G_RET_STS_ERROR ;
4147: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_RCPT_NUM_INVALID');
4148: FND_MSG_PUB.ADD;
4149: END IF;
4150: WHEN others THEN
4151: IF PG_DEBUG in ('Y', 'C') THEN
4152: arp_util.debug('EXCEPTION: Default_Receipt_Info()');
4195: WHERE trx_number = p_trx_number;
4196: EXCEPTION
4197: WHEN no_data_found THEN
4198: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INVALID');
4199: FND_MSG_PUB.Add;
4200: p_return_status := FND_API.G_RET_STS_ERROR ;
4201: END;
4202: END IF;
4203:
4206: IF p_trx_number IS NOT NULL
4207: THEN
4208: --give a warning message to indicate that the trx number
4209: --entered by the user has been ignored.
4210: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
4211: THEN
4212: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_IGN');
4213: FND_MSG_PUB.Add;
4214: END IF;
4209: --entered by the user has been ignored.
4210: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
4211: THEN
4212: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_IGN');
4213: FND_MSG_PUB.Add;
4214: END IF;
4215: END IF;
4216: END IF;
4217: IF PG_DEBUG in ('Y', 'C') THEN
4247: If nvl(l_count,0) = 0 AND
4248: nvl(p_llca_type,'S') = 'G'
4249: THEN
4250: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_GROUP_ID_INVALID');
4251: FND_MSG_PUB.Add;
4252: p_return_status := FND_API.G_RET_STS_ERROR ;
4253: END IF;
4254:
4255: IF PG_DEBUG in ('Y', 'C') THEN
4279: p_line_number IS NOT NULL
4280: THEN
4281: --give a warning message to indicate that the line number
4282: --entered by the user has been ignored.
4283: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
4284: THEN
4285: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_NUM_IGN');
4286: FND_MSG_PUB.Add;
4287: END IF;
4282: --entered by the user has been ignored.
4283: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
4284: THEN
4285: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_NUM_IGN');
4286: FND_MSG_PUB.Add;
4287: END IF;
4288: END IF;
4289:
4290: If p_llca_type IS NULL THEN
4300: AND line_type = 'LINE';
4301: EXCEPTION
4302: WHEN no_data_found THEN
4303: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_NO_INVALID');
4304: FND_MSG_PUB.Add;
4305: p_return_status := FND_API.G_RET_STS_ERROR ;
4306: END;
4307: END IF;
4308: END IF;
4318: AND line_type = 'LINE';
4319: EXCEPTION
4320: WHEN no_data_found THEN
4321: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_ID_INVALID');
4322: FND_MSG_PUB.Add;
4323: p_return_status := FND_API.G_RET_STS_ERROR ;
4324: END;
4325: END IF;
4326: END IF;
4328:
4329: If p_llca_type not in ('S','L','G')
4330: Then
4331: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INVALID_LLCA_TYPE');
4332: FND_MSG_PUB.Add;
4333: p_return_status := FND_API.G_RET_STS_ERROR ;
4334: END IF;
4335:
4336: If p_llca_type = 'L'
4434: WHERE receipt_number = p_receipt_number;
4435: EXCEPTION
4436: WHEN no_data_found THEN
4437: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
4438: FND_MSG_PUB.Add;
4439: p_return_status := FND_API.G_RET_STS_ERROR ;
4440: WHEN too_many_rows THEN
4441: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
4442: FND_MSG_PUB.Add;
4438: FND_MSG_PUB.Add;
4439: p_return_status := FND_API.G_RET_STS_ERROR ;
4440: WHEN too_many_rows THEN
4441: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
4442: FND_MSG_PUB.Add;
4443: p_return_status := FND_API.G_RET_STS_ERROR ;
4444: END;
4445:
4446: ELSE
4447: IF p_receipt_number IS NOT NULL
4448: THEN
4449: --give a warning message to indicate that the receipt number
4450: --entered by the user has been ignored.
4451: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
4452: THEN
4453: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_IGN');
4454: FND_MSG_PUB.Add;
4455: END IF;
4450: --entered by the user has been ignored.
4451: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
4452: THEN
4453: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_IGN');
4454: FND_MSG_PUB.Add;
4455: END IF;
4456: END IF;
4457: END IF;
4458: IF PG_DEBUG in ('Y', 'C') THEN
4528: OPEN payment_schedule;
4529: FETCH payment_schedule INTO l_customer_trx_id, l_installment;
4530: IF payment_schedule%NOTFOUND THEN
4531: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
4532: FND_MSG_PUB.Add;
4533: p_return_status := FND_API.G_RET_STS_ERROR ;
4534: END IF;
4535: CLOSE payment_schedule;
4536:
4556: WHERE customer_trx_id = p_customer_trx_id;
4557: EXCEPTION
4558: WHEN no_data_found THEN
4559: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
4560: FND_MSG_PUB.Add;
4561: p_return_status := FND_API.G_RET_STS_ERROR;
4562: WHEN too_many_rows THEN
4563: If p_llca_type is Null
4564: THEN
4562: WHEN too_many_rows THEN
4563: If p_llca_type is Null
4564: THEN
4565: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
4566: FND_MSG_PUB.Add;
4567: Else
4568: FND_MESSAGE.SET_NAME('AR','AR_LL_INSTALL_NOT_ALLOWED');
4569: FND_MSG_PUB.Add;
4570: End If;
4565: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
4566: FND_MSG_PUB.Add;
4567: Else
4568: FND_MESSAGE.SET_NAME('AR','AR_LL_INSTALL_NOT_ALLOWED');
4569: FND_MSG_PUB.Add;
4570: End If;
4571: p_return_status := FND_API.G_RET_STS_ERROR;
4572: END;
4573: END IF;
4584: where customer_trx_id = p_customer_trx_id;
4585: Exception
4586: WHEN no_data_found THEN
4587: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
4588: FND_MSG_PUB.Add;
4589: p_return_status := FND_API.G_RET_STS_ERROR;
4590: WHEN too_many_rows THEN
4591: FND_MESSAGE.SET_NAME('AR','AR_LL_INSTALL_NOT_ALLOWED');
4592: FND_MSG_PUB.Add;
4588: FND_MSG_PUB.Add;
4589: p_return_status := FND_API.G_RET_STS_ERROR;
4590: WHEN too_many_rows THEN
4591: FND_MESSAGE.SET_NAME('AR','AR_LL_INSTALL_NOT_ALLOWED');
4592: FND_MSG_PUB.Add;
4593: p_return_status := FND_API.G_RET_STS_ERROR;
4594: END;
4595: End If;
4596:
4764:
4765: /* Bug 4038708 */
4766: IF(l_cr_customer_id is NULL) THEN
4767: FND_MESSAGE.SET_NAME( 'AR','AR_RW_REC_NO_CT');
4768: FND_MSG_PUB.ADD;
4769: p_return_status := FND_API.G_RET_STS_ERROR ;
4770: END IF;
4771:
4772: --call the transaction defaulting routine only if the return status of the
5066: WHEN no_data_found THEN
5067:
5068: IF ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NOT NULL THEN
5069: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_ID_INST_INVALID');
5070: FND_MSG_PUB.Add;
5071: p_return_status := FND_API.G_RET_STS_ERROR;
5072: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5073: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
5074: FND_MSG_PUB.Add;
5070: FND_MSG_PUB.Add;
5071: p_return_status := FND_API.G_RET_STS_ERROR;
5072: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5073: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
5074: FND_MSG_PUB.Add;
5075: p_return_status := FND_API.G_RET_STS_ERROR;
5076: END IF;
5077:
5078: END;
5091: ;
5092: EXCEPTION
5093: WHEN no_data_found THEN
5094: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
5095: FND_MSG_PUB.Add;
5096: p_return_status := FND_API.G_RET_STS_ERROR;
5097: WHEN too_many_rows THEN
5098: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
5099: FND_MSG_PUB.Add;
5095: FND_MSG_PUB.Add;
5096: p_return_status := FND_API.G_RET_STS_ERROR;
5097: WHEN too_many_rows THEN
5098: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
5099: FND_MSG_PUB.Add;
5100: p_return_status := FND_API.G_RET_STS_ERROR;
5101: END;
5102:
5103: END IF;
5121: WHEN no_data_found THEN
5122:
5123: IF ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NOT NULL THEN
5124: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_ID_INST_INVALID');
5125: FND_MSG_PUB.Add;
5126: p_return_status := FND_API.G_RET_STS_ERROR;
5127: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5128: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
5129: FND_MSG_PUB.Add;
5125: FND_MSG_PUB.Add;
5126: p_return_status := FND_API.G_RET_STS_ERROR;
5127: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5128: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
5129: FND_MSG_PUB.Add;
5130: p_return_status := FND_API.G_RET_STS_ERROR;
5131: END IF;
5132: END;
5133:
5148: ;
5149: EXCEPTION
5150: WHEN no_data_found THEN
5151: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
5152: FND_MSG_PUB.Add;
5153: p_return_status := FND_API.G_RET_STS_ERROR;
5154: WHEN too_many_rows THEN
5155: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
5156: FND_MSG_PUB.Add;
5152: FND_MSG_PUB.Add;
5153: p_return_status := FND_API.G_RET_STS_ERROR;
5154: WHEN too_many_rows THEN
5155: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
5156: FND_MSG_PUB.Add;
5157: p_return_status := FND_API.G_RET_STS_ERROR;
5158: END;
5159:
5160: END IF;
5207: END IF;
5208: EXCEPTION
5209: WHEN no_data_found THEN
5210: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NOT_APP_TO_INV');
5211: FND_MSG_PUB.Add;
5212: p_return_status := FND_API.G_RET_STS_ERROR;
5213: WHEN others THEN
5214: IF PG_DEBUG in ('Y', 'C') THEN
5215: arp_util.debug('Derive_receivable_appln_id: ' || 'EXCEPTION: Get_receivable_application_id()');
5252: FETCH payment_schedule_br_remit INTO p_customer_trx_id, p_installment;
5253: IF payment_schedule_br_remit%NOTFOUND THEN
5254: --raise error message
5255: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
5256: FND_MSG_PUB.Add;
5257: p_return_status := FND_API.G_RET_STS_ERROR;
5258: END IF;
5259: CLOSE payment_schedule_br_remit;
5260:
5264: FETCH payment_schedule INTO p_customer_trx_id, p_installment;
5265: IF payment_schedule%NOTFOUND THEN
5266: --raise error message
5267: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
5268: FND_MSG_PUB.Add;
5269: p_return_status := FND_API.G_RET_STS_ERROR;
5270: END IF;
5271: CLOSE payment_schedule;
5272:
5319: OPEN rec_apppln_br_remit;
5320: 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 */
5321: IF rec_apppln_br_remit%NOTFOUND THEN
5322: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
5323: FND_MSG_PUB.Add;
5324: p_return_status := FND_API.G_RET_STS_ERROR;
5325: END IF;
5326: CLOSE rec_apppln_br_remit;
5327:
5330: OPEN rec_apppln;
5331: FETCH rec_apppln INTO p_cash_receipt_id, p_ra_app_ps_id, p_apply_gl_date,p_customer_trx_id; /* Bug fix 3451241 */
5332: IF rec_apppln%NOTFOUND THEN
5333: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
5334: FND_MSG_PUB.Add;
5335: p_return_status := FND_API.G_RET_STS_ERROR;
5336: END IF;
5337: CLOSE rec_apppln;
5338:
5397: --Compare the two customer_trx_ids
5398: IF (nvl(p_customer_trx_id,l_customer_trx_id) <> l_customer_trx_id OR
5399: nvl(p_installment,l_installment) <> l_installment) THEN
5400: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_PS_ID_X_INVALID');
5401: FND_MSG_PUB.Add;
5402: p_return_status := FND_API.G_RET_STS_ERROR;
5403: ELSE
5404: p_customer_trx_id := l_customer_trx_id;
5405: END IF;
5442: THEN
5443: IF ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NOT NULL OR
5444: ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5445: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_RA_ID_X_INVALID');
5446: FND_MSG_PUB.Add;
5447: p_return_status := FND_API.G_RET_STS_ERROR;
5448: ELSIF ar_receipt_api_pub.Original_unapp_info.applied_ps_id IS NOT NULL THEN
5449: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_RA_ID_X_INVALID');
5450: FND_MSG_PUB.Add;
5446: FND_MSG_PUB.Add;
5447: p_return_status := FND_API.G_RET_STS_ERROR;
5448: ELSIF ar_receipt_api_pub.Original_unapp_info.applied_ps_id IS NOT NULL THEN
5449: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_RA_ID_X_INVALID');
5450: FND_MSG_PUB.Add;
5451: p_return_status := FND_API.G_RET_STS_ERROR;
5452: END IF;
5453: ELSE
5454: p_applied_payment_schedule_id := l_ra_app_ps_id;
5456:
5457: IF nvl(l_cash_receipt_id,-99) <> nvl(p_cash_receipt_id,nvl(l_cash_receipt_id,-99)) THEN
5458: --Invalid receivable application identifier for the entered cash receipt
5459: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
5460: FND_MSG_PUB.Add;
5461: p_return_status := FND_API.G_RET_STS_ERROR;
5462: ELSE
5463: p_cash_receipt_id := l_cash_receipt_id;
5464: END IF;
5466: /* LLCA */
5467: IF nvl(l_customer_trx_id,-99) <> nvl(p_customer_trx_id,nvl(l_customer_trx_id,-99)) THEN
5468: --Invalid receivable application identifier for the entered customer trx id receipt
5469: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
5470: FND_MSG_PUB.Add;
5471: p_return_status := FND_API.G_RET_STS_ERROR;
5472: ELSE
5473: p_customer_trx_id := l_customer_trx_id;
5474: END IF;
5582: --here on the stack, but the return status will be set
5583: --to FND_API.G_RET_STS_ERROR in the validation phase.
5584: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
5585: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
5586: FND_MSG_PUB.Add;
5587: END IF;
5588: END IF;
5589: END IF;
5590: IF PG_DEBUG in ('Y', 'C') THEN
5676: AND meaning = p_reversal_category_name;
5677: EXCEPTION
5678: WHEN no_data_found THEN
5679: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_NAME_INVALID');
5680: FND_MSG_PUB.Add;
5681: p_return_status := FND_API.G_RET_STS_ERROR ;
5682: null;
5683: END;
5684: ELSE
5684: ELSE
5685: IF p_reversal_category_name IS NOT NULL THEN
5686: --give a warning message to indicate that the reversal category name
5687: --entered by the user has been ignored.
5688: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
5689: THEN
5690: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_NAME_IGN');
5691: FND_MSG_PUB.Add;
5692: END IF;
5687: --entered by the user has been ignored.
5688: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
5689: THEN
5690: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_NAME_IGN');
5691: FND_MSG_PUB.Add;
5692: END IF;
5693: END IF;
5694: END IF;
5695: IF PG_DEBUG in ('Y', 'C') THEN
5726: AND meaning = p_reversal_reason_name;
5727: EXCEPTION
5728: WHEN no_data_found THEN
5729: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_NAME_INVALID');
5730: FND_MSG_PUB.Add;
5731: p_return_status := FND_API.G_RET_STS_ERROR ;
5732: null;
5733: END;
5734: ELSE
5734: ELSE
5735: IF p_reversal_reason_name IS NOT NULL THEN
5736: --give a warning message to indicate that the reversal category name
5737: --entered by the user has been ignored.
5738: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
5739: THEN
5740: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_NAME_IGN');
5741: FND_MSG_PUB.Add;
5742: END IF;
5737: --entered by the user has been ignored.
5738: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
5739: THEN
5740: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_NAME_IGN');
5741: FND_MSG_PUB.Add;
5742: END IF;
5743: END IF;
5744: END IF;
5745: IF PG_DEBUG in ('Y', 'C') THEN
6023: AND status = 'ACC';
6024: EXCEPTION
6025: WHEN no_data_found THEN
6026: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
6027: FND_MSG_PUB.Add;
6028: p_return_status := FND_API.G_RET_STS_ERROR ;
6029: WHEN too_many_rows THEN
6030: IF p_receivable_application_id IS NULL THEN
6031: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ON_AC_APP');
6028: p_return_status := FND_API.G_RET_STS_ERROR ;
6029: WHEN too_many_rows THEN
6030: IF p_receivable_application_id IS NULL THEN
6031: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ON_AC_APP');
6032: FND_MSG_PUB.Add;
6033: p_return_status := FND_API.G_RET_STS_ERROR ;
6034: END IF;
6035:
6036: END;
6048: and status = 'ACC';
6049: EXCEPTION
6050: WHEN no_data_found THEN
6051: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
6052: FND_MSG_PUB.Add;
6053: p_return_status := FND_API.G_RET_STS_ERROR ;
6054: END;
6055:
6056: --Compare the two cash_receipt_ids
6057: IF p_cash_receipt_id IS NOT NULL THEN
6058: IF p_cash_receipt_id <> NVL(l_cash_receipt_id,p_cash_receipt_id) THEN
6059: --raise error X validation failed
6060: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
6061: FND_MSG_PUB.Add;
6062: p_return_status := FND_API.G_RET_STS_ERROR ;
6063: END IF;
6064: END IF;
6065:
6118: AND status = 'OTHER ACC';
6119: EXCEPTION
6120: WHEN no_data_found THEN
6121: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
6122: FND_MSG_PUB.Add;
6123: p_return_status := FND_API.G_RET_STS_ERROR ;
6124: WHEN too_many_rows THEN
6125: IF p_receivable_application_id IS NULL THEN
6126: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_PREPAY');
6123: p_return_status := FND_API.G_RET_STS_ERROR ;
6124: WHEN too_many_rows THEN
6125: IF p_receivable_application_id IS NULL THEN
6126: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_PREPAY');
6127: FND_MSG_PUB.Add;
6128: p_return_status := FND_API.G_RET_STS_ERROR ;
6129: END IF;
6130:
6131: END;
6144: and status = 'OTHER ACC';
6145: EXCEPTION
6146: WHEN no_data_found THEN
6147: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
6148: FND_MSG_PUB.Add;
6149: p_return_status := FND_API.G_RET_STS_ERROR ;
6150: END;
6151:
6152: --Compare the two cash_receipt_ids
6153: IF p_cash_receipt_id IS NOT NULL THEN
6154: IF p_cash_receipt_id <> NVL(l_cash_receipt_id,p_cash_receipt_id) THEN
6155: --raise error X validation failed
6156: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
6157: FND_MSG_PUB.Add;
6158: p_return_status := FND_API.G_RET_STS_ERROR ;
6159: END IF;
6160: END IF;
6161:
6226: --here on the stack, but the return status will be set
6227: --to FND_API.G_RET_STS_ERROR in the validation phase.
6228: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
6229: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
6230: FND_MSG_PUB.Add;
6231: END IF;
6232: END IF;
6233:
6234: --derive the receipt_gl_date which is to be used
6310: EXCEPTION
6311: WHEN no_data_found THEN
6312: IF ar_receipt_api_pub.original_activity_unapp_info.cash_receipt_id IS NOT NULL THEN
6313: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
6314: FND_MSG_PUB.Add;
6315: p_return_status := FND_API.G_RET_STS_ERROR ;
6316: ELSIF ar_receipt_api_pub.original_activity_unapp_info.receipt_number IS NOT NULL THEN
6317: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
6318: FND_MSG_PUB.Add;
6314: FND_MSG_PUB.Add;
6315: p_return_status := FND_API.G_RET_STS_ERROR ;
6316: ELSIF ar_receipt_api_pub.original_activity_unapp_info.receipt_number IS NOT NULL THEN
6317: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
6318: FND_MSG_PUB.Add;
6319: p_return_status := FND_API.G_RET_STS_ERROR ;
6320: END IF;
6321: WHEN too_many_rows THEN
6322: IF p_receivable_application_id IS NULL THEN
6320: END IF;
6321: WHEN too_many_rows THEN
6322: IF p_receivable_application_id IS NULL THEN
6323: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ACTIVITY_APP');
6324: FND_MSG_PUB.Add;
6325: p_return_status := FND_API.G_RET_STS_ERROR ;
6326: END IF;
6327:
6328: END;
6350: and status = 'ACTIVITY';
6351: EXCEPTION
6352: WHEN no_data_found THEN
6353: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
6354: FND_MSG_PUB.Add;
6355: p_return_status := FND_API.G_RET_STS_ERROR ;
6356: END;
6357:
6358: --Compare the two cash_receipt_ids
6359: IF p_cash_receipt_id IS NOT NULL THEN
6360: IF p_cash_receipt_id <> NVL(l_cash_receipt_id,p_cash_receipt_id) THEN
6361: --raise error X validation failed
6362: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
6363: FND_MSG_PUB.Add;
6364: p_return_status := FND_API.G_RET_STS_ERROR ;
6365: END IF;
6366: END IF;
6367:
6451: END IF;
6452: p_return_status := FND_API.G_RET_STS_ERROR;
6453: --Error message
6454: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_DOC_SEQ_NOT_EXIST_A');
6455: FND_MSG_PUB.Add;
6456: ELSIF l_doc_seq_ret_stat = -2 THEN
6457: --this is the case of Partially Used
6458: IF PG_DEBUG in ('Y', 'C') THEN
6459: arp_util.debug('get_doc_seq: ' || 'The doc sequence does not exist for the current document');
6458: IF PG_DEBUG in ('Y', 'C') THEN
6459: arp_util.debug('get_doc_seq: ' || 'The doc sequence does not exist for the current document');
6460: END IF;
6461: --Warning
6462: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6463: THEN
6464: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_NOT_EXIST_P');
6465: FND_MSG_PUB.Add;
6466: END IF;
6461: --Warning
6462: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6463: THEN
6464: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_NOT_EXIST_P');
6465: FND_MSG_PUB.Add;
6466: END IF;
6467: END IF;
6468: /* Added SUBSTRB(l_doc_sequence_type,1,1) = 'A' in IF
6469: for Bug 2667348 */
6492: --raise an error message because the user is not supposed to pass
6493: --in a value for the document sequence number in this case.
6494: p_return_status := FND_API.G_RET_STS_ERROR;
6495: FND_MESSAGE.Set_Name('AR', 'AR_RAPI_DOC_SEQ_AUTOMATIC');
6496: FND_MSG_PUB.Add;
6497: END IF;
6498: p_doc_sequence_value := l_doc_sequence_value;
6499: arp_util.debug('l_doc_sequence_value :'||to_char(nvl(p_doc_sequence_value,-99)));
6500: ELSIF (
6524: IF NVL(pg_profile_doc_seq,'N') = 'A' THEN
6525: p_return_status := FND_API.G_RET_STS_ERROR;
6526: FND_MESSAGE.Set_Name('AR', 'AR_RAPI_DOC_SEQ_VALUE_NULL_A');
6527: FND_MESSAGE.Set_Token('SEQUENCE', l_doc_sequence_name);
6528: FND_MSG_PUB.Add;
6529: ELSIF NVL(pg_profile_doc_seq,'N') = 'P' THEN
6530: --Warning
6531: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
6532: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_VALUE_NULL_P');
6527: FND_MESSAGE.Set_Token('SEQUENCE', l_doc_sequence_name);
6528: FND_MSG_PUB.Add;
6529: ELSIF NVL(pg_profile_doc_seq,'N') = 'P' THEN
6530: --Warning
6531: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
6532: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_VALUE_NULL_P');
6533: FND_MSG_PUB.Add;
6534: END IF;
6535: END IF;
6529: ELSIF NVL(pg_profile_doc_seq,'N') = 'P' THEN
6530: --Warning
6531: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS) THEN
6532: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_VALUE_NULL_P');
6533: FND_MSG_PUB.Add;
6534: END IF;
6535: END IF;
6536:
6537:
6549: END IF;
6550: IF (pg_profile_doc_seq = 'A' ) THEN
6551: p_return_status := FND_API.G_RET_STS_ERROR;
6552: FND_MESSAGE.Set_Name( 'FND','UNIQUE-ALWAYS USED');
6553: FND_MSG_PUB.Add;
6554: ELSE
6555: p_doc_sequence_id := NULL;
6556: p_doc_sequence_value := NULL;
6557: END IF;
6654: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6655: ELSE
6656: p_return_status := FND_API.G_RET_STS_ERROR;
6657: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_PSID_NOT_DEF_CUS');
6658: FND_MSG_PUB.Add;
6659: END IF;
6660: dbms_sql.close_cursor(trx_customer);
6661: -- End Bug 1907635
6662: ELSIF p_applied_payment_schedule_id IS NOT NULL AND
6669: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6670: ELSE
6671: p_return_status := FND_API.G_RET_STS_ERROR;
6672: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_INS_PS_NOT_DEF_CUS');
6673: FND_MSG_PUB.Add;
6674: END IF;
6675: dbms_sql.close_cursor(trx_customer);
6676: -- End Bug 1907635
6677: ELSIF p_applied_payment_schedule_id IS NOT NULL AND
6684: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6685: ELSE
6686: p_return_status := FND_API.G_RET_STS_ERROR;
6687: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_PS_NOT_DEF_CUS');
6688: FND_MSG_PUB.Add;
6689: END IF;
6690: dbms_sql.close_cursor(trx_customer);
6691: -- End Bug 1907635
6692: ELSIF p_applied_payment_schedule_id IS NOT NULL AND
6699: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6700: ELSE
6701: p_return_status := FND_API.G_RET_STS_ERROR;
6702: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_INS_PS_NOT_DEF_CUS');
6703: FND_MSG_PUB.Add;
6704: END IF;
6705: dbms_sql.close_cursor(trx_customer);
6706: -- End Bug 1907635
6707: ELSIF p_applied_payment_schedule_id IS NULL AND
6714: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6715: ELSE
6716: p_return_status := FND_API.G_RET_STS_ERROR;
6717: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_INS_NOT_DEF_CUS');
6718: FND_MSG_PUB.Add;
6719: END IF;
6720: dbms_sql.close_cursor(trx_customer);
6721: -- End Bug 1907635
6722: ELSIF p_applied_payment_schedule_id IS NULL AND
6729: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6730: ELSE
6731: p_return_status := FND_API.G_RET_STS_ERROR;
6732: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_PSID_NOT_DEF_CUS');
6733: FND_MSG_PUB.Add;
6734: END IF;
6735: dbms_sql.close_cursor(trx_customer);
6736: -- End Bug 1907635
6737: ELSE
6746: IF p_customer_id IS NULL THEN
6747: --raise error because application cant be done against an unidentified receipt
6748: p_return_status := FND_API.G_RET_STS_ERROR;
6749: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_CUST_ID_NULL');
6750: FND_MSG_PUB.Add;
6751: END IF;
6752:
6753: pg_cust_derived_from := 'TRANSACTION';
6754:
6792: l_get_id_return_status
6793: );
6794: IF p_receivables_trx_id IS NULL THEN
6795: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_INVALID');
6796: FND_MSG_PUB.Add;
6797: p_return_status := FND_API.G_RET_STS_ERROR;
6798: END IF;
6799:
6800: END IF;
6802: ELSE
6803: IF (p_activity IS NOT NULL) THEN
6804: --give a warning message to indicate that the activity name
6805: --entered by the user has been ignored.
6806: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6807: THEN
6808: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_IGN');
6809: FND_MSG_PUB.Add;
6810: END IF;
6805: --entered by the user has been ignored.
6806: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6807: THEN
6808: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_IGN');
6809: FND_MSG_PUB.Add;
6810: END IF;
6811: END IF;
6812:
6813: END IF;
6821: l_get_id_return_status
6822: );
6823: IF p_receipt_method_id IS NULL THEN
6824: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_INVALID');
6825: FND_MSG_PUB.Add;
6826: p_return_status := FND_API.G_RET_STS_ERROR;
6827: END IF;
6828: END IF;
6829:
6830: ELSE
6831: IF (p_receipt_method_name IS NOT NULL) THEN
6832: --give a warning message to indicate that the receipt_method_name
6833: --entered by the user has been ignored.
6834: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6835: THEN
6836: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_IGN');
6837: FND_MSG_PUB.Add;
6838: END IF;
6833: --entered by the user has been ignored.
6834: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6835: THEN
6836: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_IGN');
6837: FND_MSG_PUB.Add;
6838: END IF;
6839: ELSE
6840: BEGIN
6841: SELECT name
6865: l_get_id_return_status
6866: );
6867: IF p_remittance_bank_account_id IS NULL THEN
6868: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_INVALID');
6869: FND_MSG_PUB.Add;
6870: p_return_status := FND_API.G_RET_STS_ERROR;
6871: END IF;
6872: ELSIF(p_remittance_bank_account_name IS NULL) and
6873: (p_remittance_bank_account_num IS NOT NULL)
6877: l_get_id_return_status
6878: );
6879: IF p_remittance_bank_account_id IS NULL THEN
6880: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NUM_INVALID');
6881: FND_MSG_PUB.Add;
6882: p_return_status := FND_API.G_RET_STS_ERROR;
6883: END IF;
6884: ELSIF(p_remittance_bank_account_name IS NOT NULL) and
6885: (p_remittance_bank_account_num IS NOT NULL)
6890: l_get_x_val_return_status
6891: );
6892: IF p_remittance_bank_account_id IS NULL THEN
6893: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_2_INVALID');
6894: FND_MSG_PUB.Add;
6895: p_return_status := FND_API.G_RET_STS_ERROR;
6896: END IF;
6897: END IF;
6898:
6902: (p_remittance_bank_account_num IS NOT NULL)
6903: THEN
6904: --give a warning message to indicate that the remittance_bank_account_num and
6905: --remittance_bank_account_name entered by the user have been ignored.
6906: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6907: THEN
6908: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_NUM_IGN');
6909: FND_MSG_PUB.Add;
6910: END IF;
6905: --remittance_bank_account_name entered by the user have been ignored.
6906: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6907: THEN
6908: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_NUM_IGN');
6909: FND_MSG_PUB.Add;
6910: END IF;
6911: END IF;
6912:
6913: END IF;
6925: l_get_id_return_status
6926: );
6927: IF p_exchange_rate_type IS NULL THEN
6928: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYP_INVALID');
6929: FND_MSG_PUB.Add;
6930: p_return_status := FND_API.G_RET_STS_ERROR;
6931: END IF;
6932: END IF;
6933:
6934: ELSE
6935: IF (p_usr_exchange_rate_type IS NOT NULL) THEN
6936: --give a warning message to indicate that the usr_exchange_rate_type
6937: -- entered by the user have been ignored.
6938: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6939: THEN
6940: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYPE_IGN');
6941: FND_MSG_PUB.Add;
6942: END IF;
6937: -- entered by the user have been ignored.
6938: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6939: THEN
6940: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYPE_IGN');
6941: FND_MSG_PUB.Add;
6942: END IF;
6943: END IF;
6944:
6945: END IF;
6953: l_get_id_return_status
6954: );
6955: IF p_currency_code IS NULL THEN
6956: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_INVALID');
6957: FND_MSG_PUB.Add;
6958: p_return_status := FND_API.G_RET_STS_ERROR;
6959: END IF;
6960: ELSE
6961:
6960: ELSE
6961:
6962: p_currency_code := arp_global.functional_currency;
6963: --Raise a warning message saying that currency was defaulted
6964: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6965: THEN
6966: FND_MESSAGE.SET_NAME('AR','AR_RAPI_FUNC_CURR_DEFAULTED');
6967: FND_MSG_PUB.Add;
6968: END IF;
6963: --Raise a warning message saying that currency was defaulted
6964: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6965: THEN
6966: FND_MESSAGE.SET_NAME('AR','AR_RAPI_FUNC_CURR_DEFAULTED');
6967: FND_MSG_PUB.Add;
6968: END IF;
6969:
6970: END IF;
6971:
6973: IF (p_usr_currency_code IS NOT NULL) THEN
6974:
6975: --give a warning message to indicate that the usr_currency_code
6976: -- entered by the user have been ignored.
6977: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6978: THEN
6979: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_IGN');
6980: FND_MSG_PUB.Add;
6981: END IF;
6976: -- entered by the user have been ignored.
6977: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
6978: THEN
6979: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_IGN');
6980: FND_MSG_PUB.Add;
6981: END IF;
6982:
6983: END IF;
6984: END IF;
7015: END IF;
7016:
7017: IF p_reference_id IS NULL THEN
7018: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_NUM_INVALID');
7019: FND_MSG_PUB.Add;
7020: p_return_status := FND_API.G_RET_STS_ERROR;
7021: END IF;
7022:
7023: END IF;
7028: --give a warning message to indicate that the reference number
7029: -- entered by the user have been ignored.
7030: -- This warning message is coming as an error in the form. So commenting out NOCOPY
7031:
7032: /* IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7033: THEN
7034: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_NUM_IGN');
7035: FND_MSG_PUB.Add;
7036: END IF;
7031:
7032: /* IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7033: THEN
7034: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_NUM_IGN');
7035: FND_MSG_PUB.Add;
7036: END IF;
7037: */
7038: null;
7039:
7191: p_receipt_date
7192: );
7193: IF p_vat_tax_id IS NULL THEN
7194: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_CODE_INVALID');
7195: FND_MSG_PUB.Add;
7196: p_return_status := FND_API.G_RET_STS_ERROR;
7197: END IF;
7198: END IF;
7199: ELSE
7199: ELSE
7200: IF (p_tax_code IS NOT NULL) THEN
7201: --give a warning message to indicate that the tax_code
7202: --entered by the user has been ignored.
7203: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7204: THEN
7205: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_CODE_IGN');
7206: FND_MSG_PUB.Add;
7207: END IF;
7202: --entered by the user has been ignored.
7203: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
7204: THEN
7205: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_CODE_IGN');
7206: FND_MSG_PUB.Add;
7207: END IF;
7208: END IF;
7209:
7210: END IF;
7377:
7378: IF round(p_tax_rate*p_amount,3) <> p_tax_amount THEN
7379: l_tax_rt_amt_x_ret_status := FND_API.G_RET_STS_ERROR;
7380: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_RATE_AMT_X_INVALID');
7381: FND_MSG_PUB.Add;
7382: END IF;
7383: END IF;
7384:
7385:
7435: IF desc_flex_exists%NOTFOUND THEN
7436: CLOSE desc_flex_exists;
7437: FND_MESSAGE.SET_NAME('AR', 'AR_RAPI_DESC_FLEX_INVALID');
7438: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name);
7439: FND_MSG_PUB.ADD ;
7440: p_return_status := FND_API.G_RET_STS_ERROR;
7441: return;
7442: END IF;
7443: CLOSE desc_flex_exists;
7465: THEN
7466:
7467: FND_MESSAGE.SET_NAME('AR', 'AR_RAPI_DESC_FLEX_INVALID');
7468: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name);
7469: FND_MSG_PUB.ADD ;
7470: p_return_status := FND_API.G_RET_STS_ERROR;
7471: END IF;
7472:
7473: l_count := fnd_flex_descval.segment_count;
7577: END IF;
7578:
7579: EXCEPTION WHEN OTHERS THEN
7580: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
7581: FND_MSG_PUB.Add;
7582: p_return_status := FND_API.G_RET_STS_ERROR;
7583: End Default_Desc_Flexfield;
7584: /* End bug fix 3539008 */
7585:
7687: WHERE payment_schedule_id = p_applied_ps_id;
7688: EXCEPTION when others then
7689: --raise error message
7690: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
7691: FND_MSG_PUB.Add;
7692: x_return_status := FND_API.G_RET_STS_ERROR;
7693: END;
7694: END IF;
7695:
7722: WHERE receivable_application_id = p_open_rec_app_id ;
7723: EXCEPTION
7724: WHEN no_data_found THEN
7725: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
7726: FND_MSG_PUB.Add;
7727: x_return_status := FND_API.G_RET_STS_ERROR ;
7728: END;
7729:
7730: default_cash_receipt_id
7734:
7735: /* Bug 3018366 - check for current open receipt separated from logic above */
7736: IF (l_display <> 'Y' OR l_status NOT IN ('OTHER ACC','ACC')) THEN
7737: FND_MESSAGE.SET_NAME('AR','AR_RW_NET_OPEN_RCT_ONLY');
7738: FND_MSG_PUB.Add;
7739: x_return_status := FND_API.G_RET_STS_ERROR ;
7740: END IF;
7741:
7742: --Compare the two cash_receipt_ids
7743: IF p_open_cash_receipt_id IS NOT NULL THEN
7744: IF p_open_cash_receipt_id <> l_open_cash_receipt_id THEN
7745: --raise error X validation failed
7746: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
7747: FND_MSG_PUB.Add;
7748: x_return_status := FND_API.G_RET_STS_ERROR ;
7749: END IF;
7750: END IF;
7751: END IF;
7865:
7866: EXCEPTION
7867: WHEN no_data_found THEN
7868: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
7869: FND_MSG_PUB.Add;
7870: x_return_status := FND_API.G_RET_STS_ERROR ;
7871: END default_unapp_open_receipt;
7872:
7873: FUNCTION get_legal_entity (p_remit_bank_acct_use_id IN NUMBER)