pears.psHealthShowButton [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== pears.psHealthShowButton ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
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
}
</code>