UB-04 (1381)    IB FORM FIELD CONTENT (364.7)

Name Value
FORM FIELD REFERENCE UB-04
SECURITY LEVEL NATIONAL,NO EDIT
DATA ELEMENT N-GET FROM PREVIOUS EXTRACT
PAD CHARACTER NO PAD REQUIRED
FORMAT CODE K IBXDATA I $D(IBXSAVE("PROC",6)) S IBXDATA=$P(IBXSAVE("PROC",6),U),IBXDATA=$S(IBXDATA["ICD0"!(IBXDATA["ICPT"):$P($$PRCD^IBCEF1(IBXDATA),U),1:IBXDATA)
FORMAT CODE DESCRIPTION
This data element relies on the existence of the IBXSAVE("PROC") array
previously extracted.  If the sixth occurrence exists, output the code
referenced by its first '^' piece.