= inpt.indd and code.cdid = inpt.fsexamflag) AS fsexamflag, /*+ index_desc(icdr IX_PMIHICDR_03) */ icdr.orddeptcd AS orddeptcd, icdr.medispclid AS doctorid, TO_DATE('$srchdd$') - TO_DATE(inpt.indd) AS hd, TRIM(ptbs.sex || '/' || LPAD(FLOOR(COM.FN_ZZ_GETAGE_EMR2('000000','0000000','$srchdd$', 'B', ptbs.brthdd) / 12), 2, 0) || 'y' || LPAD(MOD(COM.FN_ZZ_GETAGE_EMR2('000000','0000000','$srchdd$', 'B', ptbs.brthdd), 12), 2, 0) || 'm') AS sa, dept.depthngnm AS deptnm, dept.DEPTENGABBR AS deptengabbr, NVL((SELECT usernm FROM com.zsumusrb WHERE userid = icdr.medispclid AND userfromdd <= #srchdd# AND usertodd >= #srchdd#), '-') AS doctornm, (SELECT term.termengnm FROM emr.mmohdiag diag, emr.mrtmterm term WHERE diag.diagcd = term.termcd AND diag.instcd = term.instcd AND diag.diagdd >= term.termfromdd AND diag.diagdd <= term.termtodd AND diag.pid = inpt.pid AND diag.orddd = inpt.indd AND diag.cretno = inpt.cretno AND diag.orddeptcd = icdr.orddeptcd AND diag.instcd = inpt.instcd AND diag.diaghistcd = 'O' AND diag.diagtypecd = 'D' AND diag.diagkindcdflag = 'M' AND ROWNUM = 1) AS diagnm, CASE inpt.indschacptstat WHEN 'D' THEN '퇴원' WHEN 'T' THEN '가퇴원' ELSE (CASE inpt.dschnotiyn WHEN 'Y' THEN '퇴원통보' ELSE (CASE inpt.dschdclrtyn WHEN 'Y' THEN '퇴원예고' ELSE '-' END) END) END AS dschnoti, icdr.roomcd AS roomcd, CASE WHEN (SELECT COUNT(instcd) FROM emr.mmrhcnstinfo WHERE pid = inpt.pid AND orddd = inpt.indd AND cretno = inpt.cretno AND reqdd = #srchdd# AND chosflag IN ('I','E') AND cnstflag IN ('1','2') AND ROWNUM = 1) > 0 THEN 'Y' ELSE 'N' END AS cnst, icdr.ordtype AS ordtype, (SELECT z.cdnm FROM com.zbcmcode z WHERE inpt.insukind = z.cdid AND z.cdgrupid = 'P0008' AND inpt.indd BETWEEN z.valifromdd AND z.valitodd) AS bostyle, 'N' AS elbulbodstat, 'N' AS ordtm FROM pam.pmihinpt inpt, pam.pmihicdr icdr, com.zsdddept dept, pam.pmcmptbs ptbs ]]> , cmr.consent_mst mst , (select doc.* from cmr.eform_document doc where doc.CATEGORY_RID in (select cate.category_rid from cmr.eform_category cate where cate.p_category_rid = '147')) docu , (select doc.* from cmr.eform_document doc where doc.CATEGORY_RID in (select cate.category_rid from cmr.eform_category cate where cate.p_category_rid != '147')) docu = #srchdd# AND icdr.pid = ptbs.pid AND icdr.instcd = ptbs.instcd AND icdr.instcd = dept.instcd AND icdr.orddeptcd = dept.deptcd AND dept.orddeptflag = 'D' AND dept.orduseyn = 'Y' AND dept.valifromdd <= #srchdd# AND dept.valitodd >= #srchdd# ]]> AND icdr.pid = #pid# AND icdr.medispclid = #doctorid# AND icdr.wardcd = #wardcd# AND inpt.orddeptcd = #orddeptcd# AND icdr.indschacptstat IN ('D', 'T') AND inpt.indd = #srchdd# AND inpt.careinrmtm != '-' and inpt.instcd = mst.hos_type and inpt.pid = mst.pid and inpt.cretno = mst.cretno and inpt.ordtype = mst.visit_type and mst.use_yn = 'Y' and mst.consent_state = 'UNFINISHED' and docu.FORM_RID = mst.form_rid AND icdr.indschacptstat IN ('A', 'D', 'T') order by roomcd, hngnm = otpt.orddd and code.cdid = otpt.fsexamflag) AS fsexamflag, otpt.orddeptcd AS orddeptcd, otpt.orddrid AS doctorid, 1 AS hd, TRIM(ptbs.sex || '/' || LPAD(FLOOR(COM.FN_ZZ_GETAGE_EMR2('000000','0000000',otpt.orddd, 'B', ptbs.brthdd) / 12), 2, 0) || 'y' || LPAD(MOD(COM.FN_ZZ_GETAGE_EMR2('000000','0000000',otpt.orddd, 'B', ptbs.brthdd), 12), 2, 0) || 'm') AS sa, dept.depthngnm AS deptnm, dept.deptengabbr AS deptengabbr, usrb.usernm AS doctornm, (SELECT term.termengnm diagengnm FROM emr.mmohdiag diag, emr.mrtmterm term WHERE diag.pid = otpt.pid AND diag.orddd = otpt.orddd AND diag.cretno = otpt.cretno AND diag.orddeptcd = otpt.orddeptcd AND diag.instcd = otpt.instcd AND diag.diagcd = term.termcd AND diag.diagdd >= term.termfromdd AND diag.diagdd <= term.termtodd AND diag.instcd = term.instcd AND diag.diaghistcd = 'O' AND diag.diagtypecd = 'D' AND diag.diagkindcdflag = 'M' AND ROWNUM = 1) AS diagnm, 'N' AS dschnoti, 'N' AS roomcd, 'N' AS cnst, otpt.ordtype AS ordtype, (SELECT z.cdnm FROM com.zbcmcode z WHERE otpt.insukind = z.cdid AND z.cdgrupid = 'P0008' AND otpt.orddd BETWEEN z.valifromdd AND z.valitodd) AS bostyle, case when otpt.elbulbodstat='0' then '접수' when otpt.elbulbodstat = '1' then '대기' when otpt.elbulbodstat = '2' then '완료' when otpt.elbulbodstat = '3' then '보류' end AS elbulbodstat, substr(otpt.ordtm,1,2) || ':' || substr(otpt.ordtm,3,2) AS ordtm, otpt.centcd as centcd, cent.depthngnm as centnm, cent.deptengabbr as centengabbr, otpt.orddd FROM pam.pmohotpt otpt , pam.pmcmptbs ptbs , com.zsdddept dept , com.zsumusrb usrb , com.zsdddept cent WHERE otpt.histstat IN ('R', 'T') AND otpt.ordtype IN ('O', 'S') AND otpt.pid = ptbs.pid AND otpt.instcd = ptbs.instcd AND otpt.instcd = dept.instcd AND otpt.orddeptcd = dept.deptcd AND otpt.orddd >= dept.valifromdd AND otpt.orddd <= dept.valitodd AND otpt.orddrid = usrb.userid AND otpt.orddd >= usrb.userfromdd AND otpt.orddd <= usrb.usertodd AND otpt.instcd = cent.instcd(+) AND otpt.centcd = cent.deptcd(+) AND otpt.orddd >= cent.valifromdd(+) AND otpt.orddd <= cent.valitodd(+) ]]> AND otpt.orddd = #srchdd# AND otpt.instcd = #instcd# AND otpt.pid = #pid# and exists (select 1 from cmr.consent_mst mst where mst.hos_type = otpt.instcd and mst.visit_type = otpt.ordtype and mst.pid = otpt.pid and mst.cln_date = otpt.orddd and mst.cretno = otpt.cretno and mst.consent_state in ('UNFINISHED') and mst.use_yn = 'Y') AND otpt.elbulbodstat = #patstat# AND otpt.orddeptcd in ('2040000000', '2040400000') AND otpt.orddeptcd in ('2040000000', '2040400000') AND otpt.orddeptcd = #orddeptcd# AND otpt.orddrid = #orddrid# AND nvl(otpt.etcordflag,'-') NOT IN ('M','J') --2020.12.16 일자로 쿼리수정 ORDER BY dept.deptengabbr, ptbs.hngnm, usrb.usernm, otpt.ordtm = iphs.fromdd AND oprs.opcnfmdd <= iphs.todd AND iphs.histstat = 'Y' AND ROWNUM = 1), '없음') as roomcd, 'N' as cnst, (SELECT z.cdnm FROM com.zbcmcode z WHERE inpt.insukind = z.cdid AND z.cdgrupid = 'P0008' AND inpt.indd BETWEEN z.valifromdd AND z.valitodd) AS bostyle, 'N' as elbulbodstat, oprs.oppatflagcd as ordtype, case when oprs.oproomcd = '0000' then '방없음' when oprs.oproomcd = '0014' then 'Angio' when oprs.oproomcd = '0015' then 'ER' else substr(oprs.oproomcd, 3, 2) end as oproomnm, (select code.cdnm from com.zbcmcode code where code.cdgrupid = 'M0017' and code.cdid = oprs.anstmthdcd and code.valifromdd <= inpt.indd and code.valitodd >= inpt.indd) as anstreqflag , (SELECT MAX(CASE opcnfmno WHEN 1 THEN RTRIM(usernm) ELSE '' END) || MAX(CASE opcnfmno WHEN 2 THEN concat(', ', RTRIM(usernm)) ELSE '' END) || MAX(CASE opcnfmno WHEN 3 THEN concat(', ', RTRIM(usernm)) ELSE '' END) FROM emr.mmodocad mmod, com.zsumusrb usrb WHERE mmod.anstdrid = usrb.userid AND oprs.rgstdd >= usrb.userfromdd AND oprs.rgstdd <= usrb.usertodd AND mmod.oprsrvno = oprs.oprsrvno AND mmod.instcd = oprs.instcd) as anstdrnm , oprs.opcnfmdd FROM emr.mmohoprs oprs LEFT OUTER JOIN com.zsumusrb usrb ON usrb.userid = oprs.perfdrid AND usrb.userfromdd <= oprs.opcnfmdd AND usrb.usertodd >= oprs.opcnfmdd LEFT OUTER JOIN com.zsdddept dept ON dept.deptcd = oprs.perfdeptcd AND dept.orddeptflag = 'D' AND dept.orduseyn = 'Y' AND dept.instcd = oprs.instcd AND dept.valifromdd <= oprs.opcnfmdd AND dept.valitodd >= oprs.opcnfmdd, pam.pmcmptbs ptbs, pam.pmihinpt inpt WHERE oprs.pid = ptbs.pid AND oprs.instcd = ptbs.instcd AND oprs.instcd = inpt.instcd AND oprs.pid = inpt.pid AND oprs.opcnfmdd between inpt.indd and inpt.dschdd AND inpt.histstat = 'Y' AND inpt.mskind = 'M' AND oprs.opcnfmdd = #srchdd# AND oprs.instcd = #instcd# AND oprs.ophistcd = 'O' ]]> AND oprs.perfdeptcd in ('2040000000', '2040400000') AND oprs.perfdeptcd in ('2040000000', '2040400000') AND oprs.perfdeptcd = #orddeptcd# AND oprs.perfdrid = #orddrid# AND oprs.pid = #pid# AND oprs.opstatcd IN ('10','20','30','40','50','60','70') AND oprs.opstatcd IN ('10','20') AND oprs.opstatcd = '30' AND oprs.opstatcd = '40' AND oprs.opstatcd IN ('50', '60', '70') ORDER BY oproomnm, oprs.opendtmcd = usrb.userfromdd AND #srchdd# <= usrb.usertodd LEFT OUTER JOIN com.zsdddept dept ON inpt.orddeptcd = dept.deptcd AND #srchdd# >= dept.valifromdd AND #srchdd# <= dept.valitodd AND inpt.instcd = dept.instcd LEFT OUTER JOIN com.zsumusrb usrb1 ON inpt.ermedispclid = usrb1.userid AND #srchdd# >= usrb1.userfromdd AND #srchdd# <= usrb1.usertodd LEFT OUTER JOIN com.zsdddept dept1 ON inpt.erorddeptcd = dept1.deptcd AND #srchdd# >= dept1.valifromdd AND #srchdd# <= dept1.valitodd AND inpt.instcd = dept1.instcd, pam.pmihicdr icdr, pam.pmcmptbs ptbs ]]> , cmr.consent_mst mst , (select doc.* from cmr.eform_document doc where doc.CATEGORY_RID in (select cate.category_rid from cmr.eform_category cate where cate.p_category_rid = '147')) docu , (select doc.* from cmr.eform_document doc where doc.CATEGORY_RID in (select cate.category_rid from cmr.eform_category cate where cate.p_category_rid != '147')) docu = icdr.fromdd AND #srchdd# <= icdr.todd AND inpt.pid = ptbs.pid AND inpt.instcd = ptbs.instcd ]]> AND inpt.ermedispclid = #orddrid# AND inpt.erorddeptcd = #orddeptcd# = #srchdd#) ]]> AND icdr.indschacptstat = 'A' AND inpt.eroutdt != '-' AND inpt.eroutdt != '99991231235959' AND inpt.dschdd = '99991231' AND icdr.indschacptstat IN ('A', 'D', 'T') AND inpt.dschdd = #srchdd# and inpt.instcd = mst.hos_type and inpt.pid = mst.pid and inpt.cretno = mst.cretno and inpt.ordtype = mst.visit_type and mst.use_yn = 'Y' and mst.consent_state = 'UNFINISHED' and inpt.indd = mst.cln_date and docu.FORM_RID = mst.form_rid AND inpt.pid = #pid# order by indd desc, intm desc, hngnm asc = TO_CHAR(SYSDATE, 'YYYYMMDD') AND ROWNUM = 1) FROM pam.pmohotpt i WHERE i.pid = a.pid AND i.instcd = '111' AND i.histstat = 'R' AND i.dracptyn = 'Y' AND rownum = 1 ) lastinsukind FROM ( SELECT * FROM PAM.PMCMPTBS ptbs ]]> UNION ALL SELECT '4120300000' as deptcd, '일반건강증진' as deptnm, 0 as clincdeptdispseq, 1 as sort from dual =valifromdd AND TO_CHAR(CURRENT_DATE,'YYYYMMDD')<=valitodd ]]> AND orddeptflag = 'D' AND orduseyn = 'Y' ORDER BY sort, deptnm AND rcptuseyn = 'Y' ORDER BY clincdeptdispseq ASC SELECT ' ' as doctorid, '진료의' as doctornm, 1 as sort from dual UNION ALL SELECT b.userid AS doctorid, b.usernm AS doctornm, 2 as sort FROM com.zsumusrd a INNER JOIN com.zsumusrb b ON a.userid = b.userid WHERE a.psnworkyn = 'N' AND a.dutplceinstcd = #instcd# AND a.jobkindcd LIKE '03%' AND a.dutplcecd in ('2040000000', '2040400000') AND a.dutplcecd in ('2040000000', '2040400000') AND a.dutplcecd = #orddeptcd# and a.userid = '103043' AND #srchdd# BETWEEN a.fromdd AND a.todd AND #srchdd# BETWEEN b.userfromdd AND b.usertodd ORDER BY sort, doctorid = to_char(sysdate,'yyyymmdd') order by sort, deptnm asc ]]>