Procedure

TfrmODRad.ImageTypeChange

Module

fODRad

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODRad

Declaration

procedure ImageTypeChange;

Calls Hierarchy


TfrmODRad.ImageTypeChange
 ├TfrmODBase.SetDisplayGroup
 ├TCtrlInits.LoadDefaults
 │ └TCtrlInits.ExtractInits
 │   └TCtrlInit.Create
 ├ODForRad
 └TfrmODRad.InitDialog
   ├ReasonForStudyCarryOn
   ├GetEventDiv1
   ├TCtrlInits.SetControl
   │ ├ClearControl
   │ └TCtrlInits.FindInitByName
   ├TfrmODBase.OrderForInpatient
   │ ├OrderEventTypeOnCreate
   │ └IsPassEvt1
   ├TfrmODRad.setup508Label
   ├PatientOnIsolationProcedures
   └TfrmODRad.ControlChange
     ├TResponses.Clear
     ├TResponses.Update
     │ ├TResponses.FindResponseByName
     │ └TResponses.IENForPrompt
     ├TEncounter.GetLocationName
     │ └TEncounter.UpdateText
     │   └GetEncounterText
     └TResponses.GetOrderText
       ├TResponses.NextInstance
       ├TResponses.FindResponseByName
       ├TResponses.FormatResponse
       │ └TResponses.FindResponseByIEN
       └TResponses.AppendChildren
         ├TResponses.FindPromptByIEN
         ├TResponses.FindResponseByIEN
         └TResponses.FormatResponse...

Called-By Hierarchy


         TfrmODRad.ImageTypeChange
         TfrmODRad.cboImTypeExit┤ 
TfrmODRad.cboImTypeDropDownClose┘ 

Calls

Name Declaration Comments
TfrmODRad.InitDialog procedure InitDialog; override; -
TCtrlInits.LoadDefaults procedure LoadDefaults(Src: TStrings); -
ODForRad function ODForRad(const PatientDFN, AnEventDiv: string; ImagingType: integer): TStrings; -
TfrmODBase.SetDisplayGroup procedure SetDisplayGroup(Value: Integer); -

Called-By

Name Declaration Comments
TfrmODRad.cboImTypeDropDownClose procedure cboImTypeDropDownClose(Sender: TObject); -
TfrmODRad.cboImTypeExit procedure cboImTypeExit(Sender: TObject); -


Source

858   procedure TfrmODRad.ImageTypeChange;
859   begin
860     if not ImageTypeChanged then Exit;
861     ImageTypeChanged := false;
862     if FPredefineOrder then
863       FPredefineOrder := False;
864     if Changing or (cboImtype.ItemIndex = -1) then exit;
865     with cboImType do DisplayGroup := StrToIntDef(Piece(Items[ItemIndex], U, 4), 0) ;
866     if DisplayGroup = 0 then exit;
867     CtrlInits.LoadDefaults(ODForRad(Patient.DFN, FEvtDelayDiv, DisplayGroup));   // ODForRad returns TStrings with defaults
868     FPredefineOrder := False;
869     InitDialog;
870   end;