#!../../bin/linux-x86/xpsMotor

< envPaths

cd ${TOP}

dbLoadDatabase("dbd/xpsMotor.dbd")
xpsMotor_registerRecordDeviceDriver(pdbbase)

# Load IOC status records
#dbLoadRecords("db/iocAdminSoft.db","IOC=MTRHLD")

epicsEnvSet("PREFIX","")

epicsEnvSet("CONV_MOTOR","$(PREFIX)hd:converter:motor")

# Load DB for scan using sscan EPICS record
dbLoadRecords("db/standardScans.db","P=$(CONV_MOTOR):,MAXPTS1=2000,MAXPTS2=1000,MAXPTS3=1000,MAXPTS4=10,MAXPTSH=2000")
dbLoadRecords("db/saveData.db","P=$(CONV_MOTOR):")
dbLoadRecords("db/scanProgress.db","P=$(CONV_MOTOR):scanProgress:")
dbLoadRecords("db/beamCheck4scan.db","PREF='',R=$(CONV_MOTOR)")

cd ${TOP}/iocBoot/${IOC}
#asSetFilename("ca_security.txt")

#
iocInit

# Launch sequencer for to do scan progress and save data
cd ${TOP}/iocBoot/iocxpsMotor
saveData_Init("saveData.req", "P=$(CONV_MOTOR):")
seq &scanProgress, "S=$(CONV_MOTOR):,P=$(CONV_MOTOR):scanProgress:" 

dbpf("$(CONV_MOTOR):scan1.R1PV", "$(CONV_MOTOR).RBV")
dbpf("$(CONV_MOTOR):scan1.P1PV", "$(CONV_MOTOR).VAL")

dbpf("$(CONV_MOTOR):scan1.D01PV", "$(CONV_MOTOR).RBV")
dbpf("$(CONV_MOTOR):scan1.D02PV", "MTRHLD:TOD")
dbpf("$(CONV_MOTOR):scan1.D03PV", "IBCAD00CRCUR6")
dbpf("$(CONV_MOTOR):scan1.D04PV", "PSC:T:1:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D05PV", "PSC:T:2:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D06PV", "PSC:T:3:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D07PV", "PSC:T:4:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D08PV", "PSC:T:5:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D09PV", "PSC:T:6:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D10PV", "PSC:T:7:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D11PV", "PSC:T:8:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D12PV", "PSC:T:9:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D13PV", "PSC:T:10:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D14PV", "PSC:T:11:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D15PV", "PSC:T:12:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D16PV", "PSC:T:13:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D17PV", "PSC:T:14:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D18PV", "PSC:T:15:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D19PV", "PSC:T:16:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D20PV", "HALO:T:gamma:col:left:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D21PV", "HALO:T:gamma:col:top:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D22PV", "HALO:T:gamma:col:right:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D23PV", "HALO:T:gamma:col:bottom:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D24PV", "HALO:T:gamma:tgt:left:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D25PV", "HALO:T:gamma:tgt:top:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D26PV", "HALO:T:gamma:tgt:right:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D27PV", "HALO:T:gamma:tgt:bottom:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D28PV", "IOCHDCOL:VMICADC1_1")
dbpf("$(CONV_MOTOR):scan1.D29PV", "IOCHDCOL:VMICADC2_1")
dbpf("$(CONV_MOTOR):scan1.D30PV", "IOCHDCOL:VMICADC3_1")
dbpf("$(CONV_MOTOR):scan1.D31PV", "IOCHDCOL:VMICADC4_1")
dbpf("$(CONV_MOTOR):scan1.D32PV", "IOCHDCOL:VMICADC1_2")
dbpf("$(CONV_MOTOR):scan1.D33PV", "IOCHDCOL:VMICADC2_2")
dbpf("$(CONV_MOTOR):scan1.D34PV", "IOCHDCOL:VMICADC3_2")
dbpf("$(CONV_MOTOR):scan1.D35PV", "IOCHDCOL:VMICADC4_2")
dbpf("$(CONV_MOTOR):scan1.D36PV", "ST:T:1:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D37PV", "ST:T:2:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D38PV", "ST:T:3:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D39PV", "ST:T:4:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D40PV", "ST:T:5:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D41PV", "ST:T:6:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D42PV", "ST:T:7:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D43PV", "ST:T:8:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D44PV", "ST:T:9:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D45PV", "ST:T:10:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D46PV", "Active_Target:T:scaler_t1")
dbpf("$(CONV_MOTOR):scan1.D47PV", "IPMAD00.XPOS")
dbpf("$(CONV_MOTOR):scan1.D48PV", "IPMAD00.YPOS")
dbpf("$(CONV_MOTOR):scan1.D49PV", "bpu_mean_x")
dbpf("$(CONV_MOTOR):scan1.D50PV", "bpu_mean_y")
dbpf("$(CONV_MOTOR):scan1.D51PV", "PSC:coinc:scaler:rate")
dbpf("$(CONV_MOTOR):scan1.D52PV", "PS:coinc:scaler:rate")
#
dbpf("$(CONV_MOTOR):scan1.T1PV", "$(CONV_MOTOR):beamCheckBusy")

dbpf("$(CONV_MOTOR):scan1.P1SP", "30")
dbpf("$(CONV_MOTOR):scan1.P1EP", "90")
dbpf("$(CONV_MOTOR):scan1.P1SI", "0.2")
dbpf("$(CONV_MOTOR):scan1.PDLY", "1")
#dbpf("$(CONV_MOTOR):scan1.T1PV", "hd:scaler:trig_busy")
dbpf("$(CONV_MOTOR):scan1.DDLY", "0.5")

dbpf("$(CONV_MOTOR):saveData_fileSystem", "/gluex/data/HarpScans")
dbpf("$(CONV_MOTOR):saveData_subDir", "sscanData")
dbpf("$(CONV_MOTOR):saveData_baseName", "harp_gamma_")
#