| 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 Q,R,S,Z,IBZ S (Z,R)=0 D F^IBCEF("N-PROCEDURE CODING METHD","IBZ",,IBXIEN) F S Z=$O(IBXSAVE("PROC",Z)) Q:'Z S Q=$$PROC^IBCEF1($P(IBXSAVE("PROC",Z),U),$S(IBZ=9:"ICD",1:"")) S:Q'="" R=R+1,IBXDATA(R)=Q |
| FORMAT CODE DESCRIPTION | Each procedure code found in the IBXSAVE array previously extracted is formatted into the name of the CPT or ICD procedure or the code from the procedure modifier. |