[Home] [Help]
50: -- Added for 11.5.10.
51: PROCEDURE Flush_Unit_SR_Deferrals;
52:
53:
54: -- Procedure to delete rows from ahl_schedule_materials.
55: PROCEDURE Delete_Sch_Materials(p_unit_effectivity_id IN NUMBER);
56:
57: -- Added for SB Enh
58: -- procedure to handle updates to UEs based on accomplish trigger type LOOP.
1177: X_LAST_UPDATE_DATE => sysdate,
1178: X_LAST_UPDATED_BY => fnd_global.user_id,
1179: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
1180:
1181: -- Delete the corresponding rows in ahl_schedule materials for this ue.
1182: Delete_Sch_Materials(exception_rec.unit_effectivity_id);
1183:
1184: -- update all group element's status too.
1185: FOR ue_reln_rec IN decendent_csr(exception_rec.unit_effectivity_id) LOOP
1245: X_LAST_UPDATE_DATE => sysdate,
1246: X_LAST_UPDATED_BY => fnd_global.user_id,
1247: X_LAST_UPDATE_LOGIN => fnd_global.login_id);
1248:
1249: -- Delete the corresponding rows in ahl_schedule materials for this ue.
1250: Delete_Sch_Materials(l_ue_rec.unit_effectivity_id);
1251:
1252: ELSE
1253: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_UE_NOTFOUND');
1272: AHL_UE_RELATIONSHIPS_PKG.Delete_Row (ue_reln_rec.ue_relationship_id);
1273: -- delete unit effectivity record.
1274: AHL_UNIT_EFFECTIVITIES_PKG.Delete_Row(ue_reln_rec.related_ue_id);
1275:
1276: -- Delete the corresponding rows in ahl_schedule materials for this ue.
1277: Delete_Sch_Materials(ue_reln_rec.related_ue_id);
1278:
1279:
1280: END LOOP;
1278:
1279:
1280: END LOOP;
1281:
1282: -- Delete the corresponding rows in ahl_schedule materials for this ue.
1283: Delete_Sch_Materials(exception_rec.unit_effectivity_id);
1284:
1285: IF (exception_rec.status_code = 'INIT-DUE' OR
1286: exception_rec.message_code = 'INIT-DUE') THEN
1511: terminating_ue_id = null -- fix for bug# 16567016; reset this value.
1512: WHERE unit_effectivity_id = p_mr_rec.unit_effectivity_id;
1513:
1514: IF (p_temp_mr_rec.due_date IS NULL AND p_mr_rec.object_type = 'MR') THEN
1515: -- Delete the corresponding rows in ahl_schedule materials for this ue.
1516: Delete_Sch_Materials(p_mr_rec.unit_effectivity_id);
1517: END IF;
1518:
1519: IF G_DEBUG = 'Y' THEN
2417: CLOSE ahl_unit_effectivity_csr;
2418:
2419: IF (l_unit_effectivity_rec.due_date IS NULL
2420: AND l_unit_effectivity_rec.object_type = 'MR') THEN
2421: -- Delete the corresponding rows in ahl_schedule materials for this ue.
2422: Delete_Sch_Materials(l_unit_effectivity_rec.unit_effectivity_id);
2423: END IF;
2424:
2425: -- Update all group children.
2506: X_LAST_UPDATED_BY => fnd_global.user_id,
2507: X_LAST_UPDATE_LOGIN => fnd_global.login_id );
2508:
2509:
2510: -- Delete the corresponding rows in ahl_schedule materials for this ue.
2511: IF (l_unit_effectivity_rec.due_date IS NULL
2512: AND l_unit_effectivity_rec.object_type = 'MR') THEN
2513: Delete_Sch_Materials(l_unit_effectivity_rec.unit_effectivity_id);
2514: END IF;
2898: -- only if visit is in planning status we must mark an exception.
2899: -- if visit is already on the floor, we do nothing.
2900: IF (l_visit_status = 'PLANNING') THEN
2901: FOR l_ue_rec IN ahl_ue_csr(l_delete_ue_id_tbl(i)) LOOP
2902: -- Delete the corresponding rows in ahl_schedule materials for this ue.
2903: Delete_Sch_Materials(l_ue_rec.related_ue_id);
2904: END LOOP;
2905:
2906: -- update unit effectivity record to exception.
2934:
2935: -- delete unit effectivity record.
2936: AHL_UNIT_EFFECTIVITIES_PKG.Delete_Row(l_ue_rec.related_ue_id);
2937:
2938: -- Delete the corresponding rows in ahl_schedule materials for this ue.
2939: Delete_Sch_Materials(l_ue_rec.related_ue_id);
2940:
2941: END LOOP;
2942: DELETE FROM ahl_ue_relationships
2944:
2945: -- delete top UE
2946: AHL_UNIT_EFFECTIVITIES_PKG.Delete_Row(l_delete_ue_id_tbl(i));
2947:
2948: -- Delete the corresponding rows in ahl_schedule materials for this ue.
2949: Delete_Sch_Materials(l_delete_ue_id_tbl(i));
2950:
2951: END IF; -- l_visit_status
2952: END LOOP;
2958:
2959: END Flush_Unit_SR_Deferrals;
2960:
2961:
2962: -- Procedure to delete rows from ahl_schedule_materials.
2963: PROCEDURE Delete_Sch_Materials(p_unit_effectivity_id IN NUMBER) IS
2964:
2965: CURSOR ahl_sch_material_csr (p_unit_effectivity_id IN NUMBER) IS
2966: SELECT scheduled_material_id
2963: PROCEDURE Delete_Sch_Materials(p_unit_effectivity_id IN NUMBER) IS
2964:
2965: CURSOR ahl_sch_material_csr (p_unit_effectivity_id IN NUMBER) IS
2966: SELECT scheduled_material_id
2967: FROM ahl_schedule_materials
2968: WHERE material_request_type = 'FORECAST'
2969: AND unit_effectivity_id = p_unit_effectivity_id
2970: FOR UPDATE NOWAIT;
2971:
2975: AHL_DEBUG_PUB.Debug('Start Delete_Sch_Materials for UE:' || p_unit_effectivity_id,'UMP-ProcessUnit');
2976: END IF;
2977:
2978: FOR sch_material_rec IN ahl_sch_material_csr(p_unit_effectivity_id) LOOP
2979: AHL_SCHEDULE_MATERIALS_PKG.delete_row(x_scheduled_material_id => sch_material_rec.scheduled_material_id);
2980:
2981: END LOOP;
2982:
2983: IF G_DEBUG = 'Y' THEN