[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: /*=======================================================================+
415: FND_MESSAGE.set_name( 'AR', 'AR_TW_BAD_COMMITMT_DATE_RANGE' );
416: --Int'l Calendar Project
417: FND_MESSAGE.set_token( 'START_DATE', fnd_date.date_to_chardate(p_start_date_commitment, calendar_aware=> FND_DATE.calendar_aware_alt));
418: FND_MESSAGE.set_token( 'END_DATE', fnd_date.date_to_chardate(p_end_date_commitment, calendar_aware=> FND_DATE.calendar_aware_alt));
419: FND_MSG_PUB.Add;
420: p_return_status := FND_API.G_RET_STS_ERROR;
421: END IF;
422: IF p_end_date_commitment is not null and
423: p_deposit_date > p_end_date_commitment THEN
425: FND_MESSAGE.set_name( 'AR', 'AR_TW_COMMIT_END_TRX_DATE' );
426: --Int'l Calendar Project
427: FND_MESSAGE.set_token( 'TRX_DATE', fnd_date.date_to_chardate(p_deposit_date, calendar_aware=> FND_DATE.calendar_aware_alt));
428: FND_MESSAGE.set_token( 'END_DATE', fnd_date.date_to_chardate(p_end_date_commitment, calendar_aware=> FND_DATE.calendar_aware_alt));
429: FND_MSG_PUB.Add;
430: p_return_status := FND_API.G_RET_STS_ERROR;
431:
432: END IF;
433:
434: /* IF (p_deposit_date < p_start_date_commitment or
435: p_deposit_date > nvl(p_end_date_commitment,
436: p_start_date_commitment)) THEN
437: FND_MESSAGE.set_name( 'AR', 'AR_TW_BAD_DATE_COMMITMENT' );
438: FND_MSG_PUB.Add;
439: p_return_status := FND_API.G_RET_STS_ERROR;
440: END IF;*/
441:
442: arp_util.debug('ar_deposit_lib_pvt.Default_commitment_Date() -' );
819: arp_util.debug('EXCEPTIONS:no data found , GET_CONTACT_ID()');
820: --that the customer site use id could not be defaulted.
821: p_return_status := FND_API.G_RET_STS_ERROR;
822: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_CONTACT_INVALID');
823: FND_MSG_PUB.Add;
824:
825: when others then
826: l_selected_id := null;
827: arp_util.debug('EXCEPTIONS: Others , GET_CONTACT_ID()');
1005: arp_util.debug('No data found in the hz_cust_site_uses
1006: for the location :'||p_location);
1007: p_return_status := FND_API.G_RET_STS_ERROR;
1008: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_LOC_INVALID');
1009: FND_MSG_PUB.Add;
1010: --the error message will be raised in the validation routine.
1011:
1012: END;
1013:
1040: --a WARNING message raised in the validation routine to indicate
1041: --that the customer site use id could not be defaulted.
1042: p_return_status := FND_API.G_RET_STS_ERROR;
1043: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_SITE_DFT_INVALID');
1044: FND_MSG_PUB.Add;
1045: END;
1046:
1047: END IF;
1048: END IF;
1141: arp_util.debug('GL Date could not be defaulted ');
1142: -- Raise error message if failure in defaulting the gl_date
1143: FND_MESSAGE.SET_NAME('AR', 'GENERIC_MESSAGE');
1144: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT', l_error_message);
1145: FND_MSG_PUB.Add;
1146: p_return_status := FND_API.G_RET_STS_ERROR;
1147: END IF;
1148: END IF;
1149: arp_util.debug('ar_deposit_lib_pvt.Default_gl_date() -' );
1310: --if user has entered exchange rate for type <> User,
1311: -- raise error message
1312: p_return_status := FND_API.G_RET_STS_ERROR;
1313: FND_MESSAGE.SET_NAME('AR','AR_RAPI_X_RATE_INVALID');
1314: FND_MSG_PUB.Add;
1315: END IF;
1316: ELSE
1317: --case where rate_type is 'User'
1318:
1483:
1484: exception
1485: when no_data_found then
1486: FND_MESSAGE.SET_NAME('AR','AR_DAPI_TERM_NAME_INVALID');
1487: FND_MSG_PUB.Add;
1488: p_return_status := FND_API.G_RET_STS_ERROR;
1489:
1490: end;
1491: END IF;
1500:
1501: exception
1502: when no_data_found then
1503: FND_MESSAGE.SET_NAME('AR','AR_DAPI_TERM_ID_INVALID');
1504: FND_MSG_PUB.Add;
1505: p_return_status := FND_API.G_RET_STS_ERROR;
1506:
1507: end;
1508:
1523:
1524: exception
1525: when no_data_found then
1526: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SALESREP_NAME_INVALID');
1527: FND_MSG_PUB.Add;
1528: p_return_status := FND_API.G_RET_STS_ERROR;
1529:
1530: end;
1531: ELSIF (x_salesrep_id IS NOT NULL) THEN
1541:
1542: exception
1543: when no_data_found then
1544: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SALESREP_ID_INVALID');
1545: FND_MSG_PUB.Add;
1546: p_return_status := FND_API.G_RET_STS_ERROR;
1547: end;
1548:
1549:
1564: name = p_memo_line_name;
1565: EXCEPTION
1566: when no_data_found then
1567: FND_MESSAGE.SET_NAME('AR','AR_DAPI_MEMO_NAME_INVALID');
1568: FND_MSG_PUB.Add;
1569: p_return_status := FND_API.G_RET_STS_ERROR;
1570: END;
1571:
1572: END IF;
1573: ELSE
1574: IF p_memo_line_name IS NOT NULL
1575: THEN
1576: FND_MESSAGE.SET_NAME('AR','AR_DAPI_MEMO_WRG');
1577: FND_MSG_PUB.Add;
1578: END IF;
1579:
1580: BEGIN
1581: select memo_line_id
1587: memo_line_id = x_memo_line_id;
1588: EXCEPTION
1589: when no_data_found then
1590: FND_MESSAGE.SET_NAME('AR','AR_DAPI_MEMO_NAME_INVALID');
1591: FND_MSG_PUB.Add;
1592: p_return_status := FND_API.G_RET_STS_ERROR;
1593: END;
1594:
1595: END IF;
1605: ENABLED_FLAG = 'Y';
1606: EXCEPTION
1607: when no_data_found then
1608: FND_MESSAGE.SET_NAME('AR','AR_DAPI_INV_ID_INVALID');
1609: FND_MSG_PUB.Add;
1610: p_return_status := FND_API.G_RET_STS_ERROR;
1611: END;
1612: IF x_memo_line_id is NOT NULL then
1613: FND_MESSAGE.SET_NAME('AR','AR_DAPI_INV_MEMO_COM');
1610: p_return_status := FND_API.G_RET_STS_ERROR;
1611: END;
1612: IF x_memo_line_id is NOT NULL then
1613: FND_MESSAGE.SET_NAME('AR','AR_DAPI_INV_MEMO_COM');
1614: FND_MSG_PUB.Add;
1615: p_return_status := FND_API.G_RET_STS_ERROR;
1616: END IF;
1617:
1618: END IF;
1645: exception
1646: when no_data_found then
1647: arp_util.debug('x_batch_source_id IS NULL');
1648: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BS_NAME_INVALID');
1649: FND_MSG_PUB.Add;
1650: p_return_status := FND_API.G_RET_STS_ERROR;
1651:
1652: end;
1653:
1656: --validate the id here or in vadidate_deposit routine
1657: IF p_batch_source_name IS NOT NULL then
1658: arp_util.debug('x_batch_source_id IS ignored');
1659: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BS_NAME_IGN');
1660: FND_MSG_PUB.Add;
1661:
1662: END IF;
1663:
1664: begin
1683: exception
1684: when no_data_found then
1685: arp_util.debug('x_batch_source_id :no_data_found');
1686: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BS_ID_INVALID');
1687: FND_MSG_PUB.Add;
1688: p_return_status := FND_API.G_RET_STS_ERROR;
1689:
1690: end;
1691:
1706: EXCEPTION
1707:
1708: WHEN NO_DATA_FOUND THEN
1709: FND_MESSAGE.SET_NAME('AR','AR_DAPI_TRANS_TYPE_INVALID');
1710: FND_MSG_PUB.Add;
1711: p_return_status := FND_API.G_RET_STS_ERROR;
1712: WHEN OTHERS THEN
1713: RAISE;
1714: END;
1713: RAISE;
1714: END;
1715: /* ELSE
1716: FND_MESSAGE.SET_NAME('AR','AR_DAPI_TRANS_TYPE_NULL');
1717: FND_MSG_PUB.Add;
1718: p_return_status := FND_API.G_RET_STS_ERROR;
1719: */
1720: END IF;
1721: ELSE
1720: END IF;
1721: ELSE
1722: IF p_cust_trx_type IS NOT NULL THEN
1723: FND_MESSAGE.SET_NAME('AR','AR_DAPI_TRANS_TYPE_IGN');
1724: FND_MSG_PUB.Add;
1725: END IF;
1726:
1727: -- validate x_cust_trx_type_id
1728: BEGIN
1737: EXCEPTION
1738:
1739: WHEN NO_DATA_FOUND THEN
1740: FND_MESSAGE.SET_NAME('AR','AR_DAPI_TRANS_TYPE_ID_INVALID');
1741: FND_MSG_PUB.Add;
1742: p_return_status := FND_API.G_RET_STS_ERROR;
1743: WHEN OTHERS THEN
1744: RAISE;
1745: END;
1757: p_bill_to_customer_name,
1758: l_dummy_return_status);
1759: IF x_bill_to_customer_id IS NULL THEN
1760: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_INVALID');
1761: FND_MSG_PUB.Add;
1762: p_return_status := FND_API.G_RET_STS_ERROR;
1763: END IF;
1764:
1765: ELSIF(p_bill_to_customer_name IS NULL) and
1769: p_bill_to_customer_number,
1770: l_dummy_return_status);
1771: IF x_bill_to_customer_id IS NULL THEN
1772: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NUM_INVALID');
1773: FND_MSG_PUB.Add;
1774: p_return_status := FND_API.G_RET_STS_ERROR;
1775: END IF;
1776:
1777: ELSIF(p_bill_to_customer_name IS NOT NULL) and
1782: p_bill_to_customer_name,
1783: l_dummy_return_status);
1784: IF x_bill_to_customer_id IS NULL THEN
1785: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_INVALID');
1786: FND_MSG_PUB.Add;
1787: p_return_status := FND_API.G_RET_STS_ERROR;
1788: END IF;
1789:
1790:
1796: (p_bill_to_customer_number IS NOT NULL) THEN
1797: --give a warning message to indicate that the
1798: -- customer_number and customer_name
1799: --entered by the user have been ignored.
1800: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1801: THEN
1802: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1803: FND_MSG_PUB.Add;
1804: p_return_status := FND_API.G_RET_STS_ERROR;
1799: --entered by the user have been ignored.
1800: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1801: THEN
1802: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1803: FND_MSG_PUB.Add;
1804: p_return_status := FND_API.G_RET_STS_ERROR;
1805: END IF;
1806: END IF;
1807: /*--------------------------------+
1823: EXCEPTION
1824: WHEN NO_DATA_FOUND THEN
1825: p_return_status := FND_API.G_RET_STS_ERROR;
1826: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_ID_INVALID');
1827: FND_MSG_PUB.Add;
1828:
1829: WHEN OTHERS THEN
1830: arp_util.debug('EXCEPTION: Cache_Customer_id() ');
1831: arp_util.debug('p_customer_id = ' ||
1851: p_ship_to_customer_name,
1852: l_dummy_return_status);
1853: IF x_ship_to_customer_id IS NULL THEN
1854: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_INVALID');
1855: FND_MSG_PUB.Add;
1856: p_return_status := FND_API.G_RET_STS_ERROR;
1857: END IF;
1858:
1859: ELSIF(p_ship_to_customer_name IS NULL) and
1863: p_ship_to_customer_number,
1864: l_dummy_return_status);
1865: IF x_ship_to_customer_id IS NULL THEN
1866: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NUM_INVALID');
1867: FND_MSG_PUB.Add;
1868: p_return_status := FND_API.G_RET_STS_ERROR;
1869: END IF;
1870:
1871: ELSIF(p_ship_to_customer_name IS NOT NULL) and
1877: p_ship_to_customer_name,
1878: l_dummy_return_status);
1879: IF x_ship_to_customer_id IS NULL THEN
1880: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_INVALID');
1881: FND_MSG_PUB.Add;
1882: p_return_status := FND_API.G_RET_STS_ERROR;
1883: END IF;
1884: END IF;
1885:
1889: (p_ship_to_customer_number IS NOT NULL) THEN
1890: --give a warning message to indicate that the customer_number
1891: --and customer_name
1892: --entered by the user have been ignored.
1893: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1894: THEN
1895: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1896: FND_MSG_PUB.Add;
1897: p_return_status := FND_API.G_RET_STS_ERROR;
1892: --entered by the user have been ignored.
1893: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
1894: THEN
1895: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUS_NAME_NUM_IGN');
1896: FND_MSG_PUB.Add;
1897: p_return_status := FND_API.G_RET_STS_ERROR;
1898: END IF;
1899: END IF;
1900: /*--------------------------------+
1916: EXCEPTION
1917: WHEN NO_DATA_FOUND THEN
1918: p_return_status := FND_API.G_RET_STS_ERROR;
1919: FND_MESSAGE.SET_NAME('AR','AR_RAPI_CUST_ID_INVALID');
1920: FND_MSG_PUB.Add;
1921:
1922: WHEN OTHERS THEN
1923: arp_util.debug('x_ship_to_customer_id = ' ||
1924: TO_CHAR(x_ship_to_customer_id));
1935: IF x_bill_to_customer_id is null and
1936: x_ship_to_customer_id is null
1937: THEN
1938: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BILL_OR_SHIP_CUST_REQ');
1939: FND_MSG_PUB.Add;
1940: p_return_status := FND_API.G_RET_STS_ERROR;
1941: END IF;
1942:
1943:
1976: l_bill_to_location := l_dft_bill_to_location;
1977: p_bill_to_location := l_dft_bill_to_location;
1978: else
1979: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BILL_TO_LOC_REQ');
1980: FND_MSG_PUB.Add;
1981: p_return_status := FND_API.G_RET_STS_ERROR;
1982: end if ;
1983: end if;
1984:
2017: l_ship_to_location := l_dft_ship_to_location;
2018: p_ship_to_location := l_dft_ship_to_location;
2019: else
2020: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SHIP_TO_LOC_REQ');
2021: FND_MSG_PUB.Add;
2022: p_return_status := FND_API.G_RET_STS_ERROR;
2023: end if;
2024: end if;
2025:
2031: l_bill_to_location := l_ship_to_location;
2032: p_bill_to_location := l_ship_to_location;
2033:
2034: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BILL_VAL_SHIP_IGN');
2035: FND_MSG_PUB.Add;
2036: else
2037: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BILL_TO_LOC_REQ');
2038: FND_MSG_PUB.Add;
2039: p_return_status := FND_API.G_RET_STS_ERROR;
2034: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BILL_VAL_SHIP_IGN');
2035: FND_MSG_PUB.Add;
2036: else
2037: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BILL_TO_LOC_REQ');
2038: FND_MSG_PUB.Add;
2039: p_return_status := FND_API.G_RET_STS_ERROR;
2040: end if ;
2041: END IF;
2042:
2053: l_site_use_return_status
2054: );
2055: if x_bill_to_customer_site_use_id is null then
2056: FND_MESSAGE.SET_NAME('AR','AR_DAPI_LOC_INV');
2057: FND_MSG_PUB.Add;
2058: p_return_status := FND_API.G_RET_STS_ERROR;
2059: end if;
2060:
2061: END IF;
2076: p_bill_to_contact_last_name,
2077: l_contact_return_status);
2078: if x_bill_to_contact_id is null then
2079: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BIll_CONTACT_COM_INV');
2080: FND_MSG_PUB.Add;
2081: p_return_status := FND_API.G_RET_STS_ERROR;
2082: end if;
2083:
2084: ELSIF (p_bill_to_contact_first_name IS NULL and
2087: p_bill_to_contact_last_name IS NULL) THEN
2088: arp_util.debug('Bill_to_contact_id both last and
2089: first name are required');
2090: FND_MESSAGE.SET_NAME('AR','AR_DAPI_BIll_CONTACT_NAME_INV');
2091: FND_MSG_PUB.Add;
2092: p_return_status := FND_API.G_RET_STS_ERROR;
2093:
2094: END IF;
2095:
2123: exception
2124: when no_data_found then
2125: p_return_status := FND_API.G_RET_STS_ERROR;
2126: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_CONTACT_INVALID');
2127: FND_MSG_PUB.Add;
2128:
2129: when others then
2130: arp_util.debug('EXCEPTIONS: Others , GET_CONTACT_ID()');
2131: end;
2143: NULL ,l_site_use_return_status
2144: );
2145: if x_ship_to_customer_site_use_id is null then
2146: FND_MESSAGE.SET_NAME('AR','AR_DAPI_LOC_INV');
2147: FND_MSG_PUB.Add;
2148: p_return_status := FND_API.G_RET_STS_ERROR;
2149: end if;
2150: IF (x_ship_to_contact_id is NULL)
2151: THEN
2160: p_ship_to_contact_last_name,
2161: l_contact_return_status);
2162: if x_ship_to_contact_id is null then
2163: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SHIP_CONTACT_COM_INV');
2164: FND_MSG_PUB.Add;
2165: p_return_status := FND_API.G_RET_STS_ERROR;
2166: end if;
2167:
2168: ELSIF(p_ship_to_contact_first_name IS NULL and
2172:
2173: arp_util.debug('Ship_to_contact_id both last and
2174: first name are required');
2175: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SHIP_CONTACT_NAME_INV');
2176: FND_MSG_PUB.Add;
2177: p_return_status := FND_API.G_RET_STS_ERROR;
2178: END IF;
2179:
2180: ELSE
2206: exception
2207: when no_data_found then
2208: p_return_status := FND_API.G_RET_STS_ERROR;
2209: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_CONTACT_INVALID');
2210: FND_MSG_PUB.Add;
2211:
2212: when others then
2213: arp_util.debug('EXCEPTIONS: Others , GET_CONTACT_ID()');
2214: end;
2226: l_get_id_return_status
2227: );
2228: IF x_receipt_method_id IS NULL THEN
2229: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_INVALID');
2230: FND_MSG_PUB.Add;
2231: p_return_status := FND_API.G_RET_STS_ERROR;
2232: END IF;
2233: END IF;
2234:
2235: ELSE
2236: IF (p_receipt_method_name IS NOT NULL) THEN
2237: --give a warning message to indicate that the receipt_method_name
2238: --entered by the user has been ignored.
2239: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2240: THEN
2241: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_IGN');
2242: FND_MSG_PUB.Add;
2243: END IF;
2238: --entered by the user has been ignored.
2239: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2240: THEN
2241: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_NAME_IGN');
2242: FND_MSG_PUB.Add;
2243: END IF;
2244: ELSE
2245: BEGIN
2246: SELECT name
2250: EXCEPTION
2251: WHEN no_data_found THEN
2252: p_return_status := FND_API.G_RET_STS_ERROR;
2253: FND_MESSAGE.SET_NAME('AR','AR_RAPI_RCPT_MD_ID_INVALID');
2254: FND_MSG_PUB.Add;
2255: arp_util.debug('Invalid receipt method id ');
2256: END;
2257:
2258: END IF;
2272: l_get_id_return_status
2273: );
2274: IF x_exchange_rate_type IS NULL THEN
2275: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYP_INVALID');
2276: FND_MSG_PUB.Add;
2277: p_return_status := FND_API.G_RET_STS_ERROR;
2278: END IF;
2279: END IF;
2280:
2281: ELSE
2282: IF (p_usr_exchange_rate_type IS NOT NULL) THEN
2283: --give a warning message to indicate that the usr_exchange_rate_type
2284: -- entered by the user have been ignored.
2285: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2286: THEN
2287: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYPE_IGN');
2288: FND_MSG_PUB.Add;
2289: END IF;
2284: -- entered by the user have been ignored.
2285: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2286: THEN
2287: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_X_RATE_TYPE_IGN');
2288: FND_MSG_PUB.Add;
2289: END IF;
2290: END IF;
2291:
2292: END IF;
2300: l_get_id_return_status
2301: );
2302: IF x_currency_code IS NULL THEN
2303: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_INVALID');
2304: FND_MSG_PUB.Add;
2305: p_return_status := FND_API.G_RET_STS_ERROR;
2306: END IF;
2307: ELSE
2308:
2307: ELSE
2308:
2309: x_currency_code := arp_global.functional_currency;
2310: --Raise a warning message saying that currency was defaulted
2311: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2312: THEN
2313: FND_MESSAGE.SET_NAME('AR','AR_RAPI_FUNC_CURR_DEFAULTED');
2314: FND_MSG_PUB.Add;
2315: END IF;
2310: --Raise a warning message saying that currency was defaulted
2311: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2312: THEN
2313: FND_MESSAGE.SET_NAME('AR','AR_RAPI_FUNC_CURR_DEFAULTED');
2314: FND_MSG_PUB.Add;
2315: END IF;
2316:
2317: END IF;
2318:
2320: IF (p_usr_currency_code IS NOT NULL) THEN
2321:
2322: --give a warning message to indicate that the usr_currency_code
2323: -- entered by the user have been ignored.
2324: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2325: THEN
2326: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_IGN');
2327: FND_MSG_PUB.Add;
2328: END IF;
2323: -- entered by the user have been ignored.
2324: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2325: THEN
2326: FND_MESSAGE.SET_NAME('AR','AR_RAPI_USR_CURR_CODE_IGN');
2327: FND_MSG_PUB.Add;
2328: END IF;
2329:
2330: END IF;
2331: END IF;
2346: x_remit_to_address_id := l_dft_remit_to_address_id;
2347: exception
2348: when others then
2349: FND_MESSAGE.SET_NAME('AR','AR_DAPI_REMIT_ADDRESS_DFT_ERR');
2350: FND_MSG_PUB.Add;
2351: p_return_status := FND_API.G_RET_STS_ERROR;
2352: end;
2353: ELSE
2354: arp_util.debug('p_cust_location_site_num is not null, hence fetching');
2365: x_remit_to_address_id := l_remit_to_address_id;
2366: exception
2367: when others then
2368: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUST_LOC_SITE_NUM_INV');
2369: FND_MSG_PUB.Add;
2370: p_return_status := FND_API.G_RET_STS_ERROR;
2371: end ;
2372:
2373: END IF;
2376: IF p_cust_location_site_num is NOT NULL THEN
2377: --give a warning message to indicate that the
2378: --customer_number and customer_name
2379: --entered by the user have been ignored.
2380: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2381: THEN
2382: FND_MESSAGE.SET_NAME('AR','AR_DAPI_LOC_SITE_NUM_IGN'); --new message to be seeded
2383: FND_MSG_PUB.Add;
2384:
2379: --entered by the user have been ignored.
2380: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2381: THEN
2382: FND_MESSAGE.SET_NAME('AR','AR_DAPI_LOC_SITE_NUM_IGN'); --new message to be seeded
2383: FND_MSG_PUB.Add;
2384:
2385: END IF;
2386: END IF;
2387: begin
2391: exception
2392: when no_data_found then
2393: arp_util.debug('no_data_found in is x_remit_to_address');
2394: FND_MESSAGE.SET_NAME('AR','AR_DAPI_REMIT_ADDR_ID_INVD');
2395: FND_MSG_PUB.Add;
2396: p_return_status := FND_API.G_RET_STS_ERROR;
2397: end;
2398:
2399: END IF;
2410: p_sold_to_customer_name,
2411: l_get_id_return_status);
2412: IF x_sold_to_customer_id IS NULL THEN
2413: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUST_NAME_INVALID');
2414: FND_MSG_PUB.Add;
2415: p_return_status := FND_API.G_RET_STS_ERROR;
2416: END IF;
2417: ELSIF ( p_sold_to_customer_name IS NULL and
2418: p_sold_to_customer_number IS NOT NULL )
2421: p_sold_to_customer_number,
2422: l_get_id_return_status);
2423: IF x_sold_to_customer_id IS NULL THEN
2424: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUST_NUM_INVALID');
2425: FND_MSG_PUB.Add;
2426: p_return_status := FND_API.G_RET_STS_ERROR;
2427: END IF;
2428:
2429: ELSIF( p_sold_to_customer_name IS NOT NULL and
2434: p_sold_to_customer_name,
2435: l_get_x_val_return_status);
2436: IF x_sold_to_customer_id IS NULL THEN
2437: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUST_COM_INVALID');
2438: FND_MSG_PUB.Add;
2439: p_return_status := FND_API.G_RET_STS_ERROR;
2440: END IF;
2441: ELSIF( p_sold_to_customer_name IS NULL and
2442: p_sold_to_customer_number IS NULL )
2444:
2445: --give a warning message to indicate that the sold_to_customer
2446: --is defaulted to bill to customer.
2447: x_sold_to_customer_id := x_bill_to_customer_id;
2448: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2449: THEN
2450: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUST_DFT');
2451: FND_MSG_PUB.Add;
2452: END IF;
2447: x_sold_to_customer_id := x_bill_to_customer_id;
2448: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2449: THEN
2450: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUST_DFT');
2451: FND_MSG_PUB.Add;
2452: END IF;
2453: END IF;
2454: ELSE
2455: IF (p_sold_to_customer_name IS NOT NULL) OR
2456: (p_sold_to_customer_number IS NOT NULL) THEN
2457: --give a warning message to indicate that the customer_number
2458: --and customer_name
2459: --entered by the user have been ignored.
2460: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2461: THEN
2462: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUS_IGN');
2463: FND_MSG_PUB.Add;
2464:
2459: --entered by the user have been ignored.
2460: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2461: THEN
2462: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUS_IGN');
2463: FND_MSG_PUB.Add;
2464:
2465: END IF;
2466: END IF;
2467: /*--------------------------------+
2483: EXCEPTION
2484: WHEN NO_DATA_FOUND THEN
2485: p_return_status := FND_API.G_RET_STS_ERROR;
2486: FND_MESSAGE.SET_NAME('AR','AR_DAPI_SOLD_CUST_ID_INVALID');
2487: FND_MSG_PUB.Add;
2488:
2489: WHEN OTHERS THEN
2490: arp_util.debug('EXCEPTION: sold to Customer_id() ');
2491: RAISE;
2507: p_paying_customer_name,
2508: l_get_id_return_status);
2509: IF x_paying_customer_id IS NULL THEN
2510: FND_MESSAGE.SET_NAME('AR','AR_DAPI_PAY_CUST_NAME_INVALID');
2511: FND_MSG_PUB.Add;
2512: p_return_status := FND_API.G_RET_STS_ERROR;
2513: END IF;
2514: ELSIF ( p_paying_customer_name IS NULL and
2515: p_paying_customer_number IS NOT NULL )
2518: p_paying_customer_number,
2519: l_get_id_return_status);
2520: IF x_paying_customer_id IS NULL THEN
2521: FND_MESSAGE.SET_NAME('AR','AR_DAPI_PAY_CUST_NUM_INVALID');
2522: FND_MSG_PUB.Add;
2523: p_return_status := FND_API.G_RET_STS_ERROR;
2524: END IF;
2525:
2526: ELSIF( p_paying_customer_name IS NOT NULL and
2531: p_paying_customer_name,
2532: l_get_x_val_return_status);
2533: IF x_paying_customer_id IS NULL THEN
2534: FND_MESSAGE.SET_NAME('AR','AR_DAPI_PAY_CUST_COM_INVALID');
2535: FND_MSG_PUB.Add;
2536: p_return_status := FND_API.G_RET_STS_ERROR;
2537: END IF;
2538: ELSE
2539: x_paying_customer_id := x_bill_to_customer_id;
2544: (p_paying_customer_number IS NOT NULL) THEN
2545: --give a warning message to indicate that the customer_number
2546: --and customer_name
2547: --entered by the user have been ignored.
2548: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2549: THEN
2550: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_NAME_NUM_IGN');
2551: FND_MSG_PUB.Add;
2552: p_return_status := FND_API.G_RET_STS_ERROR;
2547: --entered by the user have been ignored.
2548: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2549: THEN
2550: FND_MESSAGE.SET_NAME('AR','AR_DAPI_CUS_NAME_NUM_IGN');
2551: FND_MSG_PUB.Add;
2552: p_return_status := FND_API.G_RET_STS_ERROR;
2553: END IF;
2554: END IF;
2555: /*--------------------------------+
2571: EXCEPTION
2572: WHEN NO_DATA_FOUND THEN
2573: p_return_status := FND_API.G_RET_STS_ERROR;
2574: FND_MESSAGE.SET_NAME('AR','AR_DAPI_PAY_CUST_ID_INVALID');
2575: FND_MSG_PUB.Add;
2576:
2577: WHEN OTHERS THEN
2578: arp_util.debug('EXCEPTION: paying_Customer_id() ');
2579: RAISE;
2636:
2637:
2638: if x_paying_customer_site_use_id is null then
2639: FND_MESSAGE.SET_NAME('AR','AR_DAPI_LOC_INV');
2640: FND_MSG_PUB.Add;
2641: p_return_status := FND_API.G_RET_STS_ERROR;
2642: end if;
2643: ELSE
2644: IF p_paying_location IS NOT NULL THEN
2818: for the current document');
2819: p_return_status := FND_API.G_RET_STS_ERROR;
2820: --Error message
2821: FND_MESSAGE.Set_Name( 'AR','AR_RAPI_DOC_SEQ_NOT_EXIST_A');
2822: FND_MSG_PUB.Add;
2823: ELSIF l_doc_seq_ret_stat = -2 THEN
2824: --this is the case of Partially Used
2825: arp_util.debug('The doc sequence does not exist
2826: for the current document');
2824: --this is the case of Partially Used
2825: arp_util.debug('The doc sequence does not exist
2826: for the current document');
2827: --Warning
2828: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2829: THEN
2830: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_NOT_EXIST_P');
2831: FND_MSG_PUB.Add;
2832: END IF;
2827: --Warning
2828: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2829: THEN
2830: FND_MESSAGE.SET_NAME('AR','AR_RAPI_DOC_SEQ_NOT_EXIST_P');
2831: FND_MSG_PUB.Add;
2832: END IF;
2833: END IF;
2834:
2835: IF ( l_doc_sequence_name IS NOT NULL
2853: --not supposed to pass
2854: --in a value for the document sequence number in this case.
2855: p_return_status := FND_API.G_RET_STS_ERROR;
2856: FND_MESSAGE.Set_Name('AR', 'AR_RAPI_DOC_SEQ_AUTOMATIC');
2857: FND_MSG_PUB.Add;
2858: END IF;
2859: p_doc_sequence_value := l_doc_sequence_value;
2860: arp_util.debug('l_doc_sequence_value :'||
2861: to_char(nvl(p_doc_sequence_value,-99)));
2888: FND_MESSAGE.Set_Name('AR',
2889: 'AR_RAPI_DOC_SEQ_VALUE_NULL_A');
2890: FND_MESSAGE.Set_Token('SEQUENCE',
2891: l_doc_sequence_name);
2892: FND_MSG_PUB.Add;
2893: ELSIF NVL(pg_profile_doc_seq,'N') = 'P' THEN
2894: --Warning
2895: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2896: THEN
2891: l_doc_sequence_name);
2892: FND_MSG_PUB.Add;
2893: ELSIF NVL(pg_profile_doc_seq,'N') = 'P' THEN
2894: --Warning
2895: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2896: THEN
2897: FND_MESSAGE.SET_NAME('AR',
2898: 'AR_RAPI_DOC_SEQ_VALUE_NULL_P');
2899: FND_MSG_PUB.Add;
2895: IF FND_MSG_PUB.Check_Msg_Level(G_MSG_SUCCESS)
2896: THEN
2897: FND_MESSAGE.SET_NAME('AR',
2898: 'AR_RAPI_DOC_SEQ_VALUE_NULL_P');
2899: FND_MSG_PUB.Add;
2900: END IF;
2901: END IF;
2902:
2903:
2913: arp_util.debug('no_data_found raised');
2914: IF (pg_profile_doc_seq = 'A' ) THEN
2915: p_return_status := FND_API.G_RET_STS_ERROR;
2916: FND_MESSAGE.Set_Name( 'FND','UNIQUE-ALWAYS USED');
2917: FND_MSG_PUB.Add;
2918: ELSE
2919: p_doc_sequence_id := NULL;
2920: p_doc_sequence_value := NULL;
2921: END IF;
3017:
3018: FND_MESSAGE.SET_NAME('AR', 'AR_RAPI_DESC_FLEX_INVALID');
3019: -- FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name);
3020: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name||' - Flex Field Name : "' ||get_flex_title('RA_CUSTOMER_TRX')||'"');
3021: FND_MSG_PUB.ADD ;
3022: p_return_status := FND_API.G_RET_STS_ERROR;
3023: END IF;
3024:
3025: l_count := fnd_flex_descval.segment_count;
3107: IF ( NOT fnd_flex_descval.validate_desccols('AR',p_desc_flex_name,'I') )
3108: THEN
3109: FND_MESSAGE.SET_NAME('AR', 'AR_RAPI_DESC_FLEX_INVALID');
3110: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name||' - Flex Field Name : "' ||get_flex_title('RA_INTERFACE_HEADER')||'"');
3111: FND_MSG_PUB.ADD ;
3112: p_return_status := FND_API.G_RET_STS_ERROR;
3113: END IF;
3114:
3115: l_count := fnd_flex_descval.segment_count;
3195: IF ( NOT fnd_flex_descval.validate_desccols('AR',p_desc_flex_name,'I') )
3196: THEN
3197: FND_MESSAGE.SET_NAME('AR', 'AR_RAPI_DESC_FLEX_INVALID');
3198: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name||' - Flex Field Name : "' ||get_flex_title('RA_INTERFACE_LINES')||'"');
3199: FND_MSG_PUB.ADD ;
3200: p_return_status := FND_API.G_RET_STS_ERROR;
3201: END IF;
3202:
3203: l_count := fnd_flex_descval.segment_count;