[Home] [Help]
1136: CURSOR get_simulation_visits_cur
1137: (c_simulation_plan_id IN NUMBER)
1138: IS
1139: SELECT visit_id
1140: FROM ahl_visits_b
1141: WHERE simulation_plan_id = c_simulation_plan_id;
1142:
1143: -- Added by mpothuku on 12/22/04 to retrieve the associated simulation visits.
1144: CURSOR Get_simul_visit_tasks_cur(C_VISIT_ID IN NUMBER)
1591: ORDER BY stage_num;
1592:
1593: -- Added by mpothuku on 01/20/05 To find if this Unit has been planned in other visits already
1594: CURSOR chk_unit_effectivities (c_unit_id IN NUMBER, c_plan_id IN NUMBER,c_visit_id IN NUMBER) IS
1595: SELECT VISIT_NUMBER,ASSO_PRIMARY_VISIT_ID FROM AHL_VISITS_B WHERE
1596: VISIT_ID IN (SELECT DISTINCT VISIT_ID FROM AHL_VISIT_TASKS_B WHERE
1597: Unit_Effectivity_Id = c_unit_id)
1598: --The following condition is necessary since the summary task may already have been
1599: --added to the current visit which will have the same UE as the planned task
1657: FROM ahl_visits_vl
1658: WHERE visit_id = c_visit_id;
1659:
1660: CURSOR check_primary_visit(c_visit_id IN NUMBER) IS
1661: SELECT ahlv.visit_id from ahl_visits_b ahlv, ahl_simulation_plans_b ahlsp
1662: where ahlv.visit_id = c_visit_id
1663: and ahlv.simulation_plan_id = ahlsp.simulation_plan_id
1664: and ahlsp.primary_plan_flag = 'Y';
1665:
1857: AHL_DEBUG_PUB.debug( 'visit_type_code'||l_visit_detail_rec.visit_type_code);
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;
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: --
1867: ahl_visits_pkg.Insert_Row
1868: (
1869: X_ROWID => l_rowid,
2873: Fnd_Msg_Pub.ADD;
2874: END IF;
2875: --
2876: IF l_simulation_delete_flag = 'N' THEN
2877: UPDATE AHL_VISITS_B
2878: SET SIMULATION_DELETE_FLAG = 'Y',
2879: -- mpothuku start on 12/22/04
2880: OBJECT_VERSION_NUMBER = l_object_version_number + 1
2881: -- mpothuku End
2880: OBJECT_VERSION_NUMBER = l_object_version_number + 1
2881: -- mpothuku End
2882: WHERE visit_id = p_visit_id;
2883: ELSE
2884: UPDATE AHL_VISITS_B
2885: SET SIMULATION_DELETE_FLAG = 'N',
2886: --Added by mpothuku on 12/22/04
2887: OBJECT_VERSION_NUMBER = l_object_version_number + 1
2888: -- mpothuku End
3474: AND NewStage.Stage_Num = OldStage.Stage_Num;
3475:
3476: -- Added by mpothuku on 01/20/05 To find if this Unit has been planned in other visits already
3477: CURSOR chk_unit_effectivities (c_unit_id IN NUMBER,c_visit_id IN NUMBER) IS
3478: SELECT VISIT_NUMBER FROM AHL_VISITS_B ahlv ,AHL_SIMULATION_PLANS_B ahlp WHERE
3479: VISIT_ID IN (SELECT DISTINCT VISIT_ID FROM AHL_VISIT_TASKS_B WHERE
3480: Unit_Effectivity_Id = c_unit_id)
3481: and visit_id <> c_visit_id
3482: and ahlv.simulation_plan_id = ahlp.simulation_plan_id