[Home] [Help]
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
563: FROM dual
559: FROM dual;
560: --
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: --
1858: AHL_DEBUG_PUB.debug( 'inventory_id'||l_visit_detail_rec.inventory_item_id);
1859: END IF;
1860: --Get visit id
1861: SELECT Ahl_Visits_B_S.NEXTVAL INTO l_visit_id
1862: FROM dual;
1863: --Get visit number
1864: SELECT MAX(visit_number) INTO l_visit_number
1865: FROM Ahl_Visits_B;
1866: --
1945: END IF;
1946: -- Get visit task id
1947: /* Have to Confirm with the Stages API */
1948: SELECT Ahl_vwp_stages_B_S.NEXTVAL into l_stage_id
1949: FROM dual;
1950: --
1951: IF G_DEBUG='Y' THEN
1952: AHL_DEBUG_PUB.debug( 'visit call insert stage:'||l_stage_id);
1953: END IF;
2015: FETCH get_visit_task_cur INTO l_visit_task_rec;
2016: EXIT WHEN get_visit_task_cur%NOTFOUND;
2017: -- Get visit task id
2018: SELECT Ahl_Visit_Tasks_B_S.NEXTVAL INTO
2019: l_visit_task_id FROM dual;
2020: --
2021: IF G_DEBUG='Y' THEN
2022: AHL_DEBUG_PUB.debug( 'visit call insert task:'||l_visit_task_id);
2023: END IF;
2305: IF Get_space_Assign_cur%FOUND THEN
2306: --Create record in space assignments with new visit id
2307: --Get space assignment id
2308: SELECT AHL_SPACE_ASSIGNMENTS_S.NEXTVAL INTO l_space_assignment_id
2309: FROM dual;
2310: --insert the record
2311: INSERT INTO AHL_SPACE_ASSIGNMENTS
2312: (
2313: SPACE_ASSIGNMENT_ID,
4132: */
4133: THEN
4134: /* Added by mpothuku on 01/11/04 to insert new row into the PrimaryVisit */
4135: SELECT Ahl_Visit_Tasks_B_S.NEXTVAL INTO
4136: l_visit_task_id FROM dual;
4137:
4138: IF G_DEBUG='Y' THEN
4139: AHL_DEBUG_PUB.debug( 'visit call insert new task created in simulation:'||l_simul_visit_task_rec.visit_task_number);
4140: END IF;