Procedure

EnterClinProcFields

Module

fNoteCPFields

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Declaration

procedure EnterClinProcFields(ACPStatusFlag: integer; ErrMsg: string; var AProcSummCode: integer; var AProcDate: TFMDateTime; var AnAuthor: int64);

Calls Hierarchy


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

Called-By Hierarchy


                   EnterClinProcFields
            TfrmConsults.LoadForEdit┘ 
  TfrmConsults.mnuActNoteEditClick┘   
TfrmConsults.mnuActCompleteClick┘     

Calls

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

Called-By

Name Declaration Comments
TfrmConsults.LoadForEdit procedure LoadForEdit ; -


Source

52    procedure EnterClinProcFields(ACPStatusFlag: integer; ErrMsg: string; var AProcSummCode: integer; var AProcDate: TFMDateTime; var AnAuthor: int64);
53    var
54      frmNoteCPFields: TfrmNoteCPFields;
55    begin
56      frmNoteCPFields := TfrmNoteCPFields.Create(Application);
57      with frmNoteCPFields do
58        try
59          ResizeFormToFont(TForm(frmNoteCPFields));
60          FCPStatusFlag := ACPStatusFlag;
61          FProcSummCode := AProcSummCode;
62          FProcDateTime := AProcDate;
63          cboProcSummCode.SelectByIEN(AProcSummCode);
64          calProcDateTime.FMDateTime := AProcDate;
65          ShowModal;
66          if FOKPressed then
67          begin
68            AnAuthor := FAuthor;
69            AProcSummCode := FProcSummCode;
70            AProcDate := FProcDateTime;
71          end;
72        finally
73          Release;
74        end;
75    end;