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