July 11, 2022

How to Send Emails from a CDS for MEDITECH CS Customers

You can send emails from a CDS in CS but you must have the Meditech Parameters set up to use either SMTP or MAPI protocols. Here are the steps for sending an email if you have these parameters set up:
  1. Create an NPR Report called MIS.USER.zcus.ip.email with any Report Title you like and set Active Y.  Then File and Translate the Report.  You can name the report whatever you like, just make sure to note of the name.
  2. Create a Macro called email with the following code:

    "TO USER"^TO,
       IF{MAPI '@UNV.USER.mail.address.data[FROM];
       IF{IF{SMTP IF{"Y"=@MIS.USER.mail.receive[TO] %MIS.USER.mail.address[TO]}^X} @GET.SMTP.RECIPIENT;
          IF{MAPI @UNV.USER.mail.address.data[TO]} @GET.MAPI.RECIPIENT},
       IF{MAPI "";@MIS.USER.mail.address[FROM];FROM}^FROM,
       %Z.mail(^/MSG,"RAF",^RCP,"SUBJECT LINE","",FROM)^X_.=. @W.return("EMail sent!");
       @W.err("Could not send EMail:",X)};

    "LINE 1"_@Z.cr.lf^/MSG[1],
    "LINE 2"_@Z.cr.lf^/MSG[2],
    "LINE 3"_@Z.cr.lf^/MSG[3]



  3. Replace "TO USER" with the mnemonic of the user from your MIS USER Dictionary.  Replace "FROM USER" with the mnemonic of the user from your MIS USER Dictionary.   Modify the code in the Local Macro ADD.HEADER.TO.MAIL to show whatever text you want in the email.

  4. File and Translate the Macro.
  5. Add an Attribute to your CDS Query that looks like this:

    FCL1=IF{@.response="Y" %MIS.USER.zcus.ip.email.M.email("")}

    So if the response to the Query is Y, then the Report Macro 'email' from the Report MIS.USER.zcus.email will be executed.  This Report Macro will create and send your email.

Topics: MEDITECH, NPR Report

You Might Also Enjoy

You can use the following steps to write data to your Windows clipboard from an NPR ...

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

Create an NPR Report to produce a downloaded file and add the following Footnote: AL ...

Command-Line Arguments can be passed in with your call to the Meditech Remote ...

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