forked from lewisschmidt/CCL
-
Notifications
You must be signed in to change notification settings - Fork 1
/
EKS_DLG_AUDIT_Alerts_and_OS.prg
68 lines (53 loc) · 1.25 KB
/
EKS_DLG_AUDIT_Alerts_and_OS.prg
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
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
/*
creator: Lewis Schmidt
purpose: to provide detailed understanding of what a user sees in a discern alert
changelog: draft
*/
SELECT
Program_Rule = edlg.program_name
, e.dlg_prsnl_id
, e.encntr_id
;, e.long_text_id
, e.alert_long_text_id
, e.override_reason_cd
, e.person_id
, e.trigger_entity_name
, e.trigger_order_id
/* long_text lt */
, Free_Text_Override = lt.long_text
; , lt.long_text_id
, Discern_Alert = lt2.long_text
/*eks_alert_esc_hist eaeh */
, eaeh.ack_comment
, eaeh.alert_source
, eaeh.failure_reason
, eaeh.msg_long_text_id
, eaeh.msg_type_cd
, eaeh.subject_prefix_text
, eaeh.subject_text
FROM
eks_dlg_event e
, long_text lt
, long_text lt2
, eks_dlg edlg
, eks_alert_esc_hist eaeh
, person p
, prsnl user
plan e
Where E.DLG_DT_TM between cnvtdate(12012017) and cnvtdate(12072017)
and e.dlg_name = "MUL_MED!DRUGDUP"
Join lt
where lt.long_text_id = e.long_text_id
and lt.active_ind = 1
Join lt2
where lt2.long_text_id = e.alert_long_text_id
Join edlg
where edlg.dlg_name = e.dlg_name /*Unique identifier for an Insight.*/
join eaeh
where eaeh.alert_id = e.alert_long_text_id
join p
where p.person_id = e.person_id
and p.active_ind = 1
join user
where user.person_id = e.dlg_prsnl_id
WITH time = 120