Procedure

TfrmODRad.cboProcedureSelect

Module

fODRad

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODRad

Declaration

procedure cboProcedureSelect(Sender: TObject);

Calls Hierarchy


TfrmODRad.cboProcedureSelect
 ├TResponses.Clear
 ├ClearControl
 ├TResponses.SetQuickOrder
 │ ├TResponses.Clear
 │ └LoadResponses
 │   └ExtractToResponses
 │     └ExpandOrderObjects
 │       ├TdmodShared.BoilerplateOK
 │       │ ├ErrCount
 │       │ ├AddErr
 │       │ └TdmodShared.LoadTIUObjects
 │       │   └GetObjectList
 │       └GetTemplateText
 │         └TEncounter.GetVisitStr
 │           └TEncounter.GetVisitCategory
 ├TResponses.SetControl
 │ ├TResponses.FindResponseByName
 │ └AssignBPText
 │   ├DisplayGroupToLinkType
 │   │ └DisplayGroupByName
 │   ├TResponses.EValueFor
 │   ├GetServiceIEN
 │   ├TResponses.IValueFor
 │   ├GetProcedureIEN
 │   ├ExpandOrderObjects...
 │   ├SetTemplateDialogCanceled
 │   ├CheckBoilerplate4Fields
 │   ├ExecuteTemplateOrBoilerPlate
 │   └WasTemplateDialogCanceled
 ├TfrmODRad.SetModifierList
 │ └TResponses.FindResponseByName
 ├TResponses.FindResponseByName
 ├StrToFMDateTime
 ├TfrmODBase.OrderMessage
 │ └TfrmODBase.ShowOrderMessage
 ├ImagingMessage
 └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.cboProcedureSelect
TfrmODRad.cboProcedureExit┘ 

Calls

Name Declaration Comments
TResponses.Clear procedure Clear; overload; -
ClearControl procedure ClearControl(AControl: TControl); -
TfrmODRad.ControlChange procedure ControlChange(Sender: TObject); -
TResponses.FindResponseByName function FindResponseByName(const APromptID: string; AnInstance: Integer): TResponse; -
ImagingMessage function ImagingMessage(AnIEN: Integer): string; -
TfrmODBase.OrderMessage procedure OrderMessage(const AMessage: string); -
TResponses.SetControl procedure SetControl(AControl: TControl; const APromptID: string; AnInstance: Integer); -
TfrmODRad.SetModifierList procedure SetModifierList; -
TResponses.SetQuickOrder procedure SetQuickOrder(AnIEN: Integer); -
StrToFMDateTime function StrToFMDateTime(const AString: string): TFMDateTime; -

Called-By

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


Source

543   procedure TfrmODRad.cboProcedureSelect(Sender: TObject);
544   var
545     tmpResp: TResponse;
546   begin
547     inherited;
548     with cboProcedure do
549      begin
550       if ItemID <> FLastRadID then
551        begin
552          FLastRadID := ItemID;
553          if FPredefineOrder then
554            FPredefineOrder := False;
555        end else Exit;
556       Changing := True;
557       if Sender <> Self then
558         Responses.Clear;       // Sender=Self when called from SetupDialog
559       ClearControl(lstSelectMod);
560       ClearControl(lstLastExam);
561       //ClearControl(memHistory);    {WPB-1298-30758}
562       Changing := False;
563       if CharAt(ItemID, 1) = 'Q' then
564        with Responses do
565          begin
566            QuickOrder := ExtractInteger(ItemID);
567            //SetControl(cboProcedure, 'ORDERABLE', 1);   //v22.9 - RV
568            //SetModifierList;                            //v22.9 - RV
569            FLastRadID := ItemID;
570          end;
571      end;
572      with Responses do if QuickOrder > 0 then
573      begin
574       Changing := True;
575       SetControl(cboProcedure,       'ORDERABLE', 1);
576       SetModifierList;                                   //v22.9 - RV
577       SetControl(lstSelectMod,       'MODIFIER', 1);
578       SetControl(cboUrgency,         'URGENCY', 1);
579       SetControl(cboSubmit,          'IMLOC', 1);
580       SetControl(cboTransport,       'MODE', 1);
581       SetControl(cboCategory,        'CLASS', 1);
582       SetControl(txtReason,           'REASON', 1);
583       SetControl(memHistory,         'COMMENT', 1);
584       SetControl(chkIsolation,       'YN', 1);
585       SetControl(radPregnant,        'PREGNANT', 1);
586       SetControl(calPreOp   ,        'PREOP', 1);
587       tmpResp := FindResponseByName('START',1);
588       if tmpResp <> nil then
589         begin
590           if ContainsAlpha(tmpResp.IValue) then
591             calRequestDate.Text := tmpResp.IValue
592           else
593             calRequestDate.FMDateTime := StrToFMDateTime(tmpResp.IValue);
594         end;
595       Changing := False;
596      end;
597     OrderMessage(ImagingMessage(cboProcedure.ItemIEN)) ;
598     ControlChange(Self);
599   end;