Procedure

TfrmPtSel.AlertList

Module

fPtSel

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmPtSel

Declaration

procedure AlertList;

Calls Hierarchy


TfrmPtSel.AlertList
 └LoadNotifications

Called-By Hierarchy


                            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┘ 

Calls

Name Declaration Comments
LoadNotifications procedure LoadNotifications(Dest: TStrings); -

Called-By

Name Declaration Comments
TfrmPtSel.cmdProcessClick procedure cmdProcessClick(Sender: TObject); -
TfrmPtSel.cmdRemoveClick procedure cmdRemoveClick(Sender: TObject); -
SelectPatient procedure SelectPatient(ShowNotif: Boolean; FontSize: Integer; var UserCancelled: boolean); -


Source

997   procedure TfrmPtSel.AlertList;
998   var
999     List: TStringList;
1000    NewItem: TListItem;
1001    I,J: Integer;
1002    Comment: String;
1003  begin
1004    // Load the items
1005    lstvAlerts.Items.Clear;
1006    List := TStringList.Create;
1007    NewItem := nil;
1008    try
1009       LoadNotifications(List);
1010       for I := 0 to List.Count - 1 do
1011         begin
1012      //   List[i] := ConvertDate(List, i);  //cla commented out 8/9/04 CQ #4749
1013  
1014           if Piece(List[I], U, 1) <> 'Forwarded by: ' then
1015             begin
1016                NewItem := lstvAlerts.Items.Add;
1017                NewItem.Caption := Piece(List[I], U, 1);
1018                for J := 2 to DelimCount(List[I], U) + 1 do
1019                   NewItem.SubItems.Add(Piece(List[I], U, J));
1020             end
1021           else   //this list item is forwarding information
1022             begin
1023               NewItem.SubItems[5] := Piece(List[I], U, 2);
1024               Comment := Piece(List[I], U, 3);
1025               if Length(Comment) > 0 then NewItem.SubItems[8] := 'Fwd Comment: ' + Comment;
1026             end;
1027         end;
1028     finally
1029        List.Free;
1030     end;
1031     with lstvAlerts do
1032       begin
1033          Columns[0].Width := StrToIntDef(Piece(frmFrame.EnduringPtSelColumns, ',', 1), 40);          //Info                 Caption
1034          Columns[1].Width := StrToIntDef(Piece(frmFrame.EnduringPtSelColumns, ',', 2), 195);         //Patient              SubItems[0]
1035          Columns[2].Width := StrToIntDef(Piece(frmFrame.EnduringPtSelColumns, ',', 3), 75);          //Location             SubItems[1]
1036          Columns[3].Width := StrToIntDef(Piece(frmFrame.EnduringPtSelColumns, ',', 4), 95);          //Urgency              SubItems[2]
1037          Columns[4].Width := StrToIntDef(Piece(frmFrame.EnduringPtSelColumns, ',', 5), 150);         //Alert Date/Time      SubItems[3]
1038          Columns[5].Width := StrToIntDef(Piece(frmFrame.EnduringPtSelColumns, ',', 6), 310);         //Message Text         SubItems[4]
1039          Columns[6].Width := StrToIntDef(Piece(frmFrame.EnduringPtSelColumns, ',', 7), 290);         //Forwarded By/When    SubItems[5]
1040       //Items not displayed in Columns:     XQAID                SubItems[6]
1041       //                                    Remove w/o process   SubItems[7]
1042       //                                    Forwarding comments  SubItems[8]
1043       end;
1044  end;