[Home] [Help]
922: THEN
923: RETURN(NULL);
924: END IF;
925:
926: p_return_status := FND_API.G_RET_STS_SUCCESS;
927:
928: l_id_from_name := Get_Id(p_entity||'_NAME',
929: p_name_value,
930: p_return_status
937:
938: IF l_id_from_name = l_id_from_num THEN
939: RETURN(l_id_from_name);
940: ELSE
941: --p_return_status := FND_API.G_RET_STS_ERROR;
942: --FND_MESSAGE.SET_NAME('AR', 'INVALID_VALUE_ERR');
943: --FND_MESSAGE.SET_TOKEN('PARAMETER','Customer Number/Name');
944: --FND_MSG_PUB.Add;
945: RETURN(NULL);
1087: l_error_message VARCHAR2(128);
1088: l_defaulting_rule_used VARCHAR2(100);
1089: l_default_gl_date DATE;
1090: BEGIN
1091: p_return_status := FND_API.G_RET_STS_SUCCESS;
1092: IF PG_DEBUG in ('Y', 'C') THEN
1093: arp_util.debug('Default_gl_date ()+');
1094: END IF;
1095: IF p_gl_date IS NULL THEN
1121: -- Raise error message if failure in defaulting the gl_date
1122: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
1123: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
1124: FND_MSG_PUB.Add;
1125: p_return_status := FND_API.G_RET_STS_ERROR;
1126: END IF;
1127: END IF;
1128: IF PG_DEBUG in ('Y', 'C') THEN
1129: arp_util.debug('Default_gl_date ()-');
1193: END IF;
1194: EXCEPTION
1195: WHEN gl_currency_api.NO_RATE THEN
1196: --rate does not exist set appropriate message.
1197: --p_return_status := FND_API.G_RET_STS_ERROR ;
1198: return(null);
1199: IF PG_DEBUG in ('Y', 'C') THEN
1200: arp_util.debug('Find_Cached_Exchange_Rate: ' || 'Exception : gl_currency_api.NO_RATE ');
1201: END IF;
1200: arp_util.debug('Find_Cached_Exchange_Rate: ' || 'Exception : gl_currency_api.NO_RATE ');
1201: END IF;
1202: WHEN gl_currency_api.INVALID_CURRENCY THEN
1203: -- invalid currency set appropriate message.
1204: --p_return_status := FND_API.G_RET_STS_ERROR ;
1205: return(null);
1206: IF PG_DEBUG in ('Y', 'C') THEN
1207: arp_util.debug('Find_Cached_Exchange_Rate: ' || 'Exception: gl_currency_api.INVALID_CURRENCY ');
1208: END IF;
1292: IF PG_DEBUG in ('Y', 'C') THEN
1293: arp_util.debug('Default_Receipt_Method_Info ()+');
1294: END IF;
1295:
1296: p_return_status := FND_API.G_RET_STS_SUCCESS;
1297:
1298: IF p_receipt_method_id IS NOT NULL THEN
1299:
1300: IF p_remittance_bank_account_id IS NULL THEN
1365: null;
1366: WHEN too_many_rows THEN
1367: --This will happen only if the receipt method was specified
1368: --and we tried to default the remittance bank and the state
1369: p_return_status := FND_API.G_RET_STS_ERROR;
1370: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_ID_NULL');
1371: FND_MSG_PUB.Add;
1372: IF PG_DEBUG in ('Y', 'C') THEN
1373: arp_util.debug('Default_Receipt_Method_Info: ' || 'The remittance bank account could not be defaulted ');
1396: BEGIN
1397: IF PG_DEBUG in ('Y', 'C') THEN
1398: arp_util.debug('validate_cc_segments ()+');
1399: END IF;
1400: p_return_status := FND_API.G_RET_STS_SUCCESS;
1401: l_validation_date := p_gl_date;
1402: l_chart_of_accounts_id := arp_global.chart_of_accounts_id;
1403: IF PG_DEBUG in ('Y', 'C') THEN
1404: arp_util.debug('l_chart_of_accounts_id = '||to_char(l_chart_of_accounts_id));
1424: END IF;
1425: IF (NOT l_value) THEN
1426: FND_MESSAGE.SET_NAME('AR',p_message);
1427: FND_MSG_PUB.Add;
1428: p_return_status := FND_API.G_RET_STS_ERROR;
1429: END IF;
1430: END validate_cc_segments;
1431:
1432: /* Bug fix 3315058
1451: l_receipt_clearing_ccid gl_code_combinations.code_combination_id%type;
1452: l_short_term_debt_ccid gl_code_combinations.code_combination_id%type;
1453: l_message varchar2(100);
1454: l_gl_date DATE;
1455: l_cc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
1456: BEGIN
1457: IF PG_DEBUG in ('Y', 'C') THEN
1458: arp_util.debug('Validate_Receipt_Method_ccid ()+');
1459: END IF;
1456: BEGIN
1457: IF PG_DEBUG in ('Y', 'C') THEN
1458: arp_util.debug('Validate_Receipt_Method_ccid ()+');
1459: END IF;
1460: p_return_status := FND_API.G_RET_STS_SUCCESS;
1461: l_gl_date := p_gl_date;
1462: IF p_receipt_method_id IS NOT NULL
1463: AND p_remittance_bank_account_id IS NOT NULL THEN
1464: SELECT rma.cash_ccid,art1.code_combination_id,rma.on_account_ccid,
1480: IF l_cash_ccid IS NOT NULL THEN
1481: l_message := 'AR_CASH_ACC_ASSGN';
1482: validate_cc_segments(l_cash_ccid,l_gl_date,
1483: l_message,l_cc_val_ret_status);
1484: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1485: p_return_status := FND_API.G_RET_STS_ERROR;
1486: RETURN;
1487: END IF;
1488: END IF;
1481: l_message := 'AR_CASH_ACC_ASSGN';
1482: validate_cc_segments(l_cash_ccid,l_gl_date,
1483: l_message,l_cc_val_ret_status);
1484: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1485: p_return_status := FND_API.G_RET_STS_ERROR;
1486: RETURN;
1487: END IF;
1488: END IF;
1489:
1490: IF l_earned_ccid IS NOT NULL THEN
1491: l_message := 'AR_EARN_DISC_ACC_ASSGN';
1492: validate_cc_segments(l_earned_ccid,l_gl_date,
1493: l_message,l_cc_val_ret_status);
1494: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1495: p_return_status := FND_API.G_RET_STS_ERROR;
1496: RETURN;
1497: END IF;
1498: END IF;
1491: l_message := 'AR_EARN_DISC_ACC_ASSGN';
1492: validate_cc_segments(l_earned_ccid,l_gl_date,
1493: l_message,l_cc_val_ret_status);
1494: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1495: p_return_status := FND_API.G_RET_STS_ERROR;
1496: RETURN;
1497: END IF;
1498: END IF;
1499:
1500: IF l_on_account_ccid IS NOT NULL THEN
1501: l_message := 'AR_ONACC_ACC_ASSGN';
1502: validate_cc_segments(l_on_account_ccid,l_gl_date,
1503: l_message,l_cc_val_ret_status);
1504: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1505: p_return_status := FND_API.G_RET_STS_ERROR;
1506: RETURN;
1507: END IF;
1508: END IF;
1501: l_message := 'AR_ONACC_ACC_ASSGN';
1502: validate_cc_segments(l_on_account_ccid,l_gl_date,
1503: l_message,l_cc_val_ret_status);
1504: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1505: p_return_status := FND_API.G_RET_STS_ERROR;
1506: RETURN;
1507: END IF;
1508: END IF;
1509: IF l_unapplied_ccid IS NOT NULL THEN
1509: IF l_unapplied_ccid IS NOT NULL THEN
1510: l_message := 'AR_UNAPP_ACC_ASSGN';
1511: validate_cc_segments(l_unapplied_ccid,l_gl_date,
1512: l_message,l_cc_val_ret_status);
1513: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1514: p_return_status := FND_API.G_RET_STS_ERROR;
1515: RETURN;
1516: END IF;
1517: END IF;
1510: l_message := 'AR_UNAPP_ACC_ASSGN';
1511: validate_cc_segments(l_unapplied_ccid,l_gl_date,
1512: l_message,l_cc_val_ret_status);
1513: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1514: p_return_status := FND_API.G_RET_STS_ERROR;
1515: RETURN;
1516: END IF;
1517: END IF;
1518:
1519: IF l_unearned_ccid IS NOT NULL THEN
1520: l_message := 'AR_UNEARN_DISC_ACC_ASSGN';
1521: validate_cc_segments(l_unearned_ccid,l_gl_date,
1522: l_message,l_cc_val_ret_status);
1523: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1524: p_return_status := FND_API.G_RET_STS_ERROR;
1525: RETURN;
1526: END IF;
1527: END IF;
1520: l_message := 'AR_UNEARN_DISC_ACC_ASSGN';
1521: validate_cc_segments(l_unearned_ccid,l_gl_date,
1522: l_message,l_cc_val_ret_status);
1523: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1524: p_return_status := FND_API.G_RET_STS_ERROR;
1525: RETURN;
1526: END IF;
1527: END IF;
1528: IF l_unidentified_ccid IS NOT NULL THEN
1528: IF l_unidentified_ccid IS NOT NULL THEN
1529: l_message := 'AR_UNIDEN_ACC_ASSGN';
1530: validate_cc_segments(l_unidentified_ccid,l_gl_date,
1531: l_message,l_cc_val_ret_status);
1532: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1533: p_return_status := FND_API.G_RET_STS_ERROR;
1534: RETURN;
1535: END IF;
1536: END IF;
1529: l_message := 'AR_UNIDEN_ACC_ASSGN';
1530: validate_cc_segments(l_unidentified_ccid,l_gl_date,
1531: l_message,l_cc_val_ret_status);
1532: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1533: p_return_status := FND_API.G_RET_STS_ERROR;
1534: RETURN;
1535: END IF;
1536: END IF;
1537: IF l_bank_charges_ccid IS NOT NULL THEN
1537: IF l_bank_charges_ccid IS NOT NULL THEN
1538: l_message := 'AR_BANK_CHRG_ACC_ASSGN';
1539: validate_cc_segments(l_bank_charges_ccid,l_gl_date,
1540: l_message,l_cc_val_ret_status);
1541: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1542: p_return_status := FND_API.G_RET_STS_ERROR;
1543: RETURN;
1544: END IF;
1545: END IF;
1538: l_message := 'AR_BANK_CHRG_ACC_ASSGN';
1539: validate_cc_segments(l_bank_charges_ccid,l_gl_date,
1540: l_message,l_cc_val_ret_status);
1541: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1542: p_return_status := FND_API.G_RET_STS_ERROR;
1543: RETURN;
1544: END IF;
1545: END IF;
1546:
1547: IF l_factor_ccid IS NOT NULL THEN
1548: l_message := 'AR_FCTR_ACC_ASSGN';
1549: validate_cc_segments(l_factor_ccid,l_gl_date,
1550: l_message,l_cc_val_ret_status);
1551: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1552: p_return_status := FND_API.G_RET_STS_ERROR;
1553: RETURN;
1554: END IF;
1555: END IF;
1548: l_message := 'AR_FCTR_ACC_ASSGN';
1549: validate_cc_segments(l_factor_ccid,l_gl_date,
1550: l_message,l_cc_val_ret_status);
1551: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1552: p_return_status := FND_API.G_RET_STS_ERROR;
1553: RETURN;
1554: END IF;
1555: END IF;
1556:
1557: IF l_remittance_ccid IS NOT NULL THEN
1558: l_message := 'AR_REM_ACC_ASSGN';
1559: validate_cc_segments(l_remittance_ccid,l_gl_date,
1560: l_message,l_cc_val_ret_status);
1561: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1562: p_return_status := FND_API.G_RET_STS_ERROR;
1563: RETURN;
1564: END IF;
1565: END IF;
1558: l_message := 'AR_REM_ACC_ASSGN';
1559: validate_cc_segments(l_remittance_ccid,l_gl_date,
1560: l_message,l_cc_val_ret_status);
1561: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1562: p_return_status := FND_API.G_RET_STS_ERROR;
1563: RETURN;
1564: END IF;
1565: END IF;
1566: IF l_receipt_clearing_ccid IS NOT NULL THEN
1566: IF l_receipt_clearing_ccid IS NOT NULL THEN
1567: l_message := 'AR_CLRNCE_ACC_ASSGN';
1568: validate_cc_segments(l_receipt_clearing_ccid,l_gl_date,
1569: l_message,l_cc_val_ret_status);
1570: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1571: p_return_status := FND_API.G_RET_STS_ERROR;
1572: RETURN;
1573: END IF;
1574: END IF;
1567: l_message := 'AR_CLRNCE_ACC_ASSGN';
1568: validate_cc_segments(l_receipt_clearing_ccid,l_gl_date,
1569: l_message,l_cc_val_ret_status);
1570: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1571: p_return_status := FND_API.G_RET_STS_ERROR;
1572: RETURN;
1573: END IF;
1574: END IF;
1575:
1576: IF l_short_term_debt_ccid IS NOT NULL THEN
1577: l_message := 'AR_SHRT_TERM_DEBT_ACC_ASSGN';
1578: validate_cc_segments(l_short_term_debt_ccid,l_gl_date,
1579: l_message,l_cc_val_ret_status);
1580: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1581: p_return_status := FND_API.G_RET_STS_ERROR;
1582: RETURN;
1583: END IF;
1584: END IF;
1577: l_message := 'AR_SHRT_TERM_DEBT_ACC_ASSGN';
1578: validate_cc_segments(l_short_term_debt_ccid,l_gl_date,
1579: l_message,l_cc_val_ret_status);
1580: IF l_cc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
1581: p_return_status := FND_API.G_RET_STS_ERROR;
1582: RETURN;
1583: END IF;
1584: END IF;
1585: END Validate_Receipt_Method_ccid;
1656: BEGIN
1657: IF PG_DEBUG in ('Y', 'C') THEN
1658: arp_util.debug('Default_Currency_info ()+');
1659: END IF;
1660: p_return_status := FND_API.G_RET_STS_SUCCESS;
1661:
1662: IF p_currency_code <> arp_global.functional_currency THEN
1663:
1664: --default exchange rate date if null
1683: p_exchange_rate_type
1684: );
1685: ELSE
1686: --if user has entered exchange rate for type <> User, raise error message
1687: p_return_status := FND_API.G_RET_STS_ERROR;
1688: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_INVALID');
1689: FND_MSG_PUB.Add;
1690: END IF;
1691: ELSE
1790: BEGIN
1791: IF PG_DEBUG in ('Y', 'C') THEN
1792: arp_util.debug('Default_cash_ids_from_values ()+');
1793: END IF;
1794: p_return_status := FND_API.G_RET_STS_SUCCESS;
1795: -- Customer ID/Number/Name
1796: -- If 0 has been entered in as the customer ID, consider it null
1797: IF (NVL(p_customer_id,0) = 0)
1798: THEN
1804: l_get_id_return_status);
1805: IF p_customer_id IS NULL THEN
1806: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_INVALID');
1807: FND_MSG_PUB.Add;
1808: p_return_status := FND_API.G_RET_STS_ERROR;
1809: END IF;
1810:
1811: ELSIF(p_customer_name IS NULL) and
1812: (p_customer_number IS NOT NULL)
1816: l_get_id_return_status);
1817: IF p_customer_id IS NULL THEN
1818: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NUM_INVALID');
1819: FND_MSG_PUB.Add;
1820: p_return_status := FND_API.G_RET_STS_ERROR;
1821: END IF;
1822:
1823: ELSIF(p_customer_name IS NOT NULL) and
1824: (p_customer_number IS NOT NULL)
1829: l_get_x_val_return_status);
1830: IF p_customer_id IS NULL THEN
1831: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_INVALID');
1832: FND_MSG_PUB.Add;
1833: p_return_status := FND_API.G_RET_STS_ERROR;
1834: END IF;
1835: END IF;
1836:
1837: ELSE
1843: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1844: THEN
1845: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1846: FND_MSG_PUB.Add;
1847: p_return_status := FND_API.G_RET_STS_ERROR;
1848: END IF;
1849: END IF;
1850:
1851:
1911: );
1912: IF p_receipt_method_id IS NULL THEN
1913: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_INVALID');
1914: FND_MSG_PUB.Add;
1915: p_return_status := FND_API.G_RET_STS_ERROR;
1916: ELSE
1917: l_boe_flag := arpt_sql_func_util.check_BOE_Paymeth(p_receipt_method_id);
1918: if l_boe_flag = 'Y' then
1919: FND_MESSAGE.SET_NAME('AR','AR_BOE_OBSOLETE');
1917: l_boe_flag := arpt_sql_func_util.check_BOE_Paymeth(p_receipt_method_id);
1918: if l_boe_flag = 'Y' then
1919: FND_MESSAGE.SET_NAME('AR','AR_BOE_OBSOLETE');
1920: FND_MSG_PUB.Add;
1921: p_return_status := FND_API.G_RET_STS_ERROR;
1922: end if;
1923: END IF;
1924: END IF;
1925: ELSE
1941: l_boe_flag := arpt_sql_func_util.check_BOE_Paymeth(p_receipt_method_id);
1942: if l_boe_flag = 'Y' then
1943: FND_MESSAGE.SET_NAME('AR','AR_BOE_OBSOLETE');
1944: FND_MSG_PUB.Add;
1945: p_return_status := FND_API.G_RET_STS_ERROR;
1946: end if;
1947:
1948: EXCEPTION
1949: WHEN no_data_found THEN
1967: );
1968: IF p_currency_code IS NULL THEN
1969: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_INVALID');
1970: FND_MSG_PUB.Add;
1971: p_return_status := FND_API.G_RET_STS_ERROR;
1972: END IF;
1973: ELSE
1974:
1975: p_currency_code := arp_global.functional_currency;
2011: );
2012: IF p_customer_bank_account_id IS NULL THEN
2013: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
2014: FND_MSG_PUB.Add;
2015: p_return_status := FND_API.G_RET_STS_ERROR;
2016: END IF; */
2017:
2018: begin
2019: select distinct bb.branch_party_id "bank_branch_id",
2031: exception
2032: when others then
2033: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NAME_INVALID');
2034: FND_MSG_PUB.Add;
2035: p_return_status := FND_API.G_RET_STS_ERROR;
2036: end;
2037:
2038: ELSIF(p_customer_bank_account_name IS NULL) and
2039: (p_customer_bank_account_num IS NOT NULL)
2044: );
2045: IF p_customer_bank_account_id IS NULL THEN
2046: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
2047: FND_MSG_PUB.Add;
2048: p_return_status := FND_API.G_RET_STS_ERROR;
2049: END IF; */
2050:
2051: begin
2052: select distinct bb.branch_party_id "bank_branch_id",
2064: exception
2065: when others then
2066: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_NUM_INVALID');
2067: FND_MSG_PUB.Add;
2068: p_return_status := FND_API.G_RET_STS_ERROR;
2069: end;
2070:
2071: ELSIF(p_customer_bank_account_name IS NOT NULL) and
2072: (p_customer_bank_account_num IS NOT NULL)
2078: );
2079: IF p_customer_bank_account_id IS NULL THEN
2080: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_2_INVALID');
2081: FND_MSG_PUB.Add;
2082: p_return_status := FND_API.G_RET_STS_ERROR;
2083: END IF; */
2084:
2085: begin
2086: select distinct bb.branch_party_id "bank_branch_id",
2099: exception
2100: when others then
2101: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_BK_AC_2_INVALID');
2102: FND_MSG_PUB.Add;
2103: p_return_status := FND_API.G_RET_STS_ERROR;
2104: end;
2105:
2106: END IF;
2107:
2134: );
2135: IF p_remittance_bank_account_id IS NULL THEN
2136: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_INVALID');
2137: FND_MSG_PUB.Add;
2138: p_return_status := FND_API.G_RET_STS_ERROR;
2139: END IF;
2140: ELSIF(p_remittance_bank_account_name IS NULL) and
2141: (p_remittance_bank_account_num IS NOT NULL)
2142: THEN
2146: );
2147: IF p_remittance_bank_account_id IS NULL THEN
2148: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NUM_INVALID');
2149: FND_MSG_PUB.Add;
2150: p_return_status := FND_API.G_RET_STS_ERROR;
2151: END IF;
2152: ELSIF(p_remittance_bank_account_name IS NOT NULL) and
2153: (p_remittance_bank_account_num IS NOT NULL)
2154: THEN
2159: );
2160: IF p_remittance_bank_account_id IS NULL THEN
2161: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_2_INVALID');
2162: FND_MSG_PUB.Add;
2163: p_return_status := FND_API.G_RET_STS_ERROR;
2164: END IF;
2165: END IF;
2166:
2167: ELSE
2190: );
2191: IF p_exchange_rate_type IS NULL THEN
2192: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYP_INVALID');
2193: FND_MSG_PUB.Add;
2194: p_return_status := FND_API.G_RET_STS_ERROR;
2195: END IF;
2196: END IF;
2197:
2198: ELSE
2251: l_def_curr_return_status VARCHAR2(1);
2252: l_def_rm_return_status VARCHAR2(1);
2253: l_def_gl_dt_return_status VARCHAR2(1);
2254: /* Bug fix 3315058 */
2255: l_bank_acc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
2256: BEGIN
2257:
2258: IF PG_DEBUG in ('Y', 'C') THEN
2259: arp_util.debug('Get_Cash_Defaults()+ ');
2257:
2258: IF PG_DEBUG in ('Y', 'C') THEN
2259: arp_util.debug('Get_Cash_Defaults()+ ');
2260: END IF;
2261: p_return_status := FND_API.G_RET_STS_SUCCESS;
2262: -- default the receipt date if NULL
2263: IF (p_receipt_date IS NULL)
2264: THEN
2265: Select trunc(sysdate)
2324: IF (p_override_remit_account_flag IS NULL) THEN
2325: p_override_remit_account_flag := 'Y';
2326: END IF;
2327:
2328: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2329: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2330: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2331: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug3315058 */
2332: p_return_status := FND_API.G_RET_STS_ERROR;
2325: p_override_remit_account_flag := 'Y';
2326: END IF;
2327:
2328: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2329: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2330: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2331: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug3315058 */
2332: p_return_status := FND_API.G_RET_STS_ERROR;
2333: END IF;
2326: END IF;
2327:
2328: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2329: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2330: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2331: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug3315058 */
2332: p_return_status := FND_API.G_RET_STS_ERROR;
2333: END IF;
2334: IF PG_DEBUG in ('Y', 'C') THEN
2327:
2328: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2329: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2330: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2331: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug3315058 */
2332: p_return_status := FND_API.G_RET_STS_ERROR;
2333: END IF;
2334: IF PG_DEBUG in ('Y', 'C') THEN
2335: arp_util.debug('Get_Cash_Defaults: ' || '************Cash Defaults********************');
2328: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2329: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2330: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
2331: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug3315058 */
2332: p_return_status := FND_API.G_RET_STS_ERROR;
2333: END IF;
2334: IF PG_DEBUG in ('Y', 'C') THEN
2335: arp_util.debug('Get_Cash_Defaults: ' || '************Cash Defaults********************');
2336: arp_util.debug('Get_Cash_Defaults: ' || 'p_receipt_date : '||to_char(p_receipt_date,'DD-MON-YYYY'));
2402: IF PG_DEBUG in ('Y', 'C') THEN
2403: arp_util.debug('Default_trans_to_receipt_rate ()+');
2404: END IF;
2405:
2406: p_return_status := FND_API.G_RET_STS_SUCCESS;
2407: --if the trx currency and the receipt currency are not same
2408: IF p_cr_currency_code <> p_trx_currency_code THEN
2409:
2410: --do the rounding
2439: l_exchange_rate_type);
2440: EXCEPTION
2441: WHEN gl_currency_api.NO_RATE THEN
2442: --rate does not exist 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.NO_RATE ');
2447: END IF;
2446: arp_util.debug('Default_trans_to_receipt_rate: ' || 'Exception : gl_currency_api.NO_RATE ');
2447: END IF;
2448: WHEN gl_currency_api.INVALID_CURRENCY THEN
2449: -- invalid currency set appropriate message.
2450: --p_return_status := FND_API.G_RET_STS_ERROR ;
2451: l_temp_rate := NULL;
2452: IF PG_DEBUG in ('Y', 'C') THEN
2453: arp_util.debug('Default_trans_to_receipt_rate: ' || 'Exception: gl_currency_api.INVALID_CURRENCY ');
2454: END IF;
2471: );
2472: EXCEPTION
2473: WHEN gl_currency_api.NO_RATE THEN
2474: --rate does not exist 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.NO_RATE ');
2479: END IF;
2478: arp_util.debug('Default_trans_to_receipt_rate: ' || 'Exception : gl_currency_api.NO_RATE ');
2479: END IF;
2480: WHEN gl_currency_api.INVALID_CURRENCY THEN
2481: -- invalid currency set appropriate message.
2482: --p_return_status := FND_API.G_RET_STS_ERROR ;
2483: l_temp_rate := NULL;
2484: IF PG_DEBUG in ('Y', 'C') THEN
2485: arp_util.debug('Default_trans_to_receipt_rate: ' || 'Exception: gl_currency_api.INVALID_CURRENCY ');
2486: END IF;
2489: IF p_trans_to_receipt_rate IS NOT NULL THEN
2490: IF l_temp_rate <> p_trans_to_receipt_rate THEN
2491: --raise error as the user specified CC rate is not the same as the
2492: --fixed rate.
2493: p_return_status := FND_API.G_RET_STS_ERROR;
2494: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CC_RATE_INVALID');
2495: FND_MSG_PUB.Add;
2496: return;
2497: END IF;
2570: BEGIN
2571: IF PG_DEBUG in ('Y', 'C') THEN
2572: arp_util.debug('Default_amount_applied_from ()+');
2573: END IF;
2574: p_return_status := FND_API.G_RET_STS_SUCCESS;
2575:
2576: -- Added for Bug 13595334
2577:
2578: l_amt_app_from_prev := 0;
2742: BEGIN
2743: IF PG_DEBUG in ('Y', 'C') THEN
2744: arp_util.debug('Default_val_llca_parameters()+');
2745: END IF;
2746: p_return_status := FND_API.G_RET_STS_SUCCESS;
2747:
2748:
2749: -- Initialize the Sys Parameters /INV PS /REC PS / Copy Trx lines into GT
2750: arp_process_det_pkg.initialization (p_customer_trx_id,
2756: IF PG_DEBUG in ('Y', 'C') THEN
2757: arp_util.debug('Default_val_llca_parameters: Initialization Return Status : '||p_return_status);
2758: END IF;
2759:
2760: IF p_return_status <> FND_API.G_RET_STS_SUCCESS
2761: THEN
2762: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2763: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_DET_PKG.INITIALIZTION '||SQLERRM);
2764: FND_MSG_PUB.Add;
2761: THEN
2762: FND_MESSAGE.SET_NAME ('AR','GENERIC_MESSAGE');
2763: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','ARP_PROCESS_DET_PKG.INITIALIZTION '||SQLERRM);
2764: FND_MSG_PUB.Add;
2765: p_return_status := FND_API.G_RET_STS_ERROR ;
2766:
2767: IF PG_DEBUG in ('Y', 'C') THEN
2768: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred in arp_process_det_pkg.Initialization ');
2769: END IF;
2779: AND p_freight_amount IS NULL AND p_charges_amount is NULL
2780: THEN
2781: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_LTFC_AMT_NULL');
2782: FND_MSG_PUB.ADD;
2783: p_return_status := FND_API.G_RET_STS_ERROR ;
2784: END IF;
2785: IF Nvl(p_amount_applied,0) <>
2786: ( Nvl(p_line_amount,0) + Nvl(p_tax_amount,0)
2787: + Nvl(p_freight_amount,0) + Nvl(p_charges_amount,0))
2876: p_error_message =>
2877: arp_standard.fnd_message('AR_RAPI_LTFC_AMT_NULL'),
2878: p_invalid_value => NULL
2879: );
2880: p_return_status := FND_API.G_RET_STS_ERROR ;
2881: EXIT;
2882: END IF;
2883: END IF;
2884: -- Bug 6931978 END
2907: WHEN NO_DATA_FOUND THEN
2908: IF PG_DEBUG in ('Y', 'C') THEN
2909: arp_util.debug('' || 'EXCEPTION: Default_val_llca_parameters()');
2910: END IF;
2911: p_return_status := FND_API.G_RET_STS_ERROR ;
2912: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_TRX_LINE_ID_INVALID');
2913: FND_MSG_PUB.ADD;
2914: RAISE;
2915: WHEN others THEN
3134: where customer_trx_id = p_customer_trx_id;
3135:
3136: IF l_count_err_gt <> 0 AND p_llca_type = 'L'
3137: THEN
3138: p_return_status := FND_API.G_RET_STS_ERROR;
3139:
3140: IF PG_DEBUG in ('Y', 'C') THEN
3141: arp_util.debug('Apply_In_Detail: ' || 'Error(s) occurred in Overapply check. ');
3142: END IF;
3235: BEGIN
3236: IF PG_DEBUG in ('Y', 'C') THEN
3237: arp_util.debug('Default_disc_and_amt_applied ()+');
3238: END IF;
3239: p_return_status := FND_API.G_RET_STS_SUCCESS;
3240: IF PG_DEBUG in ('Y', 'C') THEN
3241: arp_util.debug('Default_disc_and_amt_applied: ' || 'p_discount = '||p_discount);
3242: END IF;
3243: IF p_amount_applied IS NULL THEN
3561: END IF;
3562:
3563: EXCEPTION
3564: WHEN no_data_found THEN
3565: p_return_status := FND_API.G_RET_STS_ERROR ;
3566: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_TRX_LINE_ID_INVALID');
3567: FND_MSG_PUB.ADD;
3568: return(null);
3569:
3640: BEGIN
3641: IF PG_DEBUG in ('Y', 'C') THEN
3642: arp_util.debug('Default_Trx_Info ()+');
3643: END IF;
3644: p_return_status := FND_API.G_RET_STS_SUCCESS;
3645: --this is only for regular application, not for on-account
3646:
3647:
3648: IF p_customer_trx_id IS NOT NULL AND
4097: IF l_applied_payment_schedule_id <>
4098: p_applied_payment_schedule_id THEN
4099: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_PS_ID_X_INVALID');
4100: FND_MSG_PUB.Add;
4101: p_return_status := FND_API.G_RET_STS_ERROR ;
4102: END IF;
4103: ELSE
4104: p_applied_payment_schedule_id := l_applied_payment_schedule_id;
4105: END IF;
4116: --If the customer_trx_id enterd by the user was invalid then this section of the code
4117: --will not get executed as the control goes directly to the no_data_found exception
4118:
4119: --we check for the return status so that we are sure that the payment schedule id is valid
4120: IF p_return_status = FND_API.G_RET_STS_SUCCESS AND
4121: p_customer_trx_id IS NOT NULL AND
4122: p_llca_type IS NULL AND
4123: p_customer_trx_line_id IS NOT NULL THEN
4124:
4127: p_applied_payment_schedule_id,
4128: p_customer_trx_line_id,
4129: l_line_amt_return_status
4130: );
4131: IF l_line_amt_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4132: p_return_status := FND_API.G_RET_STS_ERROR;
4133: END IF;
4134: p_trx_line_amount := arp_util.CurrRound(p_trx_line_amount,
4135: p_trx_currency_code);
4128: p_customer_trx_line_id,
4129: l_line_amt_return_status
4130: );
4131: IF l_line_amt_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4132: p_return_status := FND_API.G_RET_STS_ERROR;
4133: END IF;
4134: p_trx_line_amount := arp_util.CurrRound(p_trx_line_amount,
4135: p_trx_currency_code);
4136: END IF;
4168: null;
4169: when too_many_rows then
4170: FND_MESSAGE.SET_NAME('AR', 'AR_RW_PAID_INVOICE_TWICE' );
4171: FND_MSG_PUB.Add;
4172: p_return_status := FND_API.G_RET_STS_ERROR ;
4173: END;
4174: END IF;
4175:
4176: ELSE --case when p_customer_trx_id is null
4176: ELSE --case when p_customer_trx_id is null
4177: --no further validation done in the validation routines for customer_trx_id
4178: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_NULL');
4179: FND_MSG_PUB.Add;
4180: p_return_status := FND_API.G_RET_STS_ERROR ;
4181:
4182: END IF;
4183:
4184: IF PG_DEBUG in ('Y', 'C') THEN
4198: END IF;
4199: IF ar_receipt_api_pub.Original_application_info.customer_trx_id IS NOT NULL THEN
4200:
4201: IF ar_receipt_api_pub.Original_application_info.installment IS NOT NULL THEN
4202: p_return_status := FND_API.G_RET_STS_ERROR ;
4203: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_ID_INST_INVALID');
4204: FND_MSG_PUB.ADD;
4205: ELSE
4206: p_return_status := FND_API.G_RET_STS_ERROR ;
4202: p_return_status := FND_API.G_RET_STS_ERROR ;
4203: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_ID_INST_INVALID');
4204: FND_MSG_PUB.ADD;
4205: ELSE
4206: p_return_status := FND_API.G_RET_STS_ERROR ;
4207: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
4208: FND_MSG_PUB.ADD;
4209: END IF;
4210:
4210:
4211: ELSIF ar_receipt_api_pub.Original_application_info.trx_number IS NOT NULL THEN
4212:
4213: IF ar_receipt_api_pub.Original_application_info.installment IS NOT NULL THEN
4214: p_return_status := FND_API.G_RET_STS_ERROR ;
4215: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
4216: FND_MSG_PUB.ADD;
4217: ELSE
4218: p_return_status := FND_API.G_RET_STS_ERROR ;
4214: p_return_status := FND_API.G_RET_STS_ERROR ;
4215: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
4216: FND_MSG_PUB.ADD;
4217: ELSE
4218: p_return_status := FND_API.G_RET_STS_ERROR ;
4219: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INVALID');
4220: FND_MSG_PUB.ADD;
4221: END IF;
4222:
4220: FND_MSG_PUB.ADD;
4221: END IF;
4222:
4223: ELSIF ar_receipt_api_pub.Original_application_info.applied_payment_schedule_id IS NOT NULL THEN
4224: p_return_status := FND_API.G_RET_STS_ERROR ;
4225: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
4226: FND_MSG_PUB.ADD;
4227: END IF;
4228: WHEN others THEN
4248: p_return_status OUT NOCOPY VARCHAR2
4249: ) IS
4250:
4251: BEGIN
4252: p_return_status := FND_API.G_RET_STS_SUCCESS;
4253: IF PG_DEBUG in ('Y', 'C') THEN
4254: arp_util.debug('Default_Receipt_Info ()+');
4255: END IF;
4256: IF p_cash_receipt_id IS NOT NULL THEN
4322: crh.status = 'APPROVED';
4323: EXCEPTION
4324: WHEN no_data_found THEN
4325: IF ar_receipt_api_pub.Original_application_info.cash_receipt_id IS NOT NULL THEN
4326: p_return_status := FND_API.G_RET_STS_ERROR ;
4327: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_CASH_RCPT_ID_INVALID');
4328: FND_MSG_PUB.ADD;
4329: ELSIF ar_receipt_api_pub.Original_application_info.receipt_number IS NOT NULL THEN
4330: p_return_status := FND_API.G_RET_STS_ERROR ;
4326: p_return_status := FND_API.G_RET_STS_ERROR ;
4327: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_CASH_RCPT_ID_INVALID');
4328: FND_MSG_PUB.ADD;
4329: ELSIF ar_receipt_api_pub.Original_application_info.receipt_number IS NOT NULL THEN
4330: p_return_status := FND_API.G_RET_STS_ERROR ;
4331: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_RCPT_NUM_INVALID');
4332: FND_MSG_PUB.ADD;
4333: END IF;
4334: WHEN others THEN
4356: --receipt number
4357: IF ar_receipt_api_pub.Original_application_info.receipt_number IS NULL THEN
4358: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_CASH_RCPT_ID_NULL');
4359: FND_MSG_PUB.ADD;
4360: p_return_status := FND_API.G_RET_STS_ERROR ;
4361: END IF;
4362:
4363: END IF;
4364: IF PG_DEBUG in ('Y', 'C') THEN
4367: END IF;
4368: EXCEPTION
4369: WHEN no_data_found THEN
4370: IF ar_receipt_api_pub.Original_application_info.cash_receipt_id IS NOT NULL THEN
4371: p_return_status := FND_API.G_RET_STS_ERROR ;
4372: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_CASH_RCPT_ID_INVALID');
4373: FND_MSG_PUB.ADD;
4374: ELSIF ar_receipt_api_pub.Original_application_info.receipt_number IS NOT NULL THEN
4375: p_return_status := FND_API.G_RET_STS_ERROR ;
4371: p_return_status := FND_API.G_RET_STS_ERROR ;
4372: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_CASH_RCPT_ID_INVALID');
4373: FND_MSG_PUB.ADD;
4374: ELSIF ar_receipt_api_pub.Original_application_info.receipt_number IS NOT NULL THEN
4375: p_return_status := FND_API.G_RET_STS_ERROR ;
4376: FND_MESSAGE.SET_NAME( 'AR','AR_RAPI_RCPT_NUM_INVALID');
4377: FND_MSG_PUB.ADD;
4378: END IF;
4379: WHEN others THEN
4413: BEGIN
4414: IF PG_DEBUG in ('Y', 'C') THEN
4415: arp_util.debug('Default_customer_trx_id ()+');
4416: END IF;
4417: p_return_status := FND_API.G_RET_STS_SUCCESS;
4418: IF p_customer_trx_id IS NULL THEN
4419: IF p_trx_number IS NOT NULL THEN
4420: BEGIN
4421: SELECT customer_trx_id
4425: EXCEPTION
4426: WHEN no_data_found THEN
4427: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INVALID');
4428: FND_MSG_PUB.Add;
4429: p_return_status := FND_API.G_RET_STS_ERROR ;
4430: END;
4431: END IF;
4432:
4433: ELSE
4462: BEGIN
4463: IF PG_DEBUG in ('Y', 'C') THEN
4464: arp_util.debug('Default_group_id ()+');
4465: END IF;
4466: p_return_status := FND_API.G_RET_STS_SUCCESS;
4467:
4468: select count(1)
4469: into l_count
4470: from ra_customer_trx_lines line
4477: nvl(p_llca_type,'S') = 'G'
4478: THEN
4479: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_GROUP_ID_INVALID');
4480: FND_MSG_PUB.Add;
4481: p_return_status := FND_API.G_RET_STS_ERROR ;
4482: END IF;
4483:
4484: IF PG_DEBUG in ('Y', 'C') THEN
4485: arp_util.debug('Default_group_id ()+');
4501: BEGIN
4502: IF PG_DEBUG in ('Y', 'C') THEN
4503: arp_util.debug('Default_customer_trx_line_id ()+');
4504: END IF;
4505: p_return_status := FND_API.G_RET_STS_SUCCESS;
4506:
4507: IF p_customer_trx_line_id IS NOT NULL AND
4508: p_line_number IS NOT NULL
4509: THEN
4530: EXCEPTION
4531: WHEN no_data_found THEN
4532: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_NO_INVALID');
4533: FND_MSG_PUB.Add;
4534: p_return_status := FND_API.G_RET_STS_ERROR ;
4535: END;
4536: END IF;
4537: END IF;
4538: ELSE
4548: EXCEPTION
4549: WHEN no_data_found THEN
4550: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_LINE_ID_INVALID');
4551: FND_MSG_PUB.Add;
4552: p_return_status := FND_API.G_RET_STS_ERROR ;
4553: END;
4554: END IF;
4555: END IF;
4556: Else --LLCA
4558: If p_llca_type not in ('S','L','G')
4559: Then
4560: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INVALID_LLCA_TYPE');
4561: FND_MSG_PUB.Add;
4562: p_return_status := FND_API.G_RET_STS_ERROR ;
4563: END IF;
4564:
4565: If p_llca_type = 'L'
4566: Then
4589: p_error_message =>
4590: arp_standard.fnd_message('AR_RAPI_TRX_LINE_NO_INVALID'),
4591: p_invalid_value => i.line_number
4592: );
4593: p_return_status := FND_API.G_RET_STS_ERROR ;
4594: END;
4595: End If; /* LINE_NUMBER */
4596: Else
4597: BEGIN
4609: p_error_message =>
4610: arp_standard.fnd_message('AR_RAPI_TRX_LINE_ID_INVALID'),
4611: p_invalid_value =>i.customer_trx_line_id
4612: );
4613: p_return_status := FND_API.G_RET_STS_ERROR ;
4614: END;
4615: END IF;
4616:
4617: If i.line_amount IS NULL AND
4626: p_error_message =>
4627: arp_standard.fnd_message('AR_RAPI_LTFC_AMT_NULL'),
4628: p_invalid_value => NULL
4629: );
4630: p_return_status := FND_API.G_RET_STS_ERROR ;
4631: END IF;
4632: End Loop;
4633: END IF;
4634: END If;
4651: BEGIN
4652: IF PG_DEBUG in ('Y', 'C') THEN
4653: arp_util.debug('Default_cash_receipt_id ()+');
4654: END IF;
4655: p_return_status := FND_API.G_RET_STS_SUCCESS;
4656: arp_util.debug('Default_appln_ids:CHECK 2' || 'p_receipt_number :'||to_char(p_receipt_number));
4657: IF p_cash_receipt_id IS NULL
4658: THEN
4659: BEGIN
4664: EXCEPTION
4665: WHEN no_data_found THEN
4666: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
4667: FND_MSG_PUB.Add;
4668: p_return_status := FND_API.G_RET_STS_ERROR ;
4669: WHEN too_many_rows THEN
4670: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
4671: FND_MSG_PUB.Add;
4672: p_return_status := FND_API.G_RET_STS_ERROR ;
4668: p_return_status := FND_API.G_RET_STS_ERROR ;
4669: WHEN too_many_rows THEN
4670: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
4671: FND_MSG_PUB.Add;
4672: p_return_status := FND_API.G_RET_STS_ERROR ;
4673: END;
4674:
4675: ELSE
4676: IF p_receipt_number IS NOT NULL
4724: BEGIN
4725: IF PG_DEBUG in ('Y', 'C') THEN
4726: arp_util.debug('Default_appln_ids ()+ ');
4727: END IF;
4728: p_return_status := FND_API.G_RET_STS_SUCCESS;
4729:
4730: -- First get a valid value for the customer_trx_id
4731: IF p_trx_number IS NOT NULL THEN
4732: Default_customer_trx_id(p_customer_trx_id ,
4758: FETCH payment_schedule INTO l_customer_trx_id, l_installment;
4759: IF payment_schedule%NOTFOUND THEN
4760: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
4761: FND_MSG_PUB.Add;
4762: p_return_status := FND_API.G_RET_STS_ERROR ;
4763: END IF;
4764: CLOSE payment_schedule;
4765:
4766: IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
4762: p_return_status := FND_API.G_RET_STS_ERROR ;
4763: END IF;
4764: CLOSE payment_schedule;
4765:
4766: IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
4767:
4768: IF nvl(p_customer_trx_id,nvl(l_customer_trx_id,-99)) = nvl(l_customer_trx_id,-99) THEN
4769: p_customer_trx_id := l_customer_trx_id;
4770: END IF;
4786: EXCEPTION
4787: WHEN no_data_found THEN
4788: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
4789: FND_MSG_PUB.Add;
4790: p_return_status := FND_API.G_RET_STS_ERROR;
4791: WHEN too_many_rows THEN
4792: If p_llca_type is Null
4793: THEN
4794: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
4796: Else
4797: FND_MESSAGE.SET_NAME('AR','AR_LL_INSTALL_NOT_ALLOWED');
4798: FND_MSG_PUB.Add;
4799: End If;
4800: p_return_status := FND_API.G_RET_STS_ERROR;
4801: END;
4802: END IF;
4803: END IF;
4804: END IF;
4814: Exception
4815: WHEN no_data_found THEN
4816: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
4817: FND_MSG_PUB.Add;
4818: p_return_status := FND_API.G_RET_STS_ERROR;
4819: WHEN too_many_rows THEN
4820: FND_MESSAGE.SET_NAME('AR','AR_LL_INSTALL_NOT_ALLOWED');
4821: FND_MSG_PUB.Add;
4822: p_return_status := FND_API.G_RET_STS_ERROR;
4818: p_return_status := FND_API.G_RET_STS_ERROR;
4819: WHEN too_many_rows THEN
4820: FND_MESSAGE.SET_NAME('AR','AR_LL_INSTALL_NOT_ALLOWED');
4821: FND_MSG_PUB.Add;
4822: p_return_status := FND_API.G_RET_STS_ERROR;
4823: END;
4824: End If;
4825:
4826: --Derive cash_receipt_id from receipt_number
4830: p_return_status
4831: );
4832:
4833: /* Bug fix 3435834 */
4834: IF p_return_status_lines = FND_API.G_RET_STS_ERROR OR
4835: p_return_status_group = FND_API.G_RET_STS_ERROR OR
4836: p_return_status = FND_API.G_RET_STS_ERROR THEN
4837: p_return_status := FND_API.G_RET_STS_ERROR;
4838: END IF;
4831: );
4832:
4833: /* Bug fix 3435834 */
4834: IF p_return_status_lines = FND_API.G_RET_STS_ERROR OR
4835: p_return_status_group = FND_API.G_RET_STS_ERROR OR
4836: p_return_status = FND_API.G_RET_STS_ERROR THEN
4837: p_return_status := FND_API.G_RET_STS_ERROR;
4838: END IF;
4839:
4832:
4833: /* Bug fix 3435834 */
4834: IF p_return_status_lines = FND_API.G_RET_STS_ERROR OR
4835: p_return_status_group = FND_API.G_RET_STS_ERROR OR
4836: p_return_status = FND_API.G_RET_STS_ERROR THEN
4837: p_return_status := FND_API.G_RET_STS_ERROR;
4838: END IF;
4839:
4840: IF PG_DEBUG in ('Y', 'C') THEN
4833: /* Bug fix 3435834 */
4834: IF p_return_status_lines = FND_API.G_RET_STS_ERROR OR
4835: p_return_status_group = FND_API.G_RET_STS_ERROR OR
4836: p_return_status = FND_API.G_RET_STS_ERROR THEN
4837: p_return_status := FND_API.G_RET_STS_ERROR;
4838: END IF;
4839:
4840: IF PG_DEBUG in ('Y', 'C') THEN
4841: arp_util.debug('Default_appln_ids: ' || '****Defaulted Value for the application ids****');
4973: arp_util.debug('Default_application_info ()+');
4974: arp_util.debug('Default_application_info: ' || 'p_discount = '||p_discount );
4975: END IF;
4976:
4977: p_return_status := FND_API.G_RET_STS_SUCCESS;
4978: IF NVL(p_called_from,'NONE') IN ('AUTORECAPI','AUTORECAPI2') THEN
4979:
4980: ar_autorec_api.populate_cached_data( l_receipt_info_rec );
4981:
4993: --when the call is from autoreceipts then UNAPP amount is same as
4994: --that of receipt amount
4995: l_cr_unapp_amount := p_cr_amount;
4996: --set the status to true to continue further process
4997: l_def_cr_return_status := FND_API.G_RET_STS_SUCCESS;
4998:
4999: IF PG_DEBUG in ('Y', 'C') THEN
5000: arp_util.debug('Setting the values call from AUTORECAPI ');
5001: arp_util.debug('l_cr_gl_date '||l_cr_gl_date);
5031: /* Bug 4038708 */
5032: IF(l_cr_customer_id is NULL) THEN
5033: FND_MESSAGE.SET_NAME( 'AR','AR_RW_REC_NO_CT');
5034: FND_MSG_PUB.ADD;
5035: p_return_status := FND_API.G_RET_STS_ERROR ;
5036: END IF;
5037: END IF;
5038:
5039: --call the transaction defaulting routine only if the return status of the
5037: END IF;
5038:
5039: --call the transaction defaulting routine only if the return status of the
5040: --cash defaulting routine was success
5041: IF l_def_cr_return_status = FND_API.G_RET_STS_SUCCESS THEN
5042: Default_Trx_Info(
5043: p_customer_trx_id ,
5044: p_customer_trx_line_id ,
5045: p_show_closed_invoices ,
5254: p_freight_remaining := l_freight_remaining;
5255: p_rec_charges_charged := l_rec_charges_charged;
5256: p_rec_charges_remaining := l_rec_charges_remaining;
5257:
5258: IF l_def_cr_return_status = FND_API.G_RET_STS_ERROR OR
5259: l_def_trx_return_status = FND_API.G_RET_STS_ERROR OR
5260: l_def_rate_return_status = FND_API.G_RET_STS_ERROR OR
5261: l_val_llca_return_status = FND_API.G_RET_STS_ERROR
5262: THEN
5255: p_rec_charges_charged := l_rec_charges_charged;
5256: p_rec_charges_remaining := l_rec_charges_remaining;
5257:
5258: IF l_def_cr_return_status = FND_API.G_RET_STS_ERROR OR
5259: l_def_trx_return_status = FND_API.G_RET_STS_ERROR OR
5260: l_def_rate_return_status = FND_API.G_RET_STS_ERROR OR
5261: l_val_llca_return_status = FND_API.G_RET_STS_ERROR
5262: THEN
5263: p_return_status := FND_API.G_RET_STS_ERROR;
5256: p_rec_charges_remaining := l_rec_charges_remaining;
5257:
5258: IF l_def_cr_return_status = FND_API.G_RET_STS_ERROR OR
5259: l_def_trx_return_status = FND_API.G_RET_STS_ERROR OR
5260: l_def_rate_return_status = FND_API.G_RET_STS_ERROR OR
5261: l_val_llca_return_status = FND_API.G_RET_STS_ERROR
5262: THEN
5263: p_return_status := FND_API.G_RET_STS_ERROR;
5264: END IF;
5257:
5258: IF l_def_cr_return_status = FND_API.G_RET_STS_ERROR OR
5259: l_def_trx_return_status = FND_API.G_RET_STS_ERROR OR
5260: l_def_rate_return_status = FND_API.G_RET_STS_ERROR OR
5261: l_val_llca_return_status = FND_API.G_RET_STS_ERROR
5262: THEN
5263: p_return_status := FND_API.G_RET_STS_ERROR;
5264: END IF;
5265:
5259: l_def_trx_return_status = FND_API.G_RET_STS_ERROR OR
5260: l_def_rate_return_status = FND_API.G_RET_STS_ERROR OR
5261: l_val_llca_return_status = FND_API.G_RET_STS_ERROR
5262: THEN
5263: p_return_status := FND_API.G_RET_STS_ERROR;
5264: END IF;
5265:
5266: IF PG_DEBUG in ('Y', 'C') THEN
5267: arp_util.debug('Default_application_info: ' || '*****************Application Defaults***************');
5314: BEGIN
5315: IF PG_DEBUG in ('Y', 'C') THEN
5316: arp_util.debug('Get_trx_ps_id ()+');
5317: END IF;
5318: p_return_status := FND_API.G_RET_STS_SUCCESS;
5319:
5320: IF p_called_from IN ('BR_REMITTED',
5321: 'BR_FACTORED_WITH_RECOURSE',
5322: 'BR_FACTORED_WITHOUT_RECOURSE') THEN
5337:
5338: IF ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NOT NULL THEN
5339: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_ID_INST_INVALID');
5340: FND_MSG_PUB.Add;
5341: p_return_status := FND_API.G_RET_STS_ERROR;
5342: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5343: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
5344: FND_MSG_PUB.Add;
5345: p_return_status := FND_API.G_RET_STS_ERROR;
5341: p_return_status := FND_API.G_RET_STS_ERROR;
5342: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5343: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
5344: FND_MSG_PUB.Add;
5345: p_return_status := FND_API.G_RET_STS_ERROR;
5346: END IF;
5347:
5348: END;
5349:
5362: EXCEPTION
5363: WHEN no_data_found THEN
5364: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
5365: FND_MSG_PUB.Add;
5366: p_return_status := FND_API.G_RET_STS_ERROR;
5367: WHEN too_many_rows THEN
5368: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
5369: FND_MSG_PUB.Add;
5370: p_return_status := FND_API.G_RET_STS_ERROR;
5366: p_return_status := FND_API.G_RET_STS_ERROR;
5367: WHEN too_many_rows THEN
5368: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
5369: FND_MSG_PUB.Add;
5370: p_return_status := FND_API.G_RET_STS_ERROR;
5371: END;
5372:
5373: END IF;
5374:
5392:
5393: IF ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NOT NULL THEN
5394: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_ID_INST_INVALID');
5395: FND_MSG_PUB.Add;
5396: p_return_status := FND_API.G_RET_STS_ERROR;
5397: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5398: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
5399: FND_MSG_PUB.Add;
5400: p_return_status := FND_API.G_RET_STS_ERROR;
5396: p_return_status := FND_API.G_RET_STS_ERROR;
5397: ELSIF ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5398: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_NUM_INST_INVALID');
5399: FND_MSG_PUB.Add;
5400: p_return_status := FND_API.G_RET_STS_ERROR;
5401: END IF;
5402: END;
5403:
5404: ELSE
5419: EXCEPTION
5420: WHEN no_data_found THEN
5421: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_TRX_ID_INVALID');
5422: FND_MSG_PUB.Add;
5423: p_return_status := FND_API.G_RET_STS_ERROR;
5424: WHEN too_many_rows THEN
5425: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
5426: FND_MSG_PUB.Add;
5427: p_return_status := FND_API.G_RET_STS_ERROR;
5423: p_return_status := FND_API.G_RET_STS_ERROR;
5424: WHEN too_many_rows THEN
5425: FND_MESSAGE.SET_NAME('AR','AR_RAPI_INSTALL_NULL');
5426: FND_MSG_PUB.Add;
5427: p_return_status := FND_API.G_RET_STS_ERROR;
5428: END;
5429:
5430: END IF;
5431:
5455: BEGIN
5456: IF PG_DEBUG in ('Y', 'C') THEN
5457: arp_util.debug('Derive_receivable_appln_id ()+');
5458: END IF;
5459: p_return_status := FND_API.G_RET_STS_SUCCESS;
5460: IF p_cash_receipt_id IS NOT NULL AND
5461: p_applied_payment_schedule_id IS NOT NULL
5462: THEN
5463: SELECT receivable_application_id, gl_date
5478: EXCEPTION
5479: WHEN no_data_found THEN
5480: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NOT_APP_TO_INV');
5481: FND_MSG_PUB.Add;
5482: p_return_status := FND_API.G_RET_STS_ERROR;
5483: WHEN others THEN
5484: IF PG_DEBUG in ('Y', 'C') THEN
5485: arp_util.debug('Derive_receivable_appln_id: ' || 'EXCEPTION: Get_receivable_application_id()');
5486: END IF;
5511: BEGIN
5512: IF PG_DEBUG in ('Y', 'C') THEN
5513: arp_util.debug('Get_payment_schedule_info ()+');
5514: END IF;
5515: p_return_status := FND_API.G_RET_STS_SUCCESS;
5516:
5517: IF p_called_from IN ('BR_REMITTED',
5518: 'BR_FACTORED_WITH_RECOURSE',
5519: 'BR_FACTORED_WITHOUT_RECOURSE') THEN
5523: IF payment_schedule_br_remit%NOTFOUND THEN
5524: --raise error message
5525: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
5526: FND_MSG_PUB.Add;
5527: p_return_status := FND_API.G_RET_STS_ERROR;
5528: END IF;
5529: CLOSE payment_schedule_br_remit;
5530:
5531: ELSE
5535: IF payment_schedule%NOTFOUND THEN
5536: --raise error message
5537: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
5538: FND_MSG_PUB.Add;
5539: p_return_status := FND_API.G_RET_STS_ERROR;
5540: END IF;
5541: CLOSE payment_schedule;
5542:
5543: END IF;
5580: IF PG_DEBUG in ('Y', 'C') THEN
5581: arp_util.debug('Get_receivable_appln_info ()+');
5582: END IF;
5583:
5584: p_return_status := FND_API.G_RET_STS_SUCCESS;
5585:
5586: IF p_called_from IN ('BR_REMITTED',
5587: 'BR_FACTORED_WITH_RECOURSE',
5588: 'BR_FACTORED_WITHOUT_RECOURSE') THEN
5590: FETCH rec_apppln_br_remit INTO p_cash_receipt_id, p_ra_app_ps_id, p_apply_gl_date, p_customer_trx_id; /* Bug fix 3451241 */
5591: IF rec_apppln_br_remit%NOTFOUND THEN
5592: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
5593: FND_MSG_PUB.Add;
5594: p_return_status := FND_API.G_RET_STS_ERROR;
5595: END IF;
5596: CLOSE rec_apppln_br_remit;
5597:
5598: ELSE
5601: FETCH rec_apppln INTO p_cash_receipt_id, p_ra_app_ps_id, p_apply_gl_date,p_customer_trx_id; /* Bug fix 3451241 */
5602: IF rec_apppln%NOTFOUND THEN
5603: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
5604: FND_MSG_PUB.Add;
5605: p_return_status := FND_API.G_RET_STS_ERROR;
5606: END IF;
5607: CLOSE rec_apppln;
5608:
5609: END IF;
5632: l_applied_payment_schedule_id NUMBER;
5633: l_receivable_application_id NUMBER;
5634: l_return_status VARCHAR2(1);
5635: l_cash_receipt_id NUMBER(15);
5636: l_cust_trx_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5637: l_ps_id_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5638: l_ra_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5639: l_cr_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5640: BEGIN
5633: l_receivable_application_id NUMBER;
5634: l_return_status VARCHAR2(1);
5635: l_cash_receipt_id NUMBER(15);
5636: l_cust_trx_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5637: l_ps_id_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5638: l_ra_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5639: l_cr_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5640: BEGIN
5641: IF PG_DEBUG in ('Y', 'C') THEN
5634: l_return_status VARCHAR2(1);
5635: l_cash_receipt_id NUMBER(15);
5636: l_cust_trx_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5637: l_ps_id_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5638: l_ra_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5639: l_cr_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5640: BEGIN
5641: IF PG_DEBUG in ('Y', 'C') THEN
5642: arp_util.debug('Derive_unapp_ids ()+');
5635: l_cash_receipt_id NUMBER(15);
5636: l_cust_trx_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5637: l_ps_id_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5638: l_ra_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5639: l_cr_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
5640: BEGIN
5641: IF PG_DEBUG in ('Y', 'C') THEN
5642: arp_util.debug('Derive_unapp_ids ()+');
5643: END IF;
5640: BEGIN
5641: IF PG_DEBUG in ('Y', 'C') THEN
5642: arp_util.debug('Derive_unapp_ids ()+');
5643: END IF;
5644: p_return_status := FND_API.G_RET_STS_SUCCESS ;
5645:
5646: -- First get a valid value for the customer_trx_id
5647: IF p_trx_number IS NOT NULL THEN
5648: Default_customer_trx_id(p_customer_trx_id ,
5651: END IF;
5652:
5653: --if error is raised in deriving the customer_trx_id from the trx_number,
5654: --do not process the applied_payment_schedule_id any further.
5655: IF l_cust_trx_return_status= FND_API.G_RET_STS_SUCCESS THEN
5656:
5657: IF p_applied_payment_schedule_id IS NOT NULL THEN
5658: Get_payment_schedule_info( p_applied_payment_schedule_id,
5659: l_customer_trx_id,
5660: l_installment,
5661: p_called_from,
5662: l_ps_id_return_status
5663: );
5664: IF l_cust_trx_return_status= FND_API.G_RET_STS_SUCCESS AND
5665: l_ps_id_return_status = FND_API.G_RET_STS_SUCCESS
5666: THEN
5667: --Compare the two customer_trx_ids
5668: IF (nvl(p_customer_trx_id,l_customer_trx_id) <> l_customer_trx_id OR
5661: p_called_from,
5662: l_ps_id_return_status
5663: );
5664: IF l_cust_trx_return_status= FND_API.G_RET_STS_SUCCESS AND
5665: l_ps_id_return_status = FND_API.G_RET_STS_SUCCESS
5666: THEN
5667: --Compare the two customer_trx_ids
5668: IF (nvl(p_customer_trx_id,l_customer_trx_id) <> l_customer_trx_id OR
5669: nvl(p_installment,l_installment) <> l_installment) THEN
5668: IF (nvl(p_customer_trx_id,l_customer_trx_id) <> l_customer_trx_id OR
5669: nvl(p_installment,l_installment) <> l_installment) THEN
5670: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_PS_ID_X_INVALID');
5671: FND_MSG_PUB.Add;
5672: p_return_status := FND_API.G_RET_STS_ERROR;
5673: ELSE
5674: p_customer_trx_id := l_customer_trx_id;
5675: END IF;
5676: END IF;
5713: IF ar_receipt_api_pub.Original_unapp_info.customer_trx_id IS NOT NULL OR
5714: ar_receipt_api_pub.Original_unapp_info.trx_number IS NOT NULL THEN
5715: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TRX_RA_ID_X_INVALID');
5716: FND_MSG_PUB.Add;
5717: p_return_status := FND_API.G_RET_STS_ERROR;
5718: ELSIF ar_receipt_api_pub.Original_unapp_info.applied_ps_id IS NOT NULL THEN
5719: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_RA_ID_X_INVALID');
5720: FND_MSG_PUB.Add;
5721: p_return_status := FND_API.G_RET_STS_ERROR;
5717: p_return_status := FND_API.G_RET_STS_ERROR;
5718: ELSIF ar_receipt_api_pub.Original_unapp_info.applied_ps_id IS NOT NULL THEN
5719: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_RA_ID_X_INVALID');
5720: FND_MSG_PUB.Add;
5721: p_return_status := FND_API.G_RET_STS_ERROR;
5722: END IF;
5723: ELSE
5724: p_applied_payment_schedule_id := l_ra_app_ps_id;
5725: END IF;
5727: IF nvl(l_cash_receipt_id,-99) <> nvl(p_cash_receipt_id,nvl(l_cash_receipt_id,-99)) THEN
5728: --Invalid receivable application identifier for the entered cash receipt
5729: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
5730: FND_MSG_PUB.Add;
5731: p_return_status := FND_API.G_RET_STS_ERROR;
5732: ELSE
5733: p_cash_receipt_id := l_cash_receipt_id;
5734: END IF;
5735:
5737: IF nvl(l_customer_trx_id,-99) <> nvl(p_customer_trx_id,nvl(l_customer_trx_id,-99)) THEN
5738: --Invalid receivable application identifier for the entered customer trx id receipt
5739: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
5740: FND_MSG_PUB.Add;
5741: p_return_status := FND_API.G_RET_STS_ERROR;
5742: ELSE
5743: p_customer_trx_id := l_customer_trx_id;
5744: END IF;
5745:
5773: END IF; --in other cases we can't derive the receivable application id so it cannot be defaulted
5774:
5775: END IF;
5776:
5777: IF l_cust_trx_return_status <> FND_API.G_RET_STS_SUCCESS OR
5778: l_ps_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5779: l_ra_return_status <> FND_API.G_RET_STS_SUCCESS OR
5780: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
5781: p_return_status <> FND_API.G_RET_STS_SUCCESS
5774:
5775: END IF;
5776:
5777: IF l_cust_trx_return_status <> FND_API.G_RET_STS_SUCCESS OR
5778: l_ps_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5779: l_ra_return_status <> FND_API.G_RET_STS_SUCCESS OR
5780: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
5781: p_return_status <> FND_API.G_RET_STS_SUCCESS
5782: THEN
5775: END IF;
5776:
5777: IF l_cust_trx_return_status <> FND_API.G_RET_STS_SUCCESS OR
5778: l_ps_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5779: l_ra_return_status <> FND_API.G_RET_STS_SUCCESS OR
5780: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
5781: p_return_status <> FND_API.G_RET_STS_SUCCESS
5782: THEN
5783: p_return_status := FND_API.G_RET_STS_ERROR;
5776:
5777: IF l_cust_trx_return_status <> FND_API.G_RET_STS_SUCCESS OR
5778: l_ps_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5779: l_ra_return_status <> FND_API.G_RET_STS_SUCCESS OR
5780: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
5781: p_return_status <> FND_API.G_RET_STS_SUCCESS
5782: THEN
5783: p_return_status := FND_API.G_RET_STS_ERROR;
5784: END IF;
5777: IF l_cust_trx_return_status <> FND_API.G_RET_STS_SUCCESS OR
5778: l_ps_id_return_status <> FND_API.G_RET_STS_SUCCESS OR
5779: l_ra_return_status <> FND_API.G_RET_STS_SUCCESS OR
5780: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
5781: p_return_status <> FND_API.G_RET_STS_SUCCESS
5782: THEN
5783: p_return_status := FND_API.G_RET_STS_ERROR;
5784: END IF;
5785: IF PG_DEBUG in ('Y', 'C') THEN
5779: l_ra_return_status <> FND_API.G_RET_STS_SUCCESS OR
5780: l_cr_return_status <> FND_API.G_RET_STS_SUCCESS OR
5781: p_return_status <> FND_API.G_RET_STS_SUCCESS
5782: THEN
5783: p_return_status := FND_API.G_RET_STS_ERROR;
5784: END IF;
5785: IF PG_DEBUG in ('Y', 'C') THEN
5786: arp_util.debug('Derive_unapp_ids: ' || '****Defaulted Value for the unapplication ids****');
5787: arp_util.debug('Derive_unapp_ids: ' || 'p_cash_receipt_id :'||to_char(p_cash_receipt_id));
5849: p_reversal_gl_date := l_default_gl_date;
5850: ELSE
5851: --we were not able to default the gl_date put the message
5852: --here on the stack, but the return status will be set
5853: --to FND_API.G_RET_STS_ERROR in the validation phase.
5854: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
5855: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
5856: FND_MSG_PUB.Add;
5857: END IF;
5933: IF PG_DEBUG in ('Y', 'C') THEN
5934: arp_util.debug('Default_rev_catg_code ()+');
5935: END IF;
5936:
5937: p_return_status := FND_API.G_RET_STS_SUCCESS;
5938:
5939: IF p_reversal_category_code IS NULL THEN
5940: BEGIN
5941: SELECT lookup_code
5947: EXCEPTION
5948: WHEN no_data_found THEN
5949: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_CAT_NAME_INVALID');
5950: FND_MSG_PUB.Add;
5951: p_return_status := FND_API.G_RET_STS_ERROR ;
5952: null;
5953: END;
5954: ELSE
5955: IF p_reversal_category_name IS NOT NULL THEN
5983: IF PG_DEBUG in ('Y', 'C') THEN
5984: arp_util.debug('Default_rev_reason_code ()+');
5985: END IF;
5986:
5987: p_return_status := FND_API.G_RET_STS_SUCCESS;
5988:
5989: IF p_reversal_reason_code IS NULL THEN
5990: BEGIN
5991: SELECT lookup_code
5997: EXCEPTION
5998: WHEN no_data_found THEN
5999: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REV_REAS_NAME_INVALID');
6000: FND_MSG_PUB.Add;
6001: p_return_status := FND_API.G_RET_STS_ERROR ;
6002: null;
6003: END;
6004: ELSE
6005: IF p_reversal_reason_name IS NOT NULL THEN
6038: BEGIN
6039: IF PG_DEBUG in ('Y', 'C') THEN
6040: arp_util.debug('Derive_reverse_ids ()+ ');
6041: END IF;
6042: p_return_status := FND_API.G_RET_STS_SUCCESS ;
6043:
6044:
6045: --cash_receipt_id
6046: Default_cash_receipt_id(p_cash_receipt_id ,
6064: p_reversal_reason_name,
6065: l_rev_res_return_status
6066: );
6067:
6068: IF l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
6069: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
6070: l_cr_def_return_status <> FND_API.G_RET_STS_SUCCESS
6071: THEN
6072: p_return_status := FND_API.G_RET_STS_ERROR ;
6065: l_rev_res_return_status
6066: );
6067:
6068: IF l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
6069: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
6070: l_cr_def_return_status <> FND_API.G_RET_STS_SUCCESS
6071: THEN
6072: p_return_status := FND_API.G_RET_STS_ERROR ;
6073: END IF;
6066: );
6067:
6068: IF l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
6069: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
6070: l_cr_def_return_status <> FND_API.G_RET_STS_SUCCESS
6071: THEN
6072: p_return_status := FND_API.G_RET_STS_ERROR ;
6073: END IF;
6074:
6068: IF l_rev_res_return_status <> FND_API.G_RET_STS_SUCCESS OR
6069: l_rev_cat_return_status <> FND_API.G_RET_STS_SUCCESS OR
6070: l_cr_def_return_status <> FND_API.G_RET_STS_SUCCESS
6071: THEN
6072: p_return_status := FND_API.G_RET_STS_ERROR ;
6073: END IF;
6074:
6075: IF PG_DEBUG in ('Y', 'C') THEN
6076: arp_util.debug('Derive_reverse_ids ()- ');
6202: BEGIN
6203: IF PG_DEBUG in ('Y', 'C') THEN
6204: arp_util.debug('Default_on_ac_app_info ()+');
6205: END IF;
6206: p_return_status := FND_API.G_RET_STS_SUCCESS;
6207:
6208: Default_Receipt_Info(
6209: p_cash_receipt_id ,
6210: p_cr_gl_date,
6249:
6250: p_receipt_date := l_receipt_date ;
6251: p_cr_unapp_amount := l_cr_unapp_amount;
6252:
6253: IF l_receipt_return_status <> FND_API.G_RET_STS_SUCCESS OR
6254: l_receipt_return_status <> l_receipt_return_status THEN
6255:
6256: p_return_status := FND_API.G_RET_STS_ERROR ;
6257: END IF;
6252:
6253: IF l_receipt_return_status <> FND_API.G_RET_STS_SUCCESS OR
6254: l_receipt_return_status <> l_receipt_return_status THEN
6255:
6256: p_return_status := FND_API.G_RET_STS_ERROR ;
6257: END IF;
6258:
6259: p_cr_currency_code := l_cr_currency_code;
6260:
6285: l_rec_appln_id NUMBER ;
6286: l_apply_gl_date DATE;
6287: l_cash_receipt_id NUMBER;
6288: BEGIN
6289: p_return_status := FND_API.G_RET_STS_SUCCESS;
6290: IF PG_DEBUG in ('Y', 'C') THEN
6291: arp_util.debug('Derive_unapp_on_ac_ids ()+');
6292: END IF;
6293: --derive the cash_receipt_id from the receipt_number
6312: EXCEPTION
6313: WHEN no_data_found THEN
6314: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
6315: FND_MSG_PUB.Add;
6316: p_return_status := FND_API.G_RET_STS_ERROR ;
6317: WHEN too_many_rows THEN
6318: IF p_receivable_application_id IS NULL THEN
6319: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ON_AC_APP');
6320: FND_MSG_PUB.Add;
6317: WHEN too_many_rows THEN
6318: IF p_receivable_application_id IS NULL THEN
6319: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ON_AC_APP');
6320: FND_MSG_PUB.Add;
6321: p_return_status := FND_API.G_RET_STS_ERROR ;
6322: END IF;
6323:
6324: END;
6325:
6337: EXCEPTION
6338: WHEN no_data_found THEN
6339: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
6340: FND_MSG_PUB.Add;
6341: p_return_status := FND_API.G_RET_STS_ERROR ;
6342: END;
6343:
6344: --Compare the two cash_receipt_ids
6345: IF p_cash_receipt_id IS NOT NULL THEN
6346: IF p_cash_receipt_id <> NVL(l_cash_receipt_id,p_cash_receipt_id) THEN
6347: --raise error X validation failed
6348: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
6349: FND_MSG_PUB.Add;
6350: p_return_status := FND_API.G_RET_STS_ERROR ;
6351: END IF;
6352: END IF;
6353:
6354: ELSE
6378: l_cash_receipt_id NUMBER;
6379: l_applied_ps_id NUMBER;
6380:
6381: BEGIN
6382: p_return_status := FND_API.G_RET_STS_SUCCESS;
6383: IF PG_DEBUG in ('Y', 'C') THEN
6384: arp_util.debug('Derive_otheraccount_ids ()+');
6385: END IF;
6386: --derive the cash_receipt_id from the receipt_number
6407: EXCEPTION
6408: WHEN no_data_found THEN
6409: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
6410: FND_MSG_PUB.Add;
6411: p_return_status := FND_API.G_RET_STS_ERROR ;
6412: WHEN too_many_rows THEN
6413: IF p_receivable_application_id IS NULL THEN
6414: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_PREPAY');
6415: FND_MSG_PUB.Add;
6412: WHEN too_many_rows THEN
6413: IF p_receivable_application_id IS NULL THEN
6414: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_PREPAY');
6415: FND_MSG_PUB.Add;
6416: p_return_status := FND_API.G_RET_STS_ERROR ;
6417: END IF;
6418:
6419: END;
6420:
6433: EXCEPTION
6434: WHEN no_data_found THEN
6435: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
6436: FND_MSG_PUB.Add;
6437: p_return_status := FND_API.G_RET_STS_ERROR ;
6438: END;
6439:
6440: --Compare the two cash_receipt_ids
6441: IF p_cash_receipt_id IS NOT NULL THEN
6442: IF p_cash_receipt_id <> NVL(l_cash_receipt_id,p_cash_receipt_id) THEN
6443: --raise error X validation failed
6444: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
6445: FND_MSG_PUB.Add;
6446: p_return_status := FND_API.G_RET_STS_ERROR ;
6447: END IF;
6448: END IF;
6449:
6450: ELSE
6511: p_reversal_gl_date := l_default_gl_date;
6512: ELSE
6513: --we were not able to default the gl_date put the message
6514: --here on the stack, but the return status will be set
6515: --to FND_API.G_RET_STS_ERROR in the validation phase.
6516: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
6517: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
6518: FND_MSG_PUB.Add;
6519: END IF;
6561: l_rec_appln_id NUMBER ;
6562: l_apply_gl_date DATE;
6563: l_cash_receipt_id NUMBER;
6564: BEGIN
6565: p_return_status := FND_API.G_RET_STS_SUCCESS;
6566: IF PG_DEBUG in ('Y', 'C') THEN
6567: arp_util.debug('Derive_activity_unapp_ids ()+');
6568: END IF;
6569: --derive the cash_receipt_id from the receipt_number
6599: WHEN no_data_found THEN
6600: IF ar_receipt_api_pub.original_activity_unapp_info.cash_receipt_id IS NOT NULL THEN
6601: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
6602: FND_MSG_PUB.Add;
6603: p_return_status := FND_API.G_RET_STS_ERROR ;
6604: ELSIF ar_receipt_api_pub.original_activity_unapp_info.receipt_number IS NOT NULL THEN
6605: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
6606: FND_MSG_PUB.Add;
6607: p_return_status := FND_API.G_RET_STS_ERROR ;
6603: p_return_status := FND_API.G_RET_STS_ERROR ;
6604: ELSIF ar_receipt_api_pub.original_activity_unapp_info.receipt_number IS NOT NULL THEN
6605: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_NUM_INVALID');
6606: FND_MSG_PUB.Add;
6607: p_return_status := FND_API.G_RET_STS_ERROR ;
6608: END IF;
6609: WHEN too_many_rows THEN
6610: IF p_receivable_application_id IS NULL THEN
6611: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ACTIVITY_APP');
6609: WHEN too_many_rows THEN
6610: IF p_receivable_application_id IS NULL THEN
6611: FND_MESSAGE.SET_NAME('AR','AR_RAPI_MULTIPLE_ACTIVITY_APP');
6612: FND_MSG_PUB.Add;
6613: p_return_status := FND_API.G_RET_STS_ERROR ;
6614: END IF;
6615:
6616: END;
6617:
6639: EXCEPTION
6640: WHEN no_data_found THEN
6641: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
6642: FND_MSG_PUB.Add;
6643: p_return_status := FND_API.G_RET_STS_ERROR ;
6644: END;
6645:
6646: --Compare the two cash_receipt_ids
6647: IF p_cash_receipt_id IS NOT NULL THEN
6648: IF p_cash_receipt_id <> NVL(l_cash_receipt_id,p_cash_receipt_id) THEN
6649: --raise error X validation failed
6650: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
6651: FND_MSG_PUB.Add;
6652: p_return_status := FND_API.G_RET_STS_ERROR ;
6653: END IF;
6654: END IF;
6655:
6656: ELSE
6701: arp_util.debug('get_doc_seq: ' || 'p_document_name :'||p_document_name);
6702: arp_util.debug('get_doc_seq: ' || 'p_application_id :'||to_char(p_application_id));
6703: arp_util.debug('get_doc_seq: ' || 'p_sob_id :'||to_char(p_sob_id));
6704: END IF;
6705: p_return_status := FND_API.G_RET_STS_SUCCESS;
6706: IF ( NVL( pg_profile_doc_seq, 'N') <> 'N' )
6707: THEN
6708: BEGIN
6709: /*------------------------------+
6736: --this is the case of Always Used
6737: IF PG_DEBUG in ('Y', 'C') THEN
6738: arp_util.debug('get_doc_seq: ' || 'The doc sequence does not exist for the current document');
6739: END IF;
6740: p_return_status := FND_API.G_RET_STS_ERROR;
6741: --Error message
6742: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_DOC_SEQ_NOT_EXIST_A');
6743: FND_MSG_PUB.Add;
6744: ELSIF l_doc_seq_ret_stat = -2 THEN
6778: p_doc_sequence_id);
6779: IF p_doc_sequence_value IS NOT NULL THEN
6780: --raise an error message because the user is not supposed to pass
6781: --in a value for the document sequence number in this case.
6782: p_return_status := FND_API.G_RET_STS_ERROR;
6783: FND_MESSAGE.Set_Name('AR', 'AR_RAPI_DOC_SEQ_AUTOMATIC');
6784: FND_MSG_PUB.Add;
6785: END IF;
6786: p_doc_sequence_value := l_doc_sequence_value;
6809: | Generate a document value mandatory |
6810: | error. |
6811: +-----------------------------------------*/
6812: IF NVL(pg_profile_doc_seq,'N') = 'A' THEN
6813: p_return_status := FND_API.G_RET_STS_ERROR;
6814: FND_MESSAGE.Set_Name('AR', 'AR_RAPI_DOC_SEQ_VALUE_NULL_A');
6815: FND_MESSAGE.Set_Token('SEQUENCE', l_doc_sequence_name);
6816: FND_MSG_PUB.Add;
6817: ELSIF NVL(pg_profile_doc_seq,'N') = 'P' THEN
6835: IF PG_DEBUG in ('Y', 'C') THEN
6836: arp_util.debug('get_doc_seq: ' || 'no_data_found raised');
6837: END IF;
6838: IF (pg_profile_doc_seq = 'A' ) THEN
6839: p_return_status := FND_API.G_RET_STS_ERROR;
6840: FND_MESSAGE.Set_Name( 'FND','UNIQUE-ALWAYS USED');
6841: FND_MSG_PUB.Add;
6842: ELSE
6843: p_doc_sequence_id := NULL;
6922: dbms_sql.define_column(trx_customer,1,p_customer_id);
6923: dbms_sql.define_column(trx_customer,2,p_customer_site_use_id);
6924: -- End of bug 1907635
6925:
6926: p_return_status := FND_API.G_RET_STS_SUCCESS;
6927: l_customer_trx_id := p_customer_trx_id;
6928: IF p_trx_number IS NOT NULL THEN
6929: Default_customer_trx_id(l_customer_trx_id ,
6930: p_trx_number ,
6930: p_trx_number ,
6931: p_return_status);
6932: END IF;
6933:
6934: IF p_return_status = FND_API.G_RET_STS_SUCCESS THEN
6935: IF p_applied_payment_schedule_id IS NOT NULL AND
6936: l_customer_trx_id IS NULL AND
6937: p_installment IS NULL THEN
6938: -- Bug 1907635
6940: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6941: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6942: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6943: ELSE
6944: p_return_status := FND_API.G_RET_STS_ERROR;
6945: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_PSID_NOT_DEF_CUS');
6946: FND_MSG_PUB.Add;
6947: END IF;
6948: dbms_sql.close_cursor(trx_customer);
6955: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6956: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6957: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6958: ELSE
6959: p_return_status := FND_API.G_RET_STS_ERROR;
6960: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_INS_PS_NOT_DEF_CUS');
6961: FND_MSG_PUB.Add;
6962: END IF;
6963: dbms_sql.close_cursor(trx_customer);
6970: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6971: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6972: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6973: ELSE
6974: p_return_status := FND_API.G_RET_STS_ERROR;
6975: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_PS_NOT_DEF_CUS');
6976: FND_MSG_PUB.Add;
6977: END IF;
6978: dbms_sql.close_cursor(trx_customer);
6985: IF dbms_sql.fetch_rows(trx_customer) > 0 then
6986: dbms_sql.column_value(trx_customer, 1, p_customer_id);
6987: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
6988: ELSE
6989: p_return_status := FND_API.G_RET_STS_ERROR;
6990: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_INS_PS_NOT_DEF_CUS');
6991: FND_MSG_PUB.Add;
6992: END IF;
6993: dbms_sql.close_cursor(trx_customer);
7000: IF dbms_sql.fetch_rows(trx_customer) > 0 then
7001: dbms_sql.column_value(trx_customer, 1, p_customer_id);
7002: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
7003: ELSE
7004: p_return_status := FND_API.G_RET_STS_ERROR;
7005: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_TRX_INS_NOT_DEF_CUS');
7006: FND_MSG_PUB.Add;
7007: END IF;
7008: dbms_sql.close_cursor(trx_customer);
7015: IF dbms_sql.fetch_rows(trx_customer) > 0 then
7016: dbms_sql.column_value(trx_customer, 1, p_customer_id);
7017: dbms_sql.column_value(trx_customer, 2, p_customer_site_use_id);
7018: ELSE
7019: p_return_status := FND_API.G_RET_STS_ERROR;
7020: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_PSID_NOT_DEF_CUS');
7021: FND_MSG_PUB.Add;
7022: END IF;
7023: dbms_sql.close_cursor(trx_customer);
7032: END IF;
7033:
7034: IF p_customer_id IS NULL THEN
7035: --raise error because application cant be done against an unidentified receipt
7036: p_return_status := FND_API.G_RET_STS_ERROR;
7037: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_CUST_ID_NULL');
7038: FND_MSG_PUB.Add;
7039: END IF;
7040:
7064: )
7065: IS
7066: l_remittance_bank_account_id NUMBER;
7067: l_receipt_method_id NUMBER;
7068: l_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7069: l_get_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7070: l_get_x_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7071: l_le_id NUMBER;
7072: BEGIN
7065: IS
7066: l_remittance_bank_account_id NUMBER;
7067: l_receipt_method_id NUMBER;
7068: l_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7069: l_get_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7070: l_get_x_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7071: l_le_id NUMBER;
7072: BEGIN
7073: p_return_status := FND_API.G_RET_STS_SUCCESS;
7066: l_remittance_bank_account_id NUMBER;
7067: l_receipt_method_id NUMBER;
7068: l_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7069: l_get_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7070: l_get_x_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7071: l_le_id NUMBER;
7072: BEGIN
7073: p_return_status := FND_API.G_RET_STS_SUCCESS;
7074:
7069: l_get_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7070: l_get_x_val_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7071: l_le_id NUMBER;
7072: BEGIN
7073: p_return_status := FND_API.G_RET_STS_SUCCESS;
7074:
7075: --Receivable Activity Name /Id.
7076: IF p_receivables_trx_id IS NULL THEN
7077: IF p_activity IS NOT NULL THEN
7081: );
7082: IF p_receivables_trx_id IS NULL THEN
7083: FND_MESSAGE.SET_NAME('AR','AR_RAPI_ACTIVITY_INVALID');
7084: FND_MSG_PUB.Add;
7085: p_return_status := FND_API.G_RET_STS_ERROR;
7086: END IF;
7087:
7088: END IF;
7089:
7110: );
7111: IF p_receipt_method_id IS NULL THEN
7112: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_INVALID');
7113: FND_MSG_PUB.Add;
7114: p_return_status := FND_API.G_RET_STS_ERROR;
7115: END IF;
7116: END IF;
7117:
7118: ELSE
7154: );
7155: IF p_remittance_bank_account_id IS NULL THEN
7156: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NAME_INVALID');
7157: FND_MSG_PUB.Add;
7158: p_return_status := FND_API.G_RET_STS_ERROR;
7159: END IF;
7160: ELSIF(p_remittance_bank_account_name IS NULL) and
7161: (p_remittance_bank_account_num IS NOT NULL)
7162: THEN
7166: );
7167: IF p_remittance_bank_account_id IS NULL THEN
7168: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_NUM_INVALID');
7169: FND_MSG_PUB.Add;
7170: p_return_status := FND_API.G_RET_STS_ERROR;
7171: END IF;
7172: ELSIF(p_remittance_bank_account_name IS NOT NULL) and
7173: (p_remittance_bank_account_num IS NOT NULL)
7174: THEN
7179: );
7180: IF p_remittance_bank_account_id IS NULL THEN
7181: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REM_BK_AC_2_INVALID');
7182: FND_MSG_PUB.Add;
7183: p_return_status := FND_API.G_RET_STS_ERROR;
7184: END IF;
7185: END IF;
7186:
7187: ELSE
7214: );
7215: IF p_exchange_rate_type IS NULL THEN
7216: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYP_INVALID');
7217: FND_MSG_PUB.Add;
7218: p_return_status := FND_API.G_RET_STS_ERROR;
7219: END IF;
7220: END IF;
7221:
7222: ELSE
7242: );
7243: IF p_currency_code IS NULL THEN
7244: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_INVALID');
7245: FND_MSG_PUB.Add;
7246: p_return_status := FND_API.G_RET_STS_ERROR;
7247: END IF;
7248: ELSE
7249:
7250: p_currency_code := arp_global.functional_currency;
7304:
7305: IF p_reference_id IS NULL THEN
7306: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REF_NUM_INVALID');
7307: FND_MSG_PUB.Add;
7308: p_return_status := FND_API.G_RET_STS_ERROR;
7309: END IF;
7310:
7311: END IF;
7312:
7352: p_creation_method_code OUT NOCOPY VARCHAR2,
7353: p_return_status OUT NOCOPY VARCHAR2
7354: )
7355: IS
7356: l_def_curr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7357: l_def_rm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7358: l_def_gl_dt_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7359: l_tax_rt_amt_x_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7360: l_tax_amount NUMBER;
7353: p_return_status OUT NOCOPY VARCHAR2
7354: )
7355: IS
7356: l_def_curr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7357: l_def_rm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7358: l_def_gl_dt_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7359: l_tax_rt_amt_x_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7360: l_tax_amount NUMBER;
7361: /* Bug fix 3315058 */
7354: )
7355: IS
7356: l_def_curr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7357: l_def_rm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7358: l_def_gl_dt_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7359: l_tax_rt_amt_x_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7360: l_tax_amount NUMBER;
7361: /* Bug fix 3315058 */
7362: l_bank_acc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7355: IS
7356: l_def_curr_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7357: l_def_rm_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7358: l_def_gl_dt_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7359: l_tax_rt_amt_x_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7360: l_tax_amount NUMBER;
7361: /* Bug fix 3315058 */
7362: l_bank_acc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7363: l_misc_activity_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7358: l_def_gl_dt_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7359: l_tax_rt_amt_x_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7360: l_tax_amount NUMBER;
7361: /* Bug fix 3315058 */
7362: l_bank_acc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7363: l_misc_activity_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7364: l_misc_tax_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7365: l_code_combination_id NUMBER;
7366: l_message VARCHAR2(100);
7359: l_tax_rt_amt_x_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7360: l_tax_amount NUMBER;
7361: /* Bug fix 3315058 */
7362: l_bank_acc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7363: l_misc_activity_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7364: l_misc_tax_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7365: l_code_combination_id NUMBER;
7366: l_message VARCHAR2(100);
7367: l_le_id NUMBER; /* bug 4594101 */
7360: l_tax_amount NUMBER;
7361: /* Bug fix 3315058 */
7362: l_bank_acc_val_ret_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7363: l_misc_activity_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7364: l_misc_tax_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7365: l_code_combination_id NUMBER;
7366: l_message VARCHAR2(100);
7367: l_le_id NUMBER; /* bug 4594101 */
7368: l_get_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7364: l_misc_tax_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7365: l_code_combination_id NUMBER;
7366: l_message VARCHAR2(100);
7367: l_le_id NUMBER; /* bug 4594101 */
7368: l_get_id_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
7369: l_zx_msg_count NUMBER;
7370: l_zx_msg_data VARCHAR2(1024);
7371: l_zx_effective_date DATE;
7372: l_zx_return_status VARCHAR2(10);
7383: BEGIN
7384: IF PG_DEBUG in ('Y', 'C') THEN
7385: arp_util.debug('Get_misc_Defaults()+ ');
7386: END IF;
7387: p_return_status := FND_API.G_RET_STS_SUCCESS;
7388: -- default the receipt date if NULL
7389: IF (p_receipt_date IS NULL)
7390: THEN
7391: Select trunc(sysdate)
7481: );
7482: IF p_vat_tax_id IS NULL THEN
7483: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_CODE_INVALID');
7484: FND_MSG_PUB.Add;
7485: p_return_status := FND_API.G_RET_STS_ERROR;
7486: END IF;
7487: END IF;
7488: ELSE
7489: IF (p_tax_code IS NOT NULL) THEN
7606: l_misc_activity_status);
7607: EXCEPTION
7608: WHEN OTHERS THEN
7609: l_code_combination_id:=NULL;
7610: l_misc_activity_status:=FND_API.G_RET_STS_ERROR;
7611: END;
7612: ELSE
7613: l_message := 'AR_GL_ACC_ASSGN_DISB_SET';
7614: OPEN get_dist_ccid(p_distribution_set_id);
7612: ELSE
7613: l_message := 'AR_GL_ACC_ASSGN_DISB_SET';
7614: OPEN get_dist_ccid(p_distribution_set_id);
7615: IF get_dist_ccid%NOTFOUND THEN
7616: l_misc_activity_status:=FND_API.G_RET_STS_ERROR;
7617: l_code_combination_id:=NULL;
7618: ELSE
7619: LOOP
7620: FETCH get_dist_ccid INTO l_code_combination_id;
7622: validate_cc_segments(l_code_combination_id,
7623: p_gl_date,
7624: l_message,
7625: l_misc_activity_status);
7626: IF l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS THEN
7627: l_misc_activity_status:=FND_API.G_RET_STS_ERROR;
7628: EXIT;
7629: END IF;
7630: END LOOP;
7623: p_gl_date,
7624: l_message,
7625: l_misc_activity_status);
7626: IF l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS THEN
7627: l_misc_activity_status:=FND_API.G_RET_STS_ERROR;
7628: EXIT;
7629: END IF;
7630: END LOOP;
7631: END IF;
7647: l_misc_tax_status);
7648: EXCEPTION
7649: WHEN OTHERS THEN
7650: l_code_combination_id := NULL;
7651: l_misc_tax_status:=FND_API.G_RET_STS_ERROR;
7652: END;
7653: END IF;
7654: END IF;
7655: /* End of Bug3315058*/
7674: l_tax_amount IS NOT NULL and
7675: p_amount IS NOT NULL THEN
7676:
7677: IF round(p_tax_rate*p_amount,3) <> p_tax_amount THEN
7678: l_tax_rt_amt_x_ret_status := FND_API.G_RET_STS_ERROR;
7679: FND_MESSAGE.SET_NAME('AR','AR_RAPI_TAX_RATE_AMT_X_INVALID');
7680: FND_MSG_PUB.Add;
7681: END IF;
7682: END IF;
7681: END IF;
7682: END IF;
7683:
7684:
7685: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
7686: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
7687: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7688: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7689: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7682: END IF;
7683:
7684:
7685: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
7686: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
7687: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7688: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7689: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7690: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7683:
7684:
7685: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
7686: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
7687: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7688: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7689: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7690: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7691: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug fix 3315058 */
7684:
7685: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
7686: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
7687: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7688: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7689: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7690: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7691: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug fix 3315058 */
7692: p_return_status := FND_API.G_RET_STS_ERROR;
7685: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
7686: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
7687: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7688: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7689: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7690: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7691: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug fix 3315058 */
7692: p_return_status := FND_API.G_RET_STS_ERROR;
7693: END IF;
7686: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
7687: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7688: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7689: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7690: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7691: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug fix 3315058 */
7692: p_return_status := FND_API.G_RET_STS_ERROR;
7693: END IF;
7694: IF PG_DEBUG in ('Y', 'C') THEN
7687: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS OR
7688: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7689: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7690: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7691: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug fix 3315058 */
7692: p_return_status := FND_API.G_RET_STS_ERROR;
7693: END IF;
7694: IF PG_DEBUG in ('Y', 'C') THEN
7695: arp_util.debug('Get_misc_defaults: ' || '************Cash Defaults********************');
7688: l_tax_rt_amt_x_ret_status <> FND_API.G_RET_STS_SUCCESS OR
7689: l_misc_activity_status <> FND_API.G_RET_STS_SUCCESS OR /* Bug fix 3315058 */
7690: l_misc_tax_status <> FND_API.G_RET_STS_SUCCESS OR
7691: l_bank_acc_val_ret_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug fix 3315058 */
7692: p_return_status := FND_API.G_RET_STS_ERROR;
7693: END IF;
7694: IF PG_DEBUG in ('Y', 'C') THEN
7695: arp_util.debug('Get_misc_defaults: ' || '************Cash Defaults********************');
7696: arp_util.debug('Get_misc_defaults: ' || 'p_receipt_date : '||to_char(p_receipt_date,'DD-MON-YYYY'));
7726: BEGIN
7727: IF PG_DEBUG in ('Y', 'C') THEN
7728: arp_util.debug('Validate_Desc_Flexfield ()+');
7729: END IF;
7730: p_return_status := FND_API.G_RET_STS_SUCCESS;
7731:
7732: OPEN desc_flex_exists;
7733: FETCH desc_flex_exists INTO l_flex_exists;
7734: IF desc_flex_exists%NOTFOUND THEN
7735: CLOSE desc_flex_exists;
7736: FND_MESSAGE.SET_NAME('AR', 'AR_RAPI_DESC_FLEX_INVALID');
7737: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name);
7738: FND_MSG_PUB.ADD ;
7739: p_return_status := FND_API.G_RET_STS_ERROR;
7740: return;
7741: END IF;
7742: CLOSE desc_flex_exists;
7743:
7765:
7766: FND_MESSAGE.SET_NAME('AR', 'AR_RAPI_DESC_FLEX_INVALID');
7767: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name);
7768: FND_MSG_PUB.ADD ;
7769: p_return_status := FND_API.G_RET_STS_ERROR;
7770: END IF;
7771:
7772: l_count := fnd_flex_descval.segment_count;
7773:
7847: BEGIN
7848: IF PG_DEBUG in ('Y', 'C') THEN
7849: arp_util.debug('ar_receipt_lib_pvt.Default_Desc_Flexfield(+)');
7850: END IF;
7851: p_return_status := FND_API.G_RET_STS_SUCCESS;
7852: IF p_cash_receipt_id IS NOT NULL THEN
7853: SELECT attribute_category,
7854: attribute1, attribute2,
7855: attribute3, attribute4,
7877:
7878: EXCEPTION WHEN OTHERS THEN
7879: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CASH_RCPT_ID_INVALID');
7880: FND_MSG_PUB.Add;
7881: p_return_status := FND_API.G_RET_STS_ERROR;
7882: End Default_Desc_Flexfield;
7883: /* End bug fix 3539008 */
7884:
7885: PROCEDURE Default_prepay_cc_activity(
7891: IF PG_DEBUG in ('Y', 'C') THEN
7892: arp_util.debug('ar_receipt_lib_pvt.Default_prepay_cc_activity(+)');
7893: END IF;
7894:
7895: p_return_status := FND_API.G_RET_STS_SUCCESS;
7896:
7897: IF p_receivable_trx_id is null THEN
7898:
7899: BEGIN
7908:
7909: EXCEPTION
7910: WHEN others THEN
7911: fnd_message.set_name('AR', 'AR_NO_ACTIVITY_FOUND');
7912: p_return_status := FND_API.G_RET_STS_ERROR;
7913: END;
7914: END IF;
7915:
7916: IF PG_DEBUG in ('Y', 'C') THEN
7967: IF PG_DEBUG in ('Y', 'C') THEN
7968: arp_util.debug('ar_receipt_lib_pvt.Default_open_receipt(+)');
7969: END IF;
7970:
7971: x_return_status := FND_API.G_RET_STS_SUCCESS ;
7972: x_open_applied_ps_id := NULL;
7973: x_application_ref_num := NULL;
7974: x_secondary_app_ref_id := NULL;
7975:
7987: EXCEPTION when others then
7988: --raise error message
7989: FND_MESSAGE.SET_NAME('AR','AR_RAPI_APP_PS_ID_INVALID');
7990: FND_MSG_PUB.Add;
7991: x_return_status := FND_API.G_RET_STS_ERROR;
7992: END;
7993: END IF;
7994:
7995: IF p_open_rec_app_id IS NOT NULL THEN
8022: EXCEPTION
8023: WHEN no_data_found THEN
8024: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
8025: FND_MSG_PUB.Add;
8026: x_return_status := FND_API.G_RET_STS_ERROR ;
8027: END;
8028:
8029: default_cash_receipt_id
8030: (p_open_cash_receipt_id,
8034: /* Bug 3018366 - check for current open receipt separated from logic above */
8035: IF (l_display <> 'Y' OR l_status NOT IN ('OTHER ACC','ACC')) THEN
8036: FND_MESSAGE.SET_NAME('AR','AR_RW_NET_OPEN_RCT_ONLY');
8037: FND_MSG_PUB.Add;
8038: x_return_status := FND_API.G_RET_STS_ERROR ;
8039: END IF;
8040:
8041: --Compare the two cash_receipt_ids
8042: IF p_open_cash_receipt_id IS NOT NULL THEN
8043: IF p_open_cash_receipt_id <> l_open_cash_receipt_id THEN
8044: --raise error X validation failed
8045: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_RA_ID_X_INVALID');
8046: FND_MSG_PUB.Add;
8047: x_return_status := FND_API.G_RET_STS_ERROR ;
8048: END IF;
8049: END IF;
8050: END IF;
8051:
8048: END IF;
8049: END IF;
8050: END IF;
8051:
8052: IF x_return_status <> FND_API.G_RET_STS_ERROR THEN
8053: default_cash_receipt_id
8054: (p_open_cash_receipt_id,
8055: p_open_receipt_number,
8056: x_return_status);
8141: ) IS
8142:
8143: BEGIN
8144:
8145: x_return_status := FND_API.G_RET_STS_SUCCESS;
8146: IF PG_DEBUG in ('Y', 'C') THEN
8147: arp_util.debug('ar_receipt_lib_pvt.Default_unapp_open_receipt(+)');
8148: END IF;
8149:
8165: EXCEPTION
8166: WHEN no_data_found THEN
8167: FND_MESSAGE.SET_NAME('AR','AR_RAPI_REC_APP_ID_INVALID');
8168: FND_MSG_PUB.Add;
8169: x_return_status := FND_API.G_RET_STS_ERROR ;
8170: END default_unapp_open_receipt;
8171:
8172: FUNCTION get_legal_entity (p_remit_bank_acct_use_id IN NUMBER)
8173: RETURN NUMBER
8337: Related Bug 5115632 */
8338: begin
8339: iby_disbursement_comp_pub.get_default_payment_attributes(
8340: p_api_version => 1.0
8341: ,p_init_msg_list => FND_API.G_FALSE
8342: ,p_ignore_payee_pref => 'Y'
8343: ,p_trxn_attributes_rec => l_trxn_attributes_rec
8344: ,x_return_status => x_return_status
8345: ,x_msg_count => x_msg_count
8386: IF PG_DEBUG in ('Y', 'C') THEN
8387: arp_util.debug('Populate_llca_gt ()+ ');
8388: END IF;
8389:
8390: p_return_status := FND_API.G_RET_STS_SUCCESS;
8391:
8392: -- Clean the GT Table first.
8393: delete from ar_llca_trx_lines_gt
8394: where customer_trx_id = p_customer_trx_id;
8515: WHEN others THEN
8516: IF PG_DEBUG in ('Y', 'C') THEN
8517: arp_util.debug('EXCEPTION: (pouplate_llca_gt)');
8518: END IF;
8519: p_return_status := FND_API.G_RET_STS_ERROR;
8520: raise;
8521: End populate_llca_gt;
8522:
8523: PROCEDURE populate_errors_gt (