PACKAGE BODY: APPS.IGW_EXP_CATEGORIES_V_PKG

Source

1 PACKAGE BODY IGW_EXP_CATEGORIES_V_PKG as
2 --$Header: igwstexb.pls 115.3 2002/03/28 19:14:00 pkm ship    $
3 
4    FUNCTION get_description_from_pa ( p_expenditure_category varchar2)
5    RETURN varchar2 IS
6 
7       v_description     pa_expenditure_categories.description%TYPE;
8 
9    BEGIN
10 
11       SELECT description
12       INTO v_description
13       FROM pa_expenditure_categories
14       WHERE expenditure_category = p_expenditure_category;
15 
16       RETURN v_description;
17 
18    EXCEPTION
19 
20       WHEN NO_DATA_FOUND or TOO_MANY_ROWS THEN
21       RETURN null;
22 
23    END get_description_from_pa;
24 
25 
26    FUNCTION get_start_date_active_from_pa ( p_expenditure_category varchar2)
27    RETURN varchar2 IS
28 
29       v_start_date_active    pa_expenditure_categories.start_date_active%TYPE;
30 
31    BEGIN
32 
33       SELECT start_date_active
34       INTO v_start_date_active
35       FROM pa_expenditure_categories
36       WHERE expenditure_category = p_expenditure_category;
37 
38       RETURN v_start_date_active;
39 
40    EXCEPTION
41 
42       WHEN NO_DATA_FOUND or TOO_MANY_ROWS THEN
43       RETURN null;
44 
45    END get_start_date_active_from_pa;
46 
47    FUNCTION get_end_date_active_from_pa ( p_expenditure_category varchar2)
48    RETURN varchar2 IS
49 
50       v_end_date_active    pa_expenditure_categories.end_date_active%TYPE;
51 
52    BEGIN
53 
54       SELECT end_date_active
55       INTO v_end_date_active
56       FROM pa_expenditure_categories
57       WHERE expenditure_category = p_expenditure_category;
58 
59       RETURN v_end_date_active;
60 
61    EXCEPTION
62 
63       WHEN NO_DATA_FOUND or TOO_MANY_ROWS THEN
64       RETURN null;
65 
66    END get_end_date_active_from_pa;
67 
68 END IGW_EXP_CATEGORIES_V_PKG;