1 PACKAGE BODY AP_APXSUIMP_XMLP_PKG AS
2 /* $Header: APXSUIMPB.pls 120.0 2007/12/27 08:33:20 vjaganat noship $ */
3 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
4 NLS_VOID AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
5 NLS_NA AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
6 NLS_ALL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
7 NLS_YES FND_LOOKUPS.MEANING%TYPE;
8 NLS_NO FND_LOOKUPS.MEANING%TYPE;
9 l_dummy number;
10 BEGIN
11 SELECT
12 LY.MEANING,
13 LN.MEANING,
14 L1.DISPLAYED_FIELD,
15 L2.DISPLAYED_FIELD,
16 L3.DISPLAYED_FIELD
17 INTO NLS_YES,NLS_NO,NLS_ALL,NLS_VOID,NLS_NA
18 FROM
19 FND_LOOKUPS LY,
20 FND_LOOKUPS LN,
21 AP_LOOKUP_CODES L1,
22 AP_LOOKUP_CODES L2,
23 AP_LOOKUP_CODES L3
24 WHERE LY.LOOKUP_TYPE = 'YES_NO'
25 AND LY.LOOKUP_CODE = 'Y'
26 AND LN.LOOKUP_TYPE = 'YES_NO'
27 AND LN.LOOKUP_CODE = 'N'
28 AND L1.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
29 AND L1.LOOKUP_CODE = 'ALL'
30 AND L2.LOOKUP_TYPE = 'NLS TRANSLATION'
31 AND L2.LOOKUP_CODE = 'VOID'
32 AND L3.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
33 AND L3.LOOKUP_CODE = 'NA';
34 C_NLS_YES := NLS_YES;
35 C_NLS_NO := NLS_NO;
36 C_NLS_ALL := NLS_ALL;
37 C_NLS_VOID := NLS_VOID;
38 C_NLS_NA := NLS_NA;
39
40 FND_MESSAGE.GET_TEXT_NUMBER('SQLAP'
41 ,'AP_APPRVL_NO_DATA',
42 C_NLS_NO_DATA_EXISTS,
43 l_dummy);
44 FND_MESSAGE.GET_TEXT_NUMBER('SQLAP'
45 ,'AP_ALL_END_OF_REPORT',
46 C_NLS_END_OF_REPORT,
47 l_dummy);
48 /*C_NLS_NO_DATA_EXISTS := '*** ' || C_NLS_NO_DATA_EXISTS || ' ***';
49 C_NLS_END_OF_REPORT := '*** ' || C_NLS_END_OF_REPORT || ' ***';*/
50 RETURN (TRUE);
51 RETURN NULL;
52 EXCEPTION
53 WHEN OTHERS THEN
54 RETURN (FALSE);
55 END GET_NLS_STRINGS;
56
57 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
58 BEGIN
59 DECLARE
60 INIT_FAILURE EXCEPTION;
61 L_VENDOR_ID NUMBER;
62 L_RETURN_STATUS VARCHAR2(50);
63 L_MSG_COUNT NUMBER;
64 L_MSG_DATA VARCHAR2(2000);
65 BEGIN
66 C_REPORT_START_DATE := SYSDATE;
67 -- P_DEBUG_SWITCH := 'Y';
68 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
69 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
70 NULL;
71 END IF;
72 IF (GET_COMPANY_NAME <> TRUE) THEN
73 RAISE INIT_FAILURE;
74 END IF;
75 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
76 NULL;
77 END IF;
78 IF (GET_NLS_STRINGS <> TRUE) THEN
79 RAISE INIT_FAILURE;
80 END IF;
81 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
82 NULL;
83 END IF;
84 AP_VENDOR_PUB_PKG.IMPORT_VENDORS(P_API_VERSION => 1.0
85 ,P_SOURCE => 'IMPORT'
86 ,P_WHAT_TO_IMPORT => P_WHAT_TO_IMPORT
87 ,P_COMMIT_SIZE => P_COMMIT_SIZE
88 ,X_RETURN_STATUS => L_RETURN_STATUS
89 ,X_MSG_COUNT => L_MSG_COUNT
90 ,X_MSG_DATA => L_MSG_DATA);
91 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
92 NULL;
93 END IF;
94 IF (GET_HEADER_INFORMATION <> TRUE) THEN
95 RAISE INIT_FAILURE;
96 END IF;
97 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
98 NULL;
99 END IF;
100 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
101 NULL;
102 END IF;
103 RETURN (TRUE);
104 EXCEPTION
105 WHEN OTHERS THEN
106 RAISE_APPLICATION_ERROR(-20101
107 ,NULL);
108 END;
109 RETURN (TRUE);
110 END BEFOREREPORT;
111
112 FUNCTION AFTERREPORT RETURN BOOLEAN IS
113 BEGIN
114 UPDATE
115 AP_SUPPLIERS_INT
116 SET
117 IMPORT_REQUEST_ID = NULL
118 WHERE STATUS <> 'PROCESSED'
119 AND IMPORT_REQUEST_ID = P_CONC_REQUEST_ID;
120 BEGIN
121 IF (P_DEBUG_SWITCH = 'Y') THEN
122 NULL;
123 END IF;
124 EXCEPTION
125 WHEN OTHERS THEN
126 RAISE_APPLICATION_ERROR(-20101
127 ,NULL);
128 END;
129 RETURN (TRUE);
130 END AFTERREPORT;
131
132 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
133 L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
134 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
135 L_SOB_ID NUMBER;
136 BEGIN
137 IF P_SET_OF_BOOKS_ID IS NULL THEN
138 FND_PROFILE.GET('GL_SET_OF_BKS_ID'
139 ,L_SOB_ID);
140 ELSE
141 L_SOB_ID := P_SET_OF_BOOKS_ID;
142 END IF;
143 IF L_SOB_ID IS NOT NULL THEN
144 SELECT
145 NAME,
146 CHART_OF_ACCOUNTS_ID
147 INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
148 FROM
149 GL_SETS_OF_BOOKS
150 WHERE SET_OF_BOOKS_ID = L_SOB_ID;
151 C_COMPANY_NAME_HEADER := L_NAME;
152 C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
153 END IF;
154 RETURN (TRUE);
155 RETURN NULL;
156 EXCEPTION
157 WHEN OTHERS THEN
158 RETURN (FALSE);
159 END GET_COMPANY_NAME;
160
161 FUNCTION GET_HEADER_INFORMATION RETURN BOOLEAN IS
162 BEGIN
163 SELECT
164 DISPLAYED_FIELD
165 INTO C_IMPORT_OPTIONS
166 FROM
167 AP_LOOKUP_CODES
168 WHERE LOOKUP_TYPE = 'AP_IMPORT_OPTIONS'
169 AND LOOKUP_CODE = P_WHAT_TO_IMPORT;
170 IF P_PRINT_EXCEPTIONS = 'Y' THEN
171 C_PRINT_EXCEPTIONS := C_NLS_YES;
172 ELSE
173 C_PRINT_EXCEPTIONS := C_NLS_NO;
174 END IF;
175 RETURN (TRUE);
176 RETURN NULL;
177 EXCEPTION
178 WHEN OTHERS THEN
179 RETURN (FALSE);
180 END GET_HEADER_INFORMATION;
181
182 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
183 BEGIN
184 RETURN C_NLS_YES;
185 END C_NLS_YES_P;
186
187 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
188 BEGIN
189 RETURN C_NLS_NO;
190 END C_NLS_NO_P;
191
192 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
193 BEGIN
194 RETURN C_NLS_ALL;
195 END C_NLS_ALL_P;
196
197 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
198 BEGIN
199 RETURN C_NLS_NO_DATA_EXISTS;
200 END C_NLS_NO_DATA_EXISTS_P;
201
202 FUNCTION C_NLS_VOID_P RETURN VARCHAR2 IS
203 BEGIN
204 RETURN C_NLS_VOID;
205 END C_NLS_VOID_P;
206
207 FUNCTION C_NLS_NA_P RETURN VARCHAR2 IS
208 BEGIN
209 RETURN C_NLS_NA;
210 END C_NLS_NA_P;
211
212 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
213 BEGIN
214 RETURN C_NLS_END_OF_REPORT;
215 END C_NLS_END_OF_REPORT_P;
216
217 FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
218 BEGIN
219 RETURN C_REPORT_START_DATE;
220 END C_REPORT_START_DATE_P;
221
222 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
223 BEGIN
224 RETURN C_COMPANY_NAME_HEADER;
225 END C_COMPANY_NAME_HEADER_P;
226
227 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
228 BEGIN
229 RETURN C_BASE_CURRENCY_CODE;
230 END C_BASE_CURRENCY_CODE_P;
231
232 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
233 BEGIN
234 RETURN C_BASE_PRECISION;
235 END C_BASE_PRECISION_P;
236
237 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
238 BEGIN
239 RETURN C_BASE_MIN_ACCT_UNIT;
240 END C_BASE_MIN_ACCT_UNIT_P;
241
242 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
243 BEGIN
244 RETURN C_BASE_DESCRIPTION;
245 END C_BASE_DESCRIPTION_P;
246
247 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
248 BEGIN
249 RETURN C_CHART_OF_ACCOUNTS_ID;
250 END C_CHART_OF_ACCOUNTS_ID_P;
251
252 FUNCTION APPLICATIONS_TEMPLATE_REPORT_P RETURN VARCHAR2 IS
253 BEGIN
254 RETURN APPLICATIONS_TEMPLATE_REPORT;
255 END APPLICATIONS_TEMPLATE_REPORT_P;
256
257 FUNCTION C_IMPORT_OPTIONS_P RETURN VARCHAR2 IS
258 BEGIN
259 RETURN C_IMPORT_OPTIONS;
260 END C_IMPORT_OPTIONS_P;
261
262 FUNCTION C_PRINT_EXCEPTIONS_P RETURN VARCHAR2 IS
263 BEGIN
264 RETURN C_PRINT_EXCEPTIONS;
265 END C_PRINT_EXCEPTIONS_P;
266
267 END AP_APXSUIMP_XMLP_PKG;
268