Obsidean_VM/04-SIDEL/00 - MASTER/Source/source/ProductPipeRunOut_Seq.md

// Block Type: FC
// Block Number: 1825
// Original Network Languages: LAD, STL

FUNCTION "ProductPipeRunOut_Seq" : Void
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1

VAR_INPUT
  mProdPipeRunOutHalted : Bool;
  mProdPushDone : Bool;
END_VAR

VAR_INOUT
  mStep : Int;
  mTime : Int;
  mTransition : Bool;
END_VAR

VAR_TEMP
  mProdTankMinLevel : Bool;
  PresetTimer : Int;
  __PlcmigTempFillBits_4B0 : Array[0..7] of Bool;
END_VAR

BEGIN

  // Network 1: STEP CONTROL (Original Language: STL)

  // --- BEGIN STL Network 1 ---
   
     	L	"mStep"
     	JL	LEND
     	JU	ST00
     	JU	ST01
     	JU	ST02
     	JU	ST03
     LEND:   		JU	FULL
     FULL:   		L	0
     	T	"mStep"
     	JU	END
   
  // --- END STL Network 1 ---

  // Network 2: STEP 00 (Original Language: LAD)

  IF "System_RunOut_Variables"."ProdPipe_RunOut"."Wait" AND "HMI_Digital"."LSN301L"."Filtered" AND ("System_RunOut_Variables"."RMM301_OV_ProdPipeRunOut" > 0.0) THEN
    "gSP_PPN301" := TRUE;
  END_IF;

  // Network 3: STEP 00 (Original Language: LAD)

  IF "System_RunOut_Variables"."ProdPipe_RunOut"."Wait" AND "gIN_SyrTank_MinLvl" AND ("System_RunOut_Variables"."RMP302_OV_ProdPipeRunOut" > 0.0) THEN
    "gSP_PPP302" := TRUE;
  END_IF;

  IF "System_RunOut_Variables"."ProdPipe_RunOut"."Wait" AND "gIN_SyrTank_MinLvl" AND ("System_RunOut_Variables"."RMP302_OV_ProdPipeRunOut" > 0.0) THEN
    "gSP_AVP390" := TRUE;
  END_IF;

  // Network 4: STEP 00 (Original Language: LAD)

  IF "System_RunOut_Variables"."ProdPipeRunOutWaterCount" AND "System_RunOut_Variables"."ProdPipeRunOutFillerBott" THEN
    "gSP_RVN301" := TRUE;
  END_IF;

  IF "System_RunOut_Variables"."ProdPipeRunOutWaterCount" AND "System_RunOut_Variables"."ProdPipeRunOutFillerBott" THEN
    "gSP_RVP303" := TRUE;
  END_IF;

  // Network 5: STEP 00 (Original Language: LAD)

  IF "System_RunOut_Variables"."ProdPipeRunOutWaterCount" AND "System_RunOut_Variables"."ProdPipeRunOutFillerBott" AND "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_DoubleDeair" THEN
    "gSP_RVN301_1" := TRUE;
  END_IF;

  IF "System_RunOut_Variables"."ProdPipeRunOutWaterCount" AND "System_RunOut_Variables"."ProdPipeRunOutFillerBott" AND "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_DoubleDeair" THEN
    "gSP_PPN305" := TRUE;
  END_IF;

  // Network 6:  (Original Language: LAD)

  "mStep" := 1;

  IF "System_RunOut_Variables"."FillerRanOut" THEN
    "mStep" := 2;
  END_IF;

  // Network 7:  (Original Language: LAD)

  "PresetTimer" := "System_RunOut_Variables"."Prod_Pipe_RunOut"."Time_Preset"."Step0" * 2;

  // Network 8: STEP 00 (Original Language: STL)

  // --- BEGIN STL Network 8 ---
   
     	A_BRACK
     	A_BRACK
     	O	"System_RunOut_Variables".ProdPipeRunOutWaterCount
     	O	"System_RunOut_Variables".ProdPipeRunOutFillerBott
     	BRACKET
     	A	"mProdPushDone"
     	O	"mProdPipeRunOutHalted"
     	O	"System_RunOut_Variables".FillerRanOut
     	BRACKET
     	=	"__PlcmigTempFillBits_4B0"[0]
     	BLD	103
     	A	"AUX TRUE"
     	=	"__PlcmigTempFillBits_4B0"[1]
     	BLD	103
     	A	"System_RunOut_Variables".ProdPipe_RunOut.Wait
     	=	"__PlcmigTempFillBits_4B0"[2]
     	BLD	103
     	A	CLK_0.5S
     	=	"__PlcmigTempFillBits_4B0"[3]
     	BLD	103
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 8 ---

  // Network 9: STEP 01 (Original Language: LAD)

  IF "AUX FALSE" THEN
    "gRinseClose_RMM301" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gRinseClose_RMP302" := TRUE;
  END_IF;

  // Network 10: STEP 01 (Original Language: STL)

  // --- BEGIN STL Network 10 ---
   
     	A	"AUX TRUE"
     	=	"__PlcmigTempFillBits_4B0"[0]
     	BLD	103
     	A	"AUX TRUE"
     	=	"__PlcmigTempFillBits_4B0"[1]
     	BLD	103
     	A	"System_RunOut_Variables".ProdPipe_RunOut.Wait
     	=	"__PlcmigTempFillBits_4B0"[2]
     	BLD	103
     	A	CLK_0.5S
     	=	"__PlcmigTempFillBits_4B0"[3]
     	BLD	103
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 10 ---

  // Network 11: STEP 02 (Original Language: STL)

  // --- BEGIN STL Network 11 ---
   
     ST02:   		A_BRACK
     	ON	"HMI_Digital".LSM302L.Filtered
     	O	"mProdPipeRunOutHalted"
     	O	"System_RunOut_Variables".FillerRanOut
     	BRACKET
     	=	"__PlcmigTempFillBits_4B0"[0]
     	BLD	103
     	A	"AUX TRUE"
     	=	"__PlcmigTempFillBits_4B0"[1]
     	BLD	103
     	A	"System_RunOut_Variables".ProdPipe_RunOut.Wait
     	=	"__PlcmigTempFillBits_4B0"[2]
     	BLD	103
     	A	CLK_0.5S
     	=	"__PlcmigTempFillBits_4B0"[3]
     	BLD	103
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 11 ---

  // Network 12:  (Original Language: LAD)

  IF "AUX FALSE" THEN
    "System_RunOut_Variables"."ProdPipe_RunOut"."Done" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gRinseClose_RMM301" := FALSE;
  END_IF;

  IF "AUX FALSE" THEN
    "gRinseClose_RMP302" := FALSE;
  END_IF;

  // Network 13:  (Original Language: STL)

  // --- BEGIN STL Network 13 ---
   
     END:    		NOP_0
   
  // --- END STL Network 13 ---

END_FUNCTION