[Home] [Help]
1: package body ZX_TDS_TAX_ROUNDING_PKG as
2: /* $Header: zxdiroundtaxpkgb.pls 120.101.12020000.4 2013/03/12 08:49:04 ssanka ship $ */
3:
4: /* ======================================================================*
5: | Global Variable |
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',
520: 'p_from_currency = ' || p_from_currency||
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',
520: 'p_from_currency = ' || p_from_currency||
521: 'p_to_currency = ' || p_to_currency||
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 = ' ||
523: to_char(p_conversion_date, 'DD-MON-YY')||
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',
714: 'ZX_TDS_TAX_ROUNDING_PKG: convert_amount(-)'||p_return_status);
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:
717: RETURN l_converted_amount;
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:
717: RETURN l_converted_amount;
718:
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:
730: END convert_amount;
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:
755: l_tbl_index := dbms_utility.get_hash_value(
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:
755: l_tbl_index := dbms_utility.get_hash_value(
756: p_from_currency||
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',
770: 'ZX_TDS_TAX_ROUNDING_PKG: get_rate_index(-)');
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:
773: RETURN l_tbl_index;
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:
773: RETURN l_tbl_index;
774:
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;
784: END get_rate_index;
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'));
832: END IF;
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'));
832: END IF;
833:
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:
878: end if;
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:
897: EXCEPTION
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:
897: EXCEPTION
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:
907: WHEN OTHERS THEN
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:
917: END get_currency_info;
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||
958: 'p_conversion_date = ' ||
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||
958: 'p_conversion_date = ' ||
959: to_char(p_conversion_date, 'DD-MON-YY')||
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 = ' ||
986: to_char(p_conversion_date, 'DD-MON-YY'));
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;
1001: RETURN (l_rate);
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;
1001: RETURN (l_rate);
1002: END IF;
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 = ' ||
1024: to_char(p_conversion_date, 'DD-MON-YY'));
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;
1039: RETURN (l_rate);
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;
1039: RETURN (l_rate);
1040: END IF;
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'));
1052: END IF;
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 = '||
1070: to_char(p_trx_conversion_date, 'DD-MON-YY'));
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;
1084: RETURN (l_rate);
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;
1084: RETURN (l_rate);
1085: END IF;
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:
1115: END IF;
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;
1128:
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;
1128:
1129: RETURN( l_rate );
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:
1143: END get_other_rate;
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:
1164: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
1164: p_return_status := FND_API.G_RET_STS_SUCCESS;
1165:
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:
1180: RETURN( euro_code );
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:
1180: RETURN( euro_code );
1181:
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:
1200: WHEN OTHERS THEN
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:
1210: END get_euro_code;
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)||
1241: 'p_precision = ' || to_char(p_precision));
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)||
1241: 'p_precision = ' || to_char(p_precision));
1242: END IF;
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');
1259: END IF;
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');
1259: END IF;
1260:
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:
1319: RETURN l_rounded_amt;
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:
1319: RETURN l_rounded_amt;
1320:
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:
1343: END round_tax;
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;
1371:
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;
1371:
1372: p_return_status := FND_API.G_RET_STS_SUCCESS;
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);
1397: END IF;
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);
1397: END IF;
1398:
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;
1409:
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;
1409:
1410: EXCEPTION
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:
1421: END det_rounding_level_basis;
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:
1468: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
1468: p_return_status := FND_API.G_RET_STS_SUCCESS;
1469:
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',
1554: 'p_error_buffer = ' || p_error_buffer);
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;
1557: END IF;
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:
1602: END IF;
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
1632:
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);
1640: END IF;
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);
1640: END IF;
1641:
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:
1653: END determine_round_level_and_rule;
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:
1698: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
1698: p_return_status := FND_API.G_RET_STS_SUCCESS;
1699:
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:
1779: -- Following line commented out for Bug 4939819 fix
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',
1813: 'p_error_buffer = ' || p_error_buffer);
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;
1816: END IF;
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,
1842: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
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;
1846: p_return_status := FND_API.G_RET_STS_SUCCESS;
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
1868:
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;
1876:
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;
1876:
1877: EXCEPTION
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:
1888: END determine_rounding_rule;
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:
1919: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
1919: p_return_status := FND_API.G_RET_STS_SUCCESS;
1920:
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:
2019: EXCEPTION
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:
2019: EXCEPTION
2020: WHEN OTHERS THEN
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:
2030: END get_rounding_rule;
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:
2059: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
2059: p_return_status := FND_API.G_RET_STS_SUCCESS;
2060:
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;
2110:
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;
2110:
2111: EXCEPTION
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:
2122: END get_round_level_ptp_id;
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;
2221:
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;
2221:
2222: p_return_status := FND_API.G_RET_STS_SUCCESS;
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 );
2257: END IF;
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 );
2286: END IF;
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 );
2314: END IF;
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 );
2342: END IF;
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,
2426: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
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',
2430: 'ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule(-)');
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;
2433: END IF;
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;
2433: END IF;
2434:
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;
2608:
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:
2615: EXCEPTION
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:
2615: EXCEPTION
2616: WHEN OTHERS THEN
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:
2626: END get_rounding_level_and_rule;
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:
2652: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
2652: p_return_status := FND_API.G_RET_STS_SUCCESS;
2653:
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:
2714: EXCEPTION
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:
2714: EXCEPTION
2715: WHEN OTHERS THEN
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:
2725: END init_header_group;
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:
2752: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
2752: p_return_status := FND_API.G_RET_STS_SUCCESS;
2753:
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';
2867: ELSE
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';
2874: END IF;
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||
2887: 'tax_status_code = ' || p_curr_hdr_grp_rec.tax_status_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 = ' ||
2941: to_char(p_curr_hdr_grp_rec.tax_rate_before_exemption )||
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;
2986:
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;
2986:
2987: EXCEPTION
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:
2997: END determine_header_group;
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;
3029:
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;
3029:
3030: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
3077: EXCEPTION
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:
3077: EXCEPTION
3078: WHEN OTHERS THEN
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:
3088: END get_currency_info_for_rounding;
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;
3121:
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;
3121:
3122: p_return_status := FND_API.G_RET_STS_SUCCESS;
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;
3145:
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;
3145:
3146: RETURN;
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;
3161:
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);
3189: END IF;
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);
3189: END IF;
3190:
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:
3202: END convert_to_currency;
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));
3234:
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));
3234:
3235: END 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;
3270:
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)||
3281: 'rounded amount in functional currency = ' ||
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)||
3281: 'rounded amount in functional currency = ' ||
3282: to_char(l_round_amt));
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:
3299: END round_tax_funcl_curr;
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:
3335: END IF;
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:
3335: END IF;
3336:
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;
3361:
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;
3383:
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;
3383:
3384: EXCEPTION
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:
3395: END conv_rnd_tax_tax_curr;
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:
3426: END IF;
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:
3426: END IF;
3427:
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:
3458: EXCEPTION
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:
3458: EXCEPTION
3459: WHEN OTHERS THEN
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:
3469: END conv_rnd_tax_funcl_curr;
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:
3512: END IF;
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:
3512: END IF;
3513:
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));
3574: END IF;
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));
3574: END IF;
3575:
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:
3586: END conv_rnd_taxable_tax_curr;
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:
3621: END IF;
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:
3621: END IF;
3622:
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));
3681: END IF;
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));
3681: END IF;
3682:
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:
3694: END conv_rnd_taxable_funcl_curr;
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)||
3733: 'unround prd_total_tax_amt = ' || to_char(p_prd_total_tax_amt)||
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)||
3733: 'unround prd_total_tax_amt = ' || to_char(p_prd_total_tax_amt)||
3734: 'p_trx_precision = ' || to_char(p_trx_precision)||
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;
3777: 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)||
3850: 'rounded taxable_amt = ' ||
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)||
3850: 'rounded taxable_amt = ' ||
3851: to_char(p_taxable_amt)||
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:
3867: END round_line_level;
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:
3901: --
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:
3901: --
3902: -- init return status
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:
3948: EXCEPTION
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:
3948: EXCEPTION
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:
3958: END handle_header_rounding_curr;
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:
3994: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
3994: p_return_status := FND_API.G_RET_STS_SUCCESS;
3995:
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||
4034: 'tax min_acct_unit = ' || p_tax_min_acct_unit||
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:
4090: EXCEPTION
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:
4090: EXCEPTION
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:
4100: END get_rounding_info;
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:
4134: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
4134: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
4144: FOR i IN 1 .. l_count LOOP
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:
4209: FORALL i IN 1 .. l_count
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:
4221: EXCEPTION
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:
4221: EXCEPTION
4222: WHEN OTHERS THEN
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:
4232: END adjust_rounding_diff_curr;
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:
4275: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
4275: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
4285: FOR i IN 1 .. l_count LOOP
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:
4314: IF (g_level_statement >= g_current_runtime_level ) THEN
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:
4329: 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:
4339: IF g_hdr_rounding_info_tbl(i).mrc_tax_line_flag = 'N' THEN
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:
4442: l_tax_amt_tbl(i) := g_hdr_rounding_info_tbl(i).rnd_tax_amt;
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:
4456: FORALL i IN 1 .. l_count
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:
4472: EXCEPTION
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:
4472: EXCEPTION
4473: WHEN OTHERS THEN
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:
4483: END adjust_rounding_diff;
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:
4516: --
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:
4516: --
4517: -- init return status
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
4572: WHEN OTHERS THEN
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
4572: WHEN OTHERS THEN
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:
4582: END update_header_rounding_curr;
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:
4627: --
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:
4627: --
4628: -- init return status
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
4722: WHEN OTHERS THEN
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
4722: WHEN OTHERS THEN
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:
4732: END update_header_rounding_info;
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:
4810: --
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:
4810: --
4811: -- init return status
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 ||
4849: ' tax curr conv type passed in = ' ||
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:
5065: -- get_funcl_curr_info(
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||
5081: -- ':Quote Flag: '||Nvl(p_quote_flag,'X'));
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
5092:
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:
5112: -- RETURN;
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:
5280: EXCEPTION
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:
5280: EXCEPTION
5281: WHEN OTHERS THEN
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:
5291: END do_rounding;
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:
5321: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
5321: p_return_status := FND_API.G_RET_STS_SUCCESS;
5322:
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:
5338: EXCEPTION
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:
5338: EXCEPTION
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:
5348: END process_tax_line_create;
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:
5508: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
5508: p_return_status := FND_API.G_RET_STS_SUCCESS;
5509:
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)||
5601: 'p_sum_rnd_funcl_curr= ' || to_char(p_sum_rnd_funcl_curr));
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:
5608: EXCEPTION
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:
5608: EXCEPTION
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:
5618: END process_tax_line_upd_override;
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:
5648: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
5648: p_return_status := FND_API.G_RET_STS_SUCCESS;
5649:
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);
5733: END IF;
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);
5733: END IF;
5734:
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:
5746: END chk_mandatory_col_after_round;
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:
5787: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
5787: p_return_status := FND_API.G_RET_STS_SUCCESS;
5788:
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;
5825:
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;
5825:
5826: EXCEPTION
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:
5837: END update_detail_tax_lines_gt;
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:
5876: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
5876: p_return_status := FND_API.G_RET_STS_SUCCESS;
5877:
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:
5949: EXCEPTION
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:
5949: EXCEPTION
5950: WHEN OTHERS THEN
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;
5960: ---------------------------------------------------------------------------
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:
6265: --
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:
6265: --
6266: -- init error buffer and return status
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:
6774: EXCEPTION
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:
6774: EXCEPTION
6775: WHEN OTHERS THEN
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:
6785: END perform_rounding;
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:
6821: --
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:
6821: --
6822: -- init return status
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:
6876: EXCEPTION
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:
6876: EXCEPTION
6877: WHEN OTHERS THEN
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;
6887:
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:
6967: --
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:
6967: --
6968: -- init return status
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:
7009: IF l_count > 0 THEN
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:
7084: EXCEPTION
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:
7084: EXCEPTION
7085: WHEN OTHERS THEN
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:
7098: END convert_and_round_lin_lvl_curr;
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:
7329: --
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:
7329: --
7330: -- init return status
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:
7433: IF l_count > 0 THEN
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:
7636: EXCEPTION
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:
7636: EXCEPTION
7637: WHEN OTHERS 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:
7649: END convert_and_round_hdr_lvl_curr;
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:
7682: --
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:
7682: --
7683: -- init error buffer and return status
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:
7731: EXCEPTION
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:
7731: EXCEPTION
7732: WHEN OTHERS THEN
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:
7742: END convert_and_round_curr;
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:
7851: --
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:
7851: --
7852: -- init error buffer and return status
7954:
7955: --
7956: -- round the tax amount
7957: --
7958: p_tax_amt := ZX_TDS_TAX_ROUNDING_PKG.round_tax(
7959: l_unrounded_tax_amt,
7960: l_rounding_rule_code,
7961: l_trx_min_acct_unit,
7962: l_trx_precision,
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:
7973: EXCEPTION
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:
7973: EXCEPTION
7974: WHEN OTHERS THEN
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:
7987: END round_tax_amt_entered;
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',
8040: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
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',
8040: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
8041: FND_LOG.STRING(g_level_procedure,
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',
8043: 'p_account_id : ' || TO_CHAR(p_account_id));
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:
8046: p_return_status := FND_API.G_RET_STS_SUCCESS;
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:
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:
8120: EXCEPTION
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:
8120: EXCEPTION
8121: WHEN OTHERS THEN
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:
8132: END Get_Supplier_Site;
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:
8132: END Get_Supplier_Site;
8133:
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',
8183: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
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',
8183: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
8184: FND_LOG.STRING(g_level_statement,
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',
8186: 'p_account_id : ' || TO_CHAR(p_account_id));
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',
8189: 'p_site_use_id : ' || TO_CHAR(p_site_use_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:
8192: p_return_status := FND_API.G_RET_STS_SUCCESS;
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 (
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;
8250: EXCEPTION
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;
8250: EXCEPTION
8251: WHEN OTHERS THEN
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;
8262:
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;
8262:
8263: -----------------------------------------------------------------------
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',
8300: 'p_account_id : ' || TO_CHAR(p_account_id)) ;
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',
8300: 'p_account_id : ' || TO_CHAR(p_account_id)) ;
8301:
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;
8303:
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);
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;
8355:
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;
8355:
8356: EXCEPTION
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;
8368:
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;
8368:
8369:
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',
8393: 'p_party_tax_profile_id : ' || TO_CHAR(p_party_tax_profile_id)) ;
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',
8393: 'p_party_tax_profile_id : ' || TO_CHAR(p_party_tax_profile_id)) ;
8394: END IF;
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:
8396: p_return_status := FND_API.G_RET_STS_SUCCESS;
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;
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:
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
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:
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;
8437:
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;
8437:
8438: END Get_Registration_Party;
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',
8470: 'p_parent_ptp_id : ' || TO_CHAR(p_parent_ptp_id));
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',
8470: 'p_parent_ptp_id : ' || TO_CHAR(p_parent_ptp_id));
8471: FND_LOG.STRING(g_level_procedure,
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',
8473: 'p_site_ptp_id : ' || TO_CHAR(p_site_ptp_id));
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',
8476: 'p_account_Type_Code : ' || p_account_Type_Code);
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',
8479: 'p_account_id : ' || TO_CHAR(p_account_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',
8482: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
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',
8485: 'p_site_use_id : ' || TO_CHAR(p_site_use_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;
8488:
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:
8571: EXCEPTION
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:
8571: EXCEPTION
8572: WHEN OTHERS THEN
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:
8582: END get_rounding_level;
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:
8615: END IF;
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:
8615: END IF;
8616:
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 = ' ||
8660: to_char(p_funcl_min_acct_unit)||
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 = ' ||
8660: to_char(p_funcl_min_acct_unit)||
8661: ' precision = ' ||
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:
8676: END get_funcl_curr_info;
8675:
8676: END get_funcl_curr_info;
8677: -----------------------------------------------------------------------
8678:
8679: END ZX_TDS_TAX_ROUNDING_PKG;