| FORMAT CODE |
N Z,Q,R F Z=1:1 Q:'$D(^TMP($J,"IBC-RC",Z)) S R=^(Z),Q=$S(+R=1:$P(R,U,2),+R=2:$E($P(R,U,2),1,5),1:"") S:Z'>21 IBXDATA(Z)=Q D:Z>21 CKREV^IBCEF3(Z,Q) I '$O(^TMP($J,"IBC-RC",Z)),Z>23 D FILL^IBCEF3(Z) |
| FORMAT CODE DESCRIPTION |
This data element is a group data element where more than one occurrence
Since only 23 lines of service line can appear on one form, if there
are more than 23 lines, subsequent pages are forced for the remaining data
lines after 23. Since the page number must print on line 23 for multi-page
bills, the FILL^IBCEF3 call places the page number text on the last line of
the last page.
might be expected. It relies on the presence of data in array
IBXSAVE("REV",n) extracted previously. The first '^' piece of the array
indicates whether this is a 'normal' service data line (=1) or a text line
(=2 or =3). For a normal service line, the data is found in the second '^'
piece of the array. For text line where the first piece = 2, the text is
assumed to start in column 1, so the data is extracted from positions 1-5.
For text line where the first piece = 3, the text is assumed to start in
column 6, so there is no data extracted for this field.
|
