1: package body IRC_LOCATION_UTILITY as
2: /* $Header: irlocutl.pkb 120.5.12010000.2 2008/08/05 10:49:59 ubhat ship $ */
3: --Package Variables
4: --
5: g_package varchar2(33) := 'irc_location_utility.';
1: package body IRC_LOCATION_UTILITY as
2: /* $Header: irlocutl.pkb 120.5.12010000.2 2008/08/05 10:49:59 ubhat ship $ */
3: --Package Variables
4: --
5: g_package varchar2(33) := 'irc_location_utility.';
6: g_conversion number;
7: --
8: --
9: -- Function to remove invalid characters (these cause error when the request
441: l_proc varchar2(72) := g_package||'address2geometry';
442: BEGIN
443: hr_utility.set_location('Entering :'||l_proc, 10);
444: -- Get xml geocode response string
445: xml_response := irc_location_utility.address2geocodexml
446: (name => name
447: ,street => street
448: ,city => city
449: ,state => state
447: ,street => street
448: ,city => city
449: ,state => state
450: ,zip_code => zip_code);
451: return irc_location_utility.process_return_xml(xml_response);
452: end address2geometry;
453: --
454: -- -------------------------------------------------------------------------
455: -- |---------------------------< address2geometry >------------------------|
473: l_proc varchar2(72) := g_package||'address2geometry';
474: BEGIN
475: hr_utility.set_location('Entering :'||l_proc, 10);
476: -- Get xml geocode response string
477: xml_response := irc_location_utility.address2geocodexml
478: (name => name
479: ,street => street
480: ,intersecting_street => intersecting_street
481: ,builtup_area => builtup_area
489: while (i
491: i:=i+70;
492: end loop;*/
493: return irc_location_utility.process_return_xml(xml_response);
494: end address2geometry;
495: --
496: -- -------------------------------------------------------------------------
497: -- |---------------------------< address2geometry >------------------------|
515: l_proc varchar2(72) := g_package||'address2geometry';
516: BEGIN
517: hr_utility.set_location('Entering :'||l_proc, 10);
518: -- Get xml geocode response string
519: xml_response := irc_location_utility.address2geocodexml
520: (address_line1 => address_line1
521: ,address_line2 => address_line2
522: ,address_line3 => address_line3
523: ,address_line4 => address_line4
531: while (i
533: i:=i+70;
534: end loop;*/
535: return irc_location_utility.process_return_xml(xml_response);
536: end address2geometry;
537: --
538: -- -------------------------------------------------------------------------
539: -- |-------------------------< bulk_address2geometry >---------------------|
740: l_match_count varchar2(255);
741: BEGIN
742: hr_utility.set_location('Entering :'||l_proc, 10);
743: -- Get xml geocode response string
744: xml_response := irc_location_utility.address2geocodexml
745: (address_line1 => address_line1
746: ,address_line2 => address_line2
747: ,address_line3 => address_line3
748: ,address_line4 => address_line4
842: end if;
843: return sdo_geom.sdo_distance(geom1,geom2,tolerance)*g_conversion;
844: end if;
845: end sdo_miles;
846: end irc_location_utility;