[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 ----------------------------------
1641: FROM ahl_visits_vl
1642: WHERE visit_id = c_visit_id;
1643:
1644: CURSOR check_primary_visit(c_visit_id IN NUMBER) IS
1645: SELECT ahlv.visit_id from ahl_visits_b ahlv, ahl_simulation_plans_b ahlsp
1646: where ahlv.visit_id = c_visit_id
1647: and ahlv.simulation_plan_id = ahlsp.simulation_plan_id
1648: and ahlsp.primary_plan_flag = 'Y';
1649:
3428: AND NewStage.Stage_Num = OldStage.Stage_Num;
3429:
3430: -- Added by mpothuku on 01/20/05 To find if this Unit has been planned in other visits already
3431: CURSOR chk_unit_effectivities (c_unit_id IN NUMBER,c_visit_id IN NUMBER) IS
3432: SELECT VISIT_NUMBER FROM AHL_VISITS_B ahlv ,AHL_SIMULATION_PLANS_B ahlp WHERE
3433: VISIT_ID IN (SELECT DISTINCT VISIT_ID FROM AHL_VISIT_TASKS_B WHERE
3434: Unit_Effectivity_Id = c_unit_id)
3435: and visit_id <> c_visit_id
3436: and ahlv.simulation_plan_id = ahlp.simulation_plan_id