Function

TResponses.GetOrderText

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Comments

Loop thru the response objects and build the order text

Visibility

Private

Owner

TResponses

Declaration

function GetOrderText: string;

Calls Hierarchy


TResponses.GetOrderText
 ├TResponses.NextInstance
 ├TResponses.FindResponseByName
 ├TResponses.FormatResponse
 │ └TResponses.FindResponseByIEN
 └TResponses.AppendChildren
   ├TResponses.FindPromptByIEN
   ├TResponses.FindResponseByIEN
   └TResponses.FormatResponse...

Called-By Hierarchy


                                 TResponses.GetOrderText
                              TfrmODMisc.ControlChange┤ 
                              TfrmODMisc.SetupDialog┘ │ 
                               TfrmODGen.ControlChange┤ 
                               TfrmODGen.SetupDialog┤ │ 
                             TfrmODGen.PlaceDateTime┤ │ 
                           TfrmODGen.PlaceControls┘ │ │ 
                          TfrmODGen.SetDialogIEN┘   │ │ 
                         TfrmODGen.SetupDialog┘     │ │ 
                             TfrmODGen.PlaceFreeText┤ │ 
                        TfrmODGen.PlaceControls...┘ │ │ 
                              TfrmODGen.PlaceNumeric┤ │ 
                        TfrmODGen.PlaceControls...┘ │ │ 
                           TfrmODGen.PlaceSetOfCodes┤ │ 
                        TfrmODGen.PlaceControls...┘ │ │ 
                                TfrmODGen.PlaceYesNo┤ │ 
                        TfrmODGen.PlaceControls...┘ │ │ 
                               TfrmODGen.PlaceLookup┤ │ 
                        TfrmODGen.PlaceControls...┘ │ │ 
                                 TfrmODGen.PlaceMemo┘ │ 
                        TfrmODGen.PlaceControls...┘   │ 
                             TfrmODMedIn.ControlChange┤ 
                             TfrmODMedIn.SetupDialog┤ │ 
                     TfrmODMedIn.cboMedicationSelect┘ │ 
                          TfrmODMedIn.CheckFormAlt┘   │ 
                     TfrmODMedIn.cboDispenseExit┤     │ 
               TfrmODMedIn.cboDispenseMouseClick┘     │ 
            TfrmODMedIn.cboMedicationSelect...┘       │ 
                          TfrmODMedOut.SetInstructions┤ 
                            TfrmODMedOut.SetupDialog┤ │ 
                    TfrmODMedOut.cboMedicationSelect┤ │ 
                         TfrmODMedOut.CheckFormAlt┘ │ │ 
                    TfrmODMedOut.cboDispenseExit┤   │ │ 
              TfrmODMedOut.cboDispenseMouseClick┘   │ │ 
           TfrmODMedOut.cboMedicationSelect...┘     │ │ 
                        TfrmODMedOut.cmdComplexClick┘ │ 
                            TfrmODMedOut.ControlChange┤ 
                            TfrmODMedOut.SetupDialog┤ │ 
                 TfrmODMedOut.cboMedicationSelect...┘ │ 
                              TfrmODText.ControlChange┤ 
                              TfrmODProc.ControlChange┤ 
                              TfrmODProc.SetupDialog┤ │ 
                        TfrmODProc.radInpatientClick┤ │ 
                       TfrmODProc.radOutpatientClick┤ │ 
                            TfrmODProc.cboProcSelect┤ │ 
                            TfrmODProc.memReasonExit┤ │ 
                 TfrmODProc.SetProvDiagPromptingMode┤ │ 
                             TfrmODProc.InitDialog┤ │ │ 
                           TfrmODProc.FormCreate┤ │ │ │ 
                        TfrmODProc.cboProcSelect┘ │ │ │ 
                            TfrmODProc.SetupDialog┤ │ │ 
                          TfrmODProc.cboProcSelect┤ │ │ 
                    TfrmODProc.ReadServerVariables┘ │ │ 
                           TfrmODProc.FormCreate┤   │ │ 
                          TfrmODProc.SetupDialog┘   │ │ 
                         TfrmODProc.cboServiceChange┤ │ 
                  TfrmODProc.mnuPopProvDxDeleteClick┤ │ 
                        TfrmODProc.txtProvDiagChange┘ │ 
                              TfrmODCslt.ControlChange┤ 
                              TfrmODCslt.SetupDialog┤ │ 
                        TfrmODCslt.radInpatientClick┤ │ 
                       TfrmODCslt.radOutpatientClick┤ │ 
                         TfrmODCslt.treServiceChange┤ │ 
                      TfrmODCslt.treServiceKeyDown┘ │ │ 
                            TfrmODCslt.memReasonExit┤ │ 
                         TfrmODCslt.cboServiceSelect┤ │ 
                         TfrmODCslt.cboServiceExit┘ │ │ 
                 TfrmODCslt.SetProvDiagPromptingMode┤ │ 
                             TfrmODCslt.InitDialog┤ │ │ 
                           TfrmODCslt.FormCreate┘ │ │ │ 
                            TfrmODCslt.SetupDialog┤ │ │ 
                    TfrmODCslt.treServiceChange...┤ │ │ 
                    TfrmODCslt.cboServiceSelect...┤ │ │ 
                    TfrmODCslt.ReadServerVariables┘ │ │ 
                          TfrmODCslt.SetupDialog┘   │ │ 
                  TfrmODCslt.mnuPopProvDxDeleteClick┤ │ 
                        TfrmODCslt.txtProvDiagChange┘ │ 
                               TfrmODRad.ControlChange┤ 
                               TfrmODRad.SetupDialog┤ │ 
                                TfrmODRad.InitDialog┤ │ 
                             TfrmODRad.SetupDialog┤ │ │ 
                         TfrmODRad.ImageTypeChange┘ │ │ 
                         TfrmODRad.cboImTypeExit┤   │ │ 
                TfrmODRad.cboImTypeDropDownClose┘   │ │ 
                     TfrmODRad.cboAvailModMouseClick┤ │ 
                      TfrmODRad.cboAvailModKeyDown┘ │ │ 
                            TfrmODRad.cmdRemoveClick┤ │ 
                        TfrmODRad.cboProcedureSelect┤ │ 
                        TfrmODRad.cboProcedureExit┘ │ │ 
                         TfrmODRad.cboCategoryChange┤ │ 
                            TfrmODRad.memHistoryExit┤ │ 
                            TfrmODRad.calPreOpChange┘ │ 
                               TfrmODLab.ControlChange┤ 
                               TfrmODLab.SetupDialog┤ │ 
                                  TfrmODLab.Validate┤ │ 
                        TfrmODLab.cboAvailTestSelect┤ │ 
                             TfrmODLab.SetupDialog┤ │ │ 
                        TfrmODLab.cboAvailTestExit┘ │ │ 
                         TfrmODLab.cboCollSampChange┤ │ 
                             TfrmODLab.SetupDialog┤ │ │ 
                   TfrmODLab.cboAvailTestSelect...┘ │ │ 
                          TfrmODLab.cboUrgencyChange┤ │ 
                         TfrmODLab.cboSpecimenChange┤ │ 
                         TfrmODLab.cboCollTimeChange┤ │ 
                        TfrmODLab.cboFrequencyChange┤ │ 
                             TfrmODLab.SetupDialog┤ │ │ 
                   TfrmODLab.cboAvailTestSelect...┘ │ │ 
                         TfrmODLab.cboCollTypeChange┤ │ 
                       TfrmODLab.txtOrderCommentExit┤ │ 
                      TfrmODLab.txtAntiCoagulantExit┤ │ 
                        TfrmODLab.txtUrineVolumeExit┤ │ 
                        TfrmODLab.grpPeakTroughClick┤ │ 
                      TfrmODLab.txtAddlCommentExit┘ │ │ 
                           TfrmODLab.txtDoseTimeExit┤ │ 
                           TfrmODLab.txtDrawTimeExit┤ │ 
                       TfrmODLab.cboCollSampKeyPause┤ │ 
                     TfrmODLab.cboCollSampMouseClick┤ │ 
                           TfrmODLab.cboCollTimeExit┤ │ 
                     TfrmODLab.cboSpecimenMouseClick┤ │ 
                       TfrmODLab.cboSpecimenKeyPause┘ │ 
                        TfrmODLab.DisplayChangedOrders┤ 
                                  TfrmODLab.Validate┘ │ 
                               TfrmODBBank.SetupDialog┤ 
                           TfrmODBBank.SetOnQuickOrder┤ 
                           TfrmODBBank.cboQuickClick┘ │ 
                          TfrmODBBank.cboReasonsChange┤ 
                        TfrmODBBank.cboAvailTestSelect┤ 
                             TfrmODBBank.SetupDialog┤ │ 
                        TfrmODBBank.cboAvailTestExit┘ │ 
                        TfrmODBBank.cboAvailCompSelect┤ 
                        TfrmODBBank.cboAvailCompExit┘ │ 
                        TfrmODBBank.cboModifiersChange┤ 
                      TfrmODBBank.memDiagCommentChange┤ 
                            TfrmODBBank.btnRemoveClick┤ 
                             TfrmODBBank.SetupDialog┤ │ 
                      TfrmODBBank.SetOnQuickOrder...┘ │ 
                    TfrmODBBank.btnUpdateCommentsClick┤ 
                         TfrmODBBank.calWantTimeChange┤ 
                           TfrmODBBank.chkConsentClick┤ 
                          TfrmODBBank.cboUrgencyChange┤ 
                             TfrmODBBank.SetupDialog┤ │ 
                      TfrmODBBank.SetOnQuickOrder...┘ │ 
                          TfrmODBBank.cboSurgeryChange┤ 
                             TfrmODBBank.SetupDialog┤ │ 
                      TfrmODBBank.SetOnQuickOrder...┤ │ 
                   TfrmODBBank.cboAvailCompSelect...┤ │ 
                         TfrmODBBank.tQuantityChange┘ │ 
                           TfrmODBBank.tQuantityChange┤ 
                         TfrmODBBank.calCollTimeChange┤ 
                       TfrmODBBank.cboCollTypeChange┘ │ 
                             TfrmODMedIV.ControlChange┤ 
                  TfrmODMedIV.SetValuesFromResponses┤ │ 
                           TfrmODMedIV.SetupDialog┤ │ │ 
                 TfrmODMedIV.cboSolutionMouseClick┘ │ │ 
                     TfrmODMedIV.cboSolutionExit┘   │ │ 
                           TfrmODMedIV.cboTypeChange┤ │ 
                        TfrmODMedIV.ClearAllFields┘ │ │ 
                          TfrmODMedIV.InitDialog┤   │ │ 
                        TfrmODMedIV.FormCreate┘ │   │ │ 
                      TfrmODMedIV.cmdRemoveClick┘   │ │ 
                         TfrmODMedIV.chkDoseNowClick┤ │ 
                             TfrmODMedIV.chkPRNClick┤ │ 
                TfrmODMedIV.cboSolutionMouseClick...┤ │ 
                       TfrmODMedIV.cboAddFreqCloseUp┤ │ 
                     TfrmODMedIV.cboAddFreqKeyDown┘ │ │ 
                       TfrmODMedIV.cboDurationChange┤ │ 
                   TfrmODMedIV.cboInfusionTimeChange┤ │ 
                       TfrmODMedIV.cboPriorityChange┤ │ 
                          TfrmODMedIV.cboRouteChange┤ │ 
                   TfrmODMedIV.txtAllIVRoutesClick┘ │ │ 
                     TfrmODMedIV.cboRouteKeyDown┘   │ │ 
                   TfrmODMedIV.cboAdditiveMouseClick┤ │ 
                       TfrmODMedIV.cboAdditiveExit┘ │ │ 
                       TfrmODMedIV.txtSelectedChange┤ │ 
                       TfrmODMedIV.cboScheduleChange┤ │ 
                           TfrmODMedIV.txtNSSClick┘ │ │ 
                  TfrmODMedIV.cboScheduleKeyDown┘   │ │ 
                      TfrmODMedIV.cboSelectedCloseUp┤ │ 
                    TfrmODMedIV.cboSelectedKeyDown┘ │ │ 
                          TfrmODMedIV.cmdRemoveClick┤ │ 
                      TfrmODMedIV.txtXDurationChange┤ │ 
                        TfrmODMedIV.txtXDurationExit┤ │ 
                           TfrmODMedIV.txtRateChange┘ │ 
                            TfrmODVitals.ControlChange┤ 
                            TfrmODVitals.SetupDialog┘ │ 
                                   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┘   │ 
                            TfrmODMedNVA.ControlChange┤ 
                            TfrmODMedNVA.SetupDialog┤ │ 
                               TfrmODMedNVA.Validate┤ │ 
                         TfrmODMedNVA.btnSelectClick┤ │ 
                         TfrmODMedNVA.UMDelayClick┘ │ │ 
                          TfrmODMedNVA.tabDoseChange┤ │ 
                         TfrmODMedNVA.cboRouteChange┤ │ 
                       TfrmODMedNVA.SetOnMedSelect┘ │ │ 
                        TfrmODMedNVA.SetupDialog┤   │ │ 
                  TfrmODMedNVA.btnSelectClick...┤   │ │ 
                   TfrmODMedNVA.CheckFormAltDose┘   │ │ 
                   TfrmODMedNVA.cboDosageClick┘     │ │ 
                  TfrmODMedNVA.cboDosageExit┘       │ │ 
                   TfrmODMedNVA.timCheckChangesTimer┤ │ 
                        TfrmODMedNVA.UpdateRelated┘ │ │ 
                        TfrmODMedNVA.SetupDialog┤   │ │ 
                  TfrmODMedNVA.btnSelectClick...┤   │ │ 
                  TfrmODMedNVA.cboDosageClick...┤   │ │ 
                    TfrmODMedNVA.cboDosageChange┤   │ │ 
                   TfrmODMedNVA.cboScheduleClick┤   │ │ 
                  TfrmODMedNVA.cboScheduleChange┤   │ │ 
                       TfrmODMedNVA.grdDosesExit┘   │ │ 
                            TfrmODMedNVA.chkPRNClick┤ │ 
                 TfrmODMedNVA.lbStatementsClickCheck┘ │ 
                                      SaveAsQuickOrder┤ 
                                      QuickOrderSave┘ │ 
                   TfrmOrders.mnuOptSaveQuickClick┘   │ 
                              TfrmODMeds.ControlChange┤ 
                              TfrmODMeds.SetupDialog┤ │ 
                                 TfrmODMeds.Validate┤ │ 
                           TfrmODMeds.btnSelectClick┤ │ 
                           TfrmODMeds.UMDelayClick┘ │ │ 
                            TfrmODMeds.tabDoseChange┤ │ 
                            TfrmODMeds.FormKeyDown┘ │ │ 
                           TfrmODMeds.cboRouteChange┤ │ 
                         TfrmODMeds.SetOnMedSelect┘ │ │ 
                          TfrmODMeds.SetupDialog┤   │ │ 
                    TfrmODMeds.btnSelectClick...┤   │ │ 
                     TfrmODMeds.CheckFormAltDose┘   │ │ 
                     TfrmODMeds.cboDosageClick┘     │ │ 
                   TfrmODMeds.cboDosageKeyUp┘       │ │ 
                         TfrmODMeds.popDurationClick┤ │ 
                          TfrmODMeds.cboXRouteChange┤ │ 
                           TfrmODMeds.cboXRouteClick┤ │ 
                          TfrmODMeds.cboXRouteExit┘ │ │ 
                       TfrmODMeds.txtXDurationChange┤ │ 
                       TfrmODMeds.popDurationClick┘ │ │ 
                          TfrmODMeds.btnXRemoveClick┤ │ 
                        TfrmODMeds.grdDosesKeyDown┘ │ │ 
                     TfrmODMeds.timCheckChangesTimer┤ │ 
                          TfrmODMeds.UpdateRelated┘ │ │ 
                          TfrmODMeds.SetupDialog┤   │ │ 
                    TfrmODMeds.btnSelectClick...┤   │ │ 
                    TfrmODMeds.cboDosageClick...┤   │ │ 
                      TfrmODMeds.cboDosageChange┤   │ │ 
                        TfrmODMeds.cboDosageExit┤   │ │ 
                     TfrmODMeds.cboScheduleClick┤   │ │ 
                     TfrmODMeds.cmdAcceptClick┤ │   │ │ 
                        TfrmODMeds.chkPRNClick┤ │   │ │ 
                        TfrmODMeds.txtNSSClick┤ │   │ │ 
                   TfrmODMeds.cboScheduleEnter┤ │   │ │ 
                   TfrmODMeds.UMShowNSSBuilder┘ │   │ │ 
                    TfrmODMeds.cboScheduleChange┤   │ │ 
                      TfrmODMeds.txtSupplyChange┤   │ │ 
                    TfrmODMeds.txtQuantityChange┤   │ │ 
                         TfrmODMeds.grdDosesExit┤   │ │ 
                     TfrmODMeds.cboXDosageChange┤   │ │ 
                      TfrmODMeds.cboXDosageClick┤   │ │ 
                     TfrmODMeds.cboXDosageExit┤ │   │ │ 
                    TfrmODMeds.cboXDosageKeyUp┘ │   │ │ 
                       TfrmODMeds.cboXDosageExit┤   │ │ 
                   TfrmODMeds.cboXScheduleChange┤   │ │ 
                        TfrmODMeds.txtNSSClick┘ │   │ │ 
                    TfrmODMeds.cboXScheduleClick┤   │ │ 
                       TfrmODMeds.chkXPRNClick┤ │   │ │ 
                   TfrmODMeds.pnlXScheduleExit┘ │   │ │ 
                     TfrmODMeds.pnlXScheduleExit┤   │ │ 
                TfrmODMeds.txtXDurationChange...┤   │ │ 
                     TfrmODMeds.pnlXDurationExit┤   │ │ 
                          TfrmODMeds.chkPRNClick┤   │ │ 
                      TfrmODMeds.cboScheduleExit┤   │ │ 
                       TfrmODMeds.cboDosageKeyUp┤   │ │ 
                      TfrmODMeds.cboXDosageKeyUp┘   │ │ 
                       TfrmODMeds.chkPtInstructClick┤ │ 
                          TfrmODMeds.chkDoseNowClick┤ │ 
                        TfrmODMeds.SetOnQuickOrder┘ │ │ 
                          TfrmODMeds.SetupDialog┤   │ │ 
                    TfrmODMeds.btnSelectClick...┘   │ │ 
                              TfrmODMeds.chkPRNClick┤ │ 
                       TfrmODMeds.cboXSequenceChange┤ │ 
                         TfrmODMeds.txtRefillsChange┘ │ 
                                 TfrmODDiet.DietChange┤ 
                 TfrmODDiet.SetValuesFromResponsesDO┤ │ 
                            TfrmODDiet.SetupDialog┤ │ │ 
                 TfrmODDiet.cboDietAvailMouseClick┘ │ │ 
                     TfrmODDiet.cboDietAvailExit┘   │ │ 
                TfrmODDiet.cboDietAvailMouseClick...┤ │ 
                           TfrmODDiet.cmdRemoveClick┘ │ 
                                   TfrmODDiet.TFChange┤ 
                 TfrmODDiet.SetValuesFromResponsesTF┤ │ 
                            TfrmODDiet.SetupDialog┤ │ │ 
                   TfrmODDiet.cboProductMouseClick┘ │ │ 
                       TfrmODDiet.cboProductExit┘   │ │ 
                  TfrmODDiet.cboProductMouseClick...┤ │ 
                        TfrmODDiet.cboStrengthChange┤ │ 
                          TfrmODDiet.cboStrengthExit┤ │ 
                        TfrmODDiet.txtQuantityChange┤ │ 
                          TfrmODDiet.txtQuantityExit┤ │ 
                         TfrmODDiet.cmdTFRemoveClick┘ │ 
                                   TfrmODDiet.ELChange┤ 
                 TfrmODDiet.SetValuesFromResponsesEL┤ │ 
                            TfrmODDiet.SetupDialog┘ │ │ 
                             TfrmODDiet.grpMealClick┤ │ 
            TfrmODDiet.SetValuesFromResponsesEL...┘ │ │ 
                         TfrmODDiet.calELStartChange┤ │ 
                          TfrmODDiet.calELStopChange┘ │ 
            TfrmODDiet.SetValuesFromResponsesEL...┘   │ 
                                   TfrmODDiet.IPChange┤ 
                 TfrmODDiet.SetValuesFromResponsesIP┘ │ 
                            TfrmODDiet.SetupDialog┘   │ 
                                   TfrmODDiet.AOChange┤ 
                 TfrmODDiet.SetValuesFromResponsesAO┘ │ 
                            TfrmODDiet.SetupDialog┘   │ 
                                   TfrmODDiet.OPChange┤ 
                 TfrmODDiet.cboOPDietAvailMouseClick┤ │ 
                          TfrmODDiet.nbkDietChange┤ │ │ 
                           TfrmODDiet.InitDialog┤ │ │ │ 
                          TfrmODDiet.SetupDialog┤ │ │ │ 
                                       ..(rec)..┘ │ │ │ 
                     TfrmODDiet.cboOPDietAvailExit┤ │ │ 
                  TfrmODDiet.cboOPDietAvailKeyDown┘ │ │ 
                 TfrmODDiet.SetValuesFromResponsesOP┤ │ 
                            TfrmODDiet.SetupDialog┤ │ │ 
            TfrmODDiet.cboOPDietAvailMouseClick...┘ │ │ 
                         TfrmODDiet.calOPStartChange┤ │ 
                          TfrmODDiet.calOPStopChange┤ │ 
            TfrmODDiet.SetValuesFromResponsesOP...┘ │ │ 
                           TfrmODDiet.grpOPMealClick┤ │ 
                         TfrmODDiet.cmdOPRemoveClick┘ │ 
                           TfrmODAllergy.ControlChange┘ 
                           TfrmODAllergy.SetupDialog┤   
                       TfrmODAllergy.grpObsHistClick┤   
                      TfrmODAllergy.lstAllergySelect┤   
                         TfrmODAllergy.SetupDialog┤ │   
                                         ..(rec)..┘ │   
                       TfrmODAllergy.memCommentsExit┤   
                         TfrmODAllergy.btnAgentClick┤   
                          TfrmODAllergy.FormCreate┘ │   
                      TfrmODAllergy.cboSymptomsClick┤   
               TfrmODAllergy.ckNoKnownAllergiesClick┤   
                 TfrmODAllergy.cboSymptomsMouseClick┘   
                  TfrmODAllergy.cboSymptomsKeyDown┘     

Calls

Name Declaration Comments
TResponses.AppendChildren procedure AppendChildren(var ParentText: string; ChildPrompts: string; AnInstance: Integer); -
TResponses.FindResponseByName function FindResponseByName(const APromptID: string; AnInstance: Integer): TResponse; -
TResponses.FormatResponse procedure FormatResponse(var FormattedText: string; var ExcludeText: Boolean; APrompt: TPrompt; const x: string; AnInstance: Integer); -
TResponses.NextInstance function NextInstance(const APromptID: string; LastInstance: Integer): Integer; -

Called-By

Name Declaration Comments
ActivateOrderDialog function ActivateOrderDialog(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer; ANeedVerify: boolean = True): Boolean; -
TfrmODDiet.AOChange procedure AOChange(Sender: TObject); -
TfrmODBBank.btnRemoveClick procedure btnRemoveClick(Sender: TObject); -
TfrmODBBank.btnUpdateCommentsClick procedure btnUpdateCommentsClick(Sender: TObject); -
TfrmODBBank.calCollTimeChange procedure calCollTimeChange(Sender: TObject); -
TfrmODBBank.calWantTimeChange procedure calWantTimeChange(Sender: TObject); -
TfrmODBBank.cboAvailCompSelect procedure cboAvailCompSelect(Sender: TObject); -
TfrmODBBank.cboAvailTestSelect procedure cboAvailTestSelect(Sender: TObject); -
TfrmODBBank.cboModifiersChange procedure cboModifiersChange(Sender: TObject); -
TfrmODBBank.cboReasonsChange procedure cboReasonsChange(Sender: TObject); -
TfrmODBBank.cboSurgeryChange procedure cboSurgeryChange(Sender: TObject); -
TfrmODBBank.cboUrgencyChange procedure cboUrgencyChange(Sender: TObject); -
TfrmODBBank.chkConsentClick procedure chkConsentClick(Sender: TObject); -
TfrmODMisc.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODGen.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODMedIn.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODMedOut.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODText.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODProc.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODCslt.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODRad.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODLab.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODMedIV.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODVitals.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODMedNVA.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODMeds.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODAllergy.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODDiet.DietChange procedure DietChange(Sender: TObject); -
TfrmODLab.DisplayChangedOrders procedure DisplayChangedOrders(ACollType: string); -
TfrmODDiet.ELChange procedure ELChange(Sender: TObject); -
TfrmODDiet.IPChange procedure IPChange(Sender: TObject); -
TfrmODBBank.memDiagCommentChange procedure memDiagCommentChange(Sender: TObject); -
TfrmODDiet.OPChange procedure OPChange(Sender: TObject); -
SaveAsQuickOrder function SaveAsQuickOrder(ResponseSet: TResponses): Boolean; -
TfrmODMedOut.SetInstructions procedure SetInstructions; -
TfrmODBBank.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODBBank.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODDiet.TFChange procedure TFChange(Sender: TObject); -
TfrmODBBank.tQuantityChange procedure tQuantityChange(Sender: TObject); -


Source

866   function TResponses.GetOrderText: string;
867   { loop thru the response objects and build the order text }
868   var
869     i, AnInstance, NumInstance: Integer;
870     x, Segment: string;
871     ExcludeText, StartNewline: Boolean;
872     AResponse: TResponse;
873     APrompt: TPrompt;
874   begin
875     Result := '';
876     with FPrompts do for i := 0 to Count - 1 do
877     begin
878       APrompt := TPrompt(Items[i]);
879       if APrompt.Sequence = 0 then Continue;   // skip if prompt not in formatting sequence
880       NumInstance := 0;
881       Segment := '';
882       AnInstance := NextInstance(APrompt.ID, 0);
883       while AnInstance > 0 do
884       begin
885         Inc(NumInstance);
886         AResponse := FindResponseByName(APrompt.ID, AnInstance);
887         FormatResponse(x, ExcludeText, APrompt, AResponse.EValue, AnInstance);
888         //x := FormatResponse(APrompt, AResponse.EValue, AnInstance);
889         if not ExcludeText then
890         begin
891           if Length(APrompt.Children) > 0 then AppendChildren(x, APrompt.Children, AnInstance);
892           if Length(x) > 0 then
893           begin
894             // should the newline property be checked for children, too?
895             if APrompt.NewLine and (Length(Result) > 0) then x := CRLF + x;
896             if NumInstance > 1     then Segment := Segment + ',';
897             if Length(Segment) > 0 then Segment := Segment + ' ';
898             Segment := Segment + x;
899           end; {if Length(x)}
900         end; {if not ExcudeText}
901         AnInstance := NextInstance(APrompt.ID, AnInstance);
902       end; {while AnInstance}
903       if NumInstance > 0 then with APrompt do
904       begin
905         if Length(Segment) > 0 then
906         begin
907           if Copy(Segment, 1, 2) = CRLF then
908           begin
909             Segment := Copy(Segment, 3, Length(Segment));
910             StartNewline := True;
911           end
912           else StartNewline := False;
913           if (Length(Leading) > 0) then
914           begin
915             if (CharAt(Leading, 1) <> '@')
916               then Segment := Leading + ' ' + Segment
917               else Segment := FVarLeading + ' ' + Segment;
918           end; {if Length(Leading)}
919           if StartNewline then Segment := CRLF + Segment;
920           if (Length(Trailing) > 0) then
921           begin
922             if (CharAt(Trailing, 1) <> '@')
923               then Segment := Segment + ' ' + Trailing
924               else Segment := Segment + ' ' + FVarTrailing;
925           end; {if Length(Trailing)}
926         end; {if Length(Segment)}
927         if Length(Result) > 0 then Result := Result + ' ';
928         Result := Result + Segment;
929       end; {with APrompt}
930     end; {with FPrompts}
931   end; {GetOrderText}