30: IF g_debug_count = 1 THEN
31: IF fnd_profile.value('HZ_API_FILE_DEBUG_ON') = 'Y' OR
32: fnd_profile.value('HZ_API_DBMS_DEBUG_ON') = 'Y'
33: THEN
34: hz_utility_v2pub.enable_debug;
35: g_debug := TRUE;
36: END IF;
37: END IF;
38: END enable_debug; -- end procedure
44:
45: IF g_debug THEN
46: g_debug_count := g_debug_count - 1;
47: IF g_debug_count = 0 THEN
48: hz_utility_v2pub.disable_debug;
49: g_debug := FALSE;
50: END IF;
51: END IF;
52:
246: be used in GNR program, where it updates the location components.
247:
248: EXTERNAL PROCEDURES/FUNCTIONS ACCESSED :
249: HZ_LOCATION_V2PUB
250: HZ_UTILITY_V2PUB
251: HZ_DQM_SYNC
252: HZ_BUSINESS_EVENT_V2PVT
253: HZ_POPULATE_BOT_PKG
254:
270: x_msg_count OUT NOCOPY NUMBER,
271: x_msg_data OUT NOCOPY VARCHAR2
272: ) IS
273:
274: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
275: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
276: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
277: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
278: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
271: x_msg_data OUT NOCOPY VARCHAR2
272: ) IS
273:
274: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
275: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
276: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
277: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
278: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
279: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
272: ) IS
273:
274: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
275: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
276: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
277: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
278: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
279: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
280: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
273:
274: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
275: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
276: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
277: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
278: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
279: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
280: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
281: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
274: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
275: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
276: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
277: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
278: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
279: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
280: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
281: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
282: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
275: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
276: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
277: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
278: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
279: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
280: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
281: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
282: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
283: l_program_update_date DATE; -- hz_utility_v2pub.program_update_date;
277: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
278: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
279: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
280: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
281: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
282: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
283: l_program_update_date DATE; -- hz_utility_v2pub.program_update_date;
284:
285: BEGIN
278: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
279: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
280: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
281: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
282: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
283: l_program_update_date DATE; -- hz_utility_v2pub.program_update_date;
284:
285: BEGIN
286:
279: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
280: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
281: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
282: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
283: l_program_update_date DATE; -- hz_utility_v2pub.program_update_date;
284:
285: BEGIN
286:
287: -- Initialize variables (perf improvement bug 5130993)
284:
285: BEGIN
286:
287: -- Initialize variables (perf improvement bug 5130993)
288: l_last_updated_by := hz_utility_v2pub.last_updated_by;
289: l_creation_date := hz_utility_v2pub.creation_date;
290: l_created_by := hz_utility_v2pub.created_by;
291: l_last_update_date := hz_utility_v2pub.last_update_date;
292: l_last_update_login := hz_utility_v2pub.last_update_login;
285: BEGIN
286:
287: -- Initialize variables (perf improvement bug 5130993)
288: l_last_updated_by := hz_utility_v2pub.last_updated_by;
289: l_creation_date := hz_utility_v2pub.creation_date;
290: l_created_by := hz_utility_v2pub.created_by;
291: l_last_update_date := hz_utility_v2pub.last_update_date;
292: l_last_update_login := hz_utility_v2pub.last_update_login;
293: l_program_id := hz_utility_v2pub.program_id;
286:
287: -- Initialize variables (perf improvement bug 5130993)
288: l_last_updated_by := hz_utility_v2pub.last_updated_by;
289: l_creation_date := hz_utility_v2pub.creation_date;
290: l_created_by := hz_utility_v2pub.created_by;
291: l_last_update_date := hz_utility_v2pub.last_update_date;
292: l_last_update_login := hz_utility_v2pub.last_update_login;
293: l_program_id := hz_utility_v2pub.program_id;
294: l_conc_login_id := fnd_global.conc_login_id;
287: -- Initialize variables (perf improvement bug 5130993)
288: l_last_updated_by := hz_utility_v2pub.last_updated_by;
289: l_creation_date := hz_utility_v2pub.creation_date;
290: l_created_by := hz_utility_v2pub.created_by;
291: l_last_update_date := hz_utility_v2pub.last_update_date;
292: l_last_update_login := hz_utility_v2pub.last_update_login;
293: l_program_id := hz_utility_v2pub.program_id;
294: l_conc_login_id := fnd_global.conc_login_id;
295: l_program_application_id := hz_utility_v2pub.program_application_id;
288: l_last_updated_by := hz_utility_v2pub.last_updated_by;
289: l_creation_date := hz_utility_v2pub.creation_date;
290: l_created_by := hz_utility_v2pub.created_by;
291: l_last_update_date := hz_utility_v2pub.last_update_date;
292: l_last_update_login := hz_utility_v2pub.last_update_login;
293: l_program_id := hz_utility_v2pub.program_id;
294: l_conc_login_id := fnd_global.conc_login_id;
295: l_program_application_id := hz_utility_v2pub.program_application_id;
296: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
289: l_creation_date := hz_utility_v2pub.creation_date;
290: l_created_by := hz_utility_v2pub.created_by;
291: l_last_update_date := hz_utility_v2pub.last_update_date;
292: l_last_update_login := hz_utility_v2pub.last_update_login;
293: l_program_id := hz_utility_v2pub.program_id;
294: l_conc_login_id := fnd_global.conc_login_id;
295: l_program_application_id := hz_utility_v2pub.program_application_id;
296: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
297: l_program_update_date := hz_utility_v2pub.program_update_date;
291: l_last_update_date := hz_utility_v2pub.last_update_date;
292: l_last_update_login := hz_utility_v2pub.last_update_login;
293: l_program_id := hz_utility_v2pub.program_id;
294: l_conc_login_id := fnd_global.conc_login_id;
295: l_program_application_id := hz_utility_v2pub.program_application_id;
296: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
297: l_program_update_date := hz_utility_v2pub.program_update_date;
298:
299: -- update de-normalized location components in HZ_PARTIES for parties
292: l_last_update_login := hz_utility_v2pub.last_update_login;
293: l_program_id := hz_utility_v2pub.program_id;
294: l_conc_login_id := fnd_global.conc_login_id;
295: l_program_application_id := hz_utility_v2pub.program_application_id;
296: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
297: l_program_update_date := hz_utility_v2pub.program_update_date;
298:
299: -- update de-normalized location components in HZ_PARTIES for parties
300: -- having this location as an identifying location. There can be multiple
293: l_program_id := hz_utility_v2pub.program_id;
294: l_conc_login_id := fnd_global.conc_login_id;
295: l_program_application_id := hz_utility_v2pub.program_application_id;
296: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
297: l_program_update_date := hz_utility_v2pub.program_update_date;
298:
299: -- update de-normalized location components in HZ_PARTIES for parties
300: -- having this location as an identifying location. There can be multiple
301: -- such parties.
336: EXIT WHEN c1%NOTFOUND;
337:
338: -- Debug info.
339: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
340: hz_utility_v2pub.debug(p_message=>'Denormalizing party with ID: ' ||
341: l_party_id,
342: p_prefix =>'INFO:',
343: p_msg_level=>fnd_log.level_statement);
344: END IF;
398: -- SSM SST Integration and Extension
399: -- For non-profile entities, the concept of select/de-select data-sources is obsoleted.
400: -- There is no need to check if the data-source is selected.
401: -- l_old_location_rec.orig_system := p_location_rec.orig_system;
402: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'Y')) THEN
403: HZ_BUSINESS_EVENT_V2PVT.update_location_event (
404: p_new_location_rec,
405: p_old_location_rec);
406: END IF;
404: p_new_location_rec,
405: p_old_location_rec);
406: END IF;
407:
408: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('EVENTS_ENABLED', 'BO_EVENTS_ENABLED')) THEN
409: -- populate function for integration service
410: HZ_POPULATE_BOT_PKG.pop_hz_locations(
411: p_operation => 'U',
412: p_location_id => p_new_location_rec.location_id );
648: */
649:
650: -- Debug info.
651: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
652: hz_utility_v2pub.debug(p_message=>'bfr getMapId()',
653: p_prefix =>l_debug_prefix,
654: p_msg_level=>fnd_log.level_statement);
655: END IF;
656:
659: -- given a mapid, get the details of the map
660: IF (x_status <> fnd_api.g_ret_sts_success) THEN
661: -- Debug info.
662: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
663: hz_utility_v2pub.debug(p_message=>'getMapId() failed',
664: p_prefix=>'ERROR',
665: p_msg_level=>fnd_log.level_error);
666: END IF;
667:
683: WHEN no_data_found THEN
684:
685: -- Debug info.
686: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
687: hz_utility_v2pub.debug(p_message=>'in getMapRec Exception blk. No data found',
688: p_prefix=>'ERROR',
689: p_msg_level=>fnd_log.level_error);
690: END IF;
691:
892: -- Removed PO_VENDOR_SITES_ALL from the below if condition. Bug # 4584465
893: --IF p_loctbl = 'PO_VENDOR_SITES_ALL' THEN
894: -- Debug info.
895: -- IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
896: -- hz_utility_v2pub.debug(p_message=>'***sql for po_vendor_sites:'||l_sql_1,
897: -- p_prefix =>l_debug_prefix,
898: -- p_msg_level=>fnd_log.level_statement);
899: -- END IF;
900: -- execute IMMEDIATE l_sql_1 INTO x_cntry, x_addrstyle USING IN p_locid;
900: -- execute IMMEDIATE l_sql_1 INTO x_cntry, x_addrstyle USING IN p_locid;
901: IF p_loctbl = 'HZ_LOCATIONS' THEN
902: -- Debug info.
903: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
904: hz_utility_v2pub.debug(p_message=>'***sql for hz_locations'||l_sql_2,
905: p_prefix =>l_debug_prefix,
906: p_msg_level=>fnd_log.level_statement);
907: END IF;
908: execute IMMEDIATE l_sql_2 INTO x_cntry, x_addrstyle USING IN p_locid;
908: execute IMMEDIATE l_sql_2 INTO x_cntry, x_addrstyle USING IN p_locid;
909: ELSIF p_loctbl = 'HR_LOCATIONS_ALL' THEN
910: -- Debug info.
911: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
912: hz_utility_v2pub.debug(p_message=>'***sql for HR_LOCATIONS_ALL'||l_sql_3,
913: p_prefix =>l_debug_prefix,
914: p_msg_level=>fnd_log.level_statement);
915: END IF;
916: execute IMMEDIATE l_sql_3 INTO x_cntry, x_addrstyle USING IN p_locid;
918: -- this means that the supplied table name is not supported by gnr in hz.k
919: x_status := fnd_api.G_RET_STS_ERROR;
920: -- Debug info.
921: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
922: hz_utility_v2pub.debug(p_message=>'***bfr mesglog() when tbl name is invalid',
923: p_prefix=>'ERROR',
924: p_msg_level=>fnd_log.level_error);
925: END IF;
926: mesglog(p_locid,p_loctbl,'HZ_GEO_LOC_TABLE_INVALID', NULL, NULL, NULL, NULL);
928: END IF;
929: IF (x_cntry IS NULL) THEN
930: -- Debug info.
931: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
932: hz_utility_v2pub.debug(p_message=>'country code is null',
933: p_prefix=>'ERROR',
934: p_msg_level=>fnd_log.level_error);
935: END IF;
936: x_status := fnd_api.G_RET_STS_ERROR;
956: WHEN no_data_found THEN
957: x_status := fnd_api.G_RET_STS_ERROR;
958: -- Debug info.
959: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
960: hz_utility_v2pub.debug(p_message=>'***bfr mesglog() in no data found',
961: p_prefix=>'ERROR',
962: p_msg_level=>fnd_log.level_error);
963: END IF;
964: mesglog(p_locid,p_loctbl,'HZ_GEO_NO_LOC_REC', 'LOC_ID',p_locid, 'TABLE_NAME', p_loctbl);
1010: x_status OUT NOCOPY varchar2
1011: ) IS
1012: l_debug_prefix VARCHAR2(30) := '';
1013:
1014: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
1015: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
1016: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
1017: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1018: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1011: ) IS
1012: l_debug_prefix VARCHAR2(30) := '';
1013:
1014: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
1015: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
1016: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
1017: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1018: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1019: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1012: l_debug_prefix VARCHAR2(30) := '';
1013:
1014: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
1015: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
1016: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
1017: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1018: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1019: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1020: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
1013:
1014: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
1015: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
1016: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
1017: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1018: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1019: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1020: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
1021: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
1014: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
1015: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
1016: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
1017: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1018: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1019: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1020: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
1021: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
1022: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
1015: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
1016: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
1017: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1018: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1019: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1020: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
1021: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
1022: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
1023:
1017: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1018: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1019: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1020: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
1021: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
1022: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
1023:
1024: BEGIN
1025:
1018: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1019: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1020: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
1021: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
1022: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
1023:
1024: BEGIN
1025:
1026: /*
1029: 2. loop through the table of records and insert
1030: */
1031:
1032: -- Initialize variables (perf improvement bug 5130993)
1033: l_last_updated_by := hz_utility_v2pub.last_updated_by;
1034: l_creation_date := hz_utility_v2pub.creation_date;
1035: l_created_by := hz_utility_v2pub.created_by;
1036: l_last_update_date := hz_utility_v2pub.last_update_date;
1037: l_last_update_login := hz_utility_v2pub.last_update_login;
1030: */
1031:
1032: -- Initialize variables (perf improvement bug 5130993)
1033: l_last_updated_by := hz_utility_v2pub.last_updated_by;
1034: l_creation_date := hz_utility_v2pub.creation_date;
1035: l_created_by := hz_utility_v2pub.created_by;
1036: l_last_update_date := hz_utility_v2pub.last_update_date;
1037: l_last_update_login := hz_utility_v2pub.last_update_login;
1038: l_program_id := hz_utility_v2pub.program_id;
1031:
1032: -- Initialize variables (perf improvement bug 5130993)
1033: l_last_updated_by := hz_utility_v2pub.last_updated_by;
1034: l_creation_date := hz_utility_v2pub.creation_date;
1035: l_created_by := hz_utility_v2pub.created_by;
1036: l_last_update_date := hz_utility_v2pub.last_update_date;
1037: l_last_update_login := hz_utility_v2pub.last_update_login;
1038: l_program_id := hz_utility_v2pub.program_id;
1039: l_conc_login_id := fnd_global.conc_login_id;
1032: -- Initialize variables (perf improvement bug 5130993)
1033: l_last_updated_by := hz_utility_v2pub.last_updated_by;
1034: l_creation_date := hz_utility_v2pub.creation_date;
1035: l_created_by := hz_utility_v2pub.created_by;
1036: l_last_update_date := hz_utility_v2pub.last_update_date;
1037: l_last_update_login := hz_utility_v2pub.last_update_login;
1038: l_program_id := hz_utility_v2pub.program_id;
1039: l_conc_login_id := fnd_global.conc_login_id;
1040: l_program_application_id := hz_utility_v2pub.program_application_id;
1033: l_last_updated_by := hz_utility_v2pub.last_updated_by;
1034: l_creation_date := hz_utility_v2pub.creation_date;
1035: l_created_by := hz_utility_v2pub.created_by;
1036: l_last_update_date := hz_utility_v2pub.last_update_date;
1037: l_last_update_login := hz_utility_v2pub.last_update_login;
1038: l_program_id := hz_utility_v2pub.program_id;
1039: l_conc_login_id := fnd_global.conc_login_id;
1040: l_program_application_id := hz_utility_v2pub.program_application_id;
1041: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
1034: l_creation_date := hz_utility_v2pub.creation_date;
1035: l_created_by := hz_utility_v2pub.created_by;
1036: l_last_update_date := hz_utility_v2pub.last_update_date;
1037: l_last_update_login := hz_utility_v2pub.last_update_login;
1038: l_program_id := hz_utility_v2pub.program_id;
1039: l_conc_login_id := fnd_global.conc_login_id;
1040: l_program_application_id := hz_utility_v2pub.program_application_id;
1041: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
1042:
1036: l_last_update_date := hz_utility_v2pub.last_update_date;
1037: l_last_update_login := hz_utility_v2pub.last_update_login;
1038: l_program_id := hz_utility_v2pub.program_id;
1039: l_conc_login_id := fnd_global.conc_login_id;
1040: l_program_application_id := hz_utility_v2pub.program_application_id;
1041: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
1042:
1043: -- initializing the return status
1044: x_status := fnd_api.g_ret_sts_success;
1037: l_last_update_login := hz_utility_v2pub.last_update_login;
1038: l_program_id := hz_utility_v2pub.program_id;
1039: l_conc_login_id := fnd_global.conc_login_id;
1040: l_program_application_id := hz_utility_v2pub.program_application_id;
1041: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
1042:
1043: -- initializing the return status
1044: x_status := fnd_api.g_ret_sts_success;
1045:
1048:
1049:
1050: -- Debug info.
1051: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1052: hz_utility_v2pub.debug(p_message=>'deleting loc id, table name combo from gnr',
1053: p_prefix =>l_debug_prefix,
1054: p_msg_level=>fnd_log.level_statement);
1055: hz_utility_v2pub.debug(p_message=>'bfr delgnr()',
1056: p_prefix =>l_debug_prefix,
1051: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1052: hz_utility_v2pub.debug(p_message=>'deleting loc id, table name combo from gnr',
1053: p_prefix =>l_debug_prefix,
1054: p_msg_level=>fnd_log.level_statement);
1055: hz_utility_v2pub.debug(p_message=>'bfr delgnr()',
1056: p_prefix =>l_debug_prefix,
1057: p_msg_level=>fnd_log.level_statement);
1058: END IF;
1059:
1061: delgnr(p_locid,p_loctbl,x_status);
1062:
1063: -- Debug info.
1064: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1065: hz_utility_v2pub.debug(p_message=>'aft delGnr()',
1066: p_prefix =>l_debug_prefix,
1067: p_msg_level=>fnd_log.level_statement);
1068: END IF;
1069:
1091: WHEN others THEN
1092:
1093: -- Debug info.
1094: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
1095: hz_utility_v2pub.debug(p_message=>'error in ins gnr rec',
1096: p_prefix=>'ERROR',
1097: p_msg_level=>fnd_log.level_error);
1098: END IF;
1099: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1096: p_prefix=>'ERROR',
1097: p_msg_level=>fnd_log.level_error);
1098: END IF;
1099: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1100: hz_utility_v2pub.debug(p_message=>'loc id:'||p_locid,
1101: p_prefix =>l_debug_prefix,
1102: p_msg_level=>fnd_log.level_statement);
1103: hz_utility_v2pub.debug(p_message=>'loc tbl:'||p_loctbl,
1104: p_prefix =>l_debug_prefix,
1099: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1100: hz_utility_v2pub.debug(p_message=>'loc id:'||p_locid,
1101: p_prefix =>l_debug_prefix,
1102: p_msg_level=>fnd_log.level_statement);
1103: hz_utility_v2pub.debug(p_message=>'loc tbl:'||p_loctbl,
1104: p_prefix =>l_debug_prefix,
1105: p_msg_level=>fnd_log.level_statement);
1106: hz_utility_v2pub.debug(p_message=>'loc comp type:'||p_maptbl(i).geography_type,
1107: p_prefix =>l_debug_prefix,
1102: p_msg_level=>fnd_log.level_statement);
1103: hz_utility_v2pub.debug(p_message=>'loc tbl:'||p_loctbl,
1104: p_prefix =>l_debug_prefix,
1105: p_msg_level=>fnd_log.level_statement);
1106: hz_utility_v2pub.debug(p_message=>'loc comp type:'||p_maptbl(i).geography_type,
1107: p_prefix =>l_debug_prefix,
1108: p_msg_level=>fnd_log.level_statement);
1109: hz_utility_v2pub.debug(p_message=>'loc comp geo id:'||p_maptbl(i).geography_id,
1110: p_prefix =>l_debug_prefix,
1105: p_msg_level=>fnd_log.level_statement);
1106: hz_utility_v2pub.debug(p_message=>'loc comp type:'||p_maptbl(i).geography_type,
1107: p_prefix =>l_debug_prefix,
1108: p_msg_level=>fnd_log.level_statement);
1109: hz_utility_v2pub.debug(p_message=>'loc comp geo id:'||p_maptbl(i).geography_id,
1110: p_prefix =>l_debug_prefix,
1111: p_msg_level=>fnd_log.level_statement);
1112: END IF;
1113:
1123: WHEN others THEN
1124:
1125: -- Debug info.
1126: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1127: hz_utility_v2pub.debug(p_message=>'in gnrIns() excep blk',
1128: p_prefix =>l_debug_prefix,
1129: p_msg_level=>fnd_log.level_statement);
1130: END IF;
1131: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
1128: p_prefix =>l_debug_prefix,
1129: p_msg_level=>fnd_log.level_statement);
1130: END IF;
1131: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
1132: hz_utility_v2pub.debug(p_message=>'sqlerrm:'||sqlerrm,
1133: p_prefix=>'ERROR',
1134: p_msg_level=>fnd_log.level_error);
1135: END IF;
1136:
1177:
1178: l_status varchar2(1);
1179: l_debug_prefix VARCHAR2(30) := '';
1180:
1181: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
1182: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
1183: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
1184: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1185: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1178: l_status varchar2(1);
1179: l_debug_prefix VARCHAR2(30) := '';
1180:
1181: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
1182: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
1183: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
1184: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1185: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1186: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1179: l_debug_prefix VARCHAR2(30) := '';
1180:
1181: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
1182: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
1183: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
1184: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1185: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1186: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1187: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
1180:
1181: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
1182: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
1183: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
1184: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1185: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1186: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1187: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
1188: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
1181: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
1182: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
1183: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
1184: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1185: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1186: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1187: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
1188: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
1189: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
1182: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
1183: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
1184: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1185: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1186: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1187: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
1188: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
1189: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
1190:
1184: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
1185: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1186: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1187: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
1188: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
1189: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
1190:
1191: BEGIN
1192: -- Check if API is called in debug mode. If yes, enable debug.
1185: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
1186: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
1187: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
1188: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
1189: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
1190:
1191: BEGIN
1192: -- Check if API is called in debug mode. If yes, enable debug.
1193: --enable_debug;
1199: --
1200: -- 3. insert the record in the GNRL
1201:
1202: -- Initialize variables (perf improvement bug 5130993)
1203: l_last_updated_by := hz_utility_v2pub.last_updated_by;
1204: l_creation_date := hz_utility_v2pub.creation_date;
1205: l_created_by := hz_utility_v2pub.created_by;
1206: l_last_update_date := hz_utility_v2pub.last_update_date;
1207: l_last_update_login := hz_utility_v2pub.last_update_login;
1200: -- 3. insert the record in the GNRL
1201:
1202: -- Initialize variables (perf improvement bug 5130993)
1203: l_last_updated_by := hz_utility_v2pub.last_updated_by;
1204: l_creation_date := hz_utility_v2pub.creation_date;
1205: l_created_by := hz_utility_v2pub.created_by;
1206: l_last_update_date := hz_utility_v2pub.last_update_date;
1207: l_last_update_login := hz_utility_v2pub.last_update_login;
1208: l_program_id := hz_utility_v2pub.program_id;
1201:
1202: -- Initialize variables (perf improvement bug 5130993)
1203: l_last_updated_by := hz_utility_v2pub.last_updated_by;
1204: l_creation_date := hz_utility_v2pub.creation_date;
1205: l_created_by := hz_utility_v2pub.created_by;
1206: l_last_update_date := hz_utility_v2pub.last_update_date;
1207: l_last_update_login := hz_utility_v2pub.last_update_login;
1208: l_program_id := hz_utility_v2pub.program_id;
1209: l_conc_login_id := fnd_global.conc_login_id;
1202: -- Initialize variables (perf improvement bug 5130993)
1203: l_last_updated_by := hz_utility_v2pub.last_updated_by;
1204: l_creation_date := hz_utility_v2pub.creation_date;
1205: l_created_by := hz_utility_v2pub.created_by;
1206: l_last_update_date := hz_utility_v2pub.last_update_date;
1207: l_last_update_login := hz_utility_v2pub.last_update_login;
1208: l_program_id := hz_utility_v2pub.program_id;
1209: l_conc_login_id := fnd_global.conc_login_id;
1210: l_program_application_id := hz_utility_v2pub.program_application_id;
1203: l_last_updated_by := hz_utility_v2pub.last_updated_by;
1204: l_creation_date := hz_utility_v2pub.creation_date;
1205: l_created_by := hz_utility_v2pub.created_by;
1206: l_last_update_date := hz_utility_v2pub.last_update_date;
1207: l_last_update_login := hz_utility_v2pub.last_update_login;
1208: l_program_id := hz_utility_v2pub.program_id;
1209: l_conc_login_id := fnd_global.conc_login_id;
1210: l_program_application_id := hz_utility_v2pub.program_application_id;
1211: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
1204: l_creation_date := hz_utility_v2pub.creation_date;
1205: l_created_by := hz_utility_v2pub.created_by;
1206: l_last_update_date := hz_utility_v2pub.last_update_date;
1207: l_last_update_login := hz_utility_v2pub.last_update_login;
1208: l_program_id := hz_utility_v2pub.program_id;
1209: l_conc_login_id := fnd_global.conc_login_id;
1210: l_program_application_id := hz_utility_v2pub.program_application_id;
1211: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
1212:
1206: l_last_update_date := hz_utility_v2pub.last_update_date;
1207: l_last_update_login := hz_utility_v2pub.last_update_login;
1208: l_program_id := hz_utility_v2pub.program_id;
1209: l_conc_login_id := fnd_global.conc_login_id;
1210: l_program_application_id := hz_utility_v2pub.program_application_id;
1211: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
1212:
1213: -- initializing the return status
1214: l_status := fnd_api.g_ret_sts_success;
1207: l_last_update_login := hz_utility_v2pub.last_update_login;
1208: l_program_id := hz_utility_v2pub.program_id;
1209: l_conc_login_id := fnd_global.conc_login_id;
1210: l_program_application_id := hz_utility_v2pub.program_application_id;
1211: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
1212:
1213: -- initializing the return status
1214: l_status := fnd_api.g_ret_sts_success;
1215:
1215:
1216:
1217: -- Debug info.
1218: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1219: hz_utility_v2pub.debug(p_message=>'in gnrl(), bfr deleting locid, tbl nm combo',
1220: p_prefix =>l_debug_prefix,
1221: p_msg_level=>fnd_log.level_statement);
1222: END IF;
1223:
1230: WHEN others THEN
1231:
1232: -- Debug info.
1233: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1234: hz_utility_v2pub.debug(p_message=>'excep when deleting locid, tbl nm combo frm gnrl tbl',
1235: p_prefix =>l_debug_prefix,
1236: p_msg_level=>fnd_log.level_statement);
1237: END IF;
1238:
1253: IF (p_mapStatus = FND_API.G_RET_STS_ERROR) THEN
1254:
1255: -- Debug info.
1256: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1257: hz_utility_v2pub.debug(p_message=>'bfr delGNR()',
1258: p_prefix =>l_debug_prefix,
1259: p_msg_level=>fnd_log.level_statement);
1260: END IF;
1261:
1262: delGNR(p_locid,p_loctbl, l_status);
1263:
1264: -- Debug info.
1265: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1266: hz_utility_v2pub.debug(p_message=>'aft delGNR()',
1267: p_prefix =>l_debug_prefix,
1268: p_msg_level=>fnd_log.level_statement);
1269: END IF;
1270:
1289: ELSE
1290:
1291: -- Debug info.
1292: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
1293: hz_utility_v2pub.debug(p_message=>'unable to insert into GNRL tbl',
1294: p_prefix=>'ERROR',
1295: p_msg_level=>fnd_log.level_error);
1296: hz_utility_v2pub.debug(p_message=>'sqlerrm:'||sqlerrm,
1297: p_prefix=>'ERROR',
1292: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
1293: hz_utility_v2pub.debug(p_message=>'unable to insert into GNRL tbl',
1294: p_prefix=>'ERROR',
1295: p_msg_level=>fnd_log.level_error);
1296: hz_utility_v2pub.debug(p_message=>'sqlerrm:'||sqlerrm,
1297: p_prefix=>'ERROR',
1298: p_msg_level=>fnd_log.level_error);
1299: END IF;
1300:
1307: WHEN others THEN
1308:
1309: -- Debug info.
1310: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
1311: hz_utility_v2pub.debug(p_message=>'in gnrl excep blk',
1312: p_prefix =>l_debug_prefix,
1313: p_msg_level=>fnd_log.level_statement);
1314: END IF;
1315: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
1312: p_prefix =>l_debug_prefix,
1313: p_msg_level=>fnd_log.level_statement);
1314: END IF;
1315: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
1316: hz_utility_v2pub.debug(p_message=>'sqlerrm:'||sqlerrm,
1317: p_prefix=>'ERROR',
1318: p_msg_level=>fnd_log.level_error);
1319: END IF;
1320:
1728: l_debug_prefix VARCHAR2(30);
1729: BEGIN
1730:
1731: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1732: hz_utility_v2pub.debug
1733: (p_message => 'Begin of getAddrValStatus procedure',
1734: p_prefix => l_debug_prefix,
1735: p_msg_level => fnd_log.level_procedure,
1736: p_module_prefix => l_module_prefix,
1742: l_missing_elements := NULL;
1743: -- If the map status = 'S' returm addr_val_status as 'S'
1744: IF x_map_status = 'S' then
1745: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1746: hz_utility_v2pub.debug
1747: (p_message => ' Map status is S. So, return address validation status as S ',
1748: p_prefix => l_debug_prefix,
1749: p_msg_level => fnd_log.level_statement,
1750: p_module_prefix => l_module_prefix,
1754: RETURN l_addr_val_status;
1755: -- If the called from is GNR returm addr_val_status as x_return_status
1756: ELSIF p_called_from = 'GNR' then
1757: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1758: hz_utility_v2pub.debug
1759: (p_message => ' Called from is GNR. So, return address validation status and return status as S ',
1760: p_prefix => l_debug_prefix,
1761: p_msg_level => fnd_log.level_statement,
1762: p_module_prefix => l_module_prefix,
1767: RETURN l_addr_val_status;
1768: -- If the map status is 'E' and called from is <> GNR
1769: ELSE
1770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1771: hz_utility_v2pub.debug
1772: (p_message => ' Map status is E. Check for address validation level.',
1773: p_prefix => l_debug_prefix,
1774: p_msg_level => fnd_log.level_statement,
1775: p_module_prefix => l_module_prefix,
1778: END IF;
1779: -- If validation level is NONE, return addr_val_status as 'S'
1780: IF p_addr_val_level = 'NONE' then
1781: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1782: hz_utility_v2pub.debug
1783: (p_message => ' Address validation level is NONE. So, return address validation status and return status as S',
1784: p_prefix => l_debug_prefix,
1785: p_msg_level => fnd_log.level_statement,
1786: p_module_prefix => l_module_prefix,
1794: -- If validation level is ERROR, return addr_val_status as 'E'
1795: -- also set the message with the missing parameters.
1796: ELSIF p_addr_val_level = 'ERROR' then
1797: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1798: hz_utility_v2pub.debug
1799: (p_message => ' Address validation level is ERROR.',
1800: p_prefix => l_debug_prefix,
1801: p_msg_level => fnd_log.level_statement,
1802: p_module_prefix => l_module_prefix,
1819: i := p_mdu_tbl.NEXT(i);
1820: END LOOP;
1821: END IF;
1822: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1823: hz_utility_v2pub.debug
1824: (p_message => 'Please enter valid address elements : '||l_missing_elements,
1825: p_prefix => l_debug_prefix,
1826: p_msg_level => fnd_log.level_statement,
1827: p_module_prefix => l_module_prefix,
1836: -- If yes, set the addr_val_status to 'W' and return status to 'S'
1837: -- If not, set the message with the missing parameters
1838: ELSIF p_addr_val_level = 'WARNING' then
1839: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1840: hz_utility_v2pub.debug
1841: (p_message => ' Address validation level is WARNING.',
1842: p_prefix => l_debug_prefix,
1843: p_msg_level => fnd_log.level_statement,
1844: p_module_prefix => l_module_prefix,
1876: FND_MESSAGE.SET_TOKEN('P_ALL_ELEMENTS', l_invalid_elements);
1877: x_addr_warn_msg := FND_MESSAGE.get;
1878: x_status := fnd_api.g_ret_sts_success;
1879: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1880: hz_utility_v2pub.debug
1881: (p_message => 'These address elements are not validated : '||l_invalid_elements,
1882: p_prefix => l_debug_prefix,
1883: p_msg_level => fnd_log.level_statement,
1884: p_module_prefix => l_module_prefix,
1890: -- FND_MESSAGE.SET_TOKEN('P_MISSING_ELEMENTS', l_missing_elements);
1891: -- FND_MSG_PUB.ADD;
1892: -- x_status := l_addr_val_status;
1893: -- IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1894: -- hz_utility_v2pub.debug
1895: -- (p_message => 'Please enter required address elements : '||l_missing_elements,
1896: -- p_prefix => l_debug_prefix,
1897: -- p_msg_level => fnd_log.level_statement,
1898: -- p_module_prefix => l_module_prefix,
1909: -- If yes, set the addr_val_status to 'S' and return status to 'S'
1910: -- If not, set the message with the missing parameters
1911: ELSIF p_addr_val_level = 'MINIMUM' then
1912: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1913: hz_utility_v2pub.debug
1914: (p_message => ' Address validation level is MINIMUM.',
1915: p_prefix => l_debug_prefix,
1916: p_msg_level => fnd_log.level_statement,
1917: p_module_prefix => l_module_prefix,
1942: -- hk_debugl('Please enter required address elements: '|| l_missing_elements);
1943: -- hk_debugl('l_addr_val_status : '|| l_addr_val_status);
1944: x_status := l_addr_val_status;
1945: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1946: hz_utility_v2pub.debug
1947: (p_message => 'Please enter required address elements : '||l_missing_elements,
1948: p_prefix => l_debug_prefix,
1949: p_msg_level => fnd_log.level_statement,
1950: p_module_prefix => l_module_prefix,
2049: l_debug_prefix VARCHAR2(30);
2050: BEGIN
2051:
2052: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2053: hz_utility_v2pub.debug
2054: (p_message => 'Begin of fill_values procedure',
2055: p_prefix => l_debug_prefix,
2056: p_msg_level => fnd_log.level_procedure,
2057: p_module_prefix => l_module_prefix,
2074: i := x_map_dtls_tbl.NEXT(i);
2075: END LOOP;
2076: END IF;
2077: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2078: hz_utility_v2pub.debug
2079: (p_message => 'End of fill_values procedure',
2080: p_prefix => l_debug_prefix,
2081: p_msg_level => fnd_log.level_procedure,
2082: p_module_prefix => l_module_prefix,
2557: l_debug_prefix VARCHAR2(30) := p_location_id;
2558: l_retain_flag VARCHAR2(10);
2559: l_map_dtls_tbl maploc_rec_tbl_type;
2560:
2561: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
2562: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
2563: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
2564: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
2565: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
2558: l_retain_flag VARCHAR2(10);
2559: l_map_dtls_tbl maploc_rec_tbl_type;
2560:
2561: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
2562: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
2563: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
2564: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
2565: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
2566: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
2559: l_map_dtls_tbl maploc_rec_tbl_type;
2560:
2561: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
2562: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
2563: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
2564: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
2565: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
2566: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
2567: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
2560:
2561: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
2562: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
2563: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
2564: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
2565: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
2566: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
2567: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
2568: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
2561: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
2562: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
2563: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
2564: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
2565: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
2566: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
2567: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
2568: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
2569: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
2562: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
2563: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
2564: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
2565: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
2566: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
2567: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
2568: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
2569: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
2570: l_api_purpose VARCHAR2(30);
2564: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
2565: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
2566: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
2567: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
2568: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
2569: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
2570: l_api_purpose VARCHAR2(30);
2571:
2572: -- Created below 2 cursors for performance reasons (perf team advice)
2565: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
2566: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
2567: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
2568: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
2569: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
2570: l_api_purpose VARCHAR2(30);
2571:
2572: -- Created below 2 cursors for performance reasons (perf team advice)
2573: -- to avoid DUP_VAL_ON_INDEX exception which is proving very costly
2717:
2718: BEGIN
2719:
2720: -- Initialize variables (perf improvement bug 5130993)
2721: l_last_updated_by := hz_utility_v2pub.last_updated_by;
2722: l_creation_date := hz_utility_v2pub.creation_date;
2723: l_created_by := hz_utility_v2pub.created_by;
2724: l_last_update_date := hz_utility_v2pub.last_update_date;
2725: l_last_update_login := hz_utility_v2pub.last_update_login;
2718: BEGIN
2719:
2720: -- Initialize variables (perf improvement bug 5130993)
2721: l_last_updated_by := hz_utility_v2pub.last_updated_by;
2722: l_creation_date := hz_utility_v2pub.creation_date;
2723: l_created_by := hz_utility_v2pub.created_by;
2724: l_last_update_date := hz_utility_v2pub.last_update_date;
2725: l_last_update_login := hz_utility_v2pub.last_update_login;
2726: l_program_id := hz_utility_v2pub.program_id;
2719:
2720: -- Initialize variables (perf improvement bug 5130993)
2721: l_last_updated_by := hz_utility_v2pub.last_updated_by;
2722: l_creation_date := hz_utility_v2pub.creation_date;
2723: l_created_by := hz_utility_v2pub.created_by;
2724: l_last_update_date := hz_utility_v2pub.last_update_date;
2725: l_last_update_login := hz_utility_v2pub.last_update_login;
2726: l_program_id := hz_utility_v2pub.program_id;
2727: l_conc_login_id := fnd_global.conc_login_id;
2720: -- Initialize variables (perf improvement bug 5130993)
2721: l_last_updated_by := hz_utility_v2pub.last_updated_by;
2722: l_creation_date := hz_utility_v2pub.creation_date;
2723: l_created_by := hz_utility_v2pub.created_by;
2724: l_last_update_date := hz_utility_v2pub.last_update_date;
2725: l_last_update_login := hz_utility_v2pub.last_update_login;
2726: l_program_id := hz_utility_v2pub.program_id;
2727: l_conc_login_id := fnd_global.conc_login_id;
2728: l_program_application_id := hz_utility_v2pub.program_application_id;
2721: l_last_updated_by := hz_utility_v2pub.last_updated_by;
2722: l_creation_date := hz_utility_v2pub.creation_date;
2723: l_created_by := hz_utility_v2pub.created_by;
2724: l_last_update_date := hz_utility_v2pub.last_update_date;
2725: l_last_update_login := hz_utility_v2pub.last_update_login;
2726: l_program_id := hz_utility_v2pub.program_id;
2727: l_conc_login_id := fnd_global.conc_login_id;
2728: l_program_application_id := hz_utility_v2pub.program_application_id;
2729: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
2722: l_creation_date := hz_utility_v2pub.creation_date;
2723: l_created_by := hz_utility_v2pub.created_by;
2724: l_last_update_date := hz_utility_v2pub.last_update_date;
2725: l_last_update_login := hz_utility_v2pub.last_update_login;
2726: l_program_id := hz_utility_v2pub.program_id;
2727: l_conc_login_id := fnd_global.conc_login_id;
2728: l_program_application_id := hz_utility_v2pub.program_application_id;
2729: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
2730: l_api_purpose := HZ_GNR_PKG.G_API_PURPOSE;
2724: l_last_update_date := hz_utility_v2pub.last_update_date;
2725: l_last_update_login := hz_utility_v2pub.last_update_login;
2726: l_program_id := hz_utility_v2pub.program_id;
2727: l_conc_login_id := fnd_global.conc_login_id;
2728: l_program_application_id := hz_utility_v2pub.program_application_id;
2729: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
2730: l_api_purpose := HZ_GNR_PKG.G_API_PURPOSE;
2731:
2732: x_status := FND_API.g_ret_sts_success;
2725: l_last_update_login := hz_utility_v2pub.last_update_login;
2726: l_program_id := hz_utility_v2pub.program_id;
2727: l_conc_login_id := fnd_global.conc_login_id;
2728: l_program_application_id := hz_utility_v2pub.program_application_id;
2729: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
2730: l_api_purpose := HZ_GNR_PKG.G_API_PURPOSE;
2731:
2732: x_status := FND_API.g_ret_sts_success;
2733:
2742: l_retain_flag := retain_gnr_yn(p_location_id, p_map_status, p_map_dtls_tbl);
2743: END IF;
2744:
2745: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2746: hz_utility_v2pub.debug
2747: (p_message => 'Retain GNR Flag value l_retain_flag='||l_retain_flag,
2748: p_prefix => l_debug_prefix,
2749: p_msg_level => fnd_log.level_statement,
2750: p_module_prefix => l_module_prefix,
2767:
2768: IF (l_gnr_log_exist <> 'Y') THEN
2769:
2770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2771: hz_utility_v2pub.debug
2772: (p_message => 'Before inserting record into hz_geo_name_reference_log with map status '||p_map_status,
2773: p_prefix => l_debug_prefix,
2774: p_msg_level => fnd_log.level_statement,
2775: p_module_prefix => l_module_prefix,
2792: l_last_update_login, l_program_id,
2793: l_conc_login_id, l_program_application_id, l_request_id);
2794:
2795: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2796: hz_utility_v2pub.debug
2797: (p_message => 'After inserting record into hz_geo_name_reference_log ',
2798: p_prefix => l_debug_prefix,
2799: p_msg_level => fnd_log.level_statement,
2800: p_module_prefix => l_module_prefix,
2804:
2805: ELSE -- GNR Log already exists, we will update it
2806:
2807: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2808: hz_utility_v2pub.debug
2809: (p_message => 'Before updating record into hz_geo_name_reference_log with map status '||p_map_status,
2810: p_prefix => l_debug_prefix,
2811: p_msg_level => fnd_log.level_statement,
2812: p_module_prefix => l_module_prefix,
2824: AND location_table_name = p_location_table_name
2825: AND usage_code = p_usage_code;
2826:
2827: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2828: hz_utility_v2pub.debug
2829: (p_message => 'After updating record into hz_geo_name_reference_log ',
2830: p_prefix => l_debug_prefix,
2831: p_msg_level => fnd_log.level_statement,
2832: p_module_prefix => l_module_prefix,
2845: END IF; -- end of check if l_gnr_log_exist
2846:
2847: EXCEPTION WHEN DUP_VAL_ON_INDEX THEN -- should not hit this error anymore (bug 5929771)
2848: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2849: hz_utility_v2pub.debug
2850: (p_message => 'EXCEPTION DUP_VAL_ON_INDEX during GNR Log insert/update for '||
2851: 'Location Id:'||p_location_id||',usage_code:'||p_usage_code||
2852: ' -'||SUBSTR(SQLERRM,1,100),
2853: p_prefix => l_debug_prefix,
2863:
2864: i := p_map_dtls_tbl.FIRST;
2865:
2866: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2867: hz_utility_v2pub.debug
2868: (p_message => 'Before inserting records into hz_geo_name_references ',
2869: p_prefix => l_debug_prefix,
2870: p_msg_level => fnd_log.level_statement,
2871: p_module_prefix => l_module_prefix,
2902: CLOSE c_check_gnr_exist;
2903: END IF;
2904:
2905: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2906: hz_utility_v2pub.debug
2907: (p_message => 'For Location Id:'||p_location_id||',geo type:'||
2908: p_map_dtls_tbl(i).geography_type||', GNR Exists :'||l_gnr_exist,
2909: p_prefix => l_debug_prefix,
2910: p_msg_level => fnd_log.level_statement,
2930: END IF;
2931:
2932: EXCEPTION WHEN DUP_VAL_ON_INDEX THEN -- should not hit this error anymore (bug 5929771)
2933: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2934: hz_utility_v2pub.debug
2935: (p_message => 'EXCEPTION DUP_VAL_ON_INDEX during GNR insert/update for '||
2936: 'Location Id:'||p_location_id||',geo_type:'||p_map_dtls_tbl(i).geography_type||
2937: ' -'||SUBSTR(SQLERRM,1,100),
2938: p_prefix => l_debug_prefix,
2951: i := p_map_dtls_tbl.NEXT(i);
2952: END LOOP;
2953:
2954: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2955: hz_utility_v2pub.debug
2956: (p_message => 'After inserting records into hz_geo_name_references ',
2957: p_prefix => l_debug_prefix,
2958: p_msg_level => fnd_log.level_statement,
2959: p_module_prefix => l_module_prefix,
2970: AND
2971: update_loc_yn(p_loc_components_rec,l_map_dtls_tbl) = 'Y')) THEN
2972:
2973: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2974: hz_utility_v2pub.debug
2975: (p_message => 'Before updating record into update_location ',
2976: p_prefix => l_debug_prefix,
2977: p_msg_level => fnd_log.level_statement,
2978: p_module_prefix => l_module_prefix,
2982:
2983: update_location (p_location_id, p_loc_components_rec,p_lock_flag, l_map_dtls_tbl,x_status);
2984:
2985: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2986: hz_utility_v2pub.debug
2987: (p_message => 'After updating record into update_location ',
2988: p_prefix => l_debug_prefix,
2989: p_msg_level => fnd_log.level_statement,
2990: p_module_prefix => l_module_prefix,
2998:
2999: EXCEPTION WHEN OTHERS THEN
3000: x_status := fnd_api.g_ret_sts_unexp_error;
3001: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level) THEN
3002: hz_utility_v2pub.debug
3003: (p_message => 'EXCEPTION during create_gnr for '||
3004: 'Location Id:'||p_location_id||',usage_code:'||p_usage_code||
3005: ' -'||SUBSTR(SQLERRM,1,100),
3006: p_prefix => l_debug_prefix,
3038: l_usage_log_exists varchar2(1);
3039: l_geography_id number;
3040: i number;
3041:
3042: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
3043: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
3044: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
3045: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
3046: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
3039: l_geography_id number;
3040: i number;
3041:
3042: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
3043: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
3044: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
3045: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
3046: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
3047: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
3040: i number;
3041:
3042: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
3043: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
3044: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
3045: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
3046: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
3047: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
3048: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
3041:
3042: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
3043: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
3044: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
3045: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
3046: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
3047: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
3048: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
3049: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
3042: l_last_updated_by NUMBER; -- hz_utility_v2pub.last_updated_by;
3043: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
3044: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
3045: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
3046: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
3047: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
3048: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
3049: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
3050: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
3043: l_creation_date DATE; -- hz_utility_v2pub.creation_date;
3044: l_created_by NUMBER; -- hz_utility_v2pub.created_by;
3045: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
3046: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
3047: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
3048: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
3049: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
3050: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
3051:
3045: l_last_update_date DATE; -- hz_utility_v2pub.last_update_date;
3046: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
3047: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
3048: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
3049: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
3050: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
3051:
3052: BEGIN
3053:
3046: l_last_update_login NUMBER; -- hz_utility_v2pub.last_update_login;
3047: l_program_id NUMBER; -- hz_utility_v2pub.program_id;
3048: l_conc_login_id NUMBER; -- fnd_global.conc_login_id;
3049: l_program_application_id NUMBER; --hz_utility_v2pub.program_application_id;
3050: l_request_id NUMBER; -- NVL(hz_utility_v2pub.request_id, -1);
3051:
3052: BEGIN
3053:
3054: -- Initialize variables (perf improvement bug 5130993)
3051:
3052: BEGIN
3053:
3054: -- Initialize variables (perf improvement bug 5130993)
3055: l_last_updated_by := hz_utility_v2pub.last_updated_by;
3056: l_creation_date := hz_utility_v2pub.creation_date;
3057: l_created_by := hz_utility_v2pub.created_by;
3058: l_last_update_date := hz_utility_v2pub.last_update_date;
3059: l_last_update_login := hz_utility_v2pub.last_update_login;
3052: BEGIN
3053:
3054: -- Initialize variables (perf improvement bug 5130993)
3055: l_last_updated_by := hz_utility_v2pub.last_updated_by;
3056: l_creation_date := hz_utility_v2pub.creation_date;
3057: l_created_by := hz_utility_v2pub.created_by;
3058: l_last_update_date := hz_utility_v2pub.last_update_date;
3059: l_last_update_login := hz_utility_v2pub.last_update_login;
3060: l_program_id := hz_utility_v2pub.program_id;
3053:
3054: -- Initialize variables (perf improvement bug 5130993)
3055: l_last_updated_by := hz_utility_v2pub.last_updated_by;
3056: l_creation_date := hz_utility_v2pub.creation_date;
3057: l_created_by := hz_utility_v2pub.created_by;
3058: l_last_update_date := hz_utility_v2pub.last_update_date;
3059: l_last_update_login := hz_utility_v2pub.last_update_login;
3060: l_program_id := hz_utility_v2pub.program_id;
3061: l_conc_login_id := fnd_global.conc_login_id;
3054: -- Initialize variables (perf improvement bug 5130993)
3055: l_last_updated_by := hz_utility_v2pub.last_updated_by;
3056: l_creation_date := hz_utility_v2pub.creation_date;
3057: l_created_by := hz_utility_v2pub.created_by;
3058: l_last_update_date := hz_utility_v2pub.last_update_date;
3059: l_last_update_login := hz_utility_v2pub.last_update_login;
3060: l_program_id := hz_utility_v2pub.program_id;
3061: l_conc_login_id := fnd_global.conc_login_id;
3062: l_program_application_id := hz_utility_v2pub.program_application_id;
3055: l_last_updated_by := hz_utility_v2pub.last_updated_by;
3056: l_creation_date := hz_utility_v2pub.creation_date;
3057: l_created_by := hz_utility_v2pub.created_by;
3058: l_last_update_date := hz_utility_v2pub.last_update_date;
3059: l_last_update_login := hz_utility_v2pub.last_update_login;
3060: l_program_id := hz_utility_v2pub.program_id;
3061: l_conc_login_id := fnd_global.conc_login_id;
3062: l_program_application_id := hz_utility_v2pub.program_application_id;
3063: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
3056: l_creation_date := hz_utility_v2pub.creation_date;
3057: l_created_by := hz_utility_v2pub.created_by;
3058: l_last_update_date := hz_utility_v2pub.last_update_date;
3059: l_last_update_login := hz_utility_v2pub.last_update_login;
3060: l_program_id := hz_utility_v2pub.program_id;
3061: l_conc_login_id := fnd_global.conc_login_id;
3062: l_program_application_id := hz_utility_v2pub.program_application_id;
3063: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
3064:
3058: l_last_update_date := hz_utility_v2pub.last_update_date;
3059: l_last_update_login := hz_utility_v2pub.last_update_login;
3060: l_program_id := hz_utility_v2pub.program_id;
3061: l_conc_login_id := fnd_global.conc_login_id;
3062: l_program_application_id := hz_utility_v2pub.program_application_id;
3063: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
3064:
3065: x_status := FND_API.g_ret_sts_success;
3066:
3059: l_last_update_login := hz_utility_v2pub.last_update_login;
3060: l_program_id := hz_utility_v2pub.program_id;
3061: l_conc_login_id := fnd_global.conc_login_id;
3062: l_program_application_id := hz_utility_v2pub.program_application_id;
3063: l_request_id := NVL(hz_utility_v2pub.request_id, -1);
3064:
3065: x_status := FND_API.g_ret_sts_success;
3066:
3067: l_success := 'N';
3548: BEGIN
3549:
3550: -- Debug info.
3551: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3552: hz_utility_v2pub.debug(p_message=>'In postal_code_to_validate Function ',
3553: p_prefix =>'INFO:',
3554: p_msg_level=>fnd_log.level_statement);
3555: END IF;
3556:
3555: END IF;
3556:
3557: -- Debug info.
3558: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3559: hz_utility_v2pub.debug(p_message=>'Country Code : ' || p_country_code||' Postal Code : '||p_postal_code,
3560: p_prefix =>'INFO:',
3561: p_msg_level=>fnd_log.level_statement);
3562: END IF;
3563:
3562: END IF;
3563:
3564: -- Debug info.
3565: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3566: hz_utility_v2pub.debug(p_message=>'Profile HZ_VAL_FIRST_5_DIGIT_US_ZIP Value : '||fnd_profile.value('HZ_VAL_FIRST_5_DIGIT_US_ZIP'),
3567: p_prefix =>'INFO:',
3568: p_msg_level=>fnd_log.level_statement);
3569: END IF;
3570:
3575: IF p_country_code = 'US' THEN
3576: IF fnd_profile.value('HZ_VAL_FIRST_5_DIGIT_US_ZIP') = 'N' THEN
3577: -- Debug info.
3578: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3579: hz_utility_v2pub.debug(p_message=>'Returned Postal Code : '||p_postal_code,
3580: p_prefix =>'INFO:',
3581: p_msg_level=>fnd_log.level_statement);
3582: END IF;
3583:
3584: RETURN p_postal_code;
3585: ELSE
3586: -- Debug info.
3587: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3588: hz_utility_v2pub.debug(p_message=>'Returned Postal Code : '||SUBSTR(p_postal_code,1,5),
3589: p_prefix =>'INFO:',
3590: p_msg_level=>fnd_log.level_statement);
3591: END IF;
3592:
3594: END IF;
3595: ELSE
3596: -- Debug info.
3597: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3598: hz_utility_v2pub.debug(p_message=>'Returned Postal Code : '||p_postal_code,
3599: p_prefix =>'INFO:',
3600: p_msg_level=>fnd_log.level_statement);
3601: END IF;
3602:
3646: BEGIN
3647:
3648: -- Debug info.
3649: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3650: hz_utility_v2pub.debug(p_message=>'conc_gen_pkg (+)',
3651: p_prefix =>l_debug_prefix,
3652: p_msg_level=>fnd_log.level_statement);
3653: END IF;
3654: -- standard start of API savepoint
3660: FETCH c_usage INTO l_count;
3661: CLOSE c_usage;
3662: -- Debug info.
3663: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3664: hz_utility_v2pub.debug(p_message=>'Usage Count : '||l_count||' for map Id : '||l_c_map.map_id,
3665: p_prefix =>l_debug_prefix,
3666: p_msg_level=>fnd_log.level_statement);
3667: END IF;
3668: if l_count > 0 then
3672: END LOOP;
3673: retcode := 0;
3674: -- Debug info.
3675: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
3676: hz_utility_v2pub.debug(p_message=>'conc_gen_pkg (-)',
3677: p_prefix =>l_debug_prefix,
3678: p_msg_level=>fnd_log.level_statement);
3679: END IF;
3680: exception when others then