[Home] [Help]
456: x_status := fnd_api.g_ret_sts_success;
457:
458: -- delete thing the location id and table name combination from gnr
459:
460: DELETE FROM hz_geo_name_references
461: WHERE location_id = p_locid AND
462: location_table_name = p_loctbl;
463: EXCEPTION
464: WHEN others THEN
1072: LOOP
1073: IF (x_status = FND_API.G_RET_STS_SUCCESS) AND
1074: (p_maptbl(i).geography_id IS NOT NULL) THEN
1075: BEGIN
1076: INSERT INTO hz_geo_name_references
1077: (location_id, geography_id, location_table_name,
1078: object_version_number, geography_type, last_updated_by,
1079: creation_date, created_by, last_update_date,
1080: last_update_login, program_id, program_login_id,
2584: CURSOR c_check_gnr_exist (p_location_id NUMBER,
2585: p_location_table_name VARCHAR2,
2586: p_geography_type VARCHAR2) IS
2587: SELECT 'Y'
2588: FROM hz_geo_name_references
2589: WHERE location_id = p_location_id
2590: AND location_table_name = p_location_table_name
2591: AND geography_type = p_geography_type
2592: ;
2658: and map_status = 'S';
2659:
2660: cursor get_gnr_superloc_rec is
2661: select geography_type
2662: from HZ_GEO_NAME_REFERENCES
2663: where location_id = p_location_id
2664: and geography_id in (-99,-98);
2665:
2666: BEGIN
2828: p_module => l_module
2829: );
2830: END IF;
2831:
2832: -- delete the location id and table name combination from hz_geo_name_references
2833: -- This call is needed only if data exists in hz_geo_name_references table
2834: -- blind delete is bad for performance
2835: IF ( nvl(l_api_purpose,'xxya') <> 'R12UPGRADE') THEN
2836: delGNR(p_location_id,p_location_table_name,x_status);
2829: );
2830: END IF;
2831:
2832: -- delete the location id and table name combination from hz_geo_name_references
2833: -- This call is needed only if data exists in hz_geo_name_references table
2834: -- blind delete is bad for performance
2835: IF ( nvl(l_api_purpose,'xxya') <> 'R12UPGRADE') THEN
2836: delGNR(p_location_id,p_location_table_name,x_status);
2837: l_gnr_deleted := 'Y'; -- set it to 'Y' because we just deleted it. Later we can avoid again doing this check
2852: );
2853: END IF;
2854: END; -- END of GNR Log Insert BEGIN Stmt
2855:
2856: -- Now Insert data in hz_geo_name_references table (Child table)
2857: IF p_map_dtls_tbl.COUNT > 0 THEN
2858:
2859: i := p_map_dtls_tbl.FIRST;
2860:
2859: i := p_map_dtls_tbl.FIRST;
2860:
2861: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2862: hz_utility_v2pub.debug
2863: (p_message => 'Before inserting records into hz_geo_name_references ',
2864: p_prefix => l_debug_prefix,
2865: p_msg_level => fnd_log.level_statement,
2866: p_module_prefix => l_module_prefix,
2867: p_module => l_module
2908: );
2909: END IF;
2910:
2911: IF (l_gnr_exist <> 'Y') THEN
2912: INSERT INTO hz_geo_name_references
2913: (location_id, geography_id, location_table_name,
2914: object_version_number, geography_type, last_updated_by,
2915: creation_date, created_by, last_update_date,
2916: last_update_login, program_id, program_login_id,
2947: END LOOP;
2948:
2949: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2950: hz_utility_v2pub.debug
2951: (p_message => 'After inserting records into hz_geo_name_references ',
2952: p_prefix => l_debug_prefix,
2953: p_msg_level => fnd_log.level_statement,
2954: p_module_prefix => l_module_prefix,
2955: p_module => l_module
3016: ) RETURN BOOLEAN IS
3017:
3018: CURSOR c_gnr(p_geography_type in varchar2) IS
3019: SELECT GEOGRAPHY_ID
3020: FROM HZ_GEO_NAME_REFERENCES
3021: WHERE LOCATION_ID = p_location_id
3022: AND GEOGRAPHY_TYPE = p_geography_type
3023: AND LOCATION_TABLE_NAME = p_location_table_name;
3024: