[Home] [Help]
1132: CURSOR get_simulation_visits_cur
1133: (c_simulation_plan_id IN NUMBER)
1134: IS
1135: SELECT visit_id
1136: FROM ahl_visits_b
1137: WHERE simulation_plan_id = c_simulation_plan_id;
1138:
1139: -- Added by mpothuku on 12/22/04 to retrieve the associated simulation visits.
1140: CURSOR Get_simul_visit_tasks_cur(C_VISIT_ID IN NUMBER)
1575: ORDER BY stage_num;
1576:
1577: -- Added by mpothuku on 01/20/05 To find if this Unit has been planned in other visits already
1578: CURSOR chk_unit_effectivities (c_unit_id IN NUMBER, c_plan_id IN NUMBER,c_visit_id IN NUMBER) IS
1579: SELECT VISIT_NUMBER,ASSO_PRIMARY_VISIT_ID FROM AHL_VISITS_B WHERE
1580: VISIT_ID IN (SELECT DISTINCT VISIT_ID FROM AHL_VISIT_TASKS_B WHERE
1581: Unit_Effectivity_Id = c_unit_id)
1582: --The following condition is necessary since the summary task may already have been
1583: --added to the current visit which will have the same UE as the planned task
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:
1841: AHL_DEBUG_PUB.debug( 'visit_type_code'||l_visit_detail_rec.visit_type_code);
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;
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: --
1851: ahl_visits_pkg.Insert_Row
1852: (
1853: X_ROWID => l_rowid,
2833: Fnd_Msg_Pub.ADD;
2834: END IF;
2835: --
2836: IF l_simulation_delete_flag = 'N' THEN
2837: UPDATE AHL_VISITS_B
2838: SET SIMULATION_DELETE_FLAG = 'Y',
2839: -- mpothuku start on 12/22/04
2840: OBJECT_VERSION_NUMBER = l_object_version_number + 1
2841: -- mpothuku End
2840: OBJECT_VERSION_NUMBER = l_object_version_number + 1
2841: -- mpothuku End
2842: WHERE visit_id = p_visit_id;
2843: ELSE
2844: UPDATE AHL_VISITS_B
2845: SET SIMULATION_DELETE_FLAG = 'N',
2846: --Added by mpothuku on 12/22/04
2847: OBJECT_VERSION_NUMBER = l_object_version_number + 1
2848: -- mpothuku End
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