PACKAGE BODY: APPS.PQP_EFC_INFO

Source

1 PACKAGE BODY pqp_efc_info  AS
2 /* $Header: pqpefinf.pkb 115.3 2004/02/13 10:14:45 tmehra 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 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 
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
37    WHERE  table_name = l_table_name
38      AND  column_name  = l_column_name
39      AND  owner        = p_owner;
40 
41 --
42 BEGIN
43    --
44    -- test for product minipack code
45    -- JUL2001 = July 2001
46 
47    l_detected := FALSE;
48 
49    --
50    -- <code for detecting July minipack>
51    -- if found, set l_detected to TRUE
52    --
53    l_table_name  := 'PQP_VEHICLE_DETAILS';
54    l_column_name := 'VHD_ATTRIBUTE_CATEGORY';
55 
56    OPEN csr_test(l_table_name, l_column_name,l_owner);
57    FETCH csr_test INTO l_result;
58    IF csr_test%FOUND THEN
59       l_detected:=TRUE;
60    END IF;
61    CLOSE csr_test;
62    --
63    IF l_detected THEN
64       l_version := 'JUL2001';
65    END IF;
66    --
67 RETURN(l_version);
68 
69 --
70 END get_db_version;
71 
72 --
73 END pqp_efc_info;