Function

TResponses.EValueFor

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public

Owner

TResponses

Declaration

function EValueFor(const APromptID: string; AnInstance: Integer): string;

Called-By Hierarchy


                                            TResponses.EValueFor
                                       TResponses.BuildOCItems┤ 
                                TfrmODBase.AcceptOrderChecks┘ │ 
                                      TfrmODBase.ValidSave┘   │ 
                               TfrmODBase.cmdAcceptClick┤     │ 
                                   ActivateOrderDialog┘ │     │ 
                           TfrmRemDlg.btnFinishClick┤   │     │ 
           TfrmConsults.mnuActNewConsultRequestClick┤   │     │ 
                   TfrmConsults.cmdNewConsultClick┘ │   │     │ 
                TfrmConsults.mnuActNewProcedureClick┤   │     │ 
                      TfrmConsults.cmdNewProcClick┘ │   │     │ 
                                        ChangeOrders┤   │     │ 
                      TfrmOrders.mnuActChangeClick┤ │   │     │ 
                        TfrmMeds.mnuActChangeClick┘ │   │     │ 
                                     ChangeOrdersEvt┤   │     │ 
                                          CopyOrders┤   │     │ 
                        TfrmOrders.mnuActCopyClick┤ │   │     │ 
                          TfrmMeds.mnuActCopyClick┤ │   │     │ 
                           TfrmODActive.btnOKClick┘ │   │     │ 
                                      TransferOrders┤   │     │ 
                        TfrmOrders.mnuActCopyClick┤ │   │     │ 
                          TfrmMeds.mnuActCopyClick┤ │   │     │ 
                           TfrmODActive.btnOKClick┘ │   │     │ 
                            TfrmOrders.lstWriteClick┤   │     │ 
               TfrmOrders.PlaceOrderForDefaultDialog┤   │     │ 
                  TfrmOrders.DisplayDefaultDlgList┤ │   │     │ 
                       TfrmOrders.ResetOrderPage┘ │ │   │     │ 
               TfrmOrders.btnDelayedOrderClick┘   │ │   │     │ 
                                 DisplayEvntDialog┤ │   │     │ 
                             SetDelayEventForMed┘ │ │   │     │ 
                      TfrmMeds.mnuActCopyClick┘   │ │   │     │ 
                                 DisplayEvntDialog┤ │   │     │ 
                                  SetViewForCopy┘ │ │   │     │ 
                    TfrmOrders.mnuActCopyClick┘   │ │   │     │ 
                                 DisplayEvntDialog┘ │   │     │ 
                                ExecuteChangeEvt┘   │   │     │ 
                 TfrmOrders.mnuActChgEvntClick┘     │   │     │ 
                             TfrmMeds.mnuActNewClick┤   │     │ 
                           TfrmOMNavA.ActivateDialog┤   │     │ 
                         TfrmOMNavA.grdMenuKeyDown┤ │   │     │ 
                         TfrmOMNavA.grdMenuMouseUp┘ │   │     │ 
                                TfrmOMSet.DoNextItem┘   │     │ 
                              TfrmOMSet.InsertList┤     │     │ 
                               ActivateOrderList┘ │     │     │ 
                     TfrmRemDlg.btnFinishClick┤   │     │     │ 
                             ActivateOrderHTML┤   │     │     │ 
                    TfrmOrders.lstWriteClick┤ │   │     │     │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┘ │   │     │     │ 
                              ActivateOrderSet┤   │     │     │ 
                   TfrmRemDlg.btnFinishClick┤ │   │     │     │ 
TfrmConsults.mnuActNewConsultRequestClick...┤ │   │     │     │ 
     TfrmConsults.mnuActNewProcedureClick...┤ │   │     │     │ 
                    TfrmOrders.lstWriteClick┤ │   │     │     │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │     │     │ 
                     TfrmMeds.mnuActNewClick┤ │   │     │     │ 
                TfrmOMNavA.ActivateDialog...┤ │   │     │     │ 
                     TfrmOMSet.DoNextItem...┘ │   │     │     │ 
                       TfrmOMNavA.DoSelectList┘   │     │     │ 
                     TfrmOMNavA.grdMenuKeyUp┤     │     │     │ 
                   TfrmOMNavA.grdMenuMouseUp┘     │     │     │ 
                                        SkipToNext┤     │     │ 
                         TfrmOMSet.DoNextItem...┘ │     │     │ 
                            TfrmOMSet.UMDelayEvent┘     │     │ 
                               TfrmODBase.FormCloseQuery┤     │ 
                                     TfrmODBase.TabClose┤     │ 
                            TfrmODAllergy.cmdAcceptClick┘     │ 
                                                  AssignBPText┤ 
                                       TResponses.SetControl┘ │ 
                                    TfrmODMisc.SetupDialog┤   │ 
                                     TfrmODGen.SetupDialog┤   │ 
                                   TfrmODMedIn.SetupDialog┤   │ 
                           TfrmODMedIn.cboMedicationSelect┤   │ 
                                TfrmODMedIn.CheckFormAlt┘ │   │ 
                           TfrmODMedIn.cboDispenseExit┤   │   │ 
                     TfrmODMedIn.cboDispenseMouseClick┘   │   │ 
                  TfrmODMedIn.cboMedicationSelect...┘     │   │ 
                                  TfrmODMedOut.SetupDialog┤   │ 
                          TfrmODMedOut.cboMedicationSelect┤   │ 
                               TfrmODMedOut.CheckFormAlt┘ │   │ 
                          TfrmODMedOut.cboDispenseExit┤   │   │ 
                    TfrmODMedOut.cboDispenseMouseClick┘   │   │ 
                 TfrmODMedOut.cboMedicationSelect...┘     │   │ 
                              TfrmODMedOut.SetInstructions┤   │ 
                                TfrmODMedOut.SetupDialog┤ │   │ 
                     TfrmODMedOut.cboMedicationSelect...┤ │   │ 
                            TfrmODMedOut.cmdComplexClick┘ │   │ 
                                    TfrmODText.SetupDialog┤   │ 
                                    TfrmODProc.SetupDialog┤   │ 
                                  TfrmODProc.cboProcSelect┤   │ 
                                    TfrmODCslt.SetupDialog┤   │ 
                               TfrmODCslt.treServiceChange┤   │ 
                            TfrmODCslt.treServiceKeyDown┘ │   │ 
                               TfrmODCslt.cboServiceSelect┤   │ 
                               TfrmODCslt.cboServiceExit┘ │   │ 
                                     TfrmODRad.SetupDialog┤   │ 
                              TfrmODRad.cboProcedureSelect┤   │ 
                              TfrmODRad.cboProcedureExit┘ │   │ 
                                     TfrmODLab.SetupDialog┤   │ 
                              TfrmODLab.cboAvailTestSelect┤   │ 
                                   TfrmODLab.SetupDialog┤ │   │ 
                              TfrmODLab.cboAvailTestExit┘ │   │ 
                                   TfrmODBBank.SetupDialog┤   │ 
                               TfrmODBBank.SetOnQuickOrder┤   │ 
                               TfrmODBBank.cboQuickClick┘ │   │ 
                        TfrmODMedIV.SetValuesFromResponses┤   │ 
                                 TfrmODMedIV.SetupDialog┤ │   │ 
                       TfrmODMedIV.cboSolutionMouseClick┘ │   │ 
                           TfrmODMedIV.cboSolutionExit┘   │   │ 
                                  TfrmODVitals.SetupDialog┤   │ 
                              TfrmODMedNVA.SetOnQuickOrder┤   │ 
                                TfrmODMedNVA.SetupDialog┤ │   │ 
                             TfrmODMedNVA.btnSelectClick┘ │   │ 
                             TfrmODMedNVA.UMDelayClick┘   │   │ 
                                TfrmODMeds.SetOnQuickOrder┤   │ 
                                  TfrmODMeds.SetupDialog┤ │   │ 
                               TfrmODMeds.btnSelectClick┘ │   │ 
                               TfrmODMeds.UMDelayClick┘   │   │ 
                       TfrmODDiet.SetValuesFromResponsesDO┤   │ 
                                  TfrmODDiet.SetupDialog┤ │   │ 
                       TfrmODDiet.cboDietAvailMouseClick┘ │   │ 
                           TfrmODDiet.cboDietAvailExit┘   │   │ 
                       TfrmODDiet.SetValuesFromResponsesTF┤   │ 
                                  TfrmODDiet.SetupDialog┤ │   │ 
                         TfrmODDiet.cboProductMouseClick┘ │   │ 
                             TfrmODDiet.cboProductExit┘   │   │ 
                       TfrmODDiet.SetValuesFromResponsesEL┤   │ 
                                  TfrmODDiet.SetupDialog┘ │   │ 
                       TfrmODDiet.SetValuesFromResponsesIP┤   │ 
                                  TfrmODDiet.SetupDialog┘ │   │ 
                       TfrmODDiet.SetValuesFromResponsesAO┤   │ 
                                  TfrmODDiet.SetupDialog┘ │   │ 
                       TfrmODDiet.SetValuesFromResponsesOP┤   │ 
                                  TfrmODDiet.SetupDialog┤ │   │ 
                     TfrmODDiet.cboOPDietAvailMouseClick┘ │   │ 
                              TfrmODDiet.nbkDietChange┤   │   │ 
                               TfrmODDiet.InitDialog┤ │   │   │ 
                              TfrmODDiet.SetupDialog┤ │   │   │ 
                                           ..(rec)..┘ │   │   │ 
                         TfrmODDiet.cboOPDietAvailExit┤   │   │ 
                      TfrmODDiet.cboOPDietAvailKeyDown┘   │   │ 
                                 TfrmODAllergy.SetupDialog┤   │ 
                            TfrmODAllergy.lstAllergySelect┘   │ 
                               TfrmODAllergy.SetupDialog┤     │ 
                                               ..(rec)..┘     │ 
                               TfrmODMedOut.SetInstructions...┤ 
                                           TfrmODAuto.Validate┤ 
                               TfrmODMedNVA.SetOnQuickOrder...┤ 
                                           TfrmODMeds.Validate┘ 

Called-By

Name Declaration Comments
AssignBPText procedure AssignBPText(List: TStrings; const Value: string); -
TResponses.BuildOCItems procedure BuildOCItems(AList: TStringList; var AStartDtTm: string; const AFillerID: string); -
TfrmODMedOut.SetInstructions procedure SetInstructions; -
TfrmODMedNVA.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODAuto.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODMeds.Validate procedure Validate(var AnErrMsg: string); override; -


Source

681   function TResponses.EValueFor(const APromptID: string; AnInstance: Integer): string;
682   var
683     i: Integer;
684   begin
685     Result := '';
686     with FResponseList do for i := 0 to Count - 1 do with TResponse(Items[i]) do
687       if (PromptID = APromptID) and (Instance = AnInstance) then
688       begin
689         Result := EValue;
690         break;
691       end;
692   end;