[Home] [Help]
8: g_hdr_rounding_info_tbl hdr_rounding_info_tbl;
9: g_hdr_rounding_curr_tbl hdr_rounding_curr_tbl;
10:
11: g_current_runtime_level NUMBER;
12: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16:
9: g_hdr_rounding_curr_tbl hdr_rounding_curr_tbl;
10:
11: g_current_runtime_level NUMBER;
12: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16:
17:
10:
11: g_current_runtime_level NUMBER;
12: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16:
17:
18: /* ======================================================================*
11: g_current_runtime_level NUMBER;
12: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16:
17:
18: /* ======================================================================*
19: | Private Procedures |
511: l_converted_amount NUMBER;
512: BEGIN
513:
514: IF (g_level_statement >= g_current_runtime_level ) THEN
515: FND_LOG.STRING(g_level_statement,
516: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.BEGIN',
517: 'ZX_TDS_TAX_ROUNDING_PKG: convert_amount(+)');
518: FND_LOG.STRING(g_level_statement,
519: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount',
514: IF (g_level_statement >= g_current_runtime_level ) THEN
515: FND_LOG.STRING(g_level_statement,
516: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.BEGIN',
517: 'ZX_TDS_TAX_ROUNDING_PKG: convert_amount(+)');
518: FND_LOG.STRING(g_level_statement,
519: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount',
520: 'p_from_currency = ' || p_from_currency||
521: 'p_to_currency = ' || p_to_currency||
522: 'p_conversion_date = ' ||
705: END IF;
706:
707: IF (g_level_statement >= g_current_runtime_level ) THEN
708:
709: FND_LOG.STRING(g_level_statement,
710: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.END',
711: 'converted amount = '||l_converted_amount);
712: FND_LOG.STRING(g_level_statement,
713: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.END',
708:
709: FND_LOG.STRING(g_level_statement,
710: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.END',
711: 'converted amount = '||l_converted_amount);
712: FND_LOG.STRING(g_level_statement,
713: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.END',
714: 'ZX_TDS_TAX_ROUNDING_PKG: convert_amount(-)'||p_return_status);
715: END IF;
716:
721: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
723:
724: IF (g_level_unexpected >= g_current_runtime_level ) THEN
725: FND_LOG.STRING(g_level_unexpected,
726: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount',
727: p_error_buffer);
728: END IF;
729:
746:
747: BEGIN
748:
749: IF (g_level_statement >= g_current_runtime_level ) THEN
750: FND_LOG.STRING(g_level_statement,
751: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index.BEGIN',
752: 'ZX_TDS_TAX_ROUNDING_PKG: get_rate_index(+)');
753: END IF;
754:
761: 8192);
762:
763:
764: IF (g_level_statement >= g_current_runtime_level ) THEN
765: FND_LOG.STRING(g_level_statement,
766: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index',
767: 'rate index = ' || to_char(l_tbl_index));
768: FND_LOG.STRING(g_level_statement,
769: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index.END',
764: IF (g_level_statement >= g_current_runtime_level ) THEN
765: FND_LOG.STRING(g_level_statement,
766: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index',
767: 'rate index = ' || to_char(l_tbl_index));
768: FND_LOG.STRING(g_level_statement,
769: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index.END',
770: 'ZX_TDS_TAX_ROUNDING_PKG: get_rate_index(-)');
771: END IF;
772:
775: EXCEPTION
776: WHEN OTHERS THEN
777:
778: IF (g_level_unexpected >= g_current_runtime_level ) THEN
779: FND_LOG.STRING(g_level_unexpected,
780: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index',
781: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
782: END IF;
783: RAISE;
823:
824: BEGIN
825:
826: IF (g_level_statement >= g_current_runtime_level ) THEN
827: FND_LOG.STRING(g_level_statement,
828: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info.BEGIN',
829: 'ZX_TDS_TAX_ROUNDING_PKG: get_currency_info(+)'||
830: 'p_currency = ' || p_currency||
831: 'p_eff_date = ' || to_char(p_eff_date, 'DD-MON-YY'));
869:
870: if getCurrencyInfo%notfound then
871:
872: IF (g_level_statement >= g_current_runtime_level ) THEN
873: FND_LOG.STRING(g_level_statement,
874: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info',
875: 'No currency info found for : ' ||p_currency);
876: END IF;
877:
879:
880: Close getCurrencyInfo;
881:
882: IF (g_level_statement >= g_current_runtime_level ) THEN
883: FND_LOG.STRING(g_level_statement,
884: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info',
885: 'p_currency_type = ' || p_currency_type||
886: 'p_derive_type = ' || p_derive_type||
887: 'p_derive_effective = ' ||
888: to_char(p_derive_effective, 'DD-MON-YY')||
889: 'p_conversion_rate = ' || to_char(p_conversion_rate)||
890: 'p_mau = ' || to_char(p_mau)||
891: 'p_precision = ' || to_char(p_precision));
892: FND_LOG.STRING(g_level_statement,
893: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info.END',
894: 'ZX_TDS_TAX_ROUNDING_PKG: get_currency_info(-)');
895: END IF;
896:
898: WHEN NO_DATA_FOUND THEN
899: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
900: p_error_buffer := 'Currency type and Currency rate not found in FND_CURRENCIES';
901: IF (g_level_unexpected >= g_current_runtime_level ) THEN
902: FND_LOG.STRING(g_level_unexpected,
903: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info',
904: p_error_buffer);
905: END IF;
906:
908: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
909: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
910:
911: IF (g_level_unexpected >= g_current_runtime_level ) THEN
912: FND_LOG.STRING(g_level_unexpected,
913: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info',
914: p_error_buffer);
915: END IF;
916:
949: AND conversion_type = c_conversion_type;
950: BEGIN
951:
952: IF (g_level_statement >= g_current_runtime_level ) THEN
953: FND_LOG.STRING(g_level_statement,
954: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.BEGIN',
955: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(+)'||
956: 'p_from_currency = ' || p_from_currency||
957: 'p_to_currency = ' || p_to_currency||
977: p_tax_conversion_type);
978: FETCH get_rate_info_csr INTO l_rate;
979: IF get_rate_info_csr%NOTFOUND THEN
980: IF (g_level_statement >= g_current_runtime_level ) THEN
981: FND_LOG.STRING(g_level_statement,
982: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate',
983: 'No rate found for tax conversion type: ' ||
984: p_tax_conversion_type||
985: ' p_conversion_date = ' ||
992: END IF; -- Tax Conversion Type ends
993:
994: IF l_rate IS NOT NULL THEN
995: IF (g_level_statement >= g_current_runtime_level ) THEN
996: FND_LOG.STRING(g_level_statement,
997: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.END',
998: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(-)'||
999: 'rate = ' || to_char(l_rate));
1000: END IF;
1015: p_trx_conversion_type);
1016: FETCH get_rate_info_csr INTO l_rate;
1017: IF get_rate_info_csr%NOTFOUND THEN
1018: IF (g_level_statement >= g_current_runtime_level ) THEN
1019: FND_LOG.STRING(g_level_statement,
1020: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate',
1021: 'No rate found for trx conversion type: ' ||
1022: p_tax_conversion_type||
1023: ' p_conversion_date = ' ||
1030:
1031:
1032: IF l_rate IS NOT NULL THEN
1033: IF (g_level_statement >= g_current_runtime_level ) THEN
1034: FND_LOG.STRING(g_level_statement,
1035: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.END',
1036: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(-)'||
1037: 'rate = ' || to_char(l_rate));
1038: END IF;
1043:
1044: IF p_trx_conversion_date IS NOT NULL THEN
1045:
1046: IF (g_level_statement >= g_current_runtime_level ) THEN
1047: FND_LOG.STRING(g_level_statement,
1048: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate',
1049: 'Getting Rate information based on Currency Converion Date '||
1050: ' P_trx_conversion_date = '||
1051: to_char(p_trx_conversion_date, 'DD-MON-YY'));
1061: FETCH get_rate_info_csr INTO l_rate;
1062:
1063: IF get_rate_info_csr%NOTFOUND THEN
1064: IF (g_level_statement >= g_current_runtime_level ) THEN
1065: FND_LOG.STRING(g_level_statement,
1066: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate',
1067: 'No rate found for tax conversion type: ' ||
1068: p_tax_conversion_type||
1069: ' P_trx_conversion_date = '||
1075: END IF;
1076:
1077: IF l_rate IS NOT NULL THEN
1078: IF (g_level_statement >= g_current_runtime_level ) THEN
1079: FND_LOG.STRING(g_level_statement,
1080: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.END',
1081: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(-)'||
1082: 'rate = ' || to_char(l_rate));
1083: END IF;
1106: FND_MSG_PUB.Add;
1107: END IF;
1108:
1109: IF (g_level_error >= g_current_runtime_level ) THEN
1110: FND_LOG.STRING(g_level_error,
1111: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate',
1112: p_error_buffer);
1113: END IF;
1114:
1119: END IF; --p_trx_conversion_date check ends
1120:
1121:
1122: IF (g_level_statement >= g_current_runtime_level ) THEN
1123: FND_LOG.STRING(g_level_statement,
1124: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.END',
1125: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(-)'||
1126: 'rate = ' || to_char(l_rate));
1127: END IF;
1134: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1135: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1136:
1137: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1138: FND_LOG.STRING(g_level_unexpected,
1139: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate',
1140: p_error_buffer);
1141: END IF;
1142:
1155:
1156: BEGIN
1157:
1158: IF (g_level_statement >= g_current_runtime_level ) THEN
1159: FND_LOG.STRING(g_level_statement,
1160: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_euro_code.BEGIN',
1161: 'ZX_TDS_TAX_ROUNDING_PKG: get_euro_code(+)');
1162: END IF;
1163:
1171:
1172:
1173: IF (g_level_statement >= g_current_runtime_level ) THEN
1174:
1175: FND_LOG.STRING(g_level_statement,
1176: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_euro_code.END',
1177: 'ZX_TDS_TAX_ROUNDING_PKG: get_euro_code(-)'||' euro_code = ' || euro_code);
1178: END IF;
1179:
1191: FND_MSG_PUB.Add;
1192: END IF;
1193:
1194: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1195: FND_LOG.STRING(g_level_unexpected,
1196: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_euro_code',
1197: p_error_buffer);
1198: END IF;
1199:
1201: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1202: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1203:
1204: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1205: FND_LOG.STRING(g_level_unexpected,
1206: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_euro_code',
1207: p_error_buffer);
1208: END IF;
1209:
1229: RETURN NUMBER IS
1230: l_rounded_amt NUMBER;
1231: BEGIN
1232:
1233: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1234:
1235: IF (g_level_procedure >= g_current_runtime_level ) THEN
1236: FND_LOG.STRING(g_level_procedure,
1237: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax.BEGIN',
1232:
1233: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1234:
1235: IF (g_level_procedure >= g_current_runtime_level ) THEN
1236: FND_LOG.STRING(g_level_procedure,
1237: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax.BEGIN',
1238: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax(+)'||
1239: 'round rule = ' || p_Rounding_Rule_Code||
1240: 'p_min_acct_unit = ' || to_char(p_min_acct_unit)||
1250: (p_min_acct_unit IS NULL AND p_precision IS NULL)) THEN
1251:
1252: IF (g_level_statement >= g_current_runtime_level ) THEN
1253:
1254: FND_LOG.STRING(g_level_statement,
1255: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax.END',
1256: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax(-)'||
1257: 'Not enough info to perform rounding '||
1258: 'Amount, Rounding rule, Mau, or Precison is NULL');
1310: END IF;
1311:
1312: IF (g_level_procedure >= g_current_runtime_level ) THEN
1313:
1314: FND_LOG.STRING(g_level_procedure,
1315: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax.END',
1316: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax(-)'||p_return_status);
1317: END IF;
1318:
1325: FND_MESSAGE.SET_NAME('ZX','GENERIC_MESSAGE');
1326: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','round_tax- '|| p_error_buffer);
1327: FND_MSG_PUB.Add;
1328: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1329: FND_LOG.STRING(g_level_unexpected,
1330: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax',
1331: p_error_buffer);
1332: END IF;
1333:
1334: WHEN OTHERS THEN
1335: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1336: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1337: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1338: FND_LOG.STRING(g_level_unexpected,
1339: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax',
1340: p_error_buffer);
1341: END IF;
1342:
1362:
1363: BEGIN
1364:
1365: IF (g_level_statement >= g_current_runtime_level ) THEN
1366: FND_LOG.STRING(g_level_statement,
1367: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.det_rounding_level_basis.BEGIN',
1368: 'ZX_TDS_TAX_ROUNDING_PKG: det_rounding_level_basis(+)'||
1369: 'Party_Type_Code = ' || p_Party_Type_Code);
1370: END IF;
1388: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1389: p_error_buffer := 'Invalid Rounding Level Hierarchy';
1390:
1391: IF (g_level_statement >= g_current_runtime_level ) THEN
1392: FND_LOG.STRING(g_level_statement,
1393: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.det_rounding_level_basis.END',
1394: 'ZX_TDS_TAX_ROUNDING_PKG: det_rounding_level_basis(-)'||
1395: 'p_return_status = ' || p_return_status||
1396: 'p_error_buffer = ' || p_error_buffer);
1400: END IF;
1401:
1402: IF (g_level_statement >= g_current_runtime_level ) THEN
1403:
1404: FND_LOG.STRING(g_level_statement,
1405: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.det_rounding_level_basis.END',
1406: 'ZX_TDS_TAX_ROUNDING_PKG: det_rounding_level_basis(-)'||
1407: 'p_rounding_level_basis = ' || p_rounding_level_basis);
1408: END IF;
1412: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1413: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1414:
1415: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1416: FND_LOG.STRING(g_level_unexpected,
1417: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.det_rounding_level_basis',
1418: p_error_buffer);
1419: END IF;
1420:
1459:
1460: BEGIN
1461:
1462: IF (g_level_procedure >= g_current_runtime_level ) THEN
1463: FND_LOG.STRING(g_level_procedure,
1464: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule.BEGIN',
1465: 'ZX_TDS_TAX_ROUNDING_PKG: determine_round_level_and_rule(+)');
1466: END IF;
1467:
1545: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1546: p_error_buffer := 'Invalid Rounding Level Hierarchy';
1547:
1548: IF (g_level_statement >= g_current_runtime_level ) THEN
1549: FND_LOG.STRING(g_level_statement,
1550: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1551: 'p_return_status = ' || p_return_status);
1552: FND_LOG.STRING(g_level_statement,
1553: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1548: IF (g_level_statement >= g_current_runtime_level ) THEN
1549: FND_LOG.STRING(g_level_statement,
1550: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1551: 'p_return_status = ' || p_return_status);
1552: FND_LOG.STRING(g_level_statement,
1553: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1554: 'p_error_buffer = ' || p_error_buffer);
1555: END IF;
1556: RETURN;
1593: **********/
1594:
1595: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1596: IF (g_level_statement >= g_current_runtime_level ) THEN
1597: FND_LOG.STRING(g_level_statement,
1598: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1599: 'Incorrect return_status after calling ' ||
1600: 'get_rounding_level()');
1601:
1623: p_rounding_level_code := NULL;
1624: p_rounding_rule_code := NULL;
1625:
1626: IF (g_level_statement >= g_current_runtime_level ) THEN
1627: FND_LOG.STRING(g_level_statement,
1628: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1629: 'p_tax_prof_id IS NULL.');
1630: END IF;
1631: END IF; -- p_tax_prof_id IS NOT NULL, OR ELSE
1631: END IF; -- p_tax_prof_id IS NOT NULL, OR ELSE
1632:
1633: IF (g_level_procedure >= g_current_runtime_level ) THEN
1634:
1635: FND_LOG.STRING(g_level_procedure,
1636: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule.END',
1637: 'ZX_TDS_TAX_ROUNDING_PKG: determine_round_level_and_rule(-)'||
1638: 'p_rounding_level_code = ' || p_rounding_level_code||
1639: 'p_rounding_rule_code = ' || p_rounding_rule_code);
1644: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1645: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1646:
1647: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1648: FND_LOG.STRING(g_level_unexpected,
1649: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1650: p_error_buffer);
1651: END IF;
1652:
1689:
1690: BEGIN
1691:
1692: IF (g_level_procedure >= g_current_runtime_level ) THEN
1693: FND_LOG.STRING(g_level_procedure,
1694: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule.BEGIN',
1695: 'ZX_TDS_TAX_ROUNDING_PKG: determine_rounding_rule(+)');
1696: END IF;
1697:
1770: l_site_ptp_id := l_tax_prof_id;
1771: END IF;
1772:
1773: IF (g_level_statement >= g_current_runtime_level ) THEN
1774: FND_LOG.STRING(g_level_statement,
1775: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1776: 'l_tax_prof_id = ' || to_char(l_tax_prof_id));
1777: END IF;
1778:
1804: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1805: p_error_buffer := 'Invalid Rounding Level Hierarchy';
1806:
1807: IF (g_level_statement >= g_current_runtime_level ) THEN
1808: FND_LOG.STRING(g_level_statement,
1809: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1810: 'p_return_status = ' || p_return_status);
1811: FND_LOG.STRING(g_level_statement,
1812: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1807: IF (g_level_statement >= g_current_runtime_level ) THEN
1808: FND_LOG.STRING(g_level_statement,
1809: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1810: 'p_return_status = ' || p_return_status);
1811: FND_LOG.STRING(g_level_statement,
1812: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1813: 'p_error_buffer = ' || p_error_buffer);
1814: END IF;
1815: RETURN;
1833: p_return_status => P_return_status);
1834:
1835: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1836: IF (g_level_error >= g_current_runtime_level ) THEN
1837: FND_LOG.STRING(g_level_error,
1838: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1839: 'Incorrect return_status after calling ' ||
1840: 'ZX_TCM_CONTROL_PKG.get_tax_registration()');
1841: FND_LOG.STRING(g_level_error,
1837: FND_LOG.STRING(g_level_error,
1838: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1839: 'Incorrect return_status after calling ' ||
1840: 'ZX_TCM_CONTROL_PKG.get_tax_registration()');
1841: FND_LOG.STRING(g_level_error,
1842: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1843: 'Continue processing ...');
1844: END IF;
1845: p_rounding_rule_code := NULL;
1859: --
1860: p_rounding_rule_code := NULL;
1861:
1862: IF (g_level_statement >= g_current_runtime_level ) THEN
1863: FND_LOG.STRING(g_level_statement,
1864: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1865: 'l_tax_prof_id IS NULL.');
1866: END IF;
1867: END IF; -- l_tax_prof_id IS NOT NULL, OR ELSE
1867: END IF; -- l_tax_prof_id IS NOT NULL, OR ELSE
1868:
1869: IF (g_level_procedure >= g_current_runtime_level ) THEN
1870:
1871: FND_LOG.STRING(g_level_procedure,
1872: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule.END',
1873: 'ZX_TDS_TAX_ROUNDING_PKG: determine_rounding_rule(-)'||
1874: 'p_rounding_rule_code = ' || p_rounding_rule_code);
1875: END IF;
1879: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1880: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1881:
1882: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1883: FND_LOG.STRING(g_level_unexpected,
1884: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1885: p_error_buffer);
1886: END IF;
1887:
1907: p_error_buffer OUT NOCOPY VARCHAR2) IS
1908:
1909: BEGIN
1910:
1911: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1912:
1913: IF (g_level_procedure >= g_current_runtime_level ) THEN
1914: FND_LOG.STRING(g_level_procedure,
1915: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_rule.BEGIN',
1910:
1911: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1912:
1913: IF (g_level_procedure >= g_current_runtime_level ) THEN
1914: FND_LOG.STRING(g_level_procedure,
1915: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_rule.BEGIN',
1916: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_rule(+)');
1917: END IF;
1918:
2010: END IF;
2011: END IF;
2012:
2013: IF (g_level_procedure >= g_current_runtime_level ) THEN
2014: FND_LOG.STRING(g_level_procedure,
2015: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_rule.END',
2016: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_rule(-)');
2017: END IF;
2018:
2021: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2022: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2023:
2024: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2025: FND_LOG.STRING(g_level_unexpected,
2026: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_rule',
2027: p_error_buffer);
2028: END IF;
2029:
2050:
2051: BEGIN
2052:
2053: IF (g_level_procedure >= g_current_runtime_level ) THEN
2054: FND_LOG.STRING(g_level_procedure,
2055: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_round_level_ptp_id.BEGIN',
2056: 'ZX_TDS_TAX_ROUNDING_PKG: get_round_level_ptp_id(+)');
2057: END IF;
2058:
2101: p_tax_prof_id := p_event_class_rec.rdng_bill_from_pty_tx_p_st_id;
2102: END IF;
2103:
2104: IF (g_level_procedure >= g_current_runtime_level ) THEN
2105: FND_LOG.STRING(g_level_procedure,
2106: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_round_level_ptp_id.END',
2107: 'ZX_TDS_TAX_ROUNDING_PKG: get_round_level_ptp_id(-)'||
2108: 'p_tax_prof_id = ' || to_char(p_tax_prof_id));
2109: END IF;
2113: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2114: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2115:
2116: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2117: FND_LOG.STRING(g_level_unexpected,
2118: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_round_level_ptp_id',
2119: p_error_buffer);
2120: END IF;
2121:
2209:
2210:
2211: BEGIN
2212:
2213: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2214:
2215: IF (g_level_procedure >= g_current_runtime_level ) THEN
2216: FND_LOG.STRING(g_level_procedure,
2217: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule.BEGIN',
2212:
2213: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2214:
2215: IF (g_level_procedure >= g_current_runtime_level ) THEN
2216: FND_LOG.STRING(g_level_procedure,
2217: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule.BEGIN',
2218: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level_and_rule(+)');
2219:
2220: END IF;
2248: p_rnd_lvl_party_tax_prof_id := l_tax_prof_id;
2249: p_rounding_lvl_party_type := p_event_class_rec.rounding_level_hier_1_code;
2250:
2251: IF (g_level_statement >= g_current_runtime_level ) THEN
2252: FND_LOG.STRING(g_level_statement,
2253: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2254: 'from rounding_level_hier_1_code p_rnd_lvl_party_tax_prof_id: '||
2255: p_rnd_lvl_party_tax_prof_id ||' p_rounding_lvl_party_type: '||
2256: p_rounding_lvl_party_type );
2277: p_rnd_lvl_party_tax_prof_id := l_tax_prof_id;
2278: p_rounding_lvl_party_type := p_event_class_rec.rounding_level_hier_2_code;
2279:
2280: IF (g_level_statement >= g_current_runtime_level ) THEN
2281: FND_LOG.STRING(g_level_statement,
2282: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2283: 'from rounding_level_hier_2_code p_rnd_lvl_party_tax_prof_id: '||
2284: p_rnd_lvl_party_tax_prof_id ||' p_rounding_lvl_party_type: '||
2285: p_rounding_lvl_party_type );
2305: p_rnd_lvl_party_tax_prof_id := l_tax_prof_id;
2306: p_rounding_lvl_party_type := p_event_class_rec.rounding_level_hier_3_code;
2307:
2308: IF (g_level_statement >= g_current_runtime_level ) THEN
2309: FND_LOG.STRING(g_level_statement,
2310: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2311: 'from rounding_level_hier_3_code p_rnd_lvl_party_tax_prof_id: '||
2312: p_rnd_lvl_party_tax_prof_id ||' p_rounding_lvl_party_type: '||
2313: p_rounding_lvl_party_type );
2333: p_rnd_lvl_party_tax_prof_id := l_tax_prof_id;
2334: p_rounding_lvl_party_type := p_event_class_rec.rounding_level_hier_4_code;
2335:
2336: IF (g_level_statement >= g_current_runtime_level ) THEN
2337: FND_LOG.STRING(g_level_statement,
2338: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2339: 'from rounding_level_hier_4_code p_rnd_lvl_party_tax_prof_id: '||
2340: p_rnd_lvl_party_tax_prof_id ||' p_rounding_lvl_party_type: '||
2341: p_rounding_lvl_party_type );
2417: p_return_status);
2418:
2419: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2420: IF (g_level_error >= g_current_runtime_level ) THEN
2421: FND_LOG.STRING(g_level_error,
2422: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2423: 'Incorrect return_status after calling ' ||
2424: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_date()');
2425: FND_LOG.STRING(g_level_error,
2421: FND_LOG.STRING(g_level_error,
2422: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2423: 'Incorrect return_status after calling ' ||
2424: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_date()');
2425: FND_LOG.STRING(g_level_error,
2426: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2427: 'RETURN_STATUS = ' || p_return_status);
2428: FND_LOG.STRING(g_level_error,
2429: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule.END',
2424: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_date()');
2425: FND_LOG.STRING(g_level_error,
2426: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2427: 'RETURN_STATUS = ' || p_return_status);
2428: FND_LOG.STRING(g_level_error,
2429: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule.END',
2430: 'ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule(-)');
2431: END IF;
2432: RETURN;
2599:
2600: IF NOT l_rounding_level_found THEN
2601: p_rounding_level_code := p_event_class_rec.Default_Rounding_Level_Code;
2602: IF (g_level_procedure >= g_current_runtime_level ) THEN
2603: FND_LOG.STRING(g_level_procedure,
2604: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2605: 'get default rounding level from event class record '||p_rounding_level_code);
2606: END IF;
2607: END IF;
2606: END IF;
2607: END IF;
2608:
2609: IF (g_level_procedure >= g_current_runtime_level ) THEN
2610: FND_LOG.STRING(g_level_procedure,
2611: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule.END',
2612: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level_and_rule(-)'||'rounding level code :'||p_rounding_level_code);
2613: END IF;
2614:
2617: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2618: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2619:
2620: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2621: FND_LOG.STRING(g_level_unexpected,
2622: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2623: p_error_buffer);
2624: END IF;
2625:
2643:
2644: BEGIN
2645:
2646: IF (g_level_procedure >= g_current_runtime_level ) THEN
2647: FND_LOG.STRING(g_level_procedure,
2648: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.init_header_group.BEGIN',
2649: 'ZX_TDS_TAX_ROUNDING_PKG: init_header_group(+)');
2650: END IF;
2651:
2705: p_hdr_grp_rec.record_type_code := 'X';
2706:
2707: IF (g_level_procedure >= g_current_runtime_level ) THEN
2708:
2709: FND_LOG.STRING(g_level_procedure,
2710: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.init_header_group.END',
2711: 'ZX_TDS_TAX_ROUNDING_PKG: init_header_group(-)'||p_return_status);
2712: END IF;
2713:
2716: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2717: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2718:
2719: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2720: FND_LOG.STRING(g_level_unexpected,
2721: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.init_header_group ',
2722: p_error_buffer);
2723: END IF;
2724:
2743:
2744: BEGIN
2745:
2746: IF (g_level_procedure >= g_current_runtime_level ) THEN
2747: FND_LOG.STRING(g_level_procedure,
2748: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group.BEGIN',
2749: 'ZX_TDS_TAX_ROUNDING_PKG: determine_header_group(+)');
2750: END IF;
2751:
2858: NVL(p_prev_hdr_grp_rec.record_type_code,'X') <>
2859: NVL(p_curr_hdr_grp_rec.record_type_code,'X')
2860: ) THEN
2861: IF (g_level_statement >= g_current_runtime_level ) THEN
2862: FND_LOG.STRING(g_level_statement,
2863: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group',
2864: ' SAME tax N');
2865: END IF;
2866: p_same_tax := 'N';
2865: END IF;
2866: p_same_tax := 'N';
2867: ELSE
2868: IF (g_level_statement >= g_current_runtime_level ) THEN
2869: FND_LOG.STRING(g_level_statement,
2870: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group',
2871: ' SAME tax Y');
2872: END IF;
2873: p_same_tax := 'Y';
2878: -- this is a new header group
2879: --
2880:
2881: IF (g_level_statement >= g_current_runtime_level ) THEN
2882: FND_LOG.STRING(g_level_statement,
2883: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group',
2884: ' New header rounding group '||
2885: 'tax_regime_code = ' || p_curr_hdr_grp_rec.tax_regime_code||
2886: 'tax = ' || p_curr_hdr_grp_rec.tax||
2932: p_curr_hdr_grp_rec.adjusted_doc_event_class_code ||
2933: 'adjusted_doc_trx_id = ' ||
2934: to_char(p_curr_hdr_grp_rec.adjusted_doc_trx_id ) );
2935:
2936: FND_LOG.STRING(g_level_statement,
2937: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group',
2938: 'tax_exemption_id = ' ||
2939: to_char(p_curr_hdr_grp_rec.tax_exemption_id ) ||
2940: 'tax_rate_before_exemption = ' ||
2977: END IF;
2978:
2979: IF (g_level_procedure >= g_current_runtime_level ) THEN
2980:
2981: FND_LOG.STRING(g_level_procedure,
2982: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group.END',
2983: 'ZX_TDS_TAX_ROUNDING_PKG: determine_header_group(-)'||
2984: p_return_status);
2985: END IF;
2988: WHEN OTHERS THEN
2989: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2990: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2991: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2992: FND_LOG.STRING(g_level_unexpected,
2993: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group' ,
2994: p_error_buffer);
2995: END IF;
2996:
3020:
3021: BEGIN
3022:
3023: IF (g_level_statement >= g_current_runtime_level ) THEN
3024: FND_LOG.STRING(g_level_statement,
3025: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info_for_rounding.BEGIN',
3026: 'ZX_TDS_TAX_ROUNDING_PKG: get_currency_info_for_rounding(+)'||
3027: 'p_currency_code = ' || p_currency_code);
3028: END IF;
3068: END IF;
3069:
3070: IF (g_level_statement >= g_current_runtime_level ) THEN
3071:
3072: FND_LOG.STRING(g_level_statement,
3073: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info_for_rounding.END',
3074: 'ZX_TDS_TAX_ROUNDING_PKG: get_currency_info_for_rounding(-)'||p_return_status);
3075: END IF;
3076:
3079: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3080: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3081:
3082: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3083: FND_LOG.STRING(g_level_unexpected,
3084: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info_for_rounding',
3085: p_error_buffer);
3086: END IF;
3087:
3109: IS
3110: l_rate_index BINARY_INTEGER;
3111: BEGIN
3112:
3113: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3114:
3115: IF (g_level_statement >= g_current_runtime_level ) THEN
3116: FND_LOG.STRING(g_level_statement,
3117: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency.BEGIN',
3112:
3113: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3114:
3115: IF (g_level_statement >= g_current_runtime_level ) THEN
3116: FND_LOG.STRING(g_level_statement,
3117: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency.BEGIN',
3118: 'ZX_TDS_TAX_ROUNDING_PKG: convert_to_currency(+)'||
3119: 'p_to_curr_conv_rate = ' || to_char(p_to_curr_conv_rate));
3120: END IF;
3136: IF p_tax_conversion_type IS NULL THEN
3137: p_to_amt := NULL;
3138:
3139: IF (g_level_statement >= g_current_runtime_level ) THEN
3140: FND_LOG.STRING(g_level_statement,
3141: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency',
3142: 'ZX_TDS_TAX_ROUNDING_PKG: convert_to_currency(+)'||
3143: ' both conversion type and rate are NULL ' );
3144: END IF;
3152: p_tax_conversion_type);
3153: IF g_tax_curr_conv_rate_tbl.EXISTS(l_rate_index) THEN
3154:
3155: IF (g_level_statement >= g_current_runtime_level ) THEN
3156: FND_LOG.STRING(g_level_statement,
3157: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency',
3158: 'get rate from cache, at index = ' ||
3159: to_char(l_rate_index));
3160: END IF;
3180: END IF;
3181:
3182: IF (g_level_statement >= g_current_runtime_level ) THEN
3183:
3184: FND_LOG.STRING(g_level_statement,
3185: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency.END',
3186: 'ZX_TDS_TAX_ROUNDING_PKG: convert_to_currency(-)'||
3187: 'conversion rate = ' || to_char(p_to_curr_conv_rate)||
3188: 'p_return_status = ' || p_return_status);
3193: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3194: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3195:
3196: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3197: FND_LOG.STRING(g_level_unexpected,
3198: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency',
3199: p_error_buffer);
3200: END IF;
3201:
3222: l_currency_code FND_CURRENCIES.CURRENCY_CODE%TYPE;
3223:
3224: BEGIN
3225:
3226: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3227:
3228: IF (g_level_procedure >= g_current_runtime_level ) THEN
3229: FND_LOG.STRING(g_level_procedure,
3230: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_funcl_curr.BEGIN',
3225:
3226: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3227:
3228: IF (g_level_procedure >= g_current_runtime_level ) THEN
3229: FND_LOG.STRING(g_level_procedure,
3230: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_funcl_curr.BEGIN',
3231: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax_funcl_curr(+)'||
3232: ' unround amount in functional currency = ' ||
3233: to_char(p_unround_amt));
3261: -- l_min_acct_unit will contain the precision if
3262: -- min acct unit of this functional currency is null
3263: --
3264: IF (g_level_statement >= g_current_runtime_level ) THEN
3265: FND_LOG.STRING(g_level_statement,
3266: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_funcl_curr',
3267: 'l_min_acct_unit = ' || to_char(l_min_acct_unit)||
3268: ' l_precision = ' || to_char(l_precision) );
3269: END IF;
3272:
3273:
3274: IF (g_level_procedure >= g_current_runtime_level ) THEN
3275:
3276: FND_LOG.STRING(g_level_procedure,
3277: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_funcl_curr.END',
3278: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax_funcl_curr(-)'||
3279: 'unround amount in functional currency = ' ||
3280: to_char(p_unround_amt)||
3290: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3291: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3292:
3293: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3294: FND_LOG.STRING(g_level_unexpected,
3295: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_funcl_curr',
3296: p_error_buffer);
3297: END IF;
3298:
3326:
3327: BEGIN
3328:
3329: IF (g_level_statement >= g_current_runtime_level ) THEN
3330: FND_LOG.STRING(g_level_statement,
3331: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_tax_curr.BEGIN',
3332: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_tax_tax_curr(+)'||
3333: 'p_tax_curr_conv_rate = ' || to_char(p_tax_curr_conv_rate));
3334:
3352: p_error_buffer,
3353: p_trx_conversion_date);--Bug7183884
3354:
3355: IF (g_level_statement >= g_current_runtime_level ) THEN
3356: FND_LOG.STRING(g_level_statement,
3357: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_tax_curr',
3358: 'tax conversion rate = ' || to_char(p_tax_curr_conv_rate)||
3359: 'unround tax amt tax currency = ' || to_char(l_amt_tax_curr));
3360: END IF;
3374: p_error_buffer);
3375:
3376: IF (g_level_statement >= g_current_runtime_level ) THEN
3377:
3378: FND_LOG.STRING(g_level_statement,
3379: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_tax_curr.END',
3380: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_tax_tax_curr(-)'||
3381: 'rounded amount = ' || to_char(p_convert_round_amt));
3382: END IF;
3386: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3387: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3388:
3389: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3390: FND_LOG.STRING(g_level_unexpected,
3391: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_tax_curr',
3392: p_error_buffer);
3393: END IF;
3394:
3417: l_precision FND_CURRENCIES.PRECISION%TYPE;
3418:
3419: BEGIN
3420: IF (g_level_statement >= g_current_runtime_level ) THEN
3421: FND_LOG.STRING(g_level_statement,
3422: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_funcl_curr.BEGIN',
3423: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_tax_funcl_curr(+)'||
3424: 'p_funcl_curr_conv_rate = ' || to_char(p_funcl_curr_conv_rate));
3425:
3449: END IF;
3450:
3451: IF (g_level_statement >= g_current_runtime_level ) THEN
3452:
3453: FND_LOG.STRING(g_level_statement,
3454: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_funcl_curr.END',
3455: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_tax_funcl_curr(-)'||'convert round amt: '||p_convert_round_amt);
3456: END IF;
3457:
3460: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3461: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3462:
3463: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3464: FND_LOG.STRING(g_level_unexpected,
3465: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_funcl_curr',
3466: p_error_buffer);
3467: END IF;
3468:
3503:
3504: BEGIN
3505:
3506: IF (g_level_statement >= g_current_runtime_level ) THEN
3507: FND_LOG.STRING(g_level_statement,
3508: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_tax_curr.BEGIN',
3509: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_taxable_tax_curr(+)'||
3510: 'p_tax_curr_conv_rate = ' || to_char(p_tax_curr_conv_rate));
3511:
3565: p_error_buffer);
3566:
3567: IF (g_level_statement >= g_current_runtime_level ) THEN
3568:
3569: FND_LOG.STRING(g_level_statement,
3570: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_tax_curr.END',
3571: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_taxable_tax_curr(-)'||
3572: 'rounded taxable amt tax currency = ' ||
3573: to_char(p_convert_round_amt));
3577: WHEN OTHERS THEN
3578: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3579: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3580: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3581: FND_LOG.STRING(g_level_unexpected,
3582: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_tax_curr',
3583: p_error_buffer);
3584: END IF;
3585:
3612: l_tax_rate_rec ZX_TDS_UTILITIES_PKG.ZX_RATE_INFO_REC_TYPE;
3613:
3614: BEGIN
3615: IF (g_level_statement >= g_current_runtime_level ) THEN
3616: FND_LOG.STRING(g_level_statement,
3617: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_funcl_curr.BEGIN',
3618: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_taxable_funcl_curr(+)'||
3619: 'p_funcl_curr_conv_rate = ' || to_char(p_funcl_curr_conv_rate));
3620:
3672: END IF;
3673:
3674: IF (g_level_statement >= g_current_runtime_level ) THEN
3675:
3676: FND_LOG.STRING(g_level_statement,
3677: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_funcl_curr.END',
3678: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_taxable_funcl_curr(-)'||
3679: 'rounded taxable amt tax currency = ' ||
3680: to_char(p_convert_round_amt));
3685: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3686: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3687:
3688: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3689: FND_LOG.STRING(g_level_unexpected,
3690: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_funcl_curr',
3691: p_error_buffer);
3692: END IF;
3693:
3724:
3725: BEGIN
3726:
3727: IF (g_level_statement >= g_current_runtime_level ) THEN
3728: FND_LOG.STRING(g_level_statement,
3729: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_line_level.BEGIN',
3730: 'ZX_TDS_TAX_ROUNDING_PKG: round_line_level(+)'||
3731: 'unround tax_amt = ' || to_char(p_unrounded_tax_amt)||
3732: 'unround taxable_amt = ' || to_char(p_unrounded_taxable_amt)||
3768: x_return_status => p_return_status);
3769:
3770: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3771: IF (g_level_statement >= g_current_runtime_level ) THEN
3772: FND_LOG.STRING(g_level_statement,
3773: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_line_level',
3774: 'p_return_status = ' || p_return_status);
3775: END IF;
3776: RETURN;
3841: --END IF;
3842:
3843:
3844: IF (g_level_statement >= g_current_runtime_level ) THEN
3845: FND_LOG.STRING(g_level_statement,
3846: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_line_level.END',
3847: 'ZX_TDS_TAX_ROUNDING_PKG: round_line_level(-)'||
3848: 'rounded tax amt = ' ||
3849: to_char(p_tax_amt)||
3858: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3859: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3860:
3861: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3862: FND_LOG.STRING(g_level_unexpected,
3863: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_line_level',
3864: p_error_buffer);
3865: END IF;
3866:
3892: l_same_tax VARCHAR2(1);
3893: BEGIN
3894:
3895: IF (g_level_statement >= g_current_runtime_level ) THEN
3896: FND_LOG.STRING(g_level_statement,
3897: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.handle_header_rounding_curr.BEGIN',
3898: 'ZX_TDS_TAX_ROUNDING_PKG: handle_header_rounding_curr(+)');
3899: END IF;
3900:
3939: END IF;
3940:
3941: IF (g_level_statement >= g_current_runtime_level ) THEN
3942:
3943: FND_LOG.STRING(g_level_statement,
3944: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.handle_header_rounding_curr.END',
3945: 'ZX_TDS_TAX_ROUNDING_PKG: handle_header_rounding_curr(-)'||p_return_status);
3946: END IF;
3947:
3949: WHEN OTHERS THEN
3950: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3951: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3952: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3953: FND_LOG.STRING(g_level_unexpected,
3954: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.handle_header_rounding_curr',
3955: p_error_buffer);
3956: END IF;
3957:
3985:
3986: BEGIN
3987:
3988: IF (g_level_statement >= g_current_runtime_level ) THEN
3989: FND_LOG.STRING(g_level_statement,
3990: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_info.BEGIN',
3991: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_info(+)');
3992: END IF;
3993:
4005: p_error_buffer);
4006:
4007: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4008: IF (g_level_statement >= g_current_runtime_level ) THEN
4009: FND_LOG.STRING(g_level_statement,
4010: 'ZX.PLSQL.ZX_TDS_RULE_BASE_DETM_PVT.rule_base_process',
4011: 'p_return_status = ' || p_return_status ||
4012: ', p_error_buffer = ' || p_error_buffer);
4013: END IF;
4025: p_tax_currency_conversion_date := p_currency_conversion_date;
4026: END IF;
4027:
4028: IF (g_level_statement >= g_current_runtime_level ) THEN
4029: FND_LOG.STRING(g_level_statement,
4030: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_info',
4031: 'perform rounding for tax_id = ' ||
4032: to_char(l_tax_id)||
4033: 'tax precision = ' || p_tax_precision||
4081: g_currency_tbl(p_trx_currency_code).precision;
4082: END IF;
4083:
4084: IF (g_level_statement >= g_current_runtime_level ) THEN
4085: FND_LOG.STRING(g_level_statement,
4086: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_info.END',
4087: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_info(-)');
4088: END IF;
4089:
4091: WHEN OTHERS THEN
4092: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4093: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4094: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4095: FND_LOG.STRING(g_level_unexpected,
4096: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_info',
4097: p_error_buffer);
4098: END IF;
4099:
4125:
4126: BEGIN
4127:
4128: IF (g_level_statement >= g_current_runtime_level ) THEN
4129: FND_LOG.STRING(g_level_statement,
4130: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff_curr.BEGIN',
4131: 'ZX_TDS_TAX_ROUNDING_PKG: adjust_rounding_diff_curr(+)');
4132: END IF;
4133:
4135:
4136: l_count := g_hdr_rounding_curr_tbl.COUNT;
4137:
4138: IF (g_level_statement >= g_current_runtime_level ) THEN
4139: FND_LOG.STRING(g_level_statement,
4140: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff_curr',
4141: 'number of rows to adjust = ' || to_char(l_count));
4142: END IF;
4143:
4200: l_tax_line_id_tbl(i) := g_hdr_rounding_curr_tbl(i).tax_line_id;
4201: END LOOP;
4202:
4203: IF (g_level_statement >= g_current_runtime_level ) THEN
4204: FND_LOG.STRING(g_level_statement,
4205: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff_curr',
4206: 'update the adjustments to the largest lines ....');
4207: END IF;
4208:
4212: taxable_amt_funcl_curr = l_taxable_amt_curr_tbl(i)
4213: WHERE tax_line_id = l_tax_line_id_tbl(i);
4214:
4215: IF (g_level_statement >= g_current_runtime_level ) THEN
4216: FND_LOG.STRING(g_level_statement,
4217: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff_curr.END',
4218: 'ZX_TDS_TAX_ROUNDING_PKG: adjust_rounding_diff_curr(-)');
4219: END IF;
4220:
4223: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4224: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4225:
4226: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4227: FND_LOG.STRING(g_level_unexpected,
4228: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff_curr',
4229: p_error_buffer);
4230: END IF;
4231:
4266:
4267: BEGIN
4268:
4269: IF (g_level_statement >= g_current_runtime_level ) THEN
4270: FND_LOG.STRING(g_level_statement,
4271: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff.BEGIN',
4272: 'ZX_TDS_TAX_ROUNDING_PKG: adjust_rounding_diff(+)');
4273: END IF;
4274:
4276:
4277: l_count := g_hdr_rounding_info_tbl.COUNT;
4278:
4279: IF (g_level_statement >= g_current_runtime_level ) THEN
4280: FND_LOG.STRING(g_level_statement,
4281: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4282: 'number of rows to adjust = ' || to_char(l_count));
4283: END IF;
4284:
4305: RETURN;
4306: END IF;
4307:
4308: IF (g_level_statement >= g_current_runtime_level ) THEN
4309: FND_LOG.STRING(g_level_statement,
4310: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4311: 'Rounded Tax amt before ' ||to_char(g_hdr_rounding_info_tbl(i).rnd_tax_amt));
4312: END IF;
4313:
4311: 'Rounded Tax amt before ' ||to_char(g_hdr_rounding_info_tbl(i).rnd_tax_amt));
4312: END IF;
4313:
4314: IF (g_level_statement >= g_current_runtime_level ) THEN
4315: FND_LOG.STRING(g_level_statement,
4316: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4317: 'number of rows to adjust = ' || to_char(l_count));
4318: END IF;
4319: --
4320: -- adjust tax amt
4321: --
4322:
4323: IF (g_level_statement >= g_current_runtime_level ) THEN
4324: FND_LOG.STRING(g_level_statement,
4325: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4326: 'sum_rnd_tax_amt' ||to_char(g_hdr_rounding_info_tbl(i).sum_rnd_tax_amt));
4327: END IF;
4328:
4330: g_hdr_rounding_info_tbl(i).rnd_tax_amt +
4331: (l_rnd_sum_unrnd_tax_amt - g_hdr_rounding_info_tbl(i).sum_rnd_tax_amt);
4332:
4333: IF (g_level_statement >= g_current_runtime_level ) THEN
4334: FND_LOG.STRING(g_level_statement,
4335: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4336: 'Rounded Tax amt after ' ||to_char(g_hdr_rounding_info_tbl(i).rnd_tax_amt));
4337: END IF;
4338:
4433:
4434: FOR i IN 1 .. l_count LOOP
4435:
4436: IF (g_level_statement >= g_current_runtime_level ) THEN
4437: FND_LOG.STRING(g_level_statement,
4438: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4439: 'Tax line id' ||to_char(g_hdr_rounding_info_tbl(i).tax_line_id));
4440: END IF;
4441:
4447: l_tax_line_id_tbl(i) := g_hdr_rounding_info_tbl(i).tax_line_id;
4448: END LOOP;
4449:
4450: IF (g_level_statement >= g_current_runtime_level ) THEN
4451: FND_LOG.STRING(g_level_statement,
4452: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4453: 'update the adjustments to the largest lines ....');
4454: END IF;
4455:
4463: taxable_amt_funcl_curr = l_taxable_amt_funcl_curr_tbl(i)
4464: WHERE tax_line_id = l_tax_line_id_tbl(i);
4465:
4466: IF (g_level_statement >= g_current_runtime_level ) THEN
4467: FND_LOG.STRING(g_level_statement,
4468: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff.END',
4469: 'ZX_TDS_TAX_ROUNDING_PKG: adjust_rounding_diff(-)');
4470: END IF;
4471:
4474: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4475: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4476:
4477: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4478: FND_LOG.STRING(g_level_unexpected,
4479: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4480: p_error_buffer);
4481: END IF;
4482:
4507: j BINARY_INTEGER;
4508: BEGIN
4509:
4510: IF (g_level_statement >= g_current_runtime_level ) THEN
4511: FND_LOG.STRING(g_level_statement,
4512: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_curr.BEGIN',
4513: 'ZX_TDS_TAX_ROUNDING_PKG: update_header_rounding_curr(+)');
4514: END IF;
4515:
4563:
4564: END IF;
4565:
4566: IF (g_level_statement >= g_current_runtime_level ) THEN
4567: FND_LOG.STRING(g_level_statement,
4568: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_curr.END',
4569: 'ZX_TDS_TAX_ROUNDING_PKG: update_header_rounding_curr(-)');
4570: END IF;
4571: EXCEPTION
4573: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4574: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4575:
4576: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4577: FND_LOG.STRING(g_level_unexpected,
4578: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_curr',
4579: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4580: END IF;
4581:
4618: j BINARY_INTEGER;
4619: BEGIN
4620:
4621: IF (g_level_statement >= g_current_runtime_level ) THEN
4622: FND_LOG.STRING(g_level_statement,
4623: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_info.BEGIN',
4624: 'ZX_TDS_TAX_ROUNDING_PKG: update_header_rounding_info(+)');
4625: END IF;
4626:
4713:
4714: END IF;
4715:
4716: IF (g_level_statement >= g_current_runtime_level ) THEN
4717: FND_LOG.STRING(g_level_statement,
4718: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_info.END',
4719: 'ZX_TDS_TAX_ROUNDING_PKG: update_header_rounding_info(-)');
4720: END IF;
4721: EXCEPTION
4723: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4724: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4725:
4726: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4727: FND_LOG.STRING(g_level_unexpected,
4728: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_info',
4729: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4730: END IF;
4731:
4801:
4802: BEGIN
4803:
4804: IF (g_level_statement >= g_current_runtime_level ) THEN
4805: FND_LOG.STRING(g_level_statement,
4806: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding.BEGIN',
4807: 'ZX_TDS_TAX_ROUNDING_PKG: do_rounding(+)');
4808: END IF;
4809:
4840: RETURN;
4841: END IF;
4842:
4843: IF (g_level_statement >= g_current_runtime_level ) THEN
4844: FND_LOG.STRING(g_level_statement,
4845: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding',
4846: 'l_tax_precision = ' || to_char(l_tax_precision)||
4847: 'l_tax_min_acct_unit = ' || to_char(l_tax_min_acct_unit) ||
4848: ' tax curr conv type = ' || l_tax_currency_conversion_type ||
5056:
5057: -- IF l_funcl_currency_code IS NULL THEN
5058: --
5059: -- IF (g_level_statement >= g_current_runtime_level ) THEN
5060: -- FND_LOG.STRING(g_level_statement,
5061: -- 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding',
5062: -- 'l_funcl_currency_code is NULL, deriving the functional currency');
5063: -- END IF;
5064:
5072:
5073: -- END IF;
5074:
5075: -- IF (g_level_statement >= g_current_runtime_level ) THEN
5076: -- FND_LOG.STRING(g_level_statement,
5077: -- 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding',
5078: -- 'l_funcl_currency_code is:'||l_funcl_currency_code||
5079: -- ':p_trx_currency_code is:'||p_trx_currency_code||
5080: -- ':p_currency_conversion_rate is:'||p_currency_conversion_rate||
5083:
5084:
5085: -- IF Nvl(p_quote_flag,'N') = 'Y' THEN
5086: -- IF (g_level_statement >= g_current_runtime_level ) THEN
5087: -- FND_LOG.STRING(g_level_statement,
5088: -- 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding',
5089: -- 'Skipping the Preventive Check for currency_conversion_rate in Quote Mode');
5090: -- END IF;
5091: -- ELSIF (l_funcl_currency_code <> p_trx_currency_code) AND p_currency_conversion_rate IS NULL THEN
5103: -- FND_MSG_PUB.Add;
5104: -- END IF;
5105:
5106: -- IF (g_level_statement >= g_current_runtime_level ) THEN
5107: -- FND_LOG.STRING(g_level_statement,
5108: -- 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding',
5109: -- p_error_buffer);
5110: -- END IF;
5111:
5271: END IF; -- p_mrc_tax_line_flag = 'N'
5272:
5273: IF (g_level_statement >= g_current_runtime_level ) THEN
5274:
5275: FND_LOG.STRING(g_level_statement,
5276: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding.END',
5277: 'ZX_TDS_TAX_ROUNDING_PKG: do_rounding(-)'||p_return_status);
5278: END IF;
5279:
5282: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5283: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5284:
5285: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5286: FND_LOG.STRING(g_level_unexpected,
5287: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding',
5288: p_error_buffer);
5289: END IF;
5290:
5312:
5313: BEGIN
5314:
5315: IF (g_level_statement >= g_current_runtime_level ) THEN
5316: FND_LOG.STRING(g_level_statement,
5317: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_create.BEGIN',
5318: 'ZX_TDS_TAX_ROUNDING_PKG: process_tax_line_create(+)');
5319: END IF;
5320:
5329: p_sum_rnd_funcl_curr := 0;
5330:
5331: IF (g_level_statement >= g_current_runtime_level ) THEN
5332:
5333: FND_LOG.STRING(g_level_statement,
5334: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_create.END',
5335: 'ZX_TDS_TAX_ROUNDING_PKG: process_tax_line_create(-)'||p_return_status);
5336: END IF;
5337:
5339: WHEN OTHERS THEN
5340: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5341: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5342: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5343: FND_LOG.STRING(g_level_unexpected,
5344: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_create',
5345: p_error_buffer);
5346: END IF;
5347:
5499:
5500: BEGIN
5501:
5502: IF (g_level_statement >= g_current_runtime_level ) THEN
5503: FND_LOG.STRING(g_level_statement,
5504: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_upd_override.BEGIN',
5505: 'ZX_TDS_TAX_ROUNDING_PKG: process_tax_line_upd_override(+)');
5506: END IF;
5507:
5592: END IF;
5593: CLOSE get_existing_sum_amt_csr;
5594:
5595: IF (g_level_statement >= g_current_runtime_level ) THEN
5596: FND_LOG.STRING(g_level_statement,
5597: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_upd_override',
5598: 'p_sum_unrnd_tax_amt = ' || to_char(p_sum_unrnd_tax_amt)||
5599: 'p_sum_rnd_tax_amt = ' || to_char(p_sum_rnd_tax_amt)||
5600: 'p_sum_rnd_tax_curr = ' || to_char(p_sum_rnd_tax_curr)||
5599: 'p_sum_rnd_tax_amt = ' || to_char(p_sum_rnd_tax_amt)||
5600: 'p_sum_rnd_tax_curr = ' || to_char(p_sum_rnd_tax_curr)||
5601: 'p_sum_rnd_funcl_curr= ' || to_char(p_sum_rnd_funcl_curr));
5602:
5603: FND_LOG.STRING(g_level_statement,
5604: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_upd_override.END',
5605: 'ZX_TDS_TAX_ROUNDING_PKG: process_tax_line_upd_override(-)');
5606: END IF;
5607:
5609: WHEN OTHERS THEN
5610: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5611: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5612: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5613: FND_LOG.STRING(g_level_unexpected,
5614: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_upd_override',
5615: p_error_buffer);
5616: END IF;
5617:
5639: )
5640: IS
5641: BEGIN
5642: IF (g_level_statement >= g_current_runtime_level ) THEN
5643: FND_LOG.STRING(g_level_statement,
5644: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.chk_mandatory_col_after_round.BEGIN',
5645: 'ZX_TDS_TAX_ROUNDING_PKG: chk_mandatory_col_after_round(+)');
5646: END IF;
5647:
5724: END IF;
5725:
5726: IF (g_level_statement >= g_current_runtime_level ) THEN
5727:
5728: FND_LOG.STRING(g_level_statement,
5729: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.chk_mandatory_col_after_round.END',
5730: 'ZX_TDS_TAX_ROUNDING_PKG: chk_mandatory_col_after_round(-)'||
5731: 'return status: '||p_return_status||
5732: ' error_buffer = ' || p_error_buffer);
5737: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5738: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5739:
5740: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5741: FND_LOG.STRING(g_level_unexpected,
5742: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.chk_mandatory_col_after_round',
5743: p_error_buffer);
5744: END IF;
5745:
5778: i BINARY_INTEGER;
5779: l_count NUMBER;
5780: BEGIN
5781: IF (g_level_statement >= g_current_runtime_level ) THEN
5782: FND_LOG.STRING(g_level_statement,
5783: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_detail_tax_lines_gt.BEGIN',
5784: 'ZX_TDS_TAX_ROUNDING_PKG: update_detail_tax_lines_gt(+)');
5785: END IF;
5786:
5816: WHERE tax_line_id = p_tax_line_id_tbl(i);
5817:
5818: IF (g_level_statement >= g_current_runtime_level ) THEN
5819:
5820: FND_LOG.STRING(g_level_statement,
5821: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_detail_tax_lines_gt.END',
5822: 'ZX_TDS_TAX_ROUNDING_PKG: update_detail_tax_lines_gt(-)'||
5823: 'p_return_status = ' || p_return_status);
5824: END IF;
5828: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5829: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5830:
5831: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5832: FND_LOG.STRING(g_level_unexpected,
5833: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_detail_tax_lines_gt',
5834: p_error_buffer);
5835: END IF;
5836:
5867: l_rounding_rule_code ZX_TAXES_B.ROUNDING_RULE_CODE%TYPE;
5868: BEGIN
5869:
5870: IF (g_level_statement >= g_current_runtime_level ) THEN
5871: FND_LOG.STRING(g_level_statement,
5872: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_zx_lines.BEGIN',
5873: 'ZX_TDS_TAX_ROUNDING_PKG: update_zx_lines(+)');
5874: END IF;
5875:
5940: WHERE tax_line_id = p_tax_line_id_tbl(i);
5941: END LOOP;
5942: IF (g_level_statement >= g_current_runtime_level ) THEN
5943:
5944: FND_LOG.STRING(g_level_statement,
5945: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_zx_lines.END',
5946: 'ZX_TDS_TAX_ROUNDING_PKG: update_zx_lines(-)'||p_return_status);
5947: END IF;
5948:
5951: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5952: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5953:
5954: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5955: FND_LOG.STRING(g_level_unexpected,
5956: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_zx_lines',
5957: p_error_buffer);
5958: END IF;
5959: END update_zx_lines;
6253: record_type_code;
6254:
6255: BEGIN
6256:
6257: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6258:
6259: IF (g_level_procedure >= g_current_runtime_level ) THEN
6260: FND_LOG.STRING(g_level_procedure,
6261: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.perform_rounding.BEGIN',
6256:
6257: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6258:
6259: IF (g_level_procedure >= g_current_runtime_level ) THEN
6260: FND_LOG.STRING(g_level_procedure,
6261: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.perform_rounding.BEGIN',
6262: 'ZX_TDS_TAX_ROUNDING_PKG: perform_rounding(+)');
6263: END IF;
6264:
6275: l_entity_code,
6276: l_event_class_code,
6277: l_trx_id;
6278: EXIT WHEN get_trx_id_csr%NOTFOUND;
6279: --FND_LOG.STRING(g_level_procedure,'Current Trx ID:',l_trx_id);
6280:
6281: --bug 12714708,initialize msg_context_info_rec based on current trx_id (after removing the entry from errors tbl in get_taxes_for_intercomp_trx)
6282: ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec.application_id := l_application_id;
6283: ZX_TDS_CALC_SERVICES_PUB_PKG.g_msg_context_info_rec.entity_code := l_entity_code;
6765: END LOOP;
6766:
6767: IF (g_level_procedure >= g_current_runtime_level ) THEN
6768:
6769: FND_LOG.STRING(g_level_procedure,
6770: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.perform_rounding.END',
6771: 'ZX_TDS_TAX_ROUNDING_PKG: perform_rounding(-)'||p_return_status);
6772: END IF;
6773:
6776: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6777: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6778:
6779: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6780: FND_LOG.STRING(g_level_unexpected,
6781: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.perform_rounding',
6782: p_error_buffer);
6783: END IF;
6784:
6812:
6813: BEGIN
6814:
6815: IF (g_level_procedure >= g_current_runtime_level ) THEN
6816: FND_LOG.STRING(g_level_procedure,
6817: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_for_curr.BEGIN',
6818: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_for_curr(+)');
6819: END IF;
6820:
6867: END IF; -- end functional currency
6868:
6869: IF (g_level_procedure >= g_current_runtime_level ) THEN
6870:
6871: FND_LOG.STRING(g_level_procedure,
6872: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_for_curr.END',
6873: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_for_curr(-)'||p_return_status);
6874: END IF;
6875:
6878: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6879: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6880:
6881: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6882: FND_LOG.STRING(g_level_unexpected,
6883: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_for_curr',
6884: p_error_buffer);
6885: END IF;
6886: END convert_and_round_for_curr;
6958:
6959: BEGIN
6960:
6961: IF (g_level_procedure >= g_current_runtime_level ) THEN
6962: FND_LOG.STRING(g_level_procedure,
6963: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_lin_lvl_curr.BEGIN',
6964: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_lin_lvl_curr(+)');
6965: END IF;
6966:
7000:
7001: l_count := l_tax_line_id_tbl.COUNT;
7002:
7003: IF (g_level_procedure >= g_current_runtime_level ) THEN
7004: FND_LOG.STRING(g_level_procedure,
7005: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_lin_lvl_curr',
7006: 'number of rows fetched = ' || to_char(l_count));
7007: END IF;
7008:
7075: END IF;
7076:
7077: IF (g_level_procedure >= g_current_runtime_level ) THEN
7078:
7079: FND_LOG.STRING(g_level_procedure,
7080: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_lin_lvl_curr.END',
7081: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_lin_lvl_curr(-)'||p_return_status);
7082: END IF;
7083:
7089: CLOSE get_round_line_level_curr_csr;
7090: END IF;
7091:
7092: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7093: FND_LOG.STRING(g_level_unexpected,
7094: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_lin_lvl_curr',
7095: p_error_buffer);
7096: END IF;
7097:
7320:
7321: BEGIN
7322:
7323: IF (g_level_procedure >= g_current_runtime_level ) THEN
7324: FND_LOG.STRING(g_level_procedure,
7325: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_hdr_lvl_curr.BEGIN',
7326: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_hdr_lvl_curr(+)');
7327: END IF;
7328:
7424:
7425: l_count := l_tax_line_id_tbl.COUNT;
7426:
7427: IF (g_level_statement >= g_current_runtime_level ) THEN
7428: FND_LOG.STRING(g_level_statement,
7429: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_hdr_lvl_curr',
7430: 'number of rows fetched = ' || to_char(l_count));
7431: END IF;
7432:
7627: END IF;
7628:
7629: IF (g_level_procedure >= g_current_runtime_level ) THEN
7630:
7631: FND_LOG.STRING(g_level_procedure,
7632: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_hdr_lvl_curr.END',
7633: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_hdr_lvl_curr(-)'||p_return_status);
7634: END IF;
7635:
7640: IF get_round_head_level_curr_csr%ISOPEN THEN
7641: CLOSE get_round_head_level_curr_csr;
7642: END IF;
7643: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7644: FND_LOG.STRING(g_level_unexpected,
7645: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_hdr_lvl_curr',
7646: p_error_buffer);
7647: END IF;
7648:
7670: )
7671: IS
7672:
7673: BEGIN
7674: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7675:
7676: IF (g_level_statement >= g_current_runtime_level ) THEN
7677: FND_LOG.STRING(g_level_statement,
7678: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_curr.BEGIN',
7673: BEGIN
7674: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7675:
7676: IF (g_level_statement >= g_current_runtime_level ) THEN
7677: FND_LOG.STRING(g_level_statement,
7678: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_curr.BEGIN',
7679: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_curr(+)');
7680: END IF;
7681:
7722:
7723:
7724: IF (g_level_procedure >= g_current_runtime_level ) THEN
7725:
7726: FND_LOG.STRING(g_level_procedure,
7727: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_curr.END',
7728: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_curr(-)'||p_return_status);
7729: END IF;
7730:
7733: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7734: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
7735:
7736: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7737: FND_LOG.STRING(g_level_unexpected,
7738: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_curr',
7739: p_error_buffer);
7740: END IF;
7741:
7839:
7840:
7841: BEGIN
7842:
7843: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7844:
7845: IF (g_level_procedure >= g_current_runtime_level ) THEN
7846: FND_LOG.STRING(g_level_procedure,
7847: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_amt_entered.BEGIN',
7842:
7843: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7844:
7845: IF (g_level_procedure >= g_current_runtime_level ) THEN
7846: FND_LOG.STRING(g_level_procedure,
7847: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_amt_entered.BEGIN',
7848: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax_amt_entered(+)');
7849: END IF;
7850:
7964: p_error_buffer);
7965:
7966: IF (g_level_procedure >= g_current_runtime_level ) THEN
7967:
7968: FND_LOG.STRING(g_level_procedure,
7969: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_amt_entered.END',
7970: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax_amt_entered(-)'||p_return_status);
7971: END IF;
7972:
7978: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
7979: FND_MSG_PUB.Add;
7980:
7981: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7982: FND_LOG.STRING(g_level_unexpected,
7983: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_amt_entered',
7984: p_error_buffer);
7985: END IF;
7986:
8031: l_amount_includes_tax_flag ap_supplier_sites_all.amount_includes_tax_flag%TYPE;
8032:
8033: BEGIN
8034: IF (g_level_procedure >= g_current_runtime_level ) THEN
8035: FND_LOG.STRING(g_level_procedure,
8036: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site.BEGIN',
8037: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Supplier_Site(+)');
8038: FND_LOG.STRING(g_level_procedure,
8039: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
8034: IF (g_level_procedure >= g_current_runtime_level ) THEN
8035: FND_LOG.STRING(g_level_procedure,
8036: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site.BEGIN',
8037: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Supplier_Site(+)');
8038: FND_LOG.STRING(g_level_procedure,
8039: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
8040: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
8041: FND_LOG.STRING(g_level_procedure,
8042: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
8037: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Supplier_Site(+)');
8038: FND_LOG.STRING(g_level_procedure,
8039: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
8040: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
8041: FND_LOG.STRING(g_level_procedure,
8042: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
8043: 'p_account_id : ' || TO_CHAR(p_account_id));
8044: END IF;
8045:
8050:
8051: IF ZX_GLOBAL_STRUCTURES_PKG.g_supp_site_info_tbl.exists(p_account_site_id) THEN
8052:
8053: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8054: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
8055: 'Vendor site record found in cache for vendor site id:'||to_char(p_account_site_id));
8056: END IF;
8057:
8058: p_rounding_rule_code := ZX_GLOBAL_STRUCTURES_PKG.g_supp_site_info_tbl(p_account_site_id).TAX_ROUNDING_RULE;
8060: ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg := ZX_GLOBAL_STRUCTURES_PKG.g_supp_site_info_tbl(p_account_site_id).Auto_Tax_Calc_Flag;
8061: ZX_TDS_CALC_SERVICES_PUB_PKG.g_tax_inclusive_flg := ZX_GLOBAL_STRUCTURES_PKG.g_supp_site_info_tbl(p_account_site_id).amount_includes_tax_flag;
8062:
8063: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8064: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
8065: 'ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg '|| ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg );
8066: END IF;
8067:
8068: ELSE
8080:
8081: p_rounding_level_code := l_tax_rounding_level;
8082: p_rounding_rule_code := l_ap_tax_rounding_rule;
8083: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8084: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
8085: 'Auto tax calc flag '|| l_auto_tax_calc_flag ||
8086: 'Inclusive tax flag ' || l_amount_includes_tax_flag);
8087: END IF;
8088:
8101: ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg := l_auto_tax_calc_flag;
8102: ZX_TDS_CALC_SERVICES_PUB_PKG.g_tax_inclusive_flg := l_amount_includes_tax_flag;
8103:
8104: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8105: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
8106: 'ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg '|| ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg);
8107: END IF;
8108:
8109:
8111:
8112: END IF;
8113:
8114: IF (g_level_procedure >= g_current_runtime_level ) THEN
8115: FND_LOG.STRING(g_level_procedure,
8116: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site.END',
8117: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Supplier_Site(-)'||'rounding level code :'||p_rounding_level_code);
8118: END IF;
8119:
8123: CLOSE c_supplier_ptp;
8124: END IF;
8125:
8126: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8127: FND_LOG.STRING(g_level_unexpected,
8128: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site.END',
8129: 'Exception in ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site. '||SQLCODE||SQLERRM);
8130: END IF;
8131:
8174:
8175:
8176: BEGIN
8177: IF (g_level_statement >= g_current_runtime_level ) THEN
8178: FND_LOG.STRING(g_level_statement,
8179: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses.BEGIN',
8180: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Reg_Site_Uses(+)');
8181: FND_LOG.STRING(g_level_statement,
8182: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
8177: IF (g_level_statement >= g_current_runtime_level ) THEN
8178: FND_LOG.STRING(g_level_statement,
8179: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses.BEGIN',
8180: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Reg_Site_Uses(+)');
8181: FND_LOG.STRING(g_level_statement,
8182: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
8183: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
8184: FND_LOG.STRING(g_level_statement,
8185: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
8180: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Reg_Site_Uses(+)');
8181: FND_LOG.STRING(g_level_statement,
8182: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
8183: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
8184: FND_LOG.STRING(g_level_statement,
8185: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
8186: 'p_account_id : ' || TO_CHAR(p_account_id));
8187: FND_LOG.STRING(g_level_statement,
8188: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
8183: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
8184: FND_LOG.STRING(g_level_statement,
8185: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
8186: 'p_account_id : ' || TO_CHAR(p_account_id));
8187: FND_LOG.STRING(g_level_statement,
8188: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
8189: 'p_site_use_id : ' || TO_CHAR(p_site_use_id));
8190: END IF;
8191:
8203: p_rounding_level_code := 'LINE';
8204: END IF;
8205:
8206: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8207: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
8208: 'Site Use information found in cache');
8209: END IF;
8210: ELSE
8211: OPEN c_site_uses (
8241:
8242: END IF;
8243:
8244: IF (g_level_procedure >= g_current_runtime_level ) THEN
8245: FND_LOG.STRING(g_level_procedure,
8246: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses.END',
8247: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Reg_Site_Uses(-)'||'rounding level code :'||p_rounding_level_code
8248: ||'rounding rule code: '||p_Rounding_Rule_Code);
8249: END IF;
8253: CLOSE c_site_uses;
8254: END IF;
8255:
8256: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8257: FND_LOG.STRING(g_level_unexpected,
8258: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses.END',
8259: 'Exception in ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses('||SQLCODE||SQLERRM);
8260: END IF;
8261: END Get_Reg_Site_Uses;
8291:
8292: BEGIN
8293:
8294: IF (g_level_statement >= g_current_runtime_level ) THEN
8295: FND_LOG.STRING(g_level_statement,
8296: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts.BEGIN',
8297: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Accts(+)');
8298: FND_LOG.STRING(g_level_statement,
8299: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts',
8294: IF (g_level_statement >= g_current_runtime_level ) THEN
8295: FND_LOG.STRING(g_level_statement,
8296: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts.BEGIN',
8297: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Accts(+)');
8298: FND_LOG.STRING(g_level_statement,
8299: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts',
8300: 'p_account_id : ' || TO_CHAR(p_account_id)) ;
8301:
8302: END IF;
8315: p_rounding_level_code := 'LINE';
8316: END IF;
8317:
8318: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8319: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts',
8320: 'Cust Account information found in cache');
8321: END IF;
8322: ELSE
8323: OPEN c_customer_account (p_account_id);
8346: END IF;
8347:
8348:
8349: IF (g_level_procedure >= g_current_runtime_level ) THEN
8350: FND_LOG.STRING(g_level_procedure,
8351: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts.END',
8352: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Accts(-)'||'rounding level code :'||p_rounding_level_code
8353: ||'rounding rule code: '||p_Rounding_Rule_Code);
8354: END IF;
8359: CLOSE c_customer_account;
8360: END IF;
8361:
8362: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8363: FND_LOG.STRING(g_level_unexpected,
8364: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts',
8365: 'Exception in ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts: '||SQLCODE||SQLERRM);
8366: END IF;
8367: END Get_Registration_Accts;
8384:
8385: BEGIN
8386:
8387: IF (g_level_procedure >= g_current_runtime_level ) THEN
8388: FND_LOG.STRING(g_level_procedure,
8389: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party.BEGIN',
8390: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Party(+)');
8391: FND_LOG.STRING(g_level_procedure,
8392: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party',
8387: IF (g_level_procedure >= g_current_runtime_level ) THEN
8388: FND_LOG.STRING(g_level_procedure,
8389: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party.BEGIN',
8390: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Party(+)');
8391: FND_LOG.STRING(g_level_procedure,
8392: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party',
8393: 'p_party_tax_profile_id : ' || TO_CHAR(p_party_tax_profile_id)) ;
8394: END IF;
8395:
8410: ZX_GLOBAL_STRUCTURES_PKG.G_PARTY_TAX_PROF_INFO_TBL(p_party_tax_profile_id).rounding_rule_code;
8411: ELSE
8412:
8413: IF (g_level_procedure >= g_current_runtime_level ) THEN
8414: FND_LOG.STRING(g_level_procedure,
8415: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party',
8416: 'ZX_TDS_TAX_ROUNDING_PKG: The party tax profile id is not valid: '||p_party_tax_profile_id);
8417: END IF;
8418:
8419: END IF;
8420:
8421:
8422: IF (g_level_procedure >= g_current_runtime_level ) THEN
8423: FND_LOG.STRING(g_level_procedure,
8424: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party.END',
8425: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Party(-)'||'rounding level code :'||p_rounding_level_code);
8426: END IF;
8427:
8428: EXCEPTION
8429:
8430: WHEN OTHERS THEN
8431: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8432: FND_LOG.STRING(g_level_unexpected,
8433: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party',
8434: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Party'||'Exception in ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party '||
8435: SQLCODE||SQLERRM);
8436: END IF;
8461: IS
8462: BEGIN
8463:
8464: IF (g_level_procedure >= g_current_runtime_level ) THEN
8465: FND_LOG.STRING(g_level_procedure,
8466: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level.BEGIN',
8467: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level(+)');
8468: FND_LOG.STRING(g_level_procedure,
8469: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8464: IF (g_level_procedure >= g_current_runtime_level ) THEN
8465: FND_LOG.STRING(g_level_procedure,
8466: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level.BEGIN',
8467: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level(+)');
8468: FND_LOG.STRING(g_level_procedure,
8469: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8470: 'p_parent_ptp_id : ' || TO_CHAR(p_parent_ptp_id));
8471: FND_LOG.STRING(g_level_procedure,
8472: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8467: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level(+)');
8468: FND_LOG.STRING(g_level_procedure,
8469: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8470: 'p_parent_ptp_id : ' || TO_CHAR(p_parent_ptp_id));
8471: FND_LOG.STRING(g_level_procedure,
8472: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8473: 'p_site_ptp_id : ' || TO_CHAR(p_site_ptp_id));
8474: FND_LOG.STRING(g_level_procedure,
8475: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8470: 'p_parent_ptp_id : ' || TO_CHAR(p_parent_ptp_id));
8471: FND_LOG.STRING(g_level_procedure,
8472: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8473: 'p_site_ptp_id : ' || TO_CHAR(p_site_ptp_id));
8474: FND_LOG.STRING(g_level_procedure,
8475: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8476: 'p_account_Type_Code : ' || p_account_Type_Code);
8477: FND_LOG.STRING(g_level_procedure,
8478: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8473: 'p_site_ptp_id : ' || TO_CHAR(p_site_ptp_id));
8474: FND_LOG.STRING(g_level_procedure,
8475: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8476: 'p_account_Type_Code : ' || p_account_Type_Code);
8477: FND_LOG.STRING(g_level_procedure,
8478: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8479: 'p_account_id : ' || TO_CHAR(p_account_id));
8480: FND_LOG.STRING(g_level_procedure,
8481: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8476: 'p_account_Type_Code : ' || p_account_Type_Code);
8477: FND_LOG.STRING(g_level_procedure,
8478: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8479: 'p_account_id : ' || TO_CHAR(p_account_id));
8480: FND_LOG.STRING(g_level_procedure,
8481: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8482: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
8483: FND_LOG.STRING(g_level_procedure,
8484: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8479: 'p_account_id : ' || TO_CHAR(p_account_id));
8480: FND_LOG.STRING(g_level_procedure,
8481: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8482: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
8483: FND_LOG.STRING(g_level_procedure,
8484: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8485: 'p_site_use_id : ' || TO_CHAR(p_site_use_id));
8486:
8487: END IF;
8562: END IF;
8563: END IF;
8564:
8565: IF (g_level_procedure >= g_current_runtime_level ) THEN
8566: FND_LOG.STRING(g_level_procedure,
8567: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level.END',
8568: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level(-)'||'rounding level code :'||p_rounding_level_code);
8569: END IF;
8570:
8573: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8574: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
8575:
8576: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8577: FND_LOG.STRING(g_level_unexpected,
8578: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8579: p_error_buffer);
8580: END IF;
8581:
8603: IS
8604:
8605: BEGIN
8606:
8607: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8608:
8609: IF (g_level_procedure >= g_current_runtime_level ) THEN
8610: FND_LOG.STRING(g_level_procedure,
8611: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_funcl_curr_info.BEGIN',
8606:
8607: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8608:
8609: IF (g_level_procedure >= g_current_runtime_level ) THEN
8610: FND_LOG.STRING(g_level_procedure,
8611: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_funcl_curr_info.BEGIN',
8612: 'ZX_TDS_TAX_ROUNDING_PKG: get_funcl_curr_info(+)'||
8613: ' p_ledger_id = ' || to_char(p_ledger_id));
8614:
8651: END IF;
8652:
8653: IF (g_level_procedure >= g_current_runtime_level ) THEN
8654:
8655: FND_LOG.STRING(g_level_procedure,
8656: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_funcl_curr_info.END',
8657: 'ZX_TDS_TAX_ROUNDING_PKG: get_funcl_curr_info(-)'||
8658: ' functional currency = ' || p_funcl_currency_code ||
8659: ' min acct unit = ' ||
8667: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8668: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
8669:
8670: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8671: FND_LOG.STRING(g_level_unexpected,
8672: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_funcl_curr_info',
8673: p_error_buffer);
8674: END IF;
8675: