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

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

record(ao,"$(pref)hd:collimator:x:motionCondit"){
  field(DTYP,"Soft Channel")
  field(VAL,"0.1")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:collimator:x:block"){
  field(DTYP,"Soft Channel")
  field(VAL,"-60.00")
  field(PINI, "YES")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:collimator:x:block:proc"){
  field(DTYP,"Soft Channel")
  field(DOL,"$(pref)hd:collimator:x:block")
  field(OMSL,"closed_loop")
  field(OUT,"$(pref)hd:collimator:x:motor.VAL PP NMS")
  field(SCAN, "Passive")
}
record(calc, "$(pref)hd:collimator:x_at_block") {
  field(INPA, "$(pref)hd:collimator:x:motor.RBV")
  field(INPB, "$(pref)hd:collimator:x:block")
  field(INPC, "$(pref)hd:collimator:x:motor.DMOV")
  field(INPE, "$(pref)hd:collimator:x:motionCondit")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-B)<E)&&(C=1)?1:0")
}
record(ao,"$(pref)hd:collimator:x:a"){
  field(DTYP,"Soft Channel")
  field(VAL,"-13.290")
  field(PINI, "YES")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:collimator:x:a:proc"){
  field(DTYP,"Soft Channel")
  field(DOL,"$(pref)hd:collimator:x:a")
  field(OMSL,"closed_loop")
  field(OUT,"$(pref)hd:collimator:x:motor.VAL PP NMS")
  field(SCAN, "Passive")
}
record(calc, "$(pref)hd:collimator:x_at_a") {
  field(INPA, "$(pref)hd:collimator:x:motor.RBV")
  field(INPB, "$(pref)hd:collimator:x:a")
  field(INPC, "$(pref)hd:collimator:x:motor.DMOV")
  field(INPE, "$(pref)hd:collimator:x:motionCondit")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-B)<E)&&(C=1)?1:0")
}
record(ao,"$(pref)hd:collimator:x:b"){
  field(DTYP,"Soft Channel")
  field(VAL,"-114.73")
  field(PINI, "YES")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:collimator:x:b:proc"){
  field(DTYP,"Soft Channel")
  field(DOL,"$(pref)hd:collimator:x:b")
  field(OMSL,"closed_loop")
  field(OUT,"$(pref)hd:collimator:x:motor.VAL PP NMS")
  field(SCAN, "Passive")
}
record(calc, "$(pref)hd:collimator:x_at_b") {
  field(INPA, "$(pref)hd:collimator:x:motor.RBV")
  field(INPB, "$(pref)hd:collimator:x:b")
  field(INPC, "$(pref)hd:collimator:x:motor.DMOV")
  field(INPE, "$(pref)hd:collimator:x:motionCondit")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-B)<E)&&(C=1)?1:0")
}