PACKAGE BODY: APPS.PA_CC_CA

Source

1 PACKAGE BODY pa_cc_ca AS
2 /* $Header: PAICPCAB.pls 120.3 2005/08/19 16:34:34 mwasowic noship $ */
3   PROCEDURE identify_ca_project
4       (  p_project_id               IN    NUMBER,
5          x_cost_accrual_flag       OUT   NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
6   IS
7 
8 --   l_cost_accrual_flag         Varchar2(1);
9 --   l_funding_flag              Varchar2(1);
10 --   l_ca_event_type             Varchar2(30);
11 --   l_ca_contra_event_type      Varchar2(30);
12 --   l_ca_wip_event_type         Varchar2(30);
13 --   l_ca_budget_type            Varchar2(30);
14 
15   BEGIN
16 
17     x_cost_accrual_flag := 'N';
18 
19 --    pa_rev_ca.Check_if_Cost_Accrual
20 --                      ( p_project_id               => p_project_id,
21 --                        x_cost_accrual_flag        => l_cost_accrual_flag,
22 --                        x_funding_flag             => l_funding_flag,
23 --                        x_ca_event_type            => l_ca_event_type,
24 --                        x_ca_contra_event_type     => l_ca_contra_event_type,
25 --                        x_ca_wip_event_type        => l_ca_wip_event_type,
26 --                        x_ca_budget_type           => l_ca_budget_type );
27 
28 --   x_cost_accrual_flag := l_cost_accrual_flag;
29 
30   END identify_ca_project;
31 
32 END pa_cc_ca;