
  PROCEDURE [INLINE] pfp$map_usage_selections
    (    usage_selections: pft$usage_selections;
     VAR usage_intentions: pft$permit_selections);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??

    VAR
      usage_option: pft$usage_options;

    usage_intentions := $pft$permit_selections [];

    FOR usage_option := LOWERVALUE (usage_option) TO UPPERVALUE (usage_option) DO
      IF usage_option IN usage_selections THEN
        usage_intentions := usage_intentions + $pft$permit_selections [usage_option];
      IFEND;
    FOREND;

  PROCEND pfp$map_usage_selections;

*copyc pft$permit_selections
*copyc pft$usage_options
*copyc pft$usage_selections
?? POP ??
