create or alter procedure HIRURG_EKSTR_VOZR_SPISOK_U1 (
    OTDELENIE_KEY_P integer,
    OUT_STAC_DATE_S date,
    OUT_STAC_DATE_PO date,
    VOZR_S integer,
    VOZR_PO integer)
returns (
    NAME_STROKA varchar(255),
    NOMIB1 integer,
    UMER_N_STAT1 integer,
    FIO1 varchar(255),
    DR1 date,
    OTDEL1 varchar(255),
    NOMIB2 integer,
    UMER_N_STAT2 integer,
    FIO2 varchar(255),
    DR2 date,
    OTDEL2 varchar(255))
as
declare variable NOMIB_PROC integer;
declare variable NOM_STROKI integer;
begin FOR SELECT NOM_STROKI_EH FROM NASTR_EKSTR_HIRURG
       group BY NOM_STROKI_EH
       ORDER BY NOM_STROKI_EH
       INTO :NOM_STROKI
  DO
  BEGIN
   nomib1=null;
   umer_n_stat1=null;
   fio1=null;
 dr1=null;

  IF (NOM_STROKI=1) THEN NAME_STROKA='Острая непроходимость кишечника (K56)';
  IF (NOM_STROKI=2) THEN NAME_STROKA='Острый аппендицит (K35)';
  IF (NOM_STROKI=3) THEN NAME_STROKA='Язва желудка и 12-перстной кишки с кровотечением (K25.0,К25.4, К26.0, К26.4)';
  IF (NOM_STROKI=4) THEN NAME_STROKA='Язва желудка и 12-перстной кишки с прободением (K25.1,К25.5, К26.1, К26.5)';
  IF (NOM_STROKI=5) THEN NAME_STROKA='Язва желудка и 12-перстной кишки с кровотечением и прободением (K25.2, K25.6, K26.2, K26.6)';
  IF (NOM_STROKI=6) THEN NAME_STROKA='Жулудочно-кишечное кровотечение (K92.2)';
  IF (NOM_STROKI=7) THEN NAME_STROKA='Ущемленная грыжа (K40.0, K40.3, K41.0, K41.3, K42.0, K43.0, K44.0, K45.0, K46.0)';
/*  IF (NOM_STROKI=7) THEN NAME_STROKA='Ущемленная грыжа (K40.0, K40.3, K40.4, K41.0, K41.1, K41.3, K41.4, K42.0, K42.1, K43.0, K43.1, K45.0, K45.1, K46.0, K46.1)';*/
  IF (NOM_STROKI=8) THEN NAME_STROKA='Острый холецистит (K80.0, K81.0)';
  IF (NOM_STROKI=9) THEN NAME_STROKA='Острый панкреатит (K85)';
  IF (NOM_STROKI=10) THEN NAME_STROKA='Внематочная беременность (О00.0, О00.1, О00.2, О00.8, О00.9)';
  suspend;

--   name_stroka='оперировано';
--  suspend;
--   name_stroka=null;

   for
       SELECT s.NOMIB FROM SPISOK s INNER JOIN NASTR_EKSTR_HIRURG ON S.mkb_umer_stat=MKB_EH
       WHERE  (s.kol_vo_let BETWEEN :VOZR_S AND :VOZR_PO)
        AND s.otdelenie_key=:OTDELENIE_KEY_P and (s.OUT_STAC_DATE between :OUT_STAC_DATE_s and :OUT_STAC_DATE_PO)
        AND NOM_STROKI_EH=:nom_stroki  AND s.EMERGENCY=1 AND s.RESULT_GOSPIT_STAT=6 AND
       KEY_SPISOK IN
         (SELECT KEY_SPISOK_OPERAT FROM OPERAT
         WHERE KEY_SPISOK_OPERAT IN (SELECT sss.KEY_SPISOK FROM
         SPISOK sss WHERE (sss.kol_vo_let BETWEEN :VOZR_S AND :VOZR_PO)
         AND sss.OTDELENIE_KEY=:OTDELENIE_KEY_P and (sss.OUT_STAC_DATE between :OUT_STAC_DATE_s and :OUT_STAC_DATE_PO))
         and operat.kod_operat<>'60' and operat.kod_operat<>'18' and operat.kod_operat<>'145'
         )
         INTO :nomib_proc
    do begin
        SELECT distinct ss.NOMIB, ss.umer_n_stat, ss.family||' '||ss.name||' '||ss.father, ss.dr, ss.otdelenie_name
        FROM SPISOK ss
        WHERE  (ss.kol_vo_let BETWEEN :VOZR_S AND :VOZR_PO)
            AND ss.OTDELENIE_KEY=:OTDELENIE_KEY_P
            and (OUT_STAC_DATE between :OUT_STAC_DATE_s and :OUT_STAC_DATE_PO)
            and ss.result_gospit_stat=6
            AND ss.nomib=:nomib_proc
        INTO :NOMIB1, :umer_n_stat1, :fio1, :dr1, :otdel1;
       suspend;
    end

  otdel1=null;
nomib1=null;
   umer_n_stat1=null;
  fio1=null;
   dr1=null;
--  name_stroka='не оперировано';
--   suspend;
--  name_stroka=null;

  for
       SELECT s.NOMIB FROM SPISOK s INNER JOIN NASTR_EKSTR_HIRURG ON S.mkb_umer_stat=MKB_EH
       WHERE  (s.kol_vo_let BETWEEN :VOZR_S AND :VOZR_PO)
        AND s.OTDELENIE_KEY=:OTDELENIE_KEY_P and (OUT_STAC_DATE between :OUT_STAC_DATE_s and :OUT_STAC_DATE_PO)
        AND NOM_STROKI_EH=:nom_stroki  AND EMERGENCY=1 AND RESULT_GOSPIT_STAT=6 AND
       KEY_SPISOK NOT IN
         (SELECT KEY_SPISOK_OPERAT FROM OPERAT
         WHERE KEY_SPISOK_OPERAT IN (SELECT KEY_SPISOK FROM
         SPISOK WHERE (kol_vo_let BETWEEN :VOZR_S AND :VOZR_PO)
         AND OTDELENIE_KEY=:OTDELENIE_KEY_P and (OUT_STAC_DATE between :OUT_STAC_DATE_s and :OUT_STAC_DATE_PO))
         and operat.kod_operat<>'60'  and operat.kod_operat<>'18' and operat.kod_operat<>'145'
         )
         INTO :nomib_proc
    do begin
        SELECT distinct ss.NOMIB, ss.umer_n_stat, ss.family||' '||ss.name||' '||ss.father as fio, ss.dr, ss.otdelenie_name
        FROM SPISOK ss
        WHERE  (ss.kol_vo_let BETWEEN :VOZR_S AND :VOZR_PO)
            AND ss.OTDELENIE_KEY=:OTDELENIE_KEY_P
            and (ss.OUT_STAC_DATE between :OUT_STAC_DATE_s and :OUT_STAC_DATE_PO)
            and ss.result_gospit_stat=6
            AND ss.nomib=:nomib_proc
        INTO :NOMIB2, :umer_n_stat2, :fio2, :dr2, :otdel2;
       suspend;
    end

   otdel2=null;
 nomib2=null;
 umer_n_stat2=null;
 fio2=null;
 dr2=null;

  end


END