UB-04 (1377)    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",4)) S IBXDATA=$P(IBXSAVE("PROC",4),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 fourth occurrence exists, output the code
referenced by its first '^' piece.