UB-04 (1382)    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 N Z,Q,R S:$D(IBXSAVE("PROC",6)) IBXDATA=$P(IBXSAVE("PROC",6),U,2) S Z=6 F S Z=$O(IBXSAVE("PROC",Z)) Q:'Z S R=IBXSAVE("PROC",Z),Q=$P(R,U,2) D XPROC^IBCEF3($S(R["ICPT"!(R["ICD0"):$P($$PRCD^IBCEF1(R),U),1:$P(R,U))_U_Q,Z)
FORMAT CODE DESCRIPTION
This data element relies on the existence of the IBXSAVE("PROC") array
previously extracted.  If the sixth occurrence exists, output the date
found in its second '^' piece.