#*************************************************************************
# Copyright (c) 2002 The University of Chicago, as Operator of Argonne
#     National Laboratory.
# Copyright (c) 2002 The Regents of the University of California, as
#     Operator of Los Alamos National Laboratory.
# EPICS BASE is distributed subject to a Software License Agreement found
# in file LICENSE that is included with this distribution. 
#*************************************************************************
#
# based original waveform record

include "menuGlobal.dbd"
menu(transferArrayPOST) {
	choice(transferArrayPOST_Always,"Always")
	choice(transferArrayPOST_OnChange,"On Change")
}
recordtype(transferArray) {
	include "dbCommon.dbd" 
	# New field
	# Get Src waveform index number
	#   waveform From INP field
	field(TASI,DBF_ULONG) {
		prompt("Start index of transfer of source waveform")
		promptgroup(GUI_WAVE)
		interest(1)
	}
	# New field
	# Get Src waveform from tasi to elenment
	#   waveform From INP field
	field(TATC,DBF_ULONG) {
		prompt("Transfer count(elements) from TASI")
		promptgroup(GUI_WAVE)
		interest(1)
		initial("1")
	}
	# New field
	# Get Dst waveform 
	#   copy waveform from INP to OUT
	field(OUT,DBF_INLINK) {	# because want to do dbGetLink this field
		prompt("Destination waveform")
		promptgroup(GUI_OUTPUT)
		special(SPC_NOMOD)
		interest(1)
	}
	# New field
	field(TAZF,DBF_MENU) {
		prompt("Zero Fill flag")
		promptgroup(GUI_WAVE)
		interest(1)
		menu(menuYesNo)
	}
	# New field
	field(TADI,DBF_ULONG) {
		prompt("Start index of transfer of destination waveform")
		promptgroup(GUI_WAVE)
		interest(1)
	}
	field(VAL,DBF_NOACCESS) {
		prompt("Value")
		asl(ASL0)
		special(SPC_DBADDR)
		pp(TRUE)
		extra("void *		val")
	}
	field(RARM,DBF_SHORT) {
		prompt("Rearm the waveform")
		promptgroup(GUI_WAVE)
		pp(TRUE)
		interest(1)
	}
	field(PREC,DBF_SHORT) {
		prompt("Display Precision")
		promptgroup(GUI_DISPLAY)
		interest(1)
	}
	field(INP,DBF_INLINK) {
		prompt("Input Specification")
		promptgroup(GUI_INPUTS)
		interest(1)
	}
	field(EGU,DBF_STRING) {
		prompt("Engineering Units Name")
		promptgroup(GUI_DISPLAY)
		interest(1)
		size(16)
	}
	field(HOPR,DBF_DOUBLE) {
		prompt("High Operating Range")
		promptgroup(GUI_DISPLAY)
		interest(1)
	}
	field(LOPR,DBF_DOUBLE) {
		prompt("Low Operating Range")
		promptgroup(GUI_DISPLAY)
		interest(1)
	}
	field(NELM,DBF_ULONG) {
		prompt("Number of Elements")
		promptgroup(GUI_WAVE)
		special(SPC_NOMOD)
		interest(1)
		initial("1")
	}
	field(FTVL,DBF_MENU) {
		prompt("Field Type of Value")
		promptgroup(GUI_WAVE)
		special(SPC_NOMOD)
		interest(1)
		menu(menuFtype)
	}
	field(BUSY,DBF_SHORT) {
		prompt("Busy Indicator")
		special(SPC_NOMOD)
	}
	field(NORD,DBF_ULONG) {
		prompt("Number elements read")
		special(SPC_NOMOD)
	}
	field(BPTR,DBF_NOACCESS) {
		prompt("Buffer Pointer")
		special(SPC_NOMOD)
		interest(4)
		extra("void *		bptr")
	}
	field(SIOL,DBF_INLINK) {
		prompt("Sim Input Specifctn")
		promptgroup(GUI_INPUTS)
		interest(1)
	}
	field(SIML,DBF_INLINK) {
		prompt("Sim Mode Location")
		promptgroup(GUI_INPUTS)
		interest(1)
	}
	field(SIMM,DBF_MENU) {
		prompt("Simulation Mode")
		interest(1)
		menu(menuYesNo)
	}
	field(SIMS,DBF_MENU) {
		prompt("Sim mode Alarm Svrty")
		promptgroup(GUI_INPUTS)
		interest(2)
		menu(menuAlarmSevr)
	}
	field(MPST,DBF_MENU) {
		prompt("Post Value Monitors")
		promptgroup(GUI_DISPLAY)
		interest(1)
		menu(transferArrayPOST)
	}
	field(APST,DBF_MENU) {
		prompt("Post Archive Monitors")
		promptgroup(GUI_DISPLAY)
		interest(1)
		menu(transferArrayPOST)
	}
	field(HASH,DBF_ULONG) {
		prompt("Hash of OnChange data.")
		interest(3)
	}
	field(_VER,DBF_LONG) {
		prompt("version")
		interest(1)
	}
	field(_INF,DBF_NOACCESS) {
		prompt("Internal information")
		extra("void *		_inf")
		special(SPC_NOMOD)
		interest(4)
	}
	field(TEST,DBF_ULONG) {
		prompt("Bit string for Test driver")
		initial(0)
		interest(4)
	}
}