[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,
2589: CURSOR c_check_gnr_exist (p_location_id NUMBER,
2590: p_location_table_name VARCHAR2,
2591: p_geography_type VARCHAR2) IS
2592: SELECT 'Y'
2593: FROM hz_geo_name_references
2594: WHERE location_id = p_location_id
2595: AND location_table_name = p_location_table_name
2596: AND geography_type = p_geography_type
2597: ;
2663: and map_status = 'S';
2664:
2665: cursor get_gnr_superloc_rec is
2666: select geography_type
2667: from HZ_GEO_NAME_REFERENCES
2668: where location_id = p_location_id
2669: and geography_id in (-99,-98);
2670:
2671: BEGIN
2833: p_module => l_module
2834: );
2835: END IF;
2836:
2837: -- delete the location id and table name combination from hz_geo_name_references
2838: -- This call is needed only if data exists in hz_geo_name_references table
2839: -- blind delete is bad for performance
2840: IF ( nvl(l_api_purpose,'xxya') <> 'R12UPGRADE') THEN
2841: delGNR(p_location_id,p_location_table_name,x_status);
2834: );
2835: END IF;
2836:
2837: -- delete the location id and table name combination from hz_geo_name_references
2838: -- This call is needed only if data exists in hz_geo_name_references table
2839: -- blind delete is bad for performance
2840: IF ( nvl(l_api_purpose,'xxya') <> 'R12UPGRADE') THEN
2841: delGNR(p_location_id,p_location_table_name,x_status);
2842: l_gnr_deleted := 'Y'; -- set it to 'Y' because we just deleted it. Later we can avoid again doing this check
2857: );
2858: END IF;
2859: END; -- END of GNR Log Insert BEGIN Stmt
2860:
2861: -- Now Insert data in hz_geo_name_references table (Child table)
2862: IF p_map_dtls_tbl.COUNT > 0 THEN
2863:
2864: i := p_map_dtls_tbl.FIRST;
2865:
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,
2872: p_module => l_module
2913: );
2914: END IF;
2915:
2916: IF (l_gnr_exist <> 'Y') THEN
2917: INSERT INTO hz_geo_name_references
2918: (location_id, geography_id, location_table_name,
2919: object_version_number, geography_type, last_updated_by,
2920: creation_date, created_by, last_update_date,
2921: last_update_login, program_id, program_login_id,
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,
2960: p_module => l_module
3021: ) RETURN BOOLEAN IS
3022:
3023: CURSOR c_gnr(p_geography_type in varchar2) IS
3024: SELECT GEOGRAPHY_ID
3025: FROM HZ_GEO_NAME_REFERENCES
3026: WHERE LOCATION_ID = p_location_id
3027: AND GEOGRAPHY_TYPE = p_geography_type
3028: AND LOCATION_TABLE_NAME = p_location_table_name;
3029: