Procedure

TParentEvent.Assign

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

TParentEvent

Visibility

Public

Owner

TParentEvent

Declaration

procedure Assign(AnEvtID: string);

Calls Hierarchy


TParentEvent.Assign
 └EventInfo1

Called-By Hierarchy


                  TParentEvent.Assign
ShowDelayedEventsTreatingSepecialty┤ 
  TfrmOrders.btnDelayedOrderClick┘ │ 
                SetDelayEventForMed┤ 
         TfrmMeds.mnuActCopyClick┘ │ 
                     SetViewForCopy┤ 
       TfrmOrders.mnuActCopyClick┘ │ 
                   ExecuteChangeEvt┘ 
    TfrmOrders.mnuActChgEvntClick┘   

Calls

Name Declaration Comments
EventInfo1 function EventInfo1(AnEvtID: string): string; -

Called-By

Name Declaration Comments
ExecuteChangeEvt function ExecuteChangeEvt(SelectedList: TList; var DoesDestEvtOccur: boolean; var DestPtEvtID: integer; var DestPtEvtName: string): boolean; -
SetDelayEventForMed function SetDelayEventForMed(const RadCap: string; var ADelayEvent: TOrderDelayEvent; var IsNewEvent: Boolean; LimitEvent: Char): Boolean; -
SetViewForCopy function SetViewForCopy(var IsNewEvent: boolean; var DoesDestEvtOccur: boolean; var DestPtEvtID: integer; var DestPtEvtName: string): Boolean; -
ShowDelayedEventsTreatingSepecialty function ShowDelayedEventsTreatingSepecialty(const ARadCaption: string; var AnEvent: TOrderDelayEvent; var ADlgLst: TStringlist; var ReleaseNow: boolean; AnLimitEvent: Char = #0): Boolean; -


Source

2537  procedure TParentEvent.Assign(AnEvtID: string);
2538  var
2539    evtInfo: string;
2540  begin
2541  // ORY = EVTTYPE_U_EVT_U_EVTNAME_U_EVTDISP_U_EVTDLG
2542    evtInfo := EventInfo1(AnEvtID);
2543    ParentIFN := StrToInt(AnEvtID);
2544    if Length(Piece(evtInfo,'^',4)) < 1 then
2545      ParentName := Piece(evtInfo,'^',3)
2546    else
2547      ParentName := Piece(evtInfo,'^',4);
2548    ParentType := CharAt(Piece(evtInfo,'^',1),1);
2549    ParentDlg := Piece(evtInfo,'^',5);
2550  end;