pears.psHealthShowButton

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."psHealthShowButton" IS 
{CREATE FUNCTION psHealthShowButton 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN SourceID CHAR(20),IN IDType CHAR(2))
RETURNS INTEGER
BEGIN
  IF sourceid IS NULL THEN
    RETURN 0
  END IF;
  /* IDType R = recipient, S = temp shift, P = temp shift plan C = carer, V = vacancy */
  IF NOT EXISTS(SELECT * FROM wpkglobalswitchsetting WHERE wpkglobalswitchid = 'PSHealth' AND VALUE = 'Y') THEN
    RETURN 0
  END IF;
  /* in case some silly person turns switch on without tables installed (check person only) */
  IF NOT EXISTS(SELECT * FROM sys.systable WHERE TABLE_NAME = 'PSHealthPerson') THEN
    RETURN 0
  END IF;
  CASE IDType
  WHEN 'R' THEN IF EXISTS(SELECT * FROM pshealthperson WHERE personid = sourceid AND recipientflag = 'R') THEN RETURN 1
    END IF
  WHEN 'C' THEN IF EXISTS(SELECT * FROM pshealthperson WHERE personid = sourceid AND recipientflag = 'C') THEN RETURN 1
    END IF
  WHEN 'V' THEN IF EXISTS(SELECT * FROM pshealthvacancy WHERE vacancyid = sourceid) THEN RETURN 1
    END IF
  WHEN 'S' THEN IF EXISTS(SELECT * FROM pshealthshift WHERE tempshiftid = sourceid) THEN RETURN 1
    END IF
  WHEN 'P' THEN IF EXISTS(SELECT * FROM pshealthshift WHERE tempshiftplanid = sourceid) THEN RETURN 1
    END IF
  END CASE;
  RETURN 0
END
}