| 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.
|
