| EXTRACT CODE |
N Z,Z0 S IBXDATA="",Z0=$S('$G(^TMP("IBTX",$J,IBXIEN)):"BOX24",1:"OUTPT") D:'$D(IBXSAVE(Z0)) B24^IBCEF3(.IBXSAVE,IBXIEN) S Z=0 F S Z=$O(IBXSAVE(Z0,Z)) Q:'Z S IBXDATA(Z)=$P(IBXSAVE(Z0,Z),U,10) |
| DESCRIPTION |
Data element relies on the data previously extracted in array
IBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of
modifiers for each procedure being billed in IBXDATA(n).
Since each procedure has 2 lines of data, if there is a text line present
for a procedure (IBXSAVE("BOX24",n,"TEXT") is defined), the data is
returned on the upper line and the characters 7-16 of the text are
returned on the bottom line. If there is no text, the upper line is
returned as null and the data extracted is returned on the second line.
|
