Procedure

TfrmPCEProvider.cboPrimaryChange

Module

fPCEProvider

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmPCEProvider

Declaration

procedure cboPrimaryChange(Sender: TObject);

Calls Hierarchy


TfrmPCEProvider.cboPrimaryChange
 ├InvalidPCEProviderTxt
 │ ├CheckActivePerson
 │ └IsUserAProvider
 └TPCEData.PersonClassDate
   └FMToday
     └FMNow

Calls

Name Declaration Comments
InvalidPCEProviderTxt function InvalidPCEProviderTxt(AIEN: Int64; ADate: TFMDateTime): string; -
TPCEData.PersonClassDate function PersonClassDate: TFMDateTime; -


Source

123   procedure TfrmPCEProvider.cboPrimaryChange(Sender: TObject);
124   var
125     txt: string;
126   
127   begin
128     if(cboPrimary.ItemIEN <> 0) and (FPCEData.VisitCategory <> 'E') then
129     begin
130       txt := InvalidPCEProviderTxt(cboPrimary.ItemIEN, FPCEData.PersonClassDate);
131       if(txt <> '') then
132       begin
133         InfoBox(cboPrimary.DisplayText[cboPrimary.ItemIndex] + txt, TX_BAD_PROV, MB_OK);
134         cboPrimary.ItemIndex := -1;
135       end;
136     end;
137   end;