Function

DefaultDays

Module

rODMeds

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function DefaultDays(const ADrug, UnitStr, SchedStr: string; OI : Integer): Integer;

Called-By Hierarchy


                                               DefaultDays
                                  ValidateDrugAutoAccept┤ 
                                   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┘     │ 
                          TfrmODMeds.UpdateDefaultSupply┘ 
                       TfrmODMeds.timCheckChangesTimer┘   
                            TfrmODMeds.UpdateRelated┘     
                            TfrmODMeds.SetupDialog┤       
                         TfrmODMeds.btnSelectClick┤       
                         TfrmODMeds.UMDelayClick┘ │       
                         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┘       

Called-By

Name Declaration Comments
TfrmODMeds.UpdateDefaultSupply procedure UpdateDefaultSupply(const CurUnits, CurSchedule, CurDuration, CurDispDrug: string; var CurSupply: Integer; var CurQuantity: double; var SkipQtyCheck: Boolean); -
ValidateDrugAutoAccept function ValidateDrugAutoAccept(tempDrug, tempUnit, tempSch, tempDur: string; OI, tempSupply, tempRefills: integer; tempQuantity: Double): boolean; -


Source

252   function DefaultDays(const ADrug, UnitStr, SchedStr: string; OI : Integer): Integer;
253   begin
254     Result := StrToIntDef(sCallV('ORWDPS1 DFLTSPLY', [UnitStr, SchedStr, Patient.DFN, ADrug, OI]), 0);
255     if uDrugHasMaxData.CaptureMaxData = True then uDrugHasMaxData.MaxSupply := Result;
256   end;