Procedure

TResponses.FormatResponse

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Visibility

Private

Owner

TResponses

Declaration

procedure FormatResponse(var FormattedText: string; var ExcludeText: Boolean;
          APrompt: TPrompt; const x: string; AnInstance: Integer);

Calls Hierarchy


TResponses.FormatResponse
 └TResponses.FindResponseByIEN

Called-By Hierarchy


                                   TResponses.FormatResponse
                                 TResponses.AppendChildren┤ 
                                 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┘       │ 
                                TResponses.GetOrderText...┘ 

Calls

Name Declaration Comments
TResponses.FindResponseByIEN function FindResponseByIEN(APromptIEN, AnInstance: Integer): TResponse; -

Called-By

Name Declaration Comments
TResponses.AppendChildren procedure AppendChildren(var ParentText: string; ChildPrompts: string; AnInstance: Integer); -
TResponses.GetOrderText function GetOrderText: string; -


Source

774   procedure TResponses.FormatResponse(var FormattedText: string; var ExcludeText: Boolean;
775     APrompt: TPrompt; const x: string; AnInstance: Integer);
776   var
777     AValue: string;
778     PromptIEN: Integer;
779     Related: TResponse;
780   begin
781     FormattedText := '';
782     ExcludeText := True;
783     with APrompt do
784     begin
785       if FmtCode = '@' then Exit;                // skip this response
786       if CharAt(FmtCode, 1) = '@' then           // exclude if related response exists
787       begin
788         PromptIEN := StrToIntDef(Copy(FmtCode, 2, Length(FmtCode)), 0);
789         if (FindResponseByIEN(PromptIEN, AnInstance) <> nil) then Exit;
790       end;
791       if CharAt(FmtCode, 1) = '*' then           // include if related response exists
792       begin
793         PromptIEN := StrToIntDef(Copy(FmtCode, 2, Length(FmtCode)), 0);
794         if FindResponseByIEN(PromptIEN, AnInstance) = nil then Exit;
795       end;
796       if CharAt(FmtCode, 1) = '#' then           // include if related response = value
797       begin
798         AValue := Copy(FmtCode, Pos('=', FmtCode) + 1, Length(FmtCode));
799         PromptIEN := StrToIntDef(Copy(Piece(FmtCode, '=', 1), 2, Length(FmtCode)), 0);
800         Related := FindResponseByIEN(PromptIEN, AnInstance);
801         if Related = nil then Exit;
802         if not (Related.EValue = AValue) then Exit;
803       end;
804       if CharAt(FmtCode, 1) = '=' then           // exclude if related response has same text
805       begin
806         PromptIEN := StrToIntDef(Copy(FmtCode, 2, Length(FmtCode)), 0);
807         Related := FindResponseByIEN(PromptIEN, AnInstance);
808         if (Related <> nil) and ((Pos(Related.EValue, x) > 0) or (Pos(x, Related.EValue) > 0)) then Exit;
809       end;
810       ExcludeText := False;
811       if (Length(x) = 0) or (CompareText(x, Omit) = 0) then Exit;
812       FormattedText := x;
813       if IsChild and (Length(Leading) > 0) and (CharAt(Leading, 1) <> '@')
814         then FormattedText := Leading + ' ' + FormattedText;
815       if IsChild and (Length(Trailing) > 0) and (CharAt(Trailing, 1) <> '@')
816         then FormattedText := FormattedText + ' ' + Trailing;
817     end; {with APrompt}
818   end;