分享获取医嘱组号的函数FUN_GET_CHAR

where A.INPATIENT_NO = 'ZY010007000021'
order by E_TIME,b_no, A.MO_ORDER
记得排序
例3：(kyhis.PHA_Com_ApplyOut)
select FUN_GET_CHAR(2,A.EXEC_SQN,'L') L,FUN_GET_CHAR(2,A.EXEC_SQN,'R') R,a.*
一、需求
其实用各种报表工具设计这个需求大家应该都没问题，但用SQL实现可能您是第一次见。
二、SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
par_SEQ kyhis.met_ipm_order.mo_order%type,
par_flag varchar2)
select FUN_GET_CHAR(2,A.Exec_Sqn, 'L') L,FUN_GET_CHAR(2,A.Exec_Sqn, 'R') R,
E_TIME,b_no, A.MO_ORDER,
a.*
from kyhis.MET_IPM_EXECDRUG a
每周一点医疗知识5：分享获取医嘱组号的函数FUN_GET_CHAR
大家好！
本期分享获取医嘱组号的函数FUN_GET_CHAR。
可能部分同事已经收到过之前分享的组合SQL，现加以改进，在查询met_ipm_order，MET_IPM_EXECDRUG，PHA_Com_ApplyOut三个表时可以通过本文分享的函数FUN_GET_CHAR取到医嘱组合符号，进而为大家在相关报表设计时省了很多前台代码量。
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
select *
from (select '' 序号,
and b_no = Str_Comb_no; --kyhis.MET_IPM_e_time，kyhis.MET_IPM_b_no的索引
Str_ID := Str_Moorder;
end if;
If Str_Cnt > 1 Then
return varchar2 is
/*-------------------------------------------------------------------------
|| 函数名称 获取医嘱组的符号
|| 功能描述 ：可以查kyhis.met_ipm_order，kyhis.MET_IPM_EXECDRUG，kyhis.PHA_Com_ApplyOut
from kyhis.met_ipm_order a
where a.inpatient_no = 'ZY010007000021'
order by b_no,a.mo_order
记得排序一定是b_no, a.mo_order
例2：(kyhis.MET_IPM_EXECDRUG)
from kyhis.PHA_Com_ApplyOut a,kyhis.MET_IPM_EXECDRUG c
where A.PATIENT_ID = 'ZY010007000021'
and a.exec_sqn = c.exec_sqn(+)
order by e_time,B_NO,A.MO_ORDER
if par_flag = 'L' then
Result := '┗';
else
Result := '┛';
end if;
else
Result := '┃';
end if;
59
60
61
62
63
64
65
66
67
68
69
70
71 7Βιβλιοθήκη 73 74 75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
CREATE OR REPLACE FUNCTION "FUN_GET_CHAR"(par_table integer,
Str_Comb_no kyhis.met_ipm_b_no%type;
Result varchar2(2);
begin
Str_ID := par_SEQ;--先收下传入的东西
if par_table = 1 then--传1表示直接查的医嘱表
select count(1), min(b.mo_order), max(b.mo_order)
into Str_Cnt, Str_Min_Order, Str_Max_Order
from kyhis.met_ipm_order b
where b_no = (select b_no
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
from kyhis.met_ipm_order a
where a.mo_order = Str_ID); --kyhis.met_ipm_b_no，kyhis.met_ipm_order.mo_order分别是单独的索引
end if;
if par_table = 2 then--传2可以是药品医嘱执行档或领药单表，暂不支持非药品医嘱执行档
--可以查kyhis.MET_IPM_EXECDRUG，kyhis.PHA_Com_ApplyOut
select e_time,b_no,c.mo_order,c.inpatient_no
在此也呼吁大家都积极的分享一下好的东西，让大家都能很快的进步，让我们的整体作战能力快速提升。同时如果有什么疑难的问题可以发出来大家一起探讨。
一、使用实例：FUN_GET_CHAR(2,A.EXEC_SQN,'L')
二、效果预览：
三、函数FUN_GET_CHAR：
1
2
3
4
5
6
7
end if;
else
Result := '';
end if;
return(Result);
end FUN_GET_CHAR;
每周一点医疗知识4：一步报表SQL中在指定位置插入自定义内容
大家好！
本期分享一步报表SQL中在指定位置插入自定义内容：
from dual a
union all
select to_char(to_date('2013-03-01 00:00:00',
'yyyy-mm-dd hh24:mi:ss'),
||-------------------------------------------------------------------------*/
/*
例1：(kyhis.met_ipm_order)
select FUN_GET_CHAR(1,a.mo_order,'L') L,FUN_GET_CHAR(1,a.mo_order,'R') R,a.*
into Str_Usetime,Str_Comb_no,Str_Moorder,Str_PID
from kyhis.MET_IPM_EXECDRUG c where c.exec_sqn = Str_ID;
select count(1), min(b.mo_order), max(b.mo_order)