Changeset 1693 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fODAuto.pas

Timestamp:

May 8, 2015, 7:52:55 AM (9 years ago)

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fODAuto.pas (modified) (2 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fODAuto.pas

@@ -61 +61 @@
       CheckBoilerplate4Fields(tmp, cptn);
 
+
+      if WasTemplateDialogCanceled then AnErrMsg := 'The Auto-Accept Quick Order cannot be saved since the template was cancelled.';
+
     if tmp <> '' then
       Responses.Update('COMMENT', 1, TX_WPTYPE, tmp)
@@ -87 +90 @@
   IdentifyDialog(DialogNames, DialogIEN);
   Responses.Dialog := DialogNames.BaseName;                      // loads formatting info
+  Responses.DialogDisplayName := DialogNames.Display;
   StatusText('');
 end;