[Home] [Help]
1: PACKAGE BODY ZX_TRD_INTERNAL_SERVICES_PVT AS
2: /* $Header: zxmirecdmsrvpvtb.pls 120.132.12020000.8 2013/04/24 11:05:27 ssohal ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
133: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
134:
135: IF (g_level_procedure >= g_current_runtime_level ) THEN
136: FND_LOG.STRING(g_level_procedure,
137: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.BEGIN',
138: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist(+)');
139: END IF;
140:
141: p_return_status:= FND_API.G_RET_STS_SUCCESS;
134:
135: IF (g_level_procedure >= g_current_runtime_level ) THEN
136: FND_LOG.STRING(g_level_procedure,
137: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.BEGIN',
138: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist(+)');
139: END IF;
140:
141: p_return_status:= FND_API.G_RET_STS_SUCCESS;
142:
145: l_total_count := 0;
146:
147: IF (g_level_statement >= g_current_runtime_level ) THEN
148: FND_LOG.STRING(g_level_statement,
149: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST',
150: 'p_rnd_begin_index = ' || p_rnd_begin_index||
151: 'p_rnd_end_index = ' || p_rnd_end_index);
152: END IF;
153:
163: l_total_count:= get_tax_distribution_cur%ROWCOUNT;
164:
165: IF (g_level_statement >= g_current_runtime_level ) THEN
166: FND_LOG.STRING(g_level_statement,
167: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST',
168: 'l_total_count = ' || l_total_count);
169: END IF;
170:
171: CLOSE get_tax_distribution_cur;
181: */
182:
183: IF (g_level_statement >= g_current_runtime_level ) THEN
184: FND_LOG.STRING(g_level_statement,
185: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST',
186: 'first time calculation for this tax line and item dist');
187: END IF;
188:
189: -- Modified the IF condition for Bug#14055352 --
220:
221: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
222: IF (g_level_statement >= g_current_runtime_level ) THEN
223: FND_LOG.STRING(g_level_statement,
224: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
225: 'Incorrect return_status after calling ' ||
226: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref()'||p_return_status);
227: END IF;
228: RETURN;
222: IF (g_level_statement >= g_current_runtime_level ) THEN
223: FND_LOG.STRING(g_level_statement,
224: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
225: 'Incorrect return_status after calling ' ||
226: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref()'||p_return_status);
227: END IF;
228: RETURN;
229: END IF;
230:
242:
243: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
244: IF (g_level_statement >= g_current_runtime_level ) THEN
245: FND_LOG.STRING(g_level_statement,
246: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
247: 'Incorrect return_status after calling ' ||
248: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type()'||p_return_status);
249: END IF;
250: RETURN;
244: IF (g_level_statement >= g_current_runtime_level ) THEN
245: FND_LOG.STRING(g_level_statement,
246: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
247: 'Incorrect return_status after calling ' ||
248: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type()'||p_return_status);
249: END IF;
250: RETURN;
251: END IF;
252:
266:
267: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
268: IF (g_level_statement >= g_current_runtime_level ) THEN
269: FND_LOG.STRING(g_level_statement,
270: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
271: 'Incorrect return_status after calling ' ||
272: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_tax_related_columns_sta()'||p_return_status);
273: END IF;
274: RETURN;
268: IF (g_level_statement >= g_current_runtime_level ) THEN
269: FND_LOG.STRING(g_level_statement,
270: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
271: 'Incorrect return_status after calling ' ||
272: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_tax_related_columns_sta()'||p_return_status);
273: END IF;
274: RETURN;
275: END IF;
276:
287:
288: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
289: IF (g_level_statement >= g_current_runtime_level ) THEN
290: FND_LOG.STRING(g_level_statement,
291: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
292: 'Incorrect return_status after calling ' ||
293: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_tax_related_columns_var()'||p_return_status);
294: END IF;
295: RETURN;
289: IF (g_level_statement >= g_current_runtime_level ) THEN
290: FND_LOG.STRING(g_level_statement,
291: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
292: 'Incorrect return_status after calling ' ||
293: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_tax_related_columns_var()'||p_return_status);
294: END IF;
295: RETURN;
296: END IF;
297:
307:
308: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
309: IF (g_level_statement >= g_current_runtime_level ) THEN
310: FND_LOG.STRING(g_level_statement,
311: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
312: 'Incorrect return_status after calling ' ||
313: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns()'||p_return_status);
314: END IF;
315: RETURN;
309: IF (g_level_statement >= g_current_runtime_level ) THEN
310: FND_LOG.STRING(g_level_statement,
311: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
312: 'Incorrect return_status after calling ' ||
313: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns()'||p_return_status);
314: END IF;
315: RETURN;
316: END IF;
317:
330: p_error_buffer);
331: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
332: IF (g_level_statement >= g_current_runtime_level ) THEN
333: FND_LOG.STRING(g_level_statement,
334: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
335: 'Incorrect return_status after calling ' ||
336: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate()'||p_return_status);
337: END IF;
338: RETURN;
332: IF (g_level_statement >= g_current_runtime_level ) THEN
333: FND_LOG.STRING(g_level_statement,
334: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
335: 'Incorrect return_status after calling ' ||
336: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate()'||p_return_status);
337: END IF;
338: RETURN;
339: END IF;
340:
367: */
368:
369: IF (g_level_statement >= g_current_runtime_level ) THEN
370: FND_LOG.STRING(g_level_statement,
371: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST',
372: 'tax dists have been determined before '||
373: 'p_rnd_begin_index = ' || p_rnd_begin_index||
374: 'p_rnd_end_index = ' || p_rnd_end_index);
375: END IF;
479:
480: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
481: IF (g_level_statement >= g_current_runtime_level ) THEN
482: FND_LOG.STRING(g_level_statement,
483: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
484: 'Incorrect return_status after calling ' ||
485: 'ZX_TDS_UTILITIES_PKG.populate_tax_cache()'||p_return_status);
486: END IF;
487: RETURN;
552:
553: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
554: IF (g_level_statement >= g_current_runtime_level ) THEN
555: FND_LOG.STRING(g_level_statement,
556: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
557: 'Incorrect return_status after calling ' ||
558: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_tax_related_columns_var()'||p_return_status);
559: END IF;
560: RETURN;
554: IF (g_level_statement >= g_current_runtime_level ) THEN
555: FND_LOG.STRING(g_level_statement,
556: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
557: 'Incorrect return_status after calling ' ||
558: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_tax_related_columns_var()'||p_return_status);
559: END IF;
560: RETURN;
561: END IF;
562:
572:
573: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
574: IF (g_level_statement >= g_current_runtime_level ) THEN
575: FND_LOG.STRING(g_level_statement,
576: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
577: 'Incorrect return_status after calling ' ||
578: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns()'||p_return_status);
579: END IF;
580: RETURN;
574: IF (g_level_statement >= g_current_runtime_level ) THEN
575: FND_LOG.STRING(g_level_statement,
576: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
577: 'Incorrect return_status after calling ' ||
578: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns()'||p_return_status);
579: END IF;
580: RETURN;
581: END IF;
582:
594: p_error_buffer);
595: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
596: IF (g_level_statement >= g_current_runtime_level ) THEN
597: FND_LOG.STRING(g_level_statement,
598: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
599: 'Incorrect return_status after calling ' ||
600: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate()'||p_return_status);
601: END IF;
602: RETURN;
596: IF (g_level_statement >= g_current_runtime_level ) THEN
597: FND_LOG.STRING(g_level_statement,
598: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
599: 'Incorrect return_status after calling ' ||
600: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate()'||p_return_status);
601: END IF;
602: RETURN;
603: END IF;
604:
606: END IF; -- no row found
607:
608: IF (g_level_procedure >= g_current_runtime_level ) THEN
609: FND_LOG.STRING(g_level_procedure,
610: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.END',
611: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist (-)');
612: END IF;
613:
614: EXCEPTION
607:
608: IF (g_level_procedure >= g_current_runtime_level ) THEN
609: FND_LOG.STRING(g_level_procedure,
610: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.END',
611: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist (-)');
612: END IF;
613:
614: EXCEPTION
615: WHEN OTHERS THEN
617: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
618:
619: IF (g_level_unexpected >= g_current_runtime_level ) THEN
620: FND_LOG.STRING(g_level_unexpected,
621: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
622: p_error_buffer);
623: FND_LOG.STRING(g_level_unexpected,
624: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.END',
625: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist (-)');
620: FND_LOG.STRING(g_level_unexpected,
621: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
622: p_error_buffer);
623: FND_LOG.STRING(g_level_unexpected,
624: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.END',
625: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist (-)');
626: END IF;
627:
628: END calc_tax_dist;
621: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
622: p_error_buffer);
623: FND_LOG.STRING(g_level_unexpected,
624: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.END',
625: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist (-)');
626: END IF;
627:
628: END calc_tax_dist;
629:
667:
668: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
669: IF (g_level_procedure >= g_current_runtime_level ) THEN
670: FND_LOG.STRING(g_level_procedure,
671: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.BEGIN',
672: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line (+)');
673: END IF;
674:
675: p_return_status:= FND_API.G_RET_STS_SUCCESS;
668: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
669: IF (g_level_procedure >= g_current_runtime_level ) THEN
670: FND_LOG.STRING(g_level_procedure,
671: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.BEGIN',
672: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line (+)');
673: END IF;
674:
675: p_return_status:= FND_API.G_RET_STS_SUCCESS;
676: i:= p_rnd_begin_index;
760: p_rnd_end_index:= i-1;
761:
762: IF (g_level_procedure >= g_current_runtime_level ) THEN
763: FND_LOG.STRING(g_level_procedure,
764: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.BEGIN',
765: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line (-)');
766: END IF;
767:
768: EXCEPTION
761:
762: IF (g_level_procedure >= g_current_runtime_level ) THEN
763: FND_LOG.STRING(g_level_procedure,
764: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.BEGIN',
765: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line (-)');
766: END IF;
767:
768: EXCEPTION
769: WHEN OTHERS THEN
771: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
772:
773: IF (g_level_unexpected >= g_current_runtime_level ) THEN
774: FND_LOG.STRING(g_level_unexpected,
775: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line',
776: p_error_buffer);
777: FND_LOG.STRING(g_level_unexpected,
778: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.END',
779: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line(-)');
774: FND_LOG.STRING(g_level_unexpected,
775: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line',
776: p_error_buffer);
777: FND_LOG.STRING(g_level_unexpected,
778: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.END',
779: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line(-)');
780: END IF;
781:
782: end cancel_tax_line;
775: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line',
776: p_error_buffer);
777: FND_LOG.STRING(g_level_unexpected,
778: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.END',
779: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line(-)');
780: END IF;
781:
782: end cancel_tax_line;
783:
831: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
832:
833: IF (g_level_procedure >= g_current_runtime_level ) THEN
834: FND_LOG.STRING(g_level_procedure,
835: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.BEGIN',
836: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(+)');
837: END IF;
838:
839: p_return_status := FND_API.G_RET_STS_SUCCESS;
832:
833: IF (g_level_procedure >= g_current_runtime_level ) THEN
834: FND_LOG.STRING(g_level_procedure,
835: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.BEGIN',
836: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(+)');
837: END IF;
838:
839: p_return_status := FND_API.G_RET_STS_SUCCESS;
840:
877: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
878: THEN
879: IF (g_level_error >= g_current_runtime_level ) THEN
880: FND_LOG.STRING(g_level_error,
881: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type',
882: 'Incorrect return_status after calling ' ||
883: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied()');
884: FND_LOG.STRING(g_level_error,
885: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
879: IF (g_level_error >= g_current_runtime_level ) THEN
880: FND_LOG.STRING(g_level_error,
881: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type',
882: 'Incorrect return_status after calling ' ||
883: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied()');
884: FND_LOG.STRING(g_level_error,
885: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
886: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type(-)'||p_return_status);
887: END IF;
881: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type',
882: 'Incorrect return_status after calling ' ||
883: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied()');
884: FND_LOG.STRING(g_level_error,
885: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
886: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type(-)'||p_return_status);
887: END IF;
888: END IF;
889: RETURN;
882: 'Incorrect return_status after calling ' ||
883: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied()');
884: FND_LOG.STRING(g_level_error,
885: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
886: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type(-)'||p_return_status);
887: END IF;
888: END IF;
889: RETURN;
890:
907: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
908: THEN
909: IF (g_level_error >= g_current_runtime_level ) THEN
910: FND_LOG.STRING(g_level_error,
911: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type',
912: 'Incorrect return_status after calling ' ||
913: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted()');
914: FND_LOG.STRING(g_level_error,
915: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
909: IF (g_level_error >= g_current_runtime_level ) THEN
910: FND_LOG.STRING(g_level_error,
911: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type',
912: 'Incorrect return_status after calling ' ||
913: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted()');
914: FND_LOG.STRING(g_level_error,
915: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
916: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type(-)'||p_return_status);
917: END IF;
911: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type',
912: 'Incorrect return_status after calling ' ||
913: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted()');
914: FND_LOG.STRING(g_level_error,
915: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
916: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type(-)'||p_return_status);
917: END IF;
918: END IF;
919:
912: 'Incorrect return_status after calling ' ||
913: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted()');
914: FND_LOG.STRING(g_level_error,
915: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
916: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type(-)'||p_return_status);
917: END IF;
918: END IF;
919:
920: -- return to the calling point, the normal recovery type determination
952: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
953:
954: IF (g_level_procedure >= g_current_runtime_level ) THEN
955: FND_LOG.STRING(g_level_procedure,
956: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
957: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)'||'error: can not find tax info for ' || l_tax_id);
958: END IF;
959: CLOSE get_tax_recovery_info_cur;
960: RETURN;
953:
954: IF (g_level_procedure >= g_current_runtime_level ) THEN
955: FND_LOG.STRING(g_level_procedure,
956: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
957: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)'||'error: can not find tax info for ' || l_tax_id);
958: END IF;
959: CLOSE get_tax_recovery_info_cur;
960: RETURN;
961: END IF;
1002: ELSE -- no recovery allowed
1003:
1004: IF (g_level_statement >= g_current_runtime_level ) THEN
1005: FND_LOG.STRING(g_level_statement,
1006: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE',
1007: 'No applicable recovery type found');
1008: END IF;
1009:
1010: END IF;
1010: END IF;
1011: ELSE --provider calculated tax lines should be 100% non-recoverable.
1012: IF (g_level_statement >= g_current_runtime_level ) THEN
1013: FND_LOG.STRING(g_level_statement,
1014: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE',
1015: 'Provider calculated tax lines are 100% non-recoverable.');
1016: END IF;
1017:
1018: END IF;
1023:
1024: IF (g_level_procedure >= g_current_runtime_level ) THEN
1025:
1026: FND_LOG.STRING(g_level_procedure,
1027: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
1028: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)'||
1029: ' begin index = ' || p_rnd_end_index||
1030: ' end index = ' || p_rnd_end_index);
1031: END IF;
1024: IF (g_level_procedure >= g_current_runtime_level ) THEN
1025:
1026: FND_LOG.STRING(g_level_procedure,
1027: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
1028: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)'||
1029: ' begin index = ' || p_rnd_end_index||
1030: ' end index = ' || p_rnd_end_index);
1031: END IF;
1032:
1036: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1037:
1038: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1039: FND_LOG.STRING(g_level_unexpected,
1040: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE',
1041: p_error_buffer);
1042: FND_LOG.STRING(g_level_unexpected,
1043: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
1044: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)');
1039: FND_LOG.STRING(g_level_unexpected,
1040: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE',
1041: p_error_buffer);
1042: FND_LOG.STRING(g_level_unexpected,
1043: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
1044: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)');
1045: END IF;
1046:
1047: END DET_APPL_REC_TYPE;
1040: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE',
1041: p_error_buffer);
1042: FND_LOG.STRING(g_level_unexpected,
1043: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
1044: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)');
1045: END IF;
1046:
1047: END DET_APPL_REC_TYPE;
1048:
1061: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1062:
1063: IF (g_level_procedure >= g_current_runtime_level ) THEN
1064: FND_LOG.STRING(g_level_procedure,
1065: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.BEGIN',
1066: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(+)');
1067: END IF;
1068:
1069: p_return_status:= FND_API.G_RET_STS_SUCCESS;
1062:
1063: IF (g_level_procedure >= g_current_runtime_level ) THEN
1064: FND_LOG.STRING(g_level_procedure,
1065: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.BEGIN',
1066: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(+)');
1067: END IF;
1068:
1069: p_return_status:= FND_API.G_RET_STS_SUCCESS;
1070:
1250: END LOOP; -- i in p_rnd_begin_index..p_rnd_end_index
1251:
1252: IF (g_level_procedure >= g_current_runtime_level ) THEN
1253: FND_LOG.STRING(g_level_procedure,
1254: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.END',
1255: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(-)');
1256: END IF;
1257:
1258: EXCEPTION
1251:
1252: IF (g_level_procedure >= g_current_runtime_level ) THEN
1253: FND_LOG.STRING(g_level_procedure,
1254: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.END',
1255: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(-)');
1256: END IF;
1257:
1258: EXCEPTION
1259: WHEN OTHERS THEN
1261: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1262:
1263: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1264: FND_LOG.STRING(g_level_unexpected,
1265: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA',
1266: p_error_buffer);
1267: FND_LOG.STRING(g_level_unexpected,
1268: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.END',
1269: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(-)');
1264: FND_LOG.STRING(g_level_unexpected,
1265: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA',
1266: p_error_buffer);
1267: FND_LOG.STRING(g_level_unexpected,
1268: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.END',
1269: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(-)');
1270: END IF;
1271: END get_tax_related_columns_sta;
1272:
1265: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA',
1266: p_error_buffer);
1267: FND_LOG.STRING(g_level_unexpected,
1268: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.END',
1269: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(-)');
1270: END IF;
1271: END get_tax_related_columns_sta;
1272:
1273:
1289: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1290:
1291: IF (g_level_procedure >= g_current_runtime_level ) THEN
1292: FND_LOG.STRING(g_level_procedure,
1293: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.BEGIN',
1294: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(+)');
1295: END IF;
1296: p_return_status:= FND_API.G_RET_STS_SUCCESS;
1297:
1290:
1291: IF (g_level_procedure >= g_current_runtime_level ) THEN
1292: FND_LOG.STRING(g_level_procedure,
1293: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.BEGIN',
1294: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(+)');
1295: END IF;
1296: p_return_status:= FND_API.G_RET_STS_SUCCESS;
1297:
1298: FOR i in p_rnd_begin_index..p_rnd_end_index
1302: NVL(p_rec_nrec_dist_tbl(i).freeze_flag, 'N') <> 'Y'
1303: THEN
1304: IF (g_level_statement >= g_current_runtime_level ) THEN
1305: FND_LOG.STRING(g_level_statement,
1306: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1307: 'Reverse flag and freeze flag are not Y');
1308: END IF;
1309:
1310:
1340: ZX_API_PUB.add_msg(ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
1341:
1342: IF (g_level_statement >= g_current_runtime_level ) THEN
1343: FND_LOG.STRING(g_level_statement,
1344: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1345: 'No Open Period or future period found for the accounting date passed by Payables');
1346: FND_LOG.STRING(g_level_statement,
1347: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1348: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1343: FND_LOG.STRING(g_level_statement,
1344: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1345: 'No Open Period or future period found for the accounting date passed by Payables');
1346: FND_LOG.STRING(g_level_statement,
1347: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1348: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1349: END IF;
1350: RETURN;
1351: END IF;*/
1344: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1345: 'No Open Period or future period found for the accounting date passed by Payables');
1346: FND_LOG.STRING(g_level_statement,
1347: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1348: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1349: END IF;
1350: RETURN;
1351: END IF;*/
1352:
1353: -- tax only line
1354: IF p_rec_nrec_dist_tbl(i).Tax_Only_Line_Flag = 'Y' THEN
1355: IF (g_level_statement >= g_current_runtime_level ) THEN
1356: FND_LOG.STRING(g_level_statement,
1357: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1358: 'Tax only line flag is Y');
1359: END IF;
1360:
1361: p_rec_nrec_dist_tbl(i).TRX_LINE_DIST_TAX_AMT := p_detail_tax_line_tbl(p_tax_line_index).TAX_AMT;
1362: p_rec_nrec_dist_tbl(i).UNROUNDED_TAXABLE_AMT := p_detail_tax_line_tbl(p_tax_line_index).TAXABLE_AMT;
1363: ELSE
1364: IF (g_level_statement >= g_current_runtime_level ) THEN
1365: FND_LOG.STRING(g_level_statement,
1366: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1367: 'Tax only line flag is not Y');
1368: END IF;
1369:
1370: IF p_detail_tax_line_tbl(p_tax_line_index).applied_from_event_class_code = 'PREPAYMENT INVOICES' THEN
1369:
1370: IF p_detail_tax_line_tbl(p_tax_line_index).applied_from_event_class_code = 'PREPAYMENT INVOICES' THEN
1371: IF (g_level_statement >= g_current_runtime_level ) THEN
1372: FND_LOG.STRING(g_level_statement,
1373: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1374: 'Prepayment Invoice application');
1375: END IF;
1376: l_temp_line_amt := p_detail_tax_line_tbl(p_tax_line_index).line_amt -
1377: NVL(ZX_GLOBAL_STRUCTURES_PKG.TRX_LINE_DIST_TBL.total_inc_tax_amt(p_trx_line_dist_index), 0);
1469: ZX_API_PUB.add_msg(ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
1470:
1471: IF (g_level_statement >= g_current_runtime_level ) THEN
1472: FND_LOG.STRING(g_level_statement,
1473: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1474: 'No Open Period or future period found for the accounting date passed by Payables');
1475: FND_LOG.STRING(g_level_statement,
1476: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1477: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1472: FND_LOG.STRING(g_level_statement,
1473: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1474: 'No Open Period or future period found for the accounting date passed by Payables');
1475: FND_LOG.STRING(g_level_statement,
1476: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1477: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1478: END IF;
1479: RETURN;
1480: END IF;
1473: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1474: 'No Open Period or future period found for the accounting date passed by Payables');
1475: FND_LOG.STRING(g_level_statement,
1476: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1477: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1478: END IF;
1479: RETURN;
1480: END IF;
1481: END;
1500: ZX_API_PUB.add_msg(ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
1501:
1502: IF (g_level_statement >= g_current_runtime_level ) THEN
1503: FND_LOG.STRING(g_level_statement,
1504: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1505: 'No Open Period or future period found for the accounting date passed by Payables');
1506: FND_LOG.STRING(g_level_statement,
1507: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1508: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1503: FND_LOG.STRING(g_level_statement,
1504: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1505: 'No Open Period or future period found for the accounting date passed by Payables');
1506: FND_LOG.STRING(g_level_statement,
1507: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1508: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1509: END IF;
1510: RETURN;
1511: END IF;
1504: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1505: 'No Open Period or future period found for the accounting date passed by Payables');
1506: FND_LOG.STRING(g_level_statement,
1507: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1508: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1509: END IF;
1510: RETURN;
1511: END IF;
1512: END IF;
1520: END LOOP;
1521:
1522: IF (g_level_procedure >= g_current_runtime_level ) THEN
1523: FND_LOG.STRING(g_level_procedure,
1524: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1525: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1526: END IF;
1527:
1528: EXCEPTION
1521:
1522: IF (g_level_procedure >= g_current_runtime_level ) THEN
1523: FND_LOG.STRING(g_level_procedure,
1524: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1525: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1526: END IF;
1527:
1528: EXCEPTION
1529: WHEN OTHERS THEN
1531: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1532:
1533: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1534: FND_LOG.STRING(g_level_unexpected,
1535: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1536: p_error_buffer);
1537: FND_LOG.STRING(g_level_unexpected,
1538: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1539: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1534: FND_LOG.STRING(g_level_unexpected,
1535: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1536: p_error_buffer);
1537: FND_LOG.STRING(g_level_unexpected,
1538: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1539: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1540: END IF;
1541:
1542: END GET_TAX_RELATED_COLUMNS_VAR;
1535: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1536: p_error_buffer);
1537: FND_LOG.STRING(g_level_unexpected,
1538: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1539: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1540: END IF;
1541:
1542: END GET_TAX_RELATED_COLUMNS_VAR;
1543:
1731: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1732:
1733: IF (g_level_procedure >= g_current_runtime_level ) THEN
1734: FND_LOG.STRING(g_level_procedure,
1735: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.BEGIN',
1736: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(+)');
1737: END IF;
1738:
1739: p_return_status:= FND_API.G_RET_STS_SUCCESS;
1732:
1733: IF (g_level_procedure >= g_current_runtime_level ) THEN
1734: FND_LOG.STRING(g_level_procedure,
1735: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.BEGIN',
1736: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(+)');
1737: END IF;
1738:
1739: p_return_status:= FND_API.G_RET_STS_SUCCESS;
1740:
1743: l_tax_regime_code := p_detail_tax_line_tbl(p_tax_line_index).tax_regime_code;
1744:
1745: IF (g_level_statement >= g_current_runtime_level ) THEN
1746: FND_LOG.STRING(g_level_statement,
1747: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1748: 'Tax : '|| l_tax || ', Tax Regime code : '|| l_tax_regime_code);
1749: END IF;
1750:
1751: -- Bug#5417753- determine tax_class value
1760: IF NOT g_tax_recovery_info_tbl.EXISTS(l_tax_id)
1761: THEN
1762: IF (g_level_statement >= g_current_runtime_level ) THEN
1763: FND_LOG.STRING(g_level_statement,
1764: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1765: 'Populating tax cache information ');
1766: END IF;
1767:
1768:
1785: IF get_tax_rec_info_from_tax_csr%NOTFOUND THEN
1786: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1787: IF (g_level_statement >= g_current_runtime_level ) THEN
1788: FND_LOG.STRING(g_level_statement,
1789: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1790: 'error: ' || 'no tax info can be found for '||l_tax_id);
1791: END IF;
1792: CLOSE get_tax_rec_info_from_tax_csr;
1793: RETURN;
1809: END IF;
1810:
1811: IF (g_level_statement >= g_current_runtime_level ) THEN
1812: FND_LOG.STRING(g_level_statement,
1813: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1814: 'Populated tax cache information ');
1815: END IF;
1816:
1817:
1829:
1830: IF (g_level_procedure >= g_current_runtime_level ) THEN
1831:
1832: FND_LOG.STRING(g_level_procedure,
1833: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
1834: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)'||
1835: 'tax recovery rate is copied from applied_from or adjusted_to document');
1836: END IF;
1837: RETURN;
1830: IF (g_level_procedure >= g_current_runtime_level ) THEN
1831:
1832: FND_LOG.STRING(g_level_procedure,
1833: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
1834: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)'||
1835: 'tax recovery rate is copied from applied_from or adjusted_to document');
1836: END IF;
1837: RETURN;
1838:
1838:
1839: END IF;
1840: IF (g_level_statement >= g_current_runtime_level ) THEN
1841: FND_LOG.STRING(g_level_statement,
1842: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1843: 'Adjusted doc, applied from doc information is null ');
1844: END IF;
1845:
1846:
1862: p_rnd_begin_index > p_rnd_end_index
1863: THEN
1864: IF (g_level_statement >= g_current_runtime_level ) THEN
1865: FND_LOG.STRING(g_level_statement,
1866: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1867: 'begin or end index is null, or begin index > end index');
1868: END IF;
1869: RETURN;
1870: END IF;
1875: NVL(p_rec_nrec_dist_tbl(i).freeze_flag, 'N') <> 'Y'
1876: THEN
1877: IF (g_level_statement >= g_current_runtime_level ) THEN
1878: FND_LOG.STRING(g_level_statement,
1879: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1880: 'Reverse flag and freeze flag are not Y.');
1881: END IF;
1882:
1883:
1883:
1884: IF NVL(p_rec_nrec_dist_tbl(i).recoverable_flag,'N') = 'N' THEN
1885: IF (g_level_statement >= g_current_runtime_level ) THEN
1886: FND_LOG.STRING(g_level_statement,
1887: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1888: 'Recoverable flag is N');
1889: END IF;
1890:
1891: l_non_rec_index := i;
1908:
1909: ELSE -- recoverable line
1910: IF (g_level_statement >= g_current_runtime_level ) THEN
1911: FND_LOG.STRING(g_level_statement,
1912: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1913: 'Recoverable flag is Y');
1914: END IF;
1915:
1916:
1935: l_rec_rate_code := p_rec_nrec_dist_tbl(i).recovery_rate_code;
1936:
1937: IF (g_level_statement >= g_current_runtime_level ) THEN
1938: FND_LOG.STRING(g_level_statement,
1939: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1940: 'Last Manual Entry : '||p_rec_nrec_dist_tbl(i).last_manual_entry);
1941: END IF;
1942:
1943: IF (g_level_statement >= g_current_runtime_level ) THEN
1941: END IF;
1942:
1943: IF (g_level_statement >= g_current_runtime_level ) THEN
1944: FND_LOG.STRING(g_level_statement,
1945: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1946: 'B. TAX_DIST_ID : '|| to_char(p_rec_nrec_dist_tbl(i).rec_nrec_tax_dist_id)||
1947: ', RECOVERY_RATE_CODE : '|| p_rec_nrec_dist_tbl(i).recovery_rate_code||
1948: ', RECOVERY_RATE_ID : '|| to_char(p_rec_nrec_dist_tbl(i).recovery_rate_id)||
1949: ', RECOVERY_RATE : '|| to_char(p_rec_nrec_dist_tbl(i).rec_nrec_rate));
1968: END IF;
1969:
1970: IF (g_level_statement >= g_current_runtime_level ) THEN
1971: FND_LOG.STRING(g_level_statement,
1972: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1973: 'A. TAX_DIST_ID : '|| to_char(p_rec_nrec_dist_tbl(i).rec_nrec_tax_dist_id)||
1974: ', RECOVERY_RATE_CODE : '|| p_rec_nrec_dist_tbl(i).recovery_rate_code||
1975: ', RECOVERY_RATE_ID : '|| to_char(p_rec_nrec_dist_tbl(i).recovery_rate_id)||
1976: ', RECOVERY_RATE : '|| to_char(p_rec_nrec_dist_tbl(i).rec_nrec_rate));
1995: l_rec_rate_code := p_rec_nrec_dist_tbl(i).recovery_rate_code;
1996:
1997: IF (g_level_statement >= g_current_runtime_level ) THEN
1998: FND_LOG.STRING(g_level_statement,
1999: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2000: 'Enforce Tax Recovery Code from Reference Document.'||
2001: 'ENFORCE_TAX_FROM_REF_DOC_FLAG : '||
2002: NVL(p_event_class_rec.enforce_tax_from_ref_doc_flag,'N'));
2003:
2001: 'ENFORCE_TAX_FROM_REF_DOC_FLAG : '||
2002: NVL(p_event_class_rec.enforce_tax_from_ref_doc_flag,'N'));
2003:
2004: FND_LOG.STRING(g_level_statement,
2005: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2006: 'Recovery Rate Code : '||l_rec_rate_code);
2007: END IF;
2008:
2009:
2039: -- rules processing unconditionally. Rules Engine will process for the rec_rule_code
2040: -- that is passed and if not found then will process further.
2041: IF (g_level_statement >= g_current_runtime_level ) THEN
2042: FND_LOG.STRING(g_level_statement,
2043: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2044: 'l_rec_rule_code : '|| l_rec_rule_code);
2045: FND_LOG.STRING(g_level_statement,
2046: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2047: 'l_def_rec_rate_code : ' || l_def_rec_rate_code);
2042: FND_LOG.STRING(g_level_statement,
2043: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2044: 'l_rec_rule_code : '|| l_rec_rule_code);
2045: FND_LOG.STRING(g_level_statement,
2046: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2047: 'l_def_rec_rate_code : ' || l_def_rec_rate_code);
2048: FND_LOG.STRING(g_level_statement,
2049: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2050: 'l_def_rec_settlement_code : ' ||l_def_rec_settlement_code );
2045: FND_LOG.STRING(g_level_statement,
2046: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2047: 'l_def_rec_rate_code : ' || l_def_rec_rate_code);
2048: FND_LOG.STRING(g_level_statement,
2049: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2050: 'l_def_rec_settlement_code : ' ||l_def_rec_settlement_code );
2051: FND_LOG.STRING(g_level_statement,
2052: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2053: 'l_rec_type_code : ' || l_rec_type_code );
2048: FND_LOG.STRING(g_level_statement,
2049: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2050: 'l_def_rec_settlement_code : ' ||l_def_rec_settlement_code );
2051: FND_LOG.STRING(g_level_statement,
2052: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2053: 'l_rec_type_code : ' || l_rec_type_code );
2054: FND_LOG.STRING(g_level_statement,
2055: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2056: 'l_def_rec_rate_code : ' || l_def_rec_rate_code );
2051: FND_LOG.STRING(g_level_statement,
2052: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2053: 'l_rec_type_code : ' || l_rec_type_code );
2054: FND_LOG.STRING(g_level_statement,
2055: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2056: 'l_def_rec_rate_code : ' || l_def_rec_rate_code );
2057: END IF;
2058:
2059: ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process(
2073: l_rec_rate_code:= l_zx_result_rec.alphanumeric_result;
2074: l_rec_rate_id:= l_zx_result_rec.numeric_result;
2075: IF (g_level_statement >= g_current_runtime_level ) THEN
2076: FND_LOG.STRING(g_level_statement,
2077: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2078: 'l_rec_rate_code : '||l_rec_rate_code );
2079: FND_LOG.STRING(g_level_statement,
2080: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2081: 'l_rec_rate_id : ' || to_char(l_rec_rate_id));
2076: FND_LOG.STRING(g_level_statement,
2077: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2078: 'l_rec_rate_code : '||l_rec_rate_code );
2079: FND_LOG.STRING(g_level_statement,
2080: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2081: 'l_rec_rate_id : ' || to_char(l_rec_rate_id));
2082:
2083: END IF;
2084:
2107: --
2108: IF NVL(p_rec_nrec_dist_tbl(i).rec_rate_det_rule_flag, 'N') = 'N' THEN
2109: IF (g_level_statement >= g_current_runtime_level ) THEN
2110: FND_LOG.STRING(g_level_statement,
2111: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2112: 'rec_rate_det_rule_flag is N ');
2113: END IF;
2114:
2115: OPEN get_rec_info_csr(l_tax_rate_id);
2122: -- bug 9759983
2123:
2124: IF (g_level_statement >= g_current_runtime_level ) THEN
2125: FND_LOG.STRING(g_level_statement,
2126: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2127: 'l_rec_rule_code : '|| l_rec_rule_code);
2128: FND_LOG.STRING(g_level_statement,
2129: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2130: 'l_def_rec_rate_code : ' || l_def_rec_rate_code);
2125: FND_LOG.STRING(g_level_statement,
2126: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2127: 'l_rec_rule_code : '|| l_rec_rule_code);
2128: FND_LOG.STRING(g_level_statement,
2129: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2130: 'l_def_rec_rate_code : ' || l_def_rec_rate_code);
2131: FND_LOG.STRING(g_level_statement,
2132: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2133: 'l_def_rec_settlement_code : ' ||l_def_rec_settlement_code );
2128: FND_LOG.STRING(g_level_statement,
2129: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2130: 'l_def_rec_rate_code : ' || l_def_rec_rate_code);
2131: FND_LOG.STRING(g_level_statement,
2132: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2133: 'l_def_rec_settlement_code : ' ||l_def_rec_settlement_code );
2134: FND_LOG.STRING(g_level_statement,
2135: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2136: 'l_def_rec_rate_code : ' || l_def_rec_rate_code );
2131: FND_LOG.STRING(g_level_statement,
2132: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2133: 'l_def_rec_settlement_code : ' ||l_def_rec_settlement_code );
2134: FND_LOG.STRING(g_level_statement,
2135: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2136: 'l_def_rec_rate_code : ' || l_def_rec_rate_code );
2137: END IF;
2138:
2139: IF l_def_rec_type_code <> p_rec_nrec_dist_tbl(i).recovery_type_code THEN
2231: ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
2232:
2233: IF (g_level_statement >= g_current_runtime_level ) THEN
2234: FND_LOG.STRING(g_level_statement,
2235: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2236: 'Cannot find default rec rate code');
2237: FND_LOG.STRING(g_level_statement,
2238: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2239: 'p_return_status := ' || p_return_status);
2234: FND_LOG.STRING(g_level_statement,
2235: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2236: 'Cannot find default rec rate code');
2237: FND_LOG.STRING(g_level_statement,
2238: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2239: 'p_return_status := ' || p_return_status);
2240: FND_LOG.STRING(g_level_statement,
2241: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2242: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2237: FND_LOG.STRING(g_level_statement,
2238: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2239: 'p_return_status := ' || p_return_status);
2240: FND_LOG.STRING(g_level_statement,
2241: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2242: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2243: END IF;
2244: RETURN;
2245: END IF; -- default tax recovery rate code not found, raise error
2238: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2239: 'p_return_status := ' || p_return_status);
2240: FND_LOG.STRING(g_level_statement,
2241: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2242: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2243: END IF;
2244: RETURN;
2245: END IF; -- default tax recovery rate code not found, raise error
2246: END IF; -- default tax recovery rate code at Tax level
2248: END IF; -- default tax recovery rate code for Tax Rate
2249:
2250: IF (g_level_statement >= g_current_runtime_level ) THEN
2251: FND_LOG.STRING(g_level_statement,
2252: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2253: 'l_rec_rate_code = ' || l_rec_rate_code);
2254: END IF;
2255: END IF; -- p_event_class_rec.enforce_tax_from_ref_doc_flag
2256:
2267: l_rec_rate_id := p_rec_nrec_dist_tbl(i).recovery_rate_id;
2268:
2269: IF (g_level_statement >= g_current_runtime_level ) THEN
2270: FND_LOG.STRING(g_level_statement,
2271: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2272: 'Assigned Recovery Rate Percentage and Recovery_Rate_Id '||
2273: 'for Zero Amount Reference Tax Line');
2274: FND_LOG.STRING(g_level_statement,
2275: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2271: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2272: 'Assigned Recovery Rate Percentage and Recovery_Rate_Id '||
2273: 'for Zero Amount Reference Tax Line');
2274: FND_LOG.STRING(g_level_statement,
2275: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2276: 'Recovery_Rate : '||l_rec_rate ||', Recovery_Rate_Id : '||l_rec_rate_id);
2277: END IF;
2278:
2279: -- Start : Added for Bug#14038095 --
2279: -- Start : Added for Bug#14038095 --
2280: IF l_rec_rate_id IS NULL AND l_rec_rate_code = 'AD_HOC_RECOVERY' THEN
2281: IF (g_level_statement >= g_current_runtime_level ) THEN
2282: FND_LOG.STRING(g_level_statement,
2283: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2284: 'Recovery_Rate_Id from the PO is NULL for Recovery Rate Code AD_HOC_RECOVERY');
2285: FND_LOG.STRING(g_level_statement,
2286: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2287: 'Getting Recovery_Rate_Id for Recovery Rate Code AD_HOC_RECOVERY...');
2282: FND_LOG.STRING(g_level_statement,
2283: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2284: 'Recovery_Rate_Id from the PO is NULL for Recovery Rate Code AD_HOC_RECOVERY');
2285: FND_LOG.STRING(g_level_statement,
2286: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2287: 'Getting Recovery_Rate_Id for Recovery Rate Code AD_HOC_RECOVERY...');
2288: END IF;
2289:
2290: OPEN get_adhoc_rec_rate_id_csr(
2296: CLOSE get_adhoc_rec_rate_id_csr;
2297:
2298: IF (g_level_statement >= g_current_runtime_level ) THEN
2299: FND_LOG.STRING(g_level_statement,
2300: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2301: 'Recovery_Rate_Id for Recovery Rate Code AD_HOC_RECOVERY : '||l_rec_rate_id);
2302: END IF;
2303: END IF;
2304: -- END : Added for Bug#14038095 --
2386:
2387:
2388: IF (g_level_statement >= g_current_runtime_level ) THEN
2389: FND_LOG.STRING(g_level_statement,
2390: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2391: 'error: Recovery rate is not found.');
2392:
2393: FND_LOG.STRING(g_level_statement,
2394: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2390: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2391: 'error: Recovery rate is not found.');
2392:
2393: FND_LOG.STRING(g_level_statement,
2394: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2395: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2396: END IF;
2397: RETURN;
2398: END IF;
2391: 'error: Recovery rate is not found.');
2392:
2393: FND_LOG.STRING(g_level_statement,
2394: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2395: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2396: END IF;
2397: RETURN;
2398: END IF;
2399: END IF; -- LME <> 'RECOVERY_RATE_CODE' OR historical_flag <> 'Y'
2435: p_rec_nrec_dist_tbl(i).account_source_tax_rate_id :=
2436: l_acct_source_tax_rate_id;
2437: IF (g_level_statement >= g_current_runtime_level ) THEN
2438: FND_LOG.STRING(g_level_statement,
2439: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2440: 'Tax accounts defined for recovery rate id '|| to_char(p_rec_nrec_dist_tbl(i).recovery_rate_id));
2441:
2442: END IF;
2443:
2447: -- p_detail_tax_line_tbl(p_tax_line_index).account_source_tax_rate_id;
2448: -- This ELSE part contains the fix for bug 6900725
2449: IF (g_level_statement >= g_current_runtime_level ) THEN
2450: FND_LOG.STRING(g_level_statement,
2451: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2452: 'Tax accounts not defined for recovery rate id '|| to_char(p_rec_nrec_dist_tbl(i).recovery_rate_id));
2453:
2454: END IF;
2455:
2455:
2456: IF g_tax_recovery_info_tbl(l_tax_id).tax_account_source_tax IS NOT NULL THEN
2457: IF (g_level_statement >= g_current_runtime_level ) THEN
2458: FND_LOG.STRING(g_level_statement,
2459: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2460: 'Getting account source tax rate id from Tax Accounts Source Tax '|| g_tax_recovery_info_tbl(l_tax_id).tax_account_source_tax );
2461:
2462: END IF;
2463:
2499: END LOOP;
2500: END IF;
2501: IF (g_level_statement >= g_current_runtime_level ) THEN
2502: FND_LOG.STRING(g_level_statement,
2503: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2504: 'Account source tax rate id for recovery rate '|| to_char(p_rec_nrec_dist_tbl(i).account_source_tax_rate_id));
2505:
2506: END IF;
2507:
2520:
2521: END IF;
2522: IF (g_level_statement >= g_current_runtime_level ) THEN
2523: FND_LOG.STRING(g_level_statement,
2524: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2525: 'Final Account source tax rate id '|| to_char(p_rec_nrec_dist_tbl(i).account_source_tax_rate_id));
2526:
2527: END IF;
2528:
2582:
2583: END IF;
2584: IF (g_level_statement >= g_current_runtime_level ) THEN
2585: FND_LOG.STRING(g_level_statement,
2586: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2587: 'Account source tax rate id for non recoverable dist '||p_rec_nrec_dist_tbl(l_non_rec_index).account_source_tax_rate_id);
2588:
2589: END IF;
2590:
2618: ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
2619:
2620: IF (g_level_statement >= g_current_runtime_level ) THEN
2621: FND_LOG.STRING(g_level_statement,
2622: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2623: 'Error: Total Recovery Rate is greater than 100');
2624: END IF;
2625: RETURN;
2626:
2627: END IF;
2628:
2629: IF (g_level_statement >= g_current_runtime_level ) THEN
2630: FND_LOG.STRING(g_level_statement,
2631: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2632: 'p_rec_nrec_dist_tbl(' || l_non_rec_index ||
2633: ').rec_nrec_rate = '
2634: || p_rec_nrec_dist_tbl(l_non_rec_index).rec_nrec_rate);
2635: END IF;
2635: END IF;
2636:
2637: IF (g_level_procedure >= g_current_runtime_level ) THEN
2638: FND_LOG.STRING(g_level_procedure,
2639: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2640: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2641: END IF;
2642:
2643: EXCEPTION
2636:
2637: IF (g_level_procedure >= g_current_runtime_level ) THEN
2638: FND_LOG.STRING(g_level_procedure,
2639: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2640: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2641: END IF;
2642:
2643: EXCEPTION
2644: WHEN OTHERS THEN
2646: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2647:
2648: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2649: FND_LOG.STRING(g_level_unexpected,
2650: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2651: p_error_buffer);
2652: FND_LOG.STRING(g_level_unexpected,
2653: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2654: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2649: FND_LOG.STRING(g_level_unexpected,
2650: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2651: p_error_buffer);
2652: FND_LOG.STRING(g_level_unexpected,
2653: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2654: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2655: END IF;
2656: END get_rec_rate;
2657:
2650: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2651: p_error_buffer);
2652: FND_LOG.STRING(g_level_unexpected,
2653: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2654: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2655: END IF;
2656: END get_rec_rate;
2657:
2658: PROCEDURE GET_REC_NREC_DIST_AMT(
2668: BEGIN
2669: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2670: IF (g_level_procedure >= g_current_runtime_level ) THEN
2671: FND_LOG.STRING(g_level_procedure,
2672: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.BEGIN',
2673: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(+)');
2674: END IF;
2675: p_return_status:= FND_API.G_RET_STS_SUCCESS;
2676:
2669: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2670: IF (g_level_procedure >= g_current_runtime_level ) THEN
2671: FND_LOG.STRING(g_level_procedure,
2672: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.BEGIN',
2673: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(+)');
2674: END IF;
2675: p_return_status:= FND_API.G_RET_STS_SUCCESS;
2676:
2677: For i in p_rnd_begin_index..p_rnd_end_index
2694: END LOOP;
2695:
2696: IF (g_level_procedure >= g_current_runtime_level ) THEN
2697: FND_LOG.STRING(g_level_procedure,
2698: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.END',
2699: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(-)');
2700: END IF;
2701:
2702: EXCEPTION
2695:
2696: IF (g_level_procedure >= g_current_runtime_level ) THEN
2697: FND_LOG.STRING(g_level_procedure,
2698: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.END',
2699: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(-)');
2700: END IF;
2701:
2702: EXCEPTION
2703: WHEN OTHERS THEN
2705: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2706:
2707: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2708: FND_LOG.STRING(g_level_unexpected,
2709: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT',
2710: p_error_buffer);
2711: FND_LOG.STRING(g_level_unexpected,
2712: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.END',
2713: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(-)');
2708: FND_LOG.STRING(g_level_unexpected,
2709: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT',
2710: p_error_buffer);
2711: FND_LOG.STRING(g_level_unexpected,
2712: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.END',
2713: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(-)');
2714: END IF;
2715:
2716: END GET_REC_NREC_DIST_AMT;
2709: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT',
2710: p_error_buffer);
2711: FND_LOG.STRING(g_level_unexpected,
2712: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.END',
2713: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(-)');
2714: END IF;
2715:
2716: END GET_REC_NREC_DIST_AMT;
2717:
2741: BEGIN
2742: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2743: IF (g_level_procedure >= g_current_runtime_level ) THEN
2744: FND_LOG.STRING(g_level_procedure,
2745: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.BEGIN',
2746: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(+)');
2747: END IF;
2748:
2749: p_return_status:= FND_API.G_RET_STS_SUCCESS;
2742: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2743: IF (g_level_procedure >= g_current_runtime_level ) THEN
2744: FND_LOG.STRING(g_level_procedure,
2745: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.BEGIN',
2746: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(+)');
2747: END IF;
2748:
2749: p_return_status:= FND_API.G_RET_STS_SUCCESS;
2750:
2753:
2754: --p_return_status:= FND_API.G_RET_STS_ERROR;
2755: IF (g_level_statement >= g_current_runtime_level ) THEN
2756: FND_LOG.STRING(g_level_statement,
2757: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2758: 'begin or end index is null, or begin index > end index');
2759: END IF;
2760: RETURN;
2761: END IF;
2790:
2791: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2792: IF (g_level_error >= g_current_runtime_level ) THEN
2793: FND_LOG.STRING(g_level_error,
2794: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt',
2795: 'Incorrect return_status after calling ' ||
2796: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists()');
2797: FND_LOG.STRING(g_level_error,
2798: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt.END',
2792: IF (g_level_error >= g_current_runtime_level ) THEN
2793: FND_LOG.STRING(g_level_error,
2794: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt',
2795: 'Incorrect return_status after calling ' ||
2796: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists()');
2797: FND_LOG.STRING(g_level_error,
2798: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt.END',
2799: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt(-)'||p_return_status);
2800: END IF;
2794: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt',
2795: 'Incorrect return_status after calling ' ||
2796: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists()');
2797: FND_LOG.STRING(g_level_error,
2798: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt.END',
2799: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt(-)'||p_return_status);
2800: END IF;
2801: RETURN;
2802: END IF;
2795: 'Incorrect return_status after calling ' ||
2796: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists()');
2797: FND_LOG.STRING(g_level_error,
2798: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt.END',
2799: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt(-)'||p_return_status);
2800: END IF;
2801: RETURN;
2802: END IF;
2803:
2818:
2819: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS THEN
2820: IF (g_level_statement >= g_current_runtime_level ) THEN
2821: FND_LOG.STRING(g_level_statement,
2822: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2823: 'Incorrect return_status after calling ' ||
2824: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts');
2825: FND_LOG.STRING(g_level_statement,
2826: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2820: IF (g_level_statement >= g_current_runtime_level ) THEN
2821: FND_LOG.STRING(g_level_statement,
2822: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2823: 'Incorrect return_status after calling ' ||
2824: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts');
2825: FND_LOG.STRING(g_level_statement,
2826: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2827: 'RETURN_STATUS = ' || p_return_status);
2828: FND_LOG.STRING(g_level_statement,
2822: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2823: 'Incorrect return_status after calling ' ||
2824: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts');
2825: FND_LOG.STRING(g_level_statement,
2826: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2827: 'RETURN_STATUS = ' || p_return_status);
2828: FND_LOG.STRING(g_level_statement,
2829: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2830: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)');
2825: FND_LOG.STRING(g_level_statement,
2826: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2827: 'RETURN_STATUS = ' || p_return_status);
2828: FND_LOG.STRING(g_level_statement,
2829: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2830: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)');
2831: END IF;
2832: RETURN;
2833: END IF;
2826: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2827: 'RETURN_STATUS = ' || p_return_status);
2828: FND_LOG.STRING(g_level_statement,
2829: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2830: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)');
2831: END IF;
2832: RETURN;
2833: END IF;
2834:
2852:
2853: IF (g_level_procedure >= g_current_runtime_level ) THEN
2854:
2855: FND_LOG.STRING(g_level_procedure,
2856: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2857: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)'||p_return_status);
2858: END IF;
2859:
2860: EXCEPTION
2853: IF (g_level_procedure >= g_current_runtime_level ) THEN
2854:
2855: FND_LOG.STRING(g_level_procedure,
2856: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2857: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)'||p_return_status);
2858: END IF;
2859:
2860: EXCEPTION
2861: WHEN OTHERS THEN
2863: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2864:
2865: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2866: FND_LOG.STRING(g_level_unexpected,
2867: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2868: p_error_buffer);
2869: FND_LOG.STRING(g_level_unexpected,
2870: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2871: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)');
2866: FND_LOG.STRING(g_level_unexpected,
2867: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2868: p_error_buffer);
2869: FND_LOG.STRING(g_level_unexpected,
2870: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2871: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)');
2872: END IF;
2873:
2874: END ROUND_REC_NREC_AMT;
2867: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2868: p_error_buffer);
2869: FND_LOG.STRING(g_level_unexpected,
2870: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2871: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)');
2872: END IF;
2873:
2874: END ROUND_REC_NREC_AMT;
2875:
2911: BEGIN
2912:
2913: IF (g_level_procedure >= g_current_runtime_level ) THEN
2914: FND_LOG.STRING(g_level_procedure,
2915: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.BEGIN',
2916: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(+)');
2917: END IF;
2918:
2919: p_return_status:= FND_API.G_RET_STS_SUCCESS;
2912:
2913: IF (g_level_procedure >= g_current_runtime_level ) THEN
2914: FND_LOG.STRING(g_level_procedure,
2915: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.BEGIN',
2916: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(+)');
2917: END IF;
2918:
2919: p_return_status:= FND_API.G_RET_STS_SUCCESS;
2920:
2923:
2924: --p_return_status:= FND_API.G_RET_STS_ERROR;
2925: IF (g_level_statement >= g_current_runtime_level ) THEN
2926: FND_LOG.STRING(g_level_statement,
2927: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2928: 'begin or end index is null, or begin index > end index');
2929: END IF;
2930: RETURN;
2931: END IF;
2948: p_error_buffer => p_error_buffer);
2949:
2950: IF (g_level_statement >= g_current_runtime_level ) THEN
2951: FND_LOG.STRING(g_level_statement,
2952: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2953: ' i = '||to_char(i) || ' round '|| p_rec_nrec_dist_tbl(i).unrounded_rec_nrec_tax_amt ||
2954: ' to '|| p_rec_nrec_dist_tbl(i).rec_nrec_tax_amt);
2955: END IF;
2956:
2967: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
2968: THEN
2969: IF (g_level_error >= g_current_runtime_level ) THEN
2970: FND_LOG.STRING(g_level_error,
2971: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2972: 'Incorrect return_status after calling ' ||
2973: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
2974: FND_LOG.STRING(g_level_error,
2975: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2971: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2972: 'Incorrect return_status after calling ' ||
2973: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
2974: FND_LOG.STRING(g_level_error,
2975: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2976: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2977: END IF;
2978: RETURN;
2979: END IF;
2972: 'Incorrect return_status after calling ' ||
2973: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
2974: FND_LOG.STRING(g_level_error,
2975: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2976: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2977: END IF;
2978: RETURN;
2979: END IF;
2980:
3071: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3072: THEN
3073: IF (g_level_error >= g_current_runtime_level ) THEN
3074: FND_LOG.STRING(g_level_error,
3075: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3076: 'Incorrect return_status after calling ' ||
3077: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3078: FND_LOG.STRING(g_level_error,
3079: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3075: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3076: 'Incorrect return_status after calling ' ||
3077: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3078: FND_LOG.STRING(g_level_error,
3079: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3080: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3081: END IF;
3082: RETURN;
3083: END IF;
3076: 'Incorrect return_status after calling ' ||
3077: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3078: FND_LOG.STRING(g_level_error,
3079: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3080: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3081: END IF;
3082: RETURN;
3083: END IF;
3084:
3123: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3124: THEN
3125: IF (g_level_error >= g_current_runtime_level ) THEN
3126: FND_LOG.STRING(g_level_error,
3127: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3128: 'Incorrect return_status after calling ' ||
3129: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3130: FND_LOG.STRING(g_level_error,
3131: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3125: IF (g_level_error >= g_current_runtime_level ) THEN
3126: FND_LOG.STRING(g_level_error,
3127: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3128: 'Incorrect return_status after calling ' ||
3129: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3130: FND_LOG.STRING(g_level_error,
3131: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3132: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3133: END IF;
3127: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3128: 'Incorrect return_status after calling ' ||
3129: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3130: FND_LOG.STRING(g_level_error,
3131: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3132: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3133: END IF;
3134: RETURN;
3135: END IF;
3128: 'Incorrect return_status after calling ' ||
3129: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3130: FND_LOG.STRING(g_level_error,
3131: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3132: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3133: END IF;
3134: RETURN;
3135: END IF;
3136:
3139: l_rec_tax_dists_tbl_sort_flg := 'Y';
3140:
3141: -- distribute rounding difference
3142: --
3143: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
3144: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
3145: p_rounding_diff => l_rec_tax_rnd_diff,
3146: p_min_acct_unit => l_min_acct_unit,
3147: p_return_status => p_return_status,
3150: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3151: THEN
3152: IF (g_level_error >= g_current_runtime_level ) THEN
3153: FND_LOG.STRING(g_level_error,
3154: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3155: 'Incorrect return_status after calling ' ||
3156: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3157: FND_LOG.STRING(g_level_error,
3158: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3152: IF (g_level_error >= g_current_runtime_level ) THEN
3153: FND_LOG.STRING(g_level_error,
3154: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3155: 'Incorrect return_status after calling ' ||
3156: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3157: FND_LOG.STRING(g_level_error,
3158: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3159: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3160: END IF;
3154: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3155: 'Incorrect return_status after calling ' ||
3156: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3157: FND_LOG.STRING(g_level_error,
3158: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3159: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3160: END IF;
3161: RETURN;
3162: END IF;
3155: 'Incorrect return_status after calling ' ||
3156: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3157: FND_LOG.STRING(g_level_error,
3158: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3159: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3160: END IF;
3161: RETURN;
3162: END IF;
3163:
3182: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3183: THEN
3184: IF (g_level_error >= g_current_runtime_level ) THEN
3185: FND_LOG.STRING(g_level_error,
3186: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3187: 'Incorrect return_status after calling ' ||
3188: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3189: FND_LOG.STRING(g_level_error,
3190: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3184: IF (g_level_error >= g_current_runtime_level ) THEN
3185: FND_LOG.STRING(g_level_error,
3186: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3187: 'Incorrect return_status after calling ' ||
3188: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3189: FND_LOG.STRING(g_level_error,
3190: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3191: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3192: END IF;
3186: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3187: 'Incorrect return_status after calling ' ||
3188: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3189: FND_LOG.STRING(g_level_error,
3190: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3191: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3192: END IF;
3193: RETURN;
3194: END IF;
3187: 'Incorrect return_status after calling ' ||
3188: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3189: FND_LOG.STRING(g_level_error,
3190: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3191: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3192: END IF;
3193: RETURN;
3194: END IF;
3195:
3198: l_nrec_tax_dists_tbl_sort_flg := 'Y';
3199:
3200: -- distribute rounding difference
3201: --
3202: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
3203: l_non_zero_nrec_tax_dists_tbl,
3204: l_rec_tax_rnd_diff,
3205: l_min_acct_unit,
3206: p_return_status,
3209: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3210: THEN
3211: IF (g_level_error >= g_current_runtime_level ) THEN
3212: FND_LOG.STRING(g_level_error,
3213: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3214: 'Incorrect return_status after calling ' ||
3215: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3216: FND_LOG.STRING(g_level_error,
3217: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3211: IF (g_level_error >= g_current_runtime_level ) THEN
3212: FND_LOG.STRING(g_level_error,
3213: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3214: 'Incorrect return_status after calling ' ||
3215: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3216: FND_LOG.STRING(g_level_error,
3217: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3218: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3219: END IF;
3213: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3214: 'Incorrect return_status after calling ' ||
3215: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3216: FND_LOG.STRING(g_level_error,
3217: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3218: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3219: END IF;
3220: RETURN;
3221: END IF;
3214: 'Incorrect return_status after calling ' ||
3215: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3216: FND_LOG.STRING(g_level_error,
3217: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3218: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3219: END IF;
3220: RETURN;
3221: END IF;
3222:
3275: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3276: THEN
3277: IF (g_level_error >= g_current_runtime_level ) THEN
3278: FND_LOG.STRING(g_level_error,
3279: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3280: 'Incorrect return_status after calling ' ||
3281: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3282: FND_LOG.STRING(g_level_error,
3283: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3277: IF (g_level_error >= g_current_runtime_level ) THEN
3278: FND_LOG.STRING(g_level_error,
3279: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3280: 'Incorrect return_status after calling ' ||
3281: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3282: FND_LOG.STRING(g_level_error,
3283: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3284: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3285: END IF;
3279: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3280: 'Incorrect return_status after calling ' ||
3281: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3282: FND_LOG.STRING(g_level_error,
3283: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3284: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3285: END IF;
3286: RETURN;
3287: END IF;
3280: 'Incorrect return_status after calling ' ||
3281: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3282: FND_LOG.STRING(g_level_error,
3283: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3284: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3285: END IF;
3286: RETURN;
3287: END IF;
3288:
3293: END IF; -- l_nrec_tax_dists_tbl_sort_flg <> 'Y'
3294:
3295: -- distribute rounding difference
3296: --
3297: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
3298: l_non_zero_nrec_tax_dists_tbl,
3299: l_nrec_tax_rnd_diff,
3300: l_min_acct_unit,
3301: p_return_status,
3304: IF NVL(p_return_status,FND_API.G_RET_STS_ERROR)<>FND_API.G_RET_STS_SUCCESS
3305: THEN
3306: IF (g_level_error >= g_current_runtime_level ) THEN
3307: FND_LOG.STRING(g_level_error,
3308: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3309: 'Incorrect return_status after calling ' ||
3310: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3311: FND_LOG.STRING(g_level_error,
3312: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3306: IF (g_level_error >= g_current_runtime_level ) THEN
3307: FND_LOG.STRING(g_level_error,
3308: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3309: 'Incorrect return_status after calling ' ||
3310: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3311: FND_LOG.STRING(g_level_error,
3312: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3313: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3314: END IF;
3308: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3309: 'Incorrect return_status after calling ' ||
3310: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3311: FND_LOG.STRING(g_level_error,
3312: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3313: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3314: END IF;
3315: RETURN;
3316: END IF;
3309: 'Incorrect return_status after calling ' ||
3310: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3311: FND_LOG.STRING(g_level_error,
3312: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3313: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3314: END IF;
3315: RETURN;
3316: END IF;
3317:
3337: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3338: THEN
3339: IF (g_level_error >= g_current_runtime_level ) THEN
3340: FND_LOG.STRING(g_level_error,
3341: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3342: 'Incorrect return_status after calling ' ||
3343: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3344: FND_LOG.STRING(g_level_error,
3345: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3339: IF (g_level_error >= g_current_runtime_level ) THEN
3340: FND_LOG.STRING(g_level_error,
3341: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3342: 'Incorrect return_status after calling ' ||
3343: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3344: FND_LOG.STRING(g_level_error,
3345: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3346: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3347: END IF;
3341: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3342: 'Incorrect return_status after calling ' ||
3343: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3344: FND_LOG.STRING(g_level_error,
3345: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3346: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3347: END IF;
3348: RETURN;
3349: END IF;
3342: 'Incorrect return_status after calling ' ||
3343: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3344: FND_LOG.STRING(g_level_error,
3345: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3346: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3347: END IF;
3348: RETURN;
3349: END IF;
3350:
3355: END IF; -- l_nrec_tax_dists_tbl_sort_flg <> 'Y'
3356:
3357: -- distribute rounding difference
3358: --
3359: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
3360: l_non_zero_rec_tax_dists_tbl,
3361: l_nrec_tax_rnd_diff,
3362: l_min_acct_unit,
3363: p_return_status,
3366: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3367: THEN
3368: IF (g_level_error >= g_current_runtime_level ) THEN
3369: FND_LOG.STRING(g_level_error,
3370: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3371: 'Incorrect return_status after calling ' ||
3372: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3373: FND_LOG.STRING(g_level_error,
3374: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3368: IF (g_level_error >= g_current_runtime_level ) THEN
3369: FND_LOG.STRING(g_level_error,
3370: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3371: 'Incorrect return_status after calling ' ||
3372: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3373: FND_LOG.STRING(g_level_error,
3374: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3375: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3376: END IF;
3370: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3371: 'Incorrect return_status after calling ' ||
3372: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3373: FND_LOG.STRING(g_level_error,
3374: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3375: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3376: END IF;
3377: RETURN;
3378: END IF;
3371: 'Incorrect return_status after calling ' ||
3372: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3373: FND_LOG.STRING(g_level_error,
3374: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3375: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3376: END IF;
3377: RETURN;
3378: END IF;
3379:
3536:
3537: IF (g_level_procedure >= g_current_runtime_level ) THEN
3538:
3539: FND_LOG.STRING(g_level_procedure,
3540: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3541: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3542: END IF;
3543:
3544: EXCEPTION
3537: IF (g_level_procedure >= g_current_runtime_level ) THEN
3538:
3539: FND_LOG.STRING(g_level_procedure,
3540: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3541: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3542: END IF;
3543:
3544: EXCEPTION
3545:
3548: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3549:
3550: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3551: FND_LOG.STRING(g_level_unexpected,
3552: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3553: p_error_buffer);
3554: FND_LOG.STRING(g_level_unexpected,
3555: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3556: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3551: FND_LOG.STRING(g_level_unexpected,
3552: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3553: p_error_buffer);
3554: FND_LOG.STRING(g_level_unexpected,
3555: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3556: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3557: END IF;
3558:
3559: END round_tax_dists_trx_curr;
3552: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3553: p_error_buffer);
3554: FND_LOG.STRING(g_level_unexpected,
3555: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3556: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3557: END IF;
3558:
3559: END round_tax_dists_trx_curr;
3560:
3613: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3614:
3615: IF (g_level_procedure >= g_current_runtime_level ) THEN
3616: FND_LOG.STRING(g_level_procedure,
3617: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.BEGIN',
3618: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(+)');
3619: END IF;
3620:
3621: p_return_status:= FND_API.G_RET_STS_SUCCESS;
3614:
3615: IF (g_level_procedure >= g_current_runtime_level ) THEN
3616: FND_LOG.STRING(g_level_procedure,
3617: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.BEGIN',
3618: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(+)');
3619: END IF;
3620:
3621: p_return_status:= FND_API.G_RET_STS_SUCCESS;
3622:
3625:
3626: --p_return_status:= FND_API.G_RET_STS_ERROR;
3627: IF (g_level_statement >= g_current_runtime_level ) THEN
3628: FND_LOG.STRING(g_level_statement,
3629: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3630: 'begin or end index is null, or begin index > end index');
3631: END IF;
3632: RETURN;
3633: END IF;
3653: IF p_rec_nrec_dist_tbl(p_rnd_begin_index).tax_currency_code IS NULL THEN
3654: p_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
3655: IF (g_level_error >= g_current_runtime_level ) THEN
3656: FND_LOG.STRING(g_level_error,
3657: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3658: 'Tax currency code is NULL');
3659: FND_LOG.STRING(g_level_error,
3660: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3661: 'p_return_status = ' || p_return_status);
3656: FND_LOG.STRING(g_level_error,
3657: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3658: 'Tax currency code is NULL');
3659: FND_LOG.STRING(g_level_error,
3660: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3661: 'p_return_status = ' || p_return_status);
3662: END IF;
3663: RETURN;
3664: END IF;
3711: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3712: THEN
3713: IF (g_level_error >= g_current_runtime_level ) THEN
3714: FND_LOG.STRING(g_level_error,
3715: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3716: 'Incorrect return_status after calling ' ||
3717: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3718: FND_LOG.STRING(g_level_error,
3719: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3715: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3716: 'Incorrect return_status after calling ' ||
3717: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3718: FND_LOG.STRING(g_level_error,
3719: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3720: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3721: END IF;
3722: RETURN;
3723: END IF;
3716: 'Incorrect return_status after calling ' ||
3717: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3718: FND_LOG.STRING(g_level_error,
3719: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3720: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3721: END IF;
3722: RETURN;
3723: END IF;
3724:
3736: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3737: THEN
3738: IF (g_level_error >= g_current_runtime_level ) THEN
3739: FND_LOG.STRING(g_level_error,
3740: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3741: 'Incorrect return_status after calling ' ||
3742: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3743: FND_LOG.STRING(g_level_error,
3744: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3740: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3741: 'Incorrect return_status after calling ' ||
3742: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3743: FND_LOG.STRING(g_level_error,
3744: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3745: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3746: END IF;
3747: RETURN;
3748: END IF;
3741: 'Incorrect return_status after calling ' ||
3742: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3743: FND_LOG.STRING(g_level_error,
3744: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3745: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3746: END IF;
3747: RETURN;
3748: END IF;
3749:
3843: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3844: THEN
3845: IF (g_level_error >= g_current_runtime_level ) THEN
3846: FND_LOG.STRING(g_level_error,
3847: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3848: 'Incorrect return_status after calling ' ||
3849: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3850: FND_LOG.STRING(g_level_error,
3851: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3847: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3848: 'Incorrect return_status after calling ' ||
3849: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3850: FND_LOG.STRING(g_level_error,
3851: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3852: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3853: END IF;
3854: RETURN;
3855: END IF;
3848: 'Incorrect return_status after calling ' ||
3849: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3850: FND_LOG.STRING(g_level_error,
3851: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3852: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3853: END IF;
3854: RETURN;
3855: END IF;
3856:
3877: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3878: THEN
3879: IF (g_level_error >= g_current_runtime_level ) THEN
3880: FND_LOG.STRING(g_level_error,
3881: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3882: 'Incorrect return_status after calling ' ||
3883: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3884: FND_LOG.STRING(g_level_error,
3885: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3881: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3882: 'Incorrect return_status after calling ' ||
3883: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3884: FND_LOG.STRING(g_level_error,
3885: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3886: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3887: END IF;
3888: RETURN;
3889: END IF;
3882: 'Incorrect return_status after calling ' ||
3883: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3884: FND_LOG.STRING(g_level_error,
3885: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3886: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3887: END IF;
3888: RETURN;
3889: END IF;
3890:
3906: IF l_non_zero_rec_tax_dists_tbl.COUNT > 0 THEN
3907:
3908: -- sort l_non_zero_rec_tax_dists_tbl
3909: --
3910: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
3911: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
3912: p_return_status => p_return_status,
3913: p_error_buffer => p_error_buffer);
3914:
3915: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3916: THEN
3917: IF (g_level_error >= g_current_runtime_level ) THEN
3918: FND_LOG.STRING(g_level_error,
3919: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3920: 'Incorrect return_status after calling ' ||
3921: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3922: FND_LOG.STRING(g_level_error,
3923: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3917: IF (g_level_error >= g_current_runtime_level ) THEN
3918: FND_LOG.STRING(g_level_error,
3919: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3920: 'Incorrect return_status after calling ' ||
3921: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3922: FND_LOG.STRING(g_level_error,
3923: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3924: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3925: END IF;
3919: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3920: 'Incorrect return_status after calling ' ||
3921: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3922: FND_LOG.STRING(g_level_error,
3923: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3924: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3925: END IF;
3926: RETURN;
3927: END IF;
3920: 'Incorrect return_status after calling ' ||
3921: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3922: FND_LOG.STRING(g_level_error,
3923: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3924: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3925: END IF;
3926: RETURN;
3927: END IF;
3928:
3931: l_rec_tax_dists_tbl_sort_flg := 'Y';
3932:
3933: -- distribute rounding difference
3934: --
3935: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
3936: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
3937: p_rounding_diff => l_rec_tax_rnd_diff_tax_curr,
3938: p_min_acct_unit => l_min_acct_unit_tax_curr,
3939: p_return_status => p_return_status,
3942: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3943: THEN
3944: IF (g_level_error >= g_current_runtime_level ) THEN
3945: FND_LOG.STRING(g_level_error,
3946: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3947: 'Incorrect return_status after calling ' ||
3948: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3949: FND_LOG.STRING(g_level_error,
3950: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3944: IF (g_level_error >= g_current_runtime_level ) THEN
3945: FND_LOG.STRING(g_level_error,
3946: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3947: 'Incorrect return_status after calling ' ||
3948: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3949: FND_LOG.STRING(g_level_error,
3950: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3951: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3952: END IF;
3946: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3947: 'Incorrect return_status after calling ' ||
3948: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3949: FND_LOG.STRING(g_level_error,
3950: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3951: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3952: END IF;
3953: RETURN;
3954: END IF;
3947: 'Incorrect return_status after calling ' ||
3948: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3949: FND_LOG.STRING(g_level_error,
3950: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3951: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3952: END IF;
3953: RETURN;
3954: END IF;
3955:
3965: ELSIF l_non_zero_nrec_tax_dists_tbl.COUNT > 0 THEN
3966:
3967: -- sort l_non_zero_nrec_tax_dists_tbl
3968: --
3969: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
3970: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
3971: p_return_status => p_return_status,
3972: p_error_buffer => p_error_buffer);
3973:
3974: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3975: THEN
3976: IF (g_level_error >= g_current_runtime_level ) THEN
3977: FND_LOG.STRING(g_level_error,
3978: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3979: 'Incorrect return_status after calling ' ||
3980: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3981: FND_LOG.STRING(g_level_error,
3982: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3976: IF (g_level_error >= g_current_runtime_level ) THEN
3977: FND_LOG.STRING(g_level_error,
3978: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3979: 'Incorrect return_status after calling ' ||
3980: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3981: FND_LOG.STRING(g_level_error,
3982: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3983: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3984: END IF;
3978: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3979: 'Incorrect return_status after calling ' ||
3980: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3981: FND_LOG.STRING(g_level_error,
3982: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3983: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3984: END IF;
3985: RETURN;
3986: END IF;
3979: 'Incorrect return_status after calling ' ||
3980: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3981: FND_LOG.STRING(g_level_error,
3982: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3983: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3984: END IF;
3985: RETURN;
3986: END IF;
3987:
3990: l_nrec_tax_dists_tbl_sort_flg := 'Y';
3991:
3992: -- distribute rounding difference
3993: --
3994: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
3995: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
3996: p_rounding_diff => l_rec_tax_rnd_diff_tax_curr,
3997: p_min_acct_unit => l_min_acct_unit_tax_curr,
3998: p_return_status => p_return_status,
4001: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4002: THEN
4003: IF (g_level_error >= g_current_runtime_level ) THEN
4004: FND_LOG.STRING(g_level_error,
4005: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4006: 'Incorrect return_status after calling ' ||
4007: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4008: FND_LOG.STRING(g_level_error,
4009: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4003: IF (g_level_error >= g_current_runtime_level ) THEN
4004: FND_LOG.STRING(g_level_error,
4005: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4006: 'Incorrect return_status after calling ' ||
4007: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4008: FND_LOG.STRING(g_level_error,
4009: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4010: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4011: END IF;
4005: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4006: 'Incorrect return_status after calling ' ||
4007: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4008: FND_LOG.STRING(g_level_error,
4009: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4010: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4011: END IF;
4012: RETURN;
4013: END IF;
4006: 'Incorrect return_status after calling ' ||
4007: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4008: FND_LOG.STRING(g_level_error,
4009: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4010: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4011: END IF;
4012: RETURN;
4013: END IF;
4014:
4034:
4035: IF NVL(l_nrec_tax_dists_tbl_sort_flg, 'N') <> 'Y' THEN
4036: -- sort l_non_zero_nrec_tax_dists_tbl
4037: --
4038: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
4039: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
4040: p_return_status => p_return_status,
4041: p_error_buffer => p_error_buffer);
4042:
4043: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4044: THEN
4045: IF (g_level_error >= g_current_runtime_level ) THEN
4046: FND_LOG.STRING(g_level_error,
4047: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4048: 'Incorrect return_status after calling ' ||
4049: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4050: FND_LOG.STRING(g_level_error,
4051: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4045: IF (g_level_error >= g_current_runtime_level ) THEN
4046: FND_LOG.STRING(g_level_error,
4047: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4048: 'Incorrect return_status after calling ' ||
4049: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4050: FND_LOG.STRING(g_level_error,
4051: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4052: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4053: END IF;
4047: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4048: 'Incorrect return_status after calling ' ||
4049: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4050: FND_LOG.STRING(g_level_error,
4051: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4052: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4053: END IF;
4054: RETURN;
4055: END IF;
4048: 'Incorrect return_status after calling ' ||
4049: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4050: FND_LOG.STRING(g_level_error,
4051: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4052: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4053: END IF;
4054: RETURN;
4055: END IF;
4056:
4061: END IF; -- l_nrec_tax_dists_tbl_sort_flg <> 'Y'
4062:
4063: -- distribute rounding difference
4064: --
4065: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
4066: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
4067: p_rounding_diff => l_nrec_tax_rnd_diff_tax_curr,
4068: p_min_acct_unit => l_min_acct_unit_tax_curr,
4069: p_return_status => p_return_status,
4072: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4073: THEN
4074: IF (g_level_error >= g_current_runtime_level ) THEN
4075: FND_LOG.STRING(g_level_error,
4076: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4077: 'Incorrect return_status after calling ' ||
4078: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4079: FND_LOG.STRING(g_level_error,
4080: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4074: IF (g_level_error >= g_current_runtime_level ) THEN
4075: FND_LOG.STRING(g_level_error,
4076: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4077: 'Incorrect return_status after calling ' ||
4078: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4079: FND_LOG.STRING(g_level_error,
4080: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4081: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4082: END IF;
4076: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4077: 'Incorrect return_status after calling ' ||
4078: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4079: FND_LOG.STRING(g_level_error,
4080: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4081: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4082: END IF;
4083: RETURN;
4084: END IF;
4077: 'Incorrect return_status after calling ' ||
4078: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4079: FND_LOG.STRING(g_level_error,
4080: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4081: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4082: END IF;
4083: RETURN;
4084: END IF;
4085:
4096:
4097: IF NVL(l_rec_tax_dists_tbl_sort_flg, 'N') <> 'Y' THEN
4098: -- sort l_non_zero_nrec_tax_dists_tbl
4099: --
4100: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
4101: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
4102: p_return_status => p_return_status,
4103: p_error_buffer => p_error_buffer);
4104:
4105: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4106: THEN
4107: IF (g_level_error >= g_current_runtime_level ) THEN
4108: FND_LOG.STRING(g_level_error,
4109: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4110: 'Incorrect return_status after calling ' ||
4111: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4112: FND_LOG.STRING(g_level_error,
4113: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4107: IF (g_level_error >= g_current_runtime_level ) THEN
4108: FND_LOG.STRING(g_level_error,
4109: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4110: 'Incorrect return_status after calling ' ||
4111: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4112: FND_LOG.STRING(g_level_error,
4113: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4114: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4115: END IF;
4109: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4110: 'Incorrect return_status after calling ' ||
4111: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4112: FND_LOG.STRING(g_level_error,
4113: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4114: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4115: END IF;
4116: RETURN;
4117: END IF;
4110: 'Incorrect return_status after calling ' ||
4111: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4112: FND_LOG.STRING(g_level_error,
4113: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4114: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4115: END IF;
4116: RETURN;
4117: END IF;
4118:
4123: END IF; -- l_nrec_tax_dists_tbl_sort_flg <> 'Y'
4124:
4125: -- distribute rounding difference
4126: --
4127: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
4128: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
4129: p_rounding_diff => l_nrec_tax_rnd_diff_tax_curr,
4130: p_min_acct_unit => l_min_acct_unit_tax_curr,
4131: p_return_status => p_return_status,
4134: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4135: THEN
4136: IF (g_level_error >= g_current_runtime_level ) THEN
4137: FND_LOG.STRING(g_level_error,
4138: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4139: 'Incorrect return_status after calling ' ||
4140: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4141: FND_LOG.STRING(g_level_error,
4142: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4136: IF (g_level_error >= g_current_runtime_level ) THEN
4137: FND_LOG.STRING(g_level_error,
4138: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4139: 'Incorrect return_status after calling ' ||
4140: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4141: FND_LOG.STRING(g_level_error,
4142: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4143: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4144: END IF;
4138: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4139: 'Incorrect return_status after calling ' ||
4140: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4141: FND_LOG.STRING(g_level_error,
4142: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4143: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4144: END IF;
4145: RETURN;
4146: END IF;
4139: 'Incorrect return_status after calling ' ||
4140: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4141: FND_LOG.STRING(g_level_error,
4142: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4143: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4144: END IF;
4145: RETURN;
4146: END IF;
4147:
4242: IF NVL(p_return_status,FND_API.G_RET_STS_ERROR)<>FND_API.G_RET_STS_SUCCESS
4243: THEN
4244: IF (g_level_error >= g_current_runtime_level ) THEN
4245: FND_LOG.STRING(g_level_error,
4246: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4247: 'Incorrect return_status after calling ' ||
4248: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
4249: FND_LOG.STRING(g_level_error,
4250: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4246: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4247: 'Incorrect return_status after calling ' ||
4248: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
4249: FND_LOG.STRING(g_level_error,
4250: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4251: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4252: END IF;
4253: RETURN;
4254: END IF;
4247: 'Incorrect return_status after calling ' ||
4248: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
4249: FND_LOG.STRING(g_level_error,
4250: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4251: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4252: END IF;
4253: RETURN;
4254: END IF;
4255:
4267: IF NVL(p_return_status,FND_API.G_RET_STS_ERROR)<>FND_API.G_RET_STS_SUCCESS
4268: THEN
4269: IF (g_level_error >= g_current_runtime_level ) THEN
4270: FND_LOG.STRING(g_level_error,
4271: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4272: 'Incorrect return_status after calling ' ||
4273: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
4274: FND_LOG.STRING(g_level_error,
4275: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4271: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4272: 'Incorrect return_status after calling ' ||
4273: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
4274: FND_LOG.STRING(g_level_error,
4275: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4276: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4277: END IF;
4278: RETURN;
4279: END IF;
4272: 'Incorrect return_status after calling ' ||
4273: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
4274: FND_LOG.STRING(g_level_error,
4275: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4276: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4277: END IF;
4278: RETURN;
4279: END IF;
4280: END IF; -- NVL(p_rec_nrec_dist_tbl(i).reverse_flag,'N') = 'N'
4310: IF NVL(p_return_status,FND_API.G_RET_STS_ERROR)<>FND_API.G_RET_STS_SUCCESS
4311: THEN
4312: IF (g_level_error >= g_current_runtime_level ) THEN
4313: FND_LOG.STRING(g_level_error,
4314: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4315: 'Incorrect return_status after calling ' ||
4316: 'ZX_TDS_UTILITIES_PKG.populate_currency_cache()');
4317: FND_LOG.STRING(g_level_error,
4318: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4314: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4315: 'Incorrect return_status after calling ' ||
4316: 'ZX_TDS_UTILITIES_PKG.populate_currency_cache()');
4317: FND_LOG.STRING(g_level_error,
4318: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4319: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4320: END IF;
4321: RETURN;
4322: END IF;
4315: 'Incorrect return_status after calling ' ||
4316: 'ZX_TDS_UTILITIES_PKG.populate_currency_cache()');
4317: FND_LOG.STRING(g_level_error,
4318: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4319: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4320: END IF;
4321: RETURN;
4322: END IF;
4323: END IF;
4355:
4356: IF (g_level_procedure >= g_current_runtime_level ) THEN
4357:
4358: FND_LOG.STRING(g_level_procedure,
4359: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4360: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||
4361: 'Functional currency is the same as transaction currency, no conversion is performed');
4362: END IF;
4363: RETURN;
4356: IF (g_level_procedure >= g_current_runtime_level ) THEN
4357:
4358: FND_LOG.STRING(g_level_procedure,
4359: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4360: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||
4361: 'Functional currency is the same as transaction currency, no conversion is performed');
4362: END IF;
4363: RETURN;
4364: END IF;
4543: IF NVL(l_rec_tax_dists_tbl_sort_flg, 'N') <> 'Y' THEN
4544:
4545: -- sort l_non_zero_rec_tax_dists_tbl
4546: --
4547: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
4548: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
4549: p_return_status => p_return_status,
4550: p_error_buffer => p_error_buffer);
4551:
4552: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4553: THEN
4554: IF (g_level_error >= g_current_runtime_level ) THEN
4555: FND_LOG.STRING(g_level_error,
4556: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4557: 'Incorrect return_status after calling ' ||
4558: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4559: FND_LOG.STRING(g_level_error,
4560: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4554: IF (g_level_error >= g_current_runtime_level ) THEN
4555: FND_LOG.STRING(g_level_error,
4556: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4557: 'Incorrect return_status after calling ' ||
4558: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4559: FND_LOG.STRING(g_level_error,
4560: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4561: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4562: END IF;
4556: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4557: 'Incorrect return_status after calling ' ||
4558: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4559: FND_LOG.STRING(g_level_error,
4560: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4561: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4562: END IF;
4563: RETURN;
4564: END IF;
4557: 'Incorrect return_status after calling ' ||
4558: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4559: FND_LOG.STRING(g_level_error,
4560: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4561: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4562: END IF;
4563: RETURN;
4564: END IF;
4565:
4568: l_rec_tax_dists_tbl_sort_flg := 'Y';
4569:
4570: END IF; -- l_rec_tax_dists_tbl_sort_flg <> 'Y'
4571:
4572: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
4573: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
4574: p_rounding_diff => l_rec_tax_rnd_diff_funcl_curr,
4575: p_min_acct_unit => l_min_acct_unit_funcl_curr,
4576: p_return_status => p_return_status,
4590:
4591: IF NVL(l_nrec_tax_dists_tbl_sort_flg, 'N') <> 'Y' THEN
4592: -- sort l_non_zero_nrec_tax_dists_tbl
4593: --
4594: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
4595: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
4596: p_return_status => p_return_status,
4597: p_error_buffer => p_error_buffer);
4598:
4599: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4600: THEN
4601: IF (g_level_error >= g_current_runtime_level ) THEN
4602: FND_LOG.STRING(g_level_error,
4603: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4604: 'Incorrect return_status after calling ' ||
4605: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4606: FND_LOG.STRING(g_level_error,
4607: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4601: IF (g_level_error >= g_current_runtime_level ) THEN
4602: FND_LOG.STRING(g_level_error,
4603: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4604: 'Incorrect return_status after calling ' ||
4605: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4606: FND_LOG.STRING(g_level_error,
4607: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4608: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4609: END IF;
4603: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4604: 'Incorrect return_status after calling ' ||
4605: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4606: FND_LOG.STRING(g_level_error,
4607: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4608: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4609: END IF;
4610: RETURN;
4611: END IF;
4604: 'Incorrect return_status after calling ' ||
4605: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4606: FND_LOG.STRING(g_level_error,
4607: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4608: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4609: END IF;
4610: RETURN;
4611: END IF;
4612:
4615: l_nrec_tax_dists_tbl_sort_flg := 'Y';
4616:
4617: END IF; -- l_nrec_tax_dists_tbl_sort_flg <> 'Y'
4618:
4619: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
4620: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
4621: p_rounding_diff => l_rec_tax_rnd_diff_funcl_curr,
4622: p_min_acct_unit => l_min_acct_unit_funcl_curr,
4623: p_return_status => p_return_status,
4626: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4627: THEN
4628: IF (g_level_error >= g_current_runtime_level ) THEN
4629: FND_LOG.STRING(g_level_error,
4630: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4631: 'Incorrect return_status after calling ' ||
4632: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4633: FND_LOG.STRING(g_level_error,
4634: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4628: IF (g_level_error >= g_current_runtime_level ) THEN
4629: FND_LOG.STRING(g_level_error,
4630: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4631: 'Incorrect return_status after calling ' ||
4632: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4633: FND_LOG.STRING(g_level_error,
4634: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4635: 'RETURN_STATUS = ' || p_return_status);
4636: FND_LOG.STRING(g_level_error,
4630: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4631: 'Incorrect return_status after calling ' ||
4632: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4633: FND_LOG.STRING(g_level_error,
4634: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4635: 'RETURN_STATUS = ' || p_return_status);
4636: FND_LOG.STRING(g_level_error,
4637: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4638: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4633: FND_LOG.STRING(g_level_error,
4634: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4635: 'RETURN_STATUS = ' || p_return_status);
4636: FND_LOG.STRING(g_level_error,
4637: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4638: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4639: END IF;
4640: RETURN;
4641: END IF;
4634: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4635: 'RETURN_STATUS = ' || p_return_status);
4636: FND_LOG.STRING(g_level_error,
4637: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4638: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4639: END IF;
4640: RETURN;
4641: END IF;
4642:
4661:
4662: IF NVL(l_nrec_tax_dists_tbl_sort_flg, 'N') <> 'Y' THEN
4663: -- sort l_non_zero_nrec_tax_dists_tbl
4664: --
4665: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
4666: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
4667: p_return_status => p_return_status,
4668: p_error_buffer => p_error_buffer);
4669:
4670: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4671: THEN
4672: IF (g_level_error >= g_current_runtime_level ) THEN
4673: FND_LOG.STRING(g_level_error,
4674: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4675: 'Incorrect return_status after calling ' ||
4676: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4677: FND_LOG.STRING(g_level_error,
4678: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4672: IF (g_level_error >= g_current_runtime_level ) THEN
4673: FND_LOG.STRING(g_level_error,
4674: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4675: 'Incorrect return_status after calling ' ||
4676: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4677: FND_LOG.STRING(g_level_error,
4678: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4679: 'RETURN_STATUS = ' || p_return_status);
4680: FND_LOG.STRING(g_level_error,
4674: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4675: 'Incorrect return_status after calling ' ||
4676: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4677: FND_LOG.STRING(g_level_error,
4678: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4679: 'RETURN_STATUS = ' || p_return_status);
4680: FND_LOG.STRING(g_level_error,
4681: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4682: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4677: FND_LOG.STRING(g_level_error,
4678: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4679: 'RETURN_STATUS = ' || p_return_status);
4680: FND_LOG.STRING(g_level_error,
4681: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4682: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4683: END IF;
4684: RETURN;
4685: END IF;
4678: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4679: 'RETURN_STATUS = ' || p_return_status);
4680: FND_LOG.STRING(g_level_error,
4681: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4682: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4683: END IF;
4684: RETURN;
4685: END IF;
4686:
4689: l_nrec_tax_dists_tbl_sort_flg := 'Y';
4690:
4691: END IF; -- l_nrec_tax_dists_tbl_sort_flg <> 'Y'
4692:
4693: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
4694: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
4695: p_rounding_diff => l_nrec_tax_rnd_diff_funcl_curr,
4696: p_min_acct_unit => l_min_acct_unit_funcl_curr,
4697: p_return_status => p_return_status,
4700: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4701: THEN
4702: IF (g_level_error >= g_current_runtime_level ) THEN
4703: FND_LOG.STRING(g_level_error,
4704: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4705: 'Incorrect return_status after calling ' ||
4706: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4707: FND_LOG.STRING(g_level_error,
4708: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4702: IF (g_level_error >= g_current_runtime_level ) THEN
4703: FND_LOG.STRING(g_level_error,
4704: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4705: 'Incorrect return_status after calling ' ||
4706: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4707: FND_LOG.STRING(g_level_error,
4708: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4709: 'RETURN_STATUS = ' || p_return_status);
4710: FND_LOG.STRING(g_level_error,
4704: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4705: 'Incorrect return_status after calling ' ||
4706: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4707: FND_LOG.STRING(g_level_error,
4708: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4709: 'RETURN_STATUS = ' || p_return_status);
4710: FND_LOG.STRING(g_level_error,
4711: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4712: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4707: FND_LOG.STRING(g_level_error,
4708: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4709: 'RETURN_STATUS = ' || p_return_status);
4710: FND_LOG.STRING(g_level_error,
4711: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4712: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4713: END IF;
4714: RETURN;
4715: END IF;
4708: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4709: 'RETURN_STATUS = ' || p_return_status);
4710: FND_LOG.STRING(g_level_error,
4711: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4712: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4713: END IF;
4714: RETURN;
4715: END IF;
4716:
4728:
4729: IF NVL(l_rec_tax_dists_tbl_sort_flg, 'N') <> 'Y' THEN
4730: -- sort l_non_zero_rec_tax_dists_tbl
4731: --
4732: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
4733: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
4734: p_return_status => p_return_status,
4735: p_error_buffer => p_error_buffer);
4736:
4737: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4738: THEN
4739: IF (g_level_error >= g_current_runtime_level ) THEN
4740: FND_LOG.STRING(g_level_error,
4741: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4742: 'Incorrect return_status after calling ' ||
4743: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4744: FND_LOG.STRING(g_level_error,
4745: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4739: IF (g_level_error >= g_current_runtime_level ) THEN
4740: FND_LOG.STRING(g_level_error,
4741: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4742: 'Incorrect return_status after calling ' ||
4743: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4744: FND_LOG.STRING(g_level_error,
4745: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4746: 'RETURN_STATUS = ' || p_return_status);
4747: FND_LOG.STRING(g_level_error,
4741: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4742: 'Incorrect return_status after calling ' ||
4743: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4744: FND_LOG.STRING(g_level_error,
4745: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4746: 'RETURN_STATUS = ' || p_return_status);
4747: FND_LOG.STRING(g_level_error,
4748: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4749: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4744: FND_LOG.STRING(g_level_error,
4745: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4746: 'RETURN_STATUS = ' || p_return_status);
4747: FND_LOG.STRING(g_level_error,
4748: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4749: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4750: END IF;
4751: RETURN;
4752: END IF;
4745: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4746: 'RETURN_STATUS = ' || p_return_status);
4747: FND_LOG.STRING(g_level_error,
4748: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4749: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4750: END IF;
4751: RETURN;
4752: END IF;
4753:
4756: l_rec_tax_dists_tbl_sort_flg := 'Y';
4757:
4758: END IF; -- l_rec_tax_dists_tbl_sort_flg <> 'Y'
4759:
4760: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
4761: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
4762: p_rounding_diff => l_nrec_tax_rnd_diff_funcl_curr,
4763: p_min_acct_unit => l_min_acct_unit_funcl_curr,
4764: p_return_status => p_return_status,
4767: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4768: THEN
4769: IF (g_level_error >= g_current_runtime_level ) THEN
4770: FND_LOG.STRING(g_level_error,
4771: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4772: 'Incorrect return_status after calling ' ||
4773: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4774: FND_LOG.STRING(g_level_error,
4775: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4769: IF (g_level_error >= g_current_runtime_level ) THEN
4770: FND_LOG.STRING(g_level_error,
4771: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4772: 'Incorrect return_status after calling ' ||
4773: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4774: FND_LOG.STRING(g_level_error,
4775: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4776: 'RETURN_STATUS = ' || p_return_status);
4777: FND_LOG.STRING(g_level_error,
4771: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4772: 'Incorrect return_status after calling ' ||
4773: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4774: FND_LOG.STRING(g_level_error,
4775: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4776: 'RETURN_STATUS = ' || p_return_status);
4777: FND_LOG.STRING(g_level_error,
4778: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4779: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4774: FND_LOG.STRING(g_level_error,
4775: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4776: 'RETURN_STATUS = ' || p_return_status);
4777: FND_LOG.STRING(g_level_error,
4778: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4779: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4780: END IF;
4781: RETURN;
4782: END IF;
4775: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4776: 'RETURN_STATUS = ' || p_return_status);
4777: FND_LOG.STRING(g_level_error,
4778: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4779: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4780: END IF;
4781: RETURN;
4782: END IF;
4783:
4822:
4823:
4824: IF (g_level_statement >= g_current_runtime_level ) THEN
4825: FND_LOG.STRING(g_level_statement,
4826: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4827: 'Rounding Dif adjusted to the largest non-rec tax dist '||l_index);
4828: END IF;
4829:
4830: ELSIF l_non_zero_rec_tax_dists_tbl.COUNT > 0 THEN
4841: l_tax_line_rnd_diff_funcl_curr;
4842:
4843: IF (g_level_statement >= g_current_runtime_level ) THEN
4844: FND_LOG.STRING(g_level_statement,
4845: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4846: 'Rounding Dif adjusted to the largest rec tax dist '||l_index);
4847: END IF;
4848:
4849: END IF;
4869:
4870:
4871: IF (g_level_statement >= g_current_runtime_level ) THEN
4872: FND_LOG.STRING(g_level_statement,
4873: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4874: 'Rounding Dif adjusted to the largest rec tax dist '||l_index);
4875: END IF;
4876:
4877:
4890: l_tax_line_rnd_diff_funcl_curr;
4891:
4892: IF (g_level_statement >= g_current_runtime_level ) THEN
4893: FND_LOG.STRING(g_level_statement,
4894: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4895: 'Rounding Dif adjusted to the largest non-rec tax dist '||l_index);
4896: END IF;
4897:
4898: END IF;
4923: ELSE -- p_rec_nrec_dist_tbl(i).ledger_id IS NULL
4924: IF (g_level_procedure >= g_current_runtime_level ) THEN
4925:
4926: FND_LOG.STRING(g_level_procedure,
4927: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4928: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||
4929: ' null Ledger_id cannot perform conversion to functional currency');
4930: END IF;
4931: END IF;
4924: IF (g_level_procedure >= g_current_runtime_level ) THEN
4925:
4926: FND_LOG.STRING(g_level_procedure,
4927: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4928: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||
4929: ' null Ledger_id cannot perform conversion to functional currency');
4930: END IF;
4931: END IF;
4932: --
4934:
4935: IF (g_level_procedure >= g_current_runtime_level ) THEN
4936:
4937: FND_LOG.STRING(g_level_procedure,
4938: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4939: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4940: END IF;
4941:
4942: EXCEPTION
4935: IF (g_level_procedure >= g_current_runtime_level ) THEN
4936:
4937: FND_LOG.STRING(g_level_procedure,
4938: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4939: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4940: END IF;
4941:
4942: EXCEPTION
4943:
4946: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4947:
4948: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4949: FND_LOG.STRING(g_level_unexpected,
4950: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4951: p_error_buffer);
4952: FND_LOG.STRING(g_level_unexpected,
4953: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4954: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4949: FND_LOG.STRING(g_level_unexpected,
4950: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4951: p_error_buffer);
4952: FND_LOG.STRING(g_level_unexpected,
4953: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4954: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4955: END IF;
4956:
4957: END convert_tax_dists;
4950: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4951: p_error_buffer);
4952: FND_LOG.STRING(g_level_unexpected,
4953: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4954: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4955: END IF;
4956:
4957: END convert_tax_dists;
4958:
4973: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4974:
4975: IF (g_level_procedure >= g_current_runtime_level ) THEN
4976: FND_LOG.STRING(g_level_procedure,
4977: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.BEGIN',
4978: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(+)'||
4979: 'p_rounding_diff = ' || p_rounding_diff);
4980: END IF;
4981:
4974:
4975: IF (g_level_procedure >= g_current_runtime_level ) THEN
4976: FND_LOG.STRING(g_level_procedure,
4977: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.BEGIN',
4978: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(+)'||
4979: 'p_rounding_diff = ' || p_rounding_diff);
4980: END IF;
4981:
4982: p_return_status:= FND_API.G_RET_STS_SUCCESS;
4986: IF p_rounding_diff = 0 THEN
4987: IF (g_level_procedure >= g_current_runtime_level ) THEN
4988:
4989: FND_LOG.STRING(g_level_procedure,
4990: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
4991: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)'||'no diff');
4992: END IF;
4993: RETURN;
4994:
4987: IF (g_level_procedure >= g_current_runtime_level ) THEN
4988:
4989: FND_LOG.STRING(g_level_procedure,
4990: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
4991: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)'||'no diff');
4992: END IF;
4993: RETURN;
4994:
4995: ELSE
5024: ELSE -- p_index_amt_tbl.COUNT = 0
5025: IF (g_level_procedure >= g_current_runtime_level ) THEN
5026:
5027: FND_LOG.STRING(g_level_procedure,
5028: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
5029: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)'||
5030: 'p_index_amt_tbl is empty');
5031: END IF;
5032: RETURN;
5025: IF (g_level_procedure >= g_current_runtime_level ) THEN
5026:
5027: FND_LOG.STRING(g_level_procedure,
5028: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
5029: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)'||
5030: 'p_index_amt_tbl is empty');
5031: END IF;
5032: RETURN;
5033: END IF; -- p_index_amt_tbl.COUNT > 0 OR NOT
5034: END IF; -- p_rounding_diff <> 0 OR NOT
5035:
5036: IF (g_level_procedure >= g_current_runtime_level ) THEN
5037: FND_LOG.STRING(g_level_procedure,
5038: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
5039: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)'||
5040: p_return_status);
5041: END IF;
5042:
5035:
5036: IF (g_level_procedure >= g_current_runtime_level ) THEN
5037: FND_LOG.STRING(g_level_procedure,
5038: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
5039: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)'||
5040: p_return_status);
5041: END IF;
5042:
5043: EXCEPTION
5047: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5048:
5049: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5050: FND_LOG.STRING(g_level_unexpected,
5051: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff',
5052: p_error_buffer);
5053: FND_LOG.STRING(g_level_unexpected,
5054: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
5055: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)');
5050: FND_LOG.STRING(g_level_unexpected,
5051: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff',
5052: p_error_buffer);
5053: FND_LOG.STRING(g_level_unexpected,
5054: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
5055: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)');
5056: END IF;
5057:
5058: END distribute_rounding_diff;
5051: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff',
5052: p_error_buffer);
5053: FND_LOG.STRING(g_level_unexpected,
5054: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
5055: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)');
5056: END IF;
5057:
5058: END distribute_rounding_diff;
5059:
5074: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5075:
5076: IF (g_level_procedure >= g_current_runtime_level ) THEN
5077: FND_LOG.STRING(g_level_procedure,
5078: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.BEGIN',
5079: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(+)');
5080: END IF;
5081:
5082: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5075:
5076: IF (g_level_procedure >= g_current_runtime_level ) THEN
5077: FND_LOG.STRING(g_level_procedure,
5078: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.BEGIN',
5079: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(+)');
5080: END IF;
5081:
5082: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5083:
5124:
5125: IF (g_level_procedure >= g_current_runtime_level ) THEN
5126:
5127: FND_LOG.STRING(g_level_procedure,
5128: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.END',
5129: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(-)'||p_return_status);
5130: END IF;
5131:
5132: EXCEPTION
5125: IF (g_level_procedure >= g_current_runtime_level ) THEN
5126:
5127: FND_LOG.STRING(g_level_procedure,
5128: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.END',
5129: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(-)'||p_return_status);
5130: END IF;
5131:
5132: EXCEPTION
5133:
5136: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5137:
5138: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5139: FND_LOG.STRING(g_level_unexpected,
5140: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc',
5141: p_error_buffer);
5142: FND_LOG.STRING(g_level_unexpected,
5143: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.END',
5144: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(-)');
5139: FND_LOG.STRING(g_level_unexpected,
5140: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc',
5141: p_error_buffer);
5142: FND_LOG.STRING(g_level_unexpected,
5143: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.END',
5144: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(-)');
5145: END IF;
5146:
5147: END sort_tbl_amt_desc;
5140: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc',
5141: p_error_buffer);
5142: FND_LOG.STRING(g_level_unexpected,
5143: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.END',
5144: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(-)');
5145: END IF;
5146:
5147: END sort_tbl_amt_desc;
5148:
5208:
5209: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5210: IF (g_level_procedure >= g_current_runtime_level ) THEN
5211: FND_LOG.STRING(g_level_procedure,
5212: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.BEGIN',
5213: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(+)');
5214: END IF;
5215:
5216: p_return_status := FND_API.G_RET_STS_SUCCESS;
5209: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5210: IF (g_level_procedure >= g_current_runtime_level ) THEN
5211: FND_LOG.STRING(g_level_procedure,
5212: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.BEGIN',
5213: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(+)');
5214: END IF;
5215:
5216: p_return_status := FND_API.G_RET_STS_SUCCESS;
5217:
5224: p_error_buffer => p_error_buffer);
5225:
5226: IF (g_level_statement >= g_current_runtime_level ) THEN
5227: FND_LOG.STRING(g_level_statement,
5228: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
5229: 'Fetching Tax Dists for: '||
5230: 'APPLIED_FROM_APPLICATION_ID : '||TO_CHAR(ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.applied_from_application_id(p_trx_line_dist_index)) ||', '||
5231: 'APPLIED_FROM_ENTITY_CODE : '||ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.applied_from_entity_code(p_trx_line_dist_index) ||', '||
5232: 'APPLIED_FROM_EVENT_CLASS_CODE : '||ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.applied_from_event_class_code(p_trx_line_dist_index) ||', '||
5240: END IF;
5241:
5242: IF (g_level_statement >= g_current_runtime_level ) THEN
5243: FND_LOG.STRING(g_level_statement,
5244: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
5245: 'Updating Tax_Apportionment_Line_Number in the tax distributions of Applied_From Doc...');
5246: END IF;
5247:
5248: UPDATE zx_rec_nrec_dist zd
5261: AND NVL(reverse_flag, 'N') <> 'Y';
5262:
5263: IF (g_level_statement >= g_current_runtime_level ) THEN
5264: FND_LOG.STRING(g_level_statement,
5265: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
5266: ' Rows updated : '|| TO_CHAR(SQL%ROWCOUNT));
5267: END IF;
5268:
5269: FOR tax_dist_rec in get_tax_dists_csr LOOP
5269: FOR tax_dist_rec in get_tax_dists_csr LOOP
5270:
5271: IF (g_level_statement >= g_current_runtime_level ) THEN
5272: FND_LOG.STRING(g_level_statement,
5273: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
5274: 'Fetched Record: '||
5275: 'REC_NREC_TAX_DIST_ID : '|| TO_CHAR(tax_dist_rec.rec_nrec_tax_dist_id) ||', '||
5276: 'RECOVERY_RATE_CODE : '|| tax_dist_rec.Recovery_rate_code ||', '||
5277: 'RECOVERY_RATE_ID : '|| TO_CHAR(tax_dist_rec.recovery_rate_id) ||', '||
5356:
5357: IF (g_level_procedure >= g_current_runtime_level) THEN
5358:
5359: FND_LOG.STRING(g_level_procedure,
5360: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.END',
5361: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(-)'||p_return_status);
5362: END IF;
5363:
5364: EXCEPTION
5357: IF (g_level_procedure >= g_current_runtime_level) THEN
5358:
5359: FND_LOG.STRING(g_level_procedure,
5360: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.END',
5361: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(-)'||p_return_status);
5362: END IF;
5363:
5364: EXCEPTION
5365: WHEN OTHERS THEN
5367: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5368:
5369: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5370: FND_LOG.STRING(g_level_unexpected,
5371: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
5372: p_error_buffer);
5373: FND_LOG.STRING(g_level_unexpected,
5374: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.END',
5375: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(-)');
5370: FND_LOG.STRING(g_level_unexpected,
5371: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
5372: p_error_buffer);
5373: FND_LOG.STRING(g_level_unexpected,
5374: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.END',
5375: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(-)');
5376: END IF;
5377:
5378: END get_recovery_from_applied;
5371: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
5372: p_error_buffer);
5373: FND_LOG.STRING(g_level_unexpected,
5374: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.END',
5375: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(-)');
5376: END IF;
5377:
5378: END get_recovery_from_applied;
5379:
5434:
5435: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5436: IF (g_level_procedure >= g_current_runtime_level ) THEN
5437: FND_LOG.STRING(g_level_procedure,
5438: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.BEGIN',
5439: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(+)');
5440: END IF;
5441:
5442: p_return_status := FND_API.G_RET_STS_SUCCESS;
5435: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5436: IF (g_level_procedure >= g_current_runtime_level ) THEN
5437: FND_LOG.STRING(g_level_procedure,
5438: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.BEGIN',
5439: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(+)');
5440: END IF;
5441:
5442: p_return_status := FND_API.G_RET_STS_SUCCESS;
5443:
5451: p_error_buffer => p_error_buffer);
5452:
5453: IF (g_level_statement >= g_current_runtime_level ) THEN
5454: FND_LOG.STRING(g_level_statement,
5455: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted',
5456: 'Fetching Tax Dists for: '||
5457: 'ADJUSTED_DOC_APPLICATION_ID : '||TO_CHAR(ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.adjusted_doc_application_id(p_trx_line_dist_index)) ||', '||
5458: 'ADJUSTED_DOC_ENTITY_CODE : '||ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.adjusted_doc_entity_code(p_trx_line_dist_index) ||', '||
5459: 'ADJUSTED_DOC_EVENT_CLASS_CODE : '||ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.adjusted_doc_event_class_code(p_trx_line_dist_index) ||', '||
5467: END IF;
5468:
5469: IF (g_level_statement >= g_current_runtime_level ) THEN
5470: FND_LOG.STRING(g_level_statement,
5471: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted',
5472: 'Updating Tax_Apportionment_Line_Number in the tax distributions of Adjusted Doc...');
5473: END IF;
5474:
5475: UPDATE zx_rec_nrec_dist zd
5488: AND NVL(reverse_flag, 'N') <> 'Y';
5489:
5490: IF (g_level_statement >= g_current_runtime_level ) THEN
5491: FND_LOG.STRING(g_level_statement,
5492: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted',
5493: ' Rows updated : '|| TO_CHAR(SQL%ROWCOUNT));
5494: END IF;
5495:
5496: FOR tax_dist_rec in get_tax_dists_csr LOOP
5496: FOR tax_dist_rec in get_tax_dists_csr LOOP
5497:
5498: IF (g_level_statement >= g_current_runtime_level ) THEN
5499: FND_LOG.STRING(g_level_statement,
5500: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted',
5501: 'Fetched Record: '||
5502: 'REC_NREC_TAX_DIST_ID : '|| TO_CHAR(tax_dist_rec.rec_nrec_tax_dist_id) ||', '||
5503: 'RECOVERY_RATE_CODE : '|| tax_dist_rec.Recovery_rate_code ||', '||
5504: 'RECOVERY_RATE_ID : '|| TO_CHAR(tax_dist_rec.recovery_rate_id) ||', '||
5542:
5543: IF (g_level_procedure >= g_current_runtime_level ) THEN
5544:
5545: FND_LOG.STRING(g_level_procedure,
5546: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.END',
5547: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(-)'||p_return_status);
5548: END IF;
5549:
5550: EXCEPTION
5543: IF (g_level_procedure >= g_current_runtime_level ) THEN
5544:
5545: FND_LOG.STRING(g_level_procedure,
5546: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.END',
5547: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(-)'||p_return_status);
5548: END IF;
5549:
5550: EXCEPTION
5551: WHEN OTHERS THEN
5553: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5554:
5555: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5556: FND_LOG.STRING(g_level_unexpected,
5557: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted',
5558: p_error_buffer);
5559: FND_LOG.STRING(g_level_unexpected,
5560: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.END',
5561: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(-)');
5556: FND_LOG.STRING(g_level_unexpected,
5557: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted',
5558: p_error_buffer);
5559: FND_LOG.STRING(g_level_unexpected,
5560: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.END',
5561: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(-)');
5562: END IF;
5563:
5564: END get_recovery_from_adjusted;
5557: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted',
5558: p_error_buffer);
5559: FND_LOG.STRING(g_level_unexpected,
5560: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.END',
5561: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(-)');
5562: END IF;
5563:
5564: END get_recovery_from_adjusted;
5565:
5649:
5650: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5651: IF (g_level_procedure >= g_current_runtime_level ) THEN
5652: FND_LOG.STRING(g_level_procedure,
5653: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.BEGIN',
5654: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(+)');
5655: END IF;
5656:
5657: p_return_status := FND_API.G_RET_STS_SUCCESS;
5650: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5651: IF (g_level_procedure >= g_current_runtime_level ) THEN
5652: FND_LOG.STRING(g_level_procedure,
5653: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.BEGIN',
5654: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(+)');
5655: END IF;
5656:
5657: p_return_status := FND_API.G_RET_STS_SUCCESS;
5658:
5659: p_rnd_end_index := p_rnd_begin_index -1;
5660:
5661: IF (g_level_procedure >= g_current_runtime_level ) THEN
5662: FND_LOG.STRING(g_level_procedure,
5663: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5664: 'Begin Index : '||TO_CHAR(p_rnd_begin_index)||', End Index : '||TO_CHAR(p_rnd_end_index));
5665: END IF;
5666:
5667: OPEN get_maximum_tax_dist_num_csr;
5706: IF get_tax_recovery_info_cur%NOTFOUND THEN
5707: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5708: IF (g_level_procedure >= g_current_runtime_level ) THEN
5709: FND_LOG.STRING(g_level_procedure,
5710: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5711: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)'||'error: can not find tax info for ' || l_tax_id);
5712: END IF;
5713: CLOSE get_tax_recovery_info_cur;
5714: RETURN;
5707: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5708: IF (g_level_procedure >= g_current_runtime_level ) THEN
5709: FND_LOG.STRING(g_level_procedure,
5710: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5711: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)'||'error: can not find tax info for ' || l_tax_id);
5712: END IF;
5713: CLOSE get_tax_recovery_info_cur;
5714: RETURN;
5715: END IF;
5723: END IF;
5724:
5725: IF (g_level_statement >= g_current_runtime_level ) THEN
5726: FND_LOG.STRING(g_level_statement,
5727: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5728: 'Allow Tax Recoverability for Tax '||l_tax||' is '||
5729: NVL(g_tax_recovery_info_tbl(l_tax_id).allow_recoverability_flag,'N'));
5730: END IF;
5731: -- End : Code Changes for Bug#14038095 --
5748: --
5749: IF NVL(tax_dist_rec.recoverable_flag,'N') = 'Y' THEN
5750: IF (g_level_statement >= g_current_runtime_level ) THEN
5751: FND_LOG.STRING(g_level_statement,
5752: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5753: 'Do not copy the recoverable tax distribution from PO');
5754: END IF;
5755: NULL;
5756:
5759: p_rnd_end_index := p_rnd_end_index + 1;
5760:
5761: IF (g_level_statement >= g_current_runtime_level ) THEN
5762: FND_LOG.STRING(g_level_statement,
5763: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5764: 'Copy only the non-recoverable tax distribution from PO at index '||
5765: TO_CHAR(p_rnd_end_index));
5766: END IF;
5767:
5792: p_rnd_end_index := p_rnd_end_index + 1;
5793:
5794: IF (g_level_statement >= g_current_runtime_level ) THEN
5795: FND_LOG.STRING(g_level_statement,
5796: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5797: 'Copy tax distribution from PO at index '||
5798: TO_CHAR(p_rnd_end_index));
5799: END IF;
5800:
5821: -- This means that new tax distribution record is added to plsql structure --
5822: --
5823: IF (g_level_statement >= g_current_runtime_level ) THEN
5824: FND_LOG.STRING(g_level_statement,
5825: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5826: 'Index : '||TO_CHAR(p_rnd_end_index) ||
5827: ', Ref_Doc_Tax_Dist_Id : '||TO_CHAR(tax_dist_rec.rec_nrec_tax_dist_id) ||
5828: ', Recoverable_Flag : '||tax_dist_rec.recoverable_flag ||
5829: ', Rec_Nrec_Rate : '||TO_CHAR(tax_dist_rec.rec_nrec_rate) ||
5843: NVL(p_rec_nrec_dist_tbl(p_rnd_end_index).recoverable_flag,'N') = 'Y'
5844: THEN
5845: IF (g_level_statement >= g_current_runtime_level ) THEN
5846: FND_LOG.STRING(g_level_statement,
5847: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5848: 'Copy Rec_Nrec_Rate and Recovery_Rate_Id from PO for recoverable '||
5849: 'tax distribution of zero amount reference tax line');
5850: END IF;
5851:
5863: tax_dist_rec.rec_nrec_rate;
5864:
5865: IF (g_level_statement >= g_current_runtime_level ) THEN
5866: FND_LOG.STRING(g_level_statement,
5867: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5868: 'User had overridden recovery rate on PO, so copy the PO '||
5869: 'recovery rate % to invoice tax distributions.');
5870: END IF;
5871: END IF;
5881: IF l_rnd_begin_index = p_rnd_end_index THEN
5882:
5883: IF (g_level_statement >= g_current_runtime_level ) THEN
5884: FND_LOG.STRING(g_level_statement,
5885: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5886: 'Can not find tax distribution on PO, have to call the ' ||
5887: 'normal det_appl_rec_type() to determine recovery type.');
5888: END IF;
5889:
5900: IF NVL(p_return_status,FND_API.G_RET_STS_ERROR)<>FND_API.G_RET_STS_SUCCESS
5901: THEN
5902: IF (g_level_error >= g_current_runtime_level ) THEN
5903: FND_LOG.STRING(g_level_error,
5904: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5905: 'Incorrect return_status after calling ' ||
5906: 'ZX_TDS_UTILITIES_PKG.det_appl_rec_type()');
5907: FND_LOG.STRING(g_level_error,
5908: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5904: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5905: 'Incorrect return_status after calling ' ||
5906: 'ZX_TDS_UTILITIES_PKG.det_appl_rec_type()');
5907: FND_LOG.STRING(g_level_error,
5908: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5909: 'RETURN_STATUS = ' || p_return_status);
5910: FND_LOG.STRING(g_level_error,
5911: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5912: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)');
5907: FND_LOG.STRING(g_level_error,
5908: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5909: 'RETURN_STATUS = ' || p_return_status);
5910: FND_LOG.STRING(g_level_error,
5911: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5912: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)');
5913: END IF;
5914: RETURN;
5915: END IF;
5908: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5909: 'RETURN_STATUS = ' || p_return_status);
5910: FND_LOG.STRING(g_level_error,
5911: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5912: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)');
5913: END IF;
5914: RETURN;
5915: END IF;
5916: END IF;
5916: END IF;
5917:
5918: IF (g_level_procedure >= g_current_runtime_level) THEN
5919: FND_LOG.STRING(g_level_procedure,
5920: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5921: 'Begin Index : '||TO_CHAR(p_rnd_begin_index)||', End Index : '||TO_CHAR(p_rnd_end_index));
5922: FND_LOG.STRING(g_level_procedure,
5923: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5924: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)'||p_return_status);
5919: FND_LOG.STRING(g_level_procedure,
5920: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5921: 'Begin Index : '||TO_CHAR(p_rnd_begin_index)||', End Index : '||TO_CHAR(p_rnd_end_index));
5922: FND_LOG.STRING(g_level_procedure,
5923: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5924: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)'||p_return_status);
5925: END IF;
5926:
5927: EXCEPTION
5920: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5921: 'Begin Index : '||TO_CHAR(p_rnd_begin_index)||', End Index : '||TO_CHAR(p_rnd_end_index));
5922: FND_LOG.STRING(g_level_procedure,
5923: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5924: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)'||p_return_status);
5925: END IF;
5926:
5927: EXCEPTION
5928: WHEN OTHERS THEN
5930: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5931:
5932: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5933: FND_LOG.STRING(g_level_unexpected,
5934: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5935: p_error_buffer);
5936: FND_LOG.STRING(g_level_unexpected,
5937: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5938: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)');
5933: FND_LOG.STRING(g_level_unexpected,
5934: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5935: p_error_buffer);
5936: FND_LOG.STRING(g_level_unexpected,
5937: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5938: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)');
5939: END IF;
5940:
5941: END enforce_recovery_from_ref;
5934: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5935: p_error_buffer);
5936: FND_LOG.STRING(g_level_unexpected,
5937: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5938: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)');
5939: END IF;
5940:
5941: END enforce_recovery_from_ref;
5942:
5980: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5981:
5982: IF (g_level_procedure >= g_current_runtime_level ) THEN
5983: FND_LOG.STRING(g_level_procedure,
5984: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.BEGIN',
5985: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts(+)');
5986: END IF;
5987:
5988: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5981:
5982: IF (g_level_procedure >= g_current_runtime_level ) THEN
5983: FND_LOG.STRING(g_level_procedure,
5984: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.BEGIN',
5985: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts(+)');
5986: END IF;
5987:
5988: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5989:
5992:
5993: --p_return_status:= FND_API.G_RET_STS_ERROR;
5994: IF (g_level_error >= g_current_runtime_level ) THEN
5995: FND_LOG.STRING(g_level_error,
5996: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
5997: 'begin or end index is null, or begin index > end index');
5998: END IF;
5999: RETURN;
6000: END IF;
6013: IF NVL(p_return_status,FND_API.G_RET_STS_ERROR)<>FND_API.G_RET_STS_SUCCESS
6014: THEN
6015: IF (g_level_error >= g_current_runtime_level ) THEN
6016: FND_LOG.STRING(g_level_error,
6017: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
6018: 'Incorrect return_status after calling ' ||
6019: 'ZX_TDS_UTILITIES_PKG.populate_currency_cache()');
6020: FND_LOG.STRING(g_level_error,
6021: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
6017: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
6018: 'Incorrect return_status after calling ' ||
6019: 'ZX_TDS_UTILITIES_PKG.populate_currency_cache()');
6020: FND_LOG.STRING(g_level_error,
6021: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
6022: 'RETURN_STATUS = ' || p_return_status);
6023: FND_LOG.STRING(g_level_error,
6024: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
6025: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts(-)');
6020: FND_LOG.STRING(g_level_error,
6021: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
6022: 'RETURN_STATUS = ' || p_return_status);
6023: FND_LOG.STRING(g_level_error,
6024: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
6025: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts(-)');
6026: END IF;
6027: RETURN;
6028: END IF;
6021: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
6022: 'RETURN_STATUS = ' || p_return_status);
6023: FND_LOG.STRING(g_level_error,
6024: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
6025: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts(-)');
6026: END IF;
6027: RETURN;
6028: END IF;
6029: END IF;
6071: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
6072: THEN
6073: IF (g_level_error >= g_current_runtime_level ) THEN
6074: FND_LOG.STRING(g_level_error,
6075: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
6076: 'Incorrect return_status after calling ' ||
6077: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
6078: FND_LOG.STRING(g_level_error,
6079: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
6075: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
6076: 'Incorrect return_status after calling ' ||
6077: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
6078: FND_LOG.STRING(g_level_error,
6079: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
6080: 'RETURN_STATUS = ' || p_return_status);
6081: FND_LOG.STRING(g_level_error,
6082: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
6083: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)');
6078: FND_LOG.STRING(g_level_error,
6079: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
6080: 'RETURN_STATUS = ' || p_return_status);
6081: FND_LOG.STRING(g_level_error,
6082: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
6083: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)');
6084: END IF;
6085: RETURN;
6086: END IF;
6079: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
6080: 'RETURN_STATUS = ' || p_return_status);
6081: FND_LOG.STRING(g_level_error,
6082: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
6083: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)');
6084: END IF;
6085: RETURN;
6086: END IF;
6087:
6252:
6253: IF (g_level_procedure >= g_current_runtime_level ) THEN
6254:
6255: FND_LOG.STRING(g_level_procedure,
6256: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
6257: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)'||p_return_status);
6258: END IF;
6259:
6260: EXCEPTION
6253: IF (g_level_procedure >= g_current_runtime_level ) THEN
6254:
6255: FND_LOG.STRING(g_level_procedure,
6256: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
6257: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)'||p_return_status);
6258: END IF;
6259:
6260: EXCEPTION
6261:
6264: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6265:
6266: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6267: FND_LOG.STRING(g_level_unexpected,
6268: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
6269: l_error_buffer);
6270: FND_LOG.STRING(g_level_unexpected,
6271: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
6272: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)');
6267: FND_LOG.STRING(g_level_unexpected,
6268: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
6269: l_error_buffer);
6270: FND_LOG.STRING(g_level_unexpected,
6271: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
6272: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)');
6273: END IF;
6274:
6275: END round_and_adjust_prd_tax_amts;
6268: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
6269: l_error_buffer);
6270: FND_LOG.STRING(g_level_unexpected,
6271: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
6272: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)');
6273: END IF;
6274:
6275: END round_and_adjust_prd_tax_amts;
6276:
6288: BEGIN
6289: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6290: IF (g_level_procedure >= g_current_runtime_level ) THEN
6291: FND_LOG.STRING(g_level_procedure,
6292: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.BEGIN',
6293: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(+)');
6294: END IF;
6295:
6296: p_return_status:= FND_API.G_RET_STS_SUCCESS;
6289: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6290: IF (g_level_procedure >= g_current_runtime_level ) THEN
6291: FND_LOG.STRING(g_level_procedure,
6292: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.BEGIN',
6293: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(+)');
6294: END IF;
6295:
6296: p_return_status:= FND_API.G_RET_STS_SUCCESS;
6297:
6300:
6301: --p_return_status:= FND_API.G_RET_STS_ERROR;
6302: IF (g_level_statement >= g_current_runtime_level ) THEN
6303: FND_LOG.STRING(g_level_statement,
6304: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
6305: 'begin or end index is null, or begin index > end index');
6306: END IF;
6307: RETURN;
6308: END IF;
6315:
6316: IF p_rec_nrec_dist_tbl(i).recoverable_flag = 'N' THEN
6317: IF (g_level_statement >= g_current_runtime_level ) THEN
6318: FND_LOG.STRING(g_level_statement,
6319: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
6320: 'recoverable_flag is N ');
6321: END IF;
6322:
6323:
6328: NVL(p_rec_nrec_dist_tbl(i).freeze_flag, 'N') <> 'Y'
6329: THEN
6330: IF (g_level_statement >= g_current_runtime_level ) THEN
6331: FND_LOG.STRING(g_level_statement,
6332: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
6333: 'Reverse flag and Freeze flag are not Y ');
6334: END IF;
6335:
6336: p_rec_nrec_dist_tbl(i).trx_line_dist_qty :=
6364: END IF; -- p_rec_nrec_dist_tbl(i).recoverable_flag = 'N'
6365: ELSE
6366: IF (g_level_statement >= g_current_runtime_level ) THEN
6367: FND_LOG.STRING(g_level_statement,
6368: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
6369: 'Ref doc application id is null');
6370: END IF;
6371:
6372: END IF; -- ref_doc_application_id is not null
6374:
6375: IF (g_level_procedure >= g_current_runtime_level ) THEN
6376:
6377: FND_LOG.STRING(g_level_procedure,
6378: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.END',
6379: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(-)'||p_return_status);
6380: END IF;
6381:
6382: EXCEPTION
6375: IF (g_level_procedure >= g_current_runtime_level ) THEN
6376:
6377: FND_LOG.STRING(g_level_procedure,
6378: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.END',
6379: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(-)'||p_return_status);
6380: END IF;
6381:
6382: EXCEPTION
6383: WHEN OTHERS THEN
6385: p_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_INTERNAL_SERVICES_PVT.get_variance_related_columns',
6390: p_error_buffer);
6391: FND_LOG.STRING(g_level_unexpected,
6392: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.END',
6393: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(-)');
6388: FND_LOG.STRING(g_level_unexpected,
6389: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
6390: p_error_buffer);
6391: FND_LOG.STRING(g_level_unexpected,
6392: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.END',
6393: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(-)');
6394: END IF;
6395:
6396: END get_variance_related_columns;
6389: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
6390: p_error_buffer);
6391: FND_LOG.STRING(g_level_unexpected,
6392: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.END',
6393: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(-)');
6394: END IF;
6395:
6396: END get_variance_related_columns;
6397:
6404: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6405:
6406: IF (g_level_procedure >= g_current_runtime_level ) THEN
6407: FND_LOG.STRING(g_level_procedure,
6408: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.BEGIN',
6409: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(+)');
6410: END IF;
6411:
6412: p_return_status:= FND_API.G_RET_STS_SUCCESS;
6405:
6406: IF (g_level_procedure >= g_current_runtime_level ) THEN
6407: FND_LOG.STRING(g_level_procedure,
6408: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.BEGIN',
6409: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(+)');
6410: END IF;
6411:
6412: p_return_status:= FND_API.G_RET_STS_SUCCESS;
6413:
6421: IF ZX_TRD_SERVICES_PUB_PKG.g_retained_value is NOT NULL THEN
6422:
6423: IF (g_level_procedure >= g_current_runtime_level ) THEN
6424: FND_LOG.STRING(g_level_procedure,
6425: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors',
6426: 'g_retained_value is not NULL - Retainage flow');
6427: END IF;
6428:
6429: IF ZX_TRD_SERVICES_PUB_PKG.g_ret_doc_type is NOT NULL AND
6430: ZX_TRD_SERVICES_PUB_PKG.g_ret_doc_type = 'S' THEN
6431:
6432: IF (g_level_procedure >= g_current_runtime_level ) THEN
6433: FND_LOG.STRING(g_level_procedure,
6434: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors',
6435: 'Flow - Standard invoice with retainage line');
6436: END IF;
6437:
6438: -- Bug 11808769,For PO matched invoices, where quantity, price is NULL from purchase order,stamp AMOUNT as value for variance columns
6507: ZX_TRD_SERVICES_PUB_PKG.g_ret_doc_type = 'R' THEN
6508:
6509: IF (g_level_procedure >= g_current_runtime_level ) THEN
6510: FND_LOG.STRING(g_level_procedure,
6511: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors',
6512: 'Flow - retainage release invoice');
6513: END IF;
6514:
6515: UPDATE zx_rec_nrec_dist_gt gt
6579:
6580: ELSE
6581: IF (g_level_procedure >= g_current_runtime_level ) THEN
6582: FND_LOG.STRING(g_level_procedure,
6583: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors',
6584: 'No Retainage - Normal Flow');
6585: END IF;
6586:
6587: -- Bug 10069028, As per PM, use unrounded_rec_nrec_tax_amt for variance calculation
6661: END IF; --ZX_TRD_SERVICES_PUB_PKG.g_retained_value
6662:
6663: IF (g_level_procedure >= g_current_runtime_level ) THEN
6664: FND_LOG.STRING(g_level_procedure,
6665: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.END',
6666: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(-)'||p_return_status);
6667: END IF;
6668:
6669: EXCEPTION
6662:
6663: IF (g_level_procedure >= g_current_runtime_level ) THEN
6664: FND_LOG.STRING(g_level_procedure,
6665: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.END',
6666: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(-)'||p_return_status);
6667: END IF;
6668:
6669: EXCEPTION
6670: WHEN OTHERS THEN
6672: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6673:
6674: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6675: FND_LOG.STRING(g_level_unexpected,
6676: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors',
6677: p_error_buffer);
6678: FND_LOG.STRING(g_level_unexpected,
6679: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.END',
6680: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(-)');
6675: FND_LOG.STRING(g_level_unexpected,
6676: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors',
6677: p_error_buffer);
6678: FND_LOG.STRING(g_level_unexpected,
6679: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.END',
6680: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(-)');
6681: END IF;
6682:
6683: END calc_variance_factors;
6676: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors',
6677: p_error_buffer);
6678: FND_LOG.STRING(g_level_unexpected,
6679: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.END',
6680: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(-)');
6681: END IF;
6682:
6683: END calc_variance_factors;
6684:
6726: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6727:
6728: IF (g_level_statement >= g_current_runtime_level ) THEN
6729: FND_LOG.STRING(g_level_statement,
6730: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists.BEGIN',
6731: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(+)');
6732: END IF;
6733:
6734: p_return_status := FND_API.G_RET_STS_SUCCESS;
6727:
6728: IF (g_level_statement >= g_current_runtime_level ) THEN
6729: FND_LOG.STRING(g_level_statement,
6730: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists.BEGIN',
6731: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(+)');
6732: END IF;
6733:
6734: p_return_status := FND_API.G_RET_STS_SUCCESS;
6735:
6738:
6739: --p_return_status := FND_API.G_RET_STS_ERROR;
6740: IF (g_level_statement >= g_current_runtime_level ) THEN
6741: FND_LOG.STRING(g_level_statement,
6742: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists',
6743: 'begin or end index is null, or begin index > end index');
6744: END IF;
6745: RETURN;
6746: END IF;
6827: p_rec_nrec_dist_tbl(p_rnd_end_index).ref_doc_per_unit_nrec_tax_amt := NULL;
6828:
6829: END LOOP; -- j IN p_rnd_begin_index .. l_end_index LOOP
6830:
6831: ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt(
6832: p_rec_nrec_dist_tbl,
6833: l_rnd_begin_index,
6834: p_rnd_end_index,
6835: mrc_line_rec.tax_amt,
6853: END LOOP; -- mrc_line_rec IN get_mrc_tax_line_info_csr LOOP
6854:
6855: IF (g_level_procedure >= g_current_runtime_level ) THEN
6856: FND_LOG.STRING(g_level_procedure,
6857: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists.END',
6858: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(-)');
6859: END IF;
6860:
6861: EXCEPTION
6854:
6855: IF (g_level_procedure >= g_current_runtime_level ) THEN
6856: FND_LOG.STRING(g_level_procedure,
6857: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists.END',
6858: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(-)');
6859: END IF;
6860:
6861: EXCEPTION
6862: WHEN OTHERS THEN
6866: FND_LOG.STRING(g_level_unexpected,
6867: 'ZX.PLSQL.ZX_TDS_MRC_PROCESSING_PKG.create_mrc_det_tax_lines',
6868: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
6869: FND_LOG.STRING(g_level_unexpected,
6870: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists.END',
6871: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(-)');
6872: END IF;
6873: END create_mrc_tax_dists;
6874:
6867: 'ZX.PLSQL.ZX_TDS_MRC_PROCESSING_PKG.create_mrc_det_tax_lines',
6868: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
6869: FND_LOG.STRING(g_level_unexpected,
6870: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists.END',
6871: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(-)');
6872: END IF;
6873: END create_mrc_tax_dists;
6874:
6875: END ZX_TRD_INTERNAL_SERVICES_PVT;
6871: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(-)');
6872: END IF;
6873: END create_mrc_tax_dists;
6874:
6875: END ZX_TRD_INTERNAL_SERVICES_PVT;