Procedure

TfrmPCEBaseMain.btnOtherClick

Module

fPCEBaseMain

Last Modified

8/5/2014 10:18:06 AM

Comments

Procedure TfrmPCEBaseMain.UpdateNewItem(APCEItem: TPCEItem);
begin
end;

Visibility

Public/Published

Owner

TfrmPCEBaseMain

Declaration

procedure btnOtherClick(Sender: TObject);

Calls Hierarchy


TfrmPCEBaseMain.btnOtherClick
 ├TfrmPCEBaseGrid.ClearGrid
 │ └TfrmPCEBaseGrid.UpdateControls
 ├LexiconLookup
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ ├TEncounter.GetVisitCategory
 │ ├TfrmPCELex.ParseNarrCode
 │ ├TfrmPCELex.SetApp
 │ ├TfrmPCELex.SetDate
 │ └TfrmPCELex.SetICDVersion
 │   └TEncounter.GetICDVersion
 │     └FMNow
 ├HFLookup
 │ └TfrmBase508Form.Create...
 ├OtherLookup
 │ ├TfrmBase508Form.Create...
 │ └TfrmPCEOther.SetApp
 │   └LoadcboOther
 │     └TPCEData.VisitDateTime
 │       └TPCEData.IsSecondaryVisit
 ├TPCEProviderList.PCEProvider
 │ ├Check
 │ │ └TPCEProviderList.IndexOfProvider
 │ └TPCEProviderList.PrimaryIEN
 │   └TPCEProviderList.GetPrimaryIdx
 ├TfrmPCEBaseMain.UpdateNewItemStr
 ├TPCEItem.SetFromString
 │ └TPCEItem.SetComment
 ├TfrmPCEBaseGrid.SetGridIndex
 │ └TfrmPCEBaseGrid.UpdateControls
 ├TfrmPCEBaseGrid.SyncGridData
 │ ├TfrmPCEBaseGrid.SaveGridSelected
 │ ├TfrmPCEBaseGrid.RestoreGridSelected
 │ └TfrmPCEBaseGrid.SyncGridHeader
 └TfrmPCEBaseMain.UpdateControls
   ├TfrmPCEBaseMain.NotUpdating
   ├TfrmPCEBaseMain.BeginUpdate
   ├TfrmPCEBaseGrid.GetGridIndex
   └TfrmPCEBaseMain.EndUpdate

Calls

Name Declaration Comments
TfrmPCEBaseGrid.ClearGrid procedure ClearGrid; -
HFLookup procedure HFLookup(var Code: string); -
LexiconLookup procedure LexiconLookup(var Code: string; ALexApp: Integer; ADate: TFMDateTime = 0; AExtend: Boolean = False; AInputString: String = ''; AMessage: String = ''; ADefaultToInput: Boolean = False); -
OtherLookup procedure OtherLookup(var Code: string; OtherApp: Integer); -
TPCEProviderList.PCEProvider function PCEProvider: Int64; -
TPCEItem.SetFromString procedure SetFromString(const x: string); virtual; -
TfrmPCEBaseGrid.SetGridIndex procedure SetGridIndex(const Value: integer); -
TfrmPCEBaseGrid.SyncGridData procedure SyncGridData; -
TfrmPCEBaseMain.UpdateControls procedure UpdateControls; override; -
TfrmPCEBaseMain.UpdateNewItemStr procedure UpdateNewItemStr(var x: string); virtual; -


Source

162   procedure TfrmPCEBaseMain.btnOtherClick(Sender: TObject);
163   var
164     x, Code: string;
165     APCEItem: TPCEItem;
166     SrchCode: integer;
167   begin
168     inherited;
169     ClearGrid;
170     SrchCode := (Sender as TButton).Tag;
171     if(SrchCode <= LX_Threshold) then
172       LexiconLookup(Code, SrchCode, 0, False, '')
173     else
174     if(SrchCode = PCE_HF) then
175       HFLookup(Code)
176     else
177       OtherLookup(Code, SrchCode);
178     btnOther.SetFocus;
179     if Code <> '' then
180     begin
181       x := FPCECode + U + Piece(Code, U, 1) + U + U + Piece(Code, U, 2);
182       if FPCEItemClass = TPCEProc then
183         SetPiece(x, U, pnumProvider, IntToStr(uProviders.PCEProvider));
184       UpdateNewItemStr(x);
185       APCEItem := FPCEItemClass.Create;
186       APCEItem.SetFromString(x);
187   //    UpdateNewItem(APCEItem);
188       GridIndex := lbGrid.Items.AddObject(APCEItem.ItemStr, APCEItem);
189       SyncGridData;
190     end;
191     UpdateControls;
192   end;