Crossing applications without using a fragment

This example is written in ABS.PAT.main, and shows how to pull data from BAR.PAT.top (Meditech C/S).

Create a macro named “d” like so:

@SETUP.BAR.INDEX,
END

SETUP.BAR.INDEX
@account.number^BAR.PAT.number^ABS,
DO{@Next(BAR.PAT.account,BAR.PAT.number.x) .,
@BAR.PAT.account^BAR.PAT.account,
@DO.BAR.STUFF}

DO.BAR.STUFF
;blah
;blah

I set the BAR.PAT.number as the @account.number. A loop lets me use an index of choice — in this case BAR.PAT.number.x. Since that index’s first subscript is number, and I just set it in the previous step, NPR immediately finds that record, sets the BAR.PAT.account subscript, and then allows you to DO.BAR.STUFF.

Enter the following Footnotes:

AL START %Z.rw.fragment(”",”BAR.KIC”)
AL D d

The bogus fragment call simply opens a connection to BAR.DB.