| Name | Value |
|---|---|
| FORM FIELD REFERENCE | IB 837 TRANSMISSION |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| DATA ELEMENT | N-GET FROM PREVIOUS EXTRACT |
| PAD CHARACTER | NO PAD REQUIRED |
| FORMAT CODE | K IBXDATA N Z,Z0,Z1,Z2 S Z=0 F S Z=$O(IBXSAVE("PROC",Z)) Q:'Z S Z0=$O(IBXSAVE("PROC",Z),-1),Z1=IBXSAVE("PROC",Z),Z2=$S(Z1["ICD":$$ICD0VER^IBACSV(+Z1),1:0) S IBXDATA(Z)=$S('Z0:$S(Z1["CPT":"BP",Z2=2:"BR",1:"BBR"),Z1["CPT":"BO",Z2=2:"BQ",1:"BBQ") |
| FORMAT CODE DESCRIPTION | If there are any procedures (not relating to charges) on the bill, output the type of procedure here: BR = principal procedure and is an ICD code BQ = not principal procedure, but is an ICD code |