
  PROCEDURE [XREF] pfp$extract_permit_entry
    (    p_permit_list: pft$p_permit_list;
         authority: pft$authority;
     VAR permit_entry: pft$permit_entry);

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