1 PACKAGE BODY JG_JGZZGLJRN_XMLP_PKG AS
2 /* $Header: JGZZGLJRNB.pls 120.2 2007/12/25 16:06:35 npannamp noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 L_EXC_LE_ID NUMBER(15);
5 L_ACCTG_CODE VARCHAR2(30);
6 T_ERRORBUFFER VARCHAR2(132);
7 L_START_DATE DATE;
8 L_END_DATE DATE;
9 L_LEDGER_TYPE VARCHAR2(100);
10 BEGIN
11 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
12 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
13 SELECT
14 TO_CHAR(SYSDATE
15 ,'YYYY-MM-DD') || 'T' || TO_CHAR(SYSDATE
16 ,'HH24:MI:SS'),
17 FND_DATE.CANONICAL_TO_DATE(P_START_DATE),
18 FND_DATE.CANONICAL_TO_DATE(P_END_DATE)
19 INTO REP_EXECUTION_DATE,L_START_DATE,L_END_DATE
20 FROM
21 DUAL;
22 BEGIN
23 SELECT
24 NAME
25 INTO DATA_ACCESS_SET_NAME
26 FROM
27 GL_ACCESS_SETS
28 WHERE ACCESS_SET_ID = P_ACCESS_SET_ID;
29 EXCEPTION
30 WHEN NO_DATA_FOUND THEN
31 T_ERRORBUFFER := GL_MESSAGE.GET_MESSAGE('GL_PLL_INVALID_DATA_ACCESS_SET'
32 ,'Y'
33 ,'DASID'
34 ,TO_CHAR(P_ACCESS_SET_ID));
35 /*SRW.MESSAGE('00'
36 ,T_ERRORBUFFER)*/NULL;
37 /*RAISE SRW.PROGRAM_ABORT*/--RAISE_APPLICATION_ERROR(-20101,null);
38 WHEN OTHERS THEN
39 T_ERRORBUFFER := SQLERRM;
40 /*SRW.MESSAGE('00'
41 ,T_ERRORBUFFER)*/NULL;
42 /*RAISE SRW.PROGRAM_ABORT*/--RAISE_APPLICATION_ERROR(-20101,null);
43 END;
44 P_LEDGER_FROM := ' ';
45 P_LEDGER_WHERE := ' ';
46 IF P_LEDGER_ID IS NOT NULL THEN
47 BEGIN
48 SELECT
49 OBJECT_TYPE_CODE
50 INTO L_LEDGER_TYPE
51 FROM
52 GL_LEDGERS
53 WHERE LEDGER_ID = P_LEDGER_ID;
54 EXCEPTION
55 WHEN OTHERS THEN
56 T_ERRORBUFFER := SQLERRM;
57 /*SRW.MESSAGE('00'
58 ,T_ERRORBUFFER)*/NULL;
59 /*RAISE SRW.PROGRAM_ABORT*/--RAISE_APPLICATION_ERROR(-20101,null);
60 END;
61 IF (L_LEDGER_TYPE = 'S') THEN
62 P_LEDGER_FROM := ', GL_LEDGER_SET_ASSIGNMENTS LS ';
63 P_LEDGER_WHERE := ' AND LS.ledger_set_id = ' || TO_CHAR(P_LEDGER_ID) || ' AND ' || 'LGR.ledger_id = LS.ledger_id';
64 ELSE
65 P_LEDGER_FROM := '';
66 P_LEDGER_WHERE := ' AND LGR.ledger_id = ' || TO_CHAR(P_LEDGER_ID);
67 END IF;
68 END IF;
69 IF (P_PERIOD_FROM = P_PERIOD_TO) THEN
70 PERIOD_WHERE := ' AND GLP.PERIOD_NAME = ''' || P_PERIOD_FROM || '''';
71 IF (P_STATUS = 'P') THEN
72 IF P_LEDGER_FROM IS NULL THEN
73 P_PERIOD_INX_HINT := ' /*+ ORDERED
74 USE_NL(CC) INDEX (CC GL_CODE_COMBINATIONS_N2
75 INDEX (CC GL_CODE_COMBINATIONS_N3)
76 USE_NL(GLP) INDEX (GLP GL_PERIOD_SATTUSES_U3)
77 USE_NL(GLL) INDEX (GLL GL_JE_LINES_N1)
78 USE_NL(GLH) INDEX (GLH GL_JE_HEADERS_U1)
79 USE_NL(GLB) INDEX (GLB GL_JE_BATCHES_U1)
80 USE_NL(FSV) INDEX (FSV FUN_SEQ_VERSIONS_U1)
81 USE_NL(DOCSEQ) INDEX (DOCSEQ FND_DOCUMENT_SEQUENCES_U1)
82 USE_NL(SRC) INDEX (SRC GL_JE_SOURCES_TL_U1)
83 USE_NL(CAT) INDEX (CAT GL_JE_CATEGORY_TL_U1)
84 USE_NL(GLC) INDEX (GLC GL_LEDGER_CONFIGURATIONS_U1)
85 USE_NL(LOOK) INDEX (LOOK FND_LOOKUP_VALUES_U1)
86 */ ';
87 P_FROM_CLAUSE := 'GL_CODE_COMBINATIONS CC, GL_PERIOD_STATUSES GLP,
88 GL_JE_LINES GLL, GL_JE_HEADERS GLH, GL_LEDGERS LGR,
89 GL_LEDGER_CONFIGURATIONS glc, GL_JE_BATCHES GLBATCH,
90 FUN_SEQ_VERSIONS FSV, FND_DOCUMENT_SEQUENCES DOCSEQ,
91 GL_JE_SOURCES SRC, GL_JE_CATEGORIES CAT, GL_LOOKUPS LOOK ';
92 ELSE
93 P_PERIOD_INX_HINT := ' /*+ ORDERED
94 USE_NL(CC) INDEX (CC GL_CODE_COMBINATIONS_N2
95 INDEX (CC GL_CODE_COMBINATIONS_N3)
96 USE_NL(GLP) INDEX (GLP GL_PERIOD_SATTUSES_U3)
97 USE_NL(GLL) INDEX (GLL GL_JE_LINES_N1)
98 USE_NL(GLH) INDEX (GLH GL_JE_HEADERS_U1)
99 USE_NL(GLB) INDEX (GLB GL_JE_BATCHES_U1)
100 USE_NL(FSV) INDEX (FSV FUN_SEQ_VERSIONS_U1)
101 USE_NL(DOCSEQ) INDEX (DOCSEQ FND_DOCUMENT_SEQUENCES_U1)
102 USE_NL(SRC) INDEX (SRC GL_JE_SOURCES_TL_U1)
103 USE_NL(CAT) INDEX (CAT GL_JE_CATEGORY_TL_U1)
104 USE_NL(GLC) INDEX (GLC GL_LEDGER_CONFIGURATIONS_U1)
105 USE_NL(LOOK) INDEX (LOOK FND_LOOKUP_VALUES_U1)
106 USE_NL(LS) INDEX(LS GL_LEDGER_SET_ASSIGNMENTS_N1)
107 */ ';
108 P_FROM_CLAUSE := 'GL_CODE_COMBINATIONS CC, GL_PERIOD_STATUSES GLP,
109 GL_JE_LINES GLL, GL_JE_HEADERS GLH, GL_LEDGERS LGR,
110 GL_LEDGER_CONFIGURATIONS glc, GL_JE_BATCHES GLBATCH,
111 FUN_SEQ_VERSIONS FSV, FND_DOCUMENT_SEQUENCES DOCSEQ,
112 GL_JE_SOURCES SRC, GL_JE_CATEGORIES CAT, GL_LOOKUPS LOOK ' || P_LEDGER_FROM;
113 END IF;
114 ELSIF ((P_STATUS = 'E') OR (P_STATUS = 'U')) THEN
115 P_PERIOD_INX_HINT := '/*+ ORDERED */';
116 P_FROM_CLAUSE := ' GL_JE_BATCHES GLBATCH, GL_JE_HEADERS GLH, GL_JE_LINES GLL,
117 GL_CODE_COMBINATIONS CC, GL_PERIOD_STATUSES GLP,
118 GL_LEDGERS LGR, GL_LEDGER_CONFIGURATIONS glc,
119 FUN_SEQ_VERSIONS FSV, FND_DOCUMENT_SEQUENCES DOCSEQ,
120 GL_JE_SOURCES SRC, GL_JE_CATEGORIES CAT, GL_LOOKUPS LOOK ' || P_LEDGER_FROM;
121 END IF;
122 ELSE
123 F_PERIOD_NUM := GET_EFF_PERIOD_NUM(P_ACCESS_SET_ID
124 ,P_PERIOD_FROM);
125 T_PERIOD_NUM := GET_EFF_PERIOD_NUM(P_ACCESS_SET_ID
126 ,P_PERIOD_TO);
127 PERIOD_WHERE := ' AND (GLP.EFFECTIVE_PERIOD_NUM BETWEEN ' || F_PERIOD_NUM || ' AND ' || T_PERIOD_NUM || ')';
128 IF (P_STATUS = 'P') THEN
129 IF P_LEDGER_FROM IS NULL THEN
130 P_PERIOD_INX_HINT := ' /*+ ORDERED
131 USE_NL(CC) INDEX (CC GL_CODE_COMBINATIONS_N2
132 INDEX (CC GL_CODE_COMBINATIONS_N3)
133 USE_NL(GLP) INDEX (GLP GL_PERIOD_SATTUSES_U4)
134 USE_NL(GLL) INDEX (GLL GL_JE_LINES_N1)
135 USE_NL(GLH) INDEX (GLH GL_JE_HEADERS_U1)
136 USE_NL(GLB) INDEX (GLB GL_JE_BATCHES_U1)
137 USE_NL(FSV) INDEX (FSV FUN_SEQ_VERSIONS_U1)
138 USE_NL(DOCSEQ) INDEX (DOCSEQ FND_DOCUMENT_SEQUENCES_U1)
139 USE_NL(SRC) INDEX (SRC GL_JE_SOURCES_TL_U1)
140 USE_NL(CAT) INDEX (CAT GL_JE_CATEGORY_TL_U1)
141 USE_NL(GLC) INDEX (GLC GL_LEDGER_CONFIGURATIONS_U1)
142 USE_NL(LOOK) INDEX (LOOK FND_LOOKUP_VALUES_U1)
143 */ ';
144 P_FROM_CLAUSE := 'GL_CODE_COMBINATIONS CC, GL_PERIOD_STATUSES GLP,
145 GL_JE_LINES GLL, GL_JE_HEADERS GLH, GL_LEDGERS LGR,
146 GL_LEDGER_CONFIGURATIONS glc, GL_JE_BATCHES GLBATCH,
147 FUN_SEQ_VERSIONS FSV, FND_DOCUMENT_SEQUENCES DOCSEQ,
148 GL_JE_SOURCES SRC, GL_JE_CATEGORIES CAT, GL_LOOKUPS LOOK ';
149 ELSE
150 P_PERIOD_INX_HINT := ' /*+ ORDERED
151 USE_NL(CC) INDEX (CC GL_CODE_COMBINATIONS_N2
152 INDEX (CC GL_CODE_COMBINATIONS_N3)
153 USE_NL(GLP) INDEX (GLP GL_PERIOD_SATTUSES_U4)
154 USE_NL(GLL) INDEX (GLL GL_JE_LINES_N1)
155 USE_NL(GLH) INDEX (GLH GL_JE_HEADERS_U1)
156 USE_NL(GLB) INDEX (GLB GL_JE_BATCHES_U1)
157 USE_NL(FSV) INDEX (FSV FUN_SEQ_VERSIONS_U1)
158 USE_NL(DOCSEQ) INDEX (DOCSEQ FND_DOCUMENT_SEQUENCES_U1)
159 USE_NL(SRC) INDEX (SRC GL_JE_SOURCES_TL_U1)
160 USE_NL(CAT) INDEX (CAT GL_JE_CATEGORY_TL_U1)
161 USE_NL(GLC) INDEX (GLC GL_LEDGER_CONFIGURATIONS_U1)
162 USE_NL(LOOK) INDEX (LOOK FND_LOOKUP_VALUES_U1)
163 USE_NL(LS) INDEX(LS GL_LEDGER_SET_ASSIGNMENTS_N1)
164 */ ';
165 P_FROM_CLAUSE := 'GL_CODE_COMBINATIONS CC, GL_PERIOD_STATUSES GLP,
166 GL_JE_LINES GLL, GL_JE_HEADERS GLH, GL_LEDGERS LGR,
167 GL_LEDGER_CONFIGURATIONS glc, GL_JE_BATCHES GLBATCH,
168 FUN_SEQ_VERSIONS FSV, FND_DOCUMENT_SEQUENCES DOCSEQ,
169 GL_JE_SOURCES SRC, GL_JE_CATEGORIES CAT, GL_LOOKUPS LOOK ' || P_LEDGER_FROM;
170 END IF;
171 ELSIF ((P_STATUS = 'E') OR (P_STATUS = 'U')) THEN
172 P_PERIOD_INX_HINT := '/*+ ORDERED */';
173 P_FROM_CLAUSE := ' GL_JE_BATCHES GLBATCH, GL_JE_HEADERS GLH, GL_JE_LINES GLL,
174 GL_CODE_COMBINATIONS CC, GL_PERIOD_STATUSES GLP,
175 GL_LEDGERS LGR, GL_LEDGER_CONFIGURATIONS glc,
176 FUN_SEQ_VERSIONS FSV, FND_DOCUMENT_SEQUENCES DOCSEQ,
177 GL_JE_SOURCES SRC, GL_JE_CATEGORIES CAT , GL_LOOKUPS LOOK ' || P_LEDGER_FROM;
178 END IF;
179 END IF;
180 IF ((P_START_DATE IS NOT NULL) OR (P_END_DATE IS NOT NULL)) THEN
181 IF (P_START_DATE = P_END_DATE) THEN
182 P_DATE_WHERE := ' AND GLH.Default_Effective_Date = ''' || L_END_DATE || '''';
183 ELSIF ((P_START_DATE IS NOT NULL) AND (P_END_DATE IS NULL)) THEN
184 P_DATE_WHERE := ' AND GLH.Default_Effective_Date >= ''' || L_START_DATE || '''';
185 ELSIF ((P_START_DATE IS NULL) AND (P_END_DATE IS NOT NULL)) THEN
186 P_DATE_WHERE := ' AND GLH.Default_Effective_Date <= ''' || L_END_DATE || '''';
187 ELSE
188 P_DATE_WHERE := ' AND GLH.Default_Effective_Date BETWEEN ''' || L_START_DATE || ''' AND ''' || L_END_DATE || '''';
189 END IF;
190 END IF;
191 DAS_WHERE := GL_ACCESS_SET_SECURITY_PKG.GET_SECURITY_CLAUSE(P_ACCESS_SET_ID
192 ,'R'
193 ,'LEDGER_COLUMN'
194 ,'LEDGER_ID'
195 ,'GLP'
196 ,'SEG_COLUMN'
197 ,NULL
198 ,'CC'
199 ,NULL);
200 IF (DAS_WHERE IS NOT NULL) THEN
201 DAS_WHERE := ' AND ' || DAS_WHERE;
202 END IF;
203 IF (P_STATUS = 'E') THEN
204 P_POSTING_STATUS := ' AND ' || ' GLBATCH.STATUS IN ' || '(SELECT LOOKUP_CODE FROM GL_LOOKUPS ' || 'WHERE LOOKUP_TYPE = ''MJE_BATCH_STATUS'' ' || 'AND LOOKUP_CODE NOT IN (''S'', ''I'', ''U'', ''P'')) ';
205 P_HEADER_POSTING_STATUS := ' AND GLH.JE_HEADER_ID = GLL.JE_HEADER_ID(+)
206 AND GLL.CODE_COMBINATION_ID = CC.CODE_COMBINATION_ID(+) ';
207 ELSE
208 P_POSTING_STATUS := 'AND GLBATCH.STATUS = ''' || P_STATUS || '''';
209 P_HEADER_POSTING_STATUS := 'AND GLH.JE_HEADER_ID = GLL.JE_HEADER_ID
210 AND GLL.LEDGER_ID = LGR.ledger_id
211 AND GLL.CODE_COMBINATION_ID = CC.CODE_COMBINATION_ID';
212 END IF;
213 IF (P_BALANCE_TYPE IS NOT NULL) THEN
214 P_BALANCE_TYPE_WHERE := ' AND GLH.ACTUAL_FLAG = ''' || P_BALANCE_TYPE || '''';
215 END IF;
216 IF P_SOURCE IS NOT NULL THEN
217 P_SOURCE_WHERE := 'AND GLH.JE_SOURCE = ''' || P_SOURCE || '''';
218 END IF;
219 IF P_CATEGORY IS NOT NULL THEN
220 P_CATEGORY_WHERE := 'AND GLH.JE_CATEGORY = ''' || P_CATEGORY || '''';
221 END IF;
222 IF P_BATCH_NAME IS NOT NULL THEN
223 P_BATCH_WHERE := 'AND GLBATCH.NAME = ''' || P_BATCH_NAME || '''';
224 END IF;
225 P_DOC_SEQ_WHERE := ' ';
226 IF ((P_DOC_SEQ_NAME IS NOT NULL) OR (P_START_DOC_VALUE IS NOT NULL) OR (P_END_DOC_VALUE IS NOT NULL)) THEN
227 IF P_DOC_SEQ_NAME IS NOT NULL THEN
228 P_DOC_SEQ_WHERE := ' AND GLH.DOC_SEQUENCE_ID = ' || P_DOC_SEQ_NAME;
229 END IF;
230 IF (P_START_DOC_VALUE IS NULL) AND (P_END_DOC_VALUE IS NOT NULL) THEN
231 P_DOC_SEQ_WHERE := P_DOC_SEQ_WHERE || ' AND GLH.DOC_SEQUENCE_VALUE <= ''' || P_END_DOC_VALUE || '''';
232 ELSIF (P_START_DOC_VALUE IS NOT NULL) AND (P_END_DOC_VALUE IS NULL) THEN
233 P_DOC_SEQ_WHERE := P_DOC_SEQ_WHERE || ' AND GLH.DOC_SEQUENCE_VALUE >= ''' || P_START_DOC_VALUE || '''';
234 ELSIF (P_START_DOC_VALUE IS NOT NULL) AND (P_END_DOC_VALUE IS NOT NULL) THEN
235 P_DOC_SEQ_WHERE := P_DOC_SEQ_WHERE || ' AND GLH.DOC_SEQUENCE_VALUE BETWEEN ''' || P_START_DOC_VALUE || ''' AND ''' || P_END_DOC_VALUE || '''';
236 END IF;
237 END IF;
238 GL_SECURITY_PKG.INIT_SEGVAL;
239 SEG_SECURITY_WHERE := 'AND gl_security_pkg.validate_access(LGR.ledger_id, cc.code_combination_id) = ''TRUE'' ';
240 IF (P_CURRENCY_CODE IS NOT NULL) THEN
241 CURR_WHERE_JRNL := 'AND GLH.CURRENCY_CODE = ''' || P_CURRENCY_CODE || '''';
242 ELSE
243 CURR_WHERE_JRNL := 'AND GLH.Currency_Code <> ''STAT''';
244 END IF;
245 BEGIN
246 /*SRW.REFERENCE(P_COA_ID)*/NULL;
247 IF P_ACCT_FROM IS NOT NULL AND P_ACCT_TO IS NOT NULL THEN
248 IF TEMP_ACCT_WHERE IS NOT NULL THEN
249 ACCT_WHERE := 'AND ' || TEMP_ACCT_WHERE;
250 END IF;
251 END IF;
252 EXCEPTION
253 WHEN /*SRW.UNKNOWN_USER_EXIT*/OTHERS THEN
254 /*SRW.MESSAGE(13
255 ,'FND FLEXSQL USER EXIT IS NOT KNOWN.')*/NULL;
256 RAISE;
257 /*WHEN SRW.USER_EXIT_FAILURE OTHERS THEN
258 SRW.MESSAGE(14
259 ,'FND FLEXSQL USER EXIT FAILED.')*/NULL;
260 RAISE;
261 /*WHEN OTHERS THEN*/
262 T_ERRORBUFFER := SQLERRM;
263 /*SRW.MESSAGE('00'
264 ,T_ERRORBUFFER)*/NULL;
265 /*RAISE SRW.PROGRAM_ABORT*/--RAISE_APPLICATION_ERROR(-20101,null);
266 END;
267 CHART_OF_ACCOUNTS_ID := P_COA_ID;
268 PERIOD_FROM_PARAM := P_PERIOD_FROM;
269 PERIOD_TO_PARAM := P_PERIOD_TO;
270 ACCT_FROM_PARAM := P_ACCT_FROM;
271 ACCT_TO_PARAM := P_ACCT_TO;
272 PAGE_NUM_FORMAT_PARAM := P_PAGE_NUM_FORMAT;
273 PAGE_NUM_START_PARAM := P_FIRST_PAGE_NUM;
274 USER_PARAM_1 := P_USER_PARAM_1;
275 USER_PARAM_2 := P_USER_PARAM_2;
276 USER_PARAM_3 := P_USER_PARAM_3;
277 USER_PARAM_4 := P_USER_PARAM_4;
278 USER_PARAM_5 := P_USER_PARAM_5;
279 CURRENCY_PARAM := P_CURRENCY_CODE;
280 START_DATE_PARAM := P_START_DATE;
281 END_DATE_PARAM := P_END_DATE;
282 SELECT
283 MEANING
284 INTO POSTING_STATUS_PARAM
285 FROM
286 GL_LOOKUPS
287 WHERE LOOKUP_CODE = P_STATUS
288 AND LOOKUP_TYPE = 'JOURNAL_REPORT_TYPE';
289 IF P_BALANCE_TYPE IS NOT NULL THEN
290 SELECT
291 DESCRIPTION
292 INTO BALANCE_TYPE_PARAM
293 FROM
294 GL_LOOKUPS
295 WHERE LOOKUP_TYPE = 'BATCH_TYPE'
296 AND LOOKUP_CODE = P_BALANCE_TYPE;
297 END IF;
298 IF P_SOURCE IS NOT NULL THEN
299 SELECT
300 USER_JE_SOURCE_NAME
301 INTO JRNL_SOURCE_PARAM
302 FROM
303 GL_JE_SOURCES
304 WHERE JE_SOURCE_NAME = P_SOURCE;
305 END IF;
306 IF P_CATEGORY IS NOT NULL THEN
307 SELECT
308 USER_JE_CATEGORY_NAME
309 INTO JRNL_CATEGORY_PARAM
310 FROM
311 GL_JE_CATEGORIES
312 WHERE JE_CATEGORY_NAME = P_CATEGORY;
313 END IF;
314 BATCH_NAME_PARAM := P_BATCH_NAME;
315 IF P_DOC_SEQ_NAME IS NOT NULL THEN
316 SELECT
317 NAME
318 INTO DOC_SEQ_NAME_PARAM
319 FROM
320 FND_DOCUMENT_SEQUENCES
321 WHERE DOC_SEQUENCE_ID = P_DOC_SEQ_NAME;
322 END IF;
323 START_DOC_SEQ_NUM_PARAM := P_START_DOC_VALUE;
324 END_DOC_SEQ_NUM_PARAM := P_END_DOC_VALUE;
325 RETURN (TRUE);
326 END BEFOREREPORT;
327
328 FUNCTION AFTERREPORT RETURN BOOLEAN IS
329 BEGIN
330 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
331 RETURN (TRUE);
332 END AFTERREPORT;
333
334 FUNCTION SECONDARY_TRACK_SEGMENT_DESCFO RETURN CHAR IS
335 BEGIN
336 RETURN NULL;
337 END SECONDARY_TRACK_SEGMENT_DESCFO;
338
339 FUNCTION LEGAL_ENTITY_NAMEFORMULA(LEGAL_ENTITY_ID IN NUMBER
340 ,LEGAL_ENTITY_NAME IN VARCHAR2) RETURN CHAR IS
341 BEGIN
342 /*SRW.REFERENCE(LEGAL_ENTITY_ID)*/NULL;
343 IF (TEMP_LE_ID = LEGAL_ENTITY_ID) THEN
344 RETURN (TEMP_LE_NAME);
345 ELSIF LEGAL_ENTITY_ID IS NOT NULL THEN
346 GET_LE_INFO(LEGAL_ENTITY_ID);
347 RETURN (TEMP_LE_NAME);
348 END IF;
349 RETURN (LEGAL_ENTITY_NAME);
350 END LEGAL_ENTITY_NAMEFORMULA;
351
352 PROCEDURE GET_LE_INFO(V_LE_ID IN NUMBER) IS
353 T_ERRORBUFFER VARCHAR2(132);
354 BEGIN
355 TEMP_LE_ID := V_LE_ID;
356 SELECT
357 NAME,
358 LTRIM(ADDRESS_LINE_1),
359 LTRIM(ADDRESS_LINE_2),
360 LTRIM(ADDRESS_LINE_3),
361 LTRIM(TOWN_OR_CITY),
362 LTRIM(POSTAL_CODE),
363 ACTIVITY_CODE,
364 REGISTRATION_NUMBER
365 INTO TEMP_LE_NAME,TEMP_ADDR1,TEMP_ADDR2,TEMP_ADDR3,TEMP_TOWN_CITY,TEMP_POSTAL_CODE,TEMP_SERVICE_TYPE,TEMP_TAX_PAYER_ID
366 FROM
367 XLE_FIRSTPARTY_INFORMATION_V
368 WHERE LEGAL_ENTITY_ID = V_LE_ID;
369 EXCEPTION
370 WHEN OTHERS THEN
371 T_ERRORBUFFER := SQLERRM;
372 /*SRW.MESSAGE('00'
373 ,T_ERRORBUFFER)*/NULL;
374 END GET_LE_INFO;
375
376 FUNCTION LE_ADDRESS_LINE_1FORMULA(LEGAL_ENTITY_ID IN NUMBER
377 ,LE_ADDRESS_LINE_1 IN VARCHAR2) RETURN CHAR IS
378 BEGIN
379 /*SRW.REFERENCE(LEGAL_ENTITY_ID)*/NULL;
380 IF (TEMP_LE_ID = LEGAL_ENTITY_ID) THEN
381 RETURN (TEMP_ADDR1);
382 ELSIF LEGAL_ENTITY_ID IS NOT NULL THEN
383 GET_LE_INFO(LEGAL_ENTITY_ID);
384 RETURN (TEMP_ADDR1);
385 END IF;
386 RETURN (LE_ADDRESS_LINE_1);
387 END LE_ADDRESS_LINE_1FORMULA;
388
389 FUNCTION LE_ADDRESS_LINE_2FORMULA(LEGAL_ENTITY_ID IN NUMBER
390 ,LE_ADDRESS_LINE_2 IN VARCHAR2) RETURN CHAR IS
391 BEGIN
392 /*SRW.REFERENCE(LEGAL_ENTITY_ID)*/NULL;
393 IF (TEMP_LE_ID = LEGAL_ENTITY_ID) THEN
394 RETURN (TEMP_ADDR2);
395 ELSIF LEGAL_ENTITY_ID IS NOT NULL THEN
396 GET_LE_INFO(LEGAL_ENTITY_ID);
397 RETURN (TEMP_ADDR2);
398 END IF;
399 RETURN (LE_ADDRESS_LINE_2);
400 END LE_ADDRESS_LINE_2FORMULA;
401
402 FUNCTION LE_ADDRESS_LINE_3FORMULA(LEGAL_ENTITY_ID IN NUMBER
403 ,LE_ADDRESS_LINE_3 IN VARCHAR2) RETURN CHAR IS
404 BEGIN
405 /*SRW.REFERENCE(LEGAL_ENTITY_ID)*/NULL;
406 IF (TEMP_LE_ID = LEGAL_ENTITY_ID) THEN
407 RETURN (TEMP_ADDR3);
408 ELSIF LEGAL_ENTITY_ID IS NOT NULL THEN
409 GET_LE_INFO(LEGAL_ENTITY_ID);
410 RETURN (TEMP_ADDR3);
411 END IF;
412 RETURN (LE_ADDRESS_LINE_3);
413 END LE_ADDRESS_LINE_3FORMULA;
414
415 FUNCTION LE_CITYFORMULA(LEGAL_ENTITY_ID IN NUMBER
416 ,LE_CITY IN VARCHAR2) RETURN CHAR IS
417 BEGIN
418 /*SRW.REFERENCE(LEGAL_ENTITY_ID)*/NULL;
419 IF (TEMP_LE_ID = LEGAL_ENTITY_ID) THEN
420 RETURN (TEMP_TOWN_CITY);
421 ELSIF LEGAL_ENTITY_ID IS NOT NULL THEN
422 GET_LE_INFO(LEGAL_ENTITY_ID);
423 RETURN (TEMP_TOWN_CITY);
424 END IF;
425 RETURN (LE_CITY);
426 END LE_CITYFORMULA;
427
428 FUNCTION LE_POSTAL_CODEFORMULA(LEGAL_ENTITY_ID IN NUMBER
429 ,LE_POSTAL_CODE IN VARCHAR2) RETURN CHAR IS
430 BEGIN
431 /*SRW.REFERENCE(LEGAL_ENTITY_ID)*/NULL;
432 IF (TEMP_LE_ID = LEGAL_ENTITY_ID) THEN
433 RETURN (TEMP_POSTAL_CODE);
434 ELSIF LEGAL_ENTITY_ID IS NOT NULL THEN
435 GET_LE_INFO(LEGAL_ENTITY_ID);
436 RETURN (TEMP_POSTAL_CODE);
437 END IF;
438 RETURN (LE_POSTAL_CODE);
439 END LE_POSTAL_CODEFORMULA;
440
441 FUNCTION LE_REGISTRATION_NUMBERFORMULA(LEGAL_ENTITY_ID IN NUMBER
442 ,LE_REGISTRATION_NUMBER IN VARCHAR2) RETURN CHAR IS
443 BEGIN
444 /*SRW.REFERENCE(LEGAL_ENTITY_ID)*/NULL;
445 IF (TEMP_LE_ID = LEGAL_ENTITY_ID) THEN
446 RETURN (TEMP_TAX_PAYER_ID);
447 ELSIF LEGAL_ENTITY_ID IS NOT NULL THEN
448 GET_LE_INFO(LEGAL_ENTITY_ID);
449 RETURN (TEMP_TAX_PAYER_ID);
450 END IF;
451 RETURN (LE_REGISTRATION_NUMBER);
452 END LE_REGISTRATION_NUMBERFORMULA;
453
454 FUNCTION LE_ACTIVITY_CODEFORMULA(LEGAL_ENTITY_ID IN NUMBER
455 ,LE_ACTIVITY_CODE IN VARCHAR2) RETURN CHAR IS
456 BEGIN
457 /*SRW.REFERENCE(LEGAL_ENTITY_ID)*/NULL;
458 IF (TEMP_LE_ID = LEGAL_ENTITY_ID) THEN
459 RETURN (TEMP_SERVICE_TYPE);
460 ELSIF LEGAL_ENTITY_ID IS NOT NULL THEN
461 GET_LE_INFO(LEGAL_ENTITY_ID);
462 RETURN (TEMP_SERVICE_TYPE);
463 END IF;
464 RETURN (LE_ACTIVITY_CODE);
465 END LE_ACTIVITY_CODEFORMULA;
466
467 FUNCTION GET_EFF_PERIOD_NUM(ACC_SET_ID IN NUMBER
468 ,PNAME IN VARCHAR2) RETURN NUMBER IS
469 EPERNUM NUMBER;
470 BEGIN
471 SELECT
472 PER.PERIOD_YEAR * 10000 + PER.PERIOD_NUM
473 INTO EPERNUM
474 FROM
475 GL_ACCESS_SETS AC,
476 GL_PERIODS PER
477 WHERE AC.ACCESS_SET_ID = ACC_SET_ID
478 AND PER.PERIOD_SET_NAME = AC.PERIOD_SET_NAME
479 AND PER.PERIOD_NAME = PNAME;
480 RETURN (EPERNUM);
481 END GET_EFF_PERIOD_NUM;
482
483 FUNCTION LEGAL_ENTITY_IDFORMULA(LEDGER_ID_V IN NUMBER
484 ,ENVIRONMENT_CODE IN VARCHAR2
485 ,CONFIGURATION_ID_V IN NUMBER
486 ,BALANCING_SEGMENT_VALUE IN VARCHAR2) RETURN NUMBER IS
487 L_LEGAL_ID NUMBER := 0;
488 BEGIN
489 /*SRW.REFERENCE(LEDGER_ID)*/NULL;
490 /*SRW.REFERENCE(ENVIRONMENT_CODE)*/NULL;
491 IF ((NVL(TEMP_LEDGER_ID
492 ,0) = LEDGER_ID_V) AND (NVL(TEMP_ENVIRONMENT_CODE
493 ,'X') = ENVIRONMENT_CODE)) THEN
494 RETURN (TEMP_LEGAL_ENTITY_ID);
495 ELSIF CONFIGURATION_ID_V IS NOT NULL THEN
496 IF (ENVIRONMENT_CODE = 'EXCLUSIVE') THEN
497 SELECT
498 GLCD.OBJECT_ID
499 INTO L_LEGAL_ID
500 FROM
501 GL_LEDGER_CONFIG_DETAILS GLCD
502 WHERE GLCD.CONFIGURATION_ID = CONFIGURATION_ID_V
503 AND GLCD.OBJECT_TYPE_CODE = 'LEGAL_ENTITY';
504 ELSE
505 SELECT
506 GLNS.LEGAL_ENTITY_ID
507 INTO L_LEGAL_ID
508 FROM
509 GL_LEDGER_NORM_SEG_VALS GLNS
510 WHERE glns.ledger_id (+) = LEDGER_ID_V
511 AND glns.segment_type_code (+) = 'B'
512 AND glns.segment_value (+) = BALANCING_SEGMENT_VALUE
513 AND NVL(status_code (+),
514 'I') <> 'D';
515 END IF;
516 TEMP_LEGAL_ENTITY_ID := L_LEGAL_ID;
517 TEMP_LEDGER_ID := LEDGER_ID_V;
518 TEMP_ENVIRONMENT_CODE := ENVIRONMENT_CODE;
519 END IF;
520 RETURN (L_LEGAL_ID);
521 END LEGAL_ENTITY_IDFORMULA;
522
523 FUNCTION CF_LEDGER_NAMEFORMULA(LEDGER_NAME IN VARCHAR2) RETURN CHAR IS
524 BEGIN
525 IF (NVL(LEDGER_NAME_PARAM
526 ,'X') <> LEDGER_NAME) THEN
527 LEDGER_NAME_PARAM := LEDGER_NAME;
528 END IF;
529 RETURN (LEDGER_NAME_PARAM);
530 END CF_LEDGER_NAMEFORMULA;
531
532 FUNCTION DATA_ACCESS_SET_NAME_P RETURN VARCHAR2 IS
533 BEGIN
534 RETURN DATA_ACCESS_SET_NAME;
535 END DATA_ACCESS_SET_NAME_P;
536
537 FUNCTION CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
538 BEGIN
539 RETURN CHART_OF_ACCOUNTS_ID;
540 END CHART_OF_ACCOUNTS_ID_P;
541
542 FUNCTION DAS_WHERE_P RETURN VARCHAR2 IS
543 BEGIN
544 RETURN DAS_WHERE;
545 END DAS_WHERE_P;
546
547 FUNCTION CURR_WHERE_JRNL_P RETURN VARCHAR2 IS
548 BEGIN
549 RETURN CURR_WHERE_JRNL;
550 END CURR_WHERE_JRNL_P;
551
552 FUNCTION PERIOD_WHERE_P RETURN VARCHAR2 IS
553 BEGIN
554 RETURN PERIOD_WHERE;
555 END PERIOD_WHERE_P;
556
557 FUNCTION ACCT_WHERE_P RETURN VARCHAR2 IS
558 BEGIN
559 RETURN ACCT_WHERE;
560 END ACCT_WHERE_P;
561
562 FUNCTION SELECT_ACCOUNT_P RETURN VARCHAR2 IS
563 BEGIN
564 RETURN SELECT_ACCOUNT;
565 END SELECT_ACCOUNT_P;
566
567 FUNCTION SELECT_ACCT_SEG_P RETURN VARCHAR2 IS
568 BEGIN
569 RETURN SELECT_ACCT_SEG;
570 END SELECT_ACCT_SEG_P;
571
572 FUNCTION SELECT_BAL_SEG_P RETURN VARCHAR2 IS
573 BEGIN
574 RETURN SELECT_BAL_SEG;
575 END SELECT_BAL_SEG_P;
576
577 FUNCTION TEMP_ACCT_WHERE_P RETURN VARCHAR2 IS
578 BEGIN
579 RETURN TEMP_ACCT_WHERE;
580 END TEMP_ACCT_WHERE_P;
581
582 FUNCTION TEMP_LE_NAME_P RETURN VARCHAR2 IS
583 BEGIN
584 RETURN TEMP_LE_NAME;
585 END TEMP_LE_NAME_P;
586
587 FUNCTION TEMP_TAX_PAYER_ID_P RETURN VARCHAR2 IS
588 BEGIN
589 RETURN TEMP_TAX_PAYER_ID;
590 END TEMP_TAX_PAYER_ID_P;
591
592 FUNCTION TEMP_SERVICE_TYPE_P RETURN VARCHAR2 IS
593 BEGIN
594 RETURN TEMP_SERVICE_TYPE;
595 END TEMP_SERVICE_TYPE_P;
596
597 FUNCTION TEMP_ADDR1_P RETURN VARCHAR2 IS
598 BEGIN
599 RETURN TEMP_ADDR1;
600 END TEMP_ADDR1_P;
601
602 FUNCTION TEMP_ADDR2_P RETURN VARCHAR2 IS
603 BEGIN
604 RETURN TEMP_ADDR2;
605 END TEMP_ADDR2_P;
606
607 FUNCTION FP_START_DATE_P RETURN DATE IS
608 BEGIN
609 RETURN FP_START_DATE;
610 END FP_START_DATE_P;
611
612 FUNCTION TP_END_DATE_P RETURN DATE IS
613 BEGIN
614 RETURN TP_END_DATE;
615 END TP_END_DATE_P;
616
617 FUNCTION LE_WHERE_P RETURN VARCHAR2 IS
618 BEGIN
619 RETURN LE_WHERE;
620 END LE_WHERE_P;
621
622 FUNCTION SELECT_IC_SEG_P RETURN VARCHAR2 IS
623 BEGIN
624 RETURN SELECT_IC_SEG;
625 END SELECT_IC_SEG_P;
626
627 FUNCTION SELECT_MGT_SEG_P RETURN VARCHAR2 IS
628 BEGIN
629 RETURN SELECT_MGT_SEG;
630 END SELECT_MGT_SEG_P;
631
632 FUNCTION SELECT_ST_SEG_P RETURN VARCHAR2 IS
633 BEGIN
634 RETURN SELECT_ST_SEG;
635 END SELECT_ST_SEG_P;
636
637 FUNCTION SELECT_LE_P RETURN VARCHAR2 IS
638 BEGIN
639 RETURN SELECT_LE;
640 END SELECT_LE_P;
641
642 FUNCTION FROM_LNSV_P RETURN VARCHAR2 IS
643 BEGIN
644 RETURN FROM_LNSV;
645 END FROM_LNSV_P;
646
647 FUNCTION REP_EXECUTION_DATE_P RETURN VARCHAR2 IS
648 BEGIN
649 RETURN REP_EXECUTION_DATE;
650 END REP_EXECUTION_DATE_P;
651
652 FUNCTION TEMP_ADDR3_P RETURN VARCHAR2 IS
653 BEGIN
654 RETURN TEMP_ADDR3;
655 END TEMP_ADDR3_P;
656
657 FUNCTION TEMP_TOWN_CITY_P RETURN VARCHAR2 IS
658 BEGIN
659 RETURN TEMP_TOWN_CITY;
660 END TEMP_TOWN_CITY_P;
661
662 FUNCTION TEMP_POSTAL_CODE_P RETURN VARCHAR2 IS
663 BEGIN
664 RETURN TEMP_POSTAL_CODE;
665 END TEMP_POSTAL_CODE_P;
666
667 FUNCTION TEMP_LE_ID_P RETURN NUMBER IS
668 BEGIN
669 RETURN TEMP_LE_ID;
670 END TEMP_LE_ID_P;
671
672 FUNCTION START_DATE_PARAM_P RETURN VARCHAR2 IS
673 BEGIN
674 RETURN START_DATE_PARAM;
675 END START_DATE_PARAM_P;
676
677 FUNCTION END_DATE_PARAM_P RETURN VARCHAR2 IS
678 BEGIN
679 RETURN END_DATE_PARAM;
680 END END_DATE_PARAM_P;
681
682 FUNCTION SELECT_CC_SEG_P RETURN VARCHAR2 IS
683 BEGIN
684 RETURN SELECT_CC_SEG;
685 END SELECT_CC_SEG_P;
686
687 FUNCTION PAGE_NUM_FORMAT_PARAM_P RETURN VARCHAR2 IS
688 BEGIN
689 RETURN PAGE_NUM_FORMAT_PARAM;
690 END PAGE_NUM_FORMAT_PARAM_P;
691
692 FUNCTION CURRENCY_PARAM_P RETURN VARCHAR2 IS
693 BEGIN
694 RETURN CURRENCY_PARAM;
695 END CURRENCY_PARAM_P;
696
697 FUNCTION PERIOD_TO_PARAM_P RETURN VARCHAR2 IS
698 BEGIN
699 RETURN PERIOD_TO_PARAM;
700 END PERIOD_TO_PARAM_P;
701
702 FUNCTION PERIOD_FROM_PARAM_P RETURN VARCHAR2 IS
703 BEGIN
704 RETURN PERIOD_FROM_PARAM;
705 END PERIOD_FROM_PARAM_P;
706
707 FUNCTION ACCT_TO_PARAM_P RETURN VARCHAR2 IS
708 BEGIN
709 RETURN ACCT_TO_PARAM;
710 END ACCT_TO_PARAM_P;
711
712 FUNCTION ACCT_FROM_PARAM_P RETURN VARCHAR2 IS
713 BEGIN
714 RETURN ACCT_FROM_PARAM;
715 END ACCT_FROM_PARAM_P;
716
717 FUNCTION LEDGER_NAME_PARAM_P RETURN VARCHAR2 IS
718 BEGIN
719 RETURN LEDGER_NAME_PARAM;
720 END LEDGER_NAME_PARAM_P;
721
722 FUNCTION F_PERIOD_NUM_P RETURN NUMBER IS
723 BEGIN
724 RETURN F_PERIOD_NUM;
725 END F_PERIOD_NUM_P;
726
727 FUNCTION T_PERIOD_NUM_P RETURN NUMBER IS
728 BEGIN
729 RETURN T_PERIOD_NUM;
730 END T_PERIOD_NUM_P;
731
732 FUNCTION BALANCE_TYPE_PARAM_P RETURN VARCHAR2 IS
733 BEGIN
734 RETURN BALANCE_TYPE_PARAM;
735 END BALANCE_TYPE_PARAM_P;
736
737 FUNCTION PAGE_NUM_START_PARAM_P RETURN NUMBER IS
738 BEGIN
739 RETURN PAGE_NUM_START_PARAM;
740 END PAGE_NUM_START_PARAM_P;
741
742 FUNCTION USER_PARAM_1_P RETURN VARCHAR2 IS
743 BEGIN
744 RETURN USER_PARAM_1;
745 END USER_PARAM_1_P;
746
747 FUNCTION USER_PARAM_2_P RETURN VARCHAR2 IS
748 BEGIN
749 RETURN USER_PARAM_2;
750 END USER_PARAM_2_P;
751
752 FUNCTION USER_PARAM_3_P RETURN VARCHAR2 IS
753 BEGIN
754 RETURN USER_PARAM_3;
755 END USER_PARAM_3_P;
756
757 FUNCTION USER_PARAM_4_P RETURN VARCHAR2 IS
758 BEGIN
759 RETURN USER_PARAM_4;
760 END USER_PARAM_4_P;
761
762 FUNCTION USER_PARAM_5_P RETURN VARCHAR2 IS
763 BEGIN
764 RETURN USER_PARAM_5;
765 END USER_PARAM_5_P;
766
767 FUNCTION SELECT_DR_P RETURN VARCHAR2 IS
768 BEGIN
769 RETURN SELECT_DR;
770 END SELECT_DR_P;
771
772 FUNCTION SELECT_CR_P RETURN VARCHAR2 IS
773 BEGIN
774 RETURN SELECT_CR;
775 END SELECT_CR_P;
776
777 FUNCTION SELECT_BEGIN_BAL_P RETURN VARCHAR2 IS
778 BEGIN
779 RETURN SELECT_BEGIN_BAL;
780 END SELECT_BEGIN_BAL_P;
781
782 FUNCTION ACCT_SEG_VALUE_SET_ID_P RETURN NUMBER IS
783 BEGIN
784 RETURN ACCT_SEG_VALUE_SET_ID;
785 END ACCT_SEG_VALUE_SET_ID_P;
786
787 FUNCTION SEG_SECURITY_WHERE_P RETURN VARCHAR2 IS
788 BEGIN
789 RETURN SEG_SECURITY_WHERE;
790 END SEG_SECURITY_WHERE_P;
791
792 FUNCTION P_POSTING_STATUS_P RETURN VARCHAR2 IS
793 BEGIN
794 RETURN P_POSTING_STATUS;
795 END P_POSTING_STATUS_P;
796
797 FUNCTION P_HEADER_POSTING_STATUS_P RETURN VARCHAR2 IS
798 BEGIN
799 RETURN P_HEADER_POSTING_STATUS;
800 END P_HEADER_POSTING_STATUS_P;
801
802 FUNCTION P_BALANCE_TYPE_WHERE_P RETURN VARCHAR2 IS
803 BEGIN
804 RETURN P_BALANCE_TYPE_WHERE;
805 END P_BALANCE_TYPE_WHERE_P;
806
807 FUNCTION P_SOURCE_WHERE_P RETURN VARCHAR2 IS
808 BEGIN
809 RETURN P_SOURCE_WHERE;
810 END P_SOURCE_WHERE_P;
811
812 FUNCTION P_CATEGORY_WHERE_P RETURN VARCHAR2 IS
813 BEGIN
814 RETURN P_CATEGORY_WHERE;
815 END P_CATEGORY_WHERE_P;
816
817 FUNCTION P_BATCH_WHERE_P RETURN VARCHAR2 IS
818 BEGIN
819 RETURN P_BATCH_WHERE;
820 END P_BATCH_WHERE_P;
821
822 FUNCTION P_DOC_SEQ_WHERE_P RETURN VARCHAR2 IS
823 BEGIN
824 RETURN P_DOC_SEQ_WHERE;
825 END P_DOC_SEQ_WHERE_P;
826
827 FUNCTION P_DATE_WHERE_P RETURN VARCHAR2 IS
828 BEGIN
829 RETURN P_DATE_WHERE;
830 END P_DATE_WHERE_P;
831
832 FUNCTION P_LEDGER_FROM_P RETURN VARCHAR2 IS
833 BEGIN
834 RETURN P_LEDGER_FROM;
835 END P_LEDGER_FROM_P;
836
837 FUNCTION P_LEDGER_WHERE_P RETURN VARCHAR2 IS
838 BEGIN
839 RETURN P_LEDGER_WHERE;
840 END P_LEDGER_WHERE_P;
841
842 FUNCTION TEMP_ENVIRONMENT_CODE_P RETURN VARCHAR2 IS
843 BEGIN
844 RETURN TEMP_ENVIRONMENT_CODE;
845 END TEMP_ENVIRONMENT_CODE_P;
846
847 FUNCTION TEMP_LEDGER_ID_P RETURN NUMBER IS
848 BEGIN
849 RETURN TEMP_LEDGER_ID;
850 END TEMP_LEDGER_ID_P;
851
852 FUNCTION TEMP_LEGAL_ENTITY_ID_P RETURN NUMBER IS
853 BEGIN
854 RETURN TEMP_LEGAL_ENTITY_ID;
855 END TEMP_LEGAL_ENTITY_ID_P;
856
857 FUNCTION JRNL_SOURCE_PARAM_P RETURN VARCHAR2 IS
858 BEGIN
859 RETURN JRNL_SOURCE_PARAM;
860 END JRNL_SOURCE_PARAM_P;
861
862 FUNCTION JRNL_CATEGORY_PARAM_P RETURN VARCHAR2 IS
863 BEGIN
864 RETURN JRNL_CATEGORY_PARAM;
865 END JRNL_CATEGORY_PARAM_P;
866
867 FUNCTION BATCH_NAME_PARAM_P RETURN VARCHAR2 IS
868 BEGIN
869 RETURN BATCH_NAME_PARAM;
870 END BATCH_NAME_PARAM_P;
871
872 FUNCTION DOC_SEQ_NAME_PARAM_P RETURN VARCHAR2 IS
873 BEGIN
874 RETURN DOC_SEQ_NAME_PARAM;
875 END DOC_SEQ_NAME_PARAM_P;
876
877 FUNCTION START_DOC_SEQ_NUM_PARAM_P RETURN NUMBER IS
878 BEGIN
879 RETURN START_DOC_SEQ_NUM_PARAM;
880 END START_DOC_SEQ_NUM_PARAM_P;
881
882 FUNCTION END_DOC_SEQ_NUM_PARAM_P RETURN NUMBER IS
883 BEGIN
884 RETURN END_DOC_SEQ_NUM_PARAM;
885 END END_DOC_SEQ_NUM_PARAM_P;
886
887 FUNCTION POSTING_STATUS_PARAM_P RETURN VARCHAR2 IS
888 BEGIN
889 RETURN POSTING_STATUS_PARAM;
890 END POSTING_STATUS_PARAM_P;
891
892 FUNCTION P_PERIOD_INX_HINT_P RETURN VARCHAR2 IS
893 BEGIN
894 RETURN P_PERIOD_INX_HINT;
895 END P_PERIOD_INX_HINT_P;
896
897 FUNCTION P_FROM_CLAUSE_P RETURN VARCHAR2 IS
898 BEGIN
899 RETURN P_FROM_CLAUSE;
900 END P_FROM_CLAUSE_P;
901
902 END JG_JGZZGLJRN_XMLP_PKG;
903
904