Procedure

LoadNotifications

Module

rCore

Last Modified

7/15/2014 3:26:44 PM

Comments

Notifications calls
Notifications Calls

Scope

Interfaced

Declaration

procedure LoadNotifications(Dest: TStrings);

Called-By Hierarchy


                                LoadNotifications
                            TfrmPtSel.AlertList┘ 
                                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┘     │   
                    TfrmPtSel.cmdProcessClick┤   
              TfrmPtSel.cmdProcessInfoClick┤ │   
               TfrmPtSel.cmdProcessAllClick┤ │   
               TfrmPtSel.lstvAlertsDblClick┤ │   
                TfrmPtSel.lstvAlertsKeyDown┘ │   
                     TfrmPtSel.cmdRemoveClick┘   

Called-By

Name Declaration Comments
TfrmPtSel.AlertList procedure AlertList; -


Source

452   procedure LoadNotifications(Dest: TStrings);
453   var
454     tmplst: TStringList;
455   begin
456     tmplst := TStringList.Create;
457     try
458       //UpdateUnsignedOrderAlerts(Patient.DFN);      //moved to AFTER signature and DC actions
459       tCallV(tmplst, 'ORWORB FASTUSER', [nil]);
460       FastAssign(tmplst, Dest);
461     finally
462       tmplst.Free;
463     end;
464   end;