[Home] [Help]
PACKAGE BODY: APPS.PA_PACRCIPF_XMLP_PKG
Source
1 PACKAGE BODY PA_PACRCIPF_XMLP_PKG AS
2 /* $Header: PACRCIPFB.pls 120.0 2008/01/02 10:58:15 krreddy noship $ */
3
4 function CF_FORMAT_MASKFormula return Char is
5 l_curr_code varchar2(30);
6 begin
7
8
9
10
11
12
13 select currency_code
14 into l_curr_code
15 from gl_sets_of_books
16 where set_of_books_id = p_ca_set_of_books_id;
17
18 return (l_curr_code);
19
20 end;
21
22 function BeforeReport return boolean is
23 begin
24 declare
25 ndf varchar2(80);
26 BEGIN
27
28 select meaning into ndf from pa_lookups where
29 lookup_code = 'NO_DATA_FOUND' and
30 lookup_type = 'MESSAGE';
31 CP_NO_DATA_FOUND := ndf;
32
33
34
35
36
37
38
39
40 /*srw.user_exit('FND SRWINIT');*/null;
41
42 /*SRW.MESSAGE('100','AFTER CALLING INIT USEREXIT');*/null;
43
44
45 /*srw.user_exit('FND GETPROFILE
46 NAME="PA_DEBUG_MODE"
47 FIELD=":p_debug_mode"
48 PRINT_ERROR="N"');*/null;
49
50
51 /*SRW.MESSAGE('100','BEFORE SETTING ALTER SEESION');*/null;
52
53
54 If p_debug_mode = 'Y' then
55 /*srw.do_sql('ALTER SESSION SET SQL_TRACE TRUE');*/null;
56
57 End If;
58
59
60 /*SRW.MESSAGE('100','BEFORE GETTING COA ID');*/null;
61
62
63
64
65
66
67
68
69
70 /*SRW.MESSAGE('100','BEFORE GETTING THE GL ACCOUNT NAMES');*/null;
71
72
73 null;
74
75 /*SRW.MESSAGE('100','BEFORE GETTING THE FROM PERIOD NAMES');*/null;
76
77
78
79
80 /*SRW.MESSAGE('100','BEFORE GETTING THE TO PERIOD NAMES');*/null;
81
82
83
84
85 /*SRW.MESSAGE('100','BEFORE GETTING THE PROJECT NUMBERS');*/null;
86
87 IF p_project_id IS NOT NULL THEN
88 SELECT segment1
89 INTO p_project_number
90 FROM pa_projects_all
91 WHERE project_id=p_project_id ;
92 END IF;
93
94 IF p_project_org IS NOT NULL THEN
95 SELECT name
96 INTO cp_proj_org_name
97 FROM hr_all_organization_units_tl
98 WHERE language=userenv('LANG')
99 AND organization_id=p_project_org;
100 END IF;
101
102
103
104
105 return (TRUE);
106 EXCEPTION
107 WHEN OTHERS THEN
108 /*srw.message('101','Unexpected Error '||sqlerrm);*/null;
109
110 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
111
112
113 END;
114 END;
115
116 function AfterReport return boolean is
117 begin
118 /*srw.user_exit('FND SRWEXIT');*/null;
119
120 return (TRUE);
121 end;
122
123 function AfterPForm return boolean is
124 begin
125 /*srw.user_exit('FND SRWINIT');*/null;
126
127
128 BEGIN
129 SELECT
130 glb.chart_of_accounts_id
131 ,glb.name
132 INTO
133 cp_coa_id
134 ,cp_company_name
135 FROM gl_sets_of_books glb
136 WHERE glb.set_of_books_id=p_ca_set_of_books_id ;
137 EXCEPTION
138 WHEN NO_DATA_FOUND THEN
139 NULL;
140 END ;
141
142 BEGIN
143 IF p_from_period IS NOT NULL THEN
144 SELECT MIN(period_open_date)
145 INTO cp_min_open_date
146 FROM fa_deprn_periods
147 WHERE period_name=p_from_period;
148 END IF;
149 EXCEPTION
150 WHEN NO_DATA_FOUND THEN
151 NULL;
152 END ;
153
154
155 BEGIN
156 IF p_to_period IS NOT NULL THEN
157 SELECT MAX(period_close_date)
158 INTO cp_max_close_date
159 FROM fa_deprn_periods
160 WHERE period_name=p_to_period;
161 END IF;
162 EXCEPTION
163 WHEN NO_DATA_FOUND THEN
164 NULL;
165 END;
166
167
168
169 IF p_ca_set_of_books_id <> -1999 THEN
170 BEGIN
171
172
173
174 select decode(mrc_sob_type_code,'R','R','P')
175 into p_mrcsobtype
176 from gl_sets_of_books
177 where set_of_books_id = p_ca_set_of_books_id;
178 EXCEPTION
179 WHEN OTHERS THEN
180 p_mrcsobtype := 'P';
181 END;
182 ELSE
183 p_mrcsobtype := 'P';
184 END IF;
185
186
187
188 IF p_mrcsobtype = 'R'
189 THEN
190 lp_pa_proj_asset_line := 'PA_PROJ_ASSET_LINES_MRC_V';
191 lp_pa_curr_asset_cost := 'REP_CURR_CURRENT_ASSET_COST';
192 c_sob_id := 'set_of_books_id = :p_ca_set_of_books_id';
193 ELSE
194 lp_pa_proj_asset_line := 'PA_PROJECT_ASSET_LINES';
195 lp_pa_curr_asset_cost := 'CURRENT_ASSET_COST';
196 c_sob_id := '1 = 1';
197 END IF;
198
199
200
201
202 return (TRUE);
203 end;
204
205 --Functions to refer Oracle report placeholders--
206
207 Function C_WHERE_p return varchar2 is
208 Begin
209 return C_WHERE;
210 END;
211 Function CP_1_p return number is
212 Begin
213 return CP_1;
214 END;
215 Function CP_PROJ_ORG_NAME_p return varchar2 is
216 Begin
217 return CP_PROJ_ORG_NAME;
218 END;
219 Function CP_NO_DATA_FOUND_p return varchar2 is
220 Begin
221 return CP_NO_DATA_FOUND;
222 END;
223 END PA_PACRCIPF_XMLP_PKG ;
224