# Database for Collimator positions in Y
#
# V.K.  July 16, 2012
# Macro paramters:
#   $(P)        - XPS Controller name (P=halldxps4:)
#   $(R)        - Motor (R=m1)

#alias("$(P)$(R)","$(pref)hd:collimator:y:motor")

record(ao,"$(pref)hd:collimator:y:motionCondit"){
  field(DTYP,"Soft Channel")
  field(VAL,"0.005")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:collimator:y:block"){
  field(DTYP,"Soft Channel")
  field(VAL,"4.700")
  field(PINI, "YES")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:collimator:y:block:proc"){
  field(DTYP,"Soft Channel")
  field(DOL,"$(pref)hd:collimator:y:block")
  field(OMSL,"closed_loop")
  field(OUT,"$(pref)hd:collimator:y:motor.VAL PP NMS")
  field(SCAN, "Passive")
}
record(calc, "$(pref)hd:collimator:y_at_block") {
  field(INPA, "$(pref)hd:collimator:y:motor.RBV")
  field(INPB, "$(pref)hd:collimator:y:block")
  field(INPC, "$(pref)hd:collimator:y:motor.DMOV")
  field(INPE, "$(pref)hd:collimator:y:motionCondit")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-B)<E)&&(C=1)?1:0")
}
record(ao,"$(pref)hd:collimator:y:a"){
  field(DTYP,"Soft Channel")
  field(VAL,"4.900")
  field(PINI, "YES")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:collimator:y:a:proc"){
  field(DTYP,"Soft Channel")
  field(DOL,"$(pref)hd:collimator:y:a")
  field(OMSL,"closed_loop")
  field(OUT,"$(pref)hd:collimator:y:motor.VAL PP NMS")
  field(SCAN, "Passive")
}
record(calc, "$(pref)hd:collimator:y_at_a") {
  field(INPA, "$(pref)hd:collimator:y:motor.RBV")
  field(INPB, "$(pref)hd:collimator:y:a")
  field(INPC, "$(pref)hd:collimator:y:motor.DMOV")
  field(INPE, "$(pref)hd:collimator:y:motionCondit")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-B)<E)&&(C=1)?1:0")
}
record(ao,"$(pref)hd:collimator:y:b"){
  field(DTYP,"Soft Channel")
  field(VAL,"4.700")
  field(PINI, "YES")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:collimator:y:b:proc"){
  field(DTYP,"Soft Channel")
  field(DOL,"$(pref)hd:collimator:y:b")
  field(OMSL,"closed_loop")
  field(OUT,"$(pref)hd:collimator:y:motor.VAL PP NMS")
  field(SCAN, "Passive")
}
record(calc, "$(pref)hd:collimator:y_at_b") {
  field(INPA, "$(pref)hd:collimator:y:motor.RBV")
  field(INPB, "$(pref)hd:collimator:y:b")
  field(INPC, "$(pref)hd:collimator:y:motor.DMOV")
  field(INPE, "$(pref)hd:collimator:y:motionCondit")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-B)<E)&&(C=1)?1:0")
}