| 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 |
| REQUIRED | NO |
| FORMAT CODE | N DATA,NODE,Z K IBXDATA S Z=0 F NODE="U5","U6" S DATA=$G(IBXSAVE("AMB",NODE)) I $L(DATA) S Z=Z+1,IBXDATA(Z)=$S(NODE="U5":"PW",1:45) D:Z>1 ID^IBCEF2(Z,"AMB") |