pgsql/investigations/ar-cash.sql
[Pman.Xtuple] / pgsql / x-dragon-deletesoitemcheck.sql
1 -- Function: deletesoitem(integer)
2
3 -- DROP FUNCTION deletesoitem(integer);
4
5 CREATE OR REPLACE FUNCTION deletesoitemcheck(integer)
6   RETURNS integer AS
7 $BODY$
8 DECLARE
9   pSoitemid     ALIAS FOR $1;
10
11   _result       INTEGER;
12  
13
14 BEGIN
15 -- Get coitem
16     SELECT deletesoitem() as _result;
17     
18     IF (_result > -1) THEN
19         RAISE EXCEPTION 'Can be done';
20     END IF;
21    
22     RETURN _result;
23  
24 END;
25 $BODY$
26   LANGUAGE plpgsql VOLATILE
27   COST 100;
28 ALTER FUNCTION deletesoitemcheck(integer)
29   OWNER TO admin;