1 PACKAGE BODY CSTRVHKS AS
2 /* $Header: CSTRVHKB.pls 115.3 2002/11/11 22:44:42 awwang ship $ */
3
4 FUNCTION disable_accrual (
5 ERR_NUM OUT NOCOPY NUMBER,
6 ERR_CODE OUT NOCOPY VARCHAR2,
7 ERR_MSG OUT NOCOPY VARCHAR2)
8 RETURN integer
9 is
10 stmt_num NUMBER;
11 BEGIN
12 stmt_num := 0;
13 /*
14 0 - means do perpetual accruals
15 1 - means disable perpetual accruals
16 Default should be 0 - do perpetual accruals
17 Change it to 1 only if you are very sure that
18 you want to disable perpetual accruals
19 */
20 return(0);
21
22 EXCEPTION
23 WHEN OTHERS THEN
24 err_num := SQLCODE;
25 err_msg := 'CSTRVHKS:disable_accrual' || to_char(stmt_num) || substr(SQLERRM,1,150);
26 return(-999);
27 END disable_accrual;
28
29 END CSTRVHKS;