PACKAGE BODY: APPS.BEN_EFC_INFO

Source

1 PACKAGE BODY ben_efc_info  AS
2 /* $Header: benefinf.pkb 115.5 2004/02/16 02:40:08 vvprabhu noship $ */
3 --
4 
5 -- ----------------------------------------------------------------------------
6 -- |-------------------------< get_db_version >-------------------------------|
7 -- ----------------------------------------------------------------------------
8 --
9 -- Description:
10 --  Determines the latest minipack version to have been applied.
11 --
12 -- ----------------------------------------------------------------------------
13 FUNCTION get_db_version RETURN VARCHAR2 IS
14 --
15 
16 -- set EFC baseline version
17 l_version VARCHAR2(30) := 'APR2001';
18 l_detected BOOLEAN;
19 --
20 l_table_name VARCHAR2(30);
21 l_column_name VARCHAR2(30);
22 l_result VARCHAR2(30);
23 l_status			varchar2(1);
24 l_industry			varchar2(1);
25 l_application_short_name	varchar2(30) := 'BEN';
26 l_oracle_schema		        varchar2(30);
27 l_return                        boolean;
28 
29 --
30 CURSOR csr_test (
31     l_table_name  IN VARCHAR2,
32     l_column_name IN VARCHAR2,l_oracle_schema IN VARCHAR2) IS
33 SELECT 'Y'
34   FROM all_tab_columns
35   WHERE table_name = l_table_name
36     AND column_name = l_column_name
37     AND owner = upper(l_oracle_schema);
38 
39 --
40 BEGIN
41 --
42 
43 -- test for product minipack code
44 -- JUL2001 = July 2001
45 
46 l_detected := FALSE;
47 --
48 -- Check July minipack
49 --
50 l_table_name := 'BEN_PRTT_ENRT_RSLT_F_EFC';
51 l_column_name := 'PRTT_ENRT_RSLT_ID';
52 --
53 -- Bug 3431740 Parameter l_oracle_schema added to cursor csr_test, the value is got by the
54 -- following call
55 l_return := fnd_installation.get_app_info(application_short_name => l_application_short_name,
56             		                    status                 => l_status,
57                         	            industry               => l_industry,
58                               	    oracle_schema          => l_oracle_schema);
59 --
60 OPEN csr_test(l_table_name,
61               l_column_name,l_oracle_schema);
62 FETCH csr_test INTO l_result;
63 IF csr_test%FOUND THEN
64   l_detected := TRUE;
65 END IF;
66 CLOSE csr_test;
67 --
68 IF l_detected THEN
69   l_version := 'JUL2001';
70 END IF;
71 
72 
73 RETURN(l_version);
74 
75 --
76 END get_db_version;
77 
78 --
79 END ben_efc_info;