PACKAGE BODY: APPS.CSTPPLCS

Source

1 PACKAGE BODY cstpplcs AS
2 /* $Header: CSTPLCSB.pls 115.6 2002/11/11 19:13:22 awwang ship $ */
3   PROCEDURE purge_def_cat_acc_class (
4     status OUT NOCOPY INTEGER,
5     err_buf OUT NOCOPY VARCHAR2) IS
6   BEGIN
7 
8     DELETE wip_def_cat_acc_classes;
9 
10   EXCEPTION
11     WHEN OTHERS THEN
12        status := -1;
13        err_buf := 'CSTPPLCS:' || substrb(Sqlerrm,1,60);
14        RETURN;
15   END;
16 END CSTPPLCS;
17