Procedure

TfrmODMeds.cboScheduleClick

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Comments

CboSchedule -----------------------------------

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure cboScheduleClick(Sender: TObject);

Calls Hierarchy


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

Called-By Hierarchy


  TfrmODMeds.cboScheduleClick
  TfrmODMeds.cmdAcceptClick┤ 
     TfrmODMeds.chkPRNClick┤ 
     TfrmODMeds.txtNSSClick┤ 
TfrmODMeds.cboScheduleEnter┤ 
TfrmODMeds.UMShowNSSBuilder┘ 

Calls

Name Declaration Comments
TfrmODMeds.CreateOtherScheduel function CreateOtherScheduel: string; -
TfrmODMeds.UpdateRelated procedure UpdateRelated(DelayUpdate: Boolean = TRUE); -

Called-By

Name Declaration Comments
TfrmODMeds.cboScheduleEnter procedure cboScheduleEnter(Sender: TObject); -
TfrmODMeds.chkPRNClick procedure chkPRNClick(Sender: TObject); -
TfrmODMeds.cmdAcceptClick procedure cmdAcceptClick(Sender: TObject); -
TfrmODMeds.txtNSSClick procedure txtNSSClick(Sender: TObject); -
TfrmODMeds.UMShowNSSBuilder procedure UMShowNSSBuilder(var Message: TMessage); message UM_NSSOTHER; -


Source

2593  procedure TfrmODMeds.cboScheduleClick(Sender: TObject);
2594  var
2595    othSch: string;
2596    idx : integer;
2597  begin
2598    inherited;
2599    if (FInptDlg) and (cboSchedule.Text = 'OTHER') then
2600    begin
2601      othSch := CreateOtherScheduel;
2602      if length(trim(othSch)) > 1 then
2603      begin
2604        othSch := othSch + U + U + NSSScheduleType + U + NSSAdminTime;
2605        cboSchedule.Items.Add(othSch);
2606        idx := cboSchedule.Items.IndexOf(Piece(OthSch, U, 1));
2607        cboSchedule.ItemIndex := idx;
2608      end;
2609    end
2610    else
2611      begin
2612        NSSAdminTime := '';
2613        FNSSScheduleType := '';
2614      end;
2615    UpdateRelated(False);
2616  end;