PROC m_fl_ovenoff
;Version 7
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:  M_FL_OVENOFF  
;#		   	MMS-F Name:  	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  21-DEC-94   BS
;#			    Revision:  1. 2-21-95 RR
;#                            		2. 4-24-95 GJ
;#					3. 5-26-95 RR
;#						4. 06-JUN-95	HB
;#					5. 11/18/95 GJ
;#					6. 12/03/95 GJ
;#					7. 14 JAN 96 RS
;#
;#		1.3	Change Description:	
;#
;#			1.  Remove wait until for check of current decrease.
;#				May not usually be significant.
;#			2.  Changed comments and removed waits
;#			3.  Corrected syntax errors
;#			4. Added command (MBHPOMOF) and telemetry check before the
;#			   final two SV statements.
;#			5. Changed name convention from m_ts_* to m_fl_*.
;#			6. Deleted GOTO END and added WAIT; GO TO CONTINUE.
;#			7. Added wait until command state available where appropriate.
;#
;#
;#		1.4	Point of Contact:	
;#			FOT Author: BSAPPER 	ATSC/SOHO	805-3749
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			This procedure powers down the prime oven heater controller.
;#
;#		2.2	Intended Use:
;#
;#			Power down the prime oven controller.
;#
;#		2.3	Duration:	TBD
;#
;#		2.4 References:
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None
;#
;#		3.2	Critical Activities
;#
;#			TBD
;#
;#		3.3	Special Constraints or Activities
;#
;#			MDI in any mode.  MR TLM required. MDI operator verification
;#			for each step before contintuing.  Proc should be completed as
;#			soon after power on as possible.
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

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

IF (P@KKTMMODE = "HK") THEN	;Check TM is not in LR
WRITE "TM IS NOT IN MEDIUM/HIGH RATE."
WAIT;	 GO TO CONTINUE.
ENDIF

sv p@mipwa
sv p@mipwb
wait;	record MDI current, MIPWA < 1.5

wait;	'GO' to switch off prime oven controller

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")
/MBPWHPOF				;SWITCH OFF PRIME OVEN CONTROLLER
/SEND

WAIT UNTIL (P@MKPWHPO = "OFF");  Verify controller is off

WAIT UNTIL (P@CMD_STATE#TELECOMMAND = "AVAILABLE")
/MBHPOMOF
/SEND

WAIT UNTIL (P@MKHPOMON = "OFF")

SV MIPWA
SV MIPWB
WAIT		;RECORD MDI CURRENT, MIPWAshould drop by 0.4

;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		TBD
;#
;#**************************************************************************
end:
ENDPROC