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

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

@@ -6 +6 @@
   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
   Forms, Dialogs, StdCtrls, ORCtrls, ORfn, fODBase, ExtCtrls, ComCtrls, uConst,
-  ORDtTm, Buttons, Menus;
+  ORDtTm, Buttons, Menus, VA508AccessibilityManager;
 
 type
@@ -106 +106 @@
     FEvtDivision: integer;
     procedure ReadServerVariables;
+    procedure DisplayChangedOrders(ACollType: string);
   public
     procedure SetupDialog(OrderAction: Integer; const ID: string); override;
@@ -240 +241 @@
       EvtDivision := StrToIntDef(GetEventDiv1(IntToStr(Self.EvtID)),0);
       if EvtDelayLoc>0 then
-        AList.Assign(ODForLab(EvtDelayLoc,EvtDivision))
+        FastAssign(ODForLab(EvtDelayLoc, EvtDivision), AList)
       else
-        AList.Assign(ODForLab(Encounter.Location,EvtDivision));
+        FastAssign(ODForLab(Encounter.Location, EvtDivision), AList);
     end else
-      AList.Assign(ODForLab(Encounter.Location)); // ODForLab returns TStrings with defaults
+      FastAssign(ODForLab(Encounter.Location), AList); // ODForLab returns TStrings with defaults
     CtrlInits.LoadDefaults(AList);
     InitDialog;
@@ -457 +458 @@
           OneSamp := TStringList.Create;
           try
-            OneSamp.Assign(GetOneCollSamp(StrToInt(LRFSAMP)));
+            FastAssign(GetOneCollSamp(StrToInt(LRFSAMP)), OneSamp);
             FillCollSampList(OneSamp, CollSampList.Count);
           finally
@@ -651 +652 @@
     begin
       if SpecimenList.Count = 0 then LoadSpecimens(SpecimenList) ;
-      AComboBox.Items.Assign(SpecimenList);
+      FastAssign(SpecimenList, AComboBox.Items);
       AComboBox.Items.Add('0^Other...');
       with QuickOrderResponses do tmpResp := FindResponseByName('SPECIMEN'  ,1);
@@ -902 +903 @@
   Days, MsgTxt: Double;
   x: string;
+  ACollType: string;
 const
   TX_NO_TIME        = 'Collection Time is required.' ;
@@ -1126 +1128 @@
         end;
     end;
+
+  if (AnErrMsg <> '') or (Self.EvtID > 0) then exit;
+    
+  // add check and display for auto-change from LC to WC - v27.1 - CQ #10226
+  ACollType := Responses.FindResponseByName('COLLECT', 1).EValue;
+  if ((ACollType = 'LC') or (ACollType = 'I')) then DisplayChangedOrders(ACollType);
+end;
+
+procedure TfrmODLab.DisplayChangedOrders(ACollType: string);
+var
+  AStartDate, ASchedule, ADuration: string;
+  ChangedOrdersList, AList: TStringlist;
+  i, j, k: integer;
+begin
+  ChangedOrdersList := TStringList.Create;
+  try
+    AStartDate := Responses.FindResponseByName('START', 1).IValue;
+    ASchedule  := Responses.FindResponseByName('SCHEDULE', 1).IValue;
+    if txtDays.Enabled then ADuration := Responses.FindResponseByName('DAYS', 1).EValue else ADuration := '';
+    CheckForChangeFromLCtoWCOnAccept(ChangedOrdersList, Encounter.Location, AStartDate, ACollType, ASchedule, ADuration);
+    if ChangedOrdersList.Text <> '' then
+    begin
+      AList := TStringList.Create;
+      try
+        AList.Text := Responses.OrderText;
+        with ChangedOrdersList do
+        begin
+          Insert(5, 'Order   :' + #9 + AList[0]);
+          k := Length(ChangedOrdersList[5]);
+          i := 0;
+          if AList.Count > 1 then
+            for j := 1 to AList.Count - 1 do
+            begin
+              Insert(5 + j, StringOfChar(' ', 9) + #9 + AList[j]);
+              k := HigherOf(k, Length(ChangedOrdersList[5 + j]));
+              i := j;
+            end;
+          Insert(5 + i + 1, StringOfChar('-', k + 4));
+        end;
+        ReportBox(ChangedOrdersList, 'Changed Orders', TRUE);
+      finally
+        AList.Free;
+      end;
+    end;
+  finally
+    ChangedOrdersList.Free;
+  end;
 end;