PACKAGE BODY: APPS.PA_IMP

Source

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;