Procedure

TfrmPtSelOptns.SetDefaultPtList

Module

fPtSelOptns

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public

Owner

TfrmPtSelOptns

Declaration

procedure SetDefaultPtList(Dflt: string);

Called-By Hierarchy


                TfrmPtSelOptns.SetDefaultPtList
                 TfrmPtSelOptns.UpdateDefault┤ 
            TfrmPtSelOptns.cmdSaveListClick┘ │ 
               TfrmPtSel.cmdSaveListClick┘   │ 
                                SelectPatient┘ 
                 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
SelectPatient procedure SelectPatient(ShowNotif: Boolean; FontSize: Integer; var UserCancelled: boolean); -
TfrmPtSelOptns.UpdateDefault procedure UpdateDefault; -


Source

379   procedure TfrmPtSelOptns.SetDefaultPtList(Dflt: string);
380   begin
381     if Length(Dflt) > 0 then                   // if default patient list available, use it
382     begin
383       radDflt.Caption := '&Default: ' + Dflt;
384       radDflt.Checked := True;                 // causes radHideSrcClick to be called
385     end
386     else                                       // otherwise, select from all patients
387     begin
388       radDflt.Enabled := False;
389       radAll.Checked := True;                  // causes radHideSrcClick to be called
390       bvlPtList.TabStop := True;
391       bvlPtList.Hint := 'No default radio button unavailable 1 of 7 to move to the other patient list categories press tab';
392       // fixes CQ #4716: 508 - No Default rad btn on Patient Selection screen doesn't read in JAWS. [CPRS v28.1] (TC).
393     end;
394   end;