Changeset 829 for cprs/trunk/CPRS-Chart/Orders/fOrdersOnChart.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/fOrdersOnChart.pas (modified) (7 diffs)

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

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fAutoSz, StdCtrls, ORFn, ORCtrls, ExtCtrls;
+  fAutoSz, StdCtrls, ORFn, ORCtrls, ExtCtrls, VA508AccessibilityManager;
 
 type
@@ -34 +34 @@
 
 uses rCore, rOrders, uConst, fOrdersPrint, uOrders, fFrame, UCore,
-  fClinicWardMeds;
+  fClinicWardMeds, rODLab, fRptBox;
 
 const
@@ -47 +47 @@
   SignList: TStringList;
   OrderText: string;
+  AList: TStringList;
 
   function FindOrderText(const AnID: string): string;
@@ -97 +98 @@
               begin
                 OrderText := FindOrderText(Piece(SignList[i], U, 1));
+                if Piece(SignList[i],U,4) = 'Invalid Pharmacy order number' then
+                InfoBox(TX_SAVERR1 + Piece(SignList[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(SignList[i], U, 4) + TX_SAVERR2 + OrderText,
                         TC_SAVERR, MB_OK);
@@ -102 +108 @@
           end;
         StatusText('');
+          //  CQ 10226, PSI-05-048 - advise of auto-change from LC to WC on lab orders
+        AList := TStringList.Create;
+        try
+          CheckForChangeFromLCtoWCOnRelease(AList, Encounter.Location, SignList);
+          if AList.Text <> '' then
+            ReportBox(AList, 'Changed Orders', TRUE);
+        finally
+          AList.Free;
+        end;
         PrintOrdersOnSignRelease(SignList, NO_WRITTEN, PrintLoc);
 //        SetupOrdersPrint(SignList, DeviceInfo, NO_WRITTEN, False, PrintIt);  //*KCM*
@@ -147 +162 @@
     x := FilteredString(Items[Index]);
     AHeight := WrappedTextHeightByFont(Canvas, Font, x, ARect);
-    //if AHeight > 255 then AHeight := 255;
     if AHeight <  13 then AHeight := 15;
   end;
@@ -165 +179 @@
     ARect.Left := ARect.Left + 2;
     Canvas.FillRect(ARect);
-    Canvas.Pen.Color := clSilver;
+    Canvas.Pen.Color := Get508CompliantColor(clSilver);
     SaveColor := Canvas.Brush.Color;
     Canvas.MoveTo(ARect.Left, ARect.Bottom - 1);