Procedure

TfrmGraphs.InitialData

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfrmGraphs

Declaration

procedure InitialData;

Calls Hierarchy


TfrmGraphs.InitialData
 ├FMNow
 ├GraphTurboOn
 ├TfrmGraphs.Switch
 │ ├rpcFastItems
 │ │ └onoff
 │ ├rpcFastData
 │ │ └onoff
 │ ├rpcFastLabs
 │ │ └onoff
 │ └TfrmGraphs.FastLab
 │   └TfrmGraphs.SaveTestData
 │     ├TfrmGraphs.ItemName
 │     └TfrmGraphs.LabData
 │       ├rpcGetItemData
 │       │ └onoff
 │       ├TfrmGraphs.SpecRefCheck
 │       │ └TfrmGraphs.RefUnits
 │       │   └TfrmGraphs.SelectRef
 │       │     └CheckRef
 │       ├TfrmGraphs.SpecRefSet
 │       │ └MultiRef
 │       ├TfrmGraphs.FileNameX
 │       ├TfrmGraphs.LabCheck
 │       ├TfrmGraphs.DateRangeMultiItems
 │       └TfrmGraphs.LabAdd
 ├TfrmGraphs.TypeIsLoaded
 └rpcGetItems
   └onoff

Called-By Hierarchy


                             TfrmGraphs.InitialData
                            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
FMNow function FMNow: TFMDateTime; -
GraphTurboOn function GraphTurboOn: boolean; -
rpcGetItems function rpcGetItems(typeitem: string; const PatientDFN: string): TStrings; -
TfrmGraphs.Switch procedure Switch; -
TfrmGraphs.TypeIsLoaded function TypeIsLoaded(itemtype: string): boolean; -

Called-By

Name Declaration Comments
TfrmGraphs.Initialize procedure Initialize; -


Source

1451  procedure TfrmGraphs.InitialData;
1452  var
1453    i: integer;
1454    dfntype, listline: string;
1455  begin
1456    Application.ProcessMessages;
1457    FMTimestamp := floattostr(FMNow);
1458    //SourcesDefault;
1459    //FastAssign(FSourcesDefault, FSources);
1460    for i := 0 to GtslTypes.Count - 1 do
1461    begin
1462      listline := GtslTypes[i];
1463      dfntype := UpperCase(Piece(listline, '^', 1));
1464      SetPiece(listline, '^', 1, dfntype);
1465      GtslTypes[i] := listline;
1466    end;
1467    btnChangeSettings.Tag := 0;
1468    btnClose.Tag := 0;
1469    lstViewsBottom.Tag := 0;
1470    lstViewsTop.Tag := 0;
1471    chartDatelineTop.Tag := 0;
1472    lvwItemsBottom.Tag := 0;
1473    lvwItemsTop.Tag := 0;
1474    pnlFooter.Parent.Tag := 0;
1475    pnlItemsBottom.Tag := 0;
1476    pnlItemsTop.Tag := 0;
1477    pnlTop.Tag := 0;
1478    scrlTop.Tag := 0;
1479    splGraphs.Tag := 0;
1480    lstViewsBottom.ItemIndex := -1;
1481    lstViewsTop.ItemIndex := -1;
1482    frmGraphData.pnlData.Hint := Patient.DFN;      // use to check for patient change
1483    FPrevEvent := '';
1484    FWarning := false;
1485    FFirstSwitch := true;
1486    Application.ProcessMessages;
1487    FFastData := false;
1488    FFastItems := false;
1489    FFastLabs := false;
1490    FFastTrack := false;
1491    if GraphTurboOn then
1492      Switch;
1493    //if not FFastItems then
1494    if GtslItems.Count = 0 then
1495    begin
1496      for i := 0 to GtslTypes.Count - 1 do
1497      begin
1498        dfntype := Piece(GtslTypes[i], '^', 1);
1499        if TypeIsLoaded(dfntype) then
1500          FastAddStrings(rpcGetItems(dfntype, Patient.DFN), GtslItems);
1501      end;
1502    end;
1503  end;