  PROCEDURE [INLINE] dfp$extract_send_parameters
    (    queue_entry_loc_int: dft$rpc_queue_entry_loc_int;
     VAR p_send_to_server_parameters: dft$p_send_parameters);

    VAR
      p_cpu_queue_entry: ^dft$cpu_queue_entry,
      p_driver_queue_entry: ^dft$driver_queue_entry,
      p_queue_interface_table: dft$p_queue_interface_table,
      p_send_buffer_header: ^dft$buffer_header,
      p_send_rpc_buffer_header: ^dft$rpc_buffer_header;

    dfp$get_qit_p_from_direct_index (queue_entry_loc_int.queue_directory_index,
          p_queue_interface_table);
    dfp$fetch_queue_entry (p_queue_interface_table,
          queue_entry_loc_int.queue_index, queue_entry_loc_int.
          queue_entry_index, p_driver_queue_entry, p_cpu_queue_entry);
    RESET p_cpu_queue_entry^.p_send_buffer;
    NEXT p_send_buffer_header IN p_cpu_queue_entry^.p_send_buffer;
    NEXT p_send_rpc_buffer_header IN p_cpu_queue_entry^.p_send_buffer;
    NEXT p_send_to_server_parameters IN p_cpu_queue_entry^.p_send_buffer;
    RESET p_send_to_server_parameters;
  PROCEND dfp$extract_send_parameters;
?? PUSH (LISTEXT := ON) ??
*copyc dfp$get_qit_p_from_direct_index
*copyc dfp$fetch_queue_entry
*copyc dfd$request_package
*copyc dft$rpc_buffer_header
*copyc dft$rpc_queue_entry_loc_int
?? POP ??
