Produced by Araxis Merge on 4/12/2018 10:19:05 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | MSSRe Build 4.zip\DatabaseScripts\DatabasePatches\TBI Scripts (Increment 2)\V1\TBI Script Package_Increment2_v1.zip\Insert | TBI Script Package_Increment2_v1.sql | Mon Jul 28 19:16:54 2014 UTC |
| 2 | MSSRe Build 4.zip\DatabaseScripts\DatabasePatches\TBI Scripts (Increment 2)\V1\TBI Script Package_Increment2_v1.zip\Insert | TBI Script Package_Increment2_v1.sql | Wed Apr 11 19:20:13 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 680 |
| Changed | 1 | 2 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| Whitespace | |
|---|---|
| Character case | Differences in character case are significant |
| Line endings | Differences in line endings (CR and LF characters) are ignored |
| CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
| 1 | --Set scri ptPathStri ng to the directory where the insert scr ipts are l ocated | |
| 2 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------ | |
| 3 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------ | |
| 4 | :setvar sc riptPathSt ring "C:\U sers\ DNS RICHAD\Des ktop\TBI S cript Pack age_Increm ent2_v1\In sert" | |
| 5 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------ | |
| 6 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------ | |
| 7 | ||
| 8 | ||
| 9 | declare @r eseedID int; | |
| 10 | --Check if PART-O it em exists and handle appropria tely | |
| 11 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'P ART-O') | |
| 12 | BEGIN | |
| 13 | PRINT C HAR(13) + 'Survey PA RT-O alrea dy exists in STD_SUR VEY_TYPE T able' | |
| 14 | END | |
| 15 | ELSE | |
| 16 | BEGIN | |
| 17 | PR INT CHAR(1 3) + 'Inse rting PART -O into ST D_SURVEY_T YPE table' | |
| 18 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 19 | BE GIN TRY | |
| 20 | :r $ (scriptPat hString)\" PART-O For m Insert S cript.sql" | |
| 21 | EN D TRY | |
| 22 | BE GIN CATCH | |
| 23 | PRIN T CHAR(13) + 'An err or occurre d while in serting PA RT-O infor mation... ' + ERROR_ MESSAGE() | |
| 24 | EN D CATCH | |
| 25 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 26 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 27 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 28 | END | |
| 29 | GO | |
| 30 | ||
| 31 | declare @r eseedID int; | |
| 32 | --Check if MPAI-4 it em exists and handle appropria tely | |
| 33 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'M PAI-4') | |
| 34 | BEGIN | |
| 35 | PRINT C HAR(13) + 'Survey MP AI-4 alrea dy exists in STD_SUR VEY_TYPE T able' | |
| 36 | END | |
| 37 | ELSE | |
| 38 | BEGIN | |
| 39 | PR INT CHAR(1 3) + 'Inse rting MPAI -4 into ST D_SURVEY_T YPE table' | |
| 40 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 41 | BE GIN TRY | |
| 42 | :r $ (scriptPat hString)\" MPAI-4 For m Insert S cript.sql" | |
| 43 | EN D TRY | |
| 44 | BE GIN CATCH | |
| 45 | PRIN T CHAR(13) + 'An err or occurre d while in serting MP AI-4 infor mation... ' + ERROR_ MESSAGE() | |
| 46 | EN D CATCH | |
| 47 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 48 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 49 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 50 | END | |
| 51 | GO | |
| 52 | ||
| 53 | declare @r eseedID int; | |
| 54 | --Check if CRS-R ite m exists a nd handle appropriat ely | |
| 55 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'C RS-R') | |
| 56 | BEGIN | |
| 57 | PRINT C HAR(13) + 'Survey CR S-R alread y exists i n STD_SURV EY_TYPE Ta ble' | |
| 58 | END | |
| 59 | ELSE | |
| 60 | BEGIN | |
| 61 | PR INT CHAR(1 3) + 'Inse rting CRS- R into STD _SURVEY_TY PE table' | |
| 62 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 63 | BE GIN TRY | |
| 64 | :r $ (scriptPat hString)\" CRS-R Form Insert Sc ript.sql" | |
| 65 | EN D TRY | |
| 66 | BE GIN CATCH | |
| 67 | PRIN T CHAR(13) + 'An err or occurre d while in serting CR S-R inform ation... ' + ERROR_M ESSAGE() | |
| 68 | EN D CATCH | |
| 69 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 70 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 71 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 72 | END | |
| 73 | GO | |
| 74 | ||
| 75 | declare @r eseedID int; | |
| 76 | --Check if OLBPDQ it em exists and handle appropria tely | |
| 77 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'O LBPDQ') | |
| 78 | BEGIN | |
| 79 | PRINT C HAR(13) + 'Survey OL BPDQ alrea dy exists in STD_SUR VEY_TYPE T able' | |
| 80 | END | |
| 81 | ELSE | |
| 82 | BEGIN | |
| 83 | PR INT CHAR(1 3) + 'Inse rting OLBP DQ into ST D_SURVEY_T YPE table' | |
| 84 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 85 | BE GIN TRY | |
| 86 | :r $ (scriptPat hString)\" OLBPDQ For m Insert S cript.sql" | |
| 87 | EN D TRY | |
| 88 | BE GIN CATCH | |
| 89 | PRIN T CHAR(13) + 'An err or occurre d while in serting OL BPDQ infor mation... ' + ERROR_ MESSAGE() | |
| 90 | EN D CATCH | |
| 91 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 92 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 93 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 94 | END | |
| 95 | GO | |
| 96 | ||
| 97 | declare @r eseedID int; | |
| 98 | --Check if TUG item exists and handle ap propriatel y | |
| 99 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'T UG') | |
| 100 | BEGIN | |
| 101 | PRINT C HAR(13) + 'Survey TU G already exists in STD_SURVEY _TYPE Tabl e' | |
| 102 | END | |
| 103 | ELSE | |
| 104 | BEGIN | |
| 105 | PR INT CHAR(1 3) + 'Inse rting TUG into STD_S URVEY_TYPE table' | |
| 106 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 107 | BE GIN TRY | |
| 108 | :r $ (scriptPat hString)\" TUG Form I nsert Scri pt.sql" | |
| 109 | EN D TRY | |
| 110 | BE GIN CATCH | |
| 111 | PRIN T CHAR(13) + 'An err or occurre d while in serting TU G informat ion... ' + ERROR_MES SAGE() | |
| 112 | EN D CATCH | |
| 113 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 114 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 115 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 116 | END | |
| 117 | GO | |
| 118 | ||
| 119 | declare @r eseedID int; | |
| 120 | --Check if GAD-7 ite m exists a nd handle appropriat ely | |
| 121 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'G AD-7') | |
| 122 | BEGIN | |
| 123 | PRINT C HAR(13) + 'Survey GA D-7 alread y exists i n STD_SURV EY_TYPE Ta ble' | |
| 124 | END | |
| 125 | ELSE | |
| 126 | BEGIN | |
| 127 | PR INT CHAR(1 3) + 'Inse rting GAD- 7 into STD _SURVEY_TY PE table' | |
| 128 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 129 | BE GIN TRY | |
| 130 | :r $ (scriptPat hString)\" GAD-7 Form Insert Sc ript.sql" | |
| 131 | EN D TRY | |
| 132 | BE GIN CATCH | |
| 133 | PRIN T CHAR(13) + 'An err or occurre d while in serting GA D-7 inform ation... ' + ERROR_M ESSAGE() | |
| 134 | EN D CATCH | |
| 135 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 136 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 137 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 138 | END | |
| 139 | GO | |
| 140 | ||
| 141 | declare @r eseedID int; | |
| 142 | --Check if PCL-C ite m exists a nd handle appropriat ely | |
| 143 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'P CL-C') | |
| 144 | BEGIN | |
| 145 | PRINT C HAR(13) + 'Survey PC L-C alread y exists i n STD_SURV EY_TYPE Ta ble' | |
| 146 | END | |
| 147 | ELSE | |
| 148 | BEGIN | |
| 149 | PR INT CHAR(1 3) + 'Inse rting PCL- C into STD _SURVEY_TY PE table' | |
| 150 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 151 | BE GIN TRY | |
| 152 | :r $ (scriptPat hString)\" PCL-C Form Insert Sc ript.sql" | |
| 153 | EN D TRY | |
| 154 | BE GIN CATCH | |
| 155 | PRIN T CHAR(13) + 'An err or occurre d while in serting PC L-C inform ation... ' + ERROR_M ESSAGE() | |
| 156 | EN D CATCH | |
| 157 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 158 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 159 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 160 | END | |
| 161 | GO | |
| 162 | ||
| 163 | declare @r eseedID int; | |
| 164 | --Check if PHQ-9 ite m exists a nd handle appropriat ely | |
| 165 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'P HQ-9') | |
| 166 | BEGIN | |
| 167 | PRINT C HAR(13) + 'Survey PH Q-9 alread y exists i n STD_SURV EY_TYPE Ta ble' | |
| 168 | END | |
| 169 | ELSE | |
| 170 | BEGIN | |
| 171 | PR INT CHAR(1 3) + 'Inse rting PHQ- 9 into STD _SURVEY_TY PE table' | |
| 172 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 173 | BE GIN TRY | |
| 174 | :r $ (scriptPat hString)\" PHQ-9 Form Insert Sc ript.sql" | |
| 175 | EN D TRY | |
| 176 | BE GIN CATCH | |
| 177 | PRIN T CHAR(13) + 'An err or occurre d while in serting PH Q-9 inform ation... ' + ERROR_M ESSAGE() | |
| 178 | EN D CATCH | |
| 179 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 180 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 181 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 182 | END | |
| 183 | GO | |
| 184 | ||
| 185 | declare @r eseedID int; | |
| 186 | --Check if ISI item exists and handle ap propriatel y | |
| 187 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'I SI') | |
| 188 | BEGIN | |
| 189 | PRINT C HAR(13) + 'Survey IS I already exists in STD_SURVEY _TYPE Tabl e' | |
| 190 | END | |
| 191 | ELSE | |
| 192 | BEGIN | |
| 193 | PR INT CHAR(1 3) + 'Inse rting ISI into STD_S URVEY_TYPE table' | |
| 194 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 195 | BE GIN TRY | |
| 196 | :r $ (scriptPat hString)\" ISI Form I nsert Scri pt.sql" | |
| 197 | EN D TRY | |
| 198 | BE GIN CATCH | |
| 199 | PRIN T CHAR(13) + 'An err or occurre d while in serting IS I informat ion... ' + ERROR_MES SAGE() | |
| 200 | EN D CATCH | |
| 201 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 202 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 203 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 204 | END | |
| 205 | GO | |
| 206 | ||
| 207 | declare @r eseedID int; | |
| 208 | --Check if POQI item exists an d handle a ppropriate ly | |
| 209 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'P OQI') | |
| 210 | BEGIN | |
| 211 | PRINT C HAR(13) + 'Survey PO QI already exists in STD_SURVE Y_TYPE Tab le' | |
| 212 | END | |
| 213 | ELSE | |
| 214 | BEGIN | |
| 215 | PR INT CHAR(1 3) + 'Inse rting POQI into STD_ SURVEY_TYP E table' | |
| 216 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 217 | BE GIN TRY | |
| 218 | :r $ (scriptPat hString)\" POQI Form Insert Scr ipt.sql" | |
| 219 | EN D TRY | |
| 220 | BE GIN CATCH | |
| 221 | PRIN T CHAR(13) + 'An err or occurre d while in serting PO QI informa tion... ' + ERROR_ME SSAGE() | |
| 222 | EN D CATCH | |
| 223 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 224 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 225 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 226 | END | |
| 227 | GO | |
| 228 | ||
| 229 | declare @r eseedID int; | |
| 230 | --Check if POQD item exists an d handle a ppropriate ly | |
| 231 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'P OQD') | |
| 232 | BEGIN | |
| 233 | PRINT C HAR(13) + 'Survey PO QD already exists in STD_SURVE Y_TYPE Tab le' | |
| 234 | END | |
| 235 | ELSE | |
| 236 | BEGIN | |
| 237 | PR INT CHAR(1 3) + 'Inse rting POQD into STD_ SURVEY_TYP E table' | |
| 238 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 239 | BE GIN TRY | |
| 240 | :r $ (scriptPat hString)\" POQD Form Insert Scr ipt.sql" | |
| 241 | EN D TRY | |
| 242 | BE GIN CATCH | |
| 243 | PRIN T CHAR(13) + 'An err or occurre d while in serting PO QD informa tion... ' + ERROR_ME SSAGE() | |
| 244 | EN D CATCH | |
| 245 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 246 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 247 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 248 | END | |
| 249 | GO | |
| 250 | ||
| 251 | declare @r eseedID int; | |
| 252 | --Check if POQF item exists an d handle a ppropriate ly | |
| 253 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'P OQF') | |
| 254 | BEGIN | |
| 255 | PRINT C HAR(13) + 'Survey PO QF already exists in STD_SURVE Y_TYPE Tab le' | |
| 256 | END | |
| 257 | ELSE | |
| 258 | BEGIN | |
| 259 | PR INT CHAR(1 3) + 'Inse rting POQF into STD_ SURVEY_TYP E table' | |
| 260 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 261 | BE GIN TRY | |
| 262 | :r $ (scriptPat hString)\" POQF Form Insert Scr ipt.sql" | |
| 263 | EN D TRY | |
| 264 | BE GIN CATCH | |
| 265 | PRIN T CHAR(13) + 'An err or occurre d while in serting PO QF informa tion... ' + ERROR_ME SSAGE() | |
| 266 | EN D CATCH | |
| 267 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 268 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 269 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 270 | END | |
| 271 | GO | |
| 272 | ||
| 273 | declare @r eseedID int; | |
| 274 | --Check if WHODAS-I item exist s and hand le appropr iately | |
| 275 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'W HODAS-I') | |
| 276 | BEGIN | |
| 277 | PRINT C HAR(13) + 'Survey WH ODAS-I alr eady exist s in STD_S URVEY_TYPE Table' | |
| 278 | END | |
| 279 | ELSE | |
| 280 | BEGIN | |
| 281 | PR INT CHAR(1 3) + 'Inse rting WHOD AS-I into STD_SURVEY _TYPE tabl e' | |
| 282 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 283 | BE GIN TRY | |
| 284 | :r $ (scriptPat hString)\" WHODAS Int erview Ins ert Script .sql" | |
| 285 | EN D TRY | |
| 286 | BE GIN CATCH | |
| 287 | PRIN T CHAR(13) + 'An err or occurre d while in serting WH ODAS-I inf ormation.. . ' + ERRO R_MESSAGE( ) | |
| 288 | EN D CATCH | |
| 289 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 290 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 291 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 292 | END | |
| 293 | GO | |
| 294 | ||
| 295 | declare @r eseedID int; | |
| 296 | --Check if WHODAS-P item exist s and hand le appropr iately | |
| 297 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'W HODAS-P') | |
| 298 | BEGIN | |
| 299 | PRINT C HAR(13) + 'Survey WH ODAS-P alr eady exist s in STD_S URVEY_TYPE Table' | |
| 300 | END | |
| 301 | ELSE | |
| 302 | BEGIN | |
| 303 | PR INT CHAR(1 3) + 'Inse rting WHOD AS-P into STD_SURVEY _TYPE tabl e' | |
| 304 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 305 | BE GIN TRY | |
| 306 | :r $ (scriptPat hString)\" WHODAS Pro xy Insert Script.sql " | |
| 307 | EN D TRY | |
| 308 | BE GIN CATCH | |
| 309 | PRIN T CHAR(13) + 'An err or occurre d while in serting WH ODAS-P inf ormation.. . ' + ERRO R_MESSAGE( ) | |
| 310 | EN D CATCH | |
| 311 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 312 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 313 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 314 | END | |
| 315 | GO | |
| 316 | ||
| 317 | declare @r eseedID int; | |
| 318 | --Check if WHODAS-S item exist s and hand le appropr iately | |
| 319 | IF EXISTS (SELECT * FROM [dbo] .[STD_SURV EY_TYPE] W HERE [dbo] .[STD_SURV EY_TYPE].[ CODE] = 'W HODAS-S') | |
| 320 | BEGIN | |
| 321 | PRINT C HAR(13) + 'Survey WH ODAS-S alr eady exist s in STD_S URVEY_TYPE Table' | |
| 322 | END | |
| 323 | ELSE | |
| 324 | BEGIN | |
| 325 | PR INT CHAR(1 3) + 'Inse rting WHOD AS-S into STD_SURVEY _TYPE tabl e' | |
| 326 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] ON | |
| 327 | BE GIN TRY | |
| 328 | :r $ (scriptPat hString)\" WHODAS Sel f Insert S cript.sql" | |
| 329 | EN D TRY | |
| 330 | BE GIN CATCH | |
| 331 | PRIN T CHAR(13) + 'An err or occurre d while in serting WH ODAS-S inf ormation.. . ' + ERRO R_MESSAGE( ) | |
| 332 | EN D CATCH | |
| 333 | SE T IDENTITY _INSERT [d bo].[STD_S URVEY_TYPE ] OFF | |
| 334 | SE T @reseedI D = (SELEC T MAX([dbo ].[STD_SUR VEY_TYPE]. [ID]) from [dbo].[ST D_SURVEY_T YPE]) | |
| 335 | DB CC CHECKID ENT ('[dbo ].[STD_SUR VEY_TYPE]' , RESEED, @reseedID ) | |
| 336 | END | |
| 337 | GO | |
| 338 | ||
| 339 | PRINT CHAR (13) + 'Ru nning Fina l Update S cript' | |
| 340 | :r $(scrip tPathStrin g)\"TBI_Fi nal_Update .sql" | |
| 341 | GO |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.