
  TYPE
    nlt$ta_event_processor = ^procedure (cl_connection: ^nlt$cl_connection;
          event: nlt$ta_event;
      VAR inventory_report: nlt$ta_inventory_report);

*copyc nlt$cl_connection
*copyc nlt$ta_event
*copyc nlt$ta_inventory_report
