pears.ComplianceValidPerson [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.ComplianceValidPerson ======
<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"."ComplianceValidPerson" IS 
{create function ComplianceValidPerson 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

( in pPersonID char(20), in pIncludeWarnings integer ) 
returns long varchar
begin
  declare errMsg long varchar;
  declare warnMsg long varchar;
  for PFOR as PCUR no scroll cursor for
    select Description,Status,Info
      from ComplianceTable(pPersonID) for read only do
    case status
    when 1 then set errMsg = string(errMsg,Description,' ',Info,'. ')
    when 2 then set warnMsg = string(warnMsg,Description,' ',Info,'. ')
    end case
  end for;
  if pIncludeWarnings = 0 then
    set warnMsg = null
  end if;
  if warnMsg is not null then
    set warnMsg = string('Warning: ',warnMsg)
  end if;
  return nullif(string(errMsg,warnMsg),'');
end
}
</code>