PROC F_FL_M_DISABL
;VERSION 1   
IF(P@NRT_STATE#TELECOMMAND = "ENABLED")THEN
/NRT TPUT PAUS
ELSE
ENDIF

GOTO BEGIN
;
;#***********************************************************************
;# ****PROCEDURE HEADER****
;#
;# 1.0 Introduction
;#
;#  1.1 FOT Name: F_FL_M_DISABL
;#   MMS-F Name:
;#   SUM Issue:
;#   Simulator Validation Status:
;#
;#  1.2 Date Created: 05-NOV-95 
;#      Revision: 1. 01-DEC-95  BS
;#
;#  1.3 Change Description:
;#
;#      1. Remove spaces from GOTOs.
;#
;#  1.4 Point of Contact: CCAZEAU   ATSC/SOHO   286-6374
;#      FOT Author: BSAPPER  ATSC/SOHO  286-4799
;#      CELIAS Author: J PAQUETTE UMD  301-405-6223
;#      Revisions: A GALVIN UMD
;#      CELIAS CONTACT: A GALVIN UMD 301-405-6208
;#
;#***********************************************************************
;# 2.0 Description
;#
;#  2.1 Narrative Decription
;#
;#   DISABLE ONE OF EIGHT MTOF POWER SUPPLIES
;#   1 = Proton monitor MicroChannel Plate
;#   2 = PM  E/Q deflection system
;#   3 = Wave E/Q deflection system
;#   4 = Vf 
;#   5 = Start MCP
;#   6 = Neutral MCP
;#   7 = Ion MCP
;#   8 = Hyperbola 
;#   9 = All of above
;#
;#  2.2 Intended Use:
;# 
;#      DISABLE/TURN OFF OF AN MTOF POWER SUPPLY DETERMINED 
;#      BY A USER-SUPPLIED PARAMETER
;#
;#  2.3 Duration: TBD
;#
;#  2.4 References:
;#
;#***********************************************************************
;# 3.0 Instructions for Use: 
;#
;#  3.1 Parameters Required
;#
;#   PS
;#
;#  3.2 Critical Activities
;#
;#  3.3 Special Constraints or Activities
;#
;#   Monitor MTOF HV HK during procedure
;#   and for at least 10 minutes after procedure ends.
;#
;# *************************************************************************
;# 4.0 STEPS:

BEGIN:

IF(P@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN
ELSE
   /CLEAR  ;Clearing the Command Buffer.
ENDIF

LOCAL PS

;# 4.1  Prompt for which power supply to disable

WRITE "1=PM MCP,2=PMEQ,3=WAVE,4=Vf,5=START,6=NEUTRAL,7=ION,8=HPS,9=ALL"
ASK "INPUT POWER SUPPLY IDENTIFICATION NUMBER (decimal)"PS

WAIT      ; verify input is in range 1-9

IF (PS < 1) THEN
   ASK "INVALID ID NUMBER, PLEASE REENTER (decimal)"PS 
   WAIT    ; verify number ok
ENDIF

IF (PS > 9) THEN
   ASK "INVALID ID NUMBER, PLEASE REENTER (decimal)"PS 
   WAIT    ; verify number ok
ENDIF

;# 4.2  Disable MTOF PS high voltage

WAIT  ;Note value of command ok counter FSDTCOK

IF(PS=1)THEN
        WRITE "Preparing to disable PM MCPPS"

        /FBMDISI,0001 
        WAIT  ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT  ; note value of FSMGPMMV
        GOTO GOOD
ENDIF

IF(PS=2)THEN
        WRITE "Preparing to disable PM EQ"

        /FBMDISI,0002 
        WAIT   ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT   ; note value of FSMGPMEV
        GOTO GOOD
ENDIF

IF(PS=3)THEN
        WRITE "Preparing to disable WAVE EQ"

        /FBMDISI,0004 
        WAIT  ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT   ; note value of FSMGWVEV
        GOTO GOOD
ENDIF

IF(PS=4)THEN
        WRITE "Preparing to disable  VF PS"

        /FBMDISI,0008 
        WAIT  ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT  ; note value of FSMGVFV
        GOTO GOOD
ENDIF

IF(PS=5)THEN
        WRITE "Preparing to disable  START MCPPS"

        /FBMDISI,0010
        WAIT ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT ; note value of FSMVSMV
        GOTO GOOD
ENDIF

IF(PS=6)THEN
        WRITE "Preparing to disable  NEUTRAL MCPPS"

        /FBMDISI,0020 
        WAIT ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT ; note value of FSMVNMV
        GOTO GOOD
ENDIF

IF(PS=7)THEN
        WRITE "Preparing to disable  ION MCPPS"

        /FBMDISI,0040
        WAIT ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT ; note value of FSMVIMV
        GOTO GOOD
ENDIF

IF(PS=8)THEN
        WRITE "Preparing to disable  HPS"

        /FBMDISI,0080 
        WAIT ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT ; note value of FSMVHPSV
        GOTO GOOD
ENDIF


IF(PS=9)THEN
        WRITE "Preparing to disable all MTOF power supplies"

        /FBMDISI,00FF
        WAIT  ;VERIFY BUFFER CONTENTS
        /SEND

        WAIT 30
        WAIT  ; note values of FSMGPMMV, FSMGPMEV
        WAIT  ; note values of FSMGWVEV, FSMGVFV
        WAIT  ; note values of FSMVSMV,  FSMVNMV
        WAIT  ; note values of FSMVIMV,  FSMVHPSV 
        GOTO GOOD
ENDIF


; If we got here, then the user entered an incorrect input. Warn him and then
; exit without sending a command.

WRITE "Incorrect input entered. No power supply disabled."
GOTO DONE

GOOD:
WAIT  ;VERIFY FSDTCOK HAS INCREASED BY 1.
GOTO DONE

DONE:
WAIT UNTIL(P@CMD_STATE#TELECOMMAND = "AVAILABLE")
;#***********************************************************************
;#   5.0   Final Constraints
;#
;#         CONTINUE MONITORING HV HK FOR 10 MINUTES TO CONFIRM
;#         HV DISABLE
;#
;#         Power supply id number 1 means monitor FSMGPMMV
;#         Power supply id number 2 means monitor FSMGPMEV
;#         Power supply id number 3 means monitor FSMGWVEV
;#         Power supply id number 4 means monitor FSMGVFV
;#         Power supply id number 5 means monitor FSMVSMV
;#         Power supply id number 6 means monitor FSMVNMV
;#         Power supply id number 7 means monitor FSMVIMV
;#         Power supply id number 8 means monitor FSMVHPSV
;#         Power supply id number 9 means monitor ALL OF ABOVE
;#
;#***********************************************************************

IF(P@NRT_STATE#TELECOMMAND = "PAUSE-ENAB")THEN
/NRT TPUT RSUM
/CMSMSG,CELIAS,'Procedure F_FL_M_DISABL has completed'
ELSE
ENDIF
ENDPROC