Procedure

TfrmPatientEd.cboPatUnderstandingChange

Module

fPatientEd

Last Modified

7/15/2014 3:26:36 PM

Comments

//Name:procedure tfrmPatientEd.cboPatUnderstandingChange(Sender: TObject);
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description:Change the level of understanding assigned to the education item.
///////////////////////////////////////////////////////////////////////////////

Visibility

Public/Published

Owner

TfrmPatientEd

Declaration

procedure cboPatUnderstandingChange(Sender: TObject);

Calls Hierarchy


TfrmPatientEd.cboPatUnderstandingChange
 ├TfrmPCEBaseMain.NotUpdating
 └TfrmPCEBaseMain.GridChanged
   ├TfrmPCEBaseMain.BeginUpdate
   ├TfrmPCEBaseGrid.SaveGridSelected
   ├TPCEItem.ItemStr
   ├TfrmPCEBaseGrid.RestoreGridSelected
   ├TfrmPCEBaseGrid.SyncGridData
   │ ├TfrmPCEBaseGrid.SaveGridSelected
   │ ├TfrmPCEBaseGrid.RestoreGridSelected
   │ └TfrmPCEBaseGrid.SyncGridHeader
   ├TfrmPCEBaseMain.EndUpdate
   └TfrmPCEBaseMain.UpdateControls
     ├TfrmPCEBaseMain.NotUpdating
     ├TfrmPCEBaseMain.BeginUpdate
     ├TfrmPCEBaseGrid.GetGridIndex
     └TfrmPCEBaseMain.EndUpdate

Calls

Name Declaration Comments
TfrmPCEBaseMain.GridChanged procedure GridChanged; virtual; -
TfrmPCEBaseMain.NotUpdating function NotUpdating: boolean; -


Source

40    procedure tfrmPatientEd.cboPatUnderstandingChange(Sender: TObject);
41    var
42      i: integer;
43    
44    begin
45      if(NotUpdating) and (cboPatUnderstanding.Text <> '') then
46      begin
47        for i := 0 to lbGrid.Items.Count-1 do
48          if(lbGrid.Selected[i]) then
49            TPCEPat(lbGrid.Items.Objects[i]).Level := cboPatUnderstanding.ItemID;
50        GridChanged;
51      end;
52    end;