[Home] [Help]
275: --
276: -- PUBLIC
277: -- Description:
278: -- Delete validation
279: -- Check whether any child rows in ota_activity_versions exist for
280: -- this activity. If they do exist then this activity may not be deleted.
281: --
282: Procedure check_tav_exist
283: (
288: v_proc varchar2(72) := g_package||'check_tav_exist';
289: --
290: cursor sel_tav_exist is
291: select 'Y'
292: from ota_activity_versions tav
293: where tav.activity_id = p_activity_id;
294: --
295: Begin
296: --
450: ) Return boolean is
451: --
452: v_proc varchar2(72) := g_package||'exist_multiple_versions';
453: --
454: v_version_id ota_activity_versions.activity_version_id%TYPE;
455: v_start_date date;
456: v_end_date date;
457: --
458: v_compared_version_id ota_activity_versions.activity_version_id%TYPE;
454: v_version_id ota_activity_versions.activity_version_id%TYPE;
455: v_start_date date;
456: v_end_date date;
457: --
458: v_compared_version_id ota_activity_versions.activity_version_id%TYPE;
459: v_compared_start_date date;
460: v_compared_end_date date;
461: --
462: cursor sel_versions is
462: cursor sel_versions is
463: select tav.activity_version_id
464: , tav.start_date
465: , tav.end_date
466: from ota_activity_versions tav
467: where tav.activity_id = p_activity_id
468: order by activity_version_id;
469: --
470: cursor sel_compared_versions( pcurs_version_id IN NUMBER) is
470: cursor sel_compared_versions( pcurs_version_id IN NUMBER) is
471: select tav.activity_version_id
472: , tav.start_date
473: , tav.end_date
474: from ota_activity_versions tav
475: where tav.activity_id = p_activity_id
476: and tav.activity_version_id > pcurs_version_id
477: order by activity_version_id;
478: --