pears.NetAgencyCandidateAdd

CREATE PROCEDURE "pears"."NetAgencyCandidateAdd"( IN "pWebUserID" CHAR(20),IN "pForeNames" CHAR(50),IN "pSurname" CHAR(50),IN "pReference" CHAR(50) ) 
RESULT( "pResult" CHAR(250) ) 
BEGIN
  DECLARE @PersID CHAR(20);
  DECLARE @SecAgID CHAR(20);
  IF "IQXNetHasPermission"("pWebUserID",'ADDCANDIDATES') = 0 THEN
    SELECT '99:~Permission denied';
    RETURN
  END IF;
  SET @SecAgID = (SELECT FIRST "employment"."companyid" FROM "employment" KEY JOIN "iqxnetuserlink" WHERE "iqxnetuserlink"."iqxnetuserid" = "pwebuserid");
  SET @PersID = "uniquekey"("pforenames"+"psurname");
  INSERT INTO "person"( "personid","staffid","name","keyname","forenames","surname","salutation","status" ) VALUES( @persid,"userstaffid","string"("pforenames",' ',"psurname"),
    "makekeyname"("string"("psurname",' ',"pforenames")),"pforenames","psurname","pforenames",'A' ) ;
  INSERT INTO "pay_employee"( "personid","secondaryagencyid","secondaryagencyref" ) VALUES( @persid,@secagid,"ucase"("pReference") ) ;
  SELECT '0:~Success'
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetAgencyCandidateAdd" IS 
{CREATE PROCEDURE pears."NetAgencyCandidateAdd"( IN "pWebUserID" CHAR(20),IN "pForeNames" CHAR(50),IN "pSurname" CHAR(50),IN "pReference" CHAR(50) ) 
RESULT( "pResult" CHAR(250) ) 
BEGIN
  DECLARE @PersID CHAR(20);
  DECLARE @SecAgID CHAR(20);
  IF "IQXNetHasPermission"("pWebUserID",'ADDCANDIDATES') = 0 THEN
    SELECT '99:~Permission denied';
    RETURN
  END IF;
  SET @SecAgID = (SELECT FIRST "employment"."companyid" FROM "employment" KEY JOIN "iqxnetuserlink" WHERE "iqxnetuserlink"."iqxnetuserid" = "pwebuserid");
  SET @PersID = "uniquekey"("pforenames"+"psurname");
  INSERT INTO "person"( "personid","staffid","name","keyname","forenames","surname","salutation","status" ) VALUES( @persid,"userstaffid","string"("pforenames",' ',"psurname"),
    "makekeyname"("string"("psurname",' ',"pforenames")),"pforenames","psurname","pforenames",'A' ) ;
  INSERT INTO "pay_employee"( "personid","secondaryagencyid","secondaryagencyref" ) VALUES( @persid,@secagid,"ucase"("pReference") ) ;
  SELECT '0:~Success'
END
}