Procedure

TfrmODLab.cboCollSampChange

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLab

Declaration

procedure cboCollSampChange(Sender: TObject);

Calls Hierarchy


TfrmODLab.cboCollSampChange
 ├TLabTest.ChangeCollSamp
 │ └TLabTest.SetCollSampDflts
 │   ├TResponses.FindResponseByName
 │   ├TLabTest.ChangeSpecimen
 │   └TLabTest.IndexOfCollSamp
 ├TLabTest.LoadSpecimen
 │ ├TLabTest.ObtainSpecimen
 │ │ └TLabTest.IndexOfCollSamp
 │ ├LoadSpecimens
 │ ├TResponses.FindResponseByName
 │ ├TLabTest.IndexOfCollSamp
 │ ├GetOneSpecimen
 │ └TLabTest.ChangeSpecimen
 ├TfrmODLab.LoadCollType
 │ ├TCtrlInits.SetControl
 │ │ ├ClearControl
 │ │ └TCtrlInits.FindInitByName
 │ ├TLabTest.LabCanCollect
 │ │ └TLabTest.IndexOfCollSamp
 │ ├TfrmODBase.OrderForInpatient
 │ │ ├OrderEventTypeOnCreate
 │ │ └IsPassEvt1
 │ └TfrmODLab.SetupCollTimes
 │   ├GetLastCollectionTime
 │   ├TfrmODLab.ValidCollTime
 │   │ └StrToFMDateTime
 │   ├StrToFMDateTime
 │   ├TCtrlInits.SetControl...
 │   ├MakeRelativeDateTime
 │   │ └FMToday
 │   │   └FMNow
 │   └GetDefaultImmCollTime
 ├TLabTest.LoadUrgency
 │ └TLabTest.ObtainUrgency
 ├TLabTest.ObtainSpecimen...
 ├TfrmODLab.setup508Label
 ├TLabTest.ObtainComment
 ├TfrmODLab.LoadRequiredComment
 │ └TfrmODLab.DisableCommentPanels
 ├TfrmODLab.DisableCommentPanels
 ├TLabTest.IndexOfCollSamp
 ├TfrmODBase.OrderMessage
 │ └TfrmODBase.ShowOrderMessage
 └TfrmODLab.ControlChange
   ├TResponses.FindResponseByName
   ├TResponses.Clear
   ├TResponses.Update
   │ ├TResponses.FindResponseByName
   │ └TResponses.IENForPrompt
   ├TLabTest.NameOfCollSamp
   │ └TLabTest.IndexOfCollSamp
   ├TLabTest.NameOfSpecimen
   │ └TLabTest.IndexOfCollSamp
   ├TLabTest.NameOfUrgency
   ├TfrmODLab.ValidCollTime...
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Called-By Hierarchy


   TfrmODLab.cboCollSampChange
       TfrmODLab.SetupDialog┤ 
TfrmODLab.cboAvailTestSelect┘ 
     TfrmODLab.SetupDialog┤   
TfrmODLab.cboAvailTestExit┘   

Calls

Name Declaration Comments
TLabTest.ChangeCollSamp procedure ChangeCollSamp(CollSampIEN: Integer); -
TfrmODLab.ControlChange procedure ControlChange(Sender: TObject); -
TfrmODLab.DisableCommentPanels procedure DisableCommentPanels; -
TLabTest.IndexOfCollSamp function IndexOfCollSamp(CollSampIEN: Integer): Integer; -
TfrmODLab.LoadCollType procedure LoadCollType(AComboBox:TORComboBox); -
TfrmODLab.LoadRequiredComment procedure LoadRequiredComment(CmtType: integer); -
TLabTest.LoadSpecimen procedure LoadSpecimen(AComboBox: TORComboBox); -
TLabTest.LoadUrgency procedure LoadUrgency(CollType: string; AComboBox:TORComboBox); -
TLabTest.ObtainComment function ObtainComment: Boolean; -
TLabTest.ObtainSpecimen function ObtainSpecimen: Boolean; -
TfrmODBase.OrderMessage procedure OrderMessage(const AMessage: string); -
TfrmODLab.setup508Label procedure setup508Label(text: string; lbl: TVA508StaticText; ctrl: TControl; lbl2: string); -

Called-By

Name Declaration Comments
TfrmODLab.cboAvailTestSelect procedure cboAvailTestSelect(Sender: TObject); -
TfrmODLab.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

1395  procedure TfrmODLab.cboCollSampChange(Sender: TObject);
1396  var
1397    i: integer;
1398    x: string;
1399  begin
1400    if (ALabTest = nil) or (cboCollSamp.ItemIEN = 0) then exit;
1401    with ALabTest do
1402    begin
1403      ChangeCollSamp(cboCollSamp.ItemIEN);
1404      LoadSpecimen(cboSpecimen);
1405      LoadCollType(cbocollType);
1406      LoadUrgency(cboCollType.ItemID, cboUrgency);
1407      if ObtainSpecimen then
1408       begin
1409        lblSpecimen.Enabled:= True;
1410        cboSpecimen.Enabled:= True;
1411        setup508Label(cboSpecimen.Text, specimenlbl508, cboSpecimen, lblSpecimen.Caption);
1412       end else
1413       begin
1414        lblSpecimen.Enabled:= False;
1415        cboSpecimen.Enabled:= False;
1416        setup508Label(cboSpecimen.Text, specimenlbl508, cboSpecimen, lblSpecimen.Caption);
1417       end;
1418      if ObtainComment then
1419         LoadRequiredComment(FCmtTypes.IndexOf(CurReqComment))
1420      else
1421         DisableCommentPanels;
1422      if not Changing then with TCollSamp(CollSampList.Items[IndexOfCollSamp(CollSamp)]) do
1423        begin
1424            x := '' ;
1425            for i := 0 to WardComment.Count-1 do
1426              x := x + WardComment.strings[i]+#13#10 ;
1427            pnlMessage.TabOrder := cboCollSamp.TabOrder + 1;
1428            OrderMessage(x) ;
1429        end ;
1430    end;
1431    ControlChange(Self);
1432  end;