Module

fOrderFlag

Path

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

Last Modified

7/15/2014 3:26:42 PM

Units Used in Interface

Name Comments
fAutoSz -
rOrders -

Units Used in Implementation

Name Comments
rCore -
uCore -

Classes

Name Comments
TfrmFlagOrder -

Procedures

Name Owner Declaration Scope Comments
cboAlertRecipientNeedData TfrmFlagOrder procedure cboAlertRecipientNeedData(Sender: TObject; const StartFrom: String; Direction, InsertAt: Integer); Public/Published -
cboOnExit TfrmFlagOrder procedure cboOnExit(Sender: TObject); Public/Published -
cmdCancelClick TfrmFlagOrder procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick TfrmFlagOrder procedure cmdOKClick(Sender: TObject); Public/Published -
FormCreate TfrmFlagOrder procedure FormCreate(Sender: TObject); Public/Published -

Functions

Name Owner Declaration Scope Comments
ExecuteFlagOrder - function ExecuteFlagOrder(AnOrder: TOrder): Boolean; Interfaced -

Global Variables

Name Type Declaration Comments
AlertRecip Int64 var AlertRecip: Int64; -


Module Source

1     unit fOrderFlag;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, ORCtrls, VA508AccessibilityManager;
8     
9     type
10      TfrmFlagOrder = class(TfrmAutoSz)
11        Label1: TLabel;
12        cmdOK: TButton;
13        cmdCancel: TButton;
14        memOrder: TMemo;
15        lblAlertRecipient: TLabel;
16        cboAlertRecipient: TORComboBox;
17        cboFlagReason: TORComboBox;
18        procedure FormCreate(Sender: TObject);
19        procedure cmdOKClick(Sender: TObject);
20        procedure cmdCancelClick(Sender: TObject);
21        procedure cboOnExit(Sender: TObject);
22        procedure cboAlertRecipientNeedData(Sender: TObject;
23          const StartFrom: String; Direction, InsertAt: Integer);
24      private
25        OKPressed: Boolean;
26      end;
27    
28    function ExecuteFlagOrder(AnOrder: TOrder): Boolean;
29    
30    implementation
31    
32    {$R *.DFM}
33    
34    uses uCore, rCore;
35    
36    var AlertRecip: Int64;
37    
38    function ExecuteFlagOrder(AnOrder: TOrder): Boolean;
39    var
40      frmFlagOrder: TfrmFlagOrder;
41    begin
42      Result := False;
43      frmFlagOrder := TfrmFlagOrder.Create(Application);
44      try
45        ResizeFormToFont(TForm(frmFlagOrder));
46        //AlertRecip := User.DUZ;
47        with frmFlagOrder do
48        begin
49          memOrder.SetTextBuf(PChar(AnOrder.Text));
50          ShowModal;
51          if OKPressed then
52          begin
53            FlagOrder(AnOrder, cboFlagReason.Text, AlertRecip);
54            Result := True;
55          end;
56        end;
57      finally
58        frmFlagOrder.Release;
59        AlertRecip := 0;
60      end;
61    end;
62    
63    procedure TfrmFlagOrder.FormCreate(Sender: TObject);
64    var
65      tmpList: TStringList;
66    begin
67      inherited;
68      OKPressed := False;
69      tmpList := TStringList.Create;
70      try
71        GetUserListParam(tmpList, 'OR FLAGGED ORD REASONS');
72        FastAssign(tmpList, cboFlagReason.Items);
73      finally
74        tmpList.Free;
75      end;
76      cboAlertRecipient.InitLongList('');
77      //cboAlertRecipient.SelectByIEN(User.DUZ);
78    end;
79    
80    procedure TfrmFlagOrder.cmdOKClick(Sender: TObject);
81    const
82      TX_REASON_REQ = 'A reason must be entered to flag an order.';
83      TC_REASON_REQ = 'Reason Required';
84    begin
85      inherited;
86      if cboFlagReason.Text = '' then
87      //if txtReason.Text = '' then
88      begin
89        InfoBox(TX_REASON_REQ, TC_REASON_REQ, MB_OK);
90        Exit;
91      end;
92      cmdOK.SetFocus;
93      OKPressed := True;
94      Close;
95    end;
96    
97    procedure TfrmFlagOrder.cmdCancelClick(Sender: TObject);
98    begin
99      inherited;
100     Close;
101   end;
102   
103   procedure TfrmFlagOrder.cboOnExit(Sender: TObject);
104   begin
105     with cboAlertRecipient do
106       if (ItemIndex = -1) or (Text = '') then
107       begin
108         AlertRecip := -1;
109         ItemIndex := -1;
110         Text := '';
111       end
112       else
113       begin
114         AlertRecip := ItemIEN;
115       end;
116   end;
117   
118   procedure TfrmFlagOrder.cboAlertRecipientNeedData(Sender: TObject;
119     const StartFrom: String; Direction, InsertAt: Integer);
120   begin
121      cboAlertRecipient.ForDataUse(SubSetOfPersons(StartFrom, Direction));
122   end;
123   
124   end.

Module Calls (2 levels)


fOrderFlag
 ├fAutoSz
 │ └fBase508Form
 ├rOrders
 │ ├uCore
 │ ├rCore
 │ ├uConst
 │ ├UBAGlobals
 │ └UBACore
 └rCore...

Module Called-By (2 levels)


             fOrderFlag
              fOrders┘ 
            uOrders┤   
            fODBase┤   
             fFrame┤   
              rMisc┤   
            uODBase┤   
              fMeds┤   
          fOrdersDC┤   
          fOrdersCV┤   
            fOMNavA┤   
             fOMSet┤   
 fOrdersEvntRelease┤   
    fODReleaseEvent┤   
         mEvntDelay┤   
          fODActive┤   
        fOrdersCopy┤   
           fMedCopy┤   
fActivateDeactivate┘