Procedure

TfrmODMeds.txtNSSClick

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure txtNSSClick(Sender: TObject);

Calls Hierarchy


TfrmODMeds.txtNSSClick
 ├TfrmODMeds.cboScheduleClick
 │ ├TfrmODMeds.CreateOtherScheduel
 │ │ └ShowOtherSchedule
 │ │   ├TfrmBase508Form.Create
 │ │   │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │   │ ├UnfocusableControlEnter
 │ │   │ └AdjustControls
 │ │   │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   │   └..(rec)..
 │ │   └SetFormPosition
 │ │     └TSizeHolder.GetSize
 │ └TfrmODMeds.UpdateRelated
 │   └TfrmODMeds.timCheckChangesTimer
 │     ├TfrmODMeds.ControlChange
 │     │ ├TResponses.Clear
 │     │ ├TResponses.Update
 │     │ │ ├TResponses.FindResponseByName
 │     │ │ └TResponses.IENForPrompt
 │     │ ├TfrmODMeds.FindCommonDrug
 │     │ │ ├TfrmODMeds.FindDoseFields
 │     │ │ ├SaveDrug
 │     │ │ └KillDrug
 │     │ ├TfrmODMeds.ConstructedDoseFields
 │     │ ├TfrmODMeds.ValueOf
 │     │ │ ├GetSingleDoseSchedule
 │     │ │ ├GetSingleDoseScheduleEX
 │     │ │ ├TfrmODMeds.FieldsForDose
 │     │ │ │ └TfrmODMeds.ConstructedDoseFields
 │     │ │ ├TfrmODMeds.FieldsForDrug
 │     │ │ ├GetComplexDoseSchedule
 │     │ │ │ └TfrmODMeds.ValFor
 │     │ │ └GetComplexDoseScheduleEX
 │     │ │   └TfrmODMeds.ValFor
 │     │ ├TfrmODMeds.lblAdminSchGetText
 │     │ ├TfrmODMeds.ValFor
 │     │ ├TfrmODMeds.InpatientSig
 │     │ │ ├TfrmODMeds.ValueOf...
 │     │ │ └TfrmODMeds.CheckDecimal
 │     │ │   └TfrmODMeds.TextDosage
 │     │ ├TfrmODMeds.OutpatientSig
 │     │ │ ├TfrmODMeds.ValueOf...
 │     │ │ └TfrmODMeds.CheckDecimal...
 │     │ └TResponses.GetOrderText
 │     │   ├TResponses.NextInstance
 │     │   ├TResponses.FindResponseByName
 │     │   ├TResponses.FormatResponse
 │     │   │ └TResponses.FindResponseByIEN
 │     │   └TResponses.AppendChildren
 │     │     ├TResponses.FindPromptByIEN
 │     │     ├TResponses.FindResponseByIEN
 │     │     └TResponses.FormatResponse...
 │     ├TResponses.NextInstance
 │     ├TfrmODMeds.ValueOfResponse
 │     │ └TResponses.IValueFor
 │     ├TfrmODMeds.ValueOf...
 │     ├TfrmODMeds.UpdateStartExpires
 │     │ ├TfrmODMeds.ValFor
 │     │ ├TfrmODMeds.lblAdminSchSetText
 │     │ ├TfrmODMeds.lblAdminSchGetText
 │     │ ├LoadAdminInfo
 │     │ ├FMToday
 │     │ │ └FMNow
 │     │ └TfrmODMeds.DisplayDoseNow
 │     ├IsClozapineOrder
 │     ├TfrmODMeds.UpdateDefaultSupply
 │     │ ├TResponses.IValueFor
 │     │ ├IsClozapineOrder
 │     │ ├DefaultDays
 │     │ └DaysToQty
 │     ├TfrmODMeds.UpdateSupplyQuantity
 │     │ ├TfrmODMeds.DurationToDays
 │     │ │ └TfrmODMeds.ValFor
 │     │ ├DaysToQty
 │     │ └QtyToDays
 │     └TfrmODMeds.UpdateRefills
 │       └CalcMaxRefills
 └TfrmODMeds.cboXScheduleChange
   ├TfrmODMeds.CreateOtherScheduelComplex
   │ └ShowOtherSchedule...
   ├TfrmODMeds.UpdateStartExpires...
   └TfrmODMeds.UpdateRelated...

Calls

Name Declaration Comments
TfrmODMeds.cboScheduleClick procedure cboScheduleClick(Sender: TObject); -
TfrmODMeds.cboXScheduleChange procedure cboXScheduleChange(Sender: TObject); -


Source

5431  procedure TfrmODMeds.txtNSSClick(Sender: TObject);
5432  begin
5433    inherited;
5434    if MessageDlg('You can also select ' + '"' + 'Other' + '"' + ' from the schedule list'
5435      + ' to create a day-of-week schedule.'
5436      + #13#10 + 'Click OK to launch schedule builder',
5437      mtInformation, [mbOK, mbCancel],0) = mrOK then
5438    begin
5439      if (tabDose.TabIndex = TI_DOSE) then
5440      begin
5441        cboSchedule.SelectByID('OTHER');
5442        cboScheduleClick(Self);
5443      end;
5444      if  (tabDose.TabIndex = TI_COMPLEX) then
5445      begin
5446        cboXSchedule.SelectByID('OTHER');
5447        cboXScheduleChange(Self);
5448      end;
5449    end;
5450  end;