Procedure

TfrmEncounter.AppShowHint

Module

fEncnt

Last Modified

7/15/2014 3:26:36 PM

Comments

Procedure TfrmEncounter.cboPtProviderChange(Sender: TObject);
var
  txt: string;
  AIEN: Int64;

begin
  if(FFilter <> NPF_ENCOUNTER) then exit;
  AIEN := cboPtProvider.ItemIEN;
  if(AIEN <> 0) then
  begin
    txt := InvalidPCEProviderTxt(AIEN, FPCDate);
    if(txt <> '') then
    begin
      InfoBox(cboPtProvider.text + txt, TX_BAD_PROV, MB_OK);
      cboPtProvider.ItemIndex := -1;
    end;
  end;
end;

Visibility

Private

Owner

TfrmEncounter

Declaration

procedure AppShowHint(var HintStr: string; var CanShow: Boolean;
                      var HintInfo: THintInfo);

Called-By Hierarchy


 TfrmEncounter.AppShowHint
TfrmEncounter.FormCreate┘ 

Called-By

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


Source

460   procedure TfrmEncounter.AppShowHint(var HintStr: string;
461     var CanShow: Boolean; var HintInfo: THintInfo);
462   const
463     HistHintDelay = 30000; // 30 seconds
464   
465   begin
466     if (not Assigned(HintInfo.HintControl)) then exit;
467     if(HintInfo.HintControl = ckbHistorical) then
468       HintInfo.HideTimeout := HistHintDelay;
469     if(assigned(FOldHintEvent)) then
470       FOldHintEvent(HintStr, CanShow, HintInfo);
471   end;