1 PACKAGE BODY GL_GLXRCTRS_XMLP_PKG AS
2 /* $Header: GLXRCTRSB.pls 120.0 2007/12/27 15:07:36 vijranga noship $ */
3
4 function BeforeReport return boolean is
5 begin
6
7 /*srw.user_exit('FND SRWINIT');*/null;
8
9
10 declare
11 coaid NUMBER;
12 ledgername VARCHAR2(30);
13 functcurr VARCHAR2(15);
14 errbuf VARCHAR2(132);
15 errbuf2 VARCHAR2(132);
16
17 BEGIN
18 SELECT name,
19 chart_of_accounts_id,
20 currency_code
21 INTO ledgername,coaid,functcurr
22 FROM gl_ledgers
23 WHERE ledger_id = P_LEDGER_ID;
24
25 SELECT name
26 INTO c_access_set_name
27 FROM GL_ACCESS_SETS
28 WHERE access_set_id = P_ACCESS_SET_ID;
29
30 C_BASE_CURR := functcurr;
31
32
33
34 C_STRUCT_NUM := coaid;
35 C_LEDGER_NAME := ledgername;
36
37 EXCEPTION
38
39 WHEN OTHERS THEN
40 errbuf:= SQLERRM;
41 /*srw.message('00',errbuf);*/null;
42
43 raise_application_error(-20101,null);/*srw.program_abort;*/null;
44
45
46 END;
47
48
49
50 C_WHERE_DAS :='AND'||' '|| GL_ACCESS_SET_SECURITY_PKG.GET_SECURITY_CLAUSE (
51 P_ACCESS_SET_ID,'R','LEDGER_COLUMN','LEDGER_ID','l','SEG_COLUMN',
52 null,'C',NULL);
53 IF C_WHERE_DAS is NULL THEN
54 C_WHERE_DAS := ' 1 = 1';
55 END IF;
56
57
58
59
60
61 IF P_FLEX_FROM is null OR P_FLEX_TO is null then
62 P_FLEX_FROM := null;
63 P_FLEX_TO := null;
64 END IF;
65
66 IF P_START_DATE is null OR P_END_DATE is null then
67 P_START_DATE := null;
68 P_END_DATE := null;
69 END IF;
70
71 IF P_PERIOD_FROM is null OR P_PERIOD_TO is null then
72 P_PERIOD_FROM := null;
73 P_PERIOD_TO := null;
74 END IF;
75
76
77 /*srw.reference(C_STRUCT_NUM);*/null;
78
79
80 null;
81
82
83
84
85
86 IF P_FLEX_FROM is not null then
87 C_WHERE_FLEX := 'AND '||C_WHERE_FLEX;
88 ELSE
89 C_WHERE_FLEX:='';
90
91 END IF;
92
93
94
95 If (P_PERIOD_FROM is not null AND P_PERIOD_TO is not null) THEN
96 SELECT start_date, effective_period_num
97 INTO cp_period_start, cp_eff_period_start
98 FROM gl_period_statuses
99 WHERE application_id =101
100 AND closing_status in ('C', 'O', 'P')
101 AND ledger_id = P_LEDGER_ID
102 and period_name = P_PERIOD_FROM;
103
104 SELECT end_date,effective_period_num
105 INTO cp_period_end,cp_eff_period_end
106 FROM gl_period_statuses
107 WHERE application_id = 101
108 AND closing_status in ('C', 'O', 'P')
109 AND ledger_id = P_LEDGER_ID
110 AND period_name = P_PERIOD_TO ;
111
112
113 End if ;
114
115
116
117
118
119 If (P_LEDGER_CURRENCY <> 'All Currencies')
120 then
121 C_WHERE_CURRENCY := 'AND h.currency_code = :P_LEDGER_CURRENCY';
122 else
123 C_WHERE_CURRENCY := 'AND h.currency_code <> ''STAT'' ';
124 end if;
125
126
127
128 IF (P_LEDGER_CURRENCY = 'All Currencies') THEN
129 P_AMOUNT_TYPE := 'FUNCTIONAL';
130 ELSE
131 P_AMOUNT_TYPE := 'FOREIGN';
132 END IF;
133
134
135
136 if p_rec_unrec ='U' then
137 /*srw.message(1000, 'In Unreconciled Trans...');*/null;
138
139 c_where_rec_status := 'AND r.jgzz_recon_status = ''U''
140 AND h.actual_flag =''A''';
141 C_JGZZ_RECON_FLAG := 'AND C.JGZZ_RECON_FLAG = ''Y'' ';
142 end if ;
143
144 if p_rec_unrec ='R' then
145 /*srw.message(1001,'In Reconciled Trans..');*/null;
146
147 c_where_rec_status := 'AND r.jgzz_recon_status =''R''';
148 end if;
149
150
151 if C_JGZZ_RECON_FLAG is null then C_JGZZ_RECON_FLAG:='and 1=1'; end if;
152
153
154 return (TRUE);
155 end;
156
157 function AfterReport return boolean is
158 begin
159
160 /*srw.user_exit('FND SRWEXIT');*/null;
161
162 commit;
163 return (TRUE);
164 end;
165
166 function P_AMOUNT_TYPEValidTrigger return boolean is
167 begin
168
169 if P_AMOUNT_TYPE NOT IN ('FUNCTIONAL', 'FOREIGN') THEN
170 return (FALSE);
171 END IF; return (TRUE);
172 end;
173
174 function CF_sysdate_dateFormula return Char is
175
176 begin
177 return(fnd_date.date_to_chardt(sysdate));
178 end;
179
180 --Functions to refer Oracle report placeholders--
181
182 Function CP_COUNT_REC_p return number is
183 Begin
184 return CP_COUNT_REC;
185 END;
186 Function C_WHERE_DATE_p return varchar2 is
187 Begin
188 return C_WHERE_DATE;
189 END;
190 Function C_WHERE_CURRENCY_p return varchar2 is
191 Begin
192 return C_WHERE_CURRENCY;
193 END;
194 Function C_WHERE_REF_p return varchar2 is
195 Begin
196 return C_WHERE_REF;
197 END;
198 Function C_RECON_ID_p return number is
199 Begin
200 return C_RECON_ID;
201 END;
202 Function C_LOGIN_ID_p return number is
203 Begin
204 return C_LOGIN_ID;
205 END;
206 Function CP_period_start_p return date is
207 Begin
208 return CP_period_start;
209 END;
210 Function CP_period_end_p return date is
211 Begin
212 return CP_period_end;
213 END;
214 Function CP_start_date_p return varchar2 is
215 Begin
216 return P_start_date;
217 END;
218 Function CP_end_date_p return varchar2 is
219 Begin
220 return P_end_date;
221 END;
222 Function CP_EFF_PERIOD_END_p return number is
223 Begin
224 return CP_EFF_PERIOD_END;
225 END;
226 Function COUNT_ROWS_p return number is
227 Begin
228 return COUNT_ROWS;
229 END;
230 Function C_WHERE_DAS_p return varchar2 is
231 Begin
232 return C_WHERE_DAS;
233 END;
234 Function C_JGZZ_RECON_FLAG_p return varchar2 is
235 Begin
236 return C_JGZZ_RECON_FLAG;
237 END;
238 END GL_GLXRCTRS_XMLP_PKG ;
239