1: PACKAGE BODY pa_imp AS
2: /* $Header: PAIMPB.pls 115.0 99/07/16 15:07:10 porting ship $ */
3: /*
4: NAME
5: pa_implemented
1: PACKAGE BODY pa_imp AS
2: /* $Header: PAIMPB.pls 115.0 99/07/16 15:07:10 porting ship $ */
3: /*
4: NAME
5: pa_implemented
6: DESCRIPTION
7: Returns TRUE if PA is implemented.
8: */
9: --
6: DESCRIPTION
7: Returns TRUE if PA is implemented.
8: */
9: --
10: FUNCTION pa_implemented RETURN BOOLEAN IS
11: BEGIN
12: DECLARE
13: result number default 0;
14: BEGIN
14: BEGIN
15:
16: SELECT 1
17: INTO result
18: FROM pa_implementations;
19:
20: IF (result = 1) THEN
21: RETURN (TRUE);
22: ELSE
26: EXCEPTION
27: WHEN OTHERS THEN
28: RETURN (FALSE);
29: END;
30: END pa_implemented;
31:
32: FUNCTION pa_implemented_all RETURN BOOLEAN IS
33: BEGIN
34: DECLARE
28: RETURN (FALSE);
29: END;
30: END pa_implemented;
31:
32: FUNCTION pa_implemented_all RETURN BOOLEAN IS
33: BEGIN
34: DECLARE
35: result number default 0;
36: BEGIN
36: BEGIN
37:
38: SELECT 1
39: INTO result
40: FROM pa_implementations_all
41: WHERE rownum=1;
42:
43: IF (result = 1) THEN
44: RETURN (TRUE);
49: EXCEPTION
50: WHEN OTHERS THEN
51: RETURN (FALSE);
52: END;
53: END pa_implemented_all;
54: END pa_imp;
50: WHEN OTHERS THEN
51: RETURN (FALSE);
52: END;
53: END pa_implemented_all;
54: END pa_imp;