Procedure

TfrmODBBank.cboUrgencyChange

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODBBank

Declaration

procedure cboUrgencyChange(Sender: TObject);

Calls Hierarchy


TfrmODBBank.cboUrgencyChange
 ├TResponses.Update
 │ ├TResponses.FindResponseByName
 │ └TResponses.IENForPrompt
 └TResponses.GetOrderText
   ├TResponses.NextInstance
   ├TResponses.FindResponseByName
   ├TResponses.FormatResponse
   │ └TResponses.FindResponseByIEN
   └TResponses.AppendChildren
     ├TResponses.FindPromptByIEN
     ├TResponses.FindResponseByIEN
     └TResponses.FormatResponse...

Called-By Hierarchy


 TfrmODBBank.cboUrgencyChange
    TfrmODBBank.SetupDialog┤ 
TfrmODBBank.SetOnQuickOrder┘ 
TfrmODBBank.cboQuickClick┘   

Calls

Name Declaration Comments
TResponses.GetOrderText function GetOrderText: string; -
TResponses.Update procedure Update(const APromptID: string; AnInstance: Integer; const AnIValue, AnEValue: string); -

Called-By

Name Declaration Comments
TfrmODBBank.SetOnQuickOrder procedure SetOnQuickOrder; -
TfrmODBBank.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

3980  procedure TfrmODBBank.cboUrgencyChange(Sender: TObject);
3981  begin
3982    inherited;
3983    if Length(cboUrgency.Text) > 0 then
3984      begin
3985        Responses.Update('URGENCY',1,cboUrgency.ItemID,cboUrgency.Text);
3986        uSelUrgency := cboUrgency.Text;
3987        if cboUrgency.Text = 'PRE-OP' then
3988          begin
3989            lblSurgery.Enabled := true;
3990            cboSurgery.Enabled := true;
3991            lblSurgery.Caption := 'Surgery*';
3992          end
3993        else
3994          begin
3995            if Length(cboSurgery.Text) > 0 then
3996              begin
3997                lblSurgery.Enabled := true;
3998                cboSurgery.Enabled := true;
3999                lblSurgery.Caption := 'Surgery*';
4000              end
4001              else
4002              begin
4003                lblSurgery.Enabled := false;
4004                cboSurgery.Enabled := false;
4005                lblSurgery.Caption := 'Surgery';
4006                cboSurgery.ItemIndex := -1;
4007                Responses.Update('MISC',1,cboSurgery.Text,cboSurgery.Text);
4008              end;
4009          end;
4010      end
4011    else
4012      cboUrgency.SelectByID(IntToStr(uDfltUrgency));
4013    memOrder.Text := Responses.OrderText;
4014  end;