PROC D_SSR_STP_RC
;Version 3
GOTO BEGIN
;
;#**************************************************************************
;#	****PROCEDURE HEADER****
;#
;# 	1.0 	Introduction
;#
;#		1.1	FOT Name:		D_SSR_STP_RC
;#		   	MMS-F Name:	NONE
;#		   	SUM Issue:	NONE
;#			Simulator Validation Status:  Validated
;#
;#		1.2	Date Created:	20-NOV-94
;#				Revision:	1. 9-JAN-95	MH
;#						2. 4-AUG-95	TB/MH
;#						3. 19-SEP-95   BS
;#
;#		1.3	Change Description:	
;#
;#			1. P@DSSSNCKA = NOT.ACT  -->  P@DSSSNCKA = NOT.ACT.
;#			2. Removed section with "Ask "is SSR in Record Mode" "
;#			   Switched sections (DHSS to idle mode) and (SSR to Stand-by)
;#			   Added WAIT	;Record Time KKTCMEXO (Page - K_CMD_STATUS)
;#			3. Move check for DSSSNCKA = NOT ACT to after sending
;#			   cmd KNK1ET21.
;#
;#		1.4	Point of Contact:	GMiller	ATSC/SOHO	805-3643
;#			FOT Author:	MHill 	ATSC/SOHO	805-3646
;#
;#**************************************************************************
;#	2.0	Description
;#
;#		2.1	Narrative Description
;#
;#			SET SSR IN STANDBY MODE FROM RECORD MODE
;#
;#		2.2	Intended Use:
;#
;#			To switch the SSR to standby mode, when in record mode.
;#
;#		2.3	Duration:	2 min
;#
;#		2.4	References: page D_SSR_STAT_N, K_CMD_STATUS
;#
;#**************************************************************************
;#	3.0	Instructions for Use:
;#
;#		3.1	Parameters Required
;#
;#			None
;#
;#		3.2	Critical Activities
;#
;#			None
;#
;#		3.3	Special Constraints or Activities
;#
;#			None
;#**************************************************************************
;#	4.0	STEPS:

BEGIN:

IF (P@CMD_STATE#TELECOMMAND = "AVAILABLE") THEN
ELSE
	/CLEAR		;Clearing the Command Buffer.
ENDIF

WAIT UNTIL (P@KKTMFID = "MR/HR 1")
WAIT UNTIL (P@KKTMMODE = "RECORD")	;Check COBS/DHSS in Record Mode.
WAIT UNTIL (P@DKSSNMOD = "RECORD")	;Check SSR in record mode.
WAIT UNTIL (P@DSSSNCKA = "ACTIVE")	;Check activity of record clock.


IF (P@DKSSNMOD = "RECORD") THEN
	/DZSSNSBN		;Send SSR ML standby command
	WAIT			;Verify command buffer contents
	/SEND
ENDIF

WAIT UNTIL (P@DKSSNMOD = "STAND-BY")	;Verify SSR is in standby
WAIT	;Record Time KKTCMEXO (Page - K_CMD_STATUS)

/KNK1ET31		;Put COBS/DHSS in idle mode.
WAIT			;Verify command buffer contents
/SEND

WAIT UNTIL (P@KKTMFID = "MR/HR 1")	
WAIT UNTIL (P@KKTMMODE = "IDLE")	;Verify COBS/DHSS in idle mode.
WAIT UNTIL (P@DSSSNCKA = "NOT.ACT.")	;Verify SSR with record clock/data signals.
;#************************************************************************** 
;#	5.0	Final Constraints
;#
;#		None
;#
;#**************************************************************************
ENDPROC