[Home] [Help]
PACKAGE BODY: APPS.PA_PAFPEXRP_XMLP_PKG
Source
1 PACKAGE BODY PA_PAFPEXRP_XMLP_PKG AS
2 /* $Header: PAFPEXRPB.pls 120.1 2008/06/16 10:57:07 krreddy noship $ */
3 function cf_rejection_descriptionformul(rejection_code in varchar2) return char is
4 l_meaning varchar2(2000);
5 begin
6 FND_MESSAGE.SET_NAME ('PA',rejection_code);
7 l_meaning := FND_MESSAGE.GET;
8 return(l_meaning);
9 exception when no_data_found then
10 return(rejection_code);
11 end;
12 function BeforeReport return boolean is
13 l_org_fcst_period_type varchar2(30);
14 l_period_set_name varchar2(15);
15 l_act_period_type varchar2(15);
16 l_org_projfunc_currency_code varchar2(15);
17 l_number_of_periods number;
18 l_weighted_or_full_code varchar2(1);
19 l_org_proj_template_id number;
20 l_org_structure_version_id number;
21 l_fcst_start_date date;
22 l_fcst_end_date date;
23 l_org_id number;
24 l_return_status VARCHAR2(2000);
25 l_err_code VARCHAR2(2000);
26 l_dummy_name varchar2(1000);
27 l_dummy_count number;
28 begin
29
30 /*srw.user_exit('FND SRWINIT') ;*/null;
31 /*srw.message(111,'Org Id = '||to_char(p_org_id));*/null;
32 /*srw.message(111,'calling mo init');*/null;
33 mo_global.init('PA');
34 If NVL(p_org_id,-99) = -99 Then
35 /*srw.message(111, 'calling MO_GLOBAL.get_current_org_id');*/null;
36 p_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID;
37 /*srw.message(111, 'MO GLOBAL ORGID ='||p_org_id);*/null;
38 If NVL(p_org_id,-99) = -99 Then
39 /*srw.message(111,'Calling Get_Default OU');*/null;
40 pa_moac_utils.GET_DEFAULT_OU
41 (
42 p_product_code => 'PA'
43 ,p_default_org_id => p_org_id
44 ,p_default_ou_name => l_dummy_name
45 ,p_ou_count => l_dummy_count
46 );
47 /*srw.message(111,'Value of orgid['||p_org_id||']');*/null;
48 End If;
49 End If;
50 If p_org_id is NOT NULL Then
51 /*srw.message(111,'Setting Single org context');*/null;
52 MO_GLOBAL.set_policy_context('S',p_org_id);
53
54 End If;
55 p_start_organization_id_dummy:=p_start_organization_id;
56
57 if p_organization_id IS NULL and p_start_organization_id_dummy IS NULL THEN
58 /*srw.message(111, 'Getting start organization id from pa_imp');*/null;
59 select start_organization_id into p_start_organization_id_dummy
60 from pa_implementations;
61
62 end if;
63 /*srw.message(111, 'Calling pa_fp_org_fcst_utils.get_forecast_option_details');*/null;
64 pa_fp_org_fcst_utils.get_forecast_option_details
65 ( x_fcst_period_type => l_org_fcst_period_type
66 ,x_period_set_name => l_period_set_name
67 ,x_act_period_type => l_act_period_type
68 ,x_org_projfunc_currency_code => l_org_projfunc_currency_code
69 ,x_number_of_periods => l_number_of_periods
70 ,x_weighted_or_full_code => l_weighted_or_full_code
71 ,x_org_proj_template_id => l_org_proj_template_id
72 ,x_org_structure_version_id => p_org_structure_version_id
73 ,x_fcst_start_date => p_fcst_start_date
74 ,x_fcst_end_date => p_fcst_end_date
75 ,x_org_id => p_org_id
76 ,x_return_status => l_return_status
77 ,x_err_code => l_err_code);
78 /*srw.message(1,': Forecast Options Data: ');*/null;
79 /*srw.message(2,'l_org_fcst_period_type ['||l_org_fcst_period_type||']');*/null;
80 /*srw.message(3,'l_period_set_name ['||l_period_set_name||']');*/null;
81 /*srw.message(4,'l_act_period_type ['||l_act_period_type||']');*/null;
82 /*srw.message(5,'l_org_projfunc_currency_code ['||l_org_projfunc_currency_code||']');*/null;
83 /*srw.message(6,'l_number_of_periods ['||to_char(l_number_of_periods)||']');*/null;
84 /*srw.message(7,'l_weighted_or_full_code ['||l_weighted_or_full_code||']');*/null;
85 /*srw.message(8,'l_org_proj_template_id ['||to_char(l_org_proj_template_id)||']');*/null;
86 /*srw.message(9,'l_org_structure_version_id ['||to_char(p_org_structure_version_id)||']');*/null;
87 /*srw.message(10,'p_fcst_start_date ['||p_fcst_start_date||']');*/null;
88 /*srw.message(11,'p_fcst_end_date ['||p_fcst_end_date||']');*/null;
89 /*srw.message(12,'l_org_id ['||to_char(p_org_id)||']');*/null;
90 IF l_err_code IS NOT NULL THEN
91 /*srw.message(13, ': Error occured while Getting forecast Options Det [' || l_err_code|| ']');*/null;
92 END IF;
93 p_project_id_parameter:=p_project_id;
94 if p_project_id is NOT NULL THEN
95 p_project_id_param := 'and fi.project_id = '||p_project_id;
96 else
97 p_project_id_param := ' and fi.item_date between ('''||p_fcst_start_date||''') and ('''||p_fcst_end_date||''')';
98 end if;
99 if p_assignment_id IS NOT NULL THEN
100 p_assignment_id_param := 'and fi.assignment_id = '||p_assignment_id;
101 else
102 p_assignment_id_param := 'and 1 = 1';
103 end if;
104 /*srw.message(14,'p_project_id_param ['||p_project_id_param||']');*/null;
105 /*srw.message(15,'p_assignment_id_param ['||p_assignment_id_param||']');*/null;
106 return (TRUE);
107 end;
108 function AfterReport return boolean is
109 begin
110 /*srw.user_exit('FND SRWEXIT') ;*/null;
111 return (TRUE);
112 end;
113 --Functions to refer Oracle report placeholders--
114
115 function p_fcst_start_date_p return date is
116 begin
117 return (p_fcst_start_date);
118 end;
119
120 function P_FCST_END_DATE_p return date is
121 begin
122 return (P_FCST_END_DATE);
123 end;
124
125 function p_project_id_parameter_p return number is
126 begin
127 return (p_project_id_parameter);
128 end;
129
130
131
132 END PA_PAFPEXRP_XMLP_PKG ;
133