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.

Back to Blog

Related Articles

Print Screens/Reports/Macros/Procedure Logic for NPR Procedures in MEDITECH C/S

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

Print code for $T Macros in Meditech C/S

Steps:

Activate Spy option in Meditech C/S

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