[Home] [Help]
PACKAGE BODY: APPS.AR_RAXNCAR_XMLP_PKG
Source
1 PACKAGE BODY AR_RAXNCAR_XMLP_PKG AS
2 /* $Header: RAXNCARB.pls 120.0 2007/12/27 14:31:08 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
12 SELECT cp.user_concurrent_program_name
13 INTO l_report_name
14 FROM FND_CONCURRENT_PROGRAMS_VL cp,
15 FND_CONCURRENT_REQUESTS cr
16 WHERE cr.request_id = P_CONC_REQUEST_ID
17 AND cp.application_id = cr.program_application_id
18 AND cp.concurrent_program_id = cr.concurrent_program_id;
19
20 RP_Report_Name := l_report_name;
21 RETURN(l_report_name);
22 EXCEPTION
23 WHEN NO_DATA_FOUND
24 THEN RP_REPORT_NAME := NULL;
25 RETURN(NULL);
26 END;
27 RETURN NULL; end;
28
29 function BeforeReport return boolean is
30 begin
31 P_CONC_REQUEST_ID:=FND_GLOBAL.conc_request_id;
32 /*SRW.USER_EXIT('FND SRWINIT');*/null;
33
34
35 declare
36
37 yes VARCHAR2(80);
38 no VARCHAR2(80);
39 cm_foot VARCHAR2(80);
40 dep_foot VARCHAR2(80);
41 inv_foot VARCHAR2(80);
42 guar_foot VARCHAR2(80);
43 arra_min VARCHAR2(11);
44 arra_max VARCHAR2(11);
45 adjs_min VARCHAR2(11);
46 adjs_max VARCHAR2(11);
47 min_date VARCHAR2(11);
48 max_date VARCHAR2(11);
49 sql_start_date VARCHAR2(11);
50 sql_end_date VARCHAR2(11);
51 begin
52
53 SELECT
54 INITCAP(YES.MEANING) yes,
55 INITCAP(NO.MEANING) no,
56 CM.MEANING cm_foot,
57 DEP.MEANING dep_foot,
58 GUAR.MEANING guar_foot,
59 INV.MEANING inv_foot
60 INTO
61 yes,
62 no,
63 cm_foot,
64 dep_foot,
65 guar_foot,
66 inv_foot
67 FROM
68 AR_LOOKUPS YES,
69 AR_LOOKUPS NO,
70 AR_LOOKUPS CM,
71 AR_LOOKUPS DEP,
72 AR_LOOKUPS GUAR,
73 AR_LOOKUPS INV
74 WHERE
75 YES.LOOKUP_TYPE = 'YES/NO' AND
76 YES.LOOKUP_CODE = 'Y'
77 AND
78 NO.LOOKUP_TYPE = 'YES/NO' AND
79 NO.LOOKUP_CODE = 'N'
80 AND
81 CM.LOOKUP_TYPE = 'INV/CM' AND
82 CM.LOOKUP_CODE = 'CM'
83 AND
84 DEP.LOOKUP_TYPE = 'INV/CM' AND
85 DEP.LOOKUP_CODE = 'DEP'
86 AND
87 GUAR.LOOKUP_TYPE = 'INV/CM' AND
88 GUAR.LOOKUP_CODE = 'GUAR'
89 AND
90 INV.LOOKUP_TYPE = 'INV/CM' AND
91 INV.LOOKUP_CODE = 'INV';
92
93 AR_RAXNCAR_XMLP_PKG.yes := yes;
94 AR_RAXNCAR_XMLP_PKG.no := no;
95 AR_RAXNCAR_XMLP_PKG.cm_foot := cm_foot;
96 AR_RAXNCAR_XMLP_PKG.dep_foot := dep_foot;
97 AR_RAXNCAR_XMLP_PKG.guar_foot := guar_foot;
98 AR_RAXNCAR_XMLP_PKG.inv_foot := inv_foot;
99
100
101
102 SELECT TO_CHAR(MIN(GL_DATE), 'DD-MON-YYYY') arra_min,
103 TO_CHAR(MAX(GL_DATE), 'DD-MON-YYYY') arra_max
104 INTO arra_min,
105 arra_max
106 FROM AR_RECEIVABLE_APPLICATIONS;
107
108 AR_RAXNCAR_XMLP_PKG.arra_min := arra_min;
109 AR_RAXNCAR_XMLP_PKG.arra_max := arra_max;
110
111 SELECT TO_CHAR(MIN(GL_DATE), 'DD-MON-YYYY') adjs_min,
112 TO_CHAR(MAX(GL_DATE), 'DD-MON-YYYY') adjs_max
113 INTO adjs_min,
114 adjs_max
115 FROM AR_ADJUSTMENTS;
116
117 AR_RAXNCAR_XMLP_PKG.adjs_min := adjs_min;
118 AR_RAXNCAR_XMLP_PKG.adjs_max := adjs_max;
119
120 SELECT TO_CHAR(LEAST(TO_DATE(arra_min, 'DD-MM-YYYY'), TO_DATE(adjs_min, 'DD-MM-YYYY')),'DD-MM-YYYY') min_date,
121 TO_CHAR(GREATEST(TO_DATE(arra_max, 'DD-MM-YYYY'),TO_DATE(adjs_max, 'DD-MM-YYYY')),'DD-MM-YYYY') max_date
122 INTO
123 min_date,
124 max_date
125 FROM DUAL;
126
127 AR_RAXNCAR_XMLP_PKG.min_date := min_date;
128 AR_RAXNCAR_XMLP_PKG.max_date := max_date;
129
130 SELECT DECODE(TO_CHAR(p_start_gl_date, 'DD-MON-YYYY'),
131 NULL, min_date,
132 TO_CHAR(p_start_gl_date, 'DD-MON-YYYY')) sql_start_date,
133 DECODE(TO_CHAR(p_end_gl_date, 'DD-MON-YYYY'),
134 NULL, max_date,
135 TO_CHAR(p_end_gl_date, 'DD-MON-YYYY')) sql_end_date
136 INTO
137 sql_start_date,
138 sql_end_date
139 FROM DUAL;
140
141 AR_RAXNCAR_XMLP_PKG.sql_start_date := sql_start_date;
142 AR_RAXNCAR_XMLP_PKG.sql_end_date := sql_end_date;
143
144 end;
145
146
147 return (TRUE);
148 end;
149
150 function Sub_TitleFormula return VARCHAR2 is
151 begin
152
153 begin
154 rp_sub_title := ARP_STANDARD.FND_MESSAGE
155 ('AR_REPORTS_GL_DATE_FROM_TO',
156 'FROM_DATE',nvl(TO_CHAR(p_start_gl_date, 'DD-MON-YYYY'),' '),
157 'TO_DATE',nvl(TO_CHAR(p_end_gl_date, 'DD-MON-YYYY'),' '));
158 return(RP_SUB_TITLE);
159 end;
160
161 RETURN NULL; end;
162
163 function AfterReport return boolean is
164 begin
165
166 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
167 return (TRUE);
168 end;
169
170 --Functions to refer Oracle report placeholders--
171
172 Function RP_COMPANY_NAME_p return varchar2 is
173 Begin
174 return RP_COMPANY_NAME;
175 END;
176 Function RP_REPORT_NAME_p return varchar2 is
177 Begin
178 return substr(RP_REPORT_NAME,1,instr(RP_REPORT_NAME,' (XML)'));
179 END;
180 Function RP_DATA_FOUND_p return varchar2 is
181 Begin
182 return RP_DATA_FOUND;
183 END;
184 Function RP_SUB_TITLE_p return varchar2 is
185 Begin
186 return RP_SUB_TITLE;
187 END;
188 Function Cm_foot_p return varchar2 is
189 Begin
190 return Cm_foot;
191 END;
192 Function Dep_Foot_p return varchar2 is
193 Begin
194 return Dep_Foot;
195 END;
196 Function Guar_foot_p return varchar2 is
197 Begin
198 return Guar_foot;
199 END;
200 Function Inv_foot_p return varchar2 is
201 Begin
202 return Inv_foot;
203 END;
204 Function Yes_p return varchar2 is
205 Begin
206 return Yes;
207 END;
208 Function No_p return varchar2 is
209 Begin
210 return No;
211 END;
212 Function Arra_Min_p return varchar2 is
213 Begin
214 return Arra_Min;
215 END;
216 Function Arra_Max_p return varchar2 is
217 Begin
218 return Arra_Max;
219 END;
220 Function Adjs_Min_p return varchar2 is
221 Begin
222 return Adjs_Min;
223 END;
224 Function Adjs_Max_p return varchar2 is
225 Begin
226 return Adjs_Max;
227 END;
228 Function Min_Date_p return varchar2 is
229 Begin
230 return Min_Date;
231 END;
232 Function Max_Date_p return varchar2 is
233 Begin
234 return Max_Date;
235 END;
236 Function Sql_Start_Date_p return varchar2 is
237 Begin
238 return Sql_Start_Date;
239 END;
240 Function Sql_End_Date_p return varchar2 is
241 Begin
242 return Sql_End_Date;
243 END;
244 Function GSum_Tran_Foreign_Dsp_p return varchar2 is
245 Begin
246 return GSum_Tran_Foreign_Dsp;
247 END;
248 Function GSum_Tran_Funct_Dsp_p return varchar2 is
249 Begin
250 return GSum_Tran_Funct_Dsp;
251 END;
252 function D_Tran_ForeignFormula return VARCHAR2 is
253 begin
254 RP_DATA_FOUND:='X';
255 return null;
256 end;
257 END AR_RAXNCAR_XMLP_PKG ;
258
259