Function

ActionOnComplexOrder

Module

fODChild

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function ActionOnComplexOrder(AnList: TStringList; CaptionTxt: string = ''; ShowCancel: boolean = False): boolean;

Calls Hierarchy


ActionOnComplexOrder
 └TfrmBase508Form.Create
   ├TfrmBase508Form.UpdateAccessibilityActions
   ├UnfocusableControlEnter
   └AdjustControls
     ├TfrmBase508Form.ModifyUnfocusableControl
     └..(rec)..

Called-By Hierarchy


                ActionOnComplexOrder
       IsValidActionOnComplexOrder┘ 
     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.ValidateSelected┘   
        TfrmMeds.mnuActDCClick┤     
      TfrmMeds.mnuActHoldClick┤     
     TfrmMeds.mnuActRenewClick┤     
    TfrmMeds.mnuActUnholdClick┤     
    TfrmMeds.mnuActChangeClick┤     
    TfrmMeds.mnuActRefillClick┘     

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -

Called-By

Name Declaration Comments
IsValidActionOnComplexOrder function IsValidActionOnComplexOrder(AnOrderID, AnAction: string; AListBox: TListBox; var CheckedList: TStringList; var ErrMsg: string; var ParentOrderID: string): boolean; -


Source

35    function ActionOnComplexOrder(AnList: TStringList; CaptionTxt: string; ShowCancel: boolean): boolean;
36    var
37      i: integer;
38      frmODChild: TfrmODChild;
39    begin
40      frmODChild := TfrmODChild.Create(nil);
41      try
42        try
43          ResizeFormToFont(TForm(frmODChild));
44          if Length(CaptionTxt)>0 then
45            frmODChild.lblWarning.Caption := CaptionTxt;
46    
47          for i := 0 to AnList.count - 1 do
48            frmODChild.lstODComplex.Items.Add(AnList[i]);
49    
50          if not ShowCancel then
51          begin
52            frmODChild.btnOK.Visible := False;
53            frmODChild.btnCancel.Caption := 'OK';
54          end;
55    
56          frmODChild.ShowModal;
57          if frmODChild.FCmdOK then Result := True else Result := False;
58        except
59          on e: Exception do
60            Result := False;
61        end;
62      finally
63        frmODChild.Release;
64      end;
65    end;