QOF-64 ส่วนกลาง 04 Pepsmear 30-60

Update Delete

ID828
Parent ID61
Table Nameqof64_kpi04_Pepsmear_30_60
TitleQOF-64 ส่วนกลาง 04 Pepsmear 30-60
Description
Script#SQL_OPTIONS#
PROVIDERS=1
PROVIDER1=43STD
PROVIDER1_VALIDATE_TABLES=accident,admission,anc,appointment
SCRIPT_FLOW=SQL
#SQL_OPTIONS#

#PROVIDER1_SQL#
SET @provcode = :provcode;
SET @rep_year = :rep_year;
SET @hoscode = :hoscode;
SET @hosname = :hosname;
SET @hostype = :hostype;
SET @address = :address;
SET @subdistcode = :subdistcode;
SET @distcode = :distcode;
SET @level_service = :level_service;


# qof64 คัดกรองมะเร็งปาดมดลูกในสตรี 30 - 60 ปี

SET @start_a:='2016-04-01';
SET @end_a:='2021-03-31';


SELECT c.HOSPCODE AS check_hosp,c.check_vhid,c.CID AS cid ,MAX(b.date_serv) AS DATE_SERV,b.diagcode AS DIAGCODE,c.NATION,c.TYPEAREA
from
t_person_cid c
LEFT OUTER JOIN
(
SELECT o.hospcode,o.pid,o.seq,o.date_serv,o.diagcode,'Diag' as file ,p.cid
FROM diagnosis_opd o INNER JOIN person p ON o.hospcode=p.hospcode AND o.pid=p.pid
WHERE o.DATE_SERV BETWEEN @start_a AND @end_a
AND SUBSTR(o.DIAGCODE,1,4) IN('Z014','Z124')

UNION
SELECT s.HOSPCODE ,s.pid ,s.SEQ,s.DATE_SERV,s.PPSPECIAL,'SPECIALPP' as file ,p.cid
FROM specialpp s INNER JOIN person p ON s.hospcode=p.hospcode AND s.pid=p.pid
WHERE s.DATE_SERV BETWEEN @start_a AND @end_a
AND SUBSTR(s.ppspecial,1,5) IN('1B30','1B40','1B004') AND LENGTH(p.cid)=13 )
b on c.CID = b.cid

WHERE c.BIRTH BETWEEN '1959-04-01' AND '1989-03-31' AND c.sex =2 and c.typearea in ('1','3') and c.discharge = '9' and c.nation = '099'

GROUP BY c.cid
ORDER BY b.date_serv DESC

#PROVIDER1_SQL#
Script Cron
Force Script Cron0
Active1
Client Office Type
Create Date2020-11-10 11:44:10
Last Update2021-02-01 09:49:48