N Z,NVA,TYP S NVA=+$P($G(^DGCR(399,IBXIEN,"U2")),U,10),TYP="" S:NVA TYP=77 K IBXDATA S Z=0 F S Z=$O(IBXSAVE("LAB/FAC",IBXIEN,"O",Z)) Q:'Z I $O(IBXSAVE("LAB/FAC",IBXIEN,"O",Z,0)) S IBXDATA(Z)=TYP
FORMAT CODE DESCRIPTION
OP7-3
Determine if there is a non-VA facility on the claim. If so, type is 77
regardless of what is on file.