
  TYPE
    pft$queued_permit_entry = record
      case entry_type: pft$permit_entry_types of
      = pfc$free_permit_entry =
        ,
      = pfc$normal_permit_entry =
        group_type: pft$group_types,
        usage_permissions: pft$permit_selections,
        share_requirements: pft$share_requirements,
        application_info: pft$application_info,
      casend,
    recend;

*copyc pft$application_info
*copyc pft$group_types
*copyc pft$permit_entry_types
*copyc pft$permit_selections
*copyc pft$share_requirements
