| SQL Id | SQL Text |
|---|
| 029wvmh5kw7yt | Call Zl_电子病历内容_Update(:V001, :V002, :V003, :V004, :V005, :V006, :V007, :V008, :V009, :V010, :V011, :V012) |
| 04qrc6aff6mgy |
SELECT 信息行 FROM ( SELECT 部门ID, 接收科室, -1 当前床号, '科室：'||接收科室||' 共 '||COUNT(当前床号)||' 位病人' 信息行, -1 序号 FROM (SELECT T.住院号, T.姓名 AS 病人, T.当前床号, D.名称 库房, E.ID 部门ID, E.名称 接收科室 FROM ZLHIS.部门表 E, ZLHIS.住院费用记录 C, ZLHIS.部门表 D, ZLHIS.药品收发记录 S, ZLHIS.病人信息 T WHERE C.病人ID=T.病人ID AND C.主页ID=T.住院次数 AND S.费用ID=C.ID AND C.收费类别 IN ('5', '6', '7') AND C.病人病区ID=E.ID AND S.审核人 IS NOT NULL AND S.单据 IN (8, 9, 10) AND S.发药方式=3 AND S.库房ID=D.ID AND 汇总发药号 =:V001 GROUP BY D.名称, E.ID, E.名称, T.姓名, T.当前床号, T.住院号) A GROUP BY 部门ID, 接收科室 UNION ALL SELECT DISTINCT 部门ID, 接收科室, NVL(当前床号, 住院号)+0 当前床号, ' 病人姓名：'||病人||' 住院号：'||住院号||' 床号：'||当前床号 信息行, 0 序号 FROM (SELECT T.住院号, T.姓名 AS 病人, T.当前床号, D.名称 库房, E.ID 部门ID, E.名称 接收科室 FROM ZLHIS.部门表 E, ZLHIS.住院费用记录 C, ZLHIS.部门表 D, ZLHIS.药品收发记录 S, ZLHIS.病人信息 T WHERE C.病人ID=T.病人ID AND C.主页ID=T.住院次数 AND S.费用ID=C.ID AND C.收费类别 IN ('5', '6', '7') AND C.病人病区ID=E.ID AND S.审核人 IS NOT NULL AND S.单据 IN (8, 9, 10) AND S.发药方式=3 AND S.库房ID=D.ID AND 汇总发药号 =:V002 GROUP BY D.名称, E.ID, E.名称, T.姓名, T.当前床号, T.住院号) A UNION ALL SELECT A.部门ID, A.接收科室, A.当前床号+0 当前床号, ' '||A.信息行||'|| '||B.信息行||'|| '||C.信息行 AS 信息行, A.行 序号 FROM ( SELECT ROWNUM 行, A.* FROM ( SELECT B.部门ID, B.接收科室, NVL(B.当前
床号, B.住院号) 当前床号, DECODE(NVL(A.药品名称, ''), '', '', RPAD(A.药品名称, 16, ' ')||' '||RPAD(A.规格, 8, ' ')||' ' ||RPAD(REPLACE(TRIM(TO_CHAR(A.数量, '99990.00')), '.00', ''), 6, ' ')||RPAD(A.单位, 4, ' ')) 信息行, B.住院号, B.病人, B.序号 FROM ( SELECT 部门ID, 接收科室, NVL(当前床号, 住院号) 当前床号, 病人, 药品名称, 规格, 数量, 单位, 住院号, ROW_NUMBER() OVER(PAR
TITION BY 部门ID, 接收科室, 病人, 当前床号 ORDER BY 当前床号, 病人, 药品名称) 序号 FROM (SELECT A.住院号, A.病人, A.当前床号, DECODE(B.名称, NULL, C.名称, B.名称) AS 药品名称, C.规格, C.产地, DECODE(S.住院包装, 'S.门诊包装', S.门诊单位, S.住院单位) AS 单位, A.部门ID, A.接收科室, ROUND(A.数量/S.住院包装, 3)||' ' AS 数量, ROUND(A.单价*S.住院包装, 4) AS 单价, A.金额, 退药 FROM (SELECT 名称, 收费细目ID FROM ZLHIS.收费项目别名 WHERE 性质=3 AND 码类=1) B, ZLHIS.收费项目目录 C, ZLHIS.药品规格 S, ZLHIS.药品特性 D, (SELECT T.住院号, T.姓名 AS 病人, T.当前床号, E.ID 部门ID, E.名称 接收科室, S.药品ID, SUM(S.实际数量*NVL(S.付数, 1)) 数量, S.零售价 单价, SUM(S.零售金额) 金额, DECODE(SIGN(SUM(S.零售金额)), -1, '退', '发') 退药 FROM ZLHIS.部门表 E, ZLHIS.住院费用记录 C, ZLHIS.部门表 D, ZLHIS.药品收发记录 S, ZLHIS.病人信息 T WHERE C.病人ID=T.病人ID AND C.主页ID=T.住院次数 AND S.费用ID=C.ID AND C.收费类别 IN ('5', '6', '7') AND C.病人病区ID=E.ID AND S.审核人 IS NOT NULL AND S.单据 IN (8, 9, 10) AND S.发药方式=3 AND S.库房ID=D.ID AND 汇总发药号 =:V003 GROUP BY D.名称, E.ID, E.名称, S.药品ID, S.零售价, T.姓名, T.当前床号, T.住院号) A WHERE A.药品ID=C.ID AND C.ID=B.收费细目ID(+) AND C.ID=S.药品ID AND S.药名ID=D.药名ID AND D.药品剂型<>'大输液' ) A) A, (SELECT * FROM (SELECT 部门ID, 接收科室, 当前床号, 住院号, 病人, DECODE(MOD(MAX(序号), 3), 1, MAX(序号)+2, 2, MAX(序号)+1, MAX(序号)) 最大序号 FROM ( SELECT 部门ID, 接收科室, NVL(当前床号, 住院号) 当前床号, RPAD(病人, 8, ' ')||'|'||RPAD(当前
床号, 3, ' ')||'|'||RPAD(药品名称, 16, ' ')||' '||RPAD(规格, 8, ' ')||' ' ||RPAD(REPLACE(TRIM(TO_CHAR(A.数量, '99990.00')), '.00', ''), 6, ' ')||' '||RPAD(单位, 6, ' ') 信息行, 住院号, 病人, ROW_NUMBER() OVER(PARTITION BY 部门ID, 接收科室, 病人, 当前床号 ORDER BY 当前床号, 病人, 药品名称) 序号 FROM (SELECT A.住院号, A.病人, A.当前床号, DECODE(B.名称, NULL, C.名称, B.名
称) AS 药品名称, C.规格, C.产地, DECODE(S.住院包装, 'S.门诊包装', S.门诊单位, S.住院单位) AS 单位, A.部门ID, A.接收科室, ROUND(A.数量/S.住院包装, 3)||' ' AS 数量, ROUND(A.单价*S.住院包装, 4) AS 单价, A.金额, 退药 FROM (SELECT 名称, 收费细目ID FROM ZLHIS.收费项目别名 WHERE 性质=3 AND 码类=1) B, ZLHIS.收费项目目录 C, ZLHIS.药品规格 S, ZLHIS.药品特性 D, (SELECT T.住院号, T.姓名 AS 病人, T.当前床号, E.ID 部门ID, E.名称 接收科室, S.药品ID, SUM(S.实际数量*NVL(S.付数, 1)) 数量, S.零售价 单价, SUM(S.零售金额) 金额, DECODE(SIGN(SUM(S.零售金额)), -1, '退', '发') 退药 FROM ZLHIS.部门表 E, ZLHIS.住院费用记录 C, ZLHIS.部门表 D, ZLHIS.药品收发记录 S, ZLHIS.病人信息 T WHERE C.病人ID=T.病人ID AND C.主页ID=T.住院次数 AND S.费用ID=C.ID AND C.收费类别 IN ('5', '6', '7') AND C.病人病区ID=E.ID AND S.审核人 IS NOT NULL AND S.单据 IN (8, 9, 10) AND S.发药方式=3 AND S.库房ID=D.ID AND 汇总发药号 =:V004 GROUP BY D.名称, E.ID, E.名称, S.药品ID, S.零售价, T.姓名, T.当前床号, T.住院号) A WHERE A.药品ID=C.ID AND C.ID=B.收费细目ID(+) AND C.ID=S.药品ID AND S.药名ID=D.药名ID AND D.药品剂型<>'大输液' ) A ) A GROUP BY 部门ID, 接收科室, 当前床号, 住院号, 病人) A, (SELECT ROWNUM 序号 FROM ZLHIS.部门表) B WHERE B.序号<=A.最大序号 ) B WHERE A.部门ID(+)=B.部门ID AND A.接收科室(+)=B.接收科室 AND A.当前床号(+)=B.当前床号 AND A.住院号(+)=B.住院号 AND B.序号=A.序号(+) ORDER BY B.部门ID, B.接收科室, B.当前床号, A.序号 ) A WHERE MOD(序号, 3)=1 ) A, ( SELECT ROWNUM 行, A.* FROM ( SELECT B.部门ID, B.接收科室, NVL
(B.当前床号, B.住院号) 当前床号, DECODE(NVL(A.药品名称, ''), '', '', RPAD(A.药品名称, 16, ' ')||' '||RPAD(A.规格, 8, ' ')||' ' ||RPAD(REPLACE(TRIM(TO_CHAR(A.数量, '99990.00')), '.00', ''), 6, ' ')||RPAD(A.单位, 4, ' ')) 信息行, B.住院号, B.病人, B.序号 FROM ( SELECT 部门ID, 接收科室, NVL(当前床号, 住院号) 当前床号, 病人, 药品名称, 规格, 数量, 单位, 住院号, ROW_NUMBER(
) OVER(PARTITION BY 部门ID, 接收科室, 病人, 当前床号 ORDER BY 当前床号, 病人, 药品名称) 序号 FROM (SELECT A.住院号, A.病人, A.当前床号, DECODE(B.名称, NULL, C.名称, B.名称) AS 药品名称, C.规格, C.产地, DECODE(S.住院包装, 'S.门诊包装', S.门诊单位, S.住院单位) AS 单位, A.部门ID, A.接收科室, ROUND(A.数量/S.住院包装, 3)||' ' AS 数量, ROUND(A.单价*S.住院包装, 4) AS 单价, A.金额, 退药 FROM (SELECT 名称, 收费细目ID FROM ZLHIS.收费项目别名 WHERE 性质=3 AND 码类=1) B, ZLHIS.收费项目目录 C, ZLHIS.药品规格 S, ZLHIS.药品特性 D, (SELECT T.住院号, T.姓名 AS 病人, T.当前床号, E.ID 部门ID, E.名称 接收科室, S.药品ID, SUM(S.实际数量*NVL(S.付数, 1)) 数量, S.零售价 单价, SUM(S.零售金额) 金额, DECODE(SIGN(SUM(S.零售金额)), -1, '退', '发') 退药 FROM ZLHIS.部门表 E, ZLHIS.住院费用记录 C, ZLHIS.部门表 D, ZLHIS.药品收发记录 S, ZLHIS.病人信息 T WHERE C.病人ID=T.病人ID AND C.主页ID=T.住院次数 AND S.费用ID=C.ID AND C.收费类别 IN ('5', '6', '7') AND C.病人病区ID=E.ID AND S.审核人 IS NOT NULL AND S.单据 IN (8, 9, 10) AND S.发药方式=3 AND S.库房ID=D.ID AND 汇总发药号 =:V005 GROUP BY D.名称, E.ID, E.名称, S.药品ID, S.零售价, T.姓名, T.当前床号, T.住院号) A WHERE A.药品ID=C.ID AND C.ID=B.收费细目ID(+) AND C.ID=S.药品ID AND S.药名ID=D.药名ID AND D.药品剂型<>'大输液' ) A) A, (SELECT * FROM (SELECT 部门ID, 接收科室, 当前床号, 住院号, 病人, DECODE(MOD(MAX(序号), 3), 1, MAX(序号)+2, 2, MAX(序号)+1, MAX(序号)) 最大序号 FROM ( SELECT 部门ID, 接收科室, NVL(当前床号, 住院号) 当前床号, RPAD(病人, 8, ' ')||'|'||
RPAD(当前床号, 3, ' ')||'|'||RPAD(药品名称, 16, ' ')||' '||RPAD(规格, 8, ' ')||' ' ||RPAD(数量, 6, ' ')||' '||RPAD(单位, 6, ' ') 信息行, 住院号, 病人, ROW_NUMBER() OVER(PARTITION BY 部门ID, 接收科室, 病人, 当前床号 ORDER BY 当前床号, 病人, 药品名称) 序号 FROM (SELECT A.住院号, A.病人, A.当前床号, DECODE(B.名称, NULL, C.名称, B.名称) AS 药品名称, C.规格, C.产地, DECODE(S.住院包装,
'S.门诊包装', S.门诊单位, S.住院单位) AS 单位, A.部门ID, A.接收科室, ROUND(A.数量/S.住院包装, 3)||' ' AS 数量, ROUND(A.单价*S.住院包装, 4) AS 单价, A.金额, 退药 FROM (SELECT 名称, 收费细目ID FROM ZLHIS.收费项目别名 WHERE 性质=3 AND 码类=1) B, ZLHIS.收费项目目录 C, ZLHIS.药品规格 S, ZLHIS.药品特性 D, (SELECT T.住院号, T.姓名 AS 病人, T.当前床号, E.ID 部门ID, E.名称 接收科室, S.药品ID, SUM(S.实际数量*NVL(S.付数, 1)) 数量, S.零售价 单价, SUM(S.零售金额) 金额, DECODE(SIGN(SUM(S.零售金额)), -1, '退', '发') 退药 FROM ZLHIS.部门表 E, ZLHIS.住院费用记录 C, ZLHIS.部门表 D, ZLHIS.药品收发记录 S, ZLHIS.病人信息 T WHERE C.病人ID=T.病人ID AND C.主页ID=T.住院次数 AND S.费用ID=C.ID AND C.收费类别 IN ('5', '6', '7') AND C.病人病区ID=E.ID AND S.审核人 IS NOT NULL AND S.单据 IN (8, 9, 10) AND S.发药方式=3 AND S.库房ID=D.ID AND 汇总发药号 =:V006 GROUP BY D.名称, E.ID, E.名称, S.药品ID, S.零售价, T.姓名, T.当前床号, T.住院号) A WHERE A.药品ID=C.ID AND C.ID=B.收费细目ID(+) AND C.ID=S.药品ID AND S.药名ID=D.药名ID AND D.药品剂型<>'大输液' ) A ) A GROUP BY 部门ID, 接收科室, 当前床号, 住院号, 病人) A, (SELECT ROWNUM 序号 FROM ZLHIS.部门表) B WHERE B.序号<=A.最大序号 ) B WHERE A.部门ID(+)=B.部门ID AND A.接收科室(+)=B.接收科室 AND A.当前床号(+)=B.当前床号 AND A.住院号(+)=B.住院号 AND B.序号=A.序号(+) ORDER BY B.部门ID, B.接收科室, B.当前床号, A.序号 ) A WHERE MOD(序号, 3)=2 ) B, ( SELECT ROWNUM 行, A.* FROM ( SELECT B.部门ID, B.接收科室, NVL(B.当前床号, B.住院号) 当前床号, DECODE(NVL(A.药品名
称, ''), '', '', RPAD(A.药品名称, 16, ' ')||' '||RPAD(A.规格, 8, ' ')||' ' ||RPAD(REPLACE(TRIM(TO_CHAR(A.数量, '99990.00')), '.00', ''), 6, ' ')||RPAD(A.单位, 4, ' ')) 信息行, B.住院号, B.病人, B.序号 FROM ( SELECT 部门ID, 接收科室, NVL(当前床号, 住院号) 当前床号, 病人, 药品名称, 规格, 数量, 单位, 住院号, ROW_NUMBER() OVER(PARTITION BY 部门ID, 接收科室, 病人, 当前床
号 ORDER BY 当前床号, 病人, 药品名称) 序号 FROM (SELECT A.住院号, A.病人, A.当前床号, DECODE(B.名称, NULL, C.名称, B.名称) AS 药品名称, C.规格, C.产地, DECODE(S.住院包装, 'S.门诊包装', S.门诊单位, S.住院单位) AS 单位, A.部门ID, A.接收科室, ROUND(A.数量/S.住院包装, 3)||' ' AS 数量, ROUND(A.单价*S.住院包装, 4) AS 单价, A.金额, 退药 FROM (SELECT 名称, 收费细目ID FROM ZLHIS.收费项目别名 WHERE 性质=3 AND 码类=1) B, ZLHIS.收费项目目录 C, ZLHIS.药品规格 S, ZLHIS.药品特性 D, (SELECT T.住院号, T.姓名 AS 病人, T.当前床号, E.ID 部门ID, E.名称 接收科室, S.药品ID, SUM(S.实际数量*NVL(S.付数, 1)) 数量, S.零售价 单价, SUM(S.零售金额) 金额, DECODE(SIGN(SUM(S.零售金额)), -1, '退', '发') 退药 FROM ZLHIS.部门表 E, ZLHIS.住院费用记录 C, ZLHIS.部门表 D, ZLHIS.药品收发记录 S, ZLHIS.病人信息 T WHERE C.病人ID=T.病人ID AND C.主页ID=T.住院次数 AND S.费用ID=C.ID AND C.收费类别 IN ('5', '6', '7') AND C.病人病区ID=E.ID AND S.审核人 IS NOT NULL AND S.单据 IN (8, 9, 10) AND S.发药方式=3 AND S.库房ID=D.ID AND 汇总发药号 =:V007 GROUP BY D.名称, E.ID, E.名称, S.药品ID, S.零售价, T.姓名, T.当前床号, T.住院号) A WHERE A.药品ID=C.ID AND C.ID=B.收费细目ID(+) AND C.ID=S.药品ID AND S.药名ID=D.药名ID AND D.药品剂型<>'大输液' ) A) A, (SELECT * FROM (SELECT 部门ID, 接收科室, 当前床号, 住院号, 病人, DECODE(MOD(MAX(序号), 3), 1, MAX(序号)+2, 2, MAX(序号)+1, MAX(序号)) 最大序号 FROM ( SELECT 部门ID, 接收科室, NVL(当前床号, 住院号) 当前床号, RPAD(病人, 8, ' ')||'|'||RPAD(当前床号, 3, ' ')||'|'||RPAD(药品名称, 16, '
')||' '||RPAD(规格, 8, ' ')||' ' ||RPAD(数量, 6, ' ')||' '||RPAD(单位, 6, ' ') 信息行, 住院号, 病人, ROW_NUMBER() OVER(PARTITION BY 部门ID, 接收科室, 病人, 当前床号 ORDER BY 当前床号, 病人, 药品名称) 序号 FROM (SELECT A.住院号, A.病人, A.当前床号, DECODE(B.名称, NULL, C.名称, B.名称) AS 药品名称, C.规格, C.产地, DECODE(S.住院包装, 'S.门诊包装', S.门诊单位, S.住院单位) AS 单位, A.部门ID
, A.接收科室, ROUND(A.数量/S.住院包装, 3)||' ' AS 数量, ROUND(A.单价*S.住院包装, 4) AS 单价, A.金额, 退药 FROM (SELECT 名称, 收费细目ID FROM ZLHIS.收费项目别名 WHERE 性质=3 AND 码类=1) B, ZLHIS.收费项目目录 C, ZLHIS.药品规格 S, ZLHIS.药品特性 D, (SELECT T.住院号, T.姓名 AS 病人, T.当前床号, E.ID 部门ID, E.名称 接收科室, S.药品ID, SUM(S.实际数量*NVL(S.付数, 1)) 数量, S.零售价 单价, SUM(S.零售金额) 金额, DECODE(SIGN(SUM(S.零售金额)), -1, '退', '发') 退药 FROM ZLHIS.部门表 E, ZLHIS.住院费用记录 C, ZLHIS.部门表 D, ZLHIS.药品收发记录 S, ZLHIS.病人信息 T WHERE C.病人ID=T.病人ID AND C.主页ID=T.住院次数 AND S.费用ID=C.ID AND C.收费类别 IN ('5', '6', '7') AND C.病人病区ID=E.ID AND S.审核人 IS NOT NULL AND S.单据 IN (8, 9, 10) AND S.发药方式=3 AND S.库房ID=D.ID AND 汇总发药号 =:V008 GROUP BY D.名称, E.ID, E.名称, S.药品ID, S.零售价, T.姓名, T.当前床号, T.住院号) A WHERE A.药品ID=C.ID AND C.ID=B.收费细目ID(+) AND C.ID=S.药品ID AND S.药名ID=D.药名ID AND D.药品剂型<>'大输液' ) A ) A GROUP BY 部门ID, 接收科室, 当前床号, 住院号, 病人) A, (SELECT ROWNUM 序号 FROM ZLHIS.部门表) B WHERE B.序号<=A.最大序号 ) B WHERE A.部门ID(+)=B.部门ID AND A.接收科室(+)=B.接收科室 AND A.当前床号(+)=B.当前床号 AND A.住院号(+)=B.住院号 AND B.序号=A.序号(+) ORDER BY B.部门ID, B.接收科室, B.当前床号, A.序号 ) A WHERE MOD(序号, 3)=0 ) C WHERE A.行=B.行(+) AND A.行=C.行(+) ORDER BY 部门ID, 当前床号, 序号 ) |
| 056ujk3r2dtu9 | Call Zl_检验图像结果_Update(:V001, :V002, :V003, :V004, :V005) |
| 0703mh7ff2gvv |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((840651, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((840651, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((840651, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.
当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号,
M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((840651, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分
类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1)
AND (A.病人ID, A.主页ID) IN((840651, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEX
ECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱
状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((840651, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| 1j83wbw9nwaxm |
Select /*+ RULE */ A.ID, A.相关ID, A.序号, Nvl(A.婴儿, 0) as 婴儿ID, A.医嘱状态, Nvl(A.诊疗类别, '*') as 诊疗类别, B.操作类型, C.毒理分类, A.紧急标志 as 标志, A.审查结果, Decode(Nvl(A.医嘱期效, 0), 0, '长嘱', '临嘱') as 期效, To_Char(A.开始执行时间, 'YYYY-MM-DD HH24:MI') as 开始时间, A.医嘱内容, Null as 内容, A.皮试结果 as 皮试, Decode(A.总给予量, NULL, NULL, Decode(A.诊疗类别, 'E', Decode(B.操作类型, '4', A.总给予量||'付', A.总给予量||B.计算单位), '4', A.总给予量||G.计算单位, '5', Round(A.总给予量/D.住院包装, 5)||D.住院单位, '6', Round(A.总给予量/D.住院包装, 5)||D.住院单位, A.总给予量||B.计算单位)) as 总量, Decode(A.首次用量, Null, '', A.首次用量 || Decode(A.诊疗类别, '4', G.计算单位, B.计算单位) || ':') || Decode(A.单次用量, NULL, NULL, decode(sign(1-A.单次用量), 1, '0'||A.单次用量, A.单次用量)||Decode(A.诊疗类别, '4', G.计算单位, B.计算单位)) as 单量, A.天数, A.执行频次 as 频率, Decode(A.诊疗类别, 'E', Decode(Instr('2468', Nvl(B.操作类型, '0')), 0, NULL, B.名称), NULL) as 用法, A.医生嘱托, A.执行时间方案 as 执行时间, To_Char(A.执行终止时间, 'YYYY-MM-DD HH24:MI') as 终止时间, Nvl(E.名称, Decode(Nvl(A.执行性质, 0), 0, '<叮嘱>', 5, '<院外执行>')) as 执行科室, Decode(Instr('567E', Nvl(A.诊疗类别, '*')), 0, NULL, A.执行性质) as 执行性质, To_Char(A.上次执行时间, 'YYYY-MM-DD HH24:MI') as 上次执行, Decode(A.医嘱状态, 1, '新开', 2, '疑问', 3, '校对', 4, '作废', 5, '重整', 6, '暂停', 7, '启用', 8, '停止', 9, '确认停止') as 状态, A.开嘱医生, To_Char(A.开嘱时间
, 'YYYY-MM-DD HH24:MI') as 开嘱时间, A.校对护士, To_Char(A.校对时间, 'YYYY-MM-DD HH24:MI') as 校对时间, A.停嘱医生, To_Char(A.停嘱时间, 'YYYY-MM-DD HH24:MI') as 停嘱时间, F.操作人员 as 停嘱护士, To_Char(A.确认停嘱时间, 'YYYY-MM-DD HH24:MI') as 确认停嘱时间, A.诊疗项目ID, B.试管编码, A.执行标记, A.屏蔽打印, A.前提ID, Decode(S.签名ID, NULL, 0, 1) as 签名否, M.病历文件ID as 文
件ID, Nvl(N.通用, 0) as 报告项, Y.病历ID as 报告ID, Y.查阅状态, A.收费细目ID, B.计算单位 as 单量单位, A.开嘱科室ID, A.审核状态, A.申请序号, (Select To_Char(Max(P.打印时间), 'YYYY-MM-DD HH24:MI')From 病人医嘱打印 P Where a.Id = p.医嘱id And p.打印标记 = 0) As 打印时间, A.审核标记, Decode(D.基本药物, null, 0, 1) as 基本药物, d.高危药品 From 病人医嘱记录 A, 部门表 E, 药品特性 C, 药品规格 D, 诊疗项目目录 B, 收费项目目录 G, 病人医嘱状态 F, 病人医嘱状态 S, 病人医嘱报告 Y, 病历单据应用 M, 病历文件列表 N Where A.诊疗项目ID=B.ID(+) And A.执行科室ID=E.ID(+) And A.诊疗项目ID=C.药名ID(+) And A.收费细目ID=D.药品ID(+) And A.收费细目ID=G.ID(+) And A.ID=Y.医嘱ID(+) And (Not(A.诊疗类别 IN ('F', 'G', 'D', 'E') And A.相关ID is Not NULL) Or A.诊疗类别='E' And B.操作类型='8') And A.ID=F.医嘱ID(+) And F.操作类型(+)=9 And A.ID=S.医嘱ID And S.操作类型=1 And A.诊疗项目ID=M.诊疗项目ID(+) And M.应用场合(+)=2 And M.病历文件ID=N.ID(+) And N.种类(+)=7 And A.病人ID=:V001 And A.主页ID=:V002 And A.开始执行时间 is Not NULL And Nvl(A.医嘱状态, 0)<>-1 And A.病人来源<>3 Order by 婴儿ID, 序号 |
| 1p10cgx683r7n | SELECT COUNT(0) FROM 病人诊断记录 A, V_疾病药品对照 B WHERE A.病人ID = :B2 AND A.主页ID = :B1 AND A.疾病ID = B.疾病ID |
| 2w02jam1rfu7m |
Select A.ID, A.类别 as 类别ID, B.序号 as 顺序ID, B.名称 as 类别, A.编码, A.名称, A.商品名, A.简码, D.住院单位 as 单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Decode(A.是否变价, 1, '时价', LTrim(To_Char(Sum(C.现价)*Nvl(D.住院包装, 1), '9999990.00000'))) as 单价, NULL as 库存 From ( Select Distinct A.ID, A.类别, A.编码, B.名称, Null as 商品名, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, Null 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A Where A.ID=B.收费细目ID And A.服务对象 IN(:V001, 3) And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.编码 Like :V002 And B.码类=:V003 Or B.名称 Like :V004 And B.码类=:V005 Or B.简码 Like :V006 And B.码类 IN(:V007, 3))) A, 收费项目类别 B, 收费价目 C, 药品规格 D, 诊疗项目目录 E Where A.类别=B.编码 And A.ID=C.收费细目ID And ( (instr( ';6;7;', ';'||A.类别||';', 1)>0 and nvl(D.中药形态, 0)=:V008) or A.类别='5') And A.ID=D.药品ID And D.药名ID=E.ID And Sysdate Between C.执行日期 and Nvl(C.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, B.序号, B.名称, A.编码, A.名称, A.商品名, A.简码, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, A.是否变价, D.住院单位, D.住院包装 Union ALL Select A.ID, A.类别 as 类别ID, B.序号 as 顺序ID, B.名称 as 类别, A.编码, A.名称, NULL as 商品名, A.简码, A.计算单位 as 单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Decode(A.是否变价, 1, '时价', LTrim(To_Char(
Sum(C.现价), '9999990.00000'))) as 单价, NULL as 库存 From ( Select Distinct A.ID, A.类别, A.编码, B.名称, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, Null 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A Where A.服务对象 IN(:V009, 3) And A.ID=B.收费细目ID And A.类别='4' And (A.编码 Like :V010 Or
B.名称 Like :V011 Or B.简码 Like :V012) And B.码类=:V013 And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null)) A, 收费项目类别 B, 收费价目 C, 材料特性 D, 诊疗项目目录 E Where A.类别=B.编码 And A.ID=C.收费细目ID And A.ID=D.材料ID And D.诊疗ID=E.ID And nvl(D.核算材料 , 0)=0 And Sysdate Between C.执行日期 and Nvl(C.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, B.序号, B.名称, A.编码, A.名称, A.简码, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, A.是否变价, A.计算单位 Union ALL Select A.ID, A.类别 as 类别ID, B.序号 as 顺序ID, B.名称 as 类别, A.编码, A.名称, NULL as 商品名, A.简码, A.计算单位 as 单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Decode(A.是否变价, 1, '变价', LTrim(To_Char(Sum(C.现价), '9999990.00000'))) as 单价, NULL as 库存 From 收费价目 C, ( Select Distinct A.ID, A.类别, A.编码, B.名称, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, Null 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A Where A.ID=B.收费细目ID And A.服务对象 IN(:V014, 3) And A.类别 Not IN('4', '5', '6', '7', '1') And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.编码 Like :V015 Or B.名称 Like :V016 Or B.简码 Like :V017) And B.码类=:V018) A, 收费项目类别 B Where A.类别=B.编码 And A.ID=C.收费细目ID And Sysdate Between C.执行日期+0 and Nvl(C.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by
A.ID, A.类别, B.序号, B.名称, A.编码, A.名称, A.简码, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, A.是否变价, A.计算单位 Order by 顺序ID, 编码
|
| 36a83a2qpm86g |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((838936, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((838936, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((838936, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.
当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号,
M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((838936, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分
类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1)
AND (A.病人ID, A.主页ID) IN((838936, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEX
ECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱
状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((838936, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| 3hw7h9fx02k3z |
Select /*+ rule*/Rownum as KeyID, A.* From (Select A.*, R.频度 as 频度ID From ( Select A.类别 AS 类别ID, E.ID as 诊疗项目ID, A.ID as 收费细目ID, F.名称 AS 类别, Decode(C.基本药物, Null, Null, '*') as 基本, A.编码, A.名称, A.商品名, A.简码, E.计算单位, A.规格, A.产地, D.药品剂型, Null as 项目特性, A.费用类型, A.医保大类, A.说明, D.处方职务 as 处方职务ID, Decode(A.价格, NULL, NULL, A.价格*C.住院包装||'/'||C.住院单位) as 价格, Decode(X.库存, NULL, NULL, Round(X.库存/C.住院包装, 5)||C.住院单位) as 库存, Decode(d.抗生素, 0, '', 1, '非限制使用', 2, '限制使用', 3, '特殊使用') as 抗菌等级 From 药品规格 C, 药品特性 D, 诊疗项目目录 E, 收费项目类别 F, (Select A.ID, A.类别, A.编码, A.名称, A.商品名, A.简码, A.零售单位, A.零售包装, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Sum(Decode(A.是否变价, 1, NULL, B.现价)) as 价格 From 收费价目 B, (Select A.ID, A.类别, A.编码, B.名称, Null as 商品名, B.简码, A.计算单位 as 零售单位, 1 as 零售包装, A.规格, A.产地, A.费用类型, Null as 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A Where A.ID=B.收费细目ID And A.类别 IN ('5', '6', '7') And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.服务对象 IN(:V001, 3) Or :V002=3 And Nvl(A.服务对象, 0)<>0) And (A.编码 Like :V003 And B.码类=:V004 Or B.名称 Like :V005 And B.码类=:V006 Or B.简码 Like :V007 And B.码类 IN(:V008, 3))) A Where A.ID=B.收费细目ID And Sysdate Between B.执行日期 And Nvl(B.终止日期, To_Date('3
000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, A.编码, A.名称, A.商品名, A.简码, A.零售单位, A.零售包装, A.规格, A.产地, A.费用类型, A.医保大类, A.说明) A, (Select A.药品ID, Nvl(Sum(A.可用数量), 0) as 库存 From 药品库存 A, 收费项目目录 B Where A.性质 = 1 And (Nvl(A.批次, 0)=0 Or A.效期 Is Null Or A.效期>Trunc(Sysdate)) And A.库房ID=Decod
e(B.类别, '5', :V009, '6', :V010, '7', :V011, Null) And A.药品ID=B.ID And B.类别 IN('5', '6', '7') Group by A.药品ID Having Nvl(Sum(A.可用数量), 0)<>0) X Where A.ID=C.药品ID And C.药名ID=D.药名ID And D.药名ID=E.ID And A.类别=F.编码 And E.类别 IN('5', '6', '7') And (E.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or E.撤档时间 IS NULL) And (E.服务对象 IN(:V012, 3) Or :V013=3 And Nvl(E.服务对象, 0)<>0) And Nvl(E.执行频率, 0) IN(0, :V014) And A.ID=X.药品ID(+) And (D.临床自管药=1 Or ( A.类别='5' And Exists(Select 1 From 药品库存 Where 药品ID = c.药品ID And 性质 = 1 And (Nvl(批次, 0) = 0 Or 效期 Is Null Or 效期 > Trunc(Sysdate)) And 可用数量>0 And 库房ID In(156)) Or A.类别='6' And Exists(Select 1 From 药品库存 Where 药品ID = c.药品ID And 性质 = 1 And (Nvl(批次, 0) = 0 Or 效期 Is Null Or 效期 > Trunc(Sysdate)) And 可用数量>0 And 库房ID In(157)) Or A.类别='7' And Exists(Select 1 From 药品库存 Where 药品ID = c.药品ID And 性质 = 1 And (Nvl(批次, 0) = 0 Or 效期 Is Null Or 效期 > Trunc(Sysdate)) And 可用数量>0 And 库房ID In(157)))) Union ALL Select A.类别 As 类别ID, A.ID as 诊疗项目ID, -Null as 收费细目ID, D.名称 As 类别, Null as 基本, A.编码, B.名称, Null as 商品名, B.简码, A.计算单位, A.标本部位 as 规格, Null as 产地, Null as 药品剂型, Decode(A.类别, 'H', Decode(A.操作类型, '1', '护理等级', '护理常规'), 'E', Decode(A.操作类型, '1', '过敏试验', '2', '给药途径', '3', '中药煎法', '4', '中药用法', '5', '特殊治疗', '6', '采集方法', '7', '配血方法', '8',
'输血途径', Null), 'Z', Decode(A.操作类型, '1', '留观', '2', '住院', '3', '转科', '4', '术后', '5', '出院', '6', '转院', '7', '会诊', '8', '抢救', '9', '病重', '10', '病危', '11', '死亡', '12', '记录入出量', '14', '术前', NULL), A.操作类型) As 项目特性, Nul
l as 费用类型, Null as 医保大类, Null as 说明, Null as 处方职务ID, Null as 价格, Null as 库存, Null As 抗菌等级 From 诊疗项目类别 D, 诊疗项目别名 B, 诊疗项目目录 A Where A.ID=B.诊疗项目ID And A.类别=D.编码 And A.类别 Not IN('4', '5', '6', '7') And ((A.类别<>'9' Or A.类别='9' And (A.人员ID=:V015 Or A.人员ID is Null)) And (Exists(Select 1 From 诊疗适用科室 Where 项目ID=A.ID And Instr(:V016, ', '||科室ID||', ')>0) Or Not Exists(Select 1 From 诊疗适用科室 Where 项目ID=A.ID))) And Nvl(A.单独应用, 0)=1 And Instr(:V017, ', '||Nvl(A.适用性别, 0)||', ')>0 And Nvl(A.执行频率, 0) IN(0, :V018) And (A.编码 Like :V019 Or B.名称 Like :V020 Or B.简码 Like :V021) And B.码类=:V022 And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.服务对象 IN(:V023, 3) Or :V024=3 And Nvl(A.服务对象, 0)<>0) Union ALL Select A.类别 AS 类别ID, E.ID as 诊疗项目ID, A.ID as 收费细目ID, F.名称 AS 类别, Null as 基本, A.编码, A.名称, Null as 商品名, A.简码, A.计算单位, A.规格, A.产地, Null as 药品剂型, Null as 项目特性, A.费用类型, A.医保大类, A.说明, Null as 处方职务ID, Decode(A.价格, NULL, NULL, A.价格||'/'||A.计算单位) as 价格, Null as 库存, Null As 抗菌等级 From 材料特性 C, 诊疗项目目录 E, 收费项目类别 F, (Select A.ID, A.类别, A.编码, A.名称, A.简码, A.计算单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Sum(Decode(A.是否变价, 1, NULL, B.现价)) as 价格 From 收费价目 B, (Select A.ID, A.类别, A.编码, B.名称, B.简码, A.计算
单位, A.规格, A.产地, A.费用类型, Null as 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A Where A.ID=B.收费细目ID And A.类别='4' And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.服务对象 IN(:V025, 3) Or :V026=3 And Nvl(A.服
务对象, 0)<>0) And (A.编码 Like :V027 Or B.名称 Like :V028 Or B.简码 Like :V029) And B.码类=:V030) A Where A.ID=B.收费细目ID And Sysdate Between B.执行日期 And Nvl(B.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, A.编码, A.名称, A.简码, A.计算单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明) A Where A.ID=C.材料ID And C.诊疗ID=E.ID And A.类别=F.编码 And E.类别='4' And C.核算材料=0 And (E.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or E.撤档时间 IS NULL) And (E.服务对象 IN(:V031, 3) Or :V032=3 And Nvl(E.服务对象, 0)<>0) And Nvl(E.执行频率, 0) IN(0, :V033)) A, 诊疗个人项目 R Where R.诊疗项目ID=A.诊疗项目ID And (A.收费细目ID is Null Or A.收费细目ID = R.收费细目ID) And R.人员ID=:V034) A Order by 频度ID Desc, Decode(类别ID, '4', 'Z', 类别ID), 类别, 编码 |
| 3r7wxubrs37wn | Select /*+ rule */
e.医嘱内容, c.中文名 As 检验项目, d.缩写, b.检验结果, d.单位, Decode(b.结果标志, 3, '↑', 2, '↓', 1, '', 4, '异常', 5, '↓↓', 6, '↑↑', '') As 标志,
Trim(Replace(Replace(' ' || Zlgetreference(b.检验项目id, a.标本类型, Decode(a.性别, '男', 1, '女', 2, 0), a.出生日期, a.仪器id, a.年龄),
' .', '0.'), '～.', '～0.')) As 参考, Decode(a.病人来源, 1, '门诊', 2, '住院', 4, '体检', '其它') 病人来源, a.审核时间
From 检验标本记录 A, 检验普通结果 B, 诊治所见项目 C, 检验项目 D, 检验项目分布 F, 病人医嘱记录 E
Where a.病人id = :V001 And a.审核人 Is Not Null And a.Id = b.检验标本id And b.检验项目id = c.Id And c.Id = d.诊治项目id And
b.记录类型 = a.报告结果 And a.Id = f.标本id And f.项目id = d.诊治项目id And f.医嘱id = e.Id
Order By a.审核时间 Desc, e.医嘱内容, b.排列序号, c.中文名 |
| 47vyxbdrj6zy9 | Select Text as 功能 From Table(Cast(zltools.f_Reg_Func(:V001, :V002) as zlTools.t_Reg_Rowset)) |
| 4axjk0jd82nt4 |
Select A.ID, A.类别 as 类别ID, B.序号 as 顺序ID, B.名称 as 类别, A.编码, A.名称, A.商品名, A.简码, D.住院单位 as 单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Decode(A.是否变价, 1, '时价', LTrim(To_Char(Sum(C.现价)*Nvl(D.住院包装, 1), '9999990.00000'))) as 单价, NULL as 库存 From ( Select Distinct A.ID, A.类别, A.编码, B.名称, Null as 商品名, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, D.名称 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A, 保险支付项目 C, 保险支付大类 D Where A.ID=B.收费细目ID And A.服务对象 IN(:V001, 3) And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And A.ID=C.收费细目ID(+) And C.险类(+)=:V002 And C.大类ID=D.ID(+)
And (A.编码 Like :V003 And B.码类=:V004 Or B.名称 Like :V005 And B.码类=:V006 Or B.简码 Like :V007 And B.码类 IN(:V008, 3))) A, 收费项目类别 B, 收费价目 C, 药品规格 D, 诊疗项目目录 E Where A.类别=B.编码 And A.ID=C.收费细目ID And ( (instr( ';6;7;', ';'||A.类别||';', 1)>0 and nvl(D.中药形态, 0)=:V009) or A.类别='5') And A.ID=D.药品ID And D.药名ID=E.ID And Sysdate Between C.执行日期 and Nvl(C.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, B.序号, B.名称, A.编码, A.名称, A.商品名, A.简码, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, A.是否变价, D.住院单位, D.住院包装 Union ALL Select A.ID, A.类别 as 类别ID, B.序号 as 顺序ID, B.名称 as 类别, A.编码, A.名称, NULL as 商品名, A.简码, A.计算单位 as 单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Decode(A.是否变价, 1, '时价', LTrim(To_Char(Sum(C.现价), '9999990.00000'))) as 单价, NULL as 库存 From ( Select Distinct A.ID, A.类别, A.编码, B.名称, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, D.名称 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A,
保险支付项目 C, 保险支付大类 D Where A.服务对象 IN(:V010, 3) And A.ID=B.收费细目ID And A.类别='4' And (A.编码 Like :V011 Or B.名称 Like :V012 Or B.简码 Like :V013) And B.码类=:V014 And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And A.ID=C.收费细目ID(+) And C.险类(+)=:V015 And C.大类ID=D.ID(+)) A, 收费项目类别 B, 收费价目 C, 材料特性 D, 诊疗项目目录 E Where A.类别=B.编码 And A.ID=C.收费细目ID And A.ID=D.材料ID And D.诊疗ID=E.ID And nvl(D.核算材料 , 0)=0 And Sysdate Between C.执行日期 and Nvl(C.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, B.序号, B.名称, A.编码, A.名称, A.简码, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, A.是否变价, A.计算单位 Union ALL Select A.ID, A.类别 as 类别ID, B.序号 as 顺序ID, B.名称 as 类别, A.编码, A.名称, NULL as 商品名, A.简码, A.计算单位 as 单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Decode(A.是否变价, 1, '变价', LTrim(To_Char(Sum(C.现价), '9999990.00000'))) as 单价, NULL as 库存 From 收费价目 C, ( Select Distinct A.ID, A.类别, A.编码, B.名称, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, D.名称 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A, 保险支付项目 C, 保险支付大类 D Where A.ID=B.收费细目ID And A.服务对象 IN(:V016, 3) And A.类别 Not IN('4', '5', '6', '7', '1') And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And A.ID=C.收费细
目ID(+) And C.险类(+)=:V017 And C.大类ID=D.ID(+)
And (A.编码 Like :V018 Or B.名称 Like :V019 Or B.简码 Like :V020) And B.码类=:V021) A, 收费项目类别 B Where A.类别=B.编码 And A.ID=C.收费细目ID And Sysdate Between C.执行日期+0 and Nvl(C.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.
类别, B.序号, B.名称, A.编码, A.名称, A.简码, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, A.是否变价, A.计算单位 Order by 顺序ID, 编码 |
| 4cfyrpzhqq5nv |
Select /*+ rule */ A.NO, A.序号, A.从属父号, A.费别, A.类别码, A.类别名, A.编码, Nvl(B.名称, A.名称) as 名称, E1.名称 as 商品名, A.规格, A.费用类型, A.计算单位, A.收费细目ID, A.准退付数 as 付数, A.准退数次 as 数次, A.单价, A.医嘱序号 , A.剩余应收*(A.准退数量/A.剩余数量) as 应收金额, A.剩余实收*(A.准退数量/A.剩余数量) as 实收金额, A.执行科室, A.开单科室, A.操作员姓名, A.登记时间, A.结帐ID, A.医嘱内容, A.记录标志, A.原始数量, A.准退数量, A.剩余数量 From ( With 门诊单据 as (Select Column_Value as No From Table(f_Str2list(:V001))), 门诊费用 as ( Select A.ID, A.记录性质, A.NO, A.记录状态, A.序号, A.从属父号, A.价格父号, A.收费细目ID, nvl(A.付数, 1) as 付数, nvl(A.数次, 0) as 数次, nvl(A.应收金额, 0) as 应收金额 , nvl(A.实收金额, 0) as 实收金额, nvl(A.结帐金额, 0) as 结帐金额, Nvl(A.付数, 1)*A.数次 as 数量, nvl(标准单价, 0) as 标准单价, nvl(B.门诊包装, 1) as 换算系数, decode(B.药品ID, NULL, A.计算单位, B.门诊单位) as 计算单位, A.开单部门ID, A.执行部门ID, A.医嘱序号, A.执行状态, A.费用类型, A.费用状态 , A.附加标志, A.费别, A.收费类别, A.操作员姓名, A.登记时间, A.结帐ID, B.药品ID From 门诊费用记录 A, 药品规格 B, 门诊单据 J Where A.记录性质=1 And A.NO=J.NO and A.记录状态<>0 And A.收费细目ID=B.药品ID(+) ),
准退数 as ( Select A.费用ID, Sum(Nvl(A.付数, 1)*A.实际数量/Nvl(B.门诊包装, 1)) as 准退数量 From 药品收发记录 A, 药品规格 B, 门诊单据 J Where A.药品ID=B.药品ID And Mod(A.记录状态, 3)=1 And A.单据=8 And A.审核人 is NULL And A.NO =J.NO Group by A.费用ID Union ALL Select Max(ID) as 费用ID, decode(sign(Sum(数量))
, -1, 0, Sum(数量)) as 准退数 From ( Select decode(J.记录状态, 2, 0, J.ID) as ID, J.医嘱序号 as 医嘱ID, J.收费细目ID, nvl(J.付数, 1)*nvl(J.数次, 1) as 数量 From 门诊费用 J, 病人医嘱记录 M Where J.医嘱序号=M.ID And Exists(Select 1 From 病人医嘱发送 where 医嘱ID=J.医嘱序号 and Nvl( 执行状态, 0) <> 1 And No =J.NO ) And Exists(Select 1 From 病人医嘱计价 A Where A.医嘱ID=J.医嘱序号 and A.收费细目ID=J.收费细目ID and Nvl( A.收费方式, 0) =0 ) And J.记录状态 in (1, 2, 3) and J.价格父号 is null And Instr('5, 6, 7', j.收费类别) = 0 And Not Exists (Select 1 From 材料特性 Where 材料id = j.收费细目id And Nvl(跟踪在用, 0) = 1) And instr(', C, D, F, G, K, ', ', '||M.诊疗类别||', ')=0 Union all Select j.id, A.医嘱ID, a.收费细目ID, -1*nvl(a.数量, 1)*nvl(C.本次数次, 1) as 数量 From 病人医嘱计价 A, 病人医嘱发送 B, 病人医嘱执行 C, 门诊费用 J, 病人医嘱记录 M Where A.医嘱ID=b.医嘱id and Nvl( A.收费方式, 0) =0 and b.医嘱id=c.医嘱id and b.发送号=c.发送号 And a.医嘱id=M.ID And Nvl(C.执行结果, 1) =1 And Nvl(b.执行状态, 0) <> 1 And B.NO=J.No and B.记录性质=1 And a.医嘱id=J.医嘱序号 and a.收费细目id=j.收费细目id And J.记录状态 in (1, 3) and J.价格父号 is null And Instr('5, 6, 7
', j.收费类别) = 0 And Not Exists (Select 1 From 材料特性 Where 材料id = j.收费细目id And Nvl(跟踪在用, 0) = 1) And instr(', C, D, F, G, K, ', ', '||M.诊疗类别||', ')=0 ) group by 医嘱ID, 收费
细目ID Having Max(ID) <>0)
Select A.NO, A.序号, A.从属父号, A.费别, A.类别码, A.类别名, A.收费细目ID, A.编码, A.名称, A.规格, A.费用类型, A.计算单位, Max(A.医嘱序号) as 医嘱序号, Decode(Sign(Nvl(C.准退数量, Sum(A.付数*A.数次))-B.原始数量), 0, Avg(A.付数), 1) as 准退付数, Decode(Sign(Nvl(C.准退数量, Sum(A.付数*A.数次))-B.原始数量), 0, Sum(A.数次), Nvl(C.准退数量, Sum(A.付数*A.数次))) as 准退数次, Nvl(C.准退数量, Sum(A.付数*A.数次)) as 准退数量, Sum(A.付数*A.数次) as 剩余数量, A.单价, Sum(A.应收金额) as 剩余应收, Sum(A.实收金额) as 剩余实收, max(q1.记录标志) as 记录标志, A.执行科室, A.开单科室, B.操作员姓名, B.登记时间, B.结帐ID, Max(M.医嘱内容) as 医嘱内容, b.原始数量 From ( Select A.NO, A.记录状态, A.执行状态, Nvl(A.价格父号, A.序号) as 序号, A.从属父号, A.费别, C.编码 as 类别码, C.名称 as 类别名, A.收费细目ID, B.编码, B.名称, B.规格, Nvl(A.费用类型, B.费用类型) 费用类型, A.计算单位, Max(A.医嘱序号) as 医嘱序号, Avg(Nvl(A.付数, 1)) as 付数, Avg(A.数次/A.换算系数) as 数次, Sum(A.标准单价*A.换算系数) as 单价, Sum(A.应收金额) as 应收金额, Sum(A.实收金额) as 实收金额, D.名称 as 执行科室, E.名称 as 开单科室 From 门诊费用 A, 收费项目目录 B, 收费项目类别 C, 部门表 D, 部门表 E Where A.收费细目ID=B.ID And C.编码=A.收费类别 And A.执行部门ID=D.ID(+) And A.开单部门ID=E.ID(+) And (A.NO, Nvl(A.价格父号, A.序号)) IN( Select NO, Nvl(价格父号, 序号) as 序号 From 门诊费用 Where 记录性质=1 And 记录状态 IN( 1, 3) And Nvl(执行
状态, 0)<>1 Minus Select NO, Nvl(价格父号, 序号) as 序号 From 门诊费用 A1, 病人医嘱计价 B1 Where A1.医嘱序号=B1.医嘱id And A1.收费细目ID=B1.收费细目ID And Nvl( B1.收费方式, 0) <>0 And A1.记录性质=1 And A1.记录状态 IN(1, 3) And Nvl(A1.执行状态, 0)=2 And Instr('5, 6, 7', a1.收费类别) = 0 And Not Exists (Select 1
From 材料特性 Where 材料id = a1.收费细目id And Nvl(跟踪在用, 0) = 1) And Not Exists (Select 1 From 药品收发记录 Where 费用id =a1.Id) ) And A.NO IN( Select NO From 门诊费用 where 记录性质=1 and 序号=1 and 记录状态 in (1, 3) ) Group by A.NO, A.记录状态, A.执行状态, Nvl(A.价格父号, A.序号), A.费别, A.从属父号, C.编码, C.名称, A.收费细目ID, B.编码, B.名称, B.规格, Nvl(A.费用类型, B.费用类型), A.计算单位, D.名称, E.名称, A.药品ID ) A, 准退数 C, 病人医嘱记录 M, ( Select ID, NO, 序号, 收费细目ID, Nvl( 数量, 0)/NVL(换算系数, 1) as 原始数量, 操作员姓名, 登记时间, 结帐ID From 门诊费用 Where 记录状态 IN(1, 3) And Nvl( 附加标志, 0)<>9 And 价格父号 is NULL )B, ( Select NO, Max(记录状态) as 记录标志 From 门诊费用 Where 记录状态 in (1, 3) Group by NO) Q1 Where A.NO=B.NO And A.序号=B.序号 And A.收费细目ID=B.收费细目ID+0 And B.ID=C.费用ID(+) and A.医嘱序号=M.ID(+) and A.NO=q1.NO(+) Group by A.NO, A.序号, A.从属父号, A.费别, A.类别码, A.类别名, A.收费细目ID, A.编码, A.名称, A.规格, A.费用类型, A.计算单位, A.单价, B.原始数量, C.准退数量, A.执行科室, A.开单科室, B.操作员姓名, B.登记时间, B.结帐ID Having Sum(A.付数*A.数次)<>0) A, 收费项目别名 B, 收费项目别名 E1 Where A.收费细目ID=B.收费细目ID(+) And B.码类(+)=1 And B.性质(+)=1 And A.收费细目ID=E1.收费细目ID(+) And E1.码类(+)=1 And E1.性质(+)=3 Order by A.NO, A.序号 |
| 4hf6assj748zf |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((836412, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(0) AND (A.病人ID, A.主页ID) IN((836412, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(0) AND (A.病人ID, A.主页ID) IN((836412, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.
当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号,
M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(0) AND (A.病人ID, A.主页ID) IN((836412, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分
类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(0)
AND (A.病人ID, A.主页ID) IN((836412, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEX
ECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱
状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(0) AND (A.病人ID, A.主页ID) IN((836412, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| 4w44a1kcq9p0c |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((837685, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((837685, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((837685, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.
当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号,
M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((837685, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分
类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1)
AND (A.病人ID, A.主页ID) IN((837685, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEX
ECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱
状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((837685, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| 53g90nqu8c75w |
Select A.ID, A.类别 as 类别ID, B.序号 as 顺序ID, B.名称 as 类别, A.编码, A.名称, NULL as 商品名, A.简码, A.计算单位 as 单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Decode(A.是否变价, 1, '时价', LTrim(To_Char(Sum(C.现价), '9999990.00000'))) as 单价, NULL as 库存 From ( Select Distinct A.ID, A.类别, A.编码, B.名称, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, D.名称 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A, 保险支付项目 C, 保险支付大类 D Where A.服务对象 IN(:V001, 3) And A.ID=B.收费细目ID And A.类别='4' And (A.编码 Like :V002 Or B.名称 Like :V003 Or B.简码 Like :V004) And B.码类=:V005 And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And A.ID=C.收费细目ID(+) And C.险类(+)=:V006 And C.大类ID=D.ID(+)) A, 收费项目类别 B, 收费价目 C, 材料特性 D, 诊疗项目目录 E Where A.类别=B.编码 And A.ID=C.收费细目ID And A.ID=D.材料ID And D.诊疗ID=E.ID And nvl(D.核算材料 , 0)=0 And Sysdate Between C.执行日期 and Nvl(C.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, B.序号, B.名称, A.编码, A.名称, A.简码, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, A.是否变价, A.计算单位 Union ALL Select A.ID, A.类别 as 类别ID, B.序号 as 顺序ID, B.名称 as 类别, A.编码, A.名称, NULL as 商品名, A.简码, A.计算单位 as 单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Decode(A.是否变价, 1, '变价', LTrim(To_Char(Sum(
C.现价), '9999990.00000'))) as 单价, NULL as 库存 From 收费价目 C, ( Select Distinct A.ID, A.类别, A.编码, B.名称, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, D.名称 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A, 保险支付项目 C, 保险支付大类 D Where A.ID=B.收费细目ID And A.服务对象 IN(:V007, 3) And A.类别 Not IN('4', '5',
'6', '7', '1') And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And A.ID=C.收费细目ID(+) And C.险类(+)=:V008 And C.大类ID=D.ID(+)
And Instr(:V009, A.类别)>0 And (A.编码 Like :V010 Or B.名称 Like :V011 Or B.简码 Like :V012) And B.码类=:V013) A, 收费项目类别 B Where A.类别=B.编码 And A.ID=C.收费细目ID And Sysdate Between C.执行日期+0 and Nvl(C.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, B.序号, B.名称, A.编码, A.名称, A.简码, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, A.是否变价, A.计算单位 Order by 顺序ID, 编码 |
| 5562jcfnyhqxw |
Select a.*, f_List2str(Cast(Collect(b.诊断描述) As t_Strlist), '，') 诊断描述 From ( Select Distinct *
From (Select b.病人id, Nvl(b.门诊号, 0) As 门诊号, Nvl(b.就诊卡号, '无') 就诊卡号, b.身份证号, b.Ic卡号, Nvl(b.费别, '无') 费别, b.姓名,
Nvl(b.性别, '未知') 性别, Nvl(b.年龄, '未知') 年龄, To_Char(Nvl(d.日期, B.执行时间), 'yyyy-MM-dd HH24:MI:SS') As 接受时间, b.执行时间 as 挂号时间,
Nvl(b.执行人, '无') 医生, Nvl(b.挂号单, '无') 挂号单, Nvl(c.类别, 0) 座位类别, Nvl(c.编号, '无') As 座位号, LPad(To_Char(Nvl(d.顺序, 0)), 3, '0') 顺序,
Decode(Nvl(d.加权号, 0), 0, Replace(Nvl(顺序, 0), '_', ''), d.加权号) As 加权号,
Decode(Nvl(d.状态, -1), 1, '1-待配液', 2, '2-弃号', 3, '3-退号', 4, '4-结束', 5, '5-待穿刺', 6, '6-待执行', 7, '7-执行中',
'0-未接单') As 排队状态, Nvl(b.病人科室, '无') 病人科室, b.挂号单id, d.呼叫标志, d.开始时间, d.开始操作员, d.结束时间, d.结束操作员, d.穿刺台
From (Select 病人id, 日期, To_Char(日期, 'hhmmss') || '_' || LPad(To_Char(Nvl(顺序号, 0)), 3, '0') As 顺序, 加权号, 状态, 呼叫标志, 开始时间,
开始操作员, 挂号单, 结束操作员, 结束时间, 穿刺台
From 排队记录
Where 日期 Between :V001 And :V002 And 科室id = :V003) D,
(Select 病人id, 编号, 类别 From 座位状况记录 Where 科室id = :V004) C,
(Select b.病人id, c.门诊号, c.就诊卡号, c.费别, c.姓名, c.性别, c.年龄, d.执行时间, c.就诊诊室, d.执行人, d.Id As 挂号单id, b.挂号单,
e.名称 || '[' || e.编码 || ']' As 病人科室, c.身份证号, c.Ic卡号
From 诊疗项目目录 F, 部门表 E, 病人挂号记录 D, 病人信息 C, 病人医嘱记录 B, 病人医嘱发送 A
Where Instr(:V005, Nvl(f.执行分类, 0)) > 0 And b.诊疗项目id = f.Id And d.执行部门id = e.Id And b.病人id = c.病人id And
a.医嘱id = b.Id And b.挂号单 = d.No And b.病人来源 = 1 And d.记录性质 = 1 And d.记录状态 = 1 And
a.发送时间 Between :V006 And :V007 And a.执行部门id = :V008) B
Where b.病人id = c.病人id(+) And b.病人id = d.病人id(+) And b.挂号单 = d.挂号单(+) And d.挂号单(+) Is Null Union all
Select c.病人id, nvl(b.门诊号, 0) 门诊号, nvl(b.就诊卡号, '无') 就诊卡号, b.身份证号, b.ic卡号, nvl(b.费别, '无') 费别, b.姓名, nvl(b.性别, '未知') 性别, nvl(b.年龄, '未知') 年龄, To_Char(c.日期, 'yyyy-MM-dd HH24:MI:SS') As 接受时间, a.执行时间 挂号时间, nvl(a.执行人, '无') 医生, nvl(c.挂号单, '无') 挂号单, Nvl(e.类别, 0) 座位类别, Nvl(e.编号, '无') As 座位号, LPad(To_Char(nvl(c.顺序号, 0)), 3, '0') 顺序, To_Char(nvl(c.加权号, 0)) 加权号, Decode(Nvl(c.状态, -1), 1, '1-待配液', 2, '2-弃号', 3, '3-退号', 4, '4-结束', 5, '5-待穿刺', 6, '6-待执行', 7, '7-执行中', '0-未接单') As 排队状态, Nvl(d.名称 || '[' || d.编码 || ']', '无') 病人科室, a.id 挂号单id, c.呼叫标志, c.开始时间, c.开始操作员, c.结束时间, c.结束操作员, c.穿刺台
From 病人挂号记录 A, 病人信息 B, 排队记录 C, 部门表 D, 座位状况记录 E
Where a.No = c.挂号单 And a.执行部门id = d.Id And b.病人id = c.病人id And c.病人id = e.病人id(+) And c.科室id = e.科室id(+) And a.执行状态 In (1, 2) And a.记录性质 = 1 And a.记录状态 = 1 And ( c.日期 Between :V009 And :V010 And instr('1, 5, 6, 7', c.状态)>0 Or c.日期 Between :V011 And :V012 ) And c.科室id = :V013
) ) A, 病人诊断记录 B
Where a.病人id=b.病人id(+) and a.挂号单id = b.主页id(+) Group by a.病人id, a.门诊号,
a.就诊卡号, a.身份证号, a.Ic卡号, a.费别, a.姓名, a.性别, a.年龄, a.接受时间, a.挂号时间, a.医生, a.挂号单, a.座位类别 , a.座位号, a.顺序, a.加权号, a.排队状态, a.病人科室, a.挂号单id, a.呼叫标志, a.开始时间, a.开始操作员, a.结束时间, a.结束操作员, a.穿刺台 Order by a.排队状态, a.接受时间 |
| 5njyb40wpta5r | Select 内容 From zlRegInfo Where 项目='客户端升级日期' |
| 5rrm0cc8ty6u1 | INSERT INTO 临时病历内容 (ID, 文件ID, 开始版, 终止版, 父ID, 对象序号, 对象类型, 对象标记, 保留对象, 对象属性, 内容行次, 内容文本, 是否换行, 定义提纲ID, 预制提纲ID, 复用提纲, 使用时机, 诊治要素ID, 替换域, 要素名称, 要素类型, 要素长度, 要素小数, 要素单位, 要素表示, 输入形态, 要素值域) VALUES (:B27 , :B26 , :B25 , :B24 , :B23 , :B22 , :B21 , :B20 , :B19 , :B18 , :B17 , :B16 , :B15 , :B14 , :B13 , :B12 , :B11 , :B10 , :B9 , :B8 , :B7 , :B6 , :B5 , :B4 , :B3 , :B2 , :B1 ) |
| 65k1q15gj48js |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((820173, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((820173, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((820173, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.
当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号,
M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((820173, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分
类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1)
AND (A.病人ID, A.主页ID) IN((820173, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEX
ECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱
状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((820173, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| 6cvvv3r0j8zcj |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((821735, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL
(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((821735, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD HH24:MI:SS')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((821735, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关I
D+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮
试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((821735, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.
诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD HH24:MI:SS')<=执行终止时间 OR 执行终止时间 I
S NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((821735, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) A
S 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((821735, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| 6dv6fycjabduf | select P.*, D.编码 as 部门编码, D.名称 as 部门名称, M.部门ID, u.用户名 from 上机人员表 U, 人员表 P, 部门表 D, 部门人员 M Where U.人员id = P.id And P.ID=M.人员ID and M.缺省=1 and M.部门id = D.id and U.用户名=user |
| 6nhukxc9y9unw |
Select A.ID, A.类别 as 类别ID, B.序号 as 顺序ID, B.名称 as 类别, A.编码, A.名称, NULL as 商品名, A.简码, A.计算单位 as 单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Decode(A.是否变价, 1, '时价', LTrim(To_Char(Sum(C.现价), '9999990.00000'))) as 单价, NULL as 库存 From ( Select Distinct A.ID, A.类别, A.编码, B.名称, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, Null 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A Where A.服务对象 IN(:V001, 3) And A.ID=B.收费细目ID And A.类别='4' And (A.编码 Like :V002 Or B.名称 Like :V003 Or B.简码 Like :V004) And B.码类=:V005 And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null)) A, 收费项目类别 B, 收费价目 C, 材料特性 D, 诊疗项目目录 E Where A.类别=B.编码 And A.ID=C.收费细目ID And A.ID=D.材料ID And D.诊疗ID=E.ID And nvl(D.核算材料 , 0)=0 And Sysdate Between C.执行日期 and Nvl(C.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, B.序号, B.名称, A.编码, A.名称, A.简码, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, A.是否变价, A.计算单位 Union ALL Select A.ID, A.类别 as 类别ID, B.序号 as 顺序ID, B.名称 as 类别, A.编码, A.名称, NULL as 商品名, A.简码, A.计算单位 as 单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Decode(A.是否变价, 1, '变价', LTrim(To_Char(Sum(C.现价), '9999990.00000'))) as 单价, NULL as 库存 From 收费价目 C, ( Select Distinct A.ID, A.类别, A
.编码, B.名称, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, Null 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A Where A.ID=B.收费细目ID And A.服务对象 IN(:V006, 3) And A.类别 Not IN('4', '5', '6', '7', '1') And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or
A.站点 is Null) And Instr(:V007, A.类别)>0 And (A.编码 Like :V008 Or B.名称 Like :V009 Or B.简码 Like :V010) And B.码类=:V011) A, 收费项目类别 B Where A.类别=B.编码 And A.ID=C.收费细目ID And Sysdate Between C.执行日期+0 and Nvl(C.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, B.序号, B.名称, A.编码, A.名称, A.简码, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, A.是否变价, A.计算单位 Order by 顺序ID, 编码 |
| 6qv07bhbah63m | Select Zl_Replace_Element_Value(:V001, :V002, :V003, :V004, :V005) From Dual |
| 6va9psb4nw09d | SELECT NVL(COUNT (*) , 0 ) , MOD (TO_NUMBER (TO_CHAR (MIN (LOGON_TIME) , 'hh24miss' ) ) , 31 ) + 1 FROM V$SESSION WHERE AUDSID = USERENV('SessionID' ) AND USERNAME = USER AND ( INSTR(UPPER(PROGRAM ) , 'VB6' ) > 0 OR INSTR(UPPER(PROGRAM ) , 'ZL' ) > 0 ) |
| 71wbhpy0w5j32 |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((840630, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL
(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((840630, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD HH24:MI:SS')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((840630, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关I
D+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮
试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((840630, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.
诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD HH24:MI:SS')<=执行终止时间 OR 执行终止时间 I
S NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((840630, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) A
S 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((840630, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| 7mwgam19p6xhg |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((780268, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((780268, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((780268, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.
当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号,
M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((780268, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分
类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1)
AND (A.病人ID, A.主页ID) IN((780268, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEX
ECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱
状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((780268, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| 7rbs3ynbk0chc | Select zl_AdviceCheck(:V001, :V002, :V003, :V004, :V005, :V006, :V007, :V008, :V009, :V010, :V011, :V012, :V013, :V014) as 结果 From Dual |
| 7s3s82pf3tyaq |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((839730, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((839730, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((839730, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.
当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号,
M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((839730, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分
类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1)
AND (A.病人ID, A.主页ID) IN((839730, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEX
ECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱
状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((839730, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| 8crc55tpkcbs3 | Select A.病人ID, A.主页ID, B.住院号, C.床号, B.姓名, B.性别, B.年龄, Min(A.完成时间) as 时间, -1 As 医嘱状态, '' as 状态 From ( Select A.病人ID, A.主页ID, A.病历种类, A.病历名称, A.签名级别, A.完成时间, B.保留 From 电子病历记录 A, 病历文件列表 B Where A.病人来源 = 2 And A.病历种类 In (2, 5, 6) And Nvl(A.处理状态, 0)<=0 And A.归档人 Is Null And A.文件ID=B.ID(+) And A.完成时间>=Trunc(Sysdate-(:V001-1)) And A.科室ID IN(Select 科室ID From 病区科室对应 Where 病区ID=:V002)) A, 病人信息 B, 病人变动记录 C Where A.病人ID=B.病人ID And (A.病历种类<>2 Or Nvl(A.保留, 0)>=0) And A.病人ID=C.病人ID And A.主页ID=C.主页ID And C.开始时间 Is Not Null And Nvl(C.附加床位, 0)=0 And (C.终止时间 Is Null Or C.终止原因=1) And A.签名级别<Decode(:V003, C.主任医师, 4, C.主治医师, 2, C.经治医师, 1, 0) Group by A.病人ID, A.主页ID, B.住院号, C.床号, B.姓名, B.性别, B.年龄 Order by 时间 |
| 8qjw2vayhpjb8 |
SELECT 项目, 内容 FROM (SELECT 1 AS 序号, '预交结算' AS 项目, '合计:' || LTRIM(TO_CHAR(SUM(NVL(A.冲预交, 0)), '999999990.00')) AS 内容 FROM ZLHIS.病人预交记录 A, (SELECT 结帐ID FROM ZLHIS.门诊费用记录 WHERE 记录性质 = 1 AND 操作员姓名||''='郑娟' AND 登记时间 BETWEEN To_Date(:V001, 'YYYY-MM-DD') AND To_Date(:V002, 'YYYY-MM-DD') +1-1/24/60/60 AND NVL(费用状态, 0)=0 GROUP BY 结帐ID ) B WHERE A.记录性质 IN (1, 11) AND A.结帐ID = B.结帐ID HAVING SUM(A.冲预交) <> 0 UNION SELECT 2 AS 序号, '收费情况' AS 项目, '合计:'||LTRIM(TO_CHAR(SUM(NVL(A.冲预交, 0)), '999999990.00'))||'/大写:'||ZLUPPMONEY(SUM(NVL(A.冲预交, 0))) AS 内容 FROM ZLHIS.病人预交记录 A WHERE A.操作员姓名||''='郑娟' AND A.收款时间 BETWEEN To_Date(:V003, 'YYYY-MM-DD') AND To_Date(:V004, 'YYYY-MM-DD') +1-1/24/60/60 AND A.记录性质 IN (3, 4) AND NVL(A.校对标志, 0)=0 UNION SELECT 序号, 结算方式 AS 项目, 内容 FROM (SELECT A.序号, A.结算方式, DECODE(SIGN(DECODE(A.结算方式, '现金', TO_CHAR(金额 - NVL(B.职工号, 0)), TO_CHAR(金额))), -1, '退：￥', '收：￥') || LTRIM(TO_CHAR(SIGN(DECODE(A.结算方式, '现金', 金额 - NVL(B.职工号, 0), 金额)) * DECODE(A.结算方式, '现金', 金额 - NVL(B.职工号, 0), 金额), '999999990.00')) || '/大写：' || ZLUPPMONEY(SIGN(DECODE(A.结算方式, '现金', 金额 - NVL(B.职工号, 0), 金额)) * DECODE(A.结算方式, '现金', 金额 - NVL(B.职工号, 0), 金额)) AS 内容 FROM (SELECT 3 AS 序号, A.结算方式, SUM(NVL(A.冲预交, 0)) 金额 FROM ZLHIS.病人预交记录 A WHERE A.操作员姓名 || '' ='郑娟' AND A.收款时间 BETWEEN To_Date(:V00
5, 'YYYY-MM-DD') AND To_Date(:V006, 'YYYY-MM-DD')+1 - 1 / 24 / 60 / 60 AND A.记录性质 IN (3, 4) AND NVL(A.校对标志, 0)=0 AND 结算方式<>'一般诊疗支付' GROUP BY A.结算方式 HAVING SUM(NVL(A.冲预交, 0)) <> 0 ) A, (SELECT 3 AS 序号, '职工号' AS 结算方式, SU
M(NVL(B.实收金额, 0)) 职工号 FROM ZLHIS.病人挂号记录 A, ZLHIS.病人费用记录 B, ZLHIS.挂号安排 C, ZLHIS.部门表 D, ZLHIS.挂号项目 E WHERE A.NO = B.NO AND A.号别 = C.号码 AND A.执行部门ID = D.ID AND C.项目ID = E.序号 AND B.记录性质 = 4 AND A.病人ID = B.病人ID(+) AND E.名称 = '职工号' AND A.操作员姓名 ='郑娟' AND INSTR(A.操作员姓名, '欠费管理本') = 0 AND A.登记时间 BETWEEN To_Date(:V007, 'YYYY-MM-DD') AND To_Date(:V008, 'YYYY-MM-DD')+1 - 1 / 24 / 60 / 60 ) B ) UNION SELECT 4 AS 序号, DECODE(B.参保类别, 1, '医保一般诊疗', 2, '合医一般诊疗', A.结算方式) AS 项目, /* SUM(NVL(A.冲预交, 0)) 金额, */ DECODE(SIGN(SUM(NVL(A.冲预交, 0))), -1, '退：￥', '收：￥') ||LTRIM(TO_CHAR(SIGN(SUM(NVL(A.冲预交, 0))) * SUM(NVL(A.冲预交, 0)), '999999990.00')) || '/大写：' || ZLUPPMONEY(SIGN(SUM(NVL(A.冲预交, 0))) * SUM(NVL(A.冲预交, 0))) AS 内容 FROM ZLHIS.病人预交记录 A, ZLHIS.CQ_保险结算记录 B WHERE A.操作员姓名 || '' ='郑娟' AND A.收款时间 BETWEEN To_Date(:V009, 'YYYY-MM-DD') AND To_Date(:V010, 'YYYY-MM-DD')+1 - 1 / 24 / 60 / 60 AND A.记录性质 IN (3, 4) AND NVL(A.校对标志, 0)=0 AND 结算方式='一般诊疗支付' AND A.结帐ID=B.结帐ID AND 险类=102 GROUP BY DECODE(B.参保类别, 1, '医保一般诊疗', 2, '合医一般诊疗', A.结算方式) HAVING SUM(NVL(A.冲预交, 0)) <> 0 UNION SELECT 3 AS 序号, '职工号' AS 项目, DECODE(SIGN(SUM(NVL(B.实收金额, 0))), -1, '退：￥', '收：￥') ||LTRIM(TO_CHAR(SIGN(SUM(NVL(B.实收金额, 0))) * SUM(NVL(B.实收金额, 0)), '999999990.00')) || '/大写：' || ZLUPPMONEY(SIGN(SUM(NVL(B.实收金额, 0))
) * SUM(NVL(B.实收金额, 0))) AS 内容 FROM ZLHIS.病人挂号记录 A, ZLHIS.病人费用记录 B, ZLHIS.挂号安排 C, ZLHIS.部门表 D, ZLHIS.挂号项目 E WHERE A.NO = B.NO AND A.号别 = C.号码 AND A.执行部门ID = D.ID AND C.项目ID = E.序号 AND B.记录性质 = 4 AND A.病人ID = B.病人ID(+) AND E.名称 = '职工号
' AND A.操作员姓名 ='郑娟' AND INSTR(A.操作员姓名, '欠费管理本') = 0 AND A.登记时间 BETWEEN To_Date(:V011, 'YYYY-MM-DD') AND To_Date(:V012, 'YYYY-MM-DD')+1 - 1 / 24 / 60 / 60 UNION SELECT 4 AS 序号, '票据收退' AS 项目, '收费:'||SUM(DECODE(原因, 1, 1, 0))||'张, 退费:'||SUM(DECODE(原因, 2, 1, 0))||'张, 重打:'||SUM(DECODE(原因, 3, 1, 0))||'张' FROM ZLHIS.票据使用明细 WHERE 票种+0=1 AND 使用人||''='郑娟' AND 使用时间 BETWEEN To_Date(:V013, 'YYYY-MM-DD') AND To_Date(:V014, 'YYYY-MM-DD') +1-1/24/60/60 UNION SELECT 5 AS 序号, DECODE(记录性质, 4, '挂号号码范围', '收费号码范围') AS 项目, MIN(NO)||'～'||MAX(NO) AS 内容 FROM ZLHIS.病人费用记录 WHERE 操作员姓名||''='郑娟' AND 登记时间 BETWEEN To_Date(:V015, 'YYYY-MM-DD') AND To_Date(:V016, 'YYYY-MM-DD') +1-1/24/60/60 AND 记录性质 IN (1, 4) AND 记录状态<>2 AND 记录状态<>0 GROUP BY DECODE(记录性质, 4, '挂号号码范围', '收费号码范围') UNION SELECT 7 AS 序号, 项目, 内容 FROM (SELECT A.领用ID, '实际票号' AS 项目, MIN(A.号码)||'～'||MAX(A.号码) AS 内容 FROM ZLHIS.票据使用明细 A, ZLHIS.票据领用记录 B WHERE A.票种 IN(1, 4) AND A.使用人||''='郑娟' AND A.使用时间 BETWEEN To_Date(:V017, 'YYYY-MM-DD') AND To_Date(:V018, 'YYYY-MM-DD') +1-1/24/60/60 AND A.性质=1 AND A.号码 BETWEEN B.开始号码 AND B.终止号码 AND A.领用ID=B.ID GROUP BY A.领用ID, A.使用人 ) ) ORDER BY 序号 |
| 8r21vy9nf5294 | Select A.病人ID, A.主页ID, B.住院号, C.床号, B.姓名, B.性别, B.年龄, Min(A.完成时间) as 时间, -1 As 医嘱状态, '' as 状态 From ( Select A.病人ID, A.主页ID, A.病历种类, A.病历名称, A.签名级别, A.完成时间, B.保留 From 电子病历记录 A, 病历文件列表 B Where A.病人来源 = 2 And A.病历种类 In (2, 5, 6) And Nvl(A.处理状态, 0)<=0 And A.归档人 Is Null And A.文件ID=B.ID(+) And A.完成时间>=Trunc(Sysdate-(:V001-1)) And A.科室ID=:V002) A, 病人信息 B, 病人变动记录 C Where A.病人ID=B.病人ID And (A.病历种类<>2 Or Nvl(A.保留, 0)>=0) And A.病人ID=C.病人ID And A.主页ID=C.主页ID And C.开始时间 Is Not Null And Nvl(C.附加床位, 0)=0 And (C.终止时间 Is Null Or C.终止原因=1) And A.签名级别<Decode(:V003, C.主任医师, 4, C.主治医师, 2, C.经治医师, 1, 0) Group by A.病人ID, A.主页ID, B.住院号, C.床号, B.姓名, B.性别, B.年龄 Order by 时间 |
| 8s9n6jthg2dz5 |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((270341, 2)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL
(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((270341, 2)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD HH24:MI:SS')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((270341, 2)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关I
D+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮
试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((270341, 2)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.
诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD HH24:MI:SS')<=执行终止时间 OR 执行终止时间 I
S NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((270341, 2)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) A
S 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((270341, 2)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| 8vu4gcd29ncpa |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((839859, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL
(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((839859, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD HH24:MI:SS')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((839859, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关I
D+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮
试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((839859, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.
诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD HH24:MI:SS')<=执行终止时间 OR 执行终止时间 I
S NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((839859, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) A
S 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((839859, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| 8x0p9faaqjta6 | Select Rownum As 序号, a.* From (
Select f.名称 As 药品名称, e.药品剂型, f.规格, Sum(c.数次) As 数量,
SUM(SUBSTR(B.标识码, INSTR(B.标识码, ', ')+1)*C.数次/SUBSTR(B.标识码, 1, INSTR(B.标识码, ', ')-1)) 累计DDD值, '' As 备注
From 住院费用记录 c, 药品规格 b, 药品特性 e, 药品目录 f
Where c.记录状态<>0 And c.记录性质 In (2, 3) And c.门诊标志=2 And c.收费类别 In ('5', '6') And b.药品id=c.收费细目id And c.收费细目id=f.药品id
And b.药名id=e.药名id And nvl(e.抗生素, 0)=3
and c.登记时间 between /*B0*/TO_DATE('2013-01-01', 'YYYY-MM-DD')/*E0*/ and /*B1*/TO_DATE('2013-03-31', 'YYYY-MM-DD')/*E1*/+1 - 1 / 24 / 60 / 60 and c.实收金额 is not Null
Group By f.名称, e.药品剂型, f.规格
Order By SUM(SUBSTR(B.标识码, INSTR(B.标识码, ', ')+1)*C.数次/SUBSTR(B.标识码, 1, INSTR(B.标识码, ', ')-1)) Desc
) a
Where Rownum <=5
|
| 8zr78rn01jcvs |
SELECT /*+rule*/ Distinct A.*, Nvl(C.留存数量, 0) As 留存数量 , '' As 退药人 FROM (SELECT DISTINCT S.ID As 收发ID, to_char(S.效期, 'YYYY-MM-dd') 效期, S.记录状态, S.药品ID, S.费用id, NVL(N.已收费, 0) 已收费, P.名称 科室, S.配药人, C.开单人 开单医生, C.操作员姓名 审核人, S.单据, S.扣率, S.NO, S.序号, C.病人ID, Nvl(C.主页ID, 0) As 主页ID, Nvl(C.床号, '(未安排)') As 床号, C.姓名, C.性别, C.门诊标志, C.标识号, C.操作员姓名, S.付数 付, S.实际数量 数量, NVL(D.药房分批, 0) 分批, Nvl(D.高危药品, 0) As 高危药品, X.规格, T.毒理分类, T.价值分类, Nvl(T.抗生素, 0) 抗生素, C.登记时间, H.编码 As 领药部门编码, H.名称 As 领药部门, H.Id As 领药部门Id, S.零售价 单价, S.零售金额 金额, S.单量, S.频次, S.用法, S.摘要 说明, DECODE(S.批号, NULL, '', S.批号)||DECODE(S.批次, NULL, '', 0, '', '('||S.批次||')') 批号, NVL(S.批次, 0) 批次, Ceil((s.实际数量 * d.剂量系数) / Nvl(s.单量, 1)) As 发送数次, C.医嘱序号, I.计算单位, NVL(S.产地, NVL(X.产地, '')) 产地, nvl(M.审查结果, -1) 审查结果, M.皮试结果, decode(m.用药目的, 1, '预防', 2, '治疗', 3, '预防和治疗', '') 用药目的, m.用药理由, D.药名ID, nvl(C.医嘱序号, -1) 医嘱id, '' 库房货位, M.相关ID, C.病人科室ID As 科室ID, C.序号 费用序号, 0 库存下限, Z.名称 As 英文名, R.年龄, N.领药号, NVL(E.名称, '') As 其它名, '['||X.编码||']'||X.名称 As 品名, X.编码 As 药品编码, X.名称 As 药品名称, s.入出类别id, s.入出系数, s.填制人, s.填制日期, s.配药日期 , D.住院单位 单位, D.住院包装 包装 , 0 As 库存数量 FROM 药品收发记录 S, 住院费用记录 C, 病人医嘱记录 M,
未发药品记录 N, 收费项目别名 E, 收费项目目录 X, 诊疗项目目录 I, 药品规格 D, 药品特性 T, 诊疗项目别名 Z, 部门表 P, 部门表 H, 病人信息 R , Table(Cast(f_Num2List(:V001) As zlTools.t_NumList)) G WHERE S.NO=N.NO AND S.单据=N.单据 AND NVL(S.库房ID, :V002)+0=NVL(N.库房ID, :V003) AND S.费用ID=C.ID And S.药品ID=D.药品ID AND S.对方部门ID+0=H.ID AND S.审核人 IS NULL AND NVL(S.库房ID, :V004)+0=:V005 AND C.病人科室ID=P.id And d.药品ID=X.ID and
D.药名ID=T.药名ID AND D.药名ID=I.ID and C.医嘱序号=M.ID(+) And D.药名id = Z.诊疗项目id(+) And Z.性质(+) = 2 AND D.药品ID=E.收费细目ID(+) AND E.性质(+)=3 And nvl(S.发药方式, -999)<>-1 And N.病人id = R.病人id And S.单据 In(9, 10) And N.填制日期 Between :V006 And :V007 And S.ID= G.Column_Value And S.扣率 Is Not Null And (Ltrim(To_Char(Nvl(S.扣率, 0), '00')) Like '0_' Or Ltrim(To_Char(Nvl(S.扣率, 0), '00')) Like '1_') And Nvl(C.医嘱序号, 0) + 0 > 0 And Not Ltrim(To_Char(Nvl(S.扣率, 0), '00')) Like '_3' And Not Ltrim(To_Char(Nvl(S.扣率, 0), '00')) Like '_4' Union All SELECT DISTINCT S.ID As 收发ID, to_char(S.效期, 'YYYY-MM-dd') 效期, S.记录状态, S.药品ID, S.费用id, NVL(N.已收费, 0) 已收费, P.名称 科室, S.配药人, C.开单人 开单医生, C.操作员姓名 审核人, S.单据, S.扣率, S.NO, S.序号, C.病人ID, Nvl(C.主页ID, 0) As 主页ID, Nvl(C.床号, '(未安排)') As 床号, C.姓名, C.性别, C.门诊标志, C.标识号, C.操作员姓名, S.付数 付, S.实际数量 数量, NVL(D.药房分批, 0) 分批, Nvl(D.高危药品, 0) As 高危药品, X.规格, T.毒理分类, T.价值分类, Nvl(T.抗生素, 0) 抗生素, C.登记时间, H.编码 As 领药部门编码, H.名称 As 领药部门, H.Id As 领药部门Id, S.零售价 单价, S.零售金额 金额, S.单量, S.频次, S.用法, S.摘要 说明, DECODE(S.批号, NULL, '', S.批号)||DECODE(S.批次, NULL, '', 0, '', '('||S.批次||')') 批号, NVL(S.批次, 0) 批次, Ceil((s.实际数量 * d.剂量系数) / Nvl(s.单量, 1)) As 发送数次, C.医嘱序号, I.计算单位, NVL(S.产地, NVL(X.产地, '')) 产地, nvl(M.审查结果, -1) 审查结果, M.皮试结果, decod
e(m.用药目的, 1, '预防', 2, '治疗', 3, '预防和治疗', '') 用药目的, m.用药理由, D.药名ID, nvl(C.医嘱序号, -1) 医嘱id, '' 库房货位, M.相关ID, C.病人科室ID As 科室ID, C.序号 费用序号, 0 库存下限, Z.名称 As 英文名, R.年龄, N.领药号, NVL(E.名称, '') As 其它名, '['||X.编码||']'||X.名称 As 品名, X.编码 As 药品编码, X.名称 As 药品名称, s.入出类别id, s.入出
系数, s.填制人, s.填制日期, s.配药日期 , D.住院单位 单位, D.住院包装 包装 , 0 As 库存数量 FROM 药品收发记录 S, 住院费用记录 C, 病人医嘱记录 M, (Select A.单据, A.NO, A.病人id, A.主页id, A.姓名, Nvl(B.优先级, 0) 优先级, A.对方部门id, A.库房id, A.发药窗口, A.填制日期, A.已收费, Null As 配药人, 0 As 打印状态, 0 As 未发数, A.产品合格证 As 领药号 From (Select B.单据, B.NO, A.病人id, Nvl(A.主页ID, 0) As 主页ID, A.姓名, Decode(A.记录状态, 0, 0, 1) 已收费, B.对方部门id, B.库房id, B.发药窗口 , B.填制日期, C.身份, B.产品合格证 From 住院费用记录 A, 药品收发记录 B, 病人信息 C Where A.ID = B.费用id + 0 And B.审核日期 Is Null And B.摘要 = '拒发' And Nvl(B.库房id, :V008) = :V009 And B.填制日期 Between :V010 And :V011 And A.病人id = C.病人id(+)) A, 身份 B Where B.名称(+) = A.身份) N, 收费项目别名 E, 收费项目目录 X, 诊疗项目目录 I, 药品规格 D, 药品特性 T, 诊疗项目别名 Z, 部门表 P, 部门表 H, 病人信息 R , Table(Cast(f_Num2List(:V012) As zlTools.t_NumList)) G WHERE S.NO=N.NO AND S.单据=N.单据 AND NVL(S.库房ID, :V013)+0=NVL(N.库房ID, :V014) AND S.费用ID=C.ID And S.药品ID=D.药品ID AND S.对方部门ID+0=H.ID AND S.审核人 IS NULL AND NVL(S.库房ID, :V015)+0=:V016 AND C.病人科室ID=P.id And d.药品ID=X.ID and D.药名ID=T.药名ID AND D.药名ID=I.ID and C.医嘱序号=M.ID(+) And D.药名id = Z.诊疗项目id(+) And Z.性质(+) = 2 AND D.药品ID=E.收费细目ID(+) AND E.性质(+)=3 And nvl(S.发药方式, -999)<>-1 And N.病人id = R.病人id And S.单据 In(9, 10) And N.填制日期 Bet
ween :V017 And :V018 And S.ID= G.Column_Value And S.扣率 Is Not Null And (Ltrim(To_Char(Nvl(S.扣率, 0), '00')) Like '0_' Or Ltrim(To_Char(Nvl(S.扣率, 0), '00')) Like '1_') And Nvl(C.医嘱序号, 0) + 0 > 0 And Not Ltrim(To_Char(Nvl(S.扣率, 0), '00')) Like '_3' And Not Ltrim(To_Char(Nvl(S.扣率, 0),
'00')) Like '_4') A , (Select 药品id, 库房id, 部门id, 留存数量 From 药品留存计划 Where 状态=0) C Where A.领药部门id = C.部门id(+) And C.库房id(+) = :V019 And A.药品id = C.药品id(+) And Not Exists (Select 1 From 病人费用销帐 X Where X.申请类别 = 0 And X.状态 = 0 And X.收费细目id = A.药品id And X.费用id = A.费用id) Order By a.科室, a.No, a.费用序号 |
| 92wt44qz3jvmb | SELECT DISTINCT B.名称, A.样本条码, A.接收时间, C.标本部位 AS 标本类型 FROM ZLHIS.病人医嘱发送 A, ZLHIS.部门表 B, ZLHIS.病人医嘱记录 C WHERE A.接收时间 BETWEEN To_Date(:V001, 'YYYY-MM-DD HH24:MI:SS') AND To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS') AND A.执行部门ID=147 AND A.医嘱ID=C.ID AND C.开嘱科室ID=B.ID ORDER BY B.名称, A.接收时间 |
| 9hdu1v1tx630t |
Select /*+ rule*/Rownum as KeyID, A.* From ( Select A.类别 AS 类别ID, E.ID as 诊疗项目ID, A.ID as 收费细目ID, F.名称 AS 类别, Decode(C.基本药物, Null, Null, '*') as 基本, A.编码, A.名称, A.商品名, A.简码, E.计算单位, A.规格, A.产地, D.药品剂型, Null as 项目特性, A.费用类型, A.医保大类, A.说明, D.处方职务 as 处方职务ID, Decode(A.价格, NULL, NULL, A.价格*C.住院包装||'/'||C.住院单位) as 价格, Decode(X.库存, NULL, NULL, Round(X.库存/C.住院包装, 5)||C.住院单位) as 库存, Decode(d.抗生素, 0, '', 1, '非限制使用', 2, '限制使用', 3, '特殊使用') as 抗菌等级 From 药品规格 C, 药品特性 D, 诊疗项目目录 E, 收费项目类别 F, (Select A.ID, A.类别, A.编码, A.名称, A.商品名, A.简码, A.零售单位, A.零售包装, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Sum(Decode(A.是否变价, 1, NULL, B.现价)) as 价格 From 收费价目 B, (Select A.ID, A.类别, A.编码, B.名称, Null as 商品名, B.简码, A.计算单位 as 零售单位, 1 as 零售包装, A.规格, A.产地, A.费用类型, N.名称 as 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A, 保险支付项目 M, 保险支付大类 N Where A.ID=B.收费细目ID And A.类别 IN ('5', '6', '7') And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.服务对象 IN(:V001, 3) Or :V002=3 And Nvl(A.服务对象, 0)<>0) And (A.编码 Like :V003 And B.码类=:V004 Or B.名称 Like :V005 And B.码类=:V006 Or B.简码 Like :V007 And B.码类 IN(:V008, 3)) And A.ID=M.收费细目ID(+) And M.大类ID=N.ID(+) And M.险类(+)=:V009) A Where A.ID=B.收费细
目ID And Sysdate Between B.执行日期 And Nvl(B.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, A.编码, A.名称, A.商品名, A.简码, A.零售单位, A.零售包装, A.规格, A.产地, A.费用类型, A.医保大类, A.说明) A, (Select A.药品ID, Nvl(Sum(A.可用数量), 0) as 库存 From 药品库存 A, 收费项目目录 B Where A.性质 = 1 And (Nvl(A.批次, 0)=0 Or A.效期 Is N
ull Or A.效期>Trunc(Sysdate)) And A.库房ID=Decode(B.类别, '5', :V010, '6', :V011, '7', :V012, Null) And A.药品ID=B.ID And B.类别 IN('5', '6', '7') Group by A.药品ID Having Nvl(Sum(A.可用数量), 0)<>0) X Where A.ID=C.药品ID And C.药名ID=D.药名ID And D.药名ID=E.ID And A.类别=F.编码 And E.类别 IN('5', '6', '7') And (E.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or E.撤档时间 IS NULL) And (E.服务对象 IN(:V013, 3) Or :V014=3 And Nvl(E.服务对象, 0)<>0) And Nvl(E.执行频率, 0) IN(0, :V015) And A.ID=X.药品ID(+) And (D.临床自管药=1 Or ( A.类别='5' And Exists(Select 1 From 药品库存 Where 药品ID = c.药品ID And 性质 = 1 And (Nvl(批次, 0) = 0 Or 效期 Is Null Or 效期 > Trunc(Sysdate)) And 可用数量>0 And 库房ID In(156)) Or A.类别='6' And Exists(Select 1 From 药品库存 Where 药品ID = c.药品ID And 性质 = 1 And (Nvl(批次, 0) = 0 Or 效期 Is Null Or 效期 > Trunc(Sysdate)) And 可用数量>0 And 库房ID In(157)) Or A.类别='7' And Exists(Select 1 From 药品库存 Where 药品ID = c.药品ID And 性质 = 1 And (Nvl(批次, 0) = 0 Or 效期 Is Null Or 效期 > Trunc(Sysdate)) And 可用数量>0 And 库房ID In(157)))) Union ALL Select A.类别 As 类别ID, A.ID as 诊疗项目ID, -Null as 收费细目ID, D.名称 As 类别, Null as 基本, A.编码, B.名称, Null as 商品名, B.简码, A.计算单位, A.标本部位 as 规格, Null as 产地, Null as 药品剂型, Decode(A.类别, 'H', Decode(A.操作类型, '1', '护理等级', '护理常规'), 'E', Decode(A.操作类型, '1', '过敏试验', '2', '给药途径', '3', '中药煎法', '4', '中药用法', '5',
'特殊治疗', '6', '采集方法', '7', '配血方法', '8', '输血途径', Null), 'Z', Decode(A.操作类型, '1', '留观', '2', '住院', '3', '转科', '4', '术后', '5', '出院', '6', '转院', '7', '会诊', '8', '抢救', '9', '病重', '10', '病危', '11', '死亡', '12', '记
录入出量', '14', '术前', NULL), A.操作类型) As 项目特性, Null as 费用类型, Null as 医保大类, Null as 说明, Null as 处方职务ID, Null as 价格, Null as 库存, Null As 抗菌等级 From 诊疗项目类别 D, 诊疗项目别名 B, 诊疗项目目录 A Where A.ID=B.诊疗项目ID And A.类别=D.编码 And A.类别 Not IN('4', '5', '6', '7') And ((A.类别<>'9' Or A.类别='9' And (A.人员ID=:V016 Or A.人员ID is Null)) And (Exists(Select 1 From 诊疗适用科室 Where 项目ID=A.ID And Instr(:V017, ', '||科室ID||', ')>0) Or Not Exists(Select 1 From 诊疗适用科室 Where 项目ID=A.ID))) And Nvl(A.单独应用, 0)=1 And Instr(:V018, ', '||Nvl(A.适用性别, 0)||', ')>0 And Nvl(A.执行频率, 0) IN(0, :V019) And (A.编码 Like :V020 Or B.名称 Like :V021 Or B.简码 Like :V022) And B.码类=:V023 And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.服务对象 IN(:V024, 3) Or :V025=3 And Nvl(A.服务对象, 0)<>0) Union ALL Select A.类别 AS 类别ID, E.ID as 诊疗项目ID, A.ID as 收费细目ID, F.名称 AS 类别, Null as 基本, A.编码, A.名称, Null as 商品名, A.简码, A.计算单位, A.规格, A.产地, Null as 药品剂型, Null as 项目特性, A.费用类型, A.医保大类, A.说明, Null as 处方职务ID, Decode(A.价格, NULL, NULL, A.价格||'/'||A.计算单位) as 价格, Null as 库存, Null As 抗菌等级 From 材料特性 C, 诊疗项目目录 E, 收费项目类别 F, (Select A.ID, A.类别, A.编码, A.名称, A.简码, A.计算单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Sum(Decode(A.是否变价, 1, NULL, B.现价)) as 价格 From 收费
价目 B, (Select A.ID, A.类别, A.编码, B.名称, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, N.名称 as 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A, 保险支付项目 M, 保险支付大类 N Where A.ID=B.收费细目ID And A.类别='4' And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='
-' Or A.站点 is Null) And (A.服务对象 IN(:V026, 3) Or :V027=3 And Nvl(A.服务对象, 0)<>0) And (A.编码 Like :V028 Or B.名称 Like :V029 Or B.简码 Like :V030) And B.码类=:V031 And A.ID=M.收费细目ID(+) And M.大类ID=N.ID(+) And M.险类(+)=:V032) A Where A.ID=B.收费细目ID And Sysdate Between B.执行日期 And Nvl(B.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, A.编码, A.名称, A.简码, A.计算单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明) A Where A.ID=C.材料ID And C.诊疗ID=E.ID And A.类别=F.编码 And E.类别='4' And C.核算材料=0 And (E.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or E.撤档时间 IS NULL) And (E.服务对象 IN(:V033, 3) Or :V034=3 And Nvl(E.服务对象, 0)<>0) And Nvl(E.执行频率, 0) IN(0, :V035)) A Order by Decode(类别ID, '4', 'Z', 类别ID), 类别, 编码 |
| 9shdu7n1y55ar |
SELECT '总合计' 科室, SUM(原有人数) 原有人数, SUM(入院人数) 入院人数, SUM(转入人数) 转入人数, SUM(转出人数) 转出人数, SUM(出院人数) 出院人数, SUM(现有人数) 现有人数, SUM(一级护理) 一级护理, SUM(特级护理) 特级护理, SUM(危重病人数) 危重病人数, SUM(转院) 转院, SUM(死亡) 死亡 FROM ( SELECT 科室ID, 科室, SUM(原有人数) AS 原有人数, SUM(入院人数) AS 入院人数, SUM(转入人数) AS 转入人数, SUM(转出人数) AS 转出人数, SUM(出院人数) AS 出院人数, SUM(现有人数) AS 现有人数, SUM(一级护理) AS 一级护理, SUM(特级护理) AS 特级护理, SUM(危重病人数) AS 危重病人数, SUM(转院) 转院, SUM(死亡) 死亡 FROM ( SELECT 科室ID, 科室, COUNT(病人ID) AS 原有人数, 0 AS 入院人数, 0 AS 转入人数, 0 AS 转出人数, 0 AS 出院人数, 0 AS 现有人数, 0 AS 一级护理, 0 AS 特级护理, 0 AS 危重病人数, 0 转院, 0 死亡 FROM (SELECT DISTINCT 科室ID, 科室, 病人ID, 主页ID, 住院号, 姓名, 1 AS 附加信息 FROM ( SELECT DISTINCT D.ID 科室ID, D.名称 AS 科室, A.病人ID, A.主页ID, B.住院号, C.姓名 FROM ZLHIS.病人变动记录 A, ZLHIS.病案主页 B, ZLHIS.病人信息 C, (SELECT ID, 名称 FROM ZLHIS.部门表 START WITH ID=65 CONNECT BY PRIOR ID=上级ID) D WHERE A.病人ID = B.病人ID AND A.主页ID = B.主页ID AND A.病人ID = C.病人ID AND B.主页ID<>0 AND A.主页ID<>0 AND A.科室ID=D.ID AND A.开始原因<>1 AND (A.开始时间 < To_Date(:V001, 'YYYY-MM-DD') AND NVL(A.终止时间, TO_DATE('3000-01-01', 'YYYY-MM-DD')) >=To_Date(:V002, 'YYYY-MM-DD') ) AND NVL(A.附加床位, 0) = 0 AND NVL(B.病人性质, 0)<>1 AND (NOT(EXISTS (SELECT 1 FROM ZLHIS.病人变动记录 WHE
RE 病人ID = A.病人ID AND 主页ID = A.主页ID AND 开始时间 > A.开始时间 AND 开始原因 = 9)) AND NVL(B.病人性质, 0) <> 2) ) ) GROUP BY 科室, 科室ID UNION ALL SELECT 科室ID, 科室, 0 AS 原有人数, COUNT(病人ID) AS 入院人数, 0 AS 转入人数, 0 AS 转出人数, 0 AS 出院人数, 0 AS 现有人数, 0 AS 一级护理, 0 AS 特级护理, 0 AS 危重病人数, 0 转院, 0 死亡 FROM (SELECT DISTINCT C.ID 科室ID, C.名称 AS 科室,
A.病人ID, A.主页ID, B.住院号, DECODE(NVL(B.病人性质, 0), 2, '1', '0') AS 附加信息 FROM ZLHIS.病人变动记录 A, ZLHIS.病案主页 B, (SELECT ID, 名称 FROM ZLHIS.部门表 START WITH ID=65 CONNECT BY PRIOR ID=上级ID) C WHERE A.病人ID = B.病人ID AND A.主页ID = B.主页ID AND A.科室ID=C.ID AND A.开始原因 = 1 AND NVL(A.附加床位, 0) = 0 AND A.终止时间 BETWEEN To_Date(:V003, 'YYYY-MM-DD') AND To_Date(:V004, 'YYYY-MM-DD HH24:MI:SS') AND (NOT (EXISTS (SELECT 1 FROM ZLHIS.病人变动记录 WHERE 病人ID = A.病人ID AND 主页ID = A.主页ID AND 开始时间 > A.开始时间 AND 开始原因 = 9)) AND NVL(B.病人性质, 0) <> 2) ) GROUP BY 科室, 科室ID UNION ALL SELECT A.科室, D.名称, 原有人数, 入院人数, 转入人数, 转出人数, 出院人数, 现有人数, 一级护理, 特级护理, 危重病人数, 转院, 死亡 FROM ( SELECT 转入科室 AS 科室, 0 AS 原有人数, 0 AS 入院人数, SUM(转科次数) AS 转入人数, 0 AS 转出人数, 0 AS 出院人数, 0 AS 现有人数, 0 AS 一级护理, 0 AS 特级护理, 0 AS 危重病人数, 0 转院, 0 死亡 FROM ( SELECT B.住院号, C.姓名, A.病人ID, A.主页ID, SUM(1) AS 转科次数, 转入科室 AS 转入科室, '0' AS 附加信息 FROM ( SELECT 病人ID, B.ID 部门ID, 主页ID, 科室ID, 开始时间, 终止时间, 开始原因, 终止原因, LEAD(B.ID, 1, NULL) OVER(PARTITION BY 病人ID, 主页ID ORDER BY 病人ID, 主页ID, 开始时间, 终止时间) AS 转入科室 FROM ZLHIS.病人变动记录 A, (SELECT ID, 名称 FROM ZLHIS.部门表 START WITH ID=65 CONNECT BY PRIOR ID=上级ID) B WHERE A.科室ID = B.ID AND NVL(A.附加床位, 0) = 0 AND ((A.开始时间 BETWEEN To_Date(:V005, 'YYYY-MM-DD') AND To_Date(:V006, 'YY
YY-MM-DD HH24:MI:SS')) OR (A.终止时间 BETWEEN To_Date(:V007, 'YYYY-MM-DD') AND To_Date(:V008, 'YYYY-MM-DD HH24:MI:SS')))) A, ZLHIS.病案主页 B, ZLHIS.病人信息 C WHERE A.病人ID = B.病人ID AND A.主页ID = B.主页ID AND A.病人ID=C.病人ID AND NVL(B.主页ID, 0) <> 0 AND A.终止原因 = 3 AND NVL(B.病人性质, 0) IN (
0 ) AND (A.终止时间 BETWEEN To_Date(:V009, 'YYYY-MM-DD') AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')) AND NOT EXISTS (SELECT 1 FROM ZLHIS.病人变动记录 WHERE A.病人ID = 病人ID AND A.主页ID = B.主页ID AND 终止原因 = 9 /*9-留观病人转住院*/ AND A.终止时间 < 终止时间) GROUP BY B.住院号, C.姓名, A.病人ID, A.主页ID, 转入科室 ) GROUP BY 转入科室 ) A, (SELECT ID, 名称 FROM ZLHIS.部门表 START WITH ID=65 CONNECT BY PRIOR ID=上级ID) D WHERE A.科室=D.ID UNION ALL SELECT A.科室, D.名称, 原有人数, 入院人数, 转入人数, 转出人数, 出院人数, 现有人数, 一级护理, 特级护理, 危重病人数, 转院, 死亡 FROM ( SELECT 转出科室 AS 科室, 0 AS 原有人数, 0 AS 入院人数, 0 AS 转入人数, SUM(转科次数) AS 转出人数, 0 AS 出院人数, 0 AS 现有人数, 0 AS 一级护理, 0 AS 特级护理, 0 AS 危重病人数, 0 转院, 0 死亡 FROM ( SELECT B.住院号, C.姓名, A.病人ID, A.主页ID, SUM(1) AS 转科次数, 转出科室 AS 转出科室, '0' AS 附加信息 FROM (SELECT 病人ID, 主页ID, 科室ID, 开始时间, 开始原因, LAG(B.ID, 1, NULL) OVER(PARTITION BY 病人ID, 主页ID ORDER BY 病人ID, 主页ID, 开始时间, 终止时间) AS 转出科室 FROM ZLHIS.病人变动记录 A, (SELECT ID, 名称 FROM ZLHIS.部门表 START WITH ID=65 CONNECT BY PRIOR ID=上级ID) B WHERE A.科室ID = B.ID AND NVL(A.附加床位, 0) = 0 AND ((A.开始时间 BETWEEN To_Date(:V011, 'YYYY-MM-DD') AND To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS')) OR (A.终止时间 BETWEEN To_Date(:V013, 'YYYY-MM-DD') AND To_Date(:V014, 'YYYY-MM-DD HH24:MI:SS')))) A, ZLHIS.病案主页 B, ZLHIS.病人信息 C WHERE A.病人ID = B.病人ID AND A.主页ID = B.主页ID
AND A.病人ID = C.病人ID AND NVL(B.主页ID, 0) <> 0 AND A.开始原因 = 3 AND NVL(B.病人性质, 0) IN (0) AND (A.开始时间 BETWEEN To_Date(:V015, 'YYYY-MM-DD') AND To_Date(:V016, 'YYYY-MM-DD HH24:MI:SS')) AND NOT EXISTS (SELECT 1 FROM ZLHIS.病人变动记录 WHERE A.病人ID = 病人ID AND A.主页ID =
B.主页ID AND 开始原因 = 9 /*9-留观病人转住院*/ AND A.开始时间 < 开始时间) GROUP BY B.住院号, C.姓名, A.病人ID, A.主页ID, 转出科室 ) GROUP BY 转出科室 ) A, (SELECT ID, 名称 FROM ZLHIS.部门表 START WITH ID=65 CONNECT BY PRIOR ID=上级ID) D WHERE A.科室=D.ID UNION ALL SELECT 科室ID, 科室, 0 AS 原有人数, 0 AS 入院人数, 0 AS 转入人数, 0 AS 转出人数, SUM(出院) AS 出院人数, 0 AS 现有人数, 0 AS 一级护理, 0 AS 特级护理, 0 AS 危重病人数, SUM(转院) 转院, SUM(死亡) 死亡 FROM (SELECT DISTINCT C.ID 科室ID, C.名称 AS 科室, A.病人ID, A.主页ID, B.住院号, DECODE(NVL(B.病人性质, 0), 2, '1', '0') AS 附加信息, DECODE(B.出院方式, '转院', 0, '死亡', 0, 1) 出院, DECODE(B.出院方式, '转院', 1, 0) 转院, DECODE(B.出院方式, '死亡', 1, 0) 死亡 FROM ZLHIS.病人变动记录 A, ZLHIS.病案主页 B, (SELECT ID, 名称 FROM ZLHIS.部门表 START WITH ID=65 CONNECT BY PRIOR ID=上级ID) C WHERE A.病人ID = B.病人ID AND A.主页ID = B.主页ID AND A.科室ID=C.ID AND A.终止原因 = 1 AND NVL(A.附加床位, 0) = 0 AND A.终止时间 BETWEEN To_Date(:V017, 'YYYY-MM-DD') AND To_Date(:V018, 'YYYY-MM-DD HH24:MI:SS') AND (NOT (EXISTS (SELECT 1 FROM ZLHIS.病人变动记录 WHERE 病人ID = A.病人ID AND 主页ID = A.主页ID AND 开始时间 > A.开始时间 AND 开始原因 = 9)) AND NVL(B.病人性质, 0) <> 2) ) GROUP BY 科室, 科室ID UNION ALL SELECT 科室ID, 科室, 0 AS 原有人数, 0 AS 入院人数, 0 AS 转入人数, 0 AS 转出人数, 0 AS 出院人数, COUNT(病人ID) AS 现有人数, 0 AS 一级护理, 0 AS 特级护理, 0 AS 危重病人数, 0 转院, 0 死亡 FROM (SELECT DISTINCT 科室, 科室ID, 病
人ID, 主页ID, 住院号, 姓名, 1 AS 附加信息 FROM ( SELECT DISTINCT D.ID 科室ID, D.名称 AS 科室, A.病人ID, A.主页ID, B.住院号, C.姓名 FROM ZLHIS.病人变动记录 A, ZLHIS.病案主页 B, ZLHIS.病人信息 C, (SELECT ID, 名称 FROM ZLHIS.部门表 START WITH ID=65 CONNECT BY PRIOR ID=上级ID) D WHERE A.病人ID = B.病人ID AND A.主页ID = B.主页ID
AND A.病人ID = C.病人ID AND B.主页ID<>0 AND A.主页ID<>0 AND A.科室ID=D.ID AND A.开始原因<>1 AND (A.开始时间 <= To_Date(:V019, 'YYYY-MM-DD HH24:MI:SS') AND NVL(A.终止时间, TO_DATE('3000-01-01', 'YYYY-MM-DD')) >=To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS') ) AND NVL(A.附加床位, 0) = 0 AND NVL(B.病人性质, 0)<>1 AND (NOT(EXISTS (SELECT 1 FROM ZLHIS.病人变动记录 WHERE 病人ID = A.病人ID AND 主页ID = A.主页ID AND 开始时间 > A.开始时间 AND 开始原因 = 9)) AND NVL(B.病人性质, 0) <> 2) ) ) GROUP BY 科室, 科室ID UNION ALL SELECT C.ID 科室ID, C.名称, 0 AS 原有人数, 0 AS 入院人数, 0 AS 转入人数, 0 AS 转出人数, 0 AS 出院人数, 0 AS 现有人数, COUNT(DECODE(E.名称, '一级护理', 1, '一级护理（儿科）', 1)) AS 一级护理, COUNT(DECODE(E.名称, '特级护理', 1, '特级护理（儿科）', 1, '重症监护', 1, '重症监护（儿科）', 1)) AS 特级护理, COUNT(DECODE(B.当前病况, '急', 1, '危', 1)) AS 危重病人数, 0 转院, 0 死亡 FROM ZLHIS.病案主页 B, (SELECT ID, 名称 FROM ZLHIS.部门表 START WITH ID=65 CONNECT BY PRIOR ID=上级ID) C, ZLHIS.收费项目目录 E WHERE NVL(B.主页ID, 0) <> 0 AND ('1' = 1 OR NVL(B.状态, 0) <> 1) AND B.出院科室ID = C.ID AND B.护理等级ID = E.ID(+) AND B.出院日期 IS NULL AND NVL(B.病案状态, 0) <> 5 GROUP BY C.名称, C.ID ) GROUP BY 科室, 科室ID ) Q, (SELECT 信息值, 排序值 FROM ZLHIS.排序表 WHERE 表名='临床科室排序表') D WHERE Q.科室ID=D.信息值(+) ORDER BY D.排序值 |
| a75wjs5ambnkb | SELECT ZL_GET_REFERENCE(0, :B7 , :B6 , :B5 , :B4 , :B3 , :B2 , :B1 ) FROM DUAL |
| b72knfm3464j6 |
Select /*+ rule*/Rownum as KeyID, A.* From (Select A.*, R.频度 as 频度ID From ( Select A.类别 AS 类别ID, E.ID as 诊疗项目ID, A.ID as 收费细目ID, F.名称 AS 类别, Decode(C.基本药物, Null, Null, '*') as 基本, A.编码, A.名称, A.商品名, A.简码, E.计算单位, A.规格, A.产地, D.药品剂型, Null as 项目特性, A.费用类型, A.医保大类, A.说明, D.处方职务 as 处方职务ID, Decode(A.价格, NULL, NULL, A.价格*C.住院包装||'/'||C.住院单位) as 价格, Decode(X.库存, NULL, NULL, Round(X.库存/C.住院包装, 5)||C.住院单位) as 库存, Decode(d.抗生素, 0, '', 1, '非限制使用', 2, '限制使用', 3, '特殊使用') as 抗菌等级 From 药品规格 C, 药品特性 D, 诊疗项目目录 E, 收费项目类别 F, (Select A.ID, A.类别, A.编码, A.名称, A.商品名, A.简码, A.零售单位, A.零售包装, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Sum(Decode(A.是否变价, 1, NULL, B.现价)) as 价格 From 收费价目 B, (Select A.ID, A.类别, A.编码, B.名称, Null as 商品名, B.简码, A.计算单位 as 零售单位, 1 as 零售包装, A.规格, A.产地, A.费用类型, N.名称 as 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A, 保险支付项目 M, 保险支付大类 N Where A.ID=B.收费细目ID And A.类别 IN ('5', '6', '7') And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.服务对象 IN(:V001, 3) Or :V002=3 And Nvl(A.服务对象, 0)<>0) And (A.编码 Like :V003 And B.码类=:V004 Or B.名称 Like :V005 And B.码类=:V006 Or B.简码 Like :V007 And B.码类 IN(:V008, 3)) And A.ID=M.收费细目ID(+) And M.大类ID=N.ID(+) And M.险
类(+)=:V009) A Where A.ID=B.收费细目ID And Sysdate Between B.执行日期 And Nvl(B.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, A.编码, A.名称, A.商品名, A.简码, A.零售单位, A.零售包装, A.规格, A.产地, A.费用类型, A.医保大类, A.说明) A, (Select A.药品ID, Nvl(Sum(A.可用数量), 0) as 库存 From 药品库存 A, 收费项目目录 B Where A.性质 = 1 A
nd (Nvl(A.批次, 0)=0 Or A.效期 Is Null Or A.效期>Trunc(Sysdate)) And A.库房ID=Decode(B.类别, '5', :V010, '6', :V011, '7', :V012, Null) And A.药品ID=B.ID And B.类别 IN('5', '6', '7') Group by A.药品ID Having Nvl(Sum(A.可用数量), 0)<>0) X Where A.ID=C.药品ID And C.药名ID=D.药名ID And D.药名ID=E.ID And A.类别=F.编码 And E.类别 IN('5', '6', '7') And (E.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or E.撤档时间 IS NULL) And (E.服务对象 IN(:V013, 3) Or :V014=3 And Nvl(E.服务对象, 0)<>0) And Nvl(E.执行频率, 0) IN(0, :V015) And A.ID=X.药品ID(+) And (D.临床自管药=1 Or ( A.类别='5' And Exists(Select 1 From 药品库存 Where 药品ID = c.药品ID And 性质 = 1 And (Nvl(批次, 0) = 0 Or 效期 Is Null Or 效期 > Trunc(Sysdate)) And 可用数量>0 And 库房ID In(156)) Or A.类别='6' And Exists(Select 1 From 药品库存 Where 药品ID = c.药品ID And 性质 = 1 And (Nvl(批次, 0) = 0 Or 效期 Is Null Or 效期 > Trunc(Sysdate)) And 可用数量>0 And 库房ID In(157)) Or A.类别='7' And Exists(Select 1 From 药品库存 Where 药品ID = c.药品ID And 性质 = 1 And (Nvl(批次, 0) = 0 Or 效期 Is Null Or 效期 > Trunc(Sysdate)) And 可用数量>0 And 库房ID In(157)))) Union ALL Select A.类别 As 类别ID, A.ID as 诊疗项目ID, -Null as 收费细目ID, D.名称 As 类别, Null as 基本, A.编码, B.名称, Null as 商品名, B.简码, A.计算单位, A.标本部位 as 规格, Null as 产地, Null as 药品剂型, Decode(A.类别, 'H', Decode(A.操作类型, '1', '护理等级', '护理常规'), 'E', Decode(A.操作类型, '1', '过敏试验', '2', '给药途径', '3'
, '中药煎法', '4', '中药用法', '5', '特殊治疗', '6', '采集方法', '7', '配血方法', '8', '输血途径', Null), 'Z', Decode(A.操作类型, '1', '留观', '2', '住院', '3', '转科', '4', '术后', '5', '出院', '6', '转院', '7', '会诊', '8', '抢救', '9', '病重', '
10', '病危', '11', '死亡', '12', '记录入出量', '14', '术前', NULL), A.操作类型) As 项目特性, Null as 费用类型, Null as 医保大类, Null as 说明, Null as 处方职务ID, Null as 价格, Null as 库存, Null As 抗菌等级 From 诊疗项目类别 D, 诊疗项目别名 B, 诊疗项目目录 A Where A.ID=B.诊疗项目ID And A.类别=D.编码 And A.类别 Not IN('4', '5', '6', '7') And ((A.类别<>'9' Or A.类别='9' And (A.人员ID=:V016 Or A.人员ID is Null)) And (Exists(Select 1 From 诊疗适用科室 Where 项目ID=A.ID And Instr(:V017, ', '||科室ID||', ')>0) Or Not Exists(Select 1 From 诊疗适用科室 Where 项目ID=A.ID))) And Nvl(A.单独应用, 0)=1 And Instr(:V018, ', '||Nvl(A.适用性别, 0)||', ')>0 And Nvl(A.执行频率, 0) IN(0, :V019) And (A.编码 Like :V020 Or B.名称 Like :V021 Or B.简码 Like :V022) And B.码类=:V023 And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.服务对象 IN(:V024, 3) Or :V025=3 And Nvl(A.服务对象, 0)<>0) Union ALL Select A.类别 AS 类别ID, E.ID as 诊疗项目ID, A.ID as 收费细目ID, F.名称 AS 类别, Null as 基本, A.编码, A.名称, Null as 商品名, A.简码, A.计算单位, A.规格, A.产地, Null as 药品剂型, Null as 项目特性, A.费用类型, A.医保大类, A.说明, Null as 处方职务ID, Decode(A.价格, NULL, NULL, A.价格||'/'||A.计算单位) as 价格, Null as 库存, Null As 抗菌等级 From 材料特性 C, 诊疗项目目录 E, 收费项目类别 F, (Select A.ID, A.类别, A.编码, A.名称, A.简码, A.计算单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Sum(Decode(A.是否变价,
1, NULL, B.现价)) as 价格 From 收费价目 B, (Select A.ID, A.类别, A.编码, B.名称, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, N.名称 as 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A, 保险支付项目 M, 保险支付大类 N Where A.ID=B.收费细目ID And A.类别='4' And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD')
Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.服务对象 IN(:V026, 3) Or :V027=3 And Nvl(A.服务对象, 0)<>0) And (A.编码 Like :V028 Or B.名称 Like :V029 Or B.简码 Like :V030) And B.码类=:V031 And A.ID=M.收费细目ID(+) And M.大类ID=N.ID(+) And M.险类(+)=:V032) A Where A.ID=B.收费细目ID And Sysdate Between B.执行日期 And Nvl(B.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, A.编码, A.名称, A.简码, A.计算单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明) A Where A.ID=C.材料ID And C.诊疗ID=E.ID And A.类别=F.编码 And E.类别='4' And C.核算材料=0 And (E.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or E.撤档时间 IS NULL) And (E.服务对象 IN(:V033, 3) Or :V034=3 And Nvl(E.服务对象, 0)<>0) And Nvl(E.执行频率, 0) IN(0, :V035)) A, 诊疗个人项目 R Where R.诊疗项目ID=A.诊疗项目ID And (A.收费细目ID is Null Or A.收费细目ID = R.收费细目ID) And R.人员ID=:V036) A Order by 频度ID Desc, Decode(类别ID, '4', 'Z', 类别ID), 类别, 编码 |
| b9a59q31z5g7g |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((705553, 2)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(0, 1) AND (A.病人ID, A.主页ID) IN((705553, 2)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(0, 1) AND (A.病人ID, A.主页ID) IN((705553, 2)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓
名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE
(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(0, 1) AND (A.病人ID, A.主页ID) IN((705553, 2)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' A
ND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效,
0) IN(0, 1) AND (A.病人ID, A.主页ID) IN((705553, 2)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称,
ZL_ADVICEEXECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<&g
t;4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(0, 1) AND (A.病人ID, A.主页ID) IN((705553, 2)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| c1yr7s5676cm3 | Select Zl_Lob_Read(:V001, :V002, :V003, :V004) as 片段 From Dual |
| c749bc43qqfz3 | SELECT SYSDATE FROM DUAL |
| cam7tqqfxksj8 | SELECT T_REG_RECORD(:b1 , :b2 , "功能" ) FROM (SELECT G."功能" , R."功能" R_YES , P."功能" P_YES FROM (SELECT DISTINCT G."功能" FROM ZLROLEGRANT G , SYS.DBA_ROLE_PRIVS R WHERE R.GRANTEE = USER AND G."角色" = R.GRANTED_ROLE AND G."系统" = :b1 AND G."序号" = :b2 ) G , (SELECT R."功能" FROM ZLREGFUNC R WHERE R."系统" = TRUNC(:b1 / 100 ) AND R."序号" = :b2 ) R , (SELECT P."功能" FROM ZLREPORTS B , ZLRPTPUTS P WHERE P."报表ID" = B.ID AND B."系统" IS NULL AND P."系统" = :b1 AND P."程序ID" = :b2 ) P WHERE G."功能" = R."功能" (+) AND G."功能" = P."功能" (+) ) WHERE R_YES IS NOT NULL OR P_YES IS NOT NULL |
| cfcmpywa1smur |
Select /*+ rule*/Rownum as KeyID, A.* From ( Select A.类别 AS 类别ID, E.ID as 诊疗项目ID, A.ID as 收费细目ID, F.名称 AS 类别, Decode(C.基本药物, Null, Null, '*') as 基本, A.编码, A.名称, A.商品名, A.简码, E.计算单位, A.规格, A.产地, D.药品剂型, Null as 项目特性, A.费用类型, A.医保大类, A.说明, D.处方职务 as 处方职务ID, Decode(A.价格, NULL, NULL, A.价格*C.住院包装||'/'||C.住院单位) as 价格, Decode(X.库存, NULL, NULL, Round(X.库存/C.住院包装, 5)||C.住院单位) as 库存, Decode(d.抗生素, 0, '', 1, '非限制使用', 2, '限制使用', 3, '特殊使用') as 抗菌等级 From 药品规格 C, 药品特性 D, 诊疗项目目录 E, 收费项目类别 F, (Select A.ID, A.类别, A.编码, A.名称, A.商品名, A.简码, A.零售单位, A.零售包装, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Sum(Decode(A.是否变价, 1, NULL, B.现价)) as 价格 From 收费价目 B, (Select A.ID, A.类别, A.编码, B.名称, Null as 商品名, B.简码, A.计算单位 as 零售单位, 1 as 零售包装, A.规格, A.产地, A.费用类型, Null as 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A Where A.ID=B.收费细目ID And A.类别 IN ('5', '6', '7') And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.服务对象 IN(:V001, 3) Or :V002=3 And Nvl(A.服务对象, 0)<>0) And (A.编码 Like :V003 And B.码类=:V004 Or B.名称 Like :V005 And B.码类=:V006 Or B.简码 Like :V007 And B.码类 IN(:V008, 3))) A Where A.ID=B.收费细目ID And Sysdate Between B.执行日期 And Nvl(B.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by
A.ID, A.类别, A.编码, A.名称, A.商品名, A.简码, A.零售单位, A.零售包装, A.规格, A.产地, A.费用类型, A.医保大类, A.说明) A, (Select A.药品ID, Nvl(Sum(A.可用数量), 0) as 库存 From 药品库存 A, 收费项目目录 B Where A.性质 = 1 And (Nvl(A.批次, 0)=0 Or A.效期 Is Null Or A.效期>Trunc(Sysdate)) And A.库房ID=Decode(B.类别, '5', :V009, '6', :V010,
'7', :V011, Null) And A.药品ID=B.ID And B.类别 IN('5', '6', '7') Group by A.药品ID Having Nvl(Sum(A.可用数量), 0)<>0) X Where A.ID=C.药品ID And C.药名ID=D.药名ID And D.药名ID=E.ID And A.类别=F.编码 And E.类别 IN('5', '6', '7') And (E.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or E.撤档时间 IS NULL) And (E.服务对象 IN(:V012, 3) Or :V013=3 And Nvl(E.服务对象, 0)<>0) And Nvl(E.执行频率, 0) IN(0, :V014) And A.ID=X.药品ID(+) And (D.临床自管药=1 Or ( A.类别='5' And Exists(Select 1 From 药品库存 Where 药品ID = c.药品ID And 性质 = 1 And (Nvl(批次, 0) = 0 Or 效期 Is Null Or 效期 > Trunc(Sysdate)) And 可用数量>0 And 库房ID In(156)) Or A.类别='6' And Exists(Select 1 From 药品库存 Where 药品ID = c.药品ID And 性质 = 1 And (Nvl(批次, 0) = 0 Or 效期 Is Null Or 效期 > Trunc(Sysdate)) And 可用数量>0 And 库房ID In(157)) Or A.类别='7' And Exists(Select 1 From 药品库存 Where 药品ID = c.药品ID And 性质 = 1 And (Nvl(批次, 0) = 0 Or 效期 Is Null Or 效期 > Trunc(Sysdate)) And 可用数量>0 And 库房ID In(157)))) Union ALL Select A.类别 As 类别ID, A.ID as 诊疗项目ID, -Null as 收费细目ID, D.名称 As 类别, Null as 基本, A.编码, B.名称, Null as 商品名, B.简码, A.计算单位, A.标本部位 as 规格, Null as 产地, Null as 药品剂型, Decode(A.类别, 'H', Decode(A.操作类型, '1', '护理等级', '护理常规'), 'E', Decode(A.操作类型, '1', '过敏试验', '2', '给药途径', '3', '中药煎法', '4', '中药用法', '5', '特殊治疗', '6', '采集方法', '7', '配血方法', '8', '输血途径', Null), 'Z', Decode(A
.操作类型, '1', '留观', '2', '住院', '3', '转科', '4', '术后', '5', '出院', '6', '转院', '7', '会诊', '8', '抢救', '9', '病重', '10', '病危', '11', '死亡', '12', '记录入出量', '14', '术前', NULL), A.操作类型) As 项目特性, Null as 费用类型, Null as 医保大类, Null a
s 说明, Null as 处方职务ID, Null as 价格, Null as 库存, Null As 抗菌等级 From 诊疗项目类别 D, 诊疗项目别名 B, 诊疗项目目录 A Where A.ID=B.诊疗项目ID And A.类别=D.编码 And A.类别 Not IN('4', '5', '6', '7') And ((A.类别<>'9' Or A.类别='9' And (A.人员ID=:V015 Or A.人员ID is Null)) And (Exists(Select 1 From 诊疗适用科室 Where 项目ID=A.ID And Instr(:V016, ', '||科室ID||', ')>0) Or Not Exists(Select 1 From 诊疗适用科室 Where 项目ID=A.ID))) And Nvl(A.单独应用, 0)=1 And Instr(:V017, ', '||Nvl(A.适用性别, 0)||', ')>0 And Nvl(A.执行频率, 0) IN(0, :V018) And (A.编码 Like :V019 Or B.名称 Like :V020 Or B.简码 Like :V021) And B.码类=:V022 And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.服务对象 IN(:V023, 3) Or :V024=3 And Nvl(A.服务对象, 0)<>0) Union ALL Select A.类别 AS 类别ID, E.ID as 诊疗项目ID, A.ID as 收费细目ID, F.名称 AS 类别, Null as 基本, A.编码, A.名称, Null as 商品名, A.简码, A.计算单位, A.规格, A.产地, Null as 药品剂型, Null as 项目特性, A.费用类型, A.医保大类, A.说明, Null as 处方职务ID, Decode(A.价格, NULL, NULL, A.价格||'/'||A.计算单位) as 价格, Null as 库存, Null As 抗菌等级 From 材料特性 C, 诊疗项目目录 E, 收费项目类别 F, (Select A.ID, A.类别, A.编码, A.名称, A.简码, A.计算单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明, Sum(Decode(A.是否变价, 1, NULL, B.现价)) as 价格 From 收费价目 B, (Select A.ID, A.类别, A.编码, B.名称, B.简码, A.计算单位, A.规格, A.产地, A.费用类型, Null
as 医保大类, A.说明, A.是否变价 From 收费项目别名 B, 收费项目目录 A Where A.ID=B.收费细目ID And A.类别='4' And (A.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or A.撤档时间 IS NULL) And (A.站点='-' Or A.站点 is Null) And (A.服务对象 IN(:V025, 3) Or :V026=3 And Nvl(A.服务对象, 0)<>0) And (A.编码 Lik
e :V027 Or B.名称 Like :V028 Or B.简码 Like :V029) And B.码类=:V030) A Where A.ID=B.收费细目ID And Sysdate Between B.执行日期 And Nvl(B.终止日期, To_Date('3000-01-01', 'YYYY-MM-DD')) Group by A.ID, A.类别, A.编码, A.名称, A.简码, A.计算单位, A.规格, A.产地, A.费用类型, A.医保大类, A.说明) A Where A.ID=C.材料ID And C.诊疗ID=E.ID And A.类别=F.编码 And E.类别='4' And C.核算材料=0 And (E.撤档时间=To_Date('3000-01-01', 'YYYY-MM-DD') Or E.撤档时间 IS NULL) And (E.服务对象 IN(:V031, 3) Or :V032=3 And Nvl(E.服务对象, 0)<>0) And Nvl(E.执行频率, 0) IN(0, :V033)) A Order by Decode(类别ID, '4', 'Z', 类别ID), 类别, 编码 |
| ck9n2sc6qbw6r | select A.时间, A.主题 From zlmessages A, (select max(A.时间) as 时间 from zlmessages A, zlmsgstate B where A.ID=B.消息ID and B.类型=2 and B.删除=0 and substr(B.状态, 1, 1)='0' and B.用户=:V001) B where A.时间=B.时间 |
| cu3ah5rgna0xg |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((129333, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((129333, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((129333, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.
当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号,
M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((129333, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分
类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1)
AND (A.病人ID, A.主页ID) IN((129333, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEX
ECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱
状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((129333, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| d18rt0f8avavs |
Select /*+ Rule*/b.时间, a.病人id, a.住院次数 As 主页id, a.住院号, a.姓名, a.当前床号 As 床号, a.险类, b.医嘱状态, b.状态
From (Select c.病人id, c.主页id, Max(d.操作时间) As 时间, c.医嘱状态, Decode(c.医嘱状态, 1, '有新下达医嘱', 8, '有新停止医嘱', 4, '有新作废医嘱') As 状态
From 病人医嘱记录 C, 病人医嘱状态 D
Where Instr(:V001, ', ' || c.医嘱状态 || ', ') > 0 And c.Id = d.医嘱id And c.医嘱状态 = d.操作类型
And (c.医嘱状态 <> 8 Or Nvl(c.医嘱期效, 0) = 0) And (c.医嘱状态 <> 4 Or Trunc(d.操作时间) = Trunc(Sysdate)) And
d.操作时间 >= Trunc(Sysdate - (2 - 1)) And d.操作类型 In (1, 4, 8) And
Not (c.医嘱状态 = 1 And Instr(c.开嘱医生, '/') = 0 And Not Exists
(Select m.姓名
From 人员表 M, 执业类别 N
Where m.姓名 = c.开嘱医生 And m.执业类别 = n.编码 And n.分类 In ('执业医师', '执业助理医师')))
Group By c.病人id, c.主页id, c.医嘱状态) B, 病人信息 A
Where a.当前病区id + 0 = :V002 And b.病人id = a.病人id And b.主页id = a.住院次数 And a.在院 = 1 Union ALL Select Distinct A.发送时间 as 时间, B.病人ID, B.主页ID, D.住院号, D.姓名, D.当前床号 as 床号, D.险类, -1 as 医嘱状态, I.名称||'安排到:'||To_Char(A.安排时间, 'MM-DD HH24:MI') as 状态 From 病人医嘱发送 A, 病人医嘱记录 B, 病人信息 D, 诊疗项目目录 I Where A.医嘱ID=B.ID And B.病人ID=D.病人ID And B.主页ID=D.住院次数 And B.病人ID=D.病人ID And B.诊疗项目ID=I.ID And I.执行安排=1 And D.当前病区ID+0=:V003 And A.发送时间>=Trunc(Sysdate-(2-1)) And A.安排时间 is Not Null And D.在院=1 Union All Select Distinct A.发送时间 as 时间, B.病人ID, B.主页ID, D.住院号, D.姓名, D.当前床号 as 床号, D.险类, -1 as 医嘱状态, I.名称||'：拒绝执行。' as 状态 From 病人医嘱发送 A, 病人医嘱记录 B, 病人信息 D, 诊疗项目目录 I Where
A.医嘱ID=B.ID And B.病人ID=D.病人ID And B.主页ID=D.住院次数 And B.病人ID=D.病人ID And B.诊疗项目ID=I.ID And I.执行安排=1 And D.当前病区ID+0=:V004 And A.发送时间>=Trunc(Sysdate-(2-1)) And I.类别='F' And b.相关id is null And D.在院=1 And a.执行状态=2 Order by 时间 |
| d2g6gw5x7gp8g | Select b.目录id As 分类id, b.上级id As 上级id, b.名称 As 质量控制点, b.编码 As 分类编码, b.说明, Nvl(a.数量, 0) as 数量, 1 As 目录, b.状态, b.采集SQL, b.最后执行时间, b.类别 From (Select a.Root, decode(c.计算方式, 0, Count(b.记录id), 1, sum(to_number( nvl(zlbase.Parse_Number(b.结果), 0) )), 2, round(avg(to_number( nvl(zlbase.Parse_Number(b.结果), 0) )), 1)) 数量, c.名称, c.目录id, c.上级id, c.说明, c.编码 From (Select t.目录id, t.上级id, Connect_By_Root(t.目录id) Root, 名称, t.说明, t.编码, t.类别 From v_质量监控目录 t Start With t.目录id In (Select 目录id From v_质量监控目录 ) Connect By Prior t.目录id = t.上级id) a, 质量监控记录 b, v_质量监控目录 c, V_目录权限 d Where a.目录id = b.目录id(+) And a.Root(+) = c.目录id and ((a.类别=:P_0 or :P_0=0) or a.类别 is null) AND B.发生时间 BETWEEN :P_1 AND :P_2 And(Exists (Select 0 From 部门人员 d Where (b.科室Id = d.部门id And d.人员id =:P_3 And :P_4=2) or ( b.人员id=:P_3 and :P_4=1) ) Or :P_4= 3) And a.目录id = d.目录id(+) And d.人员id =:P_3 and nvl(b.处理状态, 1)=1 Group By a.Root, c.名称, c.目录id, c.上级id, c.说明, c.编码, c.计算方式) a , v_质量监控目录 b Where a.目录id(+) =b.目录id and b.状态 = 1 Order By b.编码 |
| d4n373ajj3mwk |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((833780, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL
(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((833780, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD HH24:MI:SS')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((833780, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关I
D+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮
试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((833780, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.
诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD HH24:MI:SS')<=执行终止时间 OR 执行终止时间 I
S NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((833780, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) A
S 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD HH24:MI:SS'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD HH24:MI:SS')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((833780, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| dvw07hw3155av | Select 结果, 记录时间 From 病人过敏记录 Where 病人id=:V001 And 药物ID=:V002 Order By 记录时间 Desc |
| fmj9czt4f6prq | Call Zl_电子病历记录_Update(:V001, :V002, :V003, :V004, :V005, :V006, :V007, :V008, :V009) |
| fmn19m0fr5ps2 | Select 电子病历内容_ID.Nextval From Dual |
| fph0g42bf3ax4 | select 标识码, count(*) as 结果, '0' as 列1, '0' as 列2 from (
select distinct t.病人id,
t.主页id 上次id,
b.主页id 本次id,
t.编码 as 本次编码,
to_char(floor(b.入院日期 - t.出院日期)) As 间隔天数, 标识码
from 重点疾病目录 t,
(select w.病人id,
w.主页id,
w.编码 as 上次编码,
w.主页id - 1 As 上次id,
出院日期,
入院日期
from 重点疾病目录 w
where w.编目日期 between To_Date('2012-01-01 00:00:00', 'yyyy-mm-dd hh24:mi:ss') and To_Date('2012-01-31 23:59:59', 'yyyy-mm-dd hh24:mi:ss')
and w.主页id > 1) b
where t.病人id = b.病人id
and t.主页id = b.上次id
and t.编码=b.上次编码
and to_char(floor(b.入院日期 - t.出院日期))<=31
and to_char(floor(b.入院日期 - t.出院日期))>15
)
group by 标识码 |
| ftd8415cgta5m |
SELECT DISTINCT A.* FROM (SELECT A.相关ID, A.病人ID, '姓名:'||C.姓名 AS 姓名, C.当前床号, A.医嘱内容||DECODE(A.皮试结果, '-', '(-)', '+', '(+)', A.皮试结果) 医嘱内容, '' 单量, '' 给药途径, 'ONCE' 频率, 1 排号, '' 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.病人医嘱发送 B, ZLHIS.病人信息 C WHERE A.ID=B.医嘱ID AND A.诊疗类别='E' AND 医嘱状态=8 AND 医嘱期效=1 AND A.病人ID=C.病人ID AND A.执行科室ID IS NOT NULL AND A.皮试结果 IS NOT NULL AND A.医嘱内容 LIKE '%皮试%' AND (A.病人ID, A.主页ID) IN((741206, 1)) HAVING COUNT(DISTINCT A.病人ID||A.主页ID)=1 GROUP BY A.相关ID, A.病人ID, C.姓名, C.当前床号, A.皮试结果, A.医嘱内容 ) A, (SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人
信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V001, 'YYYY-MM-DD'), To_Date(:V002, 'YYYY-MM-DD HH24:MI:SS'), :V003) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0
AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V004, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V005, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((741206, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V006, 'YYYY-MM-DD'), To_Date(:V007, 'YYYY-MM-DD HH24:MI:SS'), :V008) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V009, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V010, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((741206, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) ) B WHERE A.病人ID=B.病人ID UNION ALL SELECT * FROM ( SELECT A.相关ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.
当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.相关ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号,
M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM (SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V011, 'YYYY-MM-DD'), To_Date(:V012, 'YYYY-MM-DD HH24:MI:SS'), :V013) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分类='1' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='1' AND (To_Date(:V014, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V015, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((741206, 1)) UNION ALL SELECT A.医嘱期效, A.ID, B.名称, ZL_ADVICEEXECOUNT(A.ID, To_Date(:V016, 'YYYY-MM-DD'), To_Date(:V017, 'YYYY-MM-DD HH24:MI:SS'), :V018) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='2' AND B.执行分
类='1' AND A.校对时间 IS NOT NULL AND A.上次执行时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱状态<>2 AND A.医嘱期效='0' AND (To_Date(:V019, 'YYYY-MM-DD')<=执行终止时间 OR 执行终止时间 IS NULL) AND To_Date(:V020, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1)
AND (A.病人ID, A.主页ID) IN((741206, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.相关ID=M.ID AND A.诊疗类别 IN('5', '6', 'K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) AND C.适用范围(+)<>2 ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.相关ID+B.次, A.排号) UNION ALL SELECT * FROM ( SELECT A.ID+B.次*100000 AS 相关ID, A.病人ID, A.姓名, A.当前床号, A.医嘱内容 AS 医嘱内容, A.单量, A.给药途径, A.频率, A.排号, A.嘱托||' '||A.滴数 AS 滴数 FROM ( SELECT DISTINCT 2 序号, 序号 排号, A.ID, A.病人ID, '姓名:'||D.姓名 AS 姓名, '住院号:'||D.住院号 AS 住院号, D.当前床号, A.皮试结果 ||DECODE(M.结束-M.开始, 0, ' ', DECODE(A.序号, M.开始, '┏', M.结束, '┗', '┃'))|| DECODE(A.执行性质, 5, '★', '') || A.医嘱内容 AS 医嘱内容, DECODE(SUBSTR(A.单次用量, 1, 1), '.', '0'||A.单次用量, A.单次用量)||B.计算单位 AS 单量, M.名称 AS 给药途径, NVL(C.英文名称, A.执行频次) AS 频率, A.执行时间方案 AS 执行时间, M.次数, DECODE(A.序号, M.开始, A.医生嘱托, M.结束, '', '') AS 嘱托, DECODE(M.结束-M.开始, 0, M.医生嘱托, DECODE(A.序号, M.开始, M.医生嘱托, M.结束, '', '')) AS 滴数 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B, ZLHIS.诊疗频率项目 C, ZLHIS.病人信息 D, (SELECT A.ID, A.名称, A.次数, MIN(B.序号) AS 开始, MAX(B.序号) AS 结束, A.医生嘱托 FROM ( SELECT A.医嘱期效, A.相关ID ID, B.名称, ZL_ADVICEEX
ECOUNT(A.ID, To_Date(:V021, 'YYYY-MM-DD'), To_Date(:V022, 'YYYY-MM-DD HH24:MI:SS'), :V023) AS 次数, A.医生嘱托 FROM ZLHIS.病人医嘱记录 A, ZLHIS.诊疗项目目录 B WHERE A.诊疗项目ID=B.ID AND A.诊疗类别='E' AND NVL(A.婴儿, 0)=0 AND B.操作类型='8' AND B.执行分类='0' AND B.ID='67413' AND A.校对时间 IS NOT NULL AND A.医嘱状态<>4 AND A.医嘱
状态<>2 AND A.医嘱期效='1' AND (To_Date(:V024, 'YYYY-MM-DD')<=校对时间 ) AND To_Date(:V025, 'YYYY-MM-DD HH24:MI:SS')>=开始执行时间 AND NVL(A.医嘱期效, 0) IN(1) AND (A.病人ID, A.主页ID) IN((741206, 1)) ) A, ZLHIS.病人医嘱记录 B WHERE A.ID=B.相关ID AND (A.次数 > 0 OR A.医嘱期效=1) GROUP BY A.ID, A.名称, A.次数, A.医生嘱托) M WHERE A.ID=M.ID AND A.诊疗类别 IN('K') AND A.诊疗项目ID=B.ID AND A.病人ID=D.病人ID AND A.执行频次=C.名称(+) ORDER BY D.当前床号, A.病人ID, M.名称, A.序号) A, (SELECT ROWNUM 次 FROM ZLHIS.人员表) B WHERE A.次数>=B.次 ORDER BY 当前床号+0, A.ID+B.次, A.排号) |
| fuqd9gf3sbxsu | Call ZL_电子病历内容_Update(:V001, :V002, :V003, :V004, :V005, :V006, :V007, :V008, :V009, :V010, :V011, :V012, :V013) |