UB-04 (1459)    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 CCU,IBI,Z S (IBI,Z)=0 M CCU=IBXSAVE("CCU") K IBXDATA,IBXSAVE("CCU") F S Z=$O(CCU(Z)) Q:Z="" S IBI=IBI+1,IBXSAVE("CC",IBI)=$E(Z,2,99)