[Home] [Help]
919: THEN
920: RETURN(NULL);
921: END IF;
922:
923: p_return_status := FND_API.G_RET_STS_SUCCESS;
924:
925: l_id_from_name := Get_Id(p_entity||'_NAME',
926: p_name_value,
927: p_return_status
934:
935: IF l_id_from_name = l_id_from_num THEN
936: RETURN(l_id_from_name);
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);
1083: l_error_message VARCHAR2(128);
1084: l_defaulting_rule_used VARCHAR2(100);
1085: l_default_gl_date DATE;
1086: BEGIN
1087: p_return_status := FND_API.G_RET_STS_SUCCESS;
1088: IF PG_DEBUG in ('Y', 'C') THEN
1089: arp_util.debug('Default_gl_date ()+');
1090: END IF;
1091: IF p_gl_date IS NULL THEN
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
1125: arp_util.debug('Default_gl_date ()-');
1189: END IF;
1190: EXCEPTION
1191: WHEN gl_currency_api.NO_RATE THEN
1192: --rate does not exist set appropriate message.
1193: --p_return_status := FND_API.G_RET_STS_ERROR ;
1194: return(null);
1195: IF PG_DEBUG in ('Y', 'C') THEN
1196: arp_util.debug('Find_Cached_Exchange_Rate: ' || 'Exception : gl_currency_api.NO_RATE ');
1197: END IF;
1196: arp_util.debug('Find_Cached_Exchange_Rate: ' || 'Exception : gl_currency_api.NO_RATE ');
1197: END IF;
1198: WHEN gl_currency_api.INVALID_CURRENCY THEN
1199: -- invalid currency set appropriate message.
1200: --p_return_status := FND_API.G_RET_STS_ERROR ;
1201: return(null);
1202: IF PG_DEBUG in ('Y', 'C') THEN
1203: arp_util.debug('Find_Cached_Exchange_Rate: ' || 'Exception: gl_currency_api.INVALID_CURRENCY ');
1204: END IF;
1287: IF PG_DEBUG in ('Y', 'C') THEN
1288: arp_util.debug('Default_Receipt_Method_Info ()+');
1289: END IF;
1290:
1291: p_return_status := FND_API.G_RET_STS_SUCCESS;
1292:
1293: IF p_receipt_method_id IS NOT NULL THEN
1294:
1295: IF p_remittance_bank_account_id IS NULL THEN
1358: null;
1359: WHEN too_many_rows 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 ');
1389: BEGIN
1390: IF PG_DEBUG in ('Y', 'C') THEN
1391: arp_util.debug('validate_cc_segments ()+');
1392: END IF;
1393: p_return_status := FND_API.G_RET_STS_SUCCESS;
1394: l_validation_date := p_gl_date;
1395: l_chart_of_accounts_id := arp_global.chart_of_accounts_id;
1396: IF PG_DEBUG in ('Y', 'C') THEN
1397: arp_util.debug('l_chart_of_accounts_id = '||to_char(l_chart_of_accounts_id));
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:
1425: /* Bug fix 3315058
1444: l_receipt_clearing_ccid gl_code_combinations.code_combination_id%type;
1445: l_short_term_debt_ccid gl_code_combinations.code_combination_id%type;
1446: l_message varchar2(100);
1447: l_gl_date DATE;
1448: l_cc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
1449: BEGIN
1450: IF PG_DEBUG in ('Y', 'C') THEN
1451: arp_util.debug('Validate_Receipt_Method_ccid ()+');
1452: END IF;
1449: BEGIN
1450: IF PG_DEBUG in ('Y', 'C') THEN
1451: arp_util.debug('Validate_Receipt_Method_ccid ()+');
1452: END IF;
1453: p_return_status := FND_API.G_RET_STS_SUCCESS;
1454: l_gl_date := p_gl_date;
1455: IF p_receipt_method_id IS NOT NULL
1456: AND p_remittance_bank_account_id IS NOT NULL THEN
1457: SELECT rma.cash_ccid,art1.code_combination_id,rma.on_account_ccid,
1473: IF l_cash_ccid IS NOT NULL THEN
1474: l_message := 'AR_CASH_ACC_ASSGN';
1475: validate_cc_segments(l_cash_ccid,l_gl_date,
1476: l_message,l_cc_val_ret_status);
1477: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1478: p_return_status := FND_API.G_RET_STS_ERROR;
1479: RETURN;
1480: END IF;
1481: END IF;
1474: l_message := 'AR_CASH_ACC_ASSGN';
1475: validate_cc_segments(l_cash_ccid,l_gl_date,
1476: l_message,l_cc_val_ret_status);
1477: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1478: p_return_status := FND_API.G_RET_STS_ERROR;
1479: RETURN;
1480: END IF;
1481: END IF;
1482:
1483: IF l_earned_ccid IS NOT NULL THEN
1484: l_message := 'AR_EARN_DISC_ACC_ASSGN';
1485: validate_cc_segments(l_earned_ccid,l_gl_date,
1486: l_message,l_cc_val_ret_status);
1487: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1488: p_return_status := FND_API.G_RET_STS_ERROR;
1489: RETURN;
1490: END IF;
1491: END IF;
1484: l_message := 'AR_EARN_DISC_ACC_ASSGN';
1485: validate_cc_segments(l_earned_ccid,l_gl_date,
1486: l_message,l_cc_val_ret_status);
1487: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1488: p_return_status := FND_API.G_RET_STS_ERROR;
1489: RETURN;
1490: END IF;
1491: END IF;
1492:
1493: IF l_on_account_ccid IS NOT NULL THEN
1494: l_message := 'AR_ONACC_ACC_ASSGN';
1495: validate_cc_segments(l_on_account_ccid,l_gl_date,
1496: l_message,l_cc_val_ret_status);
1497: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1498: p_return_status := FND_API.G_RET_STS_ERROR;
1499: RETURN;
1500: END IF;
1501: END IF;
1494: l_message := 'AR_ONACC_ACC_ASSGN';
1495: validate_cc_segments(l_on_account_ccid,l_gl_date,
1496: l_message,l_cc_val_ret_status);
1497: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1498: p_return_status := FND_API.G_RET_STS_ERROR;
1499: RETURN;
1500: END IF;
1501: END IF;
1502: IF l_unapplied_ccid IS NOT NULL THEN
1502: IF l_unapplied_ccid IS NOT NULL THEN
1503: l_message := 'AR_UNAPP_ACC_ASSGN';
1504: validate_cc_segments(l_unapplied_ccid,l_gl_date,
1505: l_message,l_cc_val_ret_status);
1506: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1507: p_return_status := FND_API.G_RET_STS_ERROR;
1508: RETURN;
1509: END IF;
1510: END IF;
1503: l_message := 'AR_UNAPP_ACC_ASSGN';
1504: validate_cc_segments(l_unapplied_ccid,l_gl_date,
1505: l_message,l_cc_val_ret_status);
1506: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1507: p_return_status := FND_API.G_RET_STS_ERROR;
1508: RETURN;
1509: END IF;
1510: END IF;
1511:
1512: IF l_unearned_ccid IS NOT NULL THEN
1513: l_message := 'AR_UNEARN_DISC_ACC_ASSGN';
1514: validate_cc_segments(l_unearned_ccid,l_gl_date,
1515: l_message,l_cc_val_ret_status);
1516: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1517: p_return_status := FND_API.G_RET_STS_ERROR;
1518: RETURN;
1519: END IF;
1520: END IF;
1513: l_message := 'AR_UNEARN_DISC_ACC_ASSGN';
1514: validate_cc_segments(l_unearned_ccid,l_gl_date,
1515: l_message,l_cc_val_ret_status);
1516: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1517: p_return_status := FND_API.G_RET_STS_ERROR;
1518: RETURN;
1519: END IF;
1520: END IF;
1521: IF l_unidentified_ccid IS NOT NULL THEN
1521: IF l_unidentified_ccid IS NOT NULL THEN
1522: l_message := 'AR_UNIDEN_ACC_ASSGN';
1523: validate_cc_segments(l_unidentified_ccid,l_gl_date,
1524: l_message,l_cc_val_ret_status);
1525: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1526: p_return_status := FND_API.G_RET_STS_ERROR;
1527: RETURN;
1528: END IF;
1529: END IF;
1522: l_message := 'AR_UNIDEN_ACC_ASSGN';
1523: validate_cc_segments(l_unidentified_ccid,l_gl_date,
1524: l_message,l_cc_val_ret_status);
1525: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1526: p_return_status := FND_API.G_RET_STS_ERROR;
1527: RETURN;
1528: END IF;
1529: END IF;
1530: IF l_bank_charges_ccid IS NOT NULL THEN
1530: IF l_bank_charges_ccid IS NOT NULL THEN
1531: l_message := 'AR_BANK_CHRG_ACC_ASSGN';
1532: validate_cc_segments(l_bank_charges_ccid,l_gl_date,
1533: l_message,l_cc_val_ret_status);
1534: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1535: p_return_status := FND_API.G_RET_STS_ERROR;
1536: RETURN;
1537: END IF;
1538: END IF;
1531: l_message := 'AR_BANK_CHRG_ACC_ASSGN';
1532: validate_cc_segments(l_bank_charges_ccid,l_gl_date,
1533: l_message,l_cc_val_ret_status);
1534: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1535: p_return_status := FND_API.G_RET_STS_ERROR;
1536: RETURN;
1537: END IF;
1538: END IF;
1539:
1540: IF l_factor_ccid IS NOT NULL THEN
1541: l_message := 'AR_FCTR_ACC_ASSGN';
1542: validate_cc_segments(l_factor_ccid,l_gl_date,
1543: l_message,l_cc_val_ret_status);
1544: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1545: p_return_status := FND_API.G_RET_STS_ERROR;
1546: RETURN;
1547: END IF;
1548: END IF;
1541: l_message := 'AR_FCTR_ACC_ASSGN';
1542: validate_cc_segments(l_factor_ccid,l_gl_date,
1543: l_message,l_cc_val_ret_status);
1544: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1545: p_return_status := FND_API.G_RET_STS_ERROR;
1546: RETURN;
1547: END IF;
1548: END IF;
1549:
1550: IF l_remittance_ccid IS NOT NULL THEN
1551: l_message := 'AR_REM_ACC_ASSGN';
1552: validate_cc_segments(l_remittance_ccid,l_gl_date,
1553: l_message,l_cc_val_ret_status);
1554: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1555: p_return_status := FND_API.G_RET_STS_ERROR;
1556: RETURN;
1557: END IF;
1558: END IF;
1551: l_message := 'AR_REM_ACC_ASSGN';
1552: validate_cc_segments(l_remittance_ccid,l_gl_date,
1553: l_message,l_cc_val_ret_status);
1554: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1555: p_return_status := FND_API.G_RET_STS_ERROR;
1556: RETURN;
1557: END IF;
1558: END IF;
1559: IF l_receipt_clearing_ccid IS NOT NULL THEN
1559: IF l_receipt_clearing_ccid IS NOT NULL THEN
1560: l_message := 'AR_CLRNCE_ACC_ASSGN';
1561: validate_cc_segments(l_receipt_clearing_ccid,l_gl_date,
1562: l_message,l_cc_val_ret_status);
1563: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1564: p_return_status := FND_API.G_RET_STS_ERROR;
1565: RETURN;
1566: END IF;
1567: END IF;
1560: l_message := 'AR_CLRNCE_ACC_ASSGN';
1561: validate_cc_segments(l_receipt_clearing_ccid,l_gl_date,
1562: l_message,l_cc_val_ret_status);
1563: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1564: p_return_status := FND_API.G_RET_STS_ERROR;
1565: RETURN;
1566: END IF;
1567: END IF;
1568:
1569: IF l_short_term_debt_ccid IS NOT NULL THEN
1570: l_message := 'AR_SHRT_TERM_DEBT_ACC_ASSGN';
1571: validate_cc_segments(l_short_term_debt_ccid,l_gl_date,
1572: l_message,l_cc_val_ret_status);
1573: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1574: p_return_status := FND_API.G_RET_STS_ERROR;
1575: RETURN;
1576: END IF;
1577: END IF;
1570: l_message := 'AR_SHRT_TERM_DEBT_ACC_ASSGN';
1571: validate_cc_segments(l_short_term_debt_ccid,l_gl_date,
1572: l_message,l_cc_val_ret_status);
1573: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1574: p_return_status := FND_API.G_RET_STS_ERROR;
1575: RETURN;
1576: END IF;
1577: END IF;
1578: END Validate_Receipt_Method_ccid;
1649: BEGIN
1650: IF PG_DEBUG in ('Y', 'C') THEN
1651: arp_util.debug('Default_Currency_info ()+');
1652: END IF;
1653: p_return_status := FND_API.G_RET_STS_SUCCESS;
1654:
1655: IF p_currency_code <> arp_global.functional_currency THEN
1656:
1657: --default exchange rate date if null
1676: p_exchange_rate_type
1677: );
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
1783: BEGIN
1784: IF PG_DEBUG in ('Y', 'C') THEN
1785: arp_util.debug('Default_cash_ids_from_values ()+');
1786: END IF;
1787: p_return_status := FND_API.G_RET_STS_SUCCESS;
1788: -- Customer ID/Number/Name
1789: -- If 0 has been entered in as the customer ID, consider it null
1790: IF (NVL(p_customer_id,0) = 0)
1791: THEN
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
1805: (p_customer_number IS NOT NULL)
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
1817: (p_customer_number IS NOT NULL)
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:
1830: ELSE
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:
1844:
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
1912: FND_MESSAGE.SET_NAME('AR','AR_BOE_OBSOLETE');
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
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
1942: WHEN no_data_found THEN
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:
1968: p_currency_code := arp_global.functional_currency;
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
2012: select distinct bb.branch_party_id "bank_branch_id",
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
2032: (p_customer_bank_account_num IS NOT NULL)
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
2045: select distinct bb.branch_party_id "bank_branch_id",
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
2065: (p_customer_bank_account_num IS NOT NULL)
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
2079: select distinct bb.branch_party_id "bank_branch_id",
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;
2100:
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)
2135: THEN
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)
2147: THEN
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:
2160: ELSE
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
2244: l_def_curr_return_status VARCHAR2(1);
2245: l_def_rm_return_status VARCHAR2(1);
2246: l_def_gl_dt_return_status VARCHAR2(1);
2247: /* Bug fix 3315058 */
2248: l_bank_acc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2249: BEGIN
2250:
2251: IF PG_DEBUG in ('Y', 'C') THEN
2252: arp_util.debug('Get_Cash_Defaults()+ ');
2250:
2251: IF PG_DEBUG in ('Y', 'C') THEN
2252: arp_util.debug('Get_Cash_Defaults()+ ');
2253: END IF;
2254: p_return_status := FND_API.G_RET_STS_SUCCESS;
2255: -- default the receipt date if NULL
2256: IF (p_receipt_date IS NULL)
2257: THEN
2258: Select trunc(sysdate)
2317: IF (p_override_remit_account_flag IS NULL) THEN
2318: p_override_remit_account_flag := 'Y';
2319: END IF;
2320:
2321: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2322: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2323: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2324: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug3315058 */
2325: p_return_status := FND_API.G_RET_STS_ERROR;
2318: p_override_remit_account_flag := 'Y';
2319: END IF;
2320:
2321: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2322: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2323: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2324: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug3315058 */
2325: p_return_status := FND_API.G_RET_STS_ERROR;
2326: END IF;
2319: END IF;
2320:
2321: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2322: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2323: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2324: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug3315058 */
2325: p_return_status := FND_API.G_RET_STS_ERROR;
2326: END IF;
2327: IF PG_DEBUG in ('Y', 'C') THEN
2320:
2321: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2322: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2323: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2324: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug3315058 */
2325: p_return_status := FND_API.G_RET_STS_ERROR;
2326: END IF;
2327: IF PG_DEBUG in ('Y', 'C') THEN
2328: arp_util.debug('Get_Cash_Defaults: ' || '************Cash Defaults********************');
2321: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2322: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2323: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2324: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug3315058 */
2325: p_return_status := FND_API.G_RET_STS_ERROR;
2326: END IF;
2327: IF PG_DEBUG in ('Y', 'C') THEN
2328: arp_util.debug('Get_Cash_Defaults: ' || '************Cash Defaults********************');
2329: arp_util.debug('Get_Cash_Defaults: ' || 'p_receipt_date : '||to_char(p_receipt_date,'DD-MON-YYYY'));
2395: IF PG_DEBUG in ('Y', 'C') THEN
2396: arp_util.debug('Default_trans_to_receipt_rate ()+');
2397: END IF;
2398:
2399: p_return_status := FND_API.G_RET_STS_SUCCESS;
2400: --if the trx currency and the receipt currency are not same
2401: IF p_cr_currency_code <> p_trx_currency_code THEN
2402:
2403: --do the rounding
2432: l_exchange_rate_type);
2433: EXCEPTION
2434: WHEN gl_currency_api.NO_RATE THEN
2435: --rate does not exist set appropriate message.
2436: --p_return_status := FND_API.G_RET_STS_ERROR ;
2437: l_temp_rate := NULL;
2438: IF PG_DEBUG in ('Y', 'C') THEN
2439: arp_util.debug('Default_trans_to_receipt_rate: ' || 'Exception : gl_currency_api.NO_RATE ');
2440: END IF;
2439: arp_util.debug('Default_trans_to_receipt_rate: ' || 'Exception : gl_currency_api.NO_RATE ');
2440: END IF;
2441: WHEN gl_currency_api.INVALID_CURRENCY THEN
2442: -- invalid currency set appropriate message.
2443: --p_return_status := FND_API.G_RET_STS_ERROR ;
2444: l_temp_rate := NULL;
2445: IF PG_DEBUG in ('Y', 'C') THEN
2446: arp_util.debug('Default_trans_to_receipt_rate: ' || 'Exception: gl_currency_api.INVALID_CURRENCY ');
2447: END IF;
2464: );
2465: EXCEPTION
2466: WHEN gl_currency_api.NO_RATE THEN
2467: --rate does not exist set appropriate message.
2468: --p_return_status := FND_API.G_RET_STS_ERROR ;
2469: l_temp_rate := NULL;
2470: IF PG_DEBUG in ('Y', 'C') THEN
2471: arp_util.debug('Default_trans_to_receipt_rate: ' || 'Exception : gl_currency_api.NO_RATE ');
2472: END IF;
2471: arp_util.debug('Default_trans_to_receipt_rate: ' || 'Exception : gl_currency_api.NO_RATE ');
2472: END IF;
2473: WHEN gl_currency_api.INVALID_CURRENCY THEN
2474: -- invalid currency set appropriate message.
2475: --p_return_status := FND_API.G_RET_STS_ERROR ;
2476: l_temp_rate := NULL;
2477: IF PG_DEBUG in ('Y', 'C') THEN
2478: arp_util.debug('Default_trans_to_receipt_rate: ' || 'Exception: gl_currency_api.INVALID_CURRENCY ');
2479: END IF;
2482: IF p_trans_to_receipt_rate IS NOT NULL THEN
2483: IF l_temp_rate <> p_trans_to_receipt_rate THEN
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;
2550: BEGIN
2551: IF PG_DEBUG in ('Y', 'C') THEN
2552: arp_util.debug('Default_amount_applied_from ()+');
2553: END IF;
2554: p_return_status := FND_API.G_RET_STS_SUCCESS;
2555: IF p_amount_applied_from IS NULL THEN
2556: IF p_trx_currency_code <> p_cr_currency_code THEN
2557:
2558: --this is the CC application case
2639: BEGIN
2640: IF PG_DEBUG in ('Y', 'C') THEN
2641: arp_util.debug('Default_val_llca_parameters()+');
2642: END IF;
2643: p_return_status := FND_API.G_RET_STS_SUCCESS;
2644:
2645:
2646: -- Initialize the Sys Parameters /INV PS /REC PS / Copy Trx lines into GT
2647: arp_process_det_pkg.initialization (p_customer_trx_id,
2653: IF PG_DEBUG in ('Y', 'C') THEN
2654: arp_util.debug('Default_val_llca_parameters: Initialization Return Status : '||p_return_status);
2655: END IF;
2656:
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;
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 ');
2666: END IF;
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)
2684: + Nvl(p_freight_amount,0) + Nvl(p_charges_amount,0))
2773: p_error_message =>
2774: arp_standard.fnd_message('AR_RAPI_LTFC_AMT_NULL'),
2775: p_invalid_value => NULL
2776: );
2777: p_return_status := FND_API.G_RET_STS_ERROR ;
2778: EXIT;
2779: END IF;
2780: END IF;
2781: -- Bug 6931978 END
2804: WHEN NO_DATA_FOUND THEN
2805: IF PG_DEBUG in ('Y', 'C') THEN
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
3053: BEGIN
3054: IF PG_DEBUG in ('Y', 'C') THEN
3055: arp_util.debug('Default_disc_and_amt_applied ()+');
3056: END IF;
3057: p_return_status := FND_API.G_RET_STS_SUCCESS;
3058: IF PG_DEBUG in ('Y', 'C') THEN
3059: arp_util.debug('Default_disc_and_amt_applied: ' || 'p_discount = '||p_discount);
3060: END IF;
3061: IF p_amount_applied IS NULL THEN
3379: END IF;
3380:
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:
3455: BEGIN
3456: IF PG_DEBUG in ('Y', 'C') THEN
3457: arp_util.debug('Default_Trx_Info ()+');
3458: END IF;
3459: p_return_status := FND_API.G_RET_STS_SUCCESS;
3460: --this is only for regular application, not for on-account
3461:
3462:
3463: IF p_customer_trx_id IS NOT NULL AND
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;
3880: END IF;
3891: --If the customer_trx_id enterd by the user was invalid then this section of the code
3892: --will not get executed as the control goes directly to the no_data_found exception
3893:
3894: --we check for the return status so that we are sure that the payment schedule id is valid
3895: IF p_return_status = FND_API.G_RET_STS_SUCCESS AND
3896: p_customer_trx_id IS NOT NULL AND
3897: p_llca_type IS NULL AND
3898: p_customer_trx_line_id IS NOT NULL THEN
3899:
3902: p_applied_payment_schedule_id,
3903: p_customer_trx_line_id,
3904: l_line_amt_return_status
3905: );
3906: IF l_line_amt_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3907: p_return_status := FND_API.G_RET_STS_ERROR;
3908: END IF;
3909: p_trx_line_amount := arp_util.CurrRound(p_trx_line_amount,
3910: p_trx_currency_code);
3903: p_customer_trx_line_id,
3904: l_line_amt_return_status
3905: );
3906: IF l_line_amt_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3907: p_return_status := FND_API.G_RET_STS_ERROR;
3908: END IF;
3909: p_trx_line_amount := arp_util.CurrRound(p_trx_line_amount,
3910: p_trx_currency_code);
3911: END IF;
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
3948: --no further validation done in the validation routines for customer_trx_id
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:
3955: IF PG_DEBUG in ('Y', 'C') THEN
3969: END IF;
3970: IF ar_receipt_api_pub.Original_application_info.customer_trx_id IS NOT NULL THEN
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 ;
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;
3980: END IF;
3981:
3981:
3982: ELSIF ar_receipt_api_pub.Original_application_info.trx_number IS NOT NULL THEN
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 ;
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;
3992: END IF;
3993:
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 ;
3996: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
3997: FND_MSG_PUB.ADD;
3998: END IF;
3999: WHEN others THEN
4019: p_return_status OUT NOCOPY VARCHAR2
4020: ) IS
4021:
4022: BEGIN
4023: p_return_status := FND_API.G_RET_STS_SUCCESS;
4024: IF PG_DEBUG in ('Y', 'C') THEN
4025: arp_util.debug('Default_Receipt_Info ()+');
4026: END IF;
4027: IF p_cash_receipt_id IS NOT NULL THEN
4093: crh.status = 'APPROVED';
4094: EXCEPTION
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 ;
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;
4104: END IF;
4105: WHEN others THEN
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;
4135: IF PG_DEBUG in ('Y', 'C') THEN
4138: END IF;
4139: EXCEPTION
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 ;
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;
4149: END IF;
4150: WHEN others THEN
4184: BEGIN
4185: IF PG_DEBUG in ('Y', 'C') THEN
4186: arp_util.debug('Default_customer_trx_id ()+');
4187: END IF;
4188: p_return_status := FND_API.G_RET_STS_SUCCESS;
4189: IF p_customer_trx_id IS NULL THEN
4190: IF p_trx_number IS NOT NULL THEN
4191: BEGIN
4192: SELECT customer_trx_id
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:
4204: ELSE
4233: BEGIN
4234: IF PG_DEBUG in ('Y', 'C') THEN
4235: arp_util.debug('Default_group_id ()+');
4236: END IF;
4237: p_return_status := FND_API.G_RET_STS_SUCCESS;
4238:
4239: select count(1)
4240: into l_count
4241: from ra_customer_trx_lines line
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
4256: arp_util.debug('Default_group_id ()+');
4272: BEGIN
4273: IF PG_DEBUG in ('Y', 'C') THEN
4274: arp_util.debug('Default_customer_trx_line_id ()+');
4275: END IF;
4276: p_return_status := FND_API.G_RET_STS_SUCCESS;
4277:
4278: IF p_customer_trx_line_id IS NOT NULL AND
4279: p_line_number IS NOT NULL
4280: THEN
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;
4309: ELSE
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;
4327: Else --LLCA
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'
4337: Then
4360: p_error_message =>
4361: arp_standard.fnd_message('AR_RAPI_TRX_LINE_NO_INVALID'),
4362: p_invalid_value => i.line_number
4363: );
4364: p_return_status := FND_API.G_RET_STS_ERROR ;
4365: END;
4366: End If; /* LINE_NUMBER */
4367: Else
4368: BEGIN
4380: p_error_message =>
4381: arp_standard.fnd_message('AR_RAPI_TRX_LINE_ID_INVALID'),
4382: p_invalid_value =>i.customer_trx_line_id
4383: );
4384: p_return_status := FND_API.G_RET_STS_ERROR ;
4385: END;
4386: END IF;
4387:
4388: If i.line_amount IS NULL AND
4397: p_error_message =>
4398: arp_standard.fnd_message('AR_RAPI_LTFC_AMT_NULL'),
4399: p_invalid_value => NULL
4400: );
4401: p_return_status := FND_API.G_RET_STS_ERROR ;
4402: END IF;
4403: End Loop;
4404: END IF;
4405: END If;
4422: BEGIN
4423: IF PG_DEBUG in ('Y', 'C') THEN
4424: arp_util.debug('Default_cash_receipt_id ()+');
4425: END IF;
4426: p_return_status := FND_API.G_RET_STS_SUCCESS;
4427: arp_util.debug('Default_appln_ids:CHECK 2' || 'p_receipt_number :'||to_char(p_receipt_number));
4428: IF p_cash_receipt_id IS NULL
4429: THEN
4430: BEGIN
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;
4443: p_return_status := FND_API.G_RET_STS_ERROR ;
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
4495: BEGIN
4496: IF PG_DEBUG in ('Y', 'C') THEN
4497: arp_util.debug('Default_appln_ids ()+ ');
4498: END IF;
4499: p_return_status := FND_API.G_RET_STS_SUCCESS;
4500:
4501: -- First get a valid value for the customer_trx_id
4502: IF p_trx_number IS NOT NULL THEN
4503: Default_customer_trx_id(p_customer_trx_id ,
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:
4537: IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
4533: p_return_status := FND_API.G_RET_STS_ERROR ;
4534: END IF;
4535: CLOSE payment_schedule;
4536:
4537: IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
4538:
4539: IF nvl(p_customer_trx_id,nvl(l_customer_trx_id,-99)) = nvl(l_customer_trx_id,-99) THEN
4540: p_customer_trx_id := l_customer_trx_id;
4541: END IF;
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
4565: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
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;
4574: END IF;
4575: END IF;
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;
4593: p_return_status := FND_API.G_RET_STS_ERROR;
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:
4597: --Derive cash_receipt_id from receipt_number
4601: p_return_status
4602: );
4603:
4604: /* Bug fix 3435834 */
4605: IF p_return_status_lines = FND_API.G_RET_STS_ERROR OR
4606: p_return_status_group = FND_API.G_RET_STS_ERROR OR
4607: p_return_status = FND_API.G_RET_STS_ERROR THEN
4608: p_return_status := FND_API.G_RET_STS_ERROR;
4609: END IF;
4602: );
4603:
4604: /* Bug fix 3435834 */
4605: IF p_return_status_lines = FND_API.G_RET_STS_ERROR OR
4606: p_return_status_group = FND_API.G_RET_STS_ERROR OR
4607: p_return_status = FND_API.G_RET_STS_ERROR THEN
4608: p_return_status := FND_API.G_RET_STS_ERROR;
4609: END IF;
4610:
4603:
4604: /* Bug fix 3435834 */
4605: IF p_return_status_lines = FND_API.G_RET_STS_ERROR OR
4606: p_return_status_group = FND_API.G_RET_STS_ERROR OR
4607: p_return_status = FND_API.G_RET_STS_ERROR THEN
4608: p_return_status := FND_API.G_RET_STS_ERROR;
4609: END IF;
4610:
4611: IF PG_DEBUG in ('Y', 'C') THEN
4604: /* Bug fix 3435834 */
4605: IF p_return_status_lines = FND_API.G_RET_STS_ERROR OR
4606: p_return_status_group = FND_API.G_RET_STS_ERROR OR
4607: p_return_status = FND_API.G_RET_STS_ERROR THEN
4608: p_return_status := FND_API.G_RET_STS_ERROR;
4609: END IF;
4610:
4611: IF PG_DEBUG in ('Y', 'C') THEN
4612: arp_util.debug('Default_appln_ids: ' || '****Defaulted Value for the application ids****');
4742: arp_util.debug('Default_application_info ()+');
4743: arp_util.debug('Default_application_info: ' || 'p_discount = '||p_discount );
4744: END IF;
4745:
4746: p_return_status := FND_API.G_RET_STS_SUCCESS;
4747: Default_Receipt_Info(
4748: p_cash_receipt_id ,
4749: l_cr_gl_date ,
4750: l_cr_customer_id ,
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
4773: --cash defaulting routine was success
4770: END IF;
4771:
4772: --call the transaction defaulting routine only if the return status of the
4773: --cash defaulting routine was success
4774: IF l_def_cr_return_status = FND_API.G_RET_STS_SUCCESS THEN
4775: Default_Trx_Info(
4776: p_customer_trx_id ,
4777: p_customer_trx_line_id ,
4778: p_show_closed_invoices ,
4984: p_freight_remaining := l_freight_remaining;
4985: p_rec_charges_charged := l_rec_charges_charged;
4986: p_rec_charges_remaining := l_rec_charges_remaining;
4987:
4988: IF l_def_cr_return_status = FND_API.G_RET_STS_ERROR OR
4989: l_def_trx_return_status = FND_API.G_RET_STS_ERROR OR
4990: l_def_rate_return_status = FND_API.G_RET_STS_ERROR OR
4991: l_val_llca_return_status = FND_API.G_RET_STS_ERROR
4992: THEN
4985: p_rec_charges_charged := l_rec_charges_charged;
4986: p_rec_charges_remaining := l_rec_charges_remaining;
4987:
4988: IF l_def_cr_return_status = FND_API.G_RET_STS_ERROR OR
4989: l_def_trx_return_status = FND_API.G_RET_STS_ERROR OR
4990: l_def_rate_return_status = FND_API.G_RET_STS_ERROR OR
4991: l_val_llca_return_status = FND_API.G_RET_STS_ERROR
4992: THEN
4993: p_return_status := FND_API.G_RET_STS_ERROR;
4986: p_rec_charges_remaining := l_rec_charges_remaining;
4987:
4988: IF l_def_cr_return_status = FND_API.G_RET_STS_ERROR OR
4989: l_def_trx_return_status = FND_API.G_RET_STS_ERROR OR
4990: l_def_rate_return_status = FND_API.G_RET_STS_ERROR OR
4991: l_val_llca_return_status = FND_API.G_RET_STS_ERROR
4992: THEN
4993: p_return_status := FND_API.G_RET_STS_ERROR;
4994: END IF;
4987:
4988: IF l_def_cr_return_status = FND_API.G_RET_STS_ERROR OR
4989: l_def_trx_return_status = FND_API.G_RET_STS_ERROR OR
4990: l_def_rate_return_status = FND_API.G_RET_STS_ERROR OR
4991: l_val_llca_return_status = FND_API.G_RET_STS_ERROR
4992: THEN
4993: p_return_status := FND_API.G_RET_STS_ERROR;
4994: END IF;
4995:
4989: l_def_trx_return_status = FND_API.G_RET_STS_ERROR OR
4990: l_def_rate_return_status = FND_API.G_RET_STS_ERROR OR
4991: l_val_llca_return_status = FND_API.G_RET_STS_ERROR
4992: THEN
4993: p_return_status := FND_API.G_RET_STS_ERROR;
4994: END IF;
4995:
4996: IF PG_DEBUG in ('Y', 'C') THEN
4997: arp_util.debug('Default_application_info: ' || '*****************Application Defaults***************');
5044: BEGIN
5045: IF PG_DEBUG in ('Y', 'C') THEN
5046: arp_util.debug('Get_trx_ps_id ()+');
5047: END IF;
5048: p_return_status := FND_API.G_RET_STS_SUCCESS;
5049:
5050: IF p_called_from IN ('BR_REMITTED',
5051: 'BR_FACTORED_WITH_RECOURSE',
5052: 'BR_FACTORED_WITHOUT_RECOURSE') 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;
5075: p_return_status := FND_API.G_RET_STS_ERROR;
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;
5079:
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;
5100: p_return_status := FND_API.G_RET_STS_ERROR;
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;
5104:
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;
5130: p_return_status := FND_API.G_RET_STS_ERROR;
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:
5134: ELSE
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;
5157: p_return_status := FND_API.G_RET_STS_ERROR;
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;
5161:
5185: BEGIN
5186: IF PG_DEBUG in ('Y', 'C') THEN
5187: arp_util.debug('Derive_receivable_appln_id ()+');
5188: END IF;
5189: p_return_status := FND_API.G_RET_STS_SUCCESS;
5190: IF p_cash_receipt_id IS NOT NULL AND
5191: p_applied_payment_schedule_id IS NOT NULL
5192: THEN
5193: SELECT receivable_application_id, gl_date
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()');
5216: END IF;
5241: BEGIN
5242: IF PG_DEBUG in ('Y', 'C') THEN
5243: arp_util.debug('Get_payment_schedule_info ()+');
5244: END IF;
5245: p_return_status := FND_API.G_RET_STS_SUCCESS;
5246:
5247: IF p_called_from IN ('BR_REMITTED',
5248: 'BR_FACTORED_WITH_RECOURSE',
5249: 'BR_FACTORED_WITHOUT_RECOURSE') THEN
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:
5261: ELSE
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:
5273: END IF;
5310: IF PG_DEBUG in ('Y', 'C') THEN
5311: arp_util.debug('Get_receivable_appln_info ()+');
5312: END IF;
5313:
5314: p_return_status := FND_API.G_RET_STS_SUCCESS;
5315:
5316: IF p_called_from IN ('BR_REMITTED',
5317: 'BR_FACTORED_WITH_RECOURSE',
5318: 'BR_FACTORED_WITHOUT_RECOURSE') THEN
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:
5328: ELSE
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:
5339: END IF;
5362: l_applied_payment_schedule_id NUMBER;
5363: l_receivable_application_id NUMBER;
5364: l_return_status VARCHAR2(1);
5365: l_cash_receipt_id NUMBER(15);
5366: l_cust_trx_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5367: l_ps_id_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5368: l_ra_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5369: l_cr_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5370: BEGIN
5363: l_receivable_application_id NUMBER;
5364: l_return_status VARCHAR2(1);
5365: l_cash_receipt_id NUMBER(15);
5366: l_cust_trx_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5367: l_ps_id_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5368: l_ra_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5369: l_cr_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5370: BEGIN
5371: IF PG_DEBUG in ('Y', 'C') THEN
5364: l_return_status VARCHAR2(1);
5365: l_cash_receipt_id NUMBER(15);
5366: l_cust_trx_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5367: l_ps_id_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5368: l_ra_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5369: l_cr_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5370: BEGIN
5371: IF PG_DEBUG in ('Y', 'C') THEN
5372: arp_util.debug('Derive_unapp_ids ()+');
5365: l_cash_receipt_id NUMBER(15);
5366: l_cust_trx_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5367: l_ps_id_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5368: l_ra_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5369: l_cr_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5370: BEGIN
5371: IF PG_DEBUG in ('Y', 'C') THEN
5372: arp_util.debug('Derive_unapp_ids ()+');
5373: END IF;
5370: BEGIN
5371: IF PG_DEBUG in ('Y', 'C') THEN
5372: arp_util.debug('Derive_unapp_ids ()+');
5373: END IF;
5374: p_return_status := FND_API.G_RET_STS_SUCCESS ;
5375:
5376: -- First get a valid value for the customer_trx_id
5377: IF p_trx_number IS NOT NULL THEN
5378: Default_customer_trx_id(p_customer_trx_id ,
5381: END IF;
5382:
5383: --if error is raised in deriving the customer_trx_id from the trx_number,
5384: --do not process the applied_payment_schedule_id any further.
5385: IF l_cust_trx_return_status= FND_API.G_RET_STS_SUCCESS THEN
5386:
5387: IF p_applied_payment_schedule_id IS NOT NULL THEN
5388: Get_payment_schedule_info( p_applied_payment_schedule_id,
5389: l_customer_trx_id,
5390: l_installment,
5391: p_called_from,
5392: l_ps_id_return_status
5393: );
5394: IF l_cust_trx_return_status= FND_API.G_RET_STS_SUCCESS AND
5395: l_ps_id_return_status = FND_API.G_RET_STS_SUCCESS
5396: THEN
5397: --Compare the two customer_trx_ids
5398: IF (nvl(p_customer_trx_id,l_customer_trx_id) <> l_customer_trx_id OR
5391: p_called_from,
5392: l_ps_id_return_status
5393: );
5394: IF l_cust_trx_return_status= FND_API.G_RET_STS_SUCCESS AND
5395: l_ps_id_return_status = FND_API.G_RET_STS_SUCCESS
5396: THEN
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
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;
5406: END IF;
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;
5451: p_return_status := FND_API.G_RET_STS_ERROR;
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;
5455: END IF;
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;
5465:
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;
5475:
5503: END IF; --in other cases we can't derive the receivable application id so it cannot be defaulted
5504:
5505: END IF;
5506:
5507: IF l_cust_trx_return_status <> FND_API.G_RET_STS_SUCCESS OR
5508: l_ps_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5509: l_ra_return_status <> FND_API.G_RET_STS_SUCCESS OR
5510: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
5511: p_return_status <> FND_API.G_RET_STS_SUCCESS
5504:
5505: END IF;
5506:
5507: IF l_cust_trx_return_status <> FND_API.G_RET_STS_SUCCESS OR
5508: l_ps_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5509: l_ra_return_status <> FND_API.G_RET_STS_SUCCESS OR
5510: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
5511: p_return_status <> FND_API.G_RET_STS_SUCCESS
5512: THEN
5505: END IF;
5506:
5507: IF l_cust_trx_return_status <> FND_API.G_RET_STS_SUCCESS OR
5508: l_ps_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5509: l_ra_return_status <> FND_API.G_RET_STS_SUCCESS OR
5510: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
5511: p_return_status <> FND_API.G_RET_STS_SUCCESS
5512: THEN
5513: p_return_status := FND_API.G_RET_STS_ERROR;
5506:
5507: IF l_cust_trx_return_status <> FND_API.G_RET_STS_SUCCESS OR
5508: l_ps_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5509: l_ra_return_status <> FND_API.G_RET_STS_SUCCESS OR
5510: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
5511: p_return_status <> FND_API.G_RET_STS_SUCCESS
5512: THEN
5513: p_return_status := FND_API.G_RET_STS_ERROR;
5514: END IF;
5507: IF l_cust_trx_return_status <> FND_API.G_RET_STS_SUCCESS OR
5508: l_ps_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5509: l_ra_return_status <> FND_API.G_RET_STS_SUCCESS OR
5510: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
5511: p_return_status <> FND_API.G_RET_STS_SUCCESS
5512: THEN
5513: p_return_status := FND_API.G_RET_STS_ERROR;
5514: END IF;
5515: IF PG_DEBUG in ('Y', 'C') THEN
5509: l_ra_return_status <> FND_API.G_RET_STS_SUCCESS OR
5510: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
5511: p_return_status <> FND_API.G_RET_STS_SUCCESS
5512: THEN
5513: p_return_status := FND_API.G_RET_STS_ERROR;
5514: END IF;
5515: IF PG_DEBUG in ('Y', 'C') THEN
5516: arp_util.debug('Derive_unapp_ids: ' || '****Defaulted Value for the unapplication ids****');
5517: arp_util.debug('Derive_unapp_ids: ' || 'p_cash_receipt_id :'||to_char(p_cash_receipt_id));
5579: p_reversal_gl_date := l_default_gl_date;
5580: ELSE
5581: --we were not able to default the gl_date put the message
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;
5663: IF PG_DEBUG in ('Y', 'C') THEN
5664: arp_util.debug('Default_rev_catg_code ()+');
5665: END IF;
5666:
5667: p_return_status := FND_API.G_RET_STS_SUCCESS;
5668:
5669: IF p_reversal_category_code IS NULL THEN
5670: BEGIN
5671: SELECT lookup_code
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
5685: IF p_reversal_category_name IS NOT NULL THEN
5713: IF PG_DEBUG in ('Y', 'C') THEN
5714: arp_util.debug('Default_rev_reason_code ()+');
5715: END IF;
5716:
5717: p_return_status := FND_API.G_RET_STS_SUCCESS;
5718:
5719: IF p_reversal_reason_code IS NULL THEN
5720: BEGIN
5721: SELECT lookup_code
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
5735: IF p_reversal_reason_name IS NOT NULL THEN
5768: BEGIN
5769: IF PG_DEBUG in ('Y', 'C') THEN
5770: arp_util.debug('Derive_reverse_ids ()+ ');
5771: END IF;
5772: p_return_status := FND_API.G_RET_STS_SUCCESS ;
5773:
5774:
5775: --cash_receipt_id
5776: Default_cash_receipt_id(p_cash_receipt_id ,
5794: p_reversal_reason_name,
5795: l_rev_res_return_status
5796: );
5797:
5798: IF l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
5799: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
5800: l_cr_def_return_status <> FND_API.G_RET_STS_SUCCESS
5801: THEN
5802: p_return_status := FND_API.G_RET_STS_ERROR ;
5795: l_rev_res_return_status
5796: );
5797:
5798: IF l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
5799: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
5800: l_cr_def_return_status <> FND_API.G_RET_STS_SUCCESS
5801: THEN
5802: p_return_status := FND_API.G_RET_STS_ERROR ;
5803: END IF;
5796: );
5797:
5798: IF l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
5799: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
5800: l_cr_def_return_status <> FND_API.G_RET_STS_SUCCESS
5801: THEN
5802: p_return_status := FND_API.G_RET_STS_ERROR ;
5803: END IF;
5804:
5798: IF l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
5799: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
5800: l_cr_def_return_status <> FND_API.G_RET_STS_SUCCESS
5801: THEN
5802: p_return_status := FND_API.G_RET_STS_ERROR ;
5803: END IF;
5804:
5805: IF PG_DEBUG in ('Y', 'C') THEN
5806: arp_util.debug('Derive_reverse_ids ()- ');
5914: BEGIN
5915: IF PG_DEBUG in ('Y', 'C') THEN
5916: arp_util.debug('Default_on_ac_app_info ()+');
5917: END IF;
5918: p_return_status := FND_API.G_RET_STS_SUCCESS;
5919:
5920: Default_Receipt_Info(
5921: p_cash_receipt_id ,
5922: p_cr_gl_date,
5961:
5962: p_receipt_date := l_receipt_date ;
5963: p_cr_unapp_amount := l_cr_unapp_amount;
5964:
5965: IF l_receipt_return_status <> FND_API.G_RET_STS_SUCCESS OR
5966: l_receipt_return_status <> l_receipt_return_status THEN
5967:
5968: p_return_status := FND_API.G_RET_STS_ERROR ;
5969: END IF;
5964:
5965: IF l_receipt_return_status <> FND_API.G_RET_STS_SUCCESS OR
5966: l_receipt_return_status <> l_receipt_return_status THEN
5967:
5968: p_return_status := FND_API.G_RET_STS_ERROR ;
5969: END IF;
5970:
5971: p_cr_currency_code := l_cr_currency_code;
5972:
5997: l_rec_appln_id NUMBER ;
5998: l_apply_gl_date DATE;
5999: l_cash_receipt_id NUMBER;
6000: BEGIN
6001: p_return_status := FND_API.G_RET_STS_SUCCESS;
6002: IF PG_DEBUG in ('Y', 'C') THEN
6003: arp_util.debug('Derive_unapp_on_ac_ids ()+');
6004: END IF;
6005: --derive the cash_receipt_id from the receipt_number
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');
6032: FND_MSG_PUB.Add;
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;
6037:
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:
6066: ELSE
6090: l_cash_receipt_id NUMBER;
6091: l_applied_ps_id NUMBER;
6092:
6093: BEGIN
6094: p_return_status := FND_API.G_RET_STS_SUCCESS;
6095: IF PG_DEBUG in ('Y', 'C') THEN
6096: arp_util.debug('Derive_otheraccount_ids ()+');
6097: END IF;
6098: --derive the cash_receipt_id from the receipt_number
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');
6127: FND_MSG_PUB.Add;
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;
6132:
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:
6162: ELSE
6223: p_reversal_gl_date := l_default_gl_date;
6224: ELSE
6225: --we were not able to default the gl_date put the message
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;
6273: l_rec_appln_id NUMBER ;
6274: l_apply_gl_date DATE;
6275: l_cash_receipt_id NUMBER;
6276: BEGIN
6277: p_return_status := FND_API.G_RET_STS_SUCCESS;
6278: IF PG_DEBUG in ('Y', 'C') THEN
6279: arp_util.debug('Derive_activity_unapp_ids ()+');
6280: END IF;
6281: --derive the cash_receipt_id from the receipt_number
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;
6319: p_return_status := FND_API.G_RET_STS_ERROR ;
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
6323: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ACTIVITY_APP');
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;
6329:
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:
6368: ELSE
6413: arp_util.debug('get_doc_seq: ' || 'p_document_name :'||p_document_name);
6414: arp_util.debug('get_doc_seq: ' || 'p_application_id :'||to_char(p_application_id));
6415: arp_util.debug('get_doc_seq: ' || 'p_sob_id :'||to_char(p_sob_id));
6416: END IF;
6417: p_return_status := FND_API.G_RET_STS_SUCCESS;
6418: IF ( NVL( pg_profile_doc_seq, 'N') <> 'N' )
6419: THEN
6420: BEGIN
6421: /*------------------------------+
6448: --this is the case of Always Used
6449: IF PG_DEBUG in ('Y', 'C') THEN
6450: arp_util.debug('get_doc_seq: ' || 'The doc sequence does not exist for the current document');
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
6490: p_doc_sequence_id);
6491: IF p_doc_sequence_value IS NOT NULL THEN
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;
6521: | Generate a document value mandatory |
6522: | error. |
6523: +-----------------------------------------*/
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
6547: IF PG_DEBUG in ('Y', 'C') THEN
6548: arp_util.debug('get_doc_seq: ' || 'no_data_found raised');
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;
6634: dbms_sql.define_column(trx_customer,1,p_customer_id);
6635: dbms_sql.define_column(trx_customer,2,p_customer_site_use_id);
6636: -- End of bug 1907635
6637:
6638: p_return_status := FND_API.G_RET_STS_SUCCESS;
6639: l_customer_trx_id := p_customer_trx_id;
6640: IF p_trx_number IS NOT NULL THEN
6641: Default_customer_trx_id(l_customer_trx_id ,
6642: p_trx_number ,
6642: p_trx_number ,
6643: p_return_status);
6644: END IF;
6645:
6646: IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
6647: IF p_applied_payment_schedule_id IS NOT NULL AND
6648: l_customer_trx_id IS NULL AND
6649: p_installment IS NULL THEN
6650: -- Bug 1907635
6652: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6653: dbms_sql.column_value(trx_customer, 1, p_customer_id);
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);
6667: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6668: dbms_sql.column_value(trx_customer, 1, p_customer_id);
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);
6682: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6683: dbms_sql.column_value(trx_customer, 1, p_customer_id);
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);
6697: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6698: dbms_sql.column_value(trx_customer, 1, p_customer_id);
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);
6712: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6713: dbms_sql.column_value(trx_customer, 1, p_customer_id);
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);
6727: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6728: dbms_sql.column_value(trx_customer, 1, p_customer_id);
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);
6744: END IF;
6745:
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:
6776: )
6777: IS
6778: l_remittance_bank_account_id NUMBER;
6779: l_receipt_method_id NUMBER;
6780: l_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
6781: l_get_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
6782: l_get_x_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
6783: l_le_id NUMBER;
6784: BEGIN
6777: IS
6778: l_remittance_bank_account_id NUMBER;
6779: l_receipt_method_id NUMBER;
6780: l_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
6781: l_get_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
6782: l_get_x_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
6783: l_le_id NUMBER;
6784: BEGIN
6785: p_return_status := FND_API.G_RET_STS_SUCCESS;
6778: l_remittance_bank_account_id NUMBER;
6779: l_receipt_method_id NUMBER;
6780: l_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
6781: l_get_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
6782: l_get_x_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
6783: l_le_id NUMBER;
6784: BEGIN
6785: p_return_status := FND_API.G_RET_STS_SUCCESS;
6786:
6781: l_get_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
6782: l_get_x_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
6783: l_le_id NUMBER;
6784: BEGIN
6785: p_return_status := FND_API.G_RET_STS_SUCCESS;
6786:
6787: --Receivable Activity Name /Id.
6788: IF p_receivables_trx_id IS NULL THEN
6789: IF p_activity IS NOT NULL THEN
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;
6801:
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
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)
6874: THEN
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)
6886: THEN
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:
6899: ELSE
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
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:
6962: p_currency_code := arp_global.functional_currency;
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;
7024:
7064: p_creation_method_code OUT NOCOPY VARCHAR2,
7065: p_return_status OUT NOCOPY VARCHAR2
7066: )
7067: IS
7068: l_def_curr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7069: l_def_rm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7070: l_def_gl_dt_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7071: l_tax_rt_amt_x_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7072: l_tax_amount NUMBER;
7065: p_return_status OUT NOCOPY VARCHAR2
7066: )
7067: IS
7068: l_def_curr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7069: l_def_rm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7070: l_def_gl_dt_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7071: l_tax_rt_amt_x_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7072: l_tax_amount NUMBER;
7073: /* Bug fix 3315058 */
7066: )
7067: IS
7068: l_def_curr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7069: l_def_rm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7070: l_def_gl_dt_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7071: l_tax_rt_amt_x_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7072: l_tax_amount NUMBER;
7073: /* Bug fix 3315058 */
7074: l_bank_acc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7067: IS
7068: l_def_curr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7069: l_def_rm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7070: l_def_gl_dt_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7071: l_tax_rt_amt_x_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7072: l_tax_amount NUMBER;
7073: /* Bug fix 3315058 */
7074: l_bank_acc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7075: l_misc_activity_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7070: l_def_gl_dt_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7071: l_tax_rt_amt_x_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7072: l_tax_amount NUMBER;
7073: /* Bug fix 3315058 */
7074: l_bank_acc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7075: l_misc_activity_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7076: l_misc_tax_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7077: l_code_combination_id NUMBER;
7078: l_message VARCHAR2(100);
7071: l_tax_rt_amt_x_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7072: l_tax_amount NUMBER;
7073: /* Bug fix 3315058 */
7074: l_bank_acc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7075: l_misc_activity_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7076: l_misc_tax_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7077: l_code_combination_id NUMBER;
7078: l_message VARCHAR2(100);
7079: l_le_id NUMBER; /* bug 4594101 */
7072: l_tax_amount NUMBER;
7073: /* Bug fix 3315058 */
7074: l_bank_acc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7075: l_misc_activity_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7076: l_misc_tax_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7077: l_code_combination_id NUMBER;
7078: l_message VARCHAR2(100);
7079: l_le_id NUMBER; /* bug 4594101 */
7080: l_get_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7076: l_misc_tax_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7077: l_code_combination_id NUMBER;
7078: l_message VARCHAR2(100);
7079: l_le_id NUMBER; /* bug 4594101 */
7080: l_get_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7081: l_zx_msg_count NUMBER;
7082: l_zx_msg_data VARCHAR2(1024);
7083: l_zx_effective_date DATE;
7084: l_zx_return_status VARCHAR2(10);
7094: BEGIN
7095: IF PG_DEBUG in ('Y', 'C') THEN
7096: arp_util.debug('Get_misc_Defaults()+ ');
7097: END IF;
7098: p_return_status := FND_API.G_RET_STS_SUCCESS;
7099: -- default the receipt date if NULL
7100: IF (p_receipt_date IS NULL)
7101: THEN
7102: Select trunc(sysdate)
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
7200: IF (p_tax_code IS NOT NULL) THEN
7307: l_misc_activity_status);
7308: EXCEPTION
7309: WHEN OTHERS THEN
7310: l_code_combination_id:=NULL;
7311: l_misc_activity_status:=FND_API.G_RET_STS_ERROR;
7312: END;
7313: ELSE
7314: l_message := 'AR_GL_ACC_ASSGN_DISB_SET';
7315: OPEN get_dist_ccid(p_distribution_set_id);
7313: ELSE
7314: l_message := 'AR_GL_ACC_ASSGN_DISB_SET';
7315: OPEN get_dist_ccid(p_distribution_set_id);
7316: IF get_dist_ccid%NOTFOUND THEN
7317: l_misc_activity_status:=FND_API.G_RET_STS_ERROR;
7318: l_code_combination_id:=NULL;
7319: ELSE
7320: LOOP
7321: FETCH get_dist_ccid INTO l_code_combination_id;
7323: validate_cc_segments(l_code_combination_id,
7324: p_gl_date,
7325: l_message,
7326: l_misc_activity_status);
7327: IF l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS THEN
7328: l_misc_activity_status:=FND_API.G_RET_STS_ERROR;
7329: EXIT;
7330: END IF;
7331: END LOOP;
7324: p_gl_date,
7325: l_message,
7326: l_misc_activity_status);
7327: IF l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS THEN
7328: l_misc_activity_status:=FND_API.G_RET_STS_ERROR;
7329: EXIT;
7330: END IF;
7331: END LOOP;
7332: END IF;
7348: l_misc_tax_status);
7349: EXCEPTION
7350: WHEN OTHERS THEN
7351: l_code_combination_id := NULL;
7352: l_misc_tax_status:=FND_API.G_RET_STS_ERROR;
7353: END;
7354: END IF;
7355: END IF;
7356: /* End of Bug3315058*/
7375: l_tax_amount IS NOT NULL and
7376: p_amount IS NOT NULL THEN
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;
7382: END IF;
7383: END IF;
7384:
7385:
7386: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
7387: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
7388: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7389: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7390: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7383: END IF;
7384:
7385:
7386: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
7387: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
7388: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7389: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7390: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7391: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7384:
7385:
7386: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
7387: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
7388: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7389: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7390: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7391: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7392: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug fix 3315058 */
7385:
7386: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
7387: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
7388: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7389: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7390: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7391: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7392: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug fix 3315058 */
7393: p_return_status := FND_API.G_RET_STS_ERROR;
7386: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
7387: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
7388: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7389: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7390: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7391: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7392: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug fix 3315058 */
7393: p_return_status := FND_API.G_RET_STS_ERROR;
7394: END IF;
7387: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
7388: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7389: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7390: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7391: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7392: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug fix 3315058 */
7393: p_return_status := FND_API.G_RET_STS_ERROR;
7394: END IF;
7395: IF PG_DEBUG in ('Y', 'C') THEN
7388: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7389: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7390: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7391: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7392: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug fix 3315058 */
7393: p_return_status := FND_API.G_RET_STS_ERROR;
7394: END IF;
7395: IF PG_DEBUG in ('Y', 'C') THEN
7396: arp_util.debug('Get_misc_defaults: ' || '************Cash Defaults********************');
7389: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7390: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7391: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7392: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug fix 3315058 */
7393: p_return_status := FND_API.G_RET_STS_ERROR;
7394: END IF;
7395: IF PG_DEBUG in ('Y', 'C') THEN
7396: arp_util.debug('Get_misc_defaults: ' || '************Cash Defaults********************');
7397: arp_util.debug('Get_misc_defaults: ' || 'p_receipt_date : '||to_char(p_receipt_date,'DD-MON-YYYY'));
7427: BEGIN
7428: IF PG_DEBUG in ('Y', 'C') THEN
7429: arp_util.debug('Validate_Desc_Flexfield ()+');
7430: END IF;
7431: p_return_status := FND_API.G_RET_STS_SUCCESS;
7432:
7433: OPEN desc_flex_exists;
7434: FETCH desc_flex_exists INTO l_flex_exists;
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;
7444:
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;
7474:
7548: BEGIN
7549: IF PG_DEBUG in ('Y', 'C') THEN
7550: arp_util.debug('ar_receipt_lib_pvt.Default_Desc_Flexfield(+)');
7551: END IF;
7552: p_return_status := FND_API.G_RET_STS_SUCCESS;
7553: IF p_cash_receipt_id IS NOT NULL THEN
7554: SELECT attribute_category,
7555: attribute1, attribute2,
7556: attribute3, attribute4,
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:
7586: PROCEDURE Default_prepay_cc_activity(
7592: IF PG_DEBUG in ('Y', 'C') THEN
7593: arp_util.debug('ar_receipt_lib_pvt.Default_prepay_cc_activity(+)');
7594: END IF;
7595:
7596: p_return_status := FND_API.G_RET_STS_SUCCESS;
7597:
7598: IF p_receivable_trx_id is null THEN
7599:
7600: BEGIN
7609:
7610: EXCEPTION
7611: WHEN others THEN
7612: fnd_message.set_name('AR', 'AR_NO_ACTIVITY_FOUND');
7613: p_return_status := FND_API.G_RET_STS_ERROR;
7614: END;
7615: END IF;
7616:
7617: IF PG_DEBUG in ('Y', 'C') THEN
7668: IF PG_DEBUG in ('Y', 'C') THEN
7669: arp_util.debug('ar_receipt_lib_pvt.Default_open_receipt(+)');
7670: END IF;
7671:
7672: x_return_status := FND_API.G_RET_STS_SUCCESS ;
7673: x_open_applied_ps_id := NULL;
7674: x_application_ref_num := NULL;
7675: x_secondary_app_ref_id := NULL;
7676:
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:
7696: IF p_open_rec_app_id IS NOT NULL THEN
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
7731: (p_open_cash_receipt_id,
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;
7752:
7749: END IF;
7750: END IF;
7751: END IF;
7752:
7753: IF x_return_status <> FND_API.G_RET_STS_ERROR THEN
7754: default_cash_receipt_id
7755: (p_open_cash_receipt_id,
7756: p_open_receipt_number,
7757: x_return_status);
7842: ) IS
7843:
7844: BEGIN
7845:
7846: x_return_status := FND_API.G_RET_STS_SUCCESS;
7847: IF PG_DEBUG in ('Y', 'C') THEN
7848: arp_util.debug('ar_receipt_lib_pvt.Default_unapp_open_receipt(+)');
7849: END IF;
7850:
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)
7874: RETURN NUMBER
8038: Related Bug 5115632 */
8039: begin
8040: iby_disbursement_comp_pub.get_default_payment_attributes(
8041: p_api_version => 1.0
8042: ,p_init_msg_list => FND_API.G_FALSE
8043: ,p_ignore_payee_pref => 'Y'
8044: ,p_trxn_attributes_rec => l_trxn_attributes_rec
8045: ,x_return_status => x_return_status
8046: ,x_msg_count => x_msg_count
8087: IF PG_DEBUG in ('Y', 'C') THEN
8088: arp_util.debug('Populate_llca_gt ()+ ');
8089: END IF;
8090:
8091: p_return_status := FND_API.G_RET_STS_SUCCESS;
8092:
8093: -- Clean the GT Table first.
8094: delete from ar_llca_trx_lines_gt
8095: where customer_trx_id = p_customer_trx_id;
8216: WHEN others THEN
8217: IF PG_DEBUG in ('Y', 'C') THEN
8218: arp_util.debug('EXCEPTION: (pouplate_llca_gt)');
8219: END IF;
8220: p_return_status := FND_API.G_RET_STS_ERROR;
8221: raise;
8222: End populate_llca_gt;
8223:
8224: PROCEDURE populate_errors_gt (