Procedure

TResponses.SetQuickOrder

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Comments

Sets responses to a quick order value - this is used by the QuickOrder property

Visibility

Private

Owner

TResponses

Declaration

procedure SetQuickOrder(AnIEN: Integer);

Calls Hierarchy


TResponses.SetQuickOrder
 ├TResponses.Clear
 └LoadResponses
   └ExtractToResponses
     └ExpandOrderObjects
       ├TdmodShared.BoilerplateOK
       │ ├ErrCount
       │ ├AddErr
       │ └TdmodShared.LoadTIUObjects
       │   └GetObjectList
       └GetTemplateText
         └TEncounter.GetVisitStr
           └TEncounter.GetVisitCategory

Called-By Hierarchy


                   TResponses.SetQuickOrder
          TfrmODMedIn.cboMedicationSelect┤ 
               TfrmODMedIn.CheckFormAlt┘ │ 
          TfrmODMedIn.cboDispenseExit┤   │ 
    TfrmODMedIn.cboDispenseMouseClick┘   │ 
 TfrmODMedIn.cboMedicationSelect...┘     │ 
         TfrmODMedOut.cboMedicationSelect┤ 
              TfrmODMedOut.CheckFormAlt┘ │ 
         TfrmODMedOut.cboDispenseExit┤   │ 
   TfrmODMedOut.cboDispenseMouseClick┘   │ 
TfrmODMedOut.cboMedicationSelect...┘     │ 
                 TfrmODProc.cboProcSelect┤ 
              TfrmODCslt.treServiceChange┤ 
           TfrmODCslt.treServiceKeyDown┘ │ 
              TfrmODCslt.cboServiceSelect┤ 
              TfrmODCslt.cboServiceExit┘ │ 
             TfrmODRad.cboProcedureSelect┤ 
             TfrmODRad.cboProcedureExit┘ │ 
             TfrmODLab.cboAvailTestSelect┤ 
                  TfrmODLab.SetupDialog┤ │ 
             TfrmODLab.cboAvailTestExit┘ │ 
              TfrmODBBank.SetOnQuickOrder┤ 
              TfrmODBBank.cboQuickClick┘ │ 
        TfrmODMedIV.cboSolutionMouseClick┤ 
            TfrmODMedIV.cboSolutionExit┘ │ 
              TfrmODMedNVA.btnSelectClick┤ 
              TfrmODMedNVA.UMDelayClick┘ │ 
                TfrmODMeds.btnSelectClick┤ 
                TfrmODMeds.UMDelayClick┘ │ 
        TfrmODDiet.cboDietAvailMouseClick┤ 
            TfrmODDiet.cboDietAvailExit┘ │ 
          TfrmODDiet.cboProductMouseClick┤ 
              TfrmODDiet.cboProductExit┘ │ 
      TfrmODDiet.cboOPDietAvailMouseClick┤ 
               TfrmODDiet.nbkDietChange┤ │ 
                TfrmODDiet.InitDialog┤ │ │ 
               TfrmODDiet.SetupDialog┤ │ │ 
                            ..(rec)..┘ │ │ 
          TfrmODDiet.cboOPDietAvailExit┤ │ 
       TfrmODDiet.cboOPDietAvailKeyDown┘ │ 
           TfrmODAllergy.lstAllergySelect┘ 
              TfrmODAllergy.SetupDialog┤   
                              ..(rec)..┘   

Calls

Name Declaration Comments
TResponses.Clear procedure Clear; overload; -
LoadResponses procedure LoadResponses(Dest: TList; const OrderID: string; var HasObjects: boolean); -

Called-By

Name Declaration Comments
TfrmODMedNVA.btnSelectClick procedure btnSelectClick(Sender: TObject); -
TfrmODMeds.btnSelectClick procedure btnSelectClick(Sender: TObject); -
TfrmODLab.cboAvailTestSelect procedure cboAvailTestSelect(Sender: TObject); -
TfrmODDiet.cboDietAvailMouseClick procedure cboDietAvailMouseClick(Sender: TObject); -
TfrmODMedIn.cboMedicationSelect procedure cboMedicationSelect(Sender: TObject); -
TfrmODMedOut.cboMedicationSelect procedure cboMedicationSelect(Sender: TObject); -
TfrmODDiet.cboOPDietAvailMouseClick procedure cboOPDietAvailMouseClick(Sender: TObject); -
TfrmODRad.cboProcedureSelect procedure cboProcedureSelect(Sender: TObject); -
TfrmODProc.cboProcSelect procedure cboProcSelect(Sender: TObject); -
TfrmODDiet.cboProductMouseClick procedure cboProductMouseClick(Sender: TObject); -
TfrmODCslt.cboServiceSelect procedure cboServiceSelect(Sender: TObject); -
TfrmODMedIV.cboSolutionMouseClick procedure cboSolutionMouseClick(Sender: TObject); -
TfrmODAllergy.lstAllergySelect procedure lstAllergySelect(Sender: TObject); -
TfrmODBBank.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODCslt.treServiceChange procedure treServiceChange(Sender: TObject; Node: TTreeNode); -


Source

618   procedure TResponses.SetQuickOrder(AnIEN: Integer);
619   { sets responses to a quick order value - this is used by the QuickOrder property}
620   var
621     HasObjects: boolean;
622   begin
623     Clear;
624     LoadResponses(FResponseList, IntToStr(AnIEN), HasObjects);           // Example AnIEN=134
625     FQuickOrder := AnIEN;
626     FOrderContainsObjects := HasObjects;
627   end;