54: l_error boolean := false;
55: --
56: cursor c1 is
57: select null
58: from ota_events evt
59: where evt.event_id = p_program_event_id
60: and evt.event_status = 'N'
61: and exists (select null
62: from ota_events evt2
58: from ota_events evt
59: where evt.event_id = p_program_event_id
60: and evt.event_status = 'N'
61: and exists (select null
62: from ota_events evt2
63: where evt2.event_id = p_event_id
64: and evt2.event_status = 'P');
65: --
66: begin