January 10, 2022

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.

Topics: Report Writing, NPR Report

You Might Also Enjoy

Select the Report DPM NPR.PROC Enter a report name (any name you like) Page 1 will need a ...

Steps: Select the Report DPM NPR.DOLT Enter a report name (any name you like) Page 1 will ...

You can modify your report so that everything that prints is sent to your Windows ...

The Footnote FD (Field Delimiter) requires you to enter the ASCII code for a keystroke. ...

Meditech's C/S software has a nice function for "spying" on your own "job". If you are ...