****************************************************************************************************
** LNG product   : ELISA source
****************************************************************************************************
** Type:                            Test Sequence
**
** Description:                     Test sequence used to start and stop normal mode for HIS (extracted from SFT section 8.1)
**
** Input Arguments:			    sModeTrans :  Define the transition mode to be executed
** 
** 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.2		17/05/2018	E. Boulet			Initial creation.
****************************************************************************************************  
sequence TISS_HIS_MOD_MNG
	
	-- Define entry arguments
	PROTO
		string $sModeTrans ["STBY2NORMAL","NORMAL2STBY"]      -- Choose which mode transition shall be performed
	END PROTO	
	
	-- Define variables	
	VAR
	date $dCurDate
	
	-- Main sequence
	MAIN
		WINDOW
		@su_seqstart("Start TISS_HIS_MOD_MNG", *$dCurDate, "TRACE")		
		
		--Mode transition extracted from SFT section 8.1
		
		SWITCH $sModeTrans
			Case "STBY2NORMAL"
				@HIS_STBY2NORMAL()
				
				--
			Case "NORMAL2STBY"				
				@HIS_NORMAL2STBY()
				
			default
		ENDSWITCH
		
		@SU_SEQEND("END OF SEQUENCE TISS_HIS_MOD_MNG", $dCurDate)
		
END SEQUENCE

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

*****************************************
**ROUTINE HIS_STBY2NORMAL
**Routine to switch HIS mode the Normal (generate science data)
*****************************************
ROUTINE HIS_STBY2NORMAL
	
	--Define constant
	CONST
	string $s_Trace := "TRACE"
	
	-- Define variables	
	VAR
	date $dCurDate
	int $i_reportFlowID
	int $i_RptRefNb	
	
	MAIN	
		
		TA_PRINT "Put HIS into normal mode"
		
		--; Put HIS into science mode 
		--TC, ZIA58917, PIA59011, EQUAL, NORMAL_SCI
		
		$i_reportflowID := startreportflow("AB.TM.YIA58602")
		
		--TC, ZIA58917, PIA59011, EQUAL, NORMAL_SCI
		@su_send({ AB.TC.ZIA58917 , \
		SHF:OBV := 0 , \
		SID:OBV := 120 , \
		PIA59011_ := "NORMAL_SCI"}, $s_Trace)	
		
		--; Reception of:
		--TM,YIA58602 ; (5,1) SID=43802 SWA_E_HIS_MODE_CHANGE 
		@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58602", *$i_RptRefNb)
		stopreportflow $i_reportflowID
		
ENDROUTINE

*****************************************
**ROUTINE HIS_STBY2NORMAL
**Routine to switch HIS mode the Normal (generate science data)
*****************************************
ROUTINE HIS_NORMAL2STBY
	
	--Define constant
	CONST
	string $s_Trace := "TRACE"
	
	-- Define variables	
	VAR
	date $dCurDate
	int $i_reportFlowID
	int $i_RptRefNb	
	
	MAIN
		
		TA_PRINT "Put HIS into standby mode"
		
		$i_reportflowID := startreportflow("AB.TM.YIA58602")
		
		--; Put HIS into standby mode 
		--TC, ZIA58917, PIA59011, EQUAL, HVSTDBY
		@su_send({ AB.TC.ZIA58917 , \
		SHF:OBV := 0 , \
		SID:OBV := 120 , \
		PIA59011_ := "HVSTDBY"}, $s_Trace)
		
		--; Reception of:
		--TM,YIA58602 ; (5,1) SID=43802 SWA_E_HIS_MODE_CHANGE 
		@RPZA_CATCHTMPCKT($i_reportFlowID, "AB.TM.YIA58602", *$i_RptRefNb)
		stopreportflow $i_reportflowID
		
ENDROUTINE