[Home] [Help]
4651:
4652: -- bug fix 4077103 -yazhou
4653: -- To check the current status of the Unit
4654: CURSOR c_uc_status (p_instance_id IN NUMBER) IS
4655: SELECT name, AHL_UTIL_UC_PKG.GET_UC_STATUS_CODE(UNIT_CONFIG_HEADER_ID) uc_status
4656: FROM ahl_unit_config_headers uc,
4657: csi_item_instances csis
4658: WHERE uc.csi_item_instance_id=csis.instance_id
4659: AND (uc.active_end_date IS NULL OR uc.active_end_date > SYSDATE)
10303: END IF;
10304:
10305: IF item_instance_id IS NOT NULL THEN
10306: -- If the Visit header has an instance id, check for the corresponding Unit
10307: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,item_instance_id);
10308: IF l_quarantined = FND_API.G_TRUE THEN
10309: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
10310: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_HDR_UNIT_QRNT');
10311: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
10305: IF item_instance_id IS NOT NULL THEN
10306: -- If the Visit header has an instance id, check for the corresponding Unit
10307: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,item_instance_id);
10308: IF l_quarantined = FND_API.G_TRUE THEN
10309: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
10310: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_HDR_UNIT_QRNT');
10311: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
10312: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
10313: Fnd_Msg_Pub.ADD;
10321: OPEN c_get_tasknumbers (p_visit_id);
10322: LOOP
10323: FETCH c_get_tasknumbers INTO l_task_number,l_instance_id;
10324: EXIT WHEN c_get_tasknumbers%NOTFOUND;
10325: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,l_instance_id);
10326: IF l_quarantined = FND_API.G_TRUE THEN
10327: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_TSK_UNIT_QRNT');
10328: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
10329: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);