====== pears.NetProvTimesheetExpenseLineDelete ======
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
===== Original SQL =====
create procedure "pears"."NetProvTimesheetExpenseLineDelete"( in "pWebUserID" char(20),in "pTempProvTimesheetLineID" char(20) )
result( "pResult" char(255) )
begin
if not "pTempProvTimesheetLineID" = any(select "TempProvTimeSheetlineID" from "tempprovtimesheetline" key join "tempprovtimesheet" key join "person" key join "iqxnetuserlink" where "iqxnetuserid" = "pWebUserID") then
select '99:~Not able to delete line'
end if;
delete from "tempprovtimesheetline" where "TempProvTimesheetLineID" = "pTempProvTimesheetLineID";
select '0:~Success'
end /* DOC
2016-11-11 PC delete an expense line from tempprovtimesheetline
IW-95
2018-07-25 PC include improved error handler
Inputs:
pWebUserID
pTempProvTimesheetID
Outputs:
pResult
Tests:
invalid pWebUserID
valid pWebUserID but invalid pTempProvTimesheetID
valid pWebUserID, pTempProvTimesheetID
*/
/* TEST
*/
go
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetProvTimesheetExpenseLineDelete" IS
{create PROCEDURE pears."NetProvTimesheetExpenseLineDelete"( in pWebUserID char(20),in pTempProvTimesheetLineID char(20))
RESULT(pResult char(255))
BEGIN
if pTempProvTimesheetLineID not in (select TempProvTimeSheetlineID from tempprovtimesheetline key join tempprovtimesheet key join person key join iqxnetuserlink where iqxnetuserid=pWebUserID) then
select '99:~Not able to delete line';
end if;
delete from tempprovtimesheetline where TempProvTimesheetLineID=pTempProvTimesheetLineID;
select '0:~Success';
END
/* DOC
2016-11-11 PC delete an expense line from tempprovtimesheetline
IW-95
2018-07-25 PC include improved error handler
Inputs:
pWebUserID
pTempProvTimesheetID
Outputs:
pResult
Tests:
invalid pWebUserID
valid pWebUserID but invalid pTempProvTimesheetID
valid pWebUserID, pTempProvTimesheetID
*/
/* TEST
*/
}