Procedure

DoCreate

Module

VERGENCECONTEXTORLib_TLB

Last Modified

7/15/2014 3:26:44 PM

Scope

Local

Local subprogram to

CreateControl

Declaration

procedure DoCreate;

Called-By Hierarchy


                                               DoCreate
                      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...┘       

Called-By

Name Declaration Comments
TContextorControl.CreateControl procedure CreateControl; -


Source

1122  procedure DoCreate;
1123  begin
1124    FIntf := IUnknown(OleObject) as IContextor;
1125  end;