Procedure

TNotifications.Delete

Module

uCore

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TNotifications

Declaration

procedure Delete;

Calls Hierarchy


TNotifications.Delete
 └DeleteAlert

Called-By Hierarchy


                      TNotifications.Delete
                     UpdateIndOrderAlerts┤ 
            TfrmLabs.ProcessNotifications┤ 
                   TfrmLabs.DisplayPage┘ │ 
          TfrmDCSumm.ProcessNotifications┤ 
                 TfrmDCSumm.DisplayPage┘ │ 
        TfrmConsults.ProcessNotifications┤ 
               TfrmConsults.DisplayPage┘ │ 
               TfrmFrame.mnuFileNextClick┤ 
             TfrmFrame.mnuFileOpenClick┤ │ 
                 TfrmFrame.UMInitiate┤ │ │ 
        TfrmFrame.mnuFileNextClick...┤ │ │ 
        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.mnuFileNotifRemoveClick┤ │ 
              TfrmFrame.NextButtonClick┘ │ 
            TfrmFrame.SetUpNextButton┘   │ 
      TfrmFrame.mnuFileOpenClick...┤     │ 
               TfrmFrame.FormResize┘     │ 
             TfrmFrame.ChangeFont┘       │ 
     TfrmFrame.LoadSizesForUser┤         │ 
TfrmFrame.LoadUserPreferences┘ │         │ 
       TfrmFrame.UMInitiate┘   │         │ 
     TfrmFrame.mnuFontSizeClick┘         │ 
          TfrmOrders.ProcessNotifications┤ 
                 TfrmOrders.DisplayPage┘ │ 
             TfrmOrders.ViewAlertedOrders┤ 
     TfrmOrders.ProcessNotifications...┘ │ 
         TfrmSurgery.ProcessNotifications┤ 
                TfrmSurgery.DisplayPage┘ │ 
         TfrmReports.ProcessNotifications┤ 
                TfrmReports.DisplayPage┘ │ 
           TfrmNotes.ProcessNotifications┘ 
                  TfrmNotes.DisplayPage┘   

Calls

Name Declaration Comments
DeleteAlert procedure DeleteAlert(XQAID: string); -

Called-By

Name Declaration Comments
TfrmFrame.mnuFileNextClick procedure mnuFileNextClick(Sender: TObject); -
TfrmLabs.ProcessNotifications procedure ProcessNotifications; -
TfrmDCSumm.ProcessNotifications procedure ProcessNotifications; -
TfrmConsults.ProcessNotifications procedure ProcessNotifications; -
TfrmOrders.ProcessNotifications procedure ProcessNotifications; -
TfrmSurgery.ProcessNotifications procedure ProcessNotifications; -
TfrmReports.ProcessNotifications procedure ProcessNotifications; -
TfrmNotes.ProcessNotifications procedure ProcessNotifications; -
UpdateIndOrderAlerts procedure UpdateIndOrderAlerts(); { Patient List calls } function DfltPtList: string; function DfltPtListSrc: Char; procedure SavePtListDflt(const x: string); procedure ListSpecialtyAll(Dest: TStrings); procedure ListTeamAll(Dest: TStrings); procedure ListWardAll(Dest: TStrings); procedure ListProviderTop(Dest: TStrings); function SubSetOfProviders(const StartFrom: string; Direction: Integer): TStrings; function SubSetOfCosigners(const StartFrom: string; Direction: Integer; Date: TFMDateTime; ATitle: integer; ADocType: integer): TStrings; procedure ListClinicTop(Dest: TStrings); function SubSetOfClinics(const StartFrom: string; Direction: Integer): TStrings; function GetDfltSort: string; procedure ResetDfltSort; procedure ListPtByDflt(Dest: TStrings); procedure ListPtByProvider(Dest: TStrings; ProviderIEN: Int64); procedure ListPtByTeam(Dest: TStrings; TeamIEN: Integer); procedure ListPtBySpecialty(Dest: TStrings; SpecialtyIEN: Integer); procedure ListPtByClinic(Dest: TStrings; ClinicIEN: Integer; FirstDt, LastDt: string); procedure ListPtByWard(Dest: TStrings; WardIEN: Integer); procedure ListPtByLast5(Dest: TStrings; const Last5: string); procedure ListPtByRPLLast5(Dest: TStrings; const Last5: string); procedure ListPtByFullSSN(Dest: TStrings; const FullSSN: string); procedure ListPtByRPLFullSSN(Dest: TStrings; const FullSSN: string); procedure ListPtTop(Dest: TStrings); function SubSetOfPatients(const StartFrom: string; Direction: Integer): TStrings; function DfltDateRangeClinic: string; function MakeRPLPtList(RPLList: string): string; function ReadRPLPtList(RPLJobNumber: string; const StartFrom: string; Direction: Integer) : TStrings; procedure KillRPLPtList(RPLJobNumber: string); { Patient specific calls } function CalcAge(BirthDate, DeathDate: TFMDateTime): Integer; procedure CheckSensitiveRecordAccess(const DFN: string; var AccessStatus: Integer; var MessageText: string); procedure CheckRemotePatient(var Dest: string; Patient, ASite: string; var AccessStatus: Integer); procedure CurrentLocationForPatient(const DFN: string; var ALocation: Integer; var AName: string; var ASvc: string); function DateOfDeath(const DFN: string): TFMDateTime; function GetPtIDInfo(const DFN: string): TPtIDInfo; function HasLegacyData(const DFN: string; var AMsg: string): Boolean; function LogSensitiveRecordAccess(const DFN: string): Boolean; function MeansTestRequired(const DFN: string; var AMsg: string): Boolean; function RestrictedPtRec(const DFN: string): Boolean; procedure SelectPatient(const DFN: string; var PtSelect: TPtSelect); function SimilarRecordsFound(const DFN: string; var AMsg: string): Boolean; function GetDFNFromICN(AnICN: string): string; { Encounter specific calls } function GetEncounterText(const DFN: string; Location: integer; Provider: Int64): TEncounterText; -
TfrmOrders.ViewAlertedOrders procedure ViewAlertedOrders(OrderIEN: string; Status: integer; DispGrp: string; BySvc, InvDate: boolean; Title: string); -


Source

1551  procedure TNotifications.Delete;
1552  begin
1553    if FNotifyItem <> nil then DeleteAlert(Piece(FNotifyItem.RecordID, U, 2));
1554  end;