| FORMAT CODE |
K IBXSAVE("OINUM") S IBXDATA="" I $O(IBXDATA("")) N C,Z,Z0 S C=$$OTHINS1^IBCEF2(IBXIEN),Z=$G(IBXDATA(1)) K IBXDATA I $E(C) S IBXDATA=$S($$MCRWNR^IBEFUNC(+$G(^DGCR(399,IBXIEN,"I"_$E(C)))):"MEDICARE",$P(Z,U,2):$P($G(^DIC(36,+Z,0)),U),1:$P(Z,U)) |
| FORMAT CODE DESCRIPTION |
Use the first occurrence of other insured group name. The first '^' piece
of this value has either the group name or the insurance company pointer.
If the second '^' piece is a 1, the insurance company name is extracted
using the insurance company pointer in the first '^' piece, otherwise, the
name in the first '^' piece is output.
MEDICARE WNR always outputs MEDICARE.
|
