[Home] [Help]
2596:
2597: -- bug fix 4077103 -yazhou
2598: -- To check the current status of the Unit
2599: CURSOR c_uc_status (p_instance_id IN NUMBER) IS
2600: SELECT name, AHL_UTIL_UC_PKG.GET_UC_STATUS_CODE(UNIT_CONFIG_HEADER_ID) uc_status
2601: FROM ahl_unit_config_headers uc,
2602: csi_item_instances csis
2603: WHERE uc.csi_item_instance_id=csis.instance_id
2604: AND (uc.active_end_date IS NULL OR uc.active_end_date > SYSDATE)
6987: END IF;
6988:
6989: IF item_instance_id IS NOT NULL THEN
6990: -- If the Visit header has an instance id, check for the corresponding Unit
6991: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,item_instance_id);
6992: IF l_quarantined = FND_API.G_TRUE THEN
6993: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
6994: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_HDR_UNIT_QRNT');
6995: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
6989: IF item_instance_id IS NOT NULL THEN
6990: -- If the Visit header has an instance id, check for the corresponding Unit
6991: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,item_instance_id);
6992: IF l_quarantined = FND_API.G_TRUE THEN
6993: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
6994: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_HDR_UNIT_QRNT');
6995: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
6996: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
6997: Fnd_Msg_Pub.ADD;
7005: OPEN c_get_tasknumbers (p_visit_id);
7006: LOOP
7007: FETCH c_get_tasknumbers INTO l_task_number,l_instance_id;
7008: EXIT WHEN c_get_tasknumbers%NOTFOUND;
7009: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,l_instance_id);
7010: IF l_quarantined = FND_API.G_TRUE THEN
7011: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_TSK_UNIT_QRNT');
7012: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
7013: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);