Function

TfrmODBase.AcceptOrderChecks

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Comments

Accept & Quit Buttons 

 returns True if order was accepted with order checks, false if order should be cancelled

Visibility

Private

Owner

TfrmODBase

Declaration

function AcceptOrderChecks: Boolean;

Calls Hierarchy


TfrmODBase.AcceptOrderChecks
 ├OrderChecksEnabled
 ├TResponses.BuildOCItems
 │ ├TResponses.IValueFor
 │ └TResponses.EValueFor
 ├OrderChecksOnAccept
 └AcceptOrderWithChecks
   ├TfrmBase508Form.Create
   │ ├TfrmBase508Form.UpdateAccessibilityActions
   │ ├UnfocusableControlEnter
   │ └AdjustControls
   │   ├TfrmBase508Form.ModifyUnfocusableControl
   │   └..(rec)..
   ├IsMonograph
   └GetXtraTxt

Called-By Hierarchy


                                TfrmODBase.AcceptOrderChecks
                                      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┘   

Calls

Name Declaration Comments
AcceptOrderWithChecks function AcceptOrderWithChecks(OCList: TStringList): Boolean; -
TResponses.BuildOCItems procedure BuildOCItems(AList: TStringList; var AStartDtTm: string; const AFillerID: string); -
OrderChecksEnabled function OrderChecksEnabled: Boolean; -
OrderChecksOnAccept procedure OrderChecksOnAccept(ListOfChecks: TStringList; const FillerID, StartDtTm: string; OIList: TStringList; DupORIFN: string; Renewal: string); -

Called-By

Name Declaration Comments
TfrmODBase.ValidSave function ValidSave: Boolean; -


Source

1483  function TfrmODBase.AcceptOrderChecks: Boolean;
1484  { returns True if order was accepted with order checks, false if order should be cancelled }
1485  var
1486    StartDtTm: string;
1487    OIList: TStringList;
1488  begin
1489    Result := True;
1490    Responses.OrderChecks.Clear;
1491    if not OrderChecksEnabled then Exit;
1492    OIList := TStringList.Create;
1493    try
1494      StatusText('Order Checking...');
1495      Responses.BuildOCItems(OIList, StartDtTm, FillerID);
1496      OrderChecksOnAccept(Responses.OrderChecks, FillerID, StartDtTm, OIList, DupORIFN,'0');
1497      DupORIFN := '';
1498      StatusText('');
1499      Result :=  AcceptOrderWithChecks(Responses.OrderChecks);
1500    finally
1501      OIList.Free;
1502    end;
1503  end;