154: x_formatted_lines_cnt => l_formatted_lines_cnt,
155: x_formatted_address_tbl => l_formatted_address_tbl
156: );
157:
158: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
159: return l_formatted_address;
160: ELSE
161: return( arxtw_format_address( address_style,
162: address1,
323: res_date date;
324: BEGIN
325: IF p_switch = 'NULL_GMISS' THEN
326: IF p_date IS NULL THEN
327: res_date := FND_API.G_MISS_DATE;
328: ELSE
329: res_date := p_date;
330: END IF;
331: ELSIF p_switch = 'GMISS_NULL' THEN
328: ELSE
329: res_date := p_date;
330: END IF;
331: ELSIF p_switch = 'GMISS_NULL' THEN
332: IF p_date = FND_API.G_MISS_DATE THEN
333: res_date := NULL;
334: ELSE
335: res_date := p_date;
336: END IF;
348: res_char varchar2(2000);
349: BEGIN
350: IF p_switch = 'NULL_GMISS' THEN
351: IF p_char IS NULL THEN
352: return FND_API.G_MISS_CHAR;
353: ELSE
354: return p_char;
355: END IF;
356: ELSIF p_switch = 'GMISS_NULL' THEN
353: ELSE
354: return p_char;
355: END IF;
356: ELSIF p_switch = 'GMISS_NULL' THEN
357: IF p_char = FND_API.G_MISS_CHAR THEN
358: return NULL;
359: ELSE
360: return p_char;
361: END IF;
371: IS
372: BEGIN
373: IF p_switch = 'NULL_GMISS' THEN
374: IF p_num IS NULL THEN
375: return FND_API.G_MISS_NUM;
376: ELSE
377: return p_num;
378: END IF;
379: ELSIF p_switch = 'GMISS_NULL' THEN
376: ELSE
377: return p_num;
378: END IF;
379: ELSIF p_switch = 'GMISS_NULL' THEN
380: IF p_num = FND_API.G_MISS_NUM THEN
381: return NULL;
382: ELSE
383: return p_num;
384: END IF;
1168: x_msg_data => x_msg_data );
1169:
1170: IF x_msg_count > 1 THEN
1171: FOR i IN 1..x_msg_count LOOP
1172: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1173: tmp_var1 := tmp_var1 || ' '|| tmp_var;
1174: END LOOP;
1175: x_msg_data := tmp_var1;
1176: END IF;
1174: END LOOP;
1175: x_msg_data := tmp_var1;
1176: END IF;
1177:
1178: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1179: return;
1180: END IF;
1181:
1182:
1189: x_msg_data => x_msg_data );
1190:
1191: IF x_msg_count > 1 THEN
1192: FOR i IN 1..x_msg_count LOOP
1193: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1194: tmp_var1 := tmp_var1 || ' '|| tmp_var;
1195: END LOOP;
1196: x_msg_data := tmp_var1;
1197: END IF;
1195: END LOOP;
1196: x_msg_data := tmp_var1;
1197: END IF;
1198:
1199: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1200: return;
1201: END IF;
1202:
1203:
1211: IF x_update_account_site = 'Y' THEN
1212:
1213: HZ_TAX_ASSIGNMENT_V2PUB.create_loc_assignment(
1214: p_location_id => x_location_id,
1215: p_lock_flag => FND_API.G_TRUE,
1216: p_created_by_module => 'FORM-WRAPPER',
1217: p_application_id => -222,
1218: x_return_status => x_return_status,
1219: x_msg_count => x_msg_count,
1221: x_loc_id => x_loc_id );
1222:
1223: IF x_msg_count > 1 THEN
1224: FOR i IN 1..x_msg_count LOOP
1225: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1226: tmp_var1 := tmp_var1 || ' '|| tmp_var;
1227: END LOOP;
1228: x_msg_data := tmp_var1;
1229: END IF;
1227: END LOOP;
1228: x_msg_data := tmp_var1;
1229: END IF;
1230:
1231: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1232: return;
1233: END IF;
1234:
1235:
1258: x_msg_data => x_msg_data );
1259:
1260: IF x_msg_count > 1 THEN
1261: FOR i IN 1..x_msg_count LOOP
1262: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1263: tmp_var1 := tmp_var1 || ' '|| tmp_var;
1264: END LOOP;
1265: x_msg_data := tmp_var1;
1266: END IF;
1264: END LOOP;
1265: x_msg_data := tmp_var1;
1266: END IF;
1267:
1268: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1269: return;
1270: END IF;
1271:
1272:
1489: --
1490: --
1491: BEGIN
1492:
1493: x_return_status := FND_API.G_RET_STS_SUCCESS;
1494:
1495: -----------------------------------------------------------------------
1496: --{ For Backward compatibility when Object Version Number is not entered
1497: -----------------------------------------------------------------------
1509: FND_MESSAGE.SET_NAME('AR','HZ_API_NO_RECORD');
1510: FND_MESSAGE.SET_TOKEN('RECORD','hz_locations');
1511: FND_MESSAGE.SET_TOKEN('ID',x_location_id);
1512: FND_MSG_PUB.ADD;
1513: x_return_status := FND_API.G_RET_STS_ERROR;
1514: ELSE
1515: l_object_version_location := l_object_version_number;
1516: END IF;
1517: CLOSE cu_version_location;
1521: THEN
1522: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1523: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_locations');
1524: FND_MSG_PUB.ADD;
1525: x_return_status := FND_API.G_RET_STS_ERROR;
1526: END IF;
1527: ELSE
1528: l_object_version_location := x_object_version_location;
1529: END IF;
1527: ELSE
1528: l_object_version_location := x_object_version_location;
1529: END IF;
1530: --
1531: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1532: RAISE FND_API.G_EXC_ERROR;
1533: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1535: END IF;
1528: l_object_version_location := x_object_version_location;
1529: END IF;
1530: --
1531: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1532: RAISE FND_API.G_EXC_ERROR;
1533: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1535: END IF;
1536:
1529: END IF;
1530: --
1531: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1532: RAISE FND_API.G_EXC_ERROR;
1533: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1535: END IF;
1536:
1537: -------------
1530: --
1531: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1532: RAISE FND_API.G_EXC_ERROR;
1533: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1535: END IF;
1536:
1537: -------------
1538: -- Party Site
1547: FND_MESSAGE.SET_NAME('AR','HZ_API_NO_RECORD');
1548: FND_MESSAGE.SET_TOKEN('RECORD','hz_party_sites');
1549: FND_MESSAGE.SET_TOKEN('ID',x_party_site_id);
1550: FND_MSG_PUB.ADD;
1551: x_return_status := FND_API.G_RET_STS_ERROR;
1552: ELSE
1553: l_object_version_party_site := l_object_version_number;
1554: END IF;
1555: CLOSE cu_version_party_site;
1559: THEN
1560: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1561: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_party_sites');
1562: FND_MSG_PUB.ADD;
1563: x_return_status := FND_API.G_RET_STS_ERROR;
1564: END IF;
1565: ELSE
1566: l_object_version_party_site := x_object_version_party_site;
1567: END IF;
1568: --
1569:
1570: IF x_msg_count > 1 THEN
1571: FOR i IN 1..x_msg_count LOOP
1572: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1573: tmp_var1 := tmp_var1 || ' '|| tmp_var;
1574: END LOOP;
1575: x_msg_data := tmp_var1;
1576: END IF;
1574: END LOOP;
1575: x_msg_data := tmp_var1;
1576: END IF;
1577:
1578: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1579: return;
1580: END IF;
1581:
1582:
1594: FND_MESSAGE.SET_NAME('AR','HZ_API_NO_RECORD');
1595: FND_MESSAGE.SET_TOKEN('RECORD','hz_cust_acct_sites');
1596: FND_MESSAGE.SET_TOKEN('ID',x_cust_acct_site_id);
1597: FND_MSG_PUB.ADD;
1598: x_return_status := FND_API.G_RET_STS_ERROR;
1599: ELSE
1600: l_object_version_account_site := l_object_version_number;
1601: END IF;
1602: CLOSE cu_version_account_site;
1606: THEN
1607: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1608: FND_MESSAGE.SET_TOKEN('TABLE', 'hz_account_sites');
1609: FND_MSG_PUB.ADD;
1610: x_return_status := FND_API.G_RET_STS_ERROR;
1611: END IF;
1612: ELSE
1613: l_object_version_account_site := x_object_version;
1614: END IF;
1614: END IF;
1615: --
1616: IF x_msg_count > 1 THEN
1617: FOR i IN 1..x_msg_count LOOP
1618: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1619: tmp_var1 := tmp_var1 || ' '|| tmp_var;
1620: END LOOP;
1621: x_msg_data := tmp_var1;
1622: END IF;
1620: END LOOP;
1621: x_msg_data := tmp_var1;
1622: END IF;
1623:
1624: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1625: return;
1626: END IF;
1627:
1628:
1703: x_msg_count => x_msg_count);
1704:
1705: IF x_msg_count > 1 THEN
1706: FOR i IN 1..x_msg_count LOOP
1707: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1708: tmp_var1 := tmp_var1 || ' '|| tmp_var;
1709: END LOOP;
1710: x_msg_data := tmp_var1;
1711: END IF;
1710: x_msg_data := tmp_var1;
1711: END IF;
1712: --}
1713:
1714: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1715: return;
1716: END IF;
1717: --}
1718:
1828: x_msg_data => x_msg_data );
1829:
1830: IF x_msg_count > 1 THEN
1831: FOR i IN 1..x_msg_count LOOP
1832: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1833: tmp_var1 := tmp_var1 || ' '|| tmp_var;
1834: END LOOP;
1835: x_msg_data := tmp_var1;
1836: END IF;
1834: END LOOP;
1835: x_msg_data := tmp_var1;
1836: END IF;
1837:
1838: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1839: return;
1840: END IF;
1841:
1842: SELECT last_update_date
1855: x_msg_data => x_msg_data );
1856:
1857: IF x_msg_count > 1 THEN
1858: FOR i IN 1..x_msg_count LOOP
1859: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1860: tmp_var1 := tmp_var1 || ' '|| tmp_var;
1861: END LOOP;
1862: x_msg_data := tmp_var1;
1863: END IF;
1861: END LOOP;
1862: x_msg_data := tmp_var1;
1863: END IF;
1864:
1865: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1866: return;
1867: END IF;
1868:
1869: SELECT last_update_date
1882: x_msg_data => x_msg_data );
1883:
1884: IF x_msg_count > 1 THEN
1885: FOR i IN 1..x_msg_count LOOP
1886: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
1887: tmp_var1 := tmp_var1 || ' '|| tmp_var;
1888: END LOOP;
1889: x_msg_data := tmp_var1;
1890: END IF;
1888: END LOOP;
1889: x_msg_data := tmp_var1;
1890: END IF;
1891:
1892: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1893: return;
1894: END IF;
1895:
1896: SELECT last_update_date
2453:
2454: -- changed to call transaction_morg_exists
2455: IF transaction_morg_exists(l_address_id,l_customer_id) THEN
2456: -- transaction existing printed
2457: x_return_status := fnd_api.g_ret_sts_error;
2458: FND_MESSAGE.SET_NAME( 'AR','4600');
2459: FND_MSG_PUB.ADD;
2460: FND_MSG_PUB.Count_And_Get(
2461: p_encoded => FND_API.G_FALSE,
2457: x_return_status := fnd_api.g_ret_sts_error;
2458: FND_MESSAGE.SET_NAME( 'AR','4600');
2459: FND_MSG_PUB.ADD;
2460: FND_MSG_PUB.Count_And_Get(
2461: p_encoded => FND_API.G_FALSE,
2462: p_count => x_msg_count,
2463: p_data => x_msg_data);
2464: EXIT;
2465: END IF;
2475: --
2476: EXCEPTION
2477: WHEN AR_NO_ROW_IN_SYSTEM_PARAMETERS THEN
2478: IF c_org_for_loc%ISOPEN THEN CLOSE c_org_for_loc; END IF;
2479: x_return_status := fnd_api.g_ret_sts_error;
2480: FND_MESSAGE.SET_NAME( 'AR','AR_NO_ROW_IN_SYSTEM_PARAMETERS');
2481: FND_MSG_PUB.ADD;
2482: FND_MSG_PUB.Count_And_Get(
2483: p_encoded => FND_API.G_FALSE,
2479: x_return_status := fnd_api.g_ret_sts_error;
2480: FND_MESSAGE.SET_NAME( 'AR','AR_NO_ROW_IN_SYSTEM_PARAMETERS');
2481: FND_MSG_PUB.ADD;
2482: FND_MSG_PUB.Count_And_Get(
2483: p_encoded => FND_API.G_FALSE,
2484: p_count => x_msg_count,
2485: p_data => x_msg_data);
2486: WHEN OTHERS THEN
2487: IF c_org_for_loc%ISOPEN THEN CLOSE c_org_for_loc; END IF;
2484: p_count => x_msg_count,
2485: p_data => x_msg_data);
2486: WHEN OTHERS THEN
2487: IF c_org_for_loc%ISOPEN THEN CLOSE c_org_for_loc; END IF;
2488: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2489: FND_MESSAGE.SET_NAME( 'FND','FND_GENERIC_MESSAGE');
2490: FND_MESSAGE.SET_TOKEN('MESSAGE',SQLERRM);
2491: FND_MSG_PUB.ADD;
2492: FND_MSG_PUB.Count_And_Get(
2489: FND_MESSAGE.SET_NAME( 'FND','FND_GENERIC_MESSAGE');
2490: FND_MESSAGE.SET_TOKEN('MESSAGE',SQLERRM);
2491: FND_MSG_PUB.ADD;
2492: FND_MSG_PUB.Count_And_Get(
2493: p_encoded => FND_API.G_FALSE,
2494: p_count => x_msg_count,
2495: p_data => x_msg_data);
2496: END check_printed_trx;
2497:
2581: tmp_var VARCHAR2(2000);
2582: tmp_var1 VARCHAR2(2000);
2583: BEGIN
2584: arp_standard.debug('check_printed_trx +');
2585: x_return_status := FND_API.G_RET_STS_SUCCESS;
2586: x_printed_trx_loc_modified := 'N';
2587: --Check system option
2588: /* Commented for bug 4605384*/
2589: /*
2681: --
2682: EXCEPTION
2683: WHEN AR_NO_ROW_IN_SYSTEM_PARAMETERS THEN
2684: IF c_org_for_loc%ISOPEN THEN CLOSE c_org_for_loc; END IF;
2685: x_return_status := fnd_api.g_ret_sts_error;
2686: FND_MESSAGE.SET_NAME( 'AR','AR_NO_ROW_IN_SYSTEM_PARAMETERS');
2687: FND_MSG_PUB.ADD;
2688: FND_MSG_PUB.Count_And_Get(
2689: p_encoded => FND_API.G_FALSE,
2685: x_return_status := fnd_api.g_ret_sts_error;
2686: FND_MESSAGE.SET_NAME( 'AR','AR_NO_ROW_IN_SYSTEM_PARAMETERS');
2687: FND_MSG_PUB.ADD;
2688: FND_MSG_PUB.Count_And_Get(
2689: p_encoded => FND_API.G_FALSE,
2690: p_count => x_msg_count,
2691: p_data => x_msg_data);
2692: arp_standard.debug('EXCEPTION AR_NO_ROW_IN_SYSTEM_PARAMETERS in check_printed_trx');
2693: IF x_msg_count > 1 THEN
2691: p_data => x_msg_data);
2692: arp_standard.debug('EXCEPTION AR_NO_ROW_IN_SYSTEM_PARAMETERS in check_printed_trx');
2693: IF x_msg_count > 1 THEN
2694: FOR i IN 1..x_msg_count LOOP
2695: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
2696: tmp_var1 := tmp_var1 || ' '|| tmp_var;
2697: END LOOP;
2698: x_msg_data := tmp_var1;
2699: END IF;
2698: x_msg_data := tmp_var1;
2699: END IF;
2700: WHEN OTHERS THEN
2701: IF c_org_for_loc%ISOPEN THEN CLOSE c_org_for_loc; END IF;
2702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2703: FND_MESSAGE.SET_NAME( 'FND','FND_GENERIC_MESSAGE');
2704: FND_MESSAGE.SET_TOKEN('MESSAGE',SQLERRM);
2705: FND_MSG_PUB.ADD;
2706: FND_MSG_PUB.Count_And_Get(
2703: FND_MESSAGE.SET_NAME( 'FND','FND_GENERIC_MESSAGE');
2704: FND_MESSAGE.SET_TOKEN('MESSAGE',SQLERRM);
2705: FND_MSG_PUB.ADD;
2706: FND_MSG_PUB.Count_And_Get(
2707: p_encoded => FND_API.G_FALSE,
2708: p_count => x_msg_count,
2709: p_data => x_msg_data);
2710: arp_standard.debug('EXCEPTION OTHERS in check_printed_trx :'||SQLERRM);
2711: IF x_msg_count > 1 THEN
2709: p_data => x_msg_data);
2710: arp_standard.debug('EXCEPTION OTHERS in check_printed_trx :'||SQLERRM);
2711: IF x_msg_count > 1 THEN
2712: FOR i IN 1..x_msg_count LOOP
2713: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
2714: tmp_var1 := tmp_var1 || ' '|| tmp_var;
2715: END LOOP;
2716: x_msg_data := tmp_var1;
2717: END IF;
2768: tmp_var VARCHAR2(2000);
2769: tmp_var1 VARCHAR2(2000);
2770: BEGIN
2771: arp_standard.debug('check_addr_modif_allowed +');
2772: x_return_status := FND_API.G_RET_STS_SUCCESS;
2773: x_loc_modif_allowed := 'Y';
2774: --Check system option
2775: /*Bug 4605384 as per consistency check for modification of address allowed*/
2776: /*
2835: --
2836: EXCEPTION
2837: WHEN AR_NO_ROW_IN_SYSTEM_PARAMETERS THEN
2838: IF c_org_for_loc%ISOPEN THEN CLOSE c_org_for_loc; END IF;
2839: x_return_status := fnd_api.g_ret_sts_error;
2840: FND_MESSAGE.SET_NAME( 'AR','AR_NO_ROW_IN_SYSTEM_PARAMETERS');
2841: FND_MSG_PUB.ADD;
2842: FND_MSG_PUB.Count_And_Get(
2843: p_encoded => FND_API.G_FALSE,
2839: x_return_status := fnd_api.g_ret_sts_error;
2840: FND_MESSAGE.SET_NAME( 'AR','AR_NO_ROW_IN_SYSTEM_PARAMETERS');
2841: FND_MSG_PUB.ADD;
2842: FND_MSG_PUB.Count_And_Get(
2843: p_encoded => FND_API.G_FALSE,
2844: p_count => x_msg_count,
2845: p_data => x_msg_data);
2846: arp_standard.debug('EXCEPTION AR_NO_ROW_IN_SYSTEM_PARAMETERS in check_addr_modif_allowed');
2847: IF x_msg_count > 1 THEN
2845: p_data => x_msg_data);
2846: arp_standard.debug('EXCEPTION AR_NO_ROW_IN_SYSTEM_PARAMETERS in check_addr_modif_allowed');
2847: IF x_msg_count > 1 THEN
2848: FOR i IN 1..x_msg_count LOOP
2849: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
2850: tmp_var1 := tmp_var1 || ' '|| tmp_var;
2851: END LOOP;
2852: x_msg_data := tmp_var1;
2853: END IF;
2852: x_msg_data := tmp_var1;
2853: END IF;
2854: WHEN OTHERS THEN
2855: IF c_org_for_loc%ISOPEN THEN CLOSE c_org_for_loc; END IF;
2856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2857: FND_MESSAGE.SET_NAME( 'FND','FND_GENERIC_MESSAGE');
2858: FND_MESSAGE.SET_TOKEN('MESSAGE',SQLERRM);
2859: FND_MSG_PUB.ADD;
2860: FND_MSG_PUB.Count_And_Get(
2857: FND_MESSAGE.SET_NAME( 'FND','FND_GENERIC_MESSAGE');
2858: FND_MESSAGE.SET_TOKEN('MESSAGE',SQLERRM);
2859: FND_MSG_PUB.ADD;
2860: FND_MSG_PUB.Count_And_Get(
2861: p_encoded => FND_API.G_FALSE,
2862: p_count => x_msg_count,
2863: p_data => x_msg_data);
2864: arp_standard.debug('EXCEPTION OTHERS in check_addr_modif_allowed :'||SQLERRM);
2865: IF x_msg_count > 1 THEN
2863: p_data => x_msg_data);
2864: arp_standard.debug('EXCEPTION OTHERS in check_addr_modif_allowed :'||SQLERRM);
2865: IF x_msg_count > 1 THEN
2866: FOR i IN 1..x_msg_count LOOP
2867: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
2868: tmp_var1 := tmp_var1 || ' '|| tmp_var;
2869: END LOOP;
2870: x_msg_data := tmp_var1;
2871: END IF;
2877: --{BUG#4058639
2878: -- Take the location_id to return
2879: -- the existing location data in x_exist_loc_rec the column
2880: -- * in the case column to compare between existing and entered are alike
2881: -- the column set to fnd_api.g_miss_char
2882: -- * in the case column to compare between existing and entered are different
2883: -- the column contents the existing value
2884: -- if the location does not exist x_exist_loc_rec is empty record
2885: -- x_loc_updated
2956: l_location_rec.Sales_Tax_Geocode;
2957: IF c_exist_loc%FOUND THEN
2958: arp_standard.debug(' p_location_rec.country :'||p_location_rec.country);
2959: arp_standard.debug(' l_location_rec.country :'||l_location_rec.country);
2960: IF NVL(p_location_rec.country,fnd_api.g_miss_char) <> NVL(l_location_rec.country,fnd_api.g_miss_char) THEN
2961: loc_modified := 'Y';
2962: ELSE
2963: l_location_rec.country := ar_miss_char;
2964: END IF;
2963: l_location_rec.country := ar_miss_char;
2964: END IF;
2965: arp_standard.debug(' p_location_rec.address1 :'||p_location_rec.address1);
2966: arp_standard.debug(' l_location_rec.address1 :'||l_location_rec.address1);
2967: IF NVL(p_location_rec.address1,fnd_api.g_miss_char) <> NVL(l_location_rec.address1,fnd_api.g_miss_char) THEN
2968: loc_modified := 'Y';
2969: ELSE
2970: l_location_rec.address1 := ar_miss_char;
2971: END IF;
2970: l_location_rec.address1 := ar_miss_char;
2971: END IF;
2972: arp_standard.debug(' p_location_rec.address2 :'||p_location_rec.address2);
2973: arp_standard.debug(' l_location_rec.address2 :'||l_location_rec.address2);
2974: IF NVL(p_location_rec.address2,fnd_api.g_miss_char) <> NVL(l_location_rec.address2,fnd_api.g_miss_char) THEN
2975: loc_modified := 'Y';
2976: ELSE
2977: l_location_rec.address2 := ar_miss_char;
2978: END IF;
2977: l_location_rec.address2 := ar_miss_char;
2978: END IF;
2979: arp_standard.debug(' p_location_rec.address3 :'||p_location_rec.address3);
2980: arp_standard.debug(' l_location_rec.address3 :'||l_location_rec.address3);
2981: IF NVL(p_location_rec.address3,fnd_api.g_miss_char) <> NVL(l_location_rec.address3,fnd_api.g_miss_char) THEN
2982: loc_modified := 'Y';
2983: ELSE
2984: l_location_rec.address3 := ar_miss_char;
2985: END IF;
2984: l_location_rec.address3 := ar_miss_char;
2985: END IF;
2986: arp_standard.debug(' p_location_rec.address4 :'||p_location_rec.address4);
2987: arp_standard.debug(' l_location_rec.address4 :'||l_location_rec.address4);
2988: IF NVL(p_location_rec.address4,fnd_api.g_miss_char) <> NVL(l_location_rec.address4,fnd_api.g_miss_char) THEN
2989: loc_modified := 'Y';
2990: ELSE
2991: l_location_rec.address4 := ar_miss_char;
2992: END IF;
2991: l_location_rec.address4 := ar_miss_char;
2992: END IF;
2993: arp_standard.debug(' p_location_rec.city :'||p_location_rec.city);
2994: arp_standard.debug(' l_location_rec.city :'||l_location_rec.city);
2995: IF NVL(p_location_rec.city,fnd_api.g_miss_char) <> NVL(l_location_rec.city,fnd_api.g_miss_char) THEN
2996: loc_modified := 'Y';
2997: ELSE
2998: l_location_rec.city := ar_miss_char;
2999: END IF;
2998: l_location_rec.city := ar_miss_char;
2999: END IF;
3000: arp_standard.debug(' p_location_rec.postal_code :'||p_location_rec.postal_code);
3001: arp_standard.debug(' l_location_rec.postal_code :'||l_location_rec.postal_code);
3002: IF NVL(p_location_rec.postal_code,fnd_api.g_miss_char) <> NVL(l_location_rec.postal_code,fnd_api.g_miss_char) THEN
3003: loc_modified := 'Y';
3004: ELSE
3005: l_location_rec.postal_code := ar_miss_char;
3006: END IF;
3005: l_location_rec.postal_code := ar_miss_char;
3006: END IF;
3007: arp_standard.debug(' p_location_rec.state :'||p_location_rec.state);
3008: arp_standard.debug(' l_location_rec.state :'||l_location_rec.state);
3009: IF NVL(p_location_rec.state,fnd_api.g_miss_char) <> NVL(l_location_rec.state,fnd_api.g_miss_char) THEN
3010: loc_modified := 'Y';
3011: ELSE
3012: l_location_rec.state := ar_miss_char;
3013: END IF;
3012: l_location_rec.state := ar_miss_char;
3013: END IF;
3014: arp_standard.debug(' p_location_rec.province :'||p_location_rec.province);
3015: arp_standard.debug(' l_location_rec.province :'||l_location_rec.province);
3016: IF NVL(p_location_rec.province,fnd_api.g_miss_char) <> NVL(l_location_rec.province,fnd_api.g_miss_char) THEN
3017: loc_modified := 'Y';
3018: ELSE
3019: l_location_rec.province := ar_miss_char;
3020: END IF;
3019: l_location_rec.province := ar_miss_char;
3020: END IF;
3021: arp_standard.debug(' p_location_rec.county :'||p_location_rec.county);
3022: arp_standard.debug(' l_location_rec.county :'||l_location_rec.county);
3023: IF NVL(p_location_rec.county,fnd_api.g_miss_char) <> NVL(l_location_rec.county,fnd_api.g_miss_char) THEN
3024: loc_modified := 'Y';
3025: ELSE
3026: l_location_rec.county := ar_miss_char;
3027: END IF;
3026: l_location_rec.county := ar_miss_char;
3027: END IF;
3028: arp_standard.debug(' p_location_rec.language :'||p_location_rec.language);
3029: arp_standard.debug(' l_location_rec.language :'||l_location_rec.language);
3030: IF NVL(p_location_rec.language,fnd_api.g_miss_char) <> NVL(l_location_rec.language,fnd_api.g_miss_char) THEN
3031: loc_modified := 'Y';
3032: ELSE
3033: l_location_rec.language := ar_miss_char;
3034: END IF;
3033: l_location_rec.language := ar_miss_char;
3034: END IF;
3035: arp_standard.debug(' p_location_rec.address_lines_phonetic :'||p_location_rec.address_lines_phonetic);
3036: arp_standard.debug(' l_location_rec.address_lines_phonetic :'||l_location_rec.address_lines_phonetic);
3037: IF NVL(p_location_rec.address_lines_phonetic,fnd_api.g_miss_char) <> NVL(l_location_rec.address_lines_phonetic,fnd_api.g_miss_char) THEN
3038: loc_modified := 'Y';
3039: ELSE
3040: l_location_rec.address_lines_phonetic:= ar_miss_char;
3041: END IF;
3040: l_location_rec.address_lines_phonetic:= ar_miss_char;
3041: END IF;
3042: arp_standard.debug(' p_location_rec.description :'||p_location_rec.description);
3043: arp_standard.debug(' l_location_rec.description :'||l_location_rec.description);
3044: IF NVL(p_location_rec.description,fnd_api.g_miss_char) <> NVL(l_location_rec.description,fnd_api.g_miss_char) THEN
3045: loc_modified := 'Y';
3046: ELSE
3047: l_location_rec.description:= ar_miss_char;
3048: END IF;
3047: l_location_rec.description:= ar_miss_char;
3048: END IF;
3049: arp_standard.debug(' p_location_rec.short_description :'||p_location_rec.short_description);
3050: arp_standard.debug(' l_location_rec.short_description :'||l_location_rec.short_description);
3051: IF NVL(p_location_rec.short_description,fnd_api.g_miss_char) <> NVL(l_location_rec.short_description,fnd_api.g_miss_char) THEN
3052: loc_modified := 'Y';
3053: ELSE
3054: l_location_rec.short_description:= ar_miss_char;
3055: END IF;
3054: l_location_rec.short_description:= ar_miss_char;
3055: END IF;
3056: arp_standard.debug(' p_location_rec.floor :'||p_location_rec.floor);
3057: arp_standard.debug(' l_location_rec.floor :'||l_location_rec.floor);
3058: IF NVL(p_location_rec.floor,fnd_api.g_miss_char) <> NVL(l_location_rec.floor,fnd_api.g_miss_char) THEN
3059: loc_modified := 'Y';
3060: ELSE
3061: l_location_rec.floor:= ar_miss_char;
3062: END IF;
3061: l_location_rec.floor:= ar_miss_char;
3062: END IF;
3063: arp_standard.debug(' p_location_rec.house_number :'||p_location_rec.house_number);
3064: arp_standard.debug(' l_location_rec.house_number :'||l_location_rec.house_number);
3065: IF NVL(p_location_rec.house_number,fnd_api.g_miss_char)<> NVL(l_location_rec.house_number,fnd_api.g_miss_char) THEN
3066: loc_modified := 'Y';
3067: ELSE
3068: l_location_rec.house_number:= ar_miss_char;
3069: END IF;
3068: l_location_rec.house_number:= ar_miss_char;
3069: END IF;
3070: arp_standard.debug(' p_location_rec.location_directions :'||p_location_rec.location_directions);
3071: arp_standard.debug(' l_location_rec.location_directions :'||l_location_rec.location_directions);
3072: IF NVL(p_location_rec.location_directions,fnd_api.g_miss_char) <> NVL(l_location_rec.location_directions,fnd_api.g_miss_char) THEN
3073: loc_modified := 'Y';
3074: ELSE
3075: l_location_rec.location_directions:= ar_miss_char;
3076: END IF;
3075: l_location_rec.location_directions:= ar_miss_char;
3076: END IF;
3077: arp_standard.debug(' p_location_rec.postal_plus4_code :'||p_location_rec.postal_plus4_code);
3078: arp_standard.debug(' l_location_rec.postal_plus4_code :'||l_location_rec.postal_plus4_code);
3079: IF NVL(p_location_rec.postal_plus4_code,fnd_api.g_miss_char) <> NVL(l_location_rec.postal_plus4_code,fnd_api.g_miss_char) THEN
3080: loc_modified := 'Y';
3081: ELSE
3082: l_location_rec.postal_plus4_code:= ar_miss_char;
3083: END IF;
3083: END IF;
3084: arp_standard.debug(' p_location_rec.po_box_number :'||p_location_rec.po_box_number);
3085: arp_standard.debug(' l_location_rec.po_box_number :'||l_location_rec.po_box_number);
3086:
3087: IF NVL(p_location_rec.po_box_number,fnd_api.g_miss_char) <> NVL(l_location_rec.po_box_number,fnd_api.g_miss_char) THEN
3088: loc_modified := 'Y';
3089: ELSE
3090: l_location_rec.po_box_number:= ar_miss_char;
3091: END IF;
3091: END IF;
3092:
3093: arp_standard.debug(' p_location_rec.street :'||p_location_rec.street);
3094: arp_standard.debug(' l_location_rec.street :'||l_location_rec.street);
3095: IF NVL(p_location_rec.street,fnd_api.g_miss_char) <> NVL(l_location_rec.street,fnd_api.g_miss_char) THEN
3096: loc_modified := 'Y';
3097: ELSE
3098: l_location_rec.street:= ar_miss_char;
3099: END IF;
3098: l_location_rec.street:= ar_miss_char;
3099: END IF;
3100: arp_standard.debug(' p_location_rec.street_number :'||p_location_rec.street_number);
3101: arp_standard.debug(' l_location_rec.street_number :'||l_location_rec.street_number);
3102: IF NVL(p_location_rec.street_number,fnd_api.g_miss_char) <> NVL(l_location_rec.street_number,fnd_api.g_miss_char) THEN
3103: loc_modified := 'Y';
3104: ELSE
3105: l_location_rec.street_number:= ar_miss_char;
3106: END IF;
3105: l_location_rec.street_number:= ar_miss_char;
3106: END IF;
3107: arp_standard.debug(' p_location_rec.street_suffix :'||p_location_rec.street_suffix);
3108: arp_standard.debug(' l_location_rec.street_suffix :'||l_location_rec.street_suffix);
3109: IF NVL(p_location_rec.street_suffix,fnd_api.g_miss_char) <> NVL(l_location_rec.street_suffix,fnd_api.g_miss_char) THEN
3110: loc_modified := 'Y';
3111: ELSE
3112: l_location_rec.street_suffix := ar_miss_char;
3113: END IF;
3112: l_location_rec.street_suffix := ar_miss_char;
3113: END IF;
3114: arp_standard.debug(' p_location_rec.suite :'||p_location_rec.suite);
3115: arp_standard.debug(' l_location_rec.suite :'||l_location_rec.suite);
3116: IF NVL(p_location_rec.suite,fnd_api.g_miss_char) <> NVL(l_location_rec.suite,fnd_api.g_miss_char) THEN
3117: loc_modified := 'Y';
3118: ELSE
3119: l_location_rec.suite:= ar_miss_char;
3120: END IF;
3344: x_msg_data => x_msg_data);
3345:
3346: IF x_msg_count > 1 THEN
3347: FOR i IN 1..x_msg_count LOOP
3348: tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
3349: tmp_var1 := tmp_var1 || ' '|| tmp_var;
3350: END LOOP;
3351: x_msg_data := tmp_var1;
3352: END IF;
3350: END LOOP;
3351: x_msg_data := tmp_var1;
3352: END IF;
3353:
3354: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3355: return;
3356: END IF;
3357:
3358: x_country := l_exist_loc_rec.Country;