# Database for GroupKill, GroupInitialize, GroupReferencingStart, GroupReferencingStop etc
#
#    Vanik Kakoyan
#    March 21, 2016
#
#
# Macro paramters:
#   $(P)        - PV name prefix (T1-7-MID,...)
#   $(G)        - Group name 
#   $(PORT)     - asyn port for this controller
#   $(TIMEOUT)  - asyn timeout


#
# PVs for GroupReferencingStart(GroupName) command 
#
record(busy,"$(P)$(G)::groupRefStart") {
    field(DESC,"GroupReferencingStart")
    field(DTYP, "asynInt32")
    field(OUT,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_REFERENCING_START")
    field(ZNAM, "Done")
    field(ONAM, "GroupReferencingStart")
}
record(mbbi,"$(P)$(G)::groupRefStartStat") {
    field(DESC,"groupReferencingStart status")
    field(DTYP, "asynInt32")
    field(INP,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_REFERENCING_START_STATUS")
    field(ZRVL, "0")
    field(ZRST, "Undefined")
    field(ZRSV, "INVALID")
    field(ONVL, "1")
    field(ONST, "Success")
    field(ONSV, "NO_ALARM")
    field(TWVL, "2")
    field(TWST, "Failure")
    field(TWSV, "MAJOR")
    field(SCAN, "I/O Intr")
}
#
# PVs for GroupReferencingStop(GroupName) command 
#
record(busy,"$(P)$(G)::groupRefStop") {
    field(DESC,"GroupReferencingStop")
    field(DTYP, "asynInt32")
    field(OUT,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_REFERENCING_STOP")
    field(ZNAM, "Done")
    field(ONAM, "GroupReferencingStop")
}
record(mbbi,"$(P)$(G)::groupRefStopStat") {
    field(DESC,"groupReferencingStop status")
    field(DTYP, "asynInt32")
    field(INP,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_REFERENCING_STOP_STATUS")
    field(ZRVL, "0")
    field(ZRST, "Undefined")
    field(ZRSV, "INVALID")
    field(ONVL, "1")
    field(ONST, "Success")
    field(ONSV, "NO_ALARM")
    field(TWVL, "2")
    field(TWST, "Failure")
    field(TWSV, "MAJOR")
    field(SCAN, "I/O Intr")
}
#
# PVs for GroupInitialize(GroupName) command 
#
record(busy,"$(P)$(G)::groupInitialize") {
    field(DESC,"Group Initialize")
    field(DTYP, "asynInt32")
    field(OUT,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_INITIALIZE")
    field(ZNAM, "Done")
    field(ONAM, "GroupInitialize")
}
record(mbbi,"$(P)$(G)::groupInitializeStat") {
    field(DESC,"group Initialize status")
    field(DTYP, "asynInt32")
    field(INP,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_INITIALIZE_STATUS")
    field(ZRVL, "0")
    field(ZRST, "Undefined")
    field(ZRSV, "INVALID")
    field(ONVL, "1")
    field(ONST, "Success")
    field(ONSV, "NO_ALARM")
    field(TWVL, "2")
    field(TWST, "Failure")
    field(TWSV, "MAJOR")
    field(SCAN, "I/O Intr")
}
#
# PVs for GroupKill(GroupName) command 
#
record(busy,"$(P)$(G)::groupKill") {
    field(DESC,"Group Kill")
    field(DTYP, "asynInt32")
    field(OUT,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_KILL")
    field(ZNAM, "Done")
    field(ONAM, "GroupKill")
}
record(mbbi,"$(P)$(G)::groupKillStat") {
    field(DESC,"group Kill status")
    field(DTYP, "asynInt32")
    field(INP,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_KILL_STATUS")
    field(ZRVL, "0")
    field(ZRST, "Undefined")
    field(ZRSV, "INVALID")
    field(ONVL, "1")
    field(ONST, "Success")
    field(ONSV, "NO_ALARM")
    field(TWVL, "2")
    field(TWST, "Failure")
    field(TWSV, "MAJOR")
    field(SCAN, "I/O Intr")
}
#
# PVs for GroupHomeSearch(GroupName) command 
#
record(busy,"$(P)$(G)::groupHomeSearch") {
    field(DESC,"Group Home Search")
    field(DTYP, "asynInt32")
    field(OUT,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_HOME_SEARCH")
    field(ZNAM, "Done")
    field(ONAM, "GroupHomeSearch")
}
record(mbbi,"$(P)$(G)::groupHomeSearchStat") {
    field(DESC,"group HomeSearch status")
    field(DTYP, "asynInt32")
    field(INP,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_HOME_SEARCH_STATUS")
    field(ZRVL, "0")
    field(ZRST, "Undefined")
    field(ZRSV, "INVALID")
    field(ONVL, "1")
    field(ONST, "Success")
    field(ONSV, "NO_ALARM")
    field(TWVL, "2")
    field(TWST, "Failure")
    field(TWSV, "MAJOR")
    field(SCAN, "I/O Intr")
}
#
# PVs for GroupMotionEnable(GroupName) command 
#
record(busy,"$(P)$(G)::groupMotionEnable") {
    field(DESC,"GroupMotionEnable")
    field(DTYP, "asynInt32")
    field(OUT,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_MOTION_ENABLE")
    field(ZNAM, "Done")
    field(ONAM, "GroupMotionEnable")
}
record(mbbi,"$(P)$(G)::groupMotionEnableStat") {
    field(DESC,"groupMotion Enable status")
    field(DTYP, "asynInt32")
    field(INP,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_MOTION_ENABLE_STATUS")
    field(ZRVL, "0")
    field(ZRST, "Undefined")
    field(ZRSV, "INVALID")
    field(ONVL, "1")
    field(ONST, "Success")
    field(ONSV, "NO_ALARM")
    field(TWVL, "2")
    field(TWST, "Failure")
    field(TWSV, "MAJOR")
    field(SCAN, "I/O Intr")
}
#
# PVs for GroupMotionDisable(GroupName) command 
#
record(busy,"$(P)$(G)::groupMotionDisable") {
    field(DESC,"GroupMotionDisable")
    field(DTYP, "asynInt32")
    field(OUT,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_MOTION_DISABLE")
    field(ZNAM, "Done")
    field(ONAM, "GroupMotionDisable")
}
record(mbbi,"$(P)$(G)::groupMotionDisableStat") {
    field(DESC,"groupMotion Disable status")
    field(DTYP, "asynInt32")
    field(INP,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_MOTION_DISABLE_STATUS")
    field(ZRVL, "0")
    field(ZRST, "Undefined")
    field(ZRSV, "INVALID")
    field(ONVL, "1")
    field(ONST, "Success")
    field(ONSV, "NO_ALARM")
    field(TWVL, "2")
    field(TWST, "Failure")
    field(TWSV, "MAJOR")
    field(SCAN, "I/O Intr")
}
#
# group Operations Message
#
record(waveform,"$(P)$(G)::groupOperationsMessage") {
    field(DESC, "group Operations message")
    field(DTYP, "asynOctetRead")
    field(INP,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_MESSAGE")
    field(FTVL, "CHAR")
    field(NELM, "256")
    field(SCAN, "I/O Intr")
}
#
# groupReferencing Operations Message
#
record(waveform,"$(P)$(G)::groupRefMessage") {
    field(DESC, "groupReferencing Operations message")
    field(DTYP, "asynOctetRead")
    field(INP,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_REFERENCING_MESSAGE")
    field(FTVL, "CHAR")
    field(NELM, "256")
    field(SCAN, "I/O Intr")
}
#
# groupStatus 
#
record(longin,"$(P)$(G)::groupStat") {
    field(DESC, "GroupStatus")
    field(DTYP, "asynInt32")
    field(INP,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_STATUS")
    field(SCAN, "I/O Intr")
}

#
# groupStatus String
#
record(waveform,"$(P)$(G)::groupStatStr") {
    field(DESC, "group Status message")
    field(DTYP, "asynOctetRead")
    field(INP,  "@asyn($(PORT),0,$(TIMEOUT))GROUP_STATUS_STRING")
    field(FTVL, "CHAR")
    field(NELM, "256")
    field(SCAN, "I/O Intr")
}