Function

DfltPtList

Module

rCore

Last Modified

7/15/2014 3:26:44 PM

Comments

Patient List calls
Patient List Calls 

 returns the name of the current user's default patient list, null if none is defined
  Pieces: Ptr to Source File^Source Name^Source Type

Scope

Interfaced

Declaration

function DfltPtList: string;

Called-By Hierarchy


                                     DfltPtList
                 TfrmPtSelOptns.UpdateDefault┤ 
            TfrmPtSelOptns.cmdSaveListClick┘ │ 
               TfrmPtSel.cmdSaveListClick┘   │ 
                                SelectPatient┘ 
                 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┘       

Called-By

Name Declaration Comments
SelectPatient procedure SelectPatient(ShowNotif: Boolean; FontSize: Integer; var UserCancelled: boolean); -
TfrmPtSelOptns.UpdateDefault procedure UpdateDefault; -


Source

567   function DfltPtList: string;
568   { returns the name of the current user's default patient list, null if none is defined
569     Pieces: Ptr to Source File^Source Name^Source Type }
570   begin
571     Result := sCallV('ORQPT DEFAULT LIST SOURCE', [nil]);
572     if Length(Result) > 0 then Result := Pieces(Result, U, 2, 3);
573   end;