Validate Tracking Numbers in PL/SQL

gistfile1.sql

function fedex12(p_tracking_number varchar2) return boolean is
    trk varchar2(12);
    tot number:=0;
    mult number:=1;
    chr varchar2(1);
begin
	--if the data passed is 12 digits then strip everything but valid FedEx tracking number characters.
	if length(p_tracking_number) = 12 then
        for x in 1..length(p_tracking_number) loop
            chr := upper(substr(p_tracking_number,x,1));
            if chr in('0','1','2','3','4','5','6','7','8','9') then
	            trk := trk || chr;
            end if;
        end loop;
	end if;
	--if the stripped data is still 12 digits then check it against the FedEx check digit formula
	if length(trk) = 12 then
	    for y in 1..11 loop
		    tot:=tot+(substr(trk,12-y,1)*mult);
			if mult=1 then mult:=3; elsif mult=3 then mult:=7; elsif mult=7 then mult:=1; end if;
		end loop;
		tot:=mod(tot,11);
		if tot = 10 then tot := 0; end if;
		if substr(trk,12,1)=tot then
		    return true;
		end if;
	end if;
	return false;
exception
   when others then
       return false;
end;

function fedex15(p_tracking_number varchar2) return boolean is
    trk varchar2(15);
    tot number := 0;
    even number := 0;
    odd number := 0;
    num number := 0;
    chr varchar2(1);
begin
	--if the data passed is 15 digits then strip everything but valid FedEx tracking number characters.
	if length(p_tracking_number) = 15 then
        for x in 1..length(p_tracking_number) loop
            chr := upper(substr(p_tracking_number,x,1));
            if chr in('0','1','2','3','4','5','6','7','8','9') then
	            trk := trk || chr;
            end if;
        end loop;
	end if;
	--if the stripped data is still 15 digits then check it against the FedEx check digit formula
	if length(trk) = 15 then
	    for y in 1..15 loop
		    if mod(y,2) = 0 then
			    even:=even+substr(trk,y,1);
			else
			    odd:=odd+substr(trk,y,1);
			end if;
		end loop;
		tot:=(even*3)+odd; num:=tot;
		while mod(num,10) != 0 loop
		    num:=num+1;
		end loop;
		if substr(trk,1,1)=(num-tot) then
		    return true;
		end if;
	end if;
	return false;
exception
   when others then
       return false;
end;

function ups1z(p_tracking_number varchar2) return boolean is
    trk varchar2(18);
    tot number := 0;
    even number := 0;
    odd number := 0;
    num number := 0;
    chk number := 0;
    chr varchar2(1);
    val number := 0;
begin
	--if the data passed is 18 digits then strip everything but valid UPS tracking number characters.
	if length(p_tracking_number) = 18 then
        for x in 1..length(p_tracking_number) loop
            chr := upper(substr(p_tracking_number,x,1));
            if chr in('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z') then
	            trk := trk || chr;
            end if;
        end loop;
	end if;
	--if the stripped data is still 18 digits then check it against the UPS check digit formula
	if length(trk) = 18 then
	    if substr(trk,1,2) = '1Z' then
	        for y in 3..17 loop
			    chr := substr(trk,y,1);
			    case
					when chr = '0' then val := '0';
					when chr = '1' then val := '1';
					when chr = '2' then val := '2';
					when chr = '3' then val := '3';
					when chr = '4' then val := '4';
					when chr = '5' then val := '5';
					when chr = '6' then val := '6';
					when chr = '7' then val := '7';
					when chr = '8' then val := '8';
					when chr = '9' then val := '9';
				    when chr = 'A' then val := '2';
					when chr = 'B' then val := '3';
					when chr = 'C' then val := '4';
					when chr = 'D' then val := '5';
					when chr = 'E' then val := '6';
					when chr = 'F' then val := '7';
					when chr = 'G' then val := '8';
					when chr = 'H' then val := '9';
					when chr = 'I' then val := '0';
					when chr = 'J' then val := '1';
					when chr = 'K' then val := '2';
					when chr = 'L' then val := '3';
					when chr = 'M' then val := '4';
					when chr = 'N' then val := '5';
					when chr = 'O' then val := '6';
					when chr = 'P' then val := '7';
					when chr = 'Q' then val := '8';
					when chr = 'R' then val := '9';
					when chr = 'S' then val := '0';
					when chr = 'T' then val := '1';
					when chr = 'U' then val := '2';
					when chr = 'V' then val := '3';
					when chr = 'W' then val := '4';
					when chr = 'X' then val := '5';
					when chr = 'Y' then val := '6';
					when chr = 'Z' then val := '7';
					else return false;
				end case;
			    if mod(y,2) = 0 then
			        even:=even+val;
			    else
			        odd:=odd+val;
			    end if;
		    end loop;
		    tot:=(even*2)+odd; num:=tot;
		    while mod(num,10) != 0 loop
		        num:=num+1;
		    end loop;
			chk := num - tot; if chk = 10 then chk := 0; end if;
		    if substr(trk,18,1)=(chk) then
		       return true;
		    end if;
		end if;
	end if;
	return false;
exception
   when others then
       return false;
end;