Procedure

TfrmODMedNVA.tabDoseChange

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Comments

Medication edit ---------------------------------------------------------------------------

Visibility

Public/Published

Owner

TfrmODMedNVA

Declaration

procedure tabDoseChange(Sender: TObject);

Calls Hierarchy


TfrmODMedNVA.tabDoseChange
 ├TfrmODMedNVA.ShowControlsSimple
 └TfrmODMedNVA.ControlChange
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TfrmODMedNVA.FindCommonDrug
   │ ├TfrmODMedNVA.FindDoseFields
   │ ├SaveDrug
   │ └KillDrug
   ├TfrmODMedNVA.ConstructedDoseFields
   ├TfrmODMedNVA.ValueOf
   │ ├GetSchedule
   │ └GetScheduleEX
   ├TfrmODMedNVA.OutpatientSig
   │ ├TfrmODMedNVA.ValueOf...
   │ └TfrmODMedNVA.CheckDecimal
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODMedNVA.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODMedNVA.ShowControlsSimple procedure ShowControlsSimple; -


Source

1289  procedure TfrmODMedNVA.tabDoseChange(Sender: TObject);
1290  begin
1291    inherited;
1292    case tabDose.TabIndex of
1293    TI_DOSE:    begin
1294                  // clean up responses?
1295                  ShowControlsSimple;
1296                  ControlChange(Self);
1297                end;
1298    TI_RATE:    begin
1299                  // for future use...
1300                end;
1301     end; {case}
1302  end;