Changeset 541 for cprs/branches/tmg-cprs/CPRS-Chart/fLabPrint.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/fLabPrint.pas (modified) (1 diff)

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

@@ -202 +202 @@
           Lines.Assign(GetFormattedLabReport(FReports, FDaysBack, Patient.DFN,
             frmLabs.lstTests.Items, date1, date2, RemoteSiteID, RemoteQuery));
-          PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg);
+          PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg, Application); //kt 8/09 added 'Application'
           if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
         end;