Procedure

FindNextBestDFN

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Scope

Local

Local subprogram to

FindBestCCOWDFN

Declaration

procedure FindNextBestDFN;

Called-By Hierarchy


                                  FindNextBestDFN
                      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.StartCCOWContextor┘ │ │   
                   TfrmFrame.FormCreate┘   │ │   
     TfrmFrame.mnuFileResumeContextGetClick┘ │   
           TfrmFrame.CheckForDifferentPatient┘   
              TfrmFrame.ctxContextorPending┤     
          TfrmFrame.StartCCOWContextor...┘ │     
         TfrmFrame.ctxContextorCommitted...┘     

Called-By

Name Declaration Comments
TfrmFrame.FindBestCCOWDFN function FindBestCCOWDFN: string; -


Source

3952  procedure FindNextBestDFN;
3953  begin
3954    StationNumber := User.StationNumber;
3955    if IsProdAcct then
3956      anItem := data.Present('Patient.id.MRN.DFN_' + StationNumber)
3957    else
3958      anItem := data.Present('Patient.id.MRN.DFN_' + StationNumber + '_TEST');
3959    if anItem <>  nil then tempDFN := anItem.Get_Value();
3960  end;