Procedure

TfrmLabTestGroups.FormCreate

Module

fLabTestGroups

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmLabTestGroups

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmLabTestGroups.FormCreate
 ├SpecimenDefaults
 └TfrmLabTestGroups.cboUsersClick
   ├TestGroups
   └TfrmLabTestGroups.TestGroupEnable

Calls

Name Declaration Comments
TfrmLabTestGroups.cboUsersClick procedure cboUsersClick(Sender: TObject); -
SpecimenDefaults procedure SpecimenDefaults(var blood, urine, serum, plasma: string); -


Source

119   procedure TfrmLabTestGroups.FormCreate(Sender: TObject);
120   var
121     i: integer;
122     blood, urine, serum, plasma: string;
123   begin
124     RedrawSuspend(cboTests.Handle);
125     cboTests.InitLongList('');
126     RedrawActivate(cboTests.Handle);
127     RedrawSuspend(cboSpecimen.Handle);
128     cboSpecimen.InitLongList('');
129     SpecimenDefaults(blood, urine, serum, plasma);
130     cboSpecimen.Items.Add('0^Any');
131     cboSpecimen.Items.Add(serum + '^Serum');
132     cboSpecimen.Items.Add(blood + '^Blood');
133     cboSpecimen.Items.Add(plasma + '^Plasma');
134     cboSpecimen.Items.Add(urine + '^Urine');
135     cboSpecimen.Items.Add(LLS_LINE);
136     cboSpecimen.Items.Add(LLS_SPACE);
137     cboSpecimen.ItemIndex := 0;
138     RedrawActivate(cboSpecimen.Handle);
139     RedrawSuspend(cboTests.Handle);
140     cboUsers.InitLongList(User.Name);
141     for i := 0 to cboUsers.Items.Count - 1 do
142       if StrToInt64Def(Piece(cboUsers.Items[i], '^', 1), 0) = User.DUZ then
143       begin
144         cboUsers.ItemIndex := i;
145         break;
146       end;
147     if cboUsers.ItemIndex > -1 then cboUsersClick(self);
148     RedrawActivate(cboTests.Handle);
149     cmdUp.Enabled := false;
150     pnlUpButton.TabStop := false;
151     cmdDown.Enabled := false;
152     pnlDownButton.TabStop := false;
153     lstList.Clear;
154   end;