****************************************************************************************************
** LNG product:		ELISA source
****************************************************************************************************
** Type:               			Sequence 
**  
** FOP Name & Version: 			None 
**
** Description:                    	The following sequence performs the following steps :-
**								- Switch on SWA EAS
**					
**
** Input Arguments:				None
**								
**
** Output Values:					None
**
** CSW Version:					V2.1.3 or higher
** 
** FOPs used:						None 
**
** HK TM packets used:				AB.TM.YIA58452  AB.TM.YIA58211  AB.TM.YIA58440  AB.TM.YIA58446  AB.TM.YIA58902  
**								AB.TM.YIA58435  AB.TM.YIA58200  AB.TM.YIA58061  AB.TM.YIA58445  AB.TM.YIA58216
**
** Test Procedure & Reference:		SO-SWA-MSSL-TOP-059 Issue 1 Section 5.4
**
** Restrictions and Limitations: 	SSMM hardware required to be on before switch ON.
**								SWA DPU to be On in OPS mode.     
**
****************************************************************************************************
**	History
**--------------------------------------------------------------------------------------------------
**	Version	Date			Author			Comment
**--------------------------------------------------------------------------------------------------
**	1.1		26/04/2018	J Silverthorn		Initial version
**	1.2		30/04/2018	E Boulet			ACS-296, OBS 2: Update capture of packet YIA58201 and YIA58201 to HK capture
**	1.3		01/05/2018	E Boulet			Correct typo in header
**	1.4		01/05/2018	E Boulet			Correct typo in TM packets
**	1.5		01/05/2018	E Boulet			Correct typo in TM packets
**	1.6		01/05/2018	E Boulet			Correct typo in catch packets for EAS2
**	1.7-8	02/05/2018	J Silerthorn		Correct typo in catch packets for EAS1 and 2
**	1.9		31/07/2018	J Silverthorn		Checks added for HV AIRSAFE plug checks
**	1.10									Change to HV AIRSAFE check
**										Added check for NIA00909 and NIA10909
**	1.11									NIA00909 and NIA10909 are integer type not raw
**	1.12		02/08/2018	J Silverthorn		Checks implemented to ensure that the EAS HV is not operated without the AIRSAFE plug fitted.
**	1.13									HV checks added for EAS1 as well as EAS2
**	1.14		06/08/2018					Method for capturing "AB.TM.YIA58904" and "AB.TM.YIA58905 changed to print packet content as a string
**	1.15									Debug of packet capture for "AB.TM.YIA58904" and "AB.TM.YIA58905"
**	1.16									Added checks on "AB.TM.YIA58904" and "AB.TM.YIA58905"
**	1.17									Debug of checks on "AB.TM.YIA58904" and "AB.TM.YIA58905"
**	1.18									Debug of checks on "AB.TM.YIA58904" and "AB.TM.YIA58905"
**	1.19									Debug of checks on "AB.TM.YIA58904" and "AB.TM.YIA58905"
**	1.20		30/08/2018	J Silverthorn		Multiple HK packets requested from EAS 1 and 2 as part of NCR 1212 investigations
**	1.21									Temporary script added in EAS2 On script to switch OFF EAS1 and 2 after NCR 1212 investigations
**	1.22									Additional check of NIA00913 and NIA10913 for first recieved HK packet
**	1.23									Command for powering OFF EAS1 changed to ZIA58756
**	1.24		03/09/2018	E Boulet			Update sequence according to NCR-1212 (keep request of extra HK packet + add warning on NIA00913 and NIA10913) - the modification introduced have to be kept permanently
**	1.25		03/09/2018	E Boulet			typo in warning EAS1 and 2 were inverted. Now fixed
**	1.26		20/09/2018	J Silverthorn		EAS 1 and EAS 2 Off commands added in case of necessary switch off.
**	1.27		15/11/2018					Typos corrected i.a.w rids recived prior to first formal run.
**	1.28		29/11/2018	E Boulet			correct sequence wrongly updated in v1.27: ZIA58936 (EAS1) and ZIA58936 (EAS2) set to POST - ACS-EVT-137 Observation 20
**	1.29		06/12/2018	J Silverthorn		ACS SVT 140 OBS 38 - Limits for NIA00907, 915 and 916 changed.
**	1.30		08/12/2018					ACS SVT 140 OBS 38 - Further changes Limits for NIAx0907, 915 and 916 changed.
**	1.31		14/01/2019	G Lewis			EAS Heater On & Off TC added
**	1.32					J Silverthorn		EAS 2 heater commands replaced with correct commands
**	1.33		14/02/2019	D Cowan			Added the option to not check TM (for MIST)
**	1.34		13/03/2019	D Cowan			Removed HV HK checks when there is no TM as the packet cannot be routed to ground
**	1.36		20/03/2019	J Silverthorn		Removed more HK checks for ehen TM = NO
**	1.37		13/06/2019					Thermal checks changed i.a.w SO-SWA-MSSL-TP-059 Issue 4H
***************************************************************************************************

** SEQUENCE TISS_EAS_ON

SEQUENCE TISS_EAS_ON
** Definition of Input parameters
	proto
		string		$sUnit := "1" ["1", "2"]
		string		$TM    := "YES" upper ["YES","NO"]
	end proto

** Definition of Constants
	const
		string   		$sTitle  		:= "TITLE"  
		string		$sTrace 		:= "TRACE"

** Definition of Variables
	var
		string		$sBufArg := ""
		string		$sNumPha
		string		$sPlatform	
		date			$dCurDate
	
		int 			$Count
		int			$i
		int			$i_reportflowID
		int			$i_reportflowID_1
		int			$i_reportflowID_2
		int			$i_reportflowID_3
		int      		$i_RptRefNb
		int      		$i_RptRefNb_1
		int      		$i_RptRefNb_2
		int      		$i_RptRefNb_3
		real			$r_HV
		int			$i_HV2
		string		$s_TM_Pckt(10)
		string		$s_pkt1
		string		$s_pkt2
		string		$sChoice

		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_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

	main
		window

		@SU_SEQSTART("Switching ON SWA EAS-"+$sUnit, *$dCurDate, $sTrace, "") -- v1.27
		$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"
			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, 60) 
			@su_anaacs($s_lcl_b_cur,"NO","NO",$sTrace, 60) 
			
			if (($sRSA_A = "Off") and ($sRSA_B = "Off"))
				ta_print "Error SWA DPU is OFF - please check"
				Return "INIT_NOK"
			end if
			
			@su_digacs("AB.TM.NIAD0703","=","OPS", $sTrace, 5) 
		end if

		@SU_SEQPHASE2(1, "Switch EAS"+$sUnit+" ON", *$sNumPha, "",  $sTitle)	

		if ($sUnit = "1")
			@SU_SEQPHASE2(2, "Lower the HV value in the Hem table on EAS1", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58706 , \
				PIA60133_ := 1 , \
				PIA60136_1 := 0x1003 , \
				PIA60135_1 := 6 , \
				PIA60134_1_1 := 0xDE , \
				PIA60134_1_2 := 0xB8 , \
				PIA60134_1_3 := 0x51 , \
				PIA60134_1_4 := 0x02 , \
				PIA60134_1_5 := 0x9C , \
				PIA60134_1_6 := 0x80  }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			@SU_SEQPHASE2(2, "Accept the new values", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58708 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			@SU_SEQPHASE2(2, "Switch EAS1 on", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58760 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			@SU_SEQPHASE2(2, "Enable EAS1 HK", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58050 , \
			PIA58050_ := "EAS1_SENS_HK"}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)

			@SU_SEQPHASE2(2, "Run the Eas1 POST transition macro", *$sNumPha, "",  $sTitle)	
			$i_reportflowID := startreportflow("AB.TM.YIA58904")					
			@SU_SEND({ AB.TC.ZIA58934 , \
				PIA60739_ := "POST"}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60) -- v1.27
			@su_wait(2)

			if ($TM = "YES") --Can only check HV safety if TM is enabled
				@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58904", *$i_RptRefNb) 
			endif

			stopreportflow $i_reportflowID

			@SU_SEQPHASE2(2, "Run the EAS1 idle transition macro", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58753 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(30)

			if ($TM = "YES") --Can only check HV safety if TM is enabled

				@SU_SEQPHASE2(2, "Request EAS1 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58782 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(9)
				@su_anaacrs("AB.TM.NIA00909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				@su_ipvacrs("AB.TM.NIA00913","NO","NO", *$i_HV2, $sTrace, 5)
				-- Confirms HV is "AirSafe"
				if (($r_HV < 20.0) or ($r_HV > 40.0))
					DO
						@SU_CHOICE("Warning HV not disabled correctly - select OK to power off EAS1 now !","OK|NOK",*$sChoice)
						EXIT IF ($sChoice = "OK")
					END DO
					@SU_SEQPHASE2(2, "Switching EAS1 Off", *$sNumPha, "",  $sTitle)	
					@SU_SEND({ AB.TC.ZIA58756 , \
					SHF:OBV := 0 , \
					SID:OBV := 120}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
					RAISE NOK, "EAS1 Powered Off"
					abort
				endif
				
				if ($i_HV2 < 500)
					DO
						@SU_CHOICE("Warning HV not disabled correctly - select OK to power off EAS1 now !","OK|NOK",*$sChoice)
						EXIT IF ($sChoice = "OK")
					END DO
					@SU_SEQPHASE2(2, "Switching EAS1 Off", *$sNumPha, "",  $sTitle)	
					@SU_SEND({ AB.TC.ZIA58756 , \
					SHF:OBV := 0 , \
					SID:OBV := 120}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
					RAISE NOK, "EAS1 Powered Off"
					abort
				endif	
				
				@SU_SEQPHASE2(2, "Request EAS1 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58782 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(9)
				@su_anaacrs("AB.TM.NIA00909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				
				@SU_SEQPHASE2(2, "Request EAS1 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58782 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(9)
				@su_anaacrs("AB.TM.NIA00909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				
				@SU_SEQPHASE2(2, "Request EAS1 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58782 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(9)
				@su_anaacrs("AB.TM.NIA00909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				
				@SU_SEQPHASE2(2, "Request EAS1 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58782 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(9)
				@su_anaacrs("AB.TM.NIA00909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				
				@SU_SEQPHASE2(2, "Request EAS1 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58782 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(9)
				@su_anaacrs("AB.TM.NIA00909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				
				
				@SU_SEQPHASE2(2, "Request EAS1 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58782 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				--			@su_wait(9)
				
				@RPZA_HKTM_CATCH("AB.TM.YIA58201", "WAIT" , *$Count , 90)
				@su_anaacs("AB.TM.NIA00903",">=2.5","<=4.0", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA00905",">=1.0","<=2.0", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA00907",">=280","<=310", $sTrace, 5)	-- v1.37
				@su_anaacs("AB.TM.NIA00910",">=0","<=1", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA00911",">=0","<=1", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA00912",">=2","<=10", $sTrace, 5)	
				@su_ipvacs("AB.TM.NIA00913",">=500","NO", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA00914",">=25","<=30", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA00915",">=280","<=310", $sTrace, 5)	-- v1.37
				@su_anaacs("AB.TM.NIA00916",">=280","<=310", $sTrace, 5)	-- v1.37
				
				@su_anaacrs("AB.TM.NIA00909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				if (($r_HV < 20.0) or ($r_HV > 40.0))
					DO
						@SU_CHOICE("Warning HV not disabled correctly - select OK to power off EAS1 now !","OK|NOK",*$sChoice)
						EXIT IF ($sChoice = "OK")
					END DO
					@SU_SEQPHASE2(2, "Switching EAS1 Off", *$sNumPha, "",  $sTitle)	
					@SU_SEND({ AB.TC.ZIA58756 , \
					SHF:OBV := 0 , \
					SID:OBV := 120}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
					RAISE NOK, "EAS1 Powered Off"
					abort
				endif
				
			end if
			
			

			@SU_SEQPHASE2(2, "Run the EAS1 run transition macro", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58758 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(20)

			if ($TM = "YES")
				@SU_SEQPHASE2(2, "Request EAS1 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58782 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@RPZA_HKTM_CATCH("AB.TM.YIA58201", "WAIT" , *$Count , 90) 
				@su_anaacs("AB.TM.NIA00910",">=0","<=15", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA00911",">=-10","<=0", $sTrace, 5)	

				@SU_SEQPHASE2(2, "Check the HV Max is low", *$sNumPha, "",  $sTitle)	
				StartOCDSFlow "AB.TM.YIA58904",10	
				--			$i_reportflowID := startreportflow("AB.TM.YIA58904")
				@SU_SEND({ AB.TC.ZIA58785 , \
				PIA58061_ := "CmdReadHemHigVol"}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(2)
				
				$s_TM_Pckt := GETOCDSFROMFLOW("AB.TM.YIA58904", 120,"TEXT") -- returns values of first OCDS received in this flow
				for $i := 0 to 7
					ta_print $s_TM_Pckt($i)
				endfor
				
				$s_pkt1 := (extract($s_TM_Pckt(7), 19, 5))
				$s_pkt2 := (extract($s_TM_Pckt(7), 25, 5))
				if ($s_pkt1 <> "00 02")
					ta_print "AB.TM.YIA58904.NIA01503[1] is not as expected 0x0002"
					halt
				end if
				if ($s_pkt2 <> "9C 80")
					ta_print "AB.TM.YIA58904.NIA01503[2] is not as expected 0x9C80"
					halt
				end if
				
				stopOCDSflow "AB.TM.YIA58904"

			endif
			
			@SU_SEQPHASE2(2, "Set the master control register for manual heater on EAS1", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58776 , \
				PIA60423_ := 0 , \
				PIA60424_ := 0x40 , \
				PIA60425_ := 0x60 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			
			if ($sPlatform = "FM")
			    	@SU_SEQPHASE2(2, "Turn the manual heater on for EAS1 FM", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58757 , \
					PIA60773_ := 0 , \
					PIA60774_ := 0x01 , \
					PIA60775_ := 0x60 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)		 

			else --  ($sPlatform = 'ETB')
			    	@SU_SEQPHASE2(2, "Turn the manual heater on for EAS1 EM", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58757 , \
					PIA60773_ := 0 , \
					PIA60774_ := 0x00 , \
					PIA60775_ := 0xC0 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)		 
			endif	
			
			@su_wait(60)
			
			if ($TM = "YES")
				@SU_SEQPHASE2(2, "Check the EAS1 current in the DPU HK and the EAS1 temp in the EAS1 HK", *$sNumPha, "",  $sTitle)	
				@RPZA_HKTM_CATCH("AB.TM.YIA58200", "WAIT" , *$Count , 90)
				@su_anaacs("AB.TM.NIA00832","NO","NO", $sTrace, 5)	-- v1.30
				
				@RPZA_HKTM_CATCH("AB.TM.YIA58201", "WAIT" , *$Count , 90)
				@su_anaacs("AB.TM.NIA00907","NO","NO", $sTrace, 5)	-- v1.30
			end if
			
			@SU_SEQPHASE2(2, "Turn the manual heater OFF for EAS1", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58757 , \
				PIA60773_ := 0 , \
				PIA60774_ := 0x0 , \
				PIA60775_ := 0x0 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)

		endif

		if ($sUnit = "2")
			@SU_SEQPHASE2(2, "Lower the HV value in the Hem table on EAS2", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58706 , \
				PIA60133_ := 1 , \
				PIA60136_1 := 0x2003 , \
				PIA60135_1 := 6 , \
				PIA60134_1_1 := 0xDE , \
				PIA60134_1_2 := 0xB8 , \
				PIA60134_1_3 := 0x51 , \
				PIA60134_1_4 := 0x02 , \
				PIA60134_1_5 := 0x9C , \
				PIA60134_1_6 := 0x80  }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			@SU_SEQPHASE2(2, "Accept the new values", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58708 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			@SU_SEQPHASE2(2, "Switch EAS2 on", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58808 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			@SU_SEQPHASE2(2, "Enable EAS2 HK", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58050 , \
			PIA58050_ := "EAS2_SENS_HK"}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)

			@SU_SEQPHASE2(2, "Run the Eas2 POST transition macro", *$sNumPha, "",  $sTitle)	
			$i_reportflowID := startreportflow("AB.TM.YIA58905")
			@SU_SEND({ AB.TC.ZIA58936 , \
				PIA60740_ := "POST"}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60) -- v1.27
			@su_wait(2)

			if ($TM = "YES") --Can only check HV safety if TM is enabled
				@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58905", *$i_RptRefNb) 
			endif

			stopreportflow $i_reportflowID

			@SU_SEQPHASE2(2, "Run the EAS2 idle transition macro", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58801 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(30)

			if ($TM = "YES")
				
				@SU_SEQPHASE2(2, "Request EAS2 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58830 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(9)
				@su_anaacrs("AB.TM.NIA10909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				@su_ipvacrs("AB.TM.NIA10913","NO","NO", *$i_HV2, $sTrace, 5)	
				
				if (($r_HV < 20.0) or ($r_HV > 40.0))
					DO
						@SU_CHOICE("Warning HV not disabled correctly - select OK to power off EAS2 now !","OK|NOK",*$sChoice)
						EXIT IF ($sChoice = "OK")
					END DO
					@SU_SEQPHASE2(2, "Switching EAS2 Off", *$sNumPha, "",  $sTitle)	
					@SU_SEND({ AB.TC.ZIA58804 , \
					SHF:OBV := 0 , \
					SID:OBV := 120}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
					RAISE NOK, "EAS2 Powered Off"
					abort
				endif
				
				if ($i_HV2 < 500)
					DO
						@SU_CHOICE("Warning HV not disabled correctly - select OK to power off EAS2 now !","OK|NOK",*$sChoice)
						EXIT IF ($sChoice = "OK")
					END DO
					@SU_SEQPHASE2(2, "Switching EAS2 Off", *$sNumPha, "",  $sTitle)	
					@SU_SEND({ AB.TC.ZIA58804 , \
					SHF:OBV := 0 , \
					SID:OBV := 120}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
					RAISE NOK, "EAS2 Powered Off"
					abort
				endif	
				
				@SU_SEQPHASE2(2, "Request EAS2 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58830 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(9)
				@su_anaacrs("AB.TM.NIA10909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				
				@SU_SEQPHASE2(2, "Request EAS2 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58830 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(9)
				@su_anaacrs("AB.TM.NIA10909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				
				@SU_SEQPHASE2(2, "Request EAS2 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58830 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(9)
				@su_anaacrs("AB.TM.NIA10909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				
				@SU_SEQPHASE2(2, "Request EAS2 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58830 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(9)
				@su_anaacrs("AB.TM.NIA10909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				
				@SU_SEQPHASE2(2, "Request EAS2 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58830 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(9)
				@su_anaacrs("AB.TM.NIA10909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				
				@SU_SEQPHASE2(2, "Request EAS2 HK packet", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58830 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				--			@su_wait(9)
				
				
				@RPZA_HKTM_CATCH("AB.TM.YIA58202", "WAIT" , *$Count , 90)
				@su_anaacs("AB.TM.NIA10903",">=2.5","<=4.0", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA10905",">=1.0","<=2.0", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA10907",">=280","<=310", $sTrace, 5)	-- v1.37
				@su_anaacs("AB.TM.NIA10910",">=0","<=1", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA10911",">=0","<=1", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA10912",">=2","<=10", $sTrace, 5)	
				@su_ipvacs("AB.TM.NIA10913",">=500","NO", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA10914",">=25","<=30", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA10915",">=280","<=310", $sTrace, 5)	-- v1.37
				@su_anaacs("AB.TM.NIA10916",">=280","<=310", $sTrace, 5)	-- v1.37
				
				@su_anaacrs("AB.TM.NIA10909","NO","NO", *$r_HV, $sTrace, 5)	-- Confirms HV is "AirSafe"
				
				if (($r_HV < 20.0) or ($r_HV > 40.0))
					DO
						@SU_CHOICE("Warning HV not disabled correctly - select OK to power off EAS2 now !","OK|NOK",*$sChoice)
						EXIT IF ($sChoice = "OK")
					END DO
					@SU_SEQPHASE2(2, "Switching EAS2 Off", *$sNumPha, "",  $sTitle)	
					@SU_SEND({ AB.TC.ZIA58804 , \
					SHF:OBV := 0 , \
					SID:OBV := 120}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
					RAISE NOK, "EAS2 Powered Off"
					abort
				endif
				
			end if

			@SU_SEQPHASE2(2, "Run the EAS2 run transition macro", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58806 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(20)		

			if ($TM = "YES")
				@RPZA_HKTM_CATCH("AB.TM.YIA58202", "WAIT" , *$Count , 90)   
				@su_anaacs("AB.TM.NIA10910",">=0","<=15", $sTrace, 5)	
				@su_anaacs("AB.TM.NIA10911",">=-10","<=0", $sTrace, 5)	

				@SU_SEQPHASE2(2, "Check the HV Max is low", *$sNumPha, "",  $sTitle)	
				StartOCDSFlow "AB.TM.YIA58905",10	
				@SU_SEND({ AB.TC.ZIA58833 , \
				PIA58061_ := "CmdReadHemHigVol"}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
				@su_wait(2)
				
				$s_TM_Pckt := GETOCDSFROMFLOW("AB.TM.YIA58905", 120,"TEXT") -- returns values of first OCDS received in this flow
				for $i := 0 to 7
					ta_print $s_TM_Pckt($i)
				endfor
				
				$s_pkt1 := (extract($s_TM_Pckt(7), 19, 5))
				$s_pkt2 := (extract($s_TM_Pckt(7), 25, 5))
				if ($s_pkt1 <> "00 02")
					ta_print "AB.TM.YIA58905.NIA01503[1] is not as expected 0x0002"
					halt
				end if
				if ($s_pkt2 <> "9C 80")
					ta_print "AB.TM.YIA58905.NIA01503[2] is not as expected 0x9C80"
					halt
				end if
				
				stopOCDSflow "AB.TM.YIA58905"
			end if		

			@SU_SEQPHASE2(2, "Set the master control register for manual heater on EAS2", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58824 , \
				PIA60423_ := 0 , \
				PIA60424_ := 0x40 , \
				PIA60425_ := 0x60 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			
			if ($sPlatform = "FM")
			    	@SU_SEQPHASE2(2, "Turn the manual heater on for EAS2 FM", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58805 , \
					PIA60773_ := 0 , \
					PIA60774_ := 0x01 , \
					PIA60775_ := 0x60 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)		 
				
			else -- ($sPlatform = 'ETB')
			    	@SU_SEQPHASE2(2, "Turn the manual heater on for EAS2 EM", *$sNumPha, "",  $sTitle)	
				@SU_SEND({ AB.TC.ZIA58805 , \
					PIA60773_ := 0 , \
					PIA60774_ := 0x00 , \
					PIA60775_ := 0xC0 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)		 
			endif	
			
			@su_wait(60)
			
			if ($TM = "YES")
				@SU_SEQPHASE2(2, "Check the EAS2 current in the DPU HK and the EAS2 temp in the EAS2 HK", *$sNumPha, "",  $sTitle)	
				@RPZA_HKTM_CATCH("AB.TM.YIA58200", "WAIT" , *$Count , 90)
				@su_anaacs("AB.TM.NIA00832","NO","NO", $sTrace, 5)	-- v1.30
				
				@RPZA_HKTM_CATCH("AB.TM.YIA58201", "WAIT" , *$Count , 90)
				@su_anaacs("AB.TM.NIA00907","NO","NO", $sTrace, 5)	-- v1.30
			end if			

			@SU_SEQPHASE2(2, "Turn the manual heater OFF for EAS2", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58805 , \
				PIA60773_ := 0 , \
				PIA60774_ := 0x0 , \
				PIA60775_ := 0x0 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)

		endif

			

end sequence