196: IF p_location_table_name IS NULL THEN
197:
198: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_LOC_TABLE_MAND');
199: FND_MSG_PUB.ADD;
200: RAISE FND_API.G_EXC_ERROR;
201:
202: ELSIF p_location_table_name NOT IN ( 'HR_LOCATIONS_ALL',
203: 'HZ_LOCATIONS') THEN
204:
203: 'HZ_LOCATIONS') THEN
204:
205: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_LOC_TABLE_INVALID');
206: FND_MSG_PUB.ADD;
207: RAISE FND_API.G_EXC_ERROR;
208:
209: END IF;
210:
211: l_from_location_id := to_number(p_from_location_id);
222: IF l_from_location_id IS NULL THEN
223: IF l_to_location_id IS NOT NULL THEN
224: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_TO_LOC_NOT_NULL');
225: FND_MSG_PUB.ADD;
226: RAISE FND_API.G_EXC_ERROR;
227:
228: END IF;
229: ELSE
230: IF l_to_location_id IS NULL THEN
232: ELSE
233: IF l_from_location_id > l_to_location_id THEN
234: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_FROM_LOC_HIGHER');
235: FND_MSG_PUB.ADD;
236: RAISE FND_API.G_EXC_ERROR;
237: END IF;
238: END IF;
239: END IF;
240:
246: IF l_start_date IS NULL THEN
247: IF l_end_date IS NOT NULL THEN
248: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_TO_DATE_NOT_NULL');
249: FND_MSG_PUB.ADD;
250: RAISE FND_API.G_EXC_ERROR;
251:
252: END IF;
253: ELSE
254: IF l_end_date IS NULL THEN
256: ELSE
257: IF l_start_date > l_end_date THEN
258: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_START_DATE_HIGHER');
259: FND_MSG_PUB.ADD;
260: RAISE FND_API.G_EXC_ERROR;
261: END IF;
262: END IF;
263: END IF;
264:
268: -- If new run type is added, message text will have to be changed.
269: IF (p_run_type IS NULL) THEN
270: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_INVALID_RUN_TYPE');
271: FND_MSG_PUB.ADD;
272: RAISE FND_API.G_EXC_ERROR;
273: ELSE
274: SELECT COUNT(*)
275: INTO l_run_type_count
276: FROM ar_lookups
281:
282: IF (l_run_type_count = 0) THEN
283: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_INVALID_RUN_TYPE');
284: FND_MSG_PUB.ADD;
285: RAISE FND_API.G_EXC_ERROR;
286: END IF;
287: END IF;
288:
289: -- Validate USAGE Type parameter from seeded usage from ar_lookups for
299:
300: IF (l_usage_count = 0) THEN
301: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_INVALID_USAGE_CODE');
302: FND_MSG_PUB.ADD;
303: RAISE FND_API.G_EXC_ERROR;
304: END IF;
305: END IF;
306:
307: -- Validate Country Code parameter from FND_TERRITORIES
314:
315: IF (l_country_code_count = 0) THEN
316: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NOT_VALID_COUNTRY');
317: FND_MSG_PUB.ADD;
318: RAISE FND_API.G_EXC_ERROR;
319: END IF;
320: END IF;
321:
322: l_num_of_workers := fnd_profile.VALUE('HZ_GNR_NUM_OF_WORKERS');
359: HZ_GNR_UTIL_PKG.outandlog('Concurrent Program Execution completed ');
360: HZ_GNR_UTIL_PKG.outandlog('End Time : '|| TO_CHAR(SYSDATE, 'MM-DD-YY HH24:MI:SS'));
361:
362: EXCEPTION
363: WHEN FND_API.G_EXC_ERROR THEN
364: HZ_GNR_UTIL_PKG.outandlog('Error: Aborting Geo Name Referencing');
365: retcode := 2;
366: errbuf := errbuf || HZ_GNR_UTIL_PKG.logerror;
367: FND_FILE.close;
364: HZ_GNR_UTIL_PKG.outandlog('Error: Aborting Geo Name Referencing');
365: retcode := 2;
366: errbuf := errbuf || HZ_GNR_UTIL_PKG.logerror;
367: FND_FILE.close;
368: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
369: HZ_GNR_UTIL_PKG.outandlog('Error: Aborting Geo Name Referencing');
370: retcode := 2;
371: errbuf := errbuf || HZ_GNR_UTIL_PKG.logerror;
372: FND_FILE.close;
991: HZ_GNR_PKG.validateHrLoc(l_cur_location_id,
992: l_return_status
993: );
994: EXCEPTION
995: WHEN FND_API.G_EXC_ERROR THEN
996: l_num_err_locations := l_num_err_locations + 1;
997: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
998: FND_MSG_PUB.Reset;
999: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
996: l_num_err_locations := l_num_err_locations + 1;
997: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
998: FND_MSG_PUB.Reset;
999: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1000: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1001: END LOOP;
1002: FND_MSG_PUB.Delete_Msg;
1003: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1004: l_num_err_locations := l_num_err_locations + 1;
999: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1000: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1001: END LOOP;
1002: FND_MSG_PUB.Delete_Msg;
1003: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1004: l_num_err_locations := l_num_err_locations + 1;
1005: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1006: FND_MSG_PUB.Reset;
1007: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1004: l_num_err_locations := l_num_err_locations + 1;
1005: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1006: FND_MSG_PUB.Reset;
1007: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1008: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1009: END LOOP;
1010: FND_MSG_PUB.Delete_Msg;
1011: WHEN OTHERS THEN
1012: l_num_err_locations := l_num_err_locations + 1;
1012: l_num_err_locations := l_num_err_locations + 1;
1013: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1014: FND_MSG_PUB.Reset;
1015: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1016: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1017: END LOOP;
1018: FND_MSG_PUB.Delete_Msg;
1019: END;
1020:
1076: HZ_GNR_PKG.validateHrLoc(l_cur_location_id,
1077: l_return_status
1078: );
1079: EXCEPTION
1080: WHEN FND_API.G_EXC_ERROR THEN
1081: l_num_err_locations := l_num_err_locations + 1;
1082: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1083: FND_MSG_PUB.Reset;
1084: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1081: l_num_err_locations := l_num_err_locations + 1;
1082: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1083: FND_MSG_PUB.Reset;
1084: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1085: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1086: END LOOP;
1087: FND_MSG_PUB.Delete_Msg;
1088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1089: l_num_err_locations := l_num_err_locations + 1;
1084: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1085: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1086: END LOOP;
1087: FND_MSG_PUB.Delete_Msg;
1088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1089: l_num_err_locations := l_num_err_locations + 1;
1090: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1091: FND_MSG_PUB.Reset;
1092: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1089: l_num_err_locations := l_num_err_locations + 1;
1090: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1091: FND_MSG_PUB.Reset;
1092: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1093: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1094: END LOOP;
1095: FND_MSG_PUB.Delete_Msg;
1096: WHEN OTHERS THEN
1097: l_num_err_locations := l_num_err_locations + 1;
1097: l_num_err_locations := l_num_err_locations + 1;
1098: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1099: FND_MSG_PUB.Reset;
1100: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1101: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1102: END LOOP;
1103: FND_MSG_PUB.Delete_Msg;
1104: END;
1105:
1161: HZ_GNR_PKG.validateHrLoc(l_cur_location_id,
1162: l_return_status
1163: );
1164: EXCEPTION
1165: WHEN FND_API.G_EXC_ERROR THEN
1166: l_num_err_locations := l_num_err_locations + 1;
1167: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1168: FND_MSG_PUB.Reset;
1169: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1166: l_num_err_locations := l_num_err_locations + 1;
1167: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1168: FND_MSG_PUB.Reset;
1169: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1170: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1171: END LOOP;
1172: FND_MSG_PUB.Delete_Msg;
1173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1174: l_num_err_locations := l_num_err_locations + 1;
1169: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1170: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1171: END LOOP;
1172: FND_MSG_PUB.Delete_Msg;
1173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1174: l_num_err_locations := l_num_err_locations + 1;
1175: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1176: FND_MSG_PUB.Reset;
1177: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1174: l_num_err_locations := l_num_err_locations + 1;
1175: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1176: FND_MSG_PUB.Reset;
1177: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1178: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1179: END LOOP;
1180: FND_MSG_PUB.Delete_Msg;
1181: WHEN OTHERS THEN
1182: l_num_err_locations := l_num_err_locations + 1;
1182: l_num_err_locations := l_num_err_locations + 1;
1183: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1184: FND_MSG_PUB.Reset;
1185: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1186: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1187: END LOOP;
1188: FND_MSG_PUB.Delete_Msg;
1189: END;
1190:
1281: X_ADDR_WARN_MSG => l_addr_warn_msg,
1282: X_ADDR_VAL_STATUS => l_addr_val_status,
1283: X_STATUS => l_return_status);
1284: EXCEPTION
1285: WHEN FND_API.G_EXC_ERROR THEN
1286: l_num_err_locations := l_num_err_locations + 1;
1287: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1288: FND_MSG_PUB.Reset;
1289: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1286: l_num_err_locations := l_num_err_locations + 1;
1287: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1288: FND_MSG_PUB.Reset;
1289: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1290: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1291: END LOOP;
1292: FND_MSG_PUB.Delete_Msg;
1293: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1294: l_num_err_locations := l_num_err_locations + 1;
1289: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1290: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1291: END LOOP;
1292: FND_MSG_PUB.Delete_Msg;
1293: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1294: l_num_err_locations := l_num_err_locations + 1;
1295: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1296: FND_MSG_PUB.Reset;
1297: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1294: l_num_err_locations := l_num_err_locations + 1;
1295: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1296: FND_MSG_PUB.Reset;
1297: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1298: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1299: END LOOP;
1300: FND_MSG_PUB.Delete_Msg;
1301: WHEN OTHERS THEN
1302: l_num_err_locations := l_num_err_locations + 1;
1303: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1304: HZ_GNR_UTIL_PKG.out(SQLERRM);
1305: FND_MSG_PUB.Reset;
1306: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1307: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1308: END LOOP;
1309: FND_MSG_PUB.Delete_Msg;
1310: END;
1311:
1319: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1320: HZ_GNR_UTIL_PKG.out('Error: '||SQLERRM);
1321: FND_MSG_PUB.Reset;
1322: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1323: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1324: END LOOP;
1325: FND_MSG_PUB.Delete_Msg;
1326: END;
1327:
1402: X_ADDR_WARN_MSG => l_addr_warn_msg,
1403: X_ADDR_VAL_STATUS => l_addr_val_status,
1404: X_STATUS => l_return_status);
1405: EXCEPTION
1406: WHEN FND_API.G_EXC_ERROR THEN
1407: l_num_err_locations := l_num_err_locations + 1;
1408: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1409: FND_MSG_PUB.Reset;
1410: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1407: l_num_err_locations := l_num_err_locations + 1;
1408: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1409: FND_MSG_PUB.Reset;
1410: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1411: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1412: END LOOP;
1413: FND_MSG_PUB.Delete_Msg;
1414: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1415: l_num_err_locations := l_num_err_locations + 1;
1410: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1411: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1412: END LOOP;
1413: FND_MSG_PUB.Delete_Msg;
1414: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1415: l_num_err_locations := l_num_err_locations + 1;
1416: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1417: FND_MSG_PUB.Reset;
1418: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1415: l_num_err_locations := l_num_err_locations + 1;
1416: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1417: FND_MSG_PUB.Reset;
1418: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1419: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1420: END LOOP;
1421: FND_MSG_PUB.Delete_Msg;
1422: WHEN OTHERS THEN
1423: l_num_err_locations := l_num_err_locations + 1;
1423: l_num_err_locations := l_num_err_locations + 1;
1424: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1425: FND_MSG_PUB.Reset;
1426: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1427: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1428: END LOOP;
1429: FND_MSG_PUB.Delete_Msg;
1430: END;
1431:
1506: X_ADDR_WARN_MSG => l_addr_warn_msg,
1507: X_ADDR_VAL_STATUS => l_addr_val_status,
1508: X_STATUS => l_return_status);
1509: EXCEPTION
1510: WHEN FND_API.G_EXC_ERROR THEN
1511: l_num_err_locations := l_num_err_locations + 1;
1512: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1513: FND_MSG_PUB.Reset;
1514: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1511: l_num_err_locations := l_num_err_locations + 1;
1512: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1513: FND_MSG_PUB.Reset;
1514: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1515: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1516: END LOOP;
1517: FND_MSG_PUB.Delete_Msg;
1518: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1519: l_num_err_locations := l_num_err_locations + 1;
1514: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1515: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1516: END LOOP;
1517: FND_MSG_PUB.Delete_Msg;
1518: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1519: l_num_err_locations := l_num_err_locations + 1;
1520: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1521: FND_MSG_PUB.Reset;
1522: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1519: l_num_err_locations := l_num_err_locations + 1;
1520: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1521: FND_MSG_PUB.Reset;
1522: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1523: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1524: END LOOP;
1525: FND_MSG_PUB.Delete_Msg;
1526: WHEN OTHERS THEN
1527: l_num_err_locations := l_num_err_locations + 1;
1527: l_num_err_locations := l_num_err_locations + 1;
1528: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1529: FND_MSG_PUB.Reset;
1530: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1531: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1532: END LOOP;
1533: FND_MSG_PUB.Delete_Msg;
1534: END;
1535:
1620: X_ADDR_WARN_MSG => l_addr_warn_msg,
1621: X_ADDR_VAL_STATUS => l_addr_val_status,
1622: X_STATUS => l_return_status);
1623: EXCEPTION
1624: WHEN FND_API.G_EXC_ERROR THEN
1625: l_num_err_locations := l_num_err_locations + 1;
1626: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1627: FND_MSG_PUB.Reset;
1628: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1625: l_num_err_locations := l_num_err_locations + 1;
1626: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1627: FND_MSG_PUB.Reset;
1628: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1629: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1630: END LOOP;
1631: FND_MSG_PUB.Delete_Msg;
1632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1633: l_num_err_locations := l_num_err_locations + 1;
1628: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1629: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1630: END LOOP;
1631: FND_MSG_PUB.Delete_Msg;
1632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1633: l_num_err_locations := l_num_err_locations + 1;
1634: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1635: FND_MSG_PUB.Reset;
1636: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1633: l_num_err_locations := l_num_err_locations + 1;
1634: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1635: FND_MSG_PUB.Reset;
1636: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1637: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1638: END LOOP;
1639: FND_MSG_PUB.Delete_Msg;
1640: WHEN OTHERS THEN
1641: l_num_err_locations := l_num_err_locations + 1;
1642: HZ_GNR_UTIL_PKG.out(l_curr_loc_msg_prefix ||' '|| l_cur_location_id);
1643: HZ_GNR_UTIL_PKG.out(SQLERRM);
1644: FND_MSG_PUB.Reset;
1645: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1646: HZ_GNR_UTIL_PKG.out(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1647: END LOOP;
1648: FND_MSG_PUB.Delete_Msg;
1649: END;
1650:
1690:
1691: HZ_GNR_UTIL_PKG.outandlog('Unknown Error at Location ID: ' || l_cur_location_id || ' : ' || SQLERRM);
1692: HZ_GNR_UTIL_PKG.outandlog('Error: Aborting Geo Name Referencing');
1693: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1694: HZ_GNR_UTIL_PKG.outandlog(FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE ));
1695: END LOOP;
1696:
1697: retcode := 2;
1698: errbuf := 'Unexpected SQL Error at location id :' || l_cur_location_id;
1756: delete from hz_geo_name_reference_log
1757: where location_table_name = p_locTbl
1758: and location_id = p_locId;
1759: EXCEPTION WHEN OTHERS THEN
1760: x_status := FND_API.G_RET_STS_ERROR;
1761: RAISE FND_API.G_EXC_ERROR;
1762: END delete_gnr;
1763:
1764: PROCEDURE validateHrLoc(
1757: where location_table_name = p_locTbl
1758: and location_id = p_locId;
1759: EXCEPTION WHEN OTHERS THEN
1760: x_status := FND_API.G_RET_STS_ERROR;
1761: RAISE FND_API.G_EXC_ERROR;
1762: END delete_gnr;
1763:
1764: PROCEDURE validateHrLoc(
1765: P_LOCATION_ID IN NUMBER,
1776: SELECT country,style
1777: FROM hr_locations_all
1778: WHERE location_id = p_loc_id;
1779: BEGIN
1780: x_status := fnd_api.g_ret_sts_success; -- defaulting the sucess status.
1781:
1782: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1783: hz_utility_v2pub.debug
1784: (p_message => 'Begin of validation procedure validateHrLoc',
1809: p_module_prefix => l_module_prefix,
1810: p_module => l_module
1811: );
1812: END IF;
1813: x_status := FND_API.G_RET_STS_ERROR;
1814: RAISE FND_API.G_EXC_ERROR;
1815: END IF;
1816: END LOOP;
1817:
1810: p_module => l_module
1811: );
1812: END IF;
1813: x_status := FND_API.G_RET_STS_ERROR;
1814: RAISE FND_API.G_EXC_ERROR;
1815: END IF;
1816: END LOOP;
1817:
1818: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1837: p_module_prefix => l_module_prefix,
1838: p_module => l_module
1839: );
1840: END IF;
1841: x_status := FND_API.G_RET_STS_ERROR;
1842: RAISE FND_API.G_EXC_ERROR;
1843: END;
1844:
1845: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1838: p_module => l_module
1839: );
1840: END IF;
1841: x_status := FND_API.G_RET_STS_ERROR;
1842: RAISE FND_API.G_EXC_ERROR;
1843: END;
1844:
1845: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1846: hz_utility_v2pub.debug
1982: END get_usage_API;
1983:
1984: BEGIN
1985:
1986: x_status := fnd_api.g_ret_sts_success; -- defaulting the sucess status.
1987: x_addr_val_status := FND_api.g_ret_sts_success; -- defaulting the sucess status.
1988:
1989: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1990: hz_utility_v2pub.debug
1983:
1984: BEGIN
1985:
1986: x_status := fnd_api.g_ret_sts_success; -- defaulting the sucess status.
1987: x_addr_val_status := FND_api.g_ret_sts_success; -- defaulting the sucess status.
1988:
1989: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1990: hz_utility_v2pub.debug
1991: (p_message => 'Begin of validation procedure validateLoc',
2046: p_module_prefix => l_module_prefix,
2047: p_module => l_module
2048: );
2049: END IF;
2050: x_status := FND_API.G_RET_STS_ERROR;
2051: x_addr_val_status := FND_API.G_RET_STS_ERROR;
2052: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_MAP_FOR_COUNTRY');
2053: FND_MSG_PUB.ADD;
2054: RAISE FND_API.G_EXC_ERROR;
2047: p_module => l_module
2048: );
2049: END IF;
2050: x_status := FND_API.G_RET_STS_ERROR;
2051: x_addr_val_status := FND_API.G_RET_STS_ERROR;
2052: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_MAP_FOR_COUNTRY');
2053: FND_MSG_PUB.ADD;
2054: RAISE FND_API.G_EXC_ERROR;
2055: ELSIF l_addr_val_level = 'NONE' THEN -- Validation level is set to none and no mapping for the country
2050: x_status := FND_API.G_RET_STS_ERROR;
2051: x_addr_val_status := FND_API.G_RET_STS_ERROR;
2052: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_MAP_FOR_COUNTRY');
2053: FND_MSG_PUB.ADD;
2054: RAISE FND_API.G_EXC_ERROR;
2055: ELSIF l_addr_val_level = 'NONE' THEN -- Validation level is set to none and no mapping for the country
2056: -- It is not required to do any further processing even for TAX.
2057: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2058: hz_utility_v2pub.debug
2127: p_module_prefix => l_module_prefix,
2128: p_module => l_module
2129: );
2130: END IF;
2131: x_status := FND_API.G_RET_STS_ERROR;
2132: x_addr_val_status := FND_API.G_RET_STS_ERROR;
2133: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_USAGE_FOR_COUNTRY');
2134: FND_MSG_PUB.ADD;
2135: RAISE FND_API.G_EXC_ERROR;
2128: p_module => l_module
2129: );
2130: END IF;
2131: x_status := FND_API.G_RET_STS_ERROR;
2132: x_addr_val_status := FND_API.G_RET_STS_ERROR;
2133: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_USAGE_FOR_COUNTRY');
2134: FND_MSG_PUB.ADD;
2135: RAISE FND_API.G_EXC_ERROR;
2136: ELSIF l_addr_val_level = 'NONE' THEN -- Validation level is set to none and no usage defined for the country
2131: x_status := FND_API.G_RET_STS_ERROR;
2132: x_addr_val_status := FND_API.G_RET_STS_ERROR;
2133: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_USAGE_FOR_COUNTRY');
2134: FND_MSG_PUB.ADD;
2135: RAISE FND_API.G_EXC_ERROR;
2136: ELSIF l_addr_val_level = 'NONE' THEN -- Validation level is set to none and no usage defined for the country
2137: -- It is not required to do any further processing even for TAX.
2138: IF (l_usage_tbl(i).usage_code = 'TAX' OR i = l_usage_tbl.LAST) THEN
2139: --Even if validateion level is NONE then tax validation has to go through.
2242: p_module_prefix => l_module_prefix,
2243: p_module => l_module
2244: );
2245: END IF;
2246: x_status := FND_API.G_RET_STS_ERROR;
2247: END;
2248:
2249: IF p_called_from = 'VALIDATE' and l_usage_tbl(i).usage_code <> 'TAX' and p_location_id IS NOT NULL THEN
2250: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2367: p_module_prefix => l_module_prefix,
2368: p_module => l_module
2369: );
2370: END IF;
2371: x_status := FND_API.G_RET_STS_ERROR;
2372: END;
2373: END IF;
2374: END LOOP;
2375: ELSE
2395: p_module_prefix => l_module_prefix,
2396: p_module => l_module
2397: );
2398: END IF;
2399: x_status := FND_API.G_RET_STS_ERROR;
2400: x_addr_val_status := FND_API.G_RET_STS_ERROR;
2401: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_USAGE_FOR_COUNTRY');
2402: FND_MSG_PUB.ADD;
2403: RAISE FND_API.G_EXC_ERROR;
2396: p_module => l_module
2397: );
2398: END IF;
2399: x_status := FND_API.G_RET_STS_ERROR;
2400: x_addr_val_status := FND_API.G_RET_STS_ERROR;
2401: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_USAGE_FOR_COUNTRY');
2402: FND_MSG_PUB.ADD;
2403: RAISE FND_API.G_EXC_ERROR;
2404: ELSE
2399: x_status := FND_API.G_RET_STS_ERROR;
2400: x_addr_val_status := FND_API.G_RET_STS_ERROR;
2401: FND_MESSAGE.SET_NAME('AR', 'HZ_GEO_NO_USAGE_FOR_COUNTRY');
2402: FND_MSG_PUB.ADD;
2403: RAISE FND_API.G_EXC_ERROR;
2404: ELSE
2405: NULL;
2406: END IF;
2407: END IF;