Project

General

Profile

03_CREATE_STORED.sql

Luc Tran Van, 02/24/2023 04:11 PM

 
1
??/ * 
2
 
3
 R u n   t h i s   s c r i p t   o n : 
4
 
5
 
6
 
7
                 D E S K T O P - Q 8 R 1 K 3 5 . V C C B _ A M S _ L I V E _ S T A B L E         -     T h i s   d a t a b a s e   w i l l   b e   m o d i f i e d 
8
 
9
 
10
 
11
 t o   s y n c h r o n i z e   i t   w i t h : 
12
 
13
 
14
 
15
                 1 1 8 . 6 9 . 7 2 . 2 4 1 , 5 0 3 6 . g A M S P r o _ B V B _ v 3 _ F I N A L 
16
 
17
 
18
 
19
 Y o u   a r e   r e c o m m e n d e d   t o   b a c k   u p   y o u r   d a t a b a s e   b e f o r e   r u n n i n g   t h i s   s c r i p t 
20
 
21
 
22
 
23
 S c r i p t   c r e a t e d   b y   S Q L   C o m p a r e   v e r s i o n   1 3 . 1 . 6 . 5 4 6 3   f r o m   R e d   G a t e   S o f t w a r e   L t d   a t   2 / 2 2 / 2 0 2 3   1 0 : 1 1 : 4 6   A M 
24
 
25
 
26
 
27
 * / 
28
 
29
 S E T   N U M E R I C _ R O U N D A B O R T   O F F 
30
 
31
 G O 
32
 
33
 S E T   A N S I _ P A D D I N G ,   A N S I _ W A R N I N G S ,   C O N C A T _ N U L L _ Y I E L D S _ N U L L ,   A R I T H A B O R T ,   Q U O T E D _ I D E N T I F I E R ,   A N S I _ N U L L S   O N 
34
 
35
 G O 
36
 
37
 S E T   X A C T _ A B O R T   O N 
38
 
39
 G O 
40
 
41
 S E T   T R A N S A C T I O N   I S O L A T I O N   L E V E L   S e r i a l i z a b l e 
42
 
43
 G O 
44
 
45
 B E G I N   T R A N S A C T I O N 
46
 
47
 G O 
48
 
49
 I F   @ @ E R R O R   < >   0   S E T   N O E X E C   O N 
50
 
51
 G O 
52
 
53
 P R I N T   N ' C r e a t i n g   [ d b o ] . [ C M _ R E Q U E S T _ T E M P L A T E _ A P P R O V E S _ B y I d ] ' 
54
 
55
 G O 
56
 
57
 
58
 
59
 C R E A T E   P R O C E D U R E   [ d b o ] . [ C M _ R E Q U E S T _ T E M P L A T E _ A P P R O V E S _ B y I d ] 
60
 
61
 @ p _ R E Q _ I D          v a r c h a r ( 1 0 0 ) 
62
 
63
 A S 
64
 
65
 S E L E C T              
66
 
67
 S T U F F (   ( s e l e c t   ' ; '   +   A P P R O V E _ U S E R N A M E   f r o m   C M _ A P P R O V E _ G R O U P   W H E R E   R E Q _ I D = A . R E Q _ I D   A N D   S T E P _ L E V E L   = A . S T E P _ L E V E L   A N D   A U T H _ S T A T U S = ' U '     F O R   X M L   P A T H ( ' ' ) ,   T Y P E ) . v a l u e ( ' . [ 1 ] ' ,   ' n v a r c h a r ( m a x ) ' ) ,   1 ,   1 ,   ' ' )   A S   S H A R E _ U S E R 
68
 
69
 F R O M   C M _ A P P R O V E _ G R O U P   A   W H E R E   R E Q _ I D =   @ p _ R E Q _ I D   A N D   A U T H _ S T A T U S = ' U ' 
70
 
71
 G R O U P   B Y   S T E P _ L E V E L , R E Q _ I D , A U T H _ S T A T U S 
72
 
73
 O R D E R   B Y   S T E P _ L E V E L   A S C 
74
 
75
 G O 
76
 
77
 I F   @ @ E R R O R   < >   0   S E T   N O E X E C   O N 
78
 
79
 G O 
80
 
81
 P R I N T   N ' C r e a t i n g   [ d b o ] . [ C M _ W O R K F L O W _ A P P R O V E _ D A T A ] ' 
82
 
83
 G O 
84
 
85
 
86
 
87
 C R E A T E   P R O C E D U R E   [ d b o ] . [ C M _ W O R K F L O W _ A P P R O V E _ D A T A ]   
88
 
89
          @ p _ R E Q _ I D   v a r c h a r ( 2 0 ) = n u l l , 
90
 
91
          @ p _ D O N E   B I T   =   N U L L , 
92
 
93
          @ p _ I s N o t e   B I T   =   N U L L 
94
 
95
 A S 
96
 
97
 B E G I N   
98
 
99
          - - T a b l e   1 
100
 
101
          S E L E C T   
102
 
103
          A . A P P R O V E _ G R O U P _ I D , 
104
 
105
         A . A P P R O V E _ U S E R N A M E , 
106
 
107
         A . A U T H O R I T Y _ N A M E , 
108
 
109
         A . S T E P _ L E V E L , 
110
 
111
         A . P R O C E S S _ S T A T U S , 
112
 
113
         A . D O N E , 
114
 
115
         A . N O T E S , 
116
 
117
         A . R E C O R D _ S T A T U S , 
118
 
119
         A . A U T H _ S T A T U S , 
120
 
121
         A . M A K E R _ I D , 
122
 
123
         A . C R E A T E _ D T , 
124
 
125
         A . C H E C K E R _ I D , 
126
 
127
          F O R M A T ( A . A P P R O V E _ D T ,   ' d d / M M / y y y y   h h : m m : s s ' )   A S   ' A P P R O V E _ D T ' , 
128
 
129
         A . R E Q _ I D , 
130
 
131
         A . I S _ R E J E C T , 
132
 
133
         A . N E E D _ S E N D _ E M A I L , 
134
 
135
         A . [ T Y P E ] , 
136
 
137
         A . A P P R O V E _ R O O T _ I D , 
138
 
139
         A . O R D E R _ S T E P , 
140
 
141
          C A S E 
142
 
143
                   W H E N   G R . A P P R O V E _ U S E R N A M E   I S   N O T   N U L L   T H E N   ' T U Q . '   +   E R . P O S _ N A M E 
144
 
145
                   E L S E   E . P O S _ N A M E   
146
 
147
          E N D   A S   ' P O S _ N A M E ' , 
148
 
149
          A . A P P R O V E _ R O O T _ I D , 
150
 
151
          U A . T L F u l l N a m e   A S   ' A P P R O V E _ F U L L _ N A M E ' 
152
 
153
          F R O M   C M _ A P P R O V E _ G R O U P   A 
154
 
155
          L E F T   J O I N   T L _ U S E R   U A   O N   U A . T L N A N M E   =   A . A P P R O V E _ U S E R N A M E 
156
 
157
          L E F T   J O I N   C M _ E M P L O Y E E _ L O G   E   O N   E . U S E R _ D O M A I N   =   U A . T L N A N M E 
158
 
159
          L E F T   J O I N   d b o . C M _ A P P R O V E _ G R O U P   G R   O N   A . A P P R O V E _ R O O T _ I D   =   G R . A P P R O V E _ G R O U P _ I D 
160
 
161
          L E F T   J O I N   C M _ E M P L O Y E E _ L O G   E R   O N   G R . A P P R O V E _ U S E R N A M E   =   E R . U S E R _ D O M A I N 
162
 
163
          W H E R E   1 = 1 
164
 
165
          A N D   A . R E Q _ I D   =   @ p _ R E Q _ I D 
166
 
167
          A N D   A . D O N E   =   1 
168
 
169
          O R D E R   B Y   S T E P _ L E V E L   A S C ,   O R D E R _ S T E P   A S C ,   C R E A T E _ D T   A S C 
170
 
171
 
172
 
173
          - - T a b l e   2 
174
 
175
          S E L E C T   
176
 
177
                   N ' Y ? u   c ? u     ?     ? ? c   '   + 
178
 
179
                   C A S E   
180
 
181
                            W H E N   A . [ A C T I O N ]   =   ' A U T '   T H E N   N ' u ?   q u y ? n   ' 
182
 
183
                            W H E N   A . [ A C T I O N ]   =   ' A D D '   T H E N   N ' t ? o   ' 
184
 
185
                            W H E N   A . [ A C T I O N ]   =   ' U P D '   T H E N   N ' c ? p   n h ? t   ' 
186
 
187
                            W H E N   A . [ A C T I O N ]   =   ' A P P '   T H E N   N ' d u y ? t   ' 
188
 
189
                            W H E N   A . [ A C T I O N ]   =   ' R E J '   T H E N   N ' t ?   c h ? i   ' 
190
 
191
                            W H E N   A . [ A C T I O N ]   =   ' H A N '   T H E N   N ' b ? n   g i a o   ' 
192
 
193
                            E L S E   ' ' 
194
 
195
                   E N D   +   
196
 
197
                   N ' b ? i   '   +   U A . T L F u l l N a m e   +   
198
 
199
                   C A S E   
200
 
201
                            W H E N   A . [ A C T I O N ]   =   ' A U T '   T H E N   N '   c h o   '   +   U A 2 . T L F u l l N a m e 
202
 
203
                            E L S E   ' ' 
204
 
205
                   E N D   +   
206
 
207
                   N '   v ? o   l ? c :   '   +   F O R M A T ( A . A P P R O V E _ D T ,   ' d d / M M / y y y y   H H : m m : s s ' )   +   ' . '   A S   ' L O G ' 
208
 
209
          F R O M   C M _ T E M P L A T E _ L O G   A 
210
 
211
          L E F T   J O I N   T L _ U S E R   U A   O N   U A . T L N A N M E   =   A . C H E C K E R _ I D 
212
 
213
          L E F T   J O I N   C M _ A P P R O V E _ G R O U P   G   O N   G . A P P R O V E _ G R O U P _ I D   =   A . A P P R O V E _ G R O U P _ I D 
214
 
215
          L E F T   J O I N   T L _ U S E R   U A 2   O N   U A 2 . T L N A N M E   =   G . A U T H O R I T Y _ N A M E 
216
 
217
          W H E R E   1 = 1 
218
 
219
          A N D   A . R E Q _ I D   =   @ p _ R E Q _ I D 
220
 
221
 
222
 
223
          - - T a b l e   3 
224
 
225
          I F ( @ p _ I s N o t e   =   1 ) 
226
 
227
          B E G I N 
228
 
229
                   S E L E C T   
230
 
231
                            U A . T L F u l l N a m e   +   F O R M A T ( A . C R E A T E _ D T ,   '   ( d d / M M / y y y y   H H : m m : s s ) :   ' )   +   A . C O N T E N T   +   ' . '   A S   ' N O T E ' 
232
 
233
                   F R O M   C M _ T E M P L A T E _ N O T E   A 
234
 
235
                   L E F T   J O I N   T L _ U S E R   U A   O N   A . T E M P L A T E _ N O T E _ U S E R N A M E   =   U A . T L N A N M E   
236
 
237
                   W H E R E   1 = 1 
238
 
239
                   A N D   A . R E Q _ I D   =   @ p _ R E Q _ I D 
240
 
241
          E N D 
242
 
243
          E L S E 
244
 
245
          B E G I N 
246
 
247
                   S E L E C T   '   '   A S   ' N O T E ' 
248
 
249
          E N D 
250
 
251
 E N D 
252
 
253
 
254
 
255
 G O 
256
 
257
 I F   @ @ E R R O R   < >   0   S E T   N O E X E C   O N 
258
 
259
 G O 
260
 
261
 P R I N T   N ' C r e a t i n g   [ d b o ] . [ C M _ R E Q U E S T _ T E M P L A T E _ C l o s e _ T e m p l a t e ] ' 
262
 
263
 G O 
264
 
265
 C R E A T E   P R O C E D U R E   [ d b o ] . [ C M _ R E Q U E S T _ T E M P L A T E _ C l o s e _ T e m p l a t e ]   
266
 
267
          @ p _ R E Q U E S T _ T E M P L A T E _ I D   n v a r c h a r ( 2 0 0 )     =   N U L L , 
268
 
269
          @ p _ R E Q U E S T _ T E M P L A T E _ N A M E          n v a r c h a r ( 2 0 0 )     =   N U L L , 
270
 
271
          @ p _ R E Q U E S T _ T E M P L A T E _ C O D E          n v a r c h a r ( 1 0 0 )     =   N U L L , 
272
 
273
          @ p _ C R E A T E _ L O C A T I O N   N V A R C H A R ( 1 0 0 ) = N U L L , 
274
 
275
          @ p _ H E A D E R   N V A R C H A R ( m a x ) = N U L L , 
276
 
277
          @ p _ C O N T E N T   N V A R C H A R ( m a x ) = N U L L , 
278
 
279
          @ p _ B R A N C H _ I D   N V A R C H A R ( 5 0 ) = N U L L , 
280
 
281
          @ p _ R E P O R T _ N O   N V A R C H A R ( 5 0 ) = N U L L , 
282
 
283
          @ p _ T I T L E   N V A R C H A R ( 5 0 ) = N U L L , 
284
 
285
          @ p _ R E P O R T _ D T          V A R C H A R ( 2 0 )   =   N U L L , 
286
 
287
          @ p _ S C H E M E _ I N   B I T , 
288
 
289
          @ p _ T Y P E _ T E M P L A T E _ I D   N V A R C H A R ( 2 0 ) = N U L L , 
290
 
291
          @ p _ N O T E S          n v a r c h a r ( m a x )     =   N U L L , 
292
 
293
          @ p _ R E C O R D _ S T A T U S          v a r c h a r ( 1 )     =   N U L L , 
294
 
295
          @ p _ M A K E R _ I D          v a r c h a r ( 1 2 )     =   N U L L , 
296
 
297
          @ p _ C R E A T E _ D T          V A R C H A R ( 2 0 )   =   N U L L , 
298
 
299
          @ p _ A U T H _ S T A T U S          v a r c h a r ( 5 0 )     =   N U L L , 
300
 
301
          @ p _ C H E C K E R _ I D          v a r c h a r ( 1 2 )     =   N U L L , 
302
 
303
          @ p _ A P P R O V E _ D T          V A R C H A R ( 2 0 )   =   N U L L , 
304
 
305
          @ p _ R E Q U E S T _ T E M P L A T E _ X M L   n v a r c h a r ( M A X )   =   N U L L 
306
 
307
 A S 
308
 
309
 B E G I N 
310
 
311
          - - V a l i d a t i o n   i s   h e r e 
312
 
313
          D E C L A R E   @ E R R O R S Y S   N V A R C H A R ( 1 5 )   =   ' ' , 
314
 
315
                   @ l _ R E Q U E S T _ T E M P L A T E _ D E T A I L _ I D   v a r c h a r ( 1 5 ) , 
316
 
317
                   @ l _ R E Q U E S T _ T E M P L A T E _ D E T A I L _ C O N T E N T   n v a r c h a r ( m a x ) , 
318
 
319
                   @ l _ R E Q U E S T _ T E M P L A T E _ D E T A I L _ C O D E   v a r c h a r ( 1 5 ) 
320
 
321
          I F   @ E R R O R S Y S   < >   ' '   
322
 
323
          B E G I N 
324
 
325
                   S E L E C T   E r r o r C o d e   R e s u l t ,   ' '     C A R _ I D ,   E r r o r D e s c   E r r o r D e s c   F R O M   S Y S _ E R R O R   W H E R E   E r r o r C o d e   =   @ E R R O R S Y S 
326
 
327
                   R E T U R N   ' 0 ' 
328
 
329
          E N D 
330
 
331
 
332
 
333
          B E G I N   T R A N S A C T I O N     
334
 
335
 
336
 
337
          U P D A T E   [ d b o ] . [ C M _ R E Q U E S T _ T E M P L A T E ] 
338
 
339
          S E T   R E C O R D _ S T A T U S = 0 
340
 
341
              W H E R E   [ R E Q U E S T _ T E M P L A T E _ I D ]   =   @ p _ R E Q U E S T _ T E M P L A T E _ I D 
342
 
343
                   I F   @ @ E r r o r   < >   0   G O T O   A B O R T 
344
 
345
 
346
 
347
 C O M M I T   T R A N S A C T I O N 
348
 
349
 
350
 
351
 S E L E C T   ' 0 '   a s   R e s u l t ,   @ p _ R E Q U E S T _ T E M P L A T E _ I D     I D ,   ' '   E r r o r D e s c 
352
 
353
 R E T U R N   ' 0 ' 
354
 
355
 A B O R T : 
356
 
357
 B E G I N 
358
 
359
                   
360
 
361
                   R O L L B A C K   T R A N S A C T I O N 
362
 
363
                   S E L E C T   ' - 1 '   a s   R e s u l t ,   ' '   I D ,   ' '   E r r o r D e s c 
364
 
365
                   R E T U R N   ' - 1 ' 
366
 
367
 E N D 
368
 
369
 E N D 
370
 
371
 G O 
372
 
373
 I F   @ @ E R R O R   < >   0   S E T   N O E X E C   O N 
374
 
375
 G O 
376
 
377
 P R I N T   N ' C r e a t i n g   [ d b o ] . [ C M _ R E Q U E S T _ T E M P L A T E _ O p e n _ T e m p l a t e ] ' 
378
 
379
 G O 
380
 
381
 C R E A T E   P R O C E D U R E   [ d b o ] . [ C M _ R E Q U E S T _ T E M P L A T E _ O p e n _ T e m p l a t e ]   
382
 
383
          @ p _ R E Q U E S T _ T E M P L A T E _ I D   n v a r c h a r ( 2 0 0 )     =   N U L L , 
384
 
385
          @ p _ R E Q U E S T _ T E M P L A T E _ N A M E          n v a r c h a r ( 2 0 0 )     =   N U L L , 
386
 
387
          @ p _ R E Q U E S T _ T E M P L A T E _ C O D E          n v a r c h a r ( 1 0 0 )     =   N U L L , 
388
 
389
          @ p _ C R E A T E _ L O C A T I O N   N V A R C H A R ( 1 0 0 ) = N U L L , 
390
 
391
          @ p _ H E A D E R   N V A R C H A R ( m a x ) = N U L L , 
392
 
393
          @ p _ C O N T E N T   N V A R C H A R ( m a x ) = N U L L , 
394
 
395
          @ p _ B R A N C H _ I D   N V A R C H A R ( 5 0 ) = N U L L , 
396
 
397
          @ p _ R E P O R T _ N O   N V A R C H A R ( 5 0 ) = N U L L , 
398
 
399
          @ p _ T I T L E   N V A R C H A R ( 5 0 ) = N U L L , 
400
 
401
          @ p _ R E P O R T _ D T          V A R C H A R ( 2 0 )   =   N U L L , 
402
 
403
          @ p _ S C H E M E _ I N   B I T , 
404
 
405
          @ p _ T Y P E _ T E M P L A T E _ I D   N V A R C H A R ( 2 0 ) = N U L L , 
406
 
407
          @ p _ N O T E S          n v a r c h a r ( m a x )     =   N U L L , 
408
 
409
          @ p _ R E C O R D _ S T A T U S          v a r c h a r ( 1 )     =   N U L L , 
410
 
411
          @ p _ M A K E R _ I D          v a r c h a r ( 1 2 )     =   N U L L , 
412
 
413
          @ p _ C R E A T E _ D T          V A R C H A R ( 2 0 )   =   N U L L , 
414
 
415
          @ p _ A U T H _ S T A T U S          v a r c h a r ( 5 0 )     =   N U L L , 
416
 
417
          @ p _ C H E C K E R _ I D          v a r c h a r ( 1 2 )     =   N U L L , 
418
 
419
          @ p _ A P P R O V E _ D T          V A R C H A R ( 2 0 )   =   N U L L , 
420
 
421
          @ p _ R E Q U E S T _ T E M P L A T E _ X M L   n v a r c h a r ( M A X )   =   N U L L 
422
 
423
 A S 
424
 
425
 B E G I N 
426
 
427
          - - V a l i d a t i o n   i s   h e r e 
428
 
429
          D E C L A R E   @ E R R O R S Y S   N V A R C H A R ( 1 5 )   =   ' ' , 
430
 
431
                   @ l _ R E Q U E S T _ T E M P L A T E _ D E T A I L _ I D   v a r c h a r ( 1 5 ) , 
432
 
433
                   @ l _ R E Q U E S T _ T E M P L A T E _ D E T A I L _ C O N T E N T   n v a r c h a r ( m a x ) , 
434
 
435
                   @ l _ R E Q U E S T _ T E M P L A T E _ D E T A I L _ C O D E   v a r c h a r ( 1 5 ) 
436
 
437
          I F   @ E R R O R S Y S   < >   ' '   
438
 
439
          B E G I N 
440
 
441
                   S E L E C T   E r r o r C o d e   R e s u l t ,   ' '     I D ,   E r r o r D e s c   E r r o r D e s c   F R O M   S Y S _ E R R O R   W H E R E   E r r o r C o d e   =   @ E R R O R S Y S 
442
 
443
                   R E T U R N   ' 0 ' 
444
 
445
          E N D 
446
 
447
          I F ( E X I S T S ( S E L E C T   *   
448
 
449
                                     F R O M   C M _ R E Q U E S T _ T E M P L A T E   
450
 
451
                                     W H E R E   R E P O R T _ N O   =   @ p _ R E P O R T _ N O 
452
 
453
                                     A N D   R E Q U E S T _ T E M P L A T E _ I D   < >   @ p _ R E Q U E S T _ T E M P L A T E _ I D   
454
 
455
                                     A N D   R E C O R D _ S T A T U S   =   1 ) ) 
456
 
457
          B E G I N 
458
 
459
                   S E L E C T   ' - 1 '   a s   R e s u l t ,   ' '   I D ,   N ' S ?   t ?   t r ? n h     ?     ? ? c   s ?   d ? n g   ?   t ?   t r ? n h   k h ? c .   V u i   l ? n g   k i ? m   t r a   l ? i '   E r r o r D e s c 
460
 
461
                   R E T U R N   ' - 1 ' 
462
 
463
          E N D 
464
 
465
          
466
 
467
          B E G I N   T R A N S A C T I O N     
468
 
469
          
470
 
471
          U P D A T E   [ d b o ] . [ C M _ R E Q U E S T _ T E M P L A T E ] 
472
 
473
          S E T   R E C O R D _ S T A T U S = 1 
474
 
475
              W H E R E   [ R E Q U E S T _ T E M P L A T E _ I D ]   =   @ p _ R E Q U E S T _ T E M P L A T E _ I D 
476
 
477
                   I F   @ @ E r r o r   < >   0   G O T O   A B O R T 
478
 
479
 
480
 
481
 C O M M I T   T R A N S A C T I O N 
482
 
483
 
484
 
485
 S E L E C T   ' 0 '   a s   R e s u l t ,   @ p _ R E Q U E S T _ T E M P L A T E _ I D     I D ,   ' '   E r r o r D e s c 
486
 
487
 R E T U R N   ' 0 ' 
488
 
489
 A B O R T : 
490
 
491
 B E G I N 
492
 
493
                   
494
 
495
                   R O L L B A C K   T R A N S A C T I O N 
496
 
497
                   S E L E C T   ' - 1 '   a s   R e s u l t ,   ' '   I D ,   ' '   E r r o r D e s c 
498
 
499
                   R E T U R N   ' - 1 ' 
500
 
501
 E N D 
502
 
503
 E N D 
504
 
505
 G O 
506
 
507
 I F   @ @ E R R O R   < >   0   S E T   N O E X E C   O N 
508
 
509
 G O 
510
 
511
 P R I N T   N ' C r e a t i n g   [ d b o ] . [ T R _ R E Q _ P A Y _ A U T O _ R E C U R R I N G _ B y I d ] ' 
512
 
513
 G O 
514
 
515
 C R E A T E       P R O C   [ d b o ] . [ T R _ R E Q _ P A Y _ A U T O _ R E C U R R I N G _ B y I d ] 
516
 
517
 @ p _ R E Q _ P A Y _ A U T O _ I D   v a r c h a r ( 1 5 ) 
518
 
519
 A S 
520
 
521
 B E G I N 
522
 
523
          S E L E C T   A . * 
524
 
525
          F R O M   T R _ R E Q _ P A Y _ A U T O _ R E C U R R I N G   A   
526
 
527
            W H E R E   A . R E Q _ P A Y _ A U T O _ I D   = @ p _ R E Q _ P A Y _ A U T O _ I D 
528
 
529
 E N D 
530
 
531
 G O 
532
 
533
 I F   @ @ E R R O R   < >   0   S E T   N O E X E C   O N 
534
 
535
 G O 
536
 
537
 P R I N T   N ' C r e a t i n g   [ d b o ] . [ T R _ R E Q _ P A Y _ A U T O _ B U D G E T _ A L L O C A T I O N _ B y I d ] ' 
538
 
539
 G O 
540
 
541
 C R E A T E       P R O C   [ d b o ] . [ T R _ R E Q _ P A Y _ A U T O _ B U D G E T _ A L L O C A T I O N _ B y I d ] 
542
 
543
 @ p _ R E Q _ P A Y _ A U T O _ I D   v a r c h a r ( 1 5 ) 
544
 
545
 A S 
546
 
547
 B E G I N 
548
 
549
          S E L E C T   A . * ,   B . B R A N C H _ C O D E ,   C . D E P _ C O D E ,   B . B R A N C H _ C O D E   +   '   -   '   +   B . B R A N C H _ N A M E   A S   B R A N C H _ F U L L _ N A M E ,   C . D E P _ C O D E   +   '   -   '   +   C . D E P _ N A M E   A S   D E P _ F U L L _ N A M E 
550
 
551
          F R O M   T R _ R E Q _ P A Y _ A U T O _ B U D G E T _ A L L O C A T I O N   A   
552
 
553
          L E F T   J O I N     C M _ B R A N C H   B   O N   A . B R A N C H _ I D   =   B . B R A N C H _ I D 
554
 
555
          L E F T   J O I N   C M _ D E P A R T M E N T   C   O N   A . D E P _ I D   =   C . D E P _ I D 
556
 
557
          W H E R E   A . R E Q _ P A Y _ A U T O _ I D   = @ p _ R E Q _ P A Y _ A U T O _ I D 
558
 
559
 E N D 
560
 
561
 G O 
562
 
563
 I F   @ @ E R R O R   < >   0   S E T   N O E X E C   O N 
564
 
565
 G O 
566
 
567
 C O M M I T   T R A N S A C T I O N 
568
 
569
 G O 
570
 
571
 I F   @ @ E R R O R   < >   0   S E T   N O E X E C   O N 
572
 
573
 G O 
574
 
575
 - -   T h i s   s t a t e m e n t   w r i t e s   t o   t h e   S Q L   S e r v e r   L o g   s o   S Q L   M o n i t o r   c a n   s h o w   t h i s   d e p l o y m e n t . 
576
 
577
 I F   H A S _ P E R M S _ B Y _ N A M E ( N ' s y s . x p _ l o g e v e n t ' ,   N ' O B J E C T ' ,   N ' E X E C U T E ' )   =   1 
578
 
579
 B E G I N 
580
 
581
         D E C L A R E   @ d a t a b a s e N a m e   A S   n v a r c h a r ( 2 0 4 8 ) ,   @ e v e n t M e s s a g e   A S   n v a r c h a r ( 2 0 4 8 ) 
582
 
583
         S E T   @ d a t a b a s e N a m e   =   R E P L A C E ( R E P L A C E ( D B _ N A M E ( ) ,   N ' \ ' ,   N ' \ \ ' ) ,   N ' " ' ,   N ' \ " ' ) 
584
 
585
         S E T   @ e v e n t M e s s a g e   =   N ' R e d g a t e   S Q L   C o m p a r e :   {   " d e p l o y m e n t " :   {   " d e s c r i p t i o n " :   " R e d g a t e   S Q L   C o m p a r e   d e p l o y e d   t o   '   +   @ d a t a b a s e N a m e   +   N ' " ,   " d a t a b a s e " :   " '   +   @ d a t a b a s e N a m e   +   N ' "   } } ' 
586
 
587
         E X E C U T E   s y s . x p _ l o g e v e n t   5 5 0 0 0 ,   @ e v e n t M e s s a g e 
588
 
589
 E N D 
590
 
591
 G O 
592
 
593
 D E C L A R E   @ S u c c e s s   A S   B I T 
594
 
595
 S E T   @ S u c c e s s   =   1 
596
 
597
 S E T   N O E X E C   O F F 
598
 
599
 I F   ( @ S u c c e s s   =   1 )   P R I N T   ' T h e   d a t a b a s e   u p d a t e   s u c c e e d e d ' 
600
 
601
 E L S E   B E G I N 
602
 
603
          I F   @ @ T R A N C O U N T   >   0   R O L L B A C K   T R A N S A C T I O N 
604
 
605
          P R I N T   ' T h e   d a t a b a s e   u p d a t e   f a i l e d ' 
606
 
607
 E N D 
608
 
609
 G O 
610
 
611