[Home] [Help]
PACKAGE BODY: APPS.AR_ARXPIREP_XMLP_PKG
Source
1 PACKAGE BODY AR_ARXPIREP_XMLP_PKG AS
2 /* $Header: ARXPIREPB.pls 120.0 2007/12/27 14:00:05 abraghun noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 L_LD_SP VARCHAR2(1);
5 BEGIN
6 LP_BAL_LOW:=' ';
7 LP_BAL_HIGH:=' ';
8 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
9 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
10 IF UPPER(P_MRCSOBTYPE) = 'R' THEN
11 FND_CLIENT_INFO.SET_CURRENCY_CONTEXT(P_CA_SET_OF_BOOKS_ID);
12 END IF;
13 BEGIN
14 P_POSTED_FLAG := RTRIM(P_POSTED_FLAG
15 ,' ');
16 IF (P_CURRENCY_CODE IS NOT NULL) AND (UPPER(P_CURRENCY_CODE) <> 'ALL') THEN
17 LP_CURRENCY_CODE := ' AND rep.currency_code = ''' || P_CURRENCY_CODE || ''' ';
18 END IF;
19 IF P_BAL_LOW IS NOT NULL THEN
20 LP_BAL_LOW := ' and ' || LP_BAL_LOW1;
21 END IF;
22 IF P_BAL_HIGH IS NOT NULL THEN
23 LP_BAL_HIGH := ' and ' || LP_BAL_HIGH1;
24 END IF;
25 /*SRW.MESSAGE('100'
26 ,'bal_low: ' || LP_BAL_LOW || ' -- bal_high: ' || LP_BAL_HIGH)*/NULL;
27 END;
28 RP_MESSAGE := NULL;
29 IF TO_NUMBER(P_REPORTING_LEVEL) = 1000 THEN
30 L_LD_SP := MO_UTILS.CHECK_LEDGER_IN_SP(TO_NUMBER(P_REPORTING_ENTITY_ID));
31 IF L_LD_SP = 'N' THEN
32 FND_MESSAGE.SET_NAME('FND'
33 ,'FND_MO_RPT_PARTIAL_LEDGER');
34 RP_MESSAGE := FND_MESSAGE.GET;
35 END IF;
36 END IF;
40 RETURN (TRUE);
37 FND_MESSAGE.SET_NAME('AR'
38 ,'AR_REPORT_ACC_NOT_GEN');
39 CP_ACC_MESSAGE := FND_MESSAGE.GET;
41 END BEFOREREPORT;
42 FUNCTION AFTERREPORT RETURN BOOLEAN IS
43 BEGIN
44 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
45 RETURN (TRUE);
46 END AFTERREPORT;
47 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
48 BEGIN
49 BEGIN
50 RP_COMPANY_NAME := COMPANY_NAME;
51 END;
52 RETURN NULL;
53 END REPORT_NAMEFORMULA;
54 FUNCTION C_POSTED_DESCRIPTIONFORMULA RETURN VARCHAR2 IS
55 BEGIN
56 DECLARE
57 POSTED_DESCRIPTION VARCHAR2(100);
58 BEGIN
59 SELECT
60 MEANING
61 INTO POSTED_DESCRIPTION
62 FROM
63 AR_LOOKUPS
64 WHERE LOOKUP_TYPE = 'POSTED_STATUS'
65 AND LOOKUP_CODE = 'BOTH';
66 C_POSTED_DESC := POSTED_DESCRIPTION;
67 RETURN (POSTED_DESCRIPTION);
68 END;
69 RETURN NULL;
70 END C_POSTED_DESCRIPTIONFORMULA;
71 FUNCTION C_DELIMFORMULA(COA_ID IN NUMBER) RETURN VARCHAR2 IS
72 BEGIN
73 DECLARE
74 DELIM VARCHAR2(1);
75 BEGIN
76 SELECT
77 CONCATENATED_SEGMENT_DELIMITER
78 INTO DELIM
79 FROM
80 FND_ID_FLEX_STRUCTURES
81 WHERE ID_FLEX_CODE = 'GL#'
82 AND ID_FLEX_NUM = COA_ID;
83 RETURN (DELIM);
84 END;
85 RETURN NULL;
86 END C_DELIMFORMULA;
87 FUNCTION C_BAL_VS_IDFORMULA(COA_ID IN NUMBER
88 ,ACCT_FLEX_BAL_SEG IN VARCHAR2) RETURN NUMBER IS
89 BEGIN
90 DECLARE
91 BAL_VS_ID NUMBER(15);
92 BEGIN
93 /*SRW.REFERENCE(COA_ID)*/NULL;
94 SELECT
95 FLEX_VALUE_SET_ID
96 INTO BAL_VS_ID
97 FROM
98 FND_ID_FLEX_SEGMENTS
99 WHERE ID_FLEX_CODE = 'GL#'
100 AND ID_FLEX_NUM = COA_ID
101 AND ENABLED_FLAG = 'Y'
102 AND APPLICATION_COLUMN_NAME = SUBSTR(ACCT_FLEX_BAL_SEG
103 ,INSTR(ACCT_FLEX_BAL_SEG
104 ,'.') + 1);
105 RETURN (BAL_VS_ID);
106 END;
107 RETURN NULL;
108 END C_BAL_VS_IDFORMULA;
109 FUNCTION GL_HDRFORMULA RETURN VARCHAR2 IS
110 BEGIN
111 DECLARE
112 L_GL_HDR VARCHAR2(500);
113 L_DATE_LOW VARCHAR2(50);
114 L_DATE_HIGH VARCHAR2(50);
115 BEGIN
116 IF P_LOW_DATE IS NULL THEN
117 L_DATE_LOW := ' ';
118 ELSE
119 L_DATE_LOW := TO_CHAR(P_LOW_DATE
120 ,'DD-MON-YYYY');
121 END IF;
122 IF P_HIGH_DATE IS NULL THEN
123 L_DATE_HIGH := ' ';
124 ELSE
125 L_DATE_HIGH := TO_CHAR(P_HIGH_DATE
126 ,'DD-MON-YYYY');
127 END IF;
128 PL_GL_DATE_FROM_TO := ARP_STANDARD.FND_MESSAGE('AR_REPORTS_GL_DATE_FROM_TO'
129 ,'FROM_DATE'
130 ,L_DATE_LOW
131 ,'TO_DATE'
132 ,L_DATE_HIGH);
133 RP_GL_HDR := PL_GL_DATE_FROM_TO;
134 L_GL_HDR := PL_GL_DATE_FROM_TO;
135 RETURN (L_GL_HDR);
136 END;
137 RETURN NULL;
138 END GL_HDRFORMULA;
139 FUNCTION SET_SUM_SPFORMULA(ENTERED_DR_DBC IN NUMBER
140 ,ENTERED_CR_DBC IN NUMBER
141 ,ACCOUNTED_DR_DBC IN NUMBER
142 ,ACCOUNTED_CR_DBC IN NUMBER
143 ,CATEGORY_CODE_DBC IN VARCHAR2) RETURN NUMBER IS
144 BEGIN
145 /*SRW.REFERENCE(ENTERED_DR_DBC)*/NULL;
146 /*SRW.REFERENCE(ENTERED_CR_DBC)*/NULL;
147 /*SRW.REFERENCE(ACCOUNTED_DR_DBC)*/NULL;
148 /*SRW.REFERENCE(ACCOUNTED_CR_DBC)*/NULL;
149 /*SRW.REFERENCE(CATEGORY_CODE_DBC)*/NULL;
150 IF ((UPPER(CATEGORY_CODE_DBC) <> 'ADJ_REC') AND (UPPER(CATEGORY_CODE_DBC) <> 'DM_REC')
151 AND (UPPER(CATEGORY_CODE_DBC) <> 'CM_REC') AND (UPPER(CATEGORY_CODE_DBC) <> 'TRADE_REC')
152 AND (UPPER(CATEGORY_CODE_DBC) <> 'CCURR_REC') AND (UPPER(CATEGORY_CODE_DBC) <> 'CB_REC') AND (UPPER(CATEGORY_CODE_DBC) <> 'BR_REC')
153 AND (UPPER(CATEGORY_CODE_DBC) <> 'BR_REC_ASSIGNMENT') AND (UPPER(CATEGORY_CODE_DBC) <> 'BR_UNPAIDREC') AND (UPPER(CATEGORY_CODE_DBC) <> 'CMAPP_REC') AND (UPPER(CATEGORY_CODE_DBC) <> 'INV_REC')) THEN
154 SUM_SP_ENT_DR_DBC := NVL(SUM_SP_ENT_DR_DBC
155 ,0) + NVL(ENTERED_DR_DBC
156 ,0);
157 SUM_SP_ENT_CR_DBC := NVL(SUM_SP_ENT_CR_DBC
158 ,0) + NVL(ENTERED_CR_DBC
159 ,0);
160 SUM_SP_ACCT_DR_DBC := NVL(SUM_SP_ACCT_DR_DBC
161 ,0) + NVL(ACCOUNTED_DR_DBC
162 ,0);
163 SUM_SP_ACCT_CR_DBC := NVL(SUM_SP_ACCT_CR_DBC
164 ,0) + NVL(ACCOUNTED_CR_DBC
165 ,0);
166 RETURN (1);
167 END IF;
168 RETURN (1);
169 END SET_SUM_SPFORMULA;
170 FUNCTION AFTERPFORM RETURN BOOLEAN IS
171 BEGIN
172 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
173
174 select argument1,argument2,argument3,argument4,argument5,to_date(substr(argument6,1,10),'YYYY/MM/DD'),to_date(substr(argument7,1,10),'YYYY/MM/DD'),argument8,argument9,argument10,argument11
175 into P_BAL_HIGH,P_BAL_LOW,P_CA_SET_OF_BOOKS_ID,P_COAID,P_CURRENCY_CODE,P_HIGH_DATE,P_LOW_DATE,P_MIN_PRECISION,P_MRCSOBTYPE,P_REPORTING_ENTITY_ID,P_REPORTING_LEVEL
176 from fnd_concurrent_requests
177 where request_id = P_CONC_REQUEST_ID;
178
179 if P_CA_SET_OF_BOOKS_ID is null then
183 P_MRCSOBTYPE:='P';
180 P_CA_SET_OF_BOOKS_ID:=-1999;
181 end if;
182 if P_MRCSOBTYPE is null then
184 end if;
185
186 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
187 /*SRW.MESSAGE(100
188 ,'p_ca_set_of_books_id: ' || P_CA_SET_OF_BOOKS_ID)*/NULL;
189 IF P_CA_SET_OF_BOOKS_ID <> -1999 THEN
190 BEGIN
191 SELECT
192 MRC_SOB_TYPE_CODE
193 INTO P_MRCSOBTYPE
194 FROM
195 GL_SETS_OF_BOOKS
196 WHERE SET_OF_BOOKS_ID = P_CA_SET_OF_BOOKS_ID;
197 EXCEPTION
198 WHEN OTHERS THEN
199 P_MRCSOBTYPE := 'P';
200 END;
201 ELSE
202 P_MRCSOBTYPE := 'P';
203 END IF;
204 /*SRW.MESSAGE(101
205 ,'p_mrcsobtype = ' || P_MRCSOBTYPE)*/NULL;
206 IF (UPPER(P_MRCSOBTYPE) = 'R') THEN
207 /*SRW.MESSAGE(102
208 ,'SEtting currency context')*/NULL;
209 FND_CLIENT_INFO.SET_ORG_CONTEXT(P_CA_SET_OF_BOOKS_ID);
210 END IF;
211 IF UPPER(P_MRCSOBTYPE) = 'R' THEN
212 LP_AR_SYSTEM_PARAMETERS := 'AR_SYSTEM_PARAMETERS_MRC_V';
213 LP_AR_SYSTEM_PARAMETERS_ALL := 'AR_SYSTEM_PARAMS_ALL_MRC_V';
214 LP_AR_PAYMENT_SCHEDULES := 'AR_PAYMENT_SCHEDULES_MRC_V';
215 LP_AR_PAYMENT_SCHEDULES_ALL := 'AR_PAYMENT_SCHEDULES_ALL_MRC_V';
216 LP_AR_ADJUSTMENTS := 'AR_ADJUSTMENTS_MRC_V';
217 LP_AR_ADJUSTMENTS_ALL := 'AR_ADJUSTMENTS_ALL_MRC_V';
218 LP_AR_CASH_RECEIPT_HISTORY := 'AR_CASH_RECEIPT_HIST_MRC_V';
219 LP_AR_CASH_RECEIPT_HISTORY_ALL := 'AR_CASH_RECEIPT_HIST_ALL_MRC_V';
220 LP_AR_BATCHES := 'AR_BATCHES_MRC_V';
221 LP_AR_BATCHES_ALL := 'AR_BATCHES_ALL_MRC_V';
222 LP_AR_CASH_RECEIPTS := 'AR_CASH_RECEIPTS_MRC_V';
223 LP_AR_CASH_RECEIPTS_ALL := 'AR_CASH_RECEIPTS_ALL_MRC_V';
224 LP_AR_DISTRIBUTIONS := 'AR_DISTRIBUTIONS_MRC_V';
225 LP_AR_DISTRIBUTIONS_ALL := 'AR_DISTRIBUTIONS_ALL_MRC_V';
226 LP_RA_CUSTOMER_TRX := 'RA_CUSTOMER_TRX_MRC_V';
227 LP_RA_CUSTOMER_TRX_ALL := 'RA_CUSTOMER_TRX_ALL_MRC_V';
228 LP_RA_BATCHES := 'RA_BATCHES_MRC_V';
229 LP_RA_BATCHES_ALL := 'RA_BATCHES_ALL_MRC_V';
230 LP_RA_CUST_TRX_GL_DIST := 'RA_TRX_LINE_GL_DIST_ALL_MRC_V';
231 LP_RA_CUST_TRX_GL_DIST_ALL := 'RA_TRX_LINE_GL_DIST_MRC_V';
232 LP_AR_MISC_CASH_DISTS := 'AR_MISC_CASH_DISTS_MRC_V';
233 LP_AR_MISC_CASH_DISTS_ALL := 'AR_MISC_CASH_DISTS_ALL_MRC_V';
234 LP_AR_RATE_ADJUSTMENTS := 'AR_RATE_ADJUSTMENTS_MRC_V';
235 LP_AR_RATE_ADJUSTMENTS_ALL := 'AR_RATE_ADJUSTMENTS_ALL_MRC_V';
236 LP_AR_RECEIVABLE_APPS := 'AR_RECEIVABLE_APPS_MRC_V';
237 LP_AR_RECEIVABLE_APPS_ALL := 'AR_RECEIVABLE_APPS_ALL_MRC_V';
238 ELSE
239 LP_AR_SYSTEM_PARAMETERS := 'AR_SYSTEM_PARAMETERS';
240 LP_AR_SYSTEM_PARAMETERS_ALL := 'AR_SYSTEM_PARAMETERS_ALL';
241 LP_AR_PAYMENT_SCHEDULES := 'AR_PAYMENT_SCHEDULES';
242 LP_AR_PAYMENT_SCHEDULES_ALL := 'AR_PAYMENT_SCHEDULES_ALL';
243 LP_AR_ADJUSTMENTS := 'AR_ADJUSTMENTS';
244 LP_AR_ADJUSTMENTS_ALL := 'AR_ADJUSTMENTS_ALL';
245 LP_AR_CASH_RECEIPT_HISTORY := 'AR_CASH_RECEIPT_HISTORY';
246 LP_AR_CASH_RECEIPT_HISTORY_ALL := 'AR_CASH_RECEIPT_HISTORY_ALL';
247 LP_AR_BATCHES := 'AR_BATCHES';
248 LP_AR_BATCHES_ALL := 'AR_BATCHES_ALL';
249 LP_AR_CASH_RECEIPTS := 'AR_CASH_RECEIPTS';
250 LP_AR_CASH_RECEIPTS_ALL := 'AR_CASH_RECEIPTS_ALL';
251 LP_AR_DISTRIBUTIONS := 'AR_XLA_ARD_LINES_V';
252 LP_AR_DISTRIBUTIONS_ALL := 'AR_XLA_ARD_LINES_V';
253 LP_RA_CUSTOMER_TRX := 'RA_CUSTOMER_TRX';
254 LP_RA_CUSTOMER_TRX_ALL := 'RA_CUSTOMER_TRX_ALL';
255 LP_RA_BATCHES := 'RA_BATCHES';
256 LP_RA_BATCHES_ALL := 'RA_BATCHES_ALL';
257 LP_RA_CUST_TRX_GL_DIST := 'AR_XLA_CTLGD_LINES_V';
258 LP_RA_CUST_TRX_GL_DIST_ALL := 'AR_XLA_CTLGD_LINES_V';
259 LP_AR_MISC_CASH_DISTS := 'AR_MISC_CASH_DISTRIBUTIONS';
260 LP_AR_MISC_CASH_DISTS_ALL := 'AR_MISC_CASH_DISTRIBUTIONS_ALL';
261 LP_AR_RATE_ADJUSTMENTS := 'AR_RATE_ADJUSTMENTS';
262 LP_AR_RATE_ADJUSTMENTS_ALL := 'AR_RATE_ADJUSTMENTS_ALL';
263 LP_AR_RECEIVABLE_APPS := 'AR_RECEIVABLE_APPLICATIONS';
264 LP_AR_RECEIVABLE_APPS_ALL := 'AR_RECEIVABLE_APPLICATIONS_ALL';
265 END IF;
266 XLA_MO_REPORTING_API.INITIALIZE(P_REPORTING_LEVEL
267 ,P_REPORTING_ENTITY_ID
268 ,'AUTO');
269 /*SRW.MESSAGE(103
270 ,'p_reporting_level = ' || P_REPORTING_LEVEL || ' p_reporting_entity_id = ' || TO_CHAR(P_REPORTING_ENTITY_ID))*/NULL;
271 P_ORG_WHERE_GLDIST := XLA_MO_REPORTING_API.GET_PREDICATE('gldist'
272 ,NULL);
273 P_ORG_WHERE_CT := XLA_MO_REPORTING_API.GET_PREDICATE('ct'
274 ,NULL);
275 P_ORG_WHERE_CTT := XLA_MO_REPORTING_API.GET_PREDICATE('ctt'
276 ,NULL);
277 P_ORG_WHERE_ARD := XLA_MO_REPORTING_API.GET_PREDICATE('ard'
278 ,NULL);
279 P_ORG_WHERE_ACCT := XLA_MO_REPORTING_API.GET_PREDICATE('acct'
280 ,NULL);
281 P_ORG_WHERE_MCD := XLA_MO_REPORTING_API.GET_PREDICATE('mcd'
282 ,NULL);
283 P_ORG_WHERE_TH := XLA_MO_REPORTING_API.GET_PREDICATE('th'
284 ,NULL);
285 P_ORG_WHERE_ADJ := XLA_MO_REPORTING_API.GET_PREDICATE('adj'
286 ,NULL);
287 P_ORG_WHERE_RA := XLA_MO_REPORTING_API.GET_PREDICATE('ra'
288 ,NULL);
289 P_ORG_WHERE_CRH := XLA_MO_REPORTING_API.GET_PREDICATE('crh'
290 ,NULL);
291 P_ORG_WHERE_CR := XLA_MO_REPORTING_API.GET_PREDICATE('cr'
295 /*SRW.MESSAGE(105
292 ,NULL);
293 P_ORG_WHERE_CTINV := XLA_MO_REPORTING_API.GET_PREDICATE('ctinv'
294 ,NULL);
296 ,'Get_Predicate calls complete')*/NULL;
297 P_REPORTING_ENTITY_NAME := SUBSTRB(XLA_MO_REPORTING_API.GET_REPORTING_ENTITY_NAME
298 ,1
299 ,80);
300 P_REPORTING_LEVEL_NAME := SUBSTRB(XLA_MO_REPORTING_API.GET_REPORTING_LEVEL_NAME
301 ,1
302 ,30);
303 LP_ADJ_SELECT := 'Select ''ADJ_ADJ'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''Y'' LIABILITY_TYPE ,''Y'' EXPENSE_TYPE ,''Y'' REVENUE_TYPE from dual
304 union all
305 Select ''ADJ_ADJ_NON_REC_TAX'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''Y'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
306 union all
307 Select ''ADJ_FINCHRG'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''Y'' REVENUE_TYPE from dual
308 union all
309 Select ''ADJ_REC'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual ';
310 LP_CB_SELECT := 'Select ''CB_REC'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
311 union all
312 Select ''CB_REV'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''Y'' REVENUE_TYPE from dual
313 union all
314 Select ''CB_UNBILL'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
315 union all
316 Select ''CB_UNEARN'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''Y'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual ';
317 LP_CM_SELECT := 'Select ''CM_CHARGES'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''Y'' REVENUE_TYPE from dual
318 union all
319 Select ''CM_REC'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
320 union all
321 Select ''CM_REV'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''Y'' REVENUE_TYPE from dual
322 union all
323 Select ''CM_UNBILL'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
324 union all
325 Select ''CM_UNEARN'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''Y'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual ';
326 LP_DM_SELECT := 'Select ''DM_CHARGES'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''Y'' REVENUE_TYPE from dual
327 union all
328 Select ''DM_REC'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
329 union all
330 Select ''DM_REV'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''Y'' REVENUE_TYPE from dual
331 union all
332 Select ''DM_UNBILL'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
333 union all
334 Select ''DM_UNEARN'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''Y'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual ';
335 LP_INV_SELECT := 'Select ''INV_CHARGES'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''Y'' REVENUE_TYPE from dual
336 union all
337 Select ''INV_REC'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
338 union all
339 Select ''INV_REV'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''Y'' REVENUE_TYPE from dual
340 union all
341 Select ''INV_UNBILL'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
342 union all
343 Select ''INV_UNEARN'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''Y'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual ';
344 LP_MISC_SELECT := 'Select ''MISC_CASH'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
345 union all
346 Select ''MISC_CONFIRMATION'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
347 union all
348 Select ''MISC_REMITTANCE'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
349 union all
350 Select ''MISC_SHORT_TERM_DEBT'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''Y'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual ';
351 LP_TRADE_SELECT := 'Select ''TRADE_ACC'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
352 union all
353 Select ''TRADE_CASH'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
354 union all
355 Select ''TRADE_CONFIRMATION'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
356 union all
357 Select ''TRADE_EDISC_NON_REC_TAX'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''Y'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
358 union all
359 Select ''TRADE_REC'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
360 union all
364 union all
361 Select ''TRADE_REMITTANCE'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
362 union all
363 Select ''TRADE_SHORT_TERM_DEBIT'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''Y'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
365 Select ''TRADE_UNAPP'' JOURNAL_CATEGORY ,''Y'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''N'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual
366 union all
367 Select ''TRADE_UNEDISC_NON_REC_TAX'' JOURNAL_CATEGORY ,''N'' ASSET_TYPE ,''N'' LIABILITY_TYPE ,''Y'' EXPENSE_TYPE ,''N'' REVENUE_TYPE from dual';
368 RETURN (TRUE);
369 END AFTERPFORM;
370 FUNCTION C_CURRENCY_CODEFORMULA RETURN VARCHAR2 IS
371 BEGIN
372 /*SRW.REFERENCE(P_CURRENCY_CODE)*/NULL;
373 IF P_CURRENCY_CODE IS NULL THEN
374 RETURN ('All');
375 ELSE
376 RETURN (P_CURRENCY_CODE);
377 END IF;
378 RETURN NULL;
379 END C_CURRENCY_CODEFORMULA;
380 FUNCTION SET_FUNC_CURRFORMULA(C_FUNCTIONAL_CURRENCY IN VARCHAR2) RETURN VARCHAR2 IS
381 BEGIN
382 BEGIN
383 /*SRW.REFERENCE(C_FUNCTIONAL_CURRENCY)*/NULL;
384 FUNCTIONAL_CURRENCY := C_FUNCTIONAL_CURRENCY;
385 RETURN (C_FUNCTIONAL_CURRENCY);
386 END;
387 RETURN NULL;
388 END SET_FUNC_CURRFORMULA;
389 FUNCTION SET_CURR_CODE_DBCFORMULA(CURRENCY_CODE_DBC IN VARCHAR2) RETURN VARCHAR2 IS
390 BEGIN
391 BEGIN
392 /*SRW.REFERENCE(CURRENCY_CODE_DBC)*/NULL;
393 C_CURRENCY_CODE_DBC := CURRENCY_CODE_DBC;
394 RETURN (CURRENCY_CODE_DBC);
395 END;
396 RETURN NULL;
397 END SET_CURR_CODE_DBCFORMULA;
398 PROCEDURE GET_LOOKUP_MEANING(P_LOOKUP_TYPE IN VARCHAR2
399 ,P_LOOKUP_CODE IN VARCHAR2
400 ,P_LOOKUP_MEANING IN OUT NOCOPY VARCHAR2) IS
401 W_MEANING VARCHAR2(80);
402 BEGIN
403 SELECT
404 MEANING
405 INTO W_MEANING
406 FROM
407 FND_LOOKUPS
408 WHERE LOOKUP_TYPE = P_LOOKUP_TYPE
409 AND LOOKUP_CODE = P_LOOKUP_CODE;
410 P_LOOKUP_MEANING := W_MEANING;
411 EXCEPTION
412 WHEN NO_DATA_FOUND THEN
413 P_LOOKUP_MEANING := NULL;
414 END GET_LOOKUP_MEANING;
415 /* PROCEDURE GET_BOILER_PLATES IS
416 W_INDUSTRY_CODE VARCHAR2(20);
417 W_INDUSTRY_STAT VARCHAR2(20);
418 BEGIN
419 IF GET(0
420 ,0
421 ,W_INDUSTRY_STAT
422 ,W_INDUSTRY_CODE) THEN
423 IF W_INDUSTRY_CODE = 'C' THEN
424 C_SALES_TITLE := NULL;
425 ELSE
426 GET_LOOKUP_MEANING('IND_SALES'
427 ,W_INDUSTRY_CODE
428 ,C_SALES_TITLE);
429 END IF;
430 END IF;
431 C_INDUSTRY_CODE := W_INDUSTRY_CODE;
432 END GET_BOILER_PLATES;*/
433 FUNCTION SET_DISPLAY_FOR_CORE(P_FIELD_NAME IN VARCHAR2) RETURN BOOLEAN IS
434 BEGIN
435 IF C_INDUSTRY_CODE = 'C' THEN
436 RETURN (TRUE);
437 ELSIF P_FIELD_NAME = 'SALES' THEN
438 IF C_SALES_TITLE IS NOT NULL THEN
439 RETURN (FALSE);
440 ELSE
441 RETURN (TRUE);
442 END IF;
443 ELSIF P_FIELD_NAME = 'BALSEGMENT' THEN
444 RETURN (FALSE);
445 END IF;
446 RETURN NULL;
447 END SET_DISPLAY_FOR_CORE;
448 FUNCTION SET_DISPLAY_FOR_GOV(P_FIELD_NAME IN VARCHAR2) RETURN BOOLEAN IS
449 BEGIN
450 IF C_INDUSTRY_CODE = 'C' THEN
451 RETURN (FALSE);
452 ELSIF P_FIELD_NAME = 'SALES' THEN
453 IF C_SALES_TITLE IS NOT NULL THEN
454 RETURN (TRUE);
455 ELSE
456 RETURN (FALSE);
457 END IF;
458 ELSIF P_FIELD_NAME = 'BALSEGMENT' THEN
459 RETURN (TRUE);
460 END IF;
461 RETURN NULL;
462 END SET_DISPLAY_FOR_GOV;
463 FUNCTION POSTED_HDRFORMULA RETURN VARCHAR2 IS
464 BEGIN
465 DECLARE
466 L_POSTED_STATUS VARCHAR2(50);
467 BEGIN
468 SELECT
469 MEANING
470 INTO L_POSTED_STATUS
471 FROM
472 AR_LOOKUPS
473 WHERE LOOKUP_TYPE = 'POSTED_STATUS'
474 AND LOOKUP_CODE = 'BOTH';
475 RP_POSTED_HDR := L_POSTED_STATUS;
476 RETURN (L_POSTED_STATUS);
477 END;
478 END POSTED_HDRFORMULA;
479 FUNCTION POSTED_YES_NOFORMULA(POSTING_CONTROL_ID IN NUMBER) RETURN VARCHAR2 IS
480 BEGIN
481 IF POSTING_CONTROL_ID = -3 THEN
482 RETURN ('+');
483 END IF;
484 RETURN NULL;
485 END POSTED_YES_NOFORMULA;
486 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
487 BEGIN
488 RETURN (TRUE);
489 END BEFOREPFORM;
490 FUNCTION ACCT_BAL_APROMPT_P RETURN VARCHAR2 IS
491 BEGIN
492 RETURN ACCT_BAL_APROMPT;
493 END ACCT_BAL_APROMPT_P;
494 FUNCTION REF_CURR_CODE_P RETURN VARCHAR2 IS
495 BEGIN
496 RETURN REF_CURR_CODE;
497 END REF_CURR_CODE_P;
498 FUNCTION SUM_SP_ENT_CR_DBC_P RETURN NUMBER IS
499 BEGIN
500 RETURN SUM_SP_ENT_CR_DBC;
501 END SUM_SP_ENT_CR_DBC_P;
502 FUNCTION SUM_SP_ACCT_DR_DBC_P RETURN NUMBER IS
503 BEGIN
504 RETURN SUM_SP_ACCT_DR_DBC;
505 END SUM_SP_ACCT_DR_DBC_P;
506 FUNCTION SUM_SP_ACCT_CR_DBC_P RETURN NUMBER IS
507 BEGIN
508 RETURN SUM_SP_ACCT_CR_DBC;
509 END SUM_SP_ACCT_CR_DBC_P;
510 FUNCTION TMP_ENT_CR_DBC_P RETURN NUMBER IS
511 BEGIN
512 RETURN TMP_ENT_CR_DBC;
513 END TMP_ENT_CR_DBC_P;
514 FUNCTION TMP_ACCT_DR_DBC_P RETURN NUMBER IS
515 BEGIN
516 RETURN TMP_ACCT_DR_DBC;
517 END TMP_ACCT_DR_DBC_P;
521 END TMP_ACCT_CR_DBC_P;
518 FUNCTION TMP_ACCT_CR_DBC_P RETURN NUMBER IS
519 BEGIN
520 RETURN TMP_ACCT_CR_DBC;
522 FUNCTION TMP_ENT_DR_DBC_P RETURN NUMBER IS
523 BEGIN
524 RETURN TMP_ENT_DR_DBC;
525 END TMP_ENT_DR_DBC_P;
526 FUNCTION SUM_SP_ENT_DR_DBC_P RETURN NUMBER IS
527 BEGIN
528 RETURN SUM_SP_ENT_DR_DBC;
529 END SUM_SP_ENT_DR_DBC_P;
530 FUNCTION D_GSUM_ENT_CR_DBC_P RETURN VARCHAR2 IS
531 BEGIN
532 RETURN D_GSUM_ENT_CR_DBC;
533 END D_GSUM_ENT_CR_DBC_P;
534 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
535 BEGIN
536 RETURN RP_COMPANY_NAME;
537 END RP_COMPANY_NAME_P;
538 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
539 BEGIN
540 RETURN RP_REPORT_NAME;
541 END RP_REPORT_NAME_P;
542 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
543 BEGIN
544 RETURN RP_DATA_FOUND;
545 END RP_DATA_FOUND_P;
546 FUNCTION RP_POSTED_HDR_P RETURN VARCHAR2 IS
547 BEGIN
548 RETURN RP_POSTED_HDR;
549 END RP_POSTED_HDR_P;
550 FUNCTION RP_GL_HDR_P RETURN VARCHAR2 IS
551 BEGIN
552 RETURN RP_GL_HDR;
553 END RP_GL_HDR_P;
554 FUNCTION D_GSUM_ENT_DR_DBC_P RETURN VARCHAR2 IS
555 BEGIN
556 RETURN D_GSUM_ENT_DR_DBC;
557 END D_GSUM_ENT_DR_DBC_P;
558 FUNCTION D_GSUM_ACCT_DR_DBC_P RETURN VARCHAR2 IS
559 BEGIN
560 RETURN D_GSUM_ACCT_DR_DBC;
561 END D_GSUM_ACCT_DR_DBC_P;
562 FUNCTION D_GSUM_ACCT_CR_DBC_P RETURN VARCHAR2 IS
563 BEGIN
564 RETURN D_GSUM_ACCT_CR_DBC;
565 END D_GSUM_ACCT_CR_DBC_P;
566 FUNCTION C_FLEX_SBC_P RETURN VARCHAR2 IS
567 BEGIN
568 RETURN C_FLEX_SBC;
569 END C_FLEX_SBC_P;
570 FUNCTION FUNCTIONAL_CURRENCY_P RETURN VARCHAR2 IS
571 BEGIN
572 RETURN FUNCTIONAL_CURRENCY;
573 END FUNCTIONAL_CURRENCY_P;
574 FUNCTION C_CURRENCY_CODE_DBC_P RETURN VARCHAR2 IS
575 BEGIN
576 RETURN C_CURRENCY_CODE_DBC;
577 END C_CURRENCY_CODE_DBC_P;
578 FUNCTION C_CURRENCY_CODE_SBC_P RETURN VARCHAR2 IS
579 BEGIN
580 RETURN C_CURRENCY_CODE_SBC;
581 END C_CURRENCY_CODE_SBC_P;
582 FUNCTION C_POSTED_DESC_P RETURN VARCHAR2 IS
583 BEGIN
584 RETURN C_POSTED_DESC;
585 END C_POSTED_DESC_P;
586 FUNCTION C_INDUSTRY_CODE_P RETURN VARCHAR2 IS
587 BEGIN
588 RETURN C_INDUSTRY_CODE;
589 END C_INDUSTRY_CODE_P;
590 FUNCTION C_SALES_TITLE_P RETURN VARCHAR2 IS
591 BEGIN
592 RETURN C_SALES_TITLE;
593 END C_SALES_TITLE_P;
594 FUNCTION PL_POSTED_DATE_FROM_TO_P RETURN VARCHAR2 IS
595 BEGIN
596 RETURN PL_POSTED_DATE_FROM_TO;
597 END PL_POSTED_DATE_FROM_TO_P;
598 FUNCTION RP_REPORT_SUBNAME_P RETURN VARCHAR2 IS
599 BEGIN
600 RETURN RP_REPORT_SUBNAME;
601 END RP_REPORT_SUBNAME_P;
602 FUNCTION PL_GL_DATE_FROM_TO_P RETURN VARCHAR2 IS
603 BEGIN
604 RETURN PL_GL_DATE_FROM_TO;
605 END PL_GL_DATE_FROM_TO_P;
606 FUNCTION RP_MESSAGE_P RETURN VARCHAR2 IS
607 BEGIN
608 RETURN RP_MESSAGE;
609 END RP_MESSAGE_P;
610 FUNCTION CP_ACC_MESSAGE_P RETURN VARCHAR2 IS
611 BEGIN
612 RETURN CP_ACC_MESSAGE;
613 END CP_ACC_MESSAGE_P;
614 /* FUNCTION GET(APPL_ID IN INTEGER
615 ,DEP_APPL_ID IN INTEGER
616 ,STATUS OUT NOCOPY VARCHAR2
617 ,INDUSTRY OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
618 X0 BOOLEAN;
619 X0rv BOOLEAN;
620 BEGIN
621 begin
622 X0rv := FND_INSTALLATION.GET(
623 APPL_ID,
624 DEP_APPL_ID,
625 STATUS,
626 INDUSTRY);
627 X0 := sys.diutil.bool_to_int(X0rv);
628 end;
629 RETURN X0;
630 END GET;
631 FUNCTION GET_APP_INFO(APPLICATION_SHORT_NAME IN VARCHAR2
632 ,STATUS OUT NOCOPY VARCHAR2
633 ,INDUSTRY OUT NOCOPY VARCHAR2
634 ,ORACLE_SCHEMA OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
635 X0 BOOLEAN;
636 BEGIN
637 STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_INSTALLATION.GET_APP_INFO(:APPLICATION_SHORT_NAME, :STATUS, :INDUSTRY, :ORACLE_SCHEMA); :X0 := sys.diutil.bool_to_int(X0rv); end;');
638 STPROC.BIND_I(APPLICATION_SHORT_NAME);
639 STPROC.BIND_O(STATUS);
640 STPROC.BIND_O(INDUSTRY);
641 STPROC.BIND_O(ORACLE_SCHEMA);
642 STPROC.BIND_O(X0);
643 STPROC.EXECUTE;
644 STPROC.RETRIEVE(2
645 ,STATUS);
646 STPROC.RETRIEVE(3
647 ,INDUSTRY);
648 STPROC.RETRIEVE(4
649 ,ORACLE_SCHEMA);
650 STPROC.RETRIEVE(5
651 ,X0);
652 RETURN X0;
653 END GET_APP_INFO;
654 FUNCTION GET_APP_INFO_OTHER(APPLICATION_SHORT_NAME IN VARCHAR2
655 ,TARGET_SCHEMA IN VARCHAR2
656 ,STATUS OUT NOCOPY VARCHAR2
657 ,INDUSTRY OUT NOCOPY VARCHAR2
658 ,ORACLE_SCHEMA OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
659 X0 BOOLEAN;
660 BEGIN
661 STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_INSTALLATION.GET_APP_INFO_OTHER(:APPLICATION_SHORT_NAME, :TARGET_SCHEMA, :STATUS, :INDUSTRY, :ORACLE_SCHEMA); :X0 := sys.diutil.bool_to_int(X0rv); end;');
662 STPROC.BIND_I(APPLICATION_SHORT_NAME);
663 STPROC.BIND_I(TARGET_SCHEMA);
664 STPROC.BIND_O(STATUS);
665 STPROC.BIND_O(INDUSTRY);
666 STPROC.BIND_O(ORACLE_SCHEMA);
667 STPROC.BIND_O(X0);
668 STPROC.EXECUTE;
669 STPROC.RETRIEVE(3
670 ,STATUS);
671 STPROC.RETRIEVE(4
672 ,INDUSTRY);
673 STPROC.RETRIEVE(5
674 ,ORACLE_SCHEMA);
675 STPROC.RETRIEVE(6
676 ,X0);
677 RETURN X0;
681
678 END GET_APP_INFO_OTHER;*/
679 END AR_ARXPIREP_XMLP_PKG;
680