source: cprs/trunk/CPRS-Chart/fNoteCPFields.pas@ 1154

unit fNoteCPFields;



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  fAutoSz, StdCtrls, ORCtrls, ORFn, ORDtTm, VA508AccessibilityManager;



type

  TfrmNoteCPFields = class(TfrmAutoSz)

    lblAuthor: TLabel;

    cboAuthor: TORComboBox;

    lblProcSummCode: TOROffsetLabel;

    cboProcSummCode: TORComboBox;

    lblProcDateTime: TOROffsetLabel;

    calProcDateTime: TORDateBox;

    cmdOK: TButton;

    cmdCancel: TButton;

    procedure cmdCancelClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure cmdOKClick(Sender: TObject);

    procedure cboAuthorNeedData(Sender: TObject; const StartFrom: String;

      Direction, InsertAt: Integer);

  private

    FAuthor: int64;

    FProcSummCode: integer;

    FProcDateTime: TFMDateTime;

    FCPStatusFlag: integer;

    FOKPressed: Boolean;

    procedure ValidateFields(var ErrMsg: string);

  end;



const

  TC_REQ_FIELDS        = 'Required Information';

  TX_REQ_AUTHOR        = CRLF + 'The author of the note must be identified.';

  TX_NO_FUTURE         = CRLF + 'A reference date/time in the future is not allowed.';

  TX_REQ_PROCSUMMCODE  = CRLF + 'A procedure summary code for this procedure must be entered.';

  TX_REQ_PROCDATETIME  = CRLF + 'A valid date/time for the procedure must be entered.';

  TX_INVALID_PROCDATETIME = CRLF + 'If entered, the date/time for the procedure must be in a valid format.';

  TX_NO_PROC_FUTURE    = CRLF + 'A procedure date/time in the future is not allowed.';

  TX_REQ_CANCEL        = 'You will be required to enter these fields before the note can be saved or signed.' + CRLF +

                         'Click the "Change" button to enter this information at any time while editing.';



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



implementation



{$R *.DFM}



uses rCore, uConst, uConsults, uCore;



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

var

  frmNoteCPFields: TfrmNoteCPFields;

begin

  frmNoteCPFields := TfrmNoteCPFields.Create(Application);

  with frmNoteCPFields do

    try

      ResizeFormToFont(TForm(frmNoteCPFields));

      FCPStatusFlag := ACPStatusFlag;

      FProcSummCode := AProcSummCode;

      FProcDateTime := AProcDate;

      cboProcSummCode.SelectByIEN(AProcSummCode);

      calProcDateTime.FMDateTime := AProcDate;

      ShowModal;

      if FOKPressed then

      begin

        AnAuthor := FAuthor;

        AProcSummCode := FProcSummCode;

        AProcDate := FProcDateTime;

      end;

    finally

      Release;

    end;

end;



procedure TfrmNoteCPFields.FormCreate(Sender: TObject);

begin

  inherited;

  FOKPressed := False;

  cboAuthor.InitLongList(User.Name);

  cboAuthor.SelectByIEN(User.DUZ);

end;



procedure TfrmNoteCPFields.cmdOKClick(Sender: TObject);

var

  ErrMsg: string;

begin

  inherited;

  ValidateFields(ErrMsg);

  if ShowMsgOn(Length(ErrMsg) > 0, ErrMsg, TC_REQ_FIELDS)

    then Exit

    else

      begin

        FOKPressed := True;

        ModalResult := mrOK;

      end;

end;



procedure TfrmNoteCPFields.ValidateFields(var ErrMsg: string);

begin

  if cboAuthor.ItemIEN = 0   then ErrMsg := ErrMsg + TX_REQ_AUTHOR else FAuthor := cboAuthor.ItemIEN;

  if (FCPStatusFlag = CP_INSTR_INCOMPLETE) then

    begin

      if cboProcSummCode.ItemIEN = 0 then ErrMsg := ErrMsg + TX_REQ_PROCSUMMCODE

        else FProcSummCode := cboProcSummCode.ItemIEN;

      if not calProcDateTime.IsValid then ErrMsg := ErrMsg + TX_REQ_PROCDATETIME

       else if calProcDateTime.IsValid and (calProcDateTime.FMDateTime > FMNow) then ErrMsg := ErrMsg + TX_NO_PROC_FUTURE

       else FProcDateTime := calProcDateTime.FMDateTime;

    end

  else

    begin

      FProcSummCode := cboProcSummCode.ItemIEN;

      if (calProcDateTime.FMDateTime > 0) then

        begin

          if (not calProcDateTime.IsValid) then ErrMsg := ErrMsg + TX_INVALID_PROCDATETIME

           else if calProcDateTime.IsValid and (calProcDateTime.FMDateTime > FMNow) then ErrMsg := ErrMsg + TX_NO_PROC_FUTURE

           else FProcDateTime := calProcDateTime.FMDateTime;

        end;

    end;

end;



procedure TfrmNoteCPFields.cmdCancelClick(Sender: TObject);

var

  ErrMsg: string;

begin

  inherited;

  ValidateFields(ErrMsg);

  if ErrMsg <> '' then

    InfoBox(TX_REQ_CANCEL, TC_REQ_FIELDS, MB_OK or MB_ICONWARNING);

  FOKPressed := False;

  Close;

end;



procedure TfrmNoteCPFields.cboAuthorNeedData(Sender: TObject;

  const StartFrom: String; Direction, InsertAt: Integer);

begin

  (Sender as TORComboBox).ForDataUse(SubSetOfPersons(StartFrom, Direction));

end;



end.