pears.GetPersonPhoneInBlock

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."GetPersonPhoneInBlock" IS 
{CREATE FUNCTION GetPersonPhoneInBlock 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN reqpersonid CHAR(20))
RETURNS long VARCHAR
BEGIN
  DECLARE phones long VARCHAR;
  DECLARE newline CHAR(2);
  DECLARE loopcounter tinyint;
  DECLARE tab CHAR(1);
  DECLARE TabString CHAR(2);
  SET newline="char"(13)+"char"(10);
  SET phones='';
  SET loopcounter=0;
  SET tab="char"(9);
  FOR fetchfor AS fetchcursor no scroll cursor FOR
    SELECT phonetype.name AS nextname,phone.number AS nextnumber FROM phone KEY JOIN
      phonetype WHERE phone.who = 'P' AND whoid = reqpersonid ORDER BY
      phone.whoid ASC,phonetype.sortorder ASC,phonetype.name ASC FOR READ ONLY do
    IF loopcounter > 0 THEN
      SET phones=phones || newline
    END IF;
    IF LENGTH(nextname) < 8 THEN SET TabString=Tab+Tab
    ELSE SET TabString=Tab
    END IF;
    SET phones=phones || nextname || TabString || nextnumber;
    SET loopcounter=loopcounter+1 END FOR;
  RETURN phones
END
}