Changeset 541 for cprs/branches/tmg-cprs/CPRS-Chart/rReports.pas

Timestamp:

Aug 12, 2009, 7:14:16 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

TMG Ver 1.1 Added HTML Support, better demographics editing

File:

• cprs/branches/tmg-cprs/CPRS-Chart/rReports.pas (modified) (6 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/rReports.pas

@@ -4 +4 @@
 interface
 
-uses Windows, SysUtils, Classes, ORNet, ORFn, ComCtrls, Chart, graphics;
+uses
+  Windows, SysUtils, Classes, ORNet, ORFn,
+  Forms, //kt 8/09
+  ComCtrls, Chart, graphics;
 
 { Consults }
@@ -47 +50 @@
            aComponents: TStringlist; ARemoteSiteID, ARemoteQuery, AHSTag: string): TStrings;
 procedure PrintWindowsReport(ARichEdit: TRichEdit; APageBreak, ATitle: string;
-  var ErrMsg: string);
+                             var ErrMsg: string; Application : TApplication); //kt 8/09 added Application
 function DefaultToWindowsPrinter: Boolean;
 procedure PrintGraph(GraphImage: TChart; PageTitle: string);
@@ -63 +66 @@
 
 uses uCore, rCore, Printers, clipbrd, uReports, fReports,
+      rHTMLTools,  //kt 8/09
       DKLang  //kt
       ;
@@ -541 +545 @@
 end;
 
-procedure PrintWindowsReport(ARichEdit: TRichEdit; APageBreak, Atitle: string; var ErrMsg: string);
+procedure PrintWindowsReport(ARichEdit: TRichEdit; APageBreak, Atitle: string; 
+                             var ErrMsg: string;
+                             Application : TApplication //kt added 8/09
+                             );
 var
   i, j, x, y, LineHeight: integer;
   aGoHead: string;
   aHeader: TStringList;
+  Header,Footer,TempLines: TStringList;  //kt added 8/09
+  IsHTML : Boolean;                      //kt added 8/09
+
 const
 //TX_ERR_CAP = 'Print Error';  <-- original line.  //kt 8/20/2007
@@ -566 +576 @@
     end;
   CreatePatientHeader(aHeader ,ATitle);
-  with ARichEdit do
-    begin
-(*      if Lines[Lines.Count - 1] = APageBreak then      //  remove trailing form feed
+  IsHTML := rHTMLTools.IsHTML(ARichEdit.Lines); //kt 8/09
+  if not IsHTML then begin  //kt 8/09
+    with ARichEdit do  begin
+  (*  if Lines[Lines.Count - 1] = APageBreak then      //  remove trailing form feed
         Lines.Delete(Lines.Count - 1);
       while (Lines[0] = '') or (Lines[0] = APageBreak) do
         Lines.Delete(0);                               //  remove leading blank lines and form feeds*)
 
-        {v20.4 - SFC-0602-62899 - RV}
-        while (Lines.Count > 0) and ((Lines[Lines.Count - 1] = '') or (Lines[Lines.Count - 1] = APageBreak)) do
-          Lines.Delete(Lines.Count - 1);                 //  remove trailing blank lines and form feeds
-        while (Lines.Count > 0) and ((Lines[0] = '') or (Lines[0] = APageBreak)) do
-          Lines.Delete(0);                               //  remove leading blank lines and form feeds
-
-      if Lines.Count > 1 then
-        begin
-(*          i := Lines.IndexOf(APageBreak);
-          if ((i >= 0 ) and (i < Lines.Count - 1)) then        // removed in v15.9 (RV)
-            begin*)
-              Printer.Canvas.Font.Size := TX_FONT_SIZE;
-              Printer.Canvas.Font.Name := TX_FONT_NAME;
-              Printer.Title := ATitle;
-              x := Trunc(Printer.Canvas.TextWidth(StringOfChar('=', TX_FONT_SIZE)) * 0.75);
-              LineHeight := Printer.Canvas.TextHeight(TX_FONT_NAME);
-              y := LineHeight * 5;            // 5 lines = .83" top margin   v15.9 (RV)
-              Printer.BeginDoc;
-              for i := 0 to Lines.Count - 1 do
-                begin
-                  if Lines[i] = APageBreak then
-                    begin
-                      Printer.NewPage;
-                      y := LineHeight * 5;   // 5 lines = .83" top margin    v15.9 (RV)
-                      if aGoHead = '1' then
-                        begin
-                          for j := 0 to aHeader.Count - 1 do
-                            begin
-                              Printer.Canvas.TextOut(x, y, aHeader[j]);
-                              y := y + LineHeight;
-                            end;
-                        end;
-                    end
-                  else
-                    begin
-                      Printer.Canvas.TextOut(x, y, Lines[i]);
-                      y := y + LineHeight;
-                    end;
-                end;
-              Printer.EndDoc;
-(*            end
-          else                               // removed in v15.9 (RV)  TRichEdit.Print no longer used.
+      {v20.4 - SFC-0602-62899 - RV}
+      while (Lines.Count > 0) and ((Lines[Lines.Count - 1] = '') or (Lines[Lines.Count - 1] = APageBreak)) do
+        Lines.Delete(Lines.Count - 1);                 //  remove trailing blank lines and form feeds
+      while (Lines.Count > 0) and ((Lines[0] = '') or (Lines[0] = APageBreak)) do
+        Lines.Delete(0);                               //  remove leading blank lines and form feeds
+
+      if Lines.Count > 1 then begin
+  (*    i := Lines.IndexOf(APageBreak);
+        if ((i >= 0 ) and (i < Lines.Count - 1)) then        // removed in v15.9 (RV)
+              begin*)
+        Printer.Canvas.Font.Size := TX_FONT_SIZE;
+        Printer.Canvas.Font.Name := TX_FONT_NAME;
+        Printer.Title := ATitle;
+        x := Trunc(Printer.Canvas.TextWidth(StringOfChar('=', TX_FONT_SIZE)) * 0.75);
+        LineHeight := Printer.Canvas.TextHeight(TX_FONT_NAME);
+        y := LineHeight * 5;            // 5 lines = .83" top margin   v15.9 (RV)
+        Printer.BeginDoc;
+        for i := 0 to Lines.Count - 1 do begin
+          if Lines[i] = APageBreak then begin
+            Printer.NewPage;
+            y := LineHeight * 5;   // 5 lines = .83" top margin    v15.9 (RV)
+            if aGoHead = '1' then begin
+              for j := 0 to aHeader.Count - 1 do begin
+                Printer.Canvas.TextOut(x, y, aHeader[j]);
+                y := y + LineHeight;
+              end;
+            end;
+          end else begin
+            Printer.Canvas.TextOut(x, y, Lines[i]);
+            y := y + LineHeight;
+          end;
+        end;
+        Printer.EndDoc;
+(*      end
+        else                               // removed in v15.9 (RV)  TRichEdit.Print no longer used.
             try
               Font.Size := TX_FONT_SIZE;
@@ -622 +626 @@
               ErrMsg := TX_ERR_CAP;
             end;*)
-        end
-      else if ARichEdit.Lines.Count = 1 then
+      end else if ARichEdit.Lines.Count = 1 then
         if Piece(ARichEdit.Lines[0], U, 1) <> '0' then
           ErrMsg := Piece(ARichEdit.Lines[0], U, 2);
     end;
+  end else begin  //kt added this entire block. 8/09
+    TempLines := TStringList.Create;
+    Header := TStringList.Create;
+    Footer := TStringList.Create;
+    TempLines.Assign(ARichEdit.Lines);
+    StripBeforeAfterHTML(TempLines,Header,Footer);
+    //LoadDocumentText(TempLines, FNote);  //Get document without headers/footers
+    PrintHTMLReport(TempLines,ErrMsg,
+                    Patient.Name,
+                    FormatFMDateTime('mm/dd/yyyy', Patient.DOB),
+                    Encounter.LocationName, Application);
+    TempLines.Free;
+    Header.Free;
+    Footer.Free;
+  end;  //kt end of added block 8/09
   aHeader.Free;
 end;