Procedure

GetXtraTxt

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure GetXtraTxt(OCText: TStringList; x: String; y: String);

Called-By Hierarchy


                                                      GetXtraTxt
                                         AcceptOrderWithChecks┤ 
                                TfrmODBase.AcceptOrderChecks┤ │ 
                                      TfrmODBase.ValidSave┘ │ │ 
                               TfrmODBase.cmdAcceptClick┤   │ │ 
                                   ActivateOrderDialog┘ │   │ │ 
                           TfrmRemDlg.btnFinishClick┤   │   │ │ 
           TfrmConsults.mnuActNewConsultRequestClick┤   │   │ │ 
                   TfrmConsults.cmdNewConsultClick┘ │   │   │ │ 
                TfrmConsults.mnuActNewProcedureClick┤   │   │ │ 
                      TfrmConsults.cmdNewProcClick┘ │   │   │ │ 
                                        ChangeOrders┤   │   │ │ 
                      TfrmOrders.mnuActChangeClick┤ │   │   │ │ 
                        TfrmMeds.mnuActChangeClick┘ │   │   │ │ 
                                     ChangeOrdersEvt┤   │   │ │ 
                                          CopyOrders┤   │   │ │ 
                        TfrmOrders.mnuActCopyClick┤ │   │   │ │ 
                          TfrmMeds.mnuActCopyClick┤ │   │   │ │ 
                           TfrmODActive.btnOKClick┘ │   │   │ │ 
                                      TransferOrders┤   │   │ │ 
                        TfrmOrders.mnuActCopyClick┤ │   │   │ │ 
                          TfrmMeds.mnuActCopyClick┤ │   │   │ │ 
                           TfrmODActive.btnOKClick┘ │   │   │ │ 
                            TfrmOrders.lstWriteClick┤   │   │ │ 
               TfrmOrders.PlaceOrderForDefaultDialog┤   │   │ │ 
                  TfrmOrders.DisplayDefaultDlgList┤ │   │   │ │ 
                       TfrmOrders.ResetOrderPage┘ │ │   │   │ │ 
               TfrmOrders.btnDelayedOrderClick┘   │ │   │   │ │ 
                                 DisplayEvntDialog┤ │   │   │ │ 
                             SetDelayEventForMed┘ │ │   │   │ │ 
                      TfrmMeds.mnuActCopyClick┘   │ │   │   │ │ 
                                 DisplayEvntDialog┤ │   │   │ │ 
                                  SetViewForCopy┘ │ │   │   │ │ 
                    TfrmOrders.mnuActCopyClick┘   │ │   │   │ │ 
                                 DisplayEvntDialog┘ │   │   │ │ 
                                ExecuteChangeEvt┘   │   │   │ │ 
                 TfrmOrders.mnuActChgEvntClick┘     │   │   │ │ 
                             TfrmMeds.mnuActNewClick┤   │   │ │ 
                           TfrmOMNavA.ActivateDialog┤   │   │ │ 
                         TfrmOMNavA.grdMenuKeyDown┤ │   │   │ │ 
                         TfrmOMNavA.grdMenuMouseUp┘ │   │   │ │ 
                                TfrmOMSet.DoNextItem┘   │   │ │ 
                              TfrmOMSet.InsertList┤     │   │ │ 
                               ActivateOrderList┘ │     │   │ │ 
                     TfrmRemDlg.btnFinishClick┤   │     │   │ │ 
                             ActivateOrderHTML┤   │     │   │ │ 
                    TfrmOrders.lstWriteClick┤ │   │     │   │ │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┘ │   │     │   │ │ 
                              ActivateOrderSet┤   │     │   │ │ 
                   TfrmRemDlg.btnFinishClick┤ │   │     │   │ │ 
TfrmConsults.mnuActNewConsultRequestClick...┤ │   │     │   │ │ 
     TfrmConsults.mnuActNewProcedureClick...┤ │   │     │   │ │ 
                    TfrmOrders.lstWriteClick┤ │   │     │   │ │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │     │   │ │ 
                     TfrmMeds.mnuActNewClick┤ │   │     │   │ │ 
                TfrmOMNavA.ActivateDialog...┤ │   │     │   │ │ 
                     TfrmOMSet.DoNextItem...┘ │   │     │   │ │ 
                       TfrmOMNavA.DoSelectList┘   │     │   │ │ 
                     TfrmOMNavA.grdMenuKeyUp┤     │     │   │ │ 
                   TfrmOMNavA.grdMenuMouseUp┘     │     │   │ │ 
                                        SkipToNext┤     │   │ │ 
                         TfrmOMSet.DoNextItem...┘ │     │   │ │ 
                            TfrmOMSet.UMDelayEvent┘     │   │ │ 
                               TfrmODBase.FormCloseQuery┤   │ │ 
                                     TfrmODBase.TabClose┤   │ │ 
                            TfrmODAllergy.cmdAcceptClick┘   │ │ 
                     TfrmRenewOrders.AcceptOrderCheckOnRenew┘ │ 
                                        ExecuteRenewOrders┘   │ 
                             TfrmOrders.mnuActRenewClick┤     │ 
                               TfrmMeds.mnuActRenewClick┘     │ 
                                     ExecuteSessionOrderChecks┘ 
                                   ExecuteReleaseOrderChecks┤   
                             TfrmOrders.mnuActReleaseClick┤ │   
                             TfrmOrders.mnuActOnChartClick┤ │   
                                TfrmOrders.mnuActSignClick┘ │   
                                       TfrmReview.cmdOKClick┘   
                                             ReviewChanges┘     
                         TfrmFrame.AllowContextChangeAll┤       
                              TfrmFrame.FormCloseQuery┤ │       
                            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┘         │ │       
                         TfrmFrame.mnuFileOpenClick...┤ │       
                         TfrmFrame.ctxContextorPending┤ │       
                        TfrmFrame.StartCCOWContextor┘ │ │       
                              TfrmFrame.FormCreate┘   │ │       
                       TfrmFrame.ctxContextorCommitted┤ │       
                     TfrmFrame.StartCCOWContextor...┘ │ │       
                TfrmFrame.mnuFileResumeContextGetClick┤ │       
                TfrmFrame.mnuFileResumeContextSetClick┘ │       
                                TfrmFrame.FormCloseQuery┤       
                            TfrmFrame.mnuFileReviewClick┤       
                                         UpdateEncounter┘       
                       TfrmFrame.mnuFileEncounterClick┤         
                               TfrmFrame.ViewInfo...┤ │         
                  TfrmODMedIV.SetValuesFromResponses┤ │         
                           TfrmODMedIV.SetupDialog┤ │ │         
                 TfrmODMedIV.cboSolutionMouseClick┘ │ │         
                     TfrmODMedIV.cboSolutionExit┘   │ │         
                TfrmODMedIV.cboSolutionMouseClick...┤ │         
                   TfrmODMedIV.cboAdditiveMouseClick┤ │         
                       TfrmODMedIV.cboAdditiveExit┘ │ │         
                              TfrmODAuto.SetupDialog┤ │         
                              ActivateOrderDialog...┤ │         
                             TfrmOMSet.InsertList...┤ │         
                              TfrmODMeds.SetupDialog┤ │         
                           TfrmODMeds.btnSelectClick┤ │         
                           TfrmODMeds.UMDelayClick┘ │ │         
                               ExecuteRenewOrders...┘ │         
                                      EncounterPresent┤         
                                    ReadyForNewOrder┤ │         
                         TfrmRemDlg.btnFinishClick┤ │ │         
      TfrmConsults.mnuActNewConsultRequestClick...┤ │ │         
           TfrmConsults.mnuActNewProcedureClick...┤ │ │         
                                   ChangeOrders...┤ │ │         
                                   ChangeOrdersEvt┤ │ │         
                                     CopyOrders...┤ │ │         
                                 TransferOrders...┤ │ │         
                          TfrmOrders.lstWriteClick┤ │ │         
                           TfrmMeds.mnuActNewClick┘ │ │         
                                   ReadyForNewOrder1┤ │         
          TfrmOrders.PlaceOrderForDefaultDialog...┘ │ │         
                            TfrmOrders.mnuActDCClick┤ │         
                           TfrmOrders.mnuActRelClick┤ │         
                          TfrmOrders.mnuActHoldClick┤ │         
                        TfrmOrders.mnuActUnholdClick┤ │         
                         TfrmOrders.mnuActRenewClick┤ │         
                       TfrmOrders.mnuActReleaseClick┤ │         
                       TfrmOrders.mnuActOnChartClick┤ │         
                          TfrmOrders.mnuActSignClick┤ │         
                              TfrmMeds.mnuActDCClick┤ │         
                            TfrmMeds.mnuActHoldClick┤ │         
                           TfrmMeds.mnuActRenewClick┤ │         
                          TfrmMeds.mnuActUnholdClick┤ │         
                            TfrmMeds.mnuActCopyClick┤ │         
                          TfrmMeds.mnuActRefillClick┘ │         
                                   EncounterPresentEDO┤         
                                 ReadyForNewOrder...┤ │         
                       TfrmOrders.mnuActChgEvntClick┤ │         
                        TfrmOrders.mnuActChangeClick┤ │         
                          TfrmOrders.mnuActCopyClick┤ │         
                     TfrmOrders.btnDelayedOrderClick┤ │         
                          TfrmMeds.mnuActChangeClick┤ │         
                            TfrmMeds.mnuActCopyClick┘ │         
                                           UpdateVisit┤         
                                         EditPCEData┤ │         
                           TfrmSurgery.cmdPCEClick┤ │ │         
                               UpdateEncounterInfo┘ │ │         
                           TfrmNotes.cmdPCEClick┘   │ │         
                      TfrmVitals.btnEnterVitalsClick┘ │         
                                           UpdateVisit┤         
                                      EncounterPresent┘         
                       TfrmProblems.lstProbActsClick┘           
                   TfrmProblems.wgProbDataDblClick┤             
                         TfrmProblems.lstViewClick┘             
                 TfrmProblems.HighlightDuplicate┘               
                       TfrmProblems.AddProblem┤                 
            TfrmProblems.lstProbActsClick...┤ │                 
               TfrmProblems.lstProbPickClick┤ │                 
            TfrmProblems.lstProbPickDblClick┤ │                 
            TfrmProblems.edProbEntKeyPress┘ │ │                 
                    TfrmProblems.UMPLLexicon┘ │                 
                 TfrmdlgProb.bbChangeProbClick┘                 

Called-By

Name Declaration Comments
AcceptOrderWithChecks function AcceptOrderWithChecks(OCList: TStringList): Boolean; -
ExecuteSessionOrderChecks function ExecuteSessionOrderChecks(OrderList: TStringList) : Boolean; -


Source

2257  procedure GetXtraTxt(OCText: TStringList; x: String; y: String);
2258  begin
2259    CallV('ORCHECK GETXTRA', [x,y]);
2260    FastAssign(RPCBrokerV.Results, OCText);
2261  end;