Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/tmg-cprs/CPRS-Chart/fReportsPrint.pas

    r453 r541  
    345345                            Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
    346346                          aCaption := piece(uRemoteType,'^',4);
    347                           PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
     347                          PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg, Application); //kt 8/09, Added ',Application'
    348348                          if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
    349349                        end;
    … …  
    360360                            Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
    361361                          aCaption := piece(uRemoteType,'^',4);
    362                           PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
     362                          PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg, Application); //kt 8/09, Added ',Application'
    363363                          if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
    364364                        end;
    … …  
    374374                        FindVType;
    375375                        aCaption := piece(uRemoteType,'^',4) + ';1';
    376                         PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
     376                        PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg, Application); //kt 8/09, Added ',Application'
    377377                        if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
    378378                      end
    … …  
    382382                          Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
    383383                        aCaption := piece(uRemoteType,'^',4);
    384                         PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
     384                        PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg, Application); //kt 8/09, Added ',Application'
    385385                        if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
    386386                      end;
    … …  
    396396                        FindVType;
    397397                        aCaption := piece(uRemoteType,'^',4) + ';1';
    398                         PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
     398                        PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg, Application); //kt 8/09, Added ',Application'
    399399                        if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
    400400                      end
    … …  
    404404                           Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
    405405                        aCaption := piece(uRemoteType,'^',4);
    406                         PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
     406                        PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg, Application); //kt 8/09, Added ',Application'
    407407                        if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
    408408                      end;
    … …  
    419419                            Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
    420420                          aCaption := piece(uRemoteType,'^',4);
    421                           PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
     421                          PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg, Application); //kt 8/09, Added ',Application'
    422422                          if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
    423423                        end;
    … …  
    434434                            Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
    435435                          aCaption := piece(uRemoteType,'^',4);
    436                           PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
     436                          PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg, Application); //kt 8/09, Added ',Application'
    437437                          if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
    438438                        end;
    … …  
    452452                 Patient.DFN, uHSComponents, RemoteSiteID, RemoteQuery, uHState));
    453453              aCaption := piece(uRemoteType,'^',4);
    454               PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg);
     454              PrintWindowsReport(FReportText, PAGE_BREAK, aCaption, ErrMsg, Application); //kt 8/09, Added ',Application'
    455455              if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
    456456            end;
Note: See TracChangeset for help on using the changeset viewer.