Procedure

TfrmEditProc.cboProcSelect

Module

fEditProc

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmEditProc

Declaration

procedure cboProcSelect(Sender: TObject);

Calls Hierarchy


TfrmEditProc.cboProcSelect
 ├GetProcedureServices
 ├TfrmEditProc.InitDialog
 │ ├ODForProcedures
 │ ├TfrmEditProc.cboProcSelect...
 │ ├TfrmEditProc.SetProvDiagPromptingMode
 │ │ └GetProvDxMode
 │ ├TPatient.GetCombatVet
 │ │ └TCombatVet.Create
 │ │   └TCombatVet.UpdateData
 │ │     └TCombatVet.ClearProperties
 │ └TfrmEditProc.SetUpCombatVet
 │   └TPatient.GetCombatVet...
 ├TfrmEditProc.OrderMessage
 ├ConsultMessage
 └TfrmEditProc.ControlChange

Called-By Hierarchy


                TfrmEditProc.cboProcSelect
                 TfrmEditProc.InitDialog┘ 
                 EditResubmitProcedure┤   
TfrmConsults.mnuActEditResubmitClick┘ │   
 TfrmConsults.cmdEditResubmitClick┘   │   
         TfrmEditProc.cboProcSelect...┘   

Calls

Name Declaration Comments
ConsultMessage function ConsultMessage(AnIEN: Integer): string; -
TfrmEditProc.ControlChange procedure ControlChange(Sender: TObject); -
GetProcedureServices function GetProcedureServices(ProcIEN: integer): TStrings; -
TfrmEditProc.InitDialog procedure InitDialog; -
TfrmEditProc.OrderMessage procedure OrderMessage(const AMessage: string); -

Called-By

Name Declaration Comments
TfrmEditProc.InitDialog procedure InitDialog; -


Source

495   procedure TfrmEditProc.cboProcSelect(Sender: TObject);
496   begin
497     inherited;
498     with cboProc do
499      begin
500       if ItemIndex = -1 then Exit;
501       if ItemID <> FLastProcID then FLastProcID := ItemID else Exit;
502       with cboService do
503         begin
504           Clear;
505           FastAssign(GetProcedureServices(cboProc.ItemIEN), cboService.Items);
506           if Items.Count > 0 then
507             begin
508               ItemIndex := 0 ;
509               NewRec.ToService := ItemIEN;
510               NewRec.ToServiceName := Text;
511             end
512           else
513             begin
514               InfoBox('There are no services defined for this procedure.',
515                 'Information', MB_OK or MB_ICONINFORMATION);
516               //cboProc.ItemIndex := -1;
517               InitDialog;
518               Exit ;
519             end;
520         end;
521      end;
522     OrderMessage(ConsultMessage(cboProc.ItemIEN));
523     ControlChange(Self) ;
524   end;