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 --
10 FUNCTION pa_implemented RETURN BOOLEAN IS
11 BEGIN
12 DECLARE
13 result number default 0;
14 BEGIN
15
16 SELECT 1
17 INTO result
18 FROM pa_implementations;
19
20 IF (result = 1) THEN
21 RETURN (TRUE);
22 ELSE
23 RETURN (FALSE);
24 END IF;
25
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
35 result number default 0;
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);
45 ELSE
46 RETURN (FALSE);
47 END IF;
48
49 EXCEPTION
50 WHEN OTHERS THEN
51 RETURN (FALSE);
52 END;
53 END pa_implemented_all;
54 END pa_imp;