• Home
  • My Scripts
  • 4. 63-เด็กที่ได้รับยาน้ำเสริมธาตุเหล็ก และได้รับบรนิการคำปรึกษา 1B610

4. 63-เด็กที่ได้รับยาน้ำเสริมธาตุเหล็ก และได้รับบรนิการคำปรึกษา 1B610

Update Delete

ID815
Parent ID60
Table Name63_iron_syrup_advice_1b610
Title4. 63-เด็กที่ได้รับยาน้ำเสริมธาตุเหล็ก และได้รับบรนิการคำปรึกษา 1B610
Description
Script#SQL_OPTIONS#
PROVIDERS=1
PROVIDER1=43STD
PROVIDER1_VALIDATE_TABLES=ncdscreen,t_person_db
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;

#เด็กที่ได้รับยาน้ำเสริมธาตุเหล็ก และได้รับบรนิการคำปรึกษา 1B610
# by IT chonburi

SET @b_year :=(SELECT yearprocess FROM pk_byear LIMIT 1);
SET @prov_c := (SELECT provincecode FROM sys_config LIMIT 1);
SET @start_d :=concat(@b_year-1,'1001');
SET @end_d :=concat(@b_year,'0731');
SET @hct_d :=concat(@b_year-1,'0701');

SELECT SQL_BIG_RESULT
@b_year AS B_YEAR,
@prov_c AS PROV_C,
cchangwat.changwatname AS PROV_N, /* ชื่อจังหวัด */
chospital.distcode AS AMPUR_C , /* รหัสอำเภอ */
campur.ampurname AS AMPUR_N , /* ชื่ออำเภอ */
POP.vhid AS VHID,
CONCAT(POP.HOSPCODE,chospital.hosname) AS HOSP_N , /*ชื่อหน่วยบริการ */
POP.CID,POP.PID,POP.`NAME`,POP.LNAME,POP.BIRTH as BIRTHDAY,
POP.TYPEAREA

,CASE WHEN specialpp.DATE_SERV BETWEEN @start_d and @end_d and POP.NATION = '099' and specialpp.SEQ is not NULL then TIMESTAMPDIFF(MONTH,POP.BIRTH,specialpp.DATE_SERV) ELSE NULL end AS AGE_M_SPECIALPP /*' อายุ(เดือน) ณ วันที่รับบริการ specialpp' */
,CASE WHEN specialpp.DATE_SERV BETWEEN @start_d and @end_d and POP.NATION = '099' and specialpp.SEQ is not NULL then concat(specialpp.HOSPCODE,'-',specialpp.SEQ) ELSE NULL END as SEQ_SPECIALPP
,CASE WHEN specialpp.DATE_SERV BETWEEN @start_d and @end_d and POP.NATION = '099' and specialpp.SEQ is not NULL then specialpp.DATE_SERV ELSE NULL end as DATE_SERV_SPECIALPP
,CASE WHEN specialpp.DATE_SERV BETWEEN @start_d and @end_d and POP.NATION = '099' and specialpp.SEQ is not NULL then specialpp.PPSPECIAL ELSE NULL end as PPSPECIAL

FROM t_person_db POP
INNER JOIN chospital ON chospital.hoscode = POP.HOSPCODE
INNER JOIN cchangwat ON cchangwat.changwatcode = @prov_c
INNER JOIN campur ON campur.ampurcodefull = CONCAT(chospital.provcode,chospital.distcode)
INNER JOIN tmp_drug_opd DR ON DR.HOSPCODE=POP.HOSPCODE AND DR.PID=POP.PID /* drug_opd */
AND SUBSTR(DR.DIDSTD,1,19) IN(
'1004890000008103305'
,'1004890000009501305'
,'1004974140020403305'
,'1004974140008008305'
,'1004890000009507305'
,'2020301200871801305'
,'1004880000086342304'
,'1004880000012801308'
,'1004880000042031217'
,'1004880000012801304' )
AND DR.date_serv BETWEEN @start_d AND @end_d

INNER JOIN specialpp on POP.HOSPCODE = specialpp.HOSPCODE and POP.PID = specialpp.PID
and specialpp.PPSPECIAL = '1B610'
and specialpp.DATE_SERV BETWEEN @start_d AND @end_d

WHERE
(TIMESTAMPDIFF(MONTH,POP.BIRTH,specialpp.DATE_SERV)BETWEEN 6 AND 24)
and (specialpp.DATE_SERV BETWEEN @start_d AND @end_d)
and POP.NATION = '099' AND POP.DISCHARGE = '9'
group by POP.HOSPCODE,POP.PID
ORDER BY campur.ampurname,specialpp.HOSPCODE,specialpp.PID,SEQ_specialpp ASC;



#PROVIDER1_SQL#
Script Cron
Force Script Cron0
Active1
Client Office Type
Create Date2020-05-14 02:38:29
Last Update2020-06-29 03:55:23