187: l_curr_date DATE;
188: begin
189: l_party_id := get_party_id (p_user_id);
190: l_curr_date := sysdate;
191: open x_system_data for SELECT DISTINCT system_id, name FROM cs_system_party_links_v WHERE party_id = l_party_id AND (end_date_active IS null OR (end_date_active > l_curr_date)) ORDER BY system_id;
192: x_return_status := FND_API.G_RET_STS_SUCCESS;
193: exception
194: WHEN NO_DATA_FOUND THEN
195: x_return_status := FND_API.G_RET_STS_ERROR;
263: l_curr_date := sysdate;
264:
265: if (p_system_name is not null) then
266: l_system_id := get_system_id (p_system_name);
267: SELECT count(*) INTO l_system_count FROM cs_system_party_links_v WHERE system_id = l_system_id AND party_id = l_party_id and (end_date is null or end_date < l_curr_date);
268: x_return_status := FND_API.G_RET_STS_SUCCESS;
269:
270: elsif (p_system_id > 0) then
271: SELECT count(*) INTO l_system_count FROM cs_system_party_links_v WHERE system_id = p_system_id AND party_id = l_party_id and (end_date is null or end_date < l_curr_date);
267: SELECT count(*) INTO l_system_count FROM cs_system_party_links_v WHERE system_id = l_system_id AND party_id = l_party_id and (end_date is null or end_date < l_curr_date);
268: x_return_status := FND_API.G_RET_STS_SUCCESS;
269:
270: elsif (p_system_id > 0) then
271: SELECT count(*) INTO l_system_count FROM cs_system_party_links_v WHERE system_id = p_system_id AND party_id = l_party_id and (end_date is null or end_date < l_curr_date);
272: x_return_status := FND_API.G_RET_STS_SUCCESS;
273: else
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: end if;
306: l_curr_date := sysdate;
307:
308: if (p_system_name is not null) then
309: l_system_id := get_system_id (p_system_name);
310: SELECT count(*) INTO l_system_count FROM cs_system_party_links_v WHERE system_id = l_system_id and (end_date is null or end_date < l_curr_date);
311: if (l_system_count > 0) then
312: x_return_status := FND_API.G_RET_STS_SUCCESS;
313: else
314: x_return_status := FND_API.G_RET_STS_ERROR;
314: x_return_status := FND_API.G_RET_STS_ERROR;
315: end if;
316:
317: elsif (p_system_id > 0) then
318: SELECT count(*) INTO l_system_count FROM cs_system_party_links_v WHERE system_id = p_system_id and (end_date is null or end_date < l_curr_date);
319: if (l_system_count > 0) then
320: x_return_status := FND_API.G_RET_STS_SUCCESS;
321: else
322: x_return_status := FND_API.G_RET_STS_ERROR;