pears.GetQuestDate

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."GetQuestDate" IS 
{CREATE FUNCTION GetQuestDate 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN stagloc CHAR(3),IN stagid CHAR(3),IN sparentid CHAR(20))
RETURNS DATE
BEGIN
  DECLARE rv DATE;
  DECLARE tagval DOUBLE;
  SET rv=NULL;
  SELECT MAX(VALUE) INTO tagval FROM tagvalue WHERE taglocation = stagloc AND id = sparentid AND tagid = stagid;
  IF isnull(tagval,0) <> 0 THEN
    SET rv=dateadd(DAY,tagval,"date"('1899-12-30'))
  END IF;
  RETURN(rv)
END
}