Procedure

TOrder.Assign

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

TOrder methods

Visibility

Public

Owner

TOrder

Declaration

procedure Assign(Source: TOrder);

Called-By Hierarchy


           TOrder.Assign
TfrmOrders.NotifyOrder┘ 
TfrmFrame.UMNewOrder┘   

Called-By

Name Declaration Comments
TfrmOrders.NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; -


Source

385   procedure TOrder.Assign(Source: TOrder);
386   begin
387     ID           := Source.ID;
388     DGroup       := Source.DGroup;
389     OrderTime    := Source.OrderTime;
390     StartTime    := Source.StartTime;
391     StopTime     := Source.StopTime;
392     Status       := Source.Status;
393     Signature    := Source.Signature;
394     VerNurse     := Source.VerNurse;
395     VerClerk     := Source.VerClerk;
396     ChartRev     := Source.ChartRev;
397     Provider     := Source.Provider;
398     ProviderName := Source.ProviderName;
399     ProviderDEA  := Source.ProviderDEA;
400     ProviderVA   := Source.ProviderVA;
401     DigSigReq    := Source.DigSigReq;
402     XMLText      := Source.XMLText;
403     Text         := Source.Text;
404     DGroupSeq    := Source.DGroupSeq;
405     DGroupName   := Source.DGroupName;
406     Flagged      := Source.Flagged;
407     Retrieved    := Source.Retrieved;
408     EditOf       := Source.EditOf;
409     ActionOn     := Source.ActionOn;
410     EventPtr     := Source.EventPtr;
411     EventName    := Source.EventName;
412     OrderLocIEN  := Source.OrderLocIEN;
413     OrderLocName := Source.OrderLocName;
414     ParentID     := Source.ParentID;  
415     LinkObject   := Source.LinkObject;
416     IsControlledSubstance   := Source.IsControlledSubstance;
417     IsDetox   := Source.IsDetox;
418   end;