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")
}