Procedure

TfrmODBBank.cboCollTypeChange

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODBBank

Declaration

procedure cboCollTypeChange(Sender: TObject);

Calls Hierarchy


TfrmODBBank.cboCollTypeChange
 ├TLabTest.LabCanCollect
 │ └TLabTest.IndexOfCollSamp
 ├TfrmODBBank.SetupCollTimes
 │ ├GetLastCollectionTime
 │ ├TfrmODBBank.ValidCollTime
 │ │ └StrToFMDateTime
 │ ├StrToFMDateTime
 │ ├RemoveCollTimeDefault
 │ ├TCtrlInits.SetControl
 │ │ ├ClearControl
 │ │ └TCtrlInits.FindInitByName
 │ ├MakeRelativeDateTime
 │ │ └FMToday
 │ │   └FMNow
 │ └GetDefaultImmCollTime
 ├TResponses.Update
 │ ├TResponses.FindResponseByName
 │ └TResponses.IENForPrompt
 └TfrmODBBank.calCollTimeChange
   ├TResponses.Update...
   ├TfrmODBBank.ValidCollTime...
   └TResponses.GetOrderText
     ├TResponses.NextInstance
     ├TResponses.FindResponseByName
     ├TResponses.FormatResponse
     │ └TResponses.FindResponseByIEN
     └TResponses.AppendChildren
       ├TResponses.FindPromptByIEN
       ├TResponses.FindResponseByIEN
       └TResponses.FormatResponse...

Calls

Name Declaration Comments
TfrmODBBank.calCollTimeChange procedure calCollTimeChange(Sender: TObject); -
TLabTest.LabCanCollect function LabCanCollect: Boolean; -
TfrmODBBank.SetupCollTimes procedure SetupCollTimes(CollType: string); -
TResponses.Update procedure Update(const APromptID: string; AnInstance: Integer; const AnIValue, AnEValue: string); -


Source

3335  procedure TfrmODBBank.cboCollTypeChange(Sender: TObject);
3336  begin
3337    if (ALabTest = nil) or Changing or (cboCollType.ItemID = '') then exit;
3338    if (cboCollType.ItemID = 'I') and (not ALabTest.LabCanCollect) then
3339      begin
3340        InfoBox(TX_NO_IMMED, TX_NO_IMMED_CAP, MB_OK or MB_ICONWARNING);
3341        cboCollType.ItemIndex := -1;
3342        Exit;
3343      end;
3344    if cboCollType.ItemID = 'I' then
3345    begin
3346      cboCollTime.ItemIndex := -1;
3347      cboCollTime.Text := 'NOW';
3348      calCollTime.Text := 'NOW';
3349    end;
3350    SetupCollTimes(cboCollType.ItemID);
3351    if Length(cboCollType.Text) > 0 then Responses.Update('COLLECT',1,cboCollType.ItemID,cboCollType.ItemID);
3352    calCollTimeChange(self);
3353  end;