[Home] [Help]
2: -- $Header: ECVNWTPB.pls 120.7.12010000.2 2008/09/04 12:22:58 hgandiko ship $
3:
4: PROCEDURE ece_get_address_wrapper(
5: p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: x_return_status OUT NOCOPY VARCHAR2,
3:
4: PROCEDURE ece_get_address_wrapper(
5: p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: x_return_status OUT NOCOPY VARCHAR2,
11: x_msg_count OUT NOCOPY NUMBER,
4: PROCEDURE ece_get_address_wrapper(
5: p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: x_return_status OUT NOCOPY VARCHAR2,
11: x_msg_count OUT NOCOPY NUMBER,
12: x_msg_data OUT NOCOPY VARCHAR2,
5: p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: x_return_status OUT NOCOPY VARCHAR2,
11: x_msg_count OUT NOCOPY NUMBER,
12: x_msg_data OUT NOCOPY VARCHAR2,
13: x_status_code OUT NOCOPY NUMBER,
144: END ece_get_address_wrapper;
145:
146: PROCEDURE ece_get_address(
147: p_api_version_number IN NUMBER,
148: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
149: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
150: p_commit IN VARCHAR2 := FND_API.G_FALSE,
151: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
152: x_return_status OUT NOCOPY VARCHAR2,
145:
146: PROCEDURE ece_get_address(
147: p_api_version_number IN NUMBER,
148: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
149: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
150: p_commit IN VARCHAR2 := FND_API.G_FALSE,
151: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
152: x_return_status OUT NOCOPY VARCHAR2,
153: x_msg_count OUT NOCOPY NUMBER,
146: PROCEDURE ece_get_address(
147: p_api_version_number IN NUMBER,
148: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
149: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
150: p_commit IN VARCHAR2 := FND_API.G_FALSE,
151: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
152: x_return_status OUT NOCOPY VARCHAR2,
153: x_msg_count OUT NOCOPY NUMBER,
154: x_msg_data OUT NOCOPY VARCHAR2,
147: p_api_version_number IN NUMBER,
148: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
149: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
150: p_commit IN VARCHAR2 := FND_API.G_FALSE,
151: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
152: x_return_status OUT NOCOPY VARCHAR2,
153: x_msg_count OUT NOCOPY NUMBER,
154: x_msg_data OUT NOCOPY VARCHAR2,
155: x_status_code OUT NOCOPY NUMBER,
702: xProgress := 'ADDRB-20-1000';
703: SAVEPOINT ece_get_address;
704:
705: -- Standard call to check for call compatibility.
706: IF NOT fnd_api.compatible_api_call(l_api_version_number,
707: p_api_version_number,
708: l_api_name,
709: G_PKG_NAME) THEN
710: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
706: IF NOT fnd_api.compatible_api_call(l_api_version_number,
707: p_api_version_number,
708: l_api_name,
709: G_PKG_NAME) THEN
710: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
711: END IF;
712:
713: -- Initialize message list if p_init_msg_list is set to TRUE.
714: IF fnd_api.to_boolean(p_init_msg_list) THEN
710: RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
711: END IF;
712:
713: -- Initialize message list if p_init_msg_list is set to TRUE.
714: IF fnd_api.to_boolean(p_init_msg_list) THEN
715: fnd_msg_pub.initialize;
716: END IF;
717:
718: -- Initialize API return status to success
715: fnd_msg_pub.initialize;
716: END IF;
717:
718: -- Initialize API return status to success
719: x_return_status := fnd_api.G_RET_STS_SUCCESS;
720:
721: /*********************************************************************
722: | Internal Housekeeping Code |
723: *********************************************************************/
751: -- bug3351412
752: IF (v_pcode <> '0' AND
753: v_pcode <> '1' AND v_pcode <> '2') THEN
754: xProgress := 'ADDRB-20-1080';
755: x_return_status := fnd_api.G_RET_STS_ERROR;
756: x_status_code := G_INVALID_PARAMETER;
757: GOTO l_end_of_program;
758: END IF;
759:
794: IF n_org_id <> 1 THEN
795: -- Looks like we have an invalid Org ID here...
796: xProgress := 'ADDRB-20-1100';
797: x_status_code := G_INVALID_ORG_ID;
798: RAISE fnd_api.G_EXC_ERROR;
799: END IF; -- n_org_id <> 1
800: END IF; -- IF b_use_org_id THEN
801:
802: -- Handle special cases when none of the address components
825: x_region_1_out := NULL;
826: x_region_2_out := NULL;
827: x_region_3_out := NULL;
828:
829: x_return_status := fnd_api.G_RET_STS_SUCCESS;
830: x_status_code := G_NO_ERRORS;
831: GOTO l_end_of_program;
832: END IF;
833:
897: EXCEPTION
898: WHEN NO_DATA_FOUND THEN
899: -- Looks like we have an invalid ID here...
900: x_status_code := G_INVALID_ADDR_ID;
901: RAISE fnd_api.G_EXC_ERROR;
902:
903: END;
904:
905: -- Whatever happens, the API has executed successfully...
903: END;
904:
905: -- Whatever happens, the API has executed successfully...
906: xProgress := 'ADDRB-20-1150';
907: x_return_status := fnd_api.G_RET_STS_SUCCESS;
908:
909: -- If we were given LC/TC and it is not the same as the derived LC/TC...
910: IF b_use_lctc AND ((p_tp_location_code_in <> x_tp_location_code_out) OR
911: (p_translator_code_in <> x_translator_code_out)) THEN
1112: x_region_3_out := p_region_3_in;
1113:
1114: IF b_use_addr_comp THEN
1115: xProgress := 'ADDRB-20-1290';
1116: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1117: x_status_code := G_INCONSISTENT_ADDR_COMP;
1118: ELSE
1119: xProgress := 'ADDRB-20-1300';
1120: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1116: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1117: x_status_code := G_INCONSISTENT_ADDR_COMP;
1118: ELSE
1119: xProgress := 'ADDRB-20-1300';
1120: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1121: x_status_code := G_CANNOT_DERIVE_ADDR;
1122: END IF; -- IF b_use_addr_comp THEN
1123:
1124: GOTO l_end_of_program;
1147: x_region_1_out := p_region_1_in;
1148: x_region_2_out := p_region_2_in;
1149: x_region_3_out := p_region_3_in;
1150:
1151: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1152: x_status_code := G_INCONSISTENT_ADDR_COMP;
1153:
1154: GOTO l_end_of_program;
1155: ELSIF n_match_count = 1 THEN
1155: ELSIF n_match_count = 1 THEN
1156: -- No need to assign variables in this scenario. Correct values
1157: -- are already assigned above.
1158: xProgress := 'ADDRB-20-1340';
1159: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1160: x_status_code := G_NO_ERRORS;
1161: GOTO l_end_of_program;
1162: END IF; -- IF n_match_count = 0 THEN
1163: ELSE
1164: */
1165: -- No need to assign variables in this scenario. Correct values
1166: -- are already assigned above.
1167: xProgress := 'ADDRB-20-1350';
1168: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1169: x_status_code := G_NO_ERRORS;
1170: GOTO l_end_of_program;
1171: -- END IF; -- b_use_addr_comp THEN
1172: ELSE -- n_loop_count > 1
1194: x_region_1_out := p_region_1_in;
1195: x_region_2_out := p_region_2_in;
1196: x_region_3_out := p_region_3_in;
1197:
1198: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1199: x_status_code := G_MULTIPLE_ADDR_FOUND;
1200:
1201: GOTO l_end_of_program;
1202: /* Bug 2151462 ELSIF n_match_count = 1 THEN
1202: /* Bug 2151462 ELSIF n_match_count = 1 THEN
1203: -- No need to assign variables in this scenario. Correct values
1204: -- are already assigned above.
1205: xProgress := 'ADDRB-20-1390';
1206: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1207: x_status_code := G_NO_ERRORS;
1208: GOTO l_end_of_program;
1209: ELSE -- n_match_count > 1
1210: -- No need to assign variables in this scenario. Correct values
1212: -- removed since we got multiple matches.
1213: xProgress := 'ADDRB-20-1400';
1214: x_address_id_out := NULL;
1215:
1216: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1217: x_status_code := G_CANNOT_DERIVE_ADDR_ID;
1218:
1219: GOTO l_end_of_program;
1220: END IF; -- IF n_match_count = 0 THEN
1241: x_region_1_out := NULL;
1242: x_region_2_out := NULL;
1243: x_region_3_out := NULL;
1244:
1245: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1246: x_status_code := G_MULTIPLE_LOC_FOUND;
1247:
1248: GOTO l_end_of_program;
1249: END IF; -- IF b_use_addr_comp THEN
1272: x_region_1_out := p_region_1_in;
1273: x_region_2_out := p_region_2_in;
1274: x_region_3_out := p_region_3_in;
1275:
1276: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1277: x_status_code := G_CANNOT_DERIVE_ADDR_ID;
1278:
1279: GOTO l_end_of_program;
1280: END IF; -- IF b_use_addr_comp THEN
1279: GOTO l_end_of_program;
1280: END IF; -- IF b_use_addr_comp THEN
1281:
1282: xProgress := 'ADDRB-20-1430';
1283: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1284: x_status_code := G_CANNOT_DERIVE_ADDR_ID;
1285:
1286: GOTO l_end_of_program;
1287:
1342: EXCEPTION
1343: WHEN NO_DATA_FOUND THEN
1344: -- Looks like we have an invalid ID here...
1345: x_status_code := G_INVALID_ADDR_ID;
1346: RAISE fnd_api.G_EXC_ERROR;
1347:
1348: END;
1349:
1350: -- Whatever happens, the API has executed successfully...
1347:
1348: END;
1349:
1350: -- Whatever happens, the API has executed successfully...
1351: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1352:
1353: -- If we were given LC/TC and it is not the same as the derived LC/TC...
1354: IF b_use_lctc AND ((p_tp_location_code_in <> x_tp_location_code_out) OR
1355: (p_translator_code_in <> x_translator_code_out)) THEN
1750: x_region_2_out := p_region_2_in;
1751: x_region_3_out := p_region_3_in;
1752:
1753: IF b_use_addr_comp THEN
1754: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1755: x_status_code := G_INCONSISTENT_ADDR_COMP;
1756: ELSE
1757: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1758: x_status_code := G_CANNOT_DERIVE_ADDR;
1753: IF b_use_addr_comp THEN
1754: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1755: x_status_code := G_INCONSISTENT_ADDR_COMP;
1756: ELSE
1757: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1758: x_status_code := G_CANNOT_DERIVE_ADDR;
1759: END IF; -- IF b_use_addr_comp THEN
1760:
1761: GOTO l_end_of_program;
1781: x_region_1_out := p_region_1_in;
1782: x_region_2_out := p_region_2_in;
1783: x_region_3_out := p_region_3_in;
1784:
1785: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1786: x_status_code := G_INCONSISTENT_ADDR_COMP;
1787:
1788: GOTO l_end_of_program;
1789: ELSIF n_match_count = 1 THEN
1788: GOTO l_end_of_program;
1789: ELSIF n_match_count = 1 THEN
1790: -- No need to assign variables in this scenario. Correct values
1791: -- are already assigned above.
1792: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1793: x_status_code := G_NO_ERRORS;
1794: GOTO l_end_of_program;
1795: END IF; -- IF n_match_count = 0 THEN
1796: ELSE
1796: ELSE
1797: */
1798: -- No need to assign variables in this scenario. Correct values
1799: -- are already assigned above.
1800: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1801: x_status_code := G_NO_ERRORS;
1802: GOTO l_end_of_program;
1803: --END IF; -- b_use_addr_comp THEN
1804: ELSE -- n_loop_count > 1
1823: x_region_1_out := p_region_1_in;
1824: x_region_2_out := p_region_2_in;
1825: x_region_3_out := p_region_3_in;
1826:
1827: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1828: x_status_code := G_MULTIPLE_ADDR_FOUND;
1829:
1830: GOTO l_end_of_program;
1831: /* bug2151462 ELSIF n_match_count = 1 THEN
1830: GOTO l_end_of_program;
1831: /* bug2151462 ELSIF n_match_count = 1 THEN
1832: -- No need to assign variables in this scenario. Correct values
1833: -- are already assigned above.
1834: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1835: x_status_code := G_NO_ERRORS;
1836: GOTO l_end_of_program;
1837: ELSE -- n_match_count > 1
1838: -- No need to assign variables in this scenario. Correct values
1839: -- are already assigned above. However, the Address ID has to be
1840: -- removed since we got multiple matches.
1841: x_address_id_out := NULL;
1842:
1843: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1844: x_status_code := G_CANNOT_DERIVE_ADDR_ID;
1845:
1846: GOTO l_end_of_program;
1847: END IF; -- IF n_match_count = 0 THEN
1867: x_region_1_out := NULL;
1868: x_region_2_out := NULL;
1869: x_region_3_out := NULL;
1870:
1871: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1872: x_status_code := G_MULTIPLE_LOC_FOUND;
1873:
1874: GOTO l_end_of_program;
1875: END IF; -- IF b_use_addr_comp THEN
1897: x_region_1_out := p_region_1_in;
1898: x_region_2_out := p_region_2_in;
1899: x_region_3_out := p_region_3_in;
1900:
1901: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1902: x_status_code := G_CANNOT_DERIVE_ADDR_ID;
1903:
1904: GOTO l_end_of_program;
1905: END IF; -- IF b_use_addr_comp THEN
1903:
1904: GOTO l_end_of_program;
1905: END IF; -- IF b_use_addr_comp THEN
1906:
1907: x_return_status := fnd_api.G_RET_STS_SUCCESS;
1908: x_status_code := G_CANNOT_DERIVE_ADDR_ID;
1909:
1910: GOTO l_end_of_program;
1911:
2003: EXCEPTION
2004: WHEN NO_DATA_FOUND THEN
2005: -- Looks like we have an invalid ID here...
2006: x_status_code := G_INVALID_ADDR_ID;
2007: RAISE fnd_api.G_EXC_ERROR;
2008:
2009: END;
2010: END;
2011:
2009: END;
2010: END;
2011:
2012: -- Whatever happens, the API has executed successfully...
2013: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2014:
2015: -- If we were given LC/TC and it is not the same as the derived LC/TC...
2016: IF b_use_lctc AND ((p_tp_location_code_in <> x_tp_location_code_out) OR
2017: (p_translator_code_in <> x_translator_code_out)) THEN
2214: x_region_2_out := p_region_2_in;
2215: x_region_3_out := p_region_3_in;
2216:
2217: IF b_use_addr_comp THEN
2218: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2219: x_status_code := G_INCONSISTENT_ADDR_COMP;
2220: ELSE
2221: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2222: x_status_code := G_CANNOT_DERIVE_ADDR;
2217: IF b_use_addr_comp THEN
2218: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2219: x_status_code := G_INCONSISTENT_ADDR_COMP;
2220: ELSE
2221: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2222: x_status_code := G_CANNOT_DERIVE_ADDR;
2223: END IF; -- IF b_use_addr_comp THEN
2224:
2225: GOTO l_end_of_program;
2245: x_region_1_out := p_region_1_in;
2246: x_region_2_out := p_region_2_in;
2247: x_region_3_out := p_region_3_in;
2248:
2249: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2250: x_status_code := G_INCONSISTENT_ADDR_COMP;
2251:
2252: GOTO l_end_of_program;
2253: ELSIF n_match_count = 1 THEN
2252: GOTO l_end_of_program;
2253: ELSIF n_match_count = 1 THEN
2254: -- No need to assign variables in this scenario. Correct values
2255: -- are already assigned above.
2256: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2257: x_status_code := G_NO_ERRORS;
2258: GOTO l_end_of_program;
2259: END IF; -- IF n_match_count = 0 THEN
2260: ELSE
2260: ELSE
2261: */
2262: -- No need to assign variables in this scenario. Correct values
2263: -- are already assigned above.
2264: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2265: x_status_code := G_NO_ERRORS;
2266: GOTO l_end_of_program;
2267: -- END IF; -- b_use_addr_comp THEN
2268: ELSE -- n_loop_count > 1
2287: x_region_1_out := p_region_1_in;
2288: x_region_2_out := p_region_2_in;
2289: x_region_3_out := p_region_3_in;
2290:
2291: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2292: x_status_code := G_MULTIPLE_ADDR_FOUND;
2293:
2294: GOTO l_end_of_program;
2295: /* bug2151462 ELSIF n_match_count = 1 THEN
2294: GOTO l_end_of_program;
2295: /* bug2151462 ELSIF n_match_count = 1 THEN
2296: -- No need to assign variables in this scenario. Correct values
2297: -- are already assigned above.
2298: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2299: x_status_code := G_NO_ERRORS;
2300: GOTO l_end_of_program;
2301: ELSE -- n_match_count > 1
2302: -- No need to assign variables in this scenario. Correct values
2303: -- are already assigned above. However, the Address ID has to be
2304: -- removed since we got multiple matches.
2305: x_address_id_out := NULL;
2306: ec_debug.pl(3,'Failed here ');
2307: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2308: x_status_code := G_CANNOT_DERIVE_ADDR_ID;
2309:
2310: GOTO l_end_of_program;
2311: END IF; -- IF n_match_count = 0 THEN
2331: x_region_1_out := NULL;
2332: x_region_2_out := NULL;
2333: x_region_3_out := NULL;
2334:
2335: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2336: x_status_code := G_MULTIPLE_LOC_FOUND;
2337:
2338: GOTO l_end_of_program;
2339: END IF; -- IF b_use_addr_comp THEN
2361: x_region_1_out := p_region_1_in;
2362: x_region_2_out := p_region_2_in;
2363: x_region_3_out := p_region_3_in;
2364:
2365: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2366: x_status_code := G_CANNOT_DERIVE_ADDR_ID;
2367:
2368: GOTO l_end_of_program;
2369: END IF; -- IF b_use_addr_comp THEN
2367:
2368: GOTO l_end_of_program;
2369: END IF; -- IF b_use_addr_comp THEN
2370:
2371: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2372: x_status_code := G_CANNOT_DERIVE_ADDR_ID;
2373:
2374: GOTO l_end_of_program;
2375:
2423: EXCEPTION
2424: WHEN NO_DATA_FOUND THEN
2425: -- Looks like we have an invalid ID here...
2426: x_status_code := G_INVALID_ADDR_ID;
2427: RAISE fnd_api.G_EXC_ERROR;
2428:
2429: END;
2430:
2431: -- Whatever happens, the API has executed successfully...
2428:
2429: END;
2430:
2431: -- Whatever happens, the API has executed successfully...
2432: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2433:
2434: -- If we were given LC/TC and it is not the same as the derived LC/TC...
2435: IF b_use_lctc AND ((p_tp_location_code_in <> x_tp_location_code_out) OR
2436: (p_translator_code_in <> x_translator_code_out)) THEN
2622: x_region_2_out := p_region_2_in;
2623: x_region_3_out := p_region_3_in;
2624:
2625: IF b_use_addr_comp THEN
2626: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2627: x_status_code := G_INCONSISTENT_ADDR_COMP;
2628: ELSE
2629: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2630: x_status_code := G_CANNOT_DERIVE_ADDR;
2625: IF b_use_addr_comp THEN
2626: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2627: x_status_code := G_INCONSISTENT_ADDR_COMP;
2628: ELSE
2629: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2630: x_status_code := G_CANNOT_DERIVE_ADDR;
2631: END IF; -- IF b_use_addr_comp THEN
2632:
2633: GOTO l_end_of_program;
2636: IF n_match_count = 0 THEN
2637: -- No need to assign variables in this scenario. Correct values
2638: -- are already assigned above.
2639:
2640: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2641: x_status_code := G_INCONSISTENT_ADDR_COMP;
2642:
2643: GOTO l_end_of_program;
2644: ELSIF n_match_count = 1 THEN
2643: GOTO l_end_of_program;
2644: ELSIF n_match_count = 1 THEN
2645: -- No need to assign variables in this scenario. Correct values
2646: -- are already assigned above.
2647: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2648: x_status_code := G_NO_ERRORS;
2649: GOTO l_end_of_program;
2650: END IF;
2651: ELSE
2651: ELSE
2652: */
2653: -- No need to assign variables in this scenario. Correct values
2654: -- are already assigned above.
2655: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2656: x_status_code := G_NO_ERRORS;
2657: GOTO l_end_of_program;
2658: --END IF;
2659: ELSE -- n_loop_count > 1
2678: x_region_1_out := p_region_1_in;
2679: x_region_2_out := p_region_2_in;
2680: x_region_3_out := p_region_3_in;
2681:
2682: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2683: x_status_code := G_MULTIPLE_ADDR_FOUND;
2684:
2685: GOTO l_end_of_program;
2686: /* bug2151462 ELSIF n_match_count = 1 THEN
2685: GOTO l_end_of_program;
2686: /* bug2151462 ELSIF n_match_count = 1 THEN
2687: -- No need to assign variables in this scenario. Correct values
2688: -- are already assigned above.
2689: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2690: x_status_code := G_NO_ERRORS;
2691: GOTO l_end_of_program;
2692: ELSE -- n_match_count > 1
2693: -- No need to assign variables in this scenario. Correct values
2694: -- are already assigned above. However, the Address ID has to be
2695: -- removed since we got multiple matches.
2696: x_address_id_out := NULL;
2697:
2698: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2699: x_status_code := G_CANNOT_DERIVE_ADDR_ID;
2700:
2701: GOTO l_end_of_program;
2702: END IF; -- IF n_match_count = 0 THEN
2722: x_region_1_out := NULL;
2723: x_region_2_out := NULL;
2724: x_region_3_out := NULL;
2725:
2726: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2727: x_status_code := G_MULTIPLE_LOC_FOUND;
2728:
2729: GOTO l_end_of_program;
2730: END IF; -- IF b_use_addr_comp THEN
2752: x_region_1_out := p_region_1_in;
2753: x_region_2_out := p_region_2_in;
2754: x_region_3_out := p_region_3_in;
2755:
2756: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2757: x_status_code := G_CANNOT_DERIVE_ADDR_ID;
2758:
2759: GOTO l_end_of_program;
2760: END IF; -- IF b_use_addr_comp THEN
2758:
2759: GOTO l_end_of_program;
2760: END IF; -- IF b_use_addr_comp THEN
2761:
2762: x_return_status := fnd_api.G_RET_STS_SUCCESS;
2763: x_status_code := G_CANNOT_DERIVE_ADDR_ID;
2764:
2765: GOTO l_end_of_program;
2766:
2764:
2765: GOTO l_end_of_program;
2766:
2767: ELSE -- Invalid Parameter
2768: x_return_status := fnd_api.G_RET_STS_ERROR;
2769: x_status_code := G_INVALID_PARAMETER;
2770: END IF;
2771:
2772: <
2772: <
2773: NULL;
2774:
2775: EXCEPTION
2776: WHEN FND_API.G_EXC_ERROR THEN
2777: ROLLBACK TO ece_get_address;
2778: x_return_status := fnd_api.G_RET_STS_ERROR;
2779:
2780: fnd_msg_pub.COUNT_AND_GET(
2774:
2775: EXCEPTION
2776: WHEN FND_API.G_EXC_ERROR THEN
2777: ROLLBACK TO ece_get_address;
2778: x_return_status := fnd_api.G_RET_STS_ERROR;
2779:
2780: fnd_msg_pub.COUNT_AND_GET(
2781: p_count => x_msg_count,
2782: p_data => x_msg_data);
2783:
2784: WHEN OTHERS THEN
2785: ROLLBACK TO ece_get_address;
2786: x_status_code := G_UNEXP_ERROR;
2787: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
2788:
2789: fnd_msg_pub.COUNT_AND_GET(
2790: p_count => x_msg_count,
2791: p_data => x_msg_data);
2880: END scrub;
2881:
2882: PROCEDURE Get_TP_Address
2883: ( p_api_version_number IN NUMBER,
2884: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2885: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
2886: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2887: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2888: p_return_status OUT NOCOPY VARCHAR2,
2881:
2882: PROCEDURE Get_TP_Address
2883: ( p_api_version_number IN NUMBER,
2884: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2885: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
2886: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2887: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2888: p_return_status OUT NOCOPY VARCHAR2,
2889: p_msg_count OUT NOCOPY NUMBER,
2882: PROCEDURE Get_TP_Address
2883: ( p_api_version_number IN NUMBER,
2884: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2885: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
2886: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2887: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2888: p_return_status OUT NOCOPY VARCHAR2,
2889: p_msg_count OUT NOCOPY NUMBER,
2890: p_msg_data OUT NOCOPY VARCHAR2,
2883: ( p_api_version_number IN NUMBER,
2884: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2885: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
2886: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2887: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2888: p_return_status OUT NOCOPY VARCHAR2,
2889: p_msg_count OUT NOCOPY NUMBER,
2890: p_msg_data OUT NOCOPY VARCHAR2,
2891: p_translator_code IN VARCHAR2,
2948: SAVEPOINT Get_TP_Address_PVT;
2949:
2950: -- Standard call to check for call compatibility.
2951:
2952: if NOT FND_API.Compatible_API_Call
2953: (
2954: l_api_version_number,
2955: p_api_version_number,
2956: l_api_name,
2956: l_api_name,
2957: G_PKG_NAME
2958: )
2959: then
2960: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2961: end if;
2962:
2963: -- Initialize message list if p_init_msg_list is set to TRUE.
2964:
2961: end if;
2962:
2963: -- Initialize message list if p_init_msg_list is set to TRUE.
2964:
2965: if FND_API.to_Boolean( p_init_msg_list)
2966: then
2967: FND_MSG_PUB.initialize;
2968: end if;
2969:
2968: end if;
2969:
2970: -- Initialize API return status to success
2971:
2972: p_return_status := FND_API.G_RET_STS_SUCCESS;
2973:
2974:
2975: if ( p_info_type = EC_Trading_Partner_PVT.G_CUSTOMER)
2976: then
2995: l_entity_id := -1;
2996: l_entity_address_id := bank.branch_party_id;
2997: end loop;
2998: else
2999: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3000: end if;
3001:
3002: if l_entity_id is NULL
3003: and l_entity_address_id is NULL
3013:
3014: -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
3015: -- the API exception handler.
3016:
3017: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3018: then
3019:
3020: -- Unexpected error, abort processing.
3021:
3018: then
3019:
3020: -- Unexpected error, abort processing.
3021:
3022: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3023:
3024: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
3025:
3026: -- Error, abort processing
3020: -- Unexpected error, abort processing.
3021:
3022: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3023:
3024: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
3025:
3026: -- Error, abort processing
3027:
3028: raise FND_API.G_EXC_ERROR;
3024: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
3025:
3026: -- Error, abort processing
3027:
3028: raise FND_API.G_EXC_ERROR;
3029:
3030: end if;
3031:
3032: -- Standard check of p_simulate and p_commit parameters
3030: end if;
3031:
3032: -- Standard check of p_simulate and p_commit parameters
3033:
3034: if FND_API.To_Boolean( p_simulate)
3035: then
3036: ROLLBACK to Get_TP_Address_PVT;
3037:
3038: elsif FND_API.To_Boolean( p_commit)
3034: if FND_API.To_Boolean( p_simulate)
3035: then
3036: ROLLBACK to Get_TP_Address_PVT;
3037:
3038: elsif FND_API.To_Boolean( p_commit)
3039: then
3040: commit work;
3041: end if;
3042:
3049: );
3050:
3051: EXCEPTION
3052:
3053: WHEN FND_API.G_EXC_ERROR THEN
3054:
3055: Rollback to Get_TP_Address_PVT;
3056: p_return_status := FND_API.G_RET_STS_ERROR;
3057:
3052:
3053: WHEN FND_API.G_EXC_ERROR THEN
3054:
3055: Rollback to Get_TP_Address_PVT;
3056: p_return_status := FND_API.G_RET_STS_ERROR;
3057:
3058: FND_MSG_PUB.Count_And_Get
3059: (
3060: p_count => p_msg_count,
3060: p_count => p_msg_count,
3061: p_data => p_msg_data
3062: );
3063:
3064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3065:
3066: Rollback to Get_TP_Address_PVT;
3067: p_return_status := FND_API.G_RET_STS_ERROR;
3068:
3063:
3064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3065:
3066: Rollback to Get_TP_Address_PVT;
3067: p_return_status := FND_API.G_RET_STS_ERROR;
3068:
3069: FND_MSG_PUB.Count_And_Get
3070: (
3071: p_count => p_msg_count,
3074:
3075: WHEN OTHERS THEN
3076:
3077: Rollback to Get_TP_Address_PVT;
3078: p_return_status := FND_API.G_RET_STS_ERROR;
3079:
3080: if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3081: then
3082: FND_MSG_PUB.Add_Exc_Msg
3103: -- the automotive team
3104: -- ***********************************************
3105: PROCEDURE Get_TP_Address_Ref
3106: ( p_api_version_number IN NUMBER,
3107: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3108: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
3109: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3110: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3111: p_return_status OUT NOCOPY VARCHAR2,
3104: -- ***********************************************
3105: PROCEDURE Get_TP_Address_Ref
3106: ( p_api_version_number IN NUMBER,
3107: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3108: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
3109: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3110: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3111: p_return_status OUT NOCOPY VARCHAR2,
3112: p_msg_count OUT NOCOPY NUMBER,
3105: PROCEDURE Get_TP_Address_Ref
3106: ( p_api_version_number IN NUMBER,
3107: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3108: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
3109: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3110: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3111: p_return_status OUT NOCOPY VARCHAR2,
3112: p_msg_count OUT NOCOPY NUMBER,
3113: p_msg_data OUT NOCOPY VARCHAR2,
3106: ( p_api_version_number IN NUMBER,
3107: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3108: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
3109: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3110: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3111: p_return_status OUT NOCOPY VARCHAR2,
3112: p_msg_count OUT NOCOPY NUMBER,
3113: p_msg_data OUT NOCOPY VARCHAR2,
3114: -- p_translator_code IN VARCHAR2,
3171: SAVEPOINT Get_TP_Address_Ref_PVT;
3172:
3173: -- Standard call to check for call compatibility.
3174:
3175: if NOT FND_API.Compatible_API_Call
3176: (
3177: l_api_version_number,
3178: p_api_version_number,
3179: l_api_name,
3179: l_api_name,
3180: G_PKG_NAME
3181: )
3182: then
3183: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3184: end if;
3185:
3186: -- Initialize message list if p_init_msg_list is set to TRUE.
3187:
3184: end if;
3185:
3186: -- Initialize message list if p_init_msg_list is set to TRUE.
3187:
3188: if FND_API.to_Boolean( p_init_msg_list)
3189: then
3190: FND_MSG_PUB.initialize;
3191: end if;
3192:
3191: end if;
3192:
3193: -- Initialize API return status to success
3194:
3195: p_return_status := FND_API.G_RET_STS_SUCCESS;
3196:
3197:
3198: if ( p_info_type = EC_Trading_Partner_PVT.G_CUSTOMER)
3199: then
3218: l_entity_id := -1;
3219: l_entity_address_id := bank.address_id;
3220: end loop;
3221: else
3222: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3223: end if;
3224:
3225: if l_entity_id is NULL
3226: and l_entity_address_id is NULL
3235:
3236: -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
3237: -- the API exception handler.
3238:
3239: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3240: then
3241:
3242: -- Unexpected error, abort processing.
3243:
3240: then
3241:
3242: -- Unexpected error, abort processing.
3243:
3244: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3245:
3246: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
3247:
3248: -- Error, abort processing
3242: -- Unexpected error, abort processing.
3243:
3244: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3245:
3246: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
3247:
3248: -- Error, abort processing
3249:
3250: raise FND_API.G_EXC_ERROR;
3246: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
3247:
3248: -- Error, abort processing
3249:
3250: raise FND_API.G_EXC_ERROR;
3251:
3252: end if;
3253:
3254: -- Standard check of p_simulate and p_commit parameters
3252: end if;
3253:
3254: -- Standard check of p_simulate and p_commit parameters
3255:
3256: if FND_API.To_Boolean( p_simulate)
3257: then
3258: ROLLBACK to Get_TP_Address_Ref_PVT;
3259:
3260: elsif FND_API.To_Boolean( p_commit)
3256: if FND_API.To_Boolean( p_simulate)
3257: then
3258: ROLLBACK to Get_TP_Address_Ref_PVT;
3259:
3260: elsif FND_API.To_Boolean( p_commit)
3261: then
3262: commit work;
3263: end if;
3264:
3271: );
3272:
3273: EXCEPTION
3274:
3275: WHEN FND_API.G_EXC_ERROR THEN
3276:
3277: Rollback to Get_TP_Address_Ref_PVT;
3278: p_return_status := FND_API.G_RET_STS_ERROR;
3279:
3274:
3275: WHEN FND_API.G_EXC_ERROR THEN
3276:
3277: Rollback to Get_TP_Address_Ref_PVT;
3278: p_return_status := FND_API.G_RET_STS_ERROR;
3279:
3280: FND_MSG_PUB.Count_And_Get
3281: (
3282: p_count => p_msg_count,
3282: p_count => p_msg_count,
3283: p_data => p_msg_data
3284: );
3285:
3286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3287:
3288: Rollback to Get_TP_Address_Ref_PVT;
3289: p_return_status := FND_API.G_RET_STS_ERROR;
3290:
3285:
3286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3287:
3288: Rollback to Get_TP_Address_Ref_PVT;
3289: p_return_status := FND_API.G_RET_STS_ERROR;
3290:
3291: FND_MSG_PUB.Count_And_Get
3292: (
3293: p_count => p_msg_count,
3296:
3297: WHEN OTHERS THEN
3298:
3299: Rollback to Get_TP_Address_Ref_PVT;
3300: p_return_status := FND_API.G_RET_STS_ERROR;
3301:
3302: if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3303: then
3304: FND_MSG_PUB.Add_Exc_Msg
3321: -- procedure Get_TP_Location_Code
3322: -- ***********************************************
3323: PROCEDURE Get_TP_Location_Code
3324: ( p_api_version_number IN NUMBER,
3325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3326: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
3327: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3328: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3329: p_return_status OUT NOCOPY VARCHAR2,
3322: -- ***********************************************
3323: PROCEDURE Get_TP_Location_Code
3324: ( p_api_version_number IN NUMBER,
3325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3326: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
3327: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3328: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3329: p_return_status OUT NOCOPY VARCHAR2,
3330: p_msg_count OUT NOCOPY NUMBER,
3323: PROCEDURE Get_TP_Location_Code
3324: ( p_api_version_number IN NUMBER,
3325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3326: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
3327: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3328: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3329: p_return_status OUT NOCOPY VARCHAR2,
3330: p_msg_count OUT NOCOPY NUMBER,
3331: p_msg_data OUT NOCOPY VARCHAR2,
3324: ( p_api_version_number IN NUMBER,
3325: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3326: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
3327: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3328: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3329: p_return_status OUT NOCOPY VARCHAR2,
3330: p_msg_count OUT NOCOPY NUMBER,
3331: p_msg_data OUT NOCOPY VARCHAR2,
3332: p_entity_address_id IN NUMBER,
3384: SAVEPOINT Get_TP_Location_Code_PVT;
3385:
3386: -- Standard call to check for call compatibility.
3387:
3388: if NOT FND_API.Compatible_API_Call
3389: (
3390: l_api_version_number,
3391: p_api_version_number,
3392: l_api_name,
3392: l_api_name,
3393: G_PKG_NAME
3394: )
3395: then
3396: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3397: end if;
3398:
3399: -- Initialize message list if p_init_msg_list is set to TRUE.
3400:
3397: end if;
3398:
3399: -- Initialize message list if p_init_msg_list is set to TRUE.
3400:
3401: if FND_API.to_Boolean( p_init_msg_list)
3402: then
3403: FND_MSG_PUB.initialize;
3404: end if;
3405:
3404: end if;
3405:
3406: -- Initialize API return status to success
3407:
3408: p_return_status := FND_API.G_RET_STS_SUCCESS;
3409:
3410:
3411: if ( p_info_type = EC_Trading_Partner_PVT.G_CUSTOMER)
3412: then
3432: p_reference_ext1 := bank.tp_reference_ext1;
3433: p_reference_ext2 := bank.tp_reference_ext2;
3434: end loop;
3435: else
3436: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3437: end if;
3438:
3439: if l_location_code_ext is NULL
3440: then
3447:
3448: -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
3449: -- the API exception handler.
3450:
3451: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
3452: then
3453:
3454: -- Unexpected error, abort processing.
3455:
3452: then
3453:
3454: -- Unexpected error, abort processing.
3455:
3456: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3457:
3458: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
3459:
3460: -- Error, abort processing
3454: -- Unexpected error, abort processing.
3455:
3456: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3457:
3458: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
3459:
3460: -- Error, abort processing
3461:
3462: raise FND_API.G_EXC_ERROR;
3458: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
3459:
3460: -- Error, abort processing
3461:
3462: raise FND_API.G_EXC_ERROR;
3463:
3464: end if;
3465:
3466: -- Standard check of p_simulate and p_commit parameters
3464: end if;
3465:
3466: -- Standard check of p_simulate and p_commit parameters
3467:
3468: if FND_API.To_Boolean( p_simulate)
3469: then
3470: ROLLBACK to Get_TP_Location_Code_PVT;
3471:
3472: elsif FND_API.To_Boolean( p_commit)
3468: if FND_API.To_Boolean( p_simulate)
3469: then
3470: ROLLBACK to Get_TP_Location_Code_PVT;
3471:
3472: elsif FND_API.To_Boolean( p_commit)
3473: then
3474: commit work;
3475: end if;
3476:
3483: );
3484:
3485: EXCEPTION
3486:
3487: WHEN FND_API.G_EXC_ERROR THEN
3488:
3489: Rollback to Get_TP_Location_Code_PVT;
3490: p_return_status := FND_API.G_RET_STS_ERROR;
3491:
3486:
3487: WHEN FND_API.G_EXC_ERROR THEN
3488:
3489: Rollback to Get_TP_Location_Code_PVT;
3490: p_return_status := FND_API.G_RET_STS_ERROR;
3491:
3492: FND_MSG_PUB.Count_And_Get
3493: (
3494: p_count => p_msg_count,
3494: p_count => p_msg_count,
3495: p_data => p_msg_data
3496: );
3497:
3498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3499:
3500: Rollback to Get_TP_Location_Code_PVT;
3501: p_return_status := FND_API.G_RET_STS_ERROR;
3502:
3497:
3498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3499:
3500: Rollback to Get_TP_Location_Code_PVT;
3501: p_return_status := FND_API.G_RET_STS_ERROR;
3502:
3503: FND_MSG_PUB.Count_And_Get
3504: (
3505: p_count => p_msg_count,
3508:
3509: WHEN OTHERS THEN
3510:
3511: Rollback to Get_TP_Location_Code_PVT;
3512: p_return_status := FND_API.G_RET_STS_ERROR;
3513:
3514: if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3515: then
3516: FND_MSG_PUB.Add_Exc_Msg