Procedure

TfrmOptionsTitles.FormShow

Module

fOptionsTitles

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsTitles

Declaration

procedure FormShow(Sender: TObject);

Calls Hierarchy


TfrmOptionsTitles.FormShow
 ├rpcGetClasses
 ├IdentifyConsultsClass
 └TfrmOptionsTitles.cboDocumentClassClick
   ├TfrmOptionsTitles.btnSaveChangesClick
   │ ├rpcSaveDocumentDefaults
   │ ├ResetNoteTitles
   │ │ └LoadNoteTitles
   │ │   └TNoteTitles.Create
   │ ├ResetDCSummTitles
   │ │ └LoadDCSummTitles
   │ │   └TDCSummTitles.Create
   │ ├IdentifyConsultsClass
   │ ├ResetConsultTitles
   │ │ └LoadConsultTitles
   │ │   ├IdentifyConsultsClass
   │ │   └TConsultTitles.Create
   │ ├IdentifyClinProcClass
   │ └ResetClinProcTitles
   │   └LoadClinProcTitles
   │     ├IdentifyClinProcClass
   │     └TClinProcTitles.Create
   ├rpcGetTitlesForUser
   ├rpcGetTitleDefault
   ├TfrmOptionsTitles.lstYourTitlesChange
   └TfrmOptionsTitles.CheckEnable
     └TfrmOptionsTitles.MemberNotOnList

Calls

Name Declaration Comments
TfrmOptionsTitles.cboDocumentClassClick procedure cboDocumentClassClick(Sender: TObject); -
IdentifyConsultsClass function IdentifyConsultsClass: integer; -
rpcGetClasses function rpcGetClasses: TStrings; -


Source

96    procedure TfrmOptionsTitles.FormShow(Sender: TObject);
97    var
98      i: integer;
99    begin
100     FLastClass := -1;
101     with cboDocumentClass do
102     begin
103       FastAssign(rpcGetClasses, cboDocumentClass.Items);
104       Items.Add(IntToStr(IdentifyConsultsClass) + U + 'Consults');
105       for i := 0 to Items.Count - 1 do
106         if Piece(Items[i], '^', 2) = 'Progress Notes' then
107         begin
108           ItemIndex := i;
109           FLastClass := ItemIndex;
110           break;
111         end;
112     end;
113     cboDocumentClassClick(self);
114   end;