diff --git a/ADApp/Db/ADBase.template b/ADApp/Db/ADBase.template
index 97a93fc..66a285c 100644
--- a/ADApp/Db/ADBase.template
+++ b/ADApp/Db/ADBase.template
@@ -954,6 +954,13 @@ record(longin, "$(P)$(R)PoolFreeBuffers")
    field(INP,  "@asyn($(PORT),$(ADDR),$(TIMEOUT))POOL_FREE_BUFFERS")
 }
 
+record(calc, "$(P)$(R)PoolUsedBuffers")
+{
+    field(INPA, "$(P)$(R)PoolAllocBuffers CP MS")
+    field(INPB, "$(P)$(R)PoolFreeBuffers CP MS")
+    field(CALC, "A-B")
+}
+
 
 ###################################################################
 #  The asynRecord is used for mainly for trace mask               #