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;
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() -' );
441: END Default_commitment_Date;
463: AND NVL(st.end_date_active(+), p_deposit_date );
464: BEGIN
465:
466: arp_util.debug('ar_deposit_lib_pvt.Get_Territory_id() +' );
467: p_return_status := FND_API.G_RET_STS_SUCCESS;
468: begin
469: select DEFAULT_TERRITORY
470: into l_territory_default
471: from ar_system_parameters;
554: l_Ship_Via_ship_site_default VARCHAR2(100):=NULL;
555: l_Ship_Via_bill_site_default VARCHAR2(100):=NULL;
556:
557: BEGIN
558: p_return_status := FND_API.G_RET_STS_SUCCESS;
559: arp_util.debug('ar_deposit_lib_pvt.Get_Ship_Via() +' );
560:
561: IF p_ship_to_customer_id IS NOT NULL AND
562: p_ship_to_location IS NOT NULL
672:
673: BEGIN
674:
675: arp_util.debug('ar_deposit_lib_pvt.Get_FOB_POINT() +' );
676: p_return_status := FND_API.G_RET_STS_SUCCESS;
677:
678: IF p_ship_to_customer_id IS NOT NULL AND
679: p_ship_to_location IS NOT NULL
680: THEN
815: when no_data_found then
816: l_selected_id := null;
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
979: l_index BINARY_INTEGER;
980: BEGIN
981:
982: arp_util.debug('ar_deposit_lib_pvt.Get_Site_Use_Id() +' );
983: p_return_status := FND_API.G_RET_STS_SUCCESS;
984: IF p_customer_id IS NOT NULL THEN
985: IF (p_location IS NOT NULL) THEN
986: BEGIN
987:
1001: EXCEPTION
1002: WHEN no_data_found THEN
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:
1036: --This is the case where customer site use id is null
1037: --neither it was supplied by the user nor it could be defaulted
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:
1074: THEN
1075: RETURN(NULL);
1076: END IF;
1077:
1078: p_return_status := FND_API.G_RET_STS_SUCCESS;
1079:
1080: l_id_from_name := Get_Id(p_entity||'_NAME',
1081: p_name_value,
1082: p_return_status
1112: l_error_message VARCHAR2(128);
1113: l_defaulting_rule_used VARCHAR2(50);
1114: l_default_gl_date DATE;
1115: BEGIN
1116: p_return_status := FND_API.G_RET_STS_SUCCESS;
1117: arp_util.debug('ar_deposit_lib_pvt.Default_gl_date() +' );
1118: IF p_gl_date IS NULL THEN
1119: IF (arp_util.validate_and_default_gl_date(
1120: p_entered_date,
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() -' );
1148: END default_gl_date;
1186: arp_util.debug('ar_deposit_lib_pvt.Find_Exchange_Rate() -' );
1187: EXCEPTION
1188: WHEN gl_currency_api.NO_RATE THEN
1189: --rate does not exist set appropriate message.
1190: --p_return_status := FND_API.G_RET_STS_ERROR ;
1191: return(null);
1192: arp_util.debug('Exception : gl_currency_api.NO_RATE ');
1193: WHEN gl_currency_api.INVALID_CURRENCY THEN
1194: -- invalid currency set appropriate message.
1191: return(null);
1192: arp_util.debug('Exception : gl_currency_api.NO_RATE ');
1193: WHEN gl_currency_api.INVALID_CURRENCY THEN
1194: -- invalid currency set appropriate message.
1195: --p_return_status := FND_API.G_RET_STS_ERROR ;
1196: return(null);
1197: arp_util.debug('Exception: gl_currency_api.INVALID_CURRENCY ');
1198: WHEN others THEN
1199: arp_util.debug('EXCEPTION: Find_Exchange_Rate() ');
1278: l_cross_rate NUMBER;
1279: l_conversion_rate NUMBER;
1280: BEGIN
1281: arp_util.debug('ar_deposit_lib_pvt.Default_Currency_info() +' );
1282: p_return_status := FND_API.G_RET_STS_SUCCESS;
1283:
1284: IF p_currency_code <> arp_global.functional_currency THEN
1285:
1286: --default exchange rate date if null
1306: );
1307: ELSE
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
1460:
1461:
1462: BEGIN
1463: arp_util.debug('ar_deposit_lib_pvt.Default_deposit_ids() +' );
1464: p_return_status := FND_API.G_RET_STS_SUCCESS;
1465: pg_deposit_date := p_deposit_date;
1466: l_bill_to_location := p_bill_to_location;
1467: l_ship_to_location := p_ship_to_location;
1468:
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;
1490: ELSE
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:
1507: END IF;
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
1530:
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:
1548: END IF;
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
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;
1594:
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');
1612: FND_MSG_PUB.Add;
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;
1617:
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:
1652: END IF;
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:
1690: END IF;
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;
1713: /* ELSE
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
1720: IF p_cust_trx_type IS NOT NULL THEN
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;
1744:
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
1764: (p_bill_to_customer_number IS NOT NULL)
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
1776: (p_bill_to_customer_number IS NOT NULL)
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:
1789: END IF;
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: /*--------------------------------+
1806: | |
1819: cust.status <> 'I' and
1820: cust.party_id = party.party_id;
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
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
1858: (p_ship_to_customer_number IS NOT NULL)
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
1870: (p_ship_to_customer_number IS NOT NULL)
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:
1884: ELSE
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: /*--------------------------------+
1899: | |
1912: cust.status <> 'I' and
1913: cust.party_id = party.party_id;
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
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:
1942: -- find default for l_bill_to_location
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;
2038:
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
2061: p_bill_to_contact_last_name IS NOT NULL) OR
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:
2072: ELSE
2097: AND acct_role.cust_account_role_id = x_bill_to_contact_id;
2098:
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
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
2128: IF(p_ship_to_contact_first_name IS NOT NULL) and
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
2145: p_ship_to_contact_last_name IS NOT NULL) OR
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
2157: --validate x_ship_to_contact_id
2180: AND acct_role.cust_account_role_id = x_ship_to_contact_id;
2181:
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
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
2224: FROM ar_receipt_methods
2225: WHERE receipt_method_id = x_receipt_method_id;
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;
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
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:
2285: x_currency_code := arp_global.functional_currency;
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');
2329: Begin
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;
2348: ELSE
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;
2374:
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 )
2393: THEN
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
2404: p_sold_to_customer_number IS NOT NULL )
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 )
2417: THEN
2455: cust.status <> 'I' and
2456: cust.party_id = party.party_id;
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
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 )
2490: THEN
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
2501: p_paying_customer_number IS NOT NULL )
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;
2514: END IF;
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: /*--------------------------------+
2530: | |
2543: cust.status <> 'I' and
2544: cust.party_id = party.party_id;
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
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
2619: --raise warning that
2659: l_def_gl_dt_return_status VARCHAR2(1);
2660: l_def_comm_dt_return_status VARCHAR2(1);
2661: BEGIN
2662: arp_util.debug('ar_deposit_lib_pvt.Get_deposit_Defaults() +' );
2663: p_return_status := FND_API.G_RET_STS_SUCCESS;
2664: -- default the receipt date if NULL
2665: IF (p_deposit_date IS NULL)
2666: THEN
2667: Select trunc(sysdate)
2711: p_bill_to_customer_id,
2712: p_bill_to_site_use_id );
2713:
2714:
2715: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2716: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2717: l_def_comm_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2718: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS
2719: THEN
2712: p_bill_to_site_use_id );
2713:
2714:
2715: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2716: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2717: l_def_comm_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2718: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS
2719: THEN
2720: p_return_status := FND_API.G_RET_STS_ERROR;
2713:
2714:
2715: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2716: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2717: l_def_comm_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2718: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS
2719: THEN
2720: p_return_status := FND_API.G_RET_STS_ERROR;
2721: END IF;
2714:
2715: IF l_def_rm_return_status <> FND_API.G_RET_STS_SUCCESS OR
2716: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2717: l_def_comm_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2718: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS
2719: THEN
2720: p_return_status := FND_API.G_RET_STS_ERROR;
2721: END IF;
2722: arp_util.debug('************Cash Defaults********************');
2716: l_def_gl_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2717: l_def_comm_dt_return_status <> FND_API.G_RET_STS_SUCCESS OR
2718: l_def_curr_return_status <> FND_API.G_RET_STS_SUCCESS
2719: THEN
2720: p_return_status := FND_API.G_RET_STS_ERROR;
2721: END IF;
2722: arp_util.debug('************Cash Defaults********************');
2723: arp_util.debug('p_gl_date : '||to_char(p_gl_date,'DD-MON-YYYY'));
2724: arp_util.debug('p_deposit_date : '||
2755: arp_util.debug('SEQ : '||NVL( pg_profile_doc_seq, 'N'));
2756: arp_util.debug('p_document_name :'||p_document_name);
2757: arp_util.debug('p_application_id :'||to_char(p_application_id));
2758: arp_util.debug('p_sob_id :'||to_char(p_sob_id));
2759: p_return_status := FND_API.G_RET_STS_SUCCESS;
2760: IF ( NVL( pg_profile_doc_seq, 'N') <> 'N' )
2761: THEN
2762: BEGIN
2763: /*------------------------------+
2789: IF l_doc_seq_ret_stat = -8 THEN
2790: --this is the case of Always Used
2791: arp_util.debug('The doc sequence does not exist
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
2825: IF p_doc_sequence_value IS NOT NULL THEN
2826: --raise an error message because the user is
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;
2857: | Generate a document value mandatory |
2858: | error. |
2859: +-----------------------------------------*/
2860: IF NVL(pg_profile_doc_seq,'N') = 'A' THEN
2861: p_return_status := FND_API.G_RET_STS_ERROR;
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);
2885: | is mandatory. |
2886: +------------------------------------------*/
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;
2938: end get_flex_title;
2939: /* End FP Bug 5467022 SPDIXIT */
2940: BEGIN
2941: arp_util.debug('ar_deposit_lib_pvt.Validate_Desc_Flexfield() +' );
2942: p_return_status := FND_API.G_RET_STS_SUCCESS;
2943:
2944: OPEN desc_flex_exists;
2945: FETCH desc_flex_exists INTO l_flex_exists;
2946: IF desc_flex_exists%NOTFOUND THEN
2944: OPEN desc_flex_exists;
2945: FETCH desc_flex_exists INTO l_flex_exists;
2946: IF desc_flex_exists%NOTFOUND THEN
2947: CLOSE desc_flex_exists;
2948: p_return_status := FND_API.G_RET_STS_ERROR;
2949: return;
2950: END IF;
2951: CLOSE desc_flex_exists;
2952: /* Start FP Bug 5467022 */
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;
3000:
3040: IF i > l_count THEN
3041: EXIT;
3042: END IF;
3043: END LOOP;
3044: /* Below coded added for bug 5467021. Assigning appropriate columns values based on flex field name before call to fnd api for validation */
3045:
3046: ELSIF p_desc_flex_name = 'RA_INTERFACE_HEADER' THEN
3047: fnd_flex_descval.set_context_value(p_desc_flex_rec.attribute_category);
3048:
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;
3090:
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;
3178: