| Name | Value |
|---|---|
| NAME | N-CMS-1500 PURCH SVC TOTAL |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| TYPE OF ELEMENT | EXTRACTED VIA CODE |
| ELEMENT CATEGORY | INDIVIDUAL ELEMENT |
| BASE FILE | BILL/CLAIMS |
| 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. |