[Home] [Help]
1: PACKAGE BODY ZX_TRD_SERVICES_PUB_PKG AS
2: /* $Header: zxmwrecdmsrvpubb.pls 120.139.12010000.6 2009/01/14 19:29:17 tsen ship $ */
3:
4: /* Declare constants */
5:
2: /* $Header: zxmwrecdmsrvpubb.pls 120.139.12010000.6 2009/01/14 19:29:17 tsen ship $ */
3:
4: /* Declare constants */
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'zx_trd_services_pub_pkg';
7: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
8: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
9: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
10:
278: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
279:
280: IF (g_level_procedure >= g_current_runtime_level ) THEN
281: FND_LOG.STRING(g_level_procedure,
282: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.BEGIN',
283: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(+) ');
284: END IF;
285:
286: x_return_status:= FND_API.G_RET_STS_SUCCESS;
279:
280: IF (g_level_procedure >= g_current_runtime_level ) THEN
281: FND_LOG.STRING(g_level_procedure,
282: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.BEGIN',
283: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(+) ');
284: END IF;
285:
286: x_return_status:= FND_API.G_RET_STS_SUCCESS;
287: -- g_variance_calc_flag := 'N';
307: ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec.tax_line_id := NULL;
308: ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec.trx_line_dist_id := NULL;
309:
310: SELECT ZX_REC_NREC_DIST_S.nextval
311: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
312: FROM dual;
313:
314: -- For a update event in quote calls(only PO has such case now),
315: -- no need to Update_Item_Dist_Changed_Flag, since all tax lines have been
327:
328: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
329: IF (g_level_statement >= g_current_runtime_level ) THEN
330: FND_LOG.STRING(g_level_statement,
331: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
332: 'After calling TRL, x_return_status = '|| x_return_status);
333: FND_LOG.STRING(g_level_statement,
334: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
335: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
330: FND_LOG.STRING(g_level_statement,
331: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
332: 'After calling TRL, x_return_status = '|| x_return_status);
333: FND_LOG.STRING(g_level_statement,
334: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
335: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
336: END IF;
337: RETURN;
338: END IF;
331: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
332: 'After calling TRL, x_return_status = '|| x_return_status);
333: FND_LOG.STRING(g_level_statement,
334: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
335: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
336: END IF;
337: RETURN;
338: END IF;
339: END IF;
348:
349: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
350: IF (g_level_statement >= g_current_runtime_level ) THEN
351: FND_LOG.STRING(g_level_statement,
352: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
353: 'After calling fetch tax lines, x_return_status = '
354: || x_return_status);
355: FND_LOG.STRING(g_level_statement,
356: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
352: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
353: 'After calling fetch tax lines, x_return_status = '
354: || x_return_status);
355: FND_LOG.STRING(g_level_statement,
356: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
357: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
358: END IF;
359: RETURN;
360: END IF;
353: 'After calling fetch tax lines, x_return_status = '
354: || x_return_status);
355: FND_LOG.STRING(g_level_statement,
356: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
357: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
358: END IF;
359: RETURN;
360: END IF;
361:
378:
379: IF tax_line_counter = 0 THEN
380: IF (g_level_statement >= g_current_runtime_level ) THEN
381: FND_LOG.STRING(g_level_statement,
382: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
383: 'there is no tax lines that need to be processed ');
384:
385: FND_LOG.STRING(g_level_statement,
386: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
382: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
383: 'there is no tax lines that need to be processed ');
384:
385: FND_LOG.STRING(g_level_statement,
386: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
387: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)'||x_return_status);
388: END IF;
389: RETURN;
390:
383: 'there is no tax lines that need to be processed ');
384:
385: FND_LOG.STRING(g_level_statement,
386: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
387: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)'||x_return_status);
388: END IF;
389: RETURN;
390:
391: ELSE
418:
419: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
420: IF (g_level_statement >= g_current_runtime_level ) THEN
421: FND_LOG.STRING(g_level_statement,
422: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
423: 'After calling populate_trx_line_info, x_return_status = '
424: || x_return_status);
425: FND_LOG.STRING(g_level_statement,
426: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
422: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
423: 'After calling populate_trx_line_info, x_return_status = '
424: || x_return_status);
425: FND_LOG.STRING(g_level_statement,
426: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
427: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
428: END IF;
429: RETURN;
430: END IF;
423: 'After calling populate_trx_line_info, x_return_status = '
424: || x_return_status);
425: FND_LOG.STRING(g_level_statement,
426: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
427: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
428: END IF;
429: RETURN;
430: END IF;
431:
487: overriding_recovery_rate_tbl(1) := NULL;
488:
489: IF (g_level_statement >= g_current_runtime_level ) THEN
490: FND_LOG.STRING(g_level_statement,
491: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
492: 'trx_line_dist_id_tbl '
493: ||to_char(trx_line_dist_id_tbl(1)));
494: END IF;
495: ELSE
566:
567: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
568: IF (g_level_statement >= g_current_runtime_level ) THEN
569: FND_LOG.STRING(g_level_statement,
570: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
571: 'After calling cancel_tax_line x_return_status = '
572: || x_return_status);
573: FND_LOG.STRING(g_level_statement,
574: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
570: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
571: 'After calling cancel_tax_line x_return_status = '
572: || x_return_status);
573: FND_LOG.STRING(g_level_statement,
574: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
575: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
576: END IF;
577: RETURN;
578: END IF;
571: 'After calling cancel_tax_line x_return_status = '
572: || x_return_status);
573: FND_LOG.STRING(g_level_statement,
574: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
575: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
576: END IF;
577: RETURN;
578: END IF;
579:
694:
695: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
696: IF (g_level_statement >= g_current_runtime_level ) THEN
697: FND_LOG.STRING(g_level_statement,
698: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
699: 'After calling calc_tax_dist x_return_status = '
700: || x_return_status);
701: FND_LOG.STRING(g_level_statement,
702: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
698: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
699: 'After calling calc_tax_dist x_return_status = '
700: || x_return_status);
701: FND_LOG.STRING(g_level_statement,
702: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
703: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
704: END IF;
705: RETURN;
706: END IF;
699: 'After calling calc_tax_dist x_return_status = '
700: || x_return_status);
701: FND_LOG.STRING(g_level_statement,
702: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
703: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
704: END IF;
705: RETURN;
706: END IF;
707: ELSIF l_action = 'NO_ACTION' THEN
719:
720: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
721: IF (g_level_statement >= g_current_runtime_level ) THEN
722: FND_LOG.STRING(g_level_statement,
723: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
724: 'After calling fetch_tax_distributions x_return_status = '
725: || x_return_status);
726: FND_LOG.STRING(g_level_statement,
727: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
723: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
724: 'After calling fetch_tax_distributions x_return_status = '
725: || x_return_status);
726: FND_LOG.STRING(g_level_statement,
727: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
728: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
729: END IF;
730: RETURN;
731: END IF;
724: 'After calling fetch_tax_distributions x_return_status = '
725: || x_return_status);
726: FND_LOG.STRING(g_level_statement,
727: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
728: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
729: END IF;
730: RETURN;
731: END IF;
732: ELSE -- wrong l_action
732: ELSE -- wrong l_action
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
734: IF (g_level_statement >= g_current_runtime_level ) THEN
735: FND_LOG.STRING(g_level_statement,
736: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
737: 'wrong dist level action code. l_action= '||l_action );
738: FND_LOG.STRING(g_level_statement,
739: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
740: 'RETURN_STATUS = ' || x_return_status);
735: FND_LOG.STRING(g_level_statement,
736: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
737: 'wrong dist level action code. l_action= '||l_action );
738: FND_LOG.STRING(g_level_statement,
739: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
740: 'RETURN_STATUS = ' || x_return_status);
741: END IF;
742: RETURN;
743: END IF; -- l_action
807: l_action := ZX_GLOBAL_STRUCTURES_PKG.TRX_LINE_DIST_TBL.DIST_LEVEL_ACTION(1);
808:
809: IF (g_level_statement >= g_current_runtime_level ) THEN
810: FND_LOG.STRING(g_level_statement,
811: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
812: 'dist level action = ' || l_action);
813: END IF;
814:
815: IF l_action = 'CREATE' OR l_action = 'UPDATE' OR l_action = 'NO_ACTION'
830:
831: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
832: IF (g_level_statement >= g_current_runtime_level ) THEN
833: FND_LOG.STRING(g_level_statement,
834: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
835: 'After calling calc_tax_dist x_return_status = '
836: || x_return_status);
837: FND_LOG.STRING(g_level_statement,
838: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
834: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
835: 'After calling calc_tax_dist x_return_status = '
836: || x_return_status);
837: FND_LOG.STRING(g_level_statement,
838: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
839: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
840: END IF;
841: RETURN;
842: END IF;
835: 'After calling calc_tax_dist x_return_status = '
836: || x_return_status);
837: FND_LOG.STRING(g_level_statement,
838: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
839: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
840: END IF;
841: RETURN;
842: END IF;
843:
844: ELSE -- wrong l_action
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
846: IF (g_level_statement >= g_current_runtime_level ) THEN
847: FND_LOG.STRING(g_level_statement,
848: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
849: 'wrong dist level action code ' );
850:
851: END IF;
852: RETURN;
869:
870: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
871: IF (g_level_statement >= g_current_runtime_level ) THEN
872: FND_LOG.STRING(g_level_statement,
873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
874: 'After calling get_rec_nrec_dist_amt x_return_status = '
875: || x_return_status);
876: FND_LOG.STRING(g_level_statement,
877: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
874: 'After calling get_rec_nrec_dist_amt x_return_status = '
875: || x_return_status);
876: FND_LOG.STRING(g_level_statement,
877: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
878: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
879: END IF;
880: RETURN;
881: END IF;
874: 'After calling get_rec_nrec_dist_amt x_return_status = '
875: || x_return_status);
876: FND_LOG.STRING(g_level_statement,
877: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
878: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
879: END IF;
880: RETURN;
881: END IF;
882:
894:
895: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
896: IF (g_level_statement >= g_current_runtime_level ) THEN
897: FND_LOG.STRING(g_level_statement,
898: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
899: 'After calling ROUND_REC_NREC_AMT x_return_status = '
900: || x_return_status);
901: FND_LOG.STRING(g_level_statement,
902: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
898: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
899: 'After calling ROUND_REC_NREC_AMT x_return_status = '
900: || x_return_status);
901: FND_LOG.STRING(g_level_statement,
902: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
903: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
904: END IF;
905: RETURN;
906: END IF;
899: 'After calling ROUND_REC_NREC_AMT x_return_status = '
900: || x_return_status);
901: FND_LOG.STRING(g_level_statement,
902: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
903: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
904: END IF;
905: RETURN;
906: END IF;
907:
921: --
922: -- IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
923: -- IF (g_level_statement >= g_current_runtime_level ) THEN
924: -- FND_LOG.STRING(g_level_statement,
925: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
926: -- 'After calling create_mrc_tax_dists x_return_status = '
927: -- || x_return_status);
928: -- FND_LOG.STRING(g_level_statement,
929: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
925: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
926: -- 'After calling create_mrc_tax_dists x_return_status = '
927: -- || x_return_status);
928: -- FND_LOG.STRING(g_level_statement,
929: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
930: -- 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
931: -- END IF;
932: -- RETURN;
933: -- END IF;
926: -- 'After calling create_mrc_tax_dists x_return_status = '
927: -- || x_return_status);
928: -- FND_LOG.STRING(g_level_statement,
929: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
930: -- 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
931: -- END IF;
932: -- RETURN;
933: -- END IF;
934: -- END IF; -- p_event_class_rec.enable_mrc_flag = 'Y'
944:
945: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
946: IF (g_level_statement >= g_current_runtime_level ) THEN
947: FND_LOG.STRING(g_level_statement,
948: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
949: 'After calling insert_global_table x_return_status = '
950: || x_return_status);
951: FND_LOG.STRING(g_level_statement,
952: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
948: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
949: 'After calling insert_global_table x_return_status = '
950: || x_return_status);
951: FND_LOG.STRING(g_level_statement,
952: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
953: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
954: END IF;
955: RETURN;
956: END IF;
949: 'After calling insert_global_table x_return_status = '
950: || x_return_status);
951: FND_LOG.STRING(g_level_statement,
952: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
953: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
954: END IF;
955: RETURN;
956: END IF;
957:
966:
967: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
968: IF (g_level_statement >= g_current_runtime_level ) THEN
969: FND_LOG.STRING(g_level_statement,
970: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
971: 'After calling populate_mandatory_columns x_return_status = '
972: || x_return_status);
973: FND_LOG.STRING(g_level_statement,
974: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
970: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
971: 'After calling populate_mandatory_columns x_return_status = '
972: || x_return_status);
973: FND_LOG.STRING(g_level_statement,
974: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
975: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
976: END IF;
977: RETURN;
978: END IF;
971: 'After calling populate_mandatory_columns x_return_status = '
972: || x_return_status);
973: FND_LOG.STRING(g_level_statement,
974: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
975: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
976: END IF;
977: RETURN;
978: END IF;
979:
990:
991: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
992: IF g_level_statement >= g_current_runtime_level THEN
993: FND_LOG.STRING(g_level_statement,
994: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
995: 'After calling delete_unnecessary_tax_dists, x_return_status = '
996: || x_return_status);
997: FND_LOG.STRING(g_level_statement,
998: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
994: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
995: 'After calling delete_unnecessary_tax_dists, x_return_status = '
996: || x_return_status);
997: FND_LOG.STRING(g_level_statement,
998: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
999: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1000: END IF;
1001: RETURN;
1002: END IF;
995: 'After calling delete_unnecessary_tax_dists, x_return_status = '
996: || x_return_status);
997: FND_LOG.STRING(g_level_statement,
998: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
999: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1000: END IF;
1001: RETURN;
1002: END IF;
1003: END IF;
1005:
1006: IF (g_level_procedure >= g_current_runtime_level ) THEN
1007:
1008: FND_LOG.STRING(g_level_procedure,
1009: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1010: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)'||x_return_status);
1011: END IF;
1012:
1013: EXCEPTION
1006: IF (g_level_procedure >= g_current_runtime_level ) THEN
1007:
1008: FND_LOG.STRING(g_level_procedure,
1009: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1010: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)'||x_return_status);
1011: END IF;
1012:
1013: EXCEPTION
1014: WHEN OTHERS THEN
1016: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1017:
1018: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1019: FND_LOG.STRING(g_level_unexpected,
1020: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
1021: p_error_buffer);
1022: FND_LOG.STRING(g_level_unexpected,
1023: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1024: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1019: FND_LOG.STRING(g_level_unexpected,
1020: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
1021: p_error_buffer);
1022: FND_LOG.STRING(g_level_unexpected,
1023: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1024: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1025:
1026: END IF;
1027:
1020: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY',
1021: p_error_buffer);
1022: FND_LOG.STRING(g_level_unexpected,
1023: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY.END',
1024: 'ZX_TRD_SERVICES_PUB_PKG.DETERMINE_RECOVERY(-)');
1025:
1026: END IF;
1027:
1028: END DETERMINE_RECOVERY;
1087: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1088:
1089: IF (g_level_procedure >= g_current_runtime_level ) THEN
1090: FND_LOG.STRING(g_level_procedure,
1091: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.BEGIN',
1092: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(+)');
1093: END IF;
1094:
1095: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1088:
1089: IF (g_level_procedure >= g_current_runtime_level ) THEN
1090: FND_LOG.STRING(g_level_procedure,
1091: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.BEGIN',
1092: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(+)');
1093: END IF;
1094:
1095: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1096:
1176: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1177:
1178: IF (g_level_statement >= g_current_runtime_level ) THEN
1179: FND_LOG.STRING(g_level_statement,
1180: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1181: 'After calling ROUND_REC_NREC_AMT x_return_status = '
1182: || x_return_status);
1183: FND_LOG.STRING(g_level_statement,
1184: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1180: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1181: 'After calling ROUND_REC_NREC_AMT x_return_status = '
1182: || x_return_status);
1183: FND_LOG.STRING(g_level_statement,
1184: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1185: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1186: END IF;
1187: RETURN;
1188:
1181: 'After calling ROUND_REC_NREC_AMT x_return_status = '
1182: || x_return_status);
1183: FND_LOG.STRING(g_level_statement,
1184: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1185: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1186: END IF;
1187: RETURN;
1188:
1189: END IF;
1194: -- -- create MRC tax distributions
1195: -- --
1196: -- IF (g_level_statement >= g_current_runtime_level ) THEN
1197: -- FND_LOG.STRING(g_level_statement,
1198: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1199: -- 'create MRC tax distributions' );
1200: -- END IF;
1201: --
1202: -- ZX_TRD_INTERNAL_SERVICES_PVT.create_mrc_tax_dists(
1209: --
1210: -- IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1211: -- IF (g_level_statement >= g_current_runtime_level ) THEN
1212: -- FND_LOG.STRING(g_level_statement,
1213: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1214: -- 'After calling create_mrc_tax_dists x_return_status = '
1215: -- || x_return_status);
1216: -- FND_LOG.STRING(g_level_statement,
1217: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1213: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1214: -- 'After calling create_mrc_tax_dists x_return_status = '
1215: -- || x_return_status);
1216: -- FND_LOG.STRING(g_level_statement,
1217: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1218: -- 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1219: -- END IF;
1220: -- RETURN;
1221: -- END IF;
1214: -- 'After calling create_mrc_tax_dists x_return_status = '
1215: -- || x_return_status);
1216: -- FND_LOG.STRING(g_level_statement,
1217: -- 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1218: -- 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1219: -- END IF;
1220: -- RETURN;
1221: -- END IF;
1222: -- END IF; -- p_event_class_rec.enable_mrc_flag = 'Y'
1232: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1233:
1234: IF (g_level_statement >= g_current_runtime_level ) THEN
1235: FND_LOG.STRING(g_level_statement,
1236: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1237: 'After calling insert_global_table x_return_status = '
1238: || x_return_status);
1239: FND_LOG.STRING(g_level_statement,
1240: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1236: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1237: 'After calling insert_global_table x_return_status = '
1238: || x_return_status);
1239: FND_LOG.STRING(g_level_statement,
1240: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1241: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1242: END IF;
1243: RETURN;
1244:
1237: 'After calling insert_global_table x_return_status = '
1238: || x_return_status);
1239: FND_LOG.STRING(g_level_statement,
1240: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1241: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1242: END IF;
1243: RETURN;
1244:
1245: END IF;
1256: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1257:
1258: IF (g_level_statement >= g_current_runtime_level ) THEN
1259: FND_LOG.STRING(g_level_statement,
1260: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1261: 'After calling populate_mandatory_columns x_return_status = '
1262: || x_return_status);
1263: FND_LOG.STRING(g_level_statement,
1264: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1260: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1261: 'After calling populate_mandatory_columns x_return_status = '
1262: || x_return_status);
1263: FND_LOG.STRING(g_level_statement,
1264: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1265: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1266: END IF;
1267: RETURN;
1268:
1261: 'After calling populate_mandatory_columns x_return_status = '
1262: || x_return_status);
1263: FND_LOG.STRING(g_level_statement,
1264: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1265: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1266: END IF;
1267: RETURN;
1268:
1269: END IF;
1284: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1285:
1286: IF (g_level_statement >= g_current_runtime_level ) THEN
1287: FND_LOG.STRING(g_level_statement,
1288: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1289: 'After calling calc_variance_factors ' ||
1290: 'x_return_status = ' || x_return_status);
1291: FND_LOG.STRING(g_level_statement,
1292: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1288: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1289: 'After calling calc_variance_factors ' ||
1290: 'x_return_status = ' || x_return_status);
1291: FND_LOG.STRING(g_level_statement,
1292: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1293: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1294: END IF;
1295: RETURN;
1296:
1289: 'After calling calc_variance_factors ' ||
1290: 'x_return_status = ' || x_return_status);
1291: FND_LOG.STRING(g_level_statement,
1292: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1293: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1294: END IF;
1295: RETURN;
1296:
1297: END IF;
1299:
1300: IF (g_level_procedure >= g_current_runtime_level ) THEN
1301:
1302: FND_LOG.STRING(g_level_procedure,
1303: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1304: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)'||x_return_status);
1305: END IF;
1306:
1307: EXCEPTION
1300: IF (g_level_procedure >= g_current_runtime_level ) THEN
1301:
1302: FND_LOG.STRING(g_level_procedure,
1303: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1304: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)'||x_return_status);
1305: END IF;
1306:
1307: EXCEPTION
1308: WHEN OTHERS THEN
1310: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1311:
1312: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1313: FND_LOG.STRING(g_level_unexpected,
1314: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1315: p_error_buffer);
1316: FND_LOG.STRING(g_level_unexpected,
1317: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1318: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1313: FND_LOG.STRING(g_level_unexpected,
1314: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1315: p_error_buffer);
1316: FND_LOG.STRING(g_level_unexpected,
1317: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1318: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1319:
1320: END IF;
1321:
1314: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY',
1315: p_error_buffer);
1316: FND_LOG.STRING(g_level_unexpected,
1317: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY.END',
1318: 'ZX_TRD_SERVICES_PUB_PKG.OVERRIDE_RECOVERY(-)');
1319:
1320: END IF;
1321:
1322: END OVERRIDE_RECOVERY;
1353: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1354:
1355: IF (g_level_procedure >= g_current_runtime_level ) THEN
1356: FND_LOG.STRING(g_level_procedure,
1357: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.BEGIN',
1358: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(+)');
1359: END IF;
1360: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1361:
1354:
1355: IF (g_level_procedure >= g_current_runtime_level ) THEN
1356: FND_LOG.STRING(g_level_procedure,
1357: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.BEGIN',
1358: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(+)');
1359: END IF;
1360: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1361:
1362: l_index:= 1;
1369:
1370: -- get g_tax_dist_id
1371: --
1372: SELECT ZX_REC_NREC_DIST_S.nextval
1373: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
1374: FROM dual;
1375:
1376: p_rec_nrec_dist_tbl(l_index).Reverse_Flag:= 'Y';
1377:
1379: p_rec_nrec_dist_tbl(l_index):= p_rec_nrec_dist_tbl(l_index-1);
1380: -- reversed tax dist id is the original rec nrec tax dist id.
1381: p_rec_nrec_dist_tbl(l_index).reversed_tax_dist_id := p_rec_nrec_dist_tbl(l_index-1).rec_nrec_tax_dist_id;
1382: p_rec_nrec_dist_tbl(l_index).freeze_flag:= 'N';
1383: p_rec_nrec_dist_tbl(l_index).rec_nrec_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id;
1384:
1385: p_rec_nrec_dist_tbl(l_index).rec_nrec_tax_amt :=
1386: -p_rec_nrec_dist_tbl(l_index).rec_nrec_tax_amt;
1387: p_rec_nrec_dist_tbl(l_index).rec_nrec_tax_amt_tax_curr :=
1449:
1450: -- get g_tax_dist_id
1451: --
1452: SELECT ZX_REC_NREC_DIST_S.nextval
1453: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
1454: FROM dual;
1455:
1456: -- ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id + 1;
1457:
1452: SELECT ZX_REC_NREC_DIST_S.nextval
1453: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
1454: FROM dual;
1455:
1456: -- ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id + 1;
1457:
1458: p_rec_nrec_dist_tbl(l_index):= p_rec_nrec_dist_tbl(l_index - 2);
1459: p_rec_nrec_dist_tbl(l_index).rec_nrec_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id;
1460: p_rec_nrec_dist_tbl(l_index).Freeze_Flag:= 'N';
1455:
1456: -- ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id + 1;
1457:
1458: p_rec_nrec_dist_tbl(l_index):= p_rec_nrec_dist_tbl(l_index - 2);
1459: p_rec_nrec_dist_tbl(l_index).rec_nrec_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id;
1460: p_rec_nrec_dist_tbl(l_index).Freeze_Flag:= 'N';
1461: p_rec_nrec_dist_tbl(l_index).Reverse_Flag:= 'N';
1462: p_rec_nrec_dist_tbl(l_index).created_by := fnd_global.user_id;
1463: p_rec_nrec_dist_tbl(l_index).creation_date := sysdate;
1466: p_rec_nrec_dist_tbl(l_index).last_update_date := sysdate;
1467: p_rec_nrec_dist_tbl(l_index).object_version_number := 1;
1468:
1469: l_index:= l_index + 1;
1470: -- ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id:= ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id + 1;
1471:
1472: END LOOP;
1473:
1474: CLOSE get_rec_nrec_dist_cur;
1475:
1476: IF (g_level_procedure >= g_current_runtime_level ) THEN
1477:
1478: FND_LOG.STRING(g_level_procedure,
1479: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1480: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(-)'||x_return_status);
1481: END IF;
1482:
1483: EXCEPTION
1476: IF (g_level_procedure >= g_current_runtime_level ) THEN
1477:
1478: FND_LOG.STRING(g_level_procedure,
1479: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1480: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(-)'||x_return_status);
1481: END IF;
1482:
1483: EXCEPTION
1484: WHEN OTHERS THEN
1486: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1487:
1488: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1489: FND_LOG.STRING(g_level_unexpected,
1490: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST',
1491: p_error_buffer);
1492: FND_LOG.STRING(g_level_unexpected,
1493: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1494: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(-)');
1489: FND_LOG.STRING(g_level_unexpected,
1490: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST',
1491: p_error_buffer);
1492: FND_LOG.STRING(g_level_unexpected,
1493: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1494: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(-)');
1495:
1496: END IF;
1497:
1490: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST',
1491: p_error_buffer);
1492: FND_LOG.STRING(g_level_unexpected,
1493: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST.END',
1494: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_TAX_DIST(-)');
1495:
1496: END IF;
1497:
1498: END REVERSE_TAX_DIST;
1534: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1535:
1536: IF (g_level_procedure >= g_current_runtime_level ) THEN
1537: FND_LOG.STRING(g_level_procedure,
1538: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.BEGIN',
1539: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(+)');
1540: END IF;
1541:
1542: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1535:
1536: IF (g_level_procedure >= g_current_runtime_level ) THEN
1537: FND_LOG.STRING(g_level_procedure,
1538: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.BEGIN',
1539: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(+)');
1540: END IF;
1541:
1542: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1543:
1563: l_tax_variance := 'Y';
1564:
1565: IF (g_level_statement >= g_current_runtime_level ) THEN
1566: FND_LOG.STRING(g_level_statement,
1567: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1568: 'hold code : tax variance ');
1569: END IF;
1570: END IF;
1571: ELSIF l_code = 2 THEN
1574: l_tax_amount_range := 'Y';
1575:
1576: IF (g_level_statement >= g_current_runtime_level ) THEN
1577: FND_LOG.STRING(g_level_statement,
1578: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1579: 'hold code : tax amount range');
1580: END IF;
1581: END IF;
1582: ELSIF l_code = 3 THEN
1585: l_tax_variance := 'Y';
1586:
1587: IF (g_level_statement >= g_current_runtime_level ) THEN
1588: FND_LOG.STRING(g_level_statement,
1589: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1590: 'hold code : tax variance ');
1591: END IF;
1592: END IF;
1593: IF l_tax_amount_range = 'N' THEN
1595: l_tax_amount_range := 'Y';
1596:
1597: IF (g_level_statement >= g_current_runtime_level ) THEN
1598: FND_LOG.STRING(g_level_statement,
1599: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1600: 'hold code : tax amount range');
1601: END IF;
1602: END IF;
1603: END IF;
1855:
1856: IF (g_level_procedure >= g_current_runtime_level ) THEN
1857:
1858: FND_LOG.STRING(g_level_procedure,
1859: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1860: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(-)'||x_return_status);
1861: END IF;
1862:
1863: EXCEPTION
1856: IF (g_level_procedure >= g_current_runtime_level ) THEN
1857:
1858: FND_LOG.STRING(g_level_procedure,
1859: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1860: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(-)'||x_return_status);
1861: END IF;
1862:
1863: EXCEPTION
1864: WHEN OTHERS THEN
1869: END IF;
1870:
1871: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1872: FND_LOG.STRING(g_level_unexpected,
1873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1874: 'x_hold_status.tax_variance = '||l_tax_variance);
1875: FND_LOG.STRING(g_level_unexpected,
1876: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1877: 'x_hold_status.tax_amount_range = '||l_tax_amount_range);
1872: FND_LOG.STRING(g_level_unexpected,
1873: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1874: 'x_hold_status.tax_variance = '||l_tax_variance);
1875: FND_LOG.STRING(g_level_unexpected,
1876: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1877: 'x_hold_status.tax_amount_range = '||l_tax_amount_range);
1878: FND_LOG.STRING(g_level_unexpected,
1879: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1880: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1875: FND_LOG.STRING(g_level_unexpected,
1876: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1877: 'x_hold_status.tax_amount_range = '||l_tax_amount_range);
1878: FND_LOG.STRING(g_level_unexpected,
1879: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1880: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1881: FND_LOG.STRING(g_level_unexpected,
1882: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1883: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(-)');
1878: FND_LOG.STRING(g_level_unexpected,
1879: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1880: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1881: FND_LOG.STRING(g_level_unexpected,
1882: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1883: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(-)');
1884:
1885: END IF;
1886:
1879: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX',
1880: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1881: FND_LOG.STRING(g_level_unexpected,
1882: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX.END',
1883: 'ZX_TRD_SERVICES_PUB_PKG.VALIDATE_DOCUMENT_FOR_TAX(-)');
1884:
1885: END IF;
1886:
1887: END VALIDATE_DOCUMENT_FOR_TAX;
1926: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1927:
1928: IF (g_level_procedure >= g_current_runtime_level ) THEN
1929: FND_LOG.STRING(g_level_procedure,
1930: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.BEGIN',
1931: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(+)');
1932: END IF;
1933:
1934: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1927:
1928: IF (g_level_procedure >= g_current_runtime_level ) THEN
1929: FND_LOG.STRING(g_level_procedure,
1930: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.BEGIN',
1931: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(+)');
1932: END IF;
1933:
1934: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1935:
2358: WHERE REC_NREC_TAX_DIST_ID = l_rvrsed_tax_dist_id_tbl(i);
2359:
2360: IF (g_level_procedure >= g_current_runtime_level ) THEN
2361: FND_LOG.STRING(g_level_procedure,
2362: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.END',
2363: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(-)'||
2364: 'RETURN_STATUS = ' || x_return_status);
2365: END IF;
2366:
2359:
2360: IF (g_level_procedure >= g_current_runtime_level ) THEN
2361: FND_LOG.STRING(g_level_procedure,
2362: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.END',
2363: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(-)'||
2364: 'RETURN_STATUS = ' || x_return_status);
2365: END IF;
2366:
2367: EXCEPTION
2369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2370:
2371: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2372: FND_LOG.STRING(g_level_unexpected,
2373: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2374: 'Tax Lines Distribution Record Already Exists');
2375: FND_LOG.STRING(g_level_unexpected,
2376: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2377: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2372: FND_LOG.STRING(g_level_unexpected,
2373: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2374: 'Tax Lines Distribution Record Already Exists');
2375: FND_LOG.STRING(g_level_unexpected,
2376: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2377: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2378: END IF;
2379:
2380: WHEN OTHERS THEN
2381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2382:
2383: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2384: FND_LOG.STRING(g_level_unexpected,
2385: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS',
2386: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2387: END IF;
2388:
2389: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2387: END IF;
2388:
2389: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2390: FND_LOG.STRING(g_level_unexpected,
2391: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.END',
2392: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(-)');
2393: END IF;
2394:
2395: END REVERSE_DISTRIBUTIONS;
2388:
2389: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2390: FND_LOG.STRING(g_level_unexpected,
2391: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS.END',
2392: 'ZX_TRD_SERVICES_PUB_PKG.REVERSE_DISTRIBUTIONS(-)');
2393: END IF;
2394:
2395: END REVERSE_DISTRIBUTIONS;
2396:
2485:
2486: IF (g_level_procedure >= g_current_runtime_level ) THEN
2487:
2488: FND_LOG.STRING(g_level_procedure,
2489: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2490: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(+)');
2491:
2492: END IF;
2493:
2486: IF (g_level_procedure >= g_current_runtime_level ) THEN
2487:
2488: FND_LOG.STRING(g_level_procedure,
2489: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2490: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(+)');
2491:
2492: END IF;
2493:
2494: IF (g_level_statement >= g_current_runtime_level ) THEN
2493:
2494: IF (g_level_statement >= g_current_runtime_level ) THEN
2495:
2496: FND_LOG.STRING(g_level_statement,
2497: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2498: 'Input Parameters:');
2499: FND_LOG.STRING(g_level_statement,
2500: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2501: 'GL Date:'||p_gl_date );
2496: FND_LOG.STRING(g_level_statement,
2497: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2498: 'Input Parameters:');
2499: FND_LOG.STRING(g_level_statement,
2500: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2501: 'GL Date:'||p_gl_date );
2502: FND_LOG.STRING(g_level_statement,
2503: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2504: 'Tax Rate Id:'||p_tax_rate_id);
2499: FND_LOG.STRING(g_level_statement,
2500: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2501: 'GL Date:'||p_gl_date );
2502: FND_LOG.STRING(g_level_statement,
2503: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2504: 'Tax Rate Id:'||p_tax_rate_id);
2505: FND_LOG.STRING(g_level_statement,
2506: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2507: 'Recovery Rate Id:'||p_rec_rate_id);
2502: FND_LOG.STRING(g_level_statement,
2503: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2504: 'Tax Rate Id:'||p_tax_rate_id);
2505: FND_LOG.STRING(g_level_statement,
2506: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2507: 'Recovery Rate Id:'||p_rec_rate_id);
2508: FND_LOG.STRING(g_level_statement,
2509: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2510: 'Self Assessed Flag:'||p_Self_Assessed_Flag);
2505: FND_LOG.STRING(g_level_statement,
2506: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2507: 'Recovery Rate Id:'||p_rec_rate_id);
2508: FND_LOG.STRING(g_level_statement,
2509: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2510: 'Self Assessed Flag:'||p_Self_Assessed_Flag);
2511: FND_LOG.STRING(g_level_statement,
2512: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2513: 'Recoverable Flag:'|| p_Recoverable_Flag);
2508: FND_LOG.STRING(g_level_statement,
2509: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2510: 'Self Assessed Flag:'||p_Self_Assessed_Flag);
2511: FND_LOG.STRING(g_level_statement,
2512: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2513: 'Recoverable Flag:'|| p_Recoverable_Flag);
2514: FND_LOG.STRING(g_level_statement,
2515: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2516: 'Org Id:'|| p_org_id);
2511: FND_LOG.STRING(g_level_statement,
2512: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2513: 'Recoverable Flag:'|| p_Recoverable_Flag);
2514: FND_LOG.STRING(g_level_statement,
2515: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2516: 'Org Id:'|| p_org_id);
2517: FND_LOG.STRING(g_level_statement,
2518: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2519: 'Ledger Id:'|| p_ledger_id);
2514: FND_LOG.STRING(g_level_statement,
2515: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2516: 'Org Id:'|| p_org_id);
2517: FND_LOG.STRING(g_level_statement,
2518: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2519: 'Ledger Id:'|| p_ledger_id);
2520: FND_LOG.STRING(g_level_statement,
2521: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2522: 'Tax regime id:'||p_tax_regime_id);
2517: FND_LOG.STRING(g_level_statement,
2518: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2519: 'Ledger Id:'|| p_ledger_id);
2520: FND_LOG.STRING(g_level_statement,
2521: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2522: 'Tax regime id:'||p_tax_regime_id);
2523: FND_LOG.STRING(g_level_statement,
2524: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2525: 'Tax Id:'|| p_tax_id);
2520: FND_LOG.STRING(g_level_statement,
2521: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2522: 'Tax regime id:'||p_tax_regime_id);
2523: FND_LOG.STRING(g_level_statement,
2524: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2525: 'Tax Id:'|| p_tax_id);
2526: FND_LOG.STRING(g_level_statement,
2527: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2528: 'Tax Status Id:'|| p_tax_status_id);
2523: FND_LOG.STRING(g_level_statement,
2524: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2525: 'Tax Id:'|| p_tax_id);
2526: FND_LOG.STRING(g_level_statement,
2527: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2528: 'Tax Status Id:'|| p_tax_status_id);
2529: FND_LOG.STRING(g_level_statement,
2530: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2531: 'revenue_expense_ccid:'|| p_revenue_expense_ccid);
2526: FND_LOG.STRING(g_level_statement,
2527: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2528: 'Tax Status Id:'|| p_tax_status_id);
2529: FND_LOG.STRING(g_level_statement,
2530: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2531: 'revenue_expense_ccid:'|| p_revenue_expense_ccid);
2532: FND_LOG.STRING(g_level_statement,
2533: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2534: 'Account Source Tax Rate Id:'|| p_account_source_tax_rate_id);
2529: FND_LOG.STRING(g_level_statement,
2530: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2531: 'revenue_expense_ccid:'|| p_revenue_expense_ccid);
2532: FND_LOG.STRING(g_level_statement,
2533: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2534: 'Account Source Tax Rate Id:'|| p_account_source_tax_rate_id);
2535: END IF;
2536:
2537: x_return_status := FND_API.G_RET_STS_SUCCESS;
2559:
2560: IF (g_level_statement >= g_current_runtime_level ) THEN
2561:
2562: FND_LOG.STRING(g_level_statement,
2563: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2564: 'l_def_rec_settle_option_code: '|| l_def_rec_settle_option_code);
2565: END IF;
2566:
2567:
2570: BEGIN
2571:
2572: IF (g_level_statement >= g_current_runtime_level ) THEN
2573: FND_LOG.STRING(g_level_statement,
2574: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2575: 'Getting account information using account source tax rate id:'||p_account_source_tax_rate_id);
2576: END IF;
2577:
2578: IF ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.exists(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)) THEN
2579:
2580: IF (g_level_statement >= g_current_runtime_level ) THEN
2581:
2582: FND_LOG.STRING(g_level_statement,
2583: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2584: 'Getting from cache for p_account_sourece_tax_rate_id ');
2585: END IF;
2586: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
2587:
2592: ELSE
2593: IF (g_level_statement >= g_current_runtime_level ) THEN
2594:
2595: FND_LOG.STRING(g_level_statement,
2596: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2597: 'Getting from database for p_account_sourece_tax_rate_id ');
2598: END IF;
2599: open get_rec_nrec_ccid_cur(p_account_source_tax_rate_id, 'RATES',p_org_id);
2600: fetch get_rec_nrec_ccid_cur into l_interim_tax_ccid, l_rec_ccid, l_nrec_ccid;
2611: EXCEPTION
2612: WHEN TOO_MANY_ROWS THEN
2613: IF (g_level_exception >= g_current_runtime_level ) THEN
2614: FND_LOG.STRING(g_level_exception,
2615: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2616: 'There are more than one set of accounts defined for this tax rate id: '||p_account_source_tax_rate_id||
2617: ' Please specify ledger in the input structure while calling get_ccid API.');
2618: END IF;
2619: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2621: END IF;
2622: WHEN OTHERS THEN
2623: IF (g_level_exception >= g_current_runtime_level ) THEN
2624: FND_LOG.STRING(g_level_exception,
2625: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2626: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2627: END IF;
2628: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2629: close get_rec_nrec_ccid_cur;
2642:
2643: BEGIN
2644: IF (g_level_statement >= g_current_runtime_level ) THEN
2645: FND_LOG.STRING(g_level_statement,
2646: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2647: 'Getting account information using recovery rate id:'||p_rec_rate_id);
2648: END IF;
2649:
2650: IF
2652:
2653: IF (g_level_statement >= g_current_runtime_level ) THEN
2654:
2655: FND_LOG.STRING(g_level_statement,
2656: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2657: 'Getting from cache for p_rec_rate_id ');
2658: END IF;
2659: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_rec_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
2660:
2666:
2667: IF (g_level_statement >= g_current_runtime_level ) THEN
2668:
2669: FND_LOG.STRING(g_level_statement,
2670: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2671: 'Getting from database for p_rec_rate_id ');
2672: END IF;
2673: open get_rec_nrec_ccid_cur(p_rec_rate_id, 'RATES',p_org_id);
2674: fetch get_rec_nrec_ccid_cur into l_interim_tax_ccid, l_rec_ccid, l_nrec_ccid;
2685: EXCEPTION
2686: WHEN TOO_MANY_ROWS THEN
2687: IF (g_level_exception >= g_current_runtime_level ) THEN
2688: FND_LOG.STRING(g_level_exception,
2689: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2690: 'There are more than one set of accounts defined for this tax rate id: '||p_rec_rate_id||
2691: ' Please specify ledger in the input structure while calling get_ccid API.');
2692: END IF;
2693: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2695: END IF;
2696: WHEN OTHERS THEN
2697: IF (g_level_exception >= g_current_runtime_level ) THEN
2698: FND_LOG.STRING(g_level_exception,
2699: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2700: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2701: END IF;
2702: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2703: close get_rec_nrec_ccid_cur;
2715: BEGIN
2716:
2717: IF (g_level_statement >= g_current_runtime_level ) THEN
2718: FND_LOG.STRING(g_level_statement,
2719: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2720: 'Getting account information using tax rate id:'||p_tax_rate_id);
2721: END IF;
2722:
2723: IF
2725:
2726: IF (g_level_statement >= g_current_runtime_level ) THEN
2727:
2728: FND_LOG.STRING(g_level_statement,
2729: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2730: 'Getting from cache for p_tax_rate_id ');
2731: END IF;
2732:
2733: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_tax_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
2739: ELSE
2740: IF (g_level_statement >= g_current_runtime_level ) THEN
2741:
2742: FND_LOG.STRING(g_level_statement,
2743: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2744: 'Getting from database for p_tax_rate_id ');
2745: END IF;
2746: open get_rec_nrec_ccid_cur(p_tax_rate_id, 'RATES',p_org_id);
2747: fetch get_rec_nrec_ccid_cur into l_interim_tax_ccid, l_rec_ccid, l_nrec_ccid;
2758: EXCEPTION
2759: WHEN TOO_MANY_ROWS THEN
2760: IF (g_level_exception >= g_current_runtime_level ) THEN
2761: FND_LOG.STRING(g_level_exception,
2762: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2763: 'There are more than one set of accounts defined for this tax rate id: '||p_tax_rate_id||
2764: ' Please specify ledger in the input structure while calling get_ccid API.');
2765: END IF;
2766: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2768: END IF;
2769: WHEN OTHERS THEN
2770: IF (g_level_exception >= g_current_runtime_level ) THEN
2771: FND_LOG.STRING(g_level_exception,
2772: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2773: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2774: END IF;
2775: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2776: close get_rec_nrec_ccid_cur;
2794: BEGIN
2795:
2796: IF (g_level_statement >= g_current_runtime_level ) THEN
2797: FND_LOG.STRING(g_level_statement,
2798: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2799: 'Getting account information using account source tax rate id:'||p_account_source_tax_rate_id);
2800: END IF;
2801:
2802: IF
2804:
2805: IF (g_level_statement >= g_current_runtime_level ) THEN
2806:
2807: FND_LOG.STRING(g_level_statement,
2808: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2809: 'Getting from cache for p_account_source_tax_rate_id ');
2810: END IF;
2811: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
2812:
2817: ELSE
2818: IF (g_level_statement >= g_current_runtime_level ) THEN
2819:
2820: FND_LOG.STRING(g_level_statement,
2821: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2822: 'Getting from database for p_account_source_tax_rate_id ');
2823: END IF;
2824:
2825: open get_rec_nrec_ccid_cur(p_account_source_tax_rate_id, 'RATES',p_org_id);
2836: EXCEPTION
2837: WHEN TOO_MANY_ROWS THEN
2838: IF (g_level_exception >= g_current_runtime_level ) THEN
2839: FND_LOG.STRING(g_level_exception,
2840: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2841: 'There are more than one set of accounts defined for this tax rate id: '||p_account_source_tax_rate_id||
2842: ' Please specify ledger in the input structure while calling get_ccid API.');
2843: END IF;
2844: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2846: END IF;
2847: WHEN OTHERS THEN
2848: IF (g_level_exception >= g_current_runtime_level ) THEN
2849: FND_LOG.STRING(g_level_exception,
2850: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2851: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2852: END IF;
2853: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2854: close get_rec_nrec_ccid_cur;
2864: BEGIN
2865:
2866: IF (g_level_statement >= g_current_runtime_level ) THEN
2867: FND_LOG.STRING(g_level_statement,
2868: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2869: 'Getting account information using tax rate id:'||p_tax_rate_id);
2870: END IF;
2871:
2872: IF
2874:
2875: IF (g_level_statement >= g_current_runtime_level ) THEN
2876:
2877: FND_LOG.STRING(g_level_statement,
2878: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2879: 'Getting from cache for p_tax_rate_id ');
2880: END IF;
2881:
2882: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_tax_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
2888: ELSE
2889: IF (g_level_statement >= g_current_runtime_level ) THEN
2890:
2891: FND_LOG.STRING(g_level_statement,
2892: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2893: 'Getting from database for p_tax_rate_id ');
2894: END IF;
2895:
2896: open get_rec_nrec_ccid_cur(p_tax_rate_id, 'RATES', p_org_id);
2907: EXCEPTION
2908: WHEN TOO_MANY_ROWS THEN
2909: IF (g_level_exception >= g_current_runtime_level ) THEN
2910: FND_LOG.STRING(g_level_exception,
2911: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2912: 'There are more than one set of accounts defined for this tax rate id: '||p_tax_rate_id||
2913: ' Please specify ledger in the input structure while calling get_ccid API.');
2914: END IF;
2915: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2917: END IF;
2918: WHEN OTHERS THEN
2919: IF (g_level_exception >= g_current_runtime_level ) THEN
2920: FND_LOG.STRING(g_level_exception,
2921: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2922: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
2923: END IF;
2924: IF get_rec_nrec_ccid_cur%ISOPEN THEN
2925: close get_rec_nrec_ccid_cur;
2967:
2968:
2969: IF (g_level_statement >= g_current_runtime_level ) THEN
2970: FND_LOG.STRING(g_level_statement,
2971: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
2972: 'Getting Liability account information using tax rate id:'||p_tax_rate_id);
2973: END IF;
2974:
2975:
2978:
2979: IF (g_level_statement >= g_current_runtime_level ) THEN
2980:
2981: FND_LOG.STRING(g_level_statement,
2982: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2983: 'Getting from cache for p_tax_rate_id ');
2984: END IF;
2985: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_tax_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
2986:
2993:
2994: IF (g_level_statement >= g_current_runtime_level ) THEN
2995:
2996: FND_LOG.STRING(g_level_statement,
2997: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
2998: 'Getting from database for p_tax_rate_id ');
2999: END IF;
3000: open get_rec_nrec_ccid_cur(p_tax_rate_id, 'RATES',p_org_id);
3001: fetch get_rec_nrec_ccid_cur into l_interim_tax_ccid, l_tax_liab_ccid, l_nrec_ccid;
3012: END IF;
3013: IF l_tax_liab_ccid IS NULL AND p_Recoverable_Flag <> 'Y' THEN
3014: IF (g_level_statement >= g_current_runtime_level ) THEN
3015: FND_LOG.STRING(g_level_statement,
3016: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3017: 'Getting Liability account information using Account source tax rate id:'||p_account_source_tax_rate_id);
3018: END IF;
3019: IF
3020: ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl.exists(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)) THEN
3021:
3022: IF (g_level_statement >= g_current_runtime_level ) THEN
3023:
3024: FND_LOG.STRING(g_level_statement,
3025: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
3026: 'Getting from cache for p_account_source_tax_rate_id ');
3027: END IF;
3028:
3029: l_interim_tax_ccid := ZX_GLOBAL_STRUCTURES_PKG.rec_nrec_ccid_tbl(to_char(p_account_source_tax_rate_id)||'RATES'||to_char(p_org_id)).interim_tax_ccid;
3037: else
3038: IF (g_level_statement >= g_current_runtime_level ) THEN
3039:
3040: FND_LOG.STRING(g_level_statement,
3041: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.BEGIN',
3042: 'Getting from database for p_account_source_tax_rate_id ');
3043: END IF;
3044: open get_rec_nrec_ccid_cur(p_account_source_tax_rate_id, 'RATES',p_org_id);
3045: fetch get_rec_nrec_ccid_cur into l_interim_tax_ccid, l_tax_liab_ccid, l_nrec_ccid;
3059: EXCEPTION
3060: WHEN TOO_MANY_ROWS THEN
3061: IF (g_level_exception >= g_current_runtime_level ) THEN
3062: FND_LOG.STRING(g_level_exception,
3063: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3064: 'There are more than one set of accounts defined for this tax rate id: '||p_tax_rate_id||
3065: ' Please specify ledger in the input structure while calling get_ccid API.');
3066: END IF;
3067: IF get_rec_nrec_ccid_cur%ISOPEN THEN
3069: END IF;
3070: WHEN OTHERS THEN
3071: IF (g_level_exception >= g_current_runtime_level ) THEN
3072: FND_LOG.STRING(g_level_exception,
3073: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3074: 'EXCEPTION: OTHERS: '||SQLCODE||' ; '||SQLERRM);
3075: END IF;
3076: IF get_rec_nrec_ccid_cur%ISOPEN THEN
3077: close get_rec_nrec_ccid_cur;
3108: FND_MSG_PUB.Add;
3109: IF (g_level_statement >= g_current_runtime_level ) THEN
3110:
3111: FND_LOG.STRING(g_level_statement,
3112: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3113: 'error: p_Recoverable_Flag is Y, but p_rec_nrec_ccid is null');
3114:
3115: END IF;
3116: ELSIF p_Recoverable_Flag = 'N' THEN
3119: FND_MSG_PUB.Add;
3120: IF (g_level_statement >= g_current_runtime_level ) THEN
3121:
3122: FND_LOG.STRING(g_level_statement,
3123: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3124: 'error: p_Recoverable_Flag is N, but p_rec_nrec_ccid is null');
3125:
3126: END IF;
3127: END IF;
3137: FND_MSG_PUB.Add;
3138: IF (g_level_statement >= g_current_runtime_level ) THEN
3139:
3140: FND_LOG.STRING(g_level_statement,
3141: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3142: 'error: p_Self_Assessed_Flag is Y, but p_tax_liab_ccid
3143: is null');
3144:
3145: END IF;
3147:
3148: IF (g_level_procedure >= g_current_runtime_level ) THEN
3149:
3150: FND_LOG.STRING(g_level_procedure,
3151: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.END',
3152: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(-)'||
3153: ' p_rec_nrec_ccid = '||p_rec_nrec_ccid||
3154: ' p_tax_liab_ccid = '||p_tax_liab_ccid||
3155: ' return status = '||x_return_status);
3148: IF (g_level_procedure >= g_current_runtime_level ) THEN
3149:
3150: FND_LOG.STRING(g_level_procedure,
3151: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.END',
3152: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(-)'||
3153: ' p_rec_nrec_ccid = '||p_rec_nrec_ccid||
3154: ' p_tax_liab_ccid = '||p_tax_liab_ccid||
3155: ' return status = '||x_return_status);
3156:
3161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3162:
3163: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3164: FND_LOG.STRING(g_level_unexpected,
3165: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID',
3166: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3167: END IF;
3168:
3169: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3167: END IF;
3168:
3169: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3170: FND_LOG.STRING(g_level_unexpected,
3171: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.END',
3172: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(-)');
3173: END IF;
3174:
3175: END GET_CCID;
3168:
3169: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3170: FND_LOG.STRING(g_level_unexpected,
3171: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_CCID.END',
3172: 'ZX_TRD_SERVICES_PUB_PKG.GET_CCID(-)');
3173: END IF;
3174:
3175: END GET_CCID;
3176:
3267:
3268: IF (g_level_procedure >= g_current_runtime_level ) THEN
3269:
3270: FND_LOG.STRING(g_level_procedure,
3271: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3272: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(+)');
3273:
3274: END IF;
3275:
3268: IF (g_level_procedure >= g_current_runtime_level ) THEN
3269:
3270: FND_LOG.STRING(g_level_procedure,
3271: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3272: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(+)');
3273:
3274: END IF;
3275:
3276: IF (g_level_statement >= g_current_runtime_level ) THEN
3275:
3276: IF (g_level_statement >= g_current_runtime_level ) THEN
3277:
3278: FND_LOG.STRING(g_level_statement,
3279: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3280: 'Input Parameters:');
3281: FND_LOG.STRING(g_level_statement,
3282: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3283: 'GL Date:'||p_gl_date );
3278: FND_LOG.STRING(g_level_statement,
3279: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3280: 'Input Parameters:');
3281: FND_LOG.STRING(g_level_statement,
3282: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3283: 'GL Date:'||p_gl_date );
3284: FND_LOG.STRING(g_level_statement,
3285: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3286: 'Tax Rate Id:'||p_tax_rate_id);
3281: FND_LOG.STRING(g_level_statement,
3282: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3283: 'GL Date:'||p_gl_date );
3284: FND_LOG.STRING(g_level_statement,
3285: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3286: 'Tax Rate Id:'||p_tax_rate_id);
3287: FND_LOG.STRING(g_level_statement,
3288: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3289: 'Location Segment Id:'||p_location_segment_id);
3284: FND_LOG.STRING(g_level_statement,
3285: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3286: 'Tax Rate Id:'||p_tax_rate_id);
3287: FND_LOG.STRING(g_level_statement,
3288: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3289: 'Location Segment Id:'||p_location_segment_id);
3290: FND_LOG.STRING(g_level_statement,
3291: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3292: 'Tax Line Id:'|| p_tax_line_id);
3287: FND_LOG.STRING(g_level_statement,
3288: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3289: 'Location Segment Id:'||p_location_segment_id);
3290: FND_LOG.STRING(g_level_statement,
3291: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3292: 'Tax Line Id:'|| p_tax_line_id);
3293: FND_LOG.STRING(g_level_statement,
3294: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3295: 'Org Id:'|| p_org_id);
3290: FND_LOG.STRING(g_level_statement,
3291: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3292: 'Tax Line Id:'|| p_tax_line_id);
3293: FND_LOG.STRING(g_level_statement,
3294: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3295: 'Org Id:'|| p_org_id);
3296: FND_LOG.STRING(g_level_statement,
3297: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3298: 'Ledger Id:'|| p_ledger_id);
3293: FND_LOG.STRING(g_level_statement,
3294: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3295: 'Org Id:'|| p_org_id);
3296: FND_LOG.STRING(g_level_statement,
3297: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
3298: 'Ledger Id:'|| p_ledger_id);
3299: END IF;
3300:
3301:
3315:
3316: IF (g_level_statement >= g_current_runtime_level ) THEN
3317:
3318: FND_LOG.STRING(g_level_statement,
3319: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3320: 'Getting accounts using Location Segment.. '||to_char(l_location_segment_id));
3321:
3322: END IF;
3323:
3355:
3356: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3357: IF (g_level_statement >= g_current_runtime_level ) THEN
3358: FND_LOG.STRING(g_level_statement,
3359: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3360: 'After calling get_tax_jurisdiction_id, x_return_status = '|| x_return_status);
3361: FND_LOG.STRING(g_level_statement,
3362: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3363: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)');
3358: FND_LOG.STRING(g_level_statement,
3359: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3360: 'After calling get_tax_jurisdiction_id, x_return_status = '|| x_return_status);
3361: FND_LOG.STRING(g_level_statement,
3362: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3363: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)');
3364: END IF;
3365: RETURN;
3366: END IF;
3359: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3360: 'After calling get_tax_jurisdiction_id, x_return_status = '|| x_return_status);
3361: FND_LOG.STRING(g_level_statement,
3362: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3363: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)');
3364: END IF;
3365: RETURN;
3366: END IF;
3367:
3368: IF p_tax_account_ccid IS NULL THEN
3369: IF p_tax_line_id IS NOT NULL THEN
3370: IF (g_level_statement >= g_current_runtime_level ) THEN
3371: FND_LOG.STRING(g_level_statement,
3372: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3373: 'Getting account information for the jurisdiction id '||to_char(l_tax_jurisdiction_id));
3374: END IF;
3375: IF l_tax_jurisdiction_id IS NOT NULL THEN
3376: open get_zx_account_ccid(l_tax_jurisdiction_id, 'JURISDICTION', p_org_id, p_ledger_id);
3384:
3385:
3386: IF (g_level_statement >= g_current_runtime_level ) THEN
3387: FND_LOG.STRING(g_level_statement,
3388: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3389: 'Tax account for jurisdiction_id '||to_char(l_tax_jurisdiction_id)||
3390: ' is: '||to_char(p_tax_account_ccid));
3391: END IF;
3392: IF p_tax_account_ccid is not null THEN
3412: IF p_tax_line_id IS NOT NULL THEN
3413:
3414: IF (g_level_statement >= g_current_runtime_level ) THEN
3415: FND_LOG.STRING(g_level_statement,
3416: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3417: 'Getting account source tax rate id for tax line id '||to_char(p_tax_line_id));
3418: END IF;
3419:
3420: open line_acc_src_tax_rate_id(p_tax_line_id);
3431:
3432:
3433: IF (g_level_statement >= g_current_runtime_level ) THEN
3434: FND_LOG.STRING(g_level_statement,
3435: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3436: 'Tax account for acct_source_tax_rate_id '||to_char(l_acc_src_tax_rate_id)||
3437: ' is: '||to_char(p_tax_account_ccid));
3438: END IF;
3439:
3458: IF l_tax_rate_id is not null THEN
3459:
3460: IF (g_level_statement >= g_current_runtime_level ) THEN
3461: FND_LOG.STRING(g_level_statement,
3462: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3463: 'Getting account information using tax rate id: '||to_char(l_tax_rate_id));
3464: END IF;
3465:
3466: open get_zx_account_ccid(l_tax_rate_id, 'RATES', p_org_id, p_ledger_id);
3504:
3505: IF (g_level_procedure >= g_current_runtime_level ) THEN
3506:
3507: FND_LOG.STRING(g_level_procedure,
3508: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3509: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)'||
3510: ' tax_account_ccid = ' || p_tax_account_ccid ||
3511: ' interim_tax_ccid = ' || p_interim_tax_ccid ||
3512: ' adj_ccid = ' || p_adj_ccid ||
3505: IF (g_level_procedure >= g_current_runtime_level ) THEN
3506:
3507: FND_LOG.STRING(g_level_procedure,
3508: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3509: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)'||
3510: ' tax_account_ccid = ' || p_tax_account_ccid ||
3511: ' interim_tax_ccid = ' || p_interim_tax_ccid ||
3512: ' adj_ccid = ' || p_adj_ccid ||
3513: ' edisc_ccid = ' || p_edisc_ccid ||
3528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3529:
3530: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3531: FND_LOG.STRING(g_level_unexpected,
3532: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID',
3533: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3534: END IF;
3535:
3536: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3534: END IF;
3535:
3536: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3537: FND_LOG.STRING(g_level_unexpected,
3538: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3539: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)');
3540: END IF;
3541:
3542: END GET_OUTPUT_TAX_CCID;
3535:
3536: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3537: FND_LOG.STRING(g_level_unexpected,
3538: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.END',
3539: 'ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID(-)');
3540: END IF;
3541:
3542: END GET_OUTPUT_TAX_CCID;
3543:
3557: BEGIN
3558:
3559: IF (g_level_procedure >= g_current_runtime_level ) THEN
3560: FND_LOG.STRING(g_level_procedure,
3561: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST.BEGIN',
3562: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(+)');
3563: END IF;
3564:
3565: INSERT INTO zx_itm_distributions_gt(
3558:
3559: IF (g_level_procedure >= g_current_runtime_level ) THEN
3560: FND_LOG.STRING(g_level_procedure,
3561: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST.BEGIN',
3562: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(+)');
3563: END IF;
3564:
3565: INSERT INTO zx_itm_distributions_gt(
3566: --internal_organization_id,
3671: AND trx_level_type = p_tax_line_rec.trx_level_type;
3672:
3673: IF (g_level_procedure >= g_current_runtime_level ) THEN
3674: FND_LOG.STRING(g_level_procedure,
3675: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST.END',
3676: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(-)');
3677: END IF;
3678:
3679: EXCEPTION
3672:
3673: IF (g_level_procedure >= g_current_runtime_level ) THEN
3674: FND_LOG.STRING(g_level_procedure,
3675: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST.END',
3676: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(-)');
3677: END IF;
3678:
3679: EXCEPTION
3680: WHEN DUP_VAL_ON_INDEX THEN
3681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3682:
3683: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3684: FND_LOG.STRING(g_level_unexpected,
3685: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3686: 'TRL Record Already Exists');
3687: FND_LOG.STRING(g_level_unexpected,
3688: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3689: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3684: FND_LOG.STRING(g_level_unexpected,
3685: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3686: 'TRL Record Already Exists');
3687: FND_LOG.STRING(g_level_unexpected,
3688: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3689: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3690: END IF;
3691:
3692: WHEN OTHERS THEN
3693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3694:
3695: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3696: FND_LOG.STRING(g_level_unexpected,
3697: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist',
3698: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3699: END IF;
3700:
3701: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3699: END IF;
3700:
3701: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3702: FND_LOG.STRING(g_level_unexpected,
3703: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist.END',
3704: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(-)');
3705: END IF;
3706: END insert_item_dist;
3707:
3700:
3701: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3702: FND_LOG.STRING(g_level_unexpected,
3703: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_item_dist.END',
3704: 'ZX_TRD_SERVICES_PUB_PKG.INSERT_ITEM_DIST(-)');
3705: END IF;
3706: END insert_item_dist;
3707:
3708:
3750: BEGIN
3751:
3752: IF (g_level_procedure >= g_current_runtime_level ) THEN
3753: FND_LOG.STRING(g_level_procedure,
3754: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.BEGIN',
3755: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(+)');
3756: END IF;
3757:
3758: x_return_status:= FND_API.G_RET_STS_SUCCESS;
3751:
3752: IF (g_level_procedure >= g_current_runtime_level ) THEN
3753: FND_LOG.STRING(g_level_procedure,
3754: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.BEGIN',
3755: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(+)');
3756: END IF;
3757:
3758: x_return_status:= FND_API.G_RET_STS_SUCCESS;
3759:
3793:
3794: IF (g_level_procedure >= g_current_runtime_level ) THEN
3795:
3796: FND_LOG.STRING(g_level_procedure,
3797: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
3798: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(-)'||x_return_status);
3799: END IF;
3800:
3801: EXCEPTION
3794: IF (g_level_procedure >= g_current_runtime_level ) THEN
3795:
3796: FND_LOG.STRING(g_level_procedure,
3797: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
3798: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(-)'||x_return_status);
3799: END IF;
3800:
3801: EXCEPTION
3802: WHEN OTHERS THEN
3803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3804:
3805: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3806: FND_LOG.STRING(g_level_unexpected,
3807: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines',
3808: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3809: FND_LOG.STRING(g_level_unexpected,
3810: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
3811: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(-)');
3806: FND_LOG.STRING(g_level_unexpected,
3807: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines',
3808: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3809: FND_LOG.STRING(g_level_unexpected,
3810: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
3811: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(-)');
3812: END IF;
3813:
3814: END fetch_tax_lines;
3807: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines',
3808: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3809: FND_LOG.STRING(g_level_unexpected,
3810: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines.END',
3811: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_lines(-)');
3812: END IF;
3813:
3814: END fetch_tax_lines;
3815:
3850: BEGIN
3851:
3852: IF (g_level_procedure>= g_current_runtime_level ) THEN
3853: FND_LOG.STRING(g_level_procedure,
3854: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.BEGIN',
3855: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(+)'||
3856: ' tax_line_id = ' || p_tax_line_id||
3857: ' trx_line_dist_id = ' || p_trx_line_dist_id);
3858:
3851:
3852: IF (g_level_procedure>= g_current_runtime_level ) THEN
3853: FND_LOG.STRING(g_level_procedure,
3854: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.BEGIN',
3855: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(+)'||
3856: ' tax_line_id = ' || p_tax_line_id||
3857: ' trx_line_dist_id = ' || p_trx_line_dist_id);
3858:
3859: END IF;
3876: CLOSE fetch_tax_distributions_csr;
3877: IF (g_level_statement >= g_current_runtime_level ) THEN
3878:
3879: FND_LOG.STRING(g_level_statement,
3880: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
3881: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)'||' unexpected: No tax dist');
3882: END IF;
3883: RETURN;
3884:
3877: IF (g_level_statement >= g_current_runtime_level ) THEN
3878:
3879: FND_LOG.STRING(g_level_statement,
3880: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
3881: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)'||' unexpected: No tax dist');
3882: END IF;
3883: RETURN;
3884:
3885: END IF;
3897:
3898: IF (g_level_procedure >= g_current_runtime_level ) THEN
3899:
3900: FND_LOG.STRING(g_level_procedure,
3901: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
3902: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)'||x_return_status);
3903: END IF;
3904:
3905: EXCEPTION
3898: IF (g_level_procedure >= g_current_runtime_level ) THEN
3899:
3900: FND_LOG.STRING(g_level_procedure,
3901: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
3902: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)'||x_return_status);
3903: END IF;
3904:
3905: EXCEPTION
3906: WHEN OTHERS THEN
3907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3908:
3909: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3910: FND_LOG.STRING(g_level_unexpected,
3911: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions',
3912: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3913: FND_LOG.STRING(g_level_unexpected,
3914: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
3915: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)');
3910: FND_LOG.STRING(g_level_unexpected,
3911: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions',
3912: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3913: FND_LOG.STRING(g_level_unexpected,
3914: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
3915: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)');
3916: END IF;
3917:
3918: END fetch_tax_distributions;
3911: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions',
3912: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3913: FND_LOG.STRING(g_level_unexpected,
3914: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions.END',
3915: 'ZX_TRD_SERVICES_PUB_PKG.fetch_tax_distributions(-)');
3916: END IF;
3917:
3918: END fetch_tax_distributions;
3919:
4015: BEGIN
4016:
4017: IF (g_level_procedure >= g_current_runtime_level ) THEN
4018: FND_LOG.STRING(g_level_procedure,
4019: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.BEGIN',
4020: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(+)');
4021: END IF;
4022:
4023: x_return_status := FND_API.G_RET_STS_SUCCESS;
4016:
4017: IF (g_level_procedure >= g_current_runtime_level ) THEN
4018: FND_LOG.STRING(g_level_procedure,
4019: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.BEGIN',
4020: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(+)');
4021: END IF;
4022:
4023: x_return_status := FND_API.G_RET_STS_SUCCESS;
4024: l_index := 1;
4097: ZX_GLOBAL_STRUCTURES_PKG.TRX_LINE_DIST_TBL.tax_reporting_flag(l_index);
4098: IF get_trx_info_csr%NOTFOUND THEN
4099: IF (g_level_statement >= g_current_runtime_level ) THEN
4100: FND_LOG.STRING(g_level_statement,
4101: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info',
4102: 'NO DATA found in zx_lines_det_factors for trx line'||
4103: p_tax_line_tbl(p_index).trx_line_id);
4104: END IF;
4105: END IF;
4107:
4108: IF (g_level_procedure >= g_current_runtime_level ) THEN
4109:
4110: FND_LOG.STRING(g_level_procedure,
4111: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4112: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(-)'||x_return_status);
4113: END IF;
4114:
4115: EXCEPTION
4108: IF (g_level_procedure >= g_current_runtime_level ) THEN
4109:
4110: FND_LOG.STRING(g_level_procedure,
4111: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4112: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(-)'||x_return_status);
4113: END IF;
4114:
4115: EXCEPTION
4116: WHEN OTHERS THEN
4117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4118:
4119: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4120: FND_LOG.STRING(g_level_unexpected,
4121: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info',
4122: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4123: FND_LOG.STRING(g_level_unexpected,
4124: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4125: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(-)');
4120: FND_LOG.STRING(g_level_unexpected,
4121: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info',
4122: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4123: FND_LOG.STRING(g_level_unexpected,
4124: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4125: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(-)');
4126: END IF;
4127:
4128: END populate_trx_line_info;
4121: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info',
4122: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4123: FND_LOG.STRING(g_level_unexpected,
4124: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info.END',
4125: 'ZX_TRD_SERVICES_PUB_PKG.populate_trx_line_info(-)');
4126: END IF;
4127:
4128: END populate_trx_line_info;
4129:
4146: BEGIN
4147:
4148: IF (g_level_procedure >= g_current_runtime_level ) THEN
4149: FND_LOG.STRING(g_level_procedure,
4150: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.BEGIN',
4151: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(+)');
4152: END IF;
4153:
4154: x_return_status:= FND_API.G_RET_STS_SUCCESS;
4147:
4148: IF (g_level_procedure >= g_current_runtime_level ) THEN
4149: FND_LOG.STRING(g_level_procedure,
4150: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.BEGIN',
4151: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(+)');
4152: END IF;
4153:
4154: x_return_status:= FND_API.G_RET_STS_SUCCESS;
4155:
4164: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4165:
4166: IF (g_level_statement >= g_current_runtime_level ) THEN
4167: FND_LOG.STRING(g_level_statement,
4168: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4169: 'After calling populate_mandatory_columns x_return_status = '
4170: || x_return_status);
4171: FND_LOG.STRING(g_level_statement,
4172: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4168: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4169: 'After calling populate_mandatory_columns x_return_status = '
4170: || x_return_status);
4171: FND_LOG.STRING(g_level_statement,
4172: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4173: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)');
4174: END IF;
4175: RETURN;
4176:
4169: 'After calling populate_mandatory_columns x_return_status = '
4170: || x_return_status);
4171: FND_LOG.STRING(g_level_statement,
4172: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4173: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)');
4174: END IF;
4175: RETURN;
4176:
4177: END IF;
4189:
4190: IF (g_level_procedure >= g_current_runtime_level ) THEN
4191:
4192: FND_LOG.STRING(g_level_procedure,
4193: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4194: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)'||x_return_status);
4195: END IF;
4196:
4197: EXCEPTION
4190: IF (g_level_procedure >= g_current_runtime_level ) THEN
4191:
4192: FND_LOG.STRING(g_level_procedure,
4193: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4194: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)'||x_return_status);
4195: END IF;
4196:
4197: EXCEPTION
4198: WHEN OTHERS THEN
4199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4200:
4201: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4202: FND_LOG.STRING(g_level_unexpected,
4203: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4204: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4205: FND_LOG.STRING(g_level_unexpected,
4206: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4207: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)');
4202: FND_LOG.STRING(g_level_unexpected,
4203: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4204: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4205: FND_LOG.STRING(g_level_unexpected,
4206: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4207: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)');
4208: END IF;
4209:
4210:
4203: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table',
4204: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4205: FND_LOG.STRING(g_level_unexpected,
4206: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.insert_global_table.END',
4207: 'ZX_TRD_SERVICES_PUB_PKG.insert_global_table(-)');
4208: END IF;
4209:
4210:
4211: END insert_global_table;
4229: BEGIN
4230:
4231: IF (g_level_procedure >= g_current_runtime_level ) THEN
4232: FND_LOG.STRING(g_level_procedure,
4233: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.BEGIN',
4234: 'populate_mandatory_columns(+)');
4235: END IF;
4236:
4237: x_return_status:= FND_API.G_RET_STS_SUCCESS;
4247:
4248: -- get g_tax_dist_id
4249: --
4250: SELECT ZX_REC_NREC_DIST_S.nextval
4251: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
4252: FROM dual;
4253:
4254: p_rec_nrec_dist_tbl(i).rec_nrec_tax_dist_id :=
4255: ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id;
4251: INTO ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id
4252: FROM dual;
4253:
4254: p_rec_nrec_dist_tbl(i).rec_nrec_tax_dist_id :=
4255: ZX_TRD_SERVICES_PUB_PKG.g_tax_dist_id;
4256:
4257: END IF;
4258:
4259: -- populate the object_version_number
4287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
4288:
4289: IF (g_level_procedure >= g_current_runtime_level ) THEN
4290: FND_LOG.STRING(g_level_procedure,
4291: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4292: 'error: tax dist number is null ');
4293:
4294: FND_LOG.STRING(g_level_procedure,
4295: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4291: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4292: 'error: tax dist number is null ');
4293:
4294: FND_LOG.STRING(g_level_procedure,
4295: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4296: 'populate_mandatory_columns(-)');
4297: END IF;
4298: RETURN;
4299:
4303: x_return_status := FND_API.G_RET_STS_ERROR;
4304:
4305: IF (g_level_procedure >= g_current_runtime_level ) THEN
4306: FND_LOG.STRING(g_level_procedure,
4307: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4308: 'error: rec nrec rate is null ');
4309:
4310: FND_LOG.STRING(g_level_procedure,
4311: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4307: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4308: 'error: rec nrec rate is null ');
4309:
4310: FND_LOG.STRING(g_level_procedure,
4311: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4312: 'populate_mandatory_columns(-)');
4313: END IF;
4314: RETURN;
4315:
4320: x_return_status := FND_API.G_RET_STS_ERROR;
4321: IF (g_level_procedure >= g_current_runtime_level ) THEN
4322:
4323: FND_LOG.STRING(g_level_procedure,
4324: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4325: 'error: RECOVERABLE FLG is null ');
4326: FND_LOG.STRING(g_level_procedure,
4327: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4328: 'populate_mandatory_columns(-)');
4323: FND_LOG.STRING(g_level_procedure,
4324: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4325: 'error: RECOVERABLE FLG is null ');
4326: FND_LOG.STRING(g_level_procedure,
4327: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4328: 'populate_mandatory_columns(-)');
4329: END IF;
4330: RETURN;
4331:
4336: x_return_status := FND_API.G_RET_STS_ERROR;
4337:
4338: IF (g_level_procedure >= g_current_runtime_level ) THEN
4339: FND_LOG.STRING(g_level_procedure,
4340: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4341: 'error: tax dist amount is null ');
4342: FND_LOG.STRING(g_level_procedure,
4343: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4344: 'populate_mandatory_columns(-)');
4339: FND_LOG.STRING(g_level_procedure,
4340: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4341: 'error: tax dist amount is null ');
4342: FND_LOG.STRING(g_level_procedure,
4343: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4344: 'populate_mandatory_columns(-)');
4345: END IF;
4346: RETURN;
4347:
4353: else
4354:
4355: IF (g_level_statement >= g_current_runtime_level ) THEN
4356: FND_LOG.STRING(g_level_statement,
4357: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4358: 'No record in p_rec_nrec_dist_tbl ... ');
4359: END IF;
4360:
4361: end if;
4362:
4363: IF (g_level_procedure >= g_current_runtime_level ) THEN
4364:
4365: FND_LOG.STRING(g_level_procedure,
4366: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4367: 'ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns(-)'||x_return_status);
4368: END IF;
4369:
4370: EXCEPTION
4363: IF (g_level_procedure >= g_current_runtime_level ) THEN
4364:
4365: FND_LOG.STRING(g_level_procedure,
4366: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4367: 'ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns(-)'||x_return_status);
4368: END IF;
4369:
4370: EXCEPTION
4371: WHEN OTHERS THEN
4372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4373:
4374: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4375: FND_LOG.STRING(g_level_unexpected,
4376: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4377: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4378: FND_LOG.STRING(g_level_unexpected,
4379: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4380: 'ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns(-)');
4375: FND_LOG.STRING(g_level_unexpected,
4376: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4377: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4378: FND_LOG.STRING(g_level_unexpected,
4379: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4380: 'ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns(-)');
4381: END IF;
4382:
4383: END populate_mandatory_columns;
4376: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns',
4377: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4378: FND_LOG.STRING(g_level_unexpected,
4379: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns.END',
4380: 'ZX_TRD_SERVICES_PUB_PKG.populate_mandatory_columns(-)');
4381: END IF;
4382:
4383: END populate_mandatory_columns;
4384:
4519: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4520:
4521: IF (g_level_procedure >= g_current_runtime_level ) THEN
4522: FND_LOG.STRING(g_level_procedure,
4523: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.BEGIN',
4524: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(+)');
4525: END IF;
4526:
4527: x_return_status := FND_API.G_RET_STS_SUCCESS;
4520:
4521: IF (g_level_procedure >= g_current_runtime_level ) THEN
4522: FND_LOG.STRING(g_level_procedure,
4523: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.BEGIN',
4524: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(+)');
4525: END IF;
4526:
4527: x_return_status := FND_API.G_RET_STS_SUCCESS;
4528:
4548: IF l_rec_nrec_tax_dist_id_tbl.FIRST IS NULL THEN
4549:
4550: IF (g_level_statement >= g_current_runtime_level ) THEN
4551: FND_LOG.STRING(g_level_statement,
4552: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
4553: 'No tax distributions are fetched from ZX_REC_NREC_DIST.');
4554: END IF;
4555: RETURN;
4556: ELSE
4587: CLOSE get_mau_info_csr;
4588:
4589: IF (g_level_statement >= g_current_runtime_level ) THEN
4590: FND_LOG.STRING(g_level_statement,
4591: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
4592: 'l_minimum_accountable_unit = ' || l_minimum_accountable_unit);
4593: END IF;
4594:
4595: -- loop through the table of l_rec_nrec_tax_dists_tbl
5256: AND trx_id = p_event_class_rec.trx_id;
5257:
5258: IF (g_level_procedure >= g_current_runtime_level ) THEN
5259: FND_LOG.STRING(g_level_procedure,
5260: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5261: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(-)');
5262: END IF;
5263:
5264: EXCEPTION
5257:
5258: IF (g_level_procedure >= g_current_runtime_level ) THEN
5259: FND_LOG.STRING(g_level_procedure,
5260: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5261: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(-)');
5262: END IF;
5263:
5264: EXCEPTION
5265:
5269: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5270:
5271: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5272: FND_LOG.STRING(g_level_unexpected,
5273: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
5274: l_error_buffer);
5275: FND_LOG.STRING(g_level_unexpected,
5276: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5277: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(-)');
5272: FND_LOG.STRING(g_level_unexpected,
5273: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
5274: l_error_buffer);
5275: FND_LOG.STRING(g_level_unexpected,
5276: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5277: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(-)');
5278: END IF;
5279:
5280: END update_exchange_rate;
5273: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate',
5274: l_error_buffer);
5275: FND_LOG.STRING(g_level_unexpected,
5276: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate.END',
5277: 'ZX_TRD_SERVICES_PUB_PKG.update_exchange_rate(-)');
5278: END IF;
5279:
5280: END update_exchange_rate;
5281:
5306: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5307:
5308: IF (g_level_statement >= g_current_runtime_level ) THEN
5309: FND_LOG.STRING(g_level_statement,
5310: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.BEGIN',
5311: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(+)');
5312: END IF;
5313:
5314: -- get the l_minimum_accountable_unit
5307:
5308: IF (g_level_statement >= g_current_runtime_level ) THEN
5309: FND_LOG.STRING(g_level_statement,
5310: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.BEGIN',
5311: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(+)');
5312: END IF;
5313:
5314: -- get the l_minimum_accountable_unit
5315: --
5323:
5324: IF (g_level_statement >= g_current_runtime_level ) THEN
5325:
5326: FND_LOG.STRING(g_level_statement,
5327: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5328: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(-)'||
5329: ' rounded amt to mau '||l_rounded_amt_to_mau);
5330: END IF;
5331:
5324: IF (g_level_statement >= g_current_runtime_level ) THEN
5325:
5326: FND_LOG.STRING(g_level_statement,
5327: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5328: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(-)'||
5329: ' rounded amt to mau '||l_rounded_amt_to_mau);
5330: END IF;
5331:
5332: RETURN l_rounded_amt_to_mau;
5336: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5337:
5338: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5339: FND_LOG.STRING(g_level_unexpected,
5340: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau',
5341: l_error_buffer);
5342: FND_LOG.STRING(g_level_unexpected,
5343: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5344: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(-)');
5339: FND_LOG.STRING(g_level_unexpected,
5340: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau',
5341: l_error_buffer);
5342: FND_LOG.STRING(g_level_unexpected,
5343: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5344: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(-)');
5345: END IF;
5346: RAISE;
5347: END round_amt_to_mau;
5340: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau',
5341: l_error_buffer);
5342: FND_LOG.STRING(g_level_unexpected,
5343: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau.END',
5344: 'ZX_TRD_SERVICES_PUB_PKG.round_amt_to_mau(-)');
5345: END IF;
5346: RAISE;
5347: END round_amt_to_mau;
5348:
5365: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5366:
5367: IF (g_level_statement >= g_current_runtime_level ) THEN
5368: FND_LOG.STRING(g_level_statement,
5369: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code.BEGIN',
5370: 'ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code(+)');
5371: END IF;
5372:
5373: IF p_tax_hold_released_code = ZX_TDS_CALC_SERVICES_PUB_PKG.G_TAX_VARIANCE_CORRECTED THEN
5366:
5367: IF (g_level_statement >= g_current_runtime_level ) THEN
5368: FND_LOG.STRING(g_level_statement,
5369: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code.BEGIN',
5370: 'ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code(+)');
5371: END IF;
5372:
5373: IF p_tax_hold_released_code = ZX_TDS_CALC_SERVICES_PUB_PKG.G_TAX_VARIANCE_CORRECTED THEN
5374: l_tax_hold_release_value := ZX_TDS_CALC_SERVICES_PUB_PKG.g_tax_variance_corrected_val;
5379: END IF;
5380:
5381: IF (g_level_statement >= g_current_runtime_level ) THEN
5382: FND_LOG.STRING(g_level_statement,
5383: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code.END',
5384: 'ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code(-)');
5385: END IF;
5386: RETURN l_tax_hold_release_value;
5387:
5380:
5381: IF (g_level_statement >= g_current_runtime_level ) THEN
5382: FND_LOG.STRING(g_level_statement,
5383: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code.END',
5384: 'ZX_TRD_SERVICES_PUB_PKG.get_tax_hold_rls_val_frm_code(-)');
5385: END IF;
5386: RETURN l_tax_hold_release_value;
5387:
5388: END get_tax_hold_rls_val_frm_code;
5411: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5412:
5413: IF (g_level_procedure >= g_current_runtime_level ) THEN
5414: FND_LOG.STRING(g_level_procedure,
5415: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt.BEGIN',
5416: 'ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt(+)');
5417: END IF;
5418:
5419: IF NVL(p_prepay_line_amt, 0) <> 0 THEN
5412:
5413: IF (g_level_procedure >= g_current_runtime_level ) THEN
5414: FND_LOG.STRING(g_level_procedure,
5415: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt.BEGIN',
5416: 'ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt(+)');
5417: END IF;
5418:
5419: IF NVL(p_prepay_line_amt, 0) <> 0 THEN
5420: l_prd_total_tax_amt := p_prepay_tax_amt * p_line_amt / p_prepay_line_amt;
5421:
5422: ELSE
5423: IF (g_level_statement >= g_current_runtime_level ) THEN
5424: FND_LOG.STRING(g_level_statement,
5425: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt',
5426: 'p_prepay_line_amt is '||NVL(TO_CHAR(p_prepay_line_amt), 'NULL'));
5427: END IF;
5428:
5429: END IF;
5429: END IF;
5430:
5431: IF (g_level_procedure >= g_current_runtime_level ) THEN
5432: FND_LOG.STRING(g_level_procedure,
5433: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt.END',
5434: 'ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt(-)');
5435: END IF;
5436:
5437: return l_prd_total_tax_amt;
5430:
5431: IF (g_level_procedure >= g_current_runtime_level ) THEN
5432: FND_LOG.STRING(g_level_procedure,
5433: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt.END',
5434: 'ZX_TRD_SERVICES_PUB_PKG.get_prod_total_tax_amt(-)');
5435: END IF;
5436:
5437: return l_prd_total_tax_amt;
5438:
5542: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5543:
5544: IF (g_level_procedure >= g_current_runtime_level ) THEN
5545: FND_LOG.STRING(g_level_procedure,
5546: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.BEGIN',
5547: 'ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected(+)');
5548: END IF;
5549:
5550: x_return_status:= FND_API.G_RET_STS_SUCCESS;
5543:
5544: IF (g_level_procedure >= g_current_runtime_level ) THEN
5545: FND_LOG.STRING(g_level_procedure,
5546: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.BEGIN',
5547: 'ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected(+)');
5548: END IF;
5549:
5550: x_return_status:= FND_API.G_RET_STS_SUCCESS;
5551:
5648: END LOOP; -- i IN p_pa_item_info_tbl.FIRST .. p_pa_item_info_tbl.LAST
5649:
5650: IF (g_level_procedure >= g_current_runtime_level ) THEN
5651: FND_LOG.STRING(g_level_procedure,
5652: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5653: 'ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected(-)');
5654: END IF;
5655:
5656: EXCEPTION
5649:
5650: IF (g_level_procedure >= g_current_runtime_level ) THEN
5651: FND_LOG.STRING(g_level_procedure,
5652: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5653: 'ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected(-)');
5654: END IF;
5655:
5656: EXCEPTION
5657: WHEN OTHERS THEN
5659: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5660:
5661: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5662: FND_LOG.STRING(g_level_unexpected,
5663: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected',
5664: l_error_buffer);
5665: FND_LOG.STRING(g_level_unexpected,
5666: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5667: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
5662: FND_LOG.STRING(g_level_unexpected,
5663: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected',
5664: l_error_buffer);
5665: FND_LOG.STRING(g_level_unexpected,
5666: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5667: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
5668: END IF;
5669:
5670: END is_recoverability_affected;
5663: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected',
5664: l_error_buffer);
5665: FND_LOG.STRING(g_level_unexpected,
5666: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.is_recoverability_affected.END',
5667: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
5668: END IF;
5669:
5670: END is_recoverability_affected;
5671:
5711: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5712:
5713: IF (g_level_procedure >= g_current_runtime_level ) THEN
5714: FND_LOG.STRING(g_level_procedure,
5715: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID.BEGIN',
5716: 'ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID(+)');
5717: END IF;
5718:
5719: BEGIN
5712:
5713: IF (g_level_procedure >= g_current_runtime_level ) THEN
5714: FND_LOG.STRING(g_level_procedure,
5715: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID.BEGIN',
5716: 'ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID(+)');
5717: END IF;
5718:
5719: BEGIN
5720:
5728:
5729: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5730: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5731: FND_LOG.STRING(g_level_unexpected,
5732: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID',
5733: 'Exception in ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID: '||l_error_buffer);
5734: END IF;
5735:
5736: return(null);
5729: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5730: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5731: FND_LOG.STRING(g_level_unexpected,
5732: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID',
5733: 'Exception in ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID: '||l_error_buffer);
5734: END IF;
5735:
5736: return(null);
5737:
5781: END IF; -- l_ccid is null
5782:
5783: IF (g_level_procedure >= g_current_runtime_level ) THEN
5784: FND_LOG.STRING(g_level_procedure,
5785: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID.BEGIN',
5786: 'ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID(-)'||
5787: ' ccid = '||l_ccid);
5788: END IF;
5789:
5782:
5783: IF (g_level_procedure >= g_current_runtime_level ) THEN
5784: FND_LOG.STRING(g_level_procedure,
5785: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID.BEGIN',
5786: 'ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID(-)'||
5787: ' ccid = '||l_ccid);
5788: END IF;
5789:
5790: return(l_ccid);
5794:
5795: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5796: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5797: FND_LOG.STRING(g_level_unexpected,
5798: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID',
5799: 'Exception in ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID: '||l_error_buffer);
5800: END IF;
5801: return(null);
5802: END GET_RECOVERABLE_CCID;
5795: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5796: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5797: FND_LOG.STRING(g_level_unexpected,
5798: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID',
5799: 'Exception in ZX_TRD_SERVICES_PUB_PKG.GET_RECOVERABLE_CCID: '||l_error_buffer);
5800: END IF;
5801: return(null);
5802: END GET_RECOVERABLE_CCID;
5803:
5889: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5890:
5891: IF (g_level_procedure >= g_current_runtime_level ) THEN
5892: FND_LOG.STRING(g_level_procedure,
5893: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.BEGIN',
5894: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(+)');
5895: END IF;
5896:
5897: x_return_status:= FND_API.G_RET_STS_SUCCESS;
5890:
5891: IF (g_level_procedure >= g_current_runtime_level ) THEN
5892: FND_LOG.STRING(g_level_procedure,
5893: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.BEGIN',
5894: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(+)');
5895: END IF;
5896:
5897: x_return_status:= FND_API.G_RET_STS_SUCCESS;
5898:
6042:
6043:
6044: IF (g_level_procedure >= g_current_runtime_level ) THEN
6045: FND_LOG.STRING(g_level_procedure,
6046: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6047: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(-)');
6048: END IF;
6049:
6050: EXCEPTION
6043:
6044: IF (g_level_procedure >= g_current_runtime_level ) THEN
6045: FND_LOG.STRING(g_level_procedure,
6046: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6047: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(-)');
6048: END IF;
6049:
6050: EXCEPTION
6051: WHEN OTHERS THEN
6052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6053:
6054: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6055: FND_LOG.STRING(g_level_unexpected,
6056: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists',
6057: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
6058: FND_LOG.STRING(g_level_unexpected,
6059: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6060: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(-)');
6055: FND_LOG.STRING(g_level_unexpected,
6056: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists',
6057: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
6058: FND_LOG.STRING(g_level_unexpected,
6059: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6060: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(-)');
6061: END IF;
6062:
6063: END delete_unnecessary_tax_dists;
6056: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists',
6057: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
6058: FND_LOG.STRING(g_level_unexpected,
6059: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists.END',
6060: 'ZX_TRD_SERVICES_PUB_PKG.delete_unnecessary_tax_dists(-)');
6061: END IF;
6062:
6063: END delete_unnecessary_tax_dists;
6064:
6073: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6074:
6075: IF (g_level_procedure >= g_current_runtime_level ) THEN
6076: FND_LOG.STRING(g_level_procedure,
6077: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.BEGIN',
6078: 'ZX_TRD_SERVICES_PUB_PKG.update_posting_flag(+)');
6079: END IF;
6080:
6081: x_return_status:= FND_API.G_RET_STS_SUCCESS;
6074:
6075: IF (g_level_procedure >= g_current_runtime_level ) THEN
6076: FND_LOG.STRING(g_level_procedure,
6077: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.BEGIN',
6078: 'ZX_TRD_SERVICES_PUB_PKG.update_posting_flag(+)');
6079: END IF;
6080:
6081: x_return_status:= FND_API.G_RET_STS_SUCCESS;
6082:
6086: WHERE rec_nrec_tax_dist_id = p_tax_dist_id_tbl(i);
6087:
6088: IF (g_level_procedure >= g_current_runtime_level ) THEN
6089: FND_LOG.STRING(g_level_procedure,
6090: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6091: 'ZX_TRD_SERVICES_PUB_PKG.update_posting_flag(-)');
6092: END IF;
6093:
6094: EXCEPTION
6087:
6088: IF (g_level_procedure >= g_current_runtime_level ) THEN
6089: FND_LOG.STRING(g_level_procedure,
6090: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6091: 'ZX_TRD_SERVICES_PUB_PKG.update_posting_flag(-)');
6092: END IF;
6093:
6094: EXCEPTION
6095: WHEN OTHERS THEN
6097: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6098:
6099: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6100: FND_LOG.STRING(g_level_unexpected,
6101: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag',
6102: l_error_buffer);
6103: FND_LOG.STRING(g_level_unexpected,
6104: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6105: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
6100: FND_LOG.STRING(g_level_unexpected,
6101: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag',
6102: l_error_buffer);
6103: FND_LOG.STRING(g_level_unexpected,
6104: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6105: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
6106: END IF;
6107:
6108: END update_posting_flag;
6101: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag',
6102: l_error_buffer);
6103: FND_LOG.STRING(g_level_unexpected,
6104: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.update_posting_flag.END',
6105: 'ZX_TRD_SERVICES_PUB_PKG.ZX_TRD_SERVICES_PUB_PKG(-)');
6106: END IF;
6107:
6108: END update_posting_flag;
6109:
6177:
6178: IF (g_level_procedure >= g_current_runtime_level ) THEN
6179:
6180: FND_LOG.STRING(g_level_procedure,
6181: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6182: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(+)');
6183:
6184: END IF;
6185:
6178: IF (g_level_procedure >= g_current_runtime_level ) THEN
6179:
6180: FND_LOG.STRING(g_level_procedure,
6181: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6182: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(+)');
6183:
6184: END IF;
6185:
6186: x_return_status := FND_API.G_RET_STS_SUCCESS;
6192:
6193: IF l_lines_count = 0 THEN
6194: IF (g_level_procedure >= g_current_runtime_level ) THEN
6195: FND_LOG.STRING(g_level_procedure,
6196: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6197: 'This processing is done only for partner tax calculation, this is not partner processing');
6198: FND_LOG.STRING(g_level_procedure,
6199: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6200: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6195: FND_LOG.STRING(g_level_procedure,
6196: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6197: 'This processing is done only for partner tax calculation, this is not partner processing');
6198: FND_LOG.STRING(g_level_procedure,
6199: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6200: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6201: END IF;
6202: RETURN;
6203: END IF;
6196: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6197: 'This processing is done only for partner tax calculation, this is not partner processing');
6198: FND_LOG.STRING(g_level_procedure,
6199: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_OUTPUT_TAX_CCID.BEGIN',
6200: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6201: END IF;
6202: RETURN;
6203: END IF;
6204:
6272: x_return_status);
6273: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6274: IF (g_level_statement >= g_current_runtime_level ) THEN
6275: FND_LOG.STRING(g_level_statement,
6276: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6277: 'Incorrect return_status after calling ' ||
6278: 'ZX_TCM_GEO_JUR_PKG.get_master_geography');
6279: FND_LOG.STRING(g_level_statement,
6280: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6276: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6277: 'Incorrect return_status after calling ' ||
6278: 'ZX_TCM_GEO_JUR_PKG.get_master_geography');
6279: FND_LOG.STRING(g_level_statement,
6280: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6281: 'RETURN_STATUS = ' || x_return_status);
6282: FND_LOG.STRING(g_level_statement,
6283: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6284: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6279: FND_LOG.STRING(g_level_statement,
6280: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6281: 'RETURN_STATUS = ' || x_return_status);
6282: FND_LOG.STRING(g_level_statement,
6283: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6284: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6285: END IF;
6286: RETURN;
6287: END IF;
6280: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6281: 'RETURN_STATUS = ' || x_return_status);
6282: FND_LOG.STRING(g_level_statement,
6283: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6284: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6285: END IF;
6286: RETURN;
6287: END IF;
6288:
6297: x_return_status);
6298: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6299: IF (g_level_statement >= g_current_runtime_level ) THEN
6300: FND_LOG.STRING(g_level_statement,
6301: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6302: 'Incorrect return_status after calling ' ||
6303: 'ZX_TCM_GEO_JUR_PKG.get_zone');
6304: FND_LOG.STRING(g_level_statement,
6305: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6301: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6302: 'Incorrect return_status after calling ' ||
6303: 'ZX_TCM_GEO_JUR_PKG.get_zone');
6304: FND_LOG.STRING(g_level_statement,
6305: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6306: 'RETURN_STATUS = ' || x_return_status);
6307: FND_LOG.STRING(g_level_statement,
6308: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6309: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6304: FND_LOG.STRING(g_level_statement,
6305: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6306: 'RETURN_STATUS = ' || x_return_status);
6307: FND_LOG.STRING(g_level_statement,
6308: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6309: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6310: END IF;
6311: RETURN;
6312: END IF;
6305: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6306: 'RETURN_STATUS = ' || x_return_status);
6307: FND_LOG.STRING(g_level_statement,
6308: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6309: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6310: END IF;
6311: RETURN;
6312: END IF;
6313:
6363: END IF; -- caching end
6364:
6365: IF (g_level_procedure >= g_current_runtime_level ) THEN
6366: FND_LOG.STRING(g_level_procedure,
6367: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6368: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6369: END IF;
6370:
6371: EXCEPTION
6364:
6365: IF (g_level_procedure >= g_current_runtime_level ) THEN
6366: FND_LOG.STRING(g_level_procedure,
6367: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6368: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6369: END IF;
6370:
6371: EXCEPTION
6372: WHEN OTHERS THEN
6374: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6375:
6376: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6377: FND_LOG.STRING(g_level_unexpected,
6378: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6379: l_error_buffer);
6380: FND_LOG.STRING(g_level_unexpected,
6381: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6382: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6377: FND_LOG.STRING(g_level_unexpected,
6378: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6379: l_error_buffer);
6380: FND_LOG.STRING(g_level_unexpected,
6381: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6382: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6383: END IF;
6384:
6385: END get_tax_jurisdiction_id;
6378: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID',
6379: l_error_buffer);
6380: FND_LOG.STRING(g_level_unexpected,
6381: 'ZX.PLSQL.ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID.END',
6382: 'ZX_TRD_SERVICES_PUB_PKG.GET_TAX_JURISDICTION_ID(-)');
6383: END IF;
6384:
6385: END get_tax_jurisdiction_id;
6386:
6394: l_tax_rate_not_active :=fnd_message.get_string('ZX','ZX_TAX_RATE_NOT_ACTIVE' );
6395: l_tax_rate_percentage_invalid :=fnd_message.get_string('ZX','ZX_TAX_RATE_PERCENTAGE_INVALID' );
6396: l_jur_code_not_effective :=fnd_message.get_string('ZX','ZX_JUR_CODE_NOT_EFFECTIVE' );
6397:
6398: END ZX_TRD_SERVICES_PUB_PKG ;