| 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,VC80 N R,VZ,Z,Z0 S (Z,R)=0,VC80=$$VC80CK^IBCEF2(IBIFN) F S Z=$O(IBXSAVE("VALUE",Z)) Q:'Z S VZ=IBXSAVE("VALUE",Z) S:+VC80 IBXSV("VC80",Z)=VZ S Z0=$P(VZ,U) I Z0'="" S IBXDATA(Z)=Z0 D ID^IBCEF2(Z,"VC"_$$M^IBCEF2(.R)) |
| FORMAT CODE DESCRIPTION | Each value code found in the IBXSAVE array previously extracted is output on its own VCn entry where n is a record count that will allow it to be mapped into one of the 12 available pieces of the 837 value code record correctly. This is done to accommodate Austin's translator and one of its shortcomings. |