1: PACKAGE BODY ZX_TDS_PROCESS_CEC_PVT as
2: /* $Header: zxdilcecevalpvb.pls 120.17.12010000.1 2008/07/28 13:30:38 appldev ship $ */
3:
4: ----------------------------
5: -- Constants
187:
188:
189: IF (g_level_statement >= g_current_runtime_level ) THEN
190: FND_LOG.STRING(g_level_statement,
191: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines.BEGIN',
192: 'ZX_TDS_PROCESS_CEC_PVT: evaluate_cec_lines(+)');
193:
194: END IF;
195:
188:
189: IF (g_level_statement >= g_current_runtime_level ) THEN
190: FND_LOG.STRING(g_level_statement,
191: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines.BEGIN',
192: 'ZX_TDS_PROCESS_CEC_PVT: evaluate_cec_lines(+)');
193:
194: END IF;
195:
196: l_temp :=0;
211: -- First Execute with all "AND" only. Each function in the condition
212: -- sets the global flag accordingly.
213: IF (g_level_statement >= g_current_runtime_level ) THEN
214: FND_LOG.STRING(g_level_statement,
215: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines',
216: 'Compiled Condition: ' || l_and_condition);
217: END IF;
218:
219: EXECUTE IMMEDIATE 'BEGIN '|| l_and_condition ||'
221:
222: IF (g_level_statement >= g_current_runtime_level ) THEN
223: IF l_temp = 1 THEN
224: FND_LOG.STRING(g_level_statement,
225: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines', 'Condition is satisfied ');
226: ELSE
227: FND_LOG.STRING(g_level_statement,
228: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines', 'Condition is NOT satisfied ');
229: END IF;
224: FND_LOG.STRING(g_level_statement,
225: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines', 'Condition is satisfied ');
226: ELSE
227: FND_LOG.STRING(g_level_statement,
228: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines', 'Condition is NOT satisfied ');
229: END IF;
230: END IF;
231: end comment out for bug 4417523 */
232: --
233: -- Now execute with original conditions to evaluate.
234: --
235: IF (g_level_statement >= g_current_runtime_level ) THEN
236: FND_LOG.STRING(g_level_statement,
237: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines',
238: 'Compiled Condition: ' || p_compiled_condition);
239: END IF;
240:
241: EXECUTE IMMEDIATE 'BEGIN '|| p_compiled_condition||
243:
244: IF (g_level_statement >= g_current_runtime_level ) THEN
245: IF l_temp = 1 THEN
246: FND_LOG.STRING(g_level_statement,
247: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines', 'Condition is satisfied ');
248: ELSE
249: FND_LOG.STRING(g_level_statement,
250: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines', 'Condition is NOT satisfied ');
251: END IF;
246: FND_LOG.STRING(g_level_statement,
247: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines', 'Condition is satisfied ');
248: ELSE
249: FND_LOG.STRING(g_level_statement,
250: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines', 'Condition is NOT satisfied ');
251: END IF;
252: END IF;
253:
254: EXCEPTION
254: EXCEPTION
255: WHEN OTHERS THEN
256: IF (g_level_unexpected >= g_current_runtime_level ) THEN
257: FND_LOG.STRING(g_level_unexpected,
258: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines', 'Error Message: ' || sqlerrm);
259: END IF;
260: app_exception.raise_exception;
261: END;
262: if l_temp = 1 then
267: end if;
268: IF (g_level_statement >= g_current_runtime_level ) THEN
269:
270: FND_LOG.STRING(g_level_statement,
271: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines.END',
272: 'ZX_TDS_PROCESS_CEC_PVT: evaluate_cec_lines(-)');
273: END IF;
274:
275: return l_result;
268: IF (g_level_statement >= g_current_runtime_level ) THEN
269:
270: FND_LOG.STRING(g_level_statement,
271: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_lines.END',
272: 'ZX_TDS_PROCESS_CEC_PVT: evaluate_cec_lines(-)');
273: END IF;
274:
275: return l_result;
276: end evaluate_cec_lines;
296:
297: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
298: IF (g_level_statement >= g_current_runtime_level ) THEN
299: FND_LOG.STRING(g_level_statement,
300: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action.BEGIN',
301: 'ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action (+)');
302: END IF;
303:
304: pr_do_not_use_this_tax_flag := FALSE;
297: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
298: IF (g_level_statement >= g_current_runtime_level ) THEN
299: FND_LOG.STRING(g_level_statement,
300: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action.BEGIN',
301: 'ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action (+)');
302: END IF;
303:
304: pr_do_not_use_this_tax_flag := FALSE;
305: pr_do_not_use_this_group_flag := FALSE;
308: BEGIN
309:
310: IF (g_level_statement >= g_current_runtime_level ) THEN
311: FND_LOG.STRING(g_level_statement,
312: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
313: 'Compiled Action: ' || p_compiled_action);
314: END IF;
315:
316: IF (instr(p_compiled_action, 'ZX_TDS_PROCESS_CEC_PVT.USE_THIS_TAX_CODE(') >0) THEN
312: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
313: 'Compiled Action: ' || p_compiled_action);
314: END IF;
315:
316: IF (instr(p_compiled_action, 'ZX_TDS_PROCESS_CEC_PVT.USE_THIS_TAX_CODE(') >0) THEN
317: IF (g_level_statement >= g_current_runtime_level ) THEN
318: FND_LOG.STRING(g_level_statement,
319: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
320: 'Use this Tax');
315:
316: IF (instr(p_compiled_action, 'ZX_TDS_PROCESS_CEC_PVT.USE_THIS_TAX_CODE(') >0) THEN
317: IF (g_level_statement >= g_current_runtime_level ) THEN
318: FND_LOG.STRING(g_level_statement,
319: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
320: 'Use this Tax');
321: END IF;
322: ELSIF (instr(p_compiled_action, 'ZX_TDS_PROCESS_CEC_PVT.DO_NOT_USE_THIS_TAX_CODE(') >0) THEN
323: IF (g_level_statement >= g_current_runtime_level ) THEN
318: FND_LOG.STRING(g_level_statement,
319: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
320: 'Use this Tax');
321: END IF;
322: ELSIF (instr(p_compiled_action, 'ZX_TDS_PROCESS_CEC_PVT.DO_NOT_USE_THIS_TAX_CODE(') >0) THEN
323: IF (g_level_statement >= g_current_runtime_level ) THEN
324: FND_LOG.STRING(g_level_statement,
325: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
326: 'DO NOT use this Tax');
321: END IF;
322: ELSIF (instr(p_compiled_action, 'ZX_TDS_PROCESS_CEC_PVT.DO_NOT_USE_THIS_TAX_CODE(') >0) THEN
323: IF (g_level_statement >= g_current_runtime_level ) THEN
324: FND_LOG.STRING(g_level_statement,
325: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
326: 'DO NOT use this Tax');
327: END IF;
328: pr_do_not_use_this_tax_flag := TRUE;
329:
326: 'DO NOT use this Tax');
327: END IF;
328: pr_do_not_use_this_tax_flag := TRUE;
329:
330: ELSIF (instr(p_compiled_action, 'ZX_TDS_PROCESS_CEC_PVT.USE_THIS_TAX_GROUP(') >0) THEN
331: IF (g_level_statement >= g_current_runtime_level ) THEN
332: FND_LOG.STRING(g_level_statement,
333: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
334: 'Use this Tax Condition Group');
329:
330: ELSIF (instr(p_compiled_action, 'ZX_TDS_PROCESS_CEC_PVT.USE_THIS_TAX_GROUP(') >0) THEN
331: IF (g_level_statement >= g_current_runtime_level ) THEN
332: FND_LOG.STRING(g_level_statement,
333: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
334: 'Use this Tax Condition Group');
335: END IF;
336: ELSIF (instr(p_compiled_action, 'ZX_TDS_PROCESS_CEC_PVT.DO_NOT_USE_THIS_TAX_GROUP(') >0) THEN
337: IF (g_level_statement >= g_current_runtime_level ) THEN
332: FND_LOG.STRING(g_level_statement,
333: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
334: 'Use this Tax Condition Group');
335: END IF;
336: ELSIF (instr(p_compiled_action, 'ZX_TDS_PROCESS_CEC_PVT.DO_NOT_USE_THIS_TAX_GROUP(') >0) THEN
337: IF (g_level_statement >= g_current_runtime_level ) THEN
338: FND_LOG.STRING(g_level_statement,
339: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
340: 'DO NOT use this Tax Condition Group');
335: END IF;
336: ELSIF (instr(p_compiled_action, 'ZX_TDS_PROCESS_CEC_PVT.DO_NOT_USE_THIS_TAX_GROUP(') >0) THEN
337: IF (g_level_statement >= g_current_runtime_level ) THEN
338: FND_LOG.STRING(g_level_statement,
339: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
340: 'DO NOT use this Tax Condition Group');
341: END IF;
342: pr_do_not_use_this_group_flag := TRUE;
343:
351: EXCEPTION
352: WHEN OTHERS THEN
353: IF (g_level_statement >= g_current_runtime_level ) THEN
354: FND_LOG.STRING(g_level_statement,
355: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action',
356: 'Error Message: ' || sqlerrm);
357: END IF;
358: app_exception.raise_exception;
359: END;
360: end if;
361: IF (g_level_statement >= g_current_runtime_level ) THEN
362:
363: FND_LOG.STRING(g_level_statement,
364: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action.END',
365: 'ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action (-)');
366: END IF;
367: end evaluate_cec_action;
368:
361: IF (g_level_statement >= g_current_runtime_level ) THEN
362:
363: FND_LOG.STRING(g_level_statement,
364: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action.END',
365: 'ZX_TDS_PROCESS_CEC_PVT.evaluate_cec_action (-)');
366: END IF;
367: end evaluate_cec_action;
368:
369: /*===========================================================================+
396:
397: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
398: IF (g_level_statement >= g_current_runtime_level ) THEN
399: FND_LOG.STRING(g_level_statement,
400: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.create_compiled_lines.BEGIN',
401: 'ZX_TDS_PROCESS_CEC_PVT.create_compiled_lines (+)');
402:
403: END IF;
404:
397: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
398: IF (g_level_statement >= g_current_runtime_level ) THEN
399: FND_LOG.STRING(g_level_statement,
400: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.create_compiled_lines.BEGIN',
401: 'ZX_TDS_PROCESS_CEC_PVT.create_compiled_lines (+)');
402:
403: END IF;
404:
405: for cec_rec in cec_csr(p_cec_id) LOOP
411: -- SHIP_FROM, SHIP_TO, POO, POA, ITEM, TRX, BILL_TO ...
412: --
413: if (cec_rec.tax_condition_entity is not null) then
414: l_compiled_line := l_compiled_line ||
415: 'ZX_TDS_PROCESS_CEC_PVT.'|| cec_rec.tax_condition_entity||'(';
416: l_end := ')';
417: end if;
418: --
419: -- COUNTRY, STATE, PROVINCE, CITY, TAX_CLASSIFICATION ...
449:
450: IF (g_level_statement >= g_current_runtime_level ) THEN
451:
452: FND_LOG.STRING(g_level_statement,
453: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.create_compiled_lines.END',
454: 'ZX_TDS_PROCESS_CEC_PVT.create_compiled_lines (-)');
455: END IF;
456: return l_compiled_line;
457: end create_compiled_lines;
450: IF (g_level_statement >= g_current_runtime_level ) THEN
451:
452: FND_LOG.STRING(g_level_statement,
453: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.create_compiled_lines.END',
454: 'ZX_TDS_PROCESS_CEC_PVT.create_compiled_lines (-)');
455: END IF;
456: return l_compiled_line;
457: end create_compiled_lines;
458:
490:
491: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
492: IF (g_level_statement >= g_current_runtime_level ) THEN
493: FND_LOG.STRING(g_level_statement,
494: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.create_compiled_action.BEGIN',
495: 'ZX_TDS_PROCESS_CEC_PVT.create_compiled_action (+)');
496:
497: END IF;
498: l_counter := 1;
491: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
492: IF (g_level_statement >= g_current_runtime_level ) THEN
493: FND_LOG.STRING(g_level_statement,
494: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.create_compiled_action.BEGIN',
495: 'ZX_TDS_PROCESS_CEC_PVT.create_compiled_action (+)');
496:
497: END IF;
498: l_counter := 1;
499: pr_action_rec_tbl.delete;
501: for action_rec in action_csr(p_cec_id, p_action_type)
502: LOOP
503: -- ERROR_MESSAGE, SYSTEM_ERROR, USE_TAX_CODE ...
504: if (action_rec.tax_condition_action_code is not null) then
505: l_compiled_action := l_compiled_action || 'ZX_TDS_PROCESS_CEC_PVT.'||
506: action_rec.tax_condition_action_code ||'(';
507: l_end := ');';
508: end if;
509:
526:
527: IF (g_level_statement >= g_current_runtime_level ) THEN
528:
529: FND_LOG.STRING(g_level_statement,
530: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.create_compiled_action.END',
531: 'ZX_TDS_PROCESS_CEC_PVT.create_compiled_action (-)');
532: END IF;
533: return l_compiled_action;
534: end create_compiled_action;
527: IF (g_level_statement >= g_current_runtime_level ) THEN
528:
529: FND_LOG.STRING(g_level_statement,
530: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.create_compiled_action.END',
531: 'ZX_TDS_PROCESS_CEC_PVT.create_compiled_action (-)');
532: END IF;
533: return l_compiled_action;
534: end create_compiled_action;
535:
595: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
596:
597: IF (g_level_statement >= g_current_runtime_level ) THEN
598: FND_LOG.STRING(g_level_statement,
599: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_hr_location.BEGIN',
600: 'ZX_TDS_PROCESS_CEC_PVT.get_hr_location (+)');
601:
602: END IF;
603:
596:
597: IF (g_level_statement >= g_current_runtime_level ) THEN
598: FND_LOG.STRING(g_level_statement,
599: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_hr_location.BEGIN',
600: 'ZX_TDS_PROCESS_CEC_PVT.get_hr_location (+)');
601:
602: END IF;
603:
604: IF p_organization_id is not NULL then
642: IF pg_classification IS NULL OR pg_classification <> p_classification THEN
643:
644: IF (g_level_statement >= g_current_runtime_level ) THEN
645: FND_LOG.STRING(g_level_statement,
646: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_hr_location',
647: 'Same organization but different classification');
648:
649: END IF;
650:
657: ELSE --Same organization and same classificationas cached
658:
659: IF (g_level_statement >= g_current_runtime_level ) THEN
660: FND_LOG.STRING(g_level_statement,
661: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_hr_location',
662: 'Same organization and same classificationas cached: ');
663:
664: END IF;
665:
669: END IF; --IF NVL(pr_org_loc_rec.location_id, -1) <> NVL(l_location_id,-2) THEN
670:
671: IF (g_level_statement >= g_current_runtime_level ) THEN
672: FND_LOG.STRING(g_level_statement,
673: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_hr_location',
674: 'l_column: '|| l_column);
675: END IF;
676:
677: --end bug fix 4417523
702: l_column_value := pr_org_loc_rec.TELEPHONE_NUMBER_3;
703: else
704: IF (g_level_unexpected >= g_current_runtime_level ) THEN
705: FND_LOG.STRING(g_level_unexpected,
706: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_hr_location',
707: 'Invalid Column');
708: END IF;
709: end if;
710:
710:
711: IF (g_level_statement >= g_current_runtime_level ) THEN
712:
713: FND_LOG.STRING(g_level_statement,
714: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_hr_location.END',
715: 'ZX_TDS_PROCESS_CEC_PVT.get_hr_location (-)');
716: END IF;
717:
718: return upper(l_column_value);
711: IF (g_level_statement >= g_current_runtime_level ) THEN
712:
713: FND_LOG.STRING(g_level_statement,
714: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_hr_location.END',
715: 'ZX_TDS_PROCESS_CEC_PVT.get_hr_location (-)');
716: END IF;
717:
718: return upper(l_column_value);
719:
769: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
770:
771: IF (g_level_statement >= g_current_runtime_level ) THEN
772: FND_LOG.STRING(g_level_statement,
773: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_site_location.BEGIN',
774: 'ZX_TDS_PROCESS_CEC_PVT.get_site_location (+)'||
775: 'p_site_use_id= ' || p_site_use_id ||
776: 'p_classification= ' || p_classification ||
777: 'pr_site_use_rec.site_used_id= '||pr_site_use_rec.site_use_id) ;
770:
771: IF (g_level_statement >= g_current_runtime_level ) THEN
772: FND_LOG.STRING(g_level_statement,
773: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_site_location.BEGIN',
774: 'ZX_TDS_PROCESS_CEC_PVT.get_site_location (+)'||
775: 'p_site_use_id= ' || p_site_use_id ||
776: 'p_classification= ' || p_classification ||
777: 'pr_site_use_rec.site_used_id= '||pr_site_use_rec.site_use_id) ;
778: END IF;
791:
792: IF (g_level_statement >= g_current_runtime_level ) THEN
793:
794: FND_LOG.STRING(g_level_statement,
795: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_site_location',
796: 'pr_site_use_rec.cust_acct_site_id: '||pr_site_use_rec.cust_acct_site_id);
797: END IF;
798:
799: IF nvl(pr_site_loc_rec.cust_acct_site_id, -1) <> nvl(pr_site_use_rec.cust_acct_site_id,-2) then
810: close c_site_loc_rec;
811:
812: IF (g_level_statement >= g_current_runtime_level ) THEN
813: FND_LOG.STRING(g_level_statement,
814: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_site_location',
815: 'pr_site_loc_rec.COUNTRY'||pr_site_loc_rec.COUNTRY||' STATE '||pr_site_loc_rec.STATE||
816: ' PROVINCE '||pr_site_loc_rec.PROVINCE||
817: ' CITY '||pr_site_loc_rec.CITY||
818: ' COUNTY '||pr_site_loc_rec.COUNTY||
837: l_location := pr_site_use_rec.TAX_CLASSIFICATION;
838: ELSE
839: IF (g_level_statement >= g_current_runtime_level ) THEN
840: FND_LOG.STRING(g_level_statement,
841: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_site_location',
842: 'Invalid value for p_classification');
843: END IF;
844: END IF;
845:
845:
846: IF (g_level_statement >= g_current_runtime_level ) THEN
847:
848: FND_LOG.STRING(g_level_statement,
849: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_site_location.END',
850: 'ZX_TDS_PROCESS_CEC_PVT.get_site_location (-)'||
851: ' location: '||l_location);
852: END IF;
853: RETURN upper(l_location);
846: IF (g_level_statement >= g_current_runtime_level ) THEN
847:
848: FND_LOG.STRING(g_level_statement,
849: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_site_location.END',
850: 'ZX_TDS_PROCESS_CEC_PVT.get_site_location (-)'||
851: ' location: '||l_location);
852: END IF;
853: RETURN upper(l_location);
854:
855: EXCEPTION
856: when others then
857: IF (g_level_statement >= g_current_runtime_level ) THEN
858: FND_LOG.STRING(g_level_statement,
859: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_site_location',
860: 'Exception in Get Site Location: ' || SQLCODE ||' ; '||SQLERRM);
861: END IF;
862: system_message('Exception');
863: END get_site_location;
935: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
936:
937: IF (g_level_statement >= g_current_runtime_level ) THEN
938: FND_LOG.STRING(g_level_statement,
939: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.compare_condition.BEGIN',
940: 'ZX_TDS_PROCESS_CEC_PVT.compare_condition (+)'||
941: ' p_id = '||to_char(p_id)||
942: ' P_calling_function: '|| P_calling_function||
943: ' p_classification: '|| p_classification ||
936:
937: IF (g_level_statement >= g_current_runtime_level ) THEN
938: FND_LOG.STRING(g_level_statement,
939: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.compare_condition.BEGIN',
940: 'ZX_TDS_PROCESS_CEC_PVT.compare_condition (+)'||
941: ' p_id = '||to_char(p_id)||
942: ' P_calling_function: '|| P_calling_function||
943: ' p_classification: '|| p_classification ||
944: ' p_operator: '||p_operator||
1020: l_value := upper(p_value);
1021:
1022: IF (g_level_statement >= g_current_runtime_level) THEN
1023: FND_LOG.STRING(g_level_statement,
1024: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.compare_condition',
1025: ' l_temp = '|| l_temp ||
1026: ' l_value = ' || l_value);
1027: END IF;
1028:
1190: l_value := upper(p_value);
1191:
1192: IF (g_level_statement >= g_current_runtime_level) THEN
1193: FND_LOG.STRING(g_level_statement,
1194: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.compare_condition',
1195: ' l_temp = '|| l_temp ||
1196: ' l_value = ' || l_value);
1197: END IF;
1198:
1198:
1199: IF upper(p_classification) = 'WAREHOUSE' then
1200: IF (g_level_statement >= g_current_runtime_level) THEN
1201: FND_LOG.STRING(g_level_statement,
1202: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.compare_condition',
1203: ' Calling Function is Ship From and p_classification is WAREHOUSE');
1204: END IF;
1205:
1206: open warehouse_csr(g_cec_ledger_id, g_cec_internal_organization_id);
1245: end if;
1246:
1247: IF (g_level_statement >= g_current_runtime_level) THEN
1248: FND_LOG.STRING(g_level_statement,
1249: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.compare_condition',
1250: ' l_temp = '|| l_temp ||
1251: ' l_value = ' || l_value);
1252: END IF;
1253:
1296: end if;
1297:
1298: IF (g_level_statement >= g_current_runtime_level) THEN
1299: FND_LOG.STRING(g_level_statement,
1300: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.compare_condition',
1301: ' l_temp = '|| l_temp ||
1302: ' l_value = ' || l_value);
1303: END IF;
1304:
1326: END IF;
1327: IF (g_level_statement >= g_current_runtime_level ) THEN
1328:
1329: FND_LOG.STRING(g_level_statement,
1330: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.compare_condition.END',
1331: 'ZX_TDS_PROCESS_CEC_PVT.compare_condition (-)');
1332: END IF;
1333: END compare_condition;
1334:
1327: IF (g_level_statement >= g_current_runtime_level ) THEN
1328:
1329: FND_LOG.STRING(g_level_statement,
1330: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.compare_condition.END',
1331: 'ZX_TDS_PROCESS_CEC_PVT.compare_condition (-)');
1332: END IF;
1333: END compare_condition;
1334:
1335:
1362: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1363:
1364: IF (g_level_statement >= g_current_runtime_level ) THEN
1365: FND_LOG.STRING(g_level_statement,
1366: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column.BEGIN',
1367: 'ZX_TDS_PROCESS_CEC_PVT.get_location_column (+)');
1368:
1369: END IF;
1370:
1363:
1364: IF (g_level_statement >= g_current_runtime_level ) THEN
1365: FND_LOG.STRING(g_level_statement,
1366: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column.BEGIN',
1367: 'ZX_TDS_PROCESS_CEC_PVT.get_location_column (+)');
1368:
1369: END IF;
1370:
1371: /*
1390:
1391: IF l_context is NULL then
1392: IF (g_level_statement >= g_current_runtime_level ) THEN
1393: FND_LOG.STRING(g_level_statement,
1394: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column',
1395: 'No context which matches the style');
1396:
1397: FND_LOG.STRING(g_level_statement,
1398: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column.END',
1394: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column',
1395: 'No context which matches the style');
1396:
1397: FND_LOG.STRING(g_level_statement,
1398: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column.END',
1399: 'ZX_TDS_PROCESS_CEC_PVT.get_location_column (-)');
1400: END IF;
1401: return NULL;
1402: END IF;
1395: 'No context which matches the style');
1396:
1397: FND_LOG.STRING(g_level_statement,
1398: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column.END',
1399: 'ZX_TDS_PROCESS_CEC_PVT.get_location_column (-)');
1400: END IF;
1401: return NULL;
1402: END IF;
1403: --commented out for bug 4417523 end*/
1423: l_column := pr_segments.application_column_name(i);
1424: IF (g_level_statement >= g_current_runtime_level ) THEN
1425:
1426: FND_LOG.STRING(g_level_statement,
1427: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column',
1428: ' Segment name= '||pr_segments.segment_name(i)||
1429: ' Column Name= '|| pr_segments.application_column_name(i)||
1430: ' Description= '||pr_segments.description(i));
1431: END IF;
1435:
1436: IF l_column is NULL then
1437: IF (g_level_statement >= g_current_runtime_level ) THEN
1438: FND_LOG.STRING(g_level_statement,
1439: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column',
1440: 'No column which matches the value of '||
1441: 'input parameter p_classification');
1442: FND_LOG.STRING(g_level_statement,
1443: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column',
1439: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column',
1440: 'No column which matches the value of '||
1441: 'input parameter p_classification');
1442: FND_LOG.STRING(g_level_statement,
1443: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column',
1444: 'Get Location Column (-)');
1445: END IF;
1446: END IF;
1447:
1447:
1448: IF (g_level_statement >= g_current_runtime_level ) THEN
1449:
1450: FND_LOG.STRING(g_level_statement,
1451: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column.END',
1452: 'ZX_TDS_PROCESS_CEC_PVT.get_location_column (-)');
1453: END IF;
1454: RETURN l_column;
1455:
1448: IF (g_level_statement >= g_current_runtime_level ) THEN
1449:
1450: FND_LOG.STRING(g_level_statement,
1451: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.get_location_column.END',
1452: 'ZX_TDS_PROCESS_CEC_PVT.get_location_column (-)');
1453: END IF;
1454: RETURN l_column;
1455:
1456: END get_location_column;
1475:
1476: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1477: IF (g_level_statement >= g_current_runtime_level ) THEN
1478: FND_LOG.STRING(g_level_statement,
1479: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.update_pr_stats_rec_tbl.BEGIN',
1480: 'ZX_TDS_PROCESS_CEC_PVT.update_pr_stats_rec_tbl (+)');
1481: END IF;
1482:
1483: if (p_flag) then
1476: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1477: IF (g_level_statement >= g_current_runtime_level ) THEN
1478: FND_LOG.STRING(g_level_statement,
1479: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.update_pr_stats_rec_tbl.BEGIN',
1480: 'ZX_TDS_PROCESS_CEC_PVT.update_pr_stats_rec_tbl (+)');
1481: END IF;
1482:
1483: if (p_flag) then
1484: if (upper(p_classification) = 'COUNTRY' and
1572: end if;
1573:
1574: IF (g_level_statement >= g_current_runtime_level ) THEN
1575: FND_LOG.STRING(g_level_statement,
1576: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.update_pr_stats_rec_tbl.END',
1577: 'ZX_TDS_PROCESS_CEC_PVT.update_pr_stats_rec_tbl (-)');
1578: END IF;
1579: end update_pr_stats_rec_tbl;
1580:
1573:
1574: IF (g_level_statement >= g_current_runtime_level ) THEN
1575: FND_LOG.STRING(g_level_statement,
1576: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.update_pr_stats_rec_tbl.END',
1577: 'ZX_TDS_PROCESS_CEC_PVT.update_pr_stats_rec_tbl (-)');
1578: END IF;
1579: end update_pr_stats_rec_tbl;
1580:
1581: /*===========================================================================+
1596:
1597: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1598: IF (g_level_statement >= g_current_runtime_level) THEN
1599: FND_LOG.STRING(g_level_statement,
1600: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.dump_stats_rec.BEGIN',
1601: ' ZX_TDS_PROCESS_CEC_PVT.dump_stats_rec (+)');
1602:
1603: END IF;
1604:
1597: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1598: IF (g_level_statement >= g_current_runtime_level) THEN
1599: FND_LOG.STRING(g_level_statement,
1600: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.dump_stats_rec.BEGIN',
1601: ' ZX_TDS_PROCESS_CEC_PVT.dump_stats_rec (+)');
1602:
1603: END IF;
1604:
1605: if (p_x = IDX_SHIP_FROM) then
1622:
1623: IF (g_level_statement >= g_current_runtime_level) THEN
1624:
1625: FND_LOG.STRING(g_level_statement,
1626: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.dump_stats_rec.END',
1627: ' ZX_TDS_PROCESS_CEC_PVT.dump_stats_rec (-)');
1628: END IF;
1629: end dump_stats_rec;
1630:
1623: IF (g_level_statement >= g_current_runtime_level) THEN
1624:
1625: FND_LOG.STRING(g_level_statement,
1626: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.dump_stats_rec.END',
1627: ' ZX_TDS_PROCESS_CEC_PVT.dump_stats_rec (-)');
1628: END IF;
1629: end dump_stats_rec;
1630:
1631: /*===========================================================================+
1644:
1645: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1646: IF (g_level_statement >= g_current_runtime_level) THEN
1647: FND_LOG.STRING(g_level_statement,
1648: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.dump_pr_stats_rec_tbl.BEGIN',
1649: ' ZX_TDS_PROCESS_CEC_PVT.dump_pr_stats_rec_tbl (+)');
1650: END IF;
1651:
1652: for i in IDX_SHIP_FROM .. IDX_TAX_CODE LOOP
1645: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1646: IF (g_level_statement >= g_current_runtime_level) THEN
1647: FND_LOG.STRING(g_level_statement,
1648: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.dump_pr_stats_rec_tbl.BEGIN',
1649: ' ZX_TDS_PROCESS_CEC_PVT.dump_pr_stats_rec_tbl (+)');
1650: END IF;
1651:
1652: for i in IDX_SHIP_FROM .. IDX_TAX_CODE LOOP
1653: dump_stats_rec(i);
1654: end LOOP;
1655:
1656: IF (g_level_statement >= g_current_runtime_level) THEN
1657: FND_LOG.STRING(g_level_statement,
1658: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.dump_pr_stats_rec_tbl.END',
1659: ' ZX_TDS_PROCESS_CEC_PVT.dump_pr_stats_rec_tbl (-)');
1660: END IF;
1661: end dump_pr_stats_rec_tbl;
1662:
1655:
1656: IF (g_level_statement >= g_current_runtime_level) THEN
1657: FND_LOG.STRING(g_level_statement,
1658: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.dump_pr_stats_rec_tbl.END',
1659: ' ZX_TDS_PROCESS_CEC_PVT.dump_pr_stats_rec_tbl (-)');
1660: END IF;
1661: end dump_pr_stats_rec_tbl;
1662:
1663: -------------------
1696: l_return_val := FALSE;
1697:
1698: IF (g_level_statement >= g_current_runtime_level) THEN
1699: FND_LOG.STRING(g_level_statement,
1700: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.tax_code.BEGIN',
1701: 'ZX_TDS_PROCESS_CEC_PVT.tax_code (+)');
1702: END IF;
1703:
1704: l_return_val := compare_condition ( g_cec_ship_to_party_site_id,
1697:
1698: IF (g_level_statement >= g_current_runtime_level) THEN
1699: FND_LOG.STRING(g_level_statement,
1700: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.tax_code.BEGIN',
1701: 'ZX_TDS_PROCESS_CEC_PVT.tax_code (+)');
1702: END IF;
1703:
1704: l_return_val := compare_condition ( g_cec_ship_to_party_site_id,
1705: 'TAX_CODE',
1708: p_value);
1709: if l_return_val = TRUE then
1710: IF (g_level_statement >= g_current_runtime_level ) THEN
1711: FND_LOG.STRING(g_level_statement,
1712: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.tax_code',
1713: 'The condition Tax code '||p_classification||
1714: p_operator||p_value||' evaluates to TRUE');
1715: END IF;
1716: else
1715: END IF;
1716: else
1717: IF (g_level_statement >= g_current_runtime_level ) THEN
1718: FND_LOG.STRING(g_level_statement,
1719: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.tax_code',
1720: 'The condition Tax code '||p_classification||
1721: p_operator||p_value||' evaluates to FALSE');
1722: END IF;
1723: end if;
1729: dump_stats_rec(IDX_TAX_CODE); --for bug1833141
1730: end if;
1731: IF (g_level_statement >= g_current_runtime_level) THEN
1732: FND_LOG.STRING(g_level_statement,
1733: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.tax_code.END',
1734: 'ZX_TDS_PROCESS_CEC_PVT.tax_code (-)');
1735: END IF;
1736: return l_return_val;
1737: END tax_code;
1730: end if;
1731: IF (g_level_statement >= g_current_runtime_level) THEN
1732: FND_LOG.STRING(g_level_statement,
1733: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.tax_code.END',
1734: 'ZX_TDS_PROCESS_CEC_PVT.tax_code (-)');
1735: END IF;
1736: return l_return_val;
1737: END tax_code;
1738:
1750: l_return_val := FALSE;
1751:
1752: IF (g_level_statement >= g_current_runtime_level ) THEN
1753: FND_LOG.STRING(g_level_statement,
1754: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.ship_to.BEGIN',
1755: 'ZX_TDS_PROCESS_CEC_PVT.Ship_To (+)');
1756: END IF;
1757:
1758: l_return_val := compare_condition ( g_cec_ship_to_site_use_id,
1751:
1752: IF (g_level_statement >= g_current_runtime_level ) THEN
1753: FND_LOG.STRING(g_level_statement,
1754: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.ship_to.BEGIN',
1755: 'ZX_TDS_PROCESS_CEC_PVT.Ship_To (+)');
1756: END IF;
1757:
1758: l_return_val := compare_condition ( g_cec_ship_to_site_use_id,
1759: 'SHIP_TO',
1762: p_value);
1763: if l_return_val = TRUE then
1764: IF (g_level_statement >= g_current_runtime_level ) THEN
1765: FND_LOG.STRING(g_level_statement,
1766: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.ship_to',
1767: 'The condition Ship to '||p_classification||
1768: p_operator||p_value||' evaluates to TRUE');
1769: END IF;
1770: else
1769: END IF;
1770: else
1771: IF (g_level_statement >= g_current_runtime_level ) THEN
1772: FND_LOG.STRING(g_level_statement,
1773: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.ship_to',
1774: 'The condition Ship to '||p_classification||
1775: p_operator||p_value||' evaluates to FALSE');
1776: END IF;
1777: end if;
1783: dump_stats_rec(IDX_SHIP_TO); --for bug1833141
1784: end if;
1785: IF (g_level_statement >= g_current_runtime_level ) THEN
1786: FND_LOG.STRING(g_level_statement,
1787: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.ship_to.END',
1788: 'ZX_TDS_PROCESS_CEC_PVT.Ship_To (-)');
1789: END IF;
1790: return l_return_val;
1791: END ship_to;
1784: end if;
1785: IF (g_level_statement >= g_current_runtime_level ) THEN
1786: FND_LOG.STRING(g_level_statement,
1787: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.ship_to.END',
1788: 'ZX_TDS_PROCESS_CEC_PVT.Ship_To (-)');
1789: END IF;
1790: return l_return_val;
1791: END ship_to;
1792:
1809: l_return_val := FALSE;
1810:
1811: IF (g_level_statement >= g_current_runtime_level ) THEN
1812: FND_LOG.STRING(g_level_statement,
1813: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.ship_from.BEGIN',
1814: 'ZX_TDS_PROCESS_CEC_PVT.Ship_From(+)');
1815: END IF;
1816:
1817: l_return_val := compare_condition ( g_cec_product_org_id,
1810:
1811: IF (g_level_statement >= g_current_runtime_level ) THEN
1812: FND_LOG.STRING(g_level_statement,
1813: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.ship_from.BEGIN',
1814: 'ZX_TDS_PROCESS_CEC_PVT.Ship_From(+)');
1815: END IF;
1816:
1817: l_return_val := compare_condition ( g_cec_product_org_id,
1818: 'SHIP_FROM',
1821: p_value);
1822: if l_return_val = TRUE then
1823: IF (g_level_statement >= g_current_runtime_level ) THEN
1824: FND_LOG.STRING(g_level_statement,
1825: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.ship_from',
1826: 'The condition Ship From '||p_classification||
1827: p_operator||p_value||' evaluates to TRUE');
1828: END IF;
1829: else
1828: END IF;
1829: else
1830: IF (g_level_statement >= g_current_runtime_level ) THEN
1831: FND_LOG.STRING(g_level_statement,
1832: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.ship_from',
1833: 'The condition Ship From '||p_classification||
1834: p_operator||p_value||' evaluates to FALSE');
1835: END IF;
1836: end if;
1842: dump_stats_rec(IDX_SHIP_FROM); --for bug1833141
1843: end if;
1844: IF (g_level_statement >= g_current_runtime_level ) THEN
1845: FND_LOG.STRING(g_level_statement,
1846: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.ship_from.END',
1847: 'ZX_TDS_PROCESS_CEC_PVT.Ship_From (-)');
1848: END IF;
1849: return l_return_val;
1850: END ship_from;
1843: end if;
1844: IF (g_level_statement >= g_current_runtime_level ) THEN
1845: FND_LOG.STRING(g_level_statement,
1846: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.ship_from.END',
1847: 'ZX_TDS_PROCESS_CEC_PVT.Ship_From (-)');
1848: END IF;
1849: return l_return_val;
1850: END ship_from;
1851:
1869: l_return_val := FALSE;
1870:
1871: IF (g_level_statement >= g_current_runtime_level ) THEN
1872: FND_LOG.STRING(g_level_statement,
1873: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.bill_to.BEGIN',
1874: 'ZX_TDS_PROCESS_CEC_PVT.bill_to (+)');
1875: END IF;
1876:
1877: l_return_val := compare_condition ( g_cec_bill_to_site_use_id,
1870:
1871: IF (g_level_statement >= g_current_runtime_level ) THEN
1872: FND_LOG.STRING(g_level_statement,
1873: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.bill_to.BEGIN',
1874: 'ZX_TDS_PROCESS_CEC_PVT.bill_to (+)');
1875: END IF;
1876:
1877: l_return_val := compare_condition ( g_cec_bill_to_site_use_id,
1878: 'BILL_TO',
1881: p_value);
1882: if l_return_val = TRUE then
1883: IF (g_level_statement >= g_current_runtime_level ) THEN
1884: FND_LOG.STRING(g_level_statement,
1885: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.bill_to',
1886: 'The condition Bill to '||p_classification||
1887: p_operator||p_value||' evaluates to TRUE');
1888: END IF;
1889: else
1888: END IF;
1889: else
1890: IF (g_level_statement >= g_current_runtime_level ) THEN
1891: FND_LOG.STRING(g_level_statement,
1892: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.bill_to',
1893: 'The condition Bill to '||p_classification||
1894: p_operator||p_value||' evaluates to FALSE');
1895: END IF;
1896: end if;
1902: dump_stats_rec(IDX_BILL_TO);
1903: end if;
1904: IF (g_level_statement >= g_current_runtime_level ) THEN
1905: FND_LOG.STRING(g_level_statement,
1906: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.bill_to.END',
1907: 'ZX_TDS_PROCESS_CEC_PVT.bill_to (-)');
1908: END IF;
1909: return l_return_val;
1910: END bill_to;
1903: end if;
1904: IF (g_level_statement >= g_current_runtime_level ) THEN
1905: FND_LOG.STRING(g_level_statement,
1906: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.bill_to.END',
1907: 'ZX_TDS_PROCESS_CEC_PVT.bill_to (-)');
1908: END IF;
1909: return l_return_val;
1910: END bill_to;
1911:
1928: l_return_val := FALSE;
1929:
1930: IF (g_level_statement >= g_current_runtime_level ) THEN
1931: FND_LOG.STRING(g_level_statement,
1932: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poo.BEGIN',
1933: 'ZX_TDS_PROCESS_CEC_PVT.poo (+)');
1934:
1935: END IF;
1936:
1929:
1930: IF (g_level_statement >= g_current_runtime_level ) THEN
1931: FND_LOG.STRING(g_level_statement,
1932: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poo.BEGIN',
1933: 'ZX_TDS_PROCESS_CEC_PVT.poo (+)');
1934:
1935: END IF;
1936:
1937: l_return_val := compare_condition ( g_cec_poo_location_id,
1941: p_value);
1942: if l_return_val = TRUE then
1943: IF (g_level_statement >= g_current_runtime_level ) THEN
1944: FND_LOG.STRING(g_level_statement,
1945: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poo',
1946: 'The condition POO '||p_classification||
1947: p_operator||p_value||' evaluates to TRUE');
1948: END IF;
1949: else
1948: END IF;
1949: else
1950: IF (g_level_statement >= g_current_runtime_level ) THEN
1951: FND_LOG.STRING(g_level_statement,
1952: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poo',
1953: 'The condition POO '||p_classification||
1954: p_operator||p_value||' evaluates to FALSE');
1955: END IF;
1956: end if;
1962: dump_stats_rec(IDX_POO); --for bug1833141
1963: end if;
1964: IF (g_level_statement >= g_current_runtime_level ) THEN
1965: FND_LOG.STRING(g_level_statement,
1966: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poo',
1967: 'Point of Origin (-)');
1968: FND_LOG.STRING(g_level_statement,
1969: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poo.END',
1970: 'ZX_TDS_PROCESS_CEC_PVT.poo (-)');
1965: FND_LOG.STRING(g_level_statement,
1966: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poo',
1967: 'Point of Origin (-)');
1968: FND_LOG.STRING(g_level_statement,
1969: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poo.END',
1970: 'ZX_TDS_PROCESS_CEC_PVT.poo (-)');
1971: END IF;
1972: return l_return_val;
1973: END poo;
1966: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poo',
1967: 'Point of Origin (-)');
1968: FND_LOG.STRING(g_level_statement,
1969: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poo.END',
1970: 'ZX_TDS_PROCESS_CEC_PVT.poo (-)');
1971: END IF;
1972: return l_return_val;
1973: END poo;
1974:
1991: l_return_val := FALSE;
1992:
1993: IF (g_level_statement >= g_current_runtime_level ) THEN
1994: FND_LOG.STRING(g_level_statement,
1995: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poa.BEGIN',
1996: 'ZX_TDS_PROCESS_CEC_PVT.poa (+)');
1997:
1998: END IF;
1999:
1992:
1993: IF (g_level_statement >= g_current_runtime_level ) THEN
1994: FND_LOG.STRING(g_level_statement,
1995: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poa.BEGIN',
1996: 'ZX_TDS_PROCESS_CEC_PVT.poa (+)');
1997:
1998: END IF;
1999:
2000: l_return_val := compare_condition ( g_cec_poa_location_id,
2004: p_value);
2005: if l_return_val = TRUE then
2006: IF (g_level_statement >= g_current_runtime_level ) THEN
2007: FND_LOG.STRING(g_level_statement,
2008: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poa',
2009: 'The condition POA '||p_classification||
2010: p_operator||p_value||' evaluates to TRUE');
2011: END IF;
2012: else
2011: END IF;
2012: else
2013: IF (g_level_statement >= g_current_runtime_level ) THEN
2014: FND_LOG.STRING(g_level_statement,
2015: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poa',
2016: 'The condition POA '||p_classification||
2017: p_operator||p_value||' evaluates to FALSE');
2018: END IF;
2019: end if;
2026: end if;
2027: IF (g_level_statement >= g_current_runtime_level ) THEN
2028:
2029: FND_LOG.STRING(g_level_statement,
2030: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poa.END',
2031: 'ZX_TDS_PROCESS_CEC_PVT.poa (-)');
2032: END IF;
2033: return l_return_val;
2034: END poa;
2027: IF (g_level_statement >= g_current_runtime_level ) THEN
2028:
2029: FND_LOG.STRING(g_level_statement,
2030: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.poa.END',
2031: 'ZX_TDS_PROCESS_CEC_PVT.poa (-)');
2032: END IF;
2033: return l_return_val;
2034: END poa;
2035:
2052: l_return_val := FALSE;
2053:
2054: IF (g_level_statement >= g_current_runtime_level ) THEN
2055: FND_LOG.STRING(g_level_statement,
2056: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.trx.BEGIN',
2057: 'ZX_TDS_PROCESS_CEC_PVT.trx (+)');
2058:
2059: END IF;
2060:
2053:
2054: IF (g_level_statement >= g_current_runtime_level ) THEN
2055: FND_LOG.STRING(g_level_statement,
2056: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.trx.BEGIN',
2057: 'ZX_TDS_PROCESS_CEC_PVT.trx (+)');
2058:
2059: END IF;
2060:
2061: l_return_val := compare_condition (
2066: p_value);
2067: if l_return_val = TRUE then
2068: IF (g_level_statement >= g_current_runtime_level ) THEN
2069: FND_LOG.STRING(g_level_statement,
2070: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.trx',
2071: 'The Trx condition evaluates to TRUE');
2072: END IF;
2073: else
2074: IF (g_level_statement >= g_current_runtime_level ) THEN
2072: END IF;
2073: else
2074: IF (g_level_statement >= g_current_runtime_level ) THEN
2075: FND_LOG.STRING(g_level_statement,
2076: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.trx',
2077: 'The Trx condition evaluates to FALSE');
2078: END IF;
2079: end if;
2080: -- Only when p_oprator is not NOT_FOUND, update pr_stats_rec_tbl.
2086: end if;
2087: IF (g_level_statement >= g_current_runtime_level ) THEN
2088:
2089: FND_LOG.STRING(g_level_statement,
2090: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.trx.END',
2091: 'ZX_TDS_PROCESS_CEC_PVT.trx (-)');
2092: END IF;
2093:
2094: return l_return_val;
2087: IF (g_level_statement >= g_current_runtime_level ) THEN
2088:
2089: FND_LOG.STRING(g_level_statement,
2090: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.trx.END',
2091: 'ZX_TDS_PROCESS_CEC_PVT.trx (-)');
2092: END IF;
2093:
2094: return l_return_val;
2095: END trx;
2111: l_return_val := FALSE;
2112:
2113: IF (g_level_statement >= g_current_runtime_level ) THEN
2114: FND_LOG.STRING(g_level_statement,
2115: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.item.BEGIN',
2116: 'ZX_TDS_PROCESS_CEC_PVT.item (+)');
2117: END IF;
2118:
2119:
2112:
2113: IF (g_level_statement >= g_current_runtime_level ) THEN
2114: FND_LOG.STRING(g_level_statement,
2115: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.item.BEGIN',
2116: 'ZX_TDS_PROCESS_CEC_PVT.item (+)');
2117: END IF;
2118:
2119:
2120: l_return_val := compare_condition ( g_cec_trx_line_id,
2124: p_value);
2125: if l_return_val = TRUE then
2126: IF (g_level_statement >= g_current_runtime_level ) THEN
2127: FND_LOG.STRING(g_level_statement,
2128: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.item',
2129: 'Item Condition Evaluates to TRUE');
2130: END IF;
2131: else
2132: IF (g_level_statement >= g_current_runtime_level ) THEN
2130: END IF;
2131: else
2132: IF (g_level_statement >= g_current_runtime_level ) THEN
2133: FND_LOG.STRING(g_level_statement,
2134: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.item',
2135: 'Item Condition Evaluates to FALSE');
2136: END IF;
2137: end if;
2138: --
2148: end if;
2149:
2150: IF (g_level_statement >= g_current_runtime_level ) THEN
2151: FND_LOG.STRING(g_level_statement,
2152: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.item.END',
2153: 'ZX_TDS_PROCESS_CEC_PVT.item (-)');
2154: END IF;
2155: return l_return_val;
2156: END item;
2149:
2150: IF (g_level_statement >= g_current_runtime_level ) THEN
2151: FND_LOG.STRING(g_level_statement,
2152: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.item.END',
2153: 'ZX_TDS_PROCESS_CEC_PVT.item (-)');
2154: END IF;
2155: return l_return_val;
2156: END item;
2157:
2165: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2166:
2167: IF (g_level_statement >= g_current_runtime_level ) THEN
2168: FND_LOG.STRING(g_level_statement,
2169: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.user_message.BEGIN',
2170: 'ZX_TDS_PROCESS_CEC_PVT.user_message (+)');
2171: END IF;
2172: if (p_msg is not null) then
2173: pr_message_token := p_msg;
2166:
2167: IF (g_level_statement >= g_current_runtime_level ) THEN
2168: FND_LOG.STRING(g_level_statement,
2169: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.user_message.BEGIN',
2170: 'ZX_TDS_PROCESS_CEC_PVT.user_message (+)');
2171: END IF;
2172: if (p_msg is not null) then
2173: pr_message_token := p_msg;
2174: end if;
2173: pr_message_token := p_msg;
2174: end if;
2175: IF (g_level_statement >= g_current_runtime_level ) THEN
2176: FND_LOG.STRING(g_level_statement,
2177: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.user_message.END',
2178: 'ZX_TDS_PROCESS_CEC_PVT.user_message (-)');
2179: END IF;
2180:
2181: END user_message;
2174: end if;
2175: IF (g_level_statement >= g_current_runtime_level ) THEN
2176: FND_LOG.STRING(g_level_statement,
2177: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.user_message.END',
2178: 'ZX_TDS_PROCESS_CEC_PVT.user_message (-)');
2179: END IF;
2180:
2181: END user_message;
2182:
2191: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2192:
2193: IF (g_level_statement >= g_current_runtime_level ) THEN
2194: FND_LOG.STRING(g_level_statement,
2195: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.system_message.BEGIN',
2196: 'ZX_TDS_PROCESS_CEC_PVT.system_message (+)');
2197: END IF;
2198:
2199: if (p_msg is not null) then
2192:
2193: IF (g_level_statement >= g_current_runtime_level ) THEN
2194: FND_LOG.STRING(g_level_statement,
2195: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.system_message.BEGIN',
2196: 'ZX_TDS_PROCESS_CEC_PVT.system_message (+)');
2197: END IF;
2198:
2199: if (p_msg is not null) then
2200: pr_message_token := fnd_message.get_string('AR',p_msg);
2204: end if;
2205:
2206: IF (g_level_statement >= g_current_runtime_level ) THEN
2207: FND_LOG.STRING(g_level_statement,
2208: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.system_message.END',
2209: 'ZX_TDS_PROCESS_CEC_PVT.system_message (-)');
2210: END IF;
2211:
2212: END system_message;
2205:
2206: IF (g_level_statement >= g_current_runtime_level ) THEN
2207: FND_LOG.STRING(g_level_statement,
2208: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.system_message.END',
2209: 'ZX_TDS_PROCESS_CEC_PVT.system_message (-)');
2210: END IF;
2211:
2212: END system_message;
2213:
2217: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2218:
2219: IF (g_level_statement >= g_current_runtime_level ) THEN
2220: FND_LOG.STRING(g_level_statement,
2221: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.apply_exception.BEGIN',
2222: 'ZX_TDS_PROCESS_CEC_PVT.Apply_Exception (+)');
2223: END IF;
2224: -- set pr_tax_rate with p_exception.
2225: if (p_exception is not null) then
2218:
2219: IF (g_level_statement >= g_current_runtime_level ) THEN
2220: FND_LOG.STRING(g_level_statement,
2221: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.apply_exception.BEGIN',
2222: 'ZX_TDS_PROCESS_CEC_PVT.Apply_Exception (+)');
2223: END IF;
2224: -- set pr_tax_rate with p_exception.
2225: if (p_exception is not null) then
2226: pr_tax_rate := to_number(p_exception);
2227: end if;
2228:
2229: IF (g_level_statement >= g_current_runtime_level ) THEN
2230: FND_LOG.STRING(g_level_statement,
2231: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.apply_exception.END',
2232: 'ZX_TDS_PROCESS_CEC_PVT.Apply_Exception (-)');
2233: END IF;
2234:
2235: END apply_exception;
2228:
2229: IF (g_level_statement >= g_current_runtime_level ) THEN
2230: FND_LOG.STRING(g_level_statement,
2231: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.apply_exception.END',
2232: 'ZX_TDS_PROCESS_CEC_PVT.Apply_Exception (-)');
2233: END IF;
2234:
2235: END apply_exception;
2236:
2240: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2241:
2242: IF (g_level_statement >= g_current_runtime_level ) THEN
2243: FND_LOG.STRING(g_level_statement,
2244: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.do_not_apply_exception.BEGIN',
2245: 'ZX_TDS_PROCESS_CEC_PVT.Do_Not_Apply_Exception (+)');
2246: END IF;
2247: NULL;
2248: IF (g_level_statement >= g_current_runtime_level ) THEN
2241:
2242: IF (g_level_statement >= g_current_runtime_level ) THEN
2243: FND_LOG.STRING(g_level_statement,
2244: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.do_not_apply_exception.BEGIN',
2245: 'ZX_TDS_PROCESS_CEC_PVT.Do_Not_Apply_Exception (+)');
2246: END IF;
2247: NULL;
2248: IF (g_level_statement >= g_current_runtime_level ) THEN
2249: FND_LOG.STRING(g_level_statement,
2246: END IF;
2247: NULL;
2248: IF (g_level_statement >= g_current_runtime_level ) THEN
2249: FND_LOG.STRING(g_level_statement,
2250: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.do_not_apply_exception.END',
2251: 'ZX_TDS_PROCESS_CEC_PVT.Do_Not_Apply_Exception (-)');
2252: END IF;
2253:
2254: END do_not_apply_exception;
2247: NULL;
2248: IF (g_level_statement >= g_current_runtime_level ) THEN
2249: FND_LOG.STRING(g_level_statement,
2250: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.do_not_apply_exception.END',
2251: 'ZX_TDS_PROCESS_CEC_PVT.Do_Not_Apply_Exception (-)');
2252: END IF;
2253:
2254: END do_not_apply_exception;
2255:
2259: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2260:
2261: IF (g_level_statement >= g_current_runtime_level ) THEN
2262: FND_LOG.STRING(g_level_statement,
2263: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_tax_code.BEGIN',
2264: 'ZX_TDS_PROCESS_CEC_PVT.use_tax_code (+)');
2265: FND_LOG.STRING(g_level_statement,
2266: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_tax_code.END',
2267: 'ZX_TDS_PROCESS_CEC_PVT.use_tax_code (-)');
2260:
2261: IF (g_level_statement >= g_current_runtime_level ) THEN
2262: FND_LOG.STRING(g_level_statement,
2263: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_tax_code.BEGIN',
2264: 'ZX_TDS_PROCESS_CEC_PVT.use_tax_code (+)');
2265: FND_LOG.STRING(g_level_statement,
2266: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_tax_code.END',
2267: 'ZX_TDS_PROCESS_CEC_PVT.use_tax_code (-)');
2268: END IF;
2262: FND_LOG.STRING(g_level_statement,
2263: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_tax_code.BEGIN',
2264: 'ZX_TDS_PROCESS_CEC_PVT.use_tax_code (+)');
2265: FND_LOG.STRING(g_level_statement,
2266: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_tax_code.END',
2267: 'ZX_TDS_PROCESS_CEC_PVT.use_tax_code (-)');
2268: END IF;
2269:
2270: END use_tax_code;
2263: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_tax_code.BEGIN',
2264: 'ZX_TDS_PROCESS_CEC_PVT.use_tax_code (+)');
2265: FND_LOG.STRING(g_level_statement,
2266: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_tax_code.END',
2267: 'ZX_TDS_PROCESS_CEC_PVT.use_tax_code (-)');
2268: END IF;
2269:
2270: END use_tax_code;
2271:
2275: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2276:
2277: IF (g_level_statement >= g_current_runtime_level ) THEN
2278: FND_LOG.STRING(g_level_statement,
2279: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code.BEGIN',
2280: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code (+)');
2281: FND_LOG.STRING(g_level_statement,
2282: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code.END',
2283: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code (-)');
2276:
2277: IF (g_level_statement >= g_current_runtime_level ) THEN
2278: FND_LOG.STRING(g_level_statement,
2279: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code.BEGIN',
2280: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code (+)');
2281: FND_LOG.STRING(g_level_statement,
2282: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code.END',
2283: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code (-)');
2284: END IF;
2278: FND_LOG.STRING(g_level_statement,
2279: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code.BEGIN',
2280: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code (+)');
2281: FND_LOG.STRING(g_level_statement,
2282: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code.END',
2283: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code (-)');
2284: END IF;
2285:
2286: END use_this_tax_code;
2279: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code.BEGIN',
2280: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code (+)');
2281: FND_LOG.STRING(g_level_statement,
2282: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code.END',
2283: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_code (-)');
2284: END IF;
2285:
2286: END use_this_tax_code;
2287:
2291: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2292:
2293: IF (g_level_statement >= g_current_runtime_level ) THEN
2294: FND_LOG.STRING(g_level_statement,
2295: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.default_tax_code.BEGIN',
2296: 'ZX_TDS_PROCESS_CEC_PVT.default_tax_code (+)');
2297: FND_LOG.STRING(g_level_statement,
2298: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.default_tax_code.END',
2299: 'ZX_TDS_PROCESS_CEC_PVT.default_tax_code (-)');
2292:
2293: IF (g_level_statement >= g_current_runtime_level ) THEN
2294: FND_LOG.STRING(g_level_statement,
2295: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.default_tax_code.BEGIN',
2296: 'ZX_TDS_PROCESS_CEC_PVT.default_tax_code (+)');
2297: FND_LOG.STRING(g_level_statement,
2298: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.default_tax_code.END',
2299: 'ZX_TDS_PROCESS_CEC_PVT.default_tax_code (-)');
2300: END IF;
2294: FND_LOG.STRING(g_level_statement,
2295: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.default_tax_code.BEGIN',
2296: 'ZX_TDS_PROCESS_CEC_PVT.default_tax_code (+)');
2297: FND_LOG.STRING(g_level_statement,
2298: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.default_tax_code.END',
2299: 'ZX_TDS_PROCESS_CEC_PVT.default_tax_code (-)');
2300: END IF;
2301:
2302: END default_tax_code;
2295: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.default_tax_code.BEGIN',
2296: 'ZX_TDS_PROCESS_CEC_PVT.default_tax_code (+)');
2297: FND_LOG.STRING(g_level_statement,
2298: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.default_tax_code.END',
2299: 'ZX_TDS_PROCESS_CEC_PVT.default_tax_code (-)');
2300: END IF;
2301:
2302: END default_tax_code;
2303:
2307: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2308:
2309: IF (g_level_statement >= g_current_runtime_level ) THEN
2310: FND_LOG.STRING(g_level_statement,
2311: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group.BEGIN',
2312: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group (+)');
2313:
2314: FND_LOG.STRING(g_level_statement,
2315: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group.END',
2308:
2309: IF (g_level_statement >= g_current_runtime_level ) THEN
2310: FND_LOG.STRING(g_level_statement,
2311: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group.BEGIN',
2312: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group (+)');
2313:
2314: FND_LOG.STRING(g_level_statement,
2315: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group.END',
2316: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group (-)');
2311: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group.BEGIN',
2312: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group (+)');
2313:
2314: FND_LOG.STRING(g_level_statement,
2315: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group.END',
2316: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group (-)');
2317: END IF;
2318:
2319: END use_this_tax_group;
2312: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group (+)');
2313:
2314: FND_LOG.STRING(g_level_statement,
2315: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group.END',
2316: 'ZX_TDS_PROCESS_CEC_PVT.use_this_tax_group (-)');
2317: END IF;
2318:
2319: END use_this_tax_group;
2320:
2324: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2325:
2326: IF (g_level_statement >= g_current_runtime_level ) THEN
2327: FND_LOG.STRING(g_level_statement,
2328: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_code.BEGIN',
2329: 'ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_code (+)');
2330: END IF;
2331: pr_do_not_use_this_tax_flag := TRUE;
2332: IF (g_level_statement >= g_current_runtime_level ) THEN
2325:
2326: IF (g_level_statement >= g_current_runtime_level ) THEN
2327: FND_LOG.STRING(g_level_statement,
2328: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_code.BEGIN',
2329: 'ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_code (+)');
2330: END IF;
2331: pr_do_not_use_this_tax_flag := TRUE;
2332: IF (g_level_statement >= g_current_runtime_level ) THEN
2333: FND_LOG.STRING(g_level_statement,
2330: END IF;
2331: pr_do_not_use_this_tax_flag := TRUE;
2332: IF (g_level_statement >= g_current_runtime_level ) THEN
2333: FND_LOG.STRING(g_level_statement,
2334: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_code.END',
2335: 'ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_code (-)');
2336: END IF;
2337:
2338: END do_not_use_this_tax_code;
2331: pr_do_not_use_this_tax_flag := TRUE;
2332: IF (g_level_statement >= g_current_runtime_level ) THEN
2333: FND_LOG.STRING(g_level_statement,
2334: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_code.END',
2335: 'ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_code (-)');
2336: END IF;
2337:
2338: END do_not_use_this_tax_code;
2339:
2343: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2344:
2345: IF (g_level_statement >= g_current_runtime_level ) THEN
2346: FND_LOG.STRING(g_level_statement,
2347: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_group.BEGIN',
2348: 'ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_group (+)');
2349:
2350: END IF;
2351: pr_do_not_use_this_group_flag := TRUE;
2344:
2345: IF (g_level_statement >= g_current_runtime_level ) THEN
2346: FND_LOG.STRING(g_level_statement,
2347: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_group.BEGIN',
2348: 'ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_group (+)');
2349:
2350: END IF;
2351: pr_do_not_use_this_group_flag := TRUE;
2352: IF (g_level_statement >= g_current_runtime_level ) THEN
2351: pr_do_not_use_this_group_flag := TRUE;
2352: IF (g_level_statement >= g_current_runtime_level ) THEN
2353:
2354: FND_LOG.STRING(g_level_statement,
2355: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_group.END',
2356: 'ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_group (-)');
2357: END IF;
2358:
2359: END do_not_use_this_tax_group;
2352: IF (g_level_statement >= g_current_runtime_level ) THEN
2353:
2354: FND_LOG.STRING(g_level_statement,
2355: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_group.END',
2356: 'ZX_TDS_PROCESS_CEC_PVT.do_not_use_this_tax_group (-)');
2357: END IF;
2358:
2359: END do_not_use_this_tax_group;
2360:
2442: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2443:
2444: IF (g_level_statement >= g_current_runtime_level ) THEN
2445: FND_LOG.STRING(g_level_statement,
2446: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec.BEGIN',
2447: 'ZX_TDS_PROCESS_CEC_PVT: evaluate_cec(+)');
2448: END IF;
2449:
2450: p_return_status := FND_API.G_RET_STS_SUCCESS;
2443:
2444: IF (g_level_statement >= g_current_runtime_level ) THEN
2445: FND_LOG.STRING(g_level_statement,
2446: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec.BEGIN',
2447: 'ZX_TDS_PROCESS_CEC_PVT: evaluate_cec(+)');
2448: END IF;
2449:
2450: p_return_status := FND_API.G_RET_STS_SUCCESS;
2451:
2500:
2501: If NVL(pr_do_not_use_this_group_flag, FALSE) then
2502: IF (g_level_statement >= g_current_runtime_level ) THEN
2503: FND_LOG.STRING(g_level_statement,
2504: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec',
2505: 'Constraint Evaluated to False - Do not use the Condition Group');
2506:
2507: END IF;
2508: p_cec_result := false;
2555: p_action_rec_tbl := pr_action_rec_tbl;
2556:
2557: IF (g_level_statement >= g_current_runtime_level ) THEN
2558: FND_LOG.STRING(g_level_statement,
2559: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec.END',
2560: 'ZX_TDS_PROCESS_CEC_PVT: evaluate_cec(-)');
2561: END IF;
2562:
2563: exception
2556:
2557: IF (g_level_statement >= g_current_runtime_level ) THEN
2558: FND_LOG.STRING(g_level_statement,
2559: 'ZX.PLSQL.ZX_TDS_PROCESS_CEC_PVT.evaluate_cec.END',
2560: 'ZX_TDS_PROCESS_CEC_PVT: evaluate_cec(-)');
2561: END IF;
2562:
2563: exception
2564: when no_data_found then
2575:
2576: BEGIN
2577: init_stats_rec_tbl;
2578:
2579: END ZX_TDS_PROCESS_CEC_PVT;