-
Notifications
You must be signed in to change notification settings - Fork 0
/
deletePerson.sql
190 lines (131 loc) · 7.11 KB
/
deletePerson.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
CREATE DEFINER=`root`@`%` PROCEDURE `deletePerson`(IN `PersonIdIn` INT, IN MotherIdIn INT, IN FatherIdIn INT, IN PartnerIdIn INT, IN TimestampInAsString CHAR(30))
SQL SECURITY INVOKER
COMMENT 'To delete a Person from the database, incl. links from Family to this Person.'
BEGIN
-- CompletedOk defines the result of a database transaction, like this:
-- 0 = Transaction finished without problems.
-- 1 = Transaction aborted due to Person's details changed in the mean time
-- 2 = Transaction aborted due to problems during update and rollback performed
-- ...
DECLARE TimestampIn timestamp;
DECLARE CompletedOk int;
DECLARE Result CHAR(40);
DECLARE RelationIdOfMother int;
DECLARE RelationIdOfFather int;
DECLARE RelationIdOfPartner int;
-- NewTransNo is autonumber counter fetched from a seperate table and used for logging in a seperate log table
DECLARE NewTransNo int;
-- TransResult is used to count the number of seperate database operations and rissen with each step
DECLARE TransResult int;
-- RecCount is used to count the number of related records in depended tables.
DECLARE RecCount int;
DECLARE MessageText CHAR;
DECLARE ReturnedSqlState INT;
DECLARE MySQLErrNo INT;
DECLARE EXIT HANDLER FOR SQLEXCEPTION
BEGIN
GET CURRENT DIAGNOSTICS CONDITION 1 MessageText = message_text, ReturnedSqlState = RETURNED_SQLSTATE, MySqlErrNo = MYSQL_ERRNO;
ROLLBACK;
SET CompletedOk = 2;
SET Result = "Error";
INSERT INTO humans.testlog
SET TestLog = CONCAT("Transaction-", IFNULL(NewTransNo, "null"), " SPROC deletePerson(). Error occured()=",
IFNULL(MessageText, "null"), "/State=", IFNULL(ReturnedSqlState, "null"), "/ErrNo=", IFNULL(MySqlErrNo, "null"), "). Rollback executed. CompletedOk= ", CompletedOk),
TestLogDateTime = NOW();
SELECT CompletedOk, Result;
END;
SET TimestampIn = STR_TO_DATE(TimestampInAsString, "%Y-%m-%d %T");
SET CompletedOk = 0;
SET TransResult = 0;
SET NewTransNo = GetTranNo("deletePerson");
-- Schrijf start van deze SQL transactie naar log
INSERT INTO humans.testlog
SET TestLog = CONCAT('TransAction-', IFNULL(NewTransNo, 'null'), '. TransResult= ', IFNULL(TransResult, 'null'), '. Start SPROC: deletePerson() voor persoon met ID= ', PersonIdIn),
TestLogDateTime = NOW();
SET RelationIdOfMother = fGetRelationId("Moeder");
SET RelationIdOfFather = fGetRelationId("Vader");
SET RelationIdOfPartner = fGetRelationId("Partner");
transactionBody:BEGIN
START TRANSACTION;
IF NOT fPersonExists(PersonIdIn) THEN
SET CompletedOk = CompletedOk + 1;
SET Result = "RecordDoesNotExistAnyMore";
INSERT INTO humans.testlog
SET TestLog = CONCAT("Transaction-", IFNULL(NewTransNo, "null"), ". TransResult= ", TransResult, ". Record does not exist anymore. Deletion aborted."),
TestLogDateTime = NOW();
LEAVE transactionBody;
END IF;
IF RecordHasBeenChangedBySomebodyElse(PersonIdIn, TimeStampIn) THEN
SET CompletedOk = 1;
SET Result = "RecordHasBeenChangedBySomebodyElse";
INSERT INTO humans.testlog
SET TestLog = CONCAT("Transaction-", IFNULL(NewTransNo, "null"), ". TransResult= ", TransResult, ". Records has been changed in mean time by somebody else. Deletion aborted."),
TestLogDateTime = NOW();
LEAVE transactionBody;
END IF;
-- First delete Mother if Mother is there
IF MotherIdIn IS NULL THEN
INSERT INTO humans.testlog
SET TestLog = CONCAT('TransAction-', IFNULL(NewTransNo, 'null'), ', Transresult= ', IFNULL(TransResult, 'null'), '. Persoon met ID= ', IFNULL(PersonIdIn, 'null'), ' heeft geen Moeder.'),
TestLogDateTime = NOW();
ELSE
DELETE FROM humans.relations
WHERE RelationPerson = PersonIdIn
AND RelationWithPerson = MotherIdIn
AND RelationName = RelationIdOfMother;
SET TransResult = TransResult + 1;
INSERT INTO humans.testlog
SET TestLog = CONCAT('TransAction-', IFNULL(NewTransNo, 'null'), ', Transresult= ', IFNULL(TransResult, 'null'), '. Moeder relatie van moeder met ID= ', IFNULL(MotherIdIn, 'null'), ' en Persoon met ID= ', IFNULL(PersonIdIn, 'null'), ' is verwijderd uit de database.'),
TestLogDateTime = NOW();
END IF;
-- then Father if father is there
IF FatherIdIn IS NULL THEN
INSERT INTO humans.testlog
SET TestLog = CONCAT('TransAction-', IFNULL(NewTransNo, 'null'), ', Transresult= ', IFNULL(TransResult, 'null'), '. Persoon met ID= ', IFNULL(PersonIdIn, 'null'), ' heeft geen Vader.'),
TestLogDateTime = NOW();
ELSE
DELETE FROM humans.relations
WHERE RelationPerson = PersonIdIn
AND RelationWithPerson = FatherIdIn
AND RelationName = RelationIdOfFather;
SET TransResult = TransResult + 1;
INSERT INTO humans.testlog
SET TestLog = CONCAT('TransAction-', IFNULL(NewTransNo, 'null'), ', TransResult= ', IFNULL(TransResult, 'null'), '. Vader relatie van vader met ID= ', IFNULL(FatherIdIn, 'null'), ' en Persoon met ID= ', IFNULL(PersonIdIn, 'null'), ' is verwijderd uit de database.'),
TestLogDateTime = NOW();
END IF;
-- and then Partner if partner is there
IF PartnerIdIn IS NULL THEN
INSERT INTO humans.testlog
SET TestLog = CONCAT('TransAction-', IFNULL(NewTransNo, 'null'), ', Transresult= ', IFNULL(TransResult, 'null'), '. Persoon met ID= ', IFNULL(PersonIdIn, 'null'), ' heeft geen Partner.'),
TestLogDateTime = NOW();
ELSE
DELETE FROM humans.relations
WHERE RelationPerson = PersonIdIn
AND RelationWithPerson = PartnerIdIn
AND RelationName = RelationIdOfPartner;
INSERT INTO humans.testlog
SET TestLog = CONCAT('TransAction-', IFNULL(NewTransNo, 'null'), ', TransResult= ', IFNULL(TransResult, 'null'), '. Partner: ', IFNULL(PartnerIdIn, 'null'), ' verwijderd van persoon: ', IFNULL(PersonIdIn, 'null'), '.'),
TestLogDateTime = NOW();
DELETE FROM humans.relations
WHERE RelationPerson = PartnerIdIn
AND RelationWithPerson = PersonIdIn
AND RelationName = RelationIdOfPartner;
SET TransResult = TransResult + 1;
INSERT INTO humans.testlog
SET TestLog = CONCAT('TransAction-', IFNULL(NewTransNo, 'null'), ', TransResult= ', IFNULL(TransResult, 'null'), '. Persoon: ', IFNULL(PersonIdIn, 'null'), ' verwijderd als partner van persoon: ', IFNULL(PartnerIdIn, 'null'), '.'),
TestLogDateTime = NOW();
END IF;
-- Lastly delete Person itself
DELETE FROM persons
WHERE PersonID = PersonIdIn AND Timestamp = TimestampIn;
COMMIT;
INSERT INTO humans.testlog
SET TestLog = CONCAT('TransAction-', IFNULL(NewTransNo, 'null'), ', TransResult= ', IFNULL(TransResult, 'null'), '. Persoon met ID= ', IFNULL(PersonIdIn, 'null'), ' is verwijderd uit de database.'),
TestLogDateTime = NOW();
SET Result = "DeletionWasSuccesful";
END ;
SELECT CompletedOk, Result;
INSERT INTO humans.testlog
SET TestLog = CONCAT('TransAction-', IFNULL(NewTransNo, 'null'), '. TransResult= ', IFNULL(TransResult, 'null'), '. SPROC DeletePerson afgerond. CompletedOk= ', IFNULL(CompletedOk, 'null')),
TestLogDateTime = NOW();
END