Procedure

TfrmBALocalDiagnoses.BuildConsultDxList

Module

fBALocalDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Comments

** adds grid items to BAConsultDxList - uConsults

Visibility

Private

Owner

TfrmBALocalDiagnoses

Declaration

procedure BuildConsultDxList(pDxList: TStringList);

Called-By Hierarchy


TfrmBALocalDiagnoses.BuildConsultDxList
       TfrmBALocalDiagnoses.buOKClick┘ 

Called-By

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


Source

830   procedure TfrmBALocalDiagnoses.BuildConsultDxList(pDxList: TStringList); // ** adds grid items to BAConsultDxList - uConsults
831   var
832     i: integer;
833     x: string;
834   begin
835       UBAGlobals.BAConsultDxList.Clear;
836   
837       if lvDxGrid.Items.Count > 0 then
838       with lvDxGrid do
839       begin
840          for i := 0 to Items.Count-1 do
841          begin
842             if i = 0 then fODConsult.displayDXCode := lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1];
843             x:= lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1];
844             if Piece(lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1],U,1) = PRIMARY_DX  then
845                fODConsult.displayDXCode := Piece(lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1],U,2);
846             UBAGlobals.BAConsultDxList.Add(lvDxGrid.Items[i].Subitems[0] + '^' + lvDxGrid.Items[i].Subitems[1]);
847          end;
848          UBAGlobals.BAConsultDxList.Sort;
849       end
850       else
851          UBAGlobals.BAConsultDxList.Clear;
852   end;