Procedure

TfrmVisitType.FormCreate

Module

fVisitType

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmVisitType

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmVisitType.FormCreate
 ├TfrmVisitType.FormResize
 │ └TfrmPCEBase.SectionString
 ├TPCEProviderList.PendingIEN
 ├TPCEProviderList.PendingName
 └TfrmVisitType.RefreshProviders
   ├TPCEProviderList.GetProviderData
   └TfrmVisitType.UpdateProviderButtons

Calls

Name Declaration Comments
TfrmVisitType.FormResize procedure FormResize(Sender: TObject); -
TPCEProviderList.PendingIEN function PendingIEN(ADefault: boolean): Int64; -
TPCEProviderList.PendingName function PendingName(ADefault: boolean): string; -
TfrmVisitType.RefreshProviders procedure RefreshProviders; -


Source

178   procedure TfrmVisitType.FormCreate(Sender: TObject);
179   var
180     AIEN: Int64;
181   
182   begin
183     inherited;
184     FTabName := CT_VisitNm;
185     FSectionTabCount := 2;
186     FormResize(Self);
187     AIEN := uProviders.PendingIEN(TRUE);
188     if(AIEN = 0) then
189     begin
190       AIEN := uProviders.PendingIEN(FALSE);
191       if(AIEN = 0) then
192       begin
193         cboPtProvider.InitLongList(User.Name);
194         AIEN := User.DUZ;
195       end
196       else
197         cboPtProvider.InitLongList(uProviders.PendingName(FALSE));
198       cboPtProvider.SelectByIEN(AIEN);
199     end
200     else
201     begin
202       cboPtProvider.InitLongList(uProviders.PendingName(TRUE));
203       cboPtProvider.SelectByIEN(AIEN);
204     end;
205     RefreshProviders;
206     FLastMods := uEncPCEData.VisitType.Modifiers;
207     fraVisitRelated.TabStop := FALSE;
208   end;