Function

TResponses.IValueFor

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public

Owner

TResponses

Declaration

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

Called-By Hierarchy


                                            TResponses.IValueFor
                                       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)..┘     │ 
                                           TfrmODBase.Validate┤ 
                                     TfrmODBase.ValidSave...┘ │ 
                                 TfrmODBase.LESValidationCheck┤ 
                                     TfrmODBase.ValidSave...┘ │ 
                                            ExecuteComplexDose┤ 
                                TfrmODMedOut.cmdComplexClick┘ │ 
                               TfrmODMedOut.SetInstructions...┤ 
                                           TfrmODAuto.Validate┤ 
                                        TfrmODAuto.SetupDialog┤ 
                                        ActivateOrderDialog...┤ 
                                      TfrmODMedNVA.SetupDialog┤ 
                                TfrmODMedNVA.btnSelectClick...┤ 
                               TfrmODMedNVA.SetOnQuickOrder...┤ 
                                  TfrmODMedNVA.ValueOfResponse┤ 
                                            ValidateSchedule┤ │ 
                             TfrmODMedNVA.SetOnQuickOrder...┤ │ 
                           TfrmODMedNVA.timCheckChangesTimer┘ │ 
                                TfrmODMedNVA.UpdateRelated┘   │ 
                                TfrmODMedNVA.SetupDialog┤     │ 
                          TfrmODMedNVA.btnSelectClick...┤     │ 
                             TfrmODMedNVA.cboDosageClick┤     │ 
                            TfrmODMedNVA.cboDosageExit┘ │     │ 
                            TfrmODMedNVA.cboDosageChange┤     │ 
                           TfrmODMedNVA.cboScheduleClick┤     │ 
                          TfrmODMedNVA.cboScheduleChange┤     │ 
                               TfrmODMedNVA.grdDosesExit┘     │ 
                                        TfrmODMeds.SetupDialog┤ 
                                           TfrmODMeds.Validate┤ 
                                  TfrmODMeds.btnSelectClick...┤ 
                                 TfrmODMeds.SetOnQuickOrder...┤ 
                                    TfrmODMeds.ValueOfResponse┤ 
                                      TfrmODMeds.SetupDialog┤ │ 
                                            ValidateSchedule┤ │ 
                                       TfrmODMeds.Validate┘ │ │ 
                                         TfrmODMeds.Validate┤ │ 
                               TfrmODMeds.SetOnQuickOrder...┤ │ 
                             TfrmODMeds.timCheckChangesTimer┘ │ 
                                  TfrmODMeds.UpdateRelated┘   │ 
                                  TfrmODMeds.SetupDialog┤     │ 
                            TfrmODMeds.btnSelectClick...┤     │ 
                               TfrmODMeds.cboDosageClick┤     │ 
                             TfrmODMeds.cboDosageKeyUp┘ │     │ 
                              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.popDurationClick┘ │     │ 
                             TfrmODMeds.pnlXDurationExit┤     │ 
                                  TfrmODMeds.chkPRNClick┤     │ 
                              TfrmODMeds.cboScheduleExit┤     │ 
                               TfrmODMeds.cboDosageKeyUp┤     │ 
                              TfrmODMeds.cboXDosageKeyUp┘     │ 
                                TfrmODMeds.UpdateDefaultSupply┘ 
                          TfrmODMeds.timCheckChangesTimer...┘   

Called-By

Name Declaration Comments
ActivateOrderDialog function ActivateOrderDialog(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer; ANeedVerify: boolean = True): Boolean; -
AssignBPText procedure AssignBPText(List: TStrings; const Value: string); -
TfrmODMedNVA.btnSelectClick procedure btnSelectClick(Sender: TObject); -
TfrmODMeds.btnSelectClick procedure btnSelectClick(Sender: TObject); -
TResponses.BuildOCItems procedure BuildOCItems(AList: TStringList; var AStartDtTm: string; const AFillerID: string); -
ExecuteComplexDose function ExecuteComplexDose(CtrlInits: TCtrlInits; Responses: TResponses): Boolean; -
TfrmODBase.LESValidationCheck function LESValidationCheck: boolean; -
TfrmODMedOut.SetInstructions procedure SetInstructions; -
TfrmODMedNVA.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODMeds.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODAuto.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODMedNVA.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODMeds.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODMeds.UpdateDefaultSupply procedure UpdateDefaultSupply(const CurUnits, CurSchedule, CurDuration, CurDispDrug: string; var CurSupply: Integer; var CurQuantity: double; var SkipQtyCheck: Boolean); -
TfrmODBase.Validate procedure Validate(var AnErrMsg: string); virtual; -
TfrmODAuto.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODMeds.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODMedNVA.ValueOfResponse function ValueOfResponse(FieldID: Integer; AnInstance: Integer = 1): string; -
TfrmODMeds.ValueOfResponse function ValueOfResponse(FieldID: Integer; AnInstance: Integer = 1): string; -


Source

694   function TResponses.IValueFor(const APromptID: string; AnInstance: Integer): string;
695   var
696     i: Integer;
697   begin
698     Result := '';
699     with FResponseList do for i := 0 to Count - 1 do with TResponse(Items[i]) do
700       if (PromptID = APromptID) and (Instance = AnInstance) then
701       begin
702         Result := IValue;
703         break;
704       end;
705   end;