Procedure

TfrmFrame.SetBADxList

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Visibility

Public

Owner

TfrmFrame

Declaration

procedure SetBADxList;

Called-By Hierarchy


                        TfrmFrame.SetBADxList
                                GetBAStatus┤ 
                     TfrmPtSel.cmdOKClick┤ │ 
           TfrmPtSel.cboPatientDblClick┘ │ │ 
                TfrmPtSel.cmdProcessClick┤ │ 
          TfrmPtSel.cmdProcessInfoClick┤ │ │ 
           TfrmPtSel.cmdProcessAllClick┤ │ │ 
           TfrmPtSel.lstvAlertsDblClick┤ │ │ 
            TfrmPtSel.lstvAlertsKeyDown┘ │ │ 
                     TfrmPtSel.ReadyAlert┤ │ 
                 TfrmPtSel.WMReadyAlert┤ │ │ 
         TfrmPtSel.lstvAlertsSelectItem┘ │ │ 
                     TfrmFrame.UMInitiate┘ │ 
                 TfrmFrame.mnuFileOpenClick┘ 
                     TfrmFrame.UMInitiate┤   
               TfrmFrame.mnuFileNextClick┤   
          TfrmFrame.mnuFileOpenClick...┤ │   
      TfrmFrame.mnuFileNotifRemoveClick┤ │   
              TfrmFrame.NextButtonClick┘ │   
            TfrmFrame.SetUpNextButton┘   │   
      TfrmFrame.mnuFileOpenClick...┤     │   
               TfrmFrame.FormResize┘     │   
             TfrmFrame.ChangeFont┘       │   
     TfrmFrame.LoadSizesForUser┤         │   
TfrmFrame.LoadUserPreferences┘ │         │   
       TfrmFrame.UMInitiate┘   │         │   
     TfrmFrame.mnuFontSizeClick┘         │   
            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┘     

Called-By

Name Declaration Comments
GetBAStatus procedure GetBAStatus(pProvider:int64; pPatientDFN: string); -
TfrmFrame.mnuFileOpenClick procedure mnuFileOpenClick(Sender: TObject); -


Source

1688  procedure TfrmFrame.SetBADxList;
1689  var
1690    i: smallint;
1691  begin
1692    if not Assigned(UBAGlobals.tempDxList) then
1693       begin
1694       UBAGlobals.tempDxList := TList.Create;
1695       UBAGlobals.tempDxList.Count := 0;
1696       Application.ProcessMessages;
1697       end
1698    else
1699       begin
1700       //Kill the old Dx list
1701       for i := 0 to pred(UBAGlobals.tempDxList.Count) do
1702          TObject(UBAGlobals.tempDxList[i]).Free;
1703  
1704       UBAGlobals.tempDxList.Clear;
1705       Application.ProcessMessages;
1706  
1707       //Create new Dx list for newly selected patient
1708        if not Assigned(UBAGlobals.tempDxList) then
1709           begin
1710           UBAGlobals.tempDxList := TList.Create;
1711           UBAGlobals.tempDxList.Count := 0;
1712           Application.ProcessMessages;
1713           end;
1714       end;
1715  end;