Module

fGraphOthers

Path

C:\CPRS\CPRS30\fGraphOthers.pas

Last Modified

7/15/2014 3:26:36 PM

Units Used in Interface

Name Comments
fBase508Form -
rCore -
uCore -
uGraphs -

Units Used in Implementation

Name Comments
fGraphData -
rGraphs -
rLabs -

Classes

Name Comments
TfrmGraphOthers -

Procedures

Name Owner Declaration Scope Comments
AddTests TfrmGraphOthers procedure AddTests(tests: TStrings); Private -
cboOthersClick TfrmGraphOthers procedure cboOthersClick(Sender: TObject); Public/Published -
cboOthersNeedData TfrmGraphOthers procedure cboOthersNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published -
DialogGraphOthers - procedure DialogGraphOthers(size: integer); Interfaced -
FormShow TfrmGraphOthers procedure FormShow(Sender: TObject); Public/Published -
lstViewsClick TfrmGraphOthers procedure lstViewsClick(Sender: TObject); Public/Published -

Global Variables

Name Type Declaration Comments
frmGraphOthers TfrmGraphOthers frmGraphOthers: TfrmGraphOthers; -


Module Source

1     unit fGraphOthers;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7       Dialogs, StdCtrls, ComCtrls, ORCtrls, ExtCtrls, ORFn, uGraphs, rCore, uCore,
8       fBase508Form, VA508AccessibilityManager;
9     
10    type
11      TfrmGraphOthers = class(TfrmBase508Form)
12        pnlMain: TORAutoPanel;
13        lblOthers: TLabel;
14        cboOthers: TORComboBox;
15        lstViews: TORListBox;
16        memReport: TRichEdit;
17        pnlBottom: TPanel;
18        lblViews: TLabel;
19        lblInfo: TLabel;
20        lblDefinitions: TLabel;
21        btnClose: TButton;
22        btnCopy: TButton;
23        pnlTempData: TPanel;
24        lblSave: TLabel;
25        lblClose: TLabel;
26        lstActualItems: TORListBox;
27        lstDrugClass: TListBox;
28        lstScratch: TListBox;
29        lstTests: TListBox;
30        procedure cboOthersNeedData(Sender: TObject; const StartFrom: string;
31          Direction, InsertAt: Integer);
32        procedure FormShow(Sender: TObject);
33        procedure cboOthersClick(Sender: TObject);
34        procedure lstViewsClick(Sender: TObject);
35      private
36        procedure AddTests(tests: TStrings);
37      public
38        { Public declarations }
39      end;
40    
41    var
42      frmGraphOthers: TfrmGraphOthers;
43    
44      procedure DialogGraphOthers(size: integer);
45    
46    implementation
47    
48    {$R *.dfm}
49    
50    uses
51      rGraphs, fGraphData, rLabs;
52    
53    procedure DialogGraphOthers(size: integer);
54    var
55      aList: TStrings;
56      frmGraphOthers: TfrmGraphOthers;
57    begin
58      aList := TStringList.Create;
59      frmGraphOthers := TfrmGraphOthers.Create(Application);
60      try
61        with frmGraphOthers do
62        begin
63          ResizeAnchoredFormToFont(frmGraphOthers);
64          ShowModal;
65        end;
66      finally
67        frmGraphOthers.Release;
68        aList.Free;
69      end;
70    end;
71    
72    procedure TfrmGraphOthers.cboOthersClick(Sender: TObject);
73    begin
74      FastAssign(TestGroups(cboOthers.ItemIEN), lstViews.Items);
75    end;
76    
77    procedure TfrmGraphOthers.cboOthersNeedData(Sender: TObject;
78      const StartFrom: string; Direction, InsertAt: Integer);
79    begin
80      //cboOthers.ForDataUse(SubSetOfPersons(StartFrom, Direction));
81      cboOthers.ForDataUse(Users(StartFrom, Direction));
82    end;
83    
84    procedure TfrmGraphOthers.FormShow(Sender: TObject);
85    begin
86      cboOthers.InitLongList(User.Name);
87      cboOthers.SelectByIEN(User.DUZ);
88      cboOthersClick(self);
89    end;
90    
91    procedure TfrmGraphOthers.lstViewsClick(Sender: TObject);
92    begin
93      AddTests(ATestGroup(lstViews.ItemIEN, cboOthers.ItemIEN));
94    end;
95    
96    procedure TfrmGraphOthers.AddTests(tests: TStrings);
97    var
98      i, j: integer;
99      ok: boolean;
100   begin
101     for i := 0 to tests.Count - 1 do
102     begin
103       ok := true;
104       for j := 0 to memReport.Lines.Count - 1 do
105         if memReport.Lines[j] = tests[i] then
106         begin
107           ok := false;
108         end;
109       if ok then
110       begin
111         memReport.Lines.Add(tests[i]);
112       end;
113     end;
114   end;
115   
116   end.

Module Calls (2 levels)


fGraphOthers
 ├uCore
 │ ├rCore
 │ ├uConst
 │ ├uCombatVet
 │ ├rTIU
 │ ├rOrders
 │ ├rConsults
 │ └uOrders
 ├fBase508Form
 │ ├uConst
 │ └uHelpManager
 └rLabs
   ├uCore...
   └rMisc

Module Called-By (2 levels)


    fGraphOthers
       fGraphs┤ 
      fFrame┤ │ 
    fReports┘ │ 
fGraphProfiles┘ 
  fGraphs...┤   
    fOptions┘