Procedure

ValidateOrderAction

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure ValidateOrderAction(const ID, Action: string; var ErrMsg: string);

Called-By Hierarchy


                                     ValidateOrderAction
                                   ActivateOrderDialog┤ 
                           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┤ │ 
               TfrmOrders.PlaceOrderForDefaultDialog┤ │ 
                  TfrmOrders.DisplayDefaultDlgList┤ │ │ 
                       TfrmOrders.ResetOrderPage┘ │ │ │ 
               TfrmOrders.btnDelayedOrderClick┘   │ │ │ 
                                 DisplayEvntDialog┤ │ │ 
                             SetDelayEventForMed┘ │ │ │ 
                      TfrmMeds.mnuActCopyClick┘   │ │ │ 
                                 DisplayEvntDialog┤ │ │ 
                                  SetViewForCopy┘ │ │ │ 
                    TfrmOrders.mnuActCopyClick┘   │ │ │ 
                                 DisplayEvntDialog┘ │ │ 
                                ExecuteChangeEvt┘   │ │ 
                 TfrmOrders.mnuActChgEvntClick┘     │ │ 
                             TfrmMeds.mnuActNewClick┤ │ 
                           TfrmOMNavA.ActivateDialog┤ │ 
                         TfrmOMNavA.grdMenuKeyDown┤ │ │ 
                         TfrmOMNavA.grdMenuMouseUp┘ │ │ 
                                TfrmOMSet.DoNextItem┘ │ 
                              TfrmOMSet.InsertList┤   │ 
                               ActivateOrderList┘ │   │ 
                     TfrmRemDlg.btnFinishClick┤   │   │ 
                             ActivateOrderHTML┤   │   │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┘ │   │   │ 
                              ActivateOrderSet┤   │   │ 
                   TfrmRemDlg.btnFinishClick┤ │   │   │ 
TfrmConsults.mnuActNewConsultRequestClick...┤ │   │   │ 
     TfrmConsults.mnuActNewProcedureClick...┤ │   │   │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │   │ 
                     TfrmMeds.mnuActNewClick┤ │   │   │ 
                TfrmOMNavA.ActivateDialog...┤ │   │   │ 
                     TfrmOMSet.DoNextItem...┘ │   │   │ 
                       TfrmOMNavA.DoSelectList┘   │   │ 
                     TfrmOMNavA.grdMenuKeyUp┤     │   │ 
                   TfrmOMNavA.grdMenuMouseUp┘     │   │ 
                                        SkipToNext┤   │ 
                         TfrmOMSet.DoNextItem...┘ │   │ 
                            TfrmOMSet.UMDelayEvent┘   │ 
                           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┘ │ 
                            TfrmOrders.mnuActFlagClick┤ 
                          TfrmOrders.mnuActUnflagClick┤ 
                         TfrmOrders.mnuActCommentClick┤ 
                       TfrmOrders.ProcessNotifications┤ 
                              TfrmOrders.DisplayPage┘ │ 
                             TfrmMeds.ValidateSelected┘ 
                              TfrmMeds.mnuActDCClick┤   
                            TfrmMeds.mnuActHoldClick┤   
                           TfrmMeds.mnuActRenewClick┤   
                          TfrmMeds.mnuActUnholdClick┤   
                          TfrmMeds.mnuActChangeClick┤   
                          TfrmMeds.mnuActRefillClick┘   

Called-By

Name Declaration Comments
ActivateOrderDialog function ActivateOrderDialog(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer; ANeedVerify: boolean = True): Boolean; -
TfrmOrders.mnuActCommentClick procedure mnuActCommentClick(Sender: TObject); -
TfrmOrders.mnuActFlagClick procedure mnuActFlagClick(Sender: TObject); -
TfrmOrders.mnuActUnflagClick procedure mnuActUnflagClick(Sender: TObject); -
TfrmOrders.ProcessNotifications procedure ProcessNotifications; -
TfrmOrders.ValidateSelected procedure ValidateSelected(const AnAction, WarningMsg, WarningTitle: string); -
TfrmMeds.ValidateSelected procedure ValidateSelected(AListBox: TListBox; const AnAction, WarningMsg, WarningTitle: string); -


Source

1475  procedure ValidateOrderAction(const ID, Action: string; var ErrMsg: string);
1476  begin
1477    if Action = OA_SIGN then ErrMsg := sCallV('ORWDXA VALID', [ID, Action, User.DUZ])
1478    else ErrMsg := sCallV('ORWDXA VALID', [ID, Action, Encounter.Provider]);
1479  end;