pears.NetClientAddShifts [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.NetClientAddShifts ======
<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"."NetClientAddShifts"( in "pWebUserID" char(20),in "pvacancyid" char(20),in "pshifttemplateid" char(20),in "pshiftdate" char(25),
  in "ptimefrom" char(25) default null,in "ptimeto" char(25) default null,in "pBreak" char(20) default null,in "pTheirRef" char(50) default null,
  in "pDescription" long varchar default null,in "pSkills" char(100) default null,in "pGrade" char(50) default null,in "pNote" char(50) default null,in "pquantity" char(25) default '1',
  in "pTitle" char(100) default null ) 
result( "pResult" char(250) ) 
begin
  declare "swebusername" char(50);
  declare "sid" char(20);
  declare "cnt" integer;
  declare "ddate" date;
  declare "tfrom" time;
  declare "tto" time;
  declare "ibreak" integer;
  declare "CanAuthorise" smallint;
  declare local temporary table "IDs"(
    "ID" char(20) null,
    ) not transactional;
  insert into "IDs"( "ID" ) 
    select distinct "e"."companyid" from "iqxnetuserlink" as "l" key join "employment" as "e" where "l"."iqxnetuserid" = "pWebUserID";
  if not "pvacancyid" = any(select "v"."vacancyid" from "vacancy" as "v" key join "employment" as "e" join "IDs" on "e"."companyid" = "IDs"."ID") then
    select '99:~Permission denied';
    return
  end if;
  if "IQXNetHasPermission"("pWebUserID",'ORDERJOBS') = 0 then
    select '99:~Permission denied';
    return
  end if;
  set "swebusername" = (select "name" from "iqxnetuser" where "iqxnetuserid" = "pwebuserid");
  set "cnt" = "iqxnetstringtointeger"("pquantity");
  if "cnt" is null or "cnt" = 0 then
    select '450:~Invalid quantity';
    return
  end if;
  set "ddate" = "iqxnetstringtodate"("pshiftdate");
  if "ddate" is null then
    select '500:~Invalid shift date';
    return
  end if;
  set "tfrom" = "iqxnetstringtotime"("ptimefrom");
  if "tfrom" is null then
    select '500:~Invalid start time';
    return
  end if;
  set "tto" = "iqxnetstringtotime"("ptimeto");
  if "tto" is null then
    select '500:~Invalid end time';
    return
  end if;
  set "ibreak" = "isnull"("iqxnetstringtointeger"("pbreak"),0);
  set "CanAuthorise" = "IQXNetHasPermission"("pWebUserID",'AUTHORISEJOBS');
  while "cnt" > 0 loop
    set "sid" = "uniquekey"("cnt");
    insert into "tempshiftplan"( "TempShiftPlanID","VacancyID","TimeFrom","TimeTo","BreakMinutes","ShiftDate","Moveable","Description","ClientNote","EssentialSkill","EssentialSkillChoiceList","EssentialSkillGradeID","ReferenceCode","ReferenceRequired","ClientMustConfirm","TempMustConfirm","OrderedBy","TempShiftTypeID","AnalysisCode","RecoveryHours" ) 
      select "sid","pvacancyid","tfrom","tto","ibreak","ddate","Moveable","pDescription","pNote","string"("taglocation",';',"tagid",';',"tagchoiceid",';',"gradetagid"),"replace"("pskills","char"(9),';'),"pgrade","ucase"("pTheirRef"),"ReferenceRequired","ClientMustConfirm","TempMustConfirm","sWebUserName","TempShiftTypeID","AnalysisCode","RecoveryHours"
        from "tempshifttemplate" where "tempshifttemplateid" = "pshifttemplateid";
    call "NetSetShiftPlanCascade"("sid");
    if "CanAuthorise" = 0 then
      insert into "tempshift"( "tempshiftid","vacancyid","shiftdate","timefrom","timeto","state","tempshiftplanid","cancelreason" ) values
        ( "sid","pvacancyid","ddate","tfrom","tto",'C',"sid",'~' ) 
    end if;
    set "cnt" = "cnt"-1
  end loop;
  if "CanAuthorise" = 1 then
    call "IQXNetPopup"("pWebUserID",null,null,"pvacancyid",null,null,'ADDSHIFTS','New shift requirement(s) added',null)
  end if;
  select '0:~Success'
end
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetClientAddShifts" IS 
{create PROCEDURE pears."NetClientAddShifts"( in "pWebUserID" char(20),in "pvacancyid" char(20),in "pshifttemplateid" char(20),in "pshiftdate" char(25),
  in "ptimefrom" char(25) default null,in "ptimeto" char(25) default null,in "pBreak" char(20) default null,in "pTheirRef" char(50) default null,
  in "pDescription" long varchar default null,in "pSkills" char(100) default null,in "pGrade" char(50) default null,in "pNote" char(50) default null,in "pquantity" char(25) default '1',
  in "pTitle" char(100) default null ) 
result( "pResult" char(250) ) 
begin
  declare "swebusername" char(50);
  declare "sid" char(20);
  declare "cnt" integer;
  declare "ddate" date;
  declare "tfrom" time;
  declare "tto" time;
  declare "ibreak" integer;
  declare "CanAuthorise" smallint;
  declare local temporary table "IDs"(
    "ID" char(20) null,
    ) not transactional;
  insert into "IDs"( "ID" ) 
    select distinct "e"."companyid" from "iqxnetuserlink" as "l" key join "employment" as "e" where "l"."iqxnetuserid" = "pWebUserID";
  if not "pvacancyid" = any(select "v"."vacancyid" from "vacancy" as "v" key join "employment" as "e" join "IDs" on "e"."companyid" = "IDs"."ID") then
    select '99:~Permission denied';
    return
  end if;
  if "IQXNetHasPermission"("pWebUserID",'ORDERJOBS') = 0 then
    select '99:~Permission denied';
    return
  end if;
  set "swebusername" = (select "name" from "iqxnetuser" where "iqxnetuserid" = "pwebuserid");
  set "cnt" = "iqxnetstringtointeger"("pquantity");
  if "cnt" is null or "cnt" = 0 then
    select '450:~Invalid quantity';
    return
  end if;
  set "ddate" = "iqxnetstringtodate"("pshiftdate");
  if "ddate" is null then
    select '500:~Invalid shift date';
    return
  end if;
  set "tfrom" = "iqxnetstringtotime"("ptimefrom");
  if "tfrom" is null then
    select '500:~Invalid start time';
    return
  end if;
  set "tto" = "iqxnetstringtotime"("ptimeto");
  if "tto" is null then
    select '500:~Invalid end time';
    return
  end if;
  set "ibreak" = "isnull"("iqxnetstringtointeger"("pbreak"),0);
  set "CanAuthorise" = "IQXNetHasPermission"("pWebUserID",'AUTHORISEJOBS');
  while "cnt" > 0 loop
    set "sid" = "uniquekey"("cnt");
    insert into "tempshiftplan"( "TempShiftPlanID","VacancyID","TimeFrom","TimeTo","BreakMinutes","ShiftDate","Moveable","Description","ClientNote","EssentialSkill","EssentialSkillChoiceList","EssentialSkillGradeID","ReferenceCode","ReferenceRequired","ClientMustConfirm","TempMustConfirm","OrderedBy","TempShiftTypeID","AnalysisCode","RecoveryHours" ) 
      select "sid","pvacancyid","tfrom","tto","ibreak","ddate","Moveable","pDescription","pNote","string"("taglocation",';',"tagid",';',"tagchoiceid",';',"gradetagid"),"replace"("pskills","char"(9),';'),"pgrade","ucase"("pTheirRef"),"ReferenceRequired","ClientMustConfirm","TempMustConfirm","sWebUserName","TempShiftTypeID","AnalysisCode","RecoveryHours"
        from "tempshifttemplate" where "tempshifttemplateid" = "pshifttemplateid";
    call "NetSetShiftPlanCascade"("sid");
    if "CanAuthorise" = 0 then
      insert into "tempshift"( "tempshiftid","vacancyid","shiftdate","timefrom","timeto","state","tempshiftplanid","cancelreason" ) values
        ( "sid","pvacancyid","ddate","tfrom","tto",'C',"sid",'~' ) 
    end if;
    set "cnt" = "cnt"-1
  end loop;
  if "CanAuthorise" = 1 then
    call "IQXNetPopup"("pWebUserID",null,null,"pvacancyid",null,null,'ADDSHIFTS','New shift requirement(s) added',null)
  end if;
  select '0:~Success'
end
}
</code>