FUNCTION Get_list_label(p_listname IN VARCHAR2) 
RETURN VARCHAR2 
IS 
  v_count NUMBER; 
BEGIN 
    v_count := Get_list_element_count(P_LISTNAME); 

    FOR i IN 1..v_count LOOP 
        IF Get_list_element_value(p_listname, i) = Name_in(p_listname) THEN 
          RETURN Get_list_element_label(p_listname, i); 
        END IF; 
    END LOOP; 

    RETURN NULL; 
END;