Procedure

TfrmBALocalDiagnoses.AddPersonalDxToDiagnosisList

Module

fBALocalDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Visibility

Private

Owner

TfrmBALocalDiagnoses

Declaration

procedure AddPersonalDxToDiagnosisList;

Calls Hierarchy


TfrmBALocalDiagnoses.AddPersonalDxToDiagnosisList
 └rpcGetPersonalDxList

Called-By Hierarchy


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

Calls

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

Called-By

Name Declaration Comments
TfrmBALocalDiagnoses.LoadEncounterForm procedure LoadEncounterForm; -


Source

414   procedure TfrmBALocalDiagnoses.AddPersonalDxToDiagnosisList;
415   var
416    personalDxList: TStringList;
417    personalDxListSorted: TStringList;
418    i,z: integer;
419   begin
420   
421      personalDxList := TStringList.Create;
422      personalDxListSorted := TStringlist.Create;
423      personalDxList.Clear;
424      personalDxListSorted.Clear;
425      personalDxList := rpcGetPersonalDxList(User.DUZ);
426      for i := 0 to personalDxList.Count-1 do
427         personalDxListSorted.Add(Piece(personalDXList.Strings[i],U,2) + U + (Piece(personalDXList.Strings[i],U,1)) );
428      //******  sort personal dx list alphabetical by code name
429       personalDxListSorted.Sorted := False;
430       personalDxListSorted.Sorted := True ;
431       personalDxList.Clear;
432       for z := 0 to personalDxListSorted.Count-1 do
433           personalDxList.Add(Piece(personalDXListSorted.Strings[z],U,2) + U + (Piece(personalDXListSorted.Strings[z],U,1)) );
434   
435   
436      if personalDxList.Count > 0  then
437      begin
438         BADiagnosis.add(U + DX_PERSONAL_LIST_TXT);
439         for i := 0 to personalDxList.Count-1 do
440            BADiagnosis.Add(personalDxList.Strings[i]);
441      end
442      else
443         BADiagnosis.add('^NO Personal Diagnoses Available');
444   end;