pears.NetProvTimesheetExpenseLineDelete

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
 
*/
}