From d03de655f4af412d0b28790a714bcde257a1d836 Mon Sep 17 00:00:00 2001
From: "Janet B. Anderson" <jba@aps.anl.gov>
Date: Mon, 14 Sep 1992 14:31:08 +0000
Subject: [PATCH] replaced fetch link selection with call to recGblGetLinkValue

---
 src/rec/recFanout.c | 22 ++++++----------------
 1 file changed, 6 insertions(+), 16 deletions(-)

diff --git a/src/rec/recFanout.c b/src/rec/recFanout.c
index e03915808..2fbd1b1b2 100644
--- a/src/rec/recFanout.c
+++ b/src/rec/recFanout.c
@@ -1,5 +1,5 @@
-/* recFanout.c */ /* share/src/rec $Id$ */
-
+/* recFanout.c */
+/* share/src/rec $Id$ */
 /* recFanout.c - Record Support Routines for Fanout records */
 /*
  *      Original Author: Bob Dalesio
@@ -44,6 +44,8 @@
  * .13  02-28-92	jba	ANSI C changes
  * .14  07-15-92        jba     changed VALID_ALARM to INVALID alarm
  * .15  07-16-92        jba     added invalid alarm fwd link test and chngd fwd lnk to macro
+ * .16  09-10-92        jba     replaced fetch link selection with call to recGblGetLinkValue
+
  */
 
 #include        <vxWorks.h>
@@ -141,20 +143,8 @@ static long process(pfanout)
     pfanout->pact = TRUE;
 
     /* fetch link selection  */
-    if(pfanout->sell.type == DB_LINK){
-         status=dbGetLink(&(pfanout->sell.value.db_link),(struct dbCommon *)pfanout,DBR_USHORT,
-         &(pfanout->seln),&options,&nRequest);
-         if(status!=0) {
-		recGblSetSevr(pfanout,LINK_ALARM,INVALID_ALARM);
-         }
-    }
-    if (pfanout->sell.type == CA_LINK)
-    {
-	status = dbCaGetLink(&(pfanout->sell));
-         if(status!=0) {
-		recGblSetSevr(pfanout,LINK_ALARM,INVALID_ALARM);
-         }
-    }
+    recGblGetLinkValue(&(pfanout->sell),(void *)pfanout,DBR_USHORT,
+                         &(pfanout->seln),&options,&nRequest);
 
     switch (pfanout->selm){
     case (SELECT_ALL):