[Home] [Help]
1521: AND STATUS_CODE <> 'DELETED';
1522: --
1523: CURSOR Get_space_Assign_cur (c_visit_id IN NUMBER) IS
1524: SELECT space_id,space_assignment_id
1525: FROM ahl_space_assignments
1526: WHERE visit_id = c_visit_id;
1527:
1528: --Added by mpothuku on 12/27/04
1529:
2304: EXIT WHEN Get_space_Assign_cur%NOTFOUND;
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: (
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,
2314: SPACE_ID,
2315: VISIT_ID,
2483: --
2484: CURSOR Check_space_cur (c_visit_id IN NUMBER)
2485: IS
2486: SELECT space_assignment_id
2487: FROM ahl_space_assignments
2488: WHERE visit_id = c_visit_id;
2489: --
2490: -- Added by mpothuku on 12/27/04 to find any task links for a task
2491: CURSOR c_links (x_id IN NUMBER) IS
2637: LOOP
2638: FETCH Check_space_cur INTO l_space_assignment_id;
2639: EXIT WHEN Check_space_cur%NOTFOUND;
2640: IF Check_space_cur%FOUND THEN
2641: DELETE FROM ahl_space_assignments
2642: WHERE space_assignment_id = l_space_assignment_id;
2643: END IF;
2644: END LOOP;
2645: CLOSE Check_space_cur;
3391: --Check for space assignments
3392: CURSOR check_space_cur (c_visit_id IN NUMBER)
3393: IS
3394: SELECT space_assignment_id
3395: FROM ahl_space_assignments
3396: WHERE visit_id = c_visit_id;
3397: --
3398: -- Added by mpothuku on 12/27/04
3399: -- To find any task links for a task