Name | Value |
---|---|
FORM FIELD REFERENCE | IB 837 TRANSMISSION |
SECURITY LEVEL | NATIONAL,NO EDIT |
DATA ELEMENT | N-HCFA 1500 SERVICE LINE (EDI) |
PAD CHARACTER | NO PAD REQUIRED |
FORMAT CODE | N A,Z,Q,IBZ K IBXSAVE("OUTPT") D SET1^IBCEF1(IBXIEN,.A,.IBZ,.IBXDATA,.IBXNOREQ) S Z=0,Q=$G(@A) F S Z=$O(IBZ(Z)) S:'Z @A=Q Q:'Z M IBXSAVE("OUTPT",Z)=IBZ(Z) S Q=Q+1,IBXDATA(Z)=Q D:Z>1 ID^IBCEF2(Z,"PRF ") D SVITM^IBCEF2(.IBXSAVE,Z) |
FORMAT CODE DESCRIPTION | ^TMP($J,"IBLCT") keeps track of the last service line # output. Data element is a group data element so multiple ocuurences of the data element are possible in the IBXDATA array. Save the data in the IBXSAVE array for later use. For every service line > 1, output the PRF record id. |