| 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) |