Procedure

TfrmODMedIV.txtNSSClick

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedIV

Declaration

procedure txtNSSClick(Sender: TObject);

Calls Hierarchy


TfrmODMedIV.txtNSSClick
 ├TfrmODMedIV.cboScheduleClick
 │ └TfrmODMedIV.CreateOtherSchedule
 │   └ShowOtherSchedule
 │     ├TfrmBase508Form.Create
 │     │ ├TfrmBase508Form.UpdateAccessibilityActions
 │     │ ├UnfocusableControlEnter
 │     │ └AdjustControls
 │     │   ├TfrmBase508Form.ModifyUnfocusableControl
 │     │   └..(rec)..
 │     └SetFormPosition
 │       └TSizeHolder.GetSize
 └TfrmODMedIV.cboScheduleChange
   ├TfrmODMedIV.CreateOtherSchedule...
   ├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.txtNSSClick
TfrmODMedIV.cboScheduleKeyDown┘ 

Calls

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

Called-By

Name Declaration Comments
TfrmODMedIV.cboScheduleKeyDown procedure cboScheduleKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

2458  procedure TfrmODMedIV.txtNSSClick(Sender: TObject);
2459  var
2460    i: integer;
2461    msg : String;
2462  begin
2463    inherited;
2464    msg := 'You can also select ' + '"' + 'Other' + '"' + ' from the schedule list'
2465      + ' to create a day-of-week schedule.'
2466      + #13#10 + 'Click OK to launch schedule builder';
2467    if ShowMsg(msg, smiInfo, smbOKCancel) = smrOK then
2468    begin
2469        //cboSchedule.Items.Add(U + 'OTHER');
2470        for I := 0 to cboSchedule.Items.Count - 1 do if cboSchedule.Items.Strings[i] = 'OTHER' then break;
2471        cboSchedule.ItemIndex := i;
2472        //cboSchedule.SelectByID(U+'OTHER');
2473        cboScheduleClick(Self);
2474        cboScheduleChange(self.cboSchedule);
2475    end;
2476  end;