PROC S_FL_OFF ;VERSION 7 GOTO BEGIN ; ;#************************************************************************** ;# ****PROCEDURE HEADER**** ;# ;# 1.0 Introduction ;# ;# 1.1 FOT Name: S_FL_OFF ;# MMS-F Name: N/A ;# SUM Issue: N/A ;# Simulator Validation Status: ;# ;# 1.2 Date Created: 01 APRIL 95 ;# Revision: 1) 03 APR 95 TB ;# 2) 25 APR 95 TB ;# 3) 27 APR 95 TB ;# 4) 18 MAY 95 TB ;# 5) 1 June 95 TB ;# 6) 16 JUN 95 TL ;# 7) 24 OCT 95 RS ;# ;# 1.3 Change Description: ;# ;# 1) Changed procedure name from S_TS_SUM_OFF -> S_TS_OFF ;# 2) Changed dataword /SBCHGPAR 000E 5500 0000 TO ;# /SBCHGPAR 000F 5500 0000 ;# 3) Changed SBCHGPAR to SBCHGP ;# Changed SBMMOV to SB3MCMOV ;# Changed SWTM to SUMER ;# Deleted Sumer Current and Voltage lim on's ;# Added WAIT 5 's to line 180 - 185 ;# 4) Added: ;# START K_EXP_MON_DIS ;# ;Disable the experiment LCL ;# monitoring at channel level ;# ;# 5) Added comments for KNSPW commands. ;# Changed /KNSPWBFN to /KNSWPBFR for consistency ;# See description in SOHOCD.PDB ;# 6) Changed TM mnemonic SSP2 to SSP2M. ;# 7. Changed the name from s_ts_off ---> s_fl_off. ;# 8) replaced door handling by call to SAFE procedure ;# ;# 1.4 Point of Contact: ;# FOT Author: Travis Bailey ATSC/SOHO 286-4799 ;# ;#************************************************************************** ;# 2.0 Description ;# ;# 2.1 Narrative Description ;# ;# This procedure turns off power to the SUMER experiment ;# returns to a SAFE/STANDBY Mode first by closing door if open. ;# ;# 2.2 Intended Use: ;# ;# Power off SUMER ;# ;# 2.3 Duration: 5 min ;# ;# 2.4 References: ;# ;#************************************************************************** ;# 3.0 Instructions for Use: ;# ;# 3.1 Parameters Required ;# ;# None ;# ;# 3.2 Critical Activities ;# ;# TBD ;# ;# 3.3 Special Constraints or Activities ;# ;# PLM is powered on into ready mode ;# Non Operation heaters are off ;# ;#************************************************************************** ;# 4.0 STEPS: BEGIN: ;Variable declaration section local config ;Flag for nominal or redundant config IF (P@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN ELSE /CLEAR ;Clearing the Command Buffer. ENDIF WRITE "start SUMER SAFE procedure" START S_FL_SAFE WAIT UNTIL (P@SKEXPSTA = "SUM standby") LIM OFF SUMER /SB3POWOF ;Switch off SUMER 4 WAIT ;Verify command buffer contents /SEND WAIT 5 ;WAIT FOR COMMAND AVAILABLE START K_EXP_MON_DIS ;Disable the experiment LCL monitoring at channel level /KNSPWAFN ;+28 V A off Nominal WAIT ;Verify command buffer contents /SEND WAIT 5 ;WAIT FOR COMMAND AVAILABLE /KNSPWBFR ;+28 V B off Redundant (was /KNSPWBFN) WAIT ;Verify command buffer contents /SEND WRITE "End of SUMER Power OFF" ;#************************************************************************** ;# 5.0 Final Constraints ;# ;# TBD ;# ;#************************************************************************** ENDPROC