From 90b346e8c2d7e6960169c23c006441df19110ddc Mon Sep 17 00:00:00 2001
From: rivers <rivers@dc6c5ff5-0b8b-c028-a01f-ffb33f00fc8b>
Date: Sat, 5 Jan 2013 00:04:19 +0000
Subject: [PATCH] Change processing of POOL records from 0.1 second to 1
 second, and make them FLNK from a single record that is scanned

git-svn-id: https://subversion.xor.aps.anl.gov/synApps/areaDetector/trunk@15854 dc6c5ff5-0b8b-c028-a01f-ffb33f00fc8b
---
 ADApp/Db/NDPluginBase.template | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/ADApp/Db/NDPluginBase.template b/ADApp/Db/NDPluginBase.template
index a149201..c4854e4 100644
--- a/ADApp/Db/NDPluginBase.template
+++ b/ADApp/Db/NDPluginBase.template
@@ -409,15 +409,6 @@ record(ai, "$(P)$(R)PoolMaxMem")
    field(PINI, "YES")
 }
 
-record(ai, "$(P)$(R)PoolUsedMem")
-{
-   field(DTYP, "asynFloat64")
-   field(INP,  "@asyn($(PORT),$(ADDR),$(TIMEOUT))POOL_USED_MEMORY")
-   field(PREC, "1")
-   field(EGU,  "MB")
-   field(SCAN, ".1 second")
-}
-
 record(longin, "$(P)$(R)PoolMaxBuffers")
 {
    field(DTYP, "asynInt32")
@@ -426,24 +417,34 @@ record(longin, "$(P)$(R)PoolMaxBuffers")
    field(PINI, "YES")
 }
 
+record(ai, "$(P)$(R)PoolUsedMem")
+{
+   field(DTYP, "asynFloat64")
+   field(INP,  "@asyn($(PORT),$(ADDR),$(TIMEOUT))POOL_USED_MEMORY")
+   field(PREC, "1")
+   field(EGU,  "MB")
+   field(SCAN, "1 second")
+   field(FLNK, "$(P)$(R)PoolAllocBuffers")
+}
+
 record(longin, "$(P)$(R)PoolAllocBuffers")
 {
    field(DTYP, "asynInt32")
    field(INP,  "@asyn($(PORT),$(ADDR),$(TIMEOUT))POOL_ALLOC_BUFFERS")
-   field(SCAN, ".1 second")
+   field(FLNK, "$(P)$(R)PoolFreeBuffers")
 }
 
 record(longin, "$(P)$(R)PoolFreeBuffers")
 {
    field(DTYP, "asynInt32")
    field(INP,  "@asyn($(PORT),$(ADDR),$(TIMEOUT))POOL_FREE_BUFFERS")
-   field(SCAN, ".1 second")
+   field(FLNK, "$(P)$(R)PoolUsedBuffers")
 }
 
 record(calc, "$(P)$(R)PoolUsedBuffers")
 {
-    field(INPA, "$(P)$(R)PoolAllocBuffers CP MS")
-    field(INPB, "$(P)$(R)PoolFreeBuffers CP MS")
+    field(INPA, "$(P)$(R)PoolAllocBuffers NPP MS")
+    field(INPB, "$(P)$(R)PoolFreeBuffers NPP MS")
     field(CALC, "A-B")
 }