source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMedFA.pas@ 1511

unit fODMedFA;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  fAutoSz, StdCtrls, ORCtrls, ORFn;

type
  TfrmODMedFA = class(TfrmAutoSz)
    Label1: TLabel;
    lstFormAlt: TORListBox;
    Label2: TStaticText;
    cmdYes: TButton;
    cmdNo: TButton;
    procedure lstFormAltClick(Sender: TObject);
    procedure cmdYesClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdNoClick(Sender: TObject);
  private
    { Private declarations }
    FSelected: string;
  public
    { Public declarations }
  end;

procedure SelectFormularyAlt(AnIEN: Integer; var ADrug, AnOI: Integer;
  var ADrugName, AnOIName: string; PSType: Char);

implementation

{$R *.DFM}

uses rODBase;

const
  TX_NO_FORM_ALT = 'This drug is not in the formulary!' + CRLF +
                   'There are no formulary alternatives entered for this item.' + CRLF +
                   'Please consult with your pharmacy before ordering this item.';
  TC_NO_FORM_ALT = 'No Formulary Alternatives';

procedure SelectFormularyAlt(AnIEN: Integer; var ADrug, AnOI: Integer;
  var ADrugName, AnOIName: string; PSType: Char);
var
  frmODMedFA: TfrmODMedFA;
  FormAltList: TStringList;
begin
  ADrug := 0;
  AnOI  := 0;
  ADrugName := '';
  AnOIName  := '';
  FormAltList := TStringList.Create;
  try
    LoadFormularyAlt(FormAltList, AnIEN, PSType);
    if FormAltList.Count > 0 then
    begin
      frmODMedFA := TfrmODMedFA.Create(Application);
      try
        ResizeFormToFont(TForm(frmODMedFA));
        with frmODMedFA do
        begin
          lstFormAlt.Items.Assign(FormAltList);
          ShowModal;
          if Length(FSelected) > 0 then
          begin
            ADrug := StrToIntDef(Piece(FSelected, U, 1), 0);
            AnOI  := StrToIntDef(Piece(FSelected, U, 4), 0);
            ADrugName := Piece(FSelected, U, 2);
            AnOIName  := Piece(FSelected, U, 5);
          end;
        end;
      finally
        frmODMedFA.Release;
      end; {frmODMedFA}
    end
    else InfoBox(TX_NO_FORM_ALT, TC_NO_FORM_ALT, MB_OK);
  finally
    FormAltList.Free;
  end; {FormAltList}
end;

procedure TfrmODMedFA.FormCreate(Sender: TObject);
begin
  inherited;
  FSelected := '';
end;

procedure TfrmODMedFA.lstFormAltClick(Sender: TObject);
begin
  inherited;
  if lstFormAlt.ItemIndex > -1 then cmdYes.Enabled := True;
end;

procedure TfrmODMedFA.cmdYesClick(Sender: TObject);
begin
  inherited;
  with lstFormAlt do if ItemIndex > -1 then FSelected := Items[ItemIndex];
  Close;
end;

procedure TfrmODMedFA.cmdNoClick(Sender: TObject);
begin
  inherited;
  Close;
end;

end.