unit OutRecall;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls, Buttons, Db, DBTables, Wwquery;

type
  TfrmOutRecall = class(TForm)
    Panel1: TPanel;
    btnCancel: TBitBtn;
    btnOK: TBitBtn;
    Bevel2: TBevel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    cbIsOpenOrder: TCheckBox;
    CheckBox2: TCheckBox;
    Label1: TLabel;
    edInid: TEdit;
    Label2: TLabel;
    edBedID: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    lbPatName: TLabel;
    qryPatTimeSqid: TwwQuery;
    procedure btnOKClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmOutRecall: TfrmOutRecall;

implementation

uses DataModule, HisUtilitis;

{$R *.DFM}

procedure TfrmOutRecall.btnOKClick(Sender: TObject);
var
  spResult :Integer;
begin
  if ( (Trim(edInid.Text) =  '' ) or (Trim(edBedID.Text ) = '') ) then
  begin
    HisErrorPrompt('住院號(hào)或床位號(hào)沒(méi)有設(shè)定！');
    SysUtils.Abort;
  end;

  try
    if DM.ProjHisadt.InTransaction then
      DM.ProjHisadt.Commit;
    DM.ProjHisadt.StartTransaction;
    DM.spOutRecall.Params[0].AsInteger  := StrToInt(Trim(edInid.Text));
    DM.spOutRecall.Params[1].AsString   := DM.currWardid;
    DM.spOutRecall.Params[2].AsString   := Trim(edBedID.Text);
    DM.spOutRecall.Params[3].AsString   := DM.currOperatorno;

    if cbIsOpenOrder.Checked then
       DM.spOutRecall.Params[4].AsSmallInt := 1
    else
       DM.spOutRecall.Params[4].AsSmallInt := 0;

    DM.spOutRecall.Params[5].AsSmallInt := 1;
    DM.spOutRecall.Params[6].AsSmallInt := 1;
    DM.spOutRecall.ExecProc;
    DM.ProjHisAdt.Commit;

    spResult := DM.spOutRecall.Params[7].AsInteger;
    case  spResult of
      -1 : HisErrorPrompt('沒(méi)有該住院號(hào)的病人資料，請(qǐng)認(rèn)真核對(duì)住院號(hào)是否有誤'
                          + #13 + '或請(qǐng)到住院科查詢?cè)摬∪耸欠窠Y(jié)算出院！');
      -2 : HisErrorPrompt('該住院號(hào)的病人不是當(dāng)前病區(qū)的病人！');
      -3 : HisErrorPrompt('當(dāng)前床位已經(jīng)有別的病人入住，請(qǐng)選擇其他空床位！');
      -4 : HisErrorPrompt('該住院號(hào)的病人尚未定義出院！');
      -5 : HisErrorPrompt('本病區(qū)不存在該床位號(hào)！');
    end;

    if ( spResult < 0 ) then SysUtils.Abort;

    with qryPatTimeSqid do
    begin
      Close;
      Params[0].AsInteger := StrToInt(Trim(edInid.Text));
      Open;

      if ( RecordCount = 0 ) then
      begin
        HisErrorPrompt('病人資料有誤，請(qǐng)聯(lián)系系統(tǒng)管理員查明原因！');
        SysUtils.Abort;
      end;
    end;

    with DM do
    begin
      try
        if ProjHisadt.InTransaction then
          ProjHisadt.Commit;
        ProjHisadt.StartTransaction;
        spConfirm.Params[0].AsInteger  := StrToInt(Trim(edInid.Text));
        spConfirm.Params[1].AsSmallint := qryPatTimeSqid.FieldByName('Times').AsInteger;
        spConfirm.Params[2].AsSmallint := qryPatTimeSqid.FieldByName('Sqid').AsInteger;
        spConfirm.Params[3].AsString   := DM.currOperatorno;
        spConfirm.Params[4].AsInteger  := DM.SIsAutoAddIvdrip;
        spConfirm.Params[5].AsInteger  := 0;  //正常醫(yī)囑確認(rèn)
        spConfirm.ExecProc;
        ProjHisadt.Commit;
        if spConfirm.Params[6].AsInteger < 0 then
           hisErrorPrompt('醫(yī)囑有錯(cuò)誤，請(qǐng)認(rèn)真查對(duì)！');
      except
        ProjHisadt.Rollback;
      end;
    end;
    
    Close;
  except
    DM.ProjHisadt.Rollback;
    HisErrorPrompt('出院召回失敗！');
  end;
end;

procedure TfrmOutRecall.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  qryPatTimeSqid.Close;
end;

end.