Function

TfrmGraphs.FileNameX

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TfrmGraphs

Declaration

function FileNameX(filenum: string): string;

Called-By Hierarchy


                                   TfrmGraphs.FileNameX
                                TfrmGraphs.FormCreate┤ 
                            TfrmGraphs.SourcesDefault┤ 
                              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...┘ │ 
                                  TfrmGraphs.LoadType┤ 
                        TfrmGraphs.LoadDisplayCheck┘ │ 
                          TfrmGraphs.CheckProfile┘   │ 
                      TfrmGraphs.ViewsChange...┘     │ 
                               TfrmGraphs.DisplayType┤ 
                     TfrmGraphs.LoadDisplayCheck...┘ │ 
                         TfrmGraphs.OneDayTypeDetails┤ 
                 TfrmGraphs.mnuPopGraphDetailsClick┘ │ 
                             TfrmGraphs.MakeChart┤   │ 
                   TfrmGraphs.MakeSeparateItems┤ │   │ 
                      TfrmGraphs.MakeSeparate┘ │ │   │ 
                  TfrmGraphs.DisplayData...┤   │ │   │ 
               TfrmGraphs.MakeTogetherMaybe┘   │ │   │ 
                TfrmGraphs.DisplayData...┘     │ │   │ 
                        TfrmGraphs.MakeTogether┘ │   │ 
              TfrmGraphs.MakeTogetherMaybe...┘   │   │ 
                           TfrmGraphs.LabelClicks┘   │ 
                         TfrmGraphs.MouseClicks┘     │ 
                TfrmGraphs.chartBaseMouseDown┘       │ 
                TfrmGraphs.chkItemsTopClick┤         │ 
             TfrmGraphs.chkItemsBottomClick┤         │ 
                    TfrmGraphs.MakeChart...┘         │ 
                                   TfrmGraphs.LabData┤ 
                            TfrmGraphs.SaveTestData┤ │ 
                               TfrmGraphs.FastLab┘ │ │ 
                              TfrmGraphs.Switch┘   │ │ 
                       TfrmGraphs.InitialData┤     │ │ 
                   TfrmGraphs.Initialize...┘ │     │ │ 
            TfrmGraphs.lvwItemsBottomClick...┤     │ │ 
               TfrmGraphs.lvwItemsTopClick...┘     │ │ 
                          TfrmGraphs.CheckToAddData┘ │ 
                           TfrmGraphs.AllTypeDate┤   │ 
                        TfrmGraphs.SeriesClicks┤ │   │ 
              TfrmGraphs.chartBaseClickSeries┘ │ │   │ 
                    TfrmGraphs.MakeChart...┘   │ │   │ 
                      TfrmGraphs.LabelClicks...┤ │   │ 
          TfrmGraphs.mnuPopGraphDetailsClick...┘ │   │ 
                         TfrmGraphs.ItemsClick...┘   │ 
                                TfrmGraphs.NonNumText┤ 
                               TfrmGraphs.ValueText┘ │ 
                       TfrmGraphs.SeriesClicks...┤   │ 
                         TfrmGraphs.ItemDateRange┤   │ 
                          TfrmGraphs.AllDetails┤ │   │ 
        TfrmGraphs.mnuPopGraphDetailsClick...┘ │ │   │ 
                TfrmGraphs.chartBaseClickLegend┘ │   │ 
                      TfrmGraphs.MakeChart...┘   │   │ 
                        TfrmGraphs.LabelClicks...┤   │ 
            TfrmGraphs.mnuPopGraphDetailsClick...┤   │ 
                     TfrmGraphs.timHintPauseTimer┘   │ 
                              TfrmGraphs.ValueText...┘ 

Called-By

Name Declaration Comments
TfrmGraphs.DateRangeItems procedure DateRangeItems(oldestdate, newestdate: double; filenum: string); -
TfrmGraphs.DisplayType procedure DisplayType(itemtype, displayed: string); -
TfrmGraphs.FilterListView procedure FilterListView(oldestdate, newestdate: double); -
TfrmGraphs.FormCreate procedure FormCreate(Sender: TObject); -
TfrmGraphs.LabData procedure LabData(aItemType, aItemName, aSection: string; getdata: boolean); -
TfrmGraphs.LoadListView procedure LoadListView(aList: TStrings); -
TfrmGraphs.LoadType procedure LoadType(itemtype, displayed: string); -
TfrmGraphs.NonNumText function NonNumText(listnum, seriesnum, valueindex: integer): string; -
TfrmGraphs.OneDayTypeDetails procedure OneDayTypeDetails(aTypeItem: string); -
TfrmGraphs.SourcesDefault procedure SourcesDefault; -
TfrmGraphs.ValueText function ValueText(Sender: TCustomChart; aSeries: TChartSeries; ValueIndex: Integer): string; -


Source

1337  function TfrmGraphs.FileNameX(filenum: string): string;
1338  var
1339    i: integer;
1340    typestring: string;
1341  begin
1342    Result := '';
1343    for i := 0 to GtslAllTypes.Count - 1 do
1344    begin
1345      typestring := GtslAllTypes[i];
1346      if Piece(typestring, '^', 1) = filenum then
1347      begin
1348        Result := Piece(GtslAllTypes[i], '^', 2);
1349        break;
1350      end;
1351    end;
1352    if Result = '' then
1353    begin
1354      for i := 0 to GtslAllTypes.Count - 1 do
1355      begin
1356        typestring := GtslAllTypes[i];
1357        if lowercase(Piece(typestring, '^', 1)) = filenum then
1358        begin
1359          Result := Piece(GtslAllTypes[i], '^', 2);
1360          break;
1361        end;
1362      end;
1363    end;
1364  end;