Changeset 830 for cprs/trunk/CPRS-Chart/rTIU.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/rTIU.pas (modified) (11 diffs)

cprs/trunk/CPRS-Chart/rTIU.pas

@@ -26 +26 @@
 procedure ResetTIUPreferences;
 function AskCosignerForNotes: Boolean;
-function AskCosignerForDocument(ADocument: Integer; AnAuthor: Int64): Boolean;
+function AskCosignerForDocument(ADocument: Integer; AnAuthor: Int64; ADate: TFMDateTime): Boolean;
 function AskCosignerForTitle(ATitle: integer; AnAuthor: Int64; ADate: TFMDateTime): Boolean;
 function AskSubjectForNotes: Boolean;
@@ -186 +186 @@
 begin
   if uNoteTitles = nil then LoadNoteTitles;
-  Dest.AddStrings(uNoteTitles.ShortList);
+  Dest.AddStrings(uNoteTitles.Shortlist);
+  //FastAddStrings(uNoteTitles.ShortList, Dest);  // backed out from v27.27 - CQ #14619 - RV
   if uNoteTitles.ShortList.Count > 0 then
   begin
@@ -198 +199 @@
 begin
   CallV('TIU LOAD BOILERPLATE TEXT', [Title, Patient.DFN, Encounter.VisitStr]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -253 +254 @@
 end;
 
-function AskCosignerForDocument(ADocument: Integer; AnAuthor: Int64): Boolean;
-begin
-  Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [0, ADocument, AnAuthor]), U, 1) = '1';
+function AskCosignerForDocument(ADocument: Integer; AnAuthor: Int64; ADate: TFMDateTime): Boolean;
+begin
+  if TIUPatch175Installed then
+    Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [0, ADocument, AnAuthor, ADate]), U, 1) = '1'
+  else
+    Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [0, ADocument, AnAuthor]), U, 1) = '1';
 end;
 
@@ -372 +376 @@
   if RPCBrokerV.Results.Count > 0 then RPCBrokerV.Results.Delete(0);
   SetListFMDateTime('mmm dd,yy hh:nn', TStringList(RPCBrokerV.Results), U, 2);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -399 +403 @@
       Results[i] := x;
     end; {for}
-    Dest.Assign(Results);
+    FastAssign(RPCBrokerV.Results, Dest);
   end; {with}
 end;
@@ -417 +421 @@
     begin
       CallV('TIU DOCUMENTS BY CONTEXT', [3, Context, Patient.DFN, Early, Late, Person, OccLim, SortSeq, SHOW_ADDENDA]);
-      Dest.Assign(RPCBrokerV.Results);
+      FastAssign(RPCBrokerV.Results, Dest);
     end;
 end;
@@ -439 +443 @@
       Results[i] := x;
     end; {for}
-    Dest.Assign(Results);
+    FastAssign(RPCBrokerV.Results, Dest);
   end; {with}
 end;
@@ -447 +451 @@
 begin
   CallV('TIU GET RECORD TEXT', [IEN]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -453 +457 @@
 begin
   CallV('TIU DETAILED DISPLAY', [IEN]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -558 +562 @@
       //Lines := Results;   'Lines' is being overwritten by subsequent Broker calls
       if not Assigned(Lines) then Lines := TStringList.Create;
-      Lines.Assign(Results);
+      FastAssign(RPCBrokerV.Results, Lines);
       // -----------------------------------------------------------------------
     end;