Procedure

TfrmBAOptionsDiagnoses.LoadPersonalDxList

Module

fBAOptionsDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmBAOptionsDiagnoses

Declaration

procedure LoadPersonalDxList;

Calls Hierarchy


TfrmBAOptionsDiagnoses.LoadPersonalDxList
 ├rpcGetPersonalDxList
 └IsICD9CodeActive

Called-By Hierarchy


TfrmBAOptionsDiagnoses.LoadPersonalDxList
      TfrmBAOptionsDiagnoses.FormCreate┘ 

Calls

Name Declaration Comments
IsICD9CodeActive function IsICD9CodeActive(ACode: string; LexApp: string; ADate:TFMDateTime = 0): boolean; -
rpcGetPersonalDxList function rpcGetPersonalDxList(UserDUZ:int64):TStringList; -

Called-By

Name Declaration Comments
TfrmBAOptionsDiagnoses.FormCreate procedure FormCreate(Sender: TObject); -


Source

494   procedure TfrmBAOptionsDiagnoses.LoadPersonalDxList;
495   var
496    i: integer;
497    dxList: TStringList;
498    inActiveDx: string;
499   begin
500     dxList := TStringList.Create;
501     dxList.Clear;
502     dxList := rpcGetPersonalDxList(User.DUZ);
503     if dxList.Count > 0 then
504     begin
505        for i := 0 to dxList.Count -1 do
506        begin
507           if not UBACore.IsICD9CodeActive(Piece(dxList.Strings[i],U,1),'ICD',Encounter.DateTime ) then
508           begin
509              inActiveDx := Piece(dxList.Strings[i],U,1)  + '  ' + BA_INACTIVE_CODE + U + Piece(DxList.Strings[i],U,2);
510              lbPersonalDx.Items.Add(inActiveDx);
511           end
512           else
513              lbPersonalDx.Items.Add(dxList.Strings[i]);
514        end;
515     end;
516   end;