Name | Value |
---|---|
NAME | N-VALUE CODES |
SECURITY LEVEL | NATIONAL,NO EDIT |
TYPE OF ELEMENT | EXTRACTED VIA CODE |
ELEMENT CATEGORY | GROUP ELEMENT |
BASE FILE | BILL/CLAIMS |
EXTRACT CODE | N IBI,IBX,Z,Z0 S (IBI,IBX)=0 F S IBX=$O(^DGCR(399,IBXIEN,"CV",IBX)) Q:'IBX S Z=$G(^(IBX,0)),Z0=$G(^DGCR(399.1,+Z,0)) I Z0'="" S IBI=IBI+1,IBFL(39,IBI)=$P(Z0,U,2)_U_$P(Z,U,2)_U_$P(Z0,U,12)_U_+Z |
ARRAY ROOT | IBFL(39) |
DESCRIPTION | The value codes associated with bill IBXIEN. Format is code^amount^dollar amt flag (1=amt,0=quantity)^IEN to 399.1 Data is returned in an array IBFL(39,1-n). |