K IBXDATA N Z S Z=0 F S Z=$O(IBXSAVE("OUTPT",Z)) Q:'Z I $P(IBXSAVE("OUTPT",Z),U,15)'="" S IBXDATA(Z)=$P(IBXSAVE("OUTPT",Z),U,15)
FORMAT CODE DESCRIPTION
esg - 8/18/06 - IB patch 348 - New CMS-1500 claim form project
Box 24K no longer exists on the 1500 form. Austin FSC was not mapping
this field to anything anyway.