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
290: IF p_first_party_org_id <> -99 then
291: select 1
292: into l_count
309: END IF;
310:
311: EXCEPTION
312: WHEN NO_DATA_FOUND THEN
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
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:
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;
402:
403: x_return_status := FND_API.G_RET_STS_SUCCESS;
404:
405: L_EFFECTIVE_DATE := nvl(p_effective_date,sysdate);
406:
407: ZX_TCM_PTP_PKG.GET_TAX_SUBSCRIBER(p_legal_entity_id,
425: name_value('EFFECTIVEDATE',to_char(L_EFFECTIVE_DATE));
426: G_EFFECTIVE_DATE := L_EFFECTIVE_DATE;
427: END IF;
428:
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,
426: G_EFFECTIVE_DATE := L_EFFECTIVE_DATE;
427: END IF;
428:
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',
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;
470:
471: x_return_status := FND_API.G_RET_STS_SUCCESS;
472:
473: L_EFFECTIVE_DATE := nvl(p_effective_date,sysdate);
474:
475: ZX_TCM_PTP_PKG.GET_TAX_SUBSCRIBER(p_legal_entity_id,
504: name_value('EFFECTIVEDATE',to_char(L_EFFECTIVE_DATE));
505: G_EFFECTIVE_DATE := L_EFFECTIVE_DATE;
506: END IF;
507:
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,
505: G_EFFECTIVE_DATE := L_EFFECTIVE_DATE;
506: END IF;
507:
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',
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:
549: L_EFFECTIVE_DATE := nvl(p_effective_date,sysdate);
550:
551: L_FIRST_PARTY_ORG_ID := p_first_party_org_id;