Procedure

ListLabReports

Module

rReports

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure ListLabReports(Dest: TStrings);

Calls Hierarchy


ListLabReports
 └LoadTree
   └ExtractSection

Called-By Hierarchy


                            ListLabReports
                   TfrmLabs.LoadTreeView┘ 
                  TfrmLabs.DisplayPage┤   
TfrmOptionsReportsCustom.btnApplyClick┘   
 TfrmOptionsReportsCustom.btnOKClick┘     

Calls

Name Declaration Comments
LoadTree procedure LoadTree(Tab: String); -

Called-By

Name Declaration Comments
TfrmLabs.LoadTreeView procedure LoadTreeView; -


Source

167   procedure ListLabReports(Dest: TStrings);
168   var
169     i: integer;
170   begin
171     {if uLabreports = nil then LoadLabReportLists;
172     for i := 0 to uLabReports.Count - 1 do Dest.Add(Pieces(uLabReports[i], U, 1, 10)); }
173     if uTree = nil
174       then LoadTree('LABS')
175     else
176       begin
177         uTree.Clear;
178         LoadTree('LABS');
179       end;
180     for i := 0 to uTree.Count - 1 do Dest.Add(Pieces(uTree[i], '^', 1, 20));
181   end;