****************************************************************************************************
** LNG product:		ELISA source
****************************************************************************************************
** Type:               			Sequence 
**  
** FOP Name & Version: 			None 
**
** Description:                    	The following sequence performs the following steps :-
**								- Switch off SWA PAS
**					
**
** 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 1 Section 6.2
**
** Restrictions and Limitations: 	SSMM hardware required to be on before switch ON.
**								SWA PAS ON
**								SWA DPU to be On in OPS mode.     
**
****************************************************************************************************
**	History
**--------------------------------------------------------------------------------------------------
**	Version	Date			Author			Comment
**--------------------------------------------------------------------------------------------------
**	1.1		28/04/2018	J Silverthorn		Initial version
**	1.2		01/05/2018	E Boulet			Correct typo in title
**	1.3		01/05/2018	E.Boulet			update HV safety plug argument 
**	1.4		01/05/2018	E.Boulet			add catch of 1,7 for switch off TC 
**
***************************************************************************************************

** SEQUENCE TISS_PAS_OFF

SEQUENCE TISS_PAS_OFF
	** Definition of Input parameters
	proto
		string	$sPAS_HVSafety		["AIRSAFE","DISABLED","FLIGHT"] 
	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
	
	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
	int 			$i_reportflowID
	int			$i_RptRefNb
	
	main
		window
		
		@SU_SEQSTART("Switching SWA PAS OFF", *$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 PAS Off", *$sNumPha, "",  $sTitle)	
		
		@SU_SEQPHASE2(2, "Checking PAS is ON", *$sNumPha, "",  $sTitle)	
		@su_anaacs("AB.TM.NIA00835", ">=30","<=1000", $sTrace, 60)
		
		@SU_SEQPHASE2(2, "Put PAS into no science mode", *$sNumPha, "",  $sTitle)	
		@SU_SEND({ AB.TC.ZIA58944 }, $sTrace, VER := "ACK_EXEC", TIMEOUT_VER := 60)
		
		if ($sPAS_HVSafety = "AIRSAFE")
			
			@SU_SEQPHASE2(2, "Ramp PAS HV down", *$sNumPha, "",  $sTitle)	
			$i_reportflowID := startreportflow("AB.TM.YIA58012")	
			@SU_SEND({ AB.TC.ZIA58857 , \
			PIA60790_ := 0 , \
			PIA60791_ := 0xCCC , \
			PIA60792_ := 0x1FD , \
			PIA60793_ := 0x1E }, $sTrace, VER := "ACK", TIMEOUT_VER := 60)
			@su_wait(200)
			@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58012", *$i_RptRefNb)    							-- Check reception of SWA_DPU_OPS_STATE Report TM(5,1)
			stopreportflow $i_reportflowID 	
			
			@SU_SEQPHASE2(2, "Run PAS NORMAL OFF Macro", *$sNumPha, "",  $sTitle)
			$i_reportflowID := startreportflow("AB.TM.YIA58012")		
			@SU_SEND({ AB.TC.ZIA58859 }, $sTrace, VER := "ACK", TIMEOUT_VER := 60)
			@su_wait(180)
			@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58012", *$i_RptRefNb)    							-- Check reception of SWA_DPU_OPS_STATE Report TM(5,1)
			stopreportflow $i_reportflowID 		
		else -- DISABLE plug is fitted
			
			@SU_SEQPHASE2(2, "Run PAS OFF Macro", *$sNumPha, "",  $sTitle)	
			$i_reportflowID := startreportflow("AB.TM.YIA58012")
			@SU_SEND({ AB.TC.ZIA58855 }, $sTrace, VER := "ACK", TIMEOUT_VER := 60)
			@su_wait(180)
			@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58012", *$i_RptRefNb)    							-- Check reception of SWA_DPU_OPS_STATE Report TM(5,1)
			stopreportflow $i_reportflowID 
			
		endif
		
		@SU_SEQPHASE2(2, "Checking PAS is OFF", *$sNumPha, "",  $sTitle)	
		@su_anaacs("AB.TM.NIA00835", ">=0","<=30", $sTrace, 60)
		
end sequence