Changeset 541 for cprs/branches/tmg-cprs/CPRS-Chart/fNotePrt.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/fNotePrt.pas (modified) (5 diffs)

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

@@ -1 @@
-//kt -- Modified with SourceScanner on 8/25/2007
+//kt -- Modified with SourceScanner on 8/25/2007, also 8/09
 unit fNotePrt;
 
@@ -54 +54 @@
 {$R *.DFM}
 
-uses rCore, rTIU, rReports, uCore, Printers;
+uses rCore, rTIU, rReports, uCore, Printers,
+     rHTMLTools; //kt 8/09
+
 
 const
@@ -206 +208 @@
   RemoteSiteID: string;    //for Remote site printing
   RemoteQuery: string;    //for Remote site printing
+  TempLines: TStringList;  //kt added 5-31-05
 begin
   SetupVars;  //kt added 8/25/2007 to replace constants with vars.
@@ -223 +226 @@
 
 
-  if Piece(cboDevice.ItemID, ';', 1) = 'WIN' then
-    begin
-    if dlgWinPrinter.Execute then
-       begin
-       FReportText.Lines.Assign(GetFormattedNote(FNote, ChartCopy));
-       PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg);
-       if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
-       end
-    end
-  else
-    begin
+  if Piece(cboDevice.ItemID, ';', 1) = 'WIN' then begin
+    if dlgWinPrinter.Execute then begin
+      //kt ----- Begin original code -------------  8/09
+      //kt FReportText.Lines.Assign(GetFormattedNote(FNote, ChartCopy));
+      //kt PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg);
+      //kt if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
+      //kt ----- End original code -------------
+      TempLines := TStringList.Create;                                          //kt 8/09
+      TempLines.Assign(GetFormattedNote(FNote, ChartCopy));                     //kt 8/09
+      if not rHTMLTools.IsHTML(TempLines) then begin                            //kt 8/09
+        //NOTE: If HTML, then bypass this printer dialog, because it will be    //kt 8/09
+        //      replaced by a printer dialog that internet explorer uses.       //kt 8/09
+        if dlgWinPrinter.Execute then begin                                     //kt 8/09
+          FReportText.Lines.Assign(TempLines);                                  //kt 8/09
+          PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg,Application); //kt 8/09
+        end;                                                                    //kt 8/09
+      end else begin                                                            //kt 8/09
+        LoadDocumentText(TempLines, FNote);  //Get document without headers/footers      //kt 8/09
+        PrintHTMLReport(TempLines, ErrMsg, Patient.Name,                        //kt 8/09
+                        FormatFMDateTime('mm/dd/yyyy', Patient.DOB),            //kt 8/09
+                        Patient.WardService, Application);                      //kt 8/09
+      end;                                                                      //kt 8/09
+      TempLines.Free;                                                           //kt 8/09
+      if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);            //kt 8/09
+    end;                                                                        //kt 8/09
+  end else begin
     ADevice := Piece(cboDevice.ItemID, ';', 2);
     PrintNoteToDevice(FNote, ADevice, ChartCopy, ErrMsg);
@@ -243 +261 @@
   if chkDefault.Checked then
      SaveDefaultPrinter(Piece(cboDevice.ItemID, ';', 1));
-     
+
   User.CurrentPrinter := cboDevice.ItemID;
   Close;