--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/IOCDOSEApp/Db/fht.db	Tue Nov 02 13:19:46 2021 +0100
@@ -0,0 +1,92 @@
+record(ai, "$(P)$(R)GetRadiation_1")
+{
+    field(DESC, "Get Radiation")
+    field(DTYP, "stream")
+    field(INP,  "@fht.proto getRadiation(138) $(BUS)")
+    field(SCAN, "1 second")
+    field(EGU, "uSv/h") 
+    field(FLNK, "$(P)$(R)GetRadiation_1:Hour")
+}
+
+record(calc, "$(P)$(R)GetRadiation_1:Add") {
+    field(INPA, "$(P)$(R)GetRadiation_1 CP NMS")
+    field(INPB, "1")
+    field(CALC, "B>0?VAL+A:0;B:=1")
+    field(FLNK, "$(P)$(R)GetRadiation_1:Counter") 
+}
+
+record(calc, "$(P)$(R)GetRadiation_1:Counter") {
+    field(INPA, "$(P)$(R)GetRadiation_1:Add NPP ")
+    field(CALC, "A>0?VAL+1:0")
+    field(FLNK, "$(P)$(R)GetRadiation_1:SumOneHour") 
+}
+
+record(calc, "$(P)$(R)GetRadiation_1:SumOneHour") {
+    field(INPA, "$(P)$(R)GetRadiation_1:Add NPP ")
+    field(INPB, "$(P)$(R)GetRadiation_1:Counter NPP ")
+    field(CALC, "B>0?A/B:0")
+    field(EGU, "uSv/h") 
+}
+
+record(stringin, "$(P)$(R)GetRadiation_1:Hour") {
+    field(DTYP, "Soft Timestamp")
+    field(INP, "@%M")
+    field(TSEL, "$(P)$(R)GetRadiation_1.TIME")
+    field(FLNK, "$(P)$(R)GetRadiation_1:HourClear")
+}
+
+record(calcout, "$(P)$(R)GetRadiation_1:HourClear") {
+    field(INPA, "$(P)$(R)GetRadiation_1:Hour NPP NMS")
+    field(INPB, "0")
+    field(CALC, "A<B?0:1;B:=A")
+    field(DOPT, "Use CALC")
+    field(OOPT, "When Zero")
+    field(OUT,  "$(P)$(R)GetRadiation_1:Add.B PP")
+}
+
+
+record(ai, "$(P)$(R)GetRadiation_2")
+{
+    field(DESC, "Get Radiation")
+    field(DTYP, "stream")
+    field(INP,  "@fht.proto getRadiation(239) $(BUS)")
+    field(EGU, "uSiv")
+    field(SCAN, "1 second")
+    field(FLNK, "$(P)$(R)GetRadiation_2:Hour")
+}
+
+record(calc, "$(P)$(R)GetRadiation_2:Add") {
+    field(INPA, "$(P)$(R)GetRadiation_2 CP NMS")
+    field(INPB, "1")
+    field(CALC, "B>0?VAL+A:0;B:=1")
+    field(FLNK, "$(P)$(R)GetRadiation_2:Counter") 
+}
+
+record(calc, "$(P)$(R)GetRadiation_2:Counter") {
+    field(INPA, "$(P)$(R)GetRadiation_2:Add NPP ")
+    field(CALC, "A>0?VAL+1:0")
+    field(FLNK, "$(P)$(R)GetRadiation_2:SumOneHour") 
+}
+
+record(calc, "$(P)$(R)GetRadiation_2:SumOneHour") {
+    field(INPA, "$(P)$(R)GetRadiation_2:Add NPP ")
+    field(INPB, "$(P)$(R)GetRadiation_2:Counter NPP ")
+    field(CALC, "B>0?A/B:0")
+    field(EGU, "uSv/h") 
+}
+
+record(stringin, "$(P)$(R)GetRadiation_2:Hour") {
+    field(DTYP, "Soft Timestamp")
+    field(INP, "@%M")
+    field(TSEL, "$(P)$(R)GetRadiation_2.TIME")
+    field(FLNK, "$(P)$(R)GetRadiation_2:HourClear")
+}
+
+record(calcout, "$(P)$(R)GetRadiation_2:HourClear") {
+    field(INPA, "$(P)$(R)GetRadiation_2:Hour NPP NMS")
+    field(INPB, "0")
+    field(CALC, "A<B?0:1;B:=A")
+    field(DOPT, "Use CALC")
+    field(OOPT, "When Zero")
+    field(OUT,  "$(P)$(R)GetRadiation_2:Add.B PP")
+}