CREATE OR REPLACE FUNCTION sendclaimcoversheet(
    text,
    text)
  RETURNS integer AS
$BODY$

	use strict;
	use warnings;
	use SOAP::Lite;
	use Try::Tiny;
	use Time::Piece;

	my $first = $_[0];
	my $second = $_[1];
	try
	{
		my $host = `hostname`; 
		my $rv = spi_exec_query("select * from getsprocurl('sendclaimcoversheet','".$host."')");
		my $url = $rv->{rows}[0]->{ret_url};
		elog(NOTICE, 'Host Name  ' . $host . ' URL '. $url );
		my $soap = SOAP::Lite->new();
		my $service = $soap->service($url);
		my  $response = $service->sendClaimCoversheet($first, $second );
		return $response;
	}
	catch
	{
		my $ex = $_;
		return 'SOAPFAULT: ' . localtime->strftime('%m/%d/%Y') . ' ' . $ex;
	} 
	$BODY$
  LANGUAGE plperlu VOLATILE STRICT
  COST 100;
ALTER FUNCTION sendclaimcoversheet(text, text)
  OWNER TO postgres;