Function

TPCEProviderList.PCEProviderName

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TPCEProviderList

Declaration

function PCEProviderName: string;

Calls Hierarchy


TPCEProviderList.PCEProviderName
 ├TPCEProviderList.PCEProvider
 │ ├Check
 │ │ └TPCEProviderList.IndexOfProvider
 │ └TPCEProviderList.PrimaryIEN
 │   └TPCEProviderList.GetPrimaryIdx
 └ExternalName

Called-By Hierarchy


         TPCEProviderList.PCEProviderName
                        TfrmGAF.BADData┤ 
           TfrmGAF.cboGAFProviderExit┤ │ 
               TfrmGAF.AllowTabChange┤ │ 
                  TfrmGAF.GetGAFScore┤ │ 
        TfrmEncounterFrame.SendData┘ │ │ 
TfrmEncounterFrame.FormCloseQuery┘   │ │ 
                 TfrmGAF.FormActivate┘ │ 
                   TfrmGAF.FormShow┤   │ 
                 TfrmGAF.FormCreate┘   │ 
              TfrmProcedures.FormCreate┤ 
          TfrmProcedures.UpdateControls┘ 
          TfrmProcedures.clbListClick┘   

Calls

Name Declaration Comments
ExternalName function ExternalName(IEN: Int64; FileNumber: Double): string; -
TPCEProviderList.PCEProvider function PCEProvider: Int64; -

Called-By

Name Declaration Comments
TfrmGAF.BADData function BADData(ShowMessage: boolean): boolean; -
TfrmProcedures.FormCreate procedure FormCreate(Sender: TObject); -
TfrmProcedures.UpdateControls procedure UpdateControls; override; -


Source

3372  function TPCEProviderList.PCEProviderName: string;
3373  var
3374    NewProv: Int64;
3375  
3376  begin
3377    NewProv := PCEProvider;
3378    if(FPCEProviderIEN <> NewProv) then
3379    begin
3380      FPCEProviderIEN := NewProv;
3381      FPCEProviderName := ExternalName(PCEProvider, FN_NEW_PERSON);
3382    end;
3383    Result := FPCEProviderName;
3384  end;