Procedure

ClearMedList

Module

rMeds

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure ClearMedList(AList: TList);

Called-By Hierarchy


                                                                ClearMedList
                                                        LoadActiveMedLists┤ 
                                                TfrmMeds.RefreshMedLists┘ │ 
                                                  TfrmMeds.DisplayPage┤   │ 
                                                  TfrmMeds.NotifyOrder┤   │ 
                                                TfrmFrame.UMNewOrder┘ │   │ 
                                                  TfrmMeds.SetFontSize┤   │ 
                                                TfrmFrame.ChangeFont┘ │   │ 
                                        TfrmFrame.LoadSizesForUser┤   │   │ 
                                   TfrmFrame.LoadUserPreferences┘ │   │   │ 
                                          TfrmFrame.UMInitiate┘   │   │   │ 
                                        TfrmFrame.mnuFontSizeClick┘   │   │ 
                               TfrmMeds.SortbyStatusthenLocation1Click┤   │ 
                TfrmMeds.SortbyClinicOrderthenStatusthenStopDate1Click┤   │ 
TfrmMeds.SortbyDrugalphabeticallystatusactivestatusrecentexpired1Click┤   │ 
                                           TfrmOptionsOther.btnOKClick┘   │ 
                                                      TfrmMeds.ClearPtData┤ 
                                                  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.mnuFileOpenClick...┤     │ 
                                    TfrmFrame.AllowCCOWContextChange┤     │ 
                                     TfrmFrame.mnuFileNextClick...┤ │     │ 
                                     TfrmFrame.mnuFileOpenClick...┤ │     │ 
                            TfrmFrame.mnuFileResumeContextSetClick┘ │     │ 
                                         TfrmFrame.UpdateCCOWContext┤     │ 
                                     TfrmFrame.mnuFileOpenClick...┤ │     │ 
                                   TfrmFrame.ctxContextorCommitted┤ │     │ 
                                    TfrmFrame.StartCCOWContextor┘ │ │     │ 
                                          TfrmFrame.FormCreate┘   │ │     │ 
                            TfrmFrame.mnuFileResumeContextGetClick┘ │     │ 
                              TfrmFrame.mnuFileResumeContextSetClick┘     │ 
                                                      TfrmMeds.FormDestroy┘ 

Called-By

Name Declaration Comments
TfrmMeds.ClearPtData procedure ClearPtData; override; -
TfrmMeds.FormDestroy procedure FormDestroy(Sender: TObject); -
LoadActiveMedLists procedure LoadActiveMedLists(InPtMeds, OutPtMeds, NonVAMeds: TList; var view: integer; var DateRange: string); -


Source

42    procedure ClearMedList(AList: TList);
43    var
44      i: Integer;
45    begin
46      if Assigned(AList) then with AList do
47      begin
48        for i := 0 to Count - 1 do
49          if Assigned(Items[i]) then TMedListRec(Items[i]).Free;
50        Clear;
51      end;
52      //with AList do for i := 0 to Count - 1 do with TMedListRec(Items[i]) do Free;
53      //AList.Clear;
54    end;