Print code for $T Programs in Meditech C/S

1. Select the Report DPM NPR.DOLT
2. Enter a report name (any name you like)
3. Page 1 will just need a Report Title and the Active field set to Y, and set Page Banner to NONE
4. Add the following Footnotes:
   AL START start
   SFF NO
   EFF NO
   PFF NO
5. File and translate your report
6. Add a macro called start with the following code:
   ""^NPR.DOLT.program.name,
DO{@Next(NPR.DOLT.program.name) IF{NPR.DOLT.program.name="IPL";
1^/DOLT,
NPR.DOLT.program.name^c.procedure.urn,
%NPR.PROC.list.logic.M.compile(""),
I("PROGRAM: "_c.procedure.urn)N^!,
""^X,
DO{+/R.MV["D",X]^X I(/R.MV["D",X,10])N^!},
""^X,
DO{@Add(1,X)'>3 N("")^!}}}
7. File and translate your macro and then retranslate your report again

The code for the program IPL does not print via this report. I have found that the NPR.PROC.list.logic.M.compile macro crashes when printing the IPL program.