====== pears.SetTempProvTimeSheetStatus ======
<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 function "pears"."SetTempProvTimeSheetStatus"( in @TempProvTimeSheetID char(20),in @NewStatus integer,in @Description char(250),in @StaffID char(20),in @ExternalUserID char(40) ) 
returns char(250)
begin
  declare @OldStatus integer;
  declare @NewTempProvTimesheetHistoryID char(20);
  declare @SerialNumber integer;
  if "varexists"('uniqueroll') = 0 then
    create variable "uniqueroll" integer
  end if;
  select "ExtNumber","SerialNumber" into @OldStatus,@SerialNumber from "TempProvTimesheet" where "TempProvTimesheetID" = @TempProvTimesheetID;
  if @@rowcount <> 1 then
    return('2:TempProvTimesheet not found')
  end if;
  begin atomic
    update "TempProvTimesheet" set "ExtNumber" = @NewStatus where "TempProvTimesheetID" = @TempProvTimesheetID;
    if @@rowcount <> 1 then
      return('2:TempProvTimesheet not found')
    end if;
    set @NewTempProvTimesheetHistoryID = "uniquekey"(1);
    insert into "TempProvTimesheetHistory"( "TempProvTimesheetHistoryID","TempProvTimeSheetID","SerialNumber","OldStatus","NewStatus","Description",
      "StaffID","ExternalUserID" ) values
      ( @NewTempProvTimesheetHistoryID,@TempProvTimeSheetID,@SerialNumber,@OldStatus,@NewStatus,@Description,
      @StaffID,@ExternalUserID ) ;
    if @@rowcount <> 1 then
      rollback work;
      return('3:Error recording TempProvTimesheet history')
    end if
  end;
  return('0:TempProvTimesheet Status updated')
exception
  when others then return('1:Unknown error updating TempProvTimesheet Status')
end
</code>