| 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,R S (Z,Z1,R)=0 F S Z=$O(IBXSAVE("PROC",Z)) Q:'Z S Z0=$$DT^IBCEFG1($P(IBXSAVE("PROC",Z),U,2),"","D8") I Z0'="" S Z1=Z1+1,IBXDATA(Z1)=Z0 D ID^IBCEF2(Z1,"PC"_$$M^IBCEF2(.R)) |
| FORMAT CODE DESCRIPTION | Each procedure date found in the IBXSAVE array previously extracted is formatted into CCYYMMDD date format and is output on its own PCn entry where n is a record count that will allow it to be mapped into one of the 12 available pieces of the 837 procedure code record correctly. This is done to accommodate Austin's translator and one of its shortcomings. |