[Home] [Help]
PACKAGE BODY: APPS.AR_ARXTDR_XMLP_PKG
Source
1 PACKAGE BODY AR_ARXTDR_XMLP_PKG AS
2 /* $Header: ARXTDRB.pls 120.0 2007/12/27 14:10:31 abraghun noship $ */
3
4 function report_nameformula(Company_Name in varchar2) return varchar2 is
5 begin
6
7 DECLARE
8 l_report_name VARCHAR2(80);
9 BEGIN
10 RP_Company_Name := Company_Name;
11 SELECT cp.user_concurrent_program_name
12 INTO l_report_name
13 FROM FND_CONCURRENT_PROGRAMS_VL cp,
14 FND_CONCURRENT_REQUESTS cr
15 WHERE cr.request_id = P_CONC_REQUEST_ID
16 AND cp.application_id = cr.program_application_id
17 AND cp.concurrent_program_id = cr.concurrent_program_id;
18
19 RP_Report_Name := l_report_name;
20
21 RETURN(l_report_name);
22 EXCEPTION
23 WHEN OTHERS THEN
24 RP_Report_Name := NULL;
25 RETURN(NULL);
26 END;
27
28 RETURN NULL; end;
29
30 function YES_MEANINGFormula return VARCHAR2 is
31 begin
32
33 DECLARE
34 l_meaning VARCHAR2(80);
35 BEGIN
36 SELECT MEANING
37 INTO l_meaning
38 FROM AR_LOOKUPS
39 WHERE LOOKUP_TYPE = 'YES/NO'
40 AND LOOKUP_CODE = 'Y';
41
42 RETURN(l_meaning);
43 END;
44 RETURN NULL; end;
45
46 function NO_MEANINGFormula return VARCHAR2 is
47 begin
48
49 DECLARE
50 l_meaning VARCHAR2(80);
51 BEGIN
52 SELECT MEANING
53 INTO l_meaning
54 FROM AR_LOOKUPS
55 WHERE LOOKUP_TYPE = 'YES/NO'
56 AND LOOKUP_CODE = 'N';
57
58 RETURN(l_meaning);
59 END;
60 RETURN NULL; end;
61
62 function TRX_FLEX_DELIMFormula return VARCHAR2 is
63 begin
64
65 DECLARE
66 delimiter VARCHAR2(2);
67 BEGIN
68
69
70 return('.');
71 END;
72 RETURN NULL; end;
73
74 function LOC_FLEX_ALL_SEGFormula return VARCHAR2 is
75 begin
76
77
78 RETURN null;
79 end;
80
81 function BeforeReport return boolean is
82 begin
83 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
84 /*SRW.USER_EXIT('FND SRWINIT');*/null;
85 /* ADDED AS A FIX */
86 P_TRANSACTION_TYPE_DUMMY := NVL(P_TRANSACTION_TYPE,'ALL');
87 /* FIX ENDS */
88
89
90 begin
91
92 /*srw.message ('100', 'BeforeReport: Get Consolidated Billing Number Profile');*/null;
93
94
95 P_CONS_PROFILE_VALUE := AR_SETUP.value('AR_SHOW_BILLING_NUMBER',null);
96
97
98 exception
99 when others then
100 /*srw.message ('101', 'Consolidated Billing Profile: ' || P_CONS_PROFILE_VALUE);*/null;
101
102 end;
103
104
105 If ( P_CONS_PROFILE_VALUE = 'N' ) then
106 lp_query_show_bill := 'to_char(NULL)';
107 --lp_table_show_bill := null;
108 --lp_where_show_bill := null;
109
110 lp_table_show_bill := ' ';
111 lp_where_show_bill := ' ';
112
113 Else lp_query_show_bill := 'ci.cons_billing_number';
114 lp_table_show_bill := 'ar_cons_inv ci,';
115 lp_where_show_bill := 'and arps.cons_inv_id = ci.cons_inv_id(+)';
116
117 End if;
118
119 select language_code
120 into p_base_lang
121 from fnd_languages
122 where installed_flag = 'B';
123
124 /*srw.message('102','Base language = ' || p_base_lang);*/null;
125
126
127
128
129 RP_TX_CUST_TRX_ID := 0;
130
131 return (TRUE);
132 end;
133
134 function AfterReport return boolean is
135 begin
136
137 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
138 return (TRUE);
139 end;
140
141 function ship_to_address5formula(ship_to_city in varchar2, ship_to_state in varchar2, ship_to_postal_code in varchar2, ship_to_country in varchar2) return varchar2 is
142 begin
143
144 /*srw.reference(ship_to_city);*/null;
145
146 /*srw.reference(ship_to_state);*/null;
147
148 /*srw.reference(ship_to_postal_code);*/null;
149
150 return(ship_to_city|| ' ' || ship_to_state || ' ' || ship_to_postal_code || ' ' ||ship_to_country);
151 end;
152
153 function bill_to_address5formula(bill_to_city in varchar2, bill_to_state in varchar2, bill_to_postal_code in varchar2, bill_to_country in varchar2) return varchar2 is
154 begin
155
156 RP_DATA_FOUND := 'YES';
157 /*srw.reference(bill_to_city);*/null;
158
159 /*srw.reference(bill_to_state);*/null;
160
161 /*srw.reference(bill_to_postal_code);*/null;
162
163 return(bill_to_city|| ' ' || bill_to_state || ' ' || bill_to_postal_code || ' ' || bill_to_country);
164
165 end;
166
167 function d_sold_toformula(sold_to_customer_number in varchar2,sold_to_customer_name in varchar2) return varchar2 is
168 begin
169
170 /*srw.reference(sold_to_customer_number);*/null;
171
172 /*srw.reference(sold_to_customer_name);*/null;
173
174
175 return(sold_to_customer_number ||sold_to_customer_name);
176 end;
177
178 function d_remit_toformula(remit_to_address1 in varchar2, remit_to_address2 in varchar2, remit_to_address3 in varchar2, remit_to_address4 in varchar2,
179 remit_to_city in varchar2, remit_to_state in varchar2, remit_to_postal_code in varchar2, remit_to_country in varchar2) return varchar2 is
180
181 begin
182
183 /*srw.reference(remit_to_address1);*/null;
184
185 /*srw.reference(remit_to_address2);*/null;
186
187 /*srw.reference(remit_to_address3);*/null;
188
189 /*srw.reference(remit_to_address4);*/null;
190
191 /*srw.reference(remit_to_city);*/null;
192
193 /*srw.reference(remit_to_state);*/null;
194
195 /*srw.reference(remit_to_postal_code);*/null;
196
197 /*srw.reference(remit_to_country);*/null;
198
199
200
201 return(remit_to_address1||' '||remit_to_address2||' '||remit_to_address3||' '||remit_to_address4||' '||
202 remit_to_city||' ' ||
203 remit_to_state||' '||
204 remit_to_postal_code||' '||
205 remit_to_country);
206 end;
207
208 function D_LOCATIONFormula return VARCHAR2 is
209 begin
210
211
212 RETURN null;
213 end;
214
215 function ITEM_FLEX_STRUCTUREFormula return Number is
216 l_item_flex VARCHAR2(50);
217 l_item_flex_structure NUMBER ;
218 begin
219
220 /* srw.message ('100', 'ITEM_FLEX_STRUCTUREFormula');*/null;
221
222 oe_profile.get('SO_ORGANIZATION_ID', l_item_flex_structure );
223
224 l_item_flex := l_item_flex_structure ;
225 /*srw.message ('100', 'ITEM_FLEX_STRUCTUREFormula: Item Flex Structure: ' || l_item_flex);*/null;
226
227 RETURN(l_item_flex_structure );
228 end;
229 function RP_INV_RANGEFormula return VARCHAR2 is
230 begin
231
232 RETURN(' ' || P_INVOICE_NUM_LOW || ' - '
233 || P_INVOICE_NUM_HIGH);
234 end;
235
236 function tr_inv_amountformula(TR_LN_EXTD_AMOUNT in number, TR_TX_EXTD_AMOUNT in number, TR_FR_EXTD_AMOUNT in number) return number is
237 begin
238
239 /*SRW.REFERENCE(TR_LN_EXTD_AMOUNT);*/null;
240
241 /*SRW.REFERENCE(TR_TX_EXTD_AMOUNT);*/null;
242
243 /*SRW.REFERENCE(TR_FR_EXTD_AMOUNT);*/null;
244
245 RETURN( NVL(TR_LN_EXTD_AMOUNT, 0) + NVL(TR_TX_EXTD_AMOUNT,0) +
246 NVL(TR_FR_EXTD_AMOUNT,0));
247 end;
248
249 function ln_additional_infoformula(LN_ORDER_NUMBER in varchar2, LN_ORDER_DATE in date, LN_ORDER_REVISION in number, LN_SALES_CHANNEL in varchar2,
250 LN_DURATION in number, LN_ACCOUNTING_RULE in varchar2, LN_RULE_START_DATE in date) return varchar2 is
251 begin
252
253 DECLARE
254 l_additional_info VARCHAR2(100);
255 BEGIN
256 /*SRW.REFERENCE(LN_ORDER_NUMBER);*/null;
257
258 /*SRW.REFERENCE(LN_ORDER_DATE);*/null;
259
260 /*SRW.REFERENCE(LN_ORDER_REVISION);*/null;
261
262 /*SRW.REFERENCE(LN_SALES_CHANNEL);*/null;
263
264 /*SRW.REFERENCE(LN_DURATION);*/null;
265
266 /*SRW.REFERENCE(LN_ACCOUNTING_RULE);*/null;
267
268 /*SRW.REFERENCE(LN_RULE_START_DATE);*/null;
269
270
271 l_additional_info := LN_ORDER_NUMBER ||
272 to_char(LN_ORDER_DATE, 'DD-MON-YYYY') ||
273 to_char(LN_ORDER_REVISION) ||
274 LN_SALES_CHANNEL ||
275 to_char(LN_DURATION) ||
276 LN_ACCOUNTING_RULE ||
277 to_char(LN_RULE_START_DATE,
278 'DD-MON-YYYY');
279 RETURN(l_additional_info);
280 END;
281 RETURN NULL; end;
282
283 function trx_transaction_flexformula(customer_trx_id in number) return varchar2 is
284 begin
285
286 /*srw.reference(customer_trx_id);*/null;
287
288
289 declare
290 context varchar2(100);
291 concatenated_segments varchar2(1000);
292
293 begin
294 arp_descr_flex.get_concatenated_segments('RA_INTERFACE_HEADER',
295 'RA_CUSTOMER_TRX',
296 to_number(customer_trx_id),
297 0,
298 concatenated_segments,
299 context);
300
301 return(concatenated_segments);
302 end;
303 RETURN NULL; end;
304
305 function line_transaction_flexformula(tf_customer_trx_line_id in number) return varchar2 is
306 begin
307
308 /*srw.reference(tf_customer_trx_line_id);*/null;
309
310
311 declare
312 context varchar2(100);
313 concatenated_segments varchar2(1000);
314
315 begin
316 arp_descr_flex.get_concatenated_segments('RA_INTERFACE_LINES',
317 'RA_CUSTOMER_TRX_LINES',
318 0,
319 to_number(tf_customer_trx_line_id),
320 concatenated_segments,
321 context);
322
323 return(concatenated_segments);
324 end;
325 RETURN NULL; end;
326
327 FUNCTION COMP_TX_CUST_TRX_ID (P_CUST_TRX_ID number) RETURN boolean IS
328 BEGIN
329 IF RP_TX_CUST_TRX_ID = P_CUST_TRX_ID
330 THEN RETURN (FALSE);
331 ELSE RP_TX_CUST_TRX_ID := P_CUST_TRX_ID;
332 RETURN (TRUE);
333 END IF;
334 RETURN(TRUE);
335 END;
336
337 function cf_acc_messageformula(acc_gl_date in date) return number is
338 l_msg VARCHAR2(2000);
339 begin
340 IF acc_gl_date IS NOT NULL THEN
341 FND_MESSAGE.SET_NAME('AR','AR_REPORT_ACC_NOT_GEN');
342 l_msg := FND_MESSAGE.get;
343 CP_ACC_MESSAGE := l_msg;
344 ELSE
345 CP_ACC_MESSAGE := NULL;
346 END IF;
347 return 0;
348 end;
349
350 --Functions to refer Oracle report placeholders--
351
352 Function RP_COMPANY_NAME_p return varchar2 is
353 Begin
354 return RP_COMPANY_NAME;
355 END;
356 Function RP_REPORT_NAME_p return varchar2 is
357 Begin
358 return RP_REPORT_NAME;
359 END;
360 Function RP_DATA_FOUND_p return varchar2 is
361 Begin
362 return RP_DATA_FOUND;
363 END;
364 Function RP_LINES_p return number is
365 Begin
366 return RP_LINES;
367 END;
368 Function RP_FR_LINES_p return number is
369 Begin
370 return RP_FR_LINES;
371 END;
372 Function RP_TX_LINES_p return number is
373 Begin
374 return RP_TX_LINES;
375 END;
376 Function RP_SALESREPS_p return number is
377 Begin
378 return RP_SALESREPS;
379 END;
380 Function RP_REV_ACCTS_p return number is
381 Begin
382 return RP_REV_ACCTS;
383 END;
384 Function RP_TX_CUST_TRX_ID_p return number is
385 Begin
386 return RP_TX_CUST_TRX_ID;
387 END;
388 Function CP_ACC_MESSAGE_p return varchar2 is
389 Begin
390 return CP_ACC_MESSAGE;
391 END;
392 END AR_ARXTDR_XMLP_PKG ;
393