Procedure

Module

Last Modified

Comments

Adds dx's if selected currently from ecf

Visibility

Owner

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;