Procedure

LESValidationForChangedLabOrder

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure LESValidationForChangedLabOrder(var RejectedReason: TStringList; AnOrderInfo: string);

Called-By Hierarchy


                               LESValidationForChangedLabOrder
                               TfrmODBase.LESValidationCheck┘ 
                                      TfrmODBase.ValidSave┘   
                               TfrmODBase.cmdAcceptClick┤     
                                   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┘     │     
                               TfrmODBase.FormCloseQuery┤     
                                     TfrmODBase.TabClose┤     
                            TfrmODAllergy.cmdAcceptClick┘     

Called-By

Name Declaration Comments
TfrmODBase.LESValidationCheck function LESValidationCheck: boolean; -


Source

1759  procedure LESValidationForChangedLabOrder(var RejectedReason: TStringList; AnOrderInfo: string);
1760  begin
1761    CallV('ORWDPS5 LESAPI',[AnOrderInfo]);
1762    if RPCBrokerV.Results.Count > 0 then
1763      FastAssign(RPCBrokerV.Results, RejectedReason);
1764  end;