Name | Value |
---|---|
FORM FIELD REFERENCE | LEGACY UB-92 |
SECURITY LEVEL | NATIONAL,NO EDIT |
DATA ELEMENT | N-GET FROM PREVIOUS EXTRACT |
PAD CHARACTER | NO PAD REQUIRED |
FORMAT CODE | N Z,Z0,Z1 F Z=1:1 Q:'$D(^TMP($J,"IBC-RC",Z)) S Z1=^(Z),Z0=$S(+Z1=1:" "_$P(Z1,U,6),+Z1=2:$E($P(Z1,U,2),48,53),1:$E($P(Z1,U,2),43,48)) S:Z'>21 IBXDATA(Z)=Z0 D:Z'<21 CKREV^IBCEF3(Z,Z0) |
FORMAT CODE DESCRIPTION | This data element is a group data element where more than one occurrence field is extracted from positions 43-48. 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. 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 sixth '^' piece of the array and is formmatted preceeded by a space. For text line where the first piece = 2, the text is assumed to start in column 1, so the data is extracted from positions 48-53. For text line where the first piece = 3, the text is assumed to start in column 6, so the data for this |