Changeset 829 for cprs/trunk/CPRS-Chart/Orders/fODReleaseEvent.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Orders/fODReleaseEvent.pas (modified) (6 diffs)

cprs/trunk/CPRS-Chart/Orders/fODReleaseEvent.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ExtCtrls, ORFn, CheckLst, ORCtrls, fAutoSz;
+  StdCtrls, ExtCtrls, ORFn, CheckLst, ORCtrls, fAutoSz, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmOrdersReleaseEvent = class(TForm)
+  TfrmOrdersReleaseEvent = class(TfrmBase508Form)
     pnlMiddle: TPanel;
     pnlBottom: TPanel;
@@ -44 +45 @@
 {$R *.DFM}
 
-uses rCore, rOrders, uConst, fOrdersPrint, uCore, uOrders, fOrders;
+uses rCore, rOrders, uConst, fOrdersPrint, uCore, uOrders, fOrders, rODLab, fRptBox,
+  VAUtils;
+
 const
   TX_SAVERR1 = 'The error, ';
@@ -60 +63 @@
   OrderText, LastCheckedPtEvt, SpeCap: string;
   frmOrdersReleaseEvent: TfrmOrdersReleaseEvent;
+  AList: TStringList;
 
   function FindOrderText(const AnID: string): string;
@@ -119 +123 @@
         begin
           OrderText := FindOrderText(Piece(OrdersLst[i], U, 1));
-          InfoBox(TX_SAVERR1 + Piece(OrdersLst[i], U, 4) + TX_SAVERR2 + OrderText,TC_SAVERR, MB_OK);
+          if Piece(OrdersLst[i],U,4) = 'Invalid Pharmacy order number' then
+          InfoBox(TX_SAVERR1 + Piece(OrdersLst[i], U, 4) + TX_SAVERR2 + OrderText + CRLF + CRLF +
+                  'The changes to this order have not been saved.  You must contact Pharmacy to complete any action on this order.',
+                  TC_SAVERR, MB_OK)
+          else
+          InfoBox(TX_SAVERR1 + Piece(OrdersLst[i], U, 4) + TX_SAVERR2 + OrderText,
+                  TC_SAVERR, MB_OK);
         end;
+      end;
+      //  CQ 10226, PSI-05-048 - advise of auto-change from LC to WC on lab orders
+      AList := TStringList.Create;
+      try
+        CheckForChangeFromLCtoWCOnRelease(AList, Encounter.Location, OrdersLst);
+        if AList.Text <> '' then
+          ReportBox(AList, 'Changed Orders', TRUE);
+      finally
+        AList.Free;
       end;
       PrintOrdersOnSignRelease(OrdersLst, NO_PROVIDER);
@@ -194 +213 @@
   if not beSelected then
   begin
-    ShowMessage('You have to select at least one order!');
+    ShowMsg('You have to select at least one order!');
     Exit;
   end;
@@ -238 +257 @@
   begin
     Canvas.FillRect(ARect);
-    Canvas.Pen.Color := clSilver;
+    Canvas.Pen.Color := Get508CompliantColor(clSilver);
     Canvas.MoveTo(0, ARect.Bottom - 1);
     Canvas.LineTo(ARect.Right, ARect.Bottom - 1);