Procedure

AllergyLookup

Module

fAllgyFind

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Declaration

procedure AllergyLookup(var Allergy: string; NKAEnabled: boolean);

Calls Hierarchy


AllergyLookup
 └TfrmBase508Form.Create
   ├TfrmBase508Form.UpdateAccessibilityActions
   ├UnfocusableControlEnter
   └AdjustControls
     ├TfrmBase508Form.ModifyUnfocusableControl
     └..(rec)..

Called-By Hierarchy


                                             AllergyLookup
                                        EnterEditAllergy┤ 
                              TfrmAllgyBox.cmdAddClick┤ │ 
                             TfrmAllgyBox.cmdEditClick┤ │ 
                                        ActivateAction┤ │ 
                           TfrmRemDlg.btnFinishClick┤ │ │ 
           TfrmConsults.mnuActNewConsultRequestClick┤ │ │ 
                   TfrmConsults.cmdNewConsultClick┘ │ │ │ 
                            TfrmOrders.lstWriteClick┤ │ │ 
               TfrmOrders.PlaceOrderForDefaultDialog┤ │ │ 
                  TfrmOrders.DisplayDefaultDlgList┤ │ │ │ 
                       TfrmOrders.ResetOrderPage┘ │ │ │ │ 
               TfrmOrders.btnDelayedOrderClick┘   │ │ │ │ 
                                 DisplayEvntDialog┤ │ │ │ 
                             SetDelayEventForMed┘ │ │ │ │ 
                      TfrmMeds.mnuActCopyClick┘   │ │ │ │ 
                                 DisplayEvntDialog┤ │ │ │ 
                                  SetViewForCopy┘ │ │ │ │ 
                    TfrmOrders.mnuActCopyClick┘   │ │ │ │ 
                                 DisplayEvntDialog┘ │ │ │ 
                                ExecuteChangeEvt┘   │ │ │ 
                 TfrmOrders.mnuActChgEvntClick┘     │ │ │ 
                             TfrmMeds.mnuActNewClick┤ │ │ 
                           TfrmOMNavA.ActivateDialog┤ │ │ 
                         TfrmOMNavA.grdMenuKeyDown┤ │ │ │ 
                         TfrmOMNavA.grdMenuMouseUp┘ │ │ │ 
                                TfrmOMSet.DoNextItem┘ │ │ 
                              TfrmOMSet.InsertList┤   │ │ 
                               ActivateOrderList┘ │   │ │ 
                     TfrmRemDlg.btnFinishClick┤   │   │ │ 
                             ActivateOrderHTML┤   │   │ │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┘ │   │   │ │ 
                              ActivateOrderSet┤   │   │ │ 
                   TfrmRemDlg.btnFinishClick┤ │   │   │ │ 
TfrmConsults.mnuActNewConsultRequestClick...┤ │   │   │ │ 
        TfrmConsults.mnuActNewProcedureClick┤ │   │   │ │ 
              TfrmConsults.cmdNewProcClick┘ │ │   │   │ │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │   │ │ 
                     TfrmMeds.mnuActNewClick┤ │   │   │ │ 
                TfrmOMNavA.ActivateDialog...┤ │   │   │ │ 
                     TfrmOMSet.DoNextItem...┘ │   │   │ │ 
                       TfrmOMNavA.DoSelectList┘   │   │ │ 
                     TfrmOMNavA.grdMenuKeyUp┤     │   │ │ 
                   TfrmOMNavA.grdMenuMouseUp┘     │   │ │ 
                                        SkipToNext┤   │ │ 
                         TfrmOMSet.DoNextItem...┘ │   │ │ 
                            TfrmOMSet.UMDelayEvent┘   │ │ 
                          TfrmCover.popNewAllergyClick┤ │ 
                         TfrmCover.popEditAllergyClick┤ │ 
                                    MarkEnteredInError┘ │ 
                        TfrmAllgyBox.cmdInErrorClick┤   │ 
                    TfrmCover.popEnteredInErrorClick┘   │ 
                               TfrmARTAllergy.InitDialog┤ 
                             TfrmARTAllergy.FormCreate┘ │ 
                           TfrmARTAllergy.btnAgent1Click┤ 
                             TfrmODAllergy.btnAgentClick┘ 
                              TfrmODAllergy.FormCreate┘   

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -

Called-By

Name Declaration Comments
TfrmARTAllergy.btnAgent1Click procedure btnAgent1Click(Sender: TObject); -
TfrmODAllergy.btnAgentClick procedure btnAgentClick(Sender: TObject); -
EnterEditAllergy function EnterEditAllergy(AllergyIEN: integer; AddNew, MarkAsEnteredInError: boolean; AnOwner: TComponent = nil; ARefNum: Integer = -1): boolean; -
TfrmARTAllergy.InitDialog procedure InitDialog; override; -


Source

92    procedure AllergyLookup(var Allergy: string; NKAEnabled: boolean);
93    var
94      frmAllgyFind: TfrmAllgyFind;
95    begin
96      frmAllgyFind := TfrmAllgyFind.Create(Application);
97      try
98        ResizeFormToFont(TForm(frmAllgyFind));
99        //TDP - CQ#19731 Need adjust 508StaticText label slightly when font 12 or larger
100       case frmAllgyFind.Font.Size of
101         18: frmAllgyFind.NoAllergylbl508.Left := frmAllgyFind.NoAllergylbl508.Left - 10;
102         14: frmAllgyFind.NoAllergylbl508.Left := frmAllgyFind.NoAllergylbl508.Left - 6;
103         12: frmAllgyFind.NoAllergylbl508.Left := frmAllgyFind.NoAllergylbl508.Left - 3;
104       end;
105       frmAllgyFind.ckNoKnownAllergies.Enabled := NKAEnabled;
106       //TDP - CQ#19731 make sure NoAllergylbl508 is enabled and visible if
107       //      ckNoKnownAllergies is disabled
108       if (ScreenReaderSystemActive) and (frmAllgyFind.ckNoKnownAllergies.Enabled = False) then
109       begin
110         frmAllgyFind.NoAllergylbl508.Enabled := True;
111         frmAllgyFind.NoAllergylbl508.Visible := True;
112       end;
113       //TDP - CQ#19731 make sure NoAllergylbl508 is not enabled or visible if
114       //      ckNoKnownAllergies is enabled
115       if frmAllgyFind.ckNoKnownAllergies.Enabled = True then
116       begin
117         frmAllgyFind.NoAllergylbl508.Enabled := False;
118         frmAllgyFind.NoAllergylbl508.Visible := False;
119       end;
120       frmAllgyFind.ShowModal;
121       Allergy := frmAllgyFind.FAllergy;
122     finally
123       frmAllgyFind.Release;
124     end;
125   end;