Procedure

TfrmODRad.ControlChange

Module

fODRad

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODRad

Declaration

procedure ControlChange(Sender: TObject);

Calls Hierarchy


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.ControlChange
               TfrmODRad.SetupDialog┤ 
                TfrmODRad.InitDialog┤ 
             TfrmODRad.SetupDialog┤ │ 
         TfrmODRad.ImageTypeChange┘ │ 
         TfrmODRad.cboImTypeExit┤   │ 
TfrmODRad.cboImTypeDropDownClose┘   │ 
     TfrmODRad.cboAvailModMouseClick┤ 
      TfrmODRad.cboAvailModKeyDown┘ │ 
            TfrmODRad.cmdRemoveClick┤ 
        TfrmODRad.cboProcedureSelect┤ 
        TfrmODRad.cboProcedureExit┘ │ 
         TfrmODRad.cboCategoryChange┤ 
            TfrmODRad.memHistoryExit┤ 
            TfrmODRad.calPreOpChange┘ 

Calls

Name Declaration Comments
TResponses.Clear procedure Clear; overload; -
TEncounter.GetLocationName function GetLocationName: string; -
TResponses.GetOrderText function GetOrderText: string; -
TResponses.Update procedure Update(const APromptID: string; AnInstance: Integer; const AnIValue, AnEValue: string); -

Called-By

Name Declaration Comments
TfrmODRad.calPreOpChange procedure calPreOpChange(Sender: TObject); -
TfrmODRad.cboAvailModMouseClick procedure cboAvailModMouseClick(Sender: TObject); -
TfrmODRad.cboCategoryChange procedure cboCategoryChange(Sender: TObject); -
TfrmODRad.cboProcedureSelect procedure cboProcedureSelect(Sender: TObject); -
TfrmODRad.cmdRemoveClick procedure cmdRemoveClick(Sender: TObject); -
TfrmODRad.InitDialog procedure InitDialog; override; -
TfrmODRad.memHistoryExit procedure memHistoryExit(Sender: TObject); -
TfrmODRad.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

341   procedure TfrmODRad.ControlChange(Sender: TObject);
342   var
343     i: integer ;
344   begin
345     inherited;
346     if Changing then Exit;
347     Responses.Clear;
348     with cboProcedure do
349       if ItemIEN > 0 then Responses.Update('ORDERABLE', 1, ItemID, Text)
350       else Responses.Update('ORDERABLE', 1, ''    , '');
351     //with calRequestDate do if FMDateTime > 0 then     RPC call on EVERY character typed in REASON box!!!!  (v15)
352     with calRequestDate do if Length(Text) > 0 then
353       Responses.Update('START', 1, Text, Text)
354       else Responses.Update('START', 1, '', '') ;
355     with cboUrgency do if Length(ItemID)   > 0 then Responses.Update('URGENCY',   1, ItemID, Text);
356     with cboTransport do if Length(ItemID) > 0 then Responses.Update('MODE',      1, ItemID, Text);
357     with cboCategory do if Length(ItemID)  > 0 then Responses.Update('CLASS',     1, ItemID, Text);
358     with cboSubmit do if Length(ItemID)    > 0 then Responses.Update('IMLOC',     1, ItemID, Text);
359     with radPregnant do if Checked                then Responses.Update('PREGNANT',  1, 'Y'   , 'Yes')
360                    else if not Enabled         then Responses.Update('PREGNANT',  1, ''    , '');
361     with radPregnantNo do if Checked           then Responses.Update('PREGNANT',  1, 'N'   , 'No');
362     with radPregnantUnknown do if Checked      then Responses.Update('PREGNANT',  1, 'U'   , 'Unknown');
363     with chkIsolation do if Checked            then Responses.Update('YN',        1, '1'   , 'Yes')
364                                                else Responses.Update('YN',        1, '0'   , 'No');
365     with calPreOp do if Length(Text) > 0       then Responses.Update('PREOP',     1, FPreOpDate, Text);
366     with txtReason  do if GetTextLen        > 0 then Responses.Update('REASON',    1, Text, Text);
367     with memHistory do if GetTextLen       > 0 then Responses.Update('COMMENT',   1, TX_WPTYPE, Text);
368     with lstSelectMod do for i := 0 to Items.Count - 1 do
369                                                     Responses.Update('MODIFIER',i+1, Piece(Items[i],U,1), Piece(Items[i],U,2));
370     Responses.Update('PROVIDER',1, Piece(Radiologist,U,1),Piece(Radiologist,U,2)) ;
371     Responses.Update('CONTRACT',1, Piece(Contract,U,1),Piece(Contract,U,2)) ;
372     Responses.Update('RESEARCH',1, Research, Research) ;
373     if ALocation > 0 then  Responses.Update('LOCATION', 1, IntToStr(ALocation), AName)
374     else with Encounter do Responses.Update('LOCATION', 1, IntToStr(Location) , LocationName);
375     memOrder.Text := Responses.OrderText;
376   end;