Procedure

TfrmGraphs.LoadListView

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfrmGraphs

Declaration

procedure LoadListView(aList: TStrings);

Calls Hierarchy


TfrmGraphs.LoadListView
 ├TfrmGraphs.FileNameX
 ├TfrmGraphs.UpdateView
 ├TfrmGraphs.lvwItemsTopColumnClick
 └TfrmGraphs.lvwItemsBottomColumnClick

Called-By Hierarchy


                            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...┘       

Calls

Name Declaration Comments
TfrmGraphs.FileNameX function FileNameX(filenum: string): string; -
TfrmGraphs.lvwItemsBottomColumnClick procedure lvwItemsBottomColumnClick(Sender: TObject; Column: TListColumn); -
TfrmGraphs.lvwItemsTopColumnClick procedure lvwItemsTopColumnClick(Sender: TObject; Column: TListColumn); -
TfrmGraphs.UpdateView procedure UpdateView(filename, filenum, itemnum, aString: string; aListView: TListView); -

Called-By

Name Declaration Comments
TfrmGraphs.Initialize procedure Initialize; -


Source

1065  procedure TfrmGraphs.LoadListView(aList: TStrings);
1066  var
1067    i: integer;
1068    filename, filenum, itemnum: string;
1069  begin
1070    lvwItemsTop.Items.Clear;
1071    lvwItemsBottom.Items.Clear;
1072    lvwItemsTop.Items.BeginUpdate;
1073    lvwItemsBottom.Items.BeginUpdate;
1074    lvwItemsTop.SortType := stNone; // if Sorting during load then potential error
1075    lvwItemsBottom.SortType := stNone; // if Sorting during load then potential error
1076    with lvwItemsTop do
1077    for i := 0 to aList.Count - 1 do
1078    begin
1079      filenum := Piece(aList[i], '^', 1);
1080      filename := FileNameX(filenum);    // change rpc **********
1081      itemnum := Piece(aList[i], '^', 2);
1082      UpdateView(filename, filenum, itemnum, aList[i], lvwItemsTop);
1083    end;
1084    lvwItemsBottom.Items.Assign(lvwItemsTop.Items);
1085    lvwItemsTop.SortType := stBoth;
1086    lvwItemsBottom.SortType := stBoth;
1087    if not FItemsSortedTop then
1088    begin
1089      lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[0]);
1090      FItemsSortedTop := true;
1091    end;
1092    if not FItemsSortedBottom then
1093    begin
1094      lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[0]);
1095      FItemsSortedBottom := true;
1096    end;
1097    with FGraphSetting do
1098    if SortColumn > 0 then
1099    begin
1100      lvwItemsTopColumnClick(lvwItemsTop, lvwItemsTop.Column[SortColumn]);
1101      lvwItemsBottomColumnClick(lvwItemsBottom, lvwItemsBottom.Column[SortColumn]);
1102      FItemsSortedTop := false;
1103      FItemsSortedBottom := false;
1104    end;
1105    lvwItemsTop.Items.EndUpdate;
1106    lvwItemsBottom.Items.EndUpdate;
1107  end;