with params as(
select
cast($1 as bigint) as p_lpu_id,
cast($2 as bigint) as p_lpubuilding_id,
cast($3 as bigint) as p_lpuunit_id, 
cast($4 as bigint) as p_lpusection_id, 
cast(to_timestamp($5,'dd.mm.yyyy') as timestamp) as p_begdate, 
cast(to_timestamp($6,'dd.mm.yyyy') as timestamp) as p_enddate
),

Row_usl as(
select Rowusl,RepDiag_FromDiag,RepDiag_ToDiag,UslugaComplex_code
from (values
(3,'Z22.1','Z22.1','A26.05.074'),
(3,'Z22.1','Z22.1','A26.05.074.001'),
(3,'Z22.1','Z22.1','A26.19.002'),
(3,'Z22.1','Z22.1','A26.06.077'),
(3,'Z22.1','Z22.1','A26.19.101'),
(3,'Z22.1','Z22.1','A26.14.001'),
(3,'Z22.1','Z22.1','A26.06.074'),
(3,'Z22.1','Z22.1','A26.06.075'),
(3,'Z22.1','Z22.1','A26.06.076'),

(5,'Z22.1','Z22.1','A26.19.006'),
(5,'Z22.1','Z22.1','A26.19.033'),
(5,'Z22.1','Z22.1','A26.19.034'),
(5,'Z22.1','Z22.1','A26.19.087'),
(5,'Z22.1','Z22.1','A26.19.034.001'),

(7,'A02.0','A02.9','A26.06.075'),
(8,'A02.0','A02.9','A26.06.076'),
(9,'A02.0','A02.9','A26.06.077'),

(14,'Z22.1','Z22.1','A26.06.095'),
(14,'Z22.1','Z22.1','A26.06.096'),
(14,'Z22.1','Z22.1','A26.06.097'),
(14,'Z22.1','Z22.1','A26.06.098'),
(14,'Z22.1','Z22.1','A26.19.063'),
(14,'Z22.1','Z22.1','A26.19.079'),
(14,'Z22.1','Z22.1','A26.19.063.001'),
--77
(77,'A79.8','A79.8','A26.05.029'),--
(77,'A79.8','A79.8','A26.05.056'),
(77,'A79.8','A79.8','A26.06.116'),
(77,'A79.8','A79.8','A26.05.056.001'),
(77,'A79.8','A79.8','A26.06.116.001'),
(77,'A79.8','A79.8','A26.06.116.002'),
(77,'A79.8','A79.8','A26.06.116.003'),
(77,'A79.8','A79.8','A26.23.035.001'),
--78
(78,'A79.8','A79.8','A26.05.034'),--
(78,'A79.8','A79.8','A26.05.057'),
(78,'A79.8','A79.8','A26.06.117'),
(78,'A79.8','A79.8','A26.23.036'),
(78,'A79.8','A79.8','A26.05.057.001'),
(78,'A79.8','A79.8','A26.06.117.001'),
(78,'A79.8','A79.8','A26.06.117.002'),
(78,'A79.8','A79.8','A26.06.117.003'),
(78,'A79.8','A79.8','A26.23.036.001'),
--97

(97,'Z22.8','Z22.8','A26.05.066.002'),
(97,'Z22.8','Z22.8','A26.08.008'),
(97,'Z22.8','Z22.8','A26.08.008.001'),
(97,'Z22.8','Z22.8','A26.08.045'),
(97,'Z22.8','Z22.8','A26.08.045.001'),
(97,'Z22.8','Z22.8','A26.08.046.002'),
(97,'Z22.8','Z22.8','A26.09.020.001'),
(97,'Z22.8','Z22.8','A26.09.043'),
(97,'Z22.8','Z22.8','A26.09.043.001'),
(97,'Z22.8','Z22.8','A26.09.044.002'),
(97,'Z22.8','Z22.8','A26.09.060.002'),
--98

(100,'Z22.8','Z22.8','A26.05.066.002'),
(100,'Z22.8','Z22.8','A26.08.008'),
(100,'Z22.8','Z22.8','A26.08.008.001'),
(100,'Z22.8','Z22.8','A26.08.045'),
(100,'Z22.8','Z22.8','A26.08.045.001'),
(100,'Z22.8','Z22.8','A26.08.046.002'),
(100,'Z22.8','Z22.8','A26.09.020.001'),
(100,'Z22.8','Z22.8','A26.09.043'),
(100,'Z22.8','Z22.8','A26.09.043.001'),
(100,'Z22.8','Z22.8','A26.09.044.002'),
(100,'Z22.8','Z22.8','A26.09.060.002')	
) as t_usl(Rowusl,RepDiag_FromDiag,RepDiag_ToDiag,UslugaComplex_code)
),
RD_1000 as(
select RepDiag_Row,RepDiag_Text1,RepDiag_Text2,RepDiag_Text3,RepDiag_FromDiag,RepDiag_ToDiag
from
(values
(1,'Брюшной тиф',				'01',	'A01.0','A01.0','A01.0'),				
(2,'Паратифы A,B,C и неуточнённый',	'02','A01.1,2,3,4',	'A01.1','A01.1'),
(2,'Паратифы A,B,C и неуточнённый',	'02','A01.1,2,3,4',	'A01.2','A01.2'),
(2,'Паратифы A,B,C и неуточнённый',	'02','A01.1,2,3,4',	'A01.3','A01.3'),
(2,'Паратифы A,B,C и неуточнённый',	'02','A01.1,2,3,4',	'A01.4','A01.4'),
(3,'Бактерионосители брюшного тифа, паратифов',	'03',	'Z22.0, Z22.1','Z22.0', 'Z22.0'),
(3,'Бактерионосители брюшного тифа, паратифов',	'03',	'Z22.0, Z22.1','Z22.1', 'Z22.1'),
(4,'Холера','04',	'A00','A00','A00.9'),				
(5,'Вибрионосители холеры','05','Z22.1','Z22.1','Z22.1'),				
(6,'Другие сальмонеллезные инфекции','06','A02','A02','A02.9'),				
(7,'из них вызванные: сальмонеллами группы В','07',	'A02','A02','A02.9'),				
(8,'из них вызванные: сальмонеллами группы С','08',	'A02',	'A02','A02.9'),			
(9,'из них вызванные: сальмонеллами группы Д','09',	'A02','A02','A02.9'),				
(10,'Бактериальная дизентерия (шигеллез)','10',	'A03','A03','A03.9'),				
(11,'из нее бактериологически подтвержденная','11',	'A03.0.1.2.3.8','A03.0','A03.3'),
(11,'из нее бактериологически подтвержденная','11',	'A03.0.1.2.3.8','A03.8','A03.8'),				
(12,'из нее вызванная: шигеллами Зонне','12',	'A03.3','A03.3','A03.3'),				
(13,'шигеллами Флекснера','13','A03.1',	'A03.1','A03.1'),			
(14,'Бактерионосители дизентерии','14','Z22.1',	'Z22.1',	'Z22.1'),			
(15,'Другие острые кишечшые инфекции, вызванные установленными бактериальными, вирусными возбудителями, а также пищевые токсикоинфекции установленной этиологии','15',	'A04.0-A04.8, A05.0,2,3,4,8, A08.0,1,2,3,5','A04.0','A04.8'),
(15,'Другие острые кишечшые инфекции, вызванные установленными бактериальными, вирусными возбудителями, а также пищевые токсикоинфекции установленной этиологии','15',	'A04.0-A04.8, A05.0,2,3,4,8, A08.0,1,2,3,5', 'A05.0','A05.0'),
(15,'Другие острые кишечшые инфекции, вызванные установленными бактериальными, вирусными возбудителями, а также пищевые токсикоинфекции установленной этиологии','15',	'A04.0-A04.8, A05.0,2,3,4,8, A08.0,1,2,3,5', 'A05.2','A05.2'),
(15,'Другие острые кишечшые инфекции, вызванные установленными бактериальными, вирусными возбудителями, а также пищевые токсикоинфекции установленной этиологии','15',	'A04.0-A04.8, A05.0,2,3,4,8, A08.0,1,2,3,5', 'A05.3','A05.3'),
(15,'Другие острые кишечшые инфекции, вызванные установленными бактериальными, вирусными возбудителями, а также пищевые токсикоинфекции установленной этиологии','15',	'A04.0-A04.8, A05.0,2,3,4,8, A08.0,1,2,3,5', 'A05.4','A05.4'),
(15,'Другие острые кишечшые инфекции, вызванные установленными бактериальными, вирусными возбудителями, а также пищевые токсикоинфекции установленной этиологии','15',	'A04.0-A04.8, A05.0,2,3,4,8, A08.0,1,2,3,5', 'A05.8','A05.8'),

(15,'Другие острые кишечшые инфекции, вызванные установленными бактериальными, вирусными возбудителями, а также пищевые токсикоинфекции установленной этиологии','15',	'A04.0-A04.8, A05.0,2,3,4,8, A08.0,1,2,3,5', 'A08.0','A08.0'),
(15,'Другие острые кишечшые инфекции, вызванные установленными бактериальными, вирусными возбудителями, а также пищевые токсикоинфекции установленной этиологии','15',	'A04.0-A04.8, A05.0,2,3,4,8, A08.0,1,2,3,5', 'A08.1','A08.1'),
(15,'Другие острые кишечшые инфекции, вызванные установленными бактериальными, вирусными возбудителями, а также пищевые токсикоинфекции установленной этиологии','15',	'A04.0-A04.8, A05.0,2,3,4,8, A08.0,1,2,3,5', 'A08.2','A08.2'),
(15,'Другие острые кишечшые инфекции, вызванные установленными бактериальными, вирусными возбудителями, а также пищевые токсикоинфекции установленной этиологии','15',	'A04.0-A04.8, A05.0,2,3,4,8, A08.0,1,2,3,5', 'A08.3','A08.3'),			
(15,'Другие острые кишечшые инфекции, вызванные установленными бактериальными, вирусными возбудителями, а также пищевые токсикоинфекции установленной этиологии','15',	'A04.0-A04.8, A05.0,2,3,4,8, A08.0,1,2,3,5', 'A08.5','A08.5'),			

(16,'из них: вызванные установленными бактериальными возбудителями','16',	'A04.0 -A04.8',	'A04.0','A04.8'	),		
(17,'из них: кишечными палочками(эшерихиями)','17',	'A04.0,1,2,3,4','A04.0','A04.0'),
(17,'из них: кишечными палочками(эшерихиями)','17',	'A04.0,1,2,3,4','A04.1','A04.1'),
(17,'из них: кишечными палочками(эшерихиями)','17',	'A04.0,1,2,3,4','A04.2','A04.2'),
(17,'из них: кишечными палочками(эшерихиями)','17',	'A04.0,1,2,3,4','A04.3','A04.3'),
(17,'из них: кишечными палочками(эшерихиями)','17',	'A04.0,1,2,3,4','A04.4','A04.4'),
(18,'кампилобактериями','18','A04.5','A04.5','A04.5'),				
(19,'иерсиниями энтероколитика','19','A04.6','A04.6','A04.6'),				
(20,'вызванные вирусами:','20',	'A08.0,1,2,3,5','A08.0','A08.0'),
(20,'вызванные вирусами:','20',	'A08.0,1,2,3,5','A08.1','A08.1'),
(20,'вызванные вирусами:','20',	'A08.0,1,2,3,5','A08.2','A08.2'),
(20,'вызванные вирусами:','20',	'A08.0,1,2,3,5','A08.3','A08.3'),
(20,'вызванные вирусами:','20',	'A08.0,1,2,3,5','A08.5','A08.5'),

(21,'из них:ротавирусами','21','A08.0',	'A08.0','A08.0'),			
(22,'вирусом Норволк','22','A08.1',	'A08.1','A08.1'),			
(23,'Острые кишечные инфекции, вызванные неустановленными инфекционными возбудителями 1), пищевые токсикоинфекции неустановленной этиологии 2)','23',	'A04.9, A05.9, A08.4, A09','A04.9','A04.9'),
(23,'Острые кишечные инфекции, вызванные неустановленными инфекционными возбудителями 1), пищевые токсикоинфекции неустановленной этиологии 2)','23',	'A04.9, A05.9, A08.4, A09','A05.9','A05.9'),
(23,'Острые кишечные инфекции, вызванные неустановленными инфекционными возбудителями 1), пищевые токсикоинфекции неустановленной этиологии 2)','23',	'A04.9, A05.9, A08.4, A09','A08.4','A08.4'),
(23,'Острые кишечные инфекции, вызванные неустановленными инфекционными возбудителями 1), пищевые токсикоинфекции неустановленной этиологии 2)','23',	'A04.9, A05.9, A08.4, A09','A09','A09.9'),				
(24,'Острый паралитический полиомиелит,  включая ассоциированный с вакциной','24','A80.0,1,2,3','A80.0','A80.0'),
(24,'Острый паралитический полиомиелит,  включая ассоциированный с вакциной','24','A80.0,1,2,3','A80.1','A80.1'),	
(24,'Острый паралитический полиомиелит,  включая ассоциированный с вакциной','24','A80.0,1,2,3','A80.2','A80.2'),	
(24,'Острый паралитический полиомиелит,  включая ассоциированный с вакциной','24','A80.0,1,2,3','A80.3','A80.3'),	
(25,'Острые вялые параличи','25','G04.8,9, G56, G57, G61.0,8,9','G04.8','G04.9'),
(25,'Острые вялые параличи','25','G04.8,9, G56, G57, G61.0,8,9', 'G56.0', 'G56.9'),	
(25,'Острые вялые параличи','25','G04.8,9, G56, G57, G61.0,8,9','G57.0', 'G57.9'),	
(25,'Острые вялые параличи','25','G04.8,9, G56, G57, G61.0,8,9','G61.0','G61.0'),	
(25,'Острые вялые параличи','25','G04.8,9, G56, G57, G61.0,8,9', 'G61.8', 'G61.8'),
(25,'Острые вялые параличи','25','G04.8,9, G56, G57, G61.0,8,9', 'G61.9', 'G61.9'),	
(26,'Энтеровирусные инфекции','26','A85.0, A87.0, B08.4, B08.5, B30.3, B34.1, B97.1','A85.0','A85.0'),	
(26,'Энтеровирусные инфекции','26','A85.0, A87.0, B08.4, B08.5, B30.3, B34.1, B97.1','A87.0','A87.0'),
(26,'Энтеровирусные инфекции','26','A85.0, A87.0, B08.4, B08.5, B30.3, B34.1, B97.1','B08.4','B08.4'),
(26,'Энтеровирусные инфекции','26','A85.0, A87.0, B08.4, B08.5, B30.3, B34.1, B97.1','B08.5','B08.5'),
(26,'Энтеровирусные инфекции','26','A85.0, A87.0, B08.4, B08.5, B30.3, B34.1, B97.1','B30.3','B30.3'),
(26,'Энтеровирусные инфекции','26','A85.0, A87.0, B08.4, B08.5, B30.3, B34.1, B97.1','B34.1','B34.1'),
(26,'Энтеровирусные инфекции','26','A85.0, A87.0, B08.4, B08.5, B30.3, B34.1, B97.1','B97.1','B97.1'),			
(27,'из них энтеровирусные менингит','27','A87.0',	'A87.0','A87.0'),			
(28,'Острые гепатиты - всего 3)','28','B15, B16, B17, B19','B15','B15.9'),	
(28,'Острые гепатиты - всего 3)','28','B15, B16, B17, B19','B16','B16.9'),
(28,'Острые гепатиты - всего 3)','28','B15, B16, B17, B19','B17','B17.9'),
(28,'Острые гепатиты - всего 3)','28','B15, B16, B17, B19',	'B19','B19.9'),			
			
(29,'из них: острый гепатит А','29','B15',	'B15',	'B15.9'),		
(30,'из них острый гепатит В','30','B16',	'B16',	'B16.9'),		
(31,'острый гепатит С','31','B17.1','B17.1','B17.1'),				
(32,'острый гепатит Е','32','B17.2','B17.2','B17.2'),				
(33,'Хронические вирусные гепатиты (впервые установленные) - всего 3)','33','B18','B18','B18.9'),				
(34,'из них: хронический вирусный гепатит B','34','B18.0, B18.1','B18.0','B18.0'),	
(34,'из них: хронический вирусный гепатит B','34','B18.0, B18.1','B18.1','B18.1'),			
(35,'из них: хронический вирусный гепатит C','35','B18.2','B18.2',	'B18.2'),			
(36,'Дифтерия','36','A36','A36','A36.9'),				
(37,'Бактерионосители токсигенных штаммов дифтерии','37','Z22.2','Z22.2','Z22.2'),				
(38,'Коклюш','38','A37','A37','A37.9'),				
(39,'из него коклюш, вызванный Bordetella parapertussis','39','A37.1','A37.1','A37.1'),				
(40,'Стрептококковая инфекция (впервые выявленная)','40','A38, A40, J02.0, J03.0','A38','A38.9'),		
(40,'Стрептококковая инфекция (впервые выявленная)','40','A38, A40, J02.0, J03.0', 'A40', 'A40.9'),		
(40,'Стрептококковая инфекция (впервые выявленная)','40','A38, A40, J02.0, J03.0','J02.0','J02.0'),		
(40,'Стрептококковая инфекция (впервые выявленная)','40','A38, A40, J02.0, J03.0',	'J03.0','J03.0'),			
(41,'из них: скарлатина','41','A38','A38','A38.9'),				
(42,'стрептококковая септицемия','42','A40','A40','A40.9'),				
(43,'Ветряная оспа','43','B01',	'B01',	'B01.9'),		
(44,'Опоясывающий лишай','44','B02','B02','B02.9'),				
(45,'Корь','45','B05','B05','B05.9'),				
(46,'Краснуха','46','B06','B06','B06.9'),				
(47,'Синдром врождённой краснухи (СВК)','47','P35.0','P35.0','P35.0'),				
(48,'Паротит эпидемический','48','B26',	'B26','B26.9'),			
(49,'Генерализованные формы менингоккоковой инфекции','49','A39.0, 1, 2','A39.0',	'A39.2'),			
(50,'Гемофильная инфекция','50','A49.2, A41.3, G00.0, J14, J20.1','A49.2','A49.2'),	
(50,'Гемофильная инфекция','50','A49.2, A41.3, G00.0, J14, J20.1','A41.3','A41.3'),
(50,'Гемофильная инфекция','50','A49.2, A41.3, G00.0, J14, J20.1', 'G00.0', 'G00.0'),
(50,'Гемофильная инфекция','50','A49.2, A41.3, G00.0, J14, J20.1','J14','J14.9'),
(50,'Гемофильная инфекция','50','A49.2, A41.3, G00.0, J14, J20.1',	'J20.1','J20.1'),		
(51,'Столбняк','51','A35','A35','A35.9'),				
(52,'Туляремия','52','A21',	'A21','A21.9'),			
(53,'Сибирская язва','53','A22','A22','A22.9'),				
(54,'Бруцеллез, впервые выявленный','54','A23',	'A23','A23.9'),			
(55,'Вирусные лихорадки, передаваемые членистоногими и вирусные геморрагические лихорадки','55','A92, A93, A94,  А97, А98, А99','A92','A92.9'),
(55,'Вирусные лихорадки, передаваемые членистоногими и вирусные геморрагические лихорадки','55','A92, A93, A94,  А97, А98, А99', 'A93', 'A93.9'),
(55,'Вирусные лихорадки, передаваемые членистоногими и вирусные геморрагические лихорадки','55','A92, A93, A94,  А97, А98, А99','A94','A94.9'),
(55,'Вирусные лихорадки, передаваемые членистоногими и вирусные геморрагические лихорадки','55','A92, A93, A94,  А97, А98, А99','A97','A97.9'),
(55,'Вирусные лихорадки, передаваемые членистоногими и вирусные геморрагические лихорадки','55','A92, A93, A94,  А97, А98, А99','A98','A98.9'),
(55,'Вирусные лихорадки, передаваемые членистоногими и вирусные геморрагические лихорадки','55','A92, A93, A94,  А97, А98, А99','A99',	'A99.9'),			
(56,'из них: лихорадка Западного Нила','56','A92.3','A92.3','A92.3'),				
(57,'Крымская геморрагическая лихорадка','57','A98.0','A98.0','A98.0'),				
(58,'геморрагическая лихорадка с почечным синдромом','58','A98.5','A98.5','A98.5'),				
(59,'Омская геморрагическая лихорадка','59','A98.1','A98.1','A98.1'),				
(60,'Лихорадка Денге','60','A97','A97',	'A97.9'),			
(61,'Клещевой вирусный энцефалит','61','A84','A84',	'A84.9'),			
(62,'Клещевой боррелиоз (болезнь Лайма)','62','A69.2','A69.2','A69.2'),				
(63,'Псевдотуберкулез','63','A28.2','A28.2','A28.2'),				
(64,'Лептоспироз','64','A27','A27',	'A27.9'),			
(65,'Бешенство','65','A82',	'A82','A82.9'),				
(66,'Укусы, ослюнения, оцарапывания животными','66','W53, W54, W55','W53','W53.9'),
(66,'Укусы, ослюнения, оцарапывания животными','66','W53, W54, W55', 'W54', 'W54.9'),
(66,'Укусы, ослюнения, оцарапывания животными','66','W53, W54, W55', 'W55', 'W55.9'),				
(67,'из них дикими животными','67','W53,W55','W53','W53.9'),
(67,'из них дикими животными','67','W53,W55','W55','W55.9'),				
(68,'укусы, нанесенные собаками','68','W54','W54','W54.9'),				
(69,'Укусы клещами','69','W57',	'W57','W57.9'),				
(70,'Орнитоз (пситтакоз)','70','A70','A70','A70.9'),				
(71,'Риккетсиозы','71','A75-A79','A75','A79.9'),				
(72,'из них: эпидемический сыпной тиф','72','A75.0','A75.0','A75.0'),				
(73,'болезнь Брилля','73','A75.1','A75.1','A75.1'),				
(74,'лихорадка КУ','74','A78','A78',	'A78.9'),			
(75,'сибирский клещевой тиф','75','A77.2','A77.2','A77.2'),				
(76,'астраханская пятнистая лихорадка','76','A77.1','A77.1','A77.1'),				
(77,'Риккетсиоз, вызываемый Anaplasma phagocytophilum','77','A79.8','A79.8','A79.8'),				
(78,'Риккетсиоз, вызываемый Ehrlichia chaffeensis и Ehrlichia muris','78','A79.8',	'A79.8','A79.8'),			
(79,'Педикулез','79','B85',	'B85','B85.9'),			
(80,'Листериоз','80','A32','A32',	'A32.9'),			
(81,'Легионеллез','81','A48.1,2','A48.1',	'A48.2'),			
(82,'Инфекционный мононуклеоз','82','B27','B27','B27.9'),				
(83,'Туберкулез (впервые выявленный) ативные формы4)','83','A15-A19','A15','A19.9'),				
(84,'из него туберкулез органов дыхания 4)','84','A15, A16, 19 .0, 1, 8','A15', 'A15.9'),
(84,'из него туберкулез органов дыхания 4)','84','A15, A16, 19 .0, 1, 8','A16', 'A16.9'),	
(84,'из него туберкулез органов дыхания 4)','84','A15, A16, 19 .0, 1, 8','A19.0', 'A19.0'),
(84,'из него туберкулез органов дыхания 4)','84','A15, A16, 19 .0, 1, 8','A19.1','A19.1'),	
(84,'из него туберкулез органов дыхания 4)','84','A15, A16, 19 .0, 1, 8','A19.8','A19.8'),	
(85,'из него бациллярные формы4)','85','A15','A15',	'A15.9'),			
(86,'Сифилис (впервые выявленный) все формы4)','86','A50-A53',	'A50','A53.9'),			
(87,'Гонококковая инфекция4)','87','A54','A54','A54.9'),				
(88,'Болезнь, вызванная вирусом иммунодефицита человека (ВИЧ) и бессимптомный инфекционный статус, вызванный (ВИЧ) 4)','88','B20-B24, Z21',	'B20','B24.9'),
(88,'Болезнь, вызванная вирусом иммунодефицита человека (ВИЧ) и бессимптомный инфекционный статус, вызванный (ВИЧ) 4)','88','B20-B24, Z21',	 'Z21', 'Z21.9'),		
(89,'Острые инфекции верхних дыхательных путей множественной или неуточнённой локализации','89','J06',	'J06',	'J06.9'),		
(90,'Грипп','90','J09 - J11','J09','J11.9'),				
(91,'Пневмония (внебольничная)','91',	'J12, J13, J15, J16, J18','J12','J12.9'),
(91,'Пневмония (внебольничная)','91',	'J12, J13, J15, J16, J18','J13','J13.9'),
(91,'Пневмония (внебольничная)','91',	'J12, J13, J15, J16, J18','J15','J15.9'),
(91,'Пневмония (внебольничная)','91',	'J12, J13, J15, J16, J18','J16','J16.9'),
(91,'Пневмония (внебольничная)','91',	'J12, J13, J15, J16, J18','J18','J18.9'),				
(92,'из нее: вирусная','92','J12','J12','J12.9'),				
(93,'бактериальная','93','J13-J15',	'J13','J15.9'),			
(94,'из нее: вызванная пневмококками','94','J13','J13','J13.9'),				
(95,'Micoplasma pneumoniae','95','J15.7','J15.7','J15.7'),				
(96,'пневмония, вызванная хламидиями','96','J16.0',	'J16','J16.0'),				
(97,'COVID-19, всего','97','U07.1, U07.2, J12 - J18, Z22.8','U07.1','U07.1'),
(97,'COVID-19, всего','97','U07.1, U07.2, J12 - J18, Z22.8', 'U07.2', 'U07.2'),
(97,'COVID-19, всего','97','U07.1, U07.2, J12 - J18, Z22.8', 'J12' , 'J18.9'),
(97,'COVID-19, всего','97','U07.1, U07.2, J12 - J18, Z22.8','Z22.8',	'Z22.8'),			
(98,'из него: пневмонии','98','U07.1, U07.2, J12- J18',	'U07.1','U07.1'),
(98,'из него: пневмонии','98','U07.1, U07.2, J12- J18','U07.2','U07.2'),
(98,'из него: пневмонии','98','U07.1, U07.2, J12- J18',	'J12','J18.9'),		
(99,'Из них: пневмонии, вызванные вирусом COVID-19, вирус идентифицирован','99','U07.1, J12 - J18','U07.1','U07.1'),
(99,'Из них: пневмонии, вызванные вирусом COVID-19, вирус идентифицирован','99','U07.1, J12 - J18','J12','J18.9'),				
(100,'носительство возбудителя COVID-19','100','Z22.8',	'Z22.8','Z22.8'),			
(101,'Цитомегаловирусная болезнь','101','В25',	'В25','В25.9'),			
(102,'Врождённая цитомегаловирусная инфекция','102','P35.1','P35.1','P35.1'),				
(103,'Дерматофития, вызванная грибами рода Microsporum <4>','103','B35','B35','B35.9'),				
(104,'Чесотка4','104','B86','B86','B86.9'),				
(105,'Дерматофития, вызванная грибами рода Trichophyton <4>','105','B35','B35','B35.9'),				
(106,'Поствакцинальные осложнения','106','Y58,Y59','Y58','Y58.9'),
(106,'Поствакцинальные осложнения','106','Y58,Y59','Y59','Y59.9')				
) as t_table(RepDiag_Row,RepDiag_Text1,RepDiag_Text2,RepDiag_Text3,RepDiag_FromDiag,RepDiag_ToDiag)
),
evns as
(
select evn.evnpl_id evn_id,EVPL.EvnVizitPL_id,
RepDiag_Row,evn.Lpu_id,EVPL.Diag_id,dg.Diag_Code osn,
diagsop,
evn.person_id
from params
inner join v_EvnVizitPL EVPL  on true
inner join v_diag dg on dg.Diag_id=EVPL.diag_id
inner join v_EvnPL evn  on evn.EvnPL_id=EVPL.EvnVizitPL_pid and evpl.EvnVizitPL_Index = evpl.EvnVizitPL_Count - 1
left join lateral
(
	select Diag.Diag_Code diagsop
	from  dbo.v_EvnDiagPLSop DiagSop   
	inner join dbo.v_Diag Diag   on Diag.Diag_id = DiagSop.Diag_id
	where (Diag.Diag_Code in ('U07.1', 'U07.2') or left(diag.Diag_Code,3) between 'J12' and 'J18')
	and DiagSop.EvnDiagPLSop_pid = evpl.EvnVizitPL_id --and DiagSop.DiagSetClass_id = 3
) sop on true
left join v_lpu lpu  on lpu.Lpu_id=evn.Lpu_id
left join v_DeseaseType dt  on dt.DeseaseType_id=evpl.DeseaseType_id
inner join RD_1000 rd on dg.Diag_Code between RepDiag_FromDiag and RepDiag_ToDiag
left join v_LpuSection as LpuSection  on LpuSection.LpuSection_id = EVPL.lpuSection_id
left join v_LpuUnit as LpuUnit  on LpuUnit.LpuUnit_id = LpuSection.LpuUnit_id
where evn.EvnPL_IsFinish=2 and evn.EvnPL_disDate between p_begdate and p_enddate
	and 2= case when (dt.DeseaseType_SysNick in ('sharp','new') or dt.DeseaseType_SysNick is null) and left (dg.Diag_Code,3) between 'Z21' and  'Z22' then 2
	when dt.DeseaseType_SysNick in ('sharp','new') and left (dg.Diag_Code,3) not between 'Z21' and  'Z22' then 2 end
	and (lpu.lpu_id=p_lpu_id or p_lpu_id is null)
	and (LpuSection.LpuUnit_id=p_LpuUnit_id or p_LpuUnit_id is null)
	and (LpuSection.LpuSection_id=p_LpuSection_id or p_LpuSection_id is null)
	and (LpuUnit.LpuBuilding_id =p_LpuBuilding_id or p_LpuBuilding_id is null) 
	
union all
select eps.evnps_id evn_id,ES.EvnSection_id,
RepDiag_Row,eps.Lpu_id,es.diag_id,dg.diag_code osn,
diagsop,
eps.person_id
from params
inner join v_EvnSection ES on true
inner join v_diag dg on dg.Diag_id=es.diag_id and EvnSection_Index=EvnSection_Count-1
left join lateral
(
	select Diag.Diag_Code diagsop
	from  v_EvnDiagPS EDPS   
	inner join dbo.v_Diag Diag   on Diag.Diag_id = EDPS.Diag_id
	where (Diag.Diag_Code in ('U07.1', 'U07.2') or left(diag.Diag_Code,3) between 'J12' and 'J18')
	and EDPS.EvnDiagPS_pid = es.EvnSection_id --and EDPS.DiagSetClass_id=3
) sop on true
left join v_EvnPS EPS  on ES.EvnSection_pid=EPS.EvnPS_id
left join v_lpu lpu  on lpu.Lpu_id=eps.Lpu_id
left join v_DeseaseType dt   on dt.DeseaseType_id=es.DeseaseType_id
inner join RD_1000 rd on dg.Diag_Code between RepDiag_FromDiag and RepDiag_ToDiag
left join v_LpuSection as LpuSection on LpuSection.LpuSection_id = es.lpuSection_id
left join v_LpuUnit as LpuUnit  on LpuUnit.LpuUnit_id = LpuSection.LpuUnit_id
where  (lpu.lpu_id=p_lpu_id or p_lpu_id is null)
and eps.evnps_disdate between  p_begdate and p_enddate
and 2= case when (lower(dt.DeseaseType_SysNick) in ('sharp','new') or dt.DeseaseType_SysNick is null) and left (dg.Diag_Code,3) between 'Z21' and  'Z22' then 2
	when lower(dt.DeseaseType_SysNick) in ('sharp','new') and left (dg.Diag_Code,3) not between 'Z21' and  'Z22' then 2 end
and (LpuSection.LpuUnit_id=p_LpuUnit_id or p_LpuUnit_id is null)
	and (LpuSection.LpuSection_id=p_LpuSection_id or p_LpuSection_id is null)
	and (LpuUnit.LpuBuilding_id =p_LpuBuilding_id or p_LpuBuilding_id is null)
),
evns_diag as
(select  
case 
when RepDiag_Row=3 then
	case 	
	when osn='Z22.1' and  rusl.UslugaComplex_code is not null then osn else 'NO' end
	
when RepDiag_Row=5 then
	case 	
	when osn='Z22.1' and  rusl.UslugaComplex_code is not null then osn else 'NO' end
	
when RepDiag_Row=7 then
	case 	
	when left(osn,3)='A02' and  rusl.UslugaComplex_code is not null then osn else 'NO' end
	
when RepDiag_Row=8 then
	case 	
	when left(osn,3)='A02' and  rusl.UslugaComplex_code is not null then osn else 'NO' end
	
when RepDiag_Row=9 then
	case 	
	when left(osn,3)='A02' and  rusl.UslugaComplex_code is not null then osn else 'NO' end
	
when RepDiag_Row=14 then
	case 	
	when osn='Z22.1' and  rusl.UslugaComplex_code is not null then osn else 'NO' end
	
when RepDiag_Row=77 then
	case 	
	when osn='А79.8' and  rusl.UslugaComplex_code is not null then osn else 'NO' end
	
when RepDiag_Row=78 then
	case 	
	when osn='А79.8' and  rusl.UslugaComplex_code is not null then osn else 'NO' end
	
when RepDiag_Row=97 then
	case 
	when coalesce(diagsop,'') in ('U07.1', 'U07.2') or (left(osn,3) between 'J12' and 'J18' and  coalesce(diagsop,'') in ('U07.1', 'U07.2')) then osn 
	when coalesce(osn,'') in ('U07.1', 'U07.2') or (left(coalesce(diagsop,''),3) between 'J12' and 'J18' and  coalesce(osn,'') in ('U07.1', 'U07.2')) then osn 
	when osn='Z22.8' and  rusl.UslugaComplex_code is not null then osn else 'NO' end
	
when RepDiag_Row=98 then
	case 
	when (osn in ('U07.1', 'U07.2') and left(coalesce(diagsop,''),3) between 'J12' and 'J18')  then osn 
	when ( left(osn,3) between 'J12' and 'J18' and coalesce(diagsop,'') in ('U07.1', 'U07.2')) then osn else 'NO' end 
	
when RepDiag_Row=99 then
	case 
	when (osn='U07.1' and left(coalesce(diagsop,''),3) between 'J12' and 'J18')   then osn  
	when (coalesce(diagsop,'')='U07.1' and left(osn,3) between 'J12' and 'J18') then osn else 'NO' end 
	
when RepDiag_Row=91 then
	case 
	when  left(osn,3) in ('J12', 'J13', 'J15', 'J16', 'J18') and  sop_91.person_id is null then osn else 'NO' end
when RepDiag_Row=92 then
	case 
	when  left(osn,3)='J12' and  sop_91.person_id is null then osn else 'NO' end
	
when RepDiag_Row=100 then
	case 	
	when osn='Z22.8' and  rusl.UslugaComplex_code is not null then osn	else 'NO' end 
	
when RepDiag_Row not in (3,5,7,8,9,14,77,78,91,97,98,99,100) then osn
end 
Diag_Code,evns.*,rusl.UslugaComplex_code,params.*
from params
inner join evns on true
left join lateral
(
	select distinct UC.UslugaComplex_id,UC.UslugaComplex_code
	from v_EvnUslugaPar EU
	inner join v_EvnDirection_all ed on ed.EvnDirection_id = eu.EvnDirection_id
	inner join v_EvnLabRequest elr on elr.EvnDirection_id=ed.EvnDirection_id
	left join v_EvnLabRequestUslugaComplex elruc on elr.EvnLabRequest_id = elruc.EvnLabRequest_id
	left join v_UslugaTest UT  on ut.EvnLabSample_id = elruc.EvnLabSample_id
	left join v_UslugaComplex UC on UC.UslugaComplex_id = EU.UslugaComplex_id
	where --ed.EvnDirection_pid = EvnVizitPL_id
	ed.EvnDirection_rid = Evn_id
		and UC.UslugaComplex_code like 'A26.%'
		and ((lower(ut.UslugaTest_ResultValue) like ('пол%') or lower(ut.UslugaTest_ResultValue) like ('обн%'))
		or  (ut.UslugaTest_ResultValue<>'' and ut.UslugaTest_ResultLower<>'' and ut.UslugaTest_ResultUpper<>'' 
		and (
		rpt.try_cast(ut.UslugaTest_ResultValue,null::numeric)< rpt.try_cast(ut.UslugaTest_ResultLower,null::numeric) 
		or rpt.try_cast(ut.UslugaTest_ResultValue,null::numeric)> rpt.try_cast(ut.UslugaTest_ResultUpper,null::numeric)
		)))
) usl on true
left join lateral
(
select 1 id,eddd.person_id,d.diag_code diag91
	from v_EvnDiagDopDisp EDDD
	inner join v_diag d on d.diag_id =eddd.diag_id
	inner join v_evn evn on EDDD.EvnDiagDopDisp_rid=evn.evn_id	
	where EDDD.DiagSetClass_id=3 and eddd.person_id=evns.person_id
	and d.diag_code in ('U07.1', 'U07.2')
	and evn.evn_disDate between  p_begdate and p_enddate
	--and (evn.lpu_id=p_lpu_id or p_lpu_id is null)
	union all
	select 2 id,EDPS.person_id,d.diag_code
	from  v_EvnDiagPS EDPS   
	inner join v_Diag d   on d.Diag_id = EDPS.Diag_id
	inner join v_evn evn on EDPS.EvnDiagPS_rid=evn.evn_id
	where d.Diag_Code in ('U07.1', 'U07.2') and EDPS.person_id=evns.person_id
	and evn.evn_disDate between  p_begdate and p_enddate
	union all
	select 3 id,DiagSop.person_id,d.diag_code
	from  dbo.v_EvnDiagPLSop DiagSop   
	inner join v_Diag  d  on d.Diag_id = DiagSop.Diag_id
	inner join v_evn evn on DiagSop.EvnDiagPLSop_rid=evn.evn_id
	where d.Diag_Code in ('U07.1', 'U07.2') and DiagSop.person_id=evns.person_id
	and evn.evn_disDate between  p_begdate and p_enddate
) sop_91 on true
left join Row_usl rusl on evns.osn between RepDiag_FromDiag and RepDiag_ToDiag and usl.UslugaComplex_code=rusl.UslugaComplex_code and rusl.Rowusl= evns.repdiag_row
)

select rd.RepDiag_Row,RepDiag_Text1,RepDiag_Text2,RepDiag_Text3,
count(distinct q.person_id) v4,
count(distinct case when age between 0 and 17 then q.person_id end) v5,
count(distinct case when age between 0 and 14 then q.person_id end) v6,
count(distinct case when ageM between 0 and 11 then q.person_id end) v7,
count(distinct case when age between 1 and 2 then q.person_id end) v8,
count(distinct case when age between 3 and 6 then q.person_id end) v9,
count(distinct case when age between 3 and 6 and SocStatus_SysNick='child_yasli' then q.person_id end) v10,
count(distinct case when KLAreaType_id = 2 then q.person_id end) v11,
count(distinct case when KLAreaType_id = 2 and age between 0 and 17 then q.person_id end) v12,
count(distinct case when DeathSvid_id is not null then q.person_id end) v13,
count(distinct case when DeathSvid_id is not null and age between 0 and 17 then q.person_id end) v14
from 
(select distinct RepDiag_Row,RepDiag_Text1,RepDiag_Text2,RepDiag_Text3 from RD_1000) rd
left join 
(
	select RepDiag_Row,
	case when evns.diag_code='NO' then null
	when evns.diag_code<>'NO'  or evns.diag_code is null then osn end as osn,
	evns.person_id,adr.KLAreaType_id,DS.DeathSvid_id,SocStatus_SysNick,
	dbo.AgeYMD(ps.Person_BirthDay,p_enddate,1) age,dbo.AgeYMD(ps.Person_BirthDay,p_enddate,2) ageM
	from evns_diag evns
	left join v_personstate ps  on evns.Person_id=ps.person_id
	left join v_SocStatus st on st.SocStatus_id=ps.SocStatus_id
	left join dbo.Address as adr  on adr.Address_id = coalesce(ps.pAddress_id,ps.uaddress_id)
	left join lateral
	 (
		select
			DS.DeathSvid_id,
			DS.Person_id as PersonDS,
			DS.DeathPlace_id,
			left (DiagDS.Diag_Code, 3) as Diag_Code
		from v_DeathSvid DS  
		left join Diag DiagDS  on DiagDS.diag_id = coalesce(DS.Diag_mid,DS.Diag_tid,DS.Diag_iid)
		where (cast(DS.DeathSvid_DeathDate as date) between p_BegDate and p_EndDate)
		and ds.person_id=evns.person_id
		and DiagDS.diag_id=evns.Diag_id
	) ds on true
) q  on q.RepDiag_Row=rd.RepDiag_Row and q.osn is not null
group by rd.RepDiag_Row,RepDiag_Text1,RepDiag_Text2,RepDiag_Text3
order by rd.RepDiag_Row

