PROC S_FL_RCOVERY

;VERSION 3

GOTO BEGIN

;

;#**************************************************************************

;#	****PROCEDURE HEADER****

;#

;# 	1.0 	Introduction

;#

;#		1.1	FOT Name:    S_FL_RCOVERY

;#		   	MMS-F Name:  N/A	 

;#		   	SUM Issue:   N/A	

;#			Simulator Validation Status:

;#

;#		1.2	Date Created:  01-APR-95

;#			    Revision:  1) 03 APR 95 TB

;#						2. 24 OCT 95 RS

;#

;#		1.3	Change Description:	

;#

;#			1) Changed procedure name from S_TS_SUM_RCOVERY -> S_TS_RCOVERY 

;#			2) Changed name from s_ts_recovery ---> s_fl_recovery.

;#                      3) Added call to S_FL_SAFE in order to close door

;#		1.4	Point of Contact:	

;#			FOT Author: Travis Bailey  	ATSC/SOHO	286-4799

;#

;#**************************************************************************

;#	2.0	Description

;#

;#		2.1	Narrative Description

;#

;#			This procedure will recover SUMER from a faulty condition

;#	

;#

;#		2.2	Intended Use:

;#

;#			To be run after LCL switch off

;#

;#		2.3	Duration:	10 min

;#

;#		2.4 References:

;#

;#**************************************************************************

;#	3.0	Instructions for Use:

;#

;#		3.1	Parameters Required

;#

;#			None

;#

;#		3.2	Critical Activities

;#

;#

;#		3.3	Special Constraints or Activities

;#

;#			must be run asap after LCL switch off

;#			If door is open while SUMER is off, telescope mirror

;#                      will degrade

;#

;#**************************************************************************

;#	4.0	STEPS:



BEGIN:



IF (P@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN

ELSE

	/CLEAR		;Clearing the Command Buffer.

ENDIF



WRITE "START OF SUMER Recover"



START S_FL_PWR_ON

START S_FL_SAFE



WRITE "END OF SUMER Recover"



;#************************************************************************** 

;#	5.0	Final Constraints

;#

;#		NONE

;#

;#**************************************************************************

ENDPROC