pears.NetCompliance

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
}