"localhost:/firebird/data/ILICHEVSK2.FDB". ���������

INFECTION_CALC_DEGREE

������� ���������

�������� ���������

��������

����������� ������� ������������

�����������

CREATE PROCEDURE INFECTION_CALC_DEGREE(
    INFECTIONID INTEGER,
    SPECIMENT_COUNT INTEGER,
    ACCUMULATION INTEGER,
    USEFULLNAME INTEGER)
RETURNS (
    DEGREE VARCHAR(30))
AS
begin
  DEGREE = null;
  if (:SPECIMENT_COUNT > 0) then begin
    if (:INFECTIONID in (1, 3, 4, 5)) then begin
      if (:SPECIMENT_COUNT <= 5) then begin
        if (:USEFULLNAME = 1) then DEGREE = '1 �������';
        else DEGREE = '1 ��.';
      end
      else if (:SPECIMENT_COUNT <= 10) then begin
        if (:USEFULLNAME = 1) then DEGREE = '2 �������';
        else DEGREE = '2 ��.';
      end
      else begin
        if (:USEFULLNAME = 1) then DEGREE = '3 �������';
        else DEGREE = '3 ��.';
      end
    end
    if (:INFECTIONID in (2)) then begin
      if (:SPECIMENT_COUNT <= 20) then begin
        if (:USEFULLNAME = 1) then DEGREE = '1 �������';
        else DEGREE = '1 ��.';
      end
      else if (:ACCUMULATION = 2) then begin
        if (:USEFULLNAME = 1) then DEGREE = '3 �������';
        else DEGREE = '3 ��.';
      end
      else begin
        if (:USEFULLNAME = 1) then DEGREE = '2 �������';
        else DEGREE = '2 ��.';
      end
    end
  end
  suspend;
end