NCD_รายงานผู้ป่วยเบาหวานรายใหม่ในปี แบบไม่ใช้ฟังก์ชัน

[pakee_06]

โค้ด: เลือกทั้งหมด

------------------------------New Old DM---------------
SELECT
q1.new_dm
,q1.all_dm - q1.new_dm as old_dm
,q1.all_dm
,visit_all_dm
FROM

(select
--substring(t_diag_icd10.diag_icd10_number,1,3) AS รหัสICD10
count(distinct case when (t_visit.t_patient_id not in
                        (select
                            t_visit.t_patient_id
                        from
                            t_visit inner join t_diag_icd10
                                on t_visit.t_visit_id=t_diag_icd10.diag_icd10_vn
                        where
                        t_diag_icd10.diag_icd10_active='1'
                        and t_visit.f_visit_status_id in ('2','3')
                        and substring(t_diag_icd10.diag_icd10_number,1,3) between 'E10' and 'E14'
                        and substring(t_visit.visit_begin_visit_time,1,10) < '2553-02-01'
                        and substring(t_visit.visit_begin_visit_time,1,4) = substring('2553-02-01',1,4))
                    )
           then t_visit.t_patient_id
           else NULL
end) as new_dm
,count(distinct t_visit.t_patient_id) as all_dm
,count(t_visit.t_visit_id) as visit_all_dm
from
    t_visit inner join t_diag_icd10
        on t_visit.t_visit_id=t_diag_icd10.diag_icd10_vn
where
t_diag_icd10.diag_icd10_active='1'
and t_visit.f_visit_status_id in ('2','3')
and substring(t_diag_icd10.diag_icd10_number,1,3) between 'E10' and 'E14'
and substring(t_visit.visit_begin_visit_time,1,10) Between '2553-02-01' and '2553-02-28'
--group by substring(t_diag_icd10.diag_icd10_number,1,3)
) as q1




[pakee_06]

ถ้าจะเอาไปวางใน report center ก็เปลี่ยนวันที่เป็นเครื่องหมาย ? นะคะ ^^
แต่หากใครออกรายงานด้วย tools ตัวอื่นก็ copy คำสั่ง sql ไปวาง แล้วเปลี่ยนวันที่ของชุดแรกเป็นวันที่เริ่มต้น
ส่วนวันที่ชุดที่สองให้ใส่ช่วงวันที่เริ่มต้นกับวันที่สิ้นสุดสำหรับออกรายงานค่ะ

ถ้าใครจะเอาไปใส่ใน iReport เพื่อทำเป็นฟอร์ม ช่วงวันที่ของชุดแรกให้แทนด้วย $P{start_date}
ส่วนวันที่ชุดที่สองให้ใส่ช่วงวันที่เริ่มต้นเป็น $P{start_date} กับ $P{end_date} แล้วอย่าลืมสร้าง parameter ชื่อเดียวกันนี้ด้วยนะคะ ^^

[chumsin]

ขอบคุงค่ะปากี้ เดี๋ยวเดียวจะไปลองๆดูครับ

ขอแชร์ด้วยคนนะครับ sql นี้เขียนตามความเข้าใจนะครับ ไม่มีเอกสารอ้างอิง พยายามทำคอมเม้นให้ทุกคนสามารถเอาไปเขียนต่อได้
ตามความเข้าใจ คือ วันที่น้อยที่สุดที่ได้รับการ dx ด้วยรหัสโรคนี้

โค้ด: เลือกทั้งหมด

select q.f_dx_date,count(q.newcase) "รายใหม่ทั้งหมด",count(q.newcasetp)  as "รายใหม่ท่าแพ",count(q.newcasepara) as "รายใหม่แป-ระ",count(q.newcasesakorn) as รายใหม่สาคร,count(q.newcasetharea) as รายใหม่ท่าเรือ from( select t_visit.visit_hn as hn
-- เลย min วันที่ visit แล้วได้รับรหัสหนแรกครั้งนี้
,min(substr(t_visit.visit_begin_visit_time,1,7)) as f_dx_date
--,t_diag_icd10.diag_icd10_number
,case when (t_diag_icd10.diag_icd10_number)in ('E10','E10.0','E10.1','E10.9','E11','E11.0','E11.1','E11.9','E12','E12.0','E12.1','E12.9','E13','E13.0','E13.1'
                                    ,'E13.9','E14','E14.0','E14.1','E14.9','E10.3','E11.3','E12.3','E13.3','E14.3','E10.2','E11.2','E12.2','E13.2','E14.2','E10.4','E11.4'
                                    ,'E12.4','E13.4','E14.4','E10.5','E11.5','E12.5','E13.5','E14.5','E10.7','E11.7','E12.7','E13.7','E14.7','E10.6','E10.8','E11.6','E11.8'
                                    ,'E12.6','E12.8','E13.6','E13.8','E14.6','E14.8') then 1 else null end as newcase
,
-- ทีละตำบล copy ได้  ถ้ามี 5 ตำบลก็อย่าลืมวนให้ครบและ group by ให้ครบ ถ้าเลืมเปลี่ยนเลขตำบลข้อมูลจะเป็นของ อ.ท่าแพ จะได้ 0 หมดครับ
case when (t_diag_icd10.diag_icd10_number)in ('E10','E10.0','E10.1','E10.9','E11','E11.0','E11.1','E11.9','E12','E12.0','E12.1','E12.9','E13','E13.0','E13.1'
                                    ,'E13.9','E14','E14.0','E14.1','E14.9','E10.3','E11.3','E12.3','E13.3','E14.3','E10.2','E11.2','E12.2','E13.2','E14.2','E10.4','E11.4'
                                    ,'E12.4','E13.4','E14.4','E10.5','E11.5','E12.5','E13.5','E14.5','E10.7','E11.7','E12.7','E13.7','E14.7','E10.6','E10.8','E11.6','E11.8'
                                    ,'E12.6','E12.8','E13.6','E13.8','E14.6','E14.8')  and t_patient.patient_tambon='910401'  then 1 else null end as newcasetp
,
case when (t_diag_icd10.diag_icd10_number)in ('E10','E10.0','E10.1','E10.9','E11','E11.0','E11.1','E11.9','E12','E12.0','E12.1','E12.9','E13','E13.0','E13.1'
                                    ,'E13.9','E14','E14.0','E14.1','E14.9','E10.3','E11.3','E12.3','E13.3','E14.3','E10.2','E11.2','E12.2','E13.2','E14.2','E10.4','E11.4'
                                    ,'E12.4','E13.4','E14.4','E10.5','E11.5','E12.5','E13.5','E14.5','E10.7','E11.7','E12.7','E13.7','E14.7','E10.6','E10.8','E11.6','E11.8'
                                    ,'E12.6','E12.8','E13.6','E13.8','E14.6','E14.8')  and t_patient.patient_tambon='910402'  then 1 else null end as newcasepara
,case when (t_diag_icd10.diag_icd10_number)in ('E10','E10.0','E10.1','E10.9','E11','E11.0','E11.1','E11.9','E12','E12.0','E12.1','E12.9','E13','E13.0','E13.1'
                                    ,'E13.9','E14','E14.0','E14.1','E14.9','E10.3','E11.3','E12.3','E13.3','E14.3','E10.2','E11.2','E12.2','E13.2','E14.2','E10.4','E11.4'
                                    ,'E12.4','E13.4','E14.4','E10.5','E11.5','E12.5','E13.5','E14.5','E10.7','E11.7','E12.7','E13.7','E14.7','E10.6','E10.8','E11.6','E11.8'
                                    ,'E12.6','E12.8','E13.6','E13.8','E14.6','E14.8')  and t_patient.patient_tambon='910403'  then 1 else null end as newcasesakorn
,case when (t_diag_icd10.diag_icd10_number)in ('E10','E10.0','E10.1','E10.9','E11','E11.0','E11.1','E11.9','E12','E12.0','E12.1','E12.9','E13','E13.0','E13.1'
                                    ,'E13.9','E14','E14.0','E14.1','E14.9','E10.3','E11.3','E12.3','E13.3','E14.3','E10.2','E11.2','E12.2','E13.2','E14.2','E10.4','E11.4'
                                    ,'E12.4','E13.4','E14.4','E10.5','E11.5','E12.5','E13.5','E14.5','E10.7','E11.7','E12.7','E13.7','E14.7','E10.6','E10.8','E11.6','E11.8'
                                    ,'E12.6','E12.8','E13.6','E13.8','E14.6','E14.8')  and t_patient.patient_tambon='910404'  then 1 else null end as newcasetharea

from b_site,t_diag_icd10 inner join t_visit on t_diag_icd10.diag_icd10_vn = t_visit.t_visit_id
left join t_patient on t_visit.t_patient_id = t_patient.t_patient_id
where
t_patient.patient_amphur = b_site.site_amphur -- อ.ที่รพ.ตั้งอยู่(ได้อีกเรื่องนึงแล้วครับ แต่ตำบล ยังเขียนดึงมาไม่เป็นเลยรบกวนสมาชิกวนกันเองนะครับ)
  and  substr(t_diag_icd10.diag_icd10_number,1,3) in('E11','E12','E13','E14')
and t_patient.patient_active = '1'  and t_diag_icd10.diag_icd10_active ='1' and t_visit.f_visit_status_id<>'4'
-- group by ให้ครบ ตามตำบลที่เรามี
group by HN,newcase, newcasetp,newcasepara,newcasesakorn, newcasetharea)q
group by f_dx_date
order by f_dx_date desc
--ลอง 3 ปีย้อนหลัง เลยต้องมี limit
limit 36

หน้าตาที่ได้ประมาณนี้

โค้ด: เลือกทั้งหมด

f_dx_date     รายใหม่ทั้งหมด     รายใหม่ท่าแพ     รายใหม่แป-ระ     รายใหม่สาคร     รายใหม่ท่าเรือ   
------------  -----------------  ---------------  ---------------  --------------  -----------------
2554-06       1                  0                1                0               0                 
2554-05       7                  4                2                1               0                 
2554-04       15                 9                1                3               2                 
2554-03       5                  1                0                2               2                 
2554-02       9                  5                0                3               1                 
2554-01       20                 7                5                6               2       

[pakee_06]

กด Like ให้พี่ชุมสินค่า.....ถ้าใครต้องการเปลี่ยนแปลงโรคก็เปลี่ยนรหัส ICD10 เอานะคะ น่าจะเอาไปประยุกต์ใช้ได้กับหลายๆ โรค....^^

[restart]

ขอบคุณครับ

[90007a]

[chumsin]

วันนี้มีคนมาให้เขียนแยกรายปีประมาณว่าใหม่ในปี เอา 5 ปีย้อนหลัง เขียนแบบนี้จะถูกไหม

โค้ด: เลือกทั้งหมด

select substr(t_visit.visit_begin_visit_time,1,4) as a
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='01' and t_visit.visit_first_visit = '1'  then '1' else null end) as Jan
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='02'  and t_visit.visit_first_visit = '1'  then '1' else null end) as Feb
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='03' and t_visit.visit_first_visit = '1'  then '1' else null end) as Mar
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='04' and t_visit.visit_first_visit = '1' then '1' else null end) as Apr
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='05' and t_visit.visit_first_visit = '1' then '1' else null end) as May
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='06' and t_visit.visit_first_visit = '1' then '1' else null end) as Jun
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='07' and t_visit.visit_first_visit = '1' then '1' else null end) as July
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='08' and t_visit.visit_first_visit = '1' then '1' else null end) as Aug
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='09' and t_visit.visit_first_visit = '1' then '1' else null end) as sep
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='10' and t_visit.visit_first_visit = '1' then '1' else null end) as oct
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='11' and t_visit.visit_first_visit = '1' then '1' else null end) as nov
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='12' and t_visit.visit_first_visit = '1' then '1' else null end) as dec

from t_diag_icd10 inner join t_visit on t_diag_icd10.diag_icd10_vn = t_visit.t_visit_id
--where t_diag_icd10.diag_icd10_number = 'I10'
where  t_diag_icd10.diag_icd10_number  between 'E10' and 'E15.9'
and substr(t_visit.visit_begin_visit_time,1,4) between '2550' and '2555'
group by a
order by a
--,c,d



[chumsin]

ลองเขียนแบบ ดูย้อนหลัง 5 ปี ให้ นวกระบาด

โค้ด: เลือกทั้งหมด


select substr(t_visit.visit_begin_visit_time,1,4) as a
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='01' and t_visit.visit_first_visit = '1'  then '1' else null end) as Jan
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='02'  and t_visit.visit_first_visit = '1'  then '1' else null end) as Feb
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='03' and t_visit.visit_first_visit = '1'  then '1' else null end) as Mar
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='04' and t_visit.visit_first_visit = '1' then '1' else null end) as Apr
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='05' and t_visit.visit_first_visit = '1' then '1' else null end) as May
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='06' and t_visit.visit_first_visit = '1' then '1' else null end) as Jun
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='07' and t_visit.visit_first_visit = '1' then '1' else null end) as July
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='08' and t_visit.visit_first_visit = '1' then '1' else null end) as Aug
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='09' and t_visit.visit_first_visit = '1' then '1' else null end) as sep
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='10' and t_visit.visit_first_visit = '1' then '1' else null end) as oct
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='11' and t_visit.visit_first_visit = '1' then '1' else null end) as nov
,count(case when substr(t_visit.visit_begin_visit_time,6,2) ='12' and t_visit.visit_first_visit = '1' then '1' else null end) as dec

from t_diag_icd10 inner join t_visit on t_diag_icd10.diag_icd10_vn = t_visit.t_visit_id
--where t_diag_icd10.diag_icd10_number = 'I10'
where  t_diag_icd10.diag_icd10_number  between 'E10' and 'E15.9'
and t_visit.f_visit_status_id <>'4'
and substr(t_visit.visit_begin_visit_time,1,4) between '2550' and '2555'
group by a
order by a


[chumsin]

อันนี้คือ รายใหม่แต่ละเดือน นวก.ว่าโอแระ

select q2.y
,count(case when q2.month ='01' then '1' else null end )as Jan
,count(case when q2.month ='01' then '1' else null end )as Jan
,count(case when q2.month ='02' then '1' else null end )as Feb
,count(case when q2.month ='03' then '1' else null end )as Mar
,count(case when q2.month ='04' then '1' else null end )as Apr
,count(case when q2.month ='05' then '1' else null end )as May
,count(case when q2.month ='06' then '1' else null end )as Jun
,count(case when q2.month ='07' then '1' else null end )as Jul
,count(case when q2.month ='08' then '1' else null end )as Aug
,count(case when q2.month ='09' then '1' else null end )as Sep
,count(case when q2.month ='10' then '1' else null end )as Oct
,count(case when q2.month ='11' then '1' else null end )as Nov
,count(case when q2.month ='12' then '1' else null end )as "Dec"
,count(case when q2.sex = '1' then '1' else null end )as allman
,count(case when q2.sex = '2' then '1' else null end )as allwomen
,count(q2.* )as all


from
(select q1.b,q1.d,substr(q1.m,1,4) as y,substr(q1.m,6,2) as month,q1.sex as sex from
(select t_patient.patient_hn as b
,t_patient.patient_tambon as d
,t_patient.f_sex_id as sex
,min(t_visit.visit_begin_visit_time) as m
from t_diag_icd10
inner join t_visit on t_diag_icd10.diag_icd10_vn = t_visit.t_visit_id and t_visit.f_visit_status_id <> '4'
inner join t_patient on t_visit.t_patient_id = t_patient.t_patient_id and t_patient.patient_amphur = '910400'
--where substr(t_visit.visit_begin_visit_time,1,4) between '2547' and '2555'

--and ((t_diag_icd10.diag_icd10_number between 'I20' and 'I25') or ( t_diag_icd10.diag_icd10_number between 'I30' and 'I52'))
and (t_diag_icd10.diag_icd10_number between 'E10' and 'E15') --เบาหวาน
-- and (t_diag_icd10.diag_icd10_number = 'I10') --คว่มดัน
group by b,d,sex) as q1
) q2
--where q2.y ='2555'
group by q2.y

order by q2.y
--,c,d

[smph]

เทพจากไหนมาจุติหนอ

[smph]

เทพจากไหนมาจุติหนอ