|
1 record(stringin, "$(P)Reset") { |
|
2 field(DTYP, "stream") |
|
3 field(INP, "@TPG26x.proto reset $(PORT)") |
|
4 field(PINI,"YES") |
|
5 } |
|
6 |
|
7 record(bo, "$(P)DISABLE") |
|
8 { |
|
9 field(DESC, "Disable comms") |
|
10 field(PINI, "YES") |
|
11 field(VAL, "$(DISABLE=0)") |
|
12 field(OMSL, "supervisory") |
|
13 field(ZNAM, "COMMS ENABLED") |
|
14 field(ONAM, "COMMS DISABLED") |
|
15 } |
|
16 |
|
17 # This record reads both pressure and errors |
|
18 record(ai,"$(P)1:RAW_PRES") |
|
19 { |
|
20 field(DESC, "Pressure reading from gauge 1 no error") |
|
21 field(SCAN, "1 second") |
|
22 field(DTYP, "stream") |
|
23 field(INP, "@TPG26x.proto pres($(P),1:ERROR,2:ERROR,2:RAW_PRES) $(PORT)") |
|
24 field(PINI, "YES") |
|
25 field(PREC, "4") |
|
26 field(SIML, "$(P)SIM") |
|
27 field(SIOL, "$(P)SIM:1:PRESSURE") |
|
28 field(SDIS, "$(P)DISABLE") |
|
29 field(FLNK, "$(P)ACTIVITY") |
|
30 field(VAL, 0) |
|
31 info(archive, "VAL") |
|
32 } |
|
33 |
|
34 record(mbbi,"$(P)1:ERROR") |
|
35 { |
|
36 field(DESC, "Error from the Gauge 1") |
|
37 field(SCAN, "Passive") |
|
38 field(ZRST, "No Error") |
|
39 field(ZRSV, "NO_ALARM") |
|
40 field(ZRVL, 0) |
|
41 field(ONST, "Underrange") |
|
42 field(ONSV, "MINOR") |
|
43 field(ONVL, 1) |
|
44 field(TWST, "Overrange") |
|
45 field(TWSV, "MINOR") |
|
46 field(TWVL, 2) |
|
47 field(THST, "Sensor error") |
|
48 field(THSV, "MAJOR") |
|
49 field(THVL, 3) |
|
50 field(FRST, "Sensor off") |
|
51 field(FRSV, "MAJOR") |
|
52 field(FRVL, 4) |
|
53 field(FVST, "No Sensor") |
|
54 field(FVSV, "MAJOR") |
|
55 field(FVVL, 5) |
|
56 field(SXST, "Identification Error") |
|
57 field(SXSV, "MAJOR") |
|
58 field(SXVL, 6) |
|
59 field(UNSV, "MAJOR") |
|
60 field(PINI, "YES") |
|
61 field(VAL, 0) |
|
62 field(SIML, "$(P)SIM") |
|
63 field(SIOL, "$(P)SIM:1:ERROR") |
|
64 info(archive, "VAL") |
|
65 info(INTEREST, "MEDIUM") |
|
66 } |
|
67 |
|
68 # This record is set from 1:RAW_PRES |
|
69 record(ai,"$(P)2:RAW_PRES") |
|
70 { |
|
71 field(DESC, "Pressure reading from gauge 2 no error") |
|
72 field(SCAN, "Passive") |
|
73 field(PREC, "4") |
|
74 field(SIML, "$(P)SIM") |
|
75 field(SIOL, "$(P)SIM:2:PRESSURE") |
|
76 field(PINI, "YES") |
|
77 field(VAL, 0) |
|
78 info(archive, "VAL") |
|
79 } |
|
80 |
|
81 # This record is set from 1:RAW_PRES |
|
82 record(mbbi,"$(P)2:ERROR") |
|
83 { |
|
84 field(DESC, "Error from the Gauge 2") |
|
85 field(SCAN, "Passive") |
|
86 field(ZRST, "No Error") |
|
87 field(ZRSV, "NO_ALARM") |
|
88 field(ZRVL, 0) |
|
89 field(ONST, "Underrange") |
|
90 field(ONSV, "MINOR") |
|
91 field(ONVL, 1) |
|
92 field(TWST, "Overrange") |
|
93 field(TWSV, "MINOR") |
|
94 field(TWVL, 2) |
|
95 field(THST, "Sensor error") |
|
96 field(THSV, "MAJOR") |
|
97 field(THVL, 3) |
|
98 field(FRST, "Sensor off") |
|
99 field(FRSV, "MAJOR") |
|
100 field(FRVL, 4) |
|
101 field(FVST, "No Sensor") |
|
102 field(FVSV, "MAJOR") |
|
103 field(FVVL, 5) |
|
104 field(SXST, "Identification Error") |
|
105 field(SXSV, "MAJOR") |
|
106 field(SXVL, 6) |
|
107 field(SVSV, "MAJOR") |
|
108 field(SVVL, 7) |
|
109 field(EISV, "MAJOR") |
|
110 field(EIVL, 8) |
|
111 field(NISV, "MAJOR") |
|
112 field(NIVL, 9) |
|
113 field(TESV, "MAJOR") |
|
114 field(TEVL, 10) |
|
115 field(ELSV, "MAJOR") |
|
116 field(ELVL, 11) |
|
117 field(TVSV, "MAJOR") |
|
118 field(TVVL, 12) |
|
119 field(TTSV, "MAJOR") |
|
120 field(TTVL, 13) |
|
121 field(FTSV, "MAJOR") |
|
122 field(FTVL, 14) |
|
123 field(FFSV, "MAJOR") |
|
124 field(FFVL, 15) |
|
125 field(PINI, "YES") |
|
126 field(VAL, 0) |
|
127 field(SIML, "$(P)SIM") |
|
128 field(SIOL, "$(P)SIM:2:ERROR") |
|
129 info(archive, "VAL") |
|
130 info(INTEREST, "MEDIUM") |
|
131 } |
|
132 |
|
133 |
|
134 record(calcout,"$(P)1:CALC_PRES") { |
|
135 field(DESC, "Pressure calculation gauge 1") |
|
136 field(INPA, "$(P)1:RAW_PRES MS CP") |
|
137 # For the error state reported |
|
138 field(INPB, "$(P)1:ERROR MS CP") |
|
139 |
|
140 field(OUT, "$(P)1:PRESSURE MS PP") |
|
141 |
|
142 field(CALC, "A") |
|
143 } |
|
144 |
|
145 record(ai,"$(P)1:PRESSURE") { |
|
146 field(DESC, "Pressure reading from gauge 1") |
|
147 field(EGU, "") # set by units transfer |
|
148 field(PREC, "4") |
|
149 $(IFPRESSUR1) info(alarm, "TPG26x") |
|
150 info(archive, "VAL") |
|
151 info(INTEREST, "HIGH") |
|
152 } |
|
153 |
|
154 ## PV hidden on graph when value set to 0, or is displayed |
|
155 ## when the channel is on and the VAL field is uncommented (sets to 1) |
|
156 |
|
157 record(bo, "$(P)1:VISIBLE") |
|
158 { |
|
159 field(SCAN, "Passive") |
|
160 field(DTYP, "Soft Channel") |
|
161 field(ZNAM, "NO") |
|
162 field(ONAM, "YES") |
|
163 field(PINI, "YES") |
|
164 $(IFPRESSUR1) field(VAL, "1") |
|
165 } |
|
166 |
|
167 record(calcout,"$(P)2:CALC_PRES") { |
|
168 field(DESC, "Pressure calculation gauge 2") |
|
169 field(INPA, "$(P)2:RAW_PRES MS CP") |
|
170 # For the error state reported |
|
171 field(INPB, "$(P)2:ERROR MS CP") |
|
172 # For the disconnect error (data is pushed into 1) |
|
173 field(INPC, "$(P)1:RAW_PRES MS CP") |
|
174 |
|
175 field(OUT, "$(P)2:PRESSURE MS PP") |
|
176 |
|
177 field(CALC, "A") |
|
178 } |
|
179 |
|
180 record(ai,"$(P)2:PRESSURE") { |
|
181 field(DESC, "Pressure reading from gauge 2") |
|
182 field(EGU, "") # set by units transfer |
|
183 field(PREC, "4") |
|
184 $(IFPRESSUR2) info(alarm, "TPG26x") |
|
185 info(archive, "VAL") |
|
186 info(INTEREST, "HIGH") |
|
187 } |
|
188 |
|
189 ## PV hidden on graph when value set to 0, or is displayed |
|
190 ## when the channel is on and the VAL field is uncommented (sets to 1) |
|
191 |
|
192 record(bo, "$(P)2:VISIBLE") |
|
193 { |
|
194 field(SCAN, "Passive") |
|
195 field(DTYP, "Soft Channel") |
|
196 field(ZNAM, "NO") |
|
197 field(ONAM, "YES") |
|
198 field(PINI, "YES") |
|
199 $(IFPRESSUR2) field(VAL, "1") |
|
200 } |
|
201 |
|
202 record(calc,"$(P)ACTIVITY") { |
|
203 field(DESC, "Activity record") |
|
204 field(INPA, "$(P)ACTIVITY") |
|
205 field(CALC, "A!=0?0:1") |
|
206 field(VAL, 0) |
|
207 field(PINI, "YES") |
|
208 } |
|
209 |
|
210 record(stringout,"$(P)1:UNITS_TRANSFER") { |
|
211 field(DESC, "Transfer the units to pressure 1") |
|
212 field(DOL, "$(P)UNITS.VAL CP") |
|
213 field(OMSL, "closed_loop") |
|
214 field(OUT, "$(P)1:PRESSURE.EGU") |
|
215 } |
|
216 |
|
217 record(stringout,"$(P)2:UNITS_TRANSFER") { |
|
218 field(DESC, "Transfer the units to pressure 2") |
|
219 field(DOL, "$(P)UNITS.VAL CP") |
|
220 field(OMSL, "closed_loop") |
|
221 field(OUT, "$(P)2:PRESSURE.EGU") |
|
222 } |
|
223 |
|
224 record(mbbi, "$(P)UNITS") |
|
225 { |
|
226 field(DESC, "Units of pressure") |
|
227 field(SCAN, "1 second") |
|
228 field(DTYP, "stream") |
|
229 field(INP, "@TPG26x.proto getUnits $(PORT)") |
|
230 field(ZRST, "mbar") |
|
231 field(ONST, "Torr") |
|
232 field(TWST, "Pa") |
|
233 field(SIML, "$(P)SIM") |
|
234 field(SIOL, "$(P)SIM:UNITS") |
|
235 field(SDIS, "$(P)DISABLE") |
|
236 info(archive, "VAL") |
|
237 info(INTEREST, "HIGH") |
|
238 } |
|
239 |
|
240 record(mbbo, "$(P)UNITS:SP") |
|
241 { |
|
242 field(DTYP, "stream") |
|
243 field(DESC, "Set the units of pressure") |
|
244 field(OUT, "@TPG26x.proto setUnits $(PORT)") |
|
245 field(ZRST, "mbar") |
|
246 field(ONST, "Torr") |
|
247 field(TWST, "Pa") |
|
248 field(SIML, "$(P)SIM") |
|
249 field(SIOL, "$(P)SIM:UNITS:SP") |
|
250 field(SDIS, "$(P)DISABLE") |
|
251 info(archive, "VAL") |
|
252 } |
|
253 |
|
254 alias("$(P)UNITS", "$(P)UNITS:SP:RBV") |
|
255 |
|
256 |
|
257 |
|
258 ## SIMULATION STUFF ## |
|
259 |
|
260 record(bo, "$(P)SIM") |
|
261 { |
|
262 field(SCAN, "Passive") |
|
263 field(DTYP, "Soft Channel") |
|
264 field(ZNAM, "NO") |
|
265 field(ONAM, "YES") |
|
266 field(VAL, "$(RECSIM=0)") |
|
267 } |
|
268 |
|
269 alias("$(P)SIM", "$(P)SIM:SP") |
|
270 |
|
271 record(mbbi, "$(P)SIM:UNITS") |
|
272 { |
|
273 field(SCAN, "Passive") |
|
274 field(DTYP, "Soft Channel") |
|
275 field(ZRST, "mbar") |
|
276 field(ONST, "Torr") |
|
277 field(TWST, "Pa") |
|
278 } |
|
279 |
|
280 alias("$(P)SIM:UNITS","$(P)SIM:UNITS:SP") |
|
281 |
|
282 alias("$(P)SIM:UNITS","$(P)SIM:UNITS:SP:RBV") |
|
283 |
|
284 record(ai,"$(P)SIM:1:PRESSURE") |
|
285 { |
|
286 field(DESC, "Sim pressure from gauge 1 no error") |
|
287 field(SCAN, "Passive") |
|
288 field(DTYP, "Soft Channel") |
|
289 field(PINI, "YES") |
|
290 field(VAL, 0) |
|
291 } |
|
292 |
|
293 record(ai,"$(P)SIM:2:PRESSURE") |
|
294 { |
|
295 field(DESC, "Sim pressure from gauge 2 no error") |
|
296 field(SCAN, "Passive") |
|
297 field(DTYP, "Soft Channel") |
|
298 field(FLNK, "$(P)2:RAW_PRES") |
|
299 field(PINI, "YES") |
|
300 field(VAL, 0) |
|
301 } |
|
302 |
|
303 record(mbbi,"$(P)SIM:1:ERROR") |
|
304 { |
|
305 field(DESC, "Simulated error from the Gauge 1") |
|
306 field(SCAN, "Passive") |
|
307 field(ZRST, "No Error") |
|
308 field(ONST, "Underrange") |
|
309 field(TWST, "Overrange") |
|
310 field(THST, "Sensor error") |
|
311 field(FRST, "Sensor off") |
|
312 field(FVST, "No Sensor") |
|
313 field(SXST, "Identification Error") |
|
314 field(FLNK, "$(P)1:ERROR") |
|
315 field(PINI, "YES") |
|
316 field(VAL, 0) |
|
317 } |
|
318 |
|
319 record(mbbi,"$(P)SIM:2:ERROR") |
|
320 { |
|
321 field(DESC, "Simulated error from the Gauge 2") |
|
322 field(SCAN, "Passive") |
|
323 field(ZRST, "No Error") |
|
324 field(ONST, "Underrange") |
|
325 field(TWST, "Overrange") |
|
326 field(THST, "Sensor error") |
|
327 field(FRST, "Sensor off") |
|
328 field(FVST, "No Sensor") |
|
329 field(SXST, "Identification Error") |
|
330 field(PINI, "YES") |
|
331 field(VAL, 0) |
|
332 field(FLNK, "$(P)2:ERROR") |
|
333 } |