Procedure

TfrmODMeds.chkPRNClick

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure chkPRNClick(Sender: TObject);

Calls Hierarchy


TfrmODMeds.chkPRNClick
 ├TfrmODMeds.UpdateStartExpires
 │ ├TfrmODMeds.ValFor
 │ ├TfrmODMeds.lblAdminSchSetText
 │ ├TfrmODMeds.lblAdminSchGetText
 │ ├LoadAdminInfo
 │ ├FMToday
 │ │ └FMNow
 │ └TfrmODMeds.DisplayDoseNow
 ├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...
 │     ├IsClozapineOrder
 │     ├TfrmODMeds.UpdateDefaultSupply
 │     │ ├TResponses.IValueFor
 │     │ ├IsClozapineOrder
 │     │ ├DefaultDays
 │     │ └DaysToQty
 │     ├TfrmODMeds.UpdateSupplyQuantity
 │     │ ├TfrmODMeds.DurationToDays
 │     │ │ └TfrmODMeds.ValFor
 │     │ ├DaysToQty
 │     │ └QtyToDays
 │     └TfrmODMeds.UpdateRefills
 │       └CalcMaxRefills
 ├TfrmODMeds.UpdateRelated...
 └TfrmODMeds.ControlChange...

Calls

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


Source

5013  procedure TfrmODMeds.chkPRNClick(Sender: TObject);
5014  var
5015    tempSch: string;
5016    PRNPos: integer;
5017  begin
5018    inherited;
5019    //GE  CQ 7552
5020    if chkPRN.Checked then
5021    begin
5022       lblAdminTime.Caption := '';
5023       PrnPos := Pos('PRN',cboSchedule.Text);
5024       if (PrnPos < 1) and (FQOInitial = false) then
5025          UpdateStartExpires(cboSchedule.Text + ' PRN');
5026    end
5027    else
5028    begin
5029      if Length(Trim(cboSchedule.Text))>0 then
5030      begin
5031        tempSch := ';'+Trim(cboSchedule.Text);
5032        if FQOInitial = false then UpdateStartExpires(tempSch);
5033      end;
5034      //lblAdminTime.Caption := FAdminTimeLbl;
5035      if txtQuantity.visible then
5036        cboScheduleClick(Self);
5037    end;
5038    if FQOInitial = false then UpdateRelated(False);
5039    //updateRelated(False);
5040    ControlChange(Self);
5041  end;