PACKAGE BODY: APPS.IGW_PROP_COSTS

Source

1 PACKAGE BODY IGW_PROP_COSTS as
2 --$Header: igwprs2b.pls 115.3 2002/03/28 19:13:47 pkm ship    $
3 
4   Function get_annual_direct_costs(i_prop_id   NUMBER) RETURN NUMBER is
5   o_annual_cost      number;
6   Begin
7     select ibp.total_direct_cost
8     into o_annual_cost
9     from igw_budget_periods  ibp, igw_budgets  ib
10     where ibp.proposal_id = i_prop_id and
11           ibp.proposal_id = ib.proposal_id  and
12           ibp.version_id = ib.version_id and
13           ib.final_version_flag = 'Y' and
14           ibp.budget_period_id = 1;
15 
16     RETURN o_annual_cost;
17 
18   Exception
19     when no_data_found then
20          o_annual_cost := null;
21          RETURN o_annual_cost;
22   End;
23 
24 
25   Function get_total_costs(i_prop_id   NUMBER) RETURN NUMBER is
26   o_total_cost      number;
27   Begin
28     select total_cost
29     into o_total_cost
30     from igw_budgets
31     where proposal_id = i_prop_id and
32           final_version_flag = 'Y';
33 
34     RETURN o_total_cost;
35 
36   Exception
37     when no_data_found then
38        o_total_cost := null;
39        RETURN o_total_cost;
40 
41   End;
42 
43   END IGW_PROP_COSTS;