Procedure

TResponses.Update

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Comments

For a given Prompt,Instance update or create the associated response object

Visibility

Public

Owner

TResponses

Declaration

procedure Update(const APromptID: string; AnInstance: Integer;
  const AnIValue, AnEValue: string);

Calls Hierarchy


TResponses.Update
 ├TResponses.FindResponseByName
 └TResponses.IENForPrompt

Called-By Hierarchy


                                             TResponses.Update
                                         TfrmODBase.Validate┤ 
                                      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┘   │ 
                                    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.Validate┤ 
                                   TfrmODMedIn.ControlChange┤ 
                                   TfrmODMedIn.SetupDialog┤ │ 
                           TfrmODMedIn.cboMedicationSelect┘ │ 
                                TfrmODMedIn.CheckFormAlt┘   │ 
                           TfrmODMedIn.cboDispenseExit┤     │ 
                     TfrmODMedIn.cboDispenseMouseClick┘     │ 
                  TfrmODMedIn.cboMedicationSelect...┘       │ 
                                          ExecuteComplexDose┤ 
                              TfrmODMedOut.cmdComplexClick┘ │ 
                                       TfrmODMedOut.Validate┤ 
                                  TfrmODMedOut.ControlChange┤ 
                                  TfrmODMedOut.SetupDialog┤ │ 
                          TfrmODMedOut.cboMedicationSelect┘ │ 
                               TfrmODMedOut.CheckFormAlt┘   │ 
                          TfrmODMedOut.cboDispenseExit┤     │ 
                    TfrmODMedOut.cboDispenseMouseClick┘     │ 
                 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┘ │ 
                                    TfrmODProc.cboProcSelect┤ 
                                    TfrmODProc.updateService┤ 
                               TfrmODProc.ControlChange...┘ │ 
                                 TfrmODCslt.treServiceChange┤ 
                              TfrmODCslt.treServiceKeyDown┘ │ 
                                    TfrmODCslt.ControlChange┤ 
                                    TfrmODCslt.SetupDialog┤ │ 
                              TfrmODCslt.radInpatientClick┤ │ 
                             TfrmODCslt.radOutpatientClick┤ │ 
                            TfrmODCslt.treServiceChange...┤ │ 
                                  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┘ │ 
                              TfrmODCslt.cboServiceSelect...┤ 
                                TfrmODCslt.SetUpEarliestDate┤ 
                                    TfrmODCslt.SetupDialog┤ │ 
                            TfrmODCslt.treServiceChange...┤ │ 
                            TfrmODCslt.cboServiceSelect...┘ │ 
                                     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┘ │ 
                                         GetOrderingLocation┤ 
                                        TfrmODRad.Validate┘ │ 
                                          TfrmODRad.Validate┤ 
                                  TfrmODRad.cboProcedureExit┤ 
                                     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.Validate┤ 
                                     TfrmODBBank.SetupDialog┤ 
                                 TfrmODBBank.SetOnQuickOrder┤ 
                                 TfrmODBBank.cboQuickClick┘ │ 
                                TfrmODBBank.cboReasonsChange┤ 
                              TfrmODBBank.cboAvailTestSelect┤ 
                                   TfrmODBBank.SetupDialog┤ │ 
                              TfrmODBBank.cboAvailTestExit┘ │ 
                              TfrmODBBank.cboAvailCompSelect┤ 
                              TfrmODBBank.cboAvailCompExit┘ │ 
                         TfrmODBBank.EnableComponentControls┤ 
                                   TfrmODBBank.SetupDialog┤ │ 
                            TfrmODBBank.SetOnQuickOrder...┤ │ 
                         TfrmODBBank.cboAvailCompSelect...┤ │ 
                          TfrmODBBank.lvSelectionListClick┘ │ 
                                 TfrmODBBank.SetupDialog┤   │ 
                          TfrmODBBank.SetOnQuickOrder...┤   │ 
                       TfrmODBBank.cboAvailTestSelect...┤   │ 
                       TfrmODBBank.cboAvailCompSelect...┤   │ 
                           TfrmODBBank.cboAvailTestEnter┤   │ 
                           TfrmODBBank.cboAvailCompEnter┤   │ 
                            TfrmODBBank.cboCollTimeEnter┤   │ 
                            TfrmODBBank.cboCollTypeEnter┤   │ 
                           TfrmODBBank.cboModifiersEnter┤   │ 
                            TfrmODBBank.calWantTimeEnter┤   │ 
                              TfrmODBBank.tQuantityEnter┤   │ 
                           TfrmODBBank.txtImmedCollEnter┤   │ 
                            TfrmODBBank.calCollTimeEnter┘   │ 
                               TfrmODBBank.cboCollTimeChange┤ 
                               TfrmODBBank.cboCollTypeChange┤ 
                              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.Validate┤ 
                                   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┘ │ 
                                         TfrmODAuto.Validate┤ 
                                               ValidateRoute┤ 
                                  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┘ │ 
                                               ValidateRoute┤ 
                                       TfrmODMeds.Validate┘ │ 
                                    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.Validate┤ 
                                 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.FindResponseByName function FindResponseByName(const APromptID: string; AnInstance: Integer): TResponse; -
TResponses.IENForPrompt function IENForPrompt(const APromptID: string): Integer; -

Called-By

Name Declaration Comments
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.cboCollTimeChange procedure cboCollTimeChange(Sender: TObject); -
TfrmODBBank.cboCollTypeChange procedure cboCollTypeChange(Sender: TObject); -
TfrmODBBank.cboModifiersChange procedure cboModifiersChange(Sender: TObject); -
TfrmODRad.cboProcedureExit procedure cboProcedureExit(Sender: TObject); -
TfrmODProc.cboProcSelect procedure cboProcSelect(Sender: TObject); -
TfrmODBBank.cboReasonsChange procedure cboReasonsChange(Sender: TObject); -
TfrmODCslt.cboServiceSelect procedure cboServiceSelect(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); -
TfrmODDiet.ELChange procedure ELChange(Sender: TObject); -
TfrmODBBank.EnableComponentControls procedure EnableComponentControls; -
ExecuteComplexDose function ExecuteComplexDose(CtrlInits: TCtrlInits; Responses: TResponses): Boolean; -
GetOrderingLocation procedure GetOrderingLocation(AType: integer); -
TfrmODDiet.IPChange procedure IPChange(Sender: TObject); -
TfrmODBBank.memDiagCommentChange procedure memDiagCommentChange(Sender: TObject); -
TfrmODDiet.OPChange procedure OPChange(Sender: TObject); -
TfrmODBBank.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODBBank.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODCslt.SetUpEarliestDate procedure SetUpEarliestDate; -
TfrmODDiet.TFChange procedure TFChange(Sender: TObject); -
TfrmODBBank.tQuantityChange procedure tQuantityChange(Sender: TObject); -
TfrmODCslt.treServiceChange procedure treServiceChange(Sender: TObject; Node: TTreeNode); -
TfrmODProc.updateService procedure updateService; -
TfrmODBase.Validate procedure Validate(var AnErrMsg: string); virtual; -
TfrmODMedIn.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODMedOut.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODRad.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODLab.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODMedIV.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODAuto.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODAllergy.Validate procedure Validate(var AnErrMsg: string); override; -
ValidateRoute procedure ValidateRoute(const x: string; NeedLookup: Boolean; AnInstance: Integer); -
ValidateRoute procedure ValidateRoute(const x: string; NeedLookup: Boolean; AnInstance: Integer); -


Source

933   procedure TResponses.Update(const APromptID: string; AnInstance: Integer;
934     const AnIValue, AnEValue: string);
935   { for a given Prompt,Instance update or create the associated response object }
936   var
937     AResponse: TResponse;
938   begin
939     AResponse := FindResponseByName(APromptID, AnInstance);
940     if AResponse = nil then
941     begin
942       AResponse := TResponse.Create;
943       AResponse.PromptID := APromptID;
944       AResponse.PromptIEN := IENForPrompt(APromptID);
945       AResponse.Instance := AnInstance;
946       FResponseList.Add(AResponse);
947     end;
948     AResponse.IValue := AnIValue;
949     AResponse.EValue := AnEValue;
950   end;