1: PACKAGE BODY zx_security AS
2: /* $Header: zxifdtaccsecpvtb.pls 120.33.12010000.2 2008/11/12 12:29:24 spasala 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.33.12010000.2 2008/11/12 12:29:24 spasala 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.33.12010000.2 2008/11/12 12:29:24 spasala 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:
391:
392: BEGIN
393:
394: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
395: FND_LOG.STRING(G_LEVEL_STATEMENT,
396: G_MODULE_NAME||'SET_SECURITY_CONTEXT.BEGIN',
397: 'ZX_SECURITY: SET_SECURITY_CONTEXT()+' ||
398: ', OU: '||to_char(p_internal_org_id)||' and LE: '||to_char(p_legal_entity_id));
399: END IF;
427: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
428: x_return_status := FND_API.G_RET_STS_ERROR;
429:
430: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
431: FND_LOG.STRING(G_LEVEL_STATEMENT,
432: G_MODULE_NAME||'SET_SECURITY_CONTEXT',
433: 'Incorrect return status after calling ZX_TCM_PTP_PKG.GET_TAX_SUBSCRIBER'||
434: ', l_return_status: '||l_return_status);
435: END IF;
437: Return;
438: END IF;
439:
440: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
441: FND_LOG.STRING(G_LEVEL_STATEMENT,
442: G_MODULE_NAME||'SET_SECURITY_CONTEXT.END',
443: 'ZX_SECURITY: SET_SECURITY_CONTEXT()-'||
444: ', G_EFFECTIVE_DATE: '||to_char(G_EFFECTIVE_DATE) ||
445: ', G_FIRST_PARTY_ORG_ID: '||to_char(G_FIRST_PARTY_ORG_ID));
459:
460: BEGIN
461:
462: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
463: FND_LOG.STRING(G_LEVEL_STATEMENT,
464: G_MODULE_NAME||'SET_SECURITY_CONTEXT.BEGIN',
465: 'ZX_SECURITY: SET_SECURITY_CONTEXT()+' ||
466: ', OU: '||to_char(p_internal_org_id)||' and LE: '||to_char(p_legal_entity_id));
467: END IF;
479: -- dbms_session.set_context('my_ctx','FIRSTPTYORGID',to_char(G_FIRST_PARTY_ORG_ID));
480: -- dbms_session.set_context('my_ctx','EFFECTIVEDATE',to_char(G_EFFECTIVE_DATE));
481:
482: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
483: FND_LOG.STRING(G_LEVEL_STATEMENT,
484: G_MODULE_NAME||'SET_SECURITY_CONTEXT.END',
485: 'ZX_SECURITY: SET_SECURITY_CONTEXT()-' ||
486: ', G_EFFECTIVE_DATE: '||nvl(SYS_CONTEXT('my_ctx','EFFECTIVEDATE'),sysdate) ||
487: ', G_FIRST_PARTY_ORG_ID:
506: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
507: x_return_status := FND_API.G_RET_STS_ERROR;
508:
509: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
510: FND_LOG.STRING(G_LEVEL_STATEMENT,
511: G_MODULE_NAME||'SET_SECURITY_CONTEXT',
512: 'Incorrect return status after calling ZX_TCM_PTP_PKG.GET_TAX_SUBSCRIBER'||
513: ', l_return_status: '||l_return_status);
514: END IF;
516: Return;
517: END IF;
518:
519: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
520: FND_LOG.STRING(G_LEVEL_STATEMENT,
521: G_MODULE_NAME||'SET_SECURITY_CONTEXT.END',
522: 'ZX_SECURITY: SET_SECURITY_CONTEXT()-'||
523: ', G_EFFECTIVE_DATE: '||to_char(G_EFFECTIVE_DATE) ||
524: ', G_FIRST_PARTY_ORG_ID: '||to_char(G_FIRST_PARTY_ORG_ID));
538:
539: BEGIN
540:
541: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
542: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||'SET_SECURITY_CONTEXT.BEGIN','ZX_SECURITY: SET_SECURITY_CONTEXT()+');
543: END IF;
544:
545: x_return_status := FND_API.G_RET_STS_SUCCESS;
546:
565: G_EFFECTIVE_DATE := L_EFFECTIVE_DATE;
566: END IF;
567:
568: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
569: FND_LOG.STRING(G_LEVEL_STATEMENT,
570: G_MODULE_NAME||'SET_SECURITY_CONTEXT.END',
571: 'ZX_SECURITY: SET_SECURITY_CONTEXT()-' ||
572: ', G_EFFECTIVE_DATE: '||to_char(G_EFFECTIVE_DATE) ||
573: ', G_FIRST_PARTY_ORG_ID: '||to_char(G_FIRST_PARTY_ORG_ID) );