Function

NameOfStatus

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function NameOfStatus(IEN: Integer): string;

Called-By Hierarchy


                                                   NameOfStatus
                                                 ChangeOrders┤ 
                               TfrmOrders.mnuActChangeClick┤ │ 
                                 TfrmMeds.mnuActChangeClick┘ │ 
                                      TfrmOrders.GetOrderText┤ 
                                    TfrmOrders.GetPlainText┤ │ 
                                   TfrmOrders.NotifyOrder┤ │ │ 
                                   TfrmFrame.UMNewOrder┘ │ │ │ 
                               TfrmOrders.RedrawOrderList┤ │ │ 
                              TfrmOrders.NotifyOrder...┤ │ │ │ 
                      TfrmOrders.hdrOrdersSectionResize┤ │ │ │ 
                    TfrmOrders.mnuOptimizeFieldsClick┘ │ │ │ │ 
                             TfrmFrame.WMSysCommand┤   │ │ │ │ 
                             TfrmOrders.SetFontSize┤   │ │ │ │ 
                             TfrmFrame.ChangeFont┘ │   │ │ │ │ 
                     TfrmFrame.LoadSizesForUser┤   │   │ │ │ │ 
                TfrmFrame.LoadUserPreferences┘ │   │   │ │ │ │ 
                       TfrmFrame.UMInitiate┘   │   │   │ │ │ │ 
                     TfrmFrame.mnuFontSizeClick┘   │   │ │ │ │ 
                   TfrmOrders.hdrOrdersSectionClick┤   │ │ │ │ 
                            TfrmOrders.sptHorzMoved┘   │ │ │ │ 
                           TfrmOrders.mnuActChangeClick┤ │ │ │ 
                              TfrmOrders.SetFontSize...┘ │ │ │ 
                             TfrmOrders.SynchListToOrders┤ │ │ 
                              TfrmOrders.NotifyOrder...┤ │ │ │ 
                               TfrmOrders.mnuActDCClick┤ │ │ │ 
                          TfrmOrders.mnuActChgEvntClick┤ │ │ │ 
                             TfrmOrders.mnuActHoldClick┤ │ │ │ 
                           TfrmOrders.mnuActUnholdClick┤ │ │ │ 
                            TfrmOrders.mnuActRenewClick┤ │ │ │ 
                         TfrmOrders.mnuActCompleteClick┤ │ │ │ 
                           TfrmOrders.mnuActVerifyClick┤ │ │ │ 
                         TfrmOrders.mnuActChartRevClick┤ │ │ │ 
                                TfrmOrders.RequestPrint┘ │ │ │ 
                          TfrmFrame.mnuFilePrintClick┘   │ │ │ 
                                  TfrmOrders.AddToListBox┘ │ │ 
                            TfrmOrders.RefreshOrderList┘   │ │ 
                            TfrmOrders.NotifyOrder...┤     │ │ 
                              TfrmOrders.SetOrderView┤     │ │ 
                      TfrmOrders.mnuViewActiveClick┤ │     │ │ 
                     TfrmOrders.mnuViewCurrentClick┤ │     │ │ 
                    TfrmOrders.mnuViewExpiringClick┤ │     │ │ 
                     TfrmOrders.mnuViewExpiredClick┤ │     │ │ 
                    TfrmOrders.mnuViewUnsignedClick┤ │     │ │ 
                  TfrmOrders.ProcessNotifications┘ │ │     │ │ 
                         TfrmOrders.DisplayPage┘   │ │     │ │ 
                       TfrmOrders.ViewAlertedOrders┘ │     │ │ 
               TfrmOrders.ProcessNotifications...┘   │     │ │ 
                        TfrmOrders.mnuViewCustomClick┤     │ │ 
                      TfrmOrders.mnuViewDfltShowClick┤     │ │ 
                             TfrmOrders.DisplayPage┘ │     │ │ 
                            TfrmOrders.lstSheetsClick┤     │ │ 
                       TfraEvntDelayList.CheckMatch┤ │     │ │ 
                          TfrmOrdersTS.cmdOKClick┘ │ │     │ │ 
TfrmOrdersTS.fraEvntDelayListmlstEventsDblClick┤   │ │     │ │ 
                       TfrmOrdersTS.FormKeyDown┘   │ │     │ │ 
                 TfraEvntDelayList.mlstEventsChange┤ │     │ │ 
   TfrmOrdersTS.fraEvntDelayListcboEvntListChange┤ │ │     │ │ 
    TfrmOrdersTS.fraEvntDelayListmlstEventsChange┤ │ │     │ │ 
    TfrmMedCopy.fraEvntDelayListcboEvntListChange┤ │ │     │ │ 
     TfrmMedCopy.fraEvntDelayListmlstEventsChange┤ │ │     │ │ 
 TfrmCopyOrders.fraEvntDelayListcboEvntListChange┤ │ │     │ │ 
  TfrmCopyOrders.fraEvntDelayListmlstEventsChange┘ │ │     │ │ 
                 TfrmOrders.mnuViewDfltShowClick...┤ │     │ │ 
                                          ..(rec)..┤ │     │ │ 
                           TfrmOrders.lstWriteClick┤ │     │ │ 
                         TfrmOrders.mnuActCopyClick┤ │     │ │ 
                         TfrmOrders.mnuActSignClick┤ │     │ │ 
                          TfrmOrders.ResetOrderPage┤ │     │ │ 
                  TfrmOrders.btnDelayedOrderClick┘ │ │     │ │ 
              TfrmOrders.PlaceOrderForDefaultDialog┤ │     │ │ 
                 TfrmOrders.DisplayDefaultDlgList┤ │ │     │ │ 
                   TfrmOrders.ResetOrderPage...┘ │ │ │     │ │ 
                                DisplayEvntDialog┤ │ │     │ │ 
                            SetDelayEventForMed┘ │ │ │     │ │ 
                     TfrmMeds.mnuActCopyClick┘   │ │ │     │ │ 
                                DisplayEvntDialog┤ │ │     │ │ 
                                 SetViewForCopy┘ │ │ │     │ │ 
                   TfrmOrders.mnuActCopyClick┘   │ │ │     │ │ 
                                DisplayEvntDialog┘ │ │     │ │ 
                               ExecuteChangeEvt┘   │ │     │ │ 
                TfrmOrders.mnuActChgEvntClick┘     │ │     │ │ 
                           TfrmOrders.ClickLstSheet┤ │     │ │ 
            TfraEvntDelayList.mlstEventsChange...┤ │ │     │ │ 
                     TfrmOrders.ResetOrderPage...┤ │ │     │ │ 
                        ExecuteReleaseEventOrders┘ │ │     │ │ 
                      TfrmOrders.mnuActRelClick┘   │ │     │ │ 
                        TfrmOrders.InitOrderSheets2┤ │     │ │ 
                     TfrmFrame.mnuFileReviewClick┘ │ │     │ │ 
                          TfrmOrders.PtEvtCompleted┤ │     │ │ 
                       TfrmFrame.DetermineNextTab┤ │ │     │ │ 
                     TfrmFrame.mnuFileOpenClick┤ │ │ │     │ │ 
                         TfrmFrame.UMInitiate┤ │ │ │ │     │ │ 
                   TfrmFrame.mnuFileNextClick┤ │ │ │ │     │ │ 
              TfrmFrame.mnuFileOpenClick...┤ │ │ │ │ │     │ │ 
          TfrmFrame.mnuFileNotifRemoveClick┤ │ │ │ │ │     │ │ 
                  TfrmFrame.NextButtonClick┘ │ │ │ │ │     │ │ 
                TfrmFrame.SetUpNextButton┘   │ │ │ │ │     │ │ 
          TfrmFrame.mnuFileOpenClick...┤     │ │ │ │ │     │ │ 
                   TfrmFrame.FormResize┘     │ │ │ │ │     │ │ 
              TfrmFrame.ChangeFont...┘       │ │ │ │ │     │ │ 
                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.UpdateCCOWContext┘ │ │ │     │ │ 
                TfrmFrame.mnuFileOpenClick...┤   │ │ │     │ │ 
              TfrmFrame.ctxContextorCommitted┤   │ │ │     │ │ 
               TfrmFrame.StartCCOWContextor┘ │   │ │ │     │ │ 
                     TfrmFrame.FormCreate┘   │   │ │ │     │ │ 
       TfrmFrame.mnuFileResumeContextGetClick┘   │ │ │     │ │ 
                     TfrmFrame.mnuFileReviewClick┤ │ │     │ │ 
                     TfrmOrders.lstSheetsClick...┤ │ │     │ │ 
                         TfrmOrders.lstWriteClick┤ │ │     │ │ 
                         TfrmOrders.mnuActDCClick┤ │ │     │ │ 
                    TfrmOrders.mnuActChgEvntClick┤ │ │     │ │ 
                       TfrmOrders.mnuActHoldClick┤ │ │     │ │ 
                       TfrmOrders.mnuActFlagClick┤ │ │     │ │ 
                    TfrmOrders.mnuActCommentClick┤ │ │     │ │ 
                     TfrmOrders.mnuActChangeClick┤ │ │     │ │ 
                       TfrmOrders.mnuActCopyClick┤ │ │     │ │ 
                       TfrmOrders.mnuActSignClick┤ │ │     │ │ 
                  TfrmOrders.btnDelayedOrderClick┤ │ │     │ │ 
                         TfrmMeds.mnuActCopyClick┤ │ │     │ │ 
                          TfrmODActive.btnOKClick┘ │ │     │ │ 
                            TfrmOrders.UMEventOccur┤ │     │ │ 
                           TfrmMeds.mnuActCopyClick┤ │     │ │ 
                            TfrmMeds.mnuActNewClick┤ │     │ │ 
                             SetDelayEventForMed...┤ │     │ │ 
                                  SetViewForCopy...┤ │     │ │ 
                          TfrmCopyOrders.cmdOKClick┤ │     │ │ 
                      TfrmCopyOrders.UMStillDelay┤ │ │     │ │ 
TfrmCopyOrders.fraEvntDelayListmlstEventsDblClick┤ │ │     │ │ 
                       TfrmCopyOrders.FormKeyDown┘ │ │     │ │ 
                                ExecuteChangeEvt...┤ │     │ │ 
                                    ExecuteDCOrders┘ │     │ │ 
                         TfrmOrders.mnuActDCClick┤   │     │ │ 
                           TfrmMeds.mnuActDCClick┘   │     │ │ 
                            TfrmOrders.SaveSignOrders┤     │ │ 
                          TfrmOrders.NotifyOrder...┘ │     │ │ 
                           TfrmOrders.mnuActSignClick┤     │ │ 
                 TfrmOrders.EventRealeasedOrder1Click┤     │ │ 
                         TfrmOrders.ResetOrderPage...┤     │ │ 
                         TfrmOrders.PtEvtCompleted...┤     │ │ 
                        TfrmOrders.RefreshToFirstItem┤     │ │ 
                              TfrmOrders.UMEventOccur┤     │ │ 
                          TfrmOrders.hdrOrdersMouseUp┘     │ │ 
                             TfrmOrders.MeasureColumnHeight┤ │ 
                          TfrmOrders.lstOrdersMeasureItem┘ │ │ 
                               TfrmOrders.lstOrdersDrawItem┘ │ 
                         TfrmODActive.lstActiveOrdersDrawItem┘ 

Called-By

Name Declaration Comments
ChangeOrders procedure ChangeOrders(AList: TStringList; AnEvent: TOrderDelayEvent); -
TfrmOrders.GetOrderText function GetOrderText(AnOrder: TOrder; Index: integer; Column: integer): string; -
TfrmODActive.lstActiveOrdersDrawItem procedure lstActiveOrdersDrawItem(Control: TWinControl; Index: Integer; TheeRect: TRect; State: TOwnerDrawState); -


Source

482   function NameOfStatus(IEN: Integer): string;
483   begin
484     case IEN of
485        0: Result := 'error';
486        1: Result := 'discontinued';
487        2: Result := 'complete';
488        3: Result := 'hold';
489        4: Result := 'flagged';
490        5: Result := 'pending';
491        6: Result := 'active';
492        7: Result := 'expired';
493        8: Result := 'scheduled';
494        9: Result := 'partial results';
495       10: Result := 'delayed';
496       11: Result := 'unreleased';
497       12: Result := 'dc/edit';
498       13: Result := 'cancelled';
499       14: Result := 'lapsed';
500       15: Result := 'renewed';
501       97: Result := '';                  { null status, used for 'No Orders Found.' }
502       98: Result := 'new';
503       99: Result := 'no status';
504     end;
505   end;