Procedure

TfrmODMeds.cboXScheduleClick

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure cboXScheduleClick(Sender: TObject);

Calls Hierarchy


TfrmODMeds.cboXScheduleClick
 ├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.cboXScheduleClick
    TfrmODMeds.chkXPRNClick┤ 
TfrmODMeds.pnlXScheduleExit┘ 

Calls

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

Called-By

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


Source

3848  procedure TfrmODMeds.cboXScheduleClick(Sender: TObject);
3849  var
3850    PRN,x: string;
3851  begin
3852    inherited;
3853    //agp change CQ 11015
3854    if (chkXPRN.Checked) then PRN := ' PRN' else PRN := '';
3855    with cboXSchedule do
3856      begin
3857        if RightStr(Text,3) = 'PRN' then PRN := '';
3858        if ItemIndex > -1 then x := Text + PRN + TAB + Items[ItemIndex]
3859        else x := Text + PRN;
3860      end;
3861   (* with cboXSchedule do if ItemIndex > -1
3862      then x := Text + TAB + Items[ItemIndex]
3863      else x := Text;  *)
3864    grdDoses.Cells[COL_SCHEDULE, pnlXSchedule.Tag] := x;
3865    //AGP Start Expired uncommented out the line
3866    UpdateStartExpires(Piece(x, tab, 1));
3867    UpdateRelated;
3868  end;