PROC m_fl_on
;Version 3
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:    m_fl_on
;#		   	MMS-F Name:  	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  11-3-94
;#			    Revision:  1.  4/24/95
;#					2.  5-26-95
;#					3. 11/18/95 GJ
;#
;#		1.3	Change Description:	
;#
;#			1.  added cobs procs
;#			2.  comment out limit procs;  add m_ts_cmon proc
;#			3.  Changed name convention from m_ts_* to m_fl_*.
;#
;#		1.4	Point of Contact:	CCazeau
;#			FOT Author:  RRowe	ATSC/SOHO	805-3642
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			This procedure powers up the MDI instrument with primary
;#			HR telemetry initialized in the IP.  The initial mode should
;#			be OFF and the final mode will be SAFE.
;#
;#		2.2	Intended Use:
;#
;#			Controlled initial power on of MDI to bring the instrument
;#			OFF to SAFE mode.
;#
;#		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 OFF mode.  Medium rate telemetry support required for
;#			duration of power on sequence.  MDI Operator on station to
;#			support verification of procedure.  MDI operator verification
;#			required for 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."
GOTO END
ELSE
ENDIF


wait;			'GO' to turn on primary power

s m_fl_pconpri

;wait;			'GO' to set voltage limits

;s m_fl_vlimit

;wait;			'GO' to set temperature limits

;s m_fl_tlimiton

wait;			'GO' to turn on CCD and OP heater

s m_fl_htron

wait;			'GO' to establish warm start up set points (255)

s m_fl_hopspt

wait;			'GO' to turn on operational CCD heater (1)

s m_fl_ccdspt

wait;			'GO' to turn on prime oven heater

s m_fl_ovenon		

wait;			'GO' to establish prime oven set point (2)

s m_fl_ovenspt

s k_idtomm

wait;			'GO' to turn on image processor power

s m_fl_ipon

wait;			'GO' to turn on CCD camera power

s m_fl_cmon

ask"Do you want to return to HR IDLE TM (Y/N)?"
answer=%upper(answer)
if(answer="Y") then
	s k_mmtoidle
endif

wait;			'GO' to turn mechanisms power on

s m_fl_mchson

wait;			'GO' to turn on the limb tracker

s m_fl_lton

wait;			'GO' to establish observing configuration (VAC)


sv p@mipwa
sv p@mipwb
wait;	record the mdi currents, MIPWA < 2.0





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