| FORMAT CODE |
K IBXDATA N Z,Z0,Q S IBXNOREQ=$$NFT^IBCEF1(2,IBXIEN),Z=0 F S Z=$O(IBXSAVE("OUTPT",Z)) Q:'Z S Z0=$P(IBXSAVE("OUTPT",Z),U,4),Q=$S(Z0'=7:9,1:12) S:$P(IBXSAVE("OUTPT",Z),U,Q)'="" IBXDATA(Z)=$P(IBXSAVE("OUTPT",Z),U,Q) S:IBXDATA(Z)<1 IBXDATA(Z)=1 |
| FORMAT CODE DESCRIPTION |
This is a group data element so more than 1 occurrence of a value is
possible for the data element in the previously extracted IBXSAVE array. If
any service line data is found, the data is output.
If the type of service is not 7 (anesthesia), the units are output. If the
type of service is anesthesia, the anesthesia minutes are output. If the #
of units is less than 1, 1 is the default.
|
