N IBI,IBX,IBY S (IBI,IBX)=0 F S IBX=$O(^DGCR(399,IBXIEN,"CC",IBX)) Q:'IBX S IBY=+$G(^(IBX,0)),IBY=$P($G(^DGCR(399.1,+IBY,0)),U,2) I IBY'="" S IBI=IBI+1,IBFL(24,IBI)=IBY
ARRAY ROOT
IBFL(24)
DESCRIPTION
The condition codes 0-nodes for bill IBXIEN.
Data (external) is returned in an array IBFL(24,1-n).
