pears.GetPersonAddressOnLine

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."GetPersonAddressOnLine" IS 
{CREATE FUNCTION GetPersonAddressOnLine 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN reqpersonid CHAR(20))
RETURNS CHAR(250)
BEGIN
  DECLARE AddressOnLine CHAR(250);
  DECLARE addr1 CHAR(40);
  DECLARE addr2 CHAR(40);
  DECLARE addr3 CHAR(40);
  DECLARE town CHAR(30);
  DECLARE county CHAR(30);
  DECLARE country CHAR(30);
  DECLARE postcode CHAR(30);
  SELECT person.addr1,person.addr2,person.addr3,person.town,person.county,person.country,person.postcode INTO addr1,
    addr2,addr3,town,county,country,postcode FROM person
    WHERE personid=reqpersonid;
  IF isnull(addr1,'')<>'' THEN SET AddressOnLine=AddressOnLine||TRIM(addr1)
  END IF
  ;
  IF isnull(AddressOnLine,'')<>'' AND isnull(addr2,'')<>'' THEN SET AddressOnLine=AddressOnLine||', '
  END IF
  ;
  IF isnull(addr2,'')<>'' THEN SET AddressOnLine=AddressOnLine||TRIM(addr2)
  END IF
  ;
  IF isnull(AddressOnLine,'')<>'' AND isnull(addr3,'')<>'' THEN SET AddressOnLine=AddressOnLine||', '
  END IF
  ;
  IF isnull(addr3,'')<>'' THEN SET AddressOnLine=AddressOnLine||TRIM(addr3)
  END IF
  ;
  IF isnull(AddressOnLine,'')<>'' AND isnull(town,'')<>'' THEN SET AddressOnLine=AddressOnLine||', '
  END IF
  ;
  IF isnull(town,'')<>'' THEN SET AddressOnLine=AddressOnLine||TRIM(town)
  END IF
  ;
  IF isnull(AddressOnLine,'')<>'' AND isnull(county,'')<>'' THEN SET AddressOnLine=AddressOnLine||', '
  END IF
  ;
  IF isnull(county,'')<>'' THEN SET AddressOnLine=AddressOnLine||TRIM(county)
  END IF
  ;
  IF isnull(AddressOnLine,'')<>'' AND isnull(country,'')<>'' THEN SET AddressOnLine=AddressOnLine||', '
  END IF
  ;
  IF isnull(country,'')<>'' THEN SET AddressOnLine=AddressOnLine||TRIM(country)
  END IF
  ;
  IF isnull(AddressOnLine,'')<>'' AND isnull(postcode,'')<>'' THEN SET AddressOnLine=AddressOnLine||' '
  END IF
  ;
  IF isnull(postcode,'')<>'' THEN SET AddressOnLine=AddressOnLine||TRIM(postcode)
  END IF
  ;
  RETURN AddressOnLine
END
}