Procedure

TfrmODCslt.ReadServerVariables

Module

fODConsult

Last Modified

7/15/2014 3:26:34 PM

Visibility

Private

Owner

TfrmODCslt

Declaration

procedure ReadServerVariables;

Calls Hierarchy


TfrmODCslt.ReadServerVariables
 ├TfrmODCslt.SetProvDiagPromptingMode
 │ ├GetProvDxMode
 │ └TfrmODCslt.ControlChange
 │   ├TResponses.Update
 │   │ ├TResponses.FindResponseByName
 │   │ └TResponses.IENForPrompt
 │   └TResponses.GetOrderText
 │     ├TResponses.NextInstance
 │     ├TResponses.FindResponseByName
 │     ├TResponses.FormatResponse
 │     │ └TResponses.FindResponseByIEN
 │     └TResponses.AppendChildren
 │       ├TResponses.FindPromptByIEN
 │       ├TResponses.FindResponseByIEN
 │       └TResponses.FormatResponse...
 └TfrmODBase.GetKeyVariable

Called-By Hierarchy


TfrmODCslt.ReadServerVariables
      TfrmODCslt.SetupDialog┘ 

Calls

Name Declaration Comments
TfrmODBase.GetKeyVariable function GetKeyVariable(const Index: string): string; -
TfrmODCslt.SetProvDiagPromptingMode procedure SetProvDiagPromptingMode; -

Called-By

Name Declaration Comments
TfrmODCslt.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

989   procedure  TfrmODCslt.ReadServerVariables;
990   begin
991     if StrToIntDef(KeyVariable['GMRCNOAT'], 0) > 0 then
992       begin
993         txtAttn.Enabled    := False;
994         txtAttn.Font.Color := clGrayText;
995         lblAttn.Enabled    := False;
996         txtAttn.Color      := clBtnFace;
997       end
998     else
999       begin
1000        txtAttn.Enabled    := True;
1001        txtAttn.Font.Color := clWindowText;
1002        lblAttn.Enabled    := True;
1003        txtAttn.Color      := clWindow;
1004      end;
1005  
1006    if StrToIntDef(KeyVariable['GMRCNOPD'], 0) > 0 then
1007      begin
1008        if BILLING_AWARE then
1009           btnDiagnosis.Enabled   := False //1.4.18
1010        else
1011           cmdLexSearch.Enabled   := False;
1012        txtProvDiag.Enabled    := False;
1013        txtProvDiag.Font.Color := clGrayText;
1014        txtProvDiag.ReadOnly   := True;
1015        txtProvDiag.Color      := clBtnFace;
1016      end
1017    else SetProvDiagPromptingMode;
1018  
1019    GMRCREAF := KeyVariable['GMRCREAF'];
1020  end;