Procedure

TfrmGraphs.UpdateView

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TfrmGraphs

Declaration

procedure UpdateView(filename, filenum, itemnum, aString: string; aListView: TListView);

Called-By Hierarchy


                                  TfrmGraphs.UpdateView
                              TfrmGraphs.LoadListView┤ 
                              TfrmGraphs.Initialize┘ │ 
                           TfrmFrame.ClearPatient┤   │ 
                         TfrmFrame.SetupPatient┘ │   │ 
                    UpdatePatientInfoForAlert┤   │   │ 
                 TfrmFrame.mnuFileNextClick┘ │   │   │ 
               TfrmFrame.mnuFileOpenClick┤   │   │   │ 
                   TfrmFrame.UMInitiate┤ │   │   │   │ 
          TfrmFrame.mnuFileNextClick...┤ │   │   │   │ 
          TfrmFrame.mnuFileRefreshClick┤ │   │   │   │ 
          TfrmOrders.CheckOrderStatus┤ │ │   │   │   │ 
      TfrmOrders.mnuActChgEvntClick┤ │ │ │   │   │   │ 
         TfrmOrders.mnuActHoldClick┤ │ │ │   │   │   │ 
       TfrmOrders.mnuActUnholdClick┤ │ │ │   │   │   │ 
        TfrmOrders.mnuActRenewClick┤ │ │ │   │   │   │ 
       TfrmOrders.mnuActChangeClick┤ │ │ │   │   │   │ 
         TfrmOrders.mnuActCopyClick┘ │ │ │   │   │   │ 
               TfrmMeds.mnuActDCClick┤ │ │   │   │   │ 
              TfrmMeds.CheckMedStatus┘ │ │   │   │   │ 
           TfrmMeds.mnuActHoldClick┤   │ │   │   │   │ 
          TfrmMeds.mnuActRenewClick┤   │ │   │   │   │ 
         TfrmMeds.mnuActUnholdClick┤   │ │   │   │   │ 
         TfrmMeds.mnuActChangeClick┤   │ │   │   │   │ 
           TfrmMeds.mnuActCopyClick┤   │ │   │   │   │ 
         TfrmMeds.mnuActRefillClick┘   │ │   │   │   │ 
                     TfrmFrame.ViewInfo┘ │   │   │   │ 
                  TfrmDCSumm.ViewInfo┤   │   │   │   │ 
                TfrmConsults.ViewInfo┤   │   │   │   │ 
        TfrmFrame.pnlRemindersMouseUp┤   │   │   │   │ 
         TfrmFrame.RemindersChanged┘ │   │   │   │   │ 
             TfrmFrame.FormCreate┘   │   │   │   │   │ 
               TfrmFrame.pnlCIRNClick┤   │   │   │   │ 
         TfrmFrame.pnlVistaWebClick┤ │   │   │   │   │ 
              TfrmFrame.FormKeyDown┘ │   │   │   │   │ 
            TfrmFrame.pnlPatientClick┤   │   │   │   │ 
              TfrmFrame.pnlVisitClick┤   │   │   │   │ 
        TfrmFrame.pnlPrimaryCareClick┤   │   │   │   │ 
          TfrmFrame.pnlRemindersClick┤   │   │   │   │ 
           TfrmFrame.pnlPostingsClick┤   │   │   │   │ 
               TfrmFrame.pnlFlagClick┤   │   │   │   │ 
                 TfrmFrame.laMHVClick┤   │   │   │   │ 
                TfrmFrame.laVAA2Click┤   │   │   │   │ 
                  TfrmOrders.ViewInfo┤   │   │   │   │ 
                    TfrmMeds.ViewInfo┤   │   │   │   │ 
                 TfrmSurgery.ViewInfo┤   │   │   │   │ 
                   TfrmNotes.ViewInfo┤   │   │   │   │ 
                TfrmProblems.ViewInfo┘   │   │   │   │ 
        TfrmFrame.mnuFileNotifRemoveClick┤   │   │   │ 
                TfrmFrame.NextButtonClick┘   │   │   │ 
              TfrmFrame.SetUpNextButton┘     │   │   │ 
        TfrmFrame.mnuFileOpenClick...┤       │   │   │ 
                 TfrmFrame.FormResize┘       │   │   │ 
               TfrmFrame.ChangeFont┘         │   │   │ 
       TfrmFrame.LoadSizesForUser┤           │   │   │ 
  TfrmFrame.LoadUserPreferences┘ │           │   │   │ 
         TfrmFrame.UMInitiate┘   │           │   │   │ 
       TfrmFrame.mnuFontSizeClick┘           │   │   │ 
                TfrmFrame.mnuFileOpenClick...┤   │   │ 
             TfrmFrame.AllowCCOWContextChange┤   │   │ 
              TfrmFrame.mnuFileNextClick...┤ │   │   │ 
              TfrmFrame.mnuFileOpenClick...┤ │   │   │ 
     TfrmFrame.mnuFileResumeContextSetClick┘ │   │   │ 
                  TfrmFrame.UpdateCCOWContext┤   │   │ 
              TfrmFrame.mnuFileOpenClick...┤ │   │   │ 
            TfrmFrame.ctxContextorCommitted┤ │   │   │ 
             TfrmFrame.StartCCOWContextor┘ │ │   │   │ 
                   TfrmFrame.FormCreate┘   │ │   │   │ 
     TfrmFrame.mnuFileResumeContextGetClick┘ │   │   │ 
       TfrmFrame.mnuFileResumeContextSetClick┘   │   │ 
                  TfrmFrame.mnuToolsGraphingClick┤   │ 
                           TfrmLabs.grdLabClick┤ │   │ 
                        TfrmLabs.tvReportsClick┤ │   │ 
                         TfrmLabs.DisplayPage┤ │ │   │ 
                        TfrmLabs.LoadTreeView┤ │ │   │ 
                       TfrmLabs.DisplayPage┤ │ │ │   │ 
     TfrmOptionsReportsCustom.btnApplyClick┘ │ │ │   │ 
      TfrmOptionsReportsCustom.btnOKClick┘   │ │ │   │ 
                  TfrmLabs.cmdOtherTestsClick┤ │ │   │ 
                     TfrmLabs.chkMaxFreqClick┤ │ │   │ 
                TfrmLabs.ProcessNotifications┤ │ │   │ 
                       TfrmLabs.DisplayPage┘ │ │ │   │ 
                                    ..(rec)..┤ │ │   │ 
                    TfrmLabs.tvReportsKeyDown┤ │ │   │ 
              TfrmFrame.lstCIRNLocationsClick┘ │ │   │ 
                        TfrmFrame.SetUpCIRN┘   │ │   │ 
                TfrmFrame.SetupPatient...┘     │ │   │ 
                                      ..(rec)..┘ │   │ 
                          TfrmReports.ClearPtData┤   │ 
                      TfrmFrame.ClearPatient...┘ │   │ 
                                TfrmReports.Graph┘   │ 
                     TfrmReports.tvReportsClick┘     │ 
           TfrmFrame.lstCIRNLocationsClick...┤       │ 
                      TfrmReports.DisplayPage┤       │ 
                     TfrmReports.LoadTreeView┤       │ 
                    TfrmReports.DisplayPage┤ │       │ 
       TfrmOptionsReportsDefault.btnOKClick┤ │       │ 
    TfrmOptionsReportsDefault.btnResetClick┤ │       │ 
  TfrmOptionsReportsCustom.btnApplyClick...┘ │       │ 
             TfrmReports.ProcessNotifications┤       │ 
                    TfrmReports.DisplayPage┘ │       │ 
                 TfrmReports.tvReportsKeyDown┤       │ 
              TfrmReports.tvProceduresKeyDown┤       │ 
                  TfrmReports.chkMaxFreqClick┤       │ 
         TfrmOptionsReportsDefault.btnOKClick┤       │ 
      TfrmOptionsReportsDefault.btnResetClick┤       │ 
    TfrmOptionsReportsCustom.btnApplyClick...┘       │ 
                            TfrmGraphs.FilterListView┤ 
                      TfrmGraphs.cboDateRangeChange┘ │ 
                    TfrmReports.lstDateRangeClick┤   │ 
                         TfrmReports.GraphPanel┘ │   │ 
                         TfrmReports.Graph...┤   │   │ 
                TfrmReports.tvReportsClick...┘   │   │ 
                         TfrmGraphs.Initialize...┤   │ 
                              TfrmGraphs.FormShow┤   │ 
                TfrmGraphs.btnChangeSettingsClick┤   │ 
                 TfrmReports.btnChangeViewClick┘ │   │ 
                     TfrmGraphs.CheckExpandedLabs┤   │ 
                          TfrmGraphs.ItemsClick┘ │   │ 
                       TfrmGraphs.DisplayData┤   │   │ 
                  TfrmFrame.ClearPatient...┤ │   │   │ 
                 TfrmReports.ClearPtData...┤ │   │   │ 
                       TfrmReports.Graph...┤ │   │   │ 
                TfrmGraphs.chkItemsTopClick┤ │   │   │ 
             TfrmGraphs.chkItemsBottomClick┤ │   │   │ 
         TfrmGraphs.mnuPopGraphIsolateClick┤ │   │   │ 
           TfrmGraphs.cboDateRangeChange...┤ │   │   │ 
                   TfrmGraphs.ItemsClick...┤ │   │   │ 
                     TfrmGraphs.ViewsChange┤ │   │   │ 
             TfrmGraphs.lstViewsTopChange┤ │ │   │   │ 
               TfrmGraphs.Initialize...┤ │ │ │   │   │ 
                 TfrmGraphs.GraphSwitch┤ │ │ │   │   │ 
                 TfrmGraphs.GraphSwap┘ │ │ │ │   │   │ 
    TfrmGraphs.mnuPopGraphSwapClick┘   │ │ │ │   │   │ 
       TfrmGraphs.cboDateRangeChange...┤ │ │ │   │   │ 
              TfrmGraphs.ViewSelections┘ │ │ │   │   │ 
        TfrmReports.tvReportsClick...┤   │ │ │   │   │ 
   TfrmGraphs.btnGraphSelectionsClick┘   │ │ │   │   │ 
TfrmReports.btnGraphSelectionsClick┘     │ │ │   │   │ 
          TfrmGraphs.lstViewsBottomChange┘ │ │   │   │ 
               TfrmGraphs.Initialize...┤   │ │   │   │ 
              TfrmGraphs.GraphSwitch...┤   │ │   │   │ 
       TfrmGraphs.cboDateRangeChange...┤   │ │   │   │ 
           TfrmGraphs.ViewSelections...┘   │ │   │   │ 
          TfrmGraphs.mnuPopGraphRemoveClick┘ │   │   │ 
               TfrmGraphs.lvwItemsBottomClick┤   │   │ 
                   TfrmGraphs.Initialize...┤ │   │   │ 
                    TfrmGraphs.CheckContext┤ │   │   │ 
                      TfrmGraphs.FormShow┘ │ │   │   │ 
               TfrmGraphs.chkDualViewsClick┤ │   │   │ 
                 TfrmGraphs.Initialize...┤ │ │   │   │ 
                      TfrmGraphs.FormShow┤ │ │   │   │ 
                                   Layout┤ │ │   │   │ 
                     TfrmGraphs.GetSize┘ │ │ │   │   │ 
                  TfrmGraphs.FormShow┘   │ │ │   │   │ 
     TfrmGraphs.mnuPopGraphDualViewsClick┤ │ │   │   │ 
             TfrmGraphs.ViewSelections...┘ │ │   │   │ 
                  TfrmGraphs.GraphSwitch...┤ │   │   │ 
                      TfrmGraphs.SplitClick┤ │   │   │ 
         TfrmGraphs.mnuPopGraphSplitClick┘ │ │   │   │ 
           TfrmGraphs.mnuPopGraphClearClick┤ │   │   │ 
                      TfrmGraphs.AutoSelect┤ │   │   │ 
                TfrmGraphs.ViewsChange...┘ │ │   │   │ 
            TfrmGraphs.lvwItemsBottomChange┘ │   │   │ 
                  TfrmGraphs.lvwItemsTopClick┘   │   │ 
                   TfrmGraphs.Initialize...┤     │   │ 
                        TfrmGraphs.FormShow┤     │   │ 
            TfrmGraphs.chkDualViewsClick...┤     │   │ 
                  TfrmGraphs.GraphSwitch...┤     │   │ 
                   TfrmGraphs.SplitClick...┤     │   │ 
           TfrmGraphs.mnuPopGraphClearClick┤     │   │ 
                   TfrmGraphs.AutoSelect...┤     │   │ 
           TfrmGraphs.mnuPopGraphResetClick┤     │   │ 
                      TfrmGraphs.FormShow┤ │     │   │ 
    TfrmGraphs.mnuPopGraphHorizontalClick┤ │     │   │ 
      TfrmGraphs.mnuPopGraphVerticalClick┤ │     │   │ 
        TfrmGraphs.mnuPopGraphRemoveClick┤ │     │   │ 
      TfrmGraphs.mnuPopGraphZoomBackClick┘ │     │   │ 
               TfrmGraphs.lvwItemsTopChange┘     │   │ 
                        TfrmGraphs.ViewsChange...┤   │ 
             TfrmGraphs.mnuPopGraphMergeLabsClick┘   │ 
                            TfrmGraphs.DateRangeItems┘ 
                       TfrmGraphs.FilterListView...┘   

Called-By

Name Declaration Comments
TfrmGraphs.DateRangeItems procedure DateRangeItems(oldestdate, newestdate: double; filenum: string); -
TfrmGraphs.FilterListView procedure FilterListView(oldestdate, newestdate: double); -
TfrmGraphs.LoadListView procedure LoadListView(aList: TStrings); -


Source

1262  procedure TfrmGraphs.UpdateView(filename, filenum, itemnum, aString: string; aListView: TListView);
1263  var
1264    drugclass, itemname, itemqualifier: string;
1265    aGraphItem: TGraphItem;
1266    aListItem: TListItem;
1267  begin
1268    if filenum = '63' then
1269    begin
1270      itemqualifier := Piece(itemnum, '.', 2);
1271      if length(itemqualifier) > 0 then
1272      begin
1273        if FGraphSetting.MergeLabs then
1274          if itemqualifier  <> '0' then exit;
1275        if not FGraphSetting.MergeLabs then
1276          if itemqualifier  = '0' then exit;
1277      end;
1278    end;
1279    itemname := Piece(aString, '^', 4);
1280    itemqualifier := Pieces(aString, '^', 5, 9);
1281    itemqualifier := filenum + '^' + itemnum + '^' + itemqualifier;
1282    drugclass := Piece(aString, '^', 8);
1283    aListItem := aListView.Items.Add;
1284    with aListItem do
1285    begin
1286      Caption := itemname;
1287      SubItems.Add(filename);
1288      SubItems.Add('');
1289      SubItems.Add(drugclass);
1290      aGraphItem := TGraphItem.Create;
1291      aGraphItem.Values := itemqualifier;
1292      SubItems.AddObject('', aGraphItem);
1293    end;
1294  end;