****************************************************************************************************
** LNG product   : ELISA source
****************************************************************************************************
** Type:                            Test Sequence
**
** Description:                     Test sequence used to start and stop normal mode for EAS (extracted from SFT section 8.3 and 8.4)
**
** Input Arguments:			    sModeTrans :  Define the transition mode to be executed
**                                  sUnit : select EAS1 or EAS2
** 
** Output Values:                   None                
**
** CSW Version:                     Version 2.1.3
**
** FOPs used (name & version):      N/A
**
** TM Packets Used:                 N/A
**
** Test Spec & Reference:           None
**
** Restrictions and Limitations:    N/A
**
****************************************************************************************************
** History
**--------------------------------------------------------------------------------------------------
** Version   Date         Author            Comment
**--------------------------------------------------------------------------------------------------
** 1.1		03/05/2018	E. Boulet			Initial creation.
** 1.2		14/02/2019	J Silverthorn		Added proto $TM
****************************************************************************************************  
sequence TISS_EAS_MOD_MNG
	
	-- Define entry arguments
	PROTO
		string $sUnit 		["EAS1","EAS2"]	--Select if EAS1 or EAS2
		string $sModeTrans 	["STBY2NORMAL","NORMAL2STBY"]      -- Choose which mode transition shall be performed
		string $TM := "YES"	["YES", "NO"]
	END PROTO	
	
	-- Define variables	
	VAR
	date $dCurDate
	
	-- Main sequence
	MAIN
		WINDOW
		@su_seqstart("Start TISS_EAS_MOD_MNG", *$dCurDate, "TRACE")		
		
		--Mode transition extracted from SFT section 8.1
		
		SWITCH $sUnit
			Case "EAS1"
				SWITCH $sModeTrans
					Case "STBY2NORMAL"
						@EAS1_STBY2NORMAL($TM)
						
						--
					Case "NORMAL2STBY"				
						@EAS1_NORMAL2STBY()
						
					default
				ENDSWITCH
				--		
			Case "EAS2"
				SWITCH $sModeTrans
					Case "STBY2NORMAL"
						@EAS2_STBY2NORMAL($TM)
						
						--
					Case "NORMAL2STBY"				
						@EAS2_NORMAL2STBY()
						
					default
				ENDSWITCH
			default
		ENDSWITCH
		
		@SU_SEQEND("END OF SEQUENCE TISS_EAS_MOD_MNG", $dCurDate)
		
END SEQUENCE

******************************************
**************ROUTINES
******************************************

*****************************************
**ROUTINE EAS1_STBY2NORMAL
**Routine to switch EAS1 mode the Normal (generate science data)
*****************************************
ROUTINE EAS1_STBY2NORMAL
	
	proto
		string $TM
	end proto

	--Define constant
	CONST
	string $s_Trace := "TRACE"
	
	-- Define variables	
	VAR
	date $dCurDate
	int $i_reportFlowID
	int $i_reportflowID_1
	int $i_reportflowID_2
	int $i_reportflowID_3
	int $i_RptRefNb	
	
	MAIN	
		
		TA_PRINT "Put EAS1 into normal mode"
		
		$i_reportflowID := startreportflow("AB.TM.YIA58727")
		$i_reportflowID_1 := startreportflow("AB.TM.YIA58703")
		$i_reportflowID_2 := startreportflow("AB.TM.YIA58704")
		$i_reportflowID_3 := startreportflow("AB.TM.YIA58713")
		
		--Start Normal Mode on EAS1
		--TC,ZIA58771,PIA60031,EQUAL, MBOX1
		--TC,,PIA60446,EQUAL, 0
		--TC,,PIA60447,EQUAL, 0
		--TC,,PIA60448,EQUAL, 0xC2
		@su_send({ AB.TC.ZIA58771 , \
		SHF:OBV := 0 , \
		SID:OBV := 120 , \
		PIA60031_ := "MBOX1" , \
		PIA60446_ := 0 , \
		PIA60447_ := 0 , \
		PIA60448_ := 0xC2}, $s_Trace)
		
		if ($TM = "YES")
			--; Reception of 
			--TM,YIA58727; TM(21,3) SSID=20 SWA_TM_SCI_EAS_PARTIAL_MOMENTS_RAW_DATA 
			--TM,YIA58703 ; TM(21,3) SSID=0 SWA_TM_SCI_EAS1_FULL3D_RAW_HEAD 
			--TM,YIA58704 ; TM(21,6) SSID=1 SWA_TM_SCI_EAS1_FULL3D_RAW_DATA
			--TM,YIA58713 ; TM(21,6) SSID=9 SWA_TM_SCI_EAS1_STRAHL_RAW_DATA 
			@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58727", *$i_RptRefNb)
			@RPZA_CATCHTMPCKT($i_reportFlowID_1, "AB.TM.YIA58703", *$i_RptRefNb)
			@RPZA_CATCHTMPCKT($i_reportFlowID_2, "AB.TM.YIA58704", *$i_RptRefNb)
			@RPZA_CATCHTMPCKT($i_reportFlowID_3, "AB.TM.YIA58713", *$i_RptRefNb)
		endif

		stopreportflow $i_reportflowID
		stopreportflow $i_reportflowID_1
		stopreportflow $i_reportflowID_2
		stopreportflow $i_reportflowID_3
		
ENDROUTINE

*****************************************
**ROUTINE EAS1_NORMAL2STBY
**Routine to switch EAS1 mode the Stnadby (no science data)
*****************************************
ROUTINE EAS1_NORMAL2STBY
	
	--Define constant
	CONST
	string $s_Trace := "TRACE"
	
	-- Define variables	
	VAR
	date $dCurDate
	int $i_reportFlowID
	int $i_reportflowID_1
	int $i_reportflowID_2
	int $i_reportflowID_3
	int $i_RptRefNb	
	
	MAIN
		
		TA_PRINT "Put EAS1 into standby mode"		
		
		--; Stop normal mode on EAS1 
		--TC, ZIA58771, PIA60031, EQUAL, MBOX1
		--TC,, PIA60446, EQUAL, 0
		--TC,, PIA60447, EQUAL, 0
		--TC,, PIA60448, EQUAL, 0
		@su_send({ AB.TC.ZIA58771 , \
		SHF:OBV := 0 , \
		SID:OBV := 120 , \
		PIA60031_ := "MBOX1" , \
		PIA60446_ := 0 , \
		PIA60447_ := 0 , \
		PIA60448_ := 0}, $s_Trace)
		
ENDROUTINE


*****************************************
**ROUTINE EAS2_STBY2NORMAL
**Routine to switch EAS2 mode the Normal (generate science data)
*****************************************
ROUTINE EAS2_STBY2NORMAL
	
	proto
		string $TM
	end proto

	--Define constant
	CONST
	string $s_Trace := "TRACE"
	
	-- Define variables	
	VAR
	date $dCurDate
	int $i_reportFlowID
	int $i_reportflowID_1
	int $i_reportflowID_2
	int $i_reportflowID_3
	int $i_RptRefNb	
	
	MAIN	
		
		TA_PRINT "Start Normal Mode on EAS2"
		
		$i_reportflowID := startreportflow("AB.TM.YIA58727")
		$i_reportflowID_1 := startreportflow("AB.TM.YIA58701")
		$i_reportflowID_2 := startreportflow("AB.TM.YIA58702")
		$i_reportflowID_3 := startreportflow("AB.TM.YIA58711")
		
		--; Start normal mode on EAS2 
		--TC, ZIA58819, PIA60031, EQUAL, MBOX1
		--TC,, PIA60446, EQUAL, 0
		--TC,, PIA60447, EQUAL, 0
		--TC,, PIA60448, EQUAL, 0xC2
		@su_send({ AB.TC.ZIA58819 , \
		SHF:OBV := 0 , \
		SID:OBV := 120 , \
		PIA60031_ := "MBOX1" , \
		PIA60446_ := 0 , \
		PIA60447_ := 0 , \
		PIA60448_ := 0xC2}, $s_Trace)
		
		if ($TM = "YES")
			--; Reception of
			--TM,YIA58727; TM(21,3) SSID=20 SWA_TM_SCI_EAS_PARTIAL_MOMENTS_RAW_DATA 
			--TM,YIA58701 ; TM(21,3) SSID=30 SWA_TM_SCI_EAS2_FULL3D_RAW_HEAD 
			--TM,YIA58702 ; TM(21,6) SSID=31 SWA_TM_SCI_EAS2_FULL3D_RAW_DATA
			--TM,YIA58711 ; TM(21,6) SSID=39 SWA_TM_SCI_EAS2_STRAHL_RAW_DATA 
			@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58727", *$i_RptRefNb)
			@RPZA_CATCHTMPCKT($i_reportFlowID_1, "AB.TM.YIA58701", *$i_RptRefNb)
			@RPZA_CATCHTMPCKT($i_reportFlowID_2, "AB.TM.YIA58702", *$i_RptRefNb)
			@RPZA_CATCHTMPCKT($i_reportFlowID_3, "AB.TM.YIA58711", *$i_RptRefNb)
		endif

		stopreportflow $i_reportflowID
		stopreportflow $i_reportflowID_1
		stopreportflow $i_reportflowID_2
		stopreportflow $i_reportflowID_3
		
ENDROUTINE

*****************************************
**ROUTINE EAS2_NORMAL2STBY
**Routine to switch EAS2 mode the Standby (no science data)
*****************************************
ROUTINE EAS2_NORMAL2STBY
	
	--Define constant
	CONST
	string $s_Trace := "TRACE"
	
	-- Define variables	
	VAR
	date $dCurDate
	int $i_reportFlowID
	int $i_reportflowID_1
	int $i_reportflowID_2
	int $i_reportflowID_3
	int $i_RptRefNb	
	
	MAIN
		
		TA_PRINT "Put EAS2 into standby mode"	
		
		--; Stop normal mode on EAS2 
		--TC, ZIA58819, PIA60031, EQUAL, MBOX1
		--TC,, PIA60446, EQUAL, 0
		--TC,, PIA60447, EQUAL, 0
		--TC,, PIA60448, EQUAL, 0
		@su_send({ AB.TC.ZIA58819 , \
		SHF:OBV := 0 , \
		SID:OBV := 120 , \
		PIA60031_ := "MBOX1" , \
		PIA60446_ := 0 , \
		PIA60447_ := 0 , \
		PIA60448_ := 0}, $s_Trace)
		
ENDROUTINE