Function

AuthorizedUser

Module

uOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

Ordering Environment

Scope

Interfaced

Declaration

function AuthorizedUser: Boolean;

Called-By Hierarchy


                               AuthorizedUser
                           ReadyForNewOrder┤ 
                TfrmRemDlg.btnFinishClick┤ │ 
TfrmConsults.mnuActNewConsultRequestClick┤ │ 
        TfrmConsults.cmdNewConsultClick┘ │ │ 
     TfrmConsults.mnuActNewProcedureClick┤ │ 
           TfrmConsults.cmdNewProcClick┘ │ │ 
                             ChangeOrders┤ │ 
           TfrmOrders.mnuActChangeClick┤ │ │ 
             TfrmMeds.mnuActChangeClick┘ │ │ 
                          ChangeOrdersEvt┤ │ 
                               CopyOrders┤ │ 
             TfrmOrders.mnuActCopyClick┤ │ │ 
               TfrmMeds.mnuActCopyClick┤ │ │ 
                TfrmODActive.btnOKClick┘ │ │ 
                           TransferOrders┤ │ 
             TfrmOrders.mnuActCopyClick┤ │ │ 
               TfrmMeds.mnuActCopyClick┤ │ │ 
                TfrmODActive.btnOKClick┘ │ │ 
                 TfrmOrders.lstWriteClick┤ │ 
                  TfrmMeds.mnuActNewClick┘ │ 
                          ReadyForNewOrder1┤ 
    TfrmOrders.PlaceOrderForDefaultDialog┘ │ 
       TfrmOrders.DisplayDefaultDlgList┤   │ 
            TfrmOrders.ResetOrderPage┘ │   │ 
    TfrmOrders.btnDelayedOrderClick┘   │   │ 
                      DisplayEvntDialog┤   │ 
                  SetDelayEventForMed┘ │   │ 
           TfrmMeds.mnuActCopyClick┘   │   │ 
                      DisplayEvntDialog┤   │ 
                       SetViewForCopy┘ │   │ 
         TfrmOrders.mnuActCopyClick┘   │   │ 
                      DisplayEvntDialog┘   │ 
                     ExecuteChangeEvt┘     │ 
      TfrmOrders.mnuActChgEvntClick┘       │ 
                   TfrmOrders.mnuActDCClick┤ 
                  TfrmOrders.mnuActRelClick┤ 
              TfrmOrders.mnuActChgEvntClick┤ 
                 TfrmOrders.mnuActHoldClick┤ 
               TfrmOrders.mnuActUnholdClick┤ 
                TfrmOrders.mnuActRenewClick┤ 
                TfrmOrders.mnuActAlertClick┤ 
                 TfrmOrders.mnuActFlagClick┤ 
               TfrmOrders.mnuActUnflagClick┤ 
             TfrmOrders.mnuActCompleteClick┤ 
              TfrmOrders.mnuActCommentClick┤ 
              TfrmOrders.mnuActReleaseClick┤ 
              TfrmOrders.mnuActOnChartClick┤ 
                 TfrmOrders.mnuActSignClick┤ 
                     TfrmMeds.mnuActDCClick┤ 
                   TfrmMeds.mnuActHoldClick┤ 
                  TfrmMeds.mnuActRenewClick┤ 
                 TfrmMeds.mnuActUnholdClick┤ 
                 TfrmMeds.mnuActRefillClick┘ 

Called-By

Name Declaration Comments
TfrmOrders.mnuActAlertClick procedure mnuActAlertClick(Sender: TObject); -
TfrmOrders.mnuActChgEvntClick procedure mnuActChgEvntClick(Sender: TObject); -
TfrmOrders.mnuActCommentClick procedure mnuActCommentClick(Sender: TObject); -
TfrmOrders.mnuActCompleteClick procedure mnuActCompleteClick(Sender: TObject); -
TfrmOrders.mnuActDCClick procedure mnuActDCClick(Sender: TObject); -
TfrmMeds.mnuActDCClick procedure mnuActDCClick(Sender: TObject); -
TfrmOrders.mnuActFlagClick procedure mnuActFlagClick(Sender: TObject); -
TfrmOrders.mnuActHoldClick procedure mnuActHoldClick(Sender: TObject); -
TfrmMeds.mnuActHoldClick procedure mnuActHoldClick(Sender: TObject); -
TfrmOrders.mnuActOnChartClick procedure mnuActOnChartClick(Sender: TObject); -
TfrmMeds.mnuActRefillClick procedure mnuActRefillClick(Sender: TObject); -
TfrmOrders.mnuActRelClick procedure mnuActRelClick(Sender: TObject); -
TfrmOrders.mnuActReleaseClick procedure mnuActReleaseClick(Sender: TObject); -
TfrmOrders.mnuActRenewClick procedure mnuActRenewClick(Sender: TObject); -
TfrmMeds.mnuActRenewClick procedure mnuActRenewClick(Sender: TObject); -
TfrmOrders.mnuActSignClick procedure mnuActSignClick(Sender: TObject); -
TfrmOrders.mnuActUnflagClick procedure mnuActUnflagClick(Sender: TObject); -
TfrmOrders.mnuActUnholdClick procedure mnuActUnholdClick(Sender: TObject); -
TfrmMeds.mnuActUnholdClick procedure mnuActUnholdClick(Sender: TObject); -
ReadyForNewOrder function ReadyForNewOrder(AnEvent: TOrderDelayEvent): Boolean; -
ReadyForNewOrder1 function ReadyForNewOrder1(AnEvent: TOrderDelayEvent): Boolean; -


Source

302   function AuthorizedUser: Boolean;
303   begin
304     Result := True;
305     if User.NoOrdering then Result := False;
306     if User.OrderRole = OR_BADKEYS then
307     begin
308       InfoBox(TX_BADKEYS, TC_BADKEYS, MB_OK);
309       Result := False;
310     end;
311   end;