PROC m_fl_offscb
;Version 10
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:    M_FL_OFFSCB
;#		   	MMS-F Name:  	 
;#		   	SUM Issue:   	
;#			Simulator Validation Status:
;#
;#		1.2	Date Created:  11-3-94
;#			    Revision:  1/25/95 RR
;#						2. 25-JAN-95	HB
;#						3. 1/25/95 RR
;#						4. 2-21-95 RR
;#                       	5. 4-24-95 GJ
;#						6. 5-23-95 RR
;#						7. 5-26-95 RR
;#						8. 8-14-95 GJ
;#						9. 11-02-95 GJ
;#					    10. 11/18/95 GJ
;#
;#		1.3	Change Description:	
;#
;#			1/25/95  added s k_exp_mon_dis
;#			2. Changed procedure name in first WAIT statement from M_OFFSCA
;#			   to M_OFFSCB.
;#			3.  Add procedure k_exp_mon_dis prior to turning off the LCL
;#			4.  Replace visual checks with automated checks for door status
;#				at the beginning of the proc.
;#			5.  changed door logic
;#			6.  changes proc m_ts_fdclosed to m_ts_fdclose
;#			7.  Correct syntax error at EOF
;#			8.  Changed B to A bus.
;#			9.  Moved comment from one area to another and switch B bus 
;#			    to A bus.
;#		    10.  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 down the MDI instrument to the OFF state
;#			from spacecraft bus A in a controlled manner.  The initial mode
;#			should be SAFE and the final mode will be OFF.
;#
;#		2.2	Intended Use:
;#
;#			Controlled ppower down of MDI instrument from SAFE to OFF 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 SAFE mode.  Medium rate telemetry support required for
;#			duration of power down 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


;
;Check if the front door is closed.  
;
IF((P@MSFDCLN != "CLOSED") or (P@MSFDCLR != "CLOSED") or     ;;	
   (P@MSFDOPN != "NOT OPEN") or (P@MSFDOPR != "NOT OPEN")or  ;;	
   (P@MKFDMTR1 != "CLOSED") or (P@MKFDMTR2 != "CLOSED") or  ;;	
   (P@MKFDOPN1 != "NOT OPEN") or (P@MKFDOPN2 != "NOT OPEN")) then
	ask"Does the MDi operator want to close front door (Y/N)?"
	answer=%upper(answer)
	if(answer="Y") then
          s m_fl_fdclose
	endif
endif

wait;			'GO' to configure MDI for OBS mode

s m_fl_obsmode

wait;			'GO' to reset the shutter

/mbshrs;	SHUTTER RESET
/send

wait;			'GO' for AM power OFF

/mbpwamof;			AM power OFF
/send
wait until(p@mkpwam="OFF");	verify AM power OFF

wait;			'GO' for FD power OFF

/mbpwfdof;			FD power OFF
/send
wait until(p@mkpwfd="OFF");	verify FD power OFF

wait;			'GO' for limb tracker power OFF

/mbpwltof;			limb tracker power OFF
/send
wait until(p@mkpwlt="OFF");	verify limb tracker power OFF

wait;			'GO'	 for CAL2 power OFF

/mbpwc2of;			CAL2 power OFF
/send
wait until(p@mkpwc2="OFF");	verify CAL2 power OFF

wait;			'GO'	 for CAL1 power OFF

/mbpwc1of;			CAL1 power OFF
/send
wait until(p@mkpwc1="OFF");	verify CAL1 power OFF

wait;			'GO'	for PAW power OFF

/mbpwpaof;			PAW power OFF
/send
wait until(p@mkpwpa="OFF");	verify PAW power OFF

wait;			'GO' for MTM2 power OFF

/mbpwm2of;			MTM2 power OFF					
/send
wait until(p@mkpwm2="OFF");	verify MTM2 power OFF

wait;			'GO' for MTM1 power OFF

/mbpwm1of;			MTM1 power OFF
/send
wait until(p@mkpwm1="OFF");	verify MTM1 power OFF

wait;			'GO' for shutter power OFF

/mbpwshof;			Shutter power OFF
/send
wait until(p@mkpwsh="OFF");	verify shutter power OFF

wait;			'GO' camera power OFF

/mbpwcmof;			Camera power OFF
/send
wait until(p@mkpwcm="OFF");	verify camera power OFF

wait;			'GO' IP power OFF

/mbpwipof;			IP power OFF
/send
wait until(p@mspwipn="OFF");  verify IP power OFF
wait until(p@mspwipr="OFF");	verify IP power OFF (R)
wait until(p@mkpwip="OFF");	verify IP power OFF

wait;			'GO' to set TM select 1

/mbpwtm1o;			set TM select 1
/send
wait until(p@mstmseln="1");	verify TM select 1

wait;			'GO' for ALL power OFF

/mcallofn
/send
wait until(p@mspwdpn="OFF");	verify DEP power OFF
wait until(p@mspwaen="OFF");	verify DEP power OFF


wait;			'GO' to switch power converters to B bus

/mcrc1an;				power converter (R) 1 to A bus
/mcrc2an;				power converter (R) 2 to A bus
/mcpc1an;				power converter (P) 1 to A bus
/mcpc2an;				power converter (P) 2 to A bus		
/send

wait until(p@msrc1n="A");	verify power converter (R) switch to A bus
wait until(p@msrc2n="A");	verify power converter (R) switch to A bus
wait until(p@mspc1n="A");	verify power converter (P) switch to A bus
wait until(p@mspc2n="A");	verify power converter (P) switch to A bus

WAIT UNTIL((P@MIPWA>=0)AND(P@MIPWA<0.05))	;Current should be approx zero
WAIT UNTIL((P@MIPWB>=0)AND(P@MIPWB<0.05))	;Current should be approx zero


wait;			'GO' to reset relays to ON

/mcallonn;			All relays ON
/send

wait;			'GO' for S/C bus A power OFF
s k_exp_mon_dis

wait until (P@CMD_STATE#TELECOMMAND = "AVAILABLE")
/knmpwbfn;			S/C bus B power OFF
/send

wait until(p@mspwa="OFF");	verify MDI A power OFF
wait until(P@mspwb="OFF");	verify MDI B power OFF


wait;			'GO' to switch to prime power converters to A bus

/mcpc1an;				power converter 2 to A bus
/mcpc2an;				power converter 2 to A bus
/send

wait until(p@mspc1n="A"); 	verify converter 1 to A bus
wait until(p@mspc2n="A");	verify converter 1 to A bus

WAIT UNTIL((P@MIPWA>=0)AND(P@MIPWA<0.05))	;Current should be approx zero
WAIT UNTIL((P@MIPWB>=0)AND(P@MIPWB<0.05))	;Current should be approx zero

SV P@MIPWA
SV P@MIPWB
WAIT;	RECORD THE MDI CURRENTS
;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		TBD
;#
;#**************************************************************************
end:
ENDPROC