Procedure

LoadResponses

Module

rODBase

Last Modified

7/15/2014 3:26:42 PM

Comments

Procedure LoadResponses(Dest: TList; const OrderID: string);

Scope

Interfaced

Declaration

procedure LoadResponses(Dest: TList; const OrderID: string; var HasObjects: boolean);

Calls Hierarchy


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

Called-By Hierarchy


                                               LoadResponses
                                   TResponses.SetCopyOrder┤ 
                                  TfrmODBase.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┘       │ 
                                   TResponses.SetEditOrder┤ 
                               TfrmODBase.SetupDialog...┘ │ 
                                  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)..┘   │ 
                              TResponses.SetQuickOrderByID┤ 
                               TfrmODBase.SetupDialog...┘ │ 
                                 ExecuteChangeRenewedOrder┤ 
                                         ChangeOrders...┘ │ 
                                        ExecuteRenewOutMed┘ 
                          TfrmRenewOrders.cmdChangeClick┘   

Calls

Name Declaration Comments
ExtractToResponses procedure ExtractToResponses(Dest: TList; var HasObjects: boolean); -

Called-By

Name Declaration Comments
ExecuteChangeRenewedOrder procedure ExecuteChangeRenewedOrder(const AnID: string; var param1, param2: string; Category: integer; AnEvent: TOrderDelayEvent); -
ExecuteRenewOutMed function ExecuteRenewOutMed(var Refills: Integer; var Comments, Pickup: string; AnOrder: TOrder): Boolean; -
TResponses.SetCopyOrder procedure SetCopyOrder(const AnID: string); -
TResponses.SetEditOrder procedure SetEditOrder(const AnID: string); -
TResponses.SetQuickOrder procedure SetQuickOrder(AnIEN: Integer); -
TResponses.SetQuickOrderByID procedure SetQuickOrderByID(const AnID: string); -


Source

436   procedure LoadResponses(Dest: TList; const OrderID: string; var HasObjects: boolean);
437   var
438   Transfer: boolean;
439   begin
440     if ((XferOuttoInOnMeds = True) or (XfInToOutNow = True)) and (CharAt(OrderID,1)='C') then Transfer := true
441     else Transfer := false;
442     CallV('ORWDX LOADRSP', [OrderID, Transfer]);
443     ExtractToResponses(Dest, HasObjects);
444   end;