| EXTRACT CODE |
N IBSUB,IBXSAVE,Z S IBSUB=$S('$G(^TMP("IBTX",$J,IBIFN)):"BOX24",1:"OUTPT") D B24^IBCEF3(.IBXSAVE,IBXIEN) K IBXDATA S (IBXDATA,Z)=0 F S Z=$O(IBXSAVE(IBSUB,Z)) Q:'Z S IBXDATA=IBXDATA+$P(IBXSAVE(IBSUB,Z),U,11) |
| DESCRIPTION |
Data element created for IB patch 371. This data element will work for
The returned value is not formatted in any way. It is just a number with
or without a decimal point. For example, 86.33, 17, 176.69, 4, etc.
either the printed 1500 form or the EDI extract.
EDI usage: SUB-7
print usage: CMS-1500, box 20
It calculates the total purchased service charge amount by totalling up
all purchased service charges from all line items on the claim. No checks
are made for outside facility or lab or non-lab or anything else.
|
