Procedure

TfrmPtSelDemog.ClearIDInfo

Module

fPtSelDemog

Last Modified

7/15/2014 3:26:38 PM

Comments

Clears controls with patient ID info (controls have '2' in their Tag property

Visibility

Public

Owner

TfrmPtSelDemog

Declaration

procedure ClearIDInfo;

Called-By Hierarchy


                       TfrmPtSelDemog.ClearIDInfo
                          TfrmPtSel.ClearIDInfo┘ 
                                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┘     │   
                      TfrmPtSel.SetCaptionTop┤   
                           TfrmPtSel.Loaded┘ │   
                       TfrmPtSel.SetPtListTop┤   
                           TfrmPtSel.Loaded┘ │   
                         ShowMatchingPatients┤   
                 TfrmPtSel.cboPatientChange┘ │   
                 TfrmPtSel.cboPatientKeyPause┤   
               TfrmPtSel.cboPatientMouseClick┘   

Called-By

Name Declaration Comments
TfrmPtSel.ClearIDInfo procedure ClearIDInfo; -


Source

53    procedure TfrmPtSelDemog.ClearIDInfo;
54    { clears controls with patient ID info (controls have '2' in their Tag property }
55    var
56      i: Integer;
57    begin
58      FLastDFN := '';
59      with orapnlMain do
60      for i := 0 to ControlCount - 1 do
61      begin
62        if Controls[i].Tag = TAG_HIDE then Controls[i].Visible := False;
63        if Controls[i].Tag = TAG_CLEAR then with Controls[i] as TStaticText do Caption := '';
64      end;
65      Memo.Clear;
66    end;