D:'$D(IBXSAVE("PRV-82")) BOX82NM^IBCEU4(IBXIEN,.IBXSAVE) K IBXDATA S IBXDATA=$E($G(IBXSAVE("PRV-82",4)),1,30+$G(^TMP("IBXSAVE",$J,"RM")))
FORMAT CODE DESCRIPTION
If not already done, extract all the possible providers into the
appropriate line for box 82 on the UB-92 print claim form. This is the
fourth line extracted.