PACKAGE BODY: APPS.PQP_EFC_INFO

Source

1 PACKAGE BODY pqp_efc_info  AS
2 /* $Header: pqpefinf.pkb 120.0.12020000.3 2012/11/28 11:51:56 srannama ship $ */
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 l_table_name   VARCHAR2(30);
20 l_column_name  VARCHAR2(30);
21 l_result       VARCHAR2(30);
22 
23 
24 l_status    varchar2(30);
25 l_industry  varchar2(30);
26 l_owner     varchar2(30);
27 
28 l_ret       boolean := FND_INSTALLATION.GET_APP_INFO ('PAY', l_status,
29                                                       l_industry, l_owner);
30 -- bug 15914681
31 
32    CURSOR csr_test(l_table_name  IN VARCHAR2,
33                    l_column_name IN VARCHAR2,
34                    p_owner       IN VARCHAR2) IS
35    SELECT 'Y'
36    FROM   all_tab_columns atc, user_synonyms syn
37    WHERE  syn.synonym_name = l_table_name
38      AND  syn.table_owner  = atc.owner
39      AND  syn.table_name  = atc.table_name
40      AND  atc.column_name  = l_column_name
41      AND  atc.owner        = p_owner;
42 
43 --
44 BEGIN
45    --
46    -- test for product minipack code
47    -- JUL2001 = July 2001
48 
49    l_detected := FALSE;
50 
51    --
52    -- <code for detecting July minipack>
53    -- if found, set l_detected to TRUE
54    --
55    l_table_name  := 'PQP_VEHICLE_DETAILS';
56    l_column_name := 'VHD_ATTRIBUTE_CATEGORY';
57 
58    OPEN csr_test(l_table_name, l_column_name,l_owner);
59    FETCH csr_test INTO l_result;
60    IF csr_test%FOUND THEN
61       l_detected:=TRUE;
62    END IF;
63    CLOSE csr_test;
64    --
65    IF l_detected THEN
66       l_version := 'JUL2001';
67    END IF;
68    --
69 RETURN(l_version);
70 
71 --
72 END get_db_version;
73 
74 --
75 END pqp_efc_info;