1: PACKAGE BODY zx_security AS
2: /* $Header: zxifdtaccsecpvtb.pls 120.36 2011/01/13 23:01:55 prigovin ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1: PACKAGE BODY zx_security AS
2: /* $Header: zxifdtaccsecpvtb.pls 120.36 2011/01/13 23:01:55 prigovin ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
2: /* $Header: zxifdtaccsecpvtb.pls 120.36 2011/01/13 23:01:55 prigovin ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
3:
4: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'ZX.PLSQL.ZX_SECURITY.';
4: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'ZX.PLSQL.ZX_SECURITY.';
12:
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'ZX.PLSQL.ZX_SECURITY.';
12:
13:
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'ZX.PLSQL.ZX_SECURITY.';
12:
13:
14:
281: IS
282: l_count NUMBER :=0;
283: BEGIN
284: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
285: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'SET_SECURITY_CONTEXT.BEGIN','ZX_SECURITY: CHECK_WRITE_ACCESS()+');
286: END IF;
287:
288: x_return_status := FND_API.G_RET_STS_SUCCESS;
289: IF fnd_profile.value('ZX_GCO_WRITE_ACCESS') = 'Y' then
304: and det.view_options_code = 'VFC';
305: END IF;
306:
307: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
308: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'SET_SECURITY_CONTEXT.END','ZX_SECURITY: CHECK_WRITE_ACCESS()-');
309: END IF;
310:
311: EXCEPTION
312: WHEN NO_DATA_FOUND THEN
314: --FND_MESSAGE.Set_Name ('ZX','GENERIC_MESSAGE');
315: --FND_MESSAGE.Set_Token('GENERIC_TEXT', SQLERRM);
316:
317: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
318: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||'SET_SECURITY_CONTEXT', SQLERRM);
319: END IF;
320:
321: WHEN OTHERS THEN
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320:
321: WHEN OTHERS THEN
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
324: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||'SET_SECURITY_CONTEXT', SQLERRM);
325: END IF;
326:
327: END check_write_access;
328:
393:
394: BEGIN
395:
396: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
397: FND_LOG.STRING(G_LEVEL_STATEMENT,
398: G_MODULE_NAME||'SET_SECURITY_CONTEXT.BEGIN',
399: 'ZX_SECURITY: SET_SECURITY_CONTEXT()+' ||
400: ', OU: '||to_char(p_internal_org_id)||' and LE: '||to_char(p_legal_entity_id));
401: END IF;
429: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
430: x_return_status := FND_API.G_RET_STS_ERROR;
431:
432: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
433: FND_LOG.STRING(G_LEVEL_STATEMENT,
434: G_MODULE_NAME||'SET_SECURITY_CONTEXT',
435: 'Incorrect return status after calling ZX_TCM_PTP_PKG.GET_TAX_SUBSCRIBER'||
436: ', l_return_status: '||l_return_status);
437: END IF;
439: Return;
440: END IF;
441:
442: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
443: FND_LOG.STRING(G_LEVEL_STATEMENT,
444: G_MODULE_NAME||'SET_SECURITY_CONTEXT.END',
445: 'ZX_SECURITY: SET_SECURITY_CONTEXT()-'||
446: ', G_EFFECTIVE_DATE: '||to_char(G_EFFECTIVE_DATE) ||
447: ', G_FIRST_PARTY_ORG_ID: '||to_char(G_FIRST_PARTY_ORG_ID));
461:
462: BEGIN
463:
464: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
465: FND_LOG.STRING(G_LEVEL_STATEMENT,
466: G_MODULE_NAME||'SET_SECURITY_CONTEXT.BEGIN',
467: 'ZX_SECURITY: SET_SECURITY_CONTEXT()+' ||
468: ', OU: '||to_char(p_internal_org_id)||' and LE: '||to_char(p_legal_entity_id));
469: END IF;
481: -- dbms_session.set_context('my_ctx','FIRSTPTYORGID',to_char(G_FIRST_PARTY_ORG_ID));
482: -- dbms_session.set_context('my_ctx','EFFECTIVEDATE',to_char(G_EFFECTIVE_DATE));
483:
484: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
485: FND_LOG.STRING(G_LEVEL_STATEMENT,
486: G_MODULE_NAME||'SET_SECURITY_CONTEXT.END',
487: 'ZX_SECURITY: SET_SECURITY_CONTEXT()-' ||
488: ', G_EFFECTIVE_DATE: '||nvl(SYS_CONTEXT('my_ctx','EFFECTIVEDATE'),sysdate) ||
489: ', G_FIRST_PARTY_ORG_ID:
508: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
509: x_return_status := FND_API.G_RET_STS_ERROR;
510:
511: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
512: FND_LOG.STRING(G_LEVEL_STATEMENT,
513: G_MODULE_NAME||'SET_SECURITY_CONTEXT',
514: 'Incorrect return status after calling ZX_TCM_PTP_PKG.GET_TAX_SUBSCRIBER'||
515: ', l_return_status: '||l_return_status);
516: END IF;
518: Return;
519: END IF;
520:
521: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
522: FND_LOG.STRING(G_LEVEL_STATEMENT,
523: G_MODULE_NAME||'SET_SECURITY_CONTEXT.END',
524: 'ZX_SECURITY: SET_SECURITY_CONTEXT()-'||
525: ', G_EFFECTIVE_DATE: '||to_char(G_EFFECTIVE_DATE) ||
526: ', G_FIRST_PARTY_ORG_ID: '||to_char(G_FIRST_PARTY_ORG_ID));
540:
541: BEGIN
542:
543: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
544: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'SET_SECURITY_CONTEXT.BEGIN','ZX_SECURITY: SET_SECURITY_CONTEXT()+');
545: END IF;
546:
547: x_return_status := FND_API.G_RET_STS_SUCCESS;
548:
567: G_EFFECTIVE_DATE := L_EFFECTIVE_DATE;
568: END IF;
569:
570: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
571: FND_LOG.STRING(G_LEVEL_STATEMENT,
572: G_MODULE_NAME||'SET_SECURITY_CONTEXT.END',
573: 'ZX_SECURITY: SET_SECURITY_CONTEXT()-' ||
574: ', G_EFFECTIVE_DATE: '||to_char(G_EFFECTIVE_DATE) ||
575: ', G_FIRST_PARTY_ORG_ID: '||to_char(G_FIRST_PARTY_ORG_ID) );