PROC m_fl_hcmoff
;Version 5
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:  m_fl_hcmoff 
;#		   	MMS-F Name:  	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  20-DEC-94   BS
;#			    Revision:  1. 1/25/95	RR
;#                            2. 4/14/95   GJ
;#						3. 05-04-95 RR
;#						4. 11/18/95  GJ
;#						5. 12/2/95 GJ
;#
;#		1.3	Change Description:	
;#
;#			1.		Changed command /mbpwcmof to /mbpwhcmf
;#					per PI team request.
;#			2.		changed comments and removed waits
;#		     4.		Changed naming convention from m_ts_* to m_fl_*.
;#			5.		Deleted GOTO END and added WAIT; GO TO CONTINUE
;#		
;#		1.4	Point of Contact:	
;#			FOT Author:  BSAPPER	ATSC/SOHO	805-3749
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			This proceddure powers off the CCD decontamination heater.
;#
;#		2.2	Intended Use:
;#
;#			Powering off the CCD decontamnation heater.
;#
;#		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 SLEEP or higher mode. MR TLM required.  MDI operator on
;#			station for verification of each step before continuing.
;#
;#**************************************************************************
;#	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,MIPWB) SHOULD BE < 1.5

/MBPWHCMF			;HCM CCD DECONTAMINATION HEATER OFF
/SEND

WAIT UNTIL (P@MKPWHCM = "OFF")

SV P@MIPWA
SV P@MIPWB
WAIT		;VERIFY MDI CURRENT DROPPED APROX 0.3 

SV P@MTOPTS6
SV P@QTMI1D
WAIT		;RECORD CCD TEMP (QTMI1D)

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