
  PROCEDURE [XREF] pfp$reduce_permits
    (    high_level_permit_entry: pft$permit_entry;
         low_level_permit_entry: pft$permit_entry;
     VAR reduced_permit_entry: pft$permit_entry);

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