| 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("OCC",Z)) Q:'Z S Z0=$$DT^IBCEFG1($P(IBXSAVE("OCC",Z),U,2),"","D8") I Z0'="" D ID^IBCEF2(Z,"OC"_$$M^IBCEF2(.R)) S IBXDATA(Z)=Z0 |
| FORMAT CODE DESCRIPTION | Each occurrence code date found in the IBXSAVE array previously extracted is formatted into CCYYMMDD date format and is output on its own OCn 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 code record correctly. This is done to accommodate Austin's translator and one of its shortcomings. |