Procedure

TfrmODMeds.cboXSequenceChange

Module

fODMeds

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMeds

Declaration

procedure cboXSequenceChange(Sender: TObject);

Calls Hierarchy


TfrmODMeds.cboXSequenceChange
 ├TfrmODMeds.ValFor
 ├TfrmODMeds.UpdateStartExpires
 │ ├TfrmODMeds.ValFor
 │ ├TfrmODMeds.lblAdminSchSetText
 │ ├TfrmODMeds.lblAdminSchGetText
 │ ├LoadAdminInfo
 │ ├FMToday
 │ │ └FMNow
 │ └TfrmODMeds.DisplayDoseNow
 └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...

Calls

Name Declaration Comments
TfrmODMeds.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODMeds.UpdateStartExpires procedure UpdateStartExpires(const CurSchedule: string); -
TfrmODMeds.ValFor function ValFor(FieldID, ARow: Integer): string; -


Source

5601  procedure TfrmODMeds.cboXSequenceChange(Sender: TObject);
5602  var
5603  x: string;
5604  begin
5605    inherited;
5606   x := cboXSequence.Text;
5607   if (x = 'then') and ((ValFor(COL_DURATION, ARow1) = '') or (ValFor(COL_DURATION, ARow1) = '0')) then
5608       begin
5609         InfoBox('A duration is required when using "Then" as a conjunction' + CRLF + CRLF+
5610             'The patient will be instructed to take these doses consecutively, not concurrently.','Duration Warning',MB_OK);
5611         x := '';
5612       end;
5613    cboXSequence.text := x;
5614    cboXSequence.ItemIndex := cboXSequence.Items.IndexOf(x);
5615    grdDoses.Cells[COL_SEQUENCE, cboXSequence.Tag] := Uppercase(x);
5616    //AGP Start Expire add line
5617    UpdateStartExpires(ValFor(COL_SCHEDULE,self.grdDoses.Row));
5618    ControlChange(Sender);
5619  end;