Procedure

TfrmProcedures.FormCreate

Module

fProcedure

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmProcedures

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmProcedures.FormCreate
 ├ListProcedureCodes
 ├TPCEProviderList.PCEProviderName
 │ ├TPCEProviderList.PCEProvider
 │ │ ├Check
 │ │ │ └TPCEProviderList.IndexOfProvider
 │ │ └TPCEProviderList.PrimaryIEN
 │ │   └TPCEProviderList.GetPrimaryIdx
 │ └ExternalName
 └TfrmProcedures.FormResize
   └TfrmPCEBaseMain.UpdateTabPos
     └TfrmPCEBase.SectionString

Calls

Name Declaration Comments
TfrmProcedures.FormResize procedure FormResize(Sender: TObject); override; -
ListProcedureCodes procedure ListProcedureCodes(Dest: TStrings; SectionIndex: Integer); -
TPCEProviderList.PCEProviderName function PCEProviderName: string; -


Source

105   procedure TfrmProcedures.FormCreate(Sender: TObject);
106   begin
107     inherited;
108     FTabName := CT_ProcNm;
109     FPCEListCodesProc := ListProcedureCodes;
110     cboProvider.InitLongList(uProviders.PCEProviderName);
111     FPCEItemClass := TPCEProc;
112     FPCECode := 'CPT';
113     FSectionTabCount := 1;
114     FormResize(Self);
115     lbMods.HideSelection := TRUE;
116   end;