402: p_end_date_commitment IN OUT NOCOPY DATE,
403: p_return_status OUT NOCOPY VARCHAR2) IS
404: BEGIN
405: arp_util.debug('ar_deposit_lib_pvt.Default_commitment_Date() +' );
406: p_return_status := FND_API.G_RET_STS_SUCCESS;
407:
408: IF p_start_date_commitment IS NULL THEN
409: p_start_date_commitment:=p_deposit_date;
410: END IF;
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
424:
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() -' );
443: END Default_commitment_Date;
465: AND NVL(st.end_date_active(+), p_deposit_date );
466: BEGIN
467:
468: arp_util.debug('ar_deposit_lib_pvt.Get_Territory_id() +' );
469: p_return_status := FND_API.G_RET_STS_SUCCESS;
470: begin
471: select DEFAULT_TERRITORY
472: into l_territory_default
473: from ar_system_parameters;
556: l_Ship_Via_ship_site_default VARCHAR2(100):=NULL;
557: l_Ship_Via_bill_site_default VARCHAR2(100):=NULL;
558:
559: BEGIN
560: p_return_status := FND_API.G_RET_STS_SUCCESS;
561: arp_util.debug('ar_deposit_lib_pvt.Get_Ship_Via() +' );
562:
563: IF p_ship_to_customer_id IS NOT NULL AND
564: p_ship_to_location IS NOT NULL
674:
675: BEGIN
676:
677: arp_util.debug('ar_deposit_lib_pvt.Get_FOB_POINT() +' );
678: p_return_status := FND_API.G_RET_STS_SUCCESS;
679:
680: IF p_ship_to_customer_id IS NOT NULL AND
681: p_ship_to_location IS NOT NULL
682: THEN
817: when no_data_found then
818: l_selected_id := null;
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
981: l_index BINARY_INTEGER;
982: BEGIN
983:
984: arp_util.debug('ar_deposit_lib_pvt.Get_Site_Use_Id() +' );
985: p_return_status := FND_API.G_RET_STS_SUCCESS;
986: IF p_customer_id IS NOT NULL THEN
987: IF (p_location IS NOT NULL) THEN
988: BEGIN
989:
1003: EXCEPTION
1004: WHEN no_data_found THEN
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:
1038: --This is the case where customer site use id is null
1039: --neither it was supplied by the user nor it could be defaulted
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:
1076: THEN
1077: RETURN(NULL);
1078: END IF;
1079:
1080: p_return_status := FND_API.G_RET_STS_SUCCESS;
1081:
1082: l_id_from_name := Get_Id(p_entity||'_NAME',
1083: p_name_value,
1084: p_return_status
1114: l_error_message VARCHAR2(128);
1115: l_defaulting_rule_used VARCHAR2(50);
1116: l_default_gl_date DATE;
1117: BEGIN
1118: p_return_status := FND_API.G_RET_STS_SUCCESS;
1119: arp_util.debug('ar_deposit_lib_pvt.Default_gl_date() +' );
1120: IF p_gl_date IS NULL THEN
1121: IF (arp_util.validate_and_default_gl_date(
1122: p_entered_date,
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() -' );
1150: END default_gl_date;
1188: arp_util.debug('ar_deposit_lib_pvt.Find_Exchange_Rate() -' );
1189: EXCEPTION
1190: WHEN gl_currency_api.NO_RATE THEN
1191: --rate does not exist set appropriate message.
1192: --p_return_status := FND_API.G_RET_STS_ERROR ;
1193: return(null);
1194: arp_util.debug('Exception : gl_currency_api.NO_RATE ');
1195: WHEN gl_currency_api.INVALID_CURRENCY THEN
1196: -- invalid currency set appropriate message.
1193: return(null);
1194: arp_util.debug('Exception : gl_currency_api.NO_RATE ');
1195: WHEN gl_currency_api.INVALID_CURRENCY THEN
1196: -- invalid currency set appropriate message.
1197: --p_return_status := FND_API.G_RET_STS_ERROR ;
1198: return(null);
1199: arp_util.debug('Exception: gl_currency_api.INVALID_CURRENCY ');
1200: WHEN others THEN
1201: arp_util.debug('EXCEPTION: Find_Exchange_Rate() ');
1280: l_cross_rate NUMBER;
1281: l_conversion_rate NUMBER;
1282: BEGIN
1283: arp_util.debug('ar_deposit_lib_pvt.Default_Currency_info() +' );
1284: p_return_status := FND_API.G_RET_STS_SUCCESS;
1285:
1286: IF p_currency_code <> arp_global.functional_currency THEN
1287:
1288: --default exchange rate date if null
1308: );
1309: ELSE
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
1462: l_default_site_use varchar2(40);
1463:
1464: BEGIN
1465: arp_util.debug('ar_deposit_lib_pvt.Default_deposit_ids() +' );
1466: p_return_status := FND_API.G_RET_STS_SUCCESS;
1467: pg_deposit_date := p_deposit_date;
1468: l_bill_to_location := p_bill_to_location;
1469: l_ship_to_location := p_ship_to_location;
1470: l_default_site_use := nvl(FND_PROFILE.value('AR_TRX_DEFAULT_PRIM_SITE_USE'),'BILL_SHIP_TO');
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;
1492: ELSE
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:
1509: END IF;
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
1532:
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:
1550: END IF;
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
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;
1596:
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');
1614: FND_MSG_PUB.Add;
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;
1619:
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:
1654: END IF;
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:
1692: END IF;
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;
1715: /* ELSE
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
1722: IF p_cust_trx_type IS NOT NULL THEN
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;
1746:
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
1766: (p_bill_to_customer_number IS NOT NULL)
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
1778: (p_bill_to_customer_number IS NOT NULL)
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:
1791: END IF;
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: /*--------------------------------+
1808: | |
1821: cust.status <> 'I' and
1822: cust.party_id = party.party_id;
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
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
1860: (p_ship_to_customer_number IS NOT NULL)
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
1872: (p_ship_to_customer_number IS NOT NULL)
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:
1886: ELSE
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: /*--------------------------------+
1901: | |
1914: cust.status <> 'I' and
1915: cust.party_id = party.party_id;
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
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:
1944: -- find default for l_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:
1985:
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:
2026: -- default bill to from ship to if bill to is null
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:
2043:
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;
2062:
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
2085: p_bill_to_contact_last_name IS NOT NULL) OR
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:
2096: ELSE
2121: AND acct_role.cust_account_role_id = x_bill_to_contact_id;
2122:
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
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
2152: IF(p_ship_to_contact_first_name IS NOT NULL) and
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
2169: p_ship_to_contact_last_name IS NOT NULL) OR
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
2181: --validate x_ship_to_contact_id
2204: AND acct_role.cust_account_role_id = x_ship_to_contact_id;
2205:
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
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
2248: FROM ar_receipt_methods
2249: WHERE receipt_method_id = x_receipt_method_id;
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;
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
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:
2309: x_currency_code := arp_global.functional_currency;
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');
2355: Begin
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;
2374: ELSE
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;
2400:
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 )
2419: THEN
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
2430: p_sold_to_customer_number IS NOT NULL )
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 )
2443: THEN
2481: cust.status <> 'I' and
2482: cust.party_id = party.party_id;
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
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 )
2516: THEN
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
2527: p_paying_customer_number IS NOT NULL )
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;
2540: END IF;
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: /*--------------------------------+
2556: | |
2569: cust.status <> 'I' and
2570: cust.party_id = party.party_id;
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
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
2645: --raise warning that
2685: l_def_gl_dt_return_status VARCHAR2(1);
2686: l_def_comm_dt_return_status VARCHAR2(1);
2687: BEGIN
2688: arp_util.debug('ar_deposit_lib_pvt.Get_deposit_Defaults() +' );
2689: p_return_status := FND_API.G_RET_STS_SUCCESS;
2690: -- default the receipt date if NULL
2691: IF (p_deposit_date IS NULL)
2692: THEN
2693: Select trunc(sysdate)
2737: p_bill_to_customer_id,
2738: p_bill_to_site_use_id );
2739:
2740:
2741: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2742: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2743: l_def_comm_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2744: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS
2745: THEN
2738: p_bill_to_site_use_id );
2739:
2740:
2741: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2742: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2743: l_def_comm_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2744: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS
2745: THEN
2746: p_return_status := FND_API.G_RET_STS_ERROR;
2739:
2740:
2741: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2742: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2743: l_def_comm_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2744: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS
2745: THEN
2746: p_return_status := FND_API.G_RET_STS_ERROR;
2747: END IF;
2740:
2741: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2742: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2743: l_def_comm_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2744: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS
2745: THEN
2746: p_return_status := FND_API.G_RET_STS_ERROR;
2747: END IF;
2748: arp_util.debug('************Cash Defaults********************');
2742: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2743: l_def_comm_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2744: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS
2745: THEN
2746: p_return_status := FND_API.G_RET_STS_ERROR;
2747: END IF;
2748: arp_util.debug('************Cash Defaults********************');
2749: arp_util.debug('p_gl_date : '||to_char(p_gl_date,'DD-MON-YYYY'));
2750: arp_util.debug('p_deposit_date : '||
2781: arp_util.debug('SEQ : '||NVL( pg_profile_doc_seq, 'N'));
2782: arp_util.debug('p_document_name :'||p_document_name);
2783: arp_util.debug('p_application_id :'||to_char(p_application_id));
2784: arp_util.debug('p_sob_id :'||to_char(p_sob_id));
2785: p_return_status := FND_API.G_RET_STS_SUCCESS;
2786: IF ( NVL( pg_profile_doc_seq, 'N') <> 'N' )
2787: THEN
2788: BEGIN
2789: /*------------------------------+
2815: IF l_doc_seq_ret_stat = -8 THEN
2816: --this is the case of Always Used
2817: arp_util.debug('The doc sequence does not exist
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
2851: IF p_doc_sequence_value IS NOT NULL THEN
2852: --raise an error message because the user is
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;
2883: | Generate a document value mandatory |
2884: | error. |
2885: +-----------------------------------------*/
2886: IF NVL(pg_profile_doc_seq,'N') = 'A' THEN
2887: p_return_status := FND_API.G_RET_STS_ERROR;
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);
2911: | is mandatory. |
2912: +------------------------------------------*/
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;
2964: end get_flex_title;
2965: /* End FP Bug 5467022 SPDIXIT */
2966: BEGIN
2967: arp_util.debug('ar_deposit_lib_pvt.Validate_Desc_Flexfield() +' );
2968: p_return_status := FND_API.G_RET_STS_SUCCESS;
2969:
2970: OPEN desc_flex_exists;
2971: FETCH desc_flex_exists INTO l_flex_exists;
2972: IF desc_flex_exists%NOTFOUND THEN
2970: OPEN desc_flex_exists;
2971: FETCH desc_flex_exists INTO l_flex_exists;
2972: IF desc_flex_exists%NOTFOUND THEN
2973: CLOSE desc_flex_exists;
2974: p_return_status := FND_API.G_RET_STS_ERROR;
2975: return;
2976: END IF;
2977: CLOSE desc_flex_exists;
2978: /* Start FP Bug 5467022 */
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;
3026:
3066: IF i > l_count THEN
3067: EXIT;
3068: END IF;
3069: END LOOP;
3070: /* Below coded added for bug 5467021. Assigning appropriate columns values based on flex field name before call to fnd api for validation */
3071:
3072: ELSIF p_desc_flex_name = 'RA_INTERFACE_HEADER' THEN
3073: fnd_flex_descval.set_context_value(p_desc_flex_rec.attribute_category);
3074:
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;
3116:
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;
3204: