Procedure

TfrmODMedNVA.chkPRNClick

Module

fODMedNVA

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODMedNVA

Declaration

procedure chkPRNClick(Sender: TObject);

Calls Hierarchy


TfrmODMedNVA.chkPRNClick
 ├TfrmODMedNVA.UpdateStartExpires
 │ ├LoadAdminInfo
 │ └FMToday
 │   └FMNow
 └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.UpdateStartExpires procedure UpdateStartExpires(const CurSchedule: string); -


Source

2095  procedure TfrmODMedNVA.chkPRNClick(Sender: TObject);
2096  var
2097    tempSch: string;
2098    PRNPos: integer;
2099  begin
2100    inherited;
2101    {if chkPRN.Checked then lblAdminTime.Caption := ''
2102    else
2103    begin
2104      lblAdminTime.Caption := FAdminTimeLbl;
2105    end;
2106    ControlChange(Self);
2107    }
2108    if chkPRN.Checked then
2109    begin
2110       lblAdminTime.Caption := '';
2111       PrnPos := Pos('PRN',cboSchedule.Text);
2112       if (PrnPos < 1) then
2113          UpdateStartExpires(cboSchedule.Text + ' PRN');
2114    end
2115    else
2116    begin
2117      if Length(Trim(cboSchedule.Text))>0 then
2118      begin
2119        tempSch := ';'+Trim(cboSchedule.Text);
2120        UpdateStartExpires(tempSch);
2121      end;
2122      lblAdminTime.Caption := FAdminTimeLbl;
2123      
2124    end;
2125    ControlChange(Self);
2126  end;