pears.GetQuestAnswer

CREATE FUNCTION "pears"."GetQuestAnswer"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "tagloc" CHAR(3),IN "tagid" CHAR(3),IN "parentid" CHAR(20) ) 
RETURNS long VARCHAR
BEGIN
  DECLARE "rv" long VARCHAR;
  DECLARE "i" INTEGER;
  SET "rv" = "getquesttext"("tagloc","tagid","parentid");
  IF "rv" IS NULL THEN
    RETURN(NULL)
  END IF;
  SET "i" = "locate"("rv","char"(13));
  IF "i" > 0 THEN
    SET "rv" = "left"("rv","i"-1)
  END IF;
  SET "i" = "locate"("rv","char"(9));
  IF "i" >= "length"("rv") THEN
    RETURN('')
  END IF;
  IF "i" > 0 THEN
    SET "rv" = "stuff"("rv",1,"i",'')
  END IF;
  RETURN("rv")
END