Function

IsFirstDoseNowOrder

Module

rMeds

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function IsFirstDoseNowOrder(OrderID: string): boolean;

Called-By Hierarchy


               IsFirstDoseNowOrder
     TfrmOrders.ValidateSelected┤ 
      TfrmOrders.mnuActDCClick┤ │ 
     TfrmOrders.mnuActRelClick┤ │ 
 TfrmOrders.mnuActChgEvntClick┤ │ 
    TfrmOrders.mnuActHoldClick┤ │ 
  TfrmOrders.mnuActUnholdClick┤ │ 
   TfrmOrders.mnuActRenewClick┤ │ 
   TfrmOrders.mnuActAlertClick┤ │ 
TfrmOrders.mnuActCompleteClick┤ │ 
  TfrmOrders.mnuActVerifyClick┤ │ 
TfrmOrders.mnuActChartRevClick┤ │ 
  TfrmOrders.mnuActChangeClick┤ │ 
    TfrmOrders.mnuActCopyClick┤ │ 
 TfrmOrders.mnuActReleaseClick┤ │ 
 TfrmOrders.mnuActOnChartClick┤ │ 
    TfrmOrders.mnuActSignClick┘ │ 
            TfrmMeds.NotifyOrder┤ 
          TfrmFrame.UMNewOrder┘ │ 
       TfrmMeds.ValidateSelected┘ 
        TfrmMeds.mnuActDCClick┤   
      TfrmMeds.mnuActHoldClick┤   
     TfrmMeds.mnuActRenewClick┤   
    TfrmMeds.mnuActUnholdClick┤   
    TfrmMeds.mnuActChangeClick┤   
    TfrmMeds.mnuActRefillClick┘   

Called-By

Name Declaration Comments
TfrmMeds.NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; -
TfrmOrders.ValidateSelected procedure ValidateSelected(const AnAction, WarningMsg, WarningTitle: string); -
TfrmMeds.ValidateSelected procedure ValidateSelected(AListBox: TListBox; const AnAction, WarningMsg, WarningTitle: string); -


Source

240   function IsFirstDoseNowOrder(OrderID: string): boolean;
241   begin
242     Result := SCallV('ORWDXR ISNOW',[OrderID])= '1';
243   end;