[Home] [Help]
1: package body ZX_TDS_TAX_ROUNDING_PKG as
2: /* $Header: zxdiroundtaxpkgb.pls 120.79.12010000.5 2008/11/25 01:25:22 appradha ship $ */
3:
4: /* ======================================================================*
5: | Global Variable |
504: BEGIN
505:
506: IF (g_level_statement >= g_current_runtime_level ) THEN
507: FND_LOG.STRING(g_level_statement,
508: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.BEGIN',
509: 'ZX_TDS_TAX_ROUNDING_PKG: convert_amount(+)');
510: FND_LOG.STRING(g_level_statement,
511: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount',
512: 'p_from_currency = ' || p_from_currency||
505:
506: IF (g_level_statement >= g_current_runtime_level ) THEN
507: FND_LOG.STRING(g_level_statement,
508: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.BEGIN',
509: 'ZX_TDS_TAX_ROUNDING_PKG: convert_amount(+)');
510: FND_LOG.STRING(g_level_statement,
511: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount',
512: 'p_from_currency = ' || p_from_currency||
513: 'p_to_currency = ' || p_to_currency||
507: FND_LOG.STRING(g_level_statement,
508: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.BEGIN',
509: 'ZX_TDS_TAX_ROUNDING_PKG: convert_amount(+)');
510: FND_LOG.STRING(g_level_statement,
511: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount',
512: 'p_from_currency = ' || p_from_currency||
513: 'p_to_currency = ' || p_to_currency||
514: 'p_conversion_date = ' ||
515: to_char(p_conversion_date, 'DD-MON-YY')||
698:
699: IF (g_level_statement >= g_current_runtime_level ) THEN
700:
701: FND_LOG.STRING(g_level_statement,
702: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.END',
703: 'converted amount = '||l_converted_amount);
704: FND_LOG.STRING(g_level_statement,
705: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.END',
706: 'ZX_TDS_TAX_ROUNDING_PKG: convert_amount(-)'||p_return_status);
701: FND_LOG.STRING(g_level_statement,
702: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.END',
703: 'converted amount = '||l_converted_amount);
704: FND_LOG.STRING(g_level_statement,
705: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.END',
706: 'ZX_TDS_TAX_ROUNDING_PKG: convert_amount(-)'||p_return_status);
707: END IF;
708:
709: RETURN l_converted_amount;
702: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.END',
703: 'converted amount = '||l_converted_amount);
704: FND_LOG.STRING(g_level_statement,
705: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount.END',
706: 'ZX_TDS_TAX_ROUNDING_PKG: convert_amount(-)'||p_return_status);
707: END IF;
708:
709: RETURN l_converted_amount;
710:
714: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
715:
716: IF (g_level_unexpected >= g_current_runtime_level ) THEN
717: FND_LOG.STRING(g_level_unexpected,
718: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_amount',
719: p_error_buffer);
720: END IF;
721:
722: END convert_amount;
739: BEGIN
740:
741: IF (g_level_statement >= g_current_runtime_level ) THEN
742: FND_LOG.STRING(g_level_statement,
743: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index.BEGIN',
744: 'ZX_TDS_TAX_ROUNDING_PKG: get_rate_index(+)');
745: END IF;
746:
747: l_tbl_index := dbms_utility.get_hash_value(
740:
741: IF (g_level_statement >= g_current_runtime_level ) THEN
742: FND_LOG.STRING(g_level_statement,
743: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index.BEGIN',
744: 'ZX_TDS_TAX_ROUNDING_PKG: get_rate_index(+)');
745: END IF;
746:
747: l_tbl_index := dbms_utility.get_hash_value(
748: p_from_currency||
754:
755:
756: IF (g_level_statement >= g_current_runtime_level ) THEN
757: FND_LOG.STRING(g_level_statement,
758: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index',
759: 'rate index = ' || to_char(l_tbl_index));
760: FND_LOG.STRING(g_level_statement,
761: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index.END',
762: 'ZX_TDS_TAX_ROUNDING_PKG: get_rate_index(-)');
757: FND_LOG.STRING(g_level_statement,
758: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index',
759: 'rate index = ' || to_char(l_tbl_index));
760: FND_LOG.STRING(g_level_statement,
761: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index.END',
762: 'ZX_TDS_TAX_ROUNDING_PKG: get_rate_index(-)');
763: END IF;
764:
765: RETURN l_tbl_index;
758: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index',
759: 'rate index = ' || to_char(l_tbl_index));
760: FND_LOG.STRING(g_level_statement,
761: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index.END',
762: 'ZX_TDS_TAX_ROUNDING_PKG: get_rate_index(-)');
763: END IF;
764:
765: RETURN l_tbl_index;
766:
768: WHEN OTHERS THEN
769:
770: IF (g_level_unexpected >= g_current_runtime_level ) THEN
771: FND_LOG.STRING(g_level_unexpected,
772: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rate_index',
773: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
774: END IF;
775: RAISE;
776: END get_rate_index;
816: BEGIN
817:
818: IF (g_level_statement >= g_current_runtime_level ) THEN
819: FND_LOG.STRING(g_level_statement,
820: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info.BEGIN',
821: 'ZX_TDS_TAX_ROUNDING_PKG: get_currency_info(+)'||
822: 'p_currency = ' || p_currency||
823: 'p_eff_date = ' || to_char(p_eff_date, 'DD-MON-YY'));
824: END IF;
817:
818: IF (g_level_statement >= g_current_runtime_level ) THEN
819: FND_LOG.STRING(g_level_statement,
820: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info.BEGIN',
821: 'ZX_TDS_TAX_ROUNDING_PKG: get_currency_info(+)'||
822: 'p_currency = ' || p_currency||
823: 'p_eff_date = ' || to_char(p_eff_date, 'DD-MON-YY'));
824: END IF;
825:
862: if getCurrencyInfo%notfound then
863:
864: IF (g_level_statement >= g_current_runtime_level ) THEN
865: FND_LOG.STRING(g_level_statement,
866: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info',
867: 'No currency info found for : ' ||p_currency);
868: END IF;
869:
870: end if;
872: Close getCurrencyInfo;
873:
874: IF (g_level_statement >= g_current_runtime_level ) THEN
875: FND_LOG.STRING(g_level_statement,
876: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info',
877: 'p_currency_type = ' || p_currency_type||
878: 'p_derive_type = ' || p_derive_type||
879: 'p_derive_effective = ' ||
880: to_char(p_derive_effective, 'DD-MON-YY')||
881: 'p_conversion_rate = ' || to_char(p_conversion_rate)||
882: 'p_mau = ' || to_char(p_mau)||
883: 'p_precision = ' || to_char(p_precision));
884: FND_LOG.STRING(g_level_statement,
885: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info.END',
886: 'ZX_TDS_TAX_ROUNDING_PKG: get_currency_info(-)');
887: END IF;
888:
889: EXCEPTION
882: 'p_mau = ' || to_char(p_mau)||
883: 'p_precision = ' || to_char(p_precision));
884: FND_LOG.STRING(g_level_statement,
885: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info.END',
886: 'ZX_TDS_TAX_ROUNDING_PKG: get_currency_info(-)');
887: END IF;
888:
889: EXCEPTION
890: WHEN NO_DATA_FOUND THEN
891: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
892: p_error_buffer := 'Currency type and Currency rate not found in FND_CURRENCIES';
893: IF (g_level_unexpected >= g_current_runtime_level ) THEN
894: FND_LOG.STRING(g_level_unexpected,
895: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info',
896: p_error_buffer);
897: END IF;
898:
899: WHEN OTHERS THEN
901: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
902:
903: IF (g_level_unexpected >= g_current_runtime_level ) THEN
904: FND_LOG.STRING(g_level_unexpected,
905: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info',
906: p_error_buffer);
907: END IF;
908:
909: END get_currency_info;
942: BEGIN
943:
944: IF (g_level_statement >= g_current_runtime_level ) THEN
945: FND_LOG.STRING(g_level_statement,
946: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.BEGIN',
947: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(+)'||
948: 'p_from_currency = ' || p_from_currency||
949: 'p_to_currency = ' || p_to_currency||
950: 'p_conversion_date = ' ||
943:
944: IF (g_level_statement >= g_current_runtime_level ) THEN
945: FND_LOG.STRING(g_level_statement,
946: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.BEGIN',
947: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(+)'||
948: 'p_from_currency = ' || p_from_currency||
949: 'p_to_currency = ' || p_to_currency||
950: 'p_conversion_date = ' ||
951: to_char(p_conversion_date, 'DD-MON-YY')||
970: FETCH get_rate_info_csr INTO l_rate;
971: IF get_rate_info_csr%NOTFOUND THEN
972: IF (g_level_statement >= g_current_runtime_level ) THEN
973: FND_LOG.STRING(g_level_statement,
974: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate',
975: 'No rate found for tax conversion type: ' ||
976: p_tax_conversion_type||
977: ' p_conversion_date = ' ||
978: to_char(p_conversion_date, 'DD-MON-YY'));
985:
986: IF l_rate IS NOT NULL THEN
987: IF (g_level_statement >= g_current_runtime_level ) THEN
988: FND_LOG.STRING(g_level_statement,
989: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.END',
990: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(-)'||
991: 'rate = ' || to_char(l_rate));
992: END IF;
993: RETURN (l_rate);
986: IF l_rate IS NOT NULL THEN
987: IF (g_level_statement >= g_current_runtime_level ) THEN
988: FND_LOG.STRING(g_level_statement,
989: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.END',
990: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(-)'||
991: 'rate = ' || to_char(l_rate));
992: END IF;
993: RETURN (l_rate);
994: END IF;
1008: FETCH get_rate_info_csr INTO l_rate;
1009: IF get_rate_info_csr%NOTFOUND THEN
1010: IF (g_level_statement >= g_current_runtime_level ) THEN
1011: FND_LOG.STRING(g_level_statement,
1012: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate',
1013: 'No rate found for trx conversion type: ' ||
1014: p_tax_conversion_type||
1015: ' p_conversion_date = ' ||
1016: to_char(p_conversion_date, 'DD-MON-YY'));
1023:
1024: IF l_rate IS NOT NULL THEN
1025: IF (g_level_statement >= g_current_runtime_level ) THEN
1026: FND_LOG.STRING(g_level_statement,
1027: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.END',
1028: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(-)'||
1029: 'rate = ' || to_char(l_rate));
1030: END IF;
1031: RETURN (l_rate);
1024: IF l_rate IS NOT NULL THEN
1025: IF (g_level_statement >= g_current_runtime_level ) THEN
1026: FND_LOG.STRING(g_level_statement,
1027: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.END',
1028: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(-)'||
1029: 'rate = ' || to_char(l_rate));
1030: END IF;
1031: RETURN (l_rate);
1032: END IF;
1036: IF p_trx_conversion_date IS NOT NULL THEN
1037:
1038: IF (g_level_statement >= g_current_runtime_level ) THEN
1039: FND_LOG.STRING(g_level_statement,
1040: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate',
1041: 'Getting Rate information based on Currency Converion Date '||
1042: ' P_trx_conversion_date = '||
1043: to_char(p_trx_conversion_date, 'DD-MON-YY'));
1044: END IF;
1054:
1055: IF get_rate_info_csr%NOTFOUND THEN
1056: IF (g_level_statement >= g_current_runtime_level ) THEN
1057: FND_LOG.STRING(g_level_statement,
1058: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate',
1059: 'No rate found for tax conversion type: ' ||
1060: p_tax_conversion_type||
1061: ' P_trx_conversion_date = '||
1062: to_char(p_trx_conversion_date, 'DD-MON-YY'));
1068:
1069: IF l_rate IS NOT NULL THEN
1070: IF (g_level_statement >= g_current_runtime_level ) THEN
1071: FND_LOG.STRING(g_level_statement,
1072: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.END',
1073: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(-)'||
1074: 'rate = ' || to_char(l_rate));
1075: END IF;
1076: RETURN (l_rate);
1069: IF l_rate IS NOT NULL THEN
1070: IF (g_level_statement >= g_current_runtime_level ) THEN
1071: FND_LOG.STRING(g_level_statement,
1072: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.END',
1073: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(-)'||
1074: 'rate = ' || to_char(l_rate));
1075: END IF;
1076: RETURN (l_rate);
1077: END IF;
1099: END IF;
1100:
1101: IF (g_level_error >= g_current_runtime_level ) THEN
1102: FND_LOG.STRING(g_level_error,
1103: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate',
1104: p_error_buffer);
1105: END IF;
1106:
1107: END IF;
1112:
1113:
1114: IF (g_level_statement >= g_current_runtime_level ) THEN
1115: FND_LOG.STRING(g_level_statement,
1116: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.END',
1117: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(-)'||
1118: 'rate = ' || to_char(l_rate));
1119: END IF;
1120:
1113:
1114: IF (g_level_statement >= g_current_runtime_level ) THEN
1115: FND_LOG.STRING(g_level_statement,
1116: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate.END',
1117: 'ZX_TDS_TAX_ROUNDING_PKG: get_other_rate(-)'||
1118: 'rate = ' || to_char(l_rate));
1119: END IF;
1120:
1121: RETURN( l_rate );
1127: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1128:
1129: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1130: FND_LOG.STRING(g_level_unexpected,
1131: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_other_rate',
1132: p_error_buffer);
1133: END IF;
1134:
1135: END get_other_rate;
1148: BEGIN
1149:
1150: IF (g_level_statement >= g_current_runtime_level ) THEN
1151: FND_LOG.STRING(g_level_statement,
1152: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_euro_code.BEGIN',
1153: 'ZX_TDS_TAX_ROUNDING_PKG: get_euro_code(+)');
1154: END IF;
1155:
1156: p_return_status := FND_API.G_RET_STS_SUCCESS;
1149:
1150: IF (g_level_statement >= g_current_runtime_level ) THEN
1151: FND_LOG.STRING(g_level_statement,
1152: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_euro_code.BEGIN',
1153: 'ZX_TDS_TAX_ROUNDING_PKG: get_euro_code(+)');
1154: END IF;
1155:
1156: p_return_status := FND_API.G_RET_STS_SUCCESS;
1157:
1164:
1165: IF (g_level_statement >= g_current_runtime_level ) THEN
1166:
1167: FND_LOG.STRING(g_level_statement,
1168: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_euro_code.END',
1169: 'ZX_TDS_TAX_ROUNDING_PKG: get_euro_code(-)'||' euro_code = ' || euro_code);
1170: END IF;
1171:
1172: RETURN( euro_code );
1165: IF (g_level_statement >= g_current_runtime_level ) THEN
1166:
1167: FND_LOG.STRING(g_level_statement,
1168: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_euro_code.END',
1169: 'ZX_TDS_TAX_ROUNDING_PKG: get_euro_code(-)'||' euro_code = ' || euro_code);
1170: END IF;
1171:
1172: RETURN( euro_code );
1173:
1184: END IF;
1185:
1186: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1187: FND_LOG.STRING(g_level_unexpected,
1188: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_euro_code',
1189: p_error_buffer);
1190: END IF;
1191:
1192: WHEN OTHERS THEN
1194: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1195:
1196: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1197: FND_LOG.STRING(g_level_unexpected,
1198: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_euro_code',
1199: p_error_buffer);
1200: END IF;
1201:
1202: END get_euro_code;
1225: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1226:
1227: IF (g_level_procedure >= g_current_runtime_level ) THEN
1228: FND_LOG.STRING(g_level_procedure,
1229: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax.BEGIN',
1230: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax(+)'||
1231: 'round rule = ' || p_Rounding_Rule_Code||
1232: 'p_min_acct_unit = ' || to_char(p_min_acct_unit)||
1233: 'p_precision = ' || to_char(p_precision));
1226:
1227: IF (g_level_procedure >= g_current_runtime_level ) THEN
1228: FND_LOG.STRING(g_level_procedure,
1229: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax.BEGIN',
1230: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax(+)'||
1231: 'round rule = ' || p_Rounding_Rule_Code||
1232: 'p_min_acct_unit = ' || to_char(p_min_acct_unit)||
1233: 'p_precision = ' || to_char(p_precision));
1234: END IF;
1243:
1244: IF (g_level_statement >= g_current_runtime_level ) THEN
1245:
1246: FND_LOG.STRING(g_level_statement,
1247: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax.END',
1248: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax(-)'||
1249: 'Not enough info to perform rounding '||
1250: 'Amount, Rounding rule, Mau, or Precison is NULL');
1251: END IF;
1244: IF (g_level_statement >= g_current_runtime_level ) THEN
1245:
1246: FND_LOG.STRING(g_level_statement,
1247: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax.END',
1248: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax(-)'||
1249: 'Not enough info to perform rounding '||
1250: 'Amount, Rounding rule, Mau, or Precison is NULL');
1251: END IF;
1252:
1303:
1304: IF (g_level_procedure >= g_current_runtime_level ) THEN
1305:
1306: FND_LOG.STRING(g_level_procedure,
1307: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax.END',
1308: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax(-)'||p_return_status);
1309: END IF;
1310:
1311: RETURN l_rounded_amt;
1304: IF (g_level_procedure >= g_current_runtime_level ) THEN
1305:
1306: FND_LOG.STRING(g_level_procedure,
1307: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax.END',
1308: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax(-)'||p_return_status);
1309: END IF;
1310:
1311: RETURN l_rounded_amt;
1312:
1318: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT','round_tax- '|| p_error_buffer);
1319: FND_MSG_PUB.Add;
1320: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1321: FND_LOG.STRING(g_level_unexpected,
1322: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax',
1323: p_error_buffer);
1324: END IF;
1325:
1326: WHEN OTHERS THEN
1327: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1328: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1329: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1330: FND_LOG.STRING(g_level_unexpected,
1331: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax',
1332: p_error_buffer);
1333: END IF;
1334:
1335: END round_tax;
1355: BEGIN
1356:
1357: IF (g_level_statement >= g_current_runtime_level ) THEN
1358: FND_LOG.STRING(g_level_statement,
1359: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.det_rounding_level_basis.BEGIN',
1360: 'ZX_TDS_TAX_ROUNDING_PKG: det_rounding_level_basis(+)'||
1361: 'Party_Type_Code = ' || p_Party_Type_Code);
1362: END IF;
1363:
1356:
1357: IF (g_level_statement >= g_current_runtime_level ) THEN
1358: FND_LOG.STRING(g_level_statement,
1359: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.det_rounding_level_basis.BEGIN',
1360: 'ZX_TDS_TAX_ROUNDING_PKG: det_rounding_level_basis(+)'||
1361: 'Party_Type_Code = ' || p_Party_Type_Code);
1362: END IF;
1363:
1364: p_return_status := FND_API.G_RET_STS_SUCCESS;
1381: p_error_buffer := 'Invalid Rounding Level Hierarchy';
1382:
1383: IF (g_level_statement >= g_current_runtime_level ) THEN
1384: FND_LOG.STRING(g_level_statement,
1385: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.det_rounding_level_basis.END',
1386: 'ZX_TDS_TAX_ROUNDING_PKG: det_rounding_level_basis(-)'||
1387: 'p_return_status = ' || p_return_status||
1388: 'p_error_buffer = ' || p_error_buffer);
1389: END IF;
1382:
1383: IF (g_level_statement >= g_current_runtime_level ) THEN
1384: FND_LOG.STRING(g_level_statement,
1385: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.det_rounding_level_basis.END',
1386: 'ZX_TDS_TAX_ROUNDING_PKG: det_rounding_level_basis(-)'||
1387: 'p_return_status = ' || p_return_status||
1388: 'p_error_buffer = ' || p_error_buffer);
1389: END IF;
1390:
1393:
1394: IF (g_level_statement >= g_current_runtime_level ) THEN
1395:
1396: FND_LOG.STRING(g_level_statement,
1397: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.det_rounding_level_basis.END',
1398: 'ZX_TDS_TAX_ROUNDING_PKG: det_rounding_level_basis(-)'||
1399: 'p_rounding_level_basis = ' || p_rounding_level_basis);
1400: END IF;
1401:
1394: IF (g_level_statement >= g_current_runtime_level ) THEN
1395:
1396: FND_LOG.STRING(g_level_statement,
1397: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.det_rounding_level_basis.END',
1398: 'ZX_TDS_TAX_ROUNDING_PKG: det_rounding_level_basis(-)'||
1399: 'p_rounding_level_basis = ' || p_rounding_level_basis);
1400: END IF;
1401:
1402: EXCEPTION
1405: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1406:
1407: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1408: FND_LOG.STRING(g_level_unexpected,
1409: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.det_rounding_level_basis',
1410: p_error_buffer);
1411: END IF;
1412:
1413: END det_rounding_level_basis;
1452: BEGIN
1453:
1454: IF (g_level_procedure >= g_current_runtime_level ) THEN
1455: FND_LOG.STRING(g_level_procedure,
1456: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule.BEGIN',
1457: 'ZX_TDS_TAX_ROUNDING_PKG: determine_round_level_and_rule(+)');
1458: END IF;
1459:
1460: p_return_status := FND_API.G_RET_STS_SUCCESS;
1453:
1454: IF (g_level_procedure >= g_current_runtime_level ) THEN
1455: FND_LOG.STRING(g_level_procedure,
1456: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule.BEGIN',
1457: 'ZX_TDS_TAX_ROUNDING_PKG: determine_round_level_and_rule(+)');
1458: END IF;
1459:
1460: p_return_status := FND_API.G_RET_STS_SUCCESS;
1461:
1538: p_error_buffer := 'Invalid Rounding Level Hierarchy';
1539:
1540: IF (g_level_statement >= g_current_runtime_level ) THEN
1541: FND_LOG.STRING(g_level_statement,
1542: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1543: 'p_return_status = ' || p_return_status);
1544: FND_LOG.STRING(g_level_statement,
1545: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1546: 'p_error_buffer = ' || p_error_buffer);
1541: FND_LOG.STRING(g_level_statement,
1542: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1543: 'p_return_status = ' || p_return_status);
1544: FND_LOG.STRING(g_level_statement,
1545: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1546: 'p_error_buffer = ' || p_error_buffer);
1547: END IF;
1548: RETURN;
1549: END IF;
1586:
1587: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1588: IF (g_level_statement >= g_current_runtime_level ) THEN
1589: FND_LOG.STRING(g_level_statement,
1590: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1591: 'Incorrect return_status after calling ' ||
1592: 'get_rounding_level()');
1593:
1594: END IF;
1616: p_rounding_rule_code := NULL;
1617:
1618: IF (g_level_statement >= g_current_runtime_level ) THEN
1619: FND_LOG.STRING(g_level_statement,
1620: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1621: 'p_tax_prof_id IS NULL.');
1622: END IF;
1623: END IF; -- p_tax_prof_id IS NOT NULL, OR ELSE
1624:
1624:
1625: IF (g_level_procedure >= g_current_runtime_level ) THEN
1626:
1627: FND_LOG.STRING(g_level_procedure,
1628: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule.END',
1629: 'ZX_TDS_TAX_ROUNDING_PKG: determine_round_level_and_rule(-)'||
1630: 'p_rounding_level_code = ' || p_rounding_level_code||
1631: 'p_rounding_rule_code = ' || p_rounding_rule_code);
1632: END IF;
1625: IF (g_level_procedure >= g_current_runtime_level ) THEN
1626:
1627: FND_LOG.STRING(g_level_procedure,
1628: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule.END',
1629: 'ZX_TDS_TAX_ROUNDING_PKG: determine_round_level_and_rule(-)'||
1630: 'p_rounding_level_code = ' || p_rounding_level_code||
1631: 'p_rounding_rule_code = ' || p_rounding_rule_code);
1632: END IF;
1633:
1637: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1638:
1639: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1640: FND_LOG.STRING(g_level_unexpected,
1641: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_round_level_and_rule',
1642: p_error_buffer);
1643: END IF;
1644:
1645: END determine_round_level_and_rule;
1682: BEGIN
1683:
1684: IF (g_level_procedure >= g_current_runtime_level ) THEN
1685: FND_LOG.STRING(g_level_procedure,
1686: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule.BEGIN',
1687: 'ZX_TDS_TAX_ROUNDING_PKG: determine_rounding_rule(+)');
1688: END IF;
1689:
1690: p_return_status := FND_API.G_RET_STS_SUCCESS;
1683:
1684: IF (g_level_procedure >= g_current_runtime_level ) THEN
1685: FND_LOG.STRING(g_level_procedure,
1686: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule.BEGIN',
1687: 'ZX_TDS_TAX_ROUNDING_PKG: determine_rounding_rule(+)');
1688: END IF;
1689:
1690: p_return_status := FND_API.G_RET_STS_SUCCESS;
1691:
1763: END IF;
1764:
1765: IF (g_level_statement >= g_current_runtime_level ) THEN
1766: FND_LOG.STRING(g_level_statement,
1767: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1768: 'l_tax_prof_id = ' || to_char(l_tax_prof_id));
1769: END IF;
1770:
1771: -- Following line commented out for Bug 4939819 fix
1797: p_error_buffer := 'Invalid Rounding Level Hierarchy';
1798:
1799: IF (g_level_statement >= g_current_runtime_level ) THEN
1800: FND_LOG.STRING(g_level_statement,
1801: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1802: 'p_return_status = ' || p_return_status);
1803: FND_LOG.STRING(g_level_statement,
1804: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1805: 'p_error_buffer = ' || p_error_buffer);
1800: FND_LOG.STRING(g_level_statement,
1801: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1802: 'p_return_status = ' || p_return_status);
1803: FND_LOG.STRING(g_level_statement,
1804: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1805: 'p_error_buffer = ' || p_error_buffer);
1806: END IF;
1807: RETURN;
1808: END IF;
1826:
1827: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1828: IF (g_level_error >= g_current_runtime_level ) THEN
1829: FND_LOG.STRING(g_level_error,
1830: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1831: 'Incorrect return_status after calling ' ||
1832: 'ZX_TCM_CONTROL_PKG.get_tax_registration()');
1833: FND_LOG.STRING(g_level_error,
1834: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1830: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1831: 'Incorrect return_status after calling ' ||
1832: 'ZX_TCM_CONTROL_PKG.get_tax_registration()');
1833: FND_LOG.STRING(g_level_error,
1834: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1835: 'Continue processing ...');
1836: END IF;
1837: p_rounding_rule_code := NULL;
1838: p_return_status := FND_API.G_RET_STS_SUCCESS;
1852: p_rounding_rule_code := NULL;
1853:
1854: IF (g_level_statement >= g_current_runtime_level ) THEN
1855: FND_LOG.STRING(g_level_statement,
1856: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1857: 'l_tax_prof_id IS NULL.');
1858: END IF;
1859: END IF; -- l_tax_prof_id IS NOT NULL, OR ELSE
1860:
1860:
1861: IF (g_level_procedure >= g_current_runtime_level ) THEN
1862:
1863: FND_LOG.STRING(g_level_procedure,
1864: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule.END',
1865: 'ZX_TDS_TAX_ROUNDING_PKG: determine_rounding_rule(-)'||
1866: 'p_rounding_rule_code = ' || p_rounding_rule_code);
1867: END IF;
1868:
1861: IF (g_level_procedure >= g_current_runtime_level ) THEN
1862:
1863: FND_LOG.STRING(g_level_procedure,
1864: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule.END',
1865: 'ZX_TDS_TAX_ROUNDING_PKG: determine_rounding_rule(-)'||
1866: 'p_rounding_rule_code = ' || p_rounding_rule_code);
1867: END IF;
1868:
1869: EXCEPTION
1872: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
1873:
1874: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1875: FND_LOG.STRING(g_level_unexpected,
1876: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_rounding_rule',
1877: p_error_buffer);
1878: END IF;
1879:
1880: END determine_rounding_rule;
1903: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1904:
1905: IF (g_level_procedure >= g_current_runtime_level ) THEN
1906: FND_LOG.STRING(g_level_procedure,
1907: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_rule.BEGIN',
1908: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_rule(+)');
1909: END IF;
1910:
1911: p_return_status := FND_API.G_RET_STS_SUCCESS;
1904:
1905: IF (g_level_procedure >= g_current_runtime_level ) THEN
1906: FND_LOG.STRING(g_level_procedure,
1907: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_rule.BEGIN',
1908: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_rule(+)');
1909: END IF;
1910:
1911: p_return_status := FND_API.G_RET_STS_SUCCESS;
1912:
2003: END IF;
2004:
2005: IF (g_level_procedure >= g_current_runtime_level ) THEN
2006: FND_LOG.STRING(g_level_procedure,
2007: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_rule.END',
2008: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_rule(-)');
2009: END IF;
2010:
2011: EXCEPTION
2004:
2005: IF (g_level_procedure >= g_current_runtime_level ) THEN
2006: FND_LOG.STRING(g_level_procedure,
2007: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_rule.END',
2008: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_rule(-)');
2009: END IF;
2010:
2011: EXCEPTION
2012: WHEN OTHERS THEN
2014: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2015:
2016: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2017: FND_LOG.STRING(g_level_unexpected,
2018: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_rule',
2019: p_error_buffer);
2020: END IF;
2021:
2022: END get_rounding_rule;
2043: BEGIN
2044:
2045: IF (g_level_procedure >= g_current_runtime_level ) THEN
2046: FND_LOG.STRING(g_level_procedure,
2047: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_round_level_ptp_id.BEGIN',
2048: 'ZX_TDS_TAX_ROUNDING_PKG: get_round_level_ptp_id(+)');
2049: END IF;
2050:
2051: p_return_status := FND_API.G_RET_STS_SUCCESS;
2044:
2045: IF (g_level_procedure >= g_current_runtime_level ) THEN
2046: FND_LOG.STRING(g_level_procedure,
2047: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_round_level_ptp_id.BEGIN',
2048: 'ZX_TDS_TAX_ROUNDING_PKG: get_round_level_ptp_id(+)');
2049: END IF;
2050:
2051: p_return_status := FND_API.G_RET_STS_SUCCESS;
2052:
2094: END IF;
2095:
2096: IF (g_level_procedure >= g_current_runtime_level ) THEN
2097: FND_LOG.STRING(g_level_procedure,
2098: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_round_level_ptp_id.END',
2099: 'ZX_TDS_TAX_ROUNDING_PKG: get_round_level_ptp_id(-)'||
2100: 'p_tax_prof_id = ' || to_char(p_tax_prof_id));
2101: END IF;
2102:
2095:
2096: IF (g_level_procedure >= g_current_runtime_level ) THEN
2097: FND_LOG.STRING(g_level_procedure,
2098: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_round_level_ptp_id.END',
2099: 'ZX_TDS_TAX_ROUNDING_PKG: get_round_level_ptp_id(-)'||
2100: 'p_tax_prof_id = ' || to_char(p_tax_prof_id));
2101: END IF;
2102:
2103: EXCEPTION
2106: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2107:
2108: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2109: FND_LOG.STRING(g_level_unexpected,
2110: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_round_level_ptp_id',
2111: p_error_buffer);
2112: END IF;
2113:
2114: END get_round_level_ptp_id;
2205: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2206:
2207: IF (g_level_procedure >= g_current_runtime_level ) THEN
2208: FND_LOG.STRING(g_level_procedure,
2209: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule.BEGIN',
2210: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level_and_rule(+)');
2211:
2212: END IF;
2213:
2206:
2207: IF (g_level_procedure >= g_current_runtime_level ) THEN
2208: FND_LOG.STRING(g_level_procedure,
2209: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule.BEGIN',
2210: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level_and_rule(+)');
2211:
2212: END IF;
2213:
2214: p_return_status := FND_API.G_RET_STS_SUCCESS;
2241: p_rounding_lvl_party_type := p_event_class_rec.rounding_level_hier_1_code;
2242:
2243: IF (g_level_statement >= g_current_runtime_level ) THEN
2244: FND_LOG.STRING(g_level_statement,
2245: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2246: 'from rounding_level_hier_1_code p_rnd_lvl_party_tax_prof_id: '||
2247: p_rnd_lvl_party_tax_prof_id ||' p_rounding_lvl_party_type: '||
2248: p_rounding_lvl_party_type );
2249: END IF;
2270: p_rounding_lvl_party_type := p_event_class_rec.rounding_level_hier_2_code;
2271:
2272: IF (g_level_statement >= g_current_runtime_level ) THEN
2273: FND_LOG.STRING(g_level_statement,
2274: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2275: 'from rounding_level_hier_2_code p_rnd_lvl_party_tax_prof_id: '||
2276: p_rnd_lvl_party_tax_prof_id ||' p_rounding_lvl_party_type: '||
2277: p_rounding_lvl_party_type );
2278: END IF;
2298: p_rounding_lvl_party_type := p_event_class_rec.rounding_level_hier_3_code;
2299:
2300: IF (g_level_statement >= g_current_runtime_level ) THEN
2301: FND_LOG.STRING(g_level_statement,
2302: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2303: 'from rounding_level_hier_3_code p_rnd_lvl_party_tax_prof_id: '||
2304: p_rnd_lvl_party_tax_prof_id ||' p_rounding_lvl_party_type: '||
2305: p_rounding_lvl_party_type );
2306: END IF;
2326: p_rounding_lvl_party_type := p_event_class_rec.rounding_level_hier_4_code;
2327:
2328: IF (g_level_statement >= g_current_runtime_level ) THEN
2329: FND_LOG.STRING(g_level_statement,
2330: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2331: 'from rounding_level_hier_4_code p_rnd_lvl_party_tax_prof_id: '||
2332: p_rnd_lvl_party_tax_prof_id ||' p_rounding_lvl_party_type: '||
2333: p_rounding_lvl_party_type );
2334: END IF;
2410:
2411: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2412: IF (g_level_error >= g_current_runtime_level ) THEN
2413: FND_LOG.STRING(g_level_error,
2414: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2415: 'Incorrect return_status after calling ' ||
2416: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_date()');
2417: FND_LOG.STRING(g_level_error,
2418: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2414: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2415: 'Incorrect return_status after calling ' ||
2416: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_date()');
2417: FND_LOG.STRING(g_level_error,
2418: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2419: 'RETURN_STATUS = ' || p_return_status);
2420: FND_LOG.STRING(g_level_error,
2421: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule.END',
2422: 'ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule(-)');
2417: FND_LOG.STRING(g_level_error,
2418: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2419: 'RETURN_STATUS = ' || p_return_status);
2420: FND_LOG.STRING(g_level_error,
2421: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule.END',
2422: 'ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule(-)');
2423: END IF;
2424: RETURN;
2425: END IF;
2418: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2419: 'RETURN_STATUS = ' || p_return_status);
2420: FND_LOG.STRING(g_level_error,
2421: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule.END',
2422: 'ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule(-)');
2423: END IF;
2424: RETURN;
2425: END IF;
2426:
2592: IF NOT l_rounding_level_found THEN
2593: p_rounding_level_code := p_event_class_rec.Default_Rounding_Level_Code;
2594: IF (g_level_procedure >= g_current_runtime_level ) THEN
2595: FND_LOG.STRING(g_level_procedure,
2596: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2597: 'get default rounding level from event class record '||p_rounding_level_code);
2598: END IF;
2599: END IF;
2600:
2599: END IF;
2600:
2601: IF (g_level_procedure >= g_current_runtime_level ) THEN
2602: FND_LOG.STRING(g_level_procedure,
2603: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule.END',
2604: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level_and_rule(-)'||'rounding level code :'||p_rounding_level_code);
2605: END IF;
2606:
2607: EXCEPTION
2600:
2601: IF (g_level_procedure >= g_current_runtime_level ) THEN
2602: FND_LOG.STRING(g_level_procedure,
2603: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule.END',
2604: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level_and_rule(-)'||'rounding level code :'||p_rounding_level_code);
2605: END IF;
2606:
2607: EXCEPTION
2608: WHEN OTHERS THEN
2610: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2611:
2612: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2613: FND_LOG.STRING(g_level_unexpected,
2614: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level_and_rule',
2615: p_error_buffer);
2616: END IF;
2617:
2618: END get_rounding_level_and_rule;
2636: BEGIN
2637:
2638: IF (g_level_procedure >= g_current_runtime_level ) THEN
2639: FND_LOG.STRING(g_level_procedure,
2640: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.init_header_group.BEGIN',
2641: 'ZX_TDS_TAX_ROUNDING_PKG: init_header_group(+)');
2642: END IF;
2643:
2644: p_return_status := FND_API.G_RET_STS_SUCCESS;
2637:
2638: IF (g_level_procedure >= g_current_runtime_level ) THEN
2639: FND_LOG.STRING(g_level_procedure,
2640: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.init_header_group.BEGIN',
2641: 'ZX_TDS_TAX_ROUNDING_PKG: init_header_group(+)');
2642: END IF;
2643:
2644: p_return_status := FND_API.G_RET_STS_SUCCESS;
2645:
2698:
2699: IF (g_level_procedure >= g_current_runtime_level ) THEN
2700:
2701: FND_LOG.STRING(g_level_procedure,
2702: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.init_header_group.END',
2703: 'ZX_TDS_TAX_ROUNDING_PKG: init_header_group(-)'||p_return_status);
2704: END IF;
2705:
2706: EXCEPTION
2699: IF (g_level_procedure >= g_current_runtime_level ) THEN
2700:
2701: FND_LOG.STRING(g_level_procedure,
2702: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.init_header_group.END',
2703: 'ZX_TDS_TAX_ROUNDING_PKG: init_header_group(-)'||p_return_status);
2704: END IF;
2705:
2706: EXCEPTION
2707: WHEN OTHERS THEN
2709: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2710:
2711: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2712: FND_LOG.STRING(g_level_unexpected,
2713: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.init_header_group ',
2714: p_error_buffer);
2715: END IF;
2716:
2717: END init_header_group;
2736: BEGIN
2737:
2738: IF (g_level_procedure >= g_current_runtime_level ) THEN
2739: FND_LOG.STRING(g_level_procedure,
2740: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group.BEGIN',
2741: 'ZX_TDS_TAX_ROUNDING_PKG: determine_header_group(+)');
2742: END IF;
2743:
2744: p_return_status := FND_API.G_RET_STS_SUCCESS;
2737:
2738: IF (g_level_procedure >= g_current_runtime_level ) THEN
2739: FND_LOG.STRING(g_level_procedure,
2740: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group.BEGIN',
2741: 'ZX_TDS_TAX_ROUNDING_PKG: determine_header_group(+)');
2742: END IF;
2743:
2744: p_return_status := FND_API.G_RET_STS_SUCCESS;
2745:
2851: NVL(p_curr_hdr_grp_rec.record_type_code,'X')
2852: ) THEN
2853: IF (g_level_statement >= g_current_runtime_level ) THEN
2854: FND_LOG.STRING(g_level_statement,
2855: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group',
2856: ' SAME tax N');
2857: END IF;
2858: p_same_tax := 'N';
2859: ELSE
2858: p_same_tax := 'N';
2859: ELSE
2860: IF (g_level_statement >= g_current_runtime_level ) THEN
2861: FND_LOG.STRING(g_level_statement,
2862: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group',
2863: ' SAME tax Y');
2864: END IF;
2865: p_same_tax := 'Y';
2866: END IF;
2871: --
2872:
2873: IF (g_level_statement >= g_current_runtime_level ) THEN
2874: FND_LOG.STRING(g_level_statement,
2875: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group',
2876: ' New header rounding group '||
2877: 'tax_regime_code = ' || p_curr_hdr_grp_rec.tax_regime_code||
2878: 'tax = ' || p_curr_hdr_grp_rec.tax||
2879: 'tax_status_code = ' || p_curr_hdr_grp_rec.tax_status_code||
2925: 'adjusted_doc_trx_id = ' ||
2926: to_char(p_curr_hdr_grp_rec.adjusted_doc_trx_id ) );
2927:
2928: FND_LOG.STRING(g_level_statement,
2929: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group',
2930: 'tax_exemption_id = ' ||
2931: to_char(p_curr_hdr_grp_rec.tax_exemption_id ) ||
2932: 'tax_rate_before_exemption = ' ||
2933: to_char(p_curr_hdr_grp_rec.tax_rate_before_exemption )||
2970:
2971: IF (g_level_procedure >= g_current_runtime_level ) THEN
2972:
2973: FND_LOG.STRING(g_level_procedure,
2974: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group.END',
2975: 'ZX_TDS_TAX_ROUNDING_PKG: determine_header_group(-)'||
2976: p_return_status);
2977: END IF;
2978:
2971: IF (g_level_procedure >= g_current_runtime_level ) THEN
2972:
2973: FND_LOG.STRING(g_level_procedure,
2974: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group.END',
2975: 'ZX_TDS_TAX_ROUNDING_PKG: determine_header_group(-)'||
2976: p_return_status);
2977: END IF;
2978:
2979: EXCEPTION
2981: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2982: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
2983: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2984: FND_LOG.STRING(g_level_unexpected,
2985: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.determine_header_group' ,
2986: p_error_buffer);
2987: END IF;
2988:
2989: END determine_header_group;
3013: BEGIN
3014:
3015: IF (g_level_statement >= g_current_runtime_level ) THEN
3016: FND_LOG.STRING(g_level_statement,
3017: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info_for_rounding.BEGIN',
3018: 'ZX_TDS_TAX_ROUNDING_PKG: get_currency_info_for_rounding(+)'||
3019: 'p_currency_code = ' || p_currency_code);
3020: END IF;
3021:
3014:
3015: IF (g_level_statement >= g_current_runtime_level ) THEN
3016: FND_LOG.STRING(g_level_statement,
3017: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info_for_rounding.BEGIN',
3018: 'ZX_TDS_TAX_ROUNDING_PKG: get_currency_info_for_rounding(+)'||
3019: 'p_currency_code = ' || p_currency_code);
3020: END IF;
3021:
3022: p_return_status := FND_API.G_RET_STS_SUCCESS;
3061:
3062: IF (g_level_statement >= g_current_runtime_level ) THEN
3063:
3064: FND_LOG.STRING(g_level_statement,
3065: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info_for_rounding.END',
3066: 'ZX_TDS_TAX_ROUNDING_PKG: get_currency_info_for_rounding(-)'||p_return_status);
3067: END IF;
3068:
3069: EXCEPTION
3062: IF (g_level_statement >= g_current_runtime_level ) THEN
3063:
3064: FND_LOG.STRING(g_level_statement,
3065: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info_for_rounding.END',
3066: 'ZX_TDS_TAX_ROUNDING_PKG: get_currency_info_for_rounding(-)'||p_return_status);
3067: END IF;
3068:
3069: EXCEPTION
3070: WHEN OTHERS THEN
3072: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3073:
3074: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3075: FND_LOG.STRING(g_level_unexpected,
3076: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_currency_info_for_rounding',
3077: p_error_buffer);
3078: END IF;
3079:
3080: END get_currency_info_for_rounding;
3105: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3106:
3107: IF (g_level_statement >= g_current_runtime_level ) THEN
3108: FND_LOG.STRING(g_level_statement,
3109: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency.BEGIN',
3110: 'ZX_TDS_TAX_ROUNDING_PKG: convert_to_currency(+)'||
3111: 'p_to_curr_conv_rate = ' || to_char(p_to_curr_conv_rate));
3112: END IF;
3113:
3106:
3107: IF (g_level_statement >= g_current_runtime_level ) THEN
3108: FND_LOG.STRING(g_level_statement,
3109: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency.BEGIN',
3110: 'ZX_TDS_TAX_ROUNDING_PKG: convert_to_currency(+)'||
3111: 'p_to_curr_conv_rate = ' || to_char(p_to_curr_conv_rate));
3112: END IF;
3113:
3114: p_return_status := FND_API.G_RET_STS_SUCCESS;
3129: p_to_amt := NULL;
3130:
3131: IF (g_level_statement >= g_current_runtime_level ) THEN
3132: FND_LOG.STRING(g_level_statement,
3133: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency',
3134: 'ZX_TDS_TAX_ROUNDING_PKG: convert_to_currency(+)'||
3135: ' both conversion type and rate are NULL ' );
3136: END IF;
3137:
3130:
3131: IF (g_level_statement >= g_current_runtime_level ) THEN
3132: FND_LOG.STRING(g_level_statement,
3133: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency',
3134: 'ZX_TDS_TAX_ROUNDING_PKG: convert_to_currency(+)'||
3135: ' both conversion type and rate are NULL ' );
3136: END IF;
3137:
3138: RETURN;
3145: IF g_tax_curr_conv_rate_tbl.EXISTS(l_rate_index) THEN
3146:
3147: IF (g_level_statement >= g_current_runtime_level ) THEN
3148: FND_LOG.STRING(g_level_statement,
3149: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency',
3150: 'get rate from cache, at index = ' ||
3151: to_char(l_rate_index));
3152: END IF;
3153:
3173:
3174: IF (g_level_statement >= g_current_runtime_level ) THEN
3175:
3176: FND_LOG.STRING(g_level_statement,
3177: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency.END',
3178: 'ZX_TDS_TAX_ROUNDING_PKG: convert_to_currency(-)'||
3179: 'conversion rate = ' || to_char(p_to_curr_conv_rate)||
3180: 'p_return_status = ' || p_return_status);
3181: END IF;
3174: IF (g_level_statement >= g_current_runtime_level ) THEN
3175:
3176: FND_LOG.STRING(g_level_statement,
3177: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency.END',
3178: 'ZX_TDS_TAX_ROUNDING_PKG: convert_to_currency(-)'||
3179: 'conversion rate = ' || to_char(p_to_curr_conv_rate)||
3180: 'p_return_status = ' || p_return_status);
3181: END IF;
3182:
3186: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3187:
3188: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3189: FND_LOG.STRING(g_level_unexpected,
3190: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_to_currency',
3191: p_error_buffer);
3192: END IF;
3193:
3194: END convert_to_currency;
3218: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3219:
3220: IF (g_level_procedure >= g_current_runtime_level ) THEN
3221: FND_LOG.STRING(g_level_procedure,
3222: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_funcl_curr.BEGIN',
3223: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax_funcl_curr(+)'||
3224: ' unround amount in functional currency = ' ||
3225: to_char(p_unround_amt));
3226:
3219:
3220: IF (g_level_procedure >= g_current_runtime_level ) THEN
3221: FND_LOG.STRING(g_level_procedure,
3222: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_funcl_curr.BEGIN',
3223: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax_funcl_curr(+)'||
3224: ' unround amount in functional currency = ' ||
3225: to_char(p_unround_amt));
3226:
3227: END IF;
3254: -- min acct unit of this functional currency is null
3255: --
3256: IF (g_level_statement >= g_current_runtime_level ) THEN
3257: FND_LOG.STRING(g_level_statement,
3258: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_funcl_curr',
3259: 'l_min_acct_unit = ' || to_char(l_min_acct_unit)||
3260: ' l_precision = ' || to_char(l_precision) );
3261: END IF;
3262:
3265:
3266: IF (g_level_procedure >= g_current_runtime_level ) THEN
3267:
3268: FND_LOG.STRING(g_level_procedure,
3269: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_funcl_curr.END',
3270: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax_funcl_curr(-)'||
3271: 'unround amount in functional currency = ' ||
3272: to_char(p_unround_amt)||
3273: 'rounded amount in functional currency = ' ||
3266: IF (g_level_procedure >= g_current_runtime_level ) THEN
3267:
3268: FND_LOG.STRING(g_level_procedure,
3269: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_funcl_curr.END',
3270: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax_funcl_curr(-)'||
3271: 'unround amount in functional currency = ' ||
3272: to_char(p_unround_amt)||
3273: 'rounded amount in functional currency = ' ||
3274: to_char(l_round_amt));
3283: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3284:
3285: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3286: FND_LOG.STRING(g_level_unexpected,
3287: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_funcl_curr',
3288: p_error_buffer);
3289: END IF;
3290:
3291: END round_tax_funcl_curr;
3319: BEGIN
3320:
3321: IF (g_level_statement >= g_current_runtime_level ) THEN
3322: FND_LOG.STRING(g_level_statement,
3323: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_tax_curr.BEGIN',
3324: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_tax_tax_curr(+)'||
3325: 'p_tax_curr_conv_rate = ' || to_char(p_tax_curr_conv_rate));
3326:
3327: END IF;
3320:
3321: IF (g_level_statement >= g_current_runtime_level ) THEN
3322: FND_LOG.STRING(g_level_statement,
3323: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_tax_curr.BEGIN',
3324: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_tax_tax_curr(+)'||
3325: 'p_tax_curr_conv_rate = ' || to_char(p_tax_curr_conv_rate));
3326:
3327: END IF;
3328:
3345: p_trx_conversion_date);--Bug7183884
3346:
3347: IF (g_level_statement >= g_current_runtime_level ) THEN
3348: FND_LOG.STRING(g_level_statement,
3349: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_tax_curr',
3350: 'tax conversion rate = ' || to_char(p_tax_curr_conv_rate)||
3351: 'unround tax amt tax currency = ' || to_char(l_amt_tax_curr));
3352: END IF;
3353:
3367:
3368: IF (g_level_statement >= g_current_runtime_level ) THEN
3369:
3370: FND_LOG.STRING(g_level_statement,
3371: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_tax_curr.END',
3372: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_tax_tax_curr(-)'||
3373: 'rounded amount = ' || to_char(p_convert_round_amt));
3374: END IF;
3375:
3368: IF (g_level_statement >= g_current_runtime_level ) THEN
3369:
3370: FND_LOG.STRING(g_level_statement,
3371: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_tax_curr.END',
3372: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_tax_tax_curr(-)'||
3373: 'rounded amount = ' || to_char(p_convert_round_amt));
3374: END IF;
3375:
3376: EXCEPTION
3379: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3380:
3381: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3382: FND_LOG.STRING(g_level_unexpected,
3383: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_tax_curr',
3384: p_error_buffer);
3385: END IF;
3386:
3387: END conv_rnd_tax_tax_curr;
3410:
3411: BEGIN
3412: IF (g_level_statement >= g_current_runtime_level ) THEN
3413: FND_LOG.STRING(g_level_statement,
3414: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_funcl_curr.BEGIN',
3415: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_tax_funcl_curr(+)'||
3416: 'p_funcl_curr_conv_rate = ' || to_char(p_funcl_curr_conv_rate));
3417:
3418: END IF;
3411: BEGIN
3412: IF (g_level_statement >= g_current_runtime_level ) THEN
3413: FND_LOG.STRING(g_level_statement,
3414: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_funcl_curr.BEGIN',
3415: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_tax_funcl_curr(+)'||
3416: 'p_funcl_curr_conv_rate = ' || to_char(p_funcl_curr_conv_rate));
3417:
3418: END IF;
3419:
3442:
3443: IF (g_level_statement >= g_current_runtime_level ) THEN
3444:
3445: FND_LOG.STRING(g_level_statement,
3446: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_funcl_curr.END',
3447: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_tax_funcl_curr(-)'||'convert round amt: '||p_convert_round_amt);
3448: END IF;
3449:
3450: EXCEPTION
3443: IF (g_level_statement >= g_current_runtime_level ) THEN
3444:
3445: FND_LOG.STRING(g_level_statement,
3446: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_funcl_curr.END',
3447: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_tax_funcl_curr(-)'||'convert round amt: '||p_convert_round_amt);
3448: END IF;
3449:
3450: EXCEPTION
3451: WHEN OTHERS THEN
3453: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3454:
3455: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3456: FND_LOG.STRING(g_level_unexpected,
3457: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_tax_funcl_curr',
3458: p_error_buffer);
3459: END IF;
3460:
3461: END conv_rnd_tax_funcl_curr;
3496: BEGIN
3497:
3498: IF (g_level_statement >= g_current_runtime_level ) THEN
3499: FND_LOG.STRING(g_level_statement,
3500: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_tax_curr.BEGIN',
3501: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_taxable_tax_curr(+)'||
3502: 'p_tax_curr_conv_rate = ' || to_char(p_tax_curr_conv_rate));
3503:
3504: END IF;
3497:
3498: IF (g_level_statement >= g_current_runtime_level ) THEN
3499: FND_LOG.STRING(g_level_statement,
3500: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_tax_curr.BEGIN',
3501: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_taxable_tax_curr(+)'||
3502: 'p_tax_curr_conv_rate = ' || to_char(p_tax_curr_conv_rate));
3503:
3504: END IF;
3505:
3559:
3560: IF (g_level_statement >= g_current_runtime_level ) THEN
3561:
3562: FND_LOG.STRING(g_level_statement,
3563: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_tax_curr.END',
3564: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_taxable_tax_curr(-)'||
3565: 'rounded taxable amt tax currency = ' ||
3566: to_char(p_convert_round_amt));
3567: END IF;
3560: IF (g_level_statement >= g_current_runtime_level ) THEN
3561:
3562: FND_LOG.STRING(g_level_statement,
3563: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_tax_curr.END',
3564: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_taxable_tax_curr(-)'||
3565: 'rounded taxable amt tax currency = ' ||
3566: to_char(p_convert_round_amt));
3567: END IF;
3568:
3571: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3572: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3573: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3574: FND_LOG.STRING(g_level_unexpected,
3575: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_tax_curr',
3576: p_error_buffer);
3577: END IF;
3578:
3579: END conv_rnd_taxable_tax_curr;
3606:
3607: BEGIN
3608: IF (g_level_statement >= g_current_runtime_level ) THEN
3609: FND_LOG.STRING(g_level_statement,
3610: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_funcl_curr.BEGIN',
3611: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_taxable_funcl_curr(+)'||
3612: 'p_funcl_curr_conv_rate = ' || to_char(p_funcl_curr_conv_rate));
3613:
3614: END IF;
3607: BEGIN
3608: IF (g_level_statement >= g_current_runtime_level ) THEN
3609: FND_LOG.STRING(g_level_statement,
3610: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_funcl_curr.BEGIN',
3611: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_taxable_funcl_curr(+)'||
3612: 'p_funcl_curr_conv_rate = ' || to_char(p_funcl_curr_conv_rate));
3613:
3614: END IF;
3615:
3666:
3667: IF (g_level_statement >= g_current_runtime_level ) THEN
3668:
3669: FND_LOG.STRING(g_level_statement,
3670: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_funcl_curr.END',
3671: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_taxable_funcl_curr(-)'||
3672: 'rounded taxable amt tax currency = ' ||
3673: to_char(p_convert_round_amt));
3674: END IF;
3667: IF (g_level_statement >= g_current_runtime_level ) THEN
3668:
3669: FND_LOG.STRING(g_level_statement,
3670: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_funcl_curr.END',
3671: 'ZX_TDS_TAX_ROUNDING_PKG: conv_rnd_taxable_funcl_curr(-)'||
3672: 'rounded taxable amt tax currency = ' ||
3673: to_char(p_convert_round_amt));
3674: END IF;
3675:
3679: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3680:
3681: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3682: FND_LOG.STRING(g_level_unexpected,
3683: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.conv_rnd_taxable_funcl_curr',
3684: p_error_buffer);
3685: END IF;
3686:
3687: END conv_rnd_taxable_funcl_curr;
3710: BEGIN
3711:
3712: IF (g_level_statement >= g_current_runtime_level ) THEN
3713: FND_LOG.STRING(g_level_statement,
3714: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_line_level.BEGIN',
3715: 'ZX_TDS_TAX_ROUNDING_PKG: round_line_level(+)'||
3716: 'unround tax_amt = ' || to_char(p_unrounded_tax_amt)||
3717: 'unround taxable_amt = ' || to_char(p_unrounded_taxable_amt)||
3718: 'unround prd_total_tax_amt = ' || to_char(p_prd_total_tax_amt)||
3711:
3712: IF (g_level_statement >= g_current_runtime_level ) THEN
3713: FND_LOG.STRING(g_level_statement,
3714: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_line_level.BEGIN',
3715: 'ZX_TDS_TAX_ROUNDING_PKG: round_line_level(+)'||
3716: 'unround tax_amt = ' || to_char(p_unrounded_tax_amt)||
3717: 'unround taxable_amt = ' || to_char(p_unrounded_taxable_amt)||
3718: 'unround prd_total_tax_amt = ' || to_char(p_prd_total_tax_amt)||
3719: 'p_trx_precision = ' || to_char(p_trx_precision)||
3773:
3774:
3775: IF (g_level_statement >= g_current_runtime_level ) THEN
3776: FND_LOG.STRING(g_level_statement,
3777: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_line_level.END',
3778: 'ZX_TDS_TAX_ROUNDING_PKG: round_line_level(-)'||
3779: 'rounded tax amt = ' ||
3780: to_char(p_tax_amt)||
3781: 'rounded taxable_amt = ' ||
3774:
3775: IF (g_level_statement >= g_current_runtime_level ) THEN
3776: FND_LOG.STRING(g_level_statement,
3777: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_line_level.END',
3778: 'ZX_TDS_TAX_ROUNDING_PKG: round_line_level(-)'||
3779: 'rounded tax amt = ' ||
3780: to_char(p_tax_amt)||
3781: 'rounded taxable_amt = ' ||
3782: to_char(p_taxable_amt)||
3790: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3791:
3792: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3793: FND_LOG.STRING(g_level_unexpected,
3794: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_line_level',
3795: p_error_buffer);
3796: END IF;
3797:
3798: END round_line_level;
3824: BEGIN
3825:
3826: IF (g_level_statement >= g_current_runtime_level ) THEN
3827: FND_LOG.STRING(g_level_statement,
3828: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.handle_header_rounding_curr.BEGIN',
3829: 'ZX_TDS_TAX_ROUNDING_PKG: handle_header_rounding_curr(+)');
3830: END IF;
3831:
3832: --
3825:
3826: IF (g_level_statement >= g_current_runtime_level ) THEN
3827: FND_LOG.STRING(g_level_statement,
3828: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.handle_header_rounding_curr.BEGIN',
3829: 'ZX_TDS_TAX_ROUNDING_PKG: handle_header_rounding_curr(+)');
3830: END IF;
3831:
3832: --
3833: -- init return status
3871:
3872: IF (g_level_statement >= g_current_runtime_level ) THEN
3873:
3874: FND_LOG.STRING(g_level_statement,
3875: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.handle_header_rounding_curr.END',
3876: 'ZX_TDS_TAX_ROUNDING_PKG: handle_header_rounding_curr(-)'||p_return_status);
3877: END IF;
3878:
3879: EXCEPTION
3872: IF (g_level_statement >= g_current_runtime_level ) THEN
3873:
3874: FND_LOG.STRING(g_level_statement,
3875: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.handle_header_rounding_curr.END',
3876: 'ZX_TDS_TAX_ROUNDING_PKG: handle_header_rounding_curr(-)'||p_return_status);
3877: END IF;
3878:
3879: EXCEPTION
3880: WHEN OTHERS THEN
3881: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3882: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
3883: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3884: FND_LOG.STRING(g_level_unexpected,
3885: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.handle_header_rounding_curr',
3886: p_error_buffer);
3887: END IF;
3888:
3889: END handle_header_rounding_curr;
3917: BEGIN
3918:
3919: IF (g_level_statement >= g_current_runtime_level ) THEN
3920: FND_LOG.STRING(g_level_statement,
3921: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_info.BEGIN',
3922: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_info(+)');
3923: END IF;
3924:
3925: p_return_status := FND_API.G_RET_STS_SUCCESS;
3918:
3919: IF (g_level_statement >= g_current_runtime_level ) THEN
3920: FND_LOG.STRING(g_level_statement,
3921: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_info.BEGIN',
3922: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_info(+)');
3923: END IF;
3924:
3925: p_return_status := FND_API.G_RET_STS_SUCCESS;
3926:
3957: END IF;
3958:
3959: IF (g_level_statement >= g_current_runtime_level ) THEN
3960: FND_LOG.STRING(g_level_statement,
3961: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_info',
3962: 'perform rounding for tax_id = ' ||
3963: to_char(l_tax_id)||
3964: 'tax precision = ' || p_tax_precision||
3965: 'tax min_acct_unit = ' || p_tax_min_acct_unit||
4013: END IF;
4014:
4015: IF (g_level_statement >= g_current_runtime_level ) THEN
4016: FND_LOG.STRING(g_level_statement,
4017: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_info.END',
4018: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_info(-)');
4019: END IF;
4020:
4021: EXCEPTION
4014:
4015: IF (g_level_statement >= g_current_runtime_level ) THEN
4016: FND_LOG.STRING(g_level_statement,
4017: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_info.END',
4018: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_info(-)');
4019: END IF;
4020:
4021: EXCEPTION
4022: WHEN OTHERS THEN
4023: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4024: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4025: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4026: FND_LOG.STRING(g_level_unexpected,
4027: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_info',
4028: p_error_buffer);
4029: END IF;
4030:
4031: END get_rounding_info;
4057: BEGIN
4058:
4059: IF (g_level_statement >= g_current_runtime_level ) THEN
4060: FND_LOG.STRING(g_level_statement,
4061: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff_curr.BEGIN',
4062: 'ZX_TDS_TAX_ROUNDING_PKG: adjust_rounding_diff_curr(+)');
4063: END IF;
4064:
4065: p_return_status := FND_API.G_RET_STS_SUCCESS;
4058:
4059: IF (g_level_statement >= g_current_runtime_level ) THEN
4060: FND_LOG.STRING(g_level_statement,
4061: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff_curr.BEGIN',
4062: 'ZX_TDS_TAX_ROUNDING_PKG: adjust_rounding_diff_curr(+)');
4063: END IF;
4064:
4065: p_return_status := FND_API.G_RET_STS_SUCCESS;
4066:
4067: l_count := g_hdr_rounding_curr_tbl.COUNT;
4068:
4069: IF (g_level_statement >= g_current_runtime_level ) THEN
4070: FND_LOG.STRING(g_level_statement,
4071: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff_curr',
4072: 'number of rows to adjust = ' || to_char(l_count));
4073: END IF;
4074:
4075: FOR i IN 1 .. l_count LOOP
4132: END LOOP;
4133:
4134: IF (g_level_statement >= g_current_runtime_level ) THEN
4135: FND_LOG.STRING(g_level_statement,
4136: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff_curr',
4137: 'update the adjustments to the largest lines ....');
4138: END IF;
4139:
4140: FORALL i IN 1 .. l_count
4144: WHERE tax_line_id = l_tax_line_id_tbl(i);
4145:
4146: IF (g_level_statement >= g_current_runtime_level ) THEN
4147: FND_LOG.STRING(g_level_statement,
4148: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff_curr.END',
4149: 'ZX_TDS_TAX_ROUNDING_PKG: adjust_rounding_diff_curr(-)');
4150: END IF;
4151:
4152: EXCEPTION
4145:
4146: IF (g_level_statement >= g_current_runtime_level ) THEN
4147: FND_LOG.STRING(g_level_statement,
4148: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff_curr.END',
4149: 'ZX_TDS_TAX_ROUNDING_PKG: adjust_rounding_diff_curr(-)');
4150: END IF;
4151:
4152: EXCEPTION
4153: WHEN OTHERS THEN
4155: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4156:
4157: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4158: FND_LOG.STRING(g_level_unexpected,
4159: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff_curr',
4160: p_error_buffer);
4161: END IF;
4162:
4163: END adjust_rounding_diff_curr;
4198: BEGIN
4199:
4200: IF (g_level_statement >= g_current_runtime_level ) THEN
4201: FND_LOG.STRING(g_level_statement,
4202: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff.BEGIN',
4203: 'ZX_TDS_TAX_ROUNDING_PKG: adjust_rounding_diff(+)');
4204: END IF;
4205:
4206: p_return_status := FND_API.G_RET_STS_SUCCESS;
4199:
4200: IF (g_level_statement >= g_current_runtime_level ) THEN
4201: FND_LOG.STRING(g_level_statement,
4202: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff.BEGIN',
4203: 'ZX_TDS_TAX_ROUNDING_PKG: adjust_rounding_diff(+)');
4204: END IF;
4205:
4206: p_return_status := FND_API.G_RET_STS_SUCCESS;
4207:
4208: l_count := g_hdr_rounding_info_tbl.COUNT;
4209:
4210: IF (g_level_statement >= g_current_runtime_level ) THEN
4211: FND_LOG.STRING(g_level_statement,
4212: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4213: 'number of rows to adjust = ' || to_char(l_count));
4214: END IF;
4215:
4216: FOR i IN 1 .. l_count LOOP
4237: END IF;
4238:
4239: IF (g_level_statement >= g_current_runtime_level ) THEN
4240: FND_LOG.STRING(g_level_statement,
4241: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4242: 'Rounded Tax amt before ' ||to_char(g_hdr_rounding_info_tbl(i).rnd_tax_amt));
4243: END IF;
4244:
4245: IF (g_level_statement >= g_current_runtime_level ) THEN
4243: END IF;
4244:
4245: IF (g_level_statement >= g_current_runtime_level ) THEN
4246: FND_LOG.STRING(g_level_statement,
4247: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4248: 'number of rows to adjust = ' || to_char(l_count));
4249: END IF;
4250: --
4251: -- adjust tax amt
4252: --
4253:
4254: IF (g_level_statement >= g_current_runtime_level ) THEN
4255: FND_LOG.STRING(g_level_statement,
4256: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4257: 'sum_rnd_tax_amt' ||to_char(g_hdr_rounding_info_tbl(i).sum_rnd_tax_amt));
4258: END IF;
4259:
4260: g_hdr_rounding_info_tbl(i).rnd_tax_amt :=
4262: (l_rnd_sum_unrnd_tax_amt - g_hdr_rounding_info_tbl(i).sum_rnd_tax_amt);
4263:
4264: IF (g_level_statement >= g_current_runtime_level ) THEN
4265: FND_LOG.STRING(g_level_statement,
4266: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4267: 'Rounded Tax amt after ' ||to_char(g_hdr_rounding_info_tbl(i).rnd_tax_amt));
4268: END IF;
4269:
4270: IF g_hdr_rounding_info_tbl(i).mrc_tax_line_flag = 'N' THEN
4365: FOR i IN 1 .. l_count LOOP
4366:
4367: IF (g_level_statement >= g_current_runtime_level ) THEN
4368: FND_LOG.STRING(g_level_statement,
4369: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4370: 'Tax line id' ||to_char(g_hdr_rounding_info_tbl(i).tax_line_id));
4371: END IF;
4372:
4373: l_tax_amt_tbl(i) := g_hdr_rounding_info_tbl(i).rnd_tax_amt;
4379: END LOOP;
4380:
4381: IF (g_level_statement >= g_current_runtime_level ) THEN
4382: FND_LOG.STRING(g_level_statement,
4383: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4384: 'update the adjustments to the largest lines ....');
4385: END IF;
4386:
4387: FORALL i IN 1 .. l_count
4395: WHERE tax_line_id = l_tax_line_id_tbl(i);
4396:
4397: IF (g_level_statement >= g_current_runtime_level ) THEN
4398: FND_LOG.STRING(g_level_statement,
4399: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff.END',
4400: 'ZX_TDS_TAX_ROUNDING_PKG: adjust_rounding_diff(-)');
4401: END IF;
4402:
4403: EXCEPTION
4396:
4397: IF (g_level_statement >= g_current_runtime_level ) THEN
4398: FND_LOG.STRING(g_level_statement,
4399: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff.END',
4400: 'ZX_TDS_TAX_ROUNDING_PKG: adjust_rounding_diff(-)');
4401: END IF;
4402:
4403: EXCEPTION
4404: WHEN OTHERS THEN
4406: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4407:
4408: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4409: FND_LOG.STRING(g_level_unexpected,
4410: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.adjust_rounding_diff',
4411: p_error_buffer);
4412: END IF;
4413:
4414: END adjust_rounding_diff;
4439: BEGIN
4440:
4441: IF (g_level_statement >= g_current_runtime_level ) THEN
4442: FND_LOG.STRING(g_level_statement,
4443: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_curr.BEGIN',
4444: 'ZX_TDS_TAX_ROUNDING_PKG: update_header_rounding_curr(+)');
4445: END IF;
4446:
4447: --
4440:
4441: IF (g_level_statement >= g_current_runtime_level ) THEN
4442: FND_LOG.STRING(g_level_statement,
4443: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_curr.BEGIN',
4444: 'ZX_TDS_TAX_ROUNDING_PKG: update_header_rounding_curr(+)');
4445: END IF;
4446:
4447: --
4448: -- init return status
4495: END IF;
4496:
4497: IF (g_level_statement >= g_current_runtime_level ) THEN
4498: FND_LOG.STRING(g_level_statement,
4499: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_curr.END',
4500: 'ZX_TDS_TAX_ROUNDING_PKG: update_header_rounding_curr(-)');
4501: END IF;
4502: EXCEPTION
4503: WHEN OTHERS THEN
4496:
4497: IF (g_level_statement >= g_current_runtime_level ) THEN
4498: FND_LOG.STRING(g_level_statement,
4499: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_curr.END',
4500: 'ZX_TDS_TAX_ROUNDING_PKG: update_header_rounding_curr(-)');
4501: END IF;
4502: EXCEPTION
4503: WHEN OTHERS THEN
4504: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4505: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4506:
4507: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4508: FND_LOG.STRING(g_level_unexpected,
4509: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_curr',
4510: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4511: END IF;
4512:
4513: END update_header_rounding_curr;
4550: BEGIN
4551:
4552: IF (g_level_statement >= g_current_runtime_level ) THEN
4553: FND_LOG.STRING(g_level_statement,
4554: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_info.BEGIN',
4555: 'ZX_TDS_TAX_ROUNDING_PKG: update_header_rounding_info(+)');
4556: END IF;
4557:
4558: --
4551:
4552: IF (g_level_statement >= g_current_runtime_level ) THEN
4553: FND_LOG.STRING(g_level_statement,
4554: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_info.BEGIN',
4555: 'ZX_TDS_TAX_ROUNDING_PKG: update_header_rounding_info(+)');
4556: END IF;
4557:
4558: --
4559: -- init return status
4645: END IF;
4646:
4647: IF (g_level_statement >= g_current_runtime_level ) THEN
4648: FND_LOG.STRING(g_level_statement,
4649: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_info.END',
4650: 'ZX_TDS_TAX_ROUNDING_PKG: update_header_rounding_info(-)');
4651: END IF;
4652: EXCEPTION
4653: WHEN OTHERS THEN
4646:
4647: IF (g_level_statement >= g_current_runtime_level ) THEN
4648: FND_LOG.STRING(g_level_statement,
4649: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_info.END',
4650: 'ZX_TDS_TAX_ROUNDING_PKG: update_header_rounding_info(-)');
4651: END IF;
4652: EXCEPTION
4653: WHEN OTHERS THEN
4654: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4655: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
4656:
4657: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4658: FND_LOG.STRING(g_level_unexpected,
4659: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_header_rounding_info',
4660: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4661: END IF;
4662:
4663: END update_header_rounding_info;
4729: BEGIN
4730:
4731: IF (g_level_statement >= g_current_runtime_level ) THEN
4732: FND_LOG.STRING(g_level_statement,
4733: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding.BEGIN',
4734: 'ZX_TDS_TAX_ROUNDING_PKG: do_rounding(+)');
4735: END IF;
4736:
4737: --
4730:
4731: IF (g_level_statement >= g_current_runtime_level ) THEN
4732: FND_LOG.STRING(g_level_statement,
4733: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding.BEGIN',
4734: 'ZX_TDS_TAX_ROUNDING_PKG: do_rounding(+)');
4735: END IF;
4736:
4737: --
4738: -- init return status
4768: END IF;
4769:
4770: IF (g_level_statement >= g_current_runtime_level ) THEN
4771: FND_LOG.STRING(g_level_statement,
4772: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding',
4773: 'l_tax_precision = ' || to_char(l_tax_precision)||
4774: 'l_tax_min_acct_unit = ' || to_char(l_tax_min_acct_unit) ||
4775: ' tax curr conv type = ' || l_tax_currency_conversion_type ||
4776: ' tax curr conv type passed in = ' ||
5106:
5107: IF (g_level_statement >= g_current_runtime_level ) THEN
5108:
5109: FND_LOG.STRING(g_level_statement,
5110: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding.END',
5111: 'ZX_TDS_TAX_ROUNDING_PKG: do_rounding(-)'||p_return_status);
5112: END IF;
5113:
5114: EXCEPTION
5107: IF (g_level_statement >= g_current_runtime_level ) THEN
5108:
5109: FND_LOG.STRING(g_level_statement,
5110: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding.END',
5111: 'ZX_TDS_TAX_ROUNDING_PKG: do_rounding(-)'||p_return_status);
5112: END IF;
5113:
5114: EXCEPTION
5115: WHEN OTHERS THEN
5117: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5118:
5119: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5120: FND_LOG.STRING(g_level_unexpected,
5121: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.do_rounding',
5122: p_error_buffer);
5123: END IF;
5124:
5125: END do_rounding;
5147: BEGIN
5148:
5149: IF (g_level_statement >= g_current_runtime_level ) THEN
5150: FND_LOG.STRING(g_level_statement,
5151: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_create.BEGIN',
5152: 'ZX_TDS_TAX_ROUNDING_PKG: process_tax_line_create(+)');
5153: END IF;
5154:
5155: p_return_status := FND_API.G_RET_STS_SUCCESS;
5148:
5149: IF (g_level_statement >= g_current_runtime_level ) THEN
5150: FND_LOG.STRING(g_level_statement,
5151: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_create.BEGIN',
5152: 'ZX_TDS_TAX_ROUNDING_PKG: process_tax_line_create(+)');
5153: END IF;
5154:
5155: p_return_status := FND_API.G_RET_STS_SUCCESS;
5156:
5164:
5165: IF (g_level_statement >= g_current_runtime_level ) THEN
5166:
5167: FND_LOG.STRING(g_level_statement,
5168: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_create.END',
5169: 'ZX_TDS_TAX_ROUNDING_PKG: process_tax_line_create(-)'||p_return_status);
5170: END IF;
5171:
5172: EXCEPTION
5165: IF (g_level_statement >= g_current_runtime_level ) THEN
5166:
5167: FND_LOG.STRING(g_level_statement,
5168: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_create.END',
5169: 'ZX_TDS_TAX_ROUNDING_PKG: process_tax_line_create(-)'||p_return_status);
5170: END IF;
5171:
5172: EXCEPTION
5173: WHEN OTHERS THEN
5174: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5175: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5176: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5177: FND_LOG.STRING(g_level_unexpected,
5178: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_create',
5179: p_error_buffer);
5180: END IF;
5181:
5182: END process_tax_line_create;
5334: BEGIN
5335:
5336: IF (g_level_statement >= g_current_runtime_level ) THEN
5337: FND_LOG.STRING(g_level_statement,
5338: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_upd_override.BEGIN',
5339: 'ZX_TDS_TAX_ROUNDING_PKG: process_tax_line_upd_override(+)');
5340: END IF;
5341:
5342: p_return_status := FND_API.G_RET_STS_SUCCESS;
5335:
5336: IF (g_level_statement >= g_current_runtime_level ) THEN
5337: FND_LOG.STRING(g_level_statement,
5338: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_upd_override.BEGIN',
5339: 'ZX_TDS_TAX_ROUNDING_PKG: process_tax_line_upd_override(+)');
5340: END IF;
5341:
5342: p_return_status := FND_API.G_RET_STS_SUCCESS;
5343:
5427: CLOSE get_existing_sum_amt_csr;
5428:
5429: IF (g_level_statement >= g_current_runtime_level ) THEN
5430: FND_LOG.STRING(g_level_statement,
5431: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_upd_override',
5432: 'p_sum_unrnd_tax_amt = ' || to_char(p_sum_unrnd_tax_amt)||
5433: 'p_sum_rnd_tax_amt = ' || to_char(p_sum_rnd_tax_amt)||
5434: 'p_sum_rnd_tax_curr = ' || to_char(p_sum_rnd_tax_curr)||
5435: 'p_sum_rnd_funcl_curr= ' || to_char(p_sum_rnd_funcl_curr));
5434: 'p_sum_rnd_tax_curr = ' || to_char(p_sum_rnd_tax_curr)||
5435: 'p_sum_rnd_funcl_curr= ' || to_char(p_sum_rnd_funcl_curr));
5436:
5437: FND_LOG.STRING(g_level_statement,
5438: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_upd_override.END',
5439: 'ZX_TDS_TAX_ROUNDING_PKG: process_tax_line_upd_override(-)');
5440: END IF;
5441:
5442: EXCEPTION
5435: 'p_sum_rnd_funcl_curr= ' || to_char(p_sum_rnd_funcl_curr));
5436:
5437: FND_LOG.STRING(g_level_statement,
5438: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_upd_override.END',
5439: 'ZX_TDS_TAX_ROUNDING_PKG: process_tax_line_upd_override(-)');
5440: END IF;
5441:
5442: EXCEPTION
5443: WHEN OTHERS THEN
5444: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5445: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5446: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5447: FND_LOG.STRING(g_level_unexpected,
5448: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.process_tax_line_upd_override',
5449: p_error_buffer);
5450: END IF;
5451:
5452: END process_tax_line_upd_override;
5474: IS
5475: BEGIN
5476: IF (g_level_statement >= g_current_runtime_level ) THEN
5477: FND_LOG.STRING(g_level_statement,
5478: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.chk_mandatory_col_after_round.BEGIN',
5479: 'ZX_TDS_TAX_ROUNDING_PKG: chk_mandatory_col_after_round(+)');
5480: END IF;
5481:
5482: p_return_status := FND_API.G_RET_STS_SUCCESS;
5475: BEGIN
5476: IF (g_level_statement >= g_current_runtime_level ) THEN
5477: FND_LOG.STRING(g_level_statement,
5478: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.chk_mandatory_col_after_round.BEGIN',
5479: 'ZX_TDS_TAX_ROUNDING_PKG: chk_mandatory_col_after_round(+)');
5480: END IF;
5481:
5482: p_return_status := FND_API.G_RET_STS_SUCCESS;
5483:
5537:
5538: IF (g_level_statement >= g_current_runtime_level ) THEN
5539:
5540: FND_LOG.STRING(g_level_statement,
5541: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.chk_mandatory_col_after_round.END',
5542: 'ZX_TDS_TAX_ROUNDING_PKG: chk_mandatory_col_after_round(-)'||
5543: 'return status: '||p_return_status||
5544: ' error_buffer = ' || p_error_buffer);
5545: END IF;
5538: IF (g_level_statement >= g_current_runtime_level ) THEN
5539:
5540: FND_LOG.STRING(g_level_statement,
5541: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.chk_mandatory_col_after_round.END',
5542: 'ZX_TDS_TAX_ROUNDING_PKG: chk_mandatory_col_after_round(-)'||
5543: 'return status: '||p_return_status||
5544: ' error_buffer = ' || p_error_buffer);
5545: END IF;
5546:
5550: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5551:
5552: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5553: FND_LOG.STRING(g_level_unexpected,
5554: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.chk_mandatory_col_after_round',
5555: p_error_buffer);
5556: END IF;
5557:
5558: END chk_mandatory_col_after_round;
5591: l_count NUMBER;
5592: BEGIN
5593: IF (g_level_statement >= g_current_runtime_level ) THEN
5594: FND_LOG.STRING(g_level_statement,
5595: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_detail_tax_lines_gt.BEGIN',
5596: 'ZX_TDS_TAX_ROUNDING_PKG: update_detail_tax_lines_gt(+)');
5597: END IF;
5598:
5599: p_return_status := FND_API.G_RET_STS_SUCCESS;
5592: BEGIN
5593: IF (g_level_statement >= g_current_runtime_level ) THEN
5594: FND_LOG.STRING(g_level_statement,
5595: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_detail_tax_lines_gt.BEGIN',
5596: 'ZX_TDS_TAX_ROUNDING_PKG: update_detail_tax_lines_gt(+)');
5597: END IF;
5598:
5599: p_return_status := FND_API.G_RET_STS_SUCCESS;
5600:
5629:
5630: IF (g_level_statement >= g_current_runtime_level ) THEN
5631:
5632: FND_LOG.STRING(g_level_statement,
5633: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_detail_tax_lines_gt.END',
5634: 'ZX_TDS_TAX_ROUNDING_PKG: update_detail_tax_lines_gt(-)'||
5635: 'p_return_status = ' || p_return_status);
5636: END IF;
5637:
5630: IF (g_level_statement >= g_current_runtime_level ) THEN
5631:
5632: FND_LOG.STRING(g_level_statement,
5633: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_detail_tax_lines_gt.END',
5634: 'ZX_TDS_TAX_ROUNDING_PKG: update_detail_tax_lines_gt(-)'||
5635: 'p_return_status = ' || p_return_status);
5636: END IF;
5637:
5638: EXCEPTION
5641: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5642:
5643: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5644: FND_LOG.STRING(g_level_unexpected,
5645: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_detail_tax_lines_gt',
5646: p_error_buffer);
5647: END IF;
5648:
5649: END update_detail_tax_lines_gt;
5675: BEGIN
5676:
5677: IF (g_level_statement >= g_current_runtime_level ) THEN
5678: FND_LOG.STRING(g_level_statement,
5679: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_zx_lines.BEGIN',
5680: 'ZX_TDS_TAX_ROUNDING_PKG: update_zx_lines(+)');
5681: END IF;
5682:
5683: p_return_status := FND_API.G_RET_STS_SUCCESS;
5676:
5677: IF (g_level_statement >= g_current_runtime_level ) THEN
5678: FND_LOG.STRING(g_level_statement,
5679: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_zx_lines.BEGIN',
5680: 'ZX_TDS_TAX_ROUNDING_PKG: update_zx_lines(+)');
5681: END IF;
5682:
5683: p_return_status := FND_API.G_RET_STS_SUCCESS;
5684:
5698:
5699: IF (g_level_statement >= g_current_runtime_level ) THEN
5700:
5701: FND_LOG.STRING(g_level_statement,
5702: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_zx_lines.END',
5703: 'ZX_TDS_TAX_ROUNDING_PKG: update_zx_lines(-)'||p_return_status);
5704: END IF;
5705:
5706: EXCEPTION
5699: IF (g_level_statement >= g_current_runtime_level ) THEN
5700:
5701: FND_LOG.STRING(g_level_statement,
5702: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_zx_lines.END',
5703: 'ZX_TDS_TAX_ROUNDING_PKG: update_zx_lines(-)'||p_return_status);
5704: END IF;
5705:
5706: EXCEPTION
5707: WHEN OTHERS THEN
5709: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
5710:
5711: IF (g_level_unexpected >= g_current_runtime_level ) THEN
5712: FND_LOG.STRING(g_level_unexpected,
5713: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.update_zx_lines',
5714: p_error_buffer);
5715: END IF;
5716: END update_zx_lines;
5717: ---------------------------------------------------------------------------
6009: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6010:
6011: IF (g_level_procedure >= g_current_runtime_level ) THEN
6012: FND_LOG.STRING(g_level_procedure,
6013: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.perform_rounding.BEGIN',
6014: 'ZX_TDS_TAX_ROUNDING_PKG: perform_rounding(+)');
6015: END IF;
6016:
6017: --
6010:
6011: IF (g_level_procedure >= g_current_runtime_level ) THEN
6012: FND_LOG.STRING(g_level_procedure,
6013: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.perform_rounding.BEGIN',
6014: 'ZX_TDS_TAX_ROUNDING_PKG: perform_rounding(+)');
6015: END IF;
6016:
6017: --
6018: -- init error buffer and return status
6507:
6508: IF (g_level_procedure >= g_current_runtime_level ) THEN
6509:
6510: FND_LOG.STRING(g_level_procedure,
6511: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.perform_rounding.END',
6512: 'ZX_TDS_TAX_ROUNDING_PKG: perform_rounding(-)'||p_return_status);
6513: END IF;
6514:
6515: EXCEPTION
6508: IF (g_level_procedure >= g_current_runtime_level ) THEN
6509:
6510: FND_LOG.STRING(g_level_procedure,
6511: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.perform_rounding.END',
6512: 'ZX_TDS_TAX_ROUNDING_PKG: perform_rounding(-)'||p_return_status);
6513: END IF;
6514:
6515: EXCEPTION
6516: WHEN OTHERS THEN
6518: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6519:
6520: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6521: FND_LOG.STRING(g_level_unexpected,
6522: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.perform_rounding',
6523: p_error_buffer);
6524: END IF;
6525:
6526: END perform_rounding;
6554: BEGIN
6555:
6556: IF (g_level_procedure >= g_current_runtime_level ) THEN
6557: FND_LOG.STRING(g_level_procedure,
6558: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_for_curr.BEGIN',
6559: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_for_curr(+)');
6560: END IF;
6561:
6562: --
6555:
6556: IF (g_level_procedure >= g_current_runtime_level ) THEN
6557: FND_LOG.STRING(g_level_procedure,
6558: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_for_curr.BEGIN',
6559: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_for_curr(+)');
6560: END IF;
6561:
6562: --
6563: -- init return status
6609:
6610: IF (g_level_procedure >= g_current_runtime_level ) THEN
6611:
6612: FND_LOG.STRING(g_level_procedure,
6613: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_for_curr.END',
6614: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_for_curr(-)'||p_return_status);
6615: END IF;
6616:
6617: EXCEPTION
6610: IF (g_level_procedure >= g_current_runtime_level ) THEN
6611:
6612: FND_LOG.STRING(g_level_procedure,
6613: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_for_curr.END',
6614: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_for_curr(-)'||p_return_status);
6615: END IF;
6616:
6617: EXCEPTION
6618: WHEN OTHERS THEN
6620: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
6621:
6622: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6623: FND_LOG.STRING(g_level_unexpected,
6624: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_for_curr',
6625: p_error_buffer);
6626: END IF;
6627: END convert_and_round_for_curr;
6628:
6700: BEGIN
6701:
6702: IF (g_level_procedure >= g_current_runtime_level ) THEN
6703: FND_LOG.STRING(g_level_procedure,
6704: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_lin_lvl_curr.BEGIN',
6705: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_lin_lvl_curr(+)');
6706: END IF;
6707:
6708: --
6701:
6702: IF (g_level_procedure >= g_current_runtime_level ) THEN
6703: FND_LOG.STRING(g_level_procedure,
6704: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_lin_lvl_curr.BEGIN',
6705: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_lin_lvl_curr(+)');
6706: END IF;
6707:
6708: --
6709: -- init return status
6742: l_count := l_tax_line_id_tbl.COUNT;
6743:
6744: IF (g_level_procedure >= g_current_runtime_level ) THEN
6745: FND_LOG.STRING(g_level_procedure,
6746: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_lin_lvl_curr',
6747: 'number of rows fetched = ' || to_char(l_count));
6748: END IF;
6749:
6750: IF l_count > 0 THEN
6817:
6818: IF (g_level_procedure >= g_current_runtime_level ) THEN
6819:
6820: FND_LOG.STRING(g_level_procedure,
6821: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_lin_lvl_curr.END',
6822: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_lin_lvl_curr(-)'||p_return_status);
6823: END IF;
6824:
6825: EXCEPTION
6818: IF (g_level_procedure >= g_current_runtime_level ) THEN
6819:
6820: FND_LOG.STRING(g_level_procedure,
6821: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_lin_lvl_curr.END',
6822: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_lin_lvl_curr(-)'||p_return_status);
6823: END IF;
6824:
6825: EXCEPTION
6826: WHEN OTHERS THEN
6831: END IF;
6832:
6833: IF (g_level_unexpected >= g_current_runtime_level ) THEN
6834: FND_LOG.STRING(g_level_unexpected,
6835: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_lin_lvl_curr',
6836: p_error_buffer);
6837: END IF;
6838:
6839: END convert_and_round_lin_lvl_curr;
7062: BEGIN
7063:
7064: IF (g_level_procedure >= g_current_runtime_level ) THEN
7065: FND_LOG.STRING(g_level_procedure,
7066: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_hdr_lvl_curr.BEGIN',
7067: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_hdr_lvl_curr(+)');
7068: END IF;
7069:
7070: --
7063:
7064: IF (g_level_procedure >= g_current_runtime_level ) THEN
7065: FND_LOG.STRING(g_level_procedure,
7066: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_hdr_lvl_curr.BEGIN',
7067: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_hdr_lvl_curr(+)');
7068: END IF;
7069:
7070: --
7071: -- init return status
7166: l_count := l_tax_line_id_tbl.COUNT;
7167:
7168: IF (g_level_statement >= g_current_runtime_level ) THEN
7169: FND_LOG.STRING(g_level_statement,
7170: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_hdr_lvl_curr',
7171: 'number of rows fetched = ' || to_char(l_count));
7172: END IF;
7173:
7174: IF l_count > 0 THEN
7369:
7370: IF (g_level_procedure >= g_current_runtime_level ) THEN
7371:
7372: FND_LOG.STRING(g_level_procedure,
7373: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_hdr_lvl_curr.END',
7374: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_hdr_lvl_curr(-)'||p_return_status);
7375: END IF;
7376:
7377: EXCEPTION
7370: IF (g_level_procedure >= g_current_runtime_level ) THEN
7371:
7372: FND_LOG.STRING(g_level_procedure,
7373: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_hdr_lvl_curr.END',
7374: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_hdr_lvl_curr(-)'||p_return_status);
7375: END IF;
7376:
7377: EXCEPTION
7378: WHEN OTHERS THEN
7382: CLOSE get_round_head_level_curr_csr;
7383: END IF;
7384: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7385: FND_LOG.STRING(g_level_unexpected,
7386: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_hdr_lvl_curr',
7387: p_error_buffer);
7388: END IF;
7389:
7390: END convert_and_round_hdr_lvl_curr;
7415: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7416:
7417: IF (g_level_statement >= g_current_runtime_level ) THEN
7418: FND_LOG.STRING(g_level_statement,
7419: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_curr.BEGIN',
7420: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_curr(+)');
7421: END IF;
7422:
7423: --
7416:
7417: IF (g_level_statement >= g_current_runtime_level ) THEN
7418: FND_LOG.STRING(g_level_statement,
7419: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_curr.BEGIN',
7420: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_curr(+)');
7421: END IF;
7422:
7423: --
7424: -- init error buffer and return status
7464:
7465: IF (g_level_procedure >= g_current_runtime_level ) THEN
7466:
7467: FND_LOG.STRING(g_level_procedure,
7468: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_curr.END',
7469: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_curr(-)'||p_return_status);
7470: END IF;
7471:
7472: EXCEPTION
7465: IF (g_level_procedure >= g_current_runtime_level ) THEN
7466:
7467: FND_LOG.STRING(g_level_procedure,
7468: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_curr.END',
7469: 'ZX_TDS_TAX_ROUNDING_PKG: convert_and_round_curr(-)'||p_return_status);
7470: END IF;
7471:
7472: EXCEPTION
7473: WHEN OTHERS THEN
7475: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
7476:
7477: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7478: FND_LOG.STRING(g_level_unexpected,
7479: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.convert_and_round_curr',
7480: p_error_buffer);
7481: END IF;
7482:
7483: END convert_and_round_curr;
7584: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7585:
7586: IF (g_level_procedure >= g_current_runtime_level ) THEN
7587: FND_LOG.STRING(g_level_procedure,
7588: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_amt_entered.BEGIN',
7589: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax_amt_entered(+)');
7590: END IF;
7591:
7592: --
7585:
7586: IF (g_level_procedure >= g_current_runtime_level ) THEN
7587: FND_LOG.STRING(g_level_procedure,
7588: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_amt_entered.BEGIN',
7589: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax_amt_entered(+)');
7590: END IF;
7591:
7592: --
7593: -- init error buffer and return status
7695:
7696: --
7697: -- round the tax amount
7698: --
7699: p_tax_amt := ZX_TDS_TAX_ROUNDING_PKG.round_tax(
7700: l_unrounded_tax_amt,
7701: l_rounding_rule_code,
7702: l_trx_min_acct_unit,
7703: l_trx_precision,
7706:
7707: IF (g_level_procedure >= g_current_runtime_level ) THEN
7708:
7709: FND_LOG.STRING(g_level_procedure,
7710: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_amt_entered.END',
7711: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax_amt_entered(-)'||p_return_status);
7712: END IF;
7713:
7714: EXCEPTION
7707: IF (g_level_procedure >= g_current_runtime_level ) THEN
7708:
7709: FND_LOG.STRING(g_level_procedure,
7710: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_amt_entered.END',
7711: 'ZX_TDS_TAX_ROUNDING_PKG: round_tax_amt_entered(-)'||p_return_status);
7712: END IF;
7713:
7714: EXCEPTION
7715: WHEN OTHERS THEN
7720: FND_MSG_PUB.Add;
7721:
7722: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7723: FND_LOG.STRING(g_level_unexpected,
7724: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.round_tax_amt_entered',
7725: p_error_buffer);
7726: END IF;
7727:
7728: END round_tax_amt_entered;
7771:
7772: BEGIN
7773: IF (g_level_procedure >= g_current_runtime_level ) THEN
7774: FND_LOG.STRING(g_level_procedure,
7775: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site.BEGIN',
7776: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Supplier_Site(+)');
7777: FND_LOG.STRING(g_level_procedure,
7778: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
7779: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
7772: BEGIN
7773: IF (g_level_procedure >= g_current_runtime_level ) THEN
7774: FND_LOG.STRING(g_level_procedure,
7775: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site.BEGIN',
7776: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Supplier_Site(+)');
7777: FND_LOG.STRING(g_level_procedure,
7778: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
7779: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
7780: FND_LOG.STRING(g_level_procedure,
7774: FND_LOG.STRING(g_level_procedure,
7775: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site.BEGIN',
7776: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Supplier_Site(+)');
7777: FND_LOG.STRING(g_level_procedure,
7778: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
7779: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
7780: FND_LOG.STRING(g_level_procedure,
7781: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
7782: 'p_account_id : ' || TO_CHAR(p_account_id));
7777: FND_LOG.STRING(g_level_procedure,
7778: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
7779: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
7780: FND_LOG.STRING(g_level_procedure,
7781: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
7782: 'p_account_id : ' || TO_CHAR(p_account_id));
7783: END IF;
7784:
7785: p_return_status := FND_API.G_RET_STS_SUCCESS;
7789:
7790: IF ZX_GLOBAL_STRUCTURES_PKG.g_supp_site_info_tbl.exists(p_account_site_id) THEN
7791:
7792: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7793: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
7794: 'Vendor site record found in cache for vendor site id:'||to_char(p_account_site_id));
7795: END IF;
7796:
7797: p_rounding_rule_code := ZX_GLOBAL_STRUCTURES_PKG.g_supp_site_info_tbl(p_account_site_id).TAX_ROUNDING_RULE;
7798: P_rounding_level_code := ZX_GLOBAL_STRUCTURES_PKG.g_supp_site_info_tbl(p_account_site_id).TAX_ROUNDING_LEVEL;
7799: 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;
7800:
7801: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7802: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
7803: 'ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg '|| ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg );
7804: END IF;
7805:
7806: ELSE
7817:
7818: p_rounding_level_code := l_tax_rounding_level;
7819: p_rounding_rule_code := l_ap_tax_rounding_rule;
7820: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7821: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
7822: 'Auto tax calc flag '|| l_auto_tax_calc_flag);
7823: END IF;
7824:
7825:
7834: l_vat_registration_num;
7835: ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg := l_auto_tax_calc_flag;
7836:
7837: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7838: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site',
7839: 'ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg '|| ZX_TDS_CALC_SERVICES_PUB_PKG.g_process_for_appl_flg);
7840: END IF;
7841:
7842:
7845: END IF;
7846:
7847: IF (g_level_procedure >= g_current_runtime_level ) THEN
7848: FND_LOG.STRING(g_level_procedure,
7849: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site.END',
7850: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Supplier_Site(-)'||'rounding level code :'||p_rounding_level_code);
7851: END IF;
7852:
7853: EXCEPTION
7846:
7847: IF (g_level_procedure >= g_current_runtime_level ) THEN
7848: FND_LOG.STRING(g_level_procedure,
7849: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site.END',
7850: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Supplier_Site(-)'||'rounding level code :'||p_rounding_level_code);
7851: END IF;
7852:
7853: EXCEPTION
7854: WHEN OTHERS THEN
7857: END IF;
7858:
7859: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7860: FND_LOG.STRING(g_level_unexpected,
7861: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site.END',
7862: 'Exception in ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site. '||SQLCODE||SQLERRM);
7863: END IF;
7864:
7865: END Get_Supplier_Site;
7858:
7859: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7860: FND_LOG.STRING(g_level_unexpected,
7861: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site.END',
7862: 'Exception in ZX_TDS_TAX_ROUNDING_PKG.Get_Supplier_Site. '||SQLCODE||SQLERRM);
7863: END IF;
7864:
7865: END Get_Supplier_Site;
7866:
7908:
7909: BEGIN
7910: IF (g_level_statement >= g_current_runtime_level ) THEN
7911: FND_LOG.STRING(g_level_statement,
7912: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses.BEGIN',
7913: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Reg_Site_Uses(+)');
7914: FND_LOG.STRING(g_level_statement,
7915: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
7916: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
7909: BEGIN
7910: IF (g_level_statement >= g_current_runtime_level ) THEN
7911: FND_LOG.STRING(g_level_statement,
7912: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses.BEGIN',
7913: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Reg_Site_Uses(+)');
7914: FND_LOG.STRING(g_level_statement,
7915: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
7916: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
7917: FND_LOG.STRING(g_level_statement,
7911: FND_LOG.STRING(g_level_statement,
7912: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses.BEGIN',
7913: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Reg_Site_Uses(+)');
7914: FND_LOG.STRING(g_level_statement,
7915: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
7916: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
7917: FND_LOG.STRING(g_level_statement,
7918: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
7919: 'p_account_id : ' || TO_CHAR(p_account_id));
7914: FND_LOG.STRING(g_level_statement,
7915: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
7916: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
7917: FND_LOG.STRING(g_level_statement,
7918: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
7919: 'p_account_id : ' || TO_CHAR(p_account_id));
7920: FND_LOG.STRING(g_level_statement,
7921: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
7922: 'p_site_use_id : ' || TO_CHAR(p_site_use_id));
7917: FND_LOG.STRING(g_level_statement,
7918: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
7919: 'p_account_id : ' || TO_CHAR(p_account_id));
7920: FND_LOG.STRING(g_level_statement,
7921: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
7922: 'p_site_use_id : ' || TO_CHAR(p_site_use_id));
7923: END IF;
7924:
7925: p_return_status := FND_API.G_RET_STS_SUCCESS;
7936: p_rounding_level_code := 'LINE';
7937: END IF;
7938:
7939: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7940: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses',
7941: 'Site Use information found in cache');
7942: END IF;
7943: ELSE
7944: OPEN c_site_uses (
7975: END IF;
7976:
7977: IF (g_level_procedure >= g_current_runtime_level ) THEN
7978: FND_LOG.STRING(g_level_procedure,
7979: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses.END',
7980: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Reg_Site_Uses(-)'||'rounding level code :'||p_rounding_level_code
7981: ||'rounding rule code: '||p_Rounding_Rule_Code);
7982: END IF;
7983: EXCEPTION
7976:
7977: IF (g_level_procedure >= g_current_runtime_level ) THEN
7978: FND_LOG.STRING(g_level_procedure,
7979: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses.END',
7980: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Reg_Site_Uses(-)'||'rounding level code :'||p_rounding_level_code
7981: ||'rounding rule code: '||p_Rounding_Rule_Code);
7982: END IF;
7983: EXCEPTION
7984: WHEN OTHERS THEN
7987: END IF;
7988:
7989: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7990: FND_LOG.STRING(g_level_unexpected,
7991: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses.END',
7992: 'Exception in ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses('||SQLCODE||SQLERRM);
7993: END IF;
7994: END Get_Reg_Site_Uses;
7995:
7988:
7989: IF (g_level_unexpected >= g_current_runtime_level ) THEN
7990: FND_LOG.STRING(g_level_unexpected,
7991: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses.END',
7992: 'Exception in ZX_TDS_TAX_ROUNDING_PKG.Get_Reg_Site_Uses('||SQLCODE||SQLERRM);
7993: END IF;
7994: END Get_Reg_Site_Uses;
7995:
7996: -----------------------------------------------------------------------
8025: BEGIN
8026:
8027: IF (g_level_statement >= g_current_runtime_level ) THEN
8028: FND_LOG.STRING(g_level_statement,
8029: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts.BEGIN',
8030: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Accts(+)');
8031: FND_LOG.STRING(g_level_statement,
8032: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts',
8033: 'p_account_id : ' || TO_CHAR(p_account_id)) ;
8026:
8027: IF (g_level_statement >= g_current_runtime_level ) THEN
8028: FND_LOG.STRING(g_level_statement,
8029: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts.BEGIN',
8030: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Accts(+)');
8031: FND_LOG.STRING(g_level_statement,
8032: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts',
8033: 'p_account_id : ' || TO_CHAR(p_account_id)) ;
8034:
8028: FND_LOG.STRING(g_level_statement,
8029: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts.BEGIN',
8030: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Accts(+)');
8031: FND_LOG.STRING(g_level_statement,
8032: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts',
8033: 'p_account_id : ' || TO_CHAR(p_account_id)) ;
8034:
8035: END IF;
8036:
8048: p_rounding_level_code := 'LINE';
8049: END IF;
8050:
8051: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8052: FND_LOG.STRING(G_LEVEL_STATEMENT,'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts',
8053: 'Cust Account information found in cache');
8054: END IF;
8055: ELSE
8056: OPEN c_customer_account (p_account_id);
8080:
8081:
8082: IF (g_level_procedure >= g_current_runtime_level ) THEN
8083: FND_LOG.STRING(g_level_procedure,
8084: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts.END',
8085: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Accts(-)'||'rounding level code :'||p_rounding_level_code
8086: ||'rounding rule code: '||p_Rounding_Rule_Code);
8087: END IF;
8088:
8081:
8082: IF (g_level_procedure >= g_current_runtime_level ) THEN
8083: FND_LOG.STRING(g_level_procedure,
8084: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts.END',
8085: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Accts(-)'||'rounding level code :'||p_rounding_level_code
8086: ||'rounding rule code: '||p_Rounding_Rule_Code);
8087: END IF;
8088:
8089: EXCEPTION
8093: END IF;
8094:
8095: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8096: FND_LOG.STRING(g_level_unexpected,
8097: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts',
8098: 'Exception in ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts: '||SQLCODE||SQLERRM);
8099: END IF;
8100: END Get_Registration_Accts;
8101:
8094:
8095: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8096: FND_LOG.STRING(g_level_unexpected,
8097: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts',
8098: 'Exception in ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Accts: '||SQLCODE||SQLERRM);
8099: END IF;
8100: END Get_Registration_Accts;
8101:
8102:
8118: BEGIN
8119:
8120: IF (g_level_procedure >= g_current_runtime_level ) THEN
8121: FND_LOG.STRING(g_level_procedure,
8122: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party.BEGIN',
8123: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Party(+)');
8124: FND_LOG.STRING(g_level_procedure,
8125: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party',
8126: 'p_party_tax_profile_id : ' || TO_CHAR(p_party_tax_profile_id)) ;
8119:
8120: IF (g_level_procedure >= g_current_runtime_level ) THEN
8121: FND_LOG.STRING(g_level_procedure,
8122: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party.BEGIN',
8123: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Party(+)');
8124: FND_LOG.STRING(g_level_procedure,
8125: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party',
8126: 'p_party_tax_profile_id : ' || TO_CHAR(p_party_tax_profile_id)) ;
8127: END IF;
8121: FND_LOG.STRING(g_level_procedure,
8122: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party.BEGIN',
8123: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Party(+)');
8124: FND_LOG.STRING(g_level_procedure,
8125: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party',
8126: 'p_party_tax_profile_id : ' || TO_CHAR(p_party_tax_profile_id)) ;
8127: END IF;
8128:
8129: p_return_status := FND_API.G_RET_STS_SUCCESS;
8144: ELSE
8145:
8146: IF (g_level_procedure >= g_current_runtime_level ) THEN
8147: FND_LOG.STRING(g_level_procedure,
8148: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party',
8149: 'ZX_TDS_TAX_ROUNDING_PKG: The party tax profile id is not valid: '||p_party_tax_profile_id);
8150: END IF;
8151:
8152: END IF;
8145:
8146: IF (g_level_procedure >= g_current_runtime_level ) THEN
8147: FND_LOG.STRING(g_level_procedure,
8148: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party',
8149: 'ZX_TDS_TAX_ROUNDING_PKG: The party tax profile id is not valid: '||p_party_tax_profile_id);
8150: END IF;
8151:
8152: END IF;
8153:
8153:
8154:
8155: IF (g_level_procedure >= g_current_runtime_level ) THEN
8156: FND_LOG.STRING(g_level_procedure,
8157: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party.END',
8158: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Party(-)'||'rounding level code :'||p_rounding_level_code);
8159: END IF;
8160:
8161: EXCEPTION
8154:
8155: IF (g_level_procedure >= g_current_runtime_level ) THEN
8156: FND_LOG.STRING(g_level_procedure,
8157: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party.END',
8158: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Party(-)'||'rounding level code :'||p_rounding_level_code);
8159: END IF;
8160:
8161: EXCEPTION
8162:
8162:
8163: WHEN OTHERS THEN
8164: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8165: FND_LOG.STRING(g_level_unexpected,
8166: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party',
8167: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Party'||'Exception in ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party '||
8168: SQLCODE||SQLERRM);
8169: END IF;
8170:
8163: WHEN OTHERS THEN
8164: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8165: FND_LOG.STRING(g_level_unexpected,
8166: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party',
8167: 'ZX_TDS_TAX_ROUNDING_PKG: Get_Registration_Party'||'Exception in ZX_TDS_TAX_ROUNDING_PKG.Get_Registration_Party '||
8168: SQLCODE||SQLERRM);
8169: END IF;
8170:
8171: END Get_Registration_Party;
8195: BEGIN
8196:
8197: IF (g_level_procedure >= g_current_runtime_level ) THEN
8198: FND_LOG.STRING(g_level_procedure,
8199: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level.BEGIN',
8200: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level(+)');
8201: FND_LOG.STRING(g_level_procedure,
8202: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8203: 'p_parent_ptp_id : ' || TO_CHAR(p_parent_ptp_id));
8196:
8197: IF (g_level_procedure >= g_current_runtime_level ) THEN
8198: FND_LOG.STRING(g_level_procedure,
8199: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level.BEGIN',
8200: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level(+)');
8201: FND_LOG.STRING(g_level_procedure,
8202: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8203: 'p_parent_ptp_id : ' || TO_CHAR(p_parent_ptp_id));
8204: FND_LOG.STRING(g_level_procedure,
8198: FND_LOG.STRING(g_level_procedure,
8199: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level.BEGIN',
8200: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level(+)');
8201: FND_LOG.STRING(g_level_procedure,
8202: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8203: 'p_parent_ptp_id : ' || TO_CHAR(p_parent_ptp_id));
8204: FND_LOG.STRING(g_level_procedure,
8205: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8206: 'p_site_ptp_id : ' || TO_CHAR(p_site_ptp_id));
8201: FND_LOG.STRING(g_level_procedure,
8202: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8203: 'p_parent_ptp_id : ' || TO_CHAR(p_parent_ptp_id));
8204: FND_LOG.STRING(g_level_procedure,
8205: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8206: 'p_site_ptp_id : ' || TO_CHAR(p_site_ptp_id));
8207: FND_LOG.STRING(g_level_procedure,
8208: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8209: 'p_account_Type_Code : ' || p_account_Type_Code);
8204: FND_LOG.STRING(g_level_procedure,
8205: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8206: 'p_site_ptp_id : ' || TO_CHAR(p_site_ptp_id));
8207: FND_LOG.STRING(g_level_procedure,
8208: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8209: 'p_account_Type_Code : ' || p_account_Type_Code);
8210: FND_LOG.STRING(g_level_procedure,
8211: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8212: 'p_account_id : ' || TO_CHAR(p_account_id));
8207: FND_LOG.STRING(g_level_procedure,
8208: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8209: 'p_account_Type_Code : ' || p_account_Type_Code);
8210: FND_LOG.STRING(g_level_procedure,
8211: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8212: 'p_account_id : ' || TO_CHAR(p_account_id));
8213: FND_LOG.STRING(g_level_procedure,
8214: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8215: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
8210: FND_LOG.STRING(g_level_procedure,
8211: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8212: 'p_account_id : ' || TO_CHAR(p_account_id));
8213: FND_LOG.STRING(g_level_procedure,
8214: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8215: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
8216: FND_LOG.STRING(g_level_procedure,
8217: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8218: 'p_site_use_id : ' || TO_CHAR(p_site_use_id));
8213: FND_LOG.STRING(g_level_procedure,
8214: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8215: 'p_account_site_id : ' || TO_CHAR(p_account_site_id));
8216: FND_LOG.STRING(g_level_procedure,
8217: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8218: 'p_site_use_id : ' || TO_CHAR(p_site_use_id));
8219:
8220: END IF;
8221:
8296: END IF;
8297:
8298: IF (g_level_procedure >= g_current_runtime_level ) THEN
8299: FND_LOG.STRING(g_level_procedure,
8300: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level.END',
8301: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level(-)'||'rounding level code :'||p_rounding_level_code);
8302: END IF;
8303:
8304: EXCEPTION
8297:
8298: IF (g_level_procedure >= g_current_runtime_level ) THEN
8299: FND_LOG.STRING(g_level_procedure,
8300: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level.END',
8301: 'ZX_TDS_TAX_ROUNDING_PKG: get_rounding_level(-)'||'rounding level code :'||p_rounding_level_code);
8302: END IF;
8303:
8304: EXCEPTION
8305: WHEN OTHERS THEN
8307: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
8308:
8309: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8310: FND_LOG.STRING(g_level_unexpected,
8311: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_rounding_level',
8312: p_error_buffer);
8313: END IF;
8314:
8315: END get_rounding_level;
8340: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8341:
8342: IF (g_level_procedure >= g_current_runtime_level ) THEN
8343: FND_LOG.STRING(g_level_procedure,
8344: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_funcl_curr_info.BEGIN',
8345: 'ZX_TDS_TAX_ROUNDING_PKG: get_funcl_curr_info(+)'||
8346: ' p_ledger_id = ' || to_char(p_ledger_id));
8347:
8348: END IF;
8341:
8342: IF (g_level_procedure >= g_current_runtime_level ) THEN
8343: FND_LOG.STRING(g_level_procedure,
8344: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_funcl_curr_info.BEGIN',
8345: 'ZX_TDS_TAX_ROUNDING_PKG: get_funcl_curr_info(+)'||
8346: ' p_ledger_id = ' || to_char(p_ledger_id));
8347:
8348: END IF;
8349:
8385:
8386: IF (g_level_procedure >= g_current_runtime_level ) THEN
8387:
8388: FND_LOG.STRING(g_level_procedure,
8389: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_funcl_curr_info.END',
8390: 'ZX_TDS_TAX_ROUNDING_PKG: get_funcl_curr_info(-)'||
8391: ' functional currency = ' || p_funcl_currency_code ||
8392: ' min acct unit = ' ||
8393: to_char(p_funcl_min_acct_unit)||
8386: IF (g_level_procedure >= g_current_runtime_level ) THEN
8387:
8388: FND_LOG.STRING(g_level_procedure,
8389: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_funcl_curr_info.END',
8390: 'ZX_TDS_TAX_ROUNDING_PKG: get_funcl_curr_info(-)'||
8391: ' functional currency = ' || p_funcl_currency_code ||
8392: ' min acct unit = ' ||
8393: to_char(p_funcl_min_acct_unit)||
8394: ' precision = ' ||
8401: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
8402:
8403: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8404: FND_LOG.STRING(g_level_unexpected,
8405: 'ZX.PLSQL.ZX_TDS_TAX_ROUNDING_PKG.get_funcl_curr_info',
8406: p_error_buffer);
8407: END IF;
8408:
8409: END get_funcl_curr_info;
8408:
8409: END get_funcl_curr_info;
8410: -----------------------------------------------------------------------
8411:
8412: END ZX_TDS_TAX_ROUNDING_PKG;