Procedure

TfrmBALocalDiagnoses.BuildBADxList

Module

fBALocalDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Visibility

Private

Owner

TfrmBALocalDiagnoses

Declaration

procedure BuildBADxList;

Called-By Hierarchy


TfrmBALocalDiagnoses.BuildBADxList
  TfrmBALocalDiagnoses.buOKClick┘ 

Called-By

Name Declaration Comments
TfrmBALocalDiagnoses.buOKClick procedure buOKClick(Sender: TObject); -


Source

928   procedure TfrmBALocalDiagnoses.BuildBADxList;
929   begin
930      if not assigned(BADiagnosisList) then
931      begin
932         BADiagnosisList := TStringList.Create;
933         BADiagnosisList.Duplicates := dupIgnore;
934         BADiagnosisList.Sorted := True;
935      end;
936   
937      if UBAGlobals.Dx1 <> '' then
938         BADiagnosisList.Add(U + UBAGlobals.Dx1 + U);
939   
940      if UBAGlobals.Dx2 <> '' then
941         BADiagnosisList.Add(U + UBAGlobals.Dx2 + U);
942   
943      if UBAGlobals.Dx3 <> '' then
944         BADiagnosisList.Add(U + UBAGlobals.Dx3 + U);
945   
946      if UBAGlobals.Dx4 <> '' then
947         BADiagnosisList.Add(U + UBAGlobals.Dx4 + U);
948   end;