Procedure

TfrmBALocalDiagnoses.AddPCEToDiagnosis

Module

fBALocalDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Comments

Adds dx's if selected currently from ecf

Visibility

Private

Owner

TfrmBALocalDiagnoses

Declaration

procedure AddPCEToDiagnosis;//**  adds dx's if selected currently from ecf

Called-By Hierarchy


                            TfrmBALocalDiagnoses.AddPCEToDiagnosis
                          TfrmBALocalDiagnoses.LoadEncounterForm┘ 
                               TfrmBALocalDiagnoses.MainDriver┤   
                             TfrmBALocalDiagnoses.FormCreate┘ │   
TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList1Click┤   
TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList2Click┘   

Called-By

Name Declaration Comments
TfrmBALocalDiagnoses.LoadEncounterForm procedure LoadEncounterForm; -


Source

401   procedure TfrmBALocalDiagnoses.AddPCEToDiagnosis;
402   var
403     i: integer;
404   begin
405        for i := 0 to (BAPCEDiagList.Count-1) do
406        begin
407           if CharAt(BAPCEDiagList.Strings[i], 1) = U then
408              BADiagnosis.Add(BAPCEDiagList.Strings[i])  //** section header
409           else
410              BADiagnosis.add(Piece(BAPCEDiagList.Strings[i],U,1) + U + Piece(BAPCEDiagList.Strings[i],U,2));
411       end;
412   end;