600:
601: CURSOR c_get_item_toxic
602: IS
603: SELECT COUNT(*)
604: FROM gr_item_toxic
605: WHERE toxic_species_code = p_toxic_species_code;
606: ToxicRecord c_get_item_toxic%ROWTYPE;
607:
608: BEGIN
620: CLOSE c_get_item_toxic;
621:
622: IF l_record_count <> 0 THEN
623: l_return_status := 'E';
624: l_msg_data := l_msg_data || ' gr_item_toxic';
625: END IF;
626: /*
627: ** Now sort out the error messaging
628: */