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