****************************************************************************************************
** 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"
***************************************************************************************************

** SEQUENCE TISS_EAS_ON

SEQUENCE TISS_EAS_ON
** Definition of Input parameters
	proto
		string		$sUnit := "1" ["1", "2"]
	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
		string		$s_TM_Pckt(10)
		string		$s_pkt1
		string		$s_pkt2

		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 PAS", *$dCurDate, $sTrace, "")
		$sPlatform := AB.USR.PLATFORM

		@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) 

		@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 idle transition macro", *$sNumPha, "",  $sTitle)	
			$i_reportflowID := startreportflow("AB.TM.YIA58904")					
			@SU_SEND({ AB.TC.ZIA58934 , \
				PIA60739_ := "POST"}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)

			@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58904", *$i_RptRefNb) 
			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)

										-- Start Report Flow for Connection Test Report TM(17,2)  
			@SU_SEQPHASE2(2, "Request EAS1 HK packet", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58782 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
			
			@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)	
			@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)	
			@su_anaacs("AB.TM.NIA00916",">=280","<=310", $sTrace, 5)	

			@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))
				ta_print "Warning HV not disabled correctly - power off EAS now !"
				abort
			endif

			@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)

			@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


--			@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58904", *$i_RptRefNb)
			--@SU_RAWRC($i_RptRefNb,"AB.TM.YIA58904.NIA01501[0].NIA01503","=",0x0002,0xFFFF)						-- EVENT_ID Reception of TM(5,1)
			--@SU_RAWRC($i_RptRefNb,"AB.TM.YIA58904.NIA01501[1].NIA01503","=",0x9C80,0xFFFF)						-- EVENT_ID Reception of TM(5,1)

--			@SU_RAWRC($i_RptRefNb,"AB.TM.YIA58904.NIA01501","NO",0x9C80,0xFFFF)	
--			@SU_RAWRC($i_RptRefNb,"AB.TM.YIA58904.NIA01502","NO",0x9C80,0xFFFF)	

--			@SU_RAWRC($i_RptRefNb,"AB.TM.YIA58904.NIA01503[1]","=",0x0002,0xFFFF)								-- EVENT_ID Reception of TM(5,1)
--			@SU_RAWRC($i_RptRefNb,"AB.TM.YIA58904.NIA01503[2]","=",0x9C80,0xFFFF)								-- EVENT_ID Reception of TM(5,1)

			stopOCDSflow "AB.TM.YIA58904"
		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 idle transition macro", *$sNumPha, "",  $sTitle)	
			$i_reportflowID := startreportflow("AB.TM.YIA58905")
			@SU_SEND({ AB.TC.ZIA58936 , \
				PIA60740_ := "POST"}, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)

			@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58905", *$i_RptRefNb) 
			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)

			@SU_SEQPHASE2(2, "Request EAS2 HK packet", *$sNumPha, "",  $sTitle)	
			@SU_SEND({ AB.TC.ZIA58830 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
			@su_wait(2)
		
			@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)	
			@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)	
			@su_anaacs("AB.TM.NIA10916",">=280","<=310", $sTrace, 5)

			@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))
				ta_print "Warning HV not disabled correctly - power off EAS now !"
				abort
			endif

			@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)		

			@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


--			@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58905", *$i_RptRefNb)    			
			--@SU_RAWRC($i_RptRefNb,"AB.TM.YIA58905.NIA01501[0].NIA01503","=",0x0002,0xFFFF)						-- EVENT_ID Reception of TM(5,1)
			--@SU_RAWRC($i_RptRefNb,"AB.TM.YIA58905.NIA01501[1].NIA01503","=",0x9C80,0xFFFF)						-- EVENT_ID Reception of TM(5,1)
--			@SU_RAWRC($i_RptRefNb,"AB.TM.YIA58905.NIA01501","NO",0x9C80,0xFFFF)	
--			@SU_RAWRC($i_RptRefNb,"AB.TM.YIA58905.NIA01502","NO",0x9C80,0xFFFF)	

--			@SU_RAWRC($i_RptRefNb,"AB.TM.YIA58905.NIA01503[1]","=",0x0002,0xFFFF)								-- EVENT_ID Reception of TM(5,1)
--			@SU_RAWRC($i_RptRefNb,"AB.TM.YIA58905.NIA01503[2]","=",0x9C80,0xFFFF)								-- EVENT_ID Reception of TM(5,1)

			stopOCDSflow "AB.TM.YIA58905"
		endif

			

end sequence