MEDITECH Reports

ABS.PAT Dxs

 Email Article |  Twitter |  digg it |   delicious |   StumbleUpon |   LinkedIn |   Technorati |  reddit 

abs.pat.dxs[urn, dx.seq.no]
:DZ[dz]D["DX",dzDXN]

Field Name Offset/Local/VAL
dx.seq.no dzDXN
dx :DZ[dz]D["DX",dzDXN]|0

To hard code and print 10 dxs side by side from the ABS.PAT.main segment define your VAL statements in your fields as follows.

NPR DX Field 1:
VAL=IF{""^dx.seq.no,@Next(dx.seq.no) @dx;""}

NPR DX Fields 2 - 10:
VAL=IF{@dx.seq.no @Next(dx.seq.no),@dx;""}