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)