1 PACKAGE BODY JL_JLCOFDDR_XMLP_PKG AS
2 /* $Header: JLCOFDDRB.pls 120.1 2007/12/25 16:46:30 dwkrishn noship $ */
3 FUNCTION BOOKFORMULA RETURN VARCHAR2 IS
4 BEGIN
5 DECLARE
6 L_BOOK VARCHAR2(15);
7 L_BOOK_CLASS VARCHAR2(15);
8 L_ACCOUNTING_FLEX_STRUCTURE NUMBER(15);
9 L_CURRENCY_CODE VARCHAR2(15);
10 L_DISTRIBUTION_SOURCE_BOOK VARCHAR2(15);
11 L_PRECISION NUMBER(15);
12 BEGIN
13 SELECT
14 BC.BOOK_TYPE_CODE,
15 BC.BOOK_CLASS,
16 BC.ACCOUNTING_FLEX_STRUCTURE,
17 BC.DISTRIBUTION_SOURCE_BOOK,
18 SOB.CURRENCY_CODE,
19 CUR.PRECISION
20 INTO L_BOOK,L_BOOK_CLASS,L_ACCOUNTING_FLEX_STRUCTURE,L_DISTRIBUTION_SOURCE_BOOK,L_CURRENCY_CODE,L_PRECISION
21 FROM
22 FA_BOOK_CONTROLS BC,
23 GL_SETS_OF_BOOKS SOB,
24 FND_CURRENCIES CUR
25 WHERE BC.BOOK_TYPE_CODE = P_BOOK
26 AND SOB.SET_OF_BOOKS_ID = BC.SET_OF_BOOKS_ID
27 AND SOB.CURRENCY_CODE = CUR.CURRENCY_CODE;
28 BOOK_CLASS := L_BOOK_CLASS;
29 ACCOUNTING_FLEX_STRUCTURE := L_ACCOUNTING_FLEX_STRUCTURE;
30 DISTRIBUTION_SOURCE_BOOK := L_DISTRIBUTION_SOURCE_BOOK;
31 CURRENCY_CODE := L_CURRENCY_CODE;
32 P_MIN_PRECISION := L_PRECISION;
33 RETURN (L_BOOK);
34 END;
35 RETURN NULL;
36 END BOOKFORMULA;
37
38 FUNCTION PERIOD1FORMULA RETURN VARCHAR2 IS
39 BEGIN
40 DECLARE
41 L_PERIOD_NAME VARCHAR2(15);
42 L_PERIOD_POD DATE;
43 L_PERIOD_PCD DATE;
44 L_PERIOD_PC NUMBER(15);
45 L_PERIOD_FY NUMBER(15);
46 BEGIN
47 SELECT
48 PERIOD_NAME,
49 PERIOD_COUNTER,
50 PERIOD_OPEN_DATE,
51 NVL(PERIOD_CLOSE_DATE
52 ,SYSDATE),
53 FISCAL_YEAR
54 INTO L_PERIOD_NAME,L_PERIOD_PC,L_PERIOD_POD,L_PERIOD_PCD,L_PERIOD_FY
55 FROM
56 FA_DEPRN_PERIODS
57 WHERE BOOK_TYPE_CODE = P_BOOK
58 AND PERIOD_NAME = P_PERIOD1;
59 PERIOD1_PC := L_PERIOD_PC;
60 PERIOD1_POD := L_PERIOD_POD;
61 PERIOD1_PCD := L_PERIOD_PCD;
62 PERIOD1_FY := L_PERIOD_FY;
63 RETURN (L_PERIOD_NAME);
64 END;
65 RETURN NULL;
66 END PERIOD1FORMULA;
67
68 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
69 BEGIN
70 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
71 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
72 /*SRW.REFERENCE(P_BATCH_ID)*/NULL;
73 IF P_BATCH_ID IS NOT NULL THEN
74 C_DYNAMIC_WHERE_CLAUSE := ' and jh.je_batch_id = :P_BATCH_ID';
75 ELSE
76 C_DYNAMIC_WHERE_CLAUSE := ' and 1 = 1';
77 END IF;
78 /*SRW.REFERENCE(P_LINE_NUM)*/NULL;
79 IF P_LINE_NUM IS NOT NULL THEN
80 C_DYNAMIC_WHERE_CLAUSE := C_DYNAMIC_WHERE_CLAUSE || ' and jl1.je_line_num = :P_LINE_NUM';
81 END IF;
82 /*SRW.REFERENCE(P_ACCT_CCID)*/NULL;
83 IF P_ACCT_CCID IS NOT NULL THEN
84 C_DYNAMIC_WHERE_CLAUSE := C_DYNAMIC_WHERE_CLAUSE || ' and aj.code_combination_id = :P_ACCT_CCID';
85 END IF;
86 RETURN (TRUE);
87 END BEFOREREPORT;
88
89 FUNCTION AFTERREPORT RETURN BOOLEAN IS
90 BEGIN
91 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
92 RETURN (TRUE);
93 END AFTERREPORT;
94
95 FUNCTION F_COMP_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
96 BEGIN
97 RP_COMPANY_NAME := COMPANY_NAME;
98 RETURN NULL;
99 END F_COMP_NAMEFORMULA;
100
101 FUNCTION ACCOUNTING_FLEX_STRUCTURE_P RETURN NUMBER IS
102 BEGIN
103 RETURN ACCOUNTING_FLEX_STRUCTURE;
104 END ACCOUNTING_FLEX_STRUCTURE_P;
105
106 FUNCTION CURRENCY_CODE_P RETURN VARCHAR2 IS
107 BEGIN
108 RETURN CURRENCY_CODE;
109 END CURRENCY_CODE_P;
110
111 FUNCTION BOOK_CLASS_P RETURN VARCHAR2 IS
112 BEGIN
113 RETURN BOOK_CLASS;
114 END BOOK_CLASS_P;
115
116 FUNCTION DISTRIBUTION_SOURCE_BOOK_P RETURN VARCHAR2 IS
117 BEGIN
118 RETURN DISTRIBUTION_SOURCE_BOOK;
119 END DISTRIBUTION_SOURCE_BOOK_P;
120
121 FUNCTION PERIOD1_PC_P RETURN NUMBER IS
122 BEGIN
123 RETURN PERIOD1_PC;
124 END PERIOD1_PC_P;
125
126 FUNCTION PERIOD1_PCD_P RETURN DATE IS
127 BEGIN
128 RETURN PERIOD1_PCD;
129 END PERIOD1_PCD_P;
130
131 FUNCTION PERIOD1_POD_P RETURN DATE IS
132 BEGIN
133 RETURN PERIOD1_POD;
134 END PERIOD1_POD_P;
135
136 FUNCTION PERIOD1_FY_P RETURN NUMBER IS
137 BEGIN
138 RETURN PERIOD1_FY;
139 END PERIOD1_FY_P;
140
141 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
142 BEGIN
143 RETURN RP_COMPANY_NAME;
144 END RP_COMPANY_NAME_P;
145
146 FUNCTION C_DYNAMIC_WHERE_CLAUSE_P RETURN VARCHAR2 IS
147 BEGIN
148 RETURN C_DYNAMIC_WHERE_CLAUSE;
149 END C_DYNAMIC_WHERE_CLAUSE_P;
150
151 END JL_JLCOFDDR_XMLP_PKG;
152
153
154
[Home] [Help]