[Home] [Help]
71: p_tax_jurisdiction_id OUT NOCOPY NUMBER,
72: x_return_status OUT NOCOPY VARCHAR2);
73:
74: g_current_runtime_level NUMBER;
75: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
76: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
77: g_level_exception CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
78: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
79: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
72: x_return_status OUT NOCOPY VARCHAR2);
73:
74: g_current_runtime_level NUMBER;
75: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
76: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
77: g_level_exception CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
78: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
79: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
80:
73:
74: g_current_runtime_level NUMBER;
75: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
76: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
77: g_level_exception CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
78: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
79: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
80:
81: l_regime_not_effective varchar2(2000);
74: g_current_runtime_level NUMBER;
75: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
76: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
77: g_level_exception CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
78: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
79: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
80:
81: l_regime_not_effective varchar2(2000);
82: l_tax_not_effective varchar2(2000);
75: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
76: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
77: g_level_exception CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
78: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
79: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
80:
81: l_regime_not_effective varchar2(2000);
82: l_tax_not_effective varchar2(2000);
83: l_tax_status_not_effective varchar2(2000);
274: l_exist_frozen_tax_dist_flag VARCHAR2(1);
275:
276: BEGIN
277:
278: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
279:
280: IF (g_level_procedure >= g_current_runtime_level ) THEN
281: FND_LOG.STRING(g_level_procedure,
282: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.BEGIN',
277:
278: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
279:
280: IF (g_level_procedure >= g_current_runtime_level ) THEN
281: FND_LOG.STRING(g_level_procedure,
282: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.BEGIN',
283: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(+) ');
284: END IF;
285:
326: p_event_class_rec);
327:
328: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
329: IF (g_level_statement >= g_current_runtime_level ) THEN
330: FND_LOG.STRING(g_level_statement,
331: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
332: 'After calling TRL, x_return_status = '|| x_return_status);
333: FND_LOG.STRING(g_level_statement,
334: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
329: IF (g_level_statement >= g_current_runtime_level ) THEN
330: FND_LOG.STRING(g_level_statement,
331: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
332: 'After calling TRL, x_return_status = '|| x_return_status);
333: FND_LOG.STRING(g_level_statement,
334: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
335: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
336: END IF;
337: RETURN;
347: x_return_status);
348:
349: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
350: IF (g_level_statement >= g_current_runtime_level ) THEN
351: FND_LOG.STRING(g_level_statement,
352: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
353: 'After calling fetch tax lines, x_return_status = '
354: || x_return_status);
355: FND_LOG.STRING(g_level_statement,
351: FND_LOG.STRING(g_level_statement,
352: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
353: 'After calling fetch tax lines, x_return_status = '
354: || x_return_status);
355: FND_LOG.STRING(g_level_statement,
356: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
357: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
358: END IF;
359: RETURN;
377: l_rec_nrec_dist_tbl.delete;
378:
379: IF tax_line_counter = 0 THEN
380: IF (g_level_statement >= g_current_runtime_level ) THEN
381: FND_LOG.STRING(g_level_statement,
382: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
383: 'there is no tax lines that need to be processed ');
384:
385: FND_LOG.STRING(g_level_statement,
381: FND_LOG.STRING(g_level_statement,
382: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
383: 'there is no tax lines that need to be processed ');
384:
385: FND_LOG.STRING(g_level_statement,
386: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
387: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)'||x_return_status);
388: END IF;
389: RETURN;
417: x_return_status);
418:
419: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
420: IF (g_level_statement >= g_current_runtime_level ) THEN
421: FND_LOG.STRING(g_level_statement,
422: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
423: 'After calling populate_trx_line_info, x_return_status = '
424: || x_return_status);
425: FND_LOG.STRING(g_level_statement,
421: FND_LOG.STRING(g_level_statement,
422: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
423: 'After calling populate_trx_line_info, x_return_status = '
424: || x_return_status);
425: FND_LOG.STRING(g_level_statement,
426: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
427: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
428: END IF;
429: RETURN;
486: adjusted_doc_dist_id_tbl(1) := NULL;
487: overriding_recovery_rate_tbl(1) := NULL;
488:
489: IF (g_level_statement >= g_current_runtime_level ) THEN
490: FND_LOG.STRING(g_level_statement,
491: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
492: 'trx_line_dist_id_tbl '
493: ||to_char(trx_line_dist_id_tbl(1)));
494: END IF;
565: p_error_buffer);
566:
567: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
568: IF (g_level_statement >= g_current_runtime_level ) THEN
569: FND_LOG.STRING(g_level_statement,
570: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
571: 'After calling cancel_tax_line x_return_status = '
572: || x_return_status);
573: FND_LOG.STRING(g_level_statement,
569: FND_LOG.STRING(g_level_statement,
570: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
571: 'After calling cancel_tax_line x_return_status = '
572: || x_return_status);
573: FND_LOG.STRING(g_level_statement,
574: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
575: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
576: END IF;
577: RETURN;
693: p_error_buffer);
694:
695: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
696: IF (g_level_statement >= g_current_runtime_level ) THEN
697: FND_LOG.STRING(g_level_statement,
698: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
699: 'After calling calc_tax_dist x_return_status = '
700: || x_return_status);
701: FND_LOG.STRING(g_level_statement,
697: FND_LOG.STRING(g_level_statement,
698: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
699: 'After calling calc_tax_dist x_return_status = '
700: || x_return_status);
701: FND_LOG.STRING(g_level_statement,
702: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
703: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
704: END IF;
705: RETURN;
718: x_return_status);
719:
720: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
721: IF (g_level_statement >= g_current_runtime_level ) THEN
722: FND_LOG.STRING(g_level_statement,
723: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
724: 'After calling fetch_tax_distributions x_return_status = '
725: || x_return_status);
726: FND_LOG.STRING(g_level_statement,
722: FND_LOG.STRING(g_level_statement,
723: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
724: 'After calling fetch_tax_distributions x_return_status = '
725: || x_return_status);
726: FND_LOG.STRING(g_level_statement,
727: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
728: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
729: END IF;
730: RETURN;
731: END IF;
732: ELSE -- wrong l_action
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
734: IF (g_level_statement >= g_current_runtime_level ) THEN
735: FND_LOG.STRING(g_level_statement,
736: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
737: 'wrong dist level action code. l_action= '||l_action );
738: FND_LOG.STRING(g_level_statement,
739: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
734: IF (g_level_statement >= g_current_runtime_level ) THEN
735: FND_LOG.STRING(g_level_statement,
736: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
737: 'wrong dist level action code. l_action= '||l_action );
738: FND_LOG.STRING(g_level_statement,
739: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
740: 'RETURN_STATUS = ' || x_return_status);
741: END IF;
742: RETURN;
806: l_rec_nrec_dist_begin_index := l_rec_nrec_dist_end_index + 1;
807: l_action := ZX_GLOBAL_STRUCTURES_PKG.TRX_LINE_DIST_TBL.DIST_LEVEL_ACTION(1);
808:
809: IF (g_level_statement >= g_current_runtime_level ) THEN
810: FND_LOG.STRING(g_level_statement,
811: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
812: 'dist level action = ' || l_action);
813: END IF;
814:
829: p_error_buffer);
830:
831: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
832: IF (g_level_statement >= g_current_runtime_level ) THEN
833: FND_LOG.STRING(g_level_statement,
834: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
835: 'After calling calc_tax_dist x_return_status = '
836: || x_return_status);
837: FND_LOG.STRING(g_level_statement,
833: FND_LOG.STRING(g_level_statement,
834: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
835: 'After calling calc_tax_dist x_return_status = '
836: || x_return_status);
837: FND_LOG.STRING(g_level_statement,
838: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
839: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
840: END IF;
841: RETURN;
843:
844: ELSE -- wrong l_action
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
846: IF (g_level_statement >= g_current_runtime_level ) THEN
847: FND_LOG.STRING(g_level_statement,
848: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
849: 'wrong dist level action code ' );
850:
851: END IF;
868: p_error_buffer);
869:
870: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
871: IF (g_level_statement >= g_current_runtime_level ) THEN
872: FND_LOG.STRING(g_level_statement,
873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
874: 'After calling get_rec_nrec_dist_amt x_return_status = '
875: || x_return_status);
876: FND_LOG.STRING(g_level_statement,
872: FND_LOG.STRING(g_level_statement,
873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
874: 'After calling get_rec_nrec_dist_amt x_return_status = '
875: || x_return_status);
876: FND_LOG.STRING(g_level_statement,
877: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
878: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
879: END IF;
880: RETURN;
893: p_error_buffer);
894:
895: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
896: IF (g_level_statement >= g_current_runtime_level ) THEN
897: FND_LOG.STRING(g_level_statement,
898: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
899: 'After calling ROUND_REC_NREC_AMT x_return_status = '
900: || x_return_status);
901: FND_LOG.STRING(g_level_statement,
897: FND_LOG.STRING(g_level_statement,
898: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
899: 'After calling ROUND_REC_NREC_AMT x_return_status = '
900: || x_return_status);
901: FND_LOG.STRING(g_level_statement,
902: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
903: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
904: END IF;
905: RETURN;
920: -- p_error_buffer);
921: --
922: -- IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
923: -- IF (g_level_statement >= g_current_runtime_level ) THEN
924: -- FND_LOG.STRING(g_level_statement,
925: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
926: -- 'After calling create_mrc_tax_dists x_return_status = '
927: -- || x_return_status);
928: -- FND_LOG.STRING(g_level_statement,
924: -- FND_LOG.STRING(g_level_statement,
925: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
926: -- 'After calling create_mrc_tax_dists x_return_status = '
927: -- || x_return_status);
928: -- FND_LOG.STRING(g_level_statement,
929: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
930: -- 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
931: -- END IF;
932: -- RETURN;
943: x_return_status);
944:
945: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
946: IF (g_level_statement >= g_current_runtime_level ) THEN
947: FND_LOG.STRING(g_level_statement,
948: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
949: 'After calling insert_global_table x_return_status = '
950: || x_return_status);
951: FND_LOG.STRING(g_level_statement,
947: FND_LOG.STRING(g_level_statement,
948: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
949: 'After calling insert_global_table x_return_status = '
950: || x_return_status);
951: FND_LOG.STRING(g_level_statement,
952: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
953: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
954: END IF;
955: RETURN;
965: populate_mandatory_columns(l_rec_nrec_dist_tbl,x_return_status);
966:
967: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
968: IF (g_level_statement >= g_current_runtime_level ) THEN
969: FND_LOG.STRING(g_level_statement,
970: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
971: 'After calling populate_mandatory_columns x_return_status = '
972: || x_return_status);
973: FND_LOG.STRING(g_level_statement,
969: FND_LOG.STRING(g_level_statement,
970: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
971: 'After calling populate_mandatory_columns x_return_status = '
972: || x_return_status);
973: FND_LOG.STRING(g_level_statement,
974: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
975: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
976: END IF;
977: RETURN;
989: x_return_status => x_return_status);
990:
991: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
992: IF g_level_statement >= g_current_runtime_level THEN
993: FND_LOG.STRING(g_level_statement,
994: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
995: 'After calling delete_unnecessary_tax_dists, x_return_status = '
996: || x_return_status);
997: FND_LOG.STRING(g_level_statement,
993: FND_LOG.STRING(g_level_statement,
994: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
995: 'After calling delete_unnecessary_tax_dists, x_return_status = '
996: || x_return_status);
997: FND_LOG.STRING(g_level_statement,
998: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
999: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1000: END IF;
1001: RETURN;
1004:
1005:
1006: IF (g_level_procedure >= g_current_runtime_level ) THEN
1007:
1008: FND_LOG.STRING(g_level_procedure,
1009: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1010: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)'||x_return_status);
1011: END IF;
1012:
1015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1016: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1017:
1018: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1019: FND_LOG.STRING(g_level_unexpected,
1020: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
1021: p_error_buffer);
1022: FND_LOG.STRING(g_level_unexpected,
1023: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1018: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1019: FND_LOG.STRING(g_level_unexpected,
1020: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
1021: p_error_buffer);
1022: FND_LOG.STRING(g_level_unexpected,
1023: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1024: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1025:
1026: END IF;
1083: l_tax_line_amt_funcl_curr NUMBER;
1084:
1085: BEGIN
1086:
1087: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1088:
1089: IF (g_level_procedure >= g_current_runtime_level ) THEN
1090: FND_LOG.STRING(g_level_procedure,
1091: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.BEGIN',
1086:
1087: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1088:
1089: IF (g_level_procedure >= g_current_runtime_level ) THEN
1090: FND_LOG.STRING(g_level_procedure,
1091: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.BEGIN',
1092: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(+)');
1093: END IF;
1094:
1175:
1176: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1177:
1178: IF (g_level_statement >= g_current_runtime_level ) THEN
1179: FND_LOG.STRING(g_level_statement,
1180: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1181: 'After calling ROUND_REC_NREC_AMT x_return_status = '
1182: || x_return_status);
1183: FND_LOG.STRING(g_level_statement,
1179: FND_LOG.STRING(g_level_statement,
1180: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1181: 'After calling ROUND_REC_NREC_AMT x_return_status = '
1182: || x_return_status);
1183: FND_LOG.STRING(g_level_statement,
1184: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1185: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1186: END IF;
1187: RETURN;
1193: -- IF p_event_class_rec.enable_mrc_flag = 'Y' THEN
1194: -- -- create MRC tax distributions
1195: -- --
1196: -- IF (g_level_statement >= g_current_runtime_level ) THEN
1197: -- FND_LOG.STRING(g_level_statement,
1198: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1199: -- 'create MRC tax distributions' );
1200: -- END IF;
1201: --
1208: -- p_error_buffer);
1209: --
1210: -- IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1211: -- IF (g_level_statement >= g_current_runtime_level ) THEN
1212: -- FND_LOG.STRING(g_level_statement,
1213: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1214: -- 'After calling create_mrc_tax_dists x_return_status = '
1215: -- || x_return_status);
1216: -- FND_LOG.STRING(g_level_statement,
1212: -- FND_LOG.STRING(g_level_statement,
1213: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1214: -- 'After calling create_mrc_tax_dists x_return_status = '
1215: -- || x_return_status);
1216: -- FND_LOG.STRING(g_level_statement,
1217: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1218: -- 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1219: -- END IF;
1220: -- RETURN;
1231:
1232: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1233:
1234: IF (g_level_statement >= g_current_runtime_level ) THEN
1235: FND_LOG.STRING(g_level_statement,
1236: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1237: 'After calling insert_global_table x_return_status = '
1238: || x_return_status);
1239: FND_LOG.STRING(g_level_statement,
1235: FND_LOG.STRING(g_level_statement,
1236: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1237: 'After calling insert_global_table x_return_status = '
1238: || x_return_status);
1239: FND_LOG.STRING(g_level_statement,
1240: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1241: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1242: END IF;
1243: RETURN;
1255:
1256: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1257:
1258: IF (g_level_statement >= g_current_runtime_level ) THEN
1259: FND_LOG.STRING(g_level_statement,
1260: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1261: 'After calling populate_mandatory_columns x_return_status = '
1262: || x_return_status);
1263: FND_LOG.STRING(g_level_statement,
1259: FND_LOG.STRING(g_level_statement,
1260: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1261: 'After calling populate_mandatory_columns x_return_status = '
1262: || x_return_status);
1263: FND_LOG.STRING(g_level_statement,
1264: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1265: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1266: END IF;
1267: RETURN;
1283:
1284: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1285:
1286: IF (g_level_statement >= g_current_runtime_level ) THEN
1287: FND_LOG.STRING(g_level_statement,
1288: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1289: 'After calling calc_variance_factors ' ||
1290: 'x_return_status = ' || x_return_status);
1291: FND_LOG.STRING(g_level_statement,
1287: FND_LOG.STRING(g_level_statement,
1288: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1289: 'After calling calc_variance_factors ' ||
1290: 'x_return_status = ' || x_return_status);
1291: FND_LOG.STRING(g_level_statement,
1292: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1293: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1294: END IF;
1295: RETURN;
1298: END IF;
1299:
1300: IF (g_level_procedure >= g_current_runtime_level ) THEN
1301:
1302: FND_LOG.STRING(g_level_procedure,
1303: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1304: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)'||x_return_status);
1305: END IF;
1306:
1309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1310: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1311:
1312: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1313: FND_LOG.STRING(g_level_unexpected,
1314: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1315: p_error_buffer);
1316: FND_LOG.STRING(g_level_unexpected,
1317: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1312: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1313: FND_LOG.STRING(g_level_unexpected,
1314: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1315: p_error_buffer);
1316: FND_LOG.STRING(g_level_unexpected,
1317: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1318: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1319:
1320: END IF;
1349: WHERE rec_nrec_tax_dist_id IN (SELECT tax_dist_id FROM zx_tax_dist_id_gt);
1350:
1351: BEGIN
1352:
1353: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1354:
1355: IF (g_level_procedure >= g_current_runtime_level ) THEN
1356: FND_LOG.STRING(g_level_procedure,
1357: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.BEGIN',
1352:
1353: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1354:
1355: IF (g_level_procedure >= g_current_runtime_level ) THEN
1356: FND_LOG.STRING(g_level_procedure,
1357: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.BEGIN',
1358: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(+)');
1359: END IF;
1360: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1474: CLOSE get_rec_nrec_dist_cur;
1475:
1476: IF (g_level_procedure >= g_current_runtime_level ) THEN
1477:
1478: FND_LOG.STRING(g_level_procedure,
1479: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1480: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(-)'||x_return_status);
1481: END IF;
1482:
1485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1486: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1487:
1488: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1489: FND_LOG.STRING(g_level_unexpected,
1490: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST',
1491: p_error_buffer);
1492: FND_LOG.STRING(g_level_unexpected,
1493: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1488: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1489: FND_LOG.STRING(g_level_unexpected,
1490: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST',
1491: p_error_buffer);
1492: FND_LOG.STRING(g_level_unexpected,
1493: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1494: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(-)');
1495:
1496: END IF;
1530: l_tax_amount_range VARCHAR2(1);
1531:
1532: BEGIN
1533:
1534: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1535:
1536: IF (g_level_procedure >= g_current_runtime_level ) THEN
1537: FND_LOG.STRING(g_level_procedure,
1538: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.BEGIN',
1533:
1534: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1535:
1536: IF (g_level_procedure >= g_current_runtime_level ) THEN
1537: FND_LOG.STRING(g_level_procedure,
1538: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.BEGIN',
1539: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(+)');
1540: END IF;
1541:
1562: x_hold_status(x_hold_status.count + 1) := ZX_TDS_CALC_SERVICES_PUB_PKG.G_TAX_VARIANCE_HOLD;
1563: l_tax_variance := 'Y';
1564:
1565: IF (g_level_statement >= g_current_runtime_level ) THEN
1566: FND_LOG.STRING(g_level_statement,
1567: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1568: 'hold code : tax variance ');
1569: END IF;
1570: END IF;
1573: x_hold_status(x_hold_status.count + 1) := ZX_TDS_CALC_SERVICES_PUB_PKG.G_TAX_AMT_RANGE_HOLD;
1574: l_tax_amount_range := 'Y';
1575:
1576: IF (g_level_statement >= g_current_runtime_level ) THEN
1577: FND_LOG.STRING(g_level_statement,
1578: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1579: 'hold code : tax amount range');
1580: END IF;
1581: END IF;
1584: x_hold_status(x_hold_status.count + 1) := ZX_TDS_CALC_SERVICES_PUB_PKG.G_TAX_VARIANCE_HOLD;
1585: l_tax_variance := 'Y';
1586:
1587: IF (g_level_statement >= g_current_runtime_level ) THEN
1588: FND_LOG.STRING(g_level_statement,
1589: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1590: 'hold code : tax variance ');
1591: END IF;
1592: END IF;
1594: x_hold_status(x_hold_status.count + 1) := ZX_TDS_CALC_SERVICES_PUB_PKG.G_TAX_AMT_RANGE_HOLD;
1595: l_tax_amount_range := 'Y';
1596:
1597: IF (g_level_statement >= g_current_runtime_level ) THEN
1598: FND_LOG.STRING(g_level_statement,
1599: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1600: 'hold code : tax amount range');
1601: END IF;
1602: END IF;
1854:
1855:
1856: IF (g_level_procedure >= g_current_runtime_level ) THEN
1857:
1858: FND_LOG.STRING(g_level_procedure,
1859: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1860: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(-)'||x_return_status);
1861: END IF;
1862:
1868: CLOSE get_hold_status_csr;
1869: END IF;
1870:
1871: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1872: FND_LOG.STRING(g_level_unexpected,
1873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1874: 'x_hold_status.tax_variance = '||l_tax_variance);
1875: FND_LOG.STRING(g_level_unexpected,
1876: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1871: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1872: FND_LOG.STRING(g_level_unexpected,
1873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1874: 'x_hold_status.tax_variance = '||l_tax_variance);
1875: FND_LOG.STRING(g_level_unexpected,
1876: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1877: 'x_hold_status.tax_amount_range = '||l_tax_amount_range);
1878: FND_LOG.STRING(g_level_unexpected,
1879: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1874: 'x_hold_status.tax_variance = '||l_tax_variance);
1875: FND_LOG.STRING(g_level_unexpected,
1876: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1877: 'x_hold_status.tax_amount_range = '||l_tax_amount_range);
1878: FND_LOG.STRING(g_level_unexpected,
1879: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1880: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1881: FND_LOG.STRING(g_level_unexpected,
1882: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1877: 'x_hold_status.tax_amount_range = '||l_tax_amount_range);
1878: FND_LOG.STRING(g_level_unexpected,
1879: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1880: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1881: FND_LOG.STRING(g_level_unexpected,
1882: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1883: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(-)');
1884:
1885: END IF;
1922: l_gl_date_tbl date_tbl_type;
1923:
1924: BEGIN
1925:
1926: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1927:
1928: IF (g_level_procedure >= g_current_runtime_level ) THEN
1929: FND_LOG.STRING(g_level_procedure,
1930: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.BEGIN',
1925:
1926: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1927:
1928: IF (g_level_procedure >= g_current_runtime_level ) THEN
1929: FND_LOG.STRING(g_level_procedure,
1930: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.BEGIN',
1931: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(+)');
1932: END IF;
1933:
2357: SET REVERSE_FLAG = 'Y'
2358: WHERE REC_NREC_TAX_DIST_ID = l_rvrsed_tax_dist_id_tbl(i);
2359:
2360: IF (g_level_procedure >= g_current_runtime_level ) THEN
2361: FND_LOG.STRING(g_level_procedure,
2362: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.END',
2363: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(-)'||
2364: 'RETURN_STATUS = ' || x_return_status);
2365: END IF;
2368: WHEN DUP_VAL_ON_INDEX THEN
2369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2370:
2371: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2372: FND_LOG.STRING(g_level_unexpected,
2373: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2374: 'Tax Lines Distribution Record Already Exists');
2375: FND_LOG.STRING(g_level_unexpected,
2376: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2371: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2372: FND_LOG.STRING(g_level_unexpected,
2373: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2374: 'Tax Lines Distribution Record Already Exists');
2375: FND_LOG.STRING(g_level_unexpected,
2376: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2377: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2378: END IF;
2379:
2380: WHEN OTHERS THEN
2381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2382:
2383: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2384: FND_LOG.STRING(g_level_unexpected,
2385: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2386: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2387: END IF;
2388:
2386: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2387: END IF;
2388:
2389: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2390: FND_LOG.STRING(g_level_unexpected,
2391: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.END',
2392: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(-)');
2393: END IF;
2394:
2480: -- - The Tax Liability Account should be derived using regular tax rate_id.
2481: -- the CCID to be returned in this case is the TAX_ACCOUNT_CCID.
2482:
2483:
2484: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2485:
2486: IF (g_level_procedure >= g_current_runtime_level ) THEN
2487:
2488: FND_LOG.STRING(g_level_procedure,
2484: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2485:
2486: IF (g_level_procedure >= g_current_runtime_level ) THEN
2487:
2488: FND_LOG.STRING(g_level_procedure,
2489: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2490: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(+)');
2491:
2492: END IF;
2492: END IF;
2493:
2494: IF (g_level_statement >= g_current_runtime_level ) THEN
2495:
2496: FND_LOG.STRING(g_level_statement,
2497: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2498: 'Input Parameters:');
2499: FND_LOG.STRING(g_level_statement,
2500: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2495:
2496: FND_LOG.STRING(g_level_statement,
2497: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2498: 'Input Parameters:');
2499: FND_LOG.STRING(g_level_statement,
2500: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2501: 'GL Date:'||p_gl_date );
2502: FND_LOG.STRING(g_level_statement,
2503: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2498: 'Input Parameters:');
2499: FND_LOG.STRING(g_level_statement,
2500: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2501: 'GL Date:'||p_gl_date );
2502: FND_LOG.STRING(g_level_statement,
2503: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2504: 'Tax Rate Id:'||p_tax_rate_id);
2505: FND_LOG.STRING(g_level_statement,
2506: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2501: 'GL Date:'||p_gl_date );
2502: FND_LOG.STRING(g_level_statement,
2503: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2504: 'Tax Rate Id:'||p_tax_rate_id);
2505: FND_LOG.STRING(g_level_statement,
2506: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2507: 'Recovery Rate Id:'||p_rec_rate_id);
2508: FND_LOG.STRING(g_level_statement,
2509: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2504: 'Tax Rate Id:'||p_tax_rate_id);
2505: FND_LOG.STRING(g_level_statement,
2506: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2507: 'Recovery Rate Id:'||p_rec_rate_id);
2508: FND_LOG.STRING(g_level_statement,
2509: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2510: 'Self Assessed Flag:'||p_Self_Assessed_Flag);
2511: FND_LOG.STRING(g_level_statement,
2512: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2507: 'Recovery Rate Id:'||p_rec_rate_id);
2508: FND_LOG.STRING(g_level_statement,
2509: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2510: 'Self Assessed Flag:'||p_Self_Assessed_Flag);
2511: FND_LOG.STRING(g_level_statement,
2512: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2513: 'Recoverable Flag:'|| p_Recoverable_Flag);
2514: FND_LOG.STRING(g_level_statement,
2515: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2510: 'Self Assessed Flag:'||p_Self_Assessed_Flag);
2511: FND_LOG.STRING(g_level_statement,
2512: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2513: 'Recoverable Flag:'|| p_Recoverable_Flag);
2514: FND_LOG.STRING(g_level_statement,
2515: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2516: 'Org Id:'|| p_org_id);
2517: FND_LOG.STRING(g_level_statement,
2518: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2513: 'Recoverable Flag:'|| p_Recoverable_Flag);
2514: FND_LOG.STRING(g_level_statement,
2515: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2516: 'Org Id:'|| p_org_id);
2517: FND_LOG.STRING(g_level_statement,
2518: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2519: 'Ledger Id:'|| p_ledger_id);
2520: FND_LOG.STRING(g_level_statement,
2521: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2516: 'Org Id:'|| p_org_id);
2517: FND_LOG.STRING(g_level_statement,
2518: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2519: 'Ledger Id:'|| p_ledger_id);
2520: FND_LOG.STRING(g_level_statement,
2521: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2522: 'Tax regime id:'||p_tax_regime_id);
2523: FND_LOG.STRING(g_level_statement,
2524: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2519: 'Ledger Id:'|| p_ledger_id);
2520: FND_LOG.STRING(g_level_statement,
2521: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2522: 'Tax regime id:'||p_tax_regime_id);
2523: FND_LOG.STRING(g_level_statement,
2524: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2525: 'Tax Id:'|| p_tax_id);
2526: FND_LOG.STRING(g_level_statement,
2527: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2522: 'Tax regime id:'||p_tax_regime_id);
2523: FND_LOG.STRING(g_level_statement,
2524: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2525: 'Tax Id:'|| p_tax_id);
2526: FND_LOG.STRING(g_level_statement,
2527: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2528: 'Tax Status Id:'|| p_tax_status_id);
2529: FND_LOG.STRING(g_level_statement,
2530: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2525: 'Tax Id:'|| p_tax_id);
2526: FND_LOG.STRING(g_level_statement,
2527: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2528: 'Tax Status Id:'|| p_tax_status_id);
2529: FND_LOG.STRING(g_level_statement,
2530: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2531: 'revenue_expense_ccid:'|| p_revenue_expense_ccid);
2532: FND_LOG.STRING(g_level_statement,
2533: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2528: 'Tax Status Id:'|| p_tax_status_id);
2529: FND_LOG.STRING(g_level_statement,
2530: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2531: 'revenue_expense_ccid:'|| p_revenue_expense_ccid);
2532: FND_LOG.STRING(g_level_statement,
2533: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2534: 'Account Source Tax Rate Id:'|| p_account_source_tax_rate_id);
2535: END IF;
2536:
2558: END IF;
2559:
2560: IF (g_level_statement >= g_current_runtime_level ) THEN
2561:
2562: FND_LOG.STRING(g_level_statement,
2563: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2564: 'l_def_rec_settle_option_code: '|| l_def_rec_settle_option_code);
2565: END IF;
2566:
2569:
2570: BEGIN
2571:
2572: IF (g_level_statement >= g_current_runtime_level ) THEN
2573: FND_LOG.STRING(g_level_statement,
2574: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2575: 'Getting account information using account source tax rate id:'||p_account_source_tax_rate_id);
2576: END IF;
2577:
2578: 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
2579:
2580: IF (g_level_statement >= g_current_runtime_level ) THEN
2581:
2582: FND_LOG.STRING(g_level_statement,
2583: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2584: 'Getting from cache for p_account_sourece_tax_rate_id ');
2585: END IF;
2586: 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;
2591:
2592: ELSE
2593: IF (g_level_statement >= g_current_runtime_level ) THEN
2594:
2595: FND_LOG.STRING(g_level_statement,
2596: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2597: 'Getting from database for p_account_sourece_tax_rate_id ');
2598: END IF;
2599: open get_rec_nrec_ccid_cur(p_account_source_tax_rate_id, 'RATES',p_org_id);
2610: END IF;
2611: EXCEPTION
2612: WHEN TOO_MANY_ROWS THEN
2613: IF (g_level_exception >= g_current_runtime_level ) THEN
2614: FND_LOG.STRING(g_level_exception,
2615: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2616: 'There are more than one set of accounts defined for this tax rate id: '||p_account_source_tax_rate_id||
2617: ' Please specify ledger in the input structure while calling get_ccid API.');
2618: END IF;
2620: close get_rec_nrec_ccid_cur;
2621: END IF;
2622: WHEN OTHERS THEN
2623: IF (g_level_exception >= g_current_runtime_level ) THEN
2624: FND_LOG.STRING(g_level_exception,
2625: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2626: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2627: END IF;
2628: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2641: IF l_ccid is null THEN
2642:
2643: BEGIN
2644: IF (g_level_statement >= g_current_runtime_level ) THEN
2645: FND_LOG.STRING(g_level_statement,
2646: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2647: 'Getting account information using recovery rate id:'||p_rec_rate_id);
2648: END IF;
2649:
2651: ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.exists(to_char(p_rec_rate_id)||'RATES'||to_char(p_org_id)) THEN
2652:
2653: IF (g_level_statement >= g_current_runtime_level ) THEN
2654:
2655: FND_LOG.STRING(g_level_statement,
2656: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2657: 'Getting from cache for p_rec_rate_id ');
2658: END IF;
2659: 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;
2665: ELSE
2666:
2667: IF (g_level_statement >= g_current_runtime_level ) THEN
2668:
2669: FND_LOG.STRING(g_level_statement,
2670: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2671: 'Getting from database for p_rec_rate_id ');
2672: END IF;
2673: open get_rec_nrec_ccid_cur(p_rec_rate_id, 'RATES',p_org_id);
2684: END IF;
2685: EXCEPTION
2686: WHEN TOO_MANY_ROWS THEN
2687: IF (g_level_exception >= g_current_runtime_level ) THEN
2688: FND_LOG.STRING(g_level_exception,
2689: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2690: 'There are more than one set of accounts defined for this tax rate id: '||p_rec_rate_id||
2691: ' Please specify ledger in the input structure while calling get_ccid API.');
2692: END IF;
2694: close get_rec_nrec_ccid_cur;
2695: END IF;
2696: WHEN OTHERS THEN
2697: IF (g_level_exception >= g_current_runtime_level ) THEN
2698: FND_LOG.STRING(g_level_exception,
2699: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2700: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2701: END IF;
2702: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2714:
2715: BEGIN
2716:
2717: IF (g_level_statement >= g_current_runtime_level ) THEN
2718: FND_LOG.STRING(g_level_statement,
2719: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2720: 'Getting account information using tax rate id:'||p_tax_rate_id);
2721: END IF;
2722:
2724: ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.exists(to_char(p_tax_rate_id)||'RATES'||to_char(p_org_id)) THEN
2725:
2726: IF (g_level_statement >= g_current_runtime_level ) THEN
2727:
2728: FND_LOG.STRING(g_level_statement,
2729: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2730: 'Getting from cache for p_tax_rate_id ');
2731: END IF;
2732:
2738:
2739: ELSE
2740: IF (g_level_statement >= g_current_runtime_level ) THEN
2741:
2742: FND_LOG.STRING(g_level_statement,
2743: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2744: 'Getting from database for p_tax_rate_id ');
2745: END IF;
2746: open get_rec_nrec_ccid_cur(p_tax_rate_id, 'RATES',p_org_id);
2757:
2758: EXCEPTION
2759: WHEN TOO_MANY_ROWS THEN
2760: IF (g_level_exception >= g_current_runtime_level ) THEN
2761: FND_LOG.STRING(g_level_exception,
2762: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2763: 'There are more than one set of accounts defined for this tax rate id: '||p_tax_rate_id||
2764: ' Please specify ledger in the input structure while calling get_ccid API.');
2765: END IF;
2767: close get_rec_nrec_ccid_cur;
2768: END IF;
2769: WHEN OTHERS THEN
2770: IF (g_level_exception >= g_current_runtime_level ) THEN
2771: FND_LOG.STRING(g_level_exception,
2772: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2773: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2774: END IF;
2775: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2793:
2794: BEGIN
2795:
2796: IF (g_level_statement >= g_current_runtime_level ) THEN
2797: FND_LOG.STRING(g_level_statement,
2798: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2799: 'Getting account information using account source tax rate id:'||p_account_source_tax_rate_id);
2800: END IF;
2801:
2803: ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.exists(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)) THEN
2804:
2805: IF (g_level_statement >= g_current_runtime_level ) THEN
2806:
2807: FND_LOG.STRING(g_level_statement,
2808: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2809: 'Getting from cache for p_account_source_tax_rate_id ');
2810: END IF;
2811: 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;
2816:
2817: ELSE
2818: IF (g_level_statement >= g_current_runtime_level ) THEN
2819:
2820: FND_LOG.STRING(g_level_statement,
2821: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2822: 'Getting from database for p_account_source_tax_rate_id ');
2823: END IF;
2824:
2835: END IF;
2836: EXCEPTION
2837: WHEN TOO_MANY_ROWS THEN
2838: IF (g_level_exception >= g_current_runtime_level ) THEN
2839: FND_LOG.STRING(g_level_exception,
2840: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2841: 'There are more than one set of accounts defined for this tax rate id: '||p_account_source_tax_rate_id||
2842: ' Please specify ledger in the input structure while calling get_ccid API.');
2843: END IF;
2845: close get_rec_nrec_ccid_cur;
2846: END IF;
2847: WHEN OTHERS THEN
2848: IF (g_level_exception >= g_current_runtime_level ) THEN
2849: FND_LOG.STRING(g_level_exception,
2850: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2851: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2852: END IF;
2853: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2863:
2864: BEGIN
2865:
2866: IF (g_level_statement >= g_current_runtime_level ) THEN
2867: FND_LOG.STRING(g_level_statement,
2868: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2869: 'Getting account information using tax rate id:'||p_tax_rate_id);
2870: END IF;
2871:
2873: ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.exists(to_char(p_tax_rate_id)||'RATES'||to_char(p_org_id)) THEN
2874:
2875: IF (g_level_statement >= g_current_runtime_level ) THEN
2876:
2877: FND_LOG.STRING(g_level_statement,
2878: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2879: 'Getting from cache for p_tax_rate_id ');
2880: END IF;
2881:
2887:
2888: ELSE
2889: IF (g_level_statement >= g_current_runtime_level ) THEN
2890:
2891: FND_LOG.STRING(g_level_statement,
2892: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2893: 'Getting from database for p_tax_rate_id ');
2894: END IF;
2895:
2906: END IF;
2907: EXCEPTION
2908: WHEN TOO_MANY_ROWS THEN
2909: IF (g_level_exception >= g_current_runtime_level ) THEN
2910: FND_LOG.STRING(g_level_exception,
2911: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2912: 'There are more than one set of accounts defined for this tax rate id: '||p_tax_rate_id||
2913: ' Please specify ledger in the input structure while calling get_ccid API.');
2914: END IF;
2916: close get_rec_nrec_ccid_cur;
2917: END IF;
2918: WHEN OTHERS THEN
2919: IF (g_level_exception >= g_current_runtime_level ) THEN
2920: FND_LOG.STRING(g_level_exception,
2921: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2922: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2923: END IF;
2924: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2966: BEGIN
2967:
2968:
2969: IF (g_level_statement >= g_current_runtime_level ) THEN
2970: FND_LOG.STRING(g_level_statement,
2971: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2972: 'Getting Liability account information using tax rate id:'||p_tax_rate_id);
2973: END IF;
2974:
2977: ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.exists(to_char(p_tax_rate_id)||'RATES'||to_char(p_org_id)) THEN
2978:
2979: IF (g_level_statement >= g_current_runtime_level ) THEN
2980:
2981: FND_LOG.STRING(g_level_statement,
2982: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2983: 'Getting from cache for p_tax_rate_id ');
2984: END IF;
2985: 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;
2992: else
2993:
2994: IF (g_level_statement >= g_current_runtime_level ) THEN
2995:
2996: FND_LOG.STRING(g_level_statement,
2997: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2998: 'Getting from database for p_tax_rate_id ');
2999: END IF;
3000: open get_rec_nrec_ccid_cur(p_tax_rate_id, 'RATES',p_org_id);
3011:
3012: END IF;
3013: IF l_tax_liab_ccid IS NULL AND p_Recoverable_Flag <> 'Y' THEN
3014: IF (g_level_statement >= g_current_runtime_level ) THEN
3015: FND_LOG.STRING(g_level_statement,
3016: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3017: 'Getting Liability account information using Account source tax rate id:'||p_account_source_tax_rate_id);
3018: END IF;
3019: IF
3020: ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.exists(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)) THEN
3021:
3022: IF (g_level_statement >= g_current_runtime_level ) THEN
3023:
3024: FND_LOG.STRING(g_level_statement,
3025: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
3026: 'Getting from cache for p_account_source_tax_rate_id ');
3027: END IF;
3028:
3036:
3037: else
3038: IF (g_level_statement >= g_current_runtime_level ) THEN
3039:
3040: FND_LOG.STRING(g_level_statement,
3041: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
3042: 'Getting from database for p_account_source_tax_rate_id ');
3043: END IF;
3044: open get_rec_nrec_ccid_cur(p_account_source_tax_rate_id, 'RATES',p_org_id);
3058: END IF;
3059: EXCEPTION
3060: WHEN TOO_MANY_ROWS THEN
3061: IF (g_level_exception >= g_current_runtime_level ) THEN
3062: FND_LOG.STRING(g_level_exception,
3063: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3064: 'There are more than one set of accounts defined for this tax rate id: '||p_tax_rate_id||
3065: ' Please specify ledger in the input structure while calling get_ccid API.');
3066: END IF;
3068: close get_rec_nrec_ccid_cur;
3069: END IF;
3070: WHEN OTHERS THEN
3071: IF (g_level_exception >= g_current_runtime_level ) THEN
3072: FND_LOG.STRING(g_level_exception,
3073: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3074: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
3075: END IF;
3076: IF get_rec_nrec_ccid_cur%ISOPEN THEN
3107: FND_MESSAGE.SET_NAME('ZX', 'ZX_INVALID_REC_CCID');
3108: FND_MSG_PUB.Add;
3109: IF (g_level_statement >= g_current_runtime_level ) THEN
3110:
3111: FND_LOG.STRING(g_level_statement,
3112: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3113: 'error: p_Recoverable_Flag is Y, but p_rec_nrec_ccid is null');
3114:
3115: END IF;
3118: FND_MESSAGE.SET_NAME('ZX', 'ZX_INVALID_NREC_CCID');
3119: FND_MSG_PUB.Add;
3120: IF (g_level_statement >= g_current_runtime_level ) THEN
3121:
3122: FND_LOG.STRING(g_level_statement,
3123: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3124: 'error: p_Recoverable_Flag is N, but p_rec_nrec_ccid is null');
3125:
3126: END IF;
3136: FND_MESSAGE.SET_NAME('ZX', 'ZX_INVALID_LIAB_CCID');
3137: FND_MSG_PUB.Add;
3138: IF (g_level_statement >= g_current_runtime_level ) THEN
3139:
3140: FND_LOG.STRING(g_level_statement,
3141: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3142: 'error: p_Self_Assessed_Flag is Y, but p_tax_liab_ccid
3143: is null');
3144:
3146: END IF;
3147:
3148: IF (g_level_procedure >= g_current_runtime_level ) THEN
3149:
3150: FND_LOG.STRING(g_level_procedure,
3151: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.END',
3152: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(-)'||
3153: ' p_rec_nrec_ccid = '||p_rec_nrec_ccid||
3154: ' p_tax_liab_ccid = '||p_tax_liab_ccid||
3160: WHEN OTHERS THEN
3161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3162:
3163: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3164: FND_LOG.STRING(g_level_unexpected,
3165: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3166: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3167: END IF;
3168:
3166: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3167: END IF;
3168:
3169: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3170: FND_LOG.STRING(g_level_unexpected,
3171: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.END',
3172: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(-)');
3173: END IF;
3174:
3262: l_location_segment_id NUMBER;
3263:
3264: BEGIN
3265:
3266: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3267:
3268: IF (g_level_procedure >= g_current_runtime_level ) THEN
3269:
3270: FND_LOG.STRING(g_level_procedure,
3266: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3267:
3268: IF (g_level_procedure >= g_current_runtime_level ) THEN
3269:
3270: FND_LOG.STRING(g_level_procedure,
3271: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3272: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(+)');
3273:
3274: END IF;
3274: END IF;
3275:
3276: IF (g_level_statement >= g_current_runtime_level ) THEN
3277:
3278: FND_LOG.STRING(g_level_statement,
3279: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3280: 'Input Parameters:');
3281: FND_LOG.STRING(g_level_statement,
3282: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3277:
3278: FND_LOG.STRING(g_level_statement,
3279: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3280: 'Input Parameters:');
3281: FND_LOG.STRING(g_level_statement,
3282: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3283: 'GL Date:'||p_gl_date );
3284: FND_LOG.STRING(g_level_statement,
3285: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3280: 'Input Parameters:');
3281: FND_LOG.STRING(g_level_statement,
3282: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3283: 'GL Date:'||p_gl_date );
3284: FND_LOG.STRING(g_level_statement,
3285: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3286: 'Tax Rate Id:'||p_tax_rate_id);
3287: FND_LOG.STRING(g_level_statement,
3288: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3283: 'GL Date:'||p_gl_date );
3284: FND_LOG.STRING(g_level_statement,
3285: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3286: 'Tax Rate Id:'||p_tax_rate_id);
3287: FND_LOG.STRING(g_level_statement,
3288: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3289: 'Location Segment Id:'||p_location_segment_id);
3290: FND_LOG.STRING(g_level_statement,
3291: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3286: 'Tax Rate Id:'||p_tax_rate_id);
3287: FND_LOG.STRING(g_level_statement,
3288: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3289: 'Location Segment Id:'||p_location_segment_id);
3290: FND_LOG.STRING(g_level_statement,
3291: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3292: 'Tax Line Id:'|| p_tax_line_id);
3293: FND_LOG.STRING(g_level_statement,
3294: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3289: 'Location Segment Id:'||p_location_segment_id);
3290: FND_LOG.STRING(g_level_statement,
3291: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3292: 'Tax Line Id:'|| p_tax_line_id);
3293: FND_LOG.STRING(g_level_statement,
3294: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3295: 'Org Id:'|| p_org_id);
3296: FND_LOG.STRING(g_level_statement,
3297: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3292: 'Tax Line Id:'|| p_tax_line_id);
3293: FND_LOG.STRING(g_level_statement,
3294: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3295: 'Org Id:'|| p_org_id);
3296: FND_LOG.STRING(g_level_statement,
3297: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3298: 'Ledger Id:'|| p_ledger_id);
3299: END IF;
3300:
3314: IF l_location_segment_id IS NOT NULL THEN
3315:
3316: IF (g_level_statement >= g_current_runtime_level ) THEN
3317:
3318: FND_LOG.STRING(g_level_statement,
3319: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3320: 'Getting accounts using Location Segment.. '||to_char(l_location_segment_id));
3321:
3322: END IF;
3354: x_return_status);
3355:
3356: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3357: IF (g_level_statement >= g_current_runtime_level ) THEN
3358: FND_LOG.STRING(g_level_statement,
3359: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3360: 'After calling get_tax_jurisdiction_id, x_return_status = '|| x_return_status);
3361: FND_LOG.STRING(g_level_statement,
3362: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3357: IF (g_level_statement >= g_current_runtime_level ) THEN
3358: FND_LOG.STRING(g_level_statement,
3359: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3360: 'After calling get_tax_jurisdiction_id, x_return_status = '|| x_return_status);
3361: FND_LOG.STRING(g_level_statement,
3362: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3363: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)');
3364: END IF;
3365: RETURN;
3367:
3368: IF p_tax_account_ccid IS NULL THEN
3369: IF p_tax_line_id IS NOT NULL THEN
3370: IF (g_level_statement >= g_current_runtime_level ) THEN
3371: FND_LOG.STRING(g_level_statement,
3372: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3373: 'Getting account information for the jurisdiction id '||to_char(l_tax_jurisdiction_id));
3374: END IF;
3375: IF l_tax_jurisdiction_id IS NOT NULL THEN
3383: close get_zx_account_ccid;
3384:
3385:
3386: IF (g_level_statement >= g_current_runtime_level ) THEN
3387: FND_LOG.STRING(g_level_statement,
3388: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3389: 'Tax account for jurisdiction_id '||to_char(l_tax_jurisdiction_id)||
3390: ' is: '||to_char(p_tax_account_ccid));
3391: END IF;
3411:
3412: IF p_tax_line_id IS NOT NULL THEN
3413:
3414: IF (g_level_statement >= g_current_runtime_level ) THEN
3415: FND_LOG.STRING(g_level_statement,
3416: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3417: 'Getting account source tax rate id for tax line id '||to_char(p_tax_line_id));
3418: END IF;
3419:
3430: close get_zx_account_ccid;
3431:
3432:
3433: IF (g_level_statement >= g_current_runtime_level ) THEN
3434: FND_LOG.STRING(g_level_statement,
3435: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3436: 'Tax account for acct_source_tax_rate_id '||to_char(l_acc_src_tax_rate_id)||
3437: ' is: '||to_char(p_tax_account_ccid));
3438: END IF;
3457: IF p_tax_account_ccid is null THEN
3458: IF l_tax_rate_id is not null THEN
3459:
3460: IF (g_level_statement >= g_current_runtime_level ) THEN
3461: FND_LOG.STRING(g_level_statement,
3462: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3463: 'Getting account information using tax rate id: '||to_char(l_tax_rate_id));
3464: END IF;
3465:
3503: END IF; -- p_interim_tax_ccid is not null
3504:
3505: IF (g_level_procedure >= g_current_runtime_level ) THEN
3506:
3507: FND_LOG.STRING(g_level_procedure,
3508: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3509: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)'||
3510: ' tax_account_ccid = ' || p_tax_account_ccid ||
3511: ' interim_tax_ccid = ' || p_interim_tax_ccid ||
3527: WHEN OTHERS THEN
3528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3529:
3530: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3531: FND_LOG.STRING(g_level_unexpected,
3532: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3533: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3534: END IF;
3535:
3533: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3534: END IF;
3535:
3536: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3537: FND_LOG.STRING(g_level_unexpected,
3538: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3539: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)');
3540: END IF;
3541:
3556:
3557: BEGIN
3558:
3559: IF (g_level_procedure >= g_current_runtime_level ) THEN
3560: FND_LOG.STRING(g_level_procedure,
3561: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST.BEGIN',
3562: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(+)');
3563: END IF;
3564:
3670: AND trx_line_id = p_tax_line_rec.trx_line_id
3671: AND trx_level_type = p_tax_line_rec.trx_level_type;
3672:
3673: IF (g_level_procedure >= g_current_runtime_level ) THEN
3674: FND_LOG.STRING(g_level_procedure,
3675: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST.END',
3676: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(-)');
3677: END IF;
3678:
3680: WHEN DUP_VAL_ON_INDEX THEN
3681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3682:
3683: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3684: FND_LOG.STRING(g_level_unexpected,
3685: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3686: 'TRL Record Already Exists');
3687: FND_LOG.STRING(g_level_unexpected,
3688: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3683: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3684: FND_LOG.STRING(g_level_unexpected,
3685: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3686: 'TRL Record Already Exists');
3687: FND_LOG.STRING(g_level_unexpected,
3688: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3689: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3690: END IF;
3691:
3692: WHEN OTHERS THEN
3693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3694:
3695: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3696: FND_LOG.STRING(g_level_unexpected,
3697: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3698: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3699: END IF;
3700:
3698: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3699: END IF;
3700:
3701: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3702: FND_LOG.STRING(g_level_unexpected,
3703: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist.END',
3704: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(-)');
3705: END IF;
3706: END insert_item_dist;
3749:
3750: BEGIN
3751:
3752: IF (g_level_procedure >= g_current_runtime_level ) THEN
3753: FND_LOG.STRING(g_level_procedure,
3754: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.BEGIN',
3755: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(+)');
3756: END IF;
3757:
3792: END IF;
3793:
3794: IF (g_level_procedure >= g_current_runtime_level ) THEN
3795:
3796: FND_LOG.STRING(g_level_procedure,
3797: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
3798: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(-)'||x_return_status);
3799: END IF;
3800:
3802: WHEN OTHERS THEN
3803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3804:
3805: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3806: FND_LOG.STRING(g_level_unexpected,
3807: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines',
3808: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3809: FND_LOG.STRING(g_level_unexpected,
3810: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
3805: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3806: FND_LOG.STRING(g_level_unexpected,
3807: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines',
3808: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3809: FND_LOG.STRING(g_level_unexpected,
3810: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
3811: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(-)');
3812: END IF;
3813:
3849:
3850: BEGIN
3851:
3852: IF (g_level_procedure>= g_current_runtime_level ) THEN
3853: FND_LOG.STRING(g_level_procedure,
3854: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.BEGIN',
3855: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(+)'||
3856: ' tax_line_id = ' || p_tax_line_id||
3857: ' trx_line_dist_id = ' || p_trx_line_dist_id);
3875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3876: CLOSE fetch_tax_distributions_csr;
3877: IF (g_level_statement >= g_current_runtime_level ) THEN
3878:
3879: FND_LOG.STRING(g_level_statement,
3880: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
3881: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)'||' unexpected: No tax dist');
3882: END IF;
3883: RETURN;
3896: CLOSE fetch_tax_distributions_csr;
3897:
3898: IF (g_level_procedure >= g_current_runtime_level ) THEN
3899:
3900: FND_LOG.STRING(g_level_procedure,
3901: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
3902: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)'||x_return_status);
3903: END IF;
3904:
3906: WHEN OTHERS THEN
3907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3908:
3909: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3910: FND_LOG.STRING(g_level_unexpected,
3911: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions',
3912: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3913: FND_LOG.STRING(g_level_unexpected,
3914: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
3909: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3910: FND_LOG.STRING(g_level_unexpected,
3911: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions',
3912: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3913: FND_LOG.STRING(g_level_unexpected,
3914: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
3915: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)');
3916: END IF;
3917:
4014:
4015: BEGIN
4016:
4017: IF (g_level_procedure >= g_current_runtime_level ) THEN
4018: FND_LOG.STRING(g_level_procedure,
4019: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.BEGIN',
4020: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(+)');
4021: END IF;
4022:
4096: -- End : Added code for Bug#7008557
4097: ZX_GLOBAL_STRUCTURES_PKG.TRX_LINE_DIST_TBL.tax_reporting_flag(l_index);
4098: IF get_trx_info_csr%NOTFOUND THEN
4099: IF (g_level_statement >= g_current_runtime_level ) THEN
4100: FND_LOG.STRING(g_level_statement,
4101: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info',
4102: 'NO DATA found in zx_lines_det_factors for trx line'||
4103: p_tax_line_tbl(p_index).trx_line_id);
4104: END IF;
4106: CLOSE get_trx_info_csr;
4107:
4108: IF (g_level_procedure >= g_current_runtime_level ) THEN
4109:
4110: FND_LOG.STRING(g_level_procedure,
4111: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4112: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(-)'||x_return_status);
4113: END IF;
4114:
4116: WHEN OTHERS THEN
4117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4118:
4119: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4120: FND_LOG.STRING(g_level_unexpected,
4121: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info',
4122: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4123: FND_LOG.STRING(g_level_unexpected,
4124: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4119: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4120: FND_LOG.STRING(g_level_unexpected,
4121: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info',
4122: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4123: FND_LOG.STRING(g_level_unexpected,
4124: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4125: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(-)');
4126: END IF;
4127:
4145:
4146: BEGIN
4147:
4148: IF (g_level_procedure >= g_current_runtime_level ) THEN
4149: FND_LOG.STRING(g_level_procedure,
4150: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.BEGIN',
4151: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(+)');
4152: END IF;
4153:
4163:
4164: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4165:
4166: IF (g_level_statement >= g_current_runtime_level ) THEN
4167: FND_LOG.STRING(g_level_statement,
4168: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4169: 'After calling populate_mandatory_columns x_return_status = '
4170: || x_return_status);
4171: FND_LOG.STRING(g_level_statement,
4167: FND_LOG.STRING(g_level_statement,
4168: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4169: 'After calling populate_mandatory_columns x_return_status = '
4170: || x_return_status);
4171: FND_LOG.STRING(g_level_statement,
4172: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4173: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)');
4174: END IF;
4175: RETURN;
4188: END IF;
4189:
4190: IF (g_level_procedure >= g_current_runtime_level ) THEN
4191:
4192: FND_LOG.STRING(g_level_procedure,
4193: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4194: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)'||x_return_status);
4195: END IF;
4196:
4198: WHEN OTHERS THEN
4199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4200:
4201: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4202: FND_LOG.STRING(g_level_unexpected,
4203: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4204: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4205: FND_LOG.STRING(g_level_unexpected,
4206: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4201: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4202: FND_LOG.STRING(g_level_unexpected,
4203: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4204: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4205: FND_LOG.STRING(g_level_unexpected,
4206: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4207: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)');
4208: END IF;
4209:
4228:
4229: BEGIN
4230:
4231: IF (g_level_procedure >= g_current_runtime_level ) THEN
4232: FND_LOG.STRING(g_level_procedure,
4233: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.BEGIN',
4234: 'populate_mandatory_columns(+)');
4235: END IF;
4236:
4286:
4287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
4288:
4289: IF (g_level_procedure >= g_current_runtime_level ) THEN
4290: FND_LOG.STRING(g_level_procedure,
4291: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4292: 'error: tax dist number is null ');
4293:
4294: FND_LOG.STRING(g_level_procedure,
4290: FND_LOG.STRING(g_level_procedure,
4291: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4292: 'error: tax dist number is null ');
4293:
4294: FND_LOG.STRING(g_level_procedure,
4295: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4296: 'populate_mandatory_columns(-)');
4297: END IF;
4298: RETURN;
4302: IF p_rec_nrec_dist_tbl(i).REC_NREC_RATE IS NULL THEN
4303: x_return_status := FND_API.G_RET_STS_ERROR;
4304:
4305: IF (g_level_procedure >= g_current_runtime_level ) THEN
4306: FND_LOG.STRING(g_level_procedure,
4307: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4308: 'error: rec nrec rate is null ');
4309:
4310: FND_LOG.STRING(g_level_procedure,
4306: FND_LOG.STRING(g_level_procedure,
4307: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4308: 'error: rec nrec rate is null ');
4309:
4310: FND_LOG.STRING(g_level_procedure,
4311: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4312: 'populate_mandatory_columns(-)');
4313: END IF;
4314: RETURN;
4319:
4320: x_return_status := FND_API.G_RET_STS_ERROR;
4321: IF (g_level_procedure >= g_current_runtime_level ) THEN
4322:
4323: FND_LOG.STRING(g_level_procedure,
4324: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4325: 'error: RECOVERABLE FLG is null ');
4326: FND_LOG.STRING(g_level_procedure,
4327: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4322:
4323: FND_LOG.STRING(g_level_procedure,
4324: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4325: 'error: RECOVERABLE FLG is null ');
4326: FND_LOG.STRING(g_level_procedure,
4327: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4328: 'populate_mandatory_columns(-)');
4329: END IF;
4330: RETURN;
4335:
4336: x_return_status := FND_API.G_RET_STS_ERROR;
4337:
4338: IF (g_level_procedure >= g_current_runtime_level ) THEN
4339: FND_LOG.STRING(g_level_procedure,
4340: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4341: 'error: tax dist amount is null ');
4342: FND_LOG.STRING(g_level_procedure,
4343: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4338: IF (g_level_procedure >= g_current_runtime_level ) THEN
4339: FND_LOG.STRING(g_level_procedure,
4340: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4341: 'error: tax dist amount is null ');
4342: FND_LOG.STRING(g_level_procedure,
4343: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4344: 'populate_mandatory_columns(-)');
4345: END IF;
4346: RETURN;
4352:
4353: else
4354:
4355: IF (g_level_statement >= g_current_runtime_level ) THEN
4356: FND_LOG.STRING(g_level_statement,
4357: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4358: 'No record in p_rec_nrec_dist_tbl ... ');
4359: END IF;
4360:
4361: end if;
4362:
4363: IF (g_level_procedure >= g_current_runtime_level ) THEN
4364:
4365: FND_LOG.STRING(g_level_procedure,
4366: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4367: 'ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns(-)'||x_return_status);
4368: END IF;
4369:
4371: WHEN OTHERS THEN
4372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4373:
4374: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4375: FND_LOG.STRING(g_level_unexpected,
4376: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4377: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4378: FND_LOG.STRING(g_level_unexpected,
4379: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4374: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4375: FND_LOG.STRING(g_level_unexpected,
4376: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4377: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4378: FND_LOG.STRING(g_level_unexpected,
4379: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4380: 'ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns(-)');
4381: END IF;
4382:
4515: l_funcl_currency_code fnd_currencies.currency_code%TYPE;
4516:
4517: BEGIN
4518:
4519: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4520:
4521: IF (g_level_procedure >= g_current_runtime_level ) THEN
4522: FND_LOG.STRING(g_level_procedure,
4523: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.BEGIN',
4518:
4519: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4520:
4521: IF (g_level_procedure >= g_current_runtime_level ) THEN
4522: FND_LOG.STRING(g_level_procedure,
4523: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.BEGIN',
4524: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(+)');
4525: END IF;
4526:
4547:
4548: IF l_rec_nrec_tax_dist_id_tbl.FIRST IS NULL THEN
4549:
4550: IF (g_level_statement >= g_current_runtime_level ) THEN
4551: FND_LOG.STRING(g_level_statement,
4552: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
4553: 'No tax distributions are fetched from ZX_REC_NREC_DIST.');
4554: END IF;
4555: RETURN;
4586: l_minimum_accountable_unit, l_funcl_currency_code;
4587: CLOSE get_mau_info_csr;
4588:
4589: IF (g_level_statement >= g_current_runtime_level ) THEN
4590: FND_LOG.STRING(g_level_statement,
4591: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
4592: 'l_minimum_accountable_unit = ' || l_minimum_accountable_unit);
4593: END IF;
4594:
5255: AND event_class_code = p_event_class_rec.event_class_code
5256: AND trx_id = p_event_class_rec.trx_id;
5257:
5258: IF (g_level_procedure >= g_current_runtime_level ) THEN
5259: FND_LOG.STRING(g_level_procedure,
5260: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5261: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(-)');
5262: END IF;
5263:
5268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5269: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5270:
5271: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5272: FND_LOG.STRING(g_level_unexpected,
5273: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
5274: l_error_buffer);
5275: FND_LOG.STRING(g_level_unexpected,
5276: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5271: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5272: FND_LOG.STRING(g_level_unexpected,
5273: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
5274: l_error_buffer);
5275: FND_LOG.STRING(g_level_unexpected,
5276: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5277: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(-)');
5278: END IF;
5279:
5302: l_error_buffer VARCHAR2(200);
5303:
5304: BEGIN
5305:
5306: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5307:
5308: IF (g_level_statement >= g_current_runtime_level ) THEN
5309: FND_LOG.STRING(g_level_statement,
5310: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.BEGIN',
5305:
5306: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5307:
5308: IF (g_level_statement >= g_current_runtime_level ) THEN
5309: FND_LOG.STRING(g_level_statement,
5310: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.BEGIN',
5311: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(+)');
5312: END IF;
5313:
5322: l_rounded_amt_to_mau := round(p_unrounded_amt/l_mau ) * l_mau;
5323:
5324: IF (g_level_statement >= g_current_runtime_level ) THEN
5325:
5326: FND_LOG.STRING(g_level_statement,
5327: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5328: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(-)'||
5329: ' rounded amt to mau '||l_rounded_amt_to_mau);
5330: END IF;
5335: WHEN OTHERS THEN
5336: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5337:
5338: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5339: FND_LOG.STRING(g_level_unexpected,
5340: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau',
5341: l_error_buffer);
5342: FND_LOG.STRING(g_level_unexpected,
5343: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5338: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5339: FND_LOG.STRING(g_level_unexpected,
5340: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau',
5341: l_error_buffer);
5342: FND_LOG.STRING(g_level_unexpected,
5343: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5344: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(-)');
5345: END IF;
5346: RAISE;
5361: p_tax_hold_released_code IN VARCHAR2
5362: ) RETURN NUMBER IS
5363: l_tax_hold_release_value NUMBER;
5364: BEGIN
5365: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5366:
5367: IF (g_level_statement >= g_current_runtime_level ) THEN
5368: FND_LOG.STRING(g_level_statement,
5369: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code.BEGIN',
5364: BEGIN
5365: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5366:
5367: IF (g_level_statement >= g_current_runtime_level ) THEN
5368: FND_LOG.STRING(g_level_statement,
5369: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code.BEGIN',
5370: 'ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code(+)');
5371: END IF;
5372:
5378: l_tax_hold_release_value := 0;
5379: END IF;
5380:
5381: IF (g_level_statement >= g_current_runtime_level ) THEN
5382: FND_LOG.STRING(g_level_statement,
5383: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code.END',
5384: 'ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code(-)');
5385: END IF;
5386: RETURN l_tax_hold_release_value;
5407: l_prd_total_tax_amt NUMBER;
5408:
5409: BEGIN
5410:
5411: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5412:
5413: IF (g_level_procedure >= g_current_runtime_level ) THEN
5414: FND_LOG.STRING(g_level_procedure,
5415: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt.BEGIN',
5410:
5411: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5412:
5413: IF (g_level_procedure >= g_current_runtime_level ) THEN
5414: FND_LOG.STRING(g_level_procedure,
5415: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt.BEGIN',
5416: 'ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt(+)');
5417: END IF;
5418:
5420: l_prd_total_tax_amt := p_prepay_tax_amt * p_line_amt / p_prepay_line_amt;
5421:
5422: ELSE
5423: IF (g_level_statement >= g_current_runtime_level ) THEN
5424: FND_LOG.STRING(g_level_statement,
5425: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt',
5426: 'p_prepay_line_amt is '||NVL(TO_CHAR(p_prepay_line_amt), 'NULL'));
5427: END IF;
5428:
5428:
5429: END IF;
5430:
5431: IF (g_level_procedure >= g_current_runtime_level ) THEN
5432: FND_LOG.STRING(g_level_procedure,
5433: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt.END',
5434: 'ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt(-)');
5435: END IF;
5436:
5538: l_error_buffer VARCHAR2(200);
5539:
5540: BEGIN
5541:
5542: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
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.is_recoverability_affected.BEGIN',
5541:
5542: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
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.is_recoverability_affected.BEGIN',
5547: 'ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected(+)');
5548: END IF;
5549:
5647: END LOOP; -- tax_dist_rec IN get_tax_dists_csr
5648: END LOOP; -- i IN p_pa_item_info_tbl.FIRST .. p_pa_item_info_tbl.LAST
5649:
5650: IF (g_level_procedure >= g_current_runtime_level ) THEN
5651: FND_LOG.STRING(g_level_procedure,
5652: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5653: 'ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected(-)');
5654: END IF;
5655:
5658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5659: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5660:
5661: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5662: FND_LOG.STRING(g_level_unexpected,
5663: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected',
5664: l_error_buffer);
5665: FND_LOG.STRING(g_level_unexpected,
5666: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5661: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5662: FND_LOG.STRING(g_level_unexpected,
5663: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected',
5664: l_error_buffer);
5665: FND_LOG.STRING(g_level_unexpected,
5666: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5667: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
5668: END IF;
5669:
5707: l_error_buffer VARCHAR2(200);
5708:
5709: BEGIN
5710:
5711: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5712:
5713: IF (g_level_procedure >= g_current_runtime_level ) THEN
5714: FND_LOG.STRING(g_level_procedure,
5715: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID.BEGIN',
5710:
5711: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5712:
5713: IF (g_level_procedure >= g_current_runtime_level ) THEN
5714: FND_LOG.STRING(g_level_procedure,
5715: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID.BEGIN',
5716: 'ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID(+)');
5717: END IF;
5718:
5727: WHEN OTHERS THEN
5728:
5729: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5730: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5731: FND_LOG.STRING(g_level_unexpected,
5732: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID',
5733: 'Exception in ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID: '||l_error_buffer);
5734: END IF;
5735:
5780:
5781: END IF; -- l_ccid is null
5782:
5783: IF (g_level_procedure >= g_current_runtime_level ) THEN
5784: FND_LOG.STRING(g_level_procedure,
5785: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID.BEGIN',
5786: 'ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID(-)'||
5787: ' ccid = '||l_ccid);
5788: END IF;
5793: WHEN OTHERS THEN
5794:
5795: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5796: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5797: FND_LOG.STRING(g_level_unexpected,
5798: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID',
5799: 'Exception in ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID: '||l_error_buffer);
5800: END IF;
5801: return(null);
5885: l_rec_nrec_tax_Dist_id_tbl2 NUMERIC_TBL_TYPE;
5886:
5887: BEGIN
5888:
5889: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5890:
5891: IF (g_level_procedure >= g_current_runtime_level ) THEN
5892: FND_LOG.STRING(g_level_procedure,
5893: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.BEGIN',
5888:
5889: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5890:
5891: IF (g_level_procedure >= g_current_runtime_level ) THEN
5892: FND_LOG.STRING(g_level_procedure,
5893: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.BEGIN',
5894: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(+)');
5895: END IF;
5896:
6041: END IF;
6042:
6043:
6044: IF (g_level_procedure >= g_current_runtime_level ) THEN
6045: FND_LOG.STRING(g_level_procedure,
6046: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6047: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(-)');
6048: END IF;
6049:
6051: WHEN OTHERS THEN
6052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6053:
6054: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6055: FND_LOG.STRING(g_level_unexpected,
6056: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists',
6057: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
6058: FND_LOG.STRING(g_level_unexpected,
6059: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6054: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6055: FND_LOG.STRING(g_level_unexpected,
6056: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists',
6057: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
6058: FND_LOG.STRING(g_level_unexpected,
6059: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6060: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(-)');
6061: END IF;
6062:
6069: l_error_buffer VARCHAR2(200);
6070:
6071: BEGIN
6072:
6073: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6074:
6075: IF (g_level_procedure >= g_current_runtime_level ) THEN
6076: FND_LOG.STRING(g_level_procedure,
6077: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.BEGIN',
6072:
6073: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6074:
6075: IF (g_level_procedure >= g_current_runtime_level ) THEN
6076: FND_LOG.STRING(g_level_procedure,
6077: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.BEGIN',
6078: 'ZX_TRD_SERVICES_PUB_PKG.update_posting_flag(+)');
6079: END IF;
6080:
6085: SET posting_flag = 'A'
6086: WHERE rec_nrec_tax_dist_id = p_tax_dist_id_tbl(i);
6087:
6088: IF (g_level_procedure >= g_current_runtime_level ) THEN
6089: FND_LOG.STRING(g_level_procedure,
6090: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6091: 'ZX_TRD_SERVICES_PUB_PKG.update_posting_flag(-)');
6092: END IF;
6093:
6096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6097: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6098:
6099: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6100: FND_LOG.STRING(g_level_unexpected,
6101: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag',
6102: l_error_buffer);
6103: FND_LOG.STRING(g_level_unexpected,
6104: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6099: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6100: FND_LOG.STRING(g_level_unexpected,
6101: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag',
6102: l_error_buffer);
6103: FND_LOG.STRING(g_level_unexpected,
6104: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6105: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
6106: END IF;
6107:
6172: l_jursidiction_id_indx BINARY_INTEGER;
6173:
6174: BEGIN
6175:
6176: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6177:
6178: IF (g_level_procedure >= g_current_runtime_level ) THEN
6179:
6180: FND_LOG.STRING(g_level_procedure,
6176: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6177:
6178: IF (g_level_procedure >= g_current_runtime_level ) THEN
6179:
6180: FND_LOG.STRING(g_level_procedure,
6181: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6182: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(+)');
6183:
6184: END IF;
6191: close is_jurisdiction_acc_appl;
6192:
6193: IF l_lines_count = 0 THEN
6194: IF (g_level_procedure >= g_current_runtime_level ) THEN
6195: FND_LOG.STRING(g_level_procedure,
6196: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6197: 'This processing is done only for partner tax calculation, this is not partner processing');
6198: FND_LOG.STRING(g_level_procedure,
6199: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6194: IF (g_level_procedure >= g_current_runtime_level ) THEN
6195: FND_LOG.STRING(g_level_procedure,
6196: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6197: 'This processing is done only for partner tax calculation, this is not partner processing');
6198: FND_LOG.STRING(g_level_procedure,
6199: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6200: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6201: END IF;
6202: RETURN;
6271: x_geography_name,
6272: x_return_status);
6273: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6274: IF (g_level_statement >= g_current_runtime_level ) THEN
6275: FND_LOG.STRING(g_level_statement,
6276: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6277: 'Incorrect return_status after calling ' ||
6278: 'ZX_TCM_GEO_JUR_PKG.get_master_geography');
6279: FND_LOG.STRING(g_level_statement,
6275: FND_LOG.STRING(g_level_statement,
6276: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6277: 'Incorrect return_status after calling ' ||
6278: 'ZX_TCM_GEO_JUR_PKG.get_master_geography');
6279: FND_LOG.STRING(g_level_statement,
6280: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6281: 'RETURN_STATUS = ' || x_return_status);
6282: FND_LOG.STRING(g_level_statement,
6283: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6278: 'ZX_TCM_GEO_JUR_PKG.get_master_geography');
6279: FND_LOG.STRING(g_level_statement,
6280: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6281: 'RETURN_STATUS = ' || x_return_status);
6282: FND_LOG.STRING(g_level_statement,
6283: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6284: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6285: END IF;
6286: RETURN;
6296: -----l_geography_id(i),
6297: x_return_status);
6298: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6299: IF (g_level_statement >= g_current_runtime_level ) THEN
6300: FND_LOG.STRING(g_level_statement,
6301: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6302: 'Incorrect return_status after calling ' ||
6303: 'ZX_TCM_GEO_JUR_PKG.get_zone');
6304: FND_LOG.STRING(g_level_statement,
6300: FND_LOG.STRING(g_level_statement,
6301: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6302: 'Incorrect return_status after calling ' ||
6303: 'ZX_TCM_GEO_JUR_PKG.get_zone');
6304: FND_LOG.STRING(g_level_statement,
6305: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6306: 'RETURN_STATUS = ' || x_return_status);
6307: FND_LOG.STRING(g_level_statement,
6308: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6303: 'ZX_TCM_GEO_JUR_PKG.get_zone');
6304: FND_LOG.STRING(g_level_statement,
6305: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6306: 'RETURN_STATUS = ' || x_return_status);
6307: FND_LOG.STRING(g_level_statement,
6308: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6309: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6310: END IF;
6311: RETURN;
6362:
6363: END IF; -- caching end
6364:
6365: IF (g_level_procedure >= g_current_runtime_level ) THEN
6366: FND_LOG.STRING(g_level_procedure,
6367: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6368: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6369: END IF;
6370:
6373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6374: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6375:
6376: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6377: FND_LOG.STRING(g_level_unexpected,
6378: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6379: l_error_buffer);
6380: FND_LOG.STRING(g_level_unexpected,
6381: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6376: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6377: FND_LOG.STRING(g_level_unexpected,
6378: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6379: l_error_buffer);
6380: FND_LOG.STRING(g_level_unexpected,
6381: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6382: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6383: END IF;
6384: