[Home] [Help]
1: PACKAGE BODY ZX_TRD_INTERNAL_SERVICES_PVT AS
2: /* $Header: zxmirecdmsrvpvtb.pls 120.92.12010000.2 2008/11/12 12:34:19 spasala ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
131: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
132:
133: IF (g_level_procedure >= g_current_runtime_level ) THEN
134: FND_LOG.STRING(g_level_procedure,
135: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.BEGIN',
136: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist(+)');
137: END IF;
138:
139: p_return_status:= FND_API.G_RET_STS_SUCCESS;
132:
133: IF (g_level_procedure >= g_current_runtime_level ) THEN
134: FND_LOG.STRING(g_level_procedure,
135: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.BEGIN',
136: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist(+)');
137: END IF;
138:
139: p_return_status:= FND_API.G_RET_STS_SUCCESS;
140:
143: l_total_count := 0;
144:
145: IF (g_level_statement >= g_current_runtime_level ) THEN
146: FND_LOG.STRING(g_level_statement,
147: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST',
148: 'p_rnd_begin_index = ' || p_rnd_begin_index||
149: 'p_rnd_end_index = ' || p_rnd_end_index);
150: END IF;
151:
161: l_total_count:= get_tax_distribution_cur%ROWCOUNT;
162:
163: IF (g_level_statement >= g_current_runtime_level ) THEN
164: FND_LOG.STRING(g_level_statement,
165: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST',
166: 'l_total_count = ' || l_total_count);
167: END IF;
168:
169: CLOSE get_tax_distribution_cur;
179: */
180:
181: IF (g_level_statement >= g_current_runtime_level ) THEN
182: FND_LOG.STRING(g_level_statement,
183: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST',
184: 'first time calculation for this tax line and item dist');
185: END IF;
186:
187: IF NVL(p_event_class_rec.enforce_tax_from_ref_doc_flag, 'N') = 'Y' AND
210:
211: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
212: IF (g_level_statement >= g_current_runtime_level ) THEN
213: FND_LOG.STRING(g_level_statement,
214: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
215: 'Incorrect return_status after calling ' ||
216: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref()'||p_return_status);
217: END IF;
218: RETURN;
212: IF (g_level_statement >= g_current_runtime_level ) THEN
213: FND_LOG.STRING(g_level_statement,
214: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
215: 'Incorrect return_status after calling ' ||
216: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref()'||p_return_status);
217: END IF;
218: RETURN;
219: END IF;
220:
232:
233: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
234: IF (g_level_statement >= g_current_runtime_level ) THEN
235: FND_LOG.STRING(g_level_statement,
236: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
237: 'Incorrect return_status after calling ' ||
238: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type()'||p_return_status);
239: END IF;
240: RETURN;
234: IF (g_level_statement >= g_current_runtime_level ) THEN
235: FND_LOG.STRING(g_level_statement,
236: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
237: 'Incorrect return_status after calling ' ||
238: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type()'||p_return_status);
239: END IF;
240: RETURN;
241: END IF;
242:
256:
257: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
258: IF (g_level_statement >= g_current_runtime_level ) THEN
259: FND_LOG.STRING(g_level_statement,
260: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
261: 'Incorrect return_status after calling ' ||
262: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_tax_related_columns_sta()'||p_return_status);
263: END IF;
264: RETURN;
258: IF (g_level_statement >= g_current_runtime_level ) THEN
259: FND_LOG.STRING(g_level_statement,
260: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
261: 'Incorrect return_status after calling ' ||
262: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_tax_related_columns_sta()'||p_return_status);
263: END IF;
264: RETURN;
265: END IF;
266:
277:
278: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
279: IF (g_level_statement >= g_current_runtime_level ) THEN
280: FND_LOG.STRING(g_level_statement,
281: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
282: 'Incorrect return_status after calling ' ||
283: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_tax_related_columns_var()'||p_return_status);
284: END IF;
285: RETURN;
279: IF (g_level_statement >= g_current_runtime_level ) THEN
280: FND_LOG.STRING(g_level_statement,
281: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
282: 'Incorrect return_status after calling ' ||
283: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_tax_related_columns_var()'||p_return_status);
284: END IF;
285: RETURN;
286: END IF;
287:
297:
298: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
299: IF (g_level_statement >= g_current_runtime_level ) THEN
300: FND_LOG.STRING(g_level_statement,
301: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
302: 'Incorrect return_status after calling ' ||
303: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns()'||p_return_status);
304: END IF;
305: RETURN;
299: IF (g_level_statement >= g_current_runtime_level ) THEN
300: FND_LOG.STRING(g_level_statement,
301: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
302: 'Incorrect return_status after calling ' ||
303: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns()'||p_return_status);
304: END IF;
305: RETURN;
306: END IF;
307:
320: p_error_buffer);
321: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
322: IF (g_level_statement >= g_current_runtime_level ) THEN
323: FND_LOG.STRING(g_level_statement,
324: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
325: 'Incorrect return_status after calling ' ||
326: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate()'||p_return_status);
327: END IF;
328: RETURN;
322: IF (g_level_statement >= g_current_runtime_level ) THEN
323: FND_LOG.STRING(g_level_statement,
324: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
325: 'Incorrect return_status after calling ' ||
326: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate()'||p_return_status);
327: END IF;
328: RETURN;
329: END IF;
330:
357: */
358:
359: IF (g_level_statement >= g_current_runtime_level ) THEN
360: FND_LOG.STRING(g_level_statement,
361: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST',
362: 'tax dists have been determined before '||
363: 'p_rnd_begin_index = ' || p_rnd_begin_index||
364: 'p_rnd_end_index = ' || p_rnd_end_index);
365: END IF;
498:
499: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
500: IF (g_level_statement >= g_current_runtime_level ) THEN
501: FND_LOG.STRING(g_level_statement,
502: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
503: 'Incorrect return_status after calling ' ||
504: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_tax_related_columns_var()'||p_return_status);
505: END IF;
506: RETURN;
500: IF (g_level_statement >= g_current_runtime_level ) THEN
501: FND_LOG.STRING(g_level_statement,
502: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
503: 'Incorrect return_status after calling ' ||
504: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_tax_related_columns_var()'||p_return_status);
505: END IF;
506: RETURN;
507: END IF;
508:
518:
519: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
520: IF (g_level_statement >= g_current_runtime_level ) THEN
521: FND_LOG.STRING(g_level_statement,
522: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
523: 'Incorrect return_status after calling ' ||
524: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns()'||p_return_status);
525: END IF;
526: RETURN;
520: IF (g_level_statement >= g_current_runtime_level ) THEN
521: FND_LOG.STRING(g_level_statement,
522: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
523: 'Incorrect return_status after calling ' ||
524: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns()'||p_return_status);
525: END IF;
526: RETURN;
527: END IF;
528:
540: p_error_buffer);
541: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
542: IF (g_level_statement >= g_current_runtime_level ) THEN
543: FND_LOG.STRING(g_level_statement,
544: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
545: 'Incorrect return_status after calling ' ||
546: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate()'||p_return_status);
547: END IF;
548: RETURN;
542: IF (g_level_statement >= g_current_runtime_level ) THEN
543: FND_LOG.STRING(g_level_statement,
544: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
545: 'Incorrect return_status after calling ' ||
546: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate()'||p_return_status);
547: END IF;
548: RETURN;
549: END IF;
550:
552: END IF; -- no row found
553:
554: IF (g_level_procedure >= g_current_runtime_level ) THEN
555: FND_LOG.STRING(g_level_procedure,
556: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.END',
557: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist (-)');
558: END IF;
559:
560: EXCEPTION
553:
554: IF (g_level_procedure >= g_current_runtime_level ) THEN
555: FND_LOG.STRING(g_level_procedure,
556: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.END',
557: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist (-)');
558: END IF;
559:
560: EXCEPTION
561: WHEN OTHERS THEN
563: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
564:
565: IF (g_level_unexpected >= g_current_runtime_level ) THEN
566: FND_LOG.STRING(g_level_unexpected,
567: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
568: p_error_buffer);
569: FND_LOG.STRING(g_level_unexpected,
570: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.END',
571: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist (-)');
566: FND_LOG.STRING(g_level_unexpected,
567: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
568: p_error_buffer);
569: FND_LOG.STRING(g_level_unexpected,
570: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.END',
571: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist (-)');
572: END IF;
573:
574: END calc_tax_dist;
567: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist',
568: p_error_buffer);
569: FND_LOG.STRING(g_level_unexpected,
570: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.CALC_TAX_DIST.END',
571: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_tax_dist (-)');
572: END IF;
573:
574: END calc_tax_dist;
575:
613:
614: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
615: IF (g_level_procedure >= g_current_runtime_level ) THEN
616: FND_LOG.STRING(g_level_procedure,
617: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.BEGIN',
618: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line (+)');
619: END IF;
620:
621: p_return_status:= FND_API.G_RET_STS_SUCCESS;
614: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
615: IF (g_level_procedure >= g_current_runtime_level ) THEN
616: FND_LOG.STRING(g_level_procedure,
617: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.BEGIN',
618: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line (+)');
619: END IF;
620:
621: p_return_status:= FND_API.G_RET_STS_SUCCESS;
622: i:= p_rnd_begin_index;
705: p_rnd_end_index:= i-1;
706:
707: IF (g_level_procedure >= g_current_runtime_level ) THEN
708: FND_LOG.STRING(g_level_procedure,
709: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.BEGIN',
710: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line (-)');
711: END IF;
712:
713: EXCEPTION
706:
707: IF (g_level_procedure >= g_current_runtime_level ) THEN
708: FND_LOG.STRING(g_level_procedure,
709: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.BEGIN',
710: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line (-)');
711: END IF;
712:
713: EXCEPTION
714: WHEN OTHERS THEN
716: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
717:
718: IF (g_level_unexpected >= g_current_runtime_level ) THEN
719: FND_LOG.STRING(g_level_unexpected,
720: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line',
721: p_error_buffer);
722: FND_LOG.STRING(g_level_unexpected,
723: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.END',
724: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line(-)');
719: FND_LOG.STRING(g_level_unexpected,
720: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line',
721: p_error_buffer);
722: FND_LOG.STRING(g_level_unexpected,
723: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.END',
724: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line(-)');
725: END IF;
726:
727: end cancel_tax_line;
720: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line',
721: p_error_buffer);
722: FND_LOG.STRING(g_level_unexpected,
723: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line.END',
724: 'ZX_TRD_INTERNAL_SERVICES_PVT.cancel_tax_line(-)');
725: END IF;
726:
727: end cancel_tax_line;
728:
775: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
776:
777: IF (g_level_procedure >= g_current_runtime_level ) THEN
778: FND_LOG.STRING(g_level_procedure,
779: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.BEGIN',
780: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(+)');
781: END IF;
782:
783: p_return_status := FND_API.G_RET_STS_SUCCESS;
776:
777: IF (g_level_procedure >= g_current_runtime_level ) THEN
778: FND_LOG.STRING(g_level_procedure,
779: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.BEGIN',
780: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(+)');
781: END IF;
782:
783: p_return_status := FND_API.G_RET_STS_SUCCESS;
784:
818: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
819: THEN
820: IF (g_level_error >= g_current_runtime_level ) THEN
821: FND_LOG.STRING(g_level_error,
822: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type',
823: 'Incorrect return_status after calling ' ||
824: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied()');
825: FND_LOG.STRING(g_level_error,
826: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
820: IF (g_level_error >= g_current_runtime_level ) THEN
821: FND_LOG.STRING(g_level_error,
822: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type',
823: 'Incorrect return_status after calling ' ||
824: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied()');
825: FND_LOG.STRING(g_level_error,
826: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
827: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type(-)'||p_return_status);
828: END IF;
822: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type',
823: 'Incorrect return_status after calling ' ||
824: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied()');
825: FND_LOG.STRING(g_level_error,
826: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
827: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type(-)'||p_return_status);
828: END IF;
829: END IF;
830: RETURN;
823: 'Incorrect return_status after calling ' ||
824: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied()');
825: FND_LOG.STRING(g_level_error,
826: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
827: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type(-)'||p_return_status);
828: END IF;
829: END IF;
830: RETURN;
831:
847: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
848: THEN
849: IF (g_level_error >= g_current_runtime_level ) THEN
850: FND_LOG.STRING(g_level_error,
851: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type',
852: 'Incorrect return_status after calling ' ||
853: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted()');
854: FND_LOG.STRING(g_level_error,
855: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
849: IF (g_level_error >= g_current_runtime_level ) THEN
850: FND_LOG.STRING(g_level_error,
851: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type',
852: 'Incorrect return_status after calling ' ||
853: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted()');
854: FND_LOG.STRING(g_level_error,
855: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
856: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type(-)'||p_return_status);
857: END IF;
851: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type',
852: 'Incorrect return_status after calling ' ||
853: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted()');
854: FND_LOG.STRING(g_level_error,
855: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
856: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type(-)'||p_return_status);
857: END IF;
858: END IF;
859:
852: 'Incorrect return_status after calling ' ||
853: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted()');
854: FND_LOG.STRING(g_level_error,
855: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type.END',
856: 'ZX_TRD_INTERNAL_SERVICES_PVT.det_appl_rec_type(-)'||p_return_status);
857: END IF;
858: END IF;
859:
860: -- return to the calling point, the normal recovery type determination
889: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
890:
891: IF (g_level_procedure >= g_current_runtime_level ) THEN
892: FND_LOG.STRING(g_level_procedure,
893: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
894: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)'||'error: can not find tax info for ' || l_tax_id);
895: END IF;
896: CLOSE get_tax_recovery_info_cur;
897: RETURN;
890:
891: IF (g_level_procedure >= g_current_runtime_level ) THEN
892: FND_LOG.STRING(g_level_procedure,
893: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
894: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)'||'error: can not find tax info for ' || l_tax_id);
895: END IF;
896: CLOSE get_tax_recovery_info_cur;
897: RETURN;
898: END IF;
939: ELSE -- no recovery allowed
940:
941: IF (g_level_statement >= g_current_runtime_level ) THEN
942: FND_LOG.STRING(g_level_statement,
943: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE',
944: 'No applicable recovery type found');
945: END IF;
946:
947: END IF;
947: END IF;
948: ELSE --provider calculated tax lines should be 100% non-recoverable.
949: IF (g_level_statement >= g_current_runtime_level ) THEN
950: FND_LOG.STRING(g_level_statement,
951: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE',
952: 'Provider calculated tax lines are 100% non-recoverable.');
953: END IF;
954:
955: END IF;
960:
961: IF (g_level_procedure >= g_current_runtime_level ) THEN
962:
963: FND_LOG.STRING(g_level_procedure,
964: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
965: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)'||
966: ' begin index = ' || p_rnd_end_index||
967: ' end index = ' || p_rnd_end_index);
968: END IF;
961: IF (g_level_procedure >= g_current_runtime_level ) THEN
962:
963: FND_LOG.STRING(g_level_procedure,
964: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
965: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)'||
966: ' begin index = ' || p_rnd_end_index||
967: ' end index = ' || p_rnd_end_index);
968: END IF;
969:
973: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
974:
975: IF (g_level_unexpected >= g_current_runtime_level ) THEN
976: FND_LOG.STRING(g_level_unexpected,
977: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE',
978: p_error_buffer);
979: FND_LOG.STRING(g_level_unexpected,
980: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
981: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)');
976: FND_LOG.STRING(g_level_unexpected,
977: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE',
978: p_error_buffer);
979: FND_LOG.STRING(g_level_unexpected,
980: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
981: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)');
982: END IF;
983:
984: END DET_APPL_REC_TYPE;
977: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE',
978: p_error_buffer);
979: FND_LOG.STRING(g_level_unexpected,
980: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE.END',
981: 'ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE(-)');
982: END IF;
983:
984: END DET_APPL_REC_TYPE;
985:
998: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
999:
1000: IF (g_level_procedure >= g_current_runtime_level ) THEN
1001: FND_LOG.STRING(g_level_procedure,
1002: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.BEGIN',
1003: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(+)');
1004: END IF;
1005:
1006: p_return_status:= FND_API.G_RET_STS_SUCCESS;
999:
1000: IF (g_level_procedure >= g_current_runtime_level ) THEN
1001: FND_LOG.STRING(g_level_procedure,
1002: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.BEGIN',
1003: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(+)');
1004: END IF;
1005:
1006: p_return_status:= FND_API.G_RET_STS_SUCCESS;
1007:
1165: END LOOP; -- i in p_rnd_begin_index..p_rnd_end_index
1166:
1167: IF (g_level_procedure >= g_current_runtime_level ) THEN
1168: FND_LOG.STRING(g_level_procedure,
1169: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.END',
1170: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(-)');
1171: END IF;
1172:
1173: EXCEPTION
1166:
1167: IF (g_level_procedure >= g_current_runtime_level ) THEN
1168: FND_LOG.STRING(g_level_procedure,
1169: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.END',
1170: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(-)');
1171: END IF;
1172:
1173: EXCEPTION
1174: WHEN OTHERS THEN
1176: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1177:
1178: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1179: FND_LOG.STRING(g_level_unexpected,
1180: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA',
1181: p_error_buffer);
1182: FND_LOG.STRING(g_level_unexpected,
1183: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.END',
1184: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(-)');
1179: FND_LOG.STRING(g_level_unexpected,
1180: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA',
1181: p_error_buffer);
1182: FND_LOG.STRING(g_level_unexpected,
1183: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.END',
1184: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(-)');
1185: END IF;
1186: END get_tax_related_columns_sta;
1187:
1180: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA',
1181: p_error_buffer);
1182: FND_LOG.STRING(g_level_unexpected,
1183: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA.END',
1184: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_STA(-)');
1185: END IF;
1186: END get_tax_related_columns_sta;
1187:
1188:
1204: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1205:
1206: IF (g_level_procedure >= g_current_runtime_level ) THEN
1207: FND_LOG.STRING(g_level_procedure,
1208: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.BEGIN',
1209: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(+)');
1210: END IF;
1211: p_return_status:= FND_API.G_RET_STS_SUCCESS;
1212:
1205:
1206: IF (g_level_procedure >= g_current_runtime_level ) THEN
1207: FND_LOG.STRING(g_level_procedure,
1208: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.BEGIN',
1209: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(+)');
1210: END IF;
1211: p_return_status:= FND_API.G_RET_STS_SUCCESS;
1212:
1213: FOR i in p_rnd_begin_index..p_rnd_end_index
1217: NVL(p_rec_nrec_dist_tbl(i).freeze_flag, 'N') <> 'Y'
1218: THEN
1219: IF (g_level_statement >= g_current_runtime_level ) THEN
1220: FND_LOG.STRING(g_level_statement,
1221: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1222: 'Reverse flag and freeze flag are not Y');
1223: END IF;
1224:
1225:
1255: ZX_API_PUB.add_msg(ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
1256:
1257: IF (g_level_statement >= g_current_runtime_level ) THEN
1258: FND_LOG.STRING(g_level_statement,
1259: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1260: 'No Open Period or future period found for the accounting date passed by Payables');
1261: FND_LOG.STRING(g_level_statement,
1262: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1263: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1258: FND_LOG.STRING(g_level_statement,
1259: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1260: 'No Open Period or future period found for the accounting date passed by Payables');
1261: FND_LOG.STRING(g_level_statement,
1262: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1263: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1264: END IF;
1265: RETURN;
1266: END IF;*/
1259: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1260: 'No Open Period or future period found for the accounting date passed by Payables');
1261: FND_LOG.STRING(g_level_statement,
1262: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1263: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1264: END IF;
1265: RETURN;
1266: END IF;*/
1267:
1268: -- tax only line
1269: IF p_rec_nrec_dist_tbl(i).Tax_Only_Line_Flag = 'Y' THEN
1270: IF (g_level_statement >= g_current_runtime_level ) THEN
1271: FND_LOG.STRING(g_level_statement,
1272: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1273: 'Tax only line flag is Y');
1274: END IF;
1275:
1276:
1279:
1280: ELSE
1281: IF (g_level_statement >= g_current_runtime_level ) THEN
1282: FND_LOG.STRING(g_level_statement,
1283: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1284: 'Tax only line flag is not Y');
1285: END IF;
1286:
1287:
1369: ZX_API_PUB.add_msg(ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
1370:
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: 'No Open Period or future period found for the accounting date passed by Payables');
1375: FND_LOG.STRING(g_level_statement,
1376: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1377: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1372: FND_LOG.STRING(g_level_statement,
1373: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1374: 'No Open Period or future period found for the accounting date passed by Payables');
1375: FND_LOG.STRING(g_level_statement,
1376: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1377: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1378: END IF;
1379: RETURN;
1380: END IF;
1373: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1374: 'No Open Period or future period found for the accounting date passed by Payables');
1375: FND_LOG.STRING(g_level_statement,
1376: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1377: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1378: END IF;
1379: RETURN;
1380: END IF;
1381: END;
1402: ZX_API_PUB.add_msg(ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
1403:
1404: IF (g_level_statement >= g_current_runtime_level ) THEN
1405: FND_LOG.STRING(g_level_statement,
1406: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1407: 'No Open Period or future period found for the accounting date passed by Payables');
1408: FND_LOG.STRING(g_level_statement,
1409: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1410: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1405: FND_LOG.STRING(g_level_statement,
1406: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1407: 'No Open Period or future period found for the accounting date passed by Payables');
1408: FND_LOG.STRING(g_level_statement,
1409: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1410: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1411: END IF;
1412: RETURN;
1413: END IF;
1406: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1407: 'No Open Period or future period found for the accounting date passed by Payables');
1408: FND_LOG.STRING(g_level_statement,
1409: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1410: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1411: END IF;
1412: RETURN;
1413: END IF;
1414: END IF;
1422: END LOOP;
1423:
1424: IF (g_level_procedure >= g_current_runtime_level ) THEN
1425: FND_LOG.STRING(g_level_procedure,
1426: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1427: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1428: END IF;
1429:
1430: EXCEPTION
1423:
1424: IF (g_level_procedure >= g_current_runtime_level ) THEN
1425: FND_LOG.STRING(g_level_procedure,
1426: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1427: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1428: END IF;
1429:
1430: EXCEPTION
1431: WHEN OTHERS THEN
1433: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1434:
1435: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1436: FND_LOG.STRING(g_level_unexpected,
1437: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1438: p_error_buffer);
1439: FND_LOG.STRING(g_level_unexpected,
1440: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1441: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1436: FND_LOG.STRING(g_level_unexpected,
1437: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1438: p_error_buffer);
1439: FND_LOG.STRING(g_level_unexpected,
1440: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1441: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1442: END IF;
1443:
1444: END GET_TAX_RELATED_COLUMNS_VAR;
1437: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR',
1438: p_error_buffer);
1439: FND_LOG.STRING(g_level_unexpected,
1440: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR.END',
1441: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_TAX_RELATED_COLUMNS_VAR(-)');
1442: END IF;
1443:
1444: END GET_TAX_RELATED_COLUMNS_VAR;
1445:
1627: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1628:
1629: IF (g_level_procedure >= g_current_runtime_level ) THEN
1630: FND_LOG.STRING(g_level_procedure,
1631: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.BEGIN',
1632: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(+)');
1633: END IF;
1634:
1635: p_return_status:= FND_API.G_RET_STS_SUCCESS;
1628:
1629: IF (g_level_procedure >= g_current_runtime_level ) THEN
1630: FND_LOG.STRING(g_level_procedure,
1631: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.BEGIN',
1632: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(+)');
1633: END IF;
1634:
1635: p_return_status:= FND_API.G_RET_STS_SUCCESS;
1636:
1639: l_tax_regime_code := p_detail_tax_line_tbl(p_tax_line_index).tax_regime_code;
1640:
1641: IF (g_level_statement >= g_current_runtime_level ) THEN
1642: FND_LOG.STRING(g_level_statement,
1643: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1644: 'Tax is '|| l_tax || ' Tax Regime code is '|| l_tax_regime_code);
1645: END IF;
1646:
1647: -- Bug#5417753- determine tax_class value
1656: IF NOT g_tax_recovery_info_tbl.EXISTS(l_tax_id)
1657: THEN
1658: IF (g_level_statement >= g_current_runtime_level ) THEN
1659: FND_LOG.STRING(g_level_statement,
1660: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1661: 'Populating tax cache information ');
1662: END IF;
1663:
1664:
1681: IF get_tax_rec_info_from_tax_csr%NOTFOUND THEN
1682: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1683: IF (g_level_statement >= g_current_runtime_level ) THEN
1684: FND_LOG.STRING(g_level_statement,
1685: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1686: 'error: ' || 'no tax info can be found for '||l_tax_id);
1687: END IF;
1688: CLOSE get_tax_rec_info_from_tax_csr;
1689: RETURN;
1705: p_error_buffer => p_error_buffer);
1706: END IF;
1707: IF (g_level_statement >= g_current_runtime_level ) THEN
1708: FND_LOG.STRING(g_level_statement,
1709: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1710: 'Populated tax cache information ');
1711: END IF;
1712:
1713:
1725:
1726: IF (g_level_procedure >= g_current_runtime_level ) THEN
1727:
1728: FND_LOG.STRING(g_level_procedure,
1729: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
1730: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)'||
1731: 'tax recovery rate is copied from applied_from or adjusted_to document');
1732: END IF;
1733: RETURN;
1726: IF (g_level_procedure >= g_current_runtime_level ) THEN
1727:
1728: FND_LOG.STRING(g_level_procedure,
1729: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
1730: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)'||
1731: 'tax recovery rate is copied from applied_from or adjusted_to document');
1732: END IF;
1733: RETURN;
1734:
1734:
1735: END IF;
1736: IF (g_level_statement >= g_current_runtime_level ) THEN
1737: FND_LOG.STRING(g_level_statement,
1738: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1739: 'Adjusted doc, applied from doc information is null ');
1740: END IF;
1741:
1742:
1756: p_rnd_begin_index > p_rnd_end_index
1757: THEN
1758: IF (g_level_statement >= g_current_runtime_level ) THEN
1759: FND_LOG.STRING(g_level_statement,
1760: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1761: 'begin or end index is null, or begin index > end index');
1762: END IF;
1763: RETURN;
1764: END IF;
1769: NVL(p_rec_nrec_dist_tbl(i).freeze_flag, 'N') <> 'Y'
1770: THEN
1771: IF (g_level_statement >= g_current_runtime_level ) THEN
1772: FND_LOG.STRING(g_level_statement,
1773: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1774: 'Reverse flag and freeze flag are not Y.');
1775: END IF;
1776:
1777:
1777:
1778: IF NVL(p_rec_nrec_dist_tbl(i).recoverable_flag,'N') = 'N' THEN
1779: IF (g_level_statement >= g_current_runtime_level ) THEN
1780: FND_LOG.STRING(g_level_statement,
1781: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1782: 'Recoverable flag is N');
1783: END IF;
1784:
1785: l_non_rec_index := i;
1802:
1803: ELSE -- recoverable line
1804: IF (g_level_statement >= g_current_runtime_level ) THEN
1805: FND_LOG.STRING(g_level_statement,
1806: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1807: 'Recoverable flag is Y');
1808: END IF;
1809:
1810:
1837: l_rec_rate_code := p_rec_nrec_dist_tbl(i).recovery_rate_code;
1838:
1839: IF (g_level_statement >= g_current_runtime_level ) THEN
1840: FND_LOG.STRING(g_level_statement,
1841: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1842: 'Enforce Tax Recovery Code from Reference Document.');
1843: END IF;
1844:
1845: ELSE
1858: -- rules processing unconditionally. Rules Engine will process for the rec_rule_code
1859: -- that is passed and if not found then will process further.
1860: IF (g_level_statement >= g_current_runtime_level ) THEN
1861: FND_LOG.STRING(g_level_statement,
1862: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1863: 'l_rec_rule_code : '|| l_rec_rule_code);
1864: FND_LOG.STRING(g_level_statement,
1865: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1866: 'l_def_rec_rate_code : ' || l_def_rec_rate_code);
1861: FND_LOG.STRING(g_level_statement,
1862: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1863: 'l_rec_rule_code : '|| l_rec_rule_code);
1864: FND_LOG.STRING(g_level_statement,
1865: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1866: 'l_def_rec_rate_code : ' || l_def_rec_rate_code);
1867: FND_LOG.STRING(g_level_statement,
1868: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1869: 'l_def_rec_settlement_code : ' ||l_def_rec_settlement_code );
1864: FND_LOG.STRING(g_level_statement,
1865: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1866: 'l_def_rec_rate_code : ' || l_def_rec_rate_code);
1867: FND_LOG.STRING(g_level_statement,
1868: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1869: 'l_def_rec_settlement_code : ' ||l_def_rec_settlement_code );
1870:
1871: END IF;
1872:
1887: l_rec_rate_code:= l_zx_result_rec.alphanumeric_result;
1888: l_rec_rate_id:= l_zx_result_rec.numeric_result;
1889: IF (g_level_statement >= g_current_runtime_level ) THEN
1890: FND_LOG.STRING(g_level_statement,
1891: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1892: 'l_rec_rate_code : '||l_rec_rate_code );
1893: FND_LOG.STRING(g_level_statement,
1894: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1895: 'l_rec_rate_id : ' || to_char(l_rec_rate_id));
1890: FND_LOG.STRING(g_level_statement,
1891: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1892: 'l_rec_rate_code : '||l_rec_rate_code );
1893: FND_LOG.STRING(g_level_statement,
1894: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1895: 'l_rec_rate_id : ' || to_char(l_rec_rate_id));
1896:
1897: END IF;
1898:
1916: --
1917: IF NVL(p_rec_nrec_dist_tbl(i).rec_rate_det_rule_flag, 'N') = 'N' THEN
1918: IF (g_level_statement >= g_current_runtime_level ) THEN
1919: FND_LOG.STRING(g_level_statement,
1920: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
1921: 'rec_rate_det_rule_flag is N ');
1922: END IF;
1923:
1924: OPEN get_rec_info_csr(l_tax_rate_id);
2020: ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
2021:
2022: IF (g_level_statement >= g_current_runtime_level ) THEN
2023: FND_LOG.STRING(g_level_statement,
2024: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2025: 'Cannot find default rec rate code');
2026: FND_LOG.STRING(g_level_statement,
2027: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2028: 'p_return_status := ' || p_return_status);
2023: FND_LOG.STRING(g_level_statement,
2024: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2025: 'Cannot find default rec rate code');
2026: FND_LOG.STRING(g_level_statement,
2027: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2028: 'p_return_status := ' || p_return_status);
2029: FND_LOG.STRING(g_level_statement,
2030: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2031: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2026: FND_LOG.STRING(g_level_statement,
2027: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2028: 'p_return_status := ' || p_return_status);
2029: FND_LOG.STRING(g_level_statement,
2030: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2031: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2032: END IF;
2033: RETURN;
2034: END IF; -- default tax recovery rate code not found, raise error
2027: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2028: 'p_return_status := ' || p_return_status);
2029: FND_LOG.STRING(g_level_statement,
2030: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2031: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2032: END IF;
2033: RETURN;
2034: END IF; -- default tax recovery rate code not found, raise error
2035: END IF; -- default tax recovery rate code at Tax level
2037: END IF; -- default tax recovery rate code for Tax Rate
2038:
2039: IF (g_level_statement >= g_current_runtime_level ) THEN
2040: FND_LOG.STRING(g_level_statement,
2041: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2042: 'l_rec_rate_code = ' || l_rec_rate_code);
2043: END IF;
2044: END IF; -- p_event_class_rec.enforce_tax_from_ref_doc_flag
2045:
2127:
2128:
2129: IF (g_level_statement >= g_current_runtime_level ) THEN
2130: FND_LOG.STRING(g_level_statement,
2131: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2132: 'error: Recovery rate is not found.');
2133:
2134: FND_LOG.STRING(g_level_statement,
2135: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2131: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2132: 'error: Recovery rate is not found.');
2133:
2134: FND_LOG.STRING(g_level_statement,
2135: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2136: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2137: END IF;
2138: RETURN;
2139: END IF;
2132: 'error: Recovery rate is not found.');
2133:
2134: FND_LOG.STRING(g_level_statement,
2135: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2136: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2137: END IF;
2138: RETURN;
2139: END IF;
2140: END IF; -- LME <> 'RECOVERY_RATE_CODE' OR historical_flag <> 'Y'
2175: p_rec_nrec_dist_tbl(i).account_source_tax_rate_id :=
2176: l_acct_source_tax_rate_id;
2177: IF (g_level_statement >= g_current_runtime_level ) THEN
2178: FND_LOG.STRING(g_level_statement,
2179: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2180: 'Tax accounts defined for recovery rate id '|| to_char(p_rec_nrec_dist_tbl(i).recovery_rate_id));
2181:
2182: END IF;
2183:
2187: -- p_detail_tax_line_tbl(p_tax_line_index).account_source_tax_rate_id;
2188: -- This ELSE part contains the fix for bug 6900725
2189: IF (g_level_statement >= g_current_runtime_level ) THEN
2190: FND_LOG.STRING(g_level_statement,
2191: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2192: 'Tax accounts not defined for recovery rate id '|| to_char(p_rec_nrec_dist_tbl(i).recovery_rate_id));
2193:
2194: END IF;
2195:
2195:
2196: IF g_tax_recovery_info_tbl(l_tax_id).tax_account_source_tax IS NOT NULL THEN
2197: IF (g_level_statement >= g_current_runtime_level ) THEN
2198: FND_LOG.STRING(g_level_statement,
2199: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2200: 'Getting account source tax rate id from Tax Accounts Source Tax '|| g_tax_recovery_info_tbl(l_tax_id).tax_account_source_tax );
2201:
2202: END IF;
2203:
2239: END LOOP;
2240: END IF;
2241: IF (g_level_statement >= g_current_runtime_level ) THEN
2242: FND_LOG.STRING(g_level_statement,
2243: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2244: 'Account source tax rate id for recovery rate '|| to_char(p_rec_nrec_dist_tbl(i).account_source_tax_rate_id));
2245:
2246: END IF;
2247:
2260:
2261: END IF;
2262: IF (g_level_statement >= g_current_runtime_level ) THEN
2263: FND_LOG.STRING(g_level_statement,
2264: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2265: 'Final Account source tax rate id '|| to_char(p_rec_nrec_dist_tbl(i).account_source_tax_rate_id));
2266:
2267: END IF;
2268:
2322:
2323: END IF;
2324: IF (g_level_statement >= g_current_runtime_level ) THEN
2325: FND_LOG.STRING(g_level_statement,
2326: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2327: 'Account source tax rate id for non recoverable dist '||p_rec_nrec_dist_tbl(l_non_rec_index).account_source_tax_rate_id);
2328:
2329: END IF;
2330:
2358: ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec);
2359:
2360: IF (g_level_statement >= g_current_runtime_level ) THEN
2361: FND_LOG.STRING(g_level_statement,
2362: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2363: 'Error: Total Recovery Rate is greater than 100');
2364: END IF;
2365: RETURN;
2366:
2367: END IF;
2368:
2369: IF (g_level_statement >= g_current_runtime_level ) THEN
2370: FND_LOG.STRING(g_level_statement,
2371: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2372: 'p_rec_nrec_dist_tbl(' || l_non_rec_index ||
2373: ').rec_nrec_rate = '
2374: || p_rec_nrec_dist_tbl(l_non_rec_index).rec_nrec_rate);
2375: END IF;
2375: END IF;
2376:
2377: IF (g_level_procedure >= g_current_runtime_level ) THEN
2378: FND_LOG.STRING(g_level_procedure,
2379: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2380: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2381: END IF;
2382:
2383: EXCEPTION
2376:
2377: IF (g_level_procedure >= g_current_runtime_level ) THEN
2378: FND_LOG.STRING(g_level_procedure,
2379: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2380: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2381: END IF;
2382:
2383: EXCEPTION
2384: WHEN OTHERS THEN
2386: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2387:
2388: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2389: FND_LOG.STRING(g_level_unexpected,
2390: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2391: p_error_buffer);
2392: FND_LOG.STRING(g_level_unexpected,
2393: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2394: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2389: FND_LOG.STRING(g_level_unexpected,
2390: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2391: p_error_buffer);
2392: FND_LOG.STRING(g_level_unexpected,
2393: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2394: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2395: END IF;
2396: END get_rec_rate;
2397:
2390: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate',
2391: p_error_buffer);
2392: FND_LOG.STRING(g_level_unexpected,
2393: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate.END',
2394: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_rec_rate(-)');
2395: END IF;
2396: END get_rec_rate;
2397:
2398: PROCEDURE GET_REC_NREC_DIST_AMT(
2408: BEGIN
2409: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2410: IF (g_level_procedure >= g_current_runtime_level ) THEN
2411: FND_LOG.STRING(g_level_procedure,
2412: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.BEGIN',
2413: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(+)');
2414: END IF;
2415: p_return_status:= FND_API.G_RET_STS_SUCCESS;
2416:
2409: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2410: IF (g_level_procedure >= g_current_runtime_level ) THEN
2411: FND_LOG.STRING(g_level_procedure,
2412: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.BEGIN',
2413: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(+)');
2414: END IF;
2415: p_return_status:= FND_API.G_RET_STS_SUCCESS;
2416:
2417: For i in p_rnd_begin_index..p_rnd_end_index
2425: END LOOP;
2426:
2427: IF (g_level_procedure >= g_current_runtime_level ) THEN
2428: FND_LOG.STRING(g_level_procedure,
2429: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.END',
2430: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(-)');
2431: END IF;
2432:
2433: EXCEPTION
2426:
2427: IF (g_level_procedure >= g_current_runtime_level ) THEN
2428: FND_LOG.STRING(g_level_procedure,
2429: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.END',
2430: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(-)');
2431: END IF;
2432:
2433: EXCEPTION
2434: WHEN OTHERS THEN
2436: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2437:
2438: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2439: FND_LOG.STRING(g_level_unexpected,
2440: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT',
2441: p_error_buffer);
2442: FND_LOG.STRING(g_level_unexpected,
2443: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.END',
2444: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(-)');
2439: FND_LOG.STRING(g_level_unexpected,
2440: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT',
2441: p_error_buffer);
2442: FND_LOG.STRING(g_level_unexpected,
2443: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.END',
2444: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(-)');
2445: END IF;
2446:
2447: END GET_REC_NREC_DIST_AMT;
2440: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT',
2441: p_error_buffer);
2442: FND_LOG.STRING(g_level_unexpected,
2443: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT.END',
2444: 'ZX_TRD_INTERNAL_SERVICES_PVT.GET_REC_NREC_DIST_AMT(-)');
2445: END IF;
2446:
2447: END GET_REC_NREC_DIST_AMT;
2448:
2472: BEGIN
2473: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2474: IF (g_level_procedure >= g_current_runtime_level ) THEN
2475: FND_LOG.STRING(g_level_procedure,
2476: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.BEGIN',
2477: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(+)');
2478: END IF;
2479:
2480: p_return_status:= FND_API.G_RET_STS_SUCCESS;
2473: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2474: IF (g_level_procedure >= g_current_runtime_level ) THEN
2475: FND_LOG.STRING(g_level_procedure,
2476: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.BEGIN',
2477: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(+)');
2478: END IF;
2479:
2480: p_return_status:= FND_API.G_RET_STS_SUCCESS;
2481:
2484:
2485: --p_return_status:= FND_API.G_RET_STS_ERROR;
2486: IF (g_level_statement >= g_current_runtime_level ) THEN
2487: FND_LOG.STRING(g_level_statement,
2488: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2489: 'begin or end index is null, or begin index > end index');
2490: END IF;
2491: RETURN;
2492: END IF;
2521:
2522: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2523: IF (g_level_error >= g_current_runtime_level ) THEN
2524: FND_LOG.STRING(g_level_error,
2525: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt',
2526: 'Incorrect return_status after calling ' ||
2527: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists()');
2528: FND_LOG.STRING(g_level_error,
2529: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt.END',
2523: IF (g_level_error >= g_current_runtime_level ) THEN
2524: FND_LOG.STRING(g_level_error,
2525: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt',
2526: 'Incorrect return_status after calling ' ||
2527: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists()');
2528: FND_LOG.STRING(g_level_error,
2529: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt.END',
2530: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt(-)'||p_return_status);
2531: END IF;
2525: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt',
2526: 'Incorrect return_status after calling ' ||
2527: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists()');
2528: FND_LOG.STRING(g_level_error,
2529: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt.END',
2530: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt(-)'||p_return_status);
2531: END IF;
2532: RETURN;
2533: END IF;
2526: 'Incorrect return_status after calling ' ||
2527: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists()');
2528: FND_LOG.STRING(g_level_error,
2529: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt.END',
2530: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt(-)'||p_return_status);
2531: END IF;
2532: RETURN;
2533: END IF;
2534:
2549:
2550: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS THEN
2551: IF (g_level_statement >= g_current_runtime_level ) THEN
2552: FND_LOG.STRING(g_level_statement,
2553: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2554: 'Incorrect return_status after calling ' ||
2555: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts');
2556: FND_LOG.STRING(g_level_statement,
2557: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2551: IF (g_level_statement >= g_current_runtime_level ) THEN
2552: FND_LOG.STRING(g_level_statement,
2553: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2554: 'Incorrect return_status after calling ' ||
2555: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts');
2556: FND_LOG.STRING(g_level_statement,
2557: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2558: 'RETURN_STATUS = ' || p_return_status);
2559: FND_LOG.STRING(g_level_statement,
2553: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2554: 'Incorrect return_status after calling ' ||
2555: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts');
2556: FND_LOG.STRING(g_level_statement,
2557: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2558: 'RETURN_STATUS = ' || p_return_status);
2559: FND_LOG.STRING(g_level_statement,
2560: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2561: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)');
2556: FND_LOG.STRING(g_level_statement,
2557: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2558: 'RETURN_STATUS = ' || p_return_status);
2559: FND_LOG.STRING(g_level_statement,
2560: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2561: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)');
2562: END IF;
2563: RETURN;
2564: END IF;
2557: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2558: 'RETURN_STATUS = ' || p_return_status);
2559: FND_LOG.STRING(g_level_statement,
2560: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2561: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)');
2562: END IF;
2563: RETURN;
2564: END IF;
2565:
2583:
2584: IF (g_level_procedure >= g_current_runtime_level ) THEN
2585:
2586: FND_LOG.STRING(g_level_procedure,
2587: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2588: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)'||p_return_status);
2589: END IF;
2590:
2591: EXCEPTION
2584: IF (g_level_procedure >= g_current_runtime_level ) THEN
2585:
2586: FND_LOG.STRING(g_level_procedure,
2587: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2588: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)'||p_return_status);
2589: END IF;
2590:
2591: EXCEPTION
2592: WHEN OTHERS THEN
2594: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2595:
2596: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2597: FND_LOG.STRING(g_level_unexpected,
2598: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2599: p_error_buffer);
2600: FND_LOG.STRING(g_level_unexpected,
2601: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2602: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)');
2597: FND_LOG.STRING(g_level_unexpected,
2598: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2599: p_error_buffer);
2600: FND_LOG.STRING(g_level_unexpected,
2601: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2602: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)');
2603: END IF;
2604:
2605: END ROUND_REC_NREC_AMT;
2598: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT',
2599: p_error_buffer);
2600: FND_LOG.STRING(g_level_unexpected,
2601: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT.END',
2602: 'ZX_TRD_INTERNAL_SERVICES_PVT.ROUND_REC_NREC_AMT(-)');
2603: END IF;
2604:
2605: END ROUND_REC_NREC_AMT;
2606:
2641: BEGIN
2642:
2643: IF (g_level_procedure >= g_current_runtime_level ) THEN
2644: FND_LOG.STRING(g_level_procedure,
2645: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.BEGIN',
2646: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(+)');
2647: END IF;
2648:
2649: p_return_status:= FND_API.G_RET_STS_SUCCESS;
2642:
2643: IF (g_level_procedure >= g_current_runtime_level ) THEN
2644: FND_LOG.STRING(g_level_procedure,
2645: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.BEGIN',
2646: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(+)');
2647: END IF;
2648:
2649: p_return_status:= FND_API.G_RET_STS_SUCCESS;
2650:
2653:
2654: --p_return_status:= FND_API.G_RET_STS_ERROR;
2655: IF (g_level_statement >= g_current_runtime_level ) THEN
2656: FND_LOG.STRING(g_level_statement,
2657: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2658: 'begin or end index is null, or begin index > end index');
2659: END IF;
2660: RETURN;
2661: END IF;
2678: p_error_buffer => p_error_buffer);
2679:
2680: IF (g_level_statement >= g_current_runtime_level ) THEN
2681: FND_LOG.STRING(g_level_statement,
2682: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2683: ' i = '||to_char(i) || ' round '|| p_rec_nrec_dist_tbl(i).unrounded_rec_nrec_tax_amt ||
2684: ' to '|| p_rec_nrec_dist_tbl(i).rec_nrec_tax_amt);
2685: END IF;
2686:
2697: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
2698: THEN
2699: IF (g_level_error >= g_current_runtime_level ) THEN
2700: FND_LOG.STRING(g_level_error,
2701: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2702: 'Incorrect return_status after calling ' ||
2703: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
2704: FND_LOG.STRING(g_level_error,
2705: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2701: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2702: 'Incorrect return_status after calling ' ||
2703: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
2704: FND_LOG.STRING(g_level_error,
2705: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2706: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2707: END IF;
2708: RETURN;
2709: END IF;
2702: 'Incorrect return_status after calling ' ||
2703: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
2704: FND_LOG.STRING(g_level_error,
2705: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2706: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2707: END IF;
2708: RETURN;
2709: END IF;
2710:
2801: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
2802: THEN
2803: IF (g_level_error >= g_current_runtime_level ) THEN
2804: FND_LOG.STRING(g_level_error,
2805: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2806: 'Incorrect return_status after calling ' ||
2807: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
2808: FND_LOG.STRING(g_level_error,
2809: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2805: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2806: 'Incorrect return_status after calling ' ||
2807: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
2808: FND_LOG.STRING(g_level_error,
2809: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2810: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2811: END IF;
2812: RETURN;
2813: END IF;
2806: 'Incorrect return_status after calling ' ||
2807: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
2808: FND_LOG.STRING(g_level_error,
2809: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2810: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2811: END IF;
2812: RETURN;
2813: END IF;
2814:
2836: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
2837: THEN
2838: IF (g_level_error >= g_current_runtime_level ) THEN
2839: FND_LOG.STRING(g_level_error,
2840: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2841: 'Incorrect return_status after calling ' ||
2842: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
2843: FND_LOG.STRING(g_level_error,
2844: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2838: IF (g_level_error >= g_current_runtime_level ) THEN
2839: FND_LOG.STRING(g_level_error,
2840: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2841: 'Incorrect return_status after calling ' ||
2842: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
2843: FND_LOG.STRING(g_level_error,
2844: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2845: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2846: END IF;
2840: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2841: 'Incorrect return_status after calling ' ||
2842: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
2843: FND_LOG.STRING(g_level_error,
2844: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2845: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2846: END IF;
2847: RETURN;
2848: END IF;
2841: 'Incorrect return_status after calling ' ||
2842: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
2843: FND_LOG.STRING(g_level_error,
2844: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2845: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2846: END IF;
2847: RETURN;
2848: END IF;
2849:
2852: l_rec_tax_dists_tbl_sort_flg := 'Y';
2853:
2854: -- distribute rounding difference
2855: --
2856: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
2857: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
2858: p_rounding_diff => l_rec_tax_rnd_diff,
2859: p_min_acct_unit => l_min_acct_unit,
2860: p_return_status => p_return_status,
2863: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
2864: THEN
2865: IF (g_level_error >= g_current_runtime_level ) THEN
2866: FND_LOG.STRING(g_level_error,
2867: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2868: 'Incorrect return_status after calling ' ||
2869: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
2870: FND_LOG.STRING(g_level_error,
2871: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2865: IF (g_level_error >= g_current_runtime_level ) THEN
2866: FND_LOG.STRING(g_level_error,
2867: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2868: 'Incorrect return_status after calling ' ||
2869: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
2870: FND_LOG.STRING(g_level_error,
2871: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2872: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2873: END IF;
2867: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2868: 'Incorrect return_status after calling ' ||
2869: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
2870: FND_LOG.STRING(g_level_error,
2871: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2872: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2873: END IF;
2874: RETURN;
2875: END IF;
2868: 'Incorrect return_status after calling ' ||
2869: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
2870: FND_LOG.STRING(g_level_error,
2871: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2872: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2873: END IF;
2874: RETURN;
2875: END IF;
2876:
2895: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
2896: THEN
2897: IF (g_level_error >= g_current_runtime_level ) THEN
2898: FND_LOG.STRING(g_level_error,
2899: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2900: 'Incorrect return_status after calling ' ||
2901: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
2902: FND_LOG.STRING(g_level_error,
2903: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2897: IF (g_level_error >= g_current_runtime_level ) THEN
2898: FND_LOG.STRING(g_level_error,
2899: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2900: 'Incorrect return_status after calling ' ||
2901: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
2902: FND_LOG.STRING(g_level_error,
2903: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2904: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2905: END IF;
2899: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2900: 'Incorrect return_status after calling ' ||
2901: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
2902: FND_LOG.STRING(g_level_error,
2903: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2904: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2905: END IF;
2906: RETURN;
2907: END IF;
2900: 'Incorrect return_status after calling ' ||
2901: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
2902: FND_LOG.STRING(g_level_error,
2903: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2904: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
2905: END IF;
2906: RETURN;
2907: END IF;
2908:
2911: l_nrec_tax_dists_tbl_sort_flg := 'Y';
2912:
2913: -- distribute rounding difference
2914: --
2915: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
2916: l_non_zero_nrec_tax_dists_tbl,
2917: l_rec_tax_rnd_diff,
2918: l_min_acct_unit,
2919: p_return_status,
2922: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
2923: THEN
2924: IF (g_level_error >= g_current_runtime_level ) THEN
2925: FND_LOG.STRING(g_level_error,
2926: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2927: 'Incorrect return_status after calling ' ||
2928: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
2929: FND_LOG.STRING(g_level_error,
2930: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2924: IF (g_level_error >= g_current_runtime_level ) THEN
2925: FND_LOG.STRING(g_level_error,
2926: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2927: 'Incorrect return_status after calling ' ||
2928: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
2929: FND_LOG.STRING(g_level_error,
2930: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2931: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
2932: END IF;
2926: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2927: 'Incorrect return_status after calling ' ||
2928: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
2929: FND_LOG.STRING(g_level_error,
2930: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2931: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
2932: END IF;
2933: RETURN;
2934: END IF;
2927: 'Incorrect return_status after calling ' ||
2928: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
2929: FND_LOG.STRING(g_level_error,
2930: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2931: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
2932: END IF;
2933: RETURN;
2934: END IF;
2935:
2971: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
2972: THEN
2973: IF (g_level_error >= g_current_runtime_level ) THEN
2974: FND_LOG.STRING(g_level_error,
2975: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2976: 'Incorrect return_status after calling ' ||
2977: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
2978: FND_LOG.STRING(g_level_error,
2979: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2973: IF (g_level_error >= g_current_runtime_level ) THEN
2974: FND_LOG.STRING(g_level_error,
2975: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2976: 'Incorrect return_status after calling ' ||
2977: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
2978: FND_LOG.STRING(g_level_error,
2979: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2980: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
2981: END IF;
2975: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
2976: 'Incorrect return_status after calling ' ||
2977: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
2978: FND_LOG.STRING(g_level_error,
2979: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2980: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
2981: END IF;
2982: RETURN;
2983: END IF;
2976: 'Incorrect return_status after calling ' ||
2977: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
2978: FND_LOG.STRING(g_level_error,
2979: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
2980: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
2981: END IF;
2982: RETURN;
2983: END IF;
2984:
2989: END IF; -- l_nrec_tax_dists_tbl_sort_flg <> 'Y'
2990:
2991: -- distribute rounding difference
2992: --
2993: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
2994: l_non_zero_nrec_tax_dists_tbl,
2995: l_nrec_tax_rnd_diff,
2996: l_min_acct_unit,
2997: p_return_status,
3000: IF NVL(p_return_status,FND_API.G_RET_STS_ERROR)<>FND_API.G_RET_STS_SUCCESS
3001: THEN
3002: IF (g_level_error >= g_current_runtime_level ) THEN
3003: FND_LOG.STRING(g_level_error,
3004: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3005: 'Incorrect return_status after calling ' ||
3006: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3007: FND_LOG.STRING(g_level_error,
3008: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3002: IF (g_level_error >= g_current_runtime_level ) THEN
3003: FND_LOG.STRING(g_level_error,
3004: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3005: 'Incorrect return_status after calling ' ||
3006: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3007: FND_LOG.STRING(g_level_error,
3008: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3009: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3010: END IF;
3004: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3005: 'Incorrect return_status after calling ' ||
3006: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3007: FND_LOG.STRING(g_level_error,
3008: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3009: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3010: END IF;
3011: RETURN;
3012: END IF;
3005: 'Incorrect return_status after calling ' ||
3006: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3007: FND_LOG.STRING(g_level_error,
3008: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3009: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3010: END IF;
3011: RETURN;
3012: END IF;
3013:
3033: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3034: THEN
3035: IF (g_level_error >= g_current_runtime_level ) THEN
3036: FND_LOG.STRING(g_level_error,
3037: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3038: 'Incorrect return_status after calling ' ||
3039: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3040: FND_LOG.STRING(g_level_error,
3041: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3035: IF (g_level_error >= g_current_runtime_level ) THEN
3036: FND_LOG.STRING(g_level_error,
3037: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3038: 'Incorrect return_status after calling ' ||
3039: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3040: FND_LOG.STRING(g_level_error,
3041: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3042: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3043: END IF;
3037: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3038: 'Incorrect return_status after calling ' ||
3039: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3040: FND_LOG.STRING(g_level_error,
3041: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3042: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3043: END IF;
3044: RETURN;
3045: END IF;
3038: 'Incorrect return_status after calling ' ||
3039: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3040: FND_LOG.STRING(g_level_error,
3041: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3042: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3043: END IF;
3044: RETURN;
3045: END IF;
3046:
3051: END IF; -- l_nrec_tax_dists_tbl_sort_flg <> 'Y'
3052:
3053: -- distribute rounding difference
3054: --
3055: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
3056: l_non_zero_rec_tax_dists_tbl,
3057: l_nrec_tax_rnd_diff,
3058: l_min_acct_unit,
3059: p_return_status,
3062: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3063: THEN
3064: IF (g_level_error >= g_current_runtime_level ) THEN
3065: FND_LOG.STRING(g_level_error,
3066: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3067: 'Incorrect return_status after calling ' ||
3068: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3069: FND_LOG.STRING(g_level_error,
3070: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3064: IF (g_level_error >= g_current_runtime_level ) THEN
3065: FND_LOG.STRING(g_level_error,
3066: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3067: 'Incorrect return_status after calling ' ||
3068: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3069: FND_LOG.STRING(g_level_error,
3070: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3071: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3072: END IF;
3066: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3067: 'Incorrect return_status after calling ' ||
3068: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3069: FND_LOG.STRING(g_level_error,
3070: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3071: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3072: END IF;
3073: RETURN;
3074: END IF;
3067: 'Incorrect return_status after calling ' ||
3068: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3069: FND_LOG.STRING(g_level_error,
3070: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3071: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3072: END IF;
3073: RETURN;
3074: END IF;
3075:
3136:
3137: IF (g_level_procedure >= g_current_runtime_level ) THEN
3138:
3139: FND_LOG.STRING(g_level_procedure,
3140: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3141: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3142: END IF;
3143:
3144: EXCEPTION
3137: IF (g_level_procedure >= g_current_runtime_level ) THEN
3138:
3139: FND_LOG.STRING(g_level_procedure,
3140: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3141: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)'||p_return_status);
3142: END IF;
3143:
3144: EXCEPTION
3145:
3148: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3149:
3150: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3151: FND_LOG.STRING(g_level_unexpected,
3152: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3153: p_error_buffer);
3154: FND_LOG.STRING(g_level_unexpected,
3155: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3156: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3151: FND_LOG.STRING(g_level_unexpected,
3152: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3153: p_error_buffer);
3154: FND_LOG.STRING(g_level_unexpected,
3155: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3156: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3157: END IF;
3158:
3159: END round_tax_dists_trx_curr;
3152: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr',
3153: p_error_buffer);
3154: FND_LOG.STRING(g_level_unexpected,
3155: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr.END',
3156: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_tax_dists_trx_curr(-)');
3157: END IF;
3158:
3159: END round_tax_dists_trx_curr;
3160:
3213: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3214:
3215: IF (g_level_procedure >= g_current_runtime_level ) THEN
3216: FND_LOG.STRING(g_level_procedure,
3217: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.BEGIN',
3218: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(+)');
3219: END IF;
3220:
3221: p_return_status:= FND_API.G_RET_STS_SUCCESS;
3214:
3215: IF (g_level_procedure >= g_current_runtime_level ) THEN
3216: FND_LOG.STRING(g_level_procedure,
3217: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.BEGIN',
3218: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(+)');
3219: END IF;
3220:
3221: p_return_status:= FND_API.G_RET_STS_SUCCESS;
3222:
3225:
3226: --p_return_status:= FND_API.G_RET_STS_ERROR;
3227: IF (g_level_statement >= g_current_runtime_level ) THEN
3228: FND_LOG.STRING(g_level_statement,
3229: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3230: 'begin or end index is null, or begin index > end index');
3231: END IF;
3232: RETURN;
3233: END IF;
3253: IF p_rec_nrec_dist_tbl(p_rnd_begin_index).tax_currency_code IS NULL THEN
3254: p_return_status:= FND_API.G_RET_STS_ERROR;
3255: IF (g_level_error >= g_current_runtime_level ) THEN
3256: FND_LOG.STRING(g_level_error,
3257: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3258: 'Tax currency code is NULL');
3259: FND_LOG.STRING(g_level_error,
3260: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3261: 'p_return_status = ' || p_return_status);
3256: FND_LOG.STRING(g_level_error,
3257: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3258: 'Tax currency code is NULL');
3259: FND_LOG.STRING(g_level_error,
3260: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3261: 'p_return_status = ' || p_return_status);
3262: END IF;
3263: RETURN;
3264: END IF;
3311: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3312: THEN
3313: IF (g_level_error >= g_current_runtime_level ) THEN
3314: FND_LOG.STRING(g_level_error,
3315: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3316: 'Incorrect return_status after calling ' ||
3317: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3318: FND_LOG.STRING(g_level_error,
3319: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3315: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3316: 'Incorrect return_status after calling ' ||
3317: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3318: FND_LOG.STRING(g_level_error,
3319: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3320: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3321: END IF;
3322: RETURN;
3323: END IF;
3316: 'Incorrect return_status after calling ' ||
3317: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3318: FND_LOG.STRING(g_level_error,
3319: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3320: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3321: END IF;
3322: RETURN;
3323: END IF;
3324:
3336: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3337: THEN
3338: IF (g_level_error >= g_current_runtime_level ) THEN
3339: FND_LOG.STRING(g_level_error,
3340: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3341: 'Incorrect return_status after calling ' ||
3342: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3343: FND_LOG.STRING(g_level_error,
3344: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3340: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3341: 'Incorrect return_status after calling ' ||
3342: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3343: FND_LOG.STRING(g_level_error,
3344: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3345: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3346: END IF;
3347: RETURN;
3348: END IF;
3341: 'Incorrect return_status after calling ' ||
3342: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3343: FND_LOG.STRING(g_level_error,
3344: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3345: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3346: END IF;
3347: RETURN;
3348: END IF;
3349:
3443: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3444: THEN
3445: IF (g_level_error >= g_current_runtime_level ) THEN
3446: FND_LOG.STRING(g_level_error,
3447: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3448: 'Incorrect return_status after calling ' ||
3449: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3450: FND_LOG.STRING(g_level_error,
3451: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3447: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3448: 'Incorrect return_status after calling ' ||
3449: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3450: FND_LOG.STRING(g_level_error,
3451: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3452: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3453: END IF;
3454: RETURN;
3455: END IF;
3448: 'Incorrect return_status after calling ' ||
3449: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3450: FND_LOG.STRING(g_level_error,
3451: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3452: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3453: END IF;
3454: RETURN;
3455: END IF;
3456:
3477: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3478: THEN
3479: IF (g_level_error >= g_current_runtime_level ) THEN
3480: FND_LOG.STRING(g_level_error,
3481: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3482: 'Incorrect return_status after calling ' ||
3483: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3484: FND_LOG.STRING(g_level_error,
3485: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3481: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3482: 'Incorrect return_status after calling ' ||
3483: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3484: FND_LOG.STRING(g_level_error,
3485: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3486: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3487: END IF;
3488: RETURN;
3489: END IF;
3482: 'Incorrect return_status after calling ' ||
3483: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3484: FND_LOG.STRING(g_level_error,
3485: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3486: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3487: END IF;
3488: RETURN;
3489: END IF;
3490:
3506: IF l_non_zero_rec_tax_dists_tbl.COUNT > 0 THEN
3507:
3508: -- sort l_non_zero_rec_tax_dists_tbl
3509: --
3510: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
3511: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
3512: p_return_status => p_return_status,
3513: p_error_buffer => p_error_buffer);
3514:
3515: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3516: THEN
3517: IF (g_level_error >= g_current_runtime_level ) THEN
3518: FND_LOG.STRING(g_level_error,
3519: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3520: 'Incorrect return_status after calling ' ||
3521: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3522: FND_LOG.STRING(g_level_error,
3523: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3517: IF (g_level_error >= g_current_runtime_level ) THEN
3518: FND_LOG.STRING(g_level_error,
3519: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3520: 'Incorrect return_status after calling ' ||
3521: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3522: FND_LOG.STRING(g_level_error,
3523: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3524: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3525: END IF;
3519: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3520: 'Incorrect return_status after calling ' ||
3521: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3522: FND_LOG.STRING(g_level_error,
3523: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3524: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3525: END IF;
3526: RETURN;
3527: END IF;
3520: 'Incorrect return_status after calling ' ||
3521: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3522: FND_LOG.STRING(g_level_error,
3523: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3524: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3525: END IF;
3526: RETURN;
3527: END IF;
3528:
3531: l_rec_tax_dists_tbl_sort_flg := 'Y';
3532:
3533: -- distribute rounding difference
3534: --
3535: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
3536: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
3537: p_rounding_diff => l_rec_tax_rnd_diff_tax_curr,
3538: p_min_acct_unit => l_min_acct_unit_tax_curr,
3539: p_return_status => p_return_status,
3542: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3543: THEN
3544: IF (g_level_error >= g_current_runtime_level ) THEN
3545: FND_LOG.STRING(g_level_error,
3546: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3547: 'Incorrect return_status after calling ' ||
3548: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3549: FND_LOG.STRING(g_level_error,
3550: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3544: IF (g_level_error >= g_current_runtime_level ) THEN
3545: FND_LOG.STRING(g_level_error,
3546: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3547: 'Incorrect return_status after calling ' ||
3548: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3549: FND_LOG.STRING(g_level_error,
3550: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3551: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3552: END IF;
3546: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3547: 'Incorrect return_status after calling ' ||
3548: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3549: FND_LOG.STRING(g_level_error,
3550: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3551: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3552: END IF;
3553: RETURN;
3554: END IF;
3547: 'Incorrect return_status after calling ' ||
3548: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3549: FND_LOG.STRING(g_level_error,
3550: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3551: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3552: END IF;
3553: RETURN;
3554: END IF;
3555:
3565: ELSIF l_non_zero_nrec_tax_dists_tbl.COUNT > 0 THEN
3566:
3567: -- sort l_non_zero_nrec_tax_dists_tbl
3568: --
3569: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
3570: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
3571: p_return_status => p_return_status,
3572: p_error_buffer => p_error_buffer);
3573:
3574: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3575: THEN
3576: IF (g_level_error >= g_current_runtime_level ) THEN
3577: FND_LOG.STRING(g_level_error,
3578: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3579: 'Incorrect return_status after calling ' ||
3580: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3581: FND_LOG.STRING(g_level_error,
3582: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3576: IF (g_level_error >= g_current_runtime_level ) THEN
3577: FND_LOG.STRING(g_level_error,
3578: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3579: 'Incorrect return_status after calling ' ||
3580: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3581: FND_LOG.STRING(g_level_error,
3582: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3583: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3584: END IF;
3578: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3579: 'Incorrect return_status after calling ' ||
3580: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3581: FND_LOG.STRING(g_level_error,
3582: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3583: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3584: END IF;
3585: RETURN;
3586: END IF;
3579: 'Incorrect return_status after calling ' ||
3580: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3581: FND_LOG.STRING(g_level_error,
3582: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3583: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3584: END IF;
3585: RETURN;
3586: END IF;
3587:
3590: l_nrec_tax_dists_tbl_sort_flg := 'Y';
3591:
3592: -- distribute rounding difference
3593: --
3594: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
3595: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
3596: p_rounding_diff => l_rec_tax_rnd_diff_tax_curr,
3597: p_min_acct_unit => l_min_acct_unit_tax_curr,
3598: p_return_status => p_return_status,
3601: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3602: THEN
3603: IF (g_level_error >= g_current_runtime_level ) THEN
3604: FND_LOG.STRING(g_level_error,
3605: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3606: 'Incorrect return_status after calling ' ||
3607: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3608: FND_LOG.STRING(g_level_error,
3609: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3603: IF (g_level_error >= g_current_runtime_level ) THEN
3604: FND_LOG.STRING(g_level_error,
3605: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3606: 'Incorrect return_status after calling ' ||
3607: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3608: FND_LOG.STRING(g_level_error,
3609: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3610: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3611: END IF;
3605: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3606: 'Incorrect return_status after calling ' ||
3607: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3608: FND_LOG.STRING(g_level_error,
3609: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3610: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3611: END IF;
3612: RETURN;
3613: END IF;
3606: 'Incorrect return_status after calling ' ||
3607: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3608: FND_LOG.STRING(g_level_error,
3609: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3610: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3611: END IF;
3612: RETURN;
3613: END IF;
3614:
3634:
3635: IF NVL(l_nrec_tax_dists_tbl_sort_flg, 'N') <> 'Y' THEN
3636: -- sort l_non_zero_nrec_tax_dists_tbl
3637: --
3638: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
3639: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
3640: p_return_status => p_return_status,
3641: p_error_buffer => p_error_buffer);
3642:
3643: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3644: THEN
3645: IF (g_level_error >= g_current_runtime_level ) THEN
3646: FND_LOG.STRING(g_level_error,
3647: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3648: 'Incorrect return_status after calling ' ||
3649: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3650: FND_LOG.STRING(g_level_error,
3651: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3645: IF (g_level_error >= g_current_runtime_level ) THEN
3646: FND_LOG.STRING(g_level_error,
3647: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3648: 'Incorrect return_status after calling ' ||
3649: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3650: FND_LOG.STRING(g_level_error,
3651: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3652: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3653: END IF;
3647: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3648: 'Incorrect return_status after calling ' ||
3649: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3650: FND_LOG.STRING(g_level_error,
3651: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3652: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3653: END IF;
3654: RETURN;
3655: END IF;
3648: 'Incorrect return_status after calling ' ||
3649: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3650: FND_LOG.STRING(g_level_error,
3651: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3652: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
3653: END IF;
3654: RETURN;
3655: END IF;
3656:
3661: END IF; -- l_nrec_tax_dists_tbl_sort_flg <> 'Y'
3662:
3663: -- distribute rounding difference
3664: --
3665: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
3666: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
3667: p_rounding_diff => l_nrec_tax_rnd_diff_tax_curr,
3668: p_min_acct_unit => l_min_acct_unit_tax_curr,
3669: p_return_status => p_return_status,
3672: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3673: THEN
3674: IF (g_level_error >= g_current_runtime_level ) THEN
3675: FND_LOG.STRING(g_level_error,
3676: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3677: 'Incorrect return_status after calling ' ||
3678: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3679: FND_LOG.STRING(g_level_error,
3680: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3674: IF (g_level_error >= g_current_runtime_level ) THEN
3675: FND_LOG.STRING(g_level_error,
3676: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3677: 'Incorrect return_status after calling ' ||
3678: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3679: FND_LOG.STRING(g_level_error,
3680: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3681: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3682: END IF;
3676: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3677: 'Incorrect return_status after calling ' ||
3678: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3679: FND_LOG.STRING(g_level_error,
3680: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3681: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3682: END IF;
3683: RETURN;
3684: END IF;
3677: 'Incorrect return_status after calling ' ||
3678: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3679: FND_LOG.STRING(g_level_error,
3680: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3681: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3682: END IF;
3683: RETURN;
3684: END IF;
3685:
3696:
3697: IF NVL(l_rec_tax_dists_tbl_sort_flg, 'N') <> 'Y' THEN
3698: -- sort l_non_zero_nrec_tax_dists_tbl
3699: --
3700: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
3701: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
3702: p_return_status => p_return_status,
3703: p_error_buffer => p_error_buffer);
3704:
3705: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3706: THEN
3707: IF (g_level_error >= g_current_runtime_level ) THEN
3708: FND_LOG.STRING(g_level_error,
3709: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3710: 'Incorrect return_status after calling ' ||
3711: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3712: FND_LOG.STRING(g_level_error,
3713: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3707: IF (g_level_error >= g_current_runtime_level ) THEN
3708: FND_LOG.STRING(g_level_error,
3709: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3710: 'Incorrect return_status after calling ' ||
3711: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3712: FND_LOG.STRING(g_level_error,
3713: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3714: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3715: END IF;
3709: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3710: 'Incorrect return_status after calling ' ||
3711: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3712: FND_LOG.STRING(g_level_error,
3713: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3714: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3715: END IF;
3716: RETURN;
3717: END IF;
3710: 'Incorrect return_status after calling ' ||
3711: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
3712: FND_LOG.STRING(g_level_error,
3713: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3714: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3715: END IF;
3716: RETURN;
3717: END IF;
3718:
3723: END IF; -- l_nrec_tax_dists_tbl_sort_flg <> 'Y'
3724:
3725: -- distribute rounding difference
3726: --
3727: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
3728: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
3729: p_rounding_diff => l_nrec_tax_rnd_diff_tax_curr,
3730: p_min_acct_unit => l_min_acct_unit_tax_curr,
3731: p_return_status => p_return_status,
3734: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
3735: THEN
3736: IF (g_level_error >= g_current_runtime_level ) THEN
3737: FND_LOG.STRING(g_level_error,
3738: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3739: 'Incorrect return_status after calling ' ||
3740: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3741: FND_LOG.STRING(g_level_error,
3742: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3736: IF (g_level_error >= g_current_runtime_level ) THEN
3737: FND_LOG.STRING(g_level_error,
3738: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3739: 'Incorrect return_status after calling ' ||
3740: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3741: FND_LOG.STRING(g_level_error,
3742: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3743: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3744: END IF;
3738: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3739: 'Incorrect return_status after calling ' ||
3740: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3741: FND_LOG.STRING(g_level_error,
3742: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3743: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3744: END IF;
3745: RETURN;
3746: END IF;
3739: 'Incorrect return_status after calling ' ||
3740: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
3741: FND_LOG.STRING(g_level_error,
3742: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3743: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3744: END IF;
3745: RETURN;
3746: END IF;
3747:
3842: IF NVL(p_return_status,FND_API.G_RET_STS_ERROR)<>FND_API.G_RET_STS_SUCCESS
3843: THEN
3844: IF (g_level_error >= g_current_runtime_level ) THEN
3845: FND_LOG.STRING(g_level_error,
3846: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3847: 'Incorrect return_status after calling ' ||
3848: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3849: FND_LOG.STRING(g_level_error,
3850: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3846: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3847: 'Incorrect return_status after calling ' ||
3848: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3849: FND_LOG.STRING(g_level_error,
3850: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3851: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3852: END IF;
3853: RETURN;
3854: END IF;
3847: 'Incorrect return_status after calling ' ||
3848: 'ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency()');
3849: FND_LOG.STRING(g_level_error,
3850: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3851: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3852: END IF;
3853: RETURN;
3854: END IF;
3855:
3867: IF NVL(p_return_status,FND_API.G_RET_STS_ERROR)<>FND_API.G_RET_STS_SUCCESS
3868: THEN
3869: IF (g_level_error >= g_current_runtime_level ) THEN
3870: FND_LOG.STRING(g_level_error,
3871: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3872: 'Incorrect return_status after calling ' ||
3873: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3874: FND_LOG.STRING(g_level_error,
3875: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3871: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3872: 'Incorrect return_status after calling ' ||
3873: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3874: FND_LOG.STRING(g_level_error,
3875: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3876: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3877: END IF;
3878: RETURN;
3879: END IF;
3872: 'Incorrect return_status after calling ' ||
3873: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
3874: FND_LOG.STRING(g_level_error,
3875: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3876: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3877: END IF;
3878: RETURN;
3879: END IF;
3880: END IF; -- NVL(p_rec_nrec_dist_tbl(i).reverse_flag,'N') = 'N'
3910: IF NVL(p_return_status,FND_API.G_RET_STS_ERROR)<>FND_API.G_RET_STS_SUCCESS
3911: THEN
3912: IF (g_level_error >= g_current_runtime_level ) THEN
3913: FND_LOG.STRING(g_level_error,
3914: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3915: 'Incorrect return_status after calling ' ||
3916: 'ZX_TDS_UTILITIES_PKG.populate_currency_cache()');
3917: FND_LOG.STRING(g_level_error,
3918: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3914: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
3915: 'Incorrect return_status after calling ' ||
3916: 'ZX_TDS_UTILITIES_PKG.populate_currency_cache()');
3917: FND_LOG.STRING(g_level_error,
3918: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3919: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3920: END IF;
3921: RETURN;
3922: END IF;
3915: 'Incorrect return_status after calling ' ||
3916: 'ZX_TDS_UTILITIES_PKG.populate_currency_cache()');
3917: FND_LOG.STRING(g_level_error,
3918: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3919: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
3920: END IF;
3921: RETURN;
3922: END IF;
3923: END IF;
3955:
3956: IF (g_level_procedure >= g_current_runtime_level ) THEN
3957:
3958: FND_LOG.STRING(g_level_procedure,
3959: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3960: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||
3961: 'Functional currency is the same as transaction currency, no conversion is performed');
3962: END IF;
3963: RETURN;
3956: IF (g_level_procedure >= g_current_runtime_level ) THEN
3957:
3958: FND_LOG.STRING(g_level_procedure,
3959: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
3960: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||
3961: 'Functional currency is the same as transaction currency, no conversion is performed');
3962: END IF;
3963: RETURN;
3964: END IF;
4143: IF NVL(l_rec_tax_dists_tbl_sort_flg, 'N') <> 'Y' THEN
4144:
4145: -- sort l_non_zero_rec_tax_dists_tbl
4146: --
4147: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
4148: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
4149: p_return_status => p_return_status,
4150: p_error_buffer => p_error_buffer);
4151:
4152: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4153: THEN
4154: IF (g_level_error >= g_current_runtime_level ) THEN
4155: FND_LOG.STRING(g_level_error,
4156: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4157: 'Incorrect return_status after calling ' ||
4158: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4159: FND_LOG.STRING(g_level_error,
4160: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4154: IF (g_level_error >= g_current_runtime_level ) THEN
4155: FND_LOG.STRING(g_level_error,
4156: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4157: 'Incorrect return_status after calling ' ||
4158: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4159: FND_LOG.STRING(g_level_error,
4160: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4161: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4162: END IF;
4156: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4157: 'Incorrect return_status after calling ' ||
4158: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4159: FND_LOG.STRING(g_level_error,
4160: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4161: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4162: END IF;
4163: RETURN;
4164: END IF;
4157: 'Incorrect return_status after calling ' ||
4158: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4159: FND_LOG.STRING(g_level_error,
4160: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4161: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4162: END IF;
4163: RETURN;
4164: END IF;
4165:
4168: l_rec_tax_dists_tbl_sort_flg := 'Y';
4169:
4170: END IF; -- l_rec_tax_dists_tbl_sort_flg <> 'Y'
4171:
4172: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
4173: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
4174: p_rounding_diff => l_rec_tax_rnd_diff_funcl_curr,
4175: p_min_acct_unit => l_min_acct_unit_funcl_curr,
4176: p_return_status => p_return_status,
4190:
4191: IF NVL(l_nrec_tax_dists_tbl_sort_flg, 'N') <> 'Y' THEN
4192: -- sort l_non_zero_nrec_tax_dists_tbl
4193: --
4194: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
4195: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
4196: p_return_status => p_return_status,
4197: p_error_buffer => p_error_buffer);
4198:
4199: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4200: THEN
4201: IF (g_level_error >= g_current_runtime_level ) THEN
4202: FND_LOG.STRING(g_level_error,
4203: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4204: 'Incorrect return_status after calling ' ||
4205: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4206: FND_LOG.STRING(g_level_error,
4207: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4201: IF (g_level_error >= g_current_runtime_level ) THEN
4202: FND_LOG.STRING(g_level_error,
4203: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4204: 'Incorrect return_status after calling ' ||
4205: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4206: FND_LOG.STRING(g_level_error,
4207: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4208: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4209: END IF;
4203: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4204: 'Incorrect return_status after calling ' ||
4205: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4206: FND_LOG.STRING(g_level_error,
4207: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4208: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4209: END IF;
4210: RETURN;
4211: END IF;
4204: 'Incorrect return_status after calling ' ||
4205: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4206: FND_LOG.STRING(g_level_error,
4207: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4208: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4209: END IF;
4210: RETURN;
4211: END IF;
4212:
4215: l_nrec_tax_dists_tbl_sort_flg := 'Y';
4216:
4217: END IF; -- l_nrec_tax_dists_tbl_sort_flg <> 'Y'
4218:
4219: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
4220: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
4221: p_rounding_diff => l_rec_tax_rnd_diff_funcl_curr,
4222: p_min_acct_unit => l_min_acct_unit_funcl_curr,
4223: p_return_status => p_return_status,
4226: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4227: THEN
4228: IF (g_level_error >= g_current_runtime_level ) THEN
4229: FND_LOG.STRING(g_level_error,
4230: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4231: 'Incorrect return_status after calling ' ||
4232: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4233: FND_LOG.STRING(g_level_error,
4234: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4228: IF (g_level_error >= g_current_runtime_level ) THEN
4229: FND_LOG.STRING(g_level_error,
4230: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4231: 'Incorrect return_status after calling ' ||
4232: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4233: FND_LOG.STRING(g_level_error,
4234: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4235: 'RETURN_STATUS = ' || p_return_status);
4236: FND_LOG.STRING(g_level_error,
4230: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4231: 'Incorrect return_status after calling ' ||
4232: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4233: FND_LOG.STRING(g_level_error,
4234: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4235: 'RETURN_STATUS = ' || p_return_status);
4236: FND_LOG.STRING(g_level_error,
4237: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4238: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4233: FND_LOG.STRING(g_level_error,
4234: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4235: 'RETURN_STATUS = ' || p_return_status);
4236: FND_LOG.STRING(g_level_error,
4237: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4238: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4239: END IF;
4240: RETURN;
4241: END IF;
4234: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4235: 'RETURN_STATUS = ' || p_return_status);
4236: FND_LOG.STRING(g_level_error,
4237: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4238: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4239: END IF;
4240: RETURN;
4241: END IF;
4242:
4261:
4262: IF NVL(l_nrec_tax_dists_tbl_sort_flg, 'N') <> 'Y' THEN
4263: -- sort l_non_zero_nrec_tax_dists_tbl
4264: --
4265: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
4266: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
4267: p_return_status => p_return_status,
4268: p_error_buffer => p_error_buffer);
4269:
4270: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4271: THEN
4272: IF (g_level_error >= g_current_runtime_level ) THEN
4273: FND_LOG.STRING(g_level_error,
4274: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4275: 'Incorrect return_status after calling ' ||
4276: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4277: FND_LOG.STRING(g_level_error,
4278: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4272: IF (g_level_error >= g_current_runtime_level ) THEN
4273: FND_LOG.STRING(g_level_error,
4274: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4275: 'Incorrect return_status after calling ' ||
4276: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4277: FND_LOG.STRING(g_level_error,
4278: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4279: 'RETURN_STATUS = ' || p_return_status);
4280: FND_LOG.STRING(g_level_error,
4274: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4275: 'Incorrect return_status after calling ' ||
4276: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4277: FND_LOG.STRING(g_level_error,
4278: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4279: 'RETURN_STATUS = ' || p_return_status);
4280: FND_LOG.STRING(g_level_error,
4281: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4282: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4277: FND_LOG.STRING(g_level_error,
4278: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4279: 'RETURN_STATUS = ' || p_return_status);
4280: FND_LOG.STRING(g_level_error,
4281: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4282: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4283: END IF;
4284: RETURN;
4285: END IF;
4278: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4279: 'RETURN_STATUS = ' || p_return_status);
4280: FND_LOG.STRING(g_level_error,
4281: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4282: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4283: END IF;
4284: RETURN;
4285: END IF;
4286:
4289: l_nrec_tax_dists_tbl_sort_flg := 'Y';
4290:
4291: END IF; -- l_nrec_tax_dists_tbl_sort_flg <> 'Y'
4292:
4293: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
4294: p_index_amt_tbl => l_non_zero_nrec_tax_dists_tbl,
4295: p_rounding_diff => l_nrec_tax_rnd_diff_funcl_curr,
4296: p_min_acct_unit => l_min_acct_unit_funcl_curr,
4297: p_return_status => p_return_status,
4300: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4301: THEN
4302: IF (g_level_error >= g_current_runtime_level ) THEN
4303: FND_LOG.STRING(g_level_error,
4304: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4305: 'Incorrect return_status after calling ' ||
4306: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4307: FND_LOG.STRING(g_level_error,
4308: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4302: IF (g_level_error >= g_current_runtime_level ) THEN
4303: FND_LOG.STRING(g_level_error,
4304: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4305: 'Incorrect return_status after calling ' ||
4306: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4307: FND_LOG.STRING(g_level_error,
4308: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4309: 'RETURN_STATUS = ' || p_return_status);
4310: FND_LOG.STRING(g_level_error,
4304: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4305: 'Incorrect return_status after calling ' ||
4306: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4307: FND_LOG.STRING(g_level_error,
4308: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4309: 'RETURN_STATUS = ' || p_return_status);
4310: FND_LOG.STRING(g_level_error,
4311: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4312: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4307: FND_LOG.STRING(g_level_error,
4308: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4309: 'RETURN_STATUS = ' || p_return_status);
4310: FND_LOG.STRING(g_level_error,
4311: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4312: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4313: END IF;
4314: RETURN;
4315: END IF;
4308: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4309: 'RETURN_STATUS = ' || p_return_status);
4310: FND_LOG.STRING(g_level_error,
4311: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4312: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4313: END IF;
4314: RETURN;
4315: END IF;
4316:
4328:
4329: IF NVL(l_rec_tax_dists_tbl_sort_flg, 'N') <> 'Y' THEN
4330: -- sort l_non_zero_rec_tax_dists_tbl
4331: --
4332: ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc (
4333: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
4334: p_return_status => p_return_status,
4335: p_error_buffer => p_error_buffer);
4336:
4337: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4338: THEN
4339: IF (g_level_error >= g_current_runtime_level ) THEN
4340: FND_LOG.STRING(g_level_error,
4341: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4342: 'Incorrect return_status after calling ' ||
4343: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4344: FND_LOG.STRING(g_level_error,
4345: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4339: IF (g_level_error >= g_current_runtime_level ) THEN
4340: FND_LOG.STRING(g_level_error,
4341: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4342: 'Incorrect return_status after calling ' ||
4343: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4344: FND_LOG.STRING(g_level_error,
4345: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4346: 'RETURN_STATUS = ' || p_return_status);
4347: FND_LOG.STRING(g_level_error,
4341: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4342: 'Incorrect return_status after calling ' ||
4343: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc()');
4344: FND_LOG.STRING(g_level_error,
4345: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4346: 'RETURN_STATUS = ' || p_return_status);
4347: FND_LOG.STRING(g_level_error,
4348: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4349: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4344: FND_LOG.STRING(g_level_error,
4345: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4346: 'RETURN_STATUS = ' || p_return_status);
4347: FND_LOG.STRING(g_level_error,
4348: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4349: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4350: END IF;
4351: RETURN;
4352: END IF;
4345: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4346: 'RETURN_STATUS = ' || p_return_status);
4347: FND_LOG.STRING(g_level_error,
4348: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4349: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4350: END IF;
4351: RETURN;
4352: END IF;
4353:
4356: l_rec_tax_dists_tbl_sort_flg := 'Y';
4357:
4358: END IF; -- l_rec_tax_dists_tbl_sort_flg <> 'Y'
4359:
4360: ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff (
4361: p_index_amt_tbl => l_non_zero_rec_tax_dists_tbl,
4362: p_rounding_diff => l_nrec_tax_rnd_diff_funcl_curr,
4363: p_min_acct_unit => l_min_acct_unit_funcl_curr,
4364: p_return_status => p_return_status,
4367: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
4368: THEN
4369: IF (g_level_error >= g_current_runtime_level ) THEN
4370: FND_LOG.STRING(g_level_error,
4371: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4372: 'Incorrect return_status after calling ' ||
4373: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4374: FND_LOG.STRING(g_level_error,
4375: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4369: IF (g_level_error >= g_current_runtime_level ) THEN
4370: FND_LOG.STRING(g_level_error,
4371: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4372: 'Incorrect return_status after calling ' ||
4373: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4374: FND_LOG.STRING(g_level_error,
4375: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4376: 'RETURN_STATUS = ' || p_return_status);
4377: FND_LOG.STRING(g_level_error,
4371: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4372: 'Incorrect return_status after calling ' ||
4373: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff()');
4374: FND_LOG.STRING(g_level_error,
4375: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4376: 'RETURN_STATUS = ' || p_return_status);
4377: FND_LOG.STRING(g_level_error,
4378: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4379: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4374: FND_LOG.STRING(g_level_error,
4375: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4376: 'RETURN_STATUS = ' || p_return_status);
4377: FND_LOG.STRING(g_level_error,
4378: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4379: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4380: END IF;
4381: RETURN;
4382: END IF;
4375: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4376: 'RETURN_STATUS = ' || p_return_status);
4377: FND_LOG.STRING(g_level_error,
4378: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4379: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4380: END IF;
4381: RETURN;
4382: END IF;
4383:
4422:
4423:
4424: IF (g_level_statement >= g_current_runtime_level ) THEN
4425: FND_LOG.STRING(g_level_statement,
4426: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4427: 'Rounding Dif adjusted to the largest non-rec tax dist '||l_index);
4428: END IF;
4429:
4430: ELSIF l_non_zero_rec_tax_dists_tbl.COUNT > 0 THEN
4441: l_tax_line_rnd_diff_funcl_curr;
4442:
4443: IF (g_level_statement >= g_current_runtime_level ) THEN
4444: FND_LOG.STRING(g_level_statement,
4445: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4446: 'Rounding Dif adjusted to the largest rec tax dist '||l_index);
4447: END IF;
4448:
4449: END IF;
4469:
4470:
4471: IF (g_level_statement >= g_current_runtime_level ) THEN
4472: FND_LOG.STRING(g_level_statement,
4473: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4474: 'Rounding Dif adjusted to the largest rec tax dist '||l_index);
4475: END IF;
4476:
4477:
4490: l_tax_line_rnd_diff_funcl_curr;
4491:
4492: IF (g_level_statement >= g_current_runtime_level ) THEN
4493: FND_LOG.STRING(g_level_statement,
4494: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4495: 'Rounding Dif adjusted to the largest non-rec tax dist '||l_index);
4496: END IF;
4497:
4498: END IF;
4523: ELSE -- p_rec_nrec_dist_tbl(i).ledger_id IS NULL
4524: IF (g_level_procedure >= g_current_runtime_level ) THEN
4525:
4526: FND_LOG.STRING(g_level_procedure,
4527: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4528: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||
4529: ' null Ledger_id cannot perform conversion to functional currency');
4530: END IF;
4531: END IF;
4524: IF (g_level_procedure >= g_current_runtime_level ) THEN
4525:
4526: FND_LOG.STRING(g_level_procedure,
4527: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4528: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||
4529: ' null Ledger_id cannot perform conversion to functional currency');
4530: END IF;
4531: END IF;
4532: --
4534:
4535: IF (g_level_procedure >= g_current_runtime_level ) THEN
4536:
4537: FND_LOG.STRING(g_level_procedure,
4538: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4539: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4540: END IF;
4541:
4542: EXCEPTION
4535: IF (g_level_procedure >= g_current_runtime_level ) THEN
4536:
4537: FND_LOG.STRING(g_level_procedure,
4538: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4539: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)'||p_return_status);
4540: END IF;
4541:
4542: EXCEPTION
4543:
4546: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4547:
4548: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4549: FND_LOG.STRING(g_level_unexpected,
4550: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4551: p_error_buffer);
4552: FND_LOG.STRING(g_level_unexpected,
4553: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4554: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4549: FND_LOG.STRING(g_level_unexpected,
4550: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4551: p_error_buffer);
4552: FND_LOG.STRING(g_level_unexpected,
4553: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4554: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4555: END IF;
4556:
4557: END convert_tax_dists;
4550: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists',
4551: p_error_buffer);
4552: FND_LOG.STRING(g_level_unexpected,
4553: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists.END',
4554: 'ZX_TRD_INTERNAL_SERVICES_PVT.convert_tax_dists(-)');
4555: END IF;
4556:
4557: END convert_tax_dists;
4558:
4573: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4574:
4575: IF (g_level_procedure >= g_current_runtime_level ) THEN
4576: FND_LOG.STRING(g_level_procedure,
4577: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.BEGIN',
4578: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(+)'||
4579: 'p_rounding_diff = ' || p_rounding_diff);
4580: END IF;
4581:
4574:
4575: IF (g_level_procedure >= g_current_runtime_level ) THEN
4576: FND_LOG.STRING(g_level_procedure,
4577: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.BEGIN',
4578: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(+)'||
4579: 'p_rounding_diff = ' || p_rounding_diff);
4580: END IF;
4581:
4582: p_return_status:= FND_API.G_RET_STS_SUCCESS;
4586: IF p_rounding_diff = 0 THEN
4587: IF (g_level_procedure >= g_current_runtime_level ) THEN
4588:
4589: FND_LOG.STRING(g_level_procedure,
4590: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
4591: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)'||'no diff');
4592: END IF;
4593: RETURN;
4594:
4587: IF (g_level_procedure >= g_current_runtime_level ) THEN
4588:
4589: FND_LOG.STRING(g_level_procedure,
4590: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
4591: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)'||'no diff');
4592: END IF;
4593: RETURN;
4594:
4595: ELSE
4624: ELSE -- p_index_amt_tbl.COUNT = 0
4625: IF (g_level_procedure >= g_current_runtime_level ) THEN
4626:
4627: FND_LOG.STRING(g_level_procedure,
4628: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
4629: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)'||
4630: 'p_index_amt_tbl is empty');
4631: END IF;
4632: RETURN;
4625: IF (g_level_procedure >= g_current_runtime_level ) THEN
4626:
4627: FND_LOG.STRING(g_level_procedure,
4628: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
4629: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)'||
4630: 'p_index_amt_tbl is empty');
4631: END IF;
4632: RETURN;
4633: END IF; -- p_index_amt_tbl.COUNT > 0 OR NOT
4634: END IF; -- p_rounding_diff <> 0 OR NOT
4635:
4636: IF (g_level_procedure >= g_current_runtime_level ) THEN
4637: FND_LOG.STRING(g_level_procedure,
4638: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
4639: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)'||
4640: p_return_status);
4641: END IF;
4642:
4635:
4636: IF (g_level_procedure >= g_current_runtime_level ) THEN
4637: FND_LOG.STRING(g_level_procedure,
4638: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
4639: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)'||
4640: p_return_status);
4641: END IF;
4642:
4643: EXCEPTION
4647: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4648:
4649: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4650: FND_LOG.STRING(g_level_unexpected,
4651: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff',
4652: p_error_buffer);
4653: FND_LOG.STRING(g_level_unexpected,
4654: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
4655: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)');
4650: FND_LOG.STRING(g_level_unexpected,
4651: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff',
4652: p_error_buffer);
4653: FND_LOG.STRING(g_level_unexpected,
4654: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
4655: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)');
4656: END IF;
4657:
4658: END distribute_rounding_diff;
4651: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff',
4652: p_error_buffer);
4653: FND_LOG.STRING(g_level_unexpected,
4654: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff.END',
4655: 'ZX_TRD_INTERNAL_SERVICES_PVT.distribute_rounding_diff(-)');
4656: END IF;
4657:
4658: END distribute_rounding_diff;
4659:
4674: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4675:
4676: IF (g_level_procedure >= g_current_runtime_level ) THEN
4677: FND_LOG.STRING(g_level_procedure,
4678: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.BEGIN',
4679: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(+)');
4680: END IF;
4681:
4682: p_return_status:= FND_API.G_RET_STS_SUCCESS;
4675:
4676: IF (g_level_procedure >= g_current_runtime_level ) THEN
4677: FND_LOG.STRING(g_level_procedure,
4678: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.BEGIN',
4679: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(+)');
4680: END IF;
4681:
4682: p_return_status:= FND_API.G_RET_STS_SUCCESS;
4683:
4724:
4725: IF (g_level_procedure >= g_current_runtime_level ) THEN
4726:
4727: FND_LOG.STRING(g_level_procedure,
4728: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.END',
4729: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(-)'||p_return_status);
4730: END IF;
4731:
4732: EXCEPTION
4725: IF (g_level_procedure >= g_current_runtime_level ) THEN
4726:
4727: FND_LOG.STRING(g_level_procedure,
4728: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.END',
4729: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(-)'||p_return_status);
4730: END IF;
4731:
4732: EXCEPTION
4733:
4736: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4737:
4738: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4739: FND_LOG.STRING(g_level_unexpected,
4740: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc',
4741: p_error_buffer);
4742: FND_LOG.STRING(g_level_unexpected,
4743: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.END',
4744: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(-)');
4739: FND_LOG.STRING(g_level_unexpected,
4740: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc',
4741: p_error_buffer);
4742: FND_LOG.STRING(g_level_unexpected,
4743: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.END',
4744: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(-)');
4745: END IF;
4746:
4747: END sort_tbl_amt_desc;
4740: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc',
4741: p_error_buffer);
4742: FND_LOG.STRING(g_level_unexpected,
4743: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc.END',
4744: 'ZX_TRD_INTERNAL_SERVICES_PVT.sort_tbl_amt_desc(-)');
4745: END IF;
4746:
4747: END sort_tbl_amt_desc;
4748:
4803:
4804: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4805: IF (g_level_procedure >= g_current_runtime_level ) THEN
4806: FND_LOG.STRING(g_level_procedure,
4807: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.BEGIN',
4808: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(+)');
4809: END IF;
4810:
4811: p_return_status := FND_API.G_RET_STS_SUCCESS;
4804: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4805: IF (g_level_procedure >= g_current_runtime_level ) THEN
4806: FND_LOG.STRING(g_level_procedure,
4807: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.BEGIN',
4808: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(+)');
4809: END IF;
4810:
4811: p_return_status := FND_API.G_RET_STS_SUCCESS;
4812:
4887:
4888: IF (g_level_procedure >= g_current_runtime_level) THEN
4889:
4890: FND_LOG.STRING(g_level_procedure,
4891: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.END',
4892: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(-)'||p_return_status);
4893: END IF;
4894:
4895: EXCEPTION
4888: IF (g_level_procedure >= g_current_runtime_level) THEN
4889:
4890: FND_LOG.STRING(g_level_procedure,
4891: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.END',
4892: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(-)'||p_return_status);
4893: END IF;
4894:
4895: EXCEPTION
4896: WHEN OTHERS THEN
4898: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4899:
4900: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4901: FND_LOG.STRING(g_level_unexpected,
4902: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
4903: p_error_buffer);
4904: FND_LOG.STRING(g_level_unexpected,
4905: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.END',
4906: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(-)');
4901: FND_LOG.STRING(g_level_unexpected,
4902: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
4903: p_error_buffer);
4904: FND_LOG.STRING(g_level_unexpected,
4905: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.END',
4906: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(-)');
4907: END IF;
4908:
4909: END get_recovery_from_applied;
4902: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
4903: p_error_buffer);
4904: FND_LOG.STRING(g_level_unexpected,
4905: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied.END',
4906: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied(-)');
4907: END IF;
4908:
4909: END get_recovery_from_applied;
4910:
4960:
4961: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4962: IF (g_level_procedure >= g_current_runtime_level ) THEN
4963: FND_LOG.STRING(g_level_procedure,
4964: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.BEGIN',
4965: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(+)');
4966: END IF;
4967:
4968: p_return_status := FND_API.G_RET_STS_SUCCESS;
4961: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4962: IF (g_level_procedure >= g_current_runtime_level ) THEN
4963: FND_LOG.STRING(g_level_procedure,
4964: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.BEGIN',
4965: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(+)');
4966: END IF;
4967:
4968: p_return_status := FND_API.G_RET_STS_SUCCESS;
4969:
5003:
5004: IF (g_level_procedure >= g_current_runtime_level ) THEN
5005:
5006: FND_LOG.STRING(g_level_procedure,
5007: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.END',
5008: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(-)'||p_return_status);
5009: END IF;
5010:
5011: EXCEPTION
5004: IF (g_level_procedure >= g_current_runtime_level ) THEN
5005:
5006: FND_LOG.STRING(g_level_procedure,
5007: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.END',
5008: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(-)'||p_return_status);
5009: END IF;
5010:
5011: EXCEPTION
5012: WHEN OTHERS THEN
5014: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5015:
5016: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5017: FND_LOG.STRING(g_level_unexpected,
5018: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
5019: p_error_buffer);
5020: FND_LOG.STRING(g_level_unexpected,
5021: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.END',
5022: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(-)');
5017: FND_LOG.STRING(g_level_unexpected,
5018: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
5019: p_error_buffer);
5020: FND_LOG.STRING(g_level_unexpected,
5021: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.END',
5022: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(-)');
5023: END IF;
5024:
5025: END get_recovery_from_adjusted;
5018: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_applied',
5019: p_error_buffer);
5020: FND_LOG.STRING(g_level_unexpected,
5021: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted.END',
5022: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_recovery_from_adjusted(-)');
5023: END IF;
5024:
5025: END get_recovery_from_adjusted;
5026:
5086:
5087: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5088: IF (g_level_procedure >= g_current_runtime_level ) THEN
5089: FND_LOG.STRING(g_level_procedure,
5090: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.BEGIN',
5091: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(+)');
5092: END IF;
5093:
5094: p_return_status := FND_API.G_RET_STS_SUCCESS;
5087: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5088: IF (g_level_procedure >= g_current_runtime_level ) THEN
5089: FND_LOG.STRING(g_level_procedure,
5090: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.BEGIN',
5091: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(+)');
5092: END IF;
5093:
5094: p_return_status := FND_API.G_RET_STS_SUCCESS;
5095:
5143:
5144: IF (g_level_statement >= g_current_runtime_level ) THEN
5145:
5146: FND_LOG.STRING(g_level_statement,
5147: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE',
5148: 'user had overridden recovery rate on PO, so copy the PO '||
5149: 'recovery rate % to invoice tax distributions.');
5150:
5151: END IF;
5160:
5161: IF (g_level_statement >= g_current_runtime_level ) THEN
5162:
5163: FND_LOG.STRING(g_level_statement,
5164: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.DET_APPL_REC_TYPE',
5165: 'can not find tax distribution on PO, have to call the ' ||
5166: 'normal det_appl_rec_type to determine rec type.');
5167:
5168: END IF;
5180: IF NVL(p_return_status,FND_API.G_RET_STS_ERROR)<>FND_API.G_RET_STS_SUCCESS
5181: THEN
5182: IF (g_level_error >= g_current_runtime_level ) THEN
5183: FND_LOG.STRING(g_level_error,
5184: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5185: 'Incorrect return_status after calling ' ||
5186: 'ZX_TDS_UTILITIES_PKG.det_appl_rec_type()');
5187: FND_LOG.STRING(g_level_error,
5188: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5184: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5185: 'Incorrect return_status after calling ' ||
5186: 'ZX_TDS_UTILITIES_PKG.det_appl_rec_type()');
5187: FND_LOG.STRING(g_level_error,
5188: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5189: 'RETURN_STATUS = ' || p_return_status);
5190: FND_LOG.STRING(g_level_error,
5191: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5192: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)');
5187: FND_LOG.STRING(g_level_error,
5188: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5189: 'RETURN_STATUS = ' || p_return_status);
5190: FND_LOG.STRING(g_level_error,
5191: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5192: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)');
5193: END IF;
5194: RETURN;
5195: END IF;
5188: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5189: 'RETURN_STATUS = ' || p_return_status);
5190: FND_LOG.STRING(g_level_error,
5191: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5192: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)');
5193: END IF;
5194: RETURN;
5195: END IF;
5196: END IF;
5197:
5198: IF (g_level_procedure >= g_current_runtime_level) THEN
5199:
5200: FND_LOG.STRING(g_level_procedure,
5201: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5202: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)'||p_return_status);
5203: END IF;
5204:
5205: EXCEPTION
5198: IF (g_level_procedure >= g_current_runtime_level) THEN
5199:
5200: FND_LOG.STRING(g_level_procedure,
5201: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5202: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)'||p_return_status);
5203: END IF;
5204:
5205: EXCEPTION
5206: WHEN OTHERS THEN
5208: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5209:
5210: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5211: FND_LOG.STRING(g_level_unexpected,
5212: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5213: p_error_buffer);
5214: FND_LOG.STRING(g_level_unexpected,
5215: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5216: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)');
5211: FND_LOG.STRING(g_level_unexpected,
5212: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5213: p_error_buffer);
5214: FND_LOG.STRING(g_level_unexpected,
5215: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5216: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)');
5217: END IF;
5218:
5219: END enforce_recovery_from_ref;
5212: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref',
5213: p_error_buffer);
5214: FND_LOG.STRING(g_level_unexpected,
5215: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref.END',
5216: 'ZX_TRD_INTERNAL_SERVICES_PVT.enforce_recovery_from_ref(-)');
5217: END IF;
5218:
5219: END enforce_recovery_from_ref;
5220:
5258: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5259:
5260: IF (g_level_procedure >= g_current_runtime_level ) THEN
5261: FND_LOG.STRING(g_level_procedure,
5262: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.BEGIN',
5263: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts(+)');
5264: END IF;
5265:
5266: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5259:
5260: IF (g_level_procedure >= g_current_runtime_level ) THEN
5261: FND_LOG.STRING(g_level_procedure,
5262: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.BEGIN',
5263: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts(+)');
5264: END IF;
5265:
5266: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5267:
5270:
5271: --p_return_status:= FND_API.G_RET_STS_ERROR;
5272: IF (g_level_error >= g_current_runtime_level ) THEN
5273: FND_LOG.STRING(g_level_error,
5274: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
5275: 'begin or end index is null, or begin index > end index');
5276: END IF;
5277: RETURN;
5278: END IF;
5291: IF NVL(p_return_status,FND_API.G_RET_STS_ERROR)<>FND_API.G_RET_STS_SUCCESS
5292: THEN
5293: IF (g_level_error >= g_current_runtime_level ) THEN
5294: FND_LOG.STRING(g_level_error,
5295: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
5296: 'Incorrect return_status after calling ' ||
5297: 'ZX_TDS_UTILITIES_PKG.populate_currency_cache()');
5298: FND_LOG.STRING(g_level_error,
5299: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
5295: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
5296: 'Incorrect return_status after calling ' ||
5297: 'ZX_TDS_UTILITIES_PKG.populate_currency_cache()');
5298: FND_LOG.STRING(g_level_error,
5299: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
5300: 'RETURN_STATUS = ' || p_return_status);
5301: FND_LOG.STRING(g_level_error,
5302: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
5303: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts(-)');
5298: FND_LOG.STRING(g_level_error,
5299: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
5300: 'RETURN_STATUS = ' || p_return_status);
5301: FND_LOG.STRING(g_level_error,
5302: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
5303: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts(-)');
5304: END IF;
5305: RETURN;
5306: END IF;
5299: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
5300: 'RETURN_STATUS = ' || p_return_status);
5301: FND_LOG.STRING(g_level_error,
5302: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
5303: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts(-)');
5304: END IF;
5305: RETURN;
5306: END IF;
5307: END IF;
5349: IF NVL(p_return_status, FND_API.G_RET_STS_ERROR) <> FND_API.G_RET_STS_SUCCESS
5350: THEN
5351: IF (g_level_error >= g_current_runtime_level ) THEN
5352: FND_LOG.STRING(g_level_error,
5353: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
5354: 'Incorrect return_status after calling ' ||
5355: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
5356: FND_LOG.STRING(g_level_error,
5357: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
5353: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
5354: 'Incorrect return_status after calling ' ||
5355: 'ZX_TDS_TAX_ROUNDING_PKG.round_tax()');
5356: FND_LOG.STRING(g_level_error,
5357: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
5358: 'RETURN_STATUS = ' || p_return_status);
5359: FND_LOG.STRING(g_level_error,
5360: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
5361: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)');
5356: FND_LOG.STRING(g_level_error,
5357: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
5358: 'RETURN_STATUS = ' || p_return_status);
5359: FND_LOG.STRING(g_level_error,
5360: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
5361: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)');
5362: END IF;
5363: RETURN;
5364: END IF;
5357: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts ',
5358: 'RETURN_STATUS = ' || p_return_status);
5359: FND_LOG.STRING(g_level_error,
5360: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
5361: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)');
5362: END IF;
5363: RETURN;
5364: END IF;
5365:
5530:
5531: IF (g_level_procedure >= g_current_runtime_level ) THEN
5532:
5533: FND_LOG.STRING(g_level_procedure,
5534: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
5535: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)'||p_return_status);
5536: END IF;
5537:
5538: EXCEPTION
5531: IF (g_level_procedure >= g_current_runtime_level ) THEN
5532:
5533: FND_LOG.STRING(g_level_procedure,
5534: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
5535: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)'||p_return_status);
5536: END IF;
5537:
5538: EXCEPTION
5539:
5542: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5543:
5544: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5545: FND_LOG.STRING(g_level_unexpected,
5546: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
5547: l_error_buffer);
5548: FND_LOG.STRING(g_level_unexpected,
5549: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
5550: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)');
5545: FND_LOG.STRING(g_level_unexpected,
5546: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
5547: l_error_buffer);
5548: FND_LOG.STRING(g_level_unexpected,
5549: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
5550: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)');
5551: END IF;
5552:
5553: END round_and_adjust_prd_tax_amts;
5546: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts',
5547: l_error_buffer);
5548: FND_LOG.STRING(g_level_unexpected,
5549: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts.END',
5550: 'ZX_TRD_INTERNAL_SERVICES_PVT.round_and_adjust_prd_tax_amts (-)');
5551: END IF;
5552:
5553: END round_and_adjust_prd_tax_amts;
5554:
5566: BEGIN
5567: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5568: IF (g_level_procedure >= g_current_runtime_level ) THEN
5569: FND_LOG.STRING(g_level_procedure,
5570: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.BEGIN',
5571: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(+)');
5572: END IF;
5573:
5574: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5567: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5568: IF (g_level_procedure >= g_current_runtime_level ) THEN
5569: FND_LOG.STRING(g_level_procedure,
5570: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.BEGIN',
5571: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(+)');
5572: END IF;
5573:
5574: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5575:
5578:
5579: --p_return_status:= FND_API.G_RET_STS_ERROR;
5580: IF (g_level_statement >= g_current_runtime_level ) THEN
5581: FND_LOG.STRING(g_level_statement,
5582: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
5583: 'begin or end index is null, or begin index > end index');
5584: END IF;
5585: RETURN;
5586: END IF;
5593:
5594: IF p_rec_nrec_dist_tbl(i).recoverable_flag = 'N' THEN
5595: IF (g_level_statement >= g_current_runtime_level ) THEN
5596: FND_LOG.STRING(g_level_statement,
5597: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
5598: 'recoverable_flag is N ');
5599: END IF;
5600:
5601:
5606: NVL(p_rec_nrec_dist_tbl(i).freeze_flag, 'N') <> 'Y'
5607: THEN
5608: IF (g_level_statement >= g_current_runtime_level ) THEN
5609: FND_LOG.STRING(g_level_statement,
5610: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
5611: 'Reverse flag and Freeze flag are not Y ');
5612: END IF;
5613:
5614: p_rec_nrec_dist_tbl(i).trx_line_dist_qty :=
5642: END IF; -- p_rec_nrec_dist_tbl(i).recoverable_flag = 'N'
5643: ELSE
5644: IF (g_level_statement >= g_current_runtime_level ) THEN
5645: FND_LOG.STRING(g_level_statement,
5646: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
5647: 'Ref doc application id is null');
5648: END IF;
5649:
5650: END IF; -- ref_doc_application_id is not null
5652:
5653: IF (g_level_procedure >= g_current_runtime_level ) THEN
5654:
5655: FND_LOG.STRING(g_level_procedure,
5656: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.END',
5657: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(-)'||p_return_status);
5658: END IF;
5659:
5660: EXCEPTION
5653: IF (g_level_procedure >= g_current_runtime_level ) THEN
5654:
5655: FND_LOG.STRING(g_level_procedure,
5656: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.END',
5657: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(-)'||p_return_status);
5658: END IF;
5659:
5660: EXCEPTION
5661: WHEN OTHERS THEN
5663: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5664:
5665: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5666: FND_LOG.STRING(g_level_unexpected,
5667: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
5668: p_error_buffer);
5669: FND_LOG.STRING(g_level_unexpected,
5670: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.END',
5671: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(-)');
5666: FND_LOG.STRING(g_level_unexpected,
5667: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
5668: p_error_buffer);
5669: FND_LOG.STRING(g_level_unexpected,
5670: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.END',
5671: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(-)');
5672: END IF;
5673:
5674: END get_variance_related_columns;
5667: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns',
5668: p_error_buffer);
5669: FND_LOG.STRING(g_level_unexpected,
5670: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns.END',
5671: 'ZX_TRD_INTERNAL_SERVICES_PVT.get_variance_related_columns(-)');
5672: END IF;
5673:
5674: END get_variance_related_columns;
5675:
5682: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5683:
5684: IF (g_level_procedure >= g_current_runtime_level ) THEN
5685: FND_LOG.STRING(g_level_procedure,
5686: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.BEGIN',
5687: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(+)');
5688: END IF;
5689:
5690: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5683:
5684: IF (g_level_procedure >= g_current_runtime_level ) THEN
5685: FND_LOG.STRING(g_level_procedure,
5686: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.BEGIN',
5687: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(+)');
5688: END IF;
5689:
5690: p_return_status:= FND_API.G_RET_STS_SUCCESS;
5691:
5754: AND ref_doc_tax_dist_id IS NULL;
5755:
5756: IF (g_level_procedure >= g_current_runtime_level ) THEN
5757: FND_LOG.STRING(g_level_procedure,
5758: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.END',
5759: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(-)'||p_return_status);
5760: END IF;
5761:
5762: EXCEPTION
5755:
5756: IF (g_level_procedure >= g_current_runtime_level ) THEN
5757: FND_LOG.STRING(g_level_procedure,
5758: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.END',
5759: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(-)'||p_return_status);
5760: END IF;
5761:
5762: EXCEPTION
5763: WHEN OTHERS THEN
5765: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5766:
5767: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5768: FND_LOG.STRING(g_level_unexpected,
5769: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors',
5770: p_error_buffer);
5771: FND_LOG.STRING(g_level_unexpected,
5772: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.END',
5773: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(-)');
5768: FND_LOG.STRING(g_level_unexpected,
5769: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors',
5770: p_error_buffer);
5771: FND_LOG.STRING(g_level_unexpected,
5772: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.END',
5773: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(-)');
5774: END IF;
5775:
5776: END calc_variance_factors;
5769: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors',
5770: p_error_buffer);
5771: FND_LOG.STRING(g_level_unexpected,
5772: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors.END',
5773: 'ZX_TRD_INTERNAL_SERVICES_PVT.calc_variance_factors(-)');
5774: END IF;
5775:
5776: END calc_variance_factors;
5777:
5819: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5820:
5821: IF (g_level_statement >= g_current_runtime_level ) THEN
5822: FND_LOG.STRING(g_level_statement,
5823: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists.BEGIN',
5824: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(+)');
5825: END IF;
5826:
5827: p_return_status := FND_API.G_RET_STS_SUCCESS;
5820:
5821: IF (g_level_statement >= g_current_runtime_level ) THEN
5822: FND_LOG.STRING(g_level_statement,
5823: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists.BEGIN',
5824: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(+)');
5825: END IF;
5826:
5827: p_return_status := FND_API.G_RET_STS_SUCCESS;
5828:
5831:
5832: --p_return_status := FND_API.G_RET_STS_ERROR;
5833: IF (g_level_statement >= g_current_runtime_level ) THEN
5834: FND_LOG.STRING(g_level_statement,
5835: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists',
5836: 'begin or end index is null, or begin index > end index');
5837: END IF;
5838: RETURN;
5839: END IF;
5920: p_rec_nrec_dist_tbl(p_rnd_end_index).ref_doc_per_unit_nrec_tax_amt := NULL;
5921:
5922: END LOOP; -- j IN p_rnd_begin_index .. l_end_index LOOP
5923:
5924: ZX_TRD_INTERNAL_SERVICES_PVT.round_rec_nrec_amt(
5925: p_rec_nrec_dist_tbl,
5926: l_rnd_begin_index,
5927: p_rnd_end_index,
5928: mrc_line_rec.tax_amt,
5946: END LOOP; -- mrc_line_rec IN get_mrc_tax_line_info_csr LOOP
5947:
5948: IF (g_level_procedure >= g_current_runtime_level ) THEN
5949: FND_LOG.STRING(g_level_procedure,
5950: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists.END',
5951: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(-)');
5952: END IF;
5953:
5954: EXCEPTION
5947:
5948: IF (g_level_procedure >= g_current_runtime_level ) THEN
5949: FND_LOG.STRING(g_level_procedure,
5950: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists.END',
5951: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(-)');
5952: END IF;
5953:
5954: EXCEPTION
5955: WHEN OTHERS THEN
5959: FND_LOG.STRING(g_level_unexpected,
5960: 'ZX.PLSQL.ZX_TDS_MRC_PROCESSING_PKG.create_mrc_det_tax_lines',
5961: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
5962: FND_LOG.STRING(g_level_unexpected,
5963: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists.END',
5964: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(-)');
5965: END IF;
5966: END create_mrc_tax_dists;
5967:
5960: 'ZX.PLSQL.ZX_TDS_MRC_PROCESSING_PKG.create_mrc_det_tax_lines',
5961: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
5962: FND_LOG.STRING(g_level_unexpected,
5963: 'ZX.PLSQL.ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists.END',
5964: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(-)');
5965: END IF;
5966: END create_mrc_tax_dists;
5967:
5968: END ZX_TRD_INTERNAL_SERVICES_PVT;
5964: 'ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(-)');
5965: END IF;
5966: END create_mrc_tax_dists;
5967:
5968: END ZX_TRD_INTERNAL_SERVICES_PVT;
5969: