Procedure

TLabTest.SetCollSampDflts

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TLabTest

Declaration

procedure SetCollSampDflts;

Calls Hierarchy


TLabTest.SetCollSampDflts
 ├TResponses.FindResponseByName
 ├TLabTest.ChangeSpecimen
 └TLabTest.IndexOfCollSamp

Called-By Hierarchy


            TLabTest.SetCollSampDflts
                    TLabTest.Create┤ 
     TfrmODLab.cboAvailTestSelect┘ │ 
          TfrmODLab.SetupDialog┤   │ 
     TfrmODLab.cboAvailTestExit┘   │ 
            TLabTest.ChangeCollSamp┘ 
      TfrmODLab.cboCollSampChange┘   
          TfrmODLab.SetupDialog┤     
TfrmODLab.cboAvailTestSelect...┘     

Calls

Name Declaration Comments
TLabTest.ChangeSpecimen procedure ChangeSpecimen(const SpecimenIEN: string); -
TResponses.FindResponseByName function FindResponseByName(const APromptID: string; AnInstance: Integer): TResponse; -
TLabTest.IndexOfCollSamp function IndexOfCollSamp(CollSampIEN: Integer): Integer; -

Called-By

Name Declaration Comments
TLabTest.ChangeCollSamp procedure ChangeCollSamp(CollSampIEN: Integer); -
TLabTest.Create constructor Create(const LabTestIEN: string; Responses: TResponses); -


Source

597   procedure TLabTest.SetCollSampDflts;
598   var
599     tmpResp: TResponse;
600   begin
601     Specimen := 0;
602     Comment.Clear;
603     CurReqComment := TestReqComment;
604     if CollSamp = 0 then Exit;
605     with QuickOrderResponses do tmpResp := FindResponseByName('SPECIMEN'  ,1);
606     if (LRFSPEC <> '') and (tmpResp = nil) then
607       ChangeSpecimen(LRFSPEC)
608     else with TCollSamp(CollSampList.Items[IndexOfCollSamp(CollSamp)]) do
609       begin
610         Specimen := SpecimenID;
611         if SampReqcomment <> '' then CurReqComment := SampReqComment;
612       end;
613   end;