Procedure

TfrmBAOptionsDiagnoses.lbDiagnosisClick

Module

fBAOptionsDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmBAOptionsDiagnoses

Declaration

procedure lbDiagnosisClick(Sender: TObject);

Calls Hierarchy


TfrmBAOptionsDiagnoses.lbDiagnosisClick
 ├rpcAddToPersonalDxList
 └rpcGetPersonalDxList

Calls

Name Declaration Comments
rpcAddToPersonalDxList function rpcAddToPersonalDxList(UserDUZ:int64; DxCodes:TStringList):boolean; -
rpcGetPersonalDxList function rpcGetPersonalDxList(UserDUZ:int64):TStringList; -


Source

295   procedure TfrmBAOptionsDiagnoses.lbDiagnosisClick(Sender: TObject);
296   var
297    i : integer;
298     newDxCodes: TStringList;
299     selectedCode: String;
300   begin
301     inherited;
302     newDxCodes := TStringList.Create;
303     newDxCodes.Clear;
304     for i := 0 to lbDiagnosis.Items.Count-1 do
305     begin
306           if(lbDiagnosis.Selected[i]) then
307           begin
308              selectedCode := Piece(lbDiagnosis.Items[i],U,2);
309              newDxCodes.Add(selectedCode);
310           end;
311           if newDxCodes.Count > 0 then
312           begin
313              rpcAddToPersonalDxList(User.DUZ,NewDxCodes);
314              NewDxCodes.Clear;
315              lbPersonalDx.Items := rpcGetPersonalDxList(User.DUZ);
316           end;
317     end;
318   end;