расширенная.настройка:документы:лицензии

Лицензии клиники

Лицензия - документ описывающий список возможных медицинских манипуляций, который может осуществлять клиника (филиал клиники).

Ввиду необходимости, лицензия (полный текст) должен располагаться в тексте договора с пациентом, а т.к. договор должен печататься (динамическое формирование) без изменений текста, то список лицензий, с тестом лицензии необходимо хранить.

Ввиду большого объема текста (с форматированием) добавлена дополнительная таблица USER$LICENCE, триггер для нее (USER$LICENCE_BI) и генератор ключа (USER$LICENCE_GEN)

Также на данную таблицу настроена репликация данных из ЦБД по филиалам.

Описание полей таблицы

Поле	Тип	Назначение
LICID	TBIGIDENT not null	Уникальный идентификатор
LICNUM	TTEXT15	Номер лицензии
BDATE	date	Дата начала печати в договорах
FDATE	date	Дата окончания печати в договорах
LICOUT	date not null	Дата начала действия лицензии
LICTEXT	TTEXT100	Кем выдана лицензия (наименование)
LICTEXTFULL	TTEXT1024	Кем выдана лицензия (наименование + реквизиты)
LIC_MESTA	TTEXT16K	Полный список мест оказания услуг
LICFONT	smallint	Размер шрифта для договора
CLINICID	TBIGIDENT	Идентификатор юридического лица клиники
LIC_MESTA2	TTEXT16K	Краткий список мест оказания услуг

Текст таблицы данных

CREATE SEQUENCE USER$LICENCE_GEN;
 
CREATE TABLE USER$LICENCE
(
  LICID TBIGIDENT NOT NULL,
  LICNUM TTEXT15,
  BDATE DATE,
  FDATE DATE,
  LICOUT DATE NOT NULL,
  LICTEXT TTEXT100,
  LICTEXTFULL TTEXT1024,
  LIC_MESTA TTEXT16K,
  LICFONT SMALLINT,
  CLINICID TBIGIDENT,
  LIC_MESTA2 TTEXT16K,
  REPL$ID REPL$IDENT,
  REPL$GRPID REPL$IDENT,
  CONSTRAINT PK_USER$LICENCE PRIMARY KEY (LICID)
);

Текст тригера

CREATE OR ALTER TRIGGER USER$LICENCE_BI FOR USER$LICENCE
active BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.licid IS NULL) THEN
    NEW.licid = gen_id(USER$licence_gen,1);
END;