  PROCEDURE [XREF] pup$check_if_family_in_range ALIAS 'puxcifr'
    (    family_name: pft$name;
     VAR family_in_range: boolean);

?? PUSH (LISTEXT := ON) ??
*copyc pft$name
?? POP ??
