[Home] [Help]
PACKAGE BODY: APPS.JL_JLBRPCIR_XMLP_PKG
Source
1 PACKAGE BODY JL_JLBRPCIR_XMLP_PKG AS
2 /* $Header: JLBRPCIRB.pls 120.1 2007/12/25 16:39:41 dwkrishn noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
6 RETURN (TRUE);
7 END AFTERREPORT;
8
9 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
10 INIT_FAILURE EXCEPTION;
11 BEGIN
12 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
13 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
14 BEGIN
15 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
16 /* EXCEPTION
17 WHEN SRW.UNKNOWN_USER_EXIT OTHERS THEN
18 SRW.MESSAGE(01
19 ,'FND SRWINIT user exit is unknown.')NULL;
20 RAISE;
21 WHEN SRW.USER_EXIT_FAILURE OTHERS THEN
22 SRW.MESSAGE(02
23 ,'FND SRWINIT user exit failed.')NULL;
24 RAISE;
25 */
26 END;
27 IF (GET_COMPANY_NAME <> TRUE) THEN
28 RAISE INIT_FAILURE;
29 END IF;
30 IF (GET_NLS_STRINGS <> TRUE) THEN
31 RAISE INIT_FAILURE;
32 END IF;
33 BEGIN
34 SELECT
35 CHART_OF_ACCOUNTS_ID
36 INTO C_CHART_OF_ACCOUNTS_ID
37 FROM
38 GL_SETS_OF_BOOKS
39 WHERE SET_OF_BOOKS_ID = P_SET_OF_BOOKS_ID;
40 EXCEPTION
41 WHEN NO_DATA_FOUND THEN
42 /*SRW.MESSAGE(09
43 ,'Cannot find set_of_books information')*/NULL;
44 RAISE;
45 END;
46 /*
47 BEGIN
48 SRW.REFERENCE(C_CHART_OF_ACCOUNTS_ID) NULL;
49 EXCEPTION
50 WHEN SRW.UNKNOWN_USER_EXIT OTHERS THEN
51 SRW.MESSAGE(11
52 ,'FND FLEXSQL user exit is unknown.')NULL;
53 RAISE;
54 WHEN SRW.USER_EXIT_FAILURE OTHERS THEN
55 SRW.MESSAGE(12
56 ,'FND FLEXSQL user exit failed.') NULL;
57 RAISE;
58 END;*/
59 IF (SET_P_WHERE <> TRUE) THEN
60 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
61 END IF;
62 RETURN (TRUE);
63 RETURN NULL;
64 EXCEPTION
65 WHEN OTHERS THEN
66 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
67 RETURN (FALSE);
68 END BEFOREREPORT;
69
70 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
71 L_CHART_OF_ACCOUNTS_ID NUMBER;
72 L_NAME VARCHAR2(30);
73 L_SOB_ID NUMBER;
74 BEGIN
75 SELECT
76 SET_OF_BOOKS_ID
77 INTO L_SOB_ID
78 FROM
79 AP_SYSTEM_PARAMETERS;
80 P_SOB_ID := L_SOB_ID;
81 P_SET_OF_BOOKS_ID := L_SOB_ID;
82 SELECT
83 SUBSTR(NAME
84 ,1
85 ,30),
86 CHART_OF_ACCOUNTS_ID
87 INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
88 FROM
89 GL_SETS_OF_BOOKS
90 WHERE SET_OF_BOOKS_ID = L_SOB_ID;
91 C_COMPANY_NAME_HEADER := L_NAME;
92 C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
93 RETURN (TRUE);
94 RETURN NULL;
95 EXCEPTION
96 WHEN OTHERS THEN
97 RETURN (FALSE);
98 END GET_COMPANY_NAME;
99
100 FUNCTION SET_P_WHERE RETURN BOOLEAN IS
101 L_NLS_YES VARCHAR2(4);
102 L_TYPE_OF_REPORT VARCHAR2(40);
103 BEGIN
104 IF (C_USER_ID IS NOT NULL) THEN
105 C_CREATED_BY_PREDICATE := 'and cons.created_by = ' || C_USER_ID;
106 ELSIF (C_USER_ID IS NULL) THEN
107 C_CREATED_BY_PREDICATE := ' ';
108 END IF;
109 RETURN (TRUE);
110 END SET_P_WHERE;
111
112 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
113 NLS_ALL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
114 NLS_NO_DATA VARCHAR2(2008);
115 NLS_END VARCHAR2(2008);
116 NLS_YES FND_LOOKUPS.MEANING%TYPE;
117 NLS_NO FND_LOOKUPS.MEANING%TYPE;
118 BEGIN
119 NLS_ALL := '';
120 NLS_NO_DATA := '';
121 NLS_YES := '';
122 NLS_NO := '';
123 SELECT
124 LY.MEANING,
125 LN.MEANING,
126 LA.DISPLAYED_FIELD
127 INTO NLS_YES,NLS_NO,NLS_ALL
128 FROM
129 FND_LOOKUPS LY,
130 FND_LOOKUPS LN,
131 AP_LOOKUP_CODES LA
132 WHERE LY.LOOKUP_TYPE = 'YES_NO'
133 AND LY.LOOKUP_CODE = 'Y'
134 AND LN.LOOKUP_TYPE = 'YES_NO'
135 AND LN.LOOKUP_CODE = 'N'
136 AND LA.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
137 AND LA.LOOKUP_CODE = 'ALL';
138 C_NLS_YES := NLS_YES;
139 C_NLS_NO := NLS_NO;
140 C_NLS_ALL := NLS_ALL;
141 FND_MESSAGE.SET_NAME('SQLAP'
142 ,'AP_APPRVL_NO_DATA');
143 NLS_NO_DATA := '*** ' || FND_MESSAGE.GET || ' ***';
144 FND_MESSAGE.SET_NAME('SQLAP'
145 ,'AP_ALL_END_OF_REPORT');
146 NLS_END := '*** ' || FND_MESSAGE.GET || ' ***';
147 C_NLS_NO_DATA_EXISTS := NLS_NO_DATA;
148 C_NLS_END_OF_REPORT := NLS_END;
149 RETURN (TRUE);
150 RETURN NULL;
151 EXCEPTION
152 WHEN OTHERS THEN
153 RETURN (FALSE);
154 END GET_NLS_STRINGS;
155
156 FUNCTION AFTERPFORM RETURN BOOLEAN IS
157 BEGIN
158 IF (P_START_DATE IS NOT NULL) THEN
159 LP_START_DATE_PREDICATE := ' and cons.invoice_date >= :P_start_date ';
160 ELSIF (P_START_DATE IS NULL) THEN
161 LP_START_DATE_PREDICATE := ' ';
162 END IF;
163 IF (P_END_DATE IS NOT NULL) THEN
164 LP_END_DATE_PREDICATE := ' and cons.invoice_date <= :P_end_date ';
165 ELSIF (P_END_DATE IS NULL) THEN
166 LP_END_DATE_PREDICATE := ' ';
167 END IF;
168 RETURN (TRUE);
169 END AFTERPFORM;
170
171 FUNCTION P_FLEXDATA_P RETURN VARCHAR2 IS
172 BEGIN
173 RETURN P_FLEXDATA;
174 END P_FLEXDATA_P;
175
176 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN VARCHAR2 IS
177 BEGIN
178 RETURN C_CHART_OF_ACCOUNTS_ID;
179 END C_CHART_OF_ACCOUNTS_ID_P;
180
181 FUNCTION C_START_DATE_PREDICATE_P RETURN VARCHAR2 IS
182 BEGIN
183 RETURN C_START_DATE_PREDICATE;
184 END C_START_DATE_PREDICATE_P;
185
186 FUNCTION C_END_DATE_PREDICATE_P RETURN VARCHAR2 IS
187 BEGIN
188 RETURN C_END_DATE_PREDICATE;
189 END C_END_DATE_PREDICATE_P;
190
191 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
192 BEGIN
193 RETURN C_COMPANY_NAME_HEADER;
194 END C_COMPANY_NAME_HEADER_P;
195
196 FUNCTION C_USER_ID_P RETURN VARCHAR2 IS
197 BEGIN
198 RETURN C_USER_ID;
199 END C_USER_ID_P;
200
201 FUNCTION C_CREATED_BY_PREDICATE_P RETURN VARCHAR2 IS
202 BEGIN
203 RETURN C_CREATED_BY_PREDICATE;
204 END C_CREATED_BY_PREDICATE_P;
205
206 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
207 BEGIN
208 RETURN C_NLS_END_OF_REPORT;
209 END C_NLS_END_OF_REPORT_P;
210
211 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
212 BEGIN
213 RETURN C_NLS_NO_DATA_EXISTS;
214 END C_NLS_NO_DATA_EXISTS_P;
215
216 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
217 BEGIN
218 RETURN C_NLS_YES;
219 END C_NLS_YES_P;
220
221 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
222 BEGIN
223 RETURN C_NLS_NO;
224 END C_NLS_NO_P;
225
226 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
227 BEGIN
228 RETURN C_NLS_ALL;
229 END C_NLS_ALL_P;
230
231 FUNCTION C_NLA_NA_P RETURN VARCHAR2 IS
232 BEGIN
233 RETURN C_NLA_NA;
234 END C_NLA_NA_P;
235
236 END JL_JLBRPCIR_XMLP_PKG;
237
238