Procedure

TResponses.AppendChildren

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Visibility

Private

Owner

TResponses

Declaration

procedure AppendChildren(var ParentText: string; ChildPrompts: string; AnInstance: Integer);

Calls Hierarchy


TResponses.AppendChildren
 ├TResponses.FindPromptByIEN
 ├TResponses.FindResponseByIEN
 └TResponses.FormatResponse
   └TResponses.FindResponseByIEN

Called-By Hierarchy


                                 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┘       

Calls

Name Declaration Comments
TResponses.FindPromptByIEN function FindPromptByIEN(AnIEN: Integer): TPrompt; -
TResponses.FindResponseByIEN function FindResponseByIEN(APromptIEN, AnInstance: Integer): TResponse; -
TResponses.FormatResponse procedure FormatResponse(var FormattedText: string; var ExcludeText: Boolean; APrompt: TPrompt; const x: string; AnInstance: Integer); -

Called-By

Name Declaration Comments
TResponses.GetOrderText function GetOrderText: string; -


Source

833   procedure TResponses.AppendChildren(var ParentText: string; ChildPrompts: string; AnInstance: Integer);
834   var
835     x, Segment: string;
836     Boundary, ChildIEN: Integer;
837     ExcludeText: Boolean;
838     AResponse: TResponse;
839     APrompt: TPrompt;
840   begin
841     while Length(ChildPrompts) > 0 do
842     begin
843       Boundary := Pos('~', ChildPrompts);
844       if Boundary = 0 then Boundary := Length(ChildPrompts) + 1;
845       Segment := Copy(ChildPrompts, 1, Boundary - 1);
846       Delete(ChildPrompts, 1, Boundary);
847       ChildIEN := StrToIntDef(Segment, 0);
848       APrompt := FindPromptByIEN(ChildIEN);
849       if APrompt <> nil then
850       begin
851         AResponse := FindResponseByIEN(APrompt.IEN, AnInstance);
852         if AResponse <> nil then
853         begin
854           FormatResponse(x, ExcludeText, APrompt, AResponse.EValue, AnInstance);
855           //x := FormatResponse(APrompt, AResponse.EValue, AnInstance);
856           if not ExcludeText then
857           begin
858             if (Length(ParentText) > 0) and (Length(x) > 0) then ParentText := ParentText + ' ';
859             ParentText := ParentText + x;
860           end; {if not ExcludeText}
861         end; {if AResponse}
862       end; {if APrompt}
863     end; {while Length}
864   end; {AppendChildren}