Procedure

TfrmCover.NotifyOrder

Directives

Override

Module

fCover

Last Modified

7/15/2014 3:26:36 PM

Comments

REV
REV

Visibility

Public

Overrides

TfrmPage.NotifyOrder

Owner

TfrmCover

Declaration

procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override;       {REV}

Calls Hierarchy


TfrmCover.NotifyOrder
 ├TfrmCover.UpdateAllergiesList
 │ ├TfrmCover.LoadList
 │ │ ├ListGeneric
 │ │ │ ├InteractiveRemindersActive
 │ │ │ │ └GetRemindersActive
 │ │ │ └ExtractActiveMeds
 │ │ │   └MedStatusGroup
 │ │ └NoDataText
 │ └GetCWADInfo
 └ListPostings

Called-By Hierarchy


 TfrmCover.NotifyOrder
TfrmFrame.UMNewOrder┘ 

Calls

Name Declaration Comments
ListPostings procedure ListPostings(Dest: TStrings); -
TfrmCover.UpdateAllergiesList procedure UpdateAllergiesList; -

Called-By

Name Declaration Comments
TfrmFrame.UMNewOrder procedure UMNewOrder(var Message: TMessage); message UM_NEWORDER; -


Source

601   procedure TfrmCover.NotifyOrder(OrderAction: Integer; AnOrder: TOrder);    {REV}
602   var
603     i: integer;
604   begin
605     case OrderAction of
606     ORDER_SIGN:
607       begin
608         with frmCover do
609             for i := ComponentCount - 1 downto 0 do
610               begin
611                 if Components[i] is TORListBox then
612                   begin
613                     case Components[i].Tag of
614                       20: UpdateAllergiesList;
615                       30: ListPostings((Components[i] as TORListBox).Items);
616                     end;
617                   end;
618               end;
619       end;
620     end;
621   end;