PACKAGE BODY: APPS.CSTRVHKS

Source

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;