Function

TfrmODBase.OrderForInpatient

Module

fODBase

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public

Owner

TfrmODBase

Declaration

function OrderForInpatient: Boolean;

Calls Hierarchy


TfrmODBase.OrderForInpatient
 ├OrderEventTypeOnCreate
 └IsPassEvt1

Called-By Hierarchy


                              TfrmODBase.OrderForInpatient
                               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┘     │ 
                                    TfrmODMedIn.Validate┤ 
                                   TfrmODProc.InitDialog┤ 
                                 TfrmODProc.FormCreate┤ │ 
                              TfrmODProc.cboProcSelect┘ │ 
                                   TfrmODCslt.InitDialog┤ 
                                 TfrmODCslt.FormCreate┘ │ 
                                    TfrmODRad.InitDialog┤ 
                                 TfrmODRad.SetupDialog┤ │ 
                             TfrmODRad.ImageTypeChange┘ │ 
                             TfrmODRad.cboImTypeExit┤   │ 
                    TfrmODRad.cboImTypeDropDownClose┘   │ 
                                     GetOrderingLocation┤ 
                                    TfrmODRad.Validate┘ │ 
                                TfrmODRad.cmdRemoveClick┤ 
                                    TfrmODLab.FormCreate┤ 
                                  TfrmODLab.LoadCollType┤ 
                           TfrmODLab.cboCollSampChange┤ │ 
                               TfrmODLab.SetupDialog┤ │ │ 
                        TfrmODLab.cboAvailTestSelect┘ │ │ 
                             TfrmODLab.SetupDialog┤   │ │ 
                        TfrmODLab.cboAvailTestExit┘   │ │ 
                 TfrmODLab.DetermineCollectionDefaults┘ │ 
                               TfrmODLab.SetupDialog┤   │ 
                     TfrmODLab.cboAvailTestSelect...┘   │ 
                                      TfrmODLab.Validate┤ 
                               TfrmODLab.cboCollTimeExit┤ 
                                  TfrmODBBank.FormCreate┤ 
                                 TfrmODBBank.ValidateAdd┤ 
                                  TfrmODBBank.Validate┤ │ 
                                  TfrmODBBank.ValidAdd┘ │ 
                          TfrmODBBank.cmdAcceptClick┘   │ 
                                TfrmODBBank.LoadCollType┤ 
               TfrmODBBank.DetermineCollectionDefaults┘ │ 
                      TfrmODBBank.cboAvailTestSelect┘   │ 
                           TfrmODBBank.SetupDialog┤     │ 
                      TfrmODBBank.cboAvailTestExit┘     │ 
                      TfrmODMedIV.SetValuesFromResponses┤ 
                               TfrmODMedIV.SetupDialog┤ │ 
                     TfrmODMedIV.cboSolutionMouseClick┘ │ 
                         TfrmODMedIV.cboSolutionExit┘   │ 
                    TfrmODMedIV.cboSolutionMouseClick...┤ 
                       TfrmODMedIV.cboAdditiveMouseClick┤ 
                           TfrmODMedIV.cboAdditiveExit┘ │ 
                                  TfrmODAuto.SetupDialog┤ 
                                   TfrmODMeds.FormCreate┤ 
                                   TfrmODDiet.FormCreate┤ 
                                  TfrmODDiet.SetupDialog┤ 
                                     TfrmODDiet.Validate┤ 
                                             ..(rec)..┘ │ 
                                TfrmODDiet.nbkDietChange┤ 
                                 TfrmODDiet.InitDialog┤ │ 
                                TfrmODDiet.SetupDialog┤ │ 
                                             ..(rec)..┘ │ 
                     TfrmODDiet.SetValuesFromResponsesTF┤ 
                                TfrmODDiet.SetupDialog┤ │ 
                       TfrmODDiet.cboProductMouseClick┘ │ 
                           TfrmODDiet.cboProductExit┘   │ 
                                     TfrmODDiet.TFChange┤ 
                TfrmODDiet.SetValuesFromResponsesTF...┤ │ 
                    TfrmODDiet.cboProductMouseClick...┤ │ 
                          TfrmODDiet.cboStrengthChange┤ │ 
                            TfrmODDiet.cboStrengthExit┤ │ 
                          TfrmODDiet.txtQuantityChange┤ │ 
                            TfrmODDiet.txtQuantityExit┤ │ 
                           TfrmODDiet.cmdTFRemoveClick┘ │ 
                     TfrmODDiet.SetValuesFromResponsesEL┤ 
                                TfrmODDiet.SetupDialog┘ │ 
                                 TfrmODDiet.grpMealClick┤ 
                TfrmODDiet.SetValuesFromResponsesEL...┘ │ 
                               TfrmODDiet.calELStartExit┤ 
                                     TfrmODDiet.ELChange┤ 
                TfrmODDiet.SetValuesFromResponsesEL...┤ │ 
                            TfrmODDiet.grpMealClick...┤ │ 
                           TfrmODDiet.calELStartChange┤ │ 
                            TfrmODDiet.calELStopChange┘ │ 
              TfrmODDiet.SetValuesFromResponsesEL...┘   │ 
                                     TfrmODDiet.AOChange┤ 
                   TfrmODDiet.SetValuesFromResponsesAO┘ │ 
                              TfrmODDiet.SetupDialog┘   │ 
                               TfrmODDiet.cmdAcceptClick┘ 
                            TfrmODDiet.nbkDietChanging┘   

Calls

Name Declaration Comments
IsPassEvt1 function IsPassEvt1(AnEvtID: integer; AnEvtType: char): boolean; -
OrderEventTypeOnCreate function OrderEventTypeOnCreate: Char; -

Called-By

Name Declaration Comments
TfrmODDiet.AOChange procedure AOChange(Sender: TObject); -
TfrmODDiet.calELStartExit procedure calELStartExit(Sender: TObject); -
TfrmODMedIV.cboAdditiveMouseClick procedure cboAdditiveMouseClick(Sender: TObject); -
TfrmODLab.cboCollTimeExit procedure cboCollTimeExit(Sender: TObject); -
TfrmODMedIV.cboSolutionMouseClick procedure cboSolutionMouseClick(Sender: TObject); -
TfrmODBase.cmdAcceptClick procedure cmdAcceptClick(Sender: TObject); -
TfrmODDiet.cmdAcceptClick procedure cmdAcceptClick(Sender: TObject); -
TfrmODRad.cmdRemoveClick procedure cmdRemoveClick(Sender: TObject); -
TfrmODDiet.ELChange procedure ELChange(Sender: TObject); -
TfrmODLab.FormCreate procedure FormCreate(Sender: TObject); -
TfrmODBBank.FormCreate procedure FormCreate(Sender: TObject); -
TfrmODMeds.FormCreate procedure FormCreate(Sender: TObject); -
TfrmODDiet.FormCreate procedure FormCreate(Sender: TObject); -
GetOrderingLocation procedure GetOrderingLocation(AType: integer); -
TfrmODDiet.grpMealClick procedure grpMealClick(Sender: TObject); -
TfrmODProc.InitDialog procedure InitDialog; override; -
TfrmODCslt.InitDialog procedure InitDialog; override; -
TfrmODRad.InitDialog procedure InitDialog; override; -
TfrmODLab.LoadCollType procedure LoadCollType(AComboBox:TORComboBox); -
TfrmODBBank.LoadCollType procedure LoadCollType(AComboBox:TORComboBox); -
TfrmODDiet.nbkDietChange procedure nbkDietChange(Sender: TObject); -
TfrmODAuto.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODDiet.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmODMedIV.SetValuesFromResponses procedure SetValuesFromResponses; -
TfrmODDiet.SetValuesFromResponsesEL procedure SetValuesFromResponsesEL; -
TfrmODDiet.SetValuesFromResponsesTF procedure SetValuesFromResponsesTF; -
TfrmODDiet.TFChange procedure TFChange(Sender: TObject); -
TfrmODMedIn.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODLab.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODDiet.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODBBank.ValidateAdd procedure ValidateAdd(var AnErrMsg: string); -


Source

1288  function TfrmODBase.OrderForInpatient: Boolean;
1289  var
1290    AnEventType: Char;
1291  begin
1292    AnEventType := OrderEventTypeOnCreate;
1293    // if event type = #0, then it wasn't passed or we're not in create
1294    if AnEventType = #0 then AnEventType := Responses.FEventType;
1295    case AnEventType of
1296    'A','O': Result := True;
1297    'D': Result := False;
1298    'T':
1299    begin
1300      if IsPassEvt1(FEvtID,'T') then  Result := False
1301      else Result := True;
1302    end
1303    else Result := Patient.Inpatient;
1304    end;
1305  end;