PACKAGE BODY: APPS.PMI_SUMM_TAB_PURGE

Source

1 PACKAGE BODY PMI_SUMM_TAB_PURGE AS
2 /* $Header: PMISTPUB.pls 115.7 2002/12/05 17:51:10 skarimis noship $ */
3   PROCEDURE PURGE_SUMMARY(errbuf OUT NOCOPY varchar2,retcode OUT NOCOPY VARCHAR2,stable in VARCHAR2) IS
4   BEGIN
5     IF stable = 'PMI_ONHAND_SALE_SUM' THEN
6       DELETE  PMI_ONHAND_SALE_SUM;
7       commit;
8     ELSIF stable = 'PMI_PROD_SUM' THEN
9       DELETE PMI_PROD_SUM;
10       commit;
11     END IF;
12     DELETE PMI_SUMMARY_LOG_TABLE
13     WHERE SUMMARY_TABLE = stable;
14     commit;
15   END;
16 END PMI_SUMM_TAB_PURGE;