| Name | Value |
|---|---|
| FORM FIELD REFERENCE | LEGACY HCFA-1500 |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| DATA ELEMENT | N-HCFA 1500 PROCEDURES |
| PAD CHARACTER | NO PAD REQUIRED |
| FORMAT CODE | N IBZ,IBZ1,Z,Q M IBZ=IBXDATA K IBXDATA D TEXT24^IBCEU3("D1",.IBXSAVE,.IBXDATA) M IBZ1=IBXDATA K IBXDATA S Z=0 F S Z=$O(IBZ(Z)) Q:'Z S Q=$J(IBZ(Z),6)_" "_$TR($G(IBZ1(Z)),",") S:Z'>12 IBXDATA(Z)=Q I Z>12 D PG^IBCEF3(Q,Z) |
| FORMAT CODE DESCRIPTION | If more than 6 service dates (12 lines) exists for the bill, this outputs the rest on additional bill pages. |