Procedure

TfrmPatientEd.FormCreate

Module

fPatientEd

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmPatientEd

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


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

Calls

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


Source

54    procedure TfrmPatientEd.FormCreate(Sender: TObject);
55    begin
56      inherited;
57      FTabName := CT_PedNm;
58      FPCEListCodesProc := ListPatientCodes;
59      FPCEItemClass := TPCEPat;
60      FPCECode := 'PED';
61      PCELoadORCombo(cboPatUnderstanding);
62    end;