Procedure

Highlight

Module

fMedCopy

Last Modified

7/15/2014 3:26:38 PM

Scope

Local

Local subprogram to

SetDelayEventForMed

Declaration

procedure Highlight(APtEvtID: string);

Calls Hierarchy


Highlight
 └TfrmOrders.InitOrderSheetsForEvtDelay
   ├TfrmOrders.InitOrderSheets
   │ ├TfrmOrders.ClearOrderSheets
   │ ├LoadOrderSheetsED
   │ ├DGroupAll
   │ └EventInfo
   └TfrmOrders.DfltViewForEvtDelay
     ├TfrmOrders.CanChangeOrderView
     │ └ActiveOrdering
     └LoadOrderViewDefault

Called-By Hierarchy


                   Highlight
       SetDelayEventForMed┘ 
TfrmMeds.mnuActCopyClick┘   

Calls

Name Declaration Comments
TfrmOrders.InitOrderSheetsForEvtDelay procedure InitOrderSheetsForEvtDelay; -

Called-By

Name Declaration Comments
SetDelayEventForMed function SetDelayEventForMed(const RadCap: string; var ADelayEvent: TOrderDelayEvent; var IsNewEvent: Boolean; LimitEvent: Char): Boolean; -


Source

71    procedure Highlight(APtEvtID: string);
72    var
73      j: integer;
74    begin
75      frmOrders.InitOrderSheetsForEvtDelay;
76      for j := 0 to frmOrders.lstSheets.Items.Count - 1 do
77      begin
78        if Piece(frmOrders.lstSheets.Items[j],'^',1)=APtEvtID then
79        begin
80          frmOrders.lstSheets.ItemIndex := j;
81          break;
82        end;
83      end;
84    end;