pears.GetPayOrCharge

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."GetPayOrCharge" IS 
{CREATE FUNCTION GetPayOrCharge 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN PayOrCharge CHAR(1),IN PlacOrVac CHAR(1),IN ID CHAR(20))
RETURNS CHAR(20)
BEGIN
  DECLARE pay DOUBLE;
  DECLARE istemp SMALLINT;
  IF placorvac = 'P' THEN
    SELECT isnull(temp,0),salary INTO istemp,pay FROM placement WHERE placementid = id
  ELSE
    SELECT isnull(temp,0),salary INTO istemp,pay FROM vacancy WHERE vacancyid = id
  END IF;
  IF istemp = 0 THEN
    IF payorcharge = 'P' THEN
      RETURN commathousands(pay)
    ELSE
      RETURN ''
    END IF
  ELSE
    RETURN TRIM(str(gettemprate(payorcharge,placorvac,id),20,2))
  END IF
END
}