1: PACKAGE BODY ZX_GLOBAL_STRUCTURES_PKG AS
2: /* $Header: zxifgblparampkgb.pls 120.27.12010000.2 2009/10/12 18:40:25 tsen ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_GLOBAL_STRUCTURES_PKG';
5: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
2: /* $Header: zxifgblparampkgb.pls 120.27.12010000.2 2009/10/12 18:40:25 tsen ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_GLOBAL_STRUCTURES_PKG';
5: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_GLOBAL_STRUCTURES_PKG';
5: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_GLOBAL_STRUCTURES_PKG';
5: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'ZX.PLSQL.ZX_GLOBAL_STRUCTURES_PKG.';
5: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'ZX.PLSQL.ZX_GLOBAL_STRUCTURES_PKG.';
13:
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'ZX.PLSQL.ZX_GLOBAL_STRUCTURES_PKG.';
13:
14: PROCEDURE init_tax_regime_tbl IS
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
12: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'ZX.PLSQL.ZX_GLOBAL_STRUCTURES_PKG.';
13:
14: PROCEDURE init_tax_regime_tbl IS
15: BEGIN
25: l_api_name CONSTANT VARCHAR2(30):= 'INIT_TRX_LINE_APP_REGIME_TBL';
26:
27: BEGIN
28: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
29: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
30: END IF;
31:
32: ZX_GLOBAL_STRUCTURES_PKG.trx_line_app_regime_tbl.APPLICATION_ID.delete;
33: ZX_GLOBAL_STRUCTURES_PKG.trx_line_app_regime_tbl.ENTITY_CODE.delete;
39: ZX_GLOBAL_STRUCTURES_PKG.trx_line_app_regime_tbl.TAX_REGIME_ID.delete;
40: ZX_GLOBAL_STRUCTURES_PKG.trx_line_app_regime_tbl.TAX_PROVIDER_ID.delete;
41: ZX_GLOBAL_STRUCTURES_PKG.trx_line_app_regime_tbl.ALLOW_TAX_CALCULATION_FLAG.delete;
42: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
43: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
44: END IF;
45:
46: END init_trx_line_app_regime_tbl;
47:
92:
93: x_return_status := FND_API.G_RET_STS_SUCCESS;
94:
95: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
96: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'get_product_options_info'||'.BEGIN','ZX_GLOBAL_STRUCTURES_PKG: get_product_options_info()+ ');
97: END IF;
98:
99: l_tbl_index := dbms_utility.get_hash_value(to_char(p_application_id)||to_char(p_org_id), 1, 8192);
100: IF g_zx_proudct_options_tbl.exists(l_tbl_index) then
100: IF g_zx_proudct_options_tbl.exists(l_tbl_index) then
101: x_product_options_rec := g_zx_proudct_options_tbl(l_tbl_index);
102:
103: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
104: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'get_product_options_info','Found product options info in cache.');
105: END IF;
106: ELSE
107: BEGIN
108: open c_product_options(p_application_id, p_org_id);
115: IF c_product_options%isopen then
116: close c_product_options;
117: END IF;
118: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
119: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||'get_product_options_info','Exception:No Data Found');
120: END IF;
121: END;
122: END IF;
123:
121: END;
122: END IF;
123:
124: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
125: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'get_product_options_info'||'.END','ZX_GLOBAL_STRUCTURES_PKG: get_product_options_info()-');
126: END IF;
127:
128: EXCEPTION
129: when others then
131: close c_product_options;
132: end if;
133: x_return_status := FND_API.G_RET_STS_ERROR;
134: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
135: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||'get_product_options_info','Exception: '||SQLCODE||' ; '||SQLERRM);
136: END IF;
137: END get_product_options_info;
138:
139: -- bug 8969799:
185:
186: x_return_status := FND_API.G_RET_STS_SUCCESS;
187:
188: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
189: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'get_product_options_info'||'.BEGIN','ZX_GLOBAL_STRUCTURES_PKG: get_product_options_info()+ ');
190: END IF;
191:
192: IF p_event_class_mapping_id IS NOT NULL THEN
193: l_tbl_index := dbms_utility.get_hash_value(
203: IF g_zx_proudct_options_tbl.exists(l_tbl_index) then
204: x_product_options_rec := g_zx_proudct_options_tbl(l_tbl_index);
205:
206: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
207: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'get_product_options_info','Found product options info in cache.');
208: END IF;
209: ELSE
210: BEGIN
211: open c_product_options(p_application_id, p_org_id, p_event_class_mapping_id);
218: IF c_product_options%isopen then
219: close c_product_options;
220: END IF;
221: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
222: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||'get_product_options_info','Exception:No Data Found');
223: END IF;
224: END;
225: END IF;
226:
224: END;
225: END IF;
226:
227: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
228: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'get_product_options_info'||'.END','ZX_GLOBAL_STRUCTURES_PKG: get_product_options_info()-');
229: END IF;
230:
231: EXCEPTION
232: when others then
234: close c_product_options;
235: end if;
236: x_return_status := FND_API.G_RET_STS_ERROR;
237: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
238: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||'get_product_options_info','Exception: '||SQLCODE||' ; '||SQLERRM);
239: END IF;
240: END get_product_options_info;
241:
242: PROCEDURE get_regimes_usages_info(p_tax_regime_code IN VARCHAR2,
259:
260: BEGIN
261:
262: --IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
263: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'get_regimes_usages_info'||'.BEGIN','ZX_GLOBAL_STRUCTURES_PKG: get_regimes_usages_info()+ ');
264: --END IF;
265:
266: x_return_status := FND_API.G_RET_STS_SUCCESS;
267: l_tbl_index := dbms_utility.get_hash_value(p_tax_regime_code||to_char(p_first_pty_org_id), 1, 8192);
281:
282: END IF;
283:
284: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
285: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'get_regimes_usages_info'||'.END','ZX_GLOBAL_STRUCTURES_PKG: get_regimes_usages_info()- ');
286: -- END IF;
287:
288: EXCEPTION
289: WHEN OTHERS THEN
291: close c_regimes_usasges;
292: END IF;
293:
294: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
295: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||'get_regimes_usages_info','Exception in ZX_GLOBAL_STRUCTURES_PKG.get_regimes_usages_info:'
296: ||SQLCODE||' ; '||SQLERRM);
297: END IF;
298: END get_regimes_usages_info;
299:
305:
306: PROCEDURE delete_trx_line_dist_tbl IS
307: BEGIN
308: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
309: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'DELETE_TRX_LINE_DIST_TBL'||'.BEGIN','ZX_GLOBAL_STRUCTURES_PKG: delete_trx_line_dist_tbl()+');
310: END IF;
311: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.INTERNAL_ORGANIZATION_ID.DELETE ;
312: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.APPLICATION_ID.DELETE ;
313: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ENTITY_CODE.DELETE ;
724: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.GLOBAL_ATTRIBUTE1.DELETE ;
725: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.GLOBAL_ATTRIBUTE_CATEGORY.DELETE ;
726: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TOTAL_INC_TAX_AMT.DELETE ;
727: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
728: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'DELETE_TRX_LINE_DIST_TBL'||'.END','ZX_GLOBAL_STRUCTURES_PKG: delete_trx_line_dist_tbl()-');
729: END IF;
730: END delete_trx_line_dist_tbl;
731:
732: PROCEDURE init_trx_line_dist_tbl(l_trx_line_index IN NUMBER) IS
731:
732: PROCEDURE init_trx_line_dist_tbl(l_trx_line_index IN NUMBER) IS
733: BEGIN
734: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
735: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'INIT_TRX_LINE_DIST_TBL'||'.BEGIN','ZX_GLOBAL_STRUCTURES_PKG: init_trx_line_dist_tbl()+');
736: END IF;
737: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.INTERNAL_ORGANIZATION_ID(l_trx_line_index) := null;
738: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.APPLICATION_ID(l_trx_line_index) := null;
739: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ENTITY_CODE(l_trx_line_index) := null;
1150: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.GLOBAL_ATTRIBUTE1(l_trx_line_index) := null;
1151: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.GLOBAL_ATTRIBUTE_CATEGORY(l_trx_line_index) := null;
1152: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TOTAL_INC_TAX_AMT(l_trx_line_index) := null;
1153: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1154: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||' INIT_TRX_LINE_DIST_TBL'||'.END','ZX_GLOBAL_STRUCTURES_PKG: init_trx_line_dist_tbl()-');
1155: END IF;
1156: END init_trx_line_dist_tbl;
1157: END ZX_GLOBAL_STRUCTURES_PKG;