LEGACY UB-92 (617)    IB FORM FIELD CONTENT (364.7)

Name Value
FORM FIELD REFERENCE LEGACY UB-92
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",1)) S IBXDATA=$P(IBXSAVE("PROC",1),U),IBXDATA=$S(IBXDATA["ICPT"!(IBXDATA["ICD0"):$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 first occurrence exists, output the code
referenced by its first '^' piece.