Procedure

TfrmODMeds.cboXScheduleChange

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure cboXScheduleChange(Sender: TObject);

Calls Hierarchy


TfrmODMeds.cboXScheduleChange
 ├TfrmODMeds.CreateOtherScheduelComplex
 │ └ShowOtherSchedule
 │   ├TfrmBase508Form.Create
 │   │ ├TfrmBase508Form.UpdateAccessibilityActions
 │   │ ├UnfocusableControlEnter
 │   │ └AdjustControls
 │   │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   │   └..(rec)..
 │   └SetFormPosition
 │     └TSizeHolder.GetSize
 ├TfrmODMeds.UpdateStartExpires
 │ ├TfrmODMeds.ValFor
 │ ├TfrmODMeds.lblAdminSchSetText
 │ ├TfrmODMeds.lblAdminSchGetText
 │ ├LoadAdminInfo
 │ ├FMToday
 │ │ └FMNow
 │ └TfrmODMeds.DisplayDoseNow
 └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...
     ├IsClozapineOrder
     ├TfrmODMeds.UpdateDefaultSupply
     │ ├TResponses.IValueFor
     │ ├IsClozapineOrder
     │ ├DefaultDays
     │ └DaysToQty
     ├TfrmODMeds.UpdateSupplyQuantity
     │ ├TfrmODMeds.DurationToDays
     │ │ └TfrmODMeds.ValFor
     │ ├DaysToQty
     │ └QtyToDays
     └TfrmODMeds.UpdateRefills
       └CalcMaxRefills

Called-By Hierarchy


TfrmODMeds.cboXScheduleChange
     TfrmODMeds.txtNSSClick┘ 

Calls

Name Declaration Comments
TfrmODMeds.CreateOtherScheduelComplex function CreateOtherScheduelComplex: string; -
TfrmODMeds.UpdateRelated procedure UpdateRelated(DelayUpdate: Boolean = TRUE); -
TfrmODMeds.UpdateStartExpires procedure UpdateStartExpires(const CurSchedule: string); -

Called-By

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


Source

3813  procedure TfrmODMeds.cboXScheduleChange(Sender: TObject);
3814  var
3815    othSch, x: string;
3816    idx : integer;
3817  begin
3818    inherited;
3819    //Commented out to fix CQ: 7280
3820  //  if cboXSchedule.Text = '' then cboXSchedule.ItemIndex := -1;
3821    if not Changing {and (cboXSchedule.ItemIndex < 0)} then
3822    begin
3823      if (FInptDlg) and (cboXSchedule.Text = 'OTHER') then
3824      begin
3825        cboXSchedule.SelectByID('OTHER');
3826        othSch := CreateOtherScheduelComplex;
3827        if length(trim(othSch)) > 1 then
3828        begin
3829          othSch := othSch + U + U + NSSScheduleType + U + NSSAdminTime;
3830          cboXSchedule.Items.Add(othSch);
3831          idx := cboXSchedule.Items.IndexOf(Piece(OthSch, U, 1));
3832          cboXSchedule.ItemIndex := idx;
3833        end;
3834      end;
3835    if pnlXSchedule.Tag = -1 then pnlXSchedule.Tag := self.grdDoses.Row;
3836      //if pnlXSchedule.Tag = -1 then pnlXSchedule.Tag := self.grdDoses.Row;
3837      with cboXSchedule do if ItemIndex > -1
3838        then x := Text + TAB + Items[ItemIndex]
3839        else x := Text;
3840      grdDoses.Cells[COL_SCHEDULE, pnlXSchedule.Tag] := x;
3841      self.cboSchedule.Text := x;
3842       //AGP Start Expired uncommented out the line
3843      if FInptDlg then UpdateStartExpires(Piece(x, tab, 1));
3844      UpdateRelated;
3845    end;
3846  end;