[Home] [Help]
121: D_predicate VARCHAR2 (2000);
122: BEGIN
123:
124:
125: IF fnd_profile.value ('ZX_GCO_WRITE_ACCESS') = 'Y' then
126: D_predicate := '(content_owner_id, tax_regime_code) IN
127: (select det.parent_first_pty_org_id, det.tax_regime_code
128: from ZX_SUBSCRIPTION_DETAILS det,
129: ZX_FIRST_PARTY_ORGANIZATIONS_V ptp
156: D_predicate VARCHAR2 (2000);
157: BEGIN
158:
159:
160: IF fnd_profile.value ('ZX_GCO_WRITE_ACCESS') = 'Y' then
161: D_predicate := '(content_owner_id, tax_regime_code) IN
162: (select decode(opt.exception_option_code, ''OWN_ONLY'', ru.first_pty_org_id, -99), ru.tax_regime_code
163: from ZX_SUBSCRIPTION_OPTIONS opt,
164: ZX_REGIMES_USAGES ru,
192: FUNCTION write_access (D1 VARCHAR2, D2 VARCHAR2) RETURN VARCHAR2
193: IS
194: D_predicate VARCHAR2 (2000);
195: BEGIN
196: IF fnd_profile.value('ZX_GCO_WRITE_ACCESS') = 'Y' then
197: D_predicate := '(content_owner_id, tax_regime_code) IN
198: (select parent_first_pty_org_id, tax_regime_code
199: from ZX_SUBSCRIPTION_DETAILS det,
200: ZX_FIRST_PARTY_ORGANIZATIONS_V ptp
227: FUNCTION write_access_for_excp (D1 VARCHAR2, D2 VARCHAR2) RETURN VARCHAR2
228: IS
229: D_predicate VARCHAR2 (2000);
230: BEGIN
231: IF fnd_profile.value('ZX_GCO_WRITE_ACCESS') = 'Y' then
232: D_predicate := '(content_owner_id, tax_regime_code) IN
233: (select ru.first_pty_org_id, ru.tax_regime_code
234: from ZX_SUBSCRIPTION_OPTIONS opt,
235: ZX_REGIMES_USAGES ru,
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
293: from ZX_SUBSCRIPTION_DETAILS det