[Home] [Help]
2523:
2524: PROCEDURE CREATE_EVENT( p_event_rec IN OUT NOCOPY pa_pji_proj_events_log%ROWTYPE) IS
2525: -- l_event_rec pa_pji_proj_events_log%ROWTYPE;
2526: event_already_exists VARCHAR2(1) := 'N'; -- Added for Bug#6145813 by vvjoshi
2527: l_rbs_header_id PA_RBS_VERSIONS_B.rbs_header_id%TYPE; -- Added for Bug#6145813 by vvjoshi
2528: l_return_status VARCHAR2(1);
2529: BEGIN
2530:
2531: -- l_event_rec := p_event_rec;
2551: from (select attribute2
2552: from pa_pji_proj_events_log
2553: where event_type = 'RBS_PUSH'
2554: )a ,
2555: pa_rbs_versions_b b
2556: where to_number(a.attribute2) = b.rbs_version_id
2557: and b.rbs_header_id =
2558: (select rbs_header_id
2559: from pa_rbs_versions_b
2555: pa_rbs_versions_b b
2556: where to_number(a.attribute2) = b.rbs_version_id
2557: and b.rbs_header_id =
2558: (select rbs_header_id
2559: from pa_rbs_versions_b
2560: where rbs_version_id = p_event_rec.attribute2)
2561: and rownum = 1;
2562: exception
2563: when NO_DATA_FOUND then
2569: IF event_already_exists = 'Y' THEN
2570:
2571: select rbs_header_id
2572: into l_rbs_header_id
2573: from pa_rbs_versions_b
2574: where rbs_version_id = to_number(p_event_rec.attribute2);
2575:
2576: UPDATE pa_pji_proj_events_log
2577: SET event_object = p_event_rec.event_object,
2578: last_update_date = p_event_rec.last_update_date,
2579: last_updated_by = p_event_rec.last_updated_by
2580: WHERE event_type = 'RBS_PUSH'
2581: AND attribute2 in (select rbs_version_id
2582: from pa_rbs_versions_b
2583: where rbs_header_id = l_rbs_header_id);
2584:
2585: ELSE
2586: /* Added for Bug#6145813 by vvjoshi - END*/