[Home] [Help]
5: +=======================================================================*/
6:
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_DEPOSIT_LIB_PVT';
8:
9: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
10: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
11: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
12: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
13: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
6:
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_DEPOSIT_LIB_PVT';
8:
9: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
10: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
11: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
12: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
13: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
14: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AR_DEPOSIT_LIB_PVT';
8:
9: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
10: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
11: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
12: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
13: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
14: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
15:
8:
9: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
10: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
11: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
12: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
13: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
14: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
15:
16:
9: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
10: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
11: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
12: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
13: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
14: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
15:
16:
17:
10: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
11: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
12: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
13: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
14: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
15:
16:
17:
18: /*=======================================================================+
414: p_start_date_commitment) THEN
415: FND_MESSAGE.set_name( 'AR', 'AR_TW_BAD_COMMITMT_DATE_RANGE' );
416: FND_MESSAGE.set_token( 'START_DATE', TO_CHAR(p_start_date_commitment));
417: FND_MESSAGE.set_token( 'END_DATE', TO_CHAR(p_end_date_commitment));
418: FND_MSG_PUB.Add;
419: p_return_status := FND_API.G_RET_STS_ERROR;
420: END IF;
421: IF p_end_date_commitment is not null and
422: p_deposit_date > p_end_date_commitment THEN
423:
424: FND_MESSAGE.set_name( 'AR', 'AR_TW_COMMIT_END_TRX_DATE' );
425: FND_MESSAGE.set_token( 'TRX_DATE', TO_CHAR(p_deposit_date));
426: FND_MESSAGE.set_token( 'END_DATE', TO_CHAR(p_end_date_commitment));
427: FND_MSG_PUB.Add;
428: p_return_status := FND_API.G_RET_STS_ERROR;
429:
430: END IF;
431:
432: /* IF (p_deposit_date < p_start_date_commitment or
433: p_deposit_date > nvl(p_end_date_commitment,
434: p_start_date_commitment)) THEN
435: FND_MESSAGE.set_name( 'AR', 'AR_TW_BAD_DATE_COMMITMENT' );
436: FND_MSG_PUB.Add;
437: p_return_status := FND_API.G_RET_STS_ERROR;
438: END IF;*/
439:
440: arp_util.debug('ar_deposit_lib_pvt.Default_commitment_Date() -' );
817: arp_util.debug('EXCEPTIONS:no data found , GET_CONTACT_ID()');
818: --that the customer site use id could not be defaulted.
819: p_return_status := FND_API.G_RET_STS_ERROR;
820: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_CONTACT_INVALID');
821: FND_MSG_PUB.Add;
822:
823: when others then
824: l_selected_id := null;
825: arp_util.debug('EXCEPTIONS: Others , GET_CONTACT_ID()');
1003: arp_util.debug('No data found in the hz_cust_site_uses
1004: for the location :'||p_location);
1005: p_return_status := FND_API.G_RET_STS_ERROR;
1006: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_LOC_INVALID');
1007: FND_MSG_PUB.Add;
1008: --the error message will be raised in the validation routine.
1009:
1010: END;
1011:
1038: --a WARNING message raised in the validation routine to indicate
1039: --that the customer site use id could not be defaulted.
1040: p_return_status := FND_API.G_RET_STS_ERROR;
1041: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_SITE_DFT_INVALID');
1042: FND_MSG_PUB.Add;
1043: END;
1044:
1045: END IF;
1046: END IF;
1139: arp_util.debug('GL Date could not be defaulted ');
1140: -- Raise error message if failure in defaulting the gl_date
1141: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
1142: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
1143: FND_MSG_PUB.Add;
1144: p_return_status := FND_API.G_RET_STS_ERROR;
1145: END IF;
1146: END IF;
1147: arp_util.debug('ar_deposit_lib_pvt.Default_gl_date() -' );
1308: --if user has entered exchange rate for type <> User,
1309: -- raise error message
1310: p_return_status := FND_API.G_RET_STS_ERROR;
1311: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_INVALID');
1312: FND_MSG_PUB.Add;
1313: END IF;
1314: ELSE
1315: --case where rate_type is 'User'
1316:
1481:
1482: exception
1483: when no_data_found then
1484: FND_MESSAGE.SET_NAME('AR','AR_DAPI_TERM_NAME_INVALID');
1485: FND_MSG_PUB.Add;
1486: p_return_status := FND_API.G_RET_STS_ERROR;
1487:
1488: end;
1489: END IF;
1498:
1499: exception
1500: when no_data_found then
1501: FND_MESSAGE.SET_NAME('AR','AR_DAPI_TERM_ID_INVALID');
1502: FND_MSG_PUB.Add;
1503: p_return_status := FND_API.G_RET_STS_ERROR;
1504:
1505: end;
1506:
1521:
1522: exception
1523: when no_data_found then
1524: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SALESREP_NAME_INVALID');
1525: FND_MSG_PUB.Add;
1526: p_return_status := FND_API.G_RET_STS_ERROR;
1527:
1528: end;
1529: ELSIF (x_salesrep_id IS NOT NULL) THEN
1539:
1540: exception
1541: when no_data_found then
1542: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SALESREP_ID_INVALID');
1543: FND_MSG_PUB.Add;
1544: p_return_status := FND_API.G_RET_STS_ERROR;
1545: end;
1546:
1547:
1562: name = p_memo_line_name;
1563: EXCEPTION
1564: when no_data_found then
1565: FND_MESSAGE.SET_NAME('AR','AR_DAPI_MEMO_NAME_INVALID');
1566: FND_MSG_PUB.Add;
1567: p_return_status := FND_API.G_RET_STS_ERROR;
1568: END;
1569:
1570: END IF;
1571: ELSE
1572: IF p_memo_line_name IS NOT NULL
1573: THEN
1574: FND_MESSAGE.SET_NAME('AR','AR_DAPI_MEMO_WRG');
1575: FND_MSG_PUB.Add;
1576: END IF;
1577:
1578: BEGIN
1579: select memo_line_id
1585: memo_line_id = x_memo_line_id;
1586: EXCEPTION
1587: when no_data_found then
1588: FND_MESSAGE.SET_NAME('AR','AR_DAPI_MEMO_NAME_INVALID');
1589: FND_MSG_PUB.Add;
1590: p_return_status := FND_API.G_RET_STS_ERROR;
1591: END;
1592:
1593: END IF;
1603: ENABLED_FLAG = 'Y';
1604: EXCEPTION
1605: when no_data_found then
1606: FND_MESSAGE.SET_NAME('AR','AR_DAPI_INV_ID_INVALID');
1607: FND_MSG_PUB.Add;
1608: p_return_status := FND_API.G_RET_STS_ERROR;
1609: END;
1610: IF x_memo_line_id is NOT NULL then
1611: FND_MESSAGE.SET_NAME('AR','AR_DAPI_INV_MEMO_COM');
1608: p_return_status := FND_API.G_RET_STS_ERROR;
1609: END;
1610: IF x_memo_line_id is NOT NULL then
1611: FND_MESSAGE.SET_NAME('AR','AR_DAPI_INV_MEMO_COM');
1612: FND_MSG_PUB.Add;
1613: p_return_status := FND_API.G_RET_STS_ERROR;
1614: END IF;
1615:
1616: END IF;
1643: exception
1644: when no_data_found then
1645: arp_util.debug('x_batch_source_id IS NULL');
1646: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BS_NAME_INVALID');
1647: FND_MSG_PUB.Add;
1648: p_return_status := FND_API.G_RET_STS_ERROR;
1649:
1650: end;
1651:
1654: --validate the id here or in vadidate_deposit routine
1655: IF p_batch_source_name IS NOT NULL then
1656: arp_util.debug('x_batch_source_id IS ignored');
1657: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BS_NAME_IGN');
1658: FND_MSG_PUB.Add;
1659:
1660: END IF;
1661:
1662: begin
1681: exception
1682: when no_data_found then
1683: arp_util.debug('x_batch_source_id :no_data_found');
1684: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BS_ID_INVALID');
1685: FND_MSG_PUB.Add;
1686: p_return_status := FND_API.G_RET_STS_ERROR;
1687:
1688: end;
1689:
1704: EXCEPTION
1705:
1706: WHEN NO_DATA_FOUND THEN
1707: FND_MESSAGE.SET_NAME('AR','AR_DAPI_TRANS_TYPE_INVALID');
1708: FND_MSG_PUB.Add;
1709: p_return_status := FND_API.G_RET_STS_ERROR;
1710: WHEN OTHERS THEN
1711: RAISE;
1712: END;
1711: RAISE;
1712: END;
1713: /* ELSE
1714: FND_MESSAGE.SET_NAME('AR','AR_DAPI_TRANS_TYPE_NULL');
1715: FND_MSG_PUB.Add;
1716: p_return_status := FND_API.G_RET_STS_ERROR;
1717: */
1718: END IF;
1719: ELSE
1718: END IF;
1719: ELSE
1720: IF p_cust_trx_type IS NOT NULL THEN
1721: FND_MESSAGE.SET_NAME('AR','AR_DAPI_TRANS_TYPE_IGN');
1722: FND_MSG_PUB.Add;
1723: END IF;
1724:
1725: -- validate x_cust_trx_type_id
1726: BEGIN
1735: EXCEPTION
1736:
1737: WHEN NO_DATA_FOUND THEN
1738: FND_MESSAGE.SET_NAME('AR','AR_DAPI_TRANS_TYPE_ID_INVALID');
1739: FND_MSG_PUB.Add;
1740: p_return_status := FND_API.G_RET_STS_ERROR;
1741: WHEN OTHERS THEN
1742: RAISE;
1743: END;
1755: p_bill_to_customer_name,
1756: l_dummy_return_status);
1757: IF x_bill_to_customer_id IS NULL THEN
1758: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_INVALID');
1759: FND_MSG_PUB.Add;
1760: p_return_status := FND_API.G_RET_STS_ERROR;
1761: END IF;
1762:
1763: ELSIF(p_bill_to_customer_name IS NULL) and
1767: p_bill_to_customer_number,
1768: l_dummy_return_status);
1769: IF x_bill_to_customer_id IS NULL THEN
1770: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NUM_INVALID');
1771: FND_MSG_PUB.Add;
1772: p_return_status := FND_API.G_RET_STS_ERROR;
1773: END IF;
1774:
1775: ELSIF(p_bill_to_customer_name IS NOT NULL) and
1780: p_bill_to_customer_name,
1781: l_dummy_return_status);
1782: IF x_bill_to_customer_id IS NULL THEN
1783: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_INVALID');
1784: FND_MSG_PUB.Add;
1785: p_return_status := FND_API.G_RET_STS_ERROR;
1786: END IF;
1787:
1788:
1794: (p_bill_to_customer_number IS NOT NULL) THEN
1795: --give a warning message to indicate that the
1796: -- customer_number and customer_name
1797: --entered by the user have been ignored.
1798: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1799: THEN
1800: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1801: FND_MSG_PUB.Add;
1802: p_return_status := FND_API.G_RET_STS_ERROR;
1797: --entered by the user have been ignored.
1798: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1799: THEN
1800: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1801: FND_MSG_PUB.Add;
1802: p_return_status := FND_API.G_RET_STS_ERROR;
1803: END IF;
1804: END IF;
1805: /*--------------------------------+
1821: EXCEPTION
1822: WHEN NO_DATA_FOUND THEN
1823: p_return_status := FND_API.G_RET_STS_ERROR;
1824: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_ID_INVALID');
1825: FND_MSG_PUB.Add;
1826:
1827: WHEN OTHERS THEN
1828: arp_util.debug('EXCEPTION: Cache_Customer_id() ');
1829: arp_util.debug('p_customer_id = ' ||
1849: p_ship_to_customer_name,
1850: l_dummy_return_status);
1851: IF x_ship_to_customer_id IS NULL THEN
1852: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_INVALID');
1853: FND_MSG_PUB.Add;
1854: p_return_status := FND_API.G_RET_STS_ERROR;
1855: END IF;
1856:
1857: ELSIF(p_ship_to_customer_name IS NULL) and
1861: p_ship_to_customer_number,
1862: l_dummy_return_status);
1863: IF x_ship_to_customer_id IS NULL THEN
1864: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NUM_INVALID');
1865: FND_MSG_PUB.Add;
1866: p_return_status := FND_API.G_RET_STS_ERROR;
1867: END IF;
1868:
1869: ELSIF(p_ship_to_customer_name IS NOT NULL) and
1875: p_ship_to_customer_name,
1876: l_dummy_return_status);
1877: IF x_ship_to_customer_id IS NULL THEN
1878: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_INVALID');
1879: FND_MSG_PUB.Add;
1880: p_return_status := FND_API.G_RET_STS_ERROR;
1881: END IF;
1882: END IF;
1883:
1887: (p_ship_to_customer_number IS NOT NULL) THEN
1888: --give a warning message to indicate that the customer_number
1889: --and customer_name
1890: --entered by the user have been ignored.
1891: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1892: THEN
1893: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1894: FND_MSG_PUB.Add;
1895: p_return_status := FND_API.G_RET_STS_ERROR;
1890: --entered by the user have been ignored.
1891: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1892: THEN
1893: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1894: FND_MSG_PUB.Add;
1895: p_return_status := FND_API.G_RET_STS_ERROR;
1896: END IF;
1897: END IF;
1898: /*--------------------------------+
1914: EXCEPTION
1915: WHEN NO_DATA_FOUND THEN
1916: p_return_status := FND_API.G_RET_STS_ERROR;
1917: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_ID_INVALID');
1918: FND_MSG_PUB.Add;
1919:
1920: WHEN OTHERS THEN
1921: arp_util.debug('x_ship_to_customer_id = ' ||
1922: TO_CHAR(x_ship_to_customer_id));
1933: IF x_bill_to_customer_id is null and
1934: x_ship_to_customer_id is null
1935: THEN
1936: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BILL_OR_SHIP_CUST_REQ');
1937: FND_MSG_PUB.Add;
1938: p_return_status := FND_API.G_RET_STS_ERROR;
1939: END IF;
1940:
1941:
2012: x_bill_to_customer_id := x_ship_to_customer_id;
2013: l_bill_to_location := l_ship_to_location;
2014: p_bill_to_location := l_ship_to_location;
2015: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BILL_VAL_SHIP_IGN');
2016: FND_MSG_PUB.Add;
2017: END IF;
2018:
2019:
2020:
2029: l_site_use_return_status
2030: );
2031: if x_bill_to_customer_site_use_id is null then
2032: FND_MESSAGE.SET_NAME('AR','AR_DAPI_LOC_INV');
2033: FND_MSG_PUB.Add;
2034: p_return_status := FND_API.G_RET_STS_ERROR;
2035: end if;
2036:
2037: END IF;
2052: p_bill_to_contact_last_name,
2053: l_contact_return_status);
2054: if x_bill_to_contact_id is null then
2055: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BIll_CONTACT_COM_INV');
2056: FND_MSG_PUB.Add;
2057: p_return_status := FND_API.G_RET_STS_ERROR;
2058: end if;
2059:
2060: ELSIF (p_bill_to_contact_first_name IS NULL and
2063: p_bill_to_contact_last_name IS NULL) THEN
2064: arp_util.debug('Bill_to_contact_id both last and
2065: first name are required');
2066: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BIll_CONTACT_NAME_INV');
2067: FND_MSG_PUB.Add;
2068: p_return_status := FND_API.G_RET_STS_ERROR;
2069:
2070: END IF;
2071:
2099: exception
2100: when no_data_found then
2101: p_return_status := FND_API.G_RET_STS_ERROR;
2102: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_CONTACT_INVALID');
2103: FND_MSG_PUB.Add;
2104:
2105: when others then
2106: arp_util.debug('EXCEPTIONS: Others , GET_CONTACT_ID()');
2107: end;
2119: NULL ,l_site_use_return_status
2120: );
2121: if x_ship_to_customer_site_use_id is null then
2122: FND_MESSAGE.SET_NAME('AR','AR_DAPI_LOC_INV');
2123: FND_MSG_PUB.Add;
2124: p_return_status := FND_API.G_RET_STS_ERROR;
2125: end if;
2126: IF (x_ship_to_contact_id is NULL)
2127: THEN
2136: p_ship_to_contact_last_name,
2137: l_contact_return_status);
2138: if x_ship_to_contact_id is null then
2139: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SHIP_CONTACT_COM_INV');
2140: FND_MSG_PUB.Add;
2141: p_return_status := FND_API.G_RET_STS_ERROR;
2142: end if;
2143:
2144: ELSIF(p_ship_to_contact_first_name IS NULL and
2148:
2149: arp_util.debug('Ship_to_contact_id both last and
2150: first name are required');
2151: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SHIP_CONTACT_NAME_INV');
2152: FND_MSG_PUB.Add;
2153: p_return_status := FND_API.G_RET_STS_ERROR;
2154: END IF;
2155:
2156: ELSE
2182: exception
2183: when no_data_found then
2184: p_return_status := FND_API.G_RET_STS_ERROR;
2185: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_CONTACT_INVALID');
2186: FND_MSG_PUB.Add;
2187:
2188: when others then
2189: arp_util.debug('EXCEPTIONS: Others , GET_CONTACT_ID()');
2190: end;
2202: l_get_id_return_status
2203: );
2204: IF x_receipt_method_id IS NULL THEN
2205: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_INVALID');
2206: FND_MSG_PUB.Add;
2207: p_return_status := FND_API.G_RET_STS_ERROR;
2208: END IF;
2209: END IF;
2210:
2211: ELSE
2212: IF (p_receipt_method_name IS NOT NULL) THEN
2213: --give a warning message to indicate that the receipt_method_name
2214: --entered by the user has been ignored.
2215: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2216: THEN
2217: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_IGN');
2218: FND_MSG_PUB.Add;
2219: END IF;
2214: --entered by the user has been ignored.
2215: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2216: THEN
2217: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_IGN');
2218: FND_MSG_PUB.Add;
2219: END IF;
2220: ELSE
2221: BEGIN
2222: SELECT name
2226: EXCEPTION
2227: WHEN no_data_found THEN
2228: p_return_status := FND_API.G_RET_STS_ERROR;
2229: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_ID_INVALID');
2230: FND_MSG_PUB.Add;
2231: arp_util.debug('Invalid receipt method id ');
2232: END;
2233:
2234: END IF;
2248: l_get_id_return_status
2249: );
2250: IF x_exchange_rate_type IS NULL THEN
2251: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYP_INVALID');
2252: FND_MSG_PUB.Add;
2253: p_return_status := FND_API.G_RET_STS_ERROR;
2254: END IF;
2255: END IF;
2256:
2257: ELSE
2258: IF (p_usr_exchange_rate_type IS NOT NULL) THEN
2259: --give a warning message to indicate that the usr_exchange_rate_type
2260: -- entered by the user have been ignored.
2261: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2262: THEN
2263: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYPE_IGN');
2264: FND_MSG_PUB.Add;
2265: END IF;
2260: -- entered by the user have been ignored.
2261: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2262: THEN
2263: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYPE_IGN');
2264: FND_MSG_PUB.Add;
2265: END IF;
2266: END IF;
2267:
2268: END IF;
2276: l_get_id_return_status
2277: );
2278: IF x_currency_code IS NULL THEN
2279: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_INVALID');
2280: FND_MSG_PUB.Add;
2281: p_return_status := FND_API.G_RET_STS_ERROR;
2282: END IF;
2283: ELSE
2284:
2283: ELSE
2284:
2285: x_currency_code := arp_global.functional_currency;
2286: --Raise a warning message saying that currency was defaulted
2287: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2288: THEN
2289: FND_MESSAGE.SET_NAME('AR','AR_RAPI_FUNC_CURR_DEFAULTED');
2290: FND_MSG_PUB.Add;
2291: END IF;
2286: --Raise a warning message saying that currency was defaulted
2287: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2288: THEN
2289: FND_MESSAGE.SET_NAME('AR','AR_RAPI_FUNC_CURR_DEFAULTED');
2290: FND_MSG_PUB.Add;
2291: END IF;
2292:
2293: END IF;
2294:
2296: IF (p_usr_currency_code IS NOT NULL) THEN
2297:
2298: --give a warning message to indicate that the usr_currency_code
2299: -- entered by the user have been ignored.
2300: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2301: THEN
2302: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_IGN');
2303: FND_MSG_PUB.Add;
2304: END IF;
2299: -- entered by the user have been ignored.
2300: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2301: THEN
2302: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_IGN');
2303: FND_MSG_PUB.Add;
2304: END IF;
2305:
2306: END IF;
2307: END IF;
2320: x_remit_to_address_id := l_dft_remit_to_address_id;
2321: exception
2322: when others then
2323: FND_MESSAGE.SET_NAME('AR','AR_DAPI_REMIT_ADDRESS_DFT_ERR');
2324: FND_MSG_PUB.Add;
2325: p_return_status := FND_API.G_RET_STS_ERROR;
2326: end;
2327: ELSE
2328: arp_util.debug('p_cust_location_site_num is not null, hence fetching');
2339: x_remit_to_address_id := l_remit_to_address_id;
2340: exception
2341: when others then
2342: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUST_LOC_SITE_NUM_INV');
2343: FND_MSG_PUB.Add;
2344: p_return_status := FND_API.G_RET_STS_ERROR;
2345: end ;
2346:
2347: END IF;
2350: IF p_cust_location_site_num is NOT NULL THEN
2351: --give a warning message to indicate that the
2352: --customer_number and customer_name
2353: --entered by the user have been ignored.
2354: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2355: THEN
2356: FND_MESSAGE.SET_NAME('AR','AR_DAPI_LOC_SITE_NUM_IGN'); --new message to be seeded
2357: FND_MSG_PUB.Add;
2358:
2353: --entered by the user have been ignored.
2354: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2355: THEN
2356: FND_MESSAGE.SET_NAME('AR','AR_DAPI_LOC_SITE_NUM_IGN'); --new message to be seeded
2357: FND_MSG_PUB.Add;
2358:
2359: END IF;
2360: END IF;
2361: begin
2365: exception
2366: when no_data_found then
2367: arp_util.debug('no_data_found in is x_remit_to_address');
2368: FND_MESSAGE.SET_NAME('AR','AR_DAPI_REMIT_ADDR_ID_INVD');
2369: FND_MSG_PUB.Add;
2370: p_return_status := FND_API.G_RET_STS_ERROR;
2371: end;
2372:
2373: END IF;
2384: p_sold_to_customer_name,
2385: l_get_id_return_status);
2386: IF x_sold_to_customer_id IS NULL THEN
2387: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUST_NAME_INVALID');
2388: FND_MSG_PUB.Add;
2389: p_return_status := FND_API.G_RET_STS_ERROR;
2390: END IF;
2391: ELSIF ( p_sold_to_customer_name IS NULL and
2392: p_sold_to_customer_number IS NOT NULL )
2395: p_sold_to_customer_number,
2396: l_get_id_return_status);
2397: IF x_sold_to_customer_id IS NULL THEN
2398: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUST_NUM_INVALID');
2399: FND_MSG_PUB.Add;
2400: p_return_status := FND_API.G_RET_STS_ERROR;
2401: END IF;
2402:
2403: ELSIF( p_sold_to_customer_name IS NOT NULL and
2408: p_sold_to_customer_name,
2409: l_get_x_val_return_status);
2410: IF x_sold_to_customer_id IS NULL THEN
2411: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUST_COM_INVALID');
2412: FND_MSG_PUB.Add;
2413: p_return_status := FND_API.G_RET_STS_ERROR;
2414: END IF;
2415: ELSIF( p_sold_to_customer_name IS NULL and
2416: p_sold_to_customer_number IS NULL )
2418:
2419: --give a warning message to indicate that the sold_to_customer
2420: --is defaulted to bill to customer.
2421: x_sold_to_customer_id := x_bill_to_customer_id;
2422: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2423: THEN
2424: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUST_DFT');
2425: FND_MSG_PUB.Add;
2426: END IF;
2421: x_sold_to_customer_id := x_bill_to_customer_id;
2422: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2423: THEN
2424: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUST_DFT');
2425: FND_MSG_PUB.Add;
2426: END IF;
2427: END IF;
2428: ELSE
2429: IF (p_sold_to_customer_name IS NOT NULL) OR
2430: (p_sold_to_customer_number IS NOT NULL) THEN
2431: --give a warning message to indicate that the customer_number
2432: --and customer_name
2433: --entered by the user have been ignored.
2434: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2435: THEN
2436: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUS_IGN');
2437: FND_MSG_PUB.Add;
2438:
2433: --entered by the user have been ignored.
2434: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2435: THEN
2436: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUS_IGN');
2437: FND_MSG_PUB.Add;
2438:
2439: END IF;
2440: END IF;
2441: /*--------------------------------+
2457: EXCEPTION
2458: WHEN NO_DATA_FOUND THEN
2459: p_return_status := FND_API.G_RET_STS_ERROR;
2460: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUST_ID_INVALID');
2461: FND_MSG_PUB.Add;
2462:
2463: WHEN OTHERS THEN
2464: arp_util.debug('EXCEPTION: sold to Customer_id() ');
2465: RAISE;
2481: p_paying_customer_name,
2482: l_get_id_return_status);
2483: IF x_paying_customer_id IS NULL THEN
2484: FND_MESSAGE.SET_NAME('AR','AR_DAPI_PAY_CUST_NAME_INVALID');
2485: FND_MSG_PUB.Add;
2486: p_return_status := FND_API.G_RET_STS_ERROR;
2487: END IF;
2488: ELSIF ( p_paying_customer_name IS NULL and
2489: p_paying_customer_number IS NOT NULL )
2492: p_paying_customer_number,
2493: l_get_id_return_status);
2494: IF x_paying_customer_id IS NULL THEN
2495: FND_MESSAGE.SET_NAME('AR','AR_DAPI_PAY_CUST_NUM_INVALID');
2496: FND_MSG_PUB.Add;
2497: p_return_status := FND_API.G_RET_STS_ERROR;
2498: END IF;
2499:
2500: ELSIF( p_paying_customer_name IS NOT NULL and
2505: p_paying_customer_name,
2506: l_get_x_val_return_status);
2507: IF x_paying_customer_id IS NULL THEN
2508: FND_MESSAGE.SET_NAME('AR','AR_DAPI_PAY_CUST_COM_INVALID');
2509: FND_MSG_PUB.Add;
2510: p_return_status := FND_API.G_RET_STS_ERROR;
2511: END IF;
2512: ELSE
2513: x_paying_customer_id := x_bill_to_customer_id;
2518: (p_paying_customer_number IS NOT NULL) THEN
2519: --give a warning message to indicate that the customer_number
2520: --and customer_name
2521: --entered by the user have been ignored.
2522: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2523: THEN
2524: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_NAME_NUM_IGN');
2525: FND_MSG_PUB.Add;
2526: p_return_status := FND_API.G_RET_STS_ERROR;
2521: --entered by the user have been ignored.
2522: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2523: THEN
2524: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_NAME_NUM_IGN');
2525: FND_MSG_PUB.Add;
2526: p_return_status := FND_API.G_RET_STS_ERROR;
2527: END IF;
2528: END IF;
2529: /*--------------------------------+
2545: EXCEPTION
2546: WHEN NO_DATA_FOUND THEN
2547: p_return_status := FND_API.G_RET_STS_ERROR;
2548: FND_MESSAGE.SET_NAME('AR','AR_DAPI_PAY_CUST_ID_INVALID');
2549: FND_MSG_PUB.Add;
2550:
2551: WHEN OTHERS THEN
2552: arp_util.debug('EXCEPTION: paying_Customer_id() ');
2553: RAISE;
2610:
2611:
2612: if x_paying_customer_site_use_id is null then
2613: FND_MESSAGE.SET_NAME('AR','AR_DAPI_LOC_INV');
2614: FND_MSG_PUB.Add;
2615: p_return_status := FND_API.G_RET_STS_ERROR;
2616: end if;
2617: ELSE
2618: IF p_paying_location IS NOT NULL THEN
2792: for the current document');
2793: p_return_status := FND_API.G_RET_STS_ERROR;
2794: --Error message
2795: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_DOC_SEQ_NOT_EXIST_A');
2796: FND_MSG_PUB.Add;
2797: ELSIF l_doc_seq_ret_stat = -2 THEN
2798: --this is the case of Partially Used
2799: arp_util.debug('The doc sequence does not exist
2800: for the current document');
2798: --this is the case of Partially Used
2799: arp_util.debug('The doc sequence does not exist
2800: for the current document');
2801: --Warning
2802: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2803: THEN
2804: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_NOT_EXIST_P');
2805: FND_MSG_PUB.Add;
2806: END IF;
2801: --Warning
2802: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2803: THEN
2804: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_NOT_EXIST_P');
2805: FND_MSG_PUB.Add;
2806: END IF;
2807: END IF;
2808:
2809: IF ( l_doc_sequence_name IS NOT NULL
2827: --not supposed to pass
2828: --in a value for the document sequence number in this case.
2829: p_return_status := FND_API.G_RET_STS_ERROR;
2830: FND_MESSAGE.Set_Name('AR', 'AR_RAPI_DOC_SEQ_AUTOMATIC');
2831: FND_MSG_PUB.Add;
2832: END IF;
2833: p_doc_sequence_value := l_doc_sequence_value;
2834: arp_util.debug('l_doc_sequence_value :'||
2835: to_char(nvl(p_doc_sequence_value,-99)));
2862: FND_MESSAGE.Set_Name('AR',
2863: 'AR_RAPI_DOC_SEQ_VALUE_NULL_A');
2864: FND_MESSAGE.Set_Token('SEQUENCE',
2865: l_doc_sequence_name);
2866: FND_MSG_PUB.Add;
2867: ELSIF NVL(pg_profile_doc_seq,'N') = 'P' THEN
2868: --Warning
2869: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2870: THEN
2865: l_doc_sequence_name);
2866: FND_MSG_PUB.Add;
2867: ELSIF NVL(pg_profile_doc_seq,'N') = 'P' THEN
2868: --Warning
2869: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2870: THEN
2871: FND_MESSAGE.SET_NAME('AR',
2872: 'AR_RAPI_DOC_SEQ_VALUE_NULL_P');
2873: FND_MSG_PUB.Add;
2869: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2870: THEN
2871: FND_MESSAGE.SET_NAME('AR',
2872: 'AR_RAPI_DOC_SEQ_VALUE_NULL_P');
2873: FND_MSG_PUB.Add;
2874: END IF;
2875: END IF;
2876:
2877:
2887: arp_util.debug('no_data_found raised');
2888: IF (pg_profile_doc_seq = 'A' ) THEN
2889: p_return_status := FND_API.G_RET_STS_ERROR;
2890: FND_MESSAGE.Set_Name( 'FND','UNIQUE-ALWAYS USED');
2891: FND_MSG_PUB.Add;
2892: ELSE
2893: p_doc_sequence_id := NULL;
2894: p_doc_sequence_value := NULL;
2895: END IF;
2991:
2992: FND_MESSAGE.SET_NAME('AR', 'AR_RAPI_DESC_FLEX_INVALID');
2993: -- FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name);
2994: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name||' - Flex Field Name : "' ||get_flex_title('RA_CUSTOMER_TRX')||'"');
2995: FND_MSG_PUB.ADD ;
2996: p_return_status := FND_API.G_RET_STS_ERROR;
2997: END IF;
2998:
2999: l_count := fnd_flex_descval.segment_count;
3081: IF ( NOT fnd_flex_descval.validate_desccols('AR',p_desc_flex_name,'I') )
3082: THEN
3083: FND_MESSAGE.SET_NAME('AR', 'AR_RAPI_DESC_FLEX_INVALID');
3084: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name||' - Flex Field Name : "' ||get_flex_title('RA_INTERFACE_HEADER')||'"');
3085: FND_MSG_PUB.ADD ;
3086: p_return_status := FND_API.G_RET_STS_ERROR;
3087: END IF;
3088:
3089: l_count := fnd_flex_descval.segment_count;
3169: IF ( NOT fnd_flex_descval.validate_desccols('AR',p_desc_flex_name,'I') )
3170: THEN
3171: FND_MESSAGE.SET_NAME('AR', 'AR_RAPI_DESC_FLEX_INVALID');
3172: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name||' - Flex Field Name : "' ||get_flex_title('RA_INTERFACE_LINES')||'"');
3173: FND_MSG_PUB.ADD ;
3174: p_return_status := FND_API.G_RET_STS_ERROR;
3175: END IF;
3176:
3177: l_count := fnd_flex_descval.segment_count;