[Home] [Help]
PACKAGE BODY: APPS.ZX_EVNT_OPTIONS_MIGRATE_PKG
Source
1 PACKAGE BODY ZX_EVNT_OPTIONS_MIGRATE_PKG as
2 /* $Header: zxevntoptmigpkgb.pls 120.25.12010000.1 2008/07/28 13:31:35 appldev ship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_EVNT_OPTIONS_MIGRATE_PKG';
5 G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6 G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7 G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8 G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9 G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10 G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11 G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12 G_MODULE_NAME CONSTANT VARCHAR2(250):= 'ZX.PLSQL.ZX_EVNT_OPTIONS_MIGRATE_PKG.';
13
14 l_multi_org_flag fnd_product_groups.multi_org_flag%type;
15 l_org_id NUMBER(15);
16
17
18 PROCEDURE AP_OPTIONS_MIGRATE (x_return_status OUT NOCOPY VARCHAR2) IS
19
20 l_api_name CONSTANT VARCHAR2(30) := 'AP_OPTIONS_MIGRATE';
21
22 BEGIN
23 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
24 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
25 END IF;
26
27 x_return_status := FND_API.G_RET_STS_SUCCESS;
28
29 INSERT INTO ZX_EVNT_CLS_OPTIONS (
30 EVENT_CLASS_OPTIONS_ID,
31 APPLICATION_ID,
32 ENTITY_CODE,
33 EVENT_CLASS_CODE,
34 DET_FACTOR_TEMPL_CODE,
35 DEFAULT_ROUNDING_LEVEL_CODE,
36 ROUNDING_LEVEL_HIER_1_CODE,
37 ROUNDING_LEVEL_HIER_2_CODE,
38 ROUNDING_LEVEL_HIER_3_CODE,
39 ROUNDING_LEVEL_HIER_4_CODE,
40 ALLOW_MANUAL_LIN_RECALC_FLAG,
41 ALLOW_OVERRIDE_FLAG,
42 ALLOW_MANUAL_LINES_FLAG,
43 PERF_ADDNL_APPL_FOR_IMPRT_FLAG,
44 EFFECTIVE_FROM,
45 EFFECTIVE_TO,
46 ENABLED_FLAG,
47 FIRST_PTY_ORG_ID,
48 ENFORCE_TAX_FROM_ACCT_FLAG,
49 TAX_TOLERANCE,
50 TAX_TOL_AMT_RANGE,
51 RECORD_TYPE_CODE,
52 OFFSET_TAX_BASIS_CODE,
53 ALLOW_OFFSET_TAX_CALC_FLAG,
54 ENTER_OVRD_INCL_TAX_LINES_FLAG,
55 CTRL_EFF_OVRD_CALC_LINES_FLAG,
56 ENFORCE_TAX_FROM_REF_DOC_FLAG,
57 PROCESS_FOR_APPLICABILITY_FLAG,
58 OBJECT_VERSION_NUMBER,
59 ALLOW_EXEMPTIONS_FLAG,
60 EXMPTN_PTY_BASIS_HIER_1_CODE,
61 EXMPTN_PTY_BASIS_HIER_2_CODE,
62 DEF_INTRCMP_TRX_BIZ_CATEGORY,
63 CREATION_DATE,
64 CREATED_BY,
65 LAST_UPDATE_DATE,
66 LAST_UPDATED_BY,
67 LAST_UPDATE_LOGIN
68 )
69 SELECT ZX_EVNT_CLS_OPTIONS_S.nextval,
70 mapping.application_id,
71 mapping.entity_code,
72 mapping.event_class_code,
73 'STCC',
74 decode(sys.auto_tax_calc_flag,'Y','HEADER','L','LINE','T','HEADER','N',mapping.default_rounding_level_code),
75 decode (sys.auto_tax_calc_override,'Y','SHIP_FROM_PTY_SITE','N','SHIP_TO_PTY'),
76 decode (sys.auto_tax_calc_override,'Y','SHIP_FROM_PTY','N',null),
77 decode (sys.auto_tax_calc_override,'Y','SHIP_TO_PTY_SITE','N',null),
78 decode (sys.auto_tax_calc_override,'Y','SHIP_TO_PTY','N',null),
79 decode (mapping.allow_manual_lin_recalc_flag,'Y','Y','N'),
80 'N',
81 decode(mapping.allow_manual_lines_flag,'Y','Y','N'),
82 decode(mapping.perf_addnl_appl_for_imprt_flag,'Y','Y','N'),
83 to_date('01-01-1951','DD-MM-YYYY'),
84 null,
85 'Y',
86 ptp.party_tax_profile_id,
87 decode(mapping.enforce_tax_from_acct_flag,'Y',nvl(sys.enforce_tax_from_account,'N'),'N'),
88 sys.tax_tolerance, --Bug 5117926
89 sys.tax_tol_amt_range, --Bug 5117926
90 'MIGRATED',
91 'SHIP_FROM_SITE',
92 decode(mapping.allow_offset_tax_calc_flag,'Y','Y','N'),
93 decode(mapping.enter_ovrd_incl_taX_lines_flag,'Y','Y','N'),
94 decode(mapping.ctrl_eff_ovrd_calc_lines_flag,'Y','Y','N'),
95 decode(mapping.enforce_tax_from_ref_doc_flag,'Y',nvl(sys.MATCH_ON_TAX_FLAG,'N'),'N'),
96 decode(sys.AUTO_TAX_CALC_FLAG,'N','N','Y'),
97 1,
98 'N',
99 null,
100 null,
101 decode(mapping.intrcmp_tx_evnt_cls_code,'INTERCOMPANY_TRANSACTION','INTERCOMPANY_TRANSACTION'),
102 ptp.CREATION_DATE,
103 ptp.CREATED_BY,
104 ptp.LAST_UPDATE_DATE,
105 ptp.LAST_UPDATED_BY,
106 ptp.LAST_UPDATE_LOGIN
107 FROM ZX_PARTY_TAX_PROFILE ptp,
108 AP_SYSTEM_PARAMETERS_ALL sys,
109 -- AP_TOLERANCE_TEMPLATES tol, --Bug 5117926
110 ZX_EVNT_CLS_MAPPINGS mapping
111 WHERE mapping.application_id = 200
112 AND decode(l_multi_org_flag,'N',l_org_id,sys.org_id) = ptp.party_id
113 -- AND sys.tolerance_id = tol.tolerance_id(+) -- Bug 5232304 --Bug 5117926
114 AND ptp.PARTY_TYPE_CODE ='OU'
115 AND ptp.record_type_code='MIGRATED' -- Bug 6837760
116 AND NOT EXISTS (SELECT 1
117 FROM ZX_EVNT_CLS_OPTIONS opt
118 WHERE opt.FIRST_PTY_ORG_ID = ptp.party_tax_profile_id
119 AND opt.APPLICATION_ID = mapping.application_id
120 AND opt.ENTITY_CODE = mapping.entity_code
121 AND opt.EVENT_CLASS_CODE = mapping.event_class_code
122 );
123
124
125
126 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
127 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
128 END IF;
129
130 EXCEPTION
131 WHEN OTHERS THEN
132 x_return_status := FND_API.G_RET_STS_ERROR ;
133 FND_MESSAGE.SET_NAME ('ZX','GENERIC_MESSAGE');
134 FND_MESSAGE.SET_TOKEN ('GENERIC_TEXT',' AP Event Class Options Migration : '||SQLERRM);
135 FND_MSG_PUB.Add;
136 IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
137 FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
138 END IF;
139 END AP_OPTIONS_MIGRATE;
140
141
142 PROCEDURE AR_OPTIONS_MIGRATE (x_return_status OUT NOCOPY VARCHAR2) IS
143
144 l_api_name CONSTANT VARCHAR2(30) := 'AR_OPTIONS_MIGRATE';
145
146 BEGIN
147 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
148 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
149 END IF;
150
151 x_return_status := FND_API.G_RET_STS_SUCCESS;
152
153 INSERT INTO ZX_EVNT_CLS_OPTIONS (
154 EVENT_CLASS_OPTIONS_ID,
155 APPLICATION_ID,
156 ENTITY_CODE,
157 EVENT_CLASS_CODE,
158 DET_FACTOR_TEMPL_CODE,
159 DEFAULT_ROUNDING_LEVEL_CODE,
160 ROUNDING_LEVEL_HIER_1_CODE,
161 ROUNDING_LEVEL_HIER_2_CODE,
162 ROUNDING_LEVEL_HIER_3_CODE,
163 ROUNDING_LEVEL_HIER_4_CODE,
164 ALLOW_MANUAL_LIN_RECALC_FLAG,
165 ALLOW_OVERRIDE_FLAG,
166 ALLOW_MANUAL_LINES_FLAG,
167 PERF_ADDNL_APPL_FOR_IMPRT_FLAG,
168 EFFECTIVE_FROM,
169 EFFECTIVE_TO,
170 ENABLED_FLAG,
171 FIRST_PTY_ORG_ID,
172 ENFORCE_TAX_FROM_ACCT_FLAG,
173 TAX_TOLERANCE,
174 TAX_TOL_AMT_RANGE,
175 RECORD_TYPE_CODE,
176 OFFSET_TAX_BASIS_CODE,
177 ALLOW_OFFSET_TAX_CALC_FLAG,
178 ENTER_OVRD_INCL_TAX_LINES_FLAG,
179 CTRL_EFF_OVRD_CALC_LINES_FLAG,
180 ENFORCE_TAX_FROM_REF_DOC_FLAG,
181 PROCESS_FOR_APPLICABILITY_FLAG,
182 OBJECT_VERSION_NUMBER,
183 ALLOW_EXEMPTIONS_FLAG,
184 EXMPTN_PTY_BASIS_HIER_1_CODE,
185 EXMPTN_PTY_BASIS_HIER_2_CODE,
186 DEF_INTRCMP_TRX_BIZ_CATEGORY,
187 CREATION_DATE,
188 CREATED_BY,
189 LAST_UPDATE_DATE,
190 LAST_UPDATED_BY,
191 LAST_UPDATE_LOGIN
192 )
193 SELECT ZX_EVNT_CLS_OPTIONS_S.nextval,
194 mapping.application_id,
195 mapping.entity_code,
196 mapping.event_class_code,
197 decode(sys.tax_database_view_set,'_V','TAXREGIME','_A','TAXREGIME','STCC'), --Bug 5385949
198 decode(sys.tax_header_level_flag,'Y','HEADER','N','LINE',null),
199 decode (sys.tax_rounding_allow_override,'Y','SHIP_TO_PTY_SITE','N','SHIP_FROM_PTY'),
200 decode (sys.tax_rounding_allow_override,'Y','BILL_TO_PTY_SITE','N',null),
201 decode (sys.tax_rounding_allow_override,'Y','SHIP_TO_PTY','N',null),
202 decode (sys.tax_rounding_allow_override,'Y','BILL_TO_PTY','N',null),
203 decode(mapping.allow_manual_lin_recalc_flag,'Y','Y','N'),
204 'N',
205 decode(mapping.allow_manual_lines_flag,'Y','Y','N'),
206 decode(mapping.perf_addnl_appl_for_imprt_flag, 'Y',
207 decode(sys.tax_method,'SALES_TAX','Y','N'),
208 'N'),
209 to_date('01-01-1951','DD-MM-YYYY'),
210 null,
211 'Y',
212 ptp.party_tax_profile_id,
213 decode(mapping.enforce_tax_from_acct_flag,'Y',nvl(sys.tax_enforce_account_flag,'N'),'N'),
214 null,
215 null,
216 'MIGRATED',
217 mapping.offset_tax_basis_code,
218 'N',
219 decode(mapping.enter_ovrd_incl_tax_lines_flag,'Y',nvl(sys.inclusive_tax_used,'N'),'N'),
220 decode(mapping.ctrl_eff_ovrd_calc_lines_flag,'Y',
221 decode(sys.inclusive_tax_used,'Y','Y','N'),
222 'N'),
223 'N',
224 decode(mapping.process_for_applicability_flag,'Y','Y','N'),
225 1,
226 decode(sys.tax_use_customer_exempt_flag, 'Y','Y','N'), --Bug Fix 5184711
227 'BILL_TO',
228 null,
229 decode(mapping.intrcmp_tx_evnt_cls_code,'INTERCOMPANY_TRANSACTION','INTERCOMPANY_TRANSACTION'),
230 ptp.CREATION_DATE,
231 ptp.CREATED_BY,
232 ptp.LAST_UPDATE_DATE,
233 ptp.LAST_UPDATED_BY,
234 ptp.LAST_UPDATE_LOGIN
235 FROM ZX_PARTY_TAX_PROFILE ptp,
236 AR_SYSTEM_PARAMETERS_ALL sys,
237 ZX_EVNT_CLS_MAPPINGS mapping
238 WHERE mapping.application_id = 222
239 AND decode(l_multi_org_flag,'N',l_org_id,sys.org_id) = ptp.party_id
240 AND ptp.PARTY_TYPE_CODE ='OU'
241 AND ptp.record_type_code='MIGRATED'
242 AND NOT EXISTS (SELECT 1
243 FROM ZX_EVNT_CLS_OPTIONS opt
244 WHERE opt.FIRST_PTY_ORG_ID = ptp.party_tax_profile_id
245 AND opt.APPLICATION_ID = mapping.application_id
246 AND opt.ENTITY_CODE = mapping.entity_code
247 AND opt.EVENT_CLASS_CODE = mapping.event_class_code
248 );
249
250
251
252 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
253 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
254 END IF;
255
256 EXCEPTION
257 WHEN OTHERS THEN
258 x_return_status := FND_API.G_RET_STS_ERROR ;
259 FND_MESSAGE.SET_NAME ('ZX','GENERIC_MESSAGE');
260 FND_MESSAGE.SET_TOKEN ('GENERIC_TEXT','AR Event Class Options Migration : '||SQLERRM);
261 FND_MSG_PUB.Add;
262 IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
263 FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
264 END IF;
265 END AR_OPTIONS_MIGRATE;
266
267
268
269 PROCEDURE PO_OPTIONS_MIGRATE (x_return_status OUT NOCOPY VARCHAR2) IS
270
271 l_api_name CONSTANT VARCHAR2(30) := 'PO_OPTIONS_MIGRATE';
272
273 BEGIN
274 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
275 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
276 END IF;
277
278 x_return_status := FND_API.G_RET_STS_SUCCESS;
279
280 INSERT INTO ZX_EVNT_CLS_OPTIONS (
281 EVENT_CLASS_OPTIONS_ID,
282 APPLICATION_ID,
283 ENTITY_CODE,
284 EVENT_CLASS_CODE,
285 DET_FACTOR_TEMPL_CODE,
286 DEFAULT_ROUNDING_LEVEL_CODE,
287 ROUNDING_LEVEL_HIER_1_CODE,
288 ROUNDING_LEVEL_HIER_2_CODE,
289 ROUNDING_LEVEL_HIER_3_CODE,
290 ROUNDING_LEVEL_HIER_4_CODE,
291 ALLOW_MANUAL_LIN_RECALC_FLAG,
292 ALLOW_OVERRIDE_FLAG,
293 ALLOW_MANUAL_LINES_FLAG,
294 PERF_ADDNL_APPL_FOR_IMPRT_FLAG,
295 EFFECTIVE_FROM,
296 EFFECTIVE_TO,
297 ENABLED_FLAG,
298 FIRST_PTY_ORG_ID,
299 ENFORCE_TAX_FROM_ACCT_FLAG,
300 TAX_TOLERANCE,
304 ALLOW_OFFSET_TAX_CALC_FLAG,
301 TAX_TOL_AMT_RANGE,
302 RECORD_TYPE_CODE,
303 OFFSET_TAX_BASIS_CODE,
305 ENTER_OVRD_INCL_TAX_LINES_FLAG,
306 CTRL_EFF_OVRD_CALC_LINES_FLAG,
307 ENFORCE_TAX_FROM_REF_DOC_FLAG,
308 PROCESS_FOR_APPLICABILITY_FLAG,
309 OBJECT_VERSION_NUMBER,
310 ALLOW_EXEMPTIONS_FLAG,
311 EXMPTN_PTY_BASIS_HIER_1_CODE,
312 EXMPTN_PTY_BASIS_HIER_2_CODE,
313 CREATION_DATE,
314 CREATED_BY,
315 LAST_UPDATE_DATE,
316 LAST_UPDATED_BY,
317 LAST_UPDATE_LOGIN
318 )
319 SELECT ZX_EVNT_CLS_OPTIONS_S.nextval,
320 mapping.application_id,
321 mapping.entity_code,
322 mapping.event_class_code,
323 'STCC',
324 nvl(decode(sysap.auto_tax_calc_flag,'Y','HEADER','L','LINE','T','HEADER','N',mapping.default_rounding_level_code),mapping.default_rounding_level_code),
325 nvl(decode (sysap.auto_tax_calc_override,'Y','SHIP_FROM_PTY_SITE','N','SHIP_TO_PTY'),mapping.rounding_level_hier_1_code),
326 nvl(decode (sysap.auto_tax_calc_override,'Y','SHIP_FROM_PTY','N',null),mapping.rounding_level_hier_2_code),
327 nvl(decode (sysap.auto_tax_calc_override,'Y','SHIP_TO_PTY_SITE','N',null),mapping.rounding_level_hier_3_code),
328 nvl(decode (sysap.auto_tax_calc_override,'Y','SHIP_TO_PTY','N',null),mapping.rounding_level_hier_4_code),
329 'N',
330 'N',
331 'N',
332 decode(mapping.perf_addnl_appl_for_imprt_flag,'Y','Y','N'),
333 to_date('01-01-1951','DD-MM-YYYY'),
334 null,
335 'Y',
336 ptp.party_tax_profile_id,
337 'N',
338 null,
339 null,
340 'MIGRATED',
341 'SHIP_FROM_SITE',
342 'N',
343 'N',
344 'N',
345 'N',
346 nvl(decode(sysap.AUTO_TAX_CALC_FLAG,'N','N','Y'),mapping.process_for_applicability_flag),
347 1,
348 'N',
349 null,
350 null,
351 ptp.CREATION_DATE,
352 ptp.CREATED_BY,
353 ptp.LAST_UPDATE_DATE,
354 ptp.LAST_UPDATED_BY,
355 ptp.LAST_UPDATE_LOGIN
356 FROM ZX_PARTY_TAX_PROFILE ptp,
357 PO_SYSTEM_PARAMETERS_ALL syspo,
358 AP_SYSTEM_PARAMETERS_ALL sysap,
359 ZX_EVNT_CLS_MAPPINGS mapping
360 WHERE mapping.application_id = 201
361 AND decode(l_multi_org_flag,'N',l_org_id,syspo.org_id) = ptp.party_id
362 AND decode(l_multi_org_flag,'N',l_org_id,syspo.org_id) = decode(l_multi_org_flag,'N',l_org_id,sysap.org_id(+))
363 AND ptp.PARTY_TYPE_CODE ='OU'
364 AND ptp.record_type_code='MIGRATED'
365 AND NOT EXISTS (SELECT 1
366 FROM ZX_EVNT_CLS_OPTIONS opt
367 WHERE opt.FIRST_PTY_ORG_ID = ptp.party_tax_profile_id
368 AND opt.APPLICATION_ID = mapping.application_id
369 AND opt.ENTITY_CODE = mapping.entity_code
370 AND opt.EVENT_CLASS_CODE = mapping.event_class_code
371 );
372
373 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
374 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
375 END IF;
376
377 EXCEPTION
378 WHEN OTHERS THEN
379 x_return_status := FND_API.G_RET_STS_ERROR ;
380 FND_MESSAGE.SET_NAME ('ZX','GENERIC_MESSAGE');
381 FND_MESSAGE.SET_TOKEN ('GENERIC_TEXT',' PO Event Class Options Migration : '||SQLERRM);
382 FND_MSG_PUB.Add;
383 IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
384 FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
385 END IF;
386
387 END PO_OPTIONS_MIGRATE;
388
389 PROCEDURE MIGRATE_EVNT_CLS_OPTIONS(x_return_status OUT NOCOPY VARCHAR2)
390 IS
391 l_api_name CONSTANT VARCHAR2(30) := 'AR_OPTIONS_MIGRATE';
392 l_return_status VARCHAR2(1);
393
394 BEGIN
395 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
396 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
397 END IF;
398
399 x_return_status := FND_API.G_RET_STS_SUCCESS;
400
401 /*-----------------------------------------------------+
402 | Process records from AR |
403 +-----------------------------------------------------*/
404 AR_OPTIONS_MIGRATE(l_return_status);
405
406 IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
407 x_return_status := FND_API.G_RET_STS_ERROR ;
408 FND_MESSAGE.SET_NAME ('ZX','GENERIC_MESSAGE');
409 FND_MESSAGE.SET_TOKEN ('GENERIC_TEXT','Event Class Options Migration : '||SQLERRM);
410 FND_MSG_PUB.Add;
411 RETURN;
412 END IF;
413
414
415 /*-----------------------------------------------------+
416 | Process records from AP |
420 x_return_status := FND_API.G_RET_STS_ERROR ;
417 +-----------------------------------------------------*/
418 AP_OPTIONS_MIGRATE (l_return_status);
419 IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
421 FND_MESSAGE.SET_NAME ('ZX','GENERIC_MESSAGE');
422 FND_MESSAGE.SET_TOKEN ('GENERIC_TEXT','Event Class Options Migration : '||SQLERRM);
423 FND_MSG_PUB.Add;
424 RETURN;
425 END IF;
426
427 /*-----------------------------------------------------+
428 | Process records from PO |
429 +-----------------------------------------------------*/
430 PO_OPTIONS_MIGRATE (l_return_status);
431 IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
432 x_return_status := FND_API.G_RET_STS_ERROR ;
433 FND_MESSAGE.SET_NAME ('ZX','GENERIC_MESSAGE');
434 FND_MESSAGE.SET_TOKEN ('GENERIC_TEXT','Event Class Options Migration : '||SQLERRM);
435 FND_MSG_PUB.Add;
436 RETURN;
437 END IF;
438
439 IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
440 FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
441 END IF;
442 END MIGRATE_EVNT_CLS_OPTIONS;
443
444 BEGIN
445
446 SELECT NVL(MULTI_ORG_FLAG,'N')
447 INTO L_MULTI_ORG_FLAG
448 FROM FND_PRODUCT_GROUPS;
449
450 IF L_MULTI_ORG_FLAG = 'N' THEN
451 FND_PROFILE.GET('ORG_ID',L_ORG_ID);
452 IF L_ORG_ID IS NULL THEN
453 arp_util_tax.debug('MO: Operating Units site level profile option value not set , resulted in Null Org Id');
454 END IF;
455 ELSE
456 L_ORG_ID := NULL;
457 END IF;
458
459
460
461 EXCEPTION
462 WHEN OTHERS THEN
463 arp_util_tax.debug('Exception in constructor of EventOptions '||sqlerrm);
464
465 END ZX_EVNT_OPTIONS_MIGRATE_PKG;