[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: --
1842: AHL_DEBUG_PUB.debug( 'inventory_id'||l_visit_detail_rec.inventory_item_id);
1843: END IF;
1844: --Get visit id
1845: SELECT Ahl_Visits_B_S.NEXTVAL INTO l_visit_id
1846: FROM dual;
1847: --Get visit number
1848: SELECT MAX(visit_number) INTO l_visit_number
1849: FROM Ahl_Visits_B;
1850: --
1919: END IF;
1920: -- Get visit task id
1921: /* Have to Confirm with the Stages API */
1922: SELECT Ahl_vwp_stages_B_S.NEXTVAL into l_stage_id
1923: FROM dual;
1924: --
1925: IF G_DEBUG='Y' THEN
1926: AHL_DEBUG_PUB.debug( 'visit call insert stage:'||l_stage_id);
1927: END IF;
1983: FETCH get_visit_task_cur INTO l_visit_task_rec;
1984: EXIT WHEN get_visit_task_cur%NOTFOUND;
1985: -- Get visit task id
1986: SELECT Ahl_Visit_Tasks_B_S.NEXTVAL INTO
1987: l_visit_task_id FROM dual;
1988: --
1989: IF G_DEBUG='Y' THEN
1990: AHL_DEBUG_PUB.debug( 'visit call insert task:'||l_visit_task_id);
1991: END IF;
2266: IF Get_space_Assign_cur%FOUND THEN
2267: --Create record in space assignments with new visit id
2268: --Get space assignment id
2269: SELECT AHL_SPACE_ASSIGNMENTS_S.NEXTVAL INTO l_space_assignment_id
2270: FROM dual;
2271: --insert the record
2272: INSERT INTO AHL_SPACE_ASSIGNMENTS
2273: (
2274: SPACE_ASSIGNMENT_ID,
4079: */
4080: THEN
4081: /* Added by mpothuku on 01/11/04 to insert new row into the PrimaryVisit */
4082: SELECT Ahl_Visit_Tasks_B_S.NEXTVAL INTO
4083: l_visit_task_id FROM dual;
4084:
4085: IF G_DEBUG='Y' THEN
4086: AHL_DEBUG_PUB.debug( 'visit call insert new task created in simulation:'||l_simul_visit_task_rec.visit_task_number);
4087: END IF;