[Home] [Help]
554: l_simulation_plan_id NUMBER;
555: l_simulation_plan_rec Simulation_Plan_Rec;
556: --
557: CURSOR c_seq IS
558: SELECT AHL_SIMULATION_PLANS_B_S.NEXTVAL
559: FROM dual;
560: --
561: CURSOR c_id_exists (x_id IN NUMBER) IS
562: SELECT 1
561: CURSOR c_id_exists (x_id IN NUMBER) IS
562: SELECT 1
563: FROM dual
564: WHERE EXISTS (SELECT 1
565: FROM ahl_simulation_plans_b
566: WHERE simulation_plan_id = x_id);
567: --
568: BEGIN
569: --------------------Initialize ----------------------------------
1657: FROM ahl_visits_vl
1658: WHERE visit_id = c_visit_id;
1659:
1660: CURSOR check_primary_visit(c_visit_id IN NUMBER) IS
1661: SELECT ahlv.visit_id from ahl_visits_b ahlv, ahl_simulation_plans_b ahlsp
1662: where ahlv.visit_id = c_visit_id
1663: and ahlv.simulation_plan_id = ahlsp.simulation_plan_id
1664: and ahlsp.primary_plan_flag = 'Y';
1665:
3474: AND NewStage.Stage_Num = OldStage.Stage_Num;
3475:
3476: -- Added by mpothuku on 01/20/05 To find if this Unit has been planned in other visits already
3477: CURSOR chk_unit_effectivities (c_unit_id IN NUMBER,c_visit_id IN NUMBER) IS
3478: SELECT VISIT_NUMBER FROM AHL_VISITS_B ahlv ,AHL_SIMULATION_PLANS_B ahlp WHERE
3479: VISIT_ID IN (SELECT DISTINCT VISIT_ID FROM AHL_VISIT_TASKS_B WHERE
3480: Unit_Effectivity_Id = c_unit_id)
3481: and visit_id <> c_visit_id
3482: and ahlv.simulation_plan_id = ahlp.simulation_plan_id