Changeset 830 for cprs/trunk/CPRS-Chart/rCover.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/rCover.pas (modified) (14 diffs)

cprs/trunk/CPRS-Chart/rCover.pas

@@ -124 +124 @@
 begin
   CallV('ORWCV1 COVERSHEET LIST', [nil]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -176 +176 @@
   MixedCaseList(Src);
   if Src.Count = 0 then Src.Add('0^No active medications found');
-  Dest.Assign(Src);
+  FastAssign(Src, Dest);
 end;
 
@@ -198 +198 @@
           SetListFMDateTime('mmm dd,yy', TStringList(RPCBrokerV.Results), U, 3, TRUE);
         end;
-      Dest.Assign(RPCBrokerV.Results);
+        FastAssign(RPCBrokerV.Results, Dest);
       exit;
     end;
@@ -214 +214 @@
       ExtractActiveMeds(TStringList(tmplist), TStringList(RPCBrokerV.Results))
     else
-      tmpList.Assign(RPCBrokerV.Results);
+      FastAssign(RPCBrokerV.Results, tmpList);
     if ACase = TRUE then MixedCaseList(tmplist);
     if AID = '10' then for i := 0 to tmplist.Count - 1 do    // capitalize SC exposures for problems
@@ -241 +241 @@
           end;
       end;
-    Dest.Assign(tmplist);
+    FastAssign(tmplist, Dest);
   finally
     tmplist.Free;
@@ -257 +257 @@
   CallV('ORQQPL LIST', [Patient.DFN, ACTIVE_PROBLEMS]);
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
   for i := 0 to Dest.Count - 1 do
     begin
@@ -273 +273 @@
   CallV('ORQQAL LIST', [Patient.DFN]);
   MixedCaseList(RPCBrokerV.Results);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -283 +283 @@
     MixedCaseList(Results);
     SetListFMDateTime('mmm dd,yy', TStringList(Results), U, 3);
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
 end;
@@ -299 +299 @@
     end;
 //    MixedCaseList(Results);
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
 end;
@@ -316 +316 @@
     MixedCaseList(Results);
     SetListFMDateTime('mmm dd,yy', TStringList(Results), U, 3);
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
 end;
@@ -327 +327 @@
     SetListFMDateTime('mmm dd,yy', TStringList(Results), U, 4);
     if Results.Count = 0 then Results.Add('0^No vitals found');
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
 end;
@@ -339 +339 @@
     MixedCaseList(Results);
     SetListFMDateTime('mmm dd,yy hh:nn', TStringList(Results), U, 2);
-    Dest.Assign(Results);
+    FastAssign(Results, Dest);
   end;
 end;
@@ -387 +387 @@
     if tmplst.Count = 0 then
       tmplst.Add(NoDataText(SectionID = 'RMND'));
-    DestList.Assign(tmplst);
+    FastAssign(tmplst, DestList);
   end;
 
@@ -427 +427 @@
 begin
   CallV('ORWPT PTINQ', [Patient.DFN]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;