Procedure

TContextorControl.CreateControl

Module

VERGENCECONTEXTORLib_TLB

Last Modified

7/15/2014 3:26:44 PM

Visibility

Protected

Owner

TContextorControl

Declaration

procedure CreateControl;

Calls Hierarchy


TContextorControl.CreateControl
 └DoCreate

Called-By Hierarchy


                      TContextorControl.CreateControl
              TContextorControl.GetControlInterface┘ 
             TContextorControl.Get_CurrentContext┤   
                TfrmFrame.ctxContextorCommitted┤ │   
                 TfrmFrame.StartCCOWContextor┘ │ │   
                       TfrmFrame.FormCreate┘   │ │   
                      TfrmFrame.FindBestCCOWDFN┘ │   
                  TfrmFrame.UpdateCCOWContext┤   │   
                 TfrmFrame.mnuFileOpenClick┤ │   │   
                     TfrmFrame.UMInitiate┤ │ │   │   
               TfrmFrame.mnuFileNextClick┤ │ │   │   
          TfrmFrame.mnuFileOpenClick...┤ │ │ │   │   
      TfrmFrame.mnuFileNotifRemoveClick┤ │ │ │   │   
              TfrmFrame.NextButtonClick┘ │ │ │   │   
            TfrmFrame.SetUpNextButton┘   │ │ │   │   
      TfrmFrame.mnuFileOpenClick...┤     │ │ │   │   
               TfrmFrame.FormResize┘     │ │ │   │   
             TfrmFrame.ChangeFont┘       │ │ │   │   
     TfrmFrame.LoadSizesForUser┤         │ │ │   │   
TfrmFrame.LoadUserPreferences┘ │         │ │ │   │   
       TfrmFrame.UMInitiate┘   │         │ │ │   │   
     TfrmFrame.mnuFontSizeClick┘         │ │ │   │   
            TfrmFrame.mnuFileRefreshClick┤ │ │   │   
            TfrmOrders.CheckOrderStatus┤ │ │ │   │   
        TfrmOrders.mnuActChgEvntClick┤ │ │ │ │   │   
           TfrmOrders.mnuActHoldClick┤ │ │ │ │   │   
         TfrmOrders.mnuActUnholdClick┤ │ │ │ │   │   
          TfrmOrders.mnuActRenewClick┤ │ │ │ │   │   
         TfrmOrders.mnuActChangeClick┤ │ │ │ │   │   
           TfrmOrders.mnuActCopyClick┘ │ │ │ │   │   
                 TfrmMeds.mnuActDCClick┤ │ │ │   │   
                TfrmMeds.CheckMedStatus┘ │ │ │   │   
             TfrmMeds.mnuActHoldClick┤   │ │ │   │   
            TfrmMeds.mnuActRenewClick┤   │ │ │   │   
           TfrmMeds.mnuActUnholdClick┤   │ │ │   │   
           TfrmMeds.mnuActChangeClick┤   │ │ │   │   
             TfrmMeds.mnuActCopyClick┤   │ │ │   │   
           TfrmMeds.mnuActRefillClick┘   │ │ │   │   
                       TfrmFrame.ViewInfo┘ │ │   │   
                    TfrmDCSumm.ViewInfo┤   │ │   │   
                  TfrmConsults.ViewInfo┤   │ │   │   
          TfrmFrame.pnlRemindersMouseUp┤   │ │   │   
           TfrmFrame.RemindersChanged┘ │   │ │   │   
               TfrmFrame.FormCreate┘   │   │ │   │   
                 TfrmFrame.pnlCIRNClick┤   │ │   │   
           TfrmFrame.pnlVistaWebClick┤ │   │ │   │   
                TfrmFrame.FormKeyDown┘ │   │ │   │   
              TfrmFrame.pnlPatientClick┤   │ │   │   
                TfrmFrame.pnlVisitClick┤   │ │   │   
          TfrmFrame.pnlPrimaryCareClick┤   │ │   │   
            TfrmFrame.pnlRemindersClick┤   │ │   │   
             TfrmFrame.pnlPostingsClick┤   │ │   │   
                 TfrmFrame.pnlFlagClick┤   │ │   │   
                   TfrmFrame.laMHVClick┤   │ │   │   
                  TfrmFrame.laVAA2Click┤   │ │   │   
                    TfrmOrders.ViewInfo┤   │ │   │   
                      TfrmMeds.ViewInfo┤   │ │   │   
                   TfrmSurgery.ViewInfo┤   │ │   │   
                     TfrmNotes.ViewInfo┤   │ │   │   
                  TfrmProblems.ViewInfo┘   │ │   │   
         TfrmFrame.ctxContextorCommitted...┤ │   │   
     TfrmFrame.mnuFileResumeContextGetClick┘ │   │   
           TfrmFrame.CheckForDifferentPatient┘   │   
              TfrmFrame.ctxContextorPending┤     │   
          TfrmFrame.StartCCOWContextor...┘ │     │   
         TfrmFrame.ctxContextorCommitted...┘     │   
                            TContextorControl.Run┤   
                TfrmFrame.StartCCOWContextor...┘ │   
                        TContextorControl.Suspend┤   
                TfrmFrame.StartCCOWContextor...┤ │   
             TfrmFrame.mnuFileBreakContextClick┤ │   
         TfrmFrame.mnuFileResumeContextSetClick┘ │   
                         TContextorControl.Resume┤   
         TfrmFrame.mnuFileResumeContextGetClick┤ │   
         TfrmFrame.mnuFileResumeContextSetClick┘ │   
                   TContextorControl.GetPrivilege┤   
             TContextorControl.StartContextChange┤   
               TfrmFrame.AllowCCOWContextChange┘ │   
                TfrmFrame.mnuFileNextClick...┤   │   
                TfrmFrame.mnuFileOpenClick...┤   │   
       TfrmFrame.mnuFileResumeContextSetClick┘   │   
               TContextorControl.EndContextChange┤   
            TfrmFrame.AllowCCOWContextChange...┘ │   
              TContextorControl.SetSurveyResponse┘   
               TfrmFrame.ctxContextorPending...┘     

Calls

Name Declaration Comments
DoCreate procedure DoCreate; -

Called-By

Name Declaration Comments
TContextorControl.GetControlInterface function GetControlInterface: IContextor; -


Source

1120  procedure TContextorControl.CreateControl;
1121  
1122    procedure DoCreate;
1123    begin
1124      FIntf := IUnknown(OleObject) as IContextor;
1125    end;
1126  
1127  begin
1128    if FIntf = nil then DoCreate;
1129  end;