| FORMAT CODE |
K IBXDATA N Z,IBZ S Z=0 F S Z=$O(IBXSAVE("OUTPT",Z)) Q:'Z I $P($G(IBXSAVE("OUTPT",Z,"AUX")),U,8)'="" S IBXDATA(Z)=$P(IBXSAVE("OUTPT",Z,"AUX"),U,8),IBZ=$P(IBXSAVE("OUTPT",Z,"AUX"),U,9) S:IBZ="" IBZ=" " S IBXDATA(Z)=IBZ_IBXDATA(Z) |
| FORMAT CODE DESCRIPTION |
This is a group data element so more than 1 occurrence of a value is
Length was also reduced from 80 chars to 61 chars in the field since that
is all the Box 24 shaded area allows for the comment per line item.
possible for the data element in the previously extracted IBXSAVE array.
Only output the data for service lines that have data.
esg - 8/18/06 - IB patch 348 - new CMS 1500 claim form
If the service line comment qualifier doesn't exist, then add 2 blank
spaces in front of the service line comment. If it does exist, then add
it to the front of the comment.
|
