
      /*
      3) Разработать скрипт заполнения истории для карт ДН,
      	не имеющих истории диагнозов ДН (ищем по отсутствию записей о карте в DiagDispCard.PersonDisp_id).
      	Для всех таких найденных карт создаем одну запись истории диагнозов (DiagDispCard.DiagDispCard_id), в которой заполняем атрибуты следующим образом:
      
      DiagDispCard_id - автоматически, Уникальный ИД
      PersonDisp_id - карта ДН, у которой не было истории (PersonDisp.PersonDisp_id)
      Diag_id - текущий диагноз данной карты ДН (PersonDisp.Diag_id)
      PersonDisp_begDate - дата взятия пациента на ДН (PersonDisp.PersonDisp_begDate)
      MedStaffFact_id - место работы врача, поставившего пациента на ДН (PersonDisp.MedStaffFact_id)
      Если скрипты 2 и 3 можно без проблем сделать одним - отлично. Но если легче двумя, то лучше двумя
      */
     
      	with newdiagdispcard as(
      		select a.persondisp_id,a.diag_id,COALESCE(a.persondisp_begdate,a.persondisp_insdt) AS PersonDisp_begDate, coalesce(a.medstafffact_id,medstaffactcache.medstafffact_id,medstaffactcache_1.medstafffact_id) as medstafffact_id
      			from dbo.persondisp a
      				left join dbo.diagdispcard  b on b.persondisp_id=a.persondisp_id
					left join lateral (select  medstafffact_id from v_medstafffactcache  c /*inner join persis.v_workplace w on w.workplace_id=c.medstafffact_id */ where c.medpersonal_id=a.medpersonal_id and a.lpusection_id=c.lpusection_id order by workdata_begdate desc limit 1) medstaffactcache on true
					left join lateral(select medstafffact_id from v_medstafffactcache  c /*inner join persis.v_workplace w on w.workplace_id=c.medstafffact_id */ where c.medpersonal_id=a.medpersonal_id order by workdata_begdate desc limit 1) medstaffactcache_1 on true

      			where b.persondisp_id is null)
      	insert into dbo.DiagDispCard(PersonDisp_id,Diag_id,PersonDisp_begDate,pmUser_insID,pmUser_updID,DiagDispCard_insDT,DiagDispCard_updDT,MedStaffFact_id)
      	select PersonDisp_id,Diag_id,PersonDisp_begDate,1,1,current_timestamp,current_timestamp,MedStaffFact_id
      		from newdiagdispcard
