pears.NetCompliance [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.NetCompliance ======
<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>
create procedure "pears"."NetCompliance"( in "pWebUserID" char(20),in "pPersonID" char(20) default null,in "pOldStatus" char(1) default 'C',in "pNewStatus" char(1) default 'C',
  in "pDateToCheck" date default current date,in "pVacancyID" char(20) default null,in "pShiftPlanID" char(20) default null,in "pDeptID" char(2) default null ) 
result( "htmlCompliance" long varchar ) 
begin
  declare "id" char(20);
  declare "userclass" char(20);
  declare "bOk" smallint;
  set "userClass" = (select first "iqxnetuserclassid" from "iqxnetuser" where "iqxnetuserid" = "pWebUserID");
  if "userClass" = 'OWNER' then
    set "bOk" = 1
  else if "userClass" = 'CANDIDATE' then
      set "pPersonID" = (select first "personid" from "iqxnetuserlink" where "personid" = "isnull"("pPersonID","personid") and "iqxnetuserid" = "pwebuserid")
    else
      set "bOk" = "NetHasPermission"("pWebUserID","pPersonID",null)
    end if end if;
  if "bOk" = 1 then
    set "id" = "NetPopulateComplianceTable"("pPersonID","poldstatus","pnewstatus","pdatetocheck","pVacancyID","pshiftplanid","pdeptid");
    call "NetProduceComplianceView"("id")
  end if;
  select "htmltext" from "complianceviewhtml" where "instanceid" = "id"
end
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetCompliance" IS 
{create PROCEDURE pears."NetCompliance"(in pWebUserID char(20), in pPersonID char(20) default null, in pOldStatus char(1) default 'C', in pNewStatus char(1) default 'C',
in pDateToCheck date default current date, in pVacancyID char(20) default null, in pShiftPlanID char(20) default null, in pDeptID char(2) default null)
RESULT( htmlCompliance long varchar )
BEGIN
declare id char(20);
declare userclass char(20);
declare bOk smallint;
set userClass=(select first iqxnetuserclassid from iqxnetuser where iqxnetuserid = pWebUserID);
if userClass = 'OWNER' then
    set bOk=1
else if userClass = 'CANDIDATE' then
    set pPersonID=(select first personid from iqxnetuserlink where personid = isnull(pPersonID,personid) and iqxnetuserid = pwebuserid)
else
    set bOk=NetHasPermission(pWebUserID,pPersonID,null)
end if
end if;
if bOk=1 then
    set id=NetPopulateComplianceTable(pPersonID, poldstatus, pnewstatus, pdatetocheck, pVacancyID, pshiftplanid, pdeptid);
    call NetProduceComplianceView(id);
end if;
select htmltext from complianceviewhtml where instanceid=id;
END
}
</code>