Module

fOMAction

Path

C:\CPRS\CPRS30\Orders\fOMAction.pas

Last Modified

7/15/2014 3:26:42 PM

Units Used in Interface

Name Comments
fAutoSz -
rOrders -

Units Used in Implementation

Name Comments
uConst -

Classes

Name Comments
TfrmOMAction -

Procedures

Name Owner Declaration Scope Comments
FormDestroy TfrmOMAction procedure FormDestroy(Sender: TObject); Public/Published -
InitDialog TfrmOMAction procedure InitDialog; virtual; Protected -

Global Variables

Name Type Declaration Comments
frmOMAction TfrmOMAction frmOMAction: TfrmOMAction; -


Module Source

1     unit fOMAction;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       fAutoSz, rOrders, VA508AccessibilityManager;
8     
9     
10    type
11      TCallOnExit = procedure;
12    
13      TfrmOMAction = class(TfrmAutoSz)
14        procedure FormDestroy(Sender: TObject);
15      private
16        FCallOnExit:   TCallOnExit;
17        FOrderDialog:  Integer;
18        FRefNum:       Integer;
19        FAbortAction:  boolean;
20      protected
21        procedure InitDialog; virtual;
22      public
23        property CallOnExit:  TCallOnExit read FCallOnExit   write FCallOnExit;
24        property OrderDialog: Integer     read FOrderDialog  write FOrderDialog;
25        property RefNum:      Integer     read FRefNum       write FRefNum;
26        property AbortAction: boolean     read FAbortAction  write FAbortAction;
27      end;
28    
29    
30    var
31      frmOMAction: TfrmOMAction;
32    
33    implementation
34    
35    {$R *.DFM}
36    
37    uses
38      uConst;
39    
40    procedure TfrmOMAction.FormDestroy(Sender: TObject);
41    begin
42      if Assigned(FCallOnExit) then FCallOnExit;
43      if (Owner <> nil) and (Owner is TWinControl)
44        then SendMessage(TWinControl(Owner).Handle, UM_DESTROY, FRefNum, 0);
45      inherited;
46    end;
47    
48    procedure TfrmOMAction.InitDialog;
49    begin
50      FAbortAction := False;
51    end;
52    
53    end.

Module Calls (2 levels)


fOMAction
 ├fAutoSz
 │ └fBase508Form
 └uConst

Module Called-By (2 levels)


                   fOMAction
                   uOrders┤ 
                   uCore┤ │ 
                 fODBase┤ │ 
                 rODBase┤ │ 
                  fFrame┤ │ 
                 fOrders┤ │ 
             fOrdersSign┤ │ 
                   fMeds┤ │ 
               fARTAllgy┤ │ 
                  fNotes┤ │ 
               fConsults┤ │ 
         fReminderDialog┤ │ 
                 fReview┤ │ 
            fOrdersRenew┤ │ 
               fOrdersCV┤ │ 
                 fODMeds┤ │ 
                 fOMNavA┤ │ 
         fOrderSaveQuick┤ │ 
                  fOMSet┤ │ 
          fOrdersRelease┤ │ 
                 fOMHTML┤ │ 
               fODMedNVA┤ │ 
fODChangeUnreleasedRenew┤ │ 
          fOrdersOnChart┤ │ 
         fODReleaseEvent┤ │ 
               fODActive┘ │ 
              fARTAllgy...┤ 
                fOMHTML...┘