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

cprs/trunk/CPRS-Chart/Consults/rConsults.pas

@@ -285 +285 @@
            Results[i] := x;
          end;
-       Dest.Assign(Results);
+       FastAssign(Results, Dest);
      end
     else
@@ -299 +299 @@
 begin
   CallV('ORQQCN DETAIL', [IEN]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -306 +306 @@
 begin
   CallV('ORQQCN MED RESULTS', [IEN]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -327 +327 @@
   alist := TStringList.Create ;
  try
-  alist.Assign(RPCBrokerV.Results) ;
+  FastAssign(RPCBrokerV.Results, aList);
   x := alist[0] ;
   if Piece(x,u,1) <> '-1' then
@@ -459 +459 @@
 begin
   CallV('ORQQCN RECEIVE', [IEN, ReceivedBy, RcptDate, Comments]);
-  Dest.Assign(RPCBrokerV.Results);   {1^Error message' or '0'}
+  FastAssign(RPCBrokerV.Results, Dest);   {1^Error message' or '0'}
 end;
 
@@ -466 +466 @@
 begin
   CallV('ORQQCN2 SCHEDULE CONSULT', [IEN, ScheduledBy, SchdDate, Alert, AlertTo, Comments]);
-  Dest.Assign(RPCBrokerV.Results);   {1^Error message' or '0'}
+  FastAssign(RPCBrokerV.Results, Dest);   {1^Error message' or '0'}
 end;
 
@@ -473 +473 @@
 begin
   CallV('ORQQCN DISCONTINUE', [IEN, DeniedBy, DenialDate,'DY',Comments]);
-  Dest.Assign(RPCBrokerV.Results);   {1^Error message' or '0'}
+  FastAssign(RPCBrokerV.Results, Dest);   {1^Error message' or '0'}
 end;
 
@@ -480 +480 @@
 begin
   CallV('ORQQCN DISCONTINUE', [IEN, DiscontinuedBy, DiscontinueDate,'DC',Comments]);
-  Dest.Assign(RPCBrokerV.Results);   {1^Error message' or '0'}
+  FastAssign(RPCBrokerV.Results, Dest);   {1^Error message' or '0'}
 end;
 
@@ -486 +486 @@
      ActionDate: TFMDateTime; Comments: TStrings);
 begin
-     CallV('ORQQCN FORWARD', [IEN, ToService, Forwarder, AttentionOf, Urgency, ActionDate, Comments]);
-     Dest.Assign(RPCBrokerV.Results);   {1^Error message' or '0'}
+  CallV('ORQQCN FORWARD', [IEN, ToService, Forwarder, AttentionOf, Urgency, ActionDate, Comments]);
+  FastAssign(RPCBrokerV.Results, Dest);   {1^Error message' or '0'}
 end ;
 
@@ -493 +493 @@
 AlertTo: string) ;
 begin
-     CallV('ORQQCN ADDCMT', [IEN, Comments, Alert, AlertTo, ActionDate]);
-     Dest.Assign(RPCBrokerV.Results);   {1^Error message' or '0'}
+  CallV('ORQQCN ADDCMT', [IEN, Comments, Alert, AlertTo, ActionDate]);
+  FastAssign(RPCBrokerV.Results, Dest);   {1^Error message' or '0'}
 end ;
 
@@ -500 +500 @@
           RespProv: Int64; ActionDate: TFMDateTime; Alert: integer; AlertTo: string) ;
 begin
-     CallV('ORQQCN ADMIN COMPLETE', [IEN, SigFindingsFlag, Comments, RespProv, Alert, AlertTo, ActionDate]);
-     Dest.Assign(RPCBrokerV.Results);   {1^Error message' or '0'}
+  CallV('ORQQCN ADMIN COMPLETE', [IEN, SigFindingsFlag, Comments, RespProv, Alert, AlertTo, ActionDate]);
+  FastAssign(RPCBrokerV.Results, Dest);   {1^Error message' or '0'}
 end ;
 
@@ -507 +507 @@
 AlertTo: string) ;
 begin
-     CallV('ORQQCN SIGFIND', [IEN, SigFindingsFlag, Comments, Alert, AlertTo, ActionDate]);
-     Dest.Assign(RPCBrokerV.Results);   {1^Error message' or '0'}
+  CallV('ORQQCN SIGFIND', [IEN, SigFindingsFlag, Comments, Alert, AlertTo, ActionDate]);
+  FastAssign(RPCBrokerV.Results, Dest);   {1^Error message' or '0'}
 end ;
 
@@ -831 +831 @@
       ClinProcDateTime := StrToFMDateTime(Piece(x, U, 4));
       Title := StrToIntDef(Piece(x, U, 5), 0);
+      DateTime := StrToFloatDef(Piece(x, U, 6), 0);
     end;
   Result := AnEditRec;