1: PACKAGE BODY JG_ZZ_TAX AS
2: /* $Header: jgzzrtxb.pls 120.10.12010000.1 2008/07/28 07:58:21 appldev ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
8:
9: FUNCTION recalculate_tax RETURN VARCHAR2 IS
2: /* $Header: jgzzrtxb.pls 120.10.12010000.1 2008/07/28 07:58:21 appldev ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
8:
9: FUNCTION recalculate_tax RETURN VARCHAR2 IS
10: --
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
8:
9: FUNCTION recalculate_tax RETURN VARCHAR2 IS
10: --
11: l_return_code VARCHAR2(1);
12: l_country_code VARCHAR2(2);
13: --l_tax_method zx_product_options.tax_method_code%type;
14: BEGIN
15:
16: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
17:
18: IF (g_level_statement >= g_current_runtime_level ) THEN
19: FND_LOG.STRING(g_level_statement,
20: 'JG.PLSQL.JG_ZZ_TAX.recalculate_tax.BEGIN',
15:
16: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
17:
18: IF (g_level_statement >= g_current_runtime_level ) THEN
19: FND_LOG.STRING(g_level_statement,
20: 'JG.PLSQL.JG_ZZ_TAX.recalculate_tax.BEGIN',
21: 'JG_ZZ_TAX: recalculate_tax(+)');
22: END IF;
23:
31: null);
32: --l_country_code := FND_PROFILE.VALUE('JGZZ_COUNTRY_CODE');
33:
34: IF (g_level_statement >= g_current_runtime_level ) THEN
35: FND_LOG.STRING(g_level_statement,
36: 'JG.PLSQL.JG_ZZ_TAX.recalculate_tax',
37: 'l_country_code = ' || l_country_code);
38: END IF;
39:
50: EXCEPTION
51: WHEN OTHERS THEN
52: l_tax_method := NULL;
53: IF (g_level_unexpected >= g_current_runtime_level ) THEN
54: FND_LOG.STRING(g_level_unexpected,
55: 'JG.PLSQL.JG_ZZ_TAX.recalculate_tax',
56: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
57: END IF;
58: END;
75: -- END IF;
76: END IF;
77:
78: IF (g_level_statement >= g_current_runtime_level ) THEN
79: FND_LOG.STRING(g_level_statement,
80: 'JG.PLSQL.JG_ZZ_TAX.recalculate_tax',
81: 'l_return_code = ' || l_return_code);
82: FND_LOG.STRING(g_level_statement,
83: 'JG.PLSQL.JG_ZZ_TAX.recalculate_tax.END',
78: IF (g_level_statement >= g_current_runtime_level ) THEN
79: FND_LOG.STRING(g_level_statement,
80: 'JG.PLSQL.JG_ZZ_TAX.recalculate_tax',
81: 'l_return_code = ' || l_return_code);
82: FND_LOG.STRING(g_level_statement,
83: 'JG.PLSQL.JG_ZZ_TAX.recalculate_tax.END',
84: 'JG_ZZ_TAX: recalculate_tax(-)');
85: END IF;
86:
96: l_country_code VARCHAR2(2);
97: --l_tax_method zx_product_options.tax_method_code%type;
98: BEGIN
99:
100: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
101:
102: IF (g_level_statement >= g_current_runtime_level ) THEN
103: FND_LOG.STRING(g_level_statement,
104: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code.BEGIN',
99:
100: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
101:
102: IF (g_level_statement >= g_current_runtime_level ) THEN
103: FND_LOG.STRING(g_level_statement,
104: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code.BEGIN',
105: 'JG_ZZ_TAX: get_default_tax_code(+)');
106: END IF;
107:
128: EXCEPTION
129: WHEN OTHERS THEN
130: l_tax_method := NULL;
131: IF (g_level_unexpected >= g_current_runtime_level ) THEN
132: FND_LOG.STRING(g_level_unexpected,
133: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code',
134: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
135: END IF;
136:
136:
137: END;
138:
139: IF (g_level_statement >= g_current_runtime_level ) THEN
140: FND_LOG.STRING(g_level_statement,
141: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code',
142: 'l_tax_method = ' || l_tax_method);
143: FND_LOG.STRING(g_level_statement,
144: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code',
139: IF (g_level_statement >= g_current_runtime_level ) THEN
140: FND_LOG.STRING(g_level_statement,
141: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code',
142: 'l_tax_method = ' || l_tax_method);
143: FND_LOG.STRING(g_level_statement,
144: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code',
145: 'l_org_id = ' || TO_CHAR(l_org_id));
146: END IF;
147:
151:
152: l_org_id := ZX_AR_TAX_CLASSIFICATN_DEF_PKG.sysinfo.ar_product_options_rec.org_id;
153:
154: IF (g_level_statement >= g_current_runtime_level ) THEN
155: FND_LOG.STRING(g_level_statement,
156: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code'
157: ,
158: 'l_org_id = ' || TO_CHAR(l_org_id));
159: END IF;
181: l_tax_code := NULL;
182: WHEN OTHERS THEN
183: l_tax_code := NULL;
184: IF (g_level_unexpected >= g_current_runtime_level ) THEN
185: FND_LOG.STRING(g_level_unexpected,
186: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code',
187: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
188: END IF;
189: END;
191:
192: -- END IF;
193:
194: IF (g_level_statement >= g_current_runtime_level ) THEN
195: FND_LOG.STRING(g_level_statement,
196: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code',
197: 'l_tax_code = ' || l_tax_code);
198: FND_LOG.STRING(g_level_statement,
199: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code.END',
194: IF (g_level_statement >= g_current_runtime_level ) THEN
195: FND_LOG.STRING(g_level_statement,
196: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code',
197: 'l_tax_code = ' || l_tax_code);
198: FND_LOG.STRING(g_level_statement,
199: 'JG.PLSQL.JG_ZZ_TAX.get_default_tax_code.END',
200: 'JG_ZZ_TAX: get_default_tax_code(-)');
201: END IF;
202: