Procedure

TfrmODMedIV.cboScheduleChange

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

procedure cboScheduleChange(Sender: TObject);

Calls Hierarchy


TfrmODMedIV.cboScheduleChange
 ├TfrmODMedIV.CreateOtherSchedule
 │ └ShowOtherSchedule
 │   ├TfrmBase508Form.Create
 │   │ ├TfrmBase508Form.UpdateAccessibilityActions
 │   │ ├UnfocusableControlEnter
 │   │ └AdjustControls
 │   │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   │   └..(rec)..
 │   └SetFormPosition
 │     └TSizeHolder.GetSize
 ├TfrmODMedIV.UpdateDuration
 └TfrmODMedIV.ControlChange
   ├TfrmODMedIV.loadExpectFirstDose
   │ ├TfrmODMedIV.DisplayDoseNow
   │ ├LoadAdminInfo
   │ └FMToday
   │   └FMNow
   ├TResponses.FindResponseByName
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├IsNumericRate
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Called-By Hierarchy


     TfrmODMedIV.cboScheduleChange
         TfrmODMedIV.txtNSSClick┘ 
TfrmODMedIV.cboScheduleKeyDown┘   

Calls

Name Declaration Comments
TfrmODMedIV.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODMedIV.CreateOtherSchedule function CreateOtherSchedule: string; -
TfrmODMedIV.UpdateDuration procedure UpdateDuration(SchType: string); -

Called-By

Name Declaration Comments
TfrmODMedIV.txtNSSClick procedure txtNSSClick(Sender: TObject); -


Source

1797  procedure TfrmODMedIV.cboScheduleChange(Sender: TObject);
1798  var
1799  othSch: string;
1800  idx: integer;
1801  begin
1802    inherited;
1803     if self.txtXDuration.Enabled = true then
1804       begin
1805         self.txtXDuration.Text := '';
1806         self.cboDuration.ItemIndex := -1;
1807       end;
1808     if self.cboSchedule.ItemIndex > -1 then
1809        begin
1810          if cboSchedule.ItemIndex = cboSchedule.Items.IndexOf('Other') then
1811            begin
1812              othSch := CreateOtherSchedule;
1813              if length(trim(othSch)) > 1 then
1814                begin
1815                  cboSchedule.Items.Add(othSch + U + U + NSSScheduleType + U + NSSAdminTime);
1816                  idx := cboSchedule.Items.IndexOf(Piece(OthSch, U, 1));
1817                  cboSchedule.ItemIndex := idx;
1818              end
1819              else cboSchedule.itemindex := -1;
1820          end;
1821          if cboSchedule.itemIndex > -1  then  UpdateDuration(Piece(cboSchedule.Items.Strings[cboSchedule.itemindex],U,3));
1822        end;
1823    ControlChange(sender);
1824  end;