1: PACKAGE BODY hrfrbsoc AS
2: /* $Header: hrfrbsoc.pkb 115.5 2003/05/19 15:12:41 jheer noship $ */
3: --
4: PROCEDURE run_bs (errbuf OUT NOCOPY VARCHAR2
5: ,retcode OUT NOCOPY NUMBER
1: PACKAGE BODY hrfrbsoc AS
2: /* $Header: hrfrbsoc.pkb 115.5 2003/05/19 15:12:41 jheer noship $ */
3: --
4: PROCEDURE run_bs (errbuf OUT NOCOPY VARCHAR2
5: ,retcode OUT NOCOPY NUMBER
6: ,p_business_group_id IN NUMBER
97: retcode := 2; /*critical error*/
98: errbuf := sqlerrm;
99: END delete_gsp;
100: --
101: END hrfrbsoc;