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

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

@@ -117 +117 @@
 begin
   CallV('ORWDFH TFPROD', [nil]);
-  Dest.AddStrings(RPCBrokerV.Results);
+  FastAddStrings(RPCBrokerV.Results, Dest);
 end;
 
@@ -161 +161 @@
 begin
   CallV('ORWDFH ISOLIST', [nil]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -167 +167 @@
 begin
   CallV('ORWDXQ GETQLST', [GroupID, 'Q']);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -203 +203 @@
 begin
   CallV('ORWDFH CURRENT MEALS', [Patient.DFN, MealType]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
   MixedCaseList(Dest);
 end;