pears.PersonKeyWordsQuestion

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."PersonKeyWordsQuestion" IS 
{CREATE FUNCTION PersonKeyWordsQuestion 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN @PersonID CHAR(20))
RETURNS long VARCHAR
BEGIN
DECLARE rv long VARCHAR;
SELECT NULLIF(TRIM( 
    (SELECT list (GetQuestAnswer(t.TagLocation, t.TagID, @PersonID),' ') 
        FROM Tag t JOIN [SEARCH] s ON (t.TagLocation = 'P' OR  t.TagLocation = string('A',s.DepartmentID))  
        WHERE 
            t.taglocation LIKE 'A%' AND 
            t.IncludeInKeyWordSearch = 1 AND   
            t.TagType IN ('T','U','L','M') AND
            s.Personid = @PersonID )
    || ' ' || 
    (SELECT list (GetQuestAnswer(t.TagLocation, t.TagID, @PersonID),' ')
        FROM Tag t
        WHERE 
           t.taglocation = 'P' AND 
            t.IncludeInKeyWordSearch = 1 AND 
            t.TagType IN ('T','U','L','M') )) 
    ,'') INTO rv; 
  RETURN rv;
END
}