
PROCEDURE (HIDDEN) rap$deactivate_namve (
  status)


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

" PURPOSE:
"   This procedure deactivates NAM/VE.
*IFEND


*copy rav$margin

  "$FORMAT=OFF
  VAR
    ignore_status: status
    local_status: status
  VAREND
  "$FORMAT=ON"


  EXIT procedure WHEN NOT $namve_active

  rap$display_message mm=initiation_messages mn=deactivating_namve m=rav$margin t=$response status=ignore_status


deactivate_configuration: ..
  BLOCK

    REPEAT
      execute_task sp=nap$idle_namve tel=warning lm=$null lmo=none dm=off status=local_status
      IF NOT local_status.normal THEN
        IF ($condition(local_status.condition) <> 'NAE$CONNECTIONS_STILL_ACTIVE') AND ..
              ($condition(local_status.condition) <> 'NAE$NETWORK_APPLICATIONS_ACTIVE') THEN
          EXIT deactivate_configuration
        IFEND
        wait 5000
      IFEND
    UNTIL local_status.normal

    deactivate_system_task task_name=intranet_layer_mgmt_task status=local_status
    EXIT deactivate_configuration WHEN NOT local_status.normal

    deactivate_system_task task_name=namve_system_input_task status=local_status
    EXIT deactivate_configuration WHEN NOT local_status.normal

    deactivate_system_task task_name=namve_completed_output_task status=local_status
    EXIT deactivate_configuration WHEN NOT local_status.normal

    deactivate_system_task task_name=namve_directory_me status=local_status
    EXIT deactivate_configuration WHEN NOT local_status.normal

    deactivate_system_task task_name=namve_timer_monitor status=local_status
    EXIT deactivate_configuration WHEN NOT local_status.normal

    deactivate_system_task task_name=namve_connection_establisher status=local_status
    EXIT deactivate_configuration WHEN NOT local_status.normal

    deactivate_system_task task_name=namve_poll_connections_task status=local_status
    EXIT deactivate_configuration WHEN NOT local_status.normal

    execute_task sp=nap$terminate_namve tel=warning lm=$null lmo=none dm=off status=local_status

  BLOCKEND deactivate_configuration

  IF local_status.normal THEN
    rap$display_message mm=initiation_messages mn=namve_deactivated m=rav$margin t=$response ..
          status=ignore_status
  ELSE
    EXIT procedure WITH local_status
  IFEND

PROCEND rap$deactivate_namve
