Procedure

TfraEvntDelayList.CheckMatch

Module

mEvntDelay

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public

Owner

TfraEvntDelayList

Declaration

procedure CheckMatch;

Calls Hierarchy


TfraEvntDelayList.CheckMatch
 ├isMatchedEvent
 └TfrmOrders.lstSheetsClick
   ├CloseOrdering
   ├TfrmOrders.PtEvtCompleted
   │ ├IsCompletedPtEvt
   │ ├TfrmOrders.GroupChangesUpdate
   │ │ ├TChanges.ChangeOrderGrp
   │ │ └TChanges.ReplaceODGrpName
   │ ├TfrmOrders.InitOrderSheetsForEvtDelay
   │ │ ├TfrmOrders.InitOrderSheets
   │ │ │ ├TfrmOrders.ClearOrderSheets
   │ │ │ ├LoadOrderSheetsED
   │ │ │ ├DGroupAll
   │ │ │ └EventInfo
   │ │ └TfrmOrders.DfltViewForEvtDelay
   │ │   ├TfrmOrders.CanChangeOrderView
   │ │   │ └ActiveOrdering
   │ │   └LoadOrderViewDefault
   │ ├TfrmOrders.lstSheetsClick...
   │ └TfrmOrders.RefreshOrderList
   │   ├LoadOrdersAbbr
   │   │ ├ClearOrders
   │   │ ├LoadDGroupMap
   │   │ ├ExpiredOrdersStartDT
   │   │ ├FMNow
   │   │ └SeqOfDGroup
   │   │   └LoadDGroupMap
   │   ├ClearOrders
   │   ├LoadOrdersAbbr
   │   │ ├LoadDGroupMap
   │   │ ├FMNow
   │   │ └SeqOfDGroup...
   │   ├TfrmOrders.ExpandEventSection
   │   ├TfrmOrders.CompressEventSection
   │   ├SortOrders
   │   │ ├InverseByGroup
   │   │ │ └TChanges.Exist
   │   │ ├ForwardByGroup
   │   │ │ └TChanges.Exist
   │   │ ├InverseChrono
   │   │ └ForwardChrono
   │   ├TfrmOrders.AddToListBox
   │   │ └TfrmOrders.GetPlainText
   │   │   └TfrmOrders.GetOrderText
   │   │     ├LoadFlagReason
   │   │     ├TfrmOrders.GetStartStopText
   │   │     └NameOfStatus
   │   └DGroupAll
   ├DeleteEmptyEvt
   │ ├PtEvtEmpty
   │ ├GetEventName
   │ └DeletePtEvent
   ├TfrmOrders.ChangesUpdate
   │ ├TheParentPtEvt
   │ └TChanges.Remove
   │   ├UnlockOrder
   │   └UnlockDocument
   ├TfrmOrders.InitOrderSheetsForEvtDelay...
   ├..(rec)..
   ├LoadWriteOrdersED
   ├LoadWriteOrders
   ├TfrmOrders.RefreshOrderList...
   ├PtEvtEmpty
   └DeletePtEvent

Called-By Hierarchy


                       TfraEvntDelayList.CheckMatch
                          TfrmOrdersTS.cmdOKClick┘ 
TfrmOrdersTS.fraEvntDelayListmlstEventsDblClick┤   
                       TfrmOrdersTS.FormKeyDown┘   

Calls

Name Declaration Comments
isMatchedEvent function isMatchedEvent(const APtDFN: string; const AEvtID: string; var ATs: string): Boolean; -
TfrmOrders.lstSheetsClick procedure lstSheetsClick(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmOrdersTS.cmdOKClick procedure cmdOKClick(Sender: TObject); -


Source

160   procedure TfraEvntDelayList.CheckMatch;
161   var
162     AnEvtID, ATsName: string;
163   begin
164     if mlstEvents.ItemIndex < 0 then Exit;
165     FMatchedCancel := False;
166     AnEvtID   := Piece(mlstEvents.Items[mlstEvents.ItemIndex],'^',1);
167     if isMatchedEvent(Patient.DFN,AnEvtID,ATsName) and (not DisableWarning) then
168     begin
169       if InfoBox(Patient.Name + TX_MCHEVT1 + ATsName + ' on ' + Encounter.LocationName + TX_MCHEVT2,
170         'Warning', MB_OKCANCEL or MB_ICONWARNING) = IDCANCEL then
171       begin
172         FMatchedCancel := True;
173         frmOrders.lstSheets.ItemIndex := 0;
174         frmOrders.lstSheetsClick(Self);
175       end;
176     end;
177   end;