PRCOSRV8 ;WISC/DJM-FILE 423.5 FIELD .01 UPDATE ;7/13/94  9:58 AM
V ;;5.0;IFCAP;;4/21/95
UPDATE ;ALL ENTRIES WITHOUT A '-' IN FILE 423.5 WILL BE CHANGED TO INCLUDE 'IFC-'BEFORE THE TRANSACTION CODE.  THE "B" X-REF WILL ALSO BE UPDATED.
 N A,X
 K ^PRCF(423.5,"B") S X=0
 F  S X=$O(^PRCF(423.5,X)) Q:X'>0  D
 .S A=^PRCF(423.5,X,0)
 .D:A'["-"
 ..S A="IFC-"_A,^PRCF(423.5,X,0)=A
 ..Q
 .S ^PRCF(423.5,"B",$P(A,"^"),X)=""
 .Q
 Q