Procedure

TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList2Click

Module

fBALocalDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmBALocalDiagnoses

Declaration

procedure AddDiagnosistoPersonalDiagnosesList2Click(Sender: TObject);

Calls Hierarchy


TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList2Click
 ├rpcAddToPersonalDxList
 └TfrmBALocalDiagnoses.LoadEncounterForm
   ├FMToday
   │ └FMNow
   ├TfrmBALocalDiagnoses.AddProbsToDiagnosis
   │ ├FMToday...
   │ └AttachPLTFactorsToDx
   │   └ProcessProblemTFactors
   ├TfrmBALocalDiagnoses.AddPersonalDxToDiagnosisList
   │ └rpcGetPersonalDxList
   └TfrmBALocalDiagnoses.AddPCEToDiagnosis

Calls

Name Declaration Comments
TfrmBALocalDiagnoses.LoadEncounterForm procedure LoadEncounterForm; -
rpcAddToPersonalDxList function rpcAddToPersonalDxList(UserDUZ:int64; DxCodes:TStringList):boolean; -


Source

1161  procedure TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList2Click(
1162    Sender: TObject);
1163    var i:integer;
1164        selectedList: TStringList;
1165  begin
1166    inherited;
1167    selectedList := TStringList.Create;
1168    if Assigned(selectedList) then selectedList.create;
1169  
1170    for i := 0 to lvDxGrid.Items.Count-1 do
1171    begin
1172    if(lvDxGrid.Items[i].Selected) then
1173       selectedList.Add( piece(LvDxGrid.Items[i].SubItems[1],':',2) );
1174    end;
1175    if UBACore.rpcAddToPersonalDxList(User.DUZ,selectedList) then
1176    begin
1177       ShowMsg(UBAMessages.BA_PERSONAL_LIST_UPDATED);
1178       LoadEncounterForm;
1179       Refresh;
1180    end;
1181  end;