-
Notifications
You must be signed in to change notification settings - Fork 1
/
Functions.sql
212 lines (159 loc) · 7.57 KB
/
Functions.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
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
-------------------------------------------------------
create or replace package PKG_TM as
G_NOW date; -- session level global variable for "NOW"
G_AT date; -- session level global variable for "AT"
end;
/
-------------------------------------------------------
create or replace function TM_RESOL ( I_DATE in date := sysdate ) return number deterministic is
-- the resolution in day. Two date are identical within the resolution (period)
begin
-- return 1/86400; -- second
-- return 1/1440; -- minute
-- return 1/24; -- hour
return 1; -- day
-- return last_day( I_DATE ); -- month
-- return add_months( trunc( I_DATE, 'YYYY' ), 12 ) - trunc( I_DATE, 'YYYY' ); -- year
end;
/
-------------------------------------------------------
create or replace function TM_TRUNC_DATE ( I_DATE in date := null) return date is
-- trunc date/time according to resolution
begin
if TM_RESOL = 1/86400 then
return I_DATE; -- second
elsif TM_RESOL = 1/1440 then
return trunc( I_DATE, 'MI'); -- minute
elsif TM_RESOL = 1/24 then
return trunc( I_DATE, 'HH24'); -- hour
elsif TM_RESOL = 1 then
return trunc( I_DATE, 'DD'); -- day
elsif TM_RESOL <= 31 then
return trunc( I_DATE, 'MM'); -- month
else
return trunc( I_DATE, 'YYYY'); -- year
end if;
end;
/
-------------------------------------------------------
create or replace procedure TM_SET_NOW ( I_NOW in date := null) is
-- this set up the "NOW" to a certain value or to null = sysdate and it is passing!
begin
PKG_TM.G_NOW := TM_TRUNC_DATE ( I_NOW );
end;
/
-------------------------------------------------------
create or replace procedure TM_SET_AT ( I_AT in date := null) is
-- this set up the "AT" to a certain value or to null = sysdate and it is passing!
begin
PKG_TM.G_AT := TM_TRUNC_DATE ( I_AT );
end;
/
-------------------------------------------------------
create or replace function TM_RIGHT_NOW return date is
begin
return TM_TRUNC_DATE ( sysdate );
end;
/
-------------------------------------------------------
create or replace function TM_NOW return date deterministic is
-- returns with the set up (constant) "NOW" or current (passing) time
begin
return nvl( PKG_TM.G_NOW, TM_RIGHT_NOW);
end;
/
-------------------------------------------------------
create or replace function TM_AT return date deterministic is
-- returns with the set up (constant) "AT" or current (passing) time
begin
return nvl( PKG_TM.G_AT, TM_RIGHT_NOW);
end;
/
-------------------------------------------------------
create or replace function TM_FIRST return date deterministic is
-- the oldest time
begin
return to_date('20100101000000','yyyymmddhh24miss');
end;
/
-------------------------------------------------------
create or replace function TM_LAST return date deterministic is
-- the highest time
begin
return to_date('20300101000000','yyyymmddhh24miss');
end;
/
-------------------------------------------------------
-- short version of pkg_diff
create or replace package PKG_DIFF_VAL as
/* *******************************************************************************************************
History of changes
yyyy.mm.dd | Version | Author | Changes
-----------+---------+----------------+-------------------------
2017.01.06 | 1.0 | Ferenc Toth | Created
******************************************************************************************************* */
------------------------------------------------------------------------------------
FUNCTION VALUES_ARE_DIFFER ( i_old_value IN VARCHAR2 , i_new_value IN VARCHAR2 ) RETURN BOOLEAN;
FUNCTION VALUES_ARE_DIFFER ( i_old_value IN NUMBER , i_new_value IN NUMBER ) RETURN BOOLEAN;
FUNCTION VALUES_ARE_DIFFER ( i_old_value IN DATE , i_new_value IN DATE ) RETURN BOOLEAN;
FUNCTION VALUES_ARE_DIFFER ( i_old_value IN TIMESTAMP , i_new_value IN TIMESTAMP ) RETURN BOOLEAN;
FUNCTION VALUES_ARE_DIFFER ( i_old_value IN TIMESTAMP WITH TIME ZONE , i_new_value IN TIMESTAMP WITH TIME ZONE ) RETURN BOOLEAN;
------------------------------------------------------------------------------------
end;
/
create or replace package body PKG_DIFF_VAL as
/* *******************************************************************************************************
History of changes
yyyy.mm.dd | Version | Author | Changes
-----------+---------+----------------+-------------------------
2017.01.06 | 1.0 | Ferenc Toth | Created
******************************************************************************************************* */
------------------------------------------------------------------------------------
FUNCTION VALUES_ARE_DIFFER ( i_old_value IN VARCHAR2, i_new_value IN VARCHAR2 ) RETURN BOOLEAN IS
BEGIN
IF (i_old_value IS NOT NULL AND i_new_value IS NULL) OR
(i_old_value IS NULL AND i_new_value IS NOT NULL) OR
(i_old_value IS NOT NULL AND i_new_value IS NOT NULL AND i_old_value <> i_new_value ) THEN
RETURN TRUE;
END IF;
RETURN FALSE;
END;
FUNCTION VALUES_ARE_DIFFER ( i_old_value IN NUMBER, i_new_value IN NUMBER ) RETURN BOOLEAN IS
BEGIN
IF (i_old_value IS NOT NULL AND i_new_value IS NULL) OR
(i_old_value IS NULL AND i_new_value IS NOT NULL) OR
(i_old_value IS NOT NULL AND i_new_value IS NOT NULL AND i_old_value <> i_new_value ) THEN
RETURN TRUE;
END IF;
RETURN FALSE;
END;
FUNCTION VALUES_ARE_DIFFER ( i_old_value IN DATE, i_new_value IN DATE ) RETURN BOOLEAN IS
BEGIN
IF (i_old_value IS NOT NULL AND i_new_value IS NULL) OR
(i_old_value IS NULL AND i_new_value IS NOT NULL) OR
(i_old_value IS NOT NULL AND i_new_value IS NOT NULL AND i_old_value <> i_new_value ) THEN
RETURN TRUE;
END IF;
RETURN FALSE;
END;
FUNCTION VALUES_ARE_DIFFER ( i_old_value IN TIMESTAMP, i_new_value IN TIMESTAMP ) RETURN BOOLEAN IS
BEGIN
IF (i_old_value IS NOT NULL AND i_new_value IS NULL) OR
(i_old_value IS NULL AND i_new_value IS NOT NULL) OR
(i_old_value IS NOT NULL AND i_new_value IS NOT NULL AND i_old_value <> i_new_value ) THEN
RETURN TRUE;
END IF;
RETURN FALSE;
END;
FUNCTION VALUES_ARE_DIFFER ( i_old_value IN TIMESTAMP WITH TIME ZONE, i_new_value IN TIMESTAMP WITH TIME ZONE ) RETURN BOOLEAN IS
BEGIN
IF (i_old_value IS NOT NULL AND i_new_value IS NULL) OR
(i_old_value IS NULL AND i_new_value IS NOT NULL) OR
(i_old_value IS NOT NULL AND i_new_value IS NOT NULL AND i_old_value <> i_new_value ) THEN
RETURN TRUE;
END IF;
RETURN FALSE;
END;
------------------------------------------------------------------------------------
end;
/