Procedure

LoadAdminInfo

Module

rODMeds

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure LoadAdminInfo(const Schedule: string; OrdItem: Integer; var StartText: string;
  var AdminTime: TFMDateTime; var Duration: string; Admin: string = '');

Called-By Hierarchy


                              LoadAdminInfo
          TfrmODMedIV.loadExpectFirstDose┤ 
     TfrmODMedIV.SetValuesFromResponses┤ │ 
              TfrmODMedIV.SetupDialog┤ │ │ 
    TfrmODMedIV.cboSolutionMouseClick┘ │ │ 
        TfrmODMedIV.cboSolutionExit┘   │ │ 
              TfrmODMedIV.ControlChange┘ │ 
TfrmODMedIV.SetValuesFromResponses...┤   │ 
            TfrmODMedIV.cboTypeChange┤   │ 
         TfrmODMedIV.ClearAllFields┘ │   │ 
           TfrmODMedIV.InitDialog┤   │   │ 
         TfrmODMedIV.FormCreate┘ │   │   │ 
       TfrmODMedIV.cmdRemoveClick┘   │   │ 
          TfrmODMedIV.chkDoseNowClick┤   │ 
              TfrmODMedIV.chkPRNClick┤   │ 
 TfrmODMedIV.cboSolutionMouseClick...┤   │ 
        TfrmODMedIV.cboAddFreqCloseUp┤   │ 
      TfrmODMedIV.cboAddFreqKeyDown┘ │   │ 
        TfrmODMedIV.cboDurationChange┤   │ 
    TfrmODMedIV.cboInfusionTimeChange┤   │ 
        TfrmODMedIV.cboPriorityChange┤   │ 
           TfrmODMedIV.cboRouteChange┤   │ 
    TfrmODMedIV.txtAllIVRoutesClick┘ │   │ 
      TfrmODMedIV.cboRouteKeyDown┘   │   │ 
    TfrmODMedIV.cboAdditiveMouseClick┤   │ 
        TfrmODMedIV.cboAdditiveExit┘ │   │ 
        TfrmODMedIV.txtSelectedChange┤   │ 
        TfrmODMedIV.cboScheduleChange┤   │ 
            TfrmODMedIV.txtNSSClick┘ │   │ 
   TfrmODMedIV.cboScheduleKeyDown┘   │   │ 
       TfrmODMedIV.cboSelectedCloseUp┤   │ 
     TfrmODMedIV.cboSelectedKeyDown┘ │   │ 
           TfrmODMedIV.cmdRemoveClick┤   │ 
       TfrmODMedIV.txtXDurationChange┤   │ 
         TfrmODMedIV.txtXDurationExit┤   │ 
            TfrmODMedIV.txtRateChange┘   │ 
          TfrmODMedNVA.UpdateStartExpires┤ 
           TfrmODMedNVA.SetOnQuickOrder┤ │ 
             TfrmODMedNVA.SetupDialog┤ │ │ 
          TfrmODMedNVA.btnSelectClick┘ │ │ 
          TfrmODMedNVA.UMDelayClick┘   │ │ 
      TfrmODMedNVA.timCheckChangesTimer┤ │ 
           TfrmODMedNVA.UpdateRelated┘ │ │ 
           TfrmODMedNVA.SetupDialog┤   │ │ 
     TfrmODMedNVA.btnSelectClick...┤   │ │ 
        TfrmODMedNVA.cboDosageClick┤   │ │ 
       TfrmODMedNVA.cboDosageExit┘ │   │ │ 
       TfrmODMedNVA.cboDosageChange┤   │ │ 
      TfrmODMedNVA.cboScheduleClick┤   │ │ 
     TfrmODMedNVA.cboScheduleChange┤   │ │ 
          TfrmODMedNVA.grdDosesExit┘   │ │ 
               TfrmODMedNVA.chkPRNClick┘ │ 
            TfrmODMeds.UpdateStartExpires┘ 
                 TfrmODMeds.SetupDialog┤   
             TfrmODMeds.SetOnQuickOrder┤   
               TfrmODMeds.SetupDialog┤ │   
            TfrmODMeds.btnSelectClick┘ │   
            TfrmODMeds.UMDelayClick┘   │   
               TfrmODMeds.tabDoseChange┤   
               TfrmODMeds.FormKeyDown┘ │   
          TfrmODMeds.cboXScheduleChange┤   
               TfrmODMeds.txtNSSClick┘ │   
           TfrmODMeds.cboXScheduleClick┤   
              TfrmODMeds.chkXPRNClick┤ │   
          TfrmODMeds.pnlXScheduleExit┘ │   
        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.cboXScheduleClick...┤   │   
        TfrmODMeds.pnlXScheduleExit┤   │   
      TfrmODMeds.txtXDurationChange┤   │   
      TfrmODMeds.popDurationClick┘ │   │   
        TfrmODMeds.pnlXDurationExit┤   │   
             TfrmODMeds.chkPRNClick┤   │   
         TfrmODMeds.cboScheduleExit┤   │   
          TfrmODMeds.cboDosageKeyUp┤   │   
         TfrmODMeds.cboXDosageKeyUp┘   │   
                 TfrmODMeds.chkPRNClick┤   
          TfrmODMeds.cboXSequenceChange┘   

Called-By

Name Declaration Comments
TfrmODMedIV.loadExpectFirstDose procedure loadExpectFirstDose; -
TfrmODMedNVA.UpdateStartExpires procedure UpdateStartExpires(const CurSchedule: string); -
TfrmODMeds.UpdateStartExpires procedure UpdateStartExpires(const CurSchedule: string); -


Source

182   procedure LoadAdminInfo(const Schedule: string; OrdItem: Integer; var StartText: string;
183     var AdminTime: TFMDateTime; var Duration: string; Admin: string = '');
184   var
185     x: string;
186   begin
187     x := sCallV('ORWDPS2 ADMIN', [Patient.DFN, Schedule, OrdItem, Encounter.Location, Admin]);
188     StartText := Piece(x, U, 1);
189     AdminTime := MakeFMDateTime(Piece(x, U, 4));
190     Duration  := Piece(x, U, 3);
191   end;