Procedure

TfrmGraphProfiles.radSourceAllClick

Module

fGraphProfiles

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphProfiles

Declaration

procedure radSourceAllClick(Sender: TObject);

Calls Hierarchy


TfrmGraphProfiles.radSourceAllClick
 ├rpcGetAllItems
 │ └onoff
 ├rpcGetItems
 │ └onoff
 ├TfrmGraphProfiles.lstSourcesChange
 │ ├TfrmGraphProfiles.CheckPublic
 │ ├TfrmGraphProfiles.AssignProfile
 │ │ ├TfrmGraphProfiles.AssignProfilePre
 │ │ │ ├GetATestGroup
 │ │ │ │ └rpcATestGroup
 │ │ │ └GetGraphProfiles
 │ │ │   └rpcGetGraphProfiles
 │ │ │     └onoff
 │ │ ├GetATestGroup...
 │ │ ├GetGraphProfiles...
 │ │ └TfrmGraphProfiles.AssignProfilePost
 │ ├TfrmGraphProfiles.AllItemsBefore
 │ ├TfrmGraphProfiles.AllItemsAfter
 │ │ └TfrmGraphProfiles.cboAllItemsChange
 │ └TfrmGraphProfiles.cboAllItemsChange
 └TfrmGraphProfiles.lstOtherSourcesChange
   ├TfrmGraphProfiles.CheckPublic
   ├TfrmGraphProfiles.AssignProfile...
   ├TfrmGraphProfiles.AllItemsBefore
   ├TfrmGraphProfiles.AllItemsAfter...
   └TfrmGraphProfiles.cboAllItemsChange

Calls

Name Declaration Comments
TfrmGraphProfiles.lstOtherSourcesChange procedure lstOtherSourcesChange(Sender: TObject); -
TfrmGraphProfiles.lstSourcesChange procedure lstSourcesChange(Sender: TObject); -
rpcGetAllItems function rpcGetAllItems(const PatientDFN: string): TStrings; -
rpcGetItems function rpcGetItems(typeitem: string; const PatientDFN: string): TStrings; -


Source

279   procedure TfrmGraphProfiles.radSourceAllClick(Sender: TObject);
280   var
281     dfn: string;
282   begin
283     if Sender = radSourceAll then
284     begin
285       lstItemsSelection.Visible := false;
286       cboAllItems.Visible := true;
287     end
288     else
289     begin
290       if radSourcePat.Tag = 0 then
291       begin
292         dfn := lblClose.Hint;
293         FastAssign(rpcGetAllItems(dfn), lstTests.Items);  // items for patient
294         FastAssign(rpcGetItems('50.605', dfn), lstDrugClass.Items);
295         radSourcePat.Tag := 1;
296       end;
297       cboAllItems.Visible := false;
298       lstItemsSelection.Visible := true;
299     end;
300     if lstSources.ItemIndex > 0 then
301     begin
302       lstSources.Tag := BIG_NUMBER;
303       lstSourcesChange(lstSources);
304     end
305     else if lstSources.ItemIndex > 0 then
306     begin
307       lstOtherSources.Tag := BIG_NUMBER;
308       lstOtherSourcesChange(lstOtherSources);
309     end;
310   end;