****************************************************************************************************
** LNG product:		ELISA source
****************************************************************************************************
** Type:               			Sequence 
**  
** FOP Name & Version: 			None 
**
** Description:                    	The following sequence performs the following steps :-
**								- Switch off SWA HIS
**					
**
** Input Arguments:				None
**								
**
** Output Values:					None
**
** CSW Version:					V2.1.3 or higher
** 
** FOPs used:						None 
**
** HK TM packets used:				
**
** Test Procedure & Reference:		SO-SWA-MSSL-TOP-059 Issue 4
**
** Restrictions and Limitations: 	SSMM hardware required to be on before switch ON.
**								SWA HIS ON
**								SWA DPU to be On in OPS mode.     
**
****************************************************************************************************
**	History
**--------------------------------------------------------------------------------------------------
**	Version	Date			Author			Comment
**--------------------------------------------------------------------------------------------------
**	1.1		28/04/2018	J Silverthorn		Initial version
**	1.4		30/05/2018	E Boulet			Update sequence according to new input from SO-SWA-MSSL-TP-059 issue 4
**	1.5		05/06/2018	E Boulet			Change pass criteria for IF (sign were inverted)
**	1.6		08/06/2018	J Silverthorn		Removed capture of YIU58602 at start after mode change command
**	1.7		02/08/2018					Timeouts changed globaly to 150 seconds and in specific cases as noted in script
**	1.8		04/08/2018					Timeouts changed for ramp down delays
**	1.9		04/09/2018					Update TC ZCSD3008 to put parameter in line with new SRDB v 4.610
**	1.10		12/09/2018					Redundant PCDU Tm's implemented for HIS LCL status and current
**	1.11		16/10/2018	E Boulet			Replace RIU generic command ZCSD3008 by dedicated commands to handle HIS LCL
**	1.12		16/11/2018	J Silverthorn		De-restriction and re-restriction of relay box commands
**										Replace generic LCL commands by dedicated commands
**	1.13		20/11/2018					Halt removed afer establishing decontamination heaters are not needed.
**	1.14		29/11/2018					ZCS2Z09H, ZCS2Z09K added to the list of prohibited commands to manage
**	1.15		10/01/2018	J Silverthorn		Ref. NCR 1068 Relay box telemetries are now correct. Sequence modified to capture correct expected Tm values
**	1.16		14/01/2019					Corrected typo in relay TM acquisitions
**	1.17		15/01/2019					Changed parameters for ramp down commands - see script for details
**	1.18									Corrected typo in "AB.TM.NIA04634", "NO", "<=0.02",
**	1.19		16/01/2019	J Silverthorn		Changes to the ramp down checks i.a.w. email from C Loeffler 16/01/2019
**	1.20		02/02/2019	D Cowan			Increased timeout of NIA04634 after ramp down offset by 90s
**	1.21		12/02/2019	J Silverthorn		Proto added for $TM - no TM available during Mission tests
** 	1.22		15/05/2019					ACS_EVT_408 OBS PAY5 - Extended timeout on acquisition of NIA01371 and NIA04633
**	1.23		11/09/2019					Removed request to leave decontamination heaters ON.
***************************************************************************************************

** SEQUENCE TISS_HIS_OFF

SEQUENCE TISS_HIS_OFF
	proto
		string 		$TM := "YES" ["YES", "NO"]
	endproto
	** Definition of Input parameters
	
	** Definition of Constants
	const
		string   		$sTitle  		:= "TITLE"  
		string		$sTrace 		:= "TRACE"
	
	** Definition of Variables
	var
		string		$sBufArg := ""
		string		$sNumPha
		string		$sPlatform
		string		$sChoice	
		date			$dCurDate
	
		int 			$Count
	
		string 		$s_lcl_a_cur := "AB.TM.NPWD3267"											--IFA_LCL4_LCL16 SWA-A_LCL TM
		string		$s_lcl_b_cur := "AB.TM.NPWD2768"											--IFA_LCL2_LCL17 SWA-B PWR_LCL TM
		string 		$s_lcl_a_sts := "AB.TM.NPWD0077"											--IFA_LCL4_LCL16 SWA-A_LCL ST
		string		$s_lcl_b_sts := "AB.TM.NPWD0038"											--IFA_LCL2_LCL17 SWA-B PWR_LCL ST
		string 		$s_his_a_cur := "AB.TM.NPWD3010"											--IFA_LCL4_LCL16 SWA-A_LCL TM
		string		$s_his_b_cur := "AB.TM.NPWD2510"											--IFA_LCL2_LCL17 SWA-B PWR_LCL TM
		string 		$s_his_a_sts := "AB.TM.NPWD0050"
		string		$s_his_b_sts := "AB.TM.NPWD0010"											--IFA_LCL2_LCL17 SWA-B PWR_LCL ST
		string 		$s_rsa_a_sts := "AB.TM.NRUD2007"											--Acq. RSA_1_1_9 SWA A
		string		$s_rsa_b_sts := "AB.TM.NRUD2067"											--Acq. RSA_2_1_9 SWA B
	
		string 		$sTTRM
		string 		$sPM
		string 		$sRIU
		string		$sPCDU
		string		$sMilBus	
	
		string		$sRSA_A
		string		$sRSA_B
	
		int 			$i_RptRefNb(2)
		int 			$i_reportflowID(2)
		real 		$rNIA01371
		real 		$rNIA01342
		real 		$rNIA04633
		real 		$rNIA04631
		real 		$rNIA04632
		real 		$rNIA04634
		real 		$rNIA01351	
	
	main
		window
		
		@SU_SEQSTART("Switching SWA HIS OFF", *$dCurDate, $sTrace, "")
		$sPlatform := AB.USR.PLATFORM
		
		if ($TM = "YES")

			@TPZC_PSFT_CONFIG(*$sTTRM,*$sPM,*$sRIU,*$sPCDU,*$sMilBus)
			
			if ($sPCDU = "B")
				$s_lcl_a_cur := "AB.TM.NPWT3267"
				$s_lcl_b_cur := "AB.TM.NPWT2768"
				$s_lcl_a_sts := "AB.TM.NPWT0077"
				$s_lcl_b_sts := "AB.TM.NPWT0038"
				$s_his_a_sts := "AB.TM.NPWT0050"
				$s_his_b_sts := "AB.TM.NPWT0010"
				$s_his_a_cur := "AB.TM.NPWT3010"
				$s_his_b_cur := "AB.TM.NPWT2510"	
			endif
			if ($sRIU = "B")
				$s_rsa_a_sts := "AB.TM.NRUT2007"
				$s_rsa_b_sts := "AB.TM.NRUT2067"
			endif
			
			********************************************************************
			@SU_SEQPHASE2(1, "Initial checks", *$sNumPha, "",  $sTitle)
			********************************************************************
			
			@su_digacs($s_lcl_a_sts,"NO","NO", $sTrace, 5) 
			@su_digacs($s_lcl_b_sts,"NO","NO", $sTrace, 5) 
			@su_digacrs($s_rsa_a_sts,"NO","NO", *$sRSA_A, $sTrace, 5) 
			@su_digacrs($s_rsa_b_sts,"NO","NO", *$sRSA_B, $sTrace, 5) 
			@su_anaacs($s_lcl_a_cur,"NO","NO",$sTrace, 150) 
			@su_anaacs($s_lcl_b_cur,"NO","NO",$sTrace, 150) 
			
			if (($sRSA_A = "Off") and ($sRSA_B = "Off"))
				ta_print "Error SWA DPU is OFF - please check"
				Return "INIT_NOK"
			end if

		endif		
		-- checks required here for High Voltage OFF
		
		@SU_SEQPHASE2(1, "Switch HIS Off", *$sNumPha, "",  $sTitle)	
		--Step 6.1.1 of SO-SWA-MSSL-TP-059 issue 4
		@SU_SEQPHASE2(2, "Put HIS into standby mode   ", *$sNumPha, "",  $sTitle)	

		@SU_SEND({ AB.TC.ZIA58917 , \
		SHF:OBV := 0 , \
		SID:OBV := 120 , \
		PIA59011_ := "HVSTDBY"}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 150)

		if ($TM = "YES")
			--Step 6.1.2 of SO-SWA-MSSL-TP-059 issue 4		
			@su_wait(2)
			@RPZA_HKTM_CATCH("AB.TM.YIA58212", "WAIT" , *$Count , 120)
		else
			@su_wait(120)
		endif

		if ($TM = "YES")
		
			--Step 6.1.3 of SO-SWA-MSSL-TP-059 issue 4
			@SU_ANAACRS(SNAME := "AB.TM.NIA01371", "NO", "NO", *$rNIA01371, CONF := $sTrace, TIMEOUT := 150)
			@SU_ANAACRS(SNAME := "AB.TM.NIA01342", "NO", "NO", *$rNIA01342, CONF := $sTrace, TIMEOUT := 150)
			IF(($rNIA01371 <= -0.05) OR ($rNIA01342 >= 0.05 ))		
				
				--Step 6.1.4 of SO-SWA-MSSL-TP-059 issue 4
				
				-- Ramp down Top Plate
				@SU_SEND({ AB.TC.ZIA58908 , \
				PIA59050_ := "TOP_PLATE", \
				PIA60354_ := 0 , \
				PIA60353_ := 4095 , \ -- v1.17
				PIA60345_ := 3 , \
				PIA59054_ := "HIGH" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
				@su_wait(2)
				
				-- Ramp down Bottom Deflector
				@SU_SEND({ AB.TC.ZIA58908 , \
				PIA59050_ := "BOT_DFL", \
				PIA60354_ := 0 , \
				PIA60353_ := 4095 , \ -- v1.17
				PIA60345_ := 3 , \
				PIA59054_ := "HIGH" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
				@su_wait(2)
				
				-- Ramp down top Deflector
				@SU_SEND({ AB.TC.ZIA58908 , \
				PIA59050_ := "TOP_DFL", \
				PIA60354_ := 0 , \
				PIA60353_ := 4095 , \ -- v1.17
				PIA60345_ := 3 , \
				PIA59054_ := "HIGH" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
				@su_wait(2)
				
				-- Ramp down Analyzer
				@SU_SEND({ AB.TC.ZIA58908 , \
				PIA59050_ := "ANALYZER", \
				PIA60354_ := 0 , \
				PIA60353_ := 4095 , \ -- v1.17
				PIA60345_ := 3 , \
				PIA59054_ := "HIGH" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
				@su_wait(2)
				
				--Step 6.1.5 of SO-SWA-MSSL-TP-059 issue 4 
				@su_wait(6)
				
				--Step 6.1.6 of SO-SWA-MSSL-TP-059 issue 4 
				-- Ramp down Main
				@SU_SEND({ AB.TC.ZIA58908 , \
				PIA59050_ := "MAIN", \
				PIA60354_ := 0 , \
				PIA60353_ := 65 , \
				PIA60345_ := 3 , \
				PIA59054_ := "NONE" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
				
				--Step 6.1.7 of SO-SWA-MSSL-TP-059 issue 4
				@su_wait(3)
				
				--Step 6.1.8 of SO-SWA-MSSL-TP-059 issue 4
				@SU_ANAACS(SNAME := "AB.TM.NIA01371", ">=-0.05", "NO", CONF := $sTrace, TIMEOUT := 600) -- v1.22
				@SU_ANAACS(SNAME := "AB.TM.NIA01342", "NO", "<=0.05", CONF := $sTrace, TIMEOUT := 10) -- v1.19
			endif
		endif
		
		--Step 6.1.9 of SO-SWA-MSSL-TP-059 issue 4
		-- disable EAIS
		@SU_SEND({ AB.TC.ZIA58907 , \
		PIA59000_ := "DISABLE", \
		PIA59006_ := "IRAP" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
		
		if ($TM = "YES")

			--Step 6.1.10 of SO-SWA-MSSL-TP-059 issue 4		
			@SU_ANAACRS(SNAME := "AB.TM.NIA04633", "NO", "NO", *$rNIA04633, CONF := $sTrace, TIMEOUT := 150)
			IF($rNIA04633 >= 2.0)	
				
				--Step 6.1.11 of SO-SWA-MSSL-TP-059 issue 4
				-- Ramp down SSD
				@SU_SEND({ AB.TC.ZIA58908 , \
				PIA59050_ := "SSD", \
				PIA60354_ := 0 , \
				PIA60353_ := 164 , \
				PIA60345_ := 1 , \
				PIA59054_ := "NONE" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
				
				--Step 6.1.12 of SO-SWA-MSSL-TP-059 issue 4
				@su_wait(1)
				
				--Step 6.1.13 of SO-SWA-MSSL-TP-059 issue 4
				@SU_ANAACS(SNAME := "AB.TM.NIA04633", "NO", "<=2.0", CONF := $sTrace, TIMEOUT := 300) -- v1.22
				
			endif
		endif
			
		--Step 6.1.14 of SO-SWA-MSSL-TP-059 issue 4
		-- disable SSD
		@SU_SEND({ AB.TC.ZIA58907 , \
		PIA59000_ := "DISABLE", \
		PIA59006_ := "SSD" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
		
		if ($TM = "YES")
			--Step 6.1.15 of SO-SWA-MSSL-TP-059 issue 4
			@SU_ANAACRS(SNAME := "AB.TM.NIA04631", "NO", "NO", *$rNIA04631, CONF := $sTrace, TIMEOUT := 150)
			@SU_ANAACRS(SNAME := "AB.TM.NIA04632", "NO", "NO", *$rNIA04632, CONF := $sTrace, TIMEOUT := 150)
			IF(($rNIA04631 >= 0.03) OR ($rNIA04632 >= 0.03 ))	
				
				--Step 6.1.16 of SO-SWA-MSSL-TP-059 issue 4
				-- Ramp down MCP
				@SU_SEND({ AB.TC.ZIA58908 , \
				PIA59050_ := "START_MCP", \
				PIA60354_ := 0 , \
				PIA60353_ := 12 , \
				PIA60345_ := 5 , \
				PIA59054_ := "NONE" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
				
				@SU_SEND({ AB.TC.ZIA58908 , \
				PIA59050_ := "STOP_MCP", \
				PIA60354_ := 0 , \
				PIA60353_ := 12 , \
				PIA60345_ := 5 , \
				PIA59054_ := "NONE" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
				
				--Step 6.1.17 of SO-SWA-MSSL-TP-059 issue 4
				@su_wait(5)
				
				--Step 6.1.18 of SO-SWA-MSSL-TP-059 issue 4
				@SU_ANAACS(SNAME := "AB.TM.NIA04631", "NO", "<=0.03", CONF := $sTrace, TIMEOUT := 890) -- v1.19
				@SU_ANAACS(SNAME := "AB.TM.NIA04632", "NO", "<=0.03", CONF := $sTrace, TIMEOUT := 890) -- v1.19
				
			endif
		endif
			
		--Step 6.1.19 of SO-SWA-MSSL-TP-059 issue 4
		-- disable MCP
		@SU_SEND({ AB.TC.ZIA58907 , \
		PIA59000_ := "DISABLE", \
		PIA59006_ := "START_MCP" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
		
		@SU_SEND({ AB.TC.ZIA58907 , \
		PIA59000_ := "DISABLE", \
		PIA59006_ := "STOP_MCP" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
		
		if ($TM = "YES")
			--Step 6.1.20 of SO-SWA-MSSL-TP-059 issue 4		
			@SU_ANAACRS(SNAME := "AB.TM.NIA04634", "NO", "NO", *$rNIA04634, CONF := $sTrace, TIMEOUT := 150)
			IF($rNIA04634 >= 0.02)	
				
				--Step 6.1.21 of SO-SWA-MSSL-TP-059 issue 4	
				--ramp down offset	
				@SU_SEND({ AB.TC.ZIA58908 , \
				PIA59050_ := "OFFSET", \
				PIA60354_ := 0 , \
				PIA60353_ := 102 , \
				PIA60345_ := 5 , \
				PIA59054_ := "NONE" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
				
				--Step 6.1.22 of SO-SWA-MSSL-TP-059 issue 4		
				@su_wait(5)
				
				--Step 6.1.23 of SO-SWA-MSSL-TP-059 issue 4		
				@SU_ANAACS(SNAME := "AB.TM.NIA04634", "NO", "<=0.02", CONF := $sTrace, TIMEOUT := 300) -- v1.18
			ENDIF
		endif
			
		--Step 6.1.24 of SO-SWA-MSSL-TP-059 issue 4	
		-- disable Offset
		@SU_SEND({ AB.TC.ZIA58907 , \
		PIA59000_ := "DISABLE", \
		PIA59006_ := "OFFSET" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
		
		if ($TM = "YES")

			--Step 6.1.25 of SO-SWA-MSSL-TP-059 issue 4		
			@SU_ANAACRS(SNAME := "AB.TM.NIA01351", "NO", "NO", *$rNIA01351, CONF := $sTrace, TIMEOUT := 150)
			IF($rNIA01351 <= -2.3)
				
				--Step 6.1.26 of SO-SWA-MSSL-TP-059 issue 4	
				--ramp down PA
				@SU_SEND({ AB.TC.ZIA58908 , \
				PIA59050_ := "PA", \
				PIA60354_ := 0 , \
				PIA60353_ := 12 , \
				PIA60345_ := 10 , \
				PIA59054_ := "NONE" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
				
				--Step 6.1.27 of SO-SWA-MSSL-TP-059 issue 4		
				@su_wait(10)
				
				--Step 6.1.28 of SO-SWA-MSSL-TP-059 issue 4		
				@SU_ANAACS(SNAME := "AB.TM.NIA01351", ">=-2.3", "NO", CONF := $sTrace, TIMEOUT := 2800)  --wait 45 min -- v1.19
			ENDIF	
		endif
			
		--Step 6.1.29 of SO-SWA-MSSL-TP-059 issue 4	
		-- disable PA
		@SU_SEND({ AB.TC.ZIA58907 , \
		PIA59000_ := "DISABLE", \
		PIA59006_ := "PA" }, $sTrace, VER := "AUTO", TIMEOUT_VER := 150)
		
		
		@SU_SEQPHASE2(2, "Disable DPU HIS HB monitor TC", *$sNumPha, "",  $sTitle)	
		@SU_SEND({ AB.TC.ZIA58064 , \
		PIA60452_ := 1 , \
		PIA60449_1 := "HISHEARTB_MI" }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 150)
		
		@SU_SEQPHASE2(2, "Power Down HIS for DPU disable HIS SpW", *$sNumPha, "",  $sTitle)	
		@SU_SEND({ AB.TC.ZIA58730 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 150)

		if ($TM = "YES")
			@su_anaacs("AB.TM.NIA00834",">=0","<=10", $sTrace, 10)
		endif
	
		@SU_SEQPHASE2(1, "De-restriction of necessary commands", *$sNumPha, "",  $sTitle)	
		SETGRAVITY "ZCS2Z09W","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09Y","NORM","TC","AB"

		SETGRAVITY "ZCS2Z09H","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09K","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09V","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09X","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09E","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09D","PROH","TC","AB"

		SETGRAVITY "ZCS2Z09H","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09K","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09V","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09X","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09E","NORM","TC","AB"
		SETGRAVITY "ZCS2Z09D","NORM","TC","AB"

		@SU_SEQPHASE2(2, "Powering off LCL HTR1", *$sNumPha, "",  $sTitle)	
		@SU_SEND({ AB.TC.ZCS2Z09W }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			
		@SU_SEQPHASE2(2, "Powering off LCL HTR2", *$sNumPha, "",  $sTitle)	
		@SU_SEND({ AB.TC.ZCS2Z09Y }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
		
		if ($TM = "YES")
			@SU_SEQPHASE2(2, "Checking LCL HTR1 is OFF", *$sNumPha, "",  $sTitle)	
			@su_digacs($s_his_a_sts,"=","OFF", $sTrace, 5)
			@su_anaacs($s_his_a_cur,">=-0.1","<=0.1", $sTrace, 5)  -- Need to establish expected limits
			
			@SU_SEQPHASE2(2, "Checking LCL HTR2 is OFF", *$sNumPha, "",  $sTitle)	
			@su_digacs($s_his_b_sts,"=","OFF", $sTrace, 5)
			@su_anaacs($s_his_a_cur,">=-0.1","<=0.1", $sTrace, 5)  -- Need to establish expected limits
		endif
		
		@su_SEQPHASE2(2, "Switching Relay box 1 output to OFF", *$sNumPha, "",  $sTitle)	

		@SU_SEND({ AB.TC.ZCS2Z09H}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)	--RIU SHP SWA_HIS_NominOFF change to avoid using generic command and in line with SRDB v4.610

		if ($TM = "YES")
			@su_digacs("AB.TM.NBCD0034","=","Off", $sTrace, 5)  -- Note NCR on TM inversion
		endif
	
		@su_SEQPHASE2(2, "Switching Relay box 2 output to OFF", *$sNumPha, "",  $sTitle)	

		@SU_SEND({ AB.TC.ZCS2Z09K}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)	--RIU SHP SWA_HIS_RedunOFF change to avoid using generic command and in line with SRDB v4.610

		if ($TM = "YES")
			@su_digacs("AB.TM.NBCD0046","=","Off", $sTrace, 5)  -- Note NCR on TM inversion
		endif
	
		@su_SEQPHASE2(2, "Resetting Relay box return relay 1 to Pos 1", *$sNumPha, "",  $sTitle)	

		@SU_SEND({ AB.TC.ZCS2Z09E}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)	--RIU SHP SWA_HIS_Ret2Pos1 change to avoid using generic command and in line with SRDB v4.610

		if ($TM = "YES")
			@su_digacs("AB.TM.NBCD0043","=","Pos 1", $sTrace, 5)  -- Note NCR on TM inversion
		endif
	
		@su_SEQPHASE2(2, "Resetting Relay box 1 return relay to Pos 2", *$sNumPha, "",  $sTitle)	

		@SU_SEND({ AB.TC.ZCS2Z09D}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)	--RIU SHP SWA_HIS_Ret1Pos2 change to avoid using generic command and in line with SRDB v4.610

--		if ($TM = "YES")
--			@su_digacs("AB.TM.NBCD0033","=","Pos 2", $sTrace, 5) -- Note NCR on TM inversion

--			@SU_CHOICE("Are decontamination heaters needed ON ?","YES|NO",*$sChoice)
			
--			if ($sChoice = "YES")
--				@SU_CHOICE("Which decontamination heaters A or B ?","A|B",*$sChoice)
--				if ($sChoice = "A")
--					ta_print "Switching On Nominal decontamination heater LCL"
--					@SU_SEND({ AB.TC.ZCS2Z09V }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
--				else
--					ta_print "Switching On Redundant decontamination heater LCL"
--					@SU_SEND({ AB.TC.ZCS2Z09X }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
--				endif
--			else
--				ta_print "Relay box LCLs remains OFF"
--			endif
--		endif
		
		@SU_SEQPHASE2(1, "Re-restriction of necessary commands", *$sNumPha, "",  $sTitle)	
		SETGRAVITY "ZCS2Z09W","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09Y","PROH","TC","AB"

		SETGRAVITY "ZCS2Z09H","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09K","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09V","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09X","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09E","PROH","TC","AB"
		SETGRAVITY "ZCS2Z09D","PROH","TC","AB"

		SETGRAVITY "ZCS2Z09H","DANG","TC","AB"
		SETGRAVITY "ZCS2Z09K","DANG","TC","AB"
		SETGRAVITY "ZCS2Z09V","DANG","TC","AB"
		SETGRAVITY "ZCS2Z09X","DANG","TC","AB"
		SETGRAVITY "ZCS2Z09E","DANG","TC","AB"
		SETGRAVITY "ZCS2Z09D","DANG","TC","AB"
	
end sequence