[Home] [Help]
PACKAGE BODY: APPS.ZX_ZXJGTAX_XMLP_PKG
Source
1 PACKAGE BODY ZX_ZXJGTAX_XMLP_PKG AS
2 /* $Header: ZXJGTAXB.pls 120.1.12010000.1 2008/07/28 13:27:51 appldev ship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 ERRBUF VARCHAR2(2000);
5 RETCODE NUMBER;
6 INIT_FAILURE EXCEPTION;
7 DUMMY VARCHAR2(1000);
8 BEGIN
9 EXECUTE IMMEDIATE
10 'ALTER SESSION SET SQL_TRACE=TRUE';
11 SELECT
12 'ZXARRECV'
13 INTO DUMMY
14 FROM
15 DUAL;
16 /*SRW.MESSAGE('1'
17 ,'Before Init')*/NULL;
18 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
19 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
20 /*SRW.MESSAGE('1'
21 ,'After Init')*/NULL;
22 /*SRW.MESSAGE('13'
23 ,'Before populating tax extract')*/NULL;
24 IF CALL_TRL_ENGINE <> TRUE THEN
25 RAISE INIT_FAILURE;
26 END IF;
27 /*SRW.MESSAGE('14'
28 ,'After populating tax extract')*/NULL;
29 SELECT
30 COUNT(1)
31 INTO CP_TRL_ROW_COUNT
32 FROM
33 ZX_REP_CONTEXT_T CON,
34 ZX_REP_TRX_DETAIL_T DET
35 WHERE CON.REQUEST_ID = P_CONC_REQUEST_ID
36 AND DET.REQUEST_ID = CON.REQUEST_ID
37 AND NVL(DET.REP_CONTEXT_ID
38 ,CON.REP_CONTEXT_ID) = CON.REP_CONTEXT_ID;
39 /*SRW.MESSAGE('19'
40 ,'End of Before Report Trigger')*/NULL;
41 RETURN (TRUE);
42 EXCEPTION
43 WHEN INIT_FAILURE THEN
44 RETURN (FALSE);
45 WHEN OTHERS THEN
46 /*SRW.MESSAGE('999'
47 ,SQLERRM)*/NULL;
48 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
49 END BEFOREREPORT;
50
51 FUNCTION INITIALIZE RETURN BOOLEAN IS
52 INIT_EXCEPTION EXCEPTION;
53 BEGIN
54 /*SRW.MESSAGE('01'
55 ,'BEFORE call XLA_MO_REPORTING_API')*/NULL;
56 XLA_MO_REPORTING_API.INITIALIZE(P_REPORTING_LEVEL
57 ,P_REPORTING_ENTITY_ID
58 ,'AUTO');
59 CP_REPORTING_LEVEL_NAME := XLA_MO_REPORTING_API.GET_REPORTING_LEVEL_NAME;
60 CP_REPORTING_ENTITY_NAME := XLA_MO_REPORTING_API.GET_REPORTING_ENTITY_NAME;
61 /*SRW.MESSAGE('02'
62 ,'AFTER call XLA_MO_REPORTING_API')*/NULL;
63 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
64 RETURN (TRUE);
65 EXCEPTION
66 WHEN OTHERS THEN
67 /*SRW.MESSAGE('999'
68 ,SQLERRM)*/NULL;
69 RETURN (FALSE);
70 END INITIALIZE;
71
72 FUNCTION CALL_TRL_ENGINE RETURN BOOLEAN IS
73 L_TAX_CLASS VARCHAR2(1);
74 L_PRODUCT VARCHAR2(15);
75 L_SUMMARY_LEVEL VARCHAR2(30);
76 L_RETCODE NUMBER;
77 L_ERRBUF VARCHAR2(2000);
78 BEGIN
79 L_SUMMARY_LEVEL := 'TRANSACTION_DISTRIBUTION';
80 L_PRODUCT := 'ALL';
81 ZX_EXTRACT_PKG.POPULATE_TAX_DATA(P_REPORTING_LEVEL => P_REPORTING_LEVEL
82 ,P_REPORTING_CONTEXT => P_REPORTING_ENTITY_ID
83 ,P_REPORT_NAME => 'ZXJGTAX'
84 ,P_REGISTER_TYPE => 'TAX'
85 ,P_SUMMARY_LEVEL => L_SUMMARY_LEVEL
86 ,P_PRODUCT => L_PRODUCT
87 ,P_GL_DATE_LOW => P_GL_DATE_FROM
88 ,P_GL_DATE_HIGH => P_GL_DATE_TO
89 ,P_CURRENCY_CODE_LOW => P_CURRENCY_CODE
90 ,P_CURRENCY_CODE_HIGH => P_CURRENCY_CODE
91 ,P_ACCOUNTING_STATUS => 'ACCOUNTED'
92 ,P_INCLUDE_ACCOUNTING_SEGMENTS => 'Y'
93 ,P_MATRIX_REPORT => 'N'
94 ,P_BALANCING_SEGMENT_LOW => P_BALANCING_SEG
95 ,P_BALANCING_SEGMENT_HIGH => P_BALANCING_SEG
96 ,P_TAXABLE_ACCOUNT_LOW => P_TAXABLE_ACCOUNT_FROM
97 ,P_TAXABLE_ACCOUNT_HIGH => P_TAXABLE_ACCOUNT_TO
98 ,P_INCLUDE_AP_STD_TRX_CLASS => 'Y'
99 ,P_INCLUDE_AP_CM_TRX_CLASS => 'Y'
100 ,P_INCLUDE_AP_DM_TRX_CLASS => 'Y'
101 ,P_INCLUDE_AP_EXP_TRX_CLASS => 'Y'
102 ,P_INCLUDE_AP_PREP_TRX_CLASS => 'Y'
103 ,P_INCLUDE_AP_MIX_TRX_CLASS => 'Y'
104 ,P_INCLUDE_AP_INT_TRX_CLASS => 'Y'
105 ,P_INCLUDE_GL_MANUAL_LINES => 'Y'
106 ,P_INCLUDE_AR_INV_TRX_CLASS => 'Y'
107 ,P_INCLUDE_AR_APPL_TRX_CLASS => 'Y'
108 ,P_INCLUDE_AR_ADJ_TRX_CLASS => 'Y'
109 ,P_INCLUDE_AR_MISC_TRX_CLASS => 'Y'
110 ,P_INCLUDE_AR_BR_TRX_CLASS => 'Y'
111 ,P_INCLUDE_FULLY_NR_TAX_FLAG => 'Y'
112 ,P_TAX_REGIME_CODE => P_TAX_REGIME_CODE
113 ,P_TAX => P_TAX
114 ,P_TAX_STATUS_CODE => P_TAX_STATUS_CODE
115 ,P_TAX_RATE_CODE_LOW => P_TAX_RATE_CODE
116 ,P_TAX_RATE_CODE_HIGH => P_TAX_RATE_CODE
117 ,P_TAX_TYPE_CODE_LOW => P_TAX_TYPE
118 ,P_TAX_TYPE_CODE_HIGH => P_TAX_TYPE
119 ,P_REQUEST_ID => P_CONC_REQUEST_ID
120 ,P_LEDGER_ID => P_LEDGER_ID
121 ,P_CHART_OF_ACCOUNTS_ID => P_COA_ID
122 ,P_ERRBUF => L_ERRBUF
123 ,P_RETCODE => L_RETCODE);
124 IF L_RETCODE <> 0 THEN
125 /*SRW.MESSAGE('401'
126 ,'Return Code: ' || L_RETCODE)*/NULL;
127 /*SRW.MESSAGE('402'
128 ,'Error Buffer: ' || L_ERRBUF)*/NULL;
129 RETURN (FALSE);
130 END IF;
131 RETURN (TRUE);
132 END CALL_TRL_ENGINE;
133
134 FUNCTION AFTERREPORT RETURN BOOLEAN IS
135 BEGIN
136 ZX_EXTRACT_PKG.PURGE(P_CONC_REQUEST_ID);
137 RETURN (TRUE);
138 EXCEPTION
139 WHEN OTHERS THEN
140 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
141 RETURN (TRUE);
142 END AFTERREPORT;
143
144 FUNCTION CF_RESPONSIBILITYFORMULA RETURN CHAR IS
145 BEGIN
146 RETURN (FND_GLOBAL.RESP_NAME);
147 END CF_RESPONSIBILITYFORMULA;
148
149 FUNCTION CF_USER_NAMEFORMULA RETURN CHAR IS
150 BEGIN
151 RETURN (FND_GLOBAL.USER_NAME);
152 END CF_USER_NAMEFORMULA;
153
154 FUNCTION CF_TAXABLE_AMTFORMULA(C_TRX_ID IN NUMBER
155 ,C_TRX_LINE_ID IN NUMBER) RETURN NUMBER IS
156 L_INV_TAXABLE_AMT NUMBER := 0;
157 BEGIN
158 /*SRW.MESSAGE(100
159 ,':: Inside formula ::')*/NULL;
160 IF (CP_TRX_ID IS NULL) THEN
161 CP_TRX_ID := 0;
162 END IF;
163 IF (CP_TRX_LINE_ID IS NULL) THEN
164 CP_TRX_LINE_ID := 0;
165 END IF;
166 IF ((CP_TRX_ID <> C_TRX_ID) OR (CP_TRX_LINE_ID <> C_TRX_LINE_ID)) THEN
167 SELECT
168 SUM(A.TAXABLE_AMT)
169 INTO L_INV_TAXABLE_AMT
170 FROM
171 ZX_REP_TRX_DETAIL_T A
172 WHERE A.TRX_ID = C_TRX_ID
173 AND A.TRX_LINE_ID = C_TRX_LINE_ID
174 AND A.REQUEST_ID = P_CONC_REQUEST_ID
175 AND A.ROWID = (
176 SELECT
177 MIN(B.ROWID)
178 FROM
179 ZX_REP_TRX_DETAIL_T B
180 WHERE A.TRX_ID = B.TRX_ID
181 AND A.TRX_LINE_ID = B.TRX_LINE_ID
182 AND B.REQUEST_ID = P_CONC_REQUEST_ID );
183 ELSE
184 L_INV_TAXABLE_AMT := 0;
185 END IF;
186 CP_TRX_ID := C_TRX_ID;
187 CP_TRX_LINE_ID := C_TRX_LINE_ID;
188 /*SRW.MESSAGE(101
189 ,'trx_id : ' || C_TRX_ID || ' trx_line_id : ' || C_TRX_LINE_ID || ' taxable amt : ' || L_INV_TAXABLE_AMT)*/NULL;
190 RETURN (L_INV_TAXABLE_AMT);
191 EXCEPTION
192 WHEN OTHERS THEN
193 RETURN 0;
194 END CF_TAXABLE_AMTFORMULA;
195
196 FUNCTION CF_TAXABLE_ACC_AMTFORMULA(C_TRX_ID IN NUMBER
197 ,C_TRX_LINE_ID IN NUMBER) RETURN NUMBER IS
198 L_INV_TAXABLE_AMT NUMBER := 0;
199 BEGIN
200 /*SRW.MESSAGE(100
201 ,':: Inside formula ::')*/NULL;
202 IF (CP_TRX_ID_ACC IS NULL) THEN
203 CP_TRX_ID_ACC := 0;
204 END IF;
205 IF (CP_TRX_LINE_ID_ACC IS NULL) THEN
206 CP_TRX_LINE_ID_ACC := 0;
207 END IF;
208 IF ((CP_TRX_ID_ACC <> C_TRX_ID) OR (CP_TRX_LINE_ID_ACC <> C_TRX_LINE_ID)) THEN
209 SELECT
210 SUM(A.TAXABLE_AMT_FUNCL_CURR)
211 INTO L_INV_TAXABLE_AMT
212 FROM
213 ZX_REP_TRX_DETAIL_T A
214 WHERE A.TRX_ID = C_TRX_ID
215 AND A.TRX_LINE_ID = C_TRX_LINE_ID
216 AND A.REQUEST_ID = P_CONC_REQUEST_ID
217 AND A.ROWID = (
218 SELECT
219 MIN(B.ROWID)
220 FROM
221 ZX_REP_TRX_DETAIL_T B
222 WHERE A.TRX_ID = B.TRX_ID
223 AND A.TRX_LINE_ID = B.TRX_LINE_ID
224 AND B.REQUEST_ID = P_CONC_REQUEST_ID );
225 ELSE
226 L_INV_TAXABLE_AMT := 0;
227 END IF;
228 CP_TRX_ID_ACC := C_TRX_ID;
229 CP_TRX_LINE_ID_ACC := C_TRX_LINE_ID;
230 /*SRW.MESSAGE(101
231 ,'trx_id : ' || C_TRX_ID || ' trx_line_id : ' || C_TRX_LINE_ID || ' taxable amt : ' || L_INV_TAXABLE_AMT)*/NULL;
232 RETURN (L_INV_TAXABLE_AMT);
233 EXCEPTION
234 WHEN OTHERS THEN
235 RETURN 0;
236 END CF_TAXABLE_ACC_AMTFORMULA;
237
238 FUNCTION CP_TRX_ID_P RETURN NUMBER IS
239 BEGIN
240 RETURN CP_TRX_ID;
241 END CP_TRX_ID_P;
242
243 FUNCTION CP_TRX_LINE_ID_P RETURN NUMBER IS
244 BEGIN
245 RETURN CP_TRX_LINE_ID;
246 END CP_TRX_LINE_ID_P;
247
248 FUNCTION CP_TRX_ID_ACC_P RETURN NUMBER IS
249 BEGIN
250 RETURN CP_TRX_ID_ACC;
251 END CP_TRX_ID_ACC_P;
252
253 FUNCTION CP_TRX_LINE_ID_ACC_P RETURN NUMBER IS
254 BEGIN
255 RETURN CP_TRX_LINE_ID_ACC;
256 END CP_TRX_LINE_ID_ACC_P;
257
258 FUNCTION CP_REPORTING_LEVEL_NAME_P RETURN VARCHAR2 IS
259 BEGIN
260 RETURN CP_REPORTING_LEVEL_NAME;
261 END CP_REPORTING_LEVEL_NAME_P;
262
263 FUNCTION CP_REPORTING_ENTITY_NAME_P RETURN VARCHAR2 IS
264 BEGIN
265 RETURN CP_REPORTING_ENTITY_NAME;
266 END CP_REPORTING_ENTITY_NAME_P;
267
268 FUNCTION CP_REPORT_TITLE_P RETURN VARCHAR2 IS
269 BEGIN
270 RETURN CP_REPORT_TITLE;
271 END CP_REPORT_TITLE_P;
272
273 FUNCTION CP_NO_DATA_FOUND_P RETURN VARCHAR2 IS
274 BEGIN
275 RETURN CP_NO_DATA_FOUND;
276 END CP_NO_DATA_FOUND_P;
277
278 FUNCTION CP_END_OF_REPORT_P RETURN VARCHAR2 IS
279 BEGIN
280 RETURN CP_END_OF_REPORT;
281 END CP_END_OF_REPORT_P;
282
283 FUNCTION CP_TRL_ROW_COUNT_P RETURN NUMBER IS
284 BEGIN
285 RETURN CP_TRL_ROW_COUNT;
286 END CP_TRL_ROW_COUNT_P;
287
288 END ZX_ZXJGTAX_XMLP_PKG;
289