Procedure

TfrmOptions.btnDiagnosesClick

Module

fOptions

Last Modified

7/15/2014 3:26:40 PM

Comments

Display Personal Diagnoses List

Visibility

Public/Published

Owner

TfrmOptions

Declaration

procedure btnDiagnosesClick(Sender: TObject);

Calls Hierarchy


TfrmOptions.btnDiagnosesClick
 ├IsCIDCProvider
 │ ├rpcGetBAMasterSwStatus
 │ └PersonHasKey
 ├TfrmOptions.Offset
 └DialogOptionsDiagnoses
   └TfrmBase508Form.Create
     ├TfrmBase508Form.UpdateAccessibilityActions
     ├UnfocusableControlEnter
     └AdjustControls
       ├TfrmBase508Form.ModifyUnfocusableControl
       └..(rec)..

Calls

Name Declaration Comments
DialogOptionsDiagnoses procedure DialogOptionsDiagnoses(topvalue, leftvalue, fontsize: integer; var actiontype: Integer); -
IsCIDCProvider function IsCIDCProvider(encProvider:int64):boolean; -
TfrmOptions.Offset procedure Offset(var topnum: integer; topoffset: integer; var leftnum: integer; leftoffset: integer); -


Source

706   procedure TfrmOptions.btnDiagnosesClick(Sender: TObject);
707   // display Personal Diagnoses List
708   var
709     topsize, leftsize, value: integer;
710   begin
711     if IsCIDCProvider(User.DUZ) then    //(hds7564)
712     begin
713        value := 0;
714        Offset(topsize, -60, leftsize, -60);
715        DialogOptionsDiagnoses(topsize, leftsize, Font.Size, value);
716     end;
717   end;