Function

isMatchedEvent

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function isMatchedEvent(const APtDFN: string; const AEvtID: string; var ATs: string): Boolean;

Called-By Hierarchy


                                       isMatchedEvent
                       TfraEvntDelayList.CheckMatch┤ 
                          TfrmOrdersTS.cmdOKClick┘ │ 
TfrmOrdersTS.fraEvntDelayListmlstEventsDblClick┤   │ 
                       TfrmOrdersTS.FormKeyDown┘   │ 
                 TfraEvntDelayList.mlstEventsChange┤ 
   TfrmOrdersTS.fraEvntDelayListcboEvntListChange┤ │ 
    TfrmOrdersTS.fraEvntDelayListmlstEventsChange┤ │ 
    TfrmMedCopy.fraEvntDelayListcboEvntListChange┤ │ 
     TfrmMedCopy.fraEvntDelayListmlstEventsChange┤ │ 
 TfrmCopyOrders.fraEvntDelayListcboEvntListChange┤ │ 
  TfrmCopyOrders.fraEvntDelayListmlstEventsChange┘ │ 
                    TfrmChgEvent.cboSpecialtyChange┘ 

Called-By

Name Declaration Comments
TfrmChgEvent.cboSpecialtyChange procedure cboSpecialtyChange(Sender: TObject); -
TfraEvntDelayList.CheckMatch procedure CheckMatch; -
TfraEvntDelayList.mlstEventsChange procedure mlstEventsChange(Sender: TObject); -


Source

2019  function isMatchedEvent(const APtDFN: string; const AEvtID: string; var ATs:string): Boolean;
2020  var
2021    rst: string;
2022  begin
2023    Result := False;
2024    rst := SCallV('OREVNTX1 MATCH',[APtDFN,AEvtID]);
2025    if StrToIntDef(Piece(rst,'^',1),0)>0 then
2026    begin
2027      ATs := Piece(rst,'^',2);
2028      Result := True;
2029    end;
2030  end;