Procedure

TfrmImmunizations.FormCreate

Module

fImmunization

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmImmunizations

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmImmunizations.FormCreate
 ├ListImmunizCodes
 └PCELoadORCombo
   └PCELoadORComboData
     ├GetPCECodes
     │ ├LoadHistLocations
     │ └CodeSetIndex
     │   ├LoadImmSeriesItems
     │   ├LoadImmReactionItems
     │   ├LoadSkResultsItems
     │   ├LoadPEDLevelItems
     │   ├LoadHFLevelItems
     │   └LoadXAMResultsItems
     └GetComboBoxMinMax

Calls

Name Declaration Comments
ListImmunizCodes procedure ListImmunizCodes(Dest: TStrings; SectionIndex: Integer); -
PCELoadORCombo procedure PCELoadORCombo(dest: TORComboBox); overload; -


Source

83    procedure TfrmImmunizations.FormCreate(Sender: TObject);
84    begin
85      inherited;
86      FTabName := CT_ImmNm;
87      FPCEListCodesProc := ListImmunizCodes;
88      FPCEItemClass := TPCEImm;
89      FPCECode := 'IMM';
90      PCELoadORCombo(cboImmReaction);
91      PCELoadORCombo(cboImmSeries);
92    end;