create function "pears"."InvSendAllowedWarning"(
in "docid" char(20),in "sendmethod" char(1) )
returns long varchar
begin
-- This function can warn or block;
-- sendmethod E - email P - printer;
declare "rv" long varchar;
set "rv" = '';
return("rv")
end