PROC rap$delete_qtf (
  terminate_active_connections, ..
  tac                        : boolean = false
  status                     : var of status = $optional
  )


*IF $variable(rav$proc_doc,declared)<>'UNKNOWN'

"   This request deactivates and deletes the NAM/VE QTF client application.
"   NOTE:  Before issuing this request, the application should be deactivated
"          via DEACTIVATE_QTF
*IFEND


  create_variable command_file kind=string value='$local.'//$unique
  create_variable delete_status kind=status
  create_variable ignore_status kind=status
  create_variable local_status kind=status


COLLECT_TEXT output=$fname(command_file) until='COLLECT_END'
  $system.osf$command_library.manage_network_applications

    deactivate_client client=osa$queue_transfer_client ..
          terminate_active_connections=$value(terminate_active_connections) ..
          status=delete_status
    IF delete_status.normal OR ($condition(delete_status.condition) = 'NAE$APPLICATION_ALREADY_INACTIV') THEN
      delete_client client=osa$queue_transfer_client status=delete_status
    IFEND
  quit
COLLECT_END

  include_file file=$fname(command_file) status=local_status
  delete_file file=$fname(command_file) status=ignore_status

  EXIT_PROC WITH local_status WHEN NOT local_status.normal
  EXIT_PROC WITH delete_status WHEN NOT delete_status.normal

  put_line line=' QTF client application deleted for NAM/VE' output=$response

PROCEND rap$delete_qtf
