[Home] [Help]
1: PACKAGE BODY ZX_TRD_SERVICES_PUB_PKG AS
2: /* $Header: zxmwrecdmsrvpubb.pls 120.172.12020000.5 2012/11/12 12:38:00 ssanka ship $ */
3:
4: /* Declare constants */
5:
2: /* $Header: zxmwrecdmsrvpubb.pls 120.172.12020000.5 2012/11/12 12:38:00 ssanka ship $ */
3:
4: /* Declare constants */
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'zx_trd_services_pub_pkg';
7: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
8: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
9: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
10:
303: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
304:
305: IF (g_level_procedure >= g_current_runtime_level ) THEN
306: FND_LOG.STRING(g_level_procedure,
307: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.BEGIN',
308: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(+) ');
309: END IF;
310:
311: x_return_status:= FND_API.G_RET_STS_SUCCESS;
304:
305: IF (g_level_procedure >= g_current_runtime_level ) THEN
306: FND_LOG.STRING(g_level_procedure,
307: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.BEGIN',
308: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(+) ');
309: END IF;
310:
311: x_return_status:= FND_API.G_RET_STS_SUCCESS;
312: -- g_variance_calc_flag := 'N';
332: ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec.tax_line_id := NULL;
333: ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec.trx_line_dist_id := NULL;
334:
335: SELECT ZX_REC_NREC_DIST_S.nextval
336: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
337: FROM dual;
338:
339: -- For a update event in quote calls(only PO has such case now),
340: -- no need to Update_Item_Dist_Changed_Flag, since all tax lines have been
352:
353: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
354: IF (g_level_statement >= g_current_runtime_level ) THEN
355: FND_LOG.STRING(g_level_statement,
356: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
357: 'After calling TRL, x_return_status = '|| x_return_status);
358: FND_LOG.STRING(g_level_statement,
359: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
360: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
355: FND_LOG.STRING(g_level_statement,
356: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
357: 'After calling TRL, x_return_status = '|| x_return_status);
358: FND_LOG.STRING(g_level_statement,
359: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
360: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
361: END IF;
362: RETURN;
363: END IF;
356: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
357: 'After calling TRL, x_return_status = '|| x_return_status);
358: FND_LOG.STRING(g_level_statement,
359: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
360: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
361: END IF;
362: RETURN;
363: END IF;
364: END IF;
373:
374: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
375: IF (g_level_statement >= g_current_runtime_level ) THEN
376: FND_LOG.STRING(g_level_statement,
377: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
378: 'After calling fetch tax lines, x_return_status = '
379: || x_return_status);
380: FND_LOG.STRING(g_level_statement,
381: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
377: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
378: 'After calling fetch tax lines, x_return_status = '
379: || x_return_status);
380: FND_LOG.STRING(g_level_statement,
381: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
382: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
383: END IF;
384: RETURN;
385: END IF;
378: 'After calling fetch tax lines, x_return_status = '
379: || x_return_status);
380: FND_LOG.STRING(g_level_statement,
381: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
382: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
383: END IF;
384: RETURN;
385: END IF;
386:
403:
404: IF tax_line_counter = 0 THEN
405: IF (g_level_statement >= g_current_runtime_level ) THEN
406: FND_LOG.STRING(g_level_statement,
407: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
408: 'there is no tax lines that need to be processed ');
409:
410: FND_LOG.STRING(g_level_statement,
411: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
407: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
408: 'there is no tax lines that need to be processed ');
409:
410: FND_LOG.STRING(g_level_statement,
411: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
412: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)'||x_return_status);
413: END IF;
414: RETURN;
415:
408: 'there is no tax lines that need to be processed ');
409:
410: FND_LOG.STRING(g_level_statement,
411: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
412: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)'||x_return_status);
413: END IF;
414: RETURN;
415:
416: ELSE
443:
444: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
445: IF (g_level_statement >= g_current_runtime_level ) THEN
446: FND_LOG.STRING(g_level_statement,
447: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
448: 'After calling populate_trx_line_info, x_return_status = '
449: || x_return_status);
450: FND_LOG.STRING(g_level_statement,
451: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
447: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
448: 'After calling populate_trx_line_info, x_return_status = '
449: || x_return_status);
450: FND_LOG.STRING(g_level_statement,
451: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
452: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
453: END IF;
454: RETURN;
455: END IF;
448: 'After calling populate_trx_line_info, x_return_status = '
449: || x_return_status);
450: FND_LOG.STRING(g_level_statement,
451: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
452: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
453: END IF;
454: RETURN;
455: END IF;
456:
512: overriding_recovery_rate_tbl(1) := NULL;
513:
514: IF (g_level_statement >= g_current_runtime_level ) THEN
515: FND_LOG.STRING(g_level_statement,
516: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
517: 'trx_line_dist_id_tbl '
518: ||to_char(trx_line_dist_id_tbl(1)));
519: END IF;
520: ELSE
593:
594: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
595: IF (g_level_statement >= g_current_runtime_level ) THEN
596: FND_LOG.STRING(g_level_statement,
597: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
598: 'After calling cancel_tax_line x_return_status = '
599: || x_return_status);
600: FND_LOG.STRING(g_level_statement,
601: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
597: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
598: 'After calling cancel_tax_line x_return_status = '
599: || x_return_status);
600: FND_LOG.STRING(g_level_statement,
601: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
602: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
603: END IF;
604: RETURN;
605: END IF;
598: 'After calling cancel_tax_line x_return_status = '
599: || x_return_status);
600: FND_LOG.STRING(g_level_statement,
601: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
602: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
603: END IF;
604: RETURN;
605: END IF;
606:
727:
728: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
729: IF (g_level_statement >= g_current_runtime_level ) THEN
730: FND_LOG.STRING(g_level_statement,
731: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
732: 'After calling calc_tax_dist x_return_status = '
733: || x_return_status);
734: FND_LOG.STRING(g_level_statement,
735: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
731: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
732: 'After calling calc_tax_dist x_return_status = '
733: || x_return_status);
734: FND_LOG.STRING(g_level_statement,
735: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
736: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
737: END IF;
738: RETURN;
739: END IF;
732: 'After calling calc_tax_dist x_return_status = '
733: || x_return_status);
734: FND_LOG.STRING(g_level_statement,
735: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
736: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
737: END IF;
738: RETURN;
739: END IF;
740: ELSIF l_action = 'NO_ACTION' THEN
752:
753: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
754: IF (g_level_statement >= g_current_runtime_level ) THEN
755: FND_LOG.STRING(g_level_statement,
756: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
757: 'After calling fetch_tax_distributions x_return_status = '
758: || x_return_status);
759: FND_LOG.STRING(g_level_statement,
760: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
756: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
757: 'After calling fetch_tax_distributions x_return_status = '
758: || x_return_status);
759: FND_LOG.STRING(g_level_statement,
760: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
761: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
762: END IF;
763: RETURN;
764: END IF;
757: 'After calling fetch_tax_distributions x_return_status = '
758: || x_return_status);
759: FND_LOG.STRING(g_level_statement,
760: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
761: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
762: END IF;
763: RETURN;
764: END IF;
765: ELSE -- wrong l_action
765: ELSE -- wrong l_action
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
767: IF (g_level_statement >= g_current_runtime_level ) THEN
768: FND_LOG.STRING(g_level_statement,
769: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
770: 'wrong dist level action code. l_action= '||l_action );
771: FND_LOG.STRING(g_level_statement,
772: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
773: 'RETURN_STATUS = ' || x_return_status);
768: FND_LOG.STRING(g_level_statement,
769: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
770: 'wrong dist level action code. l_action= '||l_action );
771: FND_LOG.STRING(g_level_statement,
772: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
773: 'RETURN_STATUS = ' || x_return_status);
774: END IF;
775: RETURN;
776: END IF; -- l_action
842: l_action := ZX_GLOBAL_STRUCTURES_PKG.TRX_LINE_DIST_TBL.DIST_LEVEL_ACTION(1);
843:
844: IF (g_level_statement >= g_current_runtime_level ) THEN
845: FND_LOG.STRING(g_level_statement,
846: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
847: 'dist level action = ' || l_action);
848: END IF;
849:
850: IF l_action = 'CREATE' OR l_action = 'UPDATE' OR l_action = 'NO_ACTION'
865:
866: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
867: IF (g_level_statement >= g_current_runtime_level ) THEN
868: FND_LOG.STRING(g_level_statement,
869: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
870: 'After calling calc_tax_dist x_return_status = '
871: || x_return_status);
872: FND_LOG.STRING(g_level_statement,
873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
869: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
870: 'After calling calc_tax_dist x_return_status = '
871: || x_return_status);
872: FND_LOG.STRING(g_level_statement,
873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
874: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
875: END IF;
876: RETURN;
877: END IF;
870: 'After calling calc_tax_dist x_return_status = '
871: || x_return_status);
872: FND_LOG.STRING(g_level_statement,
873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
874: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
875: END IF;
876: RETURN;
877: END IF;
878:
879: ELSE -- wrong l_action
880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
881: IF (g_level_statement >= g_current_runtime_level ) THEN
882: FND_LOG.STRING(g_level_statement,
883: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
884: 'wrong dist level action code ' );
885:
886: END IF;
887: RETURN;
904:
905: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
906: IF (g_level_statement >= g_current_runtime_level ) THEN
907: FND_LOG.STRING(g_level_statement,
908: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
909: 'After calling get_rec_nrec_dist_amt x_return_status = '
910: || x_return_status);
911: FND_LOG.STRING(g_level_statement,
912: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
908: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
909: 'After calling get_rec_nrec_dist_amt x_return_status = '
910: || x_return_status);
911: FND_LOG.STRING(g_level_statement,
912: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
913: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
914: END IF;
915: RETURN;
916: END IF;
909: 'After calling get_rec_nrec_dist_amt x_return_status = '
910: || x_return_status);
911: FND_LOG.STRING(g_level_statement,
912: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
913: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
914: END IF;
915: RETURN;
916: END IF;
917:
929:
930: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
931: IF (g_level_statement >= g_current_runtime_level ) THEN
932: FND_LOG.STRING(g_level_statement,
933: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
934: 'After calling ROUND_REC_NREC_AMT x_return_status = '
935: || x_return_status);
936: FND_LOG.STRING(g_level_statement,
937: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
933: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
934: 'After calling ROUND_REC_NREC_AMT x_return_status = '
935: || x_return_status);
936: FND_LOG.STRING(g_level_statement,
937: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
938: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
939: END IF;
940: RETURN;
941: END IF;
934: 'After calling ROUND_REC_NREC_AMT x_return_status = '
935: || x_return_status);
936: FND_LOG.STRING(g_level_statement,
937: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
938: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
939: END IF;
940: RETURN;
941: END IF;
942:
956: --
957: -- IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
958: -- IF (g_level_statement >= g_current_runtime_level ) THEN
959: -- FND_LOG.STRING(g_level_statement,
960: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
961: -- 'After calling create_mrc_tax_dists x_return_status = '
962: -- || x_return_status);
963: -- FND_LOG.STRING(g_level_statement,
964: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
960: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
961: -- 'After calling create_mrc_tax_dists x_return_status = '
962: -- || x_return_status);
963: -- FND_LOG.STRING(g_level_statement,
964: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
965: -- 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
966: -- END IF;
967: -- RETURN;
968: -- END IF;
961: -- 'After calling create_mrc_tax_dists x_return_status = '
962: -- || x_return_status);
963: -- FND_LOG.STRING(g_level_statement,
964: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
965: -- 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
966: -- END IF;
967: -- RETURN;
968: -- END IF;
969: -- END IF; -- p_event_class_rec.enable_mrc_flag = 'Y'
979:
980: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
981: IF (g_level_statement >= g_current_runtime_level ) THEN
982: FND_LOG.STRING(g_level_statement,
983: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
984: 'After calling insert_global_table x_return_status = '
985: || x_return_status);
986: FND_LOG.STRING(g_level_statement,
987: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
983: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
984: 'After calling insert_global_table x_return_status = '
985: || x_return_status);
986: FND_LOG.STRING(g_level_statement,
987: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
988: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
989: END IF;
990: RETURN;
991: END IF;
984: 'After calling insert_global_table x_return_status = '
985: || x_return_status);
986: FND_LOG.STRING(g_level_statement,
987: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
988: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
989: END IF;
990: RETURN;
991: END IF;
992:
1001:
1002: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1003: IF (g_level_statement >= g_current_runtime_level ) THEN
1004: FND_LOG.STRING(g_level_statement,
1005: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
1006: 'After calling populate_mandatory_columns x_return_status = '
1007: || x_return_status);
1008: FND_LOG.STRING(g_level_statement,
1009: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1005: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
1006: 'After calling populate_mandatory_columns x_return_status = '
1007: || x_return_status);
1008: FND_LOG.STRING(g_level_statement,
1009: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1010: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1011: END IF;
1012: RETURN;
1013: END IF;
1006: 'After calling populate_mandatory_columns x_return_status = '
1007: || x_return_status);
1008: FND_LOG.STRING(g_level_statement,
1009: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1010: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1011: END IF;
1012: RETURN;
1013: END IF;
1014:
1025:
1026: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1027: IF g_level_statement >= g_current_runtime_level THEN
1028: FND_LOG.STRING(g_level_statement,
1029: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
1030: 'After calling delete_unnecessary_tax_dists, x_return_status = '
1031: || x_return_status);
1032: FND_LOG.STRING(g_level_statement,
1033: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1029: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
1030: 'After calling delete_unnecessary_tax_dists, x_return_status = '
1031: || x_return_status);
1032: FND_LOG.STRING(g_level_statement,
1033: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1034: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1035: END IF;
1036: RETURN;
1037: END IF;
1030: 'After calling delete_unnecessary_tax_dists, x_return_status = '
1031: || x_return_status);
1032: FND_LOG.STRING(g_level_statement,
1033: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1034: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1035: END IF;
1036: RETURN;
1037: END IF;
1038: END IF;
1040:
1041: IF (g_level_procedure >= g_current_runtime_level ) THEN
1042:
1043: FND_LOG.STRING(g_level_procedure,
1044: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1045: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)'||x_return_status);
1046: END IF;
1047:
1048: EXCEPTION
1041: IF (g_level_procedure >= g_current_runtime_level ) THEN
1042:
1043: FND_LOG.STRING(g_level_procedure,
1044: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1045: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)'||x_return_status);
1046: END IF;
1047:
1048: EXCEPTION
1049: WHEN OTHERS THEN
1051: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1052:
1053: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1054: FND_LOG.STRING(g_level_unexpected,
1055: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
1056: p_error_buffer);
1057: FND_LOG.STRING(g_level_unexpected,
1058: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1059: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1054: FND_LOG.STRING(g_level_unexpected,
1055: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
1056: p_error_buffer);
1057: FND_LOG.STRING(g_level_unexpected,
1058: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1059: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1060:
1061: END IF;
1062:
1055: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
1056: p_error_buffer);
1057: FND_LOG.STRING(g_level_unexpected,
1058: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1059: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1060:
1061: END IF;
1062:
1063: END DETERMINE_RECOVERY;
1122: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1123:
1124: IF (g_level_procedure >= g_current_runtime_level ) THEN
1125: FND_LOG.STRING(g_level_procedure,
1126: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.BEGIN',
1127: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(+)');
1128: END IF;
1129:
1130: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1123:
1124: IF (g_level_procedure >= g_current_runtime_level ) THEN
1125: FND_LOG.STRING(g_level_procedure,
1126: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.BEGIN',
1127: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(+)');
1128: END IF;
1129:
1130: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1131:
1211: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1212:
1213: IF (g_level_statement >= g_current_runtime_level ) THEN
1214: FND_LOG.STRING(g_level_statement,
1215: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1216: 'After calling ROUND_REC_NREC_AMT x_return_status = '
1217: || x_return_status);
1218: FND_LOG.STRING(g_level_statement,
1219: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1215: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1216: 'After calling ROUND_REC_NREC_AMT x_return_status = '
1217: || x_return_status);
1218: FND_LOG.STRING(g_level_statement,
1219: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1220: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1221: END IF;
1222: RETURN;
1223:
1216: 'After calling ROUND_REC_NREC_AMT x_return_status = '
1217: || x_return_status);
1218: FND_LOG.STRING(g_level_statement,
1219: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1220: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1221: END IF;
1222: RETURN;
1223:
1224: END IF;
1229: -- -- create MRC tax distributions
1230: -- --
1231: -- IF (g_level_statement >= g_current_runtime_level ) THEN
1232: -- FND_LOG.STRING(g_level_statement,
1233: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1234: -- 'create MRC tax distributions' );
1235: -- END IF;
1236: --
1237: -- ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(
1244: --
1245: -- IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1246: -- IF (g_level_statement >= g_current_runtime_level ) THEN
1247: -- FND_LOG.STRING(g_level_statement,
1248: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1249: -- 'After calling create_mrc_tax_dists x_return_status = '
1250: -- || x_return_status);
1251: -- FND_LOG.STRING(g_level_statement,
1252: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1248: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1249: -- 'After calling create_mrc_tax_dists x_return_status = '
1250: -- || x_return_status);
1251: -- FND_LOG.STRING(g_level_statement,
1252: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1253: -- 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1254: -- END IF;
1255: -- RETURN;
1256: -- END IF;
1249: -- 'After calling create_mrc_tax_dists x_return_status = '
1250: -- || x_return_status);
1251: -- FND_LOG.STRING(g_level_statement,
1252: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1253: -- 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1254: -- END IF;
1255: -- RETURN;
1256: -- END IF;
1257: -- END IF; -- p_event_class_rec.enable_mrc_flag = 'Y'
1267: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1268:
1269: IF (g_level_statement >= g_current_runtime_level ) THEN
1270: FND_LOG.STRING(g_level_statement,
1271: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1272: 'After calling insert_global_table x_return_status = '
1273: || x_return_status);
1274: FND_LOG.STRING(g_level_statement,
1275: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1271: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1272: 'After calling insert_global_table x_return_status = '
1273: || x_return_status);
1274: FND_LOG.STRING(g_level_statement,
1275: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1276: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1277: END IF;
1278: RETURN;
1279:
1272: 'After calling insert_global_table x_return_status = '
1273: || x_return_status);
1274: FND_LOG.STRING(g_level_statement,
1275: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1276: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1277: END IF;
1278: RETURN;
1279:
1280: END IF;
1291: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1292:
1293: IF (g_level_statement >= g_current_runtime_level ) THEN
1294: FND_LOG.STRING(g_level_statement,
1295: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1296: 'After calling populate_mandatory_columns x_return_status = '
1297: || x_return_status);
1298: FND_LOG.STRING(g_level_statement,
1299: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1295: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1296: 'After calling populate_mandatory_columns x_return_status = '
1297: || x_return_status);
1298: FND_LOG.STRING(g_level_statement,
1299: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1300: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1301: END IF;
1302: RETURN;
1303:
1296: 'After calling populate_mandatory_columns x_return_status = '
1297: || x_return_status);
1298: FND_LOG.STRING(g_level_statement,
1299: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1300: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1301: END IF;
1302: RETURN;
1303:
1304: END IF;
1319: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1320:
1321: IF (g_level_statement >= g_current_runtime_level ) THEN
1322: FND_LOG.STRING(g_level_statement,
1323: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1324: 'After calling calc_variance_factors ' ||
1325: 'x_return_status = ' || x_return_status);
1326: FND_LOG.STRING(g_level_statement,
1327: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1323: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1324: 'After calling calc_variance_factors ' ||
1325: 'x_return_status = ' || x_return_status);
1326: FND_LOG.STRING(g_level_statement,
1327: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1328: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1329: END IF;
1330: RETURN;
1331:
1324: 'After calling calc_variance_factors ' ||
1325: 'x_return_status = ' || x_return_status);
1326: FND_LOG.STRING(g_level_statement,
1327: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1328: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1329: END IF;
1330: RETURN;
1331:
1332: END IF;
1334:
1335: IF (g_level_procedure >= g_current_runtime_level ) THEN
1336:
1337: FND_LOG.STRING(g_level_procedure,
1338: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1339: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)'||x_return_status);
1340: END IF;
1341:
1342: EXCEPTION
1335: IF (g_level_procedure >= g_current_runtime_level ) THEN
1336:
1337: FND_LOG.STRING(g_level_procedure,
1338: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1339: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)'||x_return_status);
1340: END IF;
1341:
1342: EXCEPTION
1343: WHEN OTHERS THEN
1345: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1346:
1347: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1348: FND_LOG.STRING(g_level_unexpected,
1349: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1350: p_error_buffer);
1351: FND_LOG.STRING(g_level_unexpected,
1352: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1353: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1348: FND_LOG.STRING(g_level_unexpected,
1349: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1350: p_error_buffer);
1351: FND_LOG.STRING(g_level_unexpected,
1352: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1353: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1354:
1355: END IF;
1356:
1349: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1350: p_error_buffer);
1351: FND_LOG.STRING(g_level_unexpected,
1352: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1353: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1354:
1355: END IF;
1356:
1357: END OVERRIDE_RECOVERY;
1388: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1389:
1390: IF (g_level_procedure >= g_current_runtime_level ) THEN
1391: FND_LOG.STRING(g_level_procedure,
1392: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.BEGIN',
1393: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(+)');
1394: END IF;
1395: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1396:
1389:
1390: IF (g_level_procedure >= g_current_runtime_level ) THEN
1391: FND_LOG.STRING(g_level_procedure,
1392: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.BEGIN',
1393: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(+)');
1394: END IF;
1395: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1396:
1397: l_index:= 1;
1404:
1405: -- get g_tax_dist_id
1406: --
1407: SELECT ZX_REC_NREC_DIST_S.nextval
1408: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
1409: FROM dual;
1410:
1411: p_rec_nrec_dist_tbl(l_index).Reverse_Flag:= 'Y';
1412:
1414: p_rec_nrec_dist_tbl(l_index):= p_rec_nrec_dist_tbl(l_index-1);
1415: -- reversed tax dist id is the original rec nrec tax dist id.
1416: p_rec_nrec_dist_tbl(l_index).reversed_tax_dist_id := p_rec_nrec_dist_tbl(l_index-1).rec_nrec_tax_dist_id;
1417: p_rec_nrec_dist_tbl(l_index).freeze_flag:= 'N';
1418: p_rec_nrec_dist_tbl(l_index).rec_nrec_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id;
1419:
1420: p_rec_nrec_dist_tbl(l_index).rec_nrec_tax_amt :=
1421: -p_rec_nrec_dist_tbl(l_index).rec_nrec_tax_amt;
1422: p_rec_nrec_dist_tbl(l_index).rec_nrec_tax_amt_tax_curr :=
1484:
1485: -- get g_tax_dist_id
1486: --
1487: SELECT ZX_REC_NREC_DIST_S.nextval
1488: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
1489: FROM dual;
1490:
1491: -- ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id + 1;
1492:
1487: SELECT ZX_REC_NREC_DIST_S.nextval
1488: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
1489: FROM dual;
1490:
1491: -- ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id + 1;
1492:
1493: p_rec_nrec_dist_tbl(l_index):= p_rec_nrec_dist_tbl(l_index - 2);
1494: p_rec_nrec_dist_tbl(l_index).rec_nrec_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id;
1495: p_rec_nrec_dist_tbl(l_index).Freeze_Flag:= 'N';
1490:
1491: -- ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id + 1;
1492:
1493: p_rec_nrec_dist_tbl(l_index):= p_rec_nrec_dist_tbl(l_index - 2);
1494: p_rec_nrec_dist_tbl(l_index).rec_nrec_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id;
1495: p_rec_nrec_dist_tbl(l_index).Freeze_Flag:= 'N';
1496: p_rec_nrec_dist_tbl(l_index).Reverse_Flag:= 'N';
1497: p_rec_nrec_dist_tbl(l_index).created_by := fnd_global.user_id;
1498: p_rec_nrec_dist_tbl(l_index).creation_date := sysdate;
1501: p_rec_nrec_dist_tbl(l_index).last_update_date := sysdate;
1502: p_rec_nrec_dist_tbl(l_index).object_version_number := 1;
1503:
1504: l_index:= l_index + 1;
1505: -- ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id + 1;
1506:
1507: END LOOP;
1508:
1509: CLOSE get_rec_nrec_dist_cur;
1510:
1511: IF (g_level_procedure >= g_current_runtime_level ) THEN
1512:
1513: FND_LOG.STRING(g_level_procedure,
1514: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1515: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(-)'||x_return_status);
1516: END IF;
1517:
1518: EXCEPTION
1511: IF (g_level_procedure >= g_current_runtime_level ) THEN
1512:
1513: FND_LOG.STRING(g_level_procedure,
1514: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1515: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(-)'||x_return_status);
1516: END IF;
1517:
1518: EXCEPTION
1519: WHEN OTHERS THEN
1521: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1522:
1523: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1524: FND_LOG.STRING(g_level_unexpected,
1525: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST',
1526: p_error_buffer);
1527: FND_LOG.STRING(g_level_unexpected,
1528: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1529: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(-)');
1524: FND_LOG.STRING(g_level_unexpected,
1525: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST',
1526: p_error_buffer);
1527: FND_LOG.STRING(g_level_unexpected,
1528: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1529: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(-)');
1530:
1531: END IF;
1532:
1525: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST',
1526: p_error_buffer);
1527: FND_LOG.STRING(g_level_unexpected,
1528: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1529: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(-)');
1530:
1531: END IF;
1532:
1533: END REVERSE_TAX_DIST;
1568: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1569:
1570: IF (g_level_procedure >= g_current_runtime_level ) THEN
1571: FND_LOG.STRING(g_level_procedure,
1572: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.BEGIN',
1573: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(+)');
1574: END IF;
1575:
1576: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1569:
1570: IF (g_level_procedure >= g_current_runtime_level ) THEN
1571: FND_LOG.STRING(g_level_procedure,
1572: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.BEGIN',
1573: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(+)');
1574: END IF;
1575:
1576: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1577:
1597: l_tax_variance := 'Y';
1598:
1599: IF (g_level_statement >= g_current_runtime_level ) THEN
1600: FND_LOG.STRING(g_level_statement,
1601: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1602: 'hold code 1 : tax variance ');
1603: END IF;
1604: END IF;
1605: ELSIF l_code = 2 THEN
1608: l_tax_amount_range := 'Y';
1609:
1610: IF (g_level_statement >= g_current_runtime_level ) THEN
1611: FND_LOG.STRING(g_level_statement,
1612: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1613: 'hold code 2 : tax amount range');
1614: END IF;
1615: END IF;
1616: ELSIF l_code = 3 THEN
1619: l_tax_variance := 'Y';
1620:
1621: IF (g_level_statement >= g_current_runtime_level ) THEN
1622: FND_LOG.STRING(g_level_statement,
1623: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1624: 'hold code 3 : tax variance ');
1625: END IF;
1626: END IF;
1627: IF l_tax_amount_range = 'N' THEN
1629: l_tax_amount_range := 'Y';
1630:
1631: IF (g_level_statement >= g_current_runtime_level ) THEN
1632: FND_LOG.STRING(g_level_statement,
1633: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1634: 'hold code 3 : tax amount range');
1635: END IF;
1636: END IF;
1637: END IF;
1891:
1892: IF (g_level_procedure >= g_current_runtime_level ) THEN
1893:
1894: FND_LOG.STRING(g_level_procedure,
1895: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1896: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(-)'||x_return_status);
1897: END IF;
1898:
1899: EXCEPTION
1892: IF (g_level_procedure >= g_current_runtime_level ) THEN
1893:
1894: FND_LOG.STRING(g_level_procedure,
1895: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1896: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(-)'||x_return_status);
1897: END IF;
1898:
1899: EXCEPTION
1900: WHEN OTHERS THEN
1905: END IF;
1906:
1907: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1908: FND_LOG.STRING(g_level_unexpected,
1909: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1910: 'x_hold_status.tax_variance = '||l_tax_variance);
1911: FND_LOG.STRING(g_level_unexpected,
1912: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1913: 'x_hold_status.tax_amount_range = '||l_tax_amount_range);
1908: FND_LOG.STRING(g_level_unexpected,
1909: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1910: 'x_hold_status.tax_variance = '||l_tax_variance);
1911: FND_LOG.STRING(g_level_unexpected,
1912: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1913: 'x_hold_status.tax_amount_range = '||l_tax_amount_range);
1914: FND_LOG.STRING(g_level_unexpected,
1915: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1916: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1911: FND_LOG.STRING(g_level_unexpected,
1912: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1913: 'x_hold_status.tax_amount_range = '||l_tax_amount_range);
1914: FND_LOG.STRING(g_level_unexpected,
1915: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1916: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1917: FND_LOG.STRING(g_level_unexpected,
1918: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1919: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(-)');
1914: FND_LOG.STRING(g_level_unexpected,
1915: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1916: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1917: FND_LOG.STRING(g_level_unexpected,
1918: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1919: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(-)');
1920:
1921: END IF;
1922:
1915: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1916: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1917: FND_LOG.STRING(g_level_unexpected,
1918: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1919: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(-)');
1920:
1921: END IF;
1922:
1923: END VALIDATE_DOCUMENT_FOR_TAX;
1970: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1971:
1972: IF (g_level_procedure >= g_current_runtime_level ) THEN
1973: FND_LOG.STRING(g_level_procedure,
1974: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.BEGIN',
1975: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(+)');
1976: END IF;
1977:
1978: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1971:
1972: IF (g_level_procedure >= g_current_runtime_level ) THEN
1973: FND_LOG.STRING(g_level_procedure,
1974: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.BEGIN',
1975: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(+)');
1976: END IF;
1977:
1978: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1979:
2531: -- WHERE REC_NREC_TAX_DIST_ID = l_rvrsed_tax_dist_id_tbl(i);
2532:
2533: IF (g_level_procedure >= g_current_runtime_level ) THEN
2534: FND_LOG.STRING(g_level_procedure,
2535: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.END',
2536: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(-)'||
2537: 'RETURN_STATUS = ' || x_return_status);
2538: END IF;
2539:
2532:
2533: IF (g_level_procedure >= g_current_runtime_level ) THEN
2534: FND_LOG.STRING(g_level_procedure,
2535: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.END',
2536: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(-)'||
2537: 'RETURN_STATUS = ' || x_return_status);
2538: END IF;
2539:
2540: EXCEPTION
2542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2543:
2544: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2545: FND_LOG.STRING(g_level_unexpected,
2546: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2547: 'Tax Lines Distribution Record Already Exists');
2548: FND_LOG.STRING(g_level_unexpected,
2549: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2550: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2545: FND_LOG.STRING(g_level_unexpected,
2546: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2547: 'Tax Lines Distribution Record Already Exists');
2548: FND_LOG.STRING(g_level_unexpected,
2549: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2550: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2551: END IF;
2552:
2553: WHEN OTHERS THEN
2554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2555:
2556: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2557: FND_LOG.STRING(g_level_unexpected,
2558: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2559: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2560: END IF;
2561:
2562: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2560: END IF;
2561:
2562: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2563: FND_LOG.STRING(g_level_unexpected,
2564: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.END',
2565: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(-)');
2566: END IF;
2567:
2568: END REVERSE_DISTRIBUTIONS;
2561:
2562: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2563: FND_LOG.STRING(g_level_unexpected,
2564: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.END',
2565: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(-)');
2566: END IF;
2567:
2568: END REVERSE_DISTRIBUTIONS;
2569:
2679:
2680: IF (g_level_procedure >= g_current_runtime_level ) THEN
2681:
2682: FND_LOG.STRING(g_level_procedure,
2683: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2684: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(+)');
2685:
2686: END IF;
2687:
2680: IF (g_level_procedure >= g_current_runtime_level ) THEN
2681:
2682: FND_LOG.STRING(g_level_procedure,
2683: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2684: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(+)');
2685:
2686: END IF;
2687:
2688: IF (g_level_statement >= g_current_runtime_level ) THEN
2685:
2686: END IF;
2687:
2688: IF (g_level_statement >= g_current_runtime_level ) THEN
2689: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Input Parameters:');
2690: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','GL Date:'||p_gl_date );
2691: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Rate Id:'||p_tax_rate_id);
2692: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recovery Rate Id:'||p_rec_rate_id);
2693: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Self Assessed Flag:'||p_Self_Assessed_Flag);
2686: END IF;
2687:
2688: IF (g_level_statement >= g_current_runtime_level ) THEN
2689: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Input Parameters:');
2690: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','GL Date:'||p_gl_date );
2691: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Rate Id:'||p_tax_rate_id);
2692: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recovery Rate Id:'||p_rec_rate_id);
2693: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Self Assessed Flag:'||p_Self_Assessed_Flag);
2694: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recoverable Flag:'|| p_Recoverable_Flag);
2687:
2688: IF (g_level_statement >= g_current_runtime_level ) THEN
2689: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Input Parameters:');
2690: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','GL Date:'||p_gl_date );
2691: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Rate Id:'||p_tax_rate_id);
2692: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recovery Rate Id:'||p_rec_rate_id);
2693: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Self Assessed Flag:'||p_Self_Assessed_Flag);
2694: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recoverable Flag:'|| p_Recoverable_Flag);
2695: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Org Id:'|| p_org_id);
2688: IF (g_level_statement >= g_current_runtime_level ) THEN
2689: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Input Parameters:');
2690: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','GL Date:'||p_gl_date );
2691: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Rate Id:'||p_tax_rate_id);
2692: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recovery Rate Id:'||p_rec_rate_id);
2693: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Self Assessed Flag:'||p_Self_Assessed_Flag);
2694: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recoverable Flag:'|| p_Recoverable_Flag);
2695: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Org Id:'|| p_org_id);
2696: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Ledger Id:'|| p_ledger_id);
2689: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Input Parameters:');
2690: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','GL Date:'||p_gl_date );
2691: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Rate Id:'||p_tax_rate_id);
2692: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recovery Rate Id:'||p_rec_rate_id);
2693: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Self Assessed Flag:'||p_Self_Assessed_Flag);
2694: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recoverable Flag:'|| p_Recoverable_Flag);
2695: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Org Id:'|| p_org_id);
2696: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Ledger Id:'|| p_ledger_id);
2697: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax regime id:'||p_tax_regime_id);
2690: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','GL Date:'||p_gl_date );
2691: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Rate Id:'||p_tax_rate_id);
2692: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recovery Rate Id:'||p_rec_rate_id);
2693: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Self Assessed Flag:'||p_Self_Assessed_Flag);
2694: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recoverable Flag:'|| p_Recoverable_Flag);
2695: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Org Id:'|| p_org_id);
2696: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Ledger Id:'|| p_ledger_id);
2697: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax regime id:'||p_tax_regime_id);
2698: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Id:'|| p_tax_id);
2691: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Rate Id:'||p_tax_rate_id);
2692: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recovery Rate Id:'||p_rec_rate_id);
2693: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Self Assessed Flag:'||p_Self_Assessed_Flag);
2694: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recoverable Flag:'|| p_Recoverable_Flag);
2695: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Org Id:'|| p_org_id);
2696: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Ledger Id:'|| p_ledger_id);
2697: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax regime id:'||p_tax_regime_id);
2698: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Id:'|| p_tax_id);
2699: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Status Id:'|| p_tax_status_id);
2692: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recovery Rate Id:'||p_rec_rate_id);
2693: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Self Assessed Flag:'||p_Self_Assessed_Flag);
2694: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recoverable Flag:'|| p_Recoverable_Flag);
2695: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Org Id:'|| p_org_id);
2696: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Ledger Id:'|| p_ledger_id);
2697: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax regime id:'||p_tax_regime_id);
2698: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Id:'|| p_tax_id);
2699: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Status Id:'|| p_tax_status_id);
2700: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Revenue_Expense_ccid:'|| p_revenue_expense_ccid);
2693: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Self Assessed Flag:'||p_Self_Assessed_Flag);
2694: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recoverable Flag:'|| p_Recoverable_Flag);
2695: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Org Id:'|| p_org_id);
2696: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Ledger Id:'|| p_ledger_id);
2697: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax regime id:'||p_tax_regime_id);
2698: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Id:'|| p_tax_id);
2699: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Status Id:'|| p_tax_status_id);
2700: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Revenue_Expense_ccid:'|| p_revenue_expense_ccid);
2701: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Account Source Tax Rate Id:'|| p_account_source_tax_rate_id);
2694: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Recoverable Flag:'|| p_Recoverable_Flag);
2695: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Org Id:'|| p_org_id);
2696: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Ledger Id:'|| p_ledger_id);
2697: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax regime id:'||p_tax_regime_id);
2698: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Id:'|| p_tax_id);
2699: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Status Id:'|| p_tax_status_id);
2700: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Revenue_Expense_ccid:'|| p_revenue_expense_ccid);
2701: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Account Source Tax Rate Id:'|| p_account_source_tax_rate_id);
2702: END IF;
2695: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Org Id:'|| p_org_id);
2696: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Ledger Id:'|| p_ledger_id);
2697: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax regime id:'||p_tax_regime_id);
2698: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Id:'|| p_tax_id);
2699: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Status Id:'|| p_tax_status_id);
2700: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Revenue_Expense_ccid:'|| p_revenue_expense_ccid);
2701: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Account Source Tax Rate Id:'|| p_account_source_tax_rate_id);
2702: END IF;
2703:
2696: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Ledger Id:'|| p_ledger_id);
2697: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax regime id:'||p_tax_regime_id);
2698: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Id:'|| p_tax_id);
2699: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Status Id:'|| p_tax_status_id);
2700: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Revenue_Expense_ccid:'|| p_revenue_expense_ccid);
2701: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Account Source Tax Rate Id:'|| p_account_source_tax_rate_id);
2702: END IF;
2703:
2704: x_return_status := FND_API.G_RET_STS_SUCCESS;
2697: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax regime id:'||p_tax_regime_id);
2698: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Id:'|| p_tax_id);
2699: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Tax Status Id:'|| p_tax_status_id);
2700: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Revenue_Expense_ccid:'|| p_revenue_expense_ccid);
2701: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID','Account Source Tax Rate Id:'|| p_account_source_tax_rate_id);
2702: END IF;
2703:
2704: x_return_status := FND_API.G_RET_STS_SUCCESS;
2705:
2724: END IF;
2725: END IF;
2726:
2727: IF (g_level_statement >= g_current_runtime_level ) THEN
2728: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2729: 'Def_rec_settle_option_code: '|| l_def_rec_settle_option_code);
2730: END IF;
2731:
2732: IF p_account_source_tax_rate_id IS NOT NULL THEN
2731:
2732: IF p_account_source_tax_rate_id IS NOT NULL THEN
2733: BEGIN
2734: IF (g_level_statement >= g_current_runtime_level ) THEN
2735: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2736: 'Getting account information using account source tax rate id:'||p_account_source_tax_rate_id);
2737: END IF;
2738:
2739: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_account_source_tax_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
2737: END IF;
2738:
2739: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_account_source_tax_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
2740: IF (g_level_statement >= g_current_runtime_level ) THEN
2741: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2742: 'Getting from cache for p_account_sourece_tax_rate_id ');
2743: END IF;
2744:
2745: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
2747: l_nrec_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)).non_rec_account_ccid;
2748:
2749: ELSE
2750: IF (g_level_statement >= g_current_runtime_level ) THEN
2751: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2752: 'Getting from database for p_account_sourece_tax_rate_id ');
2753: END IF;
2754:
2755: OPEN get_rec_nrec_ccid_cur(p_account_source_tax_rate_id, 'RATES',p_org_id);
2763: END IF;
2764: EXCEPTION
2765: WHEN TOO_MANY_ROWS THEN
2766: IF (g_level_exception >= g_current_runtime_level ) THEN
2767: FND_LOG.STRING(g_level_exception,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2768: 'There are more than one set of accounts defined for this tax rate id: '||p_account_source_tax_rate_id||
2769: ' Please specify ledger in the input structure while calling get_ccid API.');
2770: END IF;
2771: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2772: CLOSE get_rec_nrec_ccid_cur;
2773: END IF;
2774: WHEN OTHERS THEN
2775: IF (g_level_exception >= g_current_runtime_level ) THEN
2776: FND_LOG.STRING(g_level_exception,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2777: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2778: END IF;
2779: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2780: CLOSE get_rec_nrec_ccid_cur;
2791:
2792: IF l_ccid IS NULL THEN
2793: BEGIN
2794: IF (g_level_statement >= g_current_runtime_level ) THEN
2795: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2796: 'Getting account information using recovery rate id:'||p_rec_rate_id);
2797: END IF;
2798:
2799: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_rec_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
2797: END IF;
2798:
2799: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_rec_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
2800: IF (g_level_statement >= g_current_runtime_level ) THEN
2801: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2802: 'Getting from cache for p_rec_rate_id ');
2803: END IF;
2804:
2805: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_rec_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
2807: l_nrec_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_rec_rate_id)||'RATES'||to_char(p_org_id)).non_rec_account_ccid;
2808:
2809: ELSE
2810: IF (g_level_statement >= g_current_runtime_level ) THEN
2811: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2812: 'Getting from database for p_rec_rate_id ');
2813: END IF;
2814:
2815: OPEN get_rec_nrec_ccid_cur(p_rec_rate_id, 'RATES',p_org_id);
2823: END IF;
2824: EXCEPTION
2825: WHEN TOO_MANY_ROWS THEN
2826: IF (g_level_exception >= g_current_runtime_level ) THEN
2827: FND_LOG.STRING(g_level_exception,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2828: 'There are more than one set of accounts defined for this tax rate id: '||p_rec_rate_id||
2829: ' Please specify ledger in the input structure while calling get_ccid API.');
2830: END IF;
2831: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2832: CLOSE get_rec_nrec_ccid_cur;
2833: END IF;
2834: WHEN OTHERS THEN
2835: IF (g_level_exception >= g_current_runtime_level ) THEN
2836: FND_LOG.STRING(g_level_exception,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2837: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2838: END IF;
2839: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2840: CLOSE get_rec_nrec_ccid_cur;
2849:
2850: IF l_ccid IS NULL THEN
2851: BEGIN
2852: IF (g_level_statement >= g_current_runtime_level ) THEN
2853: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2854: 'Getting account information using tax rate id:'||p_tax_rate_id);
2855: END IF;
2856:
2857: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_tax_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
2855: END IF;
2856:
2857: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_tax_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
2858: IF (g_level_statement >= g_current_runtime_level ) THEN
2859: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2860: 'Getting from cache for p_tax_rate_id ');
2861: END IF;
2862:
2863: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_tax_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
2865: l_nrec_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_tax_rate_id)||'RATES'||to_char(p_org_id)).non_rec_account_ccid;
2866:
2867: ELSE
2868: IF (g_level_statement >= g_current_runtime_level ) THEN
2869: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2870: 'Getting from database for p_tax_rate_id ');
2871: END IF;
2872:
2873: OPEN get_rec_nrec_ccid_cur(p_tax_rate_id, 'RATES',p_org_id);
2881: END IF;
2882: EXCEPTION
2883: WHEN TOO_MANY_ROWS THEN
2884: IF (g_level_exception >= g_current_runtime_level ) THEN
2885: FND_LOG.STRING(g_level_exception,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2886: 'There are more than one set of accounts defined for this tax rate id: '||p_tax_rate_id||
2887: ' Please specify ledger in the input structure while calling get_ccid API.');
2888: END IF;
2889: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2890: CLOSE get_rec_nrec_ccid_cur;
2891: END IF;
2892: WHEN OTHERS THEN
2893: IF (g_level_exception >= g_current_runtime_level ) THEN
2894: FND_LOG.STRING(g_level_exception,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2895: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2896: END IF;
2897: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2898: CLOSE get_rec_nrec_ccid_cur;
2911: ELSIF p_Recoverable_Flag <> 'Y' THEN
2912: IF p_account_source_tax_rate_id IS NOT NULL THEN
2913: BEGIN
2914: IF (g_level_statement >= g_current_runtime_level ) THEN
2915: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2916: 'Getting account information using account source tax rate id:'||p_account_source_tax_rate_id);
2917: END IF;
2918:
2919: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_account_source_tax_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
2917: END IF;
2918:
2919: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_account_source_tax_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
2920: IF (g_level_statement >= g_current_runtime_level ) THEN
2921: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2922: 'Getting from cache for p_account_source_tax_rate_id ');
2923: END IF;
2924:
2925: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
2927: l_nrec_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)).non_rec_account_ccid;
2928:
2929: ELSE
2930: IF (g_level_statement >= g_current_runtime_level ) THEN
2931: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2932: 'Getting from database for p_account_source_tax_rate_id ');
2933: END IF;
2934:
2935: OPEN get_rec_nrec_ccid_cur(p_account_source_tax_rate_id, 'RATES',p_org_id);
2943: END IF;
2944: EXCEPTION
2945: WHEN TOO_MANY_ROWS THEN
2946: IF (g_level_exception >= g_current_runtime_level ) THEN
2947: FND_LOG.STRING(g_level_exception,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2948: 'There are more than one set of accounts defined for this tax rate id: '||p_account_source_tax_rate_id||
2949: ' Please specify ledger in the input structure while calling get_ccid API.');
2950: END IF;
2951: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2952: CLOSE get_rec_nrec_ccid_cur;
2953: END IF;
2954: WHEN OTHERS THEN
2955: IF (g_level_exception >= g_current_runtime_level ) THEN
2956: FND_LOG.STRING(g_level_exception,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2957: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2958: END IF;
2959: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2960: CLOSE get_rec_nrec_ccid_cur;
2966:
2967: IF l_ccid IS NULL THEN
2968: BEGIN
2969: IF (g_level_statement >= g_current_runtime_level ) THEN
2970: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2971: 'Getting account information using tax rate id:'||p_tax_rate_id);
2972: END IF;
2973:
2974: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_tax_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
2972: END IF;
2973:
2974: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_tax_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
2975: IF (g_level_statement >= g_current_runtime_level ) THEN
2976: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2977: 'Getting from cache for p_tax_rate_id ');
2978: END IF;
2979:
2980: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_tax_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
2982: l_nrec_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_tax_rate_id)||'RATES'||to_char(p_org_id)).non_rec_account_ccid;
2983:
2984: ELSE
2985: IF (g_level_statement >= g_current_runtime_level ) THEN
2986: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2987: 'Getting from database for p_tax_rate_id ');
2988: END IF;
2989:
2990: OPEN get_rec_nrec_ccid_cur(p_tax_rate_id, 'RATES', p_org_id);
2998: END IF;
2999: EXCEPTION
3000: WHEN TOO_MANY_ROWS THEN
3001: IF (g_level_exception >= g_current_runtime_level ) THEN
3002: FND_LOG.STRING(g_level_exception,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3003: 'There are more than one set of accounts defined for this tax rate id: '||p_tax_rate_id||
3004: ' Please specify ledger in the input structure while calling get_ccid API.');
3005: END IF;
3006: IF get_rec_nrec_ccid_cur%ISOPEN THEN
3007: CLOSE get_rec_nrec_ccid_cur;
3008: END IF;
3009: WHEN OTHERS THEN
3010: IF (g_level_exception >= g_current_runtime_level ) THEN
3011: FND_LOG.STRING(g_level_exception,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3012: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
3013: END IF;
3014: IF get_rec_nrec_ccid_cur%ISOPEN THEN
3015: CLOSE get_rec_nrec_ccid_cur;
3020: END IF;
3021:
3022: IF l_ccid IS NULL THEN
3023: IF (g_level_statement >= g_current_runtime_level ) THEN
3024: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3025: 'Assigning the value of Revenue_Expense_CCID ');
3026: END IF;
3027: l_ccid := p_revenue_expense_ccid;
3028: END IF;
3053: -- the CCID to be returned in this case is the TAX_ACCOUNT_CCID.
3054:
3055: BEGIN
3056: IF (g_level_statement >= g_current_runtime_level ) THEN
3057: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3058: 'Getting Liability account information using tax rate id:'||p_tax_rate_id);
3059: END IF;
3060:
3061: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_tax_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
3059: END IF;
3060:
3061: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_tax_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
3062: IF (g_level_statement >= g_current_runtime_level ) THEN
3063: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3064: 'Getting from cache for p_tax_rate_id ');
3065: END IF;
3066:
3067: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_tax_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
3070: l_nrec_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_tax_rate_id)||'RATES'||to_char(p_org_id)).non_rec_account_ccid;
3071:
3072: ELSE
3073: IF (g_level_statement >= g_current_runtime_level ) THEN
3074: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3075: 'Getting from database for p_tax_rate_id ');
3076: END IF;
3077:
3078: OPEN get_rec_nrec_ccid_cur(p_tax_rate_id, 'RATES',p_org_id);
3087: END IF;
3088:
3089: IF l_tax_liab_ccid IS NULL AND p_Recoverable_Flag <> 'Y' THEN
3090: IF (g_level_statement >= g_current_runtime_level ) THEN
3091: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3092: 'Getting Liability account information using Account source tax rate id:'||p_account_source_tax_rate_id);
3093: END IF;
3094:
3095: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_account_source_tax_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
3093: END IF;
3094:
3095: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.EXISTS(TO_CHAR(p_account_source_tax_rate_id)||'RATES'||TO_CHAR(p_org_id)) THEN
3096: IF (g_level_statement >= g_current_runtime_level ) THEN
3097: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3098: 'Getting from cache for p_account_source_tax_rate_id ');
3099: END IF;
3100:
3101: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
3104: l_nrec_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)).non_rec_account_ccid;
3105:
3106: ELSE
3107: IF (g_level_statement >= g_current_runtime_level ) THEN
3108: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3109: 'Getting from database for p_account_source_tax_rate_id ');
3110: END IF;
3111:
3112: OPEN get_rec_nrec_ccid_cur(p_account_source_tax_rate_id, 'RATES',p_org_id);
3122: END IF;
3123: EXCEPTION
3124: WHEN TOO_MANY_ROWS THEN
3125: IF (g_level_exception >= g_current_runtime_level ) THEN
3126: FND_LOG.STRING(g_level_exception,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3127: 'There are more than one set of accounts defined for this tax rate id: '||p_tax_rate_id||
3128: ' Please specify ledger in the input structure while calling get_ccid API.');
3129: END IF;
3130: IF get_rec_nrec_ccid_cur%ISOPEN THEN
3131: CLOSE get_rec_nrec_ccid_cur;
3132: END IF;
3133: WHEN OTHERS THEN
3134: IF (g_level_exception >= g_current_runtime_level ) THEN
3135: FND_LOG.STRING(g_level_exception,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3136: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
3137: END IF;
3138: IF get_rec_nrec_ccid_cur%ISOPEN THEN
3139: CLOSE get_rec_nrec_ccid_cur;
3190: FND_MESSAGE.SET_TOKEN('SOURCE_TAXRATE', l_source_rate_code);
3191: FND_MSG_PUB.Add;
3192: IF (g_level_statement >= g_current_runtime_level ) THEN
3193: FND_LOG.STRING(g_level_statement,
3194: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3195: 'error: p_Recoverable_Flag is Y, but p_rec_nrec_ccid is null');
3196: END IF;
3197:
3198: ELSIF p_Recoverable_Flag = 'N' THEN
3202: FND_MESSAGE.SET_TOKEN('SOURCE_TAXRATE', l_source_rate_code);
3203: FND_MSG_PUB.Add;
3204: IF (g_level_statement >= g_current_runtime_level ) THEN
3205: FND_LOG.STRING(g_level_statement,
3206: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3207: 'error: p_Recoverable_Flag is N, but p_rec_nrec_ccid is null');
3208: END IF;
3209: END IF;
3210: END IF;
3245: FND_MESSAGE.SET_TOKEN('SOURCE_TAXRATE', l_source_rate_code);
3246: FND_MSG_PUB.Add;
3247: IF (g_level_statement >= g_current_runtime_level ) THEN
3248: FND_LOG.STRING(g_level_statement,
3249: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3250: 'error: p_Self_Assessed_Flag is Y, but p_tax_liab_ccid is null');
3251: END IF;
3252: END IF;
3253:
3256: FETCH get_chart_of_account INTO l_chart_of_accounts_id;
3257: CLOSE get_chart_of_account;
3258:
3259: IF (g_level_statement >= g_current_runtime_level ) THEN
3260: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3261: 'Chart Of Accounts Id : '||l_chart_of_accounts_id);
3262: END IF;
3263:
3264: IF p_rec_nrec_ccid IS NOT NULL AND
3265: l_chart_of_accounts_id IS NOT NULL
3266: THEN
3267:
3268: IF (g_level_statement >= g_current_runtime_level ) THEN
3269: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3270: 'Running security rules validation for Rec_Nrec_CCID : '||p_rec_nrec_ccid);
3271: END IF;
3272:
3273: IF NOT fnd_flex_keyval.validate_ccid
3289: -- The account ACCOUNT derived for tax distribution violates the defined security rules --
3290: -- Please contact your Tax Manager --
3291: IF (g_level_statement >= g_current_runtime_level ) THEN
3292: FND_LOG.STRING(g_level_statement,
3293: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3294: 'error: Rec_Nrec_CCID violates the defined security rules');
3295: FND_LOG.STRING(g_level_statement,
3296: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3297: 'CCID: '||p_rec_nrec_ccid||', Account : '||l_account_string);
3292: FND_LOG.STRING(g_level_statement,
3293: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3294: 'error: Rec_Nrec_CCID violates the defined security rules');
3295: FND_LOG.STRING(g_level_statement,
3296: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3297: 'CCID: '||p_rec_nrec_ccid||', Account : '||l_account_string);
3298: END IF;
3299: END IF;
3300: END IF;
3304: l_chart_of_accounts_id IS NOT NULL
3305: THEN
3306:
3307: IF (g_level_statement >= g_current_runtime_level ) THEN
3308: FND_LOG.STRING(g_level_statement,'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3309: 'Running security rules validation for Tax_Liab_CCID : '||p_tax_liab_ccid);
3310: END IF;
3311:
3312: IF NOT fnd_flex_keyval.validate_ccid
3327: FND_MSG_PUB.Add;
3328:
3329: IF (g_level_statement >= g_current_runtime_level ) THEN
3330: FND_LOG.STRING(g_level_statement,
3331: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3332: 'error: Self Assessed Flag is Y and Tax_Liab_CCID violates the defined security rules');
3333: FND_LOG.STRING(g_level_statement,
3334: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3335: 'CCID: '||p_tax_liab_ccid||', Account : '||l_account_string);
3330: FND_LOG.STRING(g_level_statement,
3331: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3332: 'error: Self Assessed Flag is Y and Tax_Liab_CCID violates the defined security rules');
3333: FND_LOG.STRING(g_level_statement,
3334: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3335: 'CCID: '||p_tax_liab_ccid||', Account : '||l_account_string);
3336: END IF;
3337: END IF;
3338: END IF;
3339: -- End : Bug#13948234 --
3340:
3341: IF (g_level_procedure >= g_current_runtime_level ) THEN
3342: FND_LOG.STRING(g_level_procedure,
3343: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.END',
3344: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(-)'||
3345: ' p_rec_nrec_ccid = '||p_rec_nrec_ccid||
3346: ' p_tax_liab_ccid = '||p_tax_liab_ccid||
3347: ' return status = '||x_return_status);
3340:
3341: IF (g_level_procedure >= g_current_runtime_level ) THEN
3342: FND_LOG.STRING(g_level_procedure,
3343: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.END',
3344: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(-)'||
3345: ' p_rec_nrec_ccid = '||p_rec_nrec_ccid||
3346: ' p_tax_liab_ccid = '||p_tax_liab_ccid||
3347: ' return status = '||x_return_status);
3348: END IF;
3352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3353:
3354: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3355: FND_LOG.STRING(g_level_unexpected,
3356: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3357: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3358: END IF;
3359:
3360: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3358: END IF;
3359:
3360: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3361: FND_LOG.STRING(g_level_unexpected,
3362: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.END',
3363: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(-)');
3364: END IF;
3365:
3366: END GET_CCID;
3359:
3360: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3361: FND_LOG.STRING(g_level_unexpected,
3362: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.END',
3363: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(-)');
3364: END IF;
3365:
3366: END GET_CCID;
3367:
3457:
3458: IF (g_level_procedure >= g_current_runtime_level ) THEN
3459:
3460: FND_LOG.STRING(g_level_procedure,
3461: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3462: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(+)');
3463:
3464: END IF;
3465:
3458: IF (g_level_procedure >= g_current_runtime_level ) THEN
3459:
3460: FND_LOG.STRING(g_level_procedure,
3461: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3462: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(+)');
3463:
3464: END IF;
3465:
3466: IF (g_level_statement >= g_current_runtime_level ) THEN
3465:
3466: IF (g_level_statement >= g_current_runtime_level ) THEN
3467:
3468: FND_LOG.STRING(g_level_statement,
3469: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3470: 'Input Parameters:');
3471: FND_LOG.STRING(g_level_statement,
3472: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3473: 'GL Date:'||p_gl_date );
3468: FND_LOG.STRING(g_level_statement,
3469: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3470: 'Input Parameters:');
3471: FND_LOG.STRING(g_level_statement,
3472: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3473: 'GL Date:'||p_gl_date );
3474: FND_LOG.STRING(g_level_statement,
3475: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3476: 'Tax Rate Id:'||p_tax_rate_id);
3471: FND_LOG.STRING(g_level_statement,
3472: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3473: 'GL Date:'||p_gl_date );
3474: FND_LOG.STRING(g_level_statement,
3475: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3476: 'Tax Rate Id:'||p_tax_rate_id);
3477: FND_LOG.STRING(g_level_statement,
3478: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3479: 'Location Segment Id:'||p_location_segment_id);
3474: FND_LOG.STRING(g_level_statement,
3475: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3476: 'Tax Rate Id:'||p_tax_rate_id);
3477: FND_LOG.STRING(g_level_statement,
3478: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3479: 'Location Segment Id:'||p_location_segment_id);
3480: FND_LOG.STRING(g_level_statement,
3481: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3482: 'Tax Line Id:'|| p_tax_line_id);
3477: FND_LOG.STRING(g_level_statement,
3478: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3479: 'Location Segment Id:'||p_location_segment_id);
3480: FND_LOG.STRING(g_level_statement,
3481: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3482: 'Tax Line Id:'|| p_tax_line_id);
3483: FND_LOG.STRING(g_level_statement,
3484: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3485: 'Org Id:'|| p_org_id);
3480: FND_LOG.STRING(g_level_statement,
3481: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3482: 'Tax Line Id:'|| p_tax_line_id);
3483: FND_LOG.STRING(g_level_statement,
3484: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3485: 'Org Id:'|| p_org_id);
3486: FND_LOG.STRING(g_level_statement,
3487: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3488: 'Ledger Id:'|| p_ledger_id);
3483: FND_LOG.STRING(g_level_statement,
3484: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3485: 'Org Id:'|| p_org_id);
3486: FND_LOG.STRING(g_level_statement,
3487: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3488: 'Ledger Id:'|| p_ledger_id);
3489: END IF;
3490:
3491:
3505:
3506: IF (g_level_statement >= g_current_runtime_level ) THEN
3507:
3508: FND_LOG.STRING(g_level_statement,
3509: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3510: 'Getting accounts using Location Segment.. '||to_char(l_location_segment_id));
3511:
3512: END IF;
3513:
3545:
3546: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3547: IF (g_level_statement >= g_current_runtime_level ) THEN
3548: FND_LOG.STRING(g_level_statement,
3549: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3550: 'After calling get_tax_jurisdiction_id, x_return_status = '|| x_return_status);
3551: FND_LOG.STRING(g_level_statement,
3552: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3553: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)');
3548: FND_LOG.STRING(g_level_statement,
3549: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3550: 'After calling get_tax_jurisdiction_id, x_return_status = '|| x_return_status);
3551: FND_LOG.STRING(g_level_statement,
3552: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3553: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)');
3554: END IF;
3555: RETURN;
3556: END IF;
3549: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3550: 'After calling get_tax_jurisdiction_id, x_return_status = '|| x_return_status);
3551: FND_LOG.STRING(g_level_statement,
3552: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3553: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)');
3554: END IF;
3555: RETURN;
3556: END IF;
3557:
3558: IF p_tax_account_ccid IS NULL THEN
3559: IF p_tax_line_id IS NOT NULL THEN
3560: IF (g_level_statement >= g_current_runtime_level ) THEN
3561: FND_LOG.STRING(g_level_statement,
3562: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3563: 'Getting account information for the jurisdiction id '||to_char(l_tax_jurisdiction_id));
3564: END IF;
3565: IF l_tax_jurisdiction_id IS NOT NULL THEN
3566: open get_zx_account_ccid(l_tax_jurisdiction_id, 'JURISDICTION', p_org_id, p_ledger_id);
3574:
3575:
3576: IF (g_level_statement >= g_current_runtime_level ) THEN
3577: FND_LOG.STRING(g_level_statement,
3578: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3579: 'Tax account for jurisdiction_id '||to_char(l_tax_jurisdiction_id)||
3580: ' is: '||to_char(p_tax_account_ccid));
3581: END IF;
3582: IF p_tax_account_ccid is not null THEN
3602: IF p_tax_line_id IS NOT NULL THEN
3603:
3604: IF (g_level_statement >= g_current_runtime_level ) THEN
3605: FND_LOG.STRING(g_level_statement,
3606: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3607: 'Getting account source tax rate id for tax line id '||to_char(p_tax_line_id));
3608: END IF;
3609:
3610: open line_acc_src_tax_rate_id(p_tax_line_id);
3621:
3622:
3623: IF (g_level_statement >= g_current_runtime_level ) THEN
3624: FND_LOG.STRING(g_level_statement,
3625: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3626: 'Tax account for acct_source_tax_rate_id '||to_char(l_acc_src_tax_rate_id)||
3627: ' is: '||to_char(p_tax_account_ccid));
3628: END IF;
3629:
3648: IF l_tax_rate_id is not null THEN
3649:
3650: IF (g_level_statement >= g_current_runtime_level ) THEN
3651: FND_LOG.STRING(g_level_statement,
3652: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3653: 'Getting account information using tax rate id: '||to_char(l_tax_rate_id));
3654: END IF;
3655:
3656: open get_zx_account_ccid(l_tax_rate_id, 'RATES', p_org_id, p_ledger_id);
3694:
3695: IF (g_level_procedure >= g_current_runtime_level ) THEN
3696:
3697: FND_LOG.STRING(g_level_procedure,
3698: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3699: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)'||
3700: ' tax_account_ccid = ' || p_tax_account_ccid ||
3701: ' interim_tax_ccid = ' || p_interim_tax_ccid ||
3702: ' adj_ccid = ' || p_adj_ccid ||
3695: IF (g_level_procedure >= g_current_runtime_level ) THEN
3696:
3697: FND_LOG.STRING(g_level_procedure,
3698: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3699: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)'||
3700: ' tax_account_ccid = ' || p_tax_account_ccid ||
3701: ' interim_tax_ccid = ' || p_interim_tax_ccid ||
3702: ' adj_ccid = ' || p_adj_ccid ||
3703: ' edisc_ccid = ' || p_edisc_ccid ||
3718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3719:
3720: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3721: FND_LOG.STRING(g_level_unexpected,
3722: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3723: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3724: END IF;
3725:
3726: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3724: END IF;
3725:
3726: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3727: FND_LOG.STRING(g_level_unexpected,
3728: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3729: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)');
3730: END IF;
3731:
3732: END GET_OUTPUT_TAX_CCID;
3725:
3726: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3727: FND_LOG.STRING(g_level_unexpected,
3728: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3729: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)');
3730: END IF;
3731:
3732: END GET_OUTPUT_TAX_CCID;
3733:
3747: BEGIN
3748:
3749: IF (g_level_procedure >= g_current_runtime_level ) THEN
3750: FND_LOG.STRING(g_level_procedure,
3751: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST.BEGIN',
3752: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(+)');
3753: END IF;
3754:
3755: INSERT INTO zx_itm_distributions_gt(
3748:
3749: IF (g_level_procedure >= g_current_runtime_level ) THEN
3750: FND_LOG.STRING(g_level_procedure,
3751: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST.BEGIN',
3752: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(+)');
3753: END IF;
3754:
3755: INSERT INTO zx_itm_distributions_gt(
3756: --internal_organization_id,
3861: AND trx_level_type = p_tax_line_rec.trx_level_type;
3862:
3863: IF (g_level_procedure >= g_current_runtime_level ) THEN
3864: FND_LOG.STRING(g_level_procedure,
3865: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST.END',
3866: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(-)');
3867: END IF;
3868:
3869: EXCEPTION
3862:
3863: IF (g_level_procedure >= g_current_runtime_level ) THEN
3864: FND_LOG.STRING(g_level_procedure,
3865: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST.END',
3866: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(-)');
3867: END IF;
3868:
3869: EXCEPTION
3870: WHEN DUP_VAL_ON_INDEX THEN
3871: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3872:
3873: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3874: FND_LOG.STRING(g_level_unexpected,
3875: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3876: 'TRL Record Already Exists');
3877: FND_LOG.STRING(g_level_unexpected,
3878: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3879: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3874: FND_LOG.STRING(g_level_unexpected,
3875: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3876: 'TRL Record Already Exists');
3877: FND_LOG.STRING(g_level_unexpected,
3878: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3879: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3880: END IF;
3881:
3882: WHEN OTHERS THEN
3883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3884:
3885: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3886: FND_LOG.STRING(g_level_unexpected,
3887: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3888: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3889: END IF;
3890:
3891: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3889: END IF;
3890:
3891: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3892: FND_LOG.STRING(g_level_unexpected,
3893: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist.END',
3894: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(-)');
3895: END IF;
3896: END insert_item_dist;
3897:
3890:
3891: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3892: FND_LOG.STRING(g_level_unexpected,
3893: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist.END',
3894: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(-)');
3895: END IF;
3896: END insert_item_dist;
3897:
3898:
3948: BEGIN
3949:
3950: IF (g_level_procedure >= g_current_runtime_level ) THEN
3951: FND_LOG.STRING(g_level_procedure,
3952: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.BEGIN',
3953: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(+)');
3954: END IF;
3955:
3956: x_return_status:= FND_API.G_RET_STS_SUCCESS;
3949:
3950: IF (g_level_procedure >= g_current_runtime_level ) THEN
3951: FND_LOG.STRING(g_level_procedure,
3952: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.BEGIN',
3953: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(+)');
3954: END IF;
3955:
3956: x_return_status:= FND_API.G_RET_STS_SUCCESS;
3957:
3973: IF get_funcl_curr_info_csr%NOTFOUND THEN
3974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3975: IF (g_level_procedure >= g_current_runtime_level ) THEN
3976: FND_LOG.STRING(g_level_procedure,
3977: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines',
3978: 'No data found for the specified ledger_id');
3979: END IF;
3980: END IF;
3981:
4021:
4022: IF (g_level_procedure >= g_current_runtime_level ) THEN
4023:
4024: FND_LOG.STRING(g_level_procedure,
4025: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
4026: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(-)'||x_return_status);
4027: END IF;
4028:
4029: EXCEPTION
4022: IF (g_level_procedure >= g_current_runtime_level ) THEN
4023:
4024: FND_LOG.STRING(g_level_procedure,
4025: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
4026: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(-)'||x_return_status);
4027: END IF;
4028:
4029: EXCEPTION
4030: WHEN OTHERS THEN
4031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4032:
4033: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4034: FND_LOG.STRING(g_level_unexpected,
4035: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines',
4036: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4037: FND_LOG.STRING(g_level_unexpected,
4038: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
4039: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(-)');
4034: FND_LOG.STRING(g_level_unexpected,
4035: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines',
4036: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4037: FND_LOG.STRING(g_level_unexpected,
4038: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
4039: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(-)');
4040: END IF;
4041:
4042: END fetch_tax_lines;
4035: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines',
4036: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4037: FND_LOG.STRING(g_level_unexpected,
4038: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
4039: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(-)');
4040: END IF;
4041:
4042: END fetch_tax_lines;
4043:
4078: BEGIN
4079:
4080: IF (g_level_procedure>= g_current_runtime_level ) THEN
4081: FND_LOG.STRING(g_level_procedure,
4082: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.BEGIN',
4083: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(+)'||
4084: ' tax_line_id = ' || p_tax_line_id||
4085: ' trx_line_dist_id = ' || p_trx_line_dist_id);
4086:
4079:
4080: IF (g_level_procedure>= g_current_runtime_level ) THEN
4081: FND_LOG.STRING(g_level_procedure,
4082: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.BEGIN',
4083: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(+)'||
4084: ' tax_line_id = ' || p_tax_line_id||
4085: ' trx_line_dist_id = ' || p_trx_line_dist_id);
4086:
4087: END IF;
4104: CLOSE fetch_tax_distributions_csr;
4105: IF (g_level_statement >= g_current_runtime_level ) THEN
4106:
4107: FND_LOG.STRING(g_level_statement,
4108: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
4109: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)'||' unexpected: No tax dist');
4110: END IF;
4111: RETURN;
4112:
4105: IF (g_level_statement >= g_current_runtime_level ) THEN
4106:
4107: FND_LOG.STRING(g_level_statement,
4108: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
4109: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)'||' unexpected: No tax dist');
4110: END IF;
4111: RETURN;
4112:
4113: END IF;
4125:
4126: IF (g_level_procedure >= g_current_runtime_level ) THEN
4127:
4128: FND_LOG.STRING(g_level_procedure,
4129: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
4130: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)'||x_return_status);
4131: END IF;
4132:
4133: EXCEPTION
4126: IF (g_level_procedure >= g_current_runtime_level ) THEN
4127:
4128: FND_LOG.STRING(g_level_procedure,
4129: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
4130: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)'||x_return_status);
4131: END IF;
4132:
4133: EXCEPTION
4134: WHEN OTHERS THEN
4135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4136:
4137: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4138: FND_LOG.STRING(g_level_unexpected,
4139: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions',
4140: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4141: FND_LOG.STRING(g_level_unexpected,
4142: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
4143: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)');
4138: FND_LOG.STRING(g_level_unexpected,
4139: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions',
4140: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4141: FND_LOG.STRING(g_level_unexpected,
4142: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
4143: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)');
4144: END IF;
4145:
4146: END fetch_tax_distributions;
4139: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions',
4140: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4141: FND_LOG.STRING(g_level_unexpected,
4142: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
4143: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)');
4144: END IF;
4145:
4146: END fetch_tax_distributions;
4147:
4248: BEGIN
4249:
4250: IF (g_level_procedure >= g_current_runtime_level ) THEN
4251: FND_LOG.STRING(g_level_procedure,
4252: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.BEGIN',
4253: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(+)');
4254: END IF;
4255:
4256: x_return_status := FND_API.G_RET_STS_SUCCESS;
4249:
4250: IF (g_level_procedure >= g_current_runtime_level ) THEN
4251: FND_LOG.STRING(g_level_procedure,
4252: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.BEGIN',
4253: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(+)');
4254: END IF;
4255:
4256: x_return_status := FND_API.G_RET_STS_SUCCESS;
4257: l_index := 1;
4385:
4386: IF get_trx_info_csr%NOTFOUND THEN
4387: IF (g_level_statement >= g_current_runtime_level ) THEN
4388: FND_LOG.STRING(g_level_statement,
4389: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info',
4390: 'NO DATA found in zx_lines_det_factors for trx line'||
4391: p_tax_line_tbl(p_index).trx_line_id);
4392: END IF;
4393: END IF;
4395:
4396: IF (g_level_procedure >= g_current_runtime_level ) THEN
4397:
4398: FND_LOG.STRING(g_level_procedure,
4399: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4400: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(-)'||x_return_status);
4401: END IF;
4402:
4403: EXCEPTION
4396: IF (g_level_procedure >= g_current_runtime_level ) THEN
4397:
4398: FND_LOG.STRING(g_level_procedure,
4399: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4400: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(-)'||x_return_status);
4401: END IF;
4402:
4403: EXCEPTION
4404: WHEN OTHERS THEN
4405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4406:
4407: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4408: FND_LOG.STRING(g_level_unexpected,
4409: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info',
4410: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4411: FND_LOG.STRING(g_level_unexpected,
4412: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4413: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(-)');
4408: FND_LOG.STRING(g_level_unexpected,
4409: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info',
4410: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4411: FND_LOG.STRING(g_level_unexpected,
4412: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4413: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(-)');
4414: END IF;
4415:
4416: END populate_trx_line_info;
4409: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info',
4410: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4411: FND_LOG.STRING(g_level_unexpected,
4412: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4413: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(-)');
4414: END IF;
4415:
4416: END populate_trx_line_info;
4417:
4434: BEGIN
4435:
4436: IF (g_level_procedure >= g_current_runtime_level ) THEN
4437: FND_LOG.STRING(g_level_procedure,
4438: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.BEGIN',
4439: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(+)');
4440: END IF;
4441:
4442: x_return_status:= FND_API.G_RET_STS_SUCCESS;
4435:
4436: IF (g_level_procedure >= g_current_runtime_level ) THEN
4437: FND_LOG.STRING(g_level_procedure,
4438: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.BEGIN',
4439: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(+)');
4440: END IF;
4441:
4442: x_return_status:= FND_API.G_RET_STS_SUCCESS;
4443:
4452: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4453:
4454: IF (g_level_statement >= g_current_runtime_level ) THEN
4455: FND_LOG.STRING(g_level_statement,
4456: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4457: 'After calling populate_mandatory_columns x_return_status = '
4458: || x_return_status);
4459: FND_LOG.STRING(g_level_statement,
4460: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4456: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4457: 'After calling populate_mandatory_columns x_return_status = '
4458: || x_return_status);
4459: FND_LOG.STRING(g_level_statement,
4460: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4461: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)');
4462: END IF;
4463: RETURN;
4464:
4457: 'After calling populate_mandatory_columns x_return_status = '
4458: || x_return_status);
4459: FND_LOG.STRING(g_level_statement,
4460: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4461: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)');
4462: END IF;
4463: RETURN;
4464:
4465: END IF;
4477:
4478: IF (g_level_procedure >= g_current_runtime_level ) THEN
4479:
4480: FND_LOG.STRING(g_level_procedure,
4481: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4482: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)'||x_return_status);
4483: END IF;
4484:
4485: EXCEPTION
4478: IF (g_level_procedure >= g_current_runtime_level ) THEN
4479:
4480: FND_LOG.STRING(g_level_procedure,
4481: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4482: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)'||x_return_status);
4483: END IF;
4484:
4485: EXCEPTION
4486: WHEN OTHERS THEN
4487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4488:
4489: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4490: FND_LOG.STRING(g_level_unexpected,
4491: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4492: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4493: FND_LOG.STRING(g_level_unexpected,
4494: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4495: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)');
4490: FND_LOG.STRING(g_level_unexpected,
4491: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4492: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4493: FND_LOG.STRING(g_level_unexpected,
4494: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4495: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)');
4496: END IF;
4497:
4498:
4491: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4492: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4493: FND_LOG.STRING(g_level_unexpected,
4494: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4495: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)');
4496: END IF;
4497:
4498:
4499: END insert_global_table;
4517: BEGIN
4518:
4519: IF (g_level_procedure >= g_current_runtime_level ) THEN
4520: FND_LOG.STRING(g_level_procedure,
4521: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.BEGIN',
4522: 'populate_mandatory_columns(+)');
4523: END IF;
4524:
4525: x_return_status:= FND_API.G_RET_STS_SUCCESS;
4535:
4536: -- get g_tax_dist_id
4537: --
4538: SELECT ZX_REC_NREC_DIST_S.nextval
4539: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
4540: FROM dual;
4541:
4542: p_rec_nrec_dist_tbl(i).rec_nrec_tax_dist_id :=
4543: ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id;
4539: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
4540: FROM dual;
4541:
4542: p_rec_nrec_dist_tbl(i).rec_nrec_tax_dist_id :=
4543: ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id;
4544:
4545: END IF;
4546:
4547: -- populate the object_version_number
4575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
4576:
4577: IF (g_level_procedure >= g_current_runtime_level ) THEN
4578: FND_LOG.STRING(g_level_procedure,
4579: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4580: 'error: tax dist number is null ');
4581:
4582: FND_LOG.STRING(g_level_procedure,
4583: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4579: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4580: 'error: tax dist number is null ');
4581:
4582: FND_LOG.STRING(g_level_procedure,
4583: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4584: 'populate_mandatory_columns(-)');
4585: END IF;
4586: RETURN;
4587:
4591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4592:
4593: IF (g_level_procedure >= g_current_runtime_level ) THEN
4594: FND_LOG.STRING(g_level_procedure,
4595: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4596: 'error: rec nrec rate is null ');
4597:
4598: FND_LOG.STRING(g_level_procedure,
4599: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4595: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4596: 'error: rec nrec rate is null ');
4597:
4598: FND_LOG.STRING(g_level_procedure,
4599: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4600: 'populate_mandatory_columns(-)');
4601: END IF;
4602: RETURN;
4603:
4608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4609: IF (g_level_procedure >= g_current_runtime_level ) THEN
4610:
4611: FND_LOG.STRING(g_level_procedure,
4612: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4613: 'error: RECOVERABLE FLG is null ');
4614: FND_LOG.STRING(g_level_procedure,
4615: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4616: 'populate_mandatory_columns(-)');
4611: FND_LOG.STRING(g_level_procedure,
4612: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4613: 'error: RECOVERABLE FLG is null ');
4614: FND_LOG.STRING(g_level_procedure,
4615: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4616: 'populate_mandatory_columns(-)');
4617: END IF;
4618: RETURN;
4619:
4624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4625:
4626: IF (g_level_procedure >= g_current_runtime_level ) THEN
4627: FND_LOG.STRING(g_level_procedure,
4628: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4629: 'error: tax dist amount is null ');
4630: FND_LOG.STRING(g_level_procedure,
4631: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4632: 'populate_mandatory_columns(-)');
4627: FND_LOG.STRING(g_level_procedure,
4628: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4629: 'error: tax dist amount is null ');
4630: FND_LOG.STRING(g_level_procedure,
4631: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4632: 'populate_mandatory_columns(-)');
4633: END IF;
4634: RETURN;
4635:
4641: else
4642:
4643: IF (g_level_statement >= g_current_runtime_level ) THEN
4644: FND_LOG.STRING(g_level_statement,
4645: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4646: 'No record in p_rec_nrec_dist_tbl ... ');
4647: END IF;
4648:
4649: end if;
4650:
4651: IF (g_level_procedure >= g_current_runtime_level ) THEN
4652:
4653: FND_LOG.STRING(g_level_procedure,
4654: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4655: 'ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns(-)'||x_return_status);
4656: END IF;
4657:
4658: EXCEPTION
4651: IF (g_level_procedure >= g_current_runtime_level ) THEN
4652:
4653: FND_LOG.STRING(g_level_procedure,
4654: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4655: 'ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns(-)'||x_return_status);
4656: END IF;
4657:
4658: EXCEPTION
4659: WHEN OTHERS THEN
4660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4661:
4662: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4663: FND_LOG.STRING(g_level_unexpected,
4664: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4665: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4666: FND_LOG.STRING(g_level_unexpected,
4667: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4668: 'ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns(-)');
4663: FND_LOG.STRING(g_level_unexpected,
4664: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4665: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4666: FND_LOG.STRING(g_level_unexpected,
4667: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4668: 'ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns(-)');
4669: END IF;
4670:
4671: END populate_mandatory_columns;
4664: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4665: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4666: FND_LOG.STRING(g_level_unexpected,
4667: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4668: 'ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns(-)');
4669: END IF;
4670:
4671: END populate_mandatory_columns;
4672:
4807: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4808:
4809: IF (g_level_procedure >= g_current_runtime_level ) THEN
4810: FND_LOG.STRING(g_level_procedure,
4811: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.BEGIN',
4812: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(+)');
4813: END IF;
4814:
4815: x_return_status := FND_API.G_RET_STS_SUCCESS;
4808:
4809: IF (g_level_procedure >= g_current_runtime_level ) THEN
4810: FND_LOG.STRING(g_level_procedure,
4811: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.BEGIN',
4812: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(+)');
4813: END IF;
4814:
4815: x_return_status := FND_API.G_RET_STS_SUCCESS;
4816:
4836: IF l_rec_nrec_tax_dist_id_tbl.FIRST IS NULL THEN
4837:
4838: IF (g_level_statement >= g_current_runtime_level ) THEN
4839: FND_LOG.STRING(g_level_statement,
4840: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
4841: 'No tax distributions are fetched from ZX_REC_NREC_DIST.');
4842: END IF;
4843: RETURN;
4844: ELSE
4875: CLOSE get_mau_info_csr;
4876:
4877: IF (g_level_statement >= g_current_runtime_level ) THEN
4878: FND_LOG.STRING(g_level_statement,
4879: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
4880: 'l_minimum_accountable_unit = ' || l_minimum_accountable_unit);
4881: END IF;
4882:
4883: -- loop through the table of l_rec_nrec_tax_dists_tbl
5542: AND trx_id = p_event_class_rec.trx_id;
5543:
5544: IF (g_level_procedure >= g_current_runtime_level ) THEN
5545: FND_LOG.STRING(g_level_procedure,
5546: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5547: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(-)');
5548: END IF;
5549:
5550: EXCEPTION
5543:
5544: IF (g_level_procedure >= g_current_runtime_level ) THEN
5545: FND_LOG.STRING(g_level_procedure,
5546: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5547: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(-)');
5548: END IF;
5549:
5550: EXCEPTION
5551:
5555: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5556:
5557: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5558: FND_LOG.STRING(g_level_unexpected,
5559: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
5560: l_error_buffer);
5561: FND_LOG.STRING(g_level_unexpected,
5562: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5563: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(-)');
5558: FND_LOG.STRING(g_level_unexpected,
5559: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
5560: l_error_buffer);
5561: FND_LOG.STRING(g_level_unexpected,
5562: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5563: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(-)');
5564: END IF;
5565:
5566: END update_exchange_rate;
5559: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
5560: l_error_buffer);
5561: FND_LOG.STRING(g_level_unexpected,
5562: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5563: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(-)');
5564: END IF;
5565:
5566: END update_exchange_rate;
5567:
5592: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5593:
5594: IF (g_level_statement >= g_current_runtime_level ) THEN
5595: FND_LOG.STRING(g_level_statement,
5596: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.BEGIN',
5597: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(+)');
5598: END IF;
5599:
5600: -- get the l_minimum_accountable_unit
5593:
5594: IF (g_level_statement >= g_current_runtime_level ) THEN
5595: FND_LOG.STRING(g_level_statement,
5596: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.BEGIN',
5597: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(+)');
5598: END IF;
5599:
5600: -- get the l_minimum_accountable_unit
5601: --
5609:
5610: IF (g_level_statement >= g_current_runtime_level ) THEN
5611:
5612: FND_LOG.STRING(g_level_statement,
5613: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5614: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(-)'||
5615: ' rounded amt to mau '||l_rounded_amt_to_mau);
5616: END IF;
5617:
5610: IF (g_level_statement >= g_current_runtime_level ) THEN
5611:
5612: FND_LOG.STRING(g_level_statement,
5613: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5614: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(-)'||
5615: ' rounded amt to mau '||l_rounded_amt_to_mau);
5616: END IF;
5617:
5618: RETURN l_rounded_amt_to_mau;
5622: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5623:
5624: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5625: FND_LOG.STRING(g_level_unexpected,
5626: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau',
5627: l_error_buffer);
5628: FND_LOG.STRING(g_level_unexpected,
5629: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5630: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(-)');
5625: FND_LOG.STRING(g_level_unexpected,
5626: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau',
5627: l_error_buffer);
5628: FND_LOG.STRING(g_level_unexpected,
5629: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5630: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(-)');
5631: END IF;
5632: RAISE;
5633: END round_amt_to_mau;
5626: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau',
5627: l_error_buffer);
5628: FND_LOG.STRING(g_level_unexpected,
5629: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5630: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(-)');
5631: END IF;
5632: RAISE;
5633: END round_amt_to_mau;
5634:
5651: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5652:
5653: IF (g_level_statement >= g_current_runtime_level ) THEN
5654: FND_LOG.STRING(g_level_statement,
5655: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code.BEGIN',
5656: 'ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code(+)');
5657: END IF;
5658:
5659: IF p_tax_hold_released_code = ZX_TDS_CALC_SERVICES_PUB_PKG.G_TAX_VARIANCE_CORRECTED THEN
5652:
5653: IF (g_level_statement >= g_current_runtime_level ) THEN
5654: FND_LOG.STRING(g_level_statement,
5655: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code.BEGIN',
5656: 'ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code(+)');
5657: END IF;
5658:
5659: IF p_tax_hold_released_code = ZX_TDS_CALC_SERVICES_PUB_PKG.G_TAX_VARIANCE_CORRECTED THEN
5660: l_tax_hold_release_value := ZX_TDS_CALC_SERVICES_PUB_PKG.g_tax_variance_corrected_val;
5665: END IF;
5666:
5667: IF (g_level_statement >= g_current_runtime_level ) THEN
5668: FND_LOG.STRING(g_level_statement,
5669: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code.END',
5670: 'ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code(-)');
5671: END IF;
5672: RETURN l_tax_hold_release_value;
5673:
5666:
5667: IF (g_level_statement >= g_current_runtime_level ) THEN
5668: FND_LOG.STRING(g_level_statement,
5669: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code.END',
5670: 'ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code(-)');
5671: END IF;
5672: RETURN l_tax_hold_release_value;
5673:
5674: END get_tax_hold_rls_val_frm_code;
5697: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5698:
5699: IF (g_level_procedure >= g_current_runtime_level ) THEN
5700: FND_LOG.STRING(g_level_procedure,
5701: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt.BEGIN',
5702: 'ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt(+)');
5703: END IF;
5704:
5705: IF NVL(p_prepay_line_amt, 0) <> 0 THEN
5698:
5699: IF (g_level_procedure >= g_current_runtime_level ) THEN
5700: FND_LOG.STRING(g_level_procedure,
5701: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt.BEGIN',
5702: 'ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt(+)');
5703: END IF;
5704:
5705: IF NVL(p_prepay_line_amt, 0) <> 0 THEN
5706: l_prd_total_tax_amt := p_prepay_tax_amt * p_line_amt / p_prepay_line_amt;
5707:
5708: ELSE
5709: IF (g_level_statement >= g_current_runtime_level ) THEN
5710: FND_LOG.STRING(g_level_statement,
5711: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt',
5712: 'p_prepay_line_amt is '||NVL(TO_CHAR(p_prepay_line_amt), 'NULL'));
5713: END IF;
5714:
5715: END IF;
5715: END IF;
5716:
5717: IF (g_level_procedure >= g_current_runtime_level ) THEN
5718: FND_LOG.STRING(g_level_procedure,
5719: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt.END',
5720: 'ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt(-)');
5721: END IF;
5722:
5723: return l_prd_total_tax_amt;
5716:
5717: IF (g_level_procedure >= g_current_runtime_level ) THEN
5718: FND_LOG.STRING(g_level_procedure,
5719: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt.END',
5720: 'ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt(-)');
5721: END IF;
5722:
5723: return l_prd_total_tax_amt;
5724:
5828: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5829:
5830: IF (g_level_procedure >= g_current_runtime_level ) THEN
5831: FND_LOG.STRING(g_level_procedure,
5832: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.BEGIN',
5833: 'ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected(+)');
5834: END IF;
5835:
5836: x_return_status:= FND_API.G_RET_STS_SUCCESS;
5829:
5830: IF (g_level_procedure >= g_current_runtime_level ) THEN
5831: FND_LOG.STRING(g_level_procedure,
5832: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.BEGIN',
5833: 'ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected(+)');
5834: END IF;
5835:
5836: x_return_status:= FND_API.G_RET_STS_SUCCESS;
5837:
5934: END LOOP; -- i IN p_pa_item_info_tbl.FIRST .. p_pa_item_info_tbl.LAST
5935:
5936: IF (g_level_procedure >= g_current_runtime_level ) THEN
5937: FND_LOG.STRING(g_level_procedure,
5938: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5939: 'ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected(-)');
5940: END IF;
5941:
5942: EXCEPTION
5935:
5936: IF (g_level_procedure >= g_current_runtime_level ) THEN
5937: FND_LOG.STRING(g_level_procedure,
5938: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5939: 'ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected(-)');
5940: END IF;
5941:
5942: EXCEPTION
5943: WHEN OTHERS THEN
5945: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5946:
5947: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5948: FND_LOG.STRING(g_level_unexpected,
5949: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected',
5950: l_error_buffer);
5951: FND_LOG.STRING(g_level_unexpected,
5952: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5953: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
5948: FND_LOG.STRING(g_level_unexpected,
5949: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected',
5950: l_error_buffer);
5951: FND_LOG.STRING(g_level_unexpected,
5952: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5953: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
5954: END IF;
5955:
5956: END is_recoverability_affected;
5949: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected',
5950: l_error_buffer);
5951: FND_LOG.STRING(g_level_unexpected,
5952: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5953: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
5954: END IF;
5955:
5956: END is_recoverability_affected;
5957:
5997: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5998:
5999: IF (g_level_procedure >= g_current_runtime_level ) THEN
6000: FND_LOG.STRING(g_level_procedure,
6001: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID.BEGIN',
6002: 'ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID(+)');
6003: END IF;
6004:
6005: BEGIN
5998:
5999: IF (g_level_procedure >= g_current_runtime_level ) THEN
6000: FND_LOG.STRING(g_level_procedure,
6001: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID.BEGIN',
6002: 'ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID(+)');
6003: END IF;
6004:
6005: BEGIN
6006:
6014:
6015: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6016: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6017: FND_LOG.STRING(g_level_unexpected,
6018: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID',
6019: 'Exception in ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID: '||l_error_buffer);
6020: END IF;
6021:
6022: return(null);
6015: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6016: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6017: FND_LOG.STRING(g_level_unexpected,
6018: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID',
6019: 'Exception in ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID: '||l_error_buffer);
6020: END IF;
6021:
6022: return(null);
6023:
6067: END IF; -- l_ccid is null
6068:
6069: IF (g_level_procedure >= g_current_runtime_level ) THEN
6070: FND_LOG.STRING(g_level_procedure,
6071: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID.BEGIN',
6072: 'ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID(-)'||
6073: ' ccid = '||l_ccid);
6074: END IF;
6075:
6068:
6069: IF (g_level_procedure >= g_current_runtime_level ) THEN
6070: FND_LOG.STRING(g_level_procedure,
6071: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID.BEGIN',
6072: 'ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID(-)'||
6073: ' ccid = '||l_ccid);
6074: END IF;
6075:
6076: return(l_ccid);
6080:
6081: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6082: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6083: FND_LOG.STRING(g_level_unexpected,
6084: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID',
6085: 'Exception in ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID: '||l_error_buffer);
6086: END IF;
6087: return(null);
6088: END GET_RECOVERABLE_CCID;
6081: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6082: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6083: FND_LOG.STRING(g_level_unexpected,
6084: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID',
6085: 'Exception in ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID: '||l_error_buffer);
6086: END IF;
6087: return(null);
6088: END GET_RECOVERABLE_CCID;
6089:
6175: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6176:
6177: IF (g_level_procedure >= g_current_runtime_level ) THEN
6178: FND_LOG.STRING(g_level_procedure,
6179: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.BEGIN',
6180: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(+)');
6181: END IF;
6182:
6183: x_return_status:= FND_API.G_RET_STS_SUCCESS;
6176:
6177: IF (g_level_procedure >= g_current_runtime_level ) THEN
6178: FND_LOG.STRING(g_level_procedure,
6179: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.BEGIN',
6180: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(+)');
6181: END IF;
6182:
6183: x_return_status:= FND_API.G_RET_STS_SUCCESS;
6184:
6330:
6331:
6332: IF (g_level_procedure >= g_current_runtime_level ) THEN
6333: FND_LOG.STRING(g_level_procedure,
6334: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6335: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(-)');
6336: END IF;
6337:
6338: EXCEPTION
6331:
6332: IF (g_level_procedure >= g_current_runtime_level ) THEN
6333: FND_LOG.STRING(g_level_procedure,
6334: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6335: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(-)');
6336: END IF;
6337:
6338: EXCEPTION
6339: WHEN OTHERS THEN
6340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6341:
6342: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6343: FND_LOG.STRING(g_level_unexpected,
6344: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists',
6345: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
6346: FND_LOG.STRING(g_level_unexpected,
6347: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6348: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(-)');
6343: FND_LOG.STRING(g_level_unexpected,
6344: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists',
6345: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
6346: FND_LOG.STRING(g_level_unexpected,
6347: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6348: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(-)');
6349: END IF;
6350:
6351: END delete_unnecessary_tax_dists;
6344: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists',
6345: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
6346: FND_LOG.STRING(g_level_unexpected,
6347: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6348: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(-)');
6349: END IF;
6350:
6351: END delete_unnecessary_tax_dists;
6352:
6361: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6362:
6363: IF (g_level_procedure >= g_current_runtime_level ) THEN
6364: FND_LOG.STRING(g_level_procedure,
6365: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.BEGIN',
6366: 'ZX_TRD_SERVICES_PUB_PKG.update_posting_flag(+)');
6367: END IF;
6368:
6369: x_return_status:= FND_API.G_RET_STS_SUCCESS;
6362:
6363: IF (g_level_procedure >= g_current_runtime_level ) THEN
6364: FND_LOG.STRING(g_level_procedure,
6365: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.BEGIN',
6366: 'ZX_TRD_SERVICES_PUB_PKG.update_posting_flag(+)');
6367: END IF;
6368:
6369: x_return_status:= FND_API.G_RET_STS_SUCCESS;
6370:
6374: WHERE rec_nrec_tax_dist_id = p_tax_dist_id_tbl(i);
6375:
6376: IF (g_level_procedure >= g_current_runtime_level ) THEN
6377: FND_LOG.STRING(g_level_procedure,
6378: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6379: 'ZX_TRD_SERVICES_PUB_PKG.update_posting_flag(-)');
6380: END IF;
6381:
6382: EXCEPTION
6375:
6376: IF (g_level_procedure >= g_current_runtime_level ) THEN
6377: FND_LOG.STRING(g_level_procedure,
6378: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6379: 'ZX_TRD_SERVICES_PUB_PKG.update_posting_flag(-)');
6380: END IF;
6381:
6382: EXCEPTION
6383: WHEN OTHERS THEN
6385: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6386:
6387: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6388: FND_LOG.STRING(g_level_unexpected,
6389: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag',
6390: l_error_buffer);
6391: FND_LOG.STRING(g_level_unexpected,
6392: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6393: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
6388: FND_LOG.STRING(g_level_unexpected,
6389: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag',
6390: l_error_buffer);
6391: FND_LOG.STRING(g_level_unexpected,
6392: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6393: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
6394: END IF;
6395:
6396: END update_posting_flag;
6389: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag',
6390: l_error_buffer);
6391: FND_LOG.STRING(g_level_unexpected,
6392: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6393: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
6394: END IF;
6395:
6396: END update_posting_flag;
6397:
6505:
6506: IF (g_level_procedure >= g_current_runtime_level ) THEN
6507:
6508: FND_LOG.STRING(g_level_procedure,
6509: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6510: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(+)');
6511:
6512: END IF;
6513:
6506: IF (g_level_procedure >= g_current_runtime_level ) THEN
6507:
6508: FND_LOG.STRING(g_level_procedure,
6509: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6510: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(+)');
6511:
6512: END IF;
6513:
6514: x_return_status := FND_API.G_RET_STS_SUCCESS;
6520:
6521: IF l_lines_count = 0 THEN
6522: IF (g_level_procedure >= g_current_runtime_level ) THEN
6523: FND_LOG.STRING(g_level_procedure,
6524: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6525: 'This processing is done only for partner tax calculation, this is not partner processing');
6526: FND_LOG.STRING(g_level_procedure,
6527: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6528: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6523: FND_LOG.STRING(g_level_procedure,
6524: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6525: 'This processing is done only for partner tax calculation, this is not partner processing');
6526: FND_LOG.STRING(g_level_procedure,
6527: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6528: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6529: END IF;
6530: RETURN;
6531: END IF;
6524: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6525: 'This processing is done only for partner tax calculation, this is not partner processing');
6526: FND_LOG.STRING(g_level_procedure,
6527: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6528: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6529: END IF;
6530: RETURN;
6531: END IF;
6532:
6568: x_return_status);
6569: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6570: IF (g_level_statement >= g_current_runtime_level ) THEN
6571: FND_LOG.STRING(g_level_statement,
6572: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6573: 'After calling init_mand_columns, x_return_status = '|| x_return_status);
6574: FND_LOG.STRING(g_level_statement,
6575: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6576: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6571: FND_LOG.STRING(g_level_statement,
6572: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6573: 'After calling init_mand_columns, x_return_status = '|| x_return_status);
6574: FND_LOG.STRING(g_level_statement,
6575: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6576: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6577: END IF;
6578: RETURN;
6579: END IF;
6572: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6573: 'After calling init_mand_columns, x_return_status = '|| x_return_status);
6574: FND_LOG.STRING(g_level_statement,
6575: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6576: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6577: END IF;
6578: RETURN;
6579: END IF;
6580:
6611: close line_acc_src_tax_rate_id;
6612:
6613: IF (g_level_statement >= g_current_runtime_level ) THEN
6614: FND_LOG.STRING(g_level_statement,
6615: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6616: 'l_acc_src_tax_rate_id: ' || l_acc_src_tax_rate_id);
6617: END IF;
6618:
6619: -- getting geography type based on the acc_src_tax_rate_id if it is not null
6644: IF g_geography_use_info_tbl.EXISTS(l_tbl_index) AND
6645: g_geography_use_info_tbl(l_tbl_index).tax_id = l_tax_id THEN
6646: IF (g_level_statement >= g_current_runtime_level ) THEN
6647: FND_LOG.STRING(g_level_statement,
6648: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6649: 'Found Geography usage information in cache ');
6650: END IF;
6651: ELSE
6652: IF (l_zone_geography_type IS NOT NULL OR
6670: EXCEPTION WHEN NO_DATA_FOUND THEN
6671: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6672: l_log_msg := 'hz_geography_type: Not Found for Tax';
6673: FND_LOG.STRING(G_LEVEL_STATEMENT,
6674: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6675: l_log_msg);
6676: END IF;
6677: END;
6678: --IF l_geography_type IS NOT NULL THEN
6688: l_log_msg := 'hz_geography_type: out:' ||
6689: ', l_geography_type = ' || g_geography_use_info_tbl(l_tbl_index).geography_type ||
6690: ', l_geography_use = ' || g_geography_use_info_tbl(l_tbl_index).geography_use;
6691: FND_LOG.STRING(G_LEVEL_STATEMENT,
6692: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6693: l_log_msg);
6694: END IF;
6695: IF g_geography_use_info_tbl(l_tbl_index).geography_use = 'MASTER_REF' THEN
6696: ZX_TCM_GEO_JUR_PKG.get_master_geography(
6703: x_return_status);
6704: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6705: IF (g_level_statement >= g_current_runtime_level ) THEN
6706: FND_LOG.STRING(g_level_statement,
6707: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6708: 'Incorrect return_status after calling ' ||
6709: 'ZX_TCM_GEO_JUR_PKG.get_master_geography');
6710: FND_LOG.STRING(g_level_statement,
6711: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6707: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6708: 'Incorrect return_status after calling ' ||
6709: 'ZX_TCM_GEO_JUR_PKG.get_master_geography');
6710: FND_LOG.STRING(g_level_statement,
6711: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6712: 'RETURN_STATUS = ' || x_return_status);
6713: FND_LOG.STRING(g_level_statement,
6714: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6715: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6710: FND_LOG.STRING(g_level_statement,
6711: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6712: 'RETURN_STATUS = ' || x_return_status);
6713: FND_LOG.STRING(g_level_statement,
6714: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6715: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6716: END IF;
6717: RETURN;
6718: ELSE
6711: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6712: 'RETURN_STATUS = ' || x_return_status);
6713: FND_LOG.STRING(g_level_statement,
6714: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6715: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6716: END IF;
6717: RETURN;
6718: ELSE
6719: IF x_geography_id IS NOT NULL THEN
6751: x_return_status);
6752: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6753: IF (g_level_statement >= g_current_runtime_level ) THEN
6754: FND_LOG.STRING(g_level_statement,
6755: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6756: 'Incorrect return_status after calling ' ||
6757: 'ZX_TCM_GEO_JUR_PKG.get_zone');
6758: FND_LOG.STRING(g_level_statement,
6759: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6755: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6756: 'Incorrect return_status after calling ' ||
6757: 'ZX_TCM_GEO_JUR_PKG.get_zone');
6758: FND_LOG.STRING(g_level_statement,
6759: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6760: 'RETURN_STATUS = ' || x_return_status);
6761: FND_LOG.STRING(g_level_statement,
6762: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6763: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6758: FND_LOG.STRING(g_level_statement,
6759: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6760: 'RETURN_STATUS = ' || x_return_status);
6761: FND_LOG.STRING(g_level_statement,
6762: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6763: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6764: END IF;
6765: RETURN;
6766: ELSE
6759: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6760: 'RETURN_STATUS = ' || x_return_status);
6761: FND_LOG.STRING(g_level_statement,
6762: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6763: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6764: END IF;
6765: RETURN;
6766: ELSE
6767: IF l_zone_tbl.count > 0 THEN
6806: --END IF; -- caching end
6807:
6808: IF (g_level_procedure >= g_current_runtime_level ) THEN
6809: FND_LOG.STRING(g_level_procedure,
6810: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6811: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6812: END IF;
6813:
6814: EXCEPTION
6807:
6808: IF (g_level_procedure >= g_current_runtime_level ) THEN
6809: FND_LOG.STRING(g_level_procedure,
6810: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6811: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6812: END IF;
6813:
6814: EXCEPTION
6815: WHEN OTHERS THEN
6817: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6818:
6819: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6820: FND_LOG.STRING(g_level_unexpected,
6821: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6822: l_error_buffer);
6823: FND_LOG.STRING(g_level_unexpected,
6824: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6825: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6820: FND_LOG.STRING(g_level_unexpected,
6821: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6822: l_error_buffer);
6823: FND_LOG.STRING(g_level_unexpected,
6824: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6825: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6826: END IF;
6827:
6828: END get_tax_jurisdiction_id;
6821: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6822: l_error_buffer);
6823: FND_LOG.STRING(g_level_unexpected,
6824: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6825: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6826: END IF;
6827:
6828: END get_tax_jurisdiction_id;
6829:
6838: x_return_status := FND_API.G_RET_STS_SUCCESS;
6839:
6840: IF (g_level_procedure >= g_current_runtime_level ) THEN
6841: FND_LOG.STRING(g_level_procedure,
6842: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS.BEGIN',
6843: 'ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS(+)');
6844: END IF;
6845:
6846: SELECT ZX_LINES_DET_FACTORS_S.nextval
6839:
6840: IF (g_level_procedure >= g_current_runtime_level ) THEN
6841: FND_LOG.STRING(g_level_procedure,
6842: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS.BEGIN',
6843: 'ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS(+)');
6844: END IF;
6845:
6846: SELECT ZX_LINES_DET_FACTORS_S.nextval
6847: INTO p_event_class_rec.event_id
6869:
6870: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6871: IF (g_level_statement >= g_current_runtime_level ) THEN
6872: FND_LOG.STRING(g_level_statement,
6873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS',
6874: 'After calling calculate_tax, x_return_status = '|| x_return_status);
6875: FND_LOG.STRING(g_level_statement,
6876: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS.END',
6877: 'ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS(-)');
6872: FND_LOG.STRING(g_level_statement,
6873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS',
6874: 'After calling calculate_tax, x_return_status = '|| x_return_status);
6875: FND_LOG.STRING(g_level_statement,
6876: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS.END',
6877: 'ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS(-)');
6878: END IF;
6879: END IF;
6880: ELSE
6873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS',
6874: 'After calling calculate_tax, x_return_status = '|| x_return_status);
6875: FND_LOG.STRING(g_level_statement,
6876: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS.END',
6877: 'ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS(-)');
6878: END IF;
6879: END IF;
6880: ELSE
6881: ZX_VALID_INIT_PARAMS_PKG.import_document_with_tax(x_return_status => x_return_status,
6882: p_event_class_rec => p_event_class_rec);
6883: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6884: IF (g_level_statement >= g_current_runtime_level ) THEN
6885: FND_LOG.STRING(g_level_statement,
6886: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS',
6887: 'After calling import_document_with_tax, x_return_status = '|| x_return_status);
6888: FND_LOG.STRING(g_level_statement,
6889: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS.END',
6890: 'ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS(-)');
6885: FND_LOG.STRING(g_level_statement,
6886: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS',
6887: 'After calling import_document_with_tax, x_return_status = '|| x_return_status);
6888: FND_LOG.STRING(g_level_statement,
6889: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS.END',
6890: 'ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS(-)');
6891: END IF;
6892: END IF;
6893: END IF;
6886: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS',
6887: 'After calling import_document_with_tax, x_return_status = '|| x_return_status);
6888: FND_LOG.STRING(g_level_statement,
6889: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS.END',
6890: 'ZX_TRD_SERVICES_PUB_PKG.INIT_MAND_COLUMNS(-)');
6891: END IF;
6892: END IF;
6893: END IF;
6894:
6898: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6899:
6900: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6901: FND_LOG.STRING(g_level_unexpected,
6902: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6903: l_error_buffer);
6904: FND_LOG.STRING(g_level_unexpected,
6905: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6906: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6901: FND_LOG.STRING(g_level_unexpected,
6902: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6903: l_error_buffer);
6904: FND_LOG.STRING(g_level_unexpected,
6905: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6906: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6907: END IF;
6908: END init_mand_columns;
6909:
6902: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6903: l_error_buffer);
6904: FND_LOG.STRING(g_level_unexpected,
6905: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6906: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6907: END IF;
6908: END init_mand_columns;
6909:
6910: -- Constructor
6917: l_tax_rate_not_active :=fnd_message.get_string('ZX','ZX_TAX_RATE_NOT_ACTIVE' );
6918: l_tax_rate_percentage_invalid :=fnd_message.get_string('ZX','ZX_TAX_RATE_PERCENTAGE_INVALID' );
6919: l_jur_code_not_effective :=fnd_message.get_string('ZX','ZX_JUR_CODE_NOT_EFFECTIVE' );
6920:
6921: END ZX_TRD_SERVICES_PUB_PKG ;