ICD Tani Kodu K ile olan hastalari sorgulama


Meddata hbyslerde geçerli K ile baslayan bir tani alip ayni gün içinde farkli bir poliklinikte ayni tani tekrar alinirsa bu sarti saglayan hasta listesi sunar



Kisacasi hasta asagida ki bir taniyi doktordan aldigi zaman , bu tani ile ile yönlendirilip ayni gün içerisinde baska bir doktora giderse bu sarti saglayan hasta listesini sunar.
Tanilar:
K80
K80.0
K80.1
K80.2
K80.3
K80.4
K80.5
K80.8
K81
K81.1
K81.8
K81.9
Ayni tani ile ayni gün içinde eslesiyorsa hazirlanan sql

--KOD--


select
a.hasta,a.Ana_Protokol ,a.icd,a.bolum_adi,a.adi_soyadi doktor,a.dosya_no,b.ikinci_Protokol,b.icd,b.bolum_adi,b.adi_soyadi

from
(select
kk.adi||' '||kk.soyadi hasta,t1.protokol_no Ana_Protokol,t1.icd,bl.bolum_adi,dr.adi_soyadi,t1.tarih,t1.dosya_no
from TANI t1,kimlik kk,protokol pp,bolum bl,dradi dr where T1.ICD in
('K80','K80.0','K80.1','K80.2','K80.3','K80.4','K80.5','K80.8','K81','K81.1','K81.8','K81.9')
and t1.dosya_no=kk.dosya_no
and t1.dosya_no=PP.DOSYA_NO
and t1.bolum=bl.bolum
and pp.protokol_no=DR.DR_KODU(+)
group by kk.adi,kk.soyadi,t1.protokol_no ,t1.icd,bl.bolum_adi,dr.adi_soyadi,t1.tarih,t1.dosya_no
)a,
(select
kk.adi||' '||kk.soyadi hasta,t1.protokol_no ikinci_Protokol,t1.icd,bl.bolum_adi,dr.adi_soyadi,t1.tarih,t1.dosya_no
from TANI t1,kimlik kk,protokol pp,bolum bl,dradi dr where T1.ICD in
('K80','K80.0','K80.1','K80.2','K80.3','K80.4','K80.5','K80.8','K81','K81.1','K81.8','K81.9')
and t1.dosya_no=kk.dosya_no
and t1.dosya_no=PP.DOSYA_NO
and t1.bolum=bl.bolum
and pp.protokol_no=DR.DR_KODU(+)
group by kk.adi,kk.soyadi,t1.protokol_no ,t1.icd,bl.bolum_adi,dr.adi_soyadi,t1.tarih,t1.dosya_no
)b
where a.dosya_no=b.dosya_no and A.Ana_Protokol<>B.ikinci_Protokol AND A.TARIH BETWEEN B.TARIH AND B.TARIH+1 AND A.bolum_adi<>B.bolum_adi AND A.ICD=B.ICD

group by a.hasta,a.Ana_Protokol ,a.icd,a.bolum_adi,a.adi_soyadi,a.dosya_no,b.ikinci_Protokol,b.icd,b.bolum_adi,b.adi_soyadi

Eger Esit degil belirtilen her hangi bir taniyi aldi ise çalistirilacak kod

--KOD--


select
a.hasta,a.Ana_Protokol ,a.icd,a.bolum_adi,a.adi_soyadi doktor,a.dosya_no,b.ikinci_Protokol,b.icd,b.bolum_adi,b.adi_soyadi

from
(select
kk.adi||' '||kk.soyadi hasta,t1.protokol_no Ana_Protokol,t1.icd,bl.bolum_adi,dr.adi_soyadi,t1.tarih,t1.dosya_no
from TANI t1,kimlik kk,protokol pp,bolum bl,dradi dr where T1.ICD in
('K80','K80.0','K80.1','K80.2','K80.3','K80.4','K80.5','K80.8','K81','K81.1','K81.8','K81.9')
and t1.dosya_no=kk.dosya_no
and t1.dosya_no=PP.DOSYA_NO
and t1.bolum=bl.bolum
and pp.protokol_no=DR.DR_KODU(+)
group by kk.adi,kk.soyadi,t1.protokol_no ,t1.icd,bl.bolum_adi,dr.adi_soyadi,t1.tarih,t1.dosya_no
)a,
(select
kk.adi||' '||kk.soyadi hasta,t1.protokol_no ikinci_Protokol,t1.icd,bl.bolum_adi,dr.adi_soyadi,t1.tarih,t1.dosya_no
from TANI t1,kimlik kk,protokol pp,bolum bl,dradi dr where T1.ICD in
('K80','K80.0','K80.1','K80.2','K80.3','K80.4','K80.5','K80.8','K81','K81.1','K81.8','K81.9')
and t1.dosya_no=kk.dosya_no
and t1.dosya_no=PP.DOSYA_NO
and t1.bolum=bl.bolum
and pp.protokol_no=DR.DR_KODU(+)
group by kk.adi,kk.soyadi,t1.protokol_no ,t1.icd,bl.bolum_adi,dr.adi_soyadi,t1.tarih,t1.dosya_no
)b
where a.dosya_no=b.dosya_no and A.Ana_Protokol<>B.ikinci_Protokol AND A.TARIH BETWEEN B.TARIH AND B.TARIH+1 AND
A.bolum_adi<>B.bolum_adi AND
(A.ICD in ('K80','K80.0','K80.1','K80.2','K80.3','K80.4','K80.5','K80.8','K81','K81.1','K81.8','K81.9') or
B.ICD in ('K80','K80.0','K80.1','K80.2','K80.3','K80.4','K80.5','K80.8','K81','K81.1','K81.8','K81.9'))

group by a.hasta,a.Ana_Protokol ,a.icd,a.bolum_adi,a.adi_soyadi,a.dosya_no,b.ikinci_Protokol,b.icd,b.bolum_adi,b.adi_soyadi


meddata,hbys,k tanili hasta listesi,k tanili ayni gün içinde gelen hastalar



Fastreport,meddata,convert,IntToStr

meddata server kurulum,meddata user script,oracle scriptler

meddata,pl sql,kurum bazli indirim,grup bazli indirim

meddata,islemtipi, Check-up,

meddata,icmal,çift kayit

meddata,barkot,fr3

meddata,efatura,efatura programi

medula,dönem sonlandirma,

e fatura kurumlari,efatura kurum bilgileri

meddata,dogum sonrasi muayene,dogum sonrasi gelen hasta

Bizi Takip Edin :