Procedure

TfrmPtSelOptns.UpdateDefault

Module

fPtSelOptns

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public

Owner

TfrmPtSelOptns

Declaration

procedure UpdateDefault;

Calls Hierarchy


TfrmPtSelOptns.UpdateDefault
 ├DfltPtList
 └TfrmPtSelOptns.SetDefaultPtList

Called-By Hierarchy


     TfrmPtSelOptns.UpdateDefault
TfrmPtSelOptns.cmdSaveListClick┘ 
   TfrmPtSel.cmdSaveListClick┘   

Calls

Name Declaration Comments
DfltPtList function DfltPtList: string; -
TfrmPtSelOptns.SetDefaultPtList procedure SetDefaultPtList(Dflt: string); -

Called-By

Name Declaration Comments
TfrmPtSelOptns.cmdSaveListClick procedure cmdSaveListClick(Sender: TObject); -


Source

396   procedure TfrmPtSelOptns.UpdateDefault;
397   begin
398     FSrcType := TAG_SRC_DFLT;
399     fPtSel.FDfltSrc := DfltPtList; // Server side default setting: "DfltPtList" is in rCore.
400     fPtSel.FDfltSrcType := Piece(fPtSel.FDfltSrc, U, 2);
401     fPtSel.FDfltSrc := Piece(fPtSel.FDfltSrc, U, 1);
402     if (IsRPL = '1') then // Deal with restricted patient list users.
403       fPtSel.FDfltSrc := '';
404     SetDefaultPtList(fPtSel.FDfltSrc);
405   end;