[Home] [Help]
PACKAGE BODY: APPS.AR_ARBRRMBM_XMLP_PKG
Source
1 PACKAGE BODY AR_ARBRRMBM_XMLP_PKG AS
2 /* $Header: ARBRRMBMB.pls 120.1 2008/01/07 14:49:32 npannamp noship $ */
3 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
4 BEGIN
5 DECLARE
6 L_REPORT_NAME VARCHAR2(240);
7 BEGIN
8 RP_COMPANY_NAME := COMPANY_NAME;
9 SELECT
10 CP.USER_CONCURRENT_PROGRAM_NAME
11 INTO L_REPORT_NAME
12 FROM
13 FND_CONCURRENT_PROGRAMS_VL CP,
14 FND_APPLICATION_VL AP
15 WHERE AP.APPLICATION_ID = CP.APPLICATION_ID
16 AND CP.CONCURRENT_PROGRAM_NAME = 'ARBRRMBM'
17 AND AP.APPLICATION_SHORT_NAME = 'AR';
18 RP_REPORT_NAME := L_REPORT_NAME;
19 RETURN (L_REPORT_NAME);
20 EXCEPTION
21 WHEN NO_DATA_FOUND THEN
22 RP_REPORT_NAME := 'Bills Receivable Remittance Batch Management Report';
23 RETURN ('Bills Receivable Remittance Batch Management Report');
24 END;
25 RETURN NULL;
26 END REPORT_NAMEFORMULA;
27
28 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
29 BEGIN
30 BEGIN
31 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
32 CP_SORT_BY := NVL(P_SORT_BY,'REMITTANCE ACCOUNT');
33 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
34 EXCEPTION
35 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
36 /*SRW.MESSAGE(100
37 ,'Foundation is not initialised')*/NULL;
38 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
39 END;
40 RETURN (TRUE);
41 END BEFOREREPORT;
42
43 FUNCTION SUB_TITLEFORMULA RETURN VARCHAR2 IS
44 BEGIN
45 BEGIN
46 RP_SUB_TITLE := ' ';
47 RETURN (' ');
48 END;
49 RETURN NULL;
50 END SUB_TITLEFORMULA;
51
52 FUNCTION AFTERREPORT RETURN BOOLEAN IS
53 BEGIN
54 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
55 RETURN (TRUE);
56 END AFTERREPORT;
57
58 FUNCTION DUMMY_CURRENCYFORMULA(B_CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
59 BEGIN
60 RETURN (B_CURRENCY_CODE);
61 END DUMMY_CURRENCYFORMULA;
62
63 FUNCTION AFTERPFORM RETURN BOOLEAN IS
64 BEGIN
65 DECLARE
66 L_DEBUG VARCHAR2(3) := 'NO';
67 BEGIN
68 IF P_STATUS IS NOT NULL THEN
69 LP_STATUS := ' and bat.batch_applied_status = ''' || P_STATUS || '''';
70 ELSE
71 LP_STATUS :=' ';
72 END IF;
73 IF P_REMITTANCE_METHOD IS NOT NULL THEN
74 LP_REMIT_METHOD := ' and bat.remit_method_code = ''' || P_REMITTANCE_METHOD || '''';
75 ELSE
76 LP_REMIT_METHOD := ' ';
77 END IF;
78 IF P_REMIT_BANK_ACCOUNT IS NOT NULL THEN
79 LP_BANK_ACCOUNT := ' and bat.remit_bank_acct_use_id = ''' || P_REMIT_BANK_ACCOUNT || '''';
80 ELSE
81 LP_BANK_ACCOUNT := ' ';
82 END IF;
83 IF P_REMIT_BANK_BRANCH IS NOT NULL THEN
84 LP_BANK_BRANCH := ' and abb.bank_branch_name = ''' || P_REMIT_BANK_BRANCH || '''';
85 ELSE
86 LP_BANK_BRANCH := ' ';
87 END IF;
88 IF P_REMIT_BANK IS NOT NULL THEN
89 LP_BANK := ' and abb.bank_name = ''' || P_REMIT_BANK || '''';
90 ELSE
91 LP_BANK := ' ';
92 END IF;
93 IF P_BATCH_NAME_LOW IS NOT NULL THEN
94 IF P_BATCH_NAME_HIGH IS NOT NULL THEN
95 LP_BATCH_NAME_RANGE := ' and bat.name between ''' || P_BATCH_NAME_LOW || ''' and ''' || P_BATCH_NAME_HIGH || '''';
96 ELSE
97 LP_BATCH_NAME_RANGE := ' and bat.name >= ''' || P_BATCH_NAME_LOW || '''';
98 END IF;
99 ELSIF P_BATCH_NAME_HIGH IS NOT NULL THEN
100 LP_BATCH_NAME_RANGE := ' and bat.name <= ''' || P_BATCH_NAME_HIGH || '''';
101 ELSE
102 LP_BATCH_NAME_RANGE := ' ';
103 END IF;
104 IF P_DEPNO_LOW IS NOT NULL THEN
105 IF P_DEPNO_HIGH IS NOT NULL THEN
106 LP_DEPOSIT_RANGE := 'and bat.bank_deposit_number between ''' || P_DEPNO_LOW || ''' and ''' || P_DEPNO_HIGH || '''';
107 ELSE
108 LP_DEPOSIT_RANGE := ' and bat.bank_deposit_number >= ''' || P_DEPNO_LOW || '''';
109 END IF;
110 ELSIF P_DEPNO_HIGH IS NOT NULL THEN
111 LP_DEPOSIT_RANGE := ' and bat.bank_deposit_number <= ''' || P_DEPNO_HIGH || '''';
112 ELSE
113 LP_DEPOSIT_RANGE := ' ';
114 END IF;
115 IF P_REM_DATE_FROM IS NOT NULL THEN
116 IF P_REM_DATE_TO IS NOT NULL THEN
117 LP_DATE_RANGE := 'and bat.batch_date between''' || TRUNC(P_REM_DATE_FROM) || ''' and ''' || TRUNC(P_REM_DATE_TO + 1) || '''';
118 ELSE
119 LP_DATE_RANGE := ' and bat.batch_date >= ''' || TRUNC(P_REM_DATE_FROM) || '''';
120 END IF;
121 ELSIF P_REM_DATE_TO IS NOT NULL THEN
122 LP_DATE_RANGE := ' and bat.batch_date <= ''' || TRUNC(P_REM_DATE_TO + 1) || '''';
123 ELSE
124 LP_DATE_RANGE := ' ';
125 END IF;
126 IF P_INCLUDE_FORMATTED = 'N' THEN
127 LP_INC_FORMATTED := ' and bat.batch_applied_status <> ''COMPLETED_FORMAT''';
128 ELSE
129 LP_INC_FORMATTED := ' ';
130 END IF;
131 IF L_DEBUG = 'YES' THEN
132 /*SRW.MESSAGE(007
133 ,':LP_REMIT_METHOD ' || LP_REMIT_METHOD)*/NULL;
134 /*SRW.MESSAGE(007
135 ,':LP_BANK_ACCOUNT ' || LP_BANK_ACCOUNT)*/NULL;
136 /*SRW.MESSAGE(007
137 ,':LP_BANK_BRANCH ' || LP_BANK_BRANCH)*/NULL;
138 /*SRW.MESSAGE(007
139 ,':LP_BANK ' || LP_BANK)*/NULL;
140 /*SRW.MESSAGE(007
141 ,':LP_BATCH_NAME_RANGE ' || LP_BATCH_NAME_RANGE)*/NULL;
142 /*SRW.MESSAGE(007
143 ,':LP_DEPOSIT_RANGE ' || LP_DEPOSIT_RANGE)*/NULL;
144 /*SRW.MESSAGE(007
145 ,':LP_DATE_RANGE ' || LP_DATE_RANGE)*/NULL;
146 /*SRW.MESSAGE(007
147 ,':LP_INC_FORMATTED ' || LP_INC_FORMATTED)*/NULL;
148 /*SRW.MESSAGE(007
149 ,':LP_STATUS ' || LP_STATUS)*/NULL;
150 END IF;
151 RETURN (TRUE);
152 END;
153 RETURN (TRUE);
154 END AFTERPFORM;
155
156 FUNCTION RP_DSP_SORT_BYFORMULA RETURN VARCHAR2 IS
157 BEGIN
158 DECLARE
159 L_SORT_BY VARCHAR(40);
160 BEGIN
161 SELECT
162 MEANING
163 INTO L_SORT_BY
164 FROM
165 AR_LOOKUPS
166 WHERE LOOKUP_TYPE = 'SORT_BY_ARXAPRMB'
167 AND LOOKUP_CODE = CP_SORT_BY;
168 RETURN (L_SORT_BY);
169 EXCEPTION
170 WHEN OTHERS THEN
171 RETURN NULL;
172 END;
173 RETURN NULL;
174 END RP_DSP_SORT_BYFORMULA;
175
176 FUNCTION RP_DSP_STATUSFORMULA RETURN VARCHAR2 IS
177 BEGIN
178 DECLARE
179 L_STATUS VARCHAR(50);
180 BEGIN
181 SELECT
182 MEANING
183 INTO L_STATUS
184 FROM
185 AR_LOOKUPS
186 WHERE LOOKUP_TYPE = 'BATCH_APPLIED_STATUS'
187 AND LOOKUP_CODE = P_STATUS;
188 RETURN (L_STATUS);
189 EXCEPTION
190 WHEN OTHERS THEN
191 RETURN NULL;
192 END;
193 RETURN NULL;
194 END RP_DSP_STATUSFORMULA;
195
196 FUNCTION DISP_REMIT_METHODFORMULA RETURN VARCHAR2 IS
197 BEGIN
198 DECLARE
199 L_REM_MET VARCHAR(40);
200 BEGIN
201 SELECT
202 MEANING
203 INTO L_REM_MET
204 FROM
205 AR_LOOKUPS
206 WHERE LOOKUP_TYPE = 'REMITTANCE_METHOD'
207 AND ENABLED_FLAG = 'Y'
208 AND LOOKUP_CODE = P_REMITTANCE_METHOD;
209 RETURN (L_REM_MET);
210 EXCEPTION
211 WHEN OTHERS THEN
212 RETURN NULL;
213 END;
214 RETURN NULL;
215 END DISP_REMIT_METHODFORMULA;
216
217 FUNCTION DISP_REMIT_ACCOUNTFORMULA RETURN VARCHAR2 IS
218 BEGIN
219 DECLARE
220 L_REM_ACC VARCHAR(40);
221 BEGIN
222 SELECT
223 BANK_ACCOUNT_NAME
224 INTO L_REM_ACC
225 FROM
226 CE_BANK_ACCOUNTS
227 WHERE BANK_ACCOUNT_ID = P_REMIT_BANK_ACCOUNT;
228 RETURN (L_REM_ACC);
229 EXCEPTION
230 WHEN OTHERS THEN
231 RETURN NULL;
232 END;
233 RETURN NULL;
234 END DISP_REMIT_ACCOUNTFORMULA;
235
236 FUNCTION DISP_INC_FORMATTEDFORMULA RETURN VARCHAR2 IS
237 BEGIN
238 DECLARE
239 L_INC_FORM VARCHAR(40);
240 BEGIN
241 SELECT
242 MEANING
243 INTO L_INC_FORM
244 FROM
245 FND_LOOKUPS
246 WHERE LOOKUP_TYPE = 'YES_NO'
247 AND ENABLED_FLAG = 'Y'
248 AND LOOKUP_CODE = P_INCLUDE_FORMATTED;
249 RETURN (L_INC_FORM);
250 EXCEPTION
251 WHEN OTHERS THEN
252 RETURN NULL;
253 END;
254 RETURN NULL;
255 END DISP_INC_FORMATTEDFORMULA;
256
257 FUNCTION DISP_SUM_OR_DETFORMULA RETURN VARCHAR2 IS
258 BEGIN
259 DECLARE
260 L_SUM_OR_DET VARCHAR(80);
261 BEGIN
262 SELECT
263 MEANING
264 INTO L_SUM_OR_DET
265 FROM
266 AR_LOOKUPS
267 WHERE LOOKUP_TYPE = 'ARXAPRMB_SD'
268 AND ENABLED_FLAG = 'Y'
269 AND LOOKUP_CODE = P_SUMMARY_OR_DETAILED;
270 RETURN (L_SUM_OR_DET);
271 EXCEPTION
272 WHEN OTHERS THEN
273 RETURN NULL;
274 END;
275 RETURN NULL;
276 END DISP_SUM_OR_DETFORMULA;
277
278 FUNCTION DET_BATCH_STATUSFORMULA(B_BATCH_STATUS IN VARCHAR2) RETURN VARCHAR2 IS
279 BEGIN
280 IF P_SUMMARY_OR_DETAILED = 'DETAILED' THEN
281 RETURN (B_BATCH_STATUS);
282 END IF;
283 RETURN NULL;
284 END DET_BATCH_STATUSFORMULA;
285
286 FUNCTION CF_SYSDATEFORMULA RETURN CHAR IS
287 BEGIN
288 RETURN (FND_DATE.DATE_TO_CHARDT(SYSDATE));
289 END CF_SYSDATEFORMULA;
290
291 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
292 BEGIN
293 RETURN RP_COMPANY_NAME;
294 END RP_COMPANY_NAME_P;
295
296 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
297 BEGIN
298 RETURN RP_REPORT_NAME;
299 END RP_REPORT_NAME_P;
300
301 FUNCTION RP_SUB_TITLE_P RETURN VARCHAR2 IS
302 BEGIN
303 RETURN RP_SUB_TITLE;
304 END RP_SUB_TITLE_P;
305
306 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
307 BEGIN
308 RETURN RP_DATA_FOUND;
309 END RP_DATA_FOUND_P;
310
311 END AR_ARBRRMBM_XMLP_PKG;
312