291: IF l_party_type <> p_entity_type THEN
292: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_PARTY_TYPE' );
293: FND_MESSAGE.SET_TOKEN( 'PARTY_ID', l_party_id);
294: FND_MESSAGE.SET_TOKEN( 'TYPE', p_entity_type);
295: FND_MSG_PUB.ADD;
296: RAISE FND_API.G_EXC_ERROR;
297: END IF;
298:
299: -- can go ahead and create an account for this existing party.
335: IF l_party_type <> p_entity_type THEN
336: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_PARTY_TYPE' );
337: FND_MESSAGE.SET_TOKEN( 'PARTY_ID', l_party_id);
338: FND_MESSAGE.SET_TOKEN( 'TYPE', p_entity_type);
339: FND_MSG_PUB.ADD;
340: RAISE FND_API.G_EXC_ERROR;
341: END IF;
342: EXCEPTION
343: WHEN NO_DATA_FOUND THEN
373: IF l_party_type <> p_entity_type THEN
374: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_INVALID_PARTY_TYPE' );
375: FND_MESSAGE.SET_TOKEN( 'PARTY_ID', l_party_id);
376: FND_MESSAGE.SET_TOKEN( 'TYPE', p_entity_type);
377: FND_MSG_PUB.ADD;
378: RAISE FND_API.G_EXC_ERROR;
379: END IF;
380: EXCEPTION
381: WHEN NO_DATA_FOUND THEN
627: THEN
628: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_COLUMN_SHOULD_BE_NULL' );
629: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'site_use_id' );
630: FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_customer_profiles' );
631: FND_MSG_PUB.ADD;
632: RAISE FND_API.G_EXC_ERROR;
633: END IF;
634:
635: p_customer_profile_rec.created_by_module := p_cust_account_rec.created_by_module;
790: p_object_version_number = l_object_version_number ) )
791: THEN
792: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
793: FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_cust_accounts' );
794: FND_MSG_PUB.ADD;
795: RAISE FND_API.G_EXC_ERROR;
796: END IF;
797:
798: p_object_version_number := NVL( l_object_version_number, 1 ) + 1;
802: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
803: FND_MESSAGE.SET_TOKEN( 'RECORD', 'customer account' );
804: FND_MESSAGE.SET_TOKEN( 'VALUE',
805: NVL( TO_CHAR( p_cust_account_rec.cust_account_id ), 'null' ) );
806: FND_MSG_PUB.ADD;
807: RAISE FND_API.G_EXC_ERROR;
808: END;
809:
810:
1297: WHEN NO_DATA_FOUND THEN
1298: FND_MESSAGE.SET_NAME('AR','HZ_API_NO_ACTIVE_RECORD');
1299: FND_MESSAGE.SET_TOKEN( 'ACCOUNT1',p_cust_acct_relate_rec.cust_account_id);
1300: FND_MESSAGE.SET_TOKEN( 'ACCOUNT2',p_cust_acct_relate_rec.related_cust_account_id);
1301: FND_MSG_PUB.ADD;
1302: x_return_status := FND_API.G_RET_STS_ERROR;
1303: RAISE FND_API.G_EXC_ERROR;
1304: END;
1305: ELSE --- Bug 3449118.
1316: WHEN NO_DATA_FOUND THEN
1317: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
1318: FND_MESSAGE.SET_TOKEN( 'RECORD', 'customer account relate' );
1319: FND_MESSAGE.SET_TOKEN( 'VALUE',p_rowid);
1320: FND_MSG_PUB.ADD;
1321: x_return_status := FND_API.G_RET_STS_ERROR;
1322: RAISE FND_API.G_EXC_ERROR;
1323: END;
1324: ELSE
1347: l_cust_account_id <> p_cust_acct_relate_rec.cust_account_id)
1348: THEN
1349: FND_MESSAGE.SET_NAME ('AR','HZ_API_NONUPDATEABLE_COLUMN');
1350: FND_MESSAGE.SET_TOKEN('COLUMN','CUST_ACCOUNT_ID');
1351: FND_MSG_PUB.ADD;
1352: x_return_status := FND_API.G_RET_STS_ERROR;
1353: END IF;
1354:
1355: -- related_cust_account_id is not updateable.
1358: l_related_cust_account_id <> p_cust_acct_relate_rec.related_cust_account_id)
1359: THEN
1360: FND_MESSAGE.SET_NAME ('AR','HZ_API_NONUPDATEABLE_COLUMN');
1361: FND_MESSAGE.SET_TOKEN('COLUMN','RELATED_CUST_ACCOUNT_ID');
1362: FND_MSG_PUB.ADD;
1363: x_return_status := FND_API.G_RET_STS_ERROR;
1364: END IF;
1365:
1366: -- If status is updated to Active
1379: IF l_count <> 0 THEN
1380: FND_MESSAGE.SET_NAME ('AR','HZ_ACTIVE_CUST_ACCT_RELATE');
1381: FND_MESSAGE.SET_TOKEN('ACCOUNT1',l_cust_account_id);
1382: FND_MESSAGE.SET_TOKEN('ACCOUNT2',l_related_cust_account_id);
1383: FND_MSG_PUB.ADD;
1384: x_return_status := FND_API.G_RET_STS_ERROR;
1385: END IF;
1386:
1387: END IF;
1390: WHEN NO_DATA_FOUND THEN
1391: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
1392: FND_MESSAGE.SET_TOKEN( 'RECORD', 'customer account relate' );
1393: FND_MESSAGE.SET_TOKEN( 'VALUE', l_cust_acct_relate_id);
1394: FND_MSG_PUB.ADD;
1395: x_return_status := FND_API.G_RET_STS_ERROR;
1396: RAISE FND_API.G_EXC_ERROR;
1397: END;
1398: END IF;
1404: p_object_version_number = l_object_version_number ) )
1405: THEN
1406: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_RECORD_CHANGED' );
1407: FND_MESSAGE.SET_TOKEN( 'TABLE', 'hz_cust_acct_relate' );
1408: FND_MSG_PUB.ADD;
1409: RAISE FND_API.G_EXC_ERROR;
1410: END IF;
1411:
1412: p_object_version_number := NVL( l_object_version_number, 1 ) + 1;
1571: END IF;
1572:
1573: -- Initialize message list if p_init_msg_list is set to TRUE.
1574: IF FND_API.to_Boolean(p_init_msg_list) THEN
1575: FND_MSG_PUB.initialize;
1576: END IF;
1577:
1578: -- Initialize API return status to success.
1579: x_return_status := FND_API.G_RET_STS_SUCCESS;
1628: -- Call to indicate account creation to DQM
1629: HZ_DQM_SYNC.sync_cust_account(l_cust_account_rec.CUST_ACCOUNT_ID,'C');
1630:
1631: -- Standard call to get message count and if count is 1, get message info.
1632: FND_MSG_PUB.Count_And_Get(
1633: p_encoded => FND_API.G_FALSE,
1634: p_count => x_msg_count,
1635: p_data => x_msg_data );
1636:
1654: WHEN FND_API.G_EXC_ERROR THEN
1655: ROLLBACK TO create_cust_account;
1656: x_return_status := FND_API.G_RET_STS_ERROR;
1657:
1658: FND_MSG_PUB.Count_And_Get(
1659: p_encoded => FND_API.G_FALSE,
1660: p_count => x_msg_count,
1661: p_data => x_msg_data );
1662:
1680: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1681: ROLLBACK TO create_cust_account;
1682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1683:
1684: FND_MSG_PUB.Count_And_Get(
1685: p_encoded => FND_API.G_FALSE,
1686: p_count => x_msg_count,
1687: p_data => x_msg_data );
1688:
1708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1709:
1710: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
1711: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1712: FND_MSG_PUB.ADD;
1713:
1714: FND_MSG_PUB.Count_And_Get(
1715: p_encoded => FND_API.G_FALSE,
1716: p_count => x_msg_count,
1710: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
1711: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1712: FND_MSG_PUB.ADD;
1713:
1714: FND_MSG_PUB.Count_And_Get(
1715: p_encoded => FND_API.G_FALSE,
1716: p_count => x_msg_count,
1717: p_data => x_msg_data );
1718:
1820: END IF;
1821:
1822: -- Initialize message list if p_init_msg_list is set to TRUE.
1823: IF FND_API.to_Boolean(p_init_msg_list) THEN
1824: FND_MSG_PUB.initialize;
1825: END IF;
1826:
1827: -- Initialize API return status to success.
1828: x_return_status := FND_API.G_RET_STS_SUCCESS;
1876: -- Call to indicate account creation to DQM
1877: HZ_DQM_SYNC.sync_cust_account(l_cust_account_rec.CUST_ACCOUNT_ID,'C');
1878:
1879: -- Standard call to get message count and if count is 1, get message info.
1880: FND_MSG_PUB.Count_And_Get(
1881: p_encoded => FND_API.G_FALSE,
1882: p_count => x_msg_count,
1883: p_data => x_msg_data );
1884:
1903: WHEN FND_API.G_EXC_ERROR THEN
1904: ROLLBACK TO create_cust_account;
1905: x_return_status := FND_API.G_RET_STS_ERROR;
1906:
1907: FND_MSG_PUB.Count_And_Get(
1908: p_encoded => FND_API.G_FALSE,
1909: p_count => x_msg_count,
1910: p_data => x_msg_data );
1911:
1929: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1930: ROLLBACK TO create_cust_account;
1931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1932:
1933: FND_MSG_PUB.Count_And_Get(
1934: p_encoded => FND_API.G_FALSE,
1935: p_count => x_msg_count,
1936: p_data => x_msg_data );
1937:
1957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1958:
1959: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
1960: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1961: FND_MSG_PUB.ADD;
1962:
1963: FND_MSG_PUB.Count_And_Get(
1964: p_encoded => FND_API.G_FALSE,
1965: p_count => x_msg_count,
1959: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
1960: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1961: FND_MSG_PUB.ADD;
1962:
1963: FND_MSG_PUB.Count_And_Get(
1964: p_encoded => FND_API.G_FALSE,
1965: p_count => x_msg_count,
1966: p_data => x_msg_data );
1967:
2057: END IF;
2058:
2059: -- Initialize message list if p_init_msg_list is set to TRUE.
2060: IF FND_API.to_Boolean(p_init_msg_list) THEN
2061: FND_MSG_PUB.initialize;
2062: END IF;
2063:
2064: -- Initialize API return status to success.
2065: x_return_status := FND_API.G_RET_STS_SUCCESS;
2132: -- Call to indicate account update to DQM
2133: HZ_DQM_SYNC.sync_cust_account(l_cust_account_rec.CUST_ACCOUNT_ID,'U');
2134:
2135: -- Standard call to get message count and if count is 1, get message info.
2136: FND_MSG_PUB.Count_And_Get(
2137: p_encoded => FND_API.G_FALSE,
2138: p_count => x_msg_count,
2139: p_data => x_msg_data );
2140:
2158: WHEN FND_API.G_EXC_ERROR THEN
2159: ROLLBACK TO update_cust_account;
2160: x_return_status := FND_API.G_RET_STS_ERROR;
2161:
2162: FND_MSG_PUB.Count_And_Get(
2163: p_encoded => FND_API.G_FALSE,
2164: p_count => x_msg_count,
2165: p_data => x_msg_data );
2166:
2184: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2185: ROLLBACK TO update_cust_account;
2186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2187:
2188: FND_MSG_PUB.Count_And_Get(
2189: p_encoded => FND_API.G_FALSE,
2190: p_count => x_msg_count,
2191: p_data => x_msg_data );
2192:
2212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2213:
2214: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2215: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2216: FND_MSG_PUB.ADD;
2217:
2218: FND_MSG_PUB.Count_And_Get(
2219: p_encoded => FND_API.G_FALSE,
2220: p_count => x_msg_count,
2214: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2215: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2216: FND_MSG_PUB.ADD;
2217:
2218: FND_MSG_PUB.Count_And_Get(
2219: p_encoded => FND_API.G_FALSE,
2220: p_count => x_msg_count,
2221: p_data => x_msg_data );
2222:
2298: END IF;
2299:
2300: -- Initialize message list if p_init_msg_list is set to TRUE.
2301: IF FND_API.to_Boolean(p_init_msg_list) THEN
2302: FND_MSG_PUB.initialize;
2303: END IF;
2304:
2305: -- Initialize message list if p_init_msg_list is set to TRUE.
2306: IF FND_API.to_Boolean(p_init_msg_list) THEN
2303: END IF;
2304:
2305: -- Initialize message list if p_init_msg_list is set to TRUE.
2306: IF FND_API.to_Boolean(p_init_msg_list) THEN
2307: FND_MSG_PUB.initialize;
2308: END IF;
2309:
2310: -- Initialize API return status to success.
2311: x_return_status := FND_API.G_RET_STS_SUCCESS;
2314: IF p_cust_account_id IS NULL OR
2315: p_cust_account_id = FND_API.G_MISS_NUM THEN
2316: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2317: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'cust_account_id' );
2318: FND_MSG_PUB.ADD;
2319: RAISE FND_API.G_EXC_ERROR;
2320: END IF;
2321:
2322: x_cust_account_rec.cust_account_id := p_cust_account_id;
2464: END IF;
2465: END IF;
2466:
2467: -- Standard call to get message count and if count is 1, get message info.
2468: FND_MSG_PUB.Count_And_Get(
2469: p_encoded => FND_API.G_FALSE,
2470: p_count => x_msg_count,
2471: p_data => x_msg_data );
2472:
2489: EXCEPTION
2490: WHEN FND_API.G_EXC_ERROR THEN
2491: x_return_status := FND_API.G_RET_STS_ERROR;
2492:
2493: FND_MSG_PUB.Count_And_Get(
2494: p_encoded => FND_API.G_FALSE,
2495: p_count => x_msg_count,
2496: p_data => x_msg_data );
2497:
2514:
2515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2517:
2518: FND_MSG_PUB.Count_And_Get(
2519: p_encoded => FND_API.G_FALSE,
2520: p_count => x_msg_count,
2521: p_data => x_msg_data );
2522:
2542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2543:
2544: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2545: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2546: FND_MSG_PUB.ADD;
2547:
2548: FND_MSG_PUB.Count_And_Get(
2549: p_encoded => FND_API.G_FALSE,
2550: p_count => x_msg_count,
2544: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2545: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2546: FND_MSG_PUB.ADD;
2547:
2548: FND_MSG_PUB.Count_And_Get(
2549: p_encoded => FND_API.G_FALSE,
2550: p_count => x_msg_count,
2551: p_data => x_msg_data );
2552:
2676: END IF;
2677:
2678: -- Initialize message list if p_init_msg_list is set to TRUE.
2679: IF FND_API.to_Boolean(p_init_msg_list) THEN
2680: FND_MSG_PUB.initialize;
2681: END IF;
2682:
2683: -- Initialize API return status to success.
2684: x_return_status := FND_API.G_RET_STS_SUCCESS;
2705: END IF;
2706: END IF;
2707:
2708: -- Standard call to get message count and if count is 1, get message info.
2709: FND_MSG_PUB.Count_And_Get(
2710: p_encoded => FND_API.G_FALSE,
2711: p_count => x_msg_count,
2712: p_data => x_msg_data );
2713:
2731: WHEN FND_API.G_EXC_ERROR THEN
2732: ROLLBACK TO create_cust_acct_relate;
2733: x_return_status := FND_API.G_RET_STS_ERROR;
2734:
2735: FND_MSG_PUB.Count_And_Get(
2736: p_encoded => FND_API.G_FALSE,
2737: p_count => x_msg_count,
2738: p_data => x_msg_data );
2739:
2757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2758: ROLLBACK TO create_cust_acct_relate;
2759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2760:
2761: FND_MSG_PUB.Count_And_Get(
2762: p_encoded => FND_API.G_FALSE,
2763: p_count => x_msg_count,
2764: p_data => x_msg_data );
2765:
2785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2786:
2787: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2788: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2789: FND_MSG_PUB.ADD;
2790:
2791: FND_MSG_PUB.Count_And_Get(
2792: p_encoded => FND_API.G_FALSE,
2793: p_count => x_msg_count,
2787: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2788: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2789: FND_MSG_PUB.ADD;
2790:
2791: FND_MSG_PUB.Count_And_Get(
2792: p_encoded => FND_API.G_FALSE,
2793: p_count => x_msg_count,
2794: p_data => x_msg_data );
2795:
2876: END IF;
2877:
2878: -- Initialize message list if p_init_msg_list is set to TRUE.
2879: IF FND_API.to_Boolean(p_init_msg_list) THEN
2880: FND_MSG_PUB.initialize;
2881: END IF;
2882:
2883: -- Initialize API return status to success.
2884: x_return_status := FND_API.G_RET_STS_SUCCESS;
2927: END IF;
2928: END IF;
2929:
2930: -- Standard call to get message count and if count is 1, get message info.
2931: FND_MSG_PUB.Count_And_Get(
2932: p_encoded => FND_API.G_FALSE,
2933: p_count => x_msg_count,
2934: p_data => x_msg_data );
2935:
2953: WHEN FND_API.G_EXC_ERROR THEN
2954: ROLLBACK TO update_cust_acct_relate;
2955: x_return_status := FND_API.G_RET_STS_ERROR;
2956:
2957: FND_MSG_PUB.Count_And_Get(
2958: p_encoded => FND_API.G_FALSE,
2959: p_count => x_msg_count,
2960: p_data => x_msg_data );
2961:
2979: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2980: ROLLBACK TO update_cust_acct_relate;
2981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2982:
2983: FND_MSG_PUB.Count_And_Get(
2984: p_encoded => FND_API.G_FALSE,
2985: p_count => x_msg_count,
2986: p_data => x_msg_data );
2987:
3007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3008:
3009: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3010: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3011: FND_MSG_PUB.ADD;
3012:
3013: FND_MSG_PUB.Count_And_Get(
3014: p_encoded => FND_API.G_FALSE,
3015: p_count => x_msg_count,
3009: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3010: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3011: FND_MSG_PUB.ADD;
3012:
3013: FND_MSG_PUB.Count_And_Get(
3014: p_encoded => FND_API.G_FALSE,
3015: p_count => x_msg_count,
3016: p_data => x_msg_data );
3017:
3104: END IF;
3105:
3106: -- Initialize message list if p_init_msg_list is set to TRUE.
3107: IF FND_API.to_Boolean(p_init_msg_list) THEN
3108: FND_MSG_PUB.initialize;
3109: END IF;
3110:
3111: -- Initialize API return status to success.
3112: x_return_status := FND_API.G_RET_STS_SUCCESS;
3154: END IF;
3155: END IF;
3156:
3157: -- Standard call to get message count and if count is 1, get message info.
3158: FND_MSG_PUB.Count_And_Get(
3159: p_encoded => FND_API.G_FALSE,
3160: p_count => x_msg_count,
3161: p_data => x_msg_data );
3162:
3180: WHEN FND_API.G_EXC_ERROR THEN
3181: ROLLBACK TO update_cust_acct_relate;
3182: x_return_status := FND_API.G_RET_STS_ERROR;
3183:
3184: FND_MSG_PUB.Count_And_Get(
3185: p_encoded => FND_API.G_FALSE,
3186: p_count => x_msg_count,
3187: p_data => x_msg_data );
3188:
3206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3207: ROLLBACK TO update_cust_acct_relate;
3208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3209:
3210: FND_MSG_PUB.Count_And_Get(
3211: p_encoded => FND_API.G_FALSE,
3212: p_count => x_msg_count,
3213: p_data => x_msg_data );
3214:
3234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3235:
3236: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3237: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3238: FND_MSG_PUB.ADD;
3239:
3240: FND_MSG_PUB.Count_And_Get(
3241: p_encoded => FND_API.G_FALSE,
3242: p_count => x_msg_count,
3236: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3237: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3238: FND_MSG_PUB.ADD;
3239:
3240: FND_MSG_PUB.Count_And_Get(
3241: p_encoded => FND_API.G_FALSE,
3242: p_count => x_msg_count,
3243: p_data => x_msg_data );
3244:
3325: END IF;
3326:
3327: -- Initialize message list if p_init_msg_list is set to TRUE.
3328: IF FND_API.to_Boolean(p_init_msg_list) THEN
3329: FND_MSG_PUB.initialize;
3330: END IF;
3331:
3332: -- Initialize API return status to success.
3333: x_return_status := FND_API.G_RET_STS_SUCCESS;
3338: IF p_cust_account_id IS NULL OR
3339: p_cust_account_id = FND_API.G_MISS_NUM THEN
3340: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3341: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'cust_account_id' );
3342: FND_MSG_PUB.ADD;
3343: RAISE FND_API.G_EXC_ERROR;
3344: END IF;
3345:
3346: IF p_related_cust_account_id IS NULL OR
3346: IF p_related_cust_account_id IS NULL OR
3347: p_related_cust_account_id = FND_API.G_MISS_NUM THEN
3348: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3349: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'related_cust_account_id' );
3350: FND_MSG_PUB.ADD;
3351: RAISE FND_API.G_EXC_ERROR;
3352: END IF;
3353: END IF;
3354:
3440: p_msg_level=>fnd_log.level_procedure);
3441: END IF;
3442:
3443: -- Standard call to get message count and if count is 1, get message info.
3444: FND_MSG_PUB.Count_And_Get(
3445: p_encoded => FND_API.G_FALSE,
3446: p_count => x_msg_count,
3447: p_data => x_msg_data );
3448:
3466: EXCEPTION
3467: WHEN FND_API.G_EXC_ERROR THEN
3468: x_return_status := FND_API.G_RET_STS_ERROR;
3469:
3470: FND_MSG_PUB.Count_And_Get(
3471: p_encoded => FND_API.G_FALSE,
3472: p_count => x_msg_count,
3473: p_data => x_msg_data );
3474:
3491:
3492: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3494:
3495: FND_MSG_PUB.Count_And_Get(
3496: p_encoded => FND_API.G_FALSE,
3497: p_count => x_msg_count,
3498: p_data => x_msg_data );
3499:
3518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3519:
3520: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3521: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3522: FND_MSG_PUB.ADD;
3523:
3524: FND_MSG_PUB.Count_And_Get(
3525: p_encoded => FND_API.G_FALSE,
3526: p_count => x_msg_count,
3520: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3521: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3522: FND_MSG_PUB.ADD;
3523:
3524: FND_MSG_PUB.Count_And_Get(
3525: p_encoded => FND_API.G_FALSE,
3526: p_count => x_msg_count,
3527: p_data => x_msg_data );
3528:
3579: p_cust_account_rec.account_activation_date <> p_old_cust_account_rec.account_activation_date)
3580: THEN
3581: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3582: FND_MESSAGE.SET_TOKEN('COLUMN', 'account_activation_date');
3583: FND_MSG_PUB.ADD;
3584: x_return_status := FND_API.G_RET_STS_ERROR;
3585: END IF;
3586:
3587: -- check account_liable_flag
3593: p_cust_account_rec.account_liable_flag <> p_old_cust_account_rec.account_liable_flag)
3594: THEN
3595: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3596: FND_MESSAGE.SET_TOKEN('COLUMN', 'account_liable_flag');
3597: FND_MSG_PUB.ADD;
3598: x_return_status := FND_API.G_RET_STS_ERROR;
3599: END IF;
3600:
3601: -- check account_termination_date
3607: p_cust_account_rec.account_termination_date <> p_old_cust_account_rec.account_termination_date)
3608: THEN
3609: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3610: FND_MESSAGE.SET_TOKEN('COLUMN', 'account_termination_date');
3611: FND_MSG_PUB.ADD;
3612: x_return_status := FND_API.G_RET_STS_ERROR;
3613: END IF;
3614:
3615: -- check acct_life_cycle_status
3621: p_cust_account_rec.acct_life_cycle_status <> p_old_cust_account_rec.acct_life_cycle_status)
3622: THEN
3623: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3624: FND_MESSAGE.SET_TOKEN('COLUMN', 'acct_life_cycle_status');
3625: FND_MSG_PUB.ADD;
3626: x_return_status := FND_API.G_RET_STS_ERROR;
3627: END IF;
3628:
3629: -- check current_balance
3635: p_cust_account_rec.current_balance <> p_old_cust_account_rec.current_balance)
3636: THEN
3637: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3638: FND_MESSAGE.SET_TOKEN('COLUMN', 'current_balance');
3639: FND_MSG_PUB.ADD;
3640: x_return_status := FND_API.G_RET_STS_ERROR;
3641: END IF;
3642:
3643: -- check department
3649: p_cust_account_rec.department <> p_old_cust_account_rec.department)
3650: THEN
3651: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3652: FND_MESSAGE.SET_TOKEN('COLUMN', 'department');
3653: FND_MSG_PUB.ADD;
3654: x_return_status := FND_API.G_RET_STS_ERROR;
3655: END IF;
3656:
3657: -- check dormant_account_flag
3663: p_cust_account_rec.dormant_account_flag <> p_old_cust_account_rec.dormant_account_flag)
3664: THEN
3665: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3666: FND_MESSAGE.SET_TOKEN('COLUMN', 'dormant_account_flag');
3667: FND_MSG_PUB.ADD;
3668: x_return_status := FND_API.G_RET_STS_ERROR;
3669: END IF;
3670:
3671: -- check notify_flag
3677: p_cust_account_rec.notify_flag <> p_old_cust_account_rec.notify_flag)
3678: THEN
3679: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3680: FND_MESSAGE.SET_TOKEN('COLUMN', 'notify_flag');
3681: FND_MSG_PUB.ADD;
3682: x_return_status := FND_API.G_RET_STS_ERROR;
3683: END IF;
3684:
3685: -- check order_type_id
3691: p_cust_account_rec.order_type_id <> p_old_cust_account_rec.order_type_id)
3692: THEN
3693: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3694: FND_MESSAGE.SET_TOKEN('COLUMN', 'order_type_id');
3695: FND_MSG_PUB.ADD;
3696: x_return_status := FND_API.G_RET_STS_ERROR;
3697: END IF;
3698:
3699: -- check primary_salesrep_id
3705: p_cust_account_rec.primary_salesrep_id <> p_old_cust_account_rec.primary_salesrep_id)
3706: THEN
3707: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3708: FND_MESSAGE.SET_TOKEN('COLUMN', 'primary_salesrep_id');
3709: FND_MSG_PUB.ADD;
3710: x_return_status := FND_API.G_RET_STS_ERROR;
3711: END IF;
3712:
3713: -- check realtime_rate_flag
3719: p_cust_account_rec.realtime_rate_flag <> p_old_cust_account_rec.realtime_rate_flag)
3720: THEN
3721: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3722: FND_MESSAGE.SET_TOKEN('COLUMN', 'realtime_rate_flag');
3723: FND_MSG_PUB.ADD;
3724: x_return_status := FND_API.G_RET_STS_ERROR;
3725: END IF;
3726:
3727: -- check suspension_date
3733: p_cust_account_rec.suspension_date <> p_old_cust_account_rec.suspension_date)
3734: THEN
3735: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3736: FND_MESSAGE.SET_TOKEN('COLUMN', 'suspension_date');
3737: FND_MSG_PUB.ADD;
3738: x_return_status := FND_API.G_RET_STS_ERROR;
3739: END IF;
3740:
3741: -- check tax_code
3748: p_cust_account_rec.tax_code <> p_old_cust_account_rec.tax_code)
3749: THEN
3750: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OBSOLETE_COLUMN');
3751: FND_MESSAGE.SET_TOKEN('COLUMN', 'tax_code');
3752: FND_MSG_PUB.ADD;
3753: x_return_status := FND_API.G_RET_STS_ERROR;
3754: END IF;
3755: */
3756: END check_obsolete_columns;