Produced by Araxis Merge on 3/21/2018 5:29:10 PM Eastern 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 | Wed Mar 21 21:29:10 2018 UTC | ||
| 2 | AHOBPRe_v4.3.15_bld3.zip\DatabaseScripts\AHOBPR\Increment 2\Pre-Prod\Increment 2 - 20150720\AHOBPR_Database_1_0_48.zip | Step 2 - Registry.Database.Deploy.sql | Mon Jul 20 18:07:30 2015 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 0 | 0 |
| Changed | 0 | 0 |
| Inserted | 1 | 9126 |
| 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 | ||||||
| 2 | :setvar Da tabaseName "Registry QA" | |||||
| 3 | :setvar Ma jorRelease Number "1" | |||||
| 4 | :setvar Mi norRelease Number "0" | |||||
| 5 | :setvar Po intRelease Number "48 " | |||||
| 6 | :setvar De ployVersio n "2015072 1.1" | |||||
| 7 | ||||||
| 8 | PRINT ' | |||||
| 9 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------ | |||||
| 10 | Step 2 - R egistry.Da tabase.Dep loy.sql | |||||
| 11 | ||||||
| 12 | Version Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber ) | |||||
| 13 | ||||||
| 14 | Build $(De ployVersio n) | |||||
| 15 | ||||||
| 16 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------ | |||||
| 17 | '; | |||||
| 18 | PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.'; | |||||
| 19 | PRINT ' | |||||
| 20 | ********** ********** ********** ********** ********** ******* | |||||
| 21 | NOTE: This script mu st be run with SQLCM D Mode tur ned on. | |||||
| 22 | ********** ********** ********** ********** ********** ******* | |||||
| 23 | ||||||
| 24 | '; | |||||
| 25 | GO | |||||
| 26 | :on error exit | |||||
| 27 | GO | |||||
| 28 | :setvar __ IsSqlCmdEn abled "Tru e" | |||||
| 29 | /* | |||||
| 30 | Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported. | |||||
| 31 | To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing: | |||||
| 32 | SET NOEXEC OFF; | |||||
| 33 | */ | |||||
| 34 | GO | |||||
| 35 | IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue' | |||||
| 36 | BEGIN | |||||
| 37 | PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. '; | |||||
| 38 | SE T NOEXEC O N; | |||||
| 39 | END | |||||
| 40 | ||||||
| 41 | GO | |||||
| 42 | ||||||
| 43 | USE [$(Dat abaseName) ] | |||||
| 44 | GO | |||||
| 45 | ||||||
| 46 | GO | |||||
| 47 | PRINT N'Cr eating [AH OBPR]...'; | |||||
| 48 | ||||||
| 49 | ||||||
| 50 | GO | |||||
| 51 | CREATE SCH EMA [AHOBP R] | |||||
| 52 | AUTHOR IZATION [d bo]; | |||||
| 53 | ||||||
| 54 | ||||||
| 55 | GO | |||||
| 56 | PRINT N'Cr eating [AH OBPR].[STD _CONCEPT]. ..'; | |||||
| 57 | ||||||
| 58 | ||||||
| 59 | GO | |||||
| 60 | CREATE TAB LE [AHOBPR ].[STD_CON CEPT] ( | |||||
| 61 | [STD_C ONCEPT_ID] INT I DENTITY (1 , 1) NOT N ULL, | |||||
| 62 | [DESCR IPTION] VARCHA R (4000) N OT NULL, | |||||
| 63 | [SHORT _DESCRIPTI ON] VARCHA R (255) N ULL, | |||||
| 64 | [CREAT EDBY] VARCHA R (30) N OT NULL, | |||||
| 65 | [UPDAT EDBY] VARCHA R (30) N OT NULL, | |||||
| 66 | [CREAT ED] DATETI ME2 (0) N OT NULL, | |||||
| 67 | [UPDAT ED] DATETI ME2 (0) N OT NULL, | |||||
| 68 | [ROW_V ERSION] ROWVER SION N OT NULL, | |||||
| 69 | CONSTR AINT [PK_S TD_CONCEPT ] PRIMARY KEY CLUSTE RED ([STD_ CONCEPT_ID ] ASC) ON [AHOBPR] | |||||
| 70 | ); | |||||
| 71 | ||||||
| 72 | ||||||
| 73 | GO | |||||
| 74 | PRINT N'Cr eating [AH OBPR].[STD _TERM]...' ; | |||||
| 75 | ||||||
| 76 | ||||||
| 77 | GO | |||||
| 78 | CREATE TAB LE [AHOBPR ].[STD_TER M] ( | |||||
| 79 | [STD_T ERM_ID] INT IDENTITY ( 1, 1) NOT NULL, | |||||
| 80 | [STD_C ONCEPT_ID] INT NULL, | |||||
| 81 | [SYSTE M_STD_TERM _ID] INT NULL, | |||||
| 82 | [CODE] VARCH AR (50) NOT NULL, | |||||
| 83 | [SHORT _DESCRIPTI ON] VARCH AR (100) NOT NULL, | |||||
| 84 | [DESCR IPTION] VARCH AR (4000) NOT NULL, | |||||
| 85 | [CREAT EDBY] VARCH AR (30) NOT NULL, | |||||
| 86 | [UPDAT EDBY] VARCH AR (30) NOT NULL, | |||||
| 87 | [CREAT ED] DATET IME2 (0) NOT NULL, | |||||
| 88 | [UPDAT ED] DATET IME2 (0) NOT NULL, | |||||
| 89 | [ROW_V ERSION] ROWVE RSION NOT NULL, | |||||
| 90 | CONSTR AINT [PK_S TD_CONCEPT _SYSTEM] P RIMARY KEY CLUSTERED ([STD_TER M_ID] ASC) ON [AHOBP R] | |||||
| 91 | ) ON [AHOB PR]; | |||||
| 92 | ||||||
| 93 | ||||||
| 94 | GO | |||||
| 95 | PRINT N'Cr eating [AH OBPR].[STD _TERM].[AK _STD_TERM] ...'; | |||||
| 96 | ||||||
| 97 | ||||||
| 98 | GO | |||||
| 99 | CREATE UNI QUE NONCLU STERED IND EX [AK_STD _TERM] | |||||
| 100 | ON [AH OBPR].[STD _TERM]([SY STEM_STD_T ERM_ID] AS C, [CODE] ASC) | |||||
| 101 | ON [AH OBPR]; | |||||
| 102 | ||||||
| 103 | ||||||
| 104 | GO | |||||
| 105 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE ]...'; | |||||
| 106 | ||||||
| 107 | ||||||
| 108 | GO | |||||
| 109 | CREATE TAB LE [AHOBPR ].[FORM_RE SPONSE] ( | |||||
| 110 | [FORM_ RESPONSE_I D] INT IDE NTITY (1, 1) NOT NUL L, | |||||
| 111 | [REGIS TRANT_ID] INT NOT NULL, | |||||
| 112 | [STD_F ORM_ID] INT NOT NULL, | |||||
| 113 | [CREAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 114 | [UPDAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 115 | [CREAT ED] DATETIM E2 (0) NOT NULL, | |||||
| 116 | [UPDAT ED] DATETIM E2 (0) NOT NULL, | |||||
| 117 | [ROW_V ERSION] ROWVERS ION NOT NULL, | |||||
| 118 | CONSTR AINT [PK_F ORM_RESPON SE] PRIMAR Y KEY CLUS TERED ([FO RM_RESPONS E_ID] ASC) ON [AHOBP R] | |||||
| 119 | ); | |||||
| 120 | ||||||
| 121 | ||||||
| 122 | GO | |||||
| 123 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE ].[IX_Form Response_R egistrantI d]...'; | |||||
| 124 | ||||||
| 125 | ||||||
| 126 | GO | |||||
| 127 | CREATE NON CLUSTERED INDEX [IX_ FormRespon se_Registr antId] | |||||
| 128 | ON [AH OBPR].[FOR M_RESPONSE ]([REGISTR ANT_ID] AS C); | |||||
| 129 | ||||||
| 130 | ||||||
| 131 | GO | |||||
| 132 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE ].[IX_Form Response_S tdFormId]. ..'; | |||||
| 133 | ||||||
| 134 | ||||||
| 135 | GO | |||||
| 136 | CREATE NON CLUSTERED INDEX [IX_ FormRespon se_StdForm Id] | |||||
| 137 | ON [AH OBPR].[FOR M_RESPONSE ]([STD_FOR M_ID] ASC) ; | |||||
| 138 | ||||||
| 139 | ||||||
| 140 | GO | |||||
| 141 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _ANSWER].. .'; | |||||
| 142 | ||||||
| 143 | ||||||
| 144 | GO | |||||
| 145 | CREATE TAB LE [AHOBPR ].[FORM_RE SPONSE_ANS WER] ( | |||||
| 146 | [FORM_ RESPONSE_A NSWER_ID] INT IDE NTITY (1, 1) NOT NUL L, | |||||
| 147 | [FORM_ RESPONSE_Q UESTION_ID ] INT NOT NULL, | |||||
| 148 | [STD_F ORM_ANSWER _ID] INT NOT NULL, | |||||
| 149 | [ANSWE R_VALUE] VARCHAR (4000) NUL L, | |||||
| 150 | [CREAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 151 | [UPDAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 152 | [CREAT ED] DATETIME 2 (0) NOT NULL, | |||||
| 153 | [UPDAT ED] DATETIME 2 (0) NOT NULL, | |||||
| 154 | [ROW_V ERSION] ROWVERSI ON NOT NULL, | |||||
| 155 | CONSTR AINT [PK_F ORM_RESPON SE_ANSWER] PRIMARY K EY CLUSTER ED ([FORM_ RESPONSE_A NSWER_ID] ASC) ON [A HOBPR] | |||||
| 156 | ); | |||||
| 157 | ||||||
| 158 | ||||||
| 159 | GO | |||||
| 160 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _ANSWER].[ IX_FormRes ponseAnswe r_FormResp onseDetail Id]...'; | |||||
| 161 | ||||||
| 162 | ||||||
| 163 | GO | |||||
| 164 | CREATE NON CLUSTERED INDEX [IX_ FormRespon seAnswer_F ormRespons eDetailId] | |||||
| 165 | ON [AH OBPR].[FOR M_RESPONSE _ANSWER]([ FORM_RESPO NSE_QUESTI ON_ID] ASC ); | |||||
| 166 | ||||||
| 167 | ||||||
| 168 | GO | |||||
| 169 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _ANSWER].[ IX_FormRes ponseAnswe r_StdFormA nswerId].. .'; | |||||
| 170 | ||||||
| 171 | ||||||
| 172 | GO | |||||
| 173 | CREATE NON CLUSTERED INDEX [IX_ FormRespon seAnswer_S tdFormAnsw erId] | |||||
| 174 | ON [AH OBPR].[FOR M_RESPONSE _ANSWER]([ STD_FORM_A NSWER_ID] ASC); | |||||
| 175 | ||||||
| 176 | ||||||
| 177 | GO | |||||
| 178 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _STATUS].. .'; | |||||
| 179 | ||||||
| 180 | ||||||
| 181 | GO | |||||
| 182 | CREATE TAB LE [AHOBPR ].[FORM_RE SPONSE_STA TUS] ( | |||||
| 183 | [FORM_ RESPONSE_S TATUS_ID] INT I DENTITY (1 , 1) NOT N ULL, | |||||
| 184 | [FORM_ RESPONSE_I D] INT N OT NULL, | |||||
| 185 | [LAST_ SECTION_ID ] INT N ULL, | |||||
| 186 | [LAST_ SUB_SECTIO N_ID] INT N ULL, | |||||
| 187 | [QUEST IONNAIRE_S TARTED_DAT E] DATET IME2 (0) N OT NULL, | |||||
| 188 | [QUEST IONNAIRE_C OMPLETED_D ATE] DATET IME2 (0) N ULL, | |||||
| 189 | [CREAT EDBY] VARCH AR (30) N OT NULL, | |||||
| 190 | [UPDAT EDBY] VARCH AR (30) N OT NULL, | |||||
| 191 | [CREAT ED] DATET IME2 (0) N OT NULL, | |||||
| 192 | [UPDAT ED] DATET IME2 (0) N OT NULL, | |||||
| 193 | [ROW_V ERSION] ROWVE RSION N OT NULL, | |||||
| 194 | CONSTR AINT [PK_F ORM_RESPON SE_STATUS] PRIMARY K EY CLUSTER ED ([FORM_ RESPONSE_S TATUS_ID] ASC) ON [A HOBPR] | |||||
| 195 | ); | |||||
| 196 | ||||||
| 197 | ||||||
| 198 | GO | |||||
| 199 | PRINT N'Cr eating [AH OBPR].[PRO CESS_METRI CS]...'; | |||||
| 200 | ||||||
| 201 | ||||||
| 202 | GO | |||||
| 203 | CREATE TAB LE [AHOBPR ].[PROCESS _METRICS] ( | |||||
| 204 | [PROCE SS_METRICS _ID] INT I DENTITY (1 , 1) NOT N ULL, | |||||
| 205 | [REGIS TRANT_ID] INT N OT NULL, | |||||
| 206 | [STD_P ROCESS_MET RICS_TYPE_ ID] INT N OT NULL, | |||||
| 207 | [PROCE SS_METRICS _VALUE] VARCHA R (1000) N OT NULL, | |||||
| 208 | [CREAT EDBY] VARCHA R (30) N OT NULL, | |||||
| 209 | [UPDAT EDBY] VARCHA R (30) N OT NULL, | |||||
| 210 | [CREAT ED] DATETI ME2 (0) N OT NULL, | |||||
| 211 | [UPDAT ED] DATETI ME2 (0) N OT NULL, | |||||
| 212 | [ROW_V ERSION] ROWVER SION N OT NULL, | |||||
| 213 | CONSTR AINT [PROC ESS_METRIC S_ID_PK] P RIMARY KEY CLUSTERED ([PROCESS _METRICS_I D] ASC) ON [AHOBPR] | |||||
| 214 | ); | |||||
| 215 | ||||||
| 216 | ||||||
| 217 | GO | |||||
| 218 | PRINT N'Cr eating [AH OBPR].[STD _FORM]...' ; | |||||
| 219 | ||||||
| 220 | ||||||
| 221 | GO | |||||
| 222 | CREATE TAB LE [AHOBPR ].[STD_FOR M] ( | |||||
| 223 | [STD_F ORM_ID] IN T IDENTITY (1, 1) NO T NULL, | |||||
| 224 | [NAME] VA RCHAR (256 ) NOT NULL , | |||||
| 225 | [VERSI ON] VA RCHAR (50) NOT NULL , | |||||
| 226 | [TITLE ] VA RCHAR (500 ) NULL, | |||||
| 227 | [OMB] VA RCHAR (500 ) NULL, | |||||
| 228 | [BPR_F ORM_ID] VA RCHAR (50) NULL, | |||||
| 229 | [CREAT EDBY] VA RCHAR (30) NOT NULL , | |||||
| 230 | [UPDAT EDBY] VA RCHAR (30) NOT NULL , | |||||
| 231 | [CREAT ED] DA TETIME2 (0 ) NOT NULL , | |||||
| 232 | [UPDAT ED] DA TETIME2 (0 ) NOT NULL , | |||||
| 233 | [ROW_V ERSION] RO WVERSION NOT NULL , | |||||
| 234 | CONSTR AINT [PK_B PRFORMSCHE MA] PRIMAR Y KEY CLUS TERED ([ST D_FORM_ID] ASC) ON [ AHOBPR], | |||||
| 235 | CONSTR AINT [UK_B PR_FORM_ID ] UNIQUE N ONCLUSTERE D ([BPR_FO RM_ID] ASC ) ON [AHOB PR] | |||||
| 236 | ); | |||||
| 237 | ||||||
| 238 | ||||||
| 239 | GO | |||||
| 240 | PRINT N'Cr eating [AH OBPR].[STD _FORM_ANSW ER]...'; | |||||
| 241 | ||||||
| 242 | ||||||
| 243 | GO | |||||
| 244 | CREATE TAB LE [AHOBPR ].[STD_FOR M_ANSWER] ( | |||||
| 245 | [STD_F ORM_ANSWER _ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 246 | [STD_F ORM_QUESTI ON_ID] INT NOT N ULL, | |||||
| 247 | [STD_F ORM_SUB_SE CTION_ID] INT NOT N ULL, | |||||
| 248 | [STD_F ORM_SECTIO N_ID] INT NOT N ULL, | |||||
| 249 | [STD_F ORM_ID] INT NOT N ULL, | |||||
| 250 | [ORDER ] INT NOT N ULL, | |||||
| 251 | [TEXT] VARCHAR (4 000) NULL, | |||||
| 252 | [EDITA BLE] BIT NOT N ULL, | |||||
| 253 | [HELP] VARCHAR (1 000) NOT N ULL, | |||||
| 254 | [CLINI CAL_RELEVA NT_FLAG] BIT NOT N ULL, | |||||
| 255 | [BRP_F ORM_ANSWER _ID] VARCHAR (1 00) NULL, | |||||
| 256 | [BRP_F ORM_QUESTI ON_ID] VARCHAR (1 00) NULL, | |||||
| 257 | [CREAT EDBY] VARCHAR (3 0) NOT N ULL, | |||||
| 258 | [UPDAT EDBY] VARCHAR (3 0) NOT N ULL, | |||||
| 259 | [CREAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 260 | [UPDAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 261 | [ROW_V ERSION] ROWVERSION NOT N ULL, | |||||
| 262 | CONSTR AINT [PK_S TD_FORM_AN SWER] PRIM ARY KEY CL USTERED ([ STD_FORM_A NSWER_ID] ASC) ON [A HOBPR] | |||||
| 263 | ); | |||||
| 264 | ||||||
| 265 | ||||||
| 266 | GO | |||||
| 267 | PRINT N'Cr eating [AH OBPR].[STD _FORM_ANSW ER_FIELD]. ..'; | |||||
| 268 | ||||||
| 269 | ||||||
| 270 | GO | |||||
| 271 | CREATE TAB LE [AHOBPR ].[STD_FOR M_ANSWER_F IELD] ( | |||||
| 272 | [STD_F ORM_ANSWER _FIELD_ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 273 | [STD_F ORM_ANSWER _ID] INT NOT N ULL, | |||||
| 274 | [LABEL ] VARCHAR ( 500) NOT N ULL, | |||||
| 275 | [MIN] VARCHAR ( 500) NULL, | |||||
| 276 | [MAX] VARCHAR ( 500) NULL, | |||||
| 277 | [CREAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 278 | [UPDAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 279 | [CREAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 280 | [UPDAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 281 | [ROW_V ERSION] ROWVERSIO N NOT N ULL, | |||||
| 282 | CONSTR AINT [PK_S TD_FORM_AN SWER_FIELD ] PRIMARY KEY CLUSTE RED ([STD_ FORM_ANSWE R_FIELD_ID ] ASC) ON [AHOBPR] | |||||
| 283 | ); | |||||
| 284 | ||||||
| 285 | ||||||
| 286 | GO | |||||
| 287 | PRINT N'Cr eating [AH OBPR].[STD _FORM_SECT ION]...'; | |||||
| 288 | ||||||
| 289 | ||||||
| 290 | GO | |||||
| 291 | CREATE TAB LE [AHOBPR ].[STD_FOR M_SECTION] ( | |||||
| 292 | [STD_F ORM_SECTIO N_ID] INT IDENTITY (1, 1) NOT NULL, | |||||
| 293 | [STD_F ORM_ID] INT NOT NULL, | |||||
| 294 | [TITLE ] VARC HAR (255) NULL, | |||||
| 295 | [INTRO DUCTION] VARC HAR (4000) NULL, | |||||
| 296 | [CONCL USION] VARC HAR (4000) NULL, | |||||
| 297 | [DESCR IPTION] VARC HAR (4000) NULL, | |||||
| 298 | [NOTES ] TEXT NULL, | |||||
| 299 | [LINE_ NUMBER] INT NULL, | |||||
| 300 | [BRP_F ORM_SECTIO N_ID] INT NULL, | |||||
| 301 | [MENU_ ITEM_NAME] VARC HAR (100) NULL, | |||||
| 302 | [TOOL_ TIP] VARC HAR (255) NULL, | |||||
| 303 | [CREAT EDBY] VARC HAR (30) NOT NULL, | |||||
| 304 | [UPDAT EDBY] VARC HAR (30) NOT NULL, | |||||
| 305 | [CREAT ED] DATE TIME2 (0) NOT NULL, | |||||
| 306 | [UPDAT ED] DATE TIME2 (0) NOT NULL, | |||||
| 307 | [ROW_V ERSION] ROWV ERSION NOT NULL, | |||||
| 308 | CONSTR AINT [PK_S TD_FORM_SE CTION] PRI MARY KEY C LUSTERED ( [STD_FORM_ SECTION_ID ] ASC) ON [AHOBPR] | |||||
| 309 | ) TEXTIMAG E_ON [AHOB PR]; | |||||
| 310 | ||||||
| 311 | ||||||
| 312 | GO | |||||
| 313 | PRINT N'Cr eating [AH OBPR].[STD _FORM_SUB_ SECTION].. .'; | |||||
| 314 | ||||||
| 315 | ||||||
| 316 | GO | |||||
| 317 | CREATE TAB LE [AHOBPR ].[STD_FOR M_SUB_SECT ION] ( | |||||
| 318 | [STD_F ORM_SUB_SE CTION_ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 319 | [STD_F ORM_SECTIO N_ID] INT NOT N ULL, | |||||
| 320 | [STD_F ORM_ID] INT NOT N ULL, | |||||
| 321 | [TITLE ] VARCHAR (2 55) NULL, | |||||
| 322 | [INTRO DUCTION] VARCHAR (4 000) NULL, | |||||
| 323 | [CONCL USION] VARCHAR (4 000) NULL, | |||||
| 324 | [BRP_F ORM_SUB_SE CTION_ID] INT NULL, | |||||
| 325 | [MENU_ ITEM_NAME] VARCHAR (1 00) NULL, | |||||
| 326 | [TOOL_ TIP] VARCHAR (2 55) NULL, | |||||
| 327 | [CREAT EDBY] VARCHAR (3 0) NOT N ULL, | |||||
| 328 | [UPDAT EDBY] VARCHAR (3 0) NOT N ULL, | |||||
| 329 | [CREAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 330 | [UPDAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 331 | [ROW_V ERSION] ROWVERSION NOT N ULL, | |||||
| 332 | CONSTR AINT [PK_S TD_FORM_SU B_SECTION] PRIMARY K EY CLUSTER ED ([STD_F ORM_SUB_SE CTION_ID] ASC) ON [A HOBPR] | |||||
| 333 | ); | |||||
| 334 | ||||||
| 335 | ||||||
| 336 | GO | |||||
| 337 | PRINT N'Cr eating [AH OBPR].[STD _PROCESS_M ETRICS_TYP E]...'; | |||||
| 338 | ||||||
| 339 | ||||||
| 340 | GO | |||||
| 341 | CREATE TAB LE [AHOBPR ].[STD_PRO CESS_METRI CS_TYPE] ( | |||||
| 342 | [STD_P ROCESS_MET RICS_TYPE_ ID] INT ID ENTITY (1, 1) NOT NU LL, | |||||
| 343 | [PROCE SS_METRICS ] VARCHA R (256) NO T NULL, | |||||
| 344 | [CREAT EDBY] VARCHA R (30) NO T NULL, | |||||
| 345 | [UPDAT EDBY] VARCHA R (30) NO T NULL, | |||||
| 346 | [CREAT ED] DATETI ME2 (0) NO T NULL, | |||||
| 347 | [UPDAT ED] DATETI ME2 (0) NO T NULL, | |||||
| 348 | [ROW_V ERSION] ROWVER SION NO T NULL, | |||||
| 349 | CONSTR AINT [STD_ PROCESS_ME TRICS_TYPE _PK] PRIMA RY KEY CLU STERED ([S TD_PROCESS _METRICS_T YPE_ID] AS C) ON [AHO BPR] | |||||
| 350 | ); | |||||
| 351 | ||||||
| 352 | ||||||
| 353 | GO | |||||
| 354 | PRINT N'Cr eating [AH OBPR].[STD _REGISTRAN T_STATUS]. ..'; | |||||
| 355 | ||||||
| 356 | ||||||
| 357 | GO | |||||
| 358 | CREATE TAB LE [AHOBPR ].[STD_REG ISTRANT_ST ATUS] ( | |||||
| 359 | [STD_R EGISTRANT_ STATUS_ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 360 | [REGIS TRANT_STAT US] VARCHAR ( 100) NOT N ULL, | |||||
| 361 | [ORDIN AL_VALUE] TINYINT NOT N ULL, | |||||
| 362 | [CREAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 363 | [UPDAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 364 | [CREAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 365 | [UPDAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 366 | [ROW_V ERSION] ROWVERSIO N NOT N ULL, | |||||
| 367 | CONSTR AINT [STD_ REGISTRANT _STATUS_PK ] PRIMARY KEY CLUSTE RED ([STD_ REGISTRANT _STATUS_ID ] ASC) ON [AHOBPR] | |||||
| 368 | ); | |||||
| 369 | ||||||
| 370 | ||||||
| 371 | GO | |||||
| 372 | PRINT N'Cr eating [AH OBPR].[STD _REGISTRAN T_STATUS]. [AK_STD_RE GISTRANT_S TATUS]...' ; | |||||
| 373 | ||||||
| 374 | ||||||
| 375 | GO | |||||
| 376 | CREATE UNI QUE NONCLU STERED IND EX [AK_STD _REGISTRAN T_STATUS] | |||||
| 377 | ON [AH OBPR].[STD _REGISTRAN T_STATUS]( [REGISTRAN T_STATUS] ASC); | |||||
| 378 | ||||||
| 379 | ||||||
| 380 | GO | |||||
| 381 | PRINT N'Cr eating [AH OBPR].[STD _REGISTRY_ FLAG]...'; | |||||
| 382 | ||||||
| 383 | ||||||
| 384 | GO | |||||
| 385 | CREATE TAB LE [AHOBPR ].[STD_REG ISTRY_FLAG ] ( | |||||
| 386 | [STD_R EGISTRY_FL AG_ID] INT IDE NTITY (1, 1) NOT NUL L, | |||||
| 387 | [REGIS TRY_FLAG_N AME] VARCHAR (100) NOT NULL, | |||||
| 388 | [REGIS TRY_FLAG_D ESCRIPTION ] VARCHAR (1000) NUL L, | |||||
| 389 | [STD_R EGISTRY_FL AG_TYPE_ID ] INT NOT NULL, | |||||
| 390 | [ACTIV E_FLAG] BIT NOT NULL, | |||||
| 391 | [PREDE FINED] BIT NOT NULL, | |||||
| 392 | [CREAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 393 | [UPDAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 394 | [CREAT ED] DATETIME 2 (0) NOT NULL, | |||||
| 395 | [UPDAT ED] DATETIME 2 (0) NOT NULL, | |||||
| 396 | [ROW_V ERSION] ROWVERSI ON NOT NULL, | |||||
| 397 | CONSTR AINT [PK_S TD_REGISTR Y_FLAG] PR IMARY KEY CLUSTERED ([STD_REGI STRY_FLAG_ ID] ASC) O N [AHOBPR] | |||||
| 398 | ); | |||||
| 399 | ||||||
| 400 | ||||||
| 401 | GO | |||||
| 402 | PRINT N'Cr eating [AH OBPR].[STD _REGISTRY_ FLAG].[AK_ StdRegistr yFlag_Name ]...'; | |||||
| 403 | ||||||
| 404 | ||||||
| 405 | GO | |||||
| 406 | CREATE UNI QUE NONCLU STERED IND EX [AK_Std RegistryFl ag_Name] | |||||
| 407 | ON [AH OBPR].[STD _REGISTRY_ FLAG]([REG ISTRY_FLAG _NAME] ASC ); | |||||
| 408 | ||||||
| 409 | ||||||
| 410 | GO | |||||
| 411 | PRINT N'Cr eating [AH OBPR].[STD _REGISTRY_ FLAG].[IX_ StdRegistr yFlag_StdR egistryFla gType]...' ; | |||||
| 412 | ||||||
| 413 | ||||||
| 414 | GO | |||||
| 415 | CREATE NON CLUSTERED INDEX [IX_ StdRegistr yFlag_StdR egistryFla gType] | |||||
| 416 | ON [AH OBPR].[STD _REGISTRY_ FLAG]([STD _REGISTRY_ FLAG_TYPE_ ID] ASC); | |||||
| 417 | ||||||
| 418 | ||||||
| 419 | GO | |||||
| 420 | PRINT N'Cr eating [AH OBPR].[STD _SERVICE_S TATUS]...' ; | |||||
| 421 | ||||||
| 422 | ||||||
| 423 | GO | |||||
| 424 | CREATE TAB LE [AHOBPR ].[STD_SER VICE_STATU S] ( | |||||
| 425 | [STD_S ERVICE_STA TUS_ID] IN T IDENTITY (1, 1) NO T NULL, | |||||
| 426 | [SERVI CE_STATUS] VA RCHAR (100 ) NOT NULL , | |||||
| 427 | [CREAT EDBY] VA RCHAR (30) NOT NULL , | |||||
| 428 | [UPDAT EDBY] VA RCHAR (30) NOT NULL , | |||||
| 429 | [CREAT ED] DA TETIME2 (0 ) NOT NULL , | |||||
| 430 | [UPDAT ED] DA TETIME2 (0 ) NOT NULL , | |||||
| 431 | [ROW_V ERSION] RO WVERSION NOT NULL , | |||||
| 432 | CONSTR AINT [STD_ SERVICE_ST ATUS_PK] P RIMARY KEY CLUSTERED ([STD_SER VICE_STATU S_ID] ASC) ON [AHOBP R] | |||||
| 433 | ); | |||||
| 434 | ||||||
| 435 | ||||||
| 436 | GO | |||||
| 437 | PRINT N'Cr eating [AH OBPR].[STD _SERVICE_S TATUS].[AK _STD_SERVI CE_STATUS] ...'; | |||||
| 438 | ||||||
| 439 | ||||||
| 440 | GO | |||||
| 441 | CREATE UNI QUE NONCLU STERED IND EX [AK_STD _SERVICE_S TATUS] | |||||
| 442 | ON [AH OBPR].[STD _SERVICE_S TATUS]([SE RVICE_STAT US] ASC); | |||||
| 443 | ||||||
| 444 | ||||||
| 445 | GO | |||||
| 446 | PRINT N'Cr eating [AH OBPR].[STD _REGISTRY_ FLAG_TYPE] ...'; | |||||
| 447 | ||||||
| 448 | ||||||
| 449 | GO | |||||
| 450 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 451 | ||||||
| 452 | ||||||
| 453 | GO | |||||
| 454 | CREATE TAB LE [AHOBPR ].[STD_REG ISTRY_FLAG _TYPE] ( | |||||
| 455 | [STD_R EGISTRY_FL AG_TYPE_ID ] INT IDENTITY (1, 1) NO T NULL, | |||||
| 456 | [REGIS TRY_FLAG_T YPE] VAR CHAR (100) NOT NULL , | |||||
| 457 | [REGIS TRY_FLAG_T YPE_DESCRI PTION] VAR CHAR (1000 ) NULL, | |||||
| 458 | [CREAT EDBY] VAR CHAR (30) NOT NULL , | |||||
| 459 | [UPDAT EDBY] VAR CHAR (30) NOT NULL , | |||||
| 460 | [CREAT ED] DAT ETIME2 (0) NOT NULL , | |||||
| 461 | [UPDAT ED] DAT ETIME2 (0) NOT NULL , | |||||
| 462 | [ROW_V ERSION] ROW VERSION NOT NULL , | |||||
| 463 | [ACTIV E_FLAG] BIT NOT NULL , | |||||
| 464 | CONSTR AINT [PK_S TD_REGISTR Y_FLAG_TYP E] PRIMARY KEY CLUST ERED ([STD _REGISTRY_ FLAG_TYPE_ ID] ASC) O N [AHOBPR] | |||||
| 465 | ); | |||||
| 466 | ||||||
| 467 | ||||||
| 468 | GO | |||||
| 469 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 470 | ||||||
| 471 | ||||||
| 472 | GO | |||||
| 473 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_RE GISTRY_FLA G]...'; | |||||
| 474 | ||||||
| 475 | ||||||
| 476 | GO | |||||
| 477 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_REGIST RY_FLAG] ( | |||||
| 478 | [REGIS TRANT_REGI STRY_FLAG_ ID] INT ID ENTITY (1, 1) NOT NU LL, | |||||
| 479 | [REGIS TRANT_ID] INT NO T NULL, | |||||
| 480 | [STD_R EGISTRY_FL AG_ID] INT NO T NULL, | |||||
| 481 | [CREAT EDBY] VARCHA R (30) NO T NULL, | |||||
| 482 | [UPDAT EDBY] VARCHA R (30) NO T NULL, | |||||
| 483 | [CREAT ED] DATETI ME2 (0) NO T NULL, | |||||
| 484 | [UPDAT ED] DATETI ME2 (0) NO T NULL, | |||||
| 485 | [ROW_V ERSION] ROWVER SION NO T NULL, | |||||
| 486 | CONSTR AINT [PK_R EGISTRANT_ REGISTRY_F LAG] PRIMA RY KEY CLU STERED ([R EGISTRANT_ REGISTRY_F LAG_ID] AS C) ON [AHO BPR] | |||||
| 487 | ); | |||||
| 488 | ||||||
| 489 | ||||||
| 490 | GO | |||||
| 491 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_RE GISTRY_FLA G].[IX_Reg istrantReg istryFlag_ Registrant Id]...'; | |||||
| 492 | ||||||
| 493 | ||||||
| 494 | GO | |||||
| 495 | CREATE NON CLUSTERED INDEX [IX_ Registrant RegistryFl ag_Registr antId] | |||||
| 496 | ON [AH OBPR].[REG ISTRANT_RE GISTRY_FLA G]([REGIST RANT_ID] A SC); | |||||
| 497 | ||||||
| 498 | ||||||
| 499 | GO | |||||
| 500 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_RE GISTRY_FLA G].[IX_Reg istrantReg istryFlag_ StdRegistr yFlagId].. .'; | |||||
| 501 | ||||||
| 502 | ||||||
| 503 | GO | |||||
| 504 | CREATE NON CLUSTERED INDEX [IX_ Registrant RegistryFl ag_StdRegi stryFlagId ] | |||||
| 505 | ON [AH OBPR].[REG ISTRANT_RE GISTRY_FLA G]([STD_RE GISTRY_FLA G_ID] ASC) ; | |||||
| 506 | ||||||
| 507 | ||||||
| 508 | GO | |||||
| 509 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_EM AIL]...'; | |||||
| 510 | ||||||
| 511 | ||||||
| 512 | GO | |||||
| 513 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 514 | ||||||
| 515 | ||||||
| 516 | GO | |||||
| 517 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_EMAIL] ( | |||||
| 518 | [REGIS TRANT_EMAI L_ID] INT IDENTITY ( 1, 1) NOT NULL, | |||||
| 519 | [REGIS TRANT_ID] INT NOT NULL, | |||||
| 520 | [TYPE] VARC HAR (100) NULL, | |||||
| 521 | [EMAIL ] VARC HAR (256) NULL, | |||||
| 522 | [CREAT EDBY] VARC HAR (30) NOT NULL, | |||||
| 523 | [UPDAT EDBY] VARC HAR (30) NOT NULL, | |||||
| 524 | [CREAT ED] DATE TIME2 (0) NOT NULL, | |||||
| 525 | [UPDAT ED] DATE TIME2 (0) NOT NULL, | |||||
| 526 | [ROW_V ERSION] ROWV ERSION NOT NULL, | |||||
| 527 | CONSTR AINT [REGI STRANT_EMA IL_ID_PK] PRIMARY KE Y CLUSTERE D ([REGIST RANT_EMAIL _ID] ASC) ON [AHOBPR ] | |||||
| 528 | ); | |||||
| 529 | ||||||
| 530 | ||||||
| 531 | GO | |||||
| 532 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 533 | ||||||
| 534 | ||||||
| 535 | GO | |||||
| 536 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_EM AIL].[IX_R egistrantE mail_Regis trantConta ctInfoId]. ..'; | |||||
| 537 | ||||||
| 538 | ||||||
| 539 | GO | |||||
| 540 | CREATE NON CLUSTERED INDEX [IX_ Registrant Email_Regi strantCont actInfoId] | |||||
| 541 | ON [AH OBPR].[REG ISTRANT_EM AIL]([REGI STRANT_ID] ASC); | |||||
| 542 | ||||||
| 543 | ||||||
| 544 | GO | |||||
| 545 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_DE PLOYMENT]. ..'; | |||||
| 546 | ||||||
| 547 | ||||||
| 548 | GO | |||||
| 549 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 550 | ||||||
| 551 | ||||||
| 552 | GO | |||||
| 553 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_DEPLOY MENT] ( | |||||
| 554 | [REGIS TRANT_DEPL OYMENT_ID] INT IDE NTITY (1, 1) NOT NUL L, | |||||
| 555 | [REGIS TRANT_ID] INT NOT NULL, | |||||
| 556 | [STD_B RANCH_OF_S ERVICE_ID] INT NUL L, | |||||
| 557 | [DUTY_ PROJECT_CO DE] VARCHAR (100) NUL L, | |||||
| 558 | [STD_S ERVICE_OCC UPATION_ID ] INT NUL L, | |||||
| 559 | [MILIT ARY_RANK] VARCHAR (50) NUL L, | |||||
| 560 | [DEPLO YMENT_UIC] CHAR (6) NUL L, | |||||
| 561 | [DEPLO YMENT_COUN TRY] VARCHAR (100) NUL L, | |||||
| 562 | [DEPLO YMENT_BASE ] VARCHAR (255) NUL L, | |||||
| 563 | [DEPLO YMENT_STAR T_DATE] DATETIME 2 (0) NUL L, | |||||
| 564 | [DEPLO YMENT_END_ DATE] DATETIME 2 (0) NUL L, | |||||
| 565 | [IS_GU LF_WAR_VET ERAN_FLAG] BIT NUL L, | |||||
| 566 | [IS_EL IGIBLE_FLA G] BIT NUL L, | |||||
| 567 | [USER_ ENTERED_FL AG] BIT NUL L, | |||||
| 568 | [USER_ VERIFIED_F LAG] BIT NUL L, | |||||
| 569 | [LAST_ UPDATED_DA TE] DATETIME 2 (0) NUL L, | |||||
| 570 | [PREVI OUS_VALUES ] VARCHAR (4000) NUL L, | |||||
| 571 | [PREVI OUS_UPDATE D_DATE] DATETIME 2 (0) NUL L, | |||||
| 572 | [BPR_D EPLOYMENT_ ID] VARCHAR (50) NUL L, | |||||
| 573 | [STD_C OMPONENT_I D] INT NUL L, | |||||
| 574 | [CREAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 575 | [UPDAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 576 | [CREAT ED] DATETIME 2 (0) NOT NULL, | |||||
| 577 | [UPDAT ED] DATETIME 2 (0) NOT NULL, | |||||
| 578 | [ROW_V ERSION] ROWVERSI ON NOT NULL, | |||||
| 579 | CONSTR AINT [PK_R EGISTRANT_ DEPLOYMENT ] PRIMARY KEY CLUSTE RED ([REGI STRANT_DEP LOYMENT_ID ] ASC) ON [AHOBPR] | |||||
| 580 | ); | |||||
| 581 | ||||||
| 582 | ||||||
| 583 | GO | |||||
| 584 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 585 | ||||||
| 586 | ||||||
| 587 | GO | |||||
| 588 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_DE PLOYMENT]. [IX_Regist rantDeploy mentHistor y_Registry Id]...'; | |||||
| 589 | ||||||
| 590 | ||||||
| 591 | GO | |||||
| 592 | CREATE NON CLUSTERED INDEX [IX_ Registrant Deployment History_Re gistryId] | |||||
| 593 | ON [AH OBPR].[REG ISTRANT_DE PLOYMENT]( [REGISTRAN T_ID] ASC) ; | |||||
| 594 | ||||||
| 595 | ||||||
| 596 | GO | |||||
| 597 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_DE PLOYMENT]. [IX_Regist rantDeploy mentHistor y_StdBranc hOfService Id]...'; | |||||
| 598 | ||||||
| 599 | ||||||
| 600 | GO | |||||
| 601 | CREATE NON CLUSTERED INDEX [IX_ Registrant Deployment History_St dBranchOfS erviceId] | |||||
| 602 | ON [AH OBPR].[REG ISTRANT_DE PLOYMENT]( [STD_BRANC H_OF_SERVI CE_ID] ASC ); | |||||
| 603 | ||||||
| 604 | ||||||
| 605 | GO | |||||
| 606 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_CO NTACT_INFO ]...'; | |||||
| 607 | ||||||
| 608 | ||||||
| 609 | GO | |||||
| 610 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 611 | ||||||
| 612 | ||||||
| 613 | GO | |||||
| 614 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_CONTAC T_INFO] ( | |||||
| 615 | [REGIS TRANT_ID] IN T NOT NULL , | |||||
| 616 | [FIRST _NAME_CONF IRMED] VA RCHAR (50) NULL, | |||||
| 617 | [MIDDL E_NAME_CON FIRMED] VA RCHAR (50) NULL, | |||||
| 618 | [LAST_ NAME_CONFI RMED] VA RCHAR (50) NULL, | |||||
| 619 | [LAST_ UPDATED_DA TE] DA TETIME2 (0 ) NULL, | |||||
| 620 | [PREVI OUS_VALUES ] VA RCHAR (MAX ) NULL, | |||||
| 621 | [PREVI OUS_UPDATE D_DATE] DA TETIME2 (0 ) NULL, | |||||
| 622 | [CREAT EDBY] VA RCHAR (30) NOT NULL , | |||||
| 623 | [UPDAT EDBY] VA RCHAR (30) NOT NULL , | |||||
| 624 | [CREAT ED] DA TETIME2 (0 ) NOT NULL , | |||||
| 625 | [UPDAT ED] DA TETIME2 (0 ) NOT NULL , | |||||
| 626 | [ROW_V ERSION] RO WVERSION NOT NULL , | |||||
| 627 | CONSTR AINT [PK_R EGISTRANT_ CONTACT_IN FO_ID] PRI MARY KEY C LUSTERED ( [REGISTRAN T_ID] ASC) ON [AHOBP R] | |||||
| 628 | ); | |||||
| 629 | ||||||
| 630 | ||||||
| 631 | GO | |||||
| 632 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 633 | ||||||
| 634 | ||||||
| 635 | GO | |||||
| 636 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_CO NTACT_INFO ].[IX_Regi strantCont actInfo_Re gistrantIn foId]...'; | |||||
| 637 | ||||||
| 638 | ||||||
| 639 | GO | |||||
| 640 | CREATE NON CLUSTERED INDEX [IX_ Registrant ContactInf o_Registra ntInfoId] | |||||
| 641 | ON [AH OBPR].[REG ISTRANT_CO NTACT_INFO ]([REGISTR ANT_ID] AS C); | |||||
| 642 | ||||||
| 643 | ||||||
| 644 | GO | |||||
| 645 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_AD DRESS]...' ; | |||||
| 646 | ||||||
| 647 | ||||||
| 648 | GO | |||||
| 649 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 650 | ||||||
| 651 | ||||||
| 652 | GO | |||||
| 653 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_ADDRES S] ( | |||||
| 654 | [REGIS TRANT_ADDR ESS_ID] IN T IDENTITY (1, 1) NO T NULL, | |||||
| 655 | [REGIS TRANT_ID] IN T NOT NULL , | |||||
| 656 | [TYPE] VA RCHAR (100 ) NULL, | |||||
| 657 | [STREE T1] VA RCHAR (256 ) NULL, | |||||
| 658 | [STREE T2] VA RCHAR (256 ) NULL, | |||||
| 659 | [CITY] VA RCHAR (100 ) NULL, | |||||
| 660 | [STATE ] VA RCHAR (100 ) NULL, | |||||
| 661 | [ZIP] VA RCHAR (15) NULL, | |||||
| 662 | [COUNT RY] VA RCHAR (100 ) NULL, | |||||
| 663 | [CREAT EDBY] VA RCHAR (30) NOT NULL , | |||||
| 664 | [UPDAT EDBY] VA RCHAR (30) NOT NULL , | |||||
| 665 | [CREAT ED] DA TETIME2 (0 ) NOT NULL , | |||||
| 666 | [UPDAT ED] DA TETIME2 (0 ) NOT NULL , | |||||
| 667 | [ROW_V ERSION] RO WVERSION NOT NULL , | |||||
| 668 | CONSTR AINT [REGI STRANT_ADD RESS_ID_PK ] PRIMARY KEY CLUSTE RED ([REGI STRANT_ADD RESS_ID] A SC) ON [AH OBPR] | |||||
| 669 | ); | |||||
| 670 | ||||||
| 671 | ||||||
| 672 | GO | |||||
| 673 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 674 | ||||||
| 675 | ||||||
| 676 | GO | |||||
| 677 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_AD DRESS].[IX _Registran tAddress_R egistrantC ontactInfo Id]...'; | |||||
| 678 | ||||||
| 679 | ||||||
| 680 | GO | |||||
| 681 | CREATE NON CLUSTERED INDEX [IX_ Registrant Address_Re gistrantCo ntactInfoI d] | |||||
| 682 | ON [AH OBPR].[REG ISTRANT_AD DRESS]([RE GISTRANT_I D] ASC); | |||||
| 683 | ||||||
| 684 | ||||||
| 685 | GO | |||||
| 686 | PRINT N'Cr eating [AH OBPR].[STD _HEALTH_FA CTOR_CATEG ORY]...'; | |||||
| 687 | ||||||
| 688 | ||||||
| 689 | GO | |||||
| 690 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 691 | ||||||
| 692 | ||||||
| 693 | GO | |||||
| 694 | CREATE TAB LE [AHOBPR ].[STD_HEA LTH_FACTOR _CATEGORY] ( | |||||
| 695 | [STD_H EALTH_FACT OR_CATEGOR Y_ID] TINY INT IDENTITY (1, 1) NOT NULL, | |||||
| 696 | [NAME] VARC HAR (50) NOT NULL, | |||||
| 697 | [DESCR IPTION] VARC HAR (4000) NULL, | |||||
| 698 | [ACTIV E_FLAG] BIT NOT NULL, | |||||
| 699 | [CREAT EDBY] VARC HAR (30) NOT NULL, | |||||
| 700 | [UPDAT EDBY] VARC HAR (30) NOT NULL, | |||||
| 701 | [CREAT ED] DATE TIME2 (0) NOT NULL, | |||||
| 702 | [UPDAT ED] DATE TIME2 (0) NOT NULL, | |||||
| 703 | [ROW_V ERSION] ROWV ERSION NOT NULL, | |||||
| 704 | [TOOLT IP] VARC HAR (200) NULL, | |||||
| 705 | CONSTR AINT [PK_S TD_HEALTH_ FACTOR_CAT EGORY] PRI MARY KEY C LUSTERED ( [STD_HEALT H_FACTOR_C ATEGORY_ID ] ASC) | |||||
| 706 | ); | |||||
| 707 | ||||||
| 708 | ||||||
| 709 | GO | |||||
| 710 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 711 | ||||||
| 712 | ||||||
| 713 | GO | |||||
| 714 | PRINT N'Cr eating [AH OBPR].[STD _HEALTH_FA CTOR_CATEG ORY].[AK_S TD_HEALTH_ FACTOR_CAT EGORY]...' ; | |||||
| 715 | ||||||
| 716 | ||||||
| 717 | GO | |||||
| 718 | CREATE UNI QUE NONCLU STERED IND EX [AK_STD _HEALTH_FA CTOR_CATEG ORY] | |||||
| 719 | ON [AH OBPR].[STD _HEALTH_FA CTOR_CATEG ORY]([NAME ] ASC); | |||||
| 720 | ||||||
| 721 | ||||||
| 722 | GO | |||||
| 723 | PRINT N'Cr eating [AH OBPR].[STD _HEALTH_FA CTOR]...'; | |||||
| 724 | ||||||
| 725 | ||||||
| 726 | GO | |||||
| 727 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 728 | ||||||
| 729 | ||||||
| 730 | GO | |||||
| 731 | CREATE TAB LE [AHOBPR ].[STD_HEA LTH_FACTOR ] ( | |||||
| 732 | [STD_H EALTH_FACT OR_ID] SMAL LINT IDENTITY (1, 1) NOT NULL, | |||||
| 733 | [NAME] VARC HAR (50) NOT NULL, | |||||
| 734 | [DESCR IPTION] VARC HAR (4000) NULL, | |||||
| 735 | [STD_H EALTH_FACT OR_CATEGOR Y_ID] TINY INT NULL, | |||||
| 736 | [ACTIV E_FLAG] BIT NOT NULL, | |||||
| 737 | [CREAT EDBY] VARC HAR (30) NOT NULL, | |||||
| 738 | [UPDAT EDBY] VARC HAR (30) NOT NULL, | |||||
| 739 | [CREAT ED] DATE TIME2 (0) NOT NULL, | |||||
| 740 | [UPDAT ED] DATE TIME2 (0) NOT NULL, | |||||
| 741 | [ROW_V ERSION] ROWV ERSION NOT NULL, | |||||
| 742 | [SORT_ ORDER] INT NULL, | |||||
| 743 | CONSTR AINT [PK_S TD_HEALTH_ FACTOR] PR IMARY KEY CLUSTERED ([STD_HEAL TH_FACTOR_ ID] ASC) | |||||
| 744 | ); | |||||
| 745 | ||||||
| 746 | ||||||
| 747 | GO | |||||
| 748 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 749 | ||||||
| 750 | ||||||
| 751 | GO | |||||
| 752 | PRINT N'Cr eating [AH OBPR].[STD _HEALTH_FA CTOR].[AK_ StdHealthF actor_Name ]...'; | |||||
| 753 | ||||||
| 754 | ||||||
| 755 | GO | |||||
| 756 | CREATE UNI QUE NONCLU STERED IND EX [AK_Std HealthFact or_Name] | |||||
| 757 | ON [AH OBPR].[STD _HEALTH_FA CTOR]([NAM E] ASC); | |||||
| 758 | ||||||
| 759 | ||||||
| 760 | GO | |||||
| 761 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_HE ALTH_FACTO R]...'; | |||||
| 762 | ||||||
| 763 | ||||||
| 764 | GO | |||||
| 765 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 766 | ||||||
| 767 | ||||||
| 768 | GO | |||||
| 769 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_HEALTH _FACTOR] ( | |||||
| 770 | [REGIS TRANT_HEAL TH_FACTOR_ ID] INT ID ENTITY (1, 1) NOT NU LL, | |||||
| 771 | [REGIS TRANT_VISI T_ID] INT NU LL, | |||||
| 772 | [STD_H EALTH_FACT OR_ID] SMALLI NT NU LL, | |||||
| 773 | [ACTIV E_FLAG] BIT NO T NULL, | |||||
| 774 | [COMME NTS] VARCHA R (255) NU LL, | |||||
| 775 | [HEALT H_FACTOR_T EXT] VARCHA R (40) NU LL, | |||||
| 776 | [CREAT EDBY] VARCHA R (30) NO T NULL, | |||||
| 777 | [UPDAT EDBY] VARCHA R (30) NO T NULL, | |||||
| 778 | [CREAT ED] DATETI ME2 (0) NO T NULL, | |||||
| 779 | [UPDAT ED] DATETI ME2 (0) NO T NULL, | |||||
| 780 | [ROW_V ERSION] ROWVER SION NO T NULL, | |||||
| 781 | CONSTR AINT [PK_R EGISTRANT_ HEALTH_FAC TOR] PRIMA RY KEY CLU STERED ([R EGISTRANT_ HEALTH_FAC TOR_ID] AS C) | |||||
| 782 | ); | |||||
| 783 | ||||||
| 784 | ||||||
| 785 | GO | |||||
| 786 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 787 | ||||||
| 788 | ||||||
| 789 | GO | |||||
| 790 | PRINT N'Cr eating [AH OBPR].[REP ORT_SEARCH _CRITERIA] ...'; | |||||
| 791 | ||||||
| 792 | ||||||
| 793 | GO | |||||
| 794 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 795 | ||||||
| 796 | ||||||
| 797 | GO | |||||
| 798 | CREATE TAB LE [AHOBPR ].[REPORT_ SEARCH_CRI TERIA] ( | |||||
| 799 | [REPOR T_SEARCH_C RITERIA_ID ] INT I DENTITY (1 , 1) NOT N ULL, | |||||
| 800 | [REPOR T_NAME] VARCHA R (100) N OT NULL, | |||||
| 801 | [SEARC H_CRITERIA _NAME] VARCHA R (256) N OT NULL, | |||||
| 802 | [SEARC H_CRITERIA ] VARCHA R (4000) N OT NULL, | |||||
| 803 | [SEARC H_CRITERIA _DESCRIPTI ON] VARCHA R (4000) N OT NULL, | |||||
| 804 | [CREAT EDBY] VARCHA R (30) N OT NULL, | |||||
| 805 | [UPDAT EDBY] VARCHA R (30) N OT NULL, | |||||
| 806 | [CREAT ED] DATETI ME2 (0) N OT NULL, | |||||
| 807 | [UPDAT ED] DATETI ME2 (0) N OT NULL, | |||||
| 808 | [ROW_V ERSION] ROWVER SION N OT NULL, | |||||
| 809 | CONSTR AINT [REPO RT_SEARCH_ CRITERIA_P K] PRIMARY KEY CLUST ERED ([REP ORT_SEARCH _CRITERIA_ ID] ASC) O N [AHOBPR] | |||||
| 810 | ); | |||||
| 811 | ||||||
| 812 | ||||||
| 813 | GO | |||||
| 814 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 815 | ||||||
| 816 | ||||||
| 817 | GO | |||||
| 818 | PRINT N'Cr eating [AH OBPR].[ERR OR_LOG]... '; | |||||
| 819 | ||||||
| 820 | ||||||
| 821 | GO | |||||
| 822 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 823 | ||||||
| 824 | ||||||
| 825 | GO | |||||
| 826 | CREATE TAB LE [AHOBPR ].[ERROR_L OG] ( | |||||
| 827 | [ERROR _LOG_ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 828 | [COMPO NENT_TYPE] VARCHAR ( 100) NOT N ULL, | |||||
| 829 | [ERROR _TYPE] VARCHAR ( 100) NOT N ULL, | |||||
| 830 | [ERROR _SOURCE] VARCHAR ( 200) NOT N ULL, | |||||
| 831 | [ERROR _MESSAGE] VARCHAR ( MAX) NOT N ULL, | |||||
| 832 | [CREAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 833 | [UPDAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 834 | [CREAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 835 | [UPDAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 836 | [ROW_V ERSION] ROWVERSIO N NOT N ULL, | |||||
| 837 | CONSTR AINT [ERRO R_LOG_PK] PRIMARY KE Y CLUSTERE D ([ERROR_ LOG_ID] AS C) ON [AHO BPR] | |||||
| 838 | ) ON [AHOB PR] TEXTIM AGE_ON [AH OBPR]; | |||||
| 839 | ||||||
| 840 | ||||||
| 841 | GO | |||||
| 842 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 843 | ||||||
| 844 | ||||||
| 845 | GO | |||||
| 846 | PRINT N'Cr eating [AH OBPR].[STD _DEPLOYMEN T_LOCATION ]...'; | |||||
| 847 | ||||||
| 848 | ||||||
| 849 | GO | |||||
| 850 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 851 | ||||||
| 852 | ||||||
| 853 | GO | |||||
| 854 | CREATE TAB LE [AHOBPR ].[STD_DEP LOYMENT_LO CATION] ( | |||||
| 855 | [STD_D EPLOYMENT_ LOCATION_I D] INT IDE NTITY (1, 1) NOT NUL L, | |||||
| 856 | [BASE] VARCHAR (100) NUL L, | |||||
| 857 | [COUNT RY] VARCHAR (200) NUL L, | |||||
| 858 | [OTHER _NAMES] VARCHAR (200) NUL L, | |||||
| 859 | [NAMES ] VARCHAR (100) NUL L, | |||||
| 860 | [PROVI NCE] VARCHAR (200) NUL L, | |||||
| 861 | [USER_ ADDED_FLAG ] BIT NOT NULL, | |||||
| 862 | [CREAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 863 | [UPDAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 864 | [CREAT ED] DATETIM E2 (0) NOT NULL, | |||||
| 865 | [UPDAT ED] DATETIM E2 (0) NOT NULL, | |||||
| 866 | [ROW_V ERSION] ROWVERS ION NOT NULL, | |||||
| 867 | CONSTR AINT [STD_ DEPLOYMENT _LOCATION_ PK] PRIMAR Y KEY CLUS TERED ([ST D_DEPLOYME NT_LOCATIO N_ID] ASC) ON [AHOBP R] | |||||
| 868 | ); | |||||
| 869 | ||||||
| 870 | ||||||
| 871 | GO | |||||
| 872 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 873 | ||||||
| 874 | ||||||
| 875 | GO | |||||
| 876 | PRINT N'Cr eating [AH OBPR].[STD _BRANCH_OF _SERVICE]. ..'; | |||||
| 877 | ||||||
| 878 | ||||||
| 879 | GO | |||||
| 880 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 881 | ||||||
| 882 | ||||||
| 883 | GO | |||||
| 884 | CREATE TAB LE [AHOBPR ].[STD_BRA NCH_OF_SER VICE] ( | |||||
| 885 | [STD_B RANCH_OF_S ERVICE_ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 886 | [BRANC H_OF_SERVI CE] VARCHAR ( 100) NOT N ULL, | |||||
| 887 | [CREAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 888 | [UPDAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 889 | [CREAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 890 | [UPDAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 891 | [ROW_V ERSION] ROWVERSIO N NOT N ULL, | |||||
| 892 | CONSTR AINT [STD_ BRANCH_OF_ SERVICE_PK ] PRIMARY KEY CLUSTE RED ([STD_ BRANCH_OF_ SERVICE_ID ] ASC) ON [AHOBPR] | |||||
| 893 | ); | |||||
| 894 | ||||||
| 895 | ||||||
| 896 | GO | |||||
| 897 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 898 | ||||||
| 899 | ||||||
| 900 | GO | |||||
| 901 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_SE RVICE_EPIS ODE]...'; | |||||
| 902 | ||||||
| 903 | ||||||
| 904 | GO | |||||
| 905 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 906 | ||||||
| 907 | ||||||
| 908 | GO | |||||
| 909 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_SERVIC E_EPISODE] ( | |||||
| 910 | [REGIS TRANT_SERV ICE_EPISOD E_ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 911 | [REGIS TRANT_ID] INT NOT N ULL, | |||||
| 912 | [STD_B RANCH_OF_S ERVICE_ID] INT NULL, | |||||
| 913 | [BRANC H_OF_SERVI CE_TEXT] VARCHAR ( 255) NULL, | |||||
| 914 | [SERVI CE_EPISODE _START_DAT E] DATE NULL, | |||||
| 915 | [SERVI CE_EPISODE _END_DATE] DATE NULL, | |||||
| 916 | [SERVI CE_EPISODE _TERMINATI ON_REASON] VARCHAR ( 500) NULL, | |||||
| 917 | [ACTIV ATION_END_ DATE] DATE NULL, | |||||
| 918 | [CREAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 919 | [UPDAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 920 | [CREAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 921 | [UPDAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 922 | [ROW_V ERSION] ROWVERSIO N NOT N ULL, | |||||
| 923 | CONSTR AINT [PK_R EGISTRANT_ SERVICE_EP ISODE] PRI MARY KEY C LUSTERED ( [REGISTRAN T_SERVICE_ EPISODE_ID ] ASC) ON [AHOBPR] | |||||
| 924 | ); | |||||
| 925 | ||||||
| 926 | ||||||
| 927 | GO | |||||
| 928 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 929 | ||||||
| 930 | ||||||
| 931 | GO | |||||
| 932 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_RE CORD_INFO] ...'; | |||||
| 933 | ||||||
| 934 | ||||||
| 935 | GO | |||||
| 936 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 937 | ||||||
| 938 | ||||||
| 939 | GO | |||||
| 940 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_RECORD _INFO] ( | |||||
| 941 | [REGIS TRANT_ID] INT NOT NULL, | |||||
| 942 | [EULA_ ACCEPTED_D ATE] DATETIM E2 (0) NUL L, | |||||
| 943 | [EDIPI _VERIFIED_ DATE] DATETIM E2 (0) NUL L, | |||||
| 944 | [EDIPI _MISMATCHE D_FLAG] BIT NUL L, | |||||
| 945 | [CONTA CT_INFO_VE RIFIED_DAT E] DATETIM E2 (0) NUL L, | |||||
| 946 | [CREAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 947 | [UPDAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 948 | [CREAT ED] DATETIM E2 (0) NOT NULL, | |||||
| 949 | [UPDAT ED] DATETIM E2 (0) NOT NULL, | |||||
| 950 | [ROW_V ERSION] ROWVERS ION NOT NULL, | |||||
| 951 | CONSTR AINT [REGI STRANT_INF O_ID_PK] P RIMARY KEY CLUSTERED ([REGISTR ANT_ID] AS C) ON [AHO BPR] | |||||
| 952 | ); | |||||
| 953 | ||||||
| 954 | ||||||
| 955 | GO | |||||
| 956 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 957 | ||||||
| 958 | ||||||
| 959 | GO | |||||
| 960 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_RE CORD_INFO] .[IX_Regis trantInfo_ Registrant Id]...'; | |||||
| 961 | ||||||
| 962 | ||||||
| 963 | GO | |||||
| 964 | CREATE NON CLUSTERED INDEX [IX_ Registrant Info_Regis trantId] | |||||
| 965 | ON [AH OBPR].[REG ISTRANT_RE CORD_INFO] ([REGISTRA NT_ID] ASC ); | |||||
| 966 | ||||||
| 967 | ||||||
| 968 | GO | |||||
| 969 | PRINT N'Cr eating [AH OBPR].[STD _TERM_ANSW ER]...'; | |||||
| 970 | ||||||
| 971 | ||||||
| 972 | GO | |||||
| 973 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 974 | ||||||
| 975 | ||||||
| 976 | GO | |||||
| 977 | CREATE TAB LE [AHOBPR ].[STD_TER M_ANSWER] ( | |||||
| 978 | [STD_T ERM_ANSWER _ID] INT I DENTITY (1 , 1) NOT N ULL, | |||||
| 979 | [STD_T ERM_ID] INT N ULL, | |||||
| 980 | [STD_F ORM_ANSWER _ID] INT N ULL, | |||||
| 981 | [CREAT EDBY] VARCH AR (30) N OT NULL, | |||||
| 982 | [UPDAT EDBY] VARCH AR (30) N OT NULL, | |||||
| 983 | [CREAT ED] DATET IME2 (0) N OT NULL, | |||||
| 984 | [UPDAT ED] DATET IME2 (0) N OT NULL, | |||||
| 985 | [ROW_V ERSION] TIMES TAMP N OT NULL, | |||||
| 986 | CONSTR AINT [PK_S TD_TERM_AN SWER] PRIM ARY KEY CL USTERED ([ STD_TERM_A NSWER_ID] ASC) ON [A HOBPR] | |||||
| 987 | ) ON [AHOB PR]; | |||||
| 988 | ||||||
| 989 | ||||||
| 990 | GO | |||||
| 991 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 992 | ||||||
| 993 | ||||||
| 994 | GO | |||||
| 995 | PRINT N'Cr eating [AH OBPR].[EMA IL_TEMPLAT ES]...'; | |||||
| 996 | ||||||
| 997 | ||||||
| 998 | GO | |||||
| 999 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1000 | ||||||
| 1001 | ||||||
| 1002 | GO | |||||
| 1003 | CREATE TAB LE [AHOBPR ].[EMAIL_T EMPLATES] ( | |||||
| 1004 | [TEMPL ATE_ID] IN T IDENTIT Y (1, 1) N OT NULL, | |||||
| 1005 | [TITLE ] VA RCHAR (255 ) NOT NUL L, | |||||
| 1006 | [SUBJE CT] VA RCHAR (255 ) NOT NUL L, | |||||
| 1007 | [BODY] VA RCHAR (200 0) NOT NUL L, | |||||
| 1008 | [ACTIV E] BI T NOT NUL L, | |||||
| 1009 | [CREAT EDBY] VA RCHAR (30) NOT NUL L, | |||||
| 1010 | [UPDAT EDBY] VA RCHAR (30) NOT NUL L, | |||||
| 1011 | [CREAT ED] DA TETIME2 (0 ) NOT NUL L, | |||||
| 1012 | [UPDAT ED] DA TETIME2 (0 ) NOT NUL L, | |||||
| 1013 | [ROW_V ERSION] TI MESTAMP NOT NUL L, | |||||
| 1014 | CONSTR AINT [PK_E MAIL_TEMPL ATES] PRIM ARY KEY CL USTERED ([ TEMPLATE_I D] ASC) ON [AHOBPR] | |||||
| 1015 | ) ON [AHOB PR]; | |||||
| 1016 | ||||||
| 1017 | ||||||
| 1018 | GO | |||||
| 1019 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1020 | ||||||
| 1021 | ||||||
| 1022 | GO | |||||
| 1023 | PRINT N'Cr eating [AH OBPR].[EMA IL_LOG]... '; | |||||
| 1024 | ||||||
| 1025 | ||||||
| 1026 | GO | |||||
| 1027 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1028 | ||||||
| 1029 | ||||||
| 1030 | GO | |||||
| 1031 | CREATE TAB LE [AHOBPR ].[EMAIL_L OG] ( | |||||
| 1032 | [EMAIL _ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 1033 | [TEMPL ATE_ID] INT NOT N ULL, | |||||
| 1034 | [REGIS TRANT_ID] INT NOT N ULL, | |||||
| 1035 | [USER_ ID] INT NULL, | |||||
| 1036 | [EMAIL _SENT] DATETIME2 (0) NULL, | |||||
| 1037 | [EMAIL _TO] VARCHAR (2 55) NULL, | |||||
| 1038 | [EMAIL _CC] VARCHAR (2 55) NULL, | |||||
| 1039 | [EMAIL _BCC] VARCHAR (2 55) NULL, | |||||
| 1040 | [SUBJE CT] VARCHAR (2 55) NULL, | |||||
| 1041 | [BODY] VARCHAR (2 000) NULL, | |||||
| 1042 | [FAILE D] VARCHAR (M AX) NULL, | |||||
| 1043 | [CREAT EDBY] VARCHAR (3 0) NOT N ULL, | |||||
| 1044 | [UPDAT EDBY] VARCHAR (3 0) NOT N ULL, | |||||
| 1045 | [CREAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 1046 | [UPDAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 1047 | [ROW_V ERSION] ROWVERSION NOT N ULL, | |||||
| 1048 | CONSTR AINT [PK_E MAIL_LOG] PRIMARY KE Y CLUSTERE D ([EMAIL_ ID] ASC) O N [AHOBPR] | |||||
| 1049 | ) ON [AHOB PR]; | |||||
| 1050 | ||||||
| 1051 | ||||||
| 1052 | GO | |||||
| 1053 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1054 | ||||||
| 1055 | ||||||
| 1056 | GO | |||||
| 1057 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _ANSWER_H] ...'; | |||||
| 1058 | ||||||
| 1059 | ||||||
| 1060 | GO | |||||
| 1061 | CREATE TAB LE [AHOBPR ].[FORM_RE SPONSE_ANS WER_H] ( | |||||
| 1062 | [Audit _FORM_RESP ONSE_ANSWE R_H_ID] IN T IDENTIT Y (1, 1) N OT NULL, | |||||
| 1063 | [Audit _Date] DA TETIME NOT NUL L, | |||||
| 1064 | [Audit _Type] VA RCHAR (20) NOT NUL L, | |||||
| 1065 | [Audit _Applicati onUser] VA RCHAR (128 ) NULL, | |||||
| 1066 | [Audit _SQLUser] VA RCHAR (100 ) NULL, | |||||
| 1067 | [FORM_ RESPONSE_A NSWER_ID] IN T NULL, | |||||
| 1068 | [FORM_ RESPONSE_Q UESTION_ID ] IN T NULL, | |||||
| 1069 | [STD_F ORM_ANSWER _ID] IN T NULL, | |||||
| 1070 | [ANSWE R_VALUE] VA RCHAR (400 0) NULL, | |||||
| 1071 | [CREAT EDBY] VA RCHAR (30) NULL, | |||||
| 1072 | [UPDAT EDBY] VA RCHAR (30) NULL, | |||||
| 1073 | [CREAT ED] DA TETIME2 (7 ) NULL, | |||||
| 1074 | [UPDAT ED] DA TETIME2 (7 ) NULL, | |||||
| 1075 | CONSTR AINT [FORM _RESPONSE_ ANSWER_H_P K] PRIMARY KEY CLUST ERED ([Aud it_FORM_RE SPONSE_ANS WER_H_ID] ASC) | |||||
| 1076 | ); | |||||
| 1077 | ||||||
| 1078 | ||||||
| 1079 | GO | |||||
| 1080 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _H]...'; | |||||
| 1081 | ||||||
| 1082 | ||||||
| 1083 | GO | |||||
| 1084 | CREATE TAB LE [AHOBPR ].[FORM_RE SPONSE_H] ( | |||||
| 1085 | [Audit _FORM_RESP ONSE_H_ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 1086 | [Audit _Date] DATETIME NOT N ULL, | |||||
| 1087 | [Audit _Type] VARCHAR ( 20) NOT N ULL, | |||||
| 1088 | [Audit _Applicati onUser] VARCHAR ( 128) NULL, | |||||
| 1089 | [Audit _SQLUser] VARCHAR ( 100) NULL, | |||||
| 1090 | [FORM_ RESPONSE_I D] INT NULL, | |||||
| 1091 | [REGIS TRANT_ID] INT NULL, | |||||
| 1092 | [STD_F ORM_ID] INT NULL, | |||||
| 1093 | [CREAT EDBY] VARCHAR ( 30) NULL, | |||||
| 1094 | [UPDAT EDBY] VARCHAR ( 30) NULL, | |||||
| 1095 | [CREAT ED] DATETIME2 (7) NULL, | |||||
| 1096 | [UPDAT ED] DATETIME2 (7) NULL, | |||||
| 1097 | CONSTR AINT [FORM _RESPONSE_ H_PK] PRIM ARY KEY CL USTERED ([ Audit_FORM _RESPONSE_ H_ID] ASC) | |||||
| 1098 | ) ON [AHOB PR]; | |||||
| 1099 | ||||||
| 1100 | ||||||
| 1101 | GO | |||||
| 1102 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _QUESTION_ H]...'; | |||||
| 1103 | ||||||
| 1104 | ||||||
| 1105 | GO | |||||
| 1106 | CREATE TAB LE [AHOBPR ].[FORM_RE SPONSE_QUE STION_H] ( | |||||
| 1107 | [Audit _FORM_RESP ONSE_QUEST ION_H_ID] INT IDENTI TY (1, 1) NOT NULL, | |||||
| 1108 | [Audit _Date] DATETIME NOT NU LL, | |||||
| 1109 | [Audit _Type] VARCHAR (2 0) NOT NU LL, | |||||
| 1110 | [Audit _Applicati onUser] VARCHAR (1 28) NULL, | |||||
| 1111 | [Audit _SQLUser] VARCHAR (1 00) NULL, | |||||
| 1112 | [FORM_ RESPONSE_Q UESTION_ID ] INT NULL, | |||||
| 1113 | [FORM_ RESPONSE_I D] INT NULL, | |||||
| 1114 | [STD_F ORM_QUESTI ON_ID] INT NULL, | |||||
| 1115 | [REGIS TRANT_DEPL OYMENT_ID] INT NULL, | |||||
| 1116 | [START ED_DATE] DATETIME2 (7) NULL, | |||||
| 1117 | [COMPL ETED_DATE] DATETIME2 (7) NULL, | |||||
| 1118 | [CREAT EDBY] VARCHAR (3 0) NULL, | |||||
| 1119 | [UPDAT EDBY] VARCHAR (3 0) NULL, | |||||
| 1120 | [CREAT ED] DATETIME2 (7) NULL, | |||||
| 1121 | [UPDAT ED] DATETIME2 (7) NULL, | |||||
| 1122 | CONSTR AINT [FORM _RESPONSE_ QUESTION_H _PK] PRIMA RY KEY CLU STERED ([A udit_FORM_ RESPONSE_Q UESTION_H_ ID] ASC) | |||||
| 1123 | ); | |||||
| 1124 | ||||||
| 1125 | ||||||
| 1126 | GO | |||||
| 1127 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _STATUS_H] ...'; | |||||
| 1128 | ||||||
| 1129 | ||||||
| 1130 | GO | |||||
| 1131 | CREATE TAB LE [AHOBPR ].[FORM_RE SPONSE_STA TUS_H] ( | |||||
| 1132 | [Audit _FORM_RESP ONSE_STATU S_H_ID] IN T IDENTITY (1, 1) NO T NULL, | |||||
| 1133 | [Audit _Date] DA TETIME NOT NULL , | |||||
| 1134 | [Audit _Type] VA RCHAR (20) NOT NULL , | |||||
| 1135 | [Audit _Applicati onUser] VA RCHAR (128 ) NULL, | |||||
| 1136 | [Audit _SQLUser] VA RCHAR (100 ) NULL, | |||||
| 1137 | [FORM_ RESPONSE_S TATUS_ID] IN T NULL, | |||||
| 1138 | [FORM_ RESPONSE_I D] IN T NULL, | |||||
| 1139 | [LAST_ SECTION_ID ] IN T NULL, | |||||
| 1140 | [LAST_ SUB_SECTIO N_ID] IN T NULL, | |||||
| 1141 | [QUEST IONNAIRE_S TARTED_DAT E] DA TETIME2 (7 ) NULL, | |||||
| 1142 | [QUEST IONNAIRE_C OMPLETED_D ATE] DA TETIME2 (7 ) NULL, | |||||
| 1143 | [CREAT EDBY] VA RCHAR (30) NULL, | |||||
| 1144 | [UPDAT EDBY] VA RCHAR (30) NULL, | |||||
| 1145 | [CREAT ED] DA TETIME2 (7 ) NULL, | |||||
| 1146 | [UPDAT ED] DA TETIME2 (7 ) NULL, | |||||
| 1147 | CONSTR AINT [FORM _RESPONSE_ STATUS_H_P K] PRIMARY KEY CLUST ERED ([Aud it_FORM_RE SPONSE_STA TUS_H_ID] ASC) | |||||
| 1148 | ); | |||||
| 1149 | ||||||
| 1150 | ||||||
| 1151 | GO | |||||
| 1152 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_AD DRESS_H].. .'; | |||||
| 1153 | ||||||
| 1154 | ||||||
| 1155 | GO | |||||
| 1156 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_ADDRES S_H] ( | |||||
| 1157 | [Audit _REGISTRAN T_ADDRESS_ H_ID] INT IDENTITY ( 1, 1) NOT NULL, | |||||
| 1158 | [Audit _Date] DATE TIME NOT NULL, | |||||
| 1159 | [Audit _Type] VARC HAR (20) NOT NULL, | |||||
| 1160 | [Audit _Applicati onUser] VARC HAR (128) NULL, | |||||
| 1161 | [Audit _SQLUser] VARC HAR (100) NULL, | |||||
| 1162 | [REGIS TRANT_ADDR ESS_ID] INT NULL, | |||||
| 1163 | [REGIS TRANT_ID] INT NULL, | |||||
| 1164 | [TYPE] VARC HAR (100) NULL, | |||||
| 1165 | [STREE T1] VARC HAR (256) NULL, | |||||
| 1166 | [STREE T2] VARC HAR (256) NULL, | |||||
| 1167 | [CITY] VARC HAR (100) NULL, | |||||
| 1168 | [STATE ] VARC HAR (100) NULL, | |||||
| 1169 | [ZIP] VARC HAR (15) NULL, | |||||
| 1170 | [COUNT RY] VARC HAR (100) NULL, | |||||
| 1171 | [CREAT EDBY] VARC HAR (30) NULL, | |||||
| 1172 | [UPDAT EDBY] VARC HAR (30) NULL, | |||||
| 1173 | [CREAT ED] DATE TIME2 (7) NULL, | |||||
| 1174 | [UPDAT ED] DATE TIME2 (7) NULL, | |||||
| 1175 | CONSTR AINT [REGI STRANT_ADD RESS_H_PK] PRIMARY K EY CLUSTER ED ([Audit _REGISTRAN T_ADDRESS_ H_ID] ASC) | |||||
| 1176 | ); | |||||
| 1177 | ||||||
| 1178 | ||||||
| 1179 | GO | |||||
| 1180 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_CO NTACT_INFO _H]...'; | |||||
| 1181 | ||||||
| 1182 | ||||||
| 1183 | GO | |||||
| 1184 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_CONTAC T_INFO_H] ( | |||||
| 1185 | [Audit _REGISTRAN T_CONTACT_ INFO_H_ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 1186 | [Audit _Date] DATETIME NOT N ULL, | |||||
| 1187 | [Audit _Type] VARCHAR ( 20) NOT N ULL, | |||||
| 1188 | [Audit _Applicati onUser] VARCHAR ( 128) NULL, | |||||
| 1189 | [Audit _SQLUser] VARCHAR ( 100) NULL, | |||||
| 1190 | [REGIS TRANT_ID] INT NULL, | |||||
| 1191 | [FIRST _NAME_CONF IRMED] VARCHAR ( 50) NULL, | |||||
| 1192 | [MIDDL E_NAME_CON FIRMED] VARCHAR ( 50) NULL, | |||||
| 1193 | [LAST_ NAME_CONFI RMED] VARCHAR ( 50) NULL, | |||||
| 1194 | [LAST_ UPDATED_DA TE] DATETIME2 (7) NULL, | |||||
| 1195 | [PREVI OUS_VALUES ] VARCHAR ( MAX) NULL, | |||||
| 1196 | [PREVI OUS_UPDATE D_DATE] DATETIME2 (7) NULL, | |||||
| 1197 | [CREAT EDBY] VARCHAR ( 30) NULL, | |||||
| 1198 | [UPDAT EDBY] VARCHAR ( 30) NULL, | |||||
| 1199 | [CREAT ED] DATETIME2 (7) NULL, | |||||
| 1200 | [UPDAT ED] DATETIME2 (7) NULL, | |||||
| 1201 | CONSTR AINT [REGI STRANT_CON TACT_INFO_ H_PK] PRIM ARY KEY CL USTERED ([ Audit_REGI STRANT_CON TACT_INFO_ H_ID] ASC) | |||||
| 1202 | ); | |||||
| 1203 | ||||||
| 1204 | ||||||
| 1205 | GO | |||||
| 1206 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_EM AIL_H]...' ; | |||||
| 1207 | ||||||
| 1208 | ||||||
| 1209 | GO | |||||
| 1210 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_EMAIL_ H] ( | |||||
| 1211 | [Audit _REGISTRAN T_EMAIL_H_ ID] INT ID ENTITY (1, 1) NOT NU LL, | |||||
| 1212 | [Audit _Date] DATETI ME NO T NULL, | |||||
| 1213 | [Audit _Type] VARCHA R (20) NO T NULL, | |||||
| 1214 | [Audit _Applicati onUser] VARCHA R (128) NU LL, | |||||
| 1215 | [Audit _SQLUser] VARCHA R (100) NU LL, | |||||
| 1216 | [REGIS TRANT_EMAI L_ID] INT NU LL, | |||||
| 1217 | [REGIS TRANT_ID] INT NU LL, | |||||
| 1218 | [TYPE] VARCHA R (100) NU LL, | |||||
| 1219 | [EMAIL ] VARCHA R (256) NU LL, | |||||
| 1220 | [CREAT EDBY] VARCHA R (30) NU LL, | |||||
| 1221 | [UPDAT EDBY] VARCHA R (30) NU LL, | |||||
| 1222 | [CREAT ED] DATETI ME2 (7) NU LL, | |||||
| 1223 | [UPDAT ED] DATETI ME2 (7) NU LL, | |||||
| 1224 | CONSTR AINT [REGI STRANT_EMA IL_H_PK] P RIMARY KEY CLUSTERED ([Audit_R EGISTRANT_ EMAIL_H_ID ] ASC) | |||||
| 1225 | ); | |||||
| 1226 | ||||||
| 1227 | ||||||
| 1228 | GO | |||||
| 1229 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_H] ...'; | |||||
| 1230 | ||||||
| 1231 | ||||||
| 1232 | GO | |||||
| 1233 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_H] ( | |||||
| 1234 | [Audit _REGISTRAN T_H_ID] INT I DENTITY (1 , 1) NOT N ULL, | |||||
| 1235 | [Audit _Date] DATET IME N OT NULL, | |||||
| 1236 | [Audit _Type] VARCH AR (20) N OT NULL, | |||||
| 1237 | [Audit _Applicati onUser] VARCH AR (128) N ULL, | |||||
| 1238 | [Audit _SQLUser] VARCH AR (100) N ULL, | |||||
| 1239 | [REGIS TRANT_ID] INT N ULL, | |||||
| 1240 | [USER_ ID] VARCH AR (256) N ULL, | |||||
| 1241 | [EDIPI ] VARCH AR (50) N ULL, | |||||
| 1242 | [ICN] VARCH AR (50) N ULL, | |||||
| 1243 | [SSN] VARCH AR (20) N ULL, | |||||
| 1244 | [FIRST _NAME] VARCH AR (50) N ULL, | |||||
| 1245 | [MIDDL E_NAME] VARCH AR (50) N ULL, | |||||
| 1246 | [LAST_ NAME] VARCH AR (50) N ULL, | |||||
| 1247 | [BIRTH _DATE] DATE N ULL, | |||||
| 1248 | [GENDE R] VARCH AR (50) N ULL, | |||||
| 1249 | [RACE] VARCH AR (50) N ULL, | |||||
| 1250 | [ETHNI CITY] VARCH AR (50) N ULL, | |||||
| 1251 | [STD_S ERVICE_STA TUS_ID] INT N ULL, | |||||
| 1252 | [STD_S ERVICE_STA TUS_ID_WHE N_ENROLLED ] INT N ULL, | |||||
| 1253 | [STD_B RANCH_OF_S ERVICE_ID_ CURRENT] INT N ULL, | |||||
| 1254 | [STD_B RANCH_OF_S ERVICE_ID_ WHEN_ENROL LED] INT N ULL, | |||||
| 1255 | [UIC_C URRENT] CHAR (1) N ULL, | |||||
| 1256 | [UIC_W HEN_ENROLL ED] CHAR (1) N ULL, | |||||
| 1257 | [STD_R EGISTRANT_ STATUS_ID] INT N ULL, | |||||
| 1258 | [REGIS TRANT_STAT US_LAST_UP DATED_DATE ] DATET IME2 (7) N ULL, | |||||
| 1259 | [STD_I NSTITUTION _ID] INT N ULL, | |||||
| 1260 | [MARIT AL_STATUS] VARCH AR (50) N ULL, | |||||
| 1261 | [EDUCA TION_LEVEL ] VARCH AR (50) N ULL, | |||||
| 1262 | [STD_S EPARATION_ REASON_ID_ CURRENT] INT N ULL, | |||||
| 1263 | [SEPAR ATION_DATE _CURRENT] DATE N ULL, | |||||
| 1264 | [STD_S EPARATION_ REASON_ID_ WHEN_ENROL LED] INT N ULL, | |||||
| 1265 | [SEPAR ATION_DATE _WHEN_ENRO LLED] DATE N ULL, | |||||
| 1266 | [STD_D ISCHARGE_C HARACTER_I D] INT N ULL, | |||||
| 1267 | [STD_C OMPONENT_I D_CURRENT] INT N ULL, | |||||
| 1268 | [STD_C OMPONENT_I D_WHEN_ENR OLLED] INT N ULL, | |||||
| 1269 | [HEALT H_CONCERNS _RESPONSE] VARCH AR (50) N ULL, | |||||
| 1270 | [REQUE ST_SEEN_RE SPONSE] VARCH AR (50) N ULL, | |||||
| 1271 | [DECEA SED_FLAG] BIT N ULL, | |||||
| 1272 | [DEATH _DATE] DATE N ULL, | |||||
| 1273 | [ELIGI BILITY_STA TUS] VARCH AR (30) N ULL, | |||||
| 1274 | [ELIGI BILITY] VARCH AR (50) N ULL, | |||||
| 1275 | [CONTA CT_PREFERE NCE] VARCH AR (100) N ULL, | |||||
| 1276 | [ETL_U PDATED] DATET IME2 (7) N ULL, | |||||
| 1277 | [ENROL LMENT_STAT US] VARCH AR (50) N ULL, | |||||
| 1278 | [ENROL LED_DATE] DATE N ULL, | |||||
| 1279 | [CREAT EDBY] VARCH AR (30) N ULL, | |||||
| 1280 | [UPDAT EDBY] VARCH AR (30) N ULL, | |||||
| 1281 | [CREAT ED] DATET IME2 (7) N ULL, | |||||
| 1282 | [UPDAT ED] DATET IME2 (7) N ULL, | |||||
| 1283 | CONSTR AINT [REGI STRANT_H_P K] PRIMARY KEY CLUST ERED ([Aud it_REGISTR ANT_H_ID] ASC) ON [A HOBPR] | |||||
| 1284 | ) ON [AHOB PR]; | |||||
| 1285 | ||||||
| 1286 | ||||||
| 1287 | GO | |||||
| 1288 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_PH ONE_H]...' ; | |||||
| 1289 | ||||||
| 1290 | ||||||
| 1291 | GO | |||||
| 1292 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_PHONE_ H] ( | |||||
| 1293 | [Audit _REGISTRAN T_PHONE_H_ ID] INT ID ENTITY (1, 1) NOT NU LL, | |||||
| 1294 | [Audit _Date] DATETI ME NO T NULL, | |||||
| 1295 | [Audit _Type] VARCHA R (20) NO T NULL, | |||||
| 1296 | [Audit _Applicati onUser] VARCHA R (128) NU LL, | |||||
| 1297 | [Audit _SQLUser] VARCHA R (100) NU LL, | |||||
| 1298 | [REGIS TRANT_PHON E_ID] INT NU LL, | |||||
| 1299 | [REGIS TRANT_ID] INT NU LL, | |||||
| 1300 | [TYPE] VARCHA R (100) NU LL, | |||||
| 1301 | [PHONE _NUMBER] VARCHA R (50) NU LL, | |||||
| 1302 | [CREAT EDBY] VARCHA R (30) NU LL, | |||||
| 1303 | [UPDAT EDBY] VARCHA R (30) NU LL, | |||||
| 1304 | [CREAT ED] DATETI ME2 (7) NU LL, | |||||
| 1305 | [UPDAT ED] DATETI ME2 (7) NU LL, | |||||
| 1306 | CONSTR AINT [REGI STRANT_PHO NE_H_PK] P RIMARY KEY CLUSTERED ([Audit_R EGISTRANT_ PHONE_H_ID ] ASC) | |||||
| 1307 | ); | |||||
| 1308 | ||||||
| 1309 | ||||||
| 1310 | GO | |||||
| 1311 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_RE CORD_INFO_ H]...'; | |||||
| 1312 | ||||||
| 1313 | ||||||
| 1314 | GO | |||||
| 1315 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_RECORD _INFO_H] ( | |||||
| 1316 | [Audit _REGISTRAN T_RECORD_I NFO_H_ID] INT IDENTI TY (1, 1) NOT NULL, | |||||
| 1317 | [Audit _Date] DATETIME NOT NU LL, | |||||
| 1318 | [Audit _Type] VARCHAR (2 0) NOT NU LL, | |||||
| 1319 | [Audit _Applicati onUser] VARCHAR (1 28) NULL, | |||||
| 1320 | [Audit _SQLUser] VARCHAR (1 00) NULL, | |||||
| 1321 | [REGIS TRANT_ID] INT NULL, | |||||
| 1322 | [EULA_ ACCEPTED_D ATE] DATETIME2 (7) NULL, | |||||
| 1323 | [EDIPI _VERIFIED_ DATE] DATETIME2 (7) NULL, | |||||
| 1324 | [EDIPI _MISMATCHE D_FLAG] BIT NULL, | |||||
| 1325 | [CONTA CT_INFO_VE RIFIED_DAT E] DATETIME2 (7) NULL, | |||||
| 1326 | [CREAT EDBY] VARCHAR (3 0) NULL, | |||||
| 1327 | [UPDAT EDBY] VARCHAR (3 0) NULL, | |||||
| 1328 | [CREAT ED] DATETIME2 (7) NULL, | |||||
| 1329 | [UPDAT ED] DATETIME2 (7) NULL, | |||||
| 1330 | CONSTR AINT [REGI STRANT_REC ORD_INFO_H _PK] PRIMA RY KEY CLU STERED ([A udit_REGIS TRANT_RECO RD_INFO_H_ ID] ASC) | |||||
| 1331 | ); | |||||
| 1332 | ||||||
| 1333 | ||||||
| 1334 | GO | |||||
| 1335 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_RE GISTRY_FLA G_H]...'; | |||||
| 1336 | ||||||
| 1337 | ||||||
| 1338 | GO | |||||
| 1339 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_REGIST RY_FLAG_H] ( | |||||
| 1340 | [Audit _REGISTRAN T_REGISTRY _FLAG_H_ID ] INT IDEN TITY (1, 1 ) NOT NULL , | |||||
| 1341 | [Audit _Date] DATETIME NOT NULL, | |||||
| 1342 | [Audit _Type] VARCHAR (20) NOT NULL, | |||||
| 1343 | [Audit _Applicati onUser] VARCHAR (128) NULL , | |||||
| 1344 | [Audit _SQLUser] VARCHAR (100) NULL , | |||||
| 1345 | [REGIS TRANT_REGI STRY_FLAG_ ID] INT NULL , | |||||
| 1346 | [REGIS TRANT_ID] INT NULL , | |||||
| 1347 | [STD_R EGISTRY_FL AG_ID] INT NULL , | |||||
| 1348 | [CREAT EDBY] VARCHAR (30) NULL , | |||||
| 1349 | [UPDAT EDBY] VARCHAR (30) NULL , | |||||
| 1350 | [CREAT ED] DATETIME 2 (7) NULL , | |||||
| 1351 | [UPDAT ED] DATETIME 2 (7) NULL , | |||||
| 1352 | CONSTR AINT [REGI STRANT_REG ISTRY_FLAG _H_PK] PRI MARY KEY C LUSTERED ( [Audit_REG ISTRANT_RE GISTRY_FLA G_H_ID] AS C) | |||||
| 1353 | ); | |||||
| 1354 | ||||||
| 1355 | ||||||
| 1356 | GO | |||||
| 1357 | PRINT N'Cr eating [AH OBPR].[DAT A_ACCESS_L OG]...'; | |||||
| 1358 | ||||||
| 1359 | ||||||
| 1360 | GO | |||||
| 1361 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1362 | ||||||
| 1363 | ||||||
| 1364 | GO | |||||
| 1365 | CREATE TAB LE [AHOBPR ].[DATA_AC CESS_LOG] ( | |||||
| 1366 | [LOG_I D] IN T IDENTITY (1, 1) NO T NULL, | |||||
| 1367 | [USER_ ID] VA RCHAR (256 ) NULL, | |||||
| 1368 | [USER_ AGENT] VA RCHAR (500 ) NULL, | |||||
| 1369 | [PAGE_ NAME] VA RCHAR (100 ) NULL, | |||||
| 1370 | [CREAT ED] DA TETIME NOT NULL , | |||||
| 1371 | [CREAT EDBY] VA RCHAR (30) NOT NULL , | |||||
| 1372 | [UPDAT ED] DA TETIME NOT NULL , | |||||
| 1373 | [UPDAT EDBY] VA RCHAR (30) NOT NULL , | |||||
| 1374 | [ROW_V ERSION] TI MESTAMP NOT NULL , | |||||
| 1375 | CONSTR AINT [PK_D ATA_ACCESS _LOG] PRIM ARY KEY CL USTERED ([ LOG_ID] AS C) ON [AHO BPR] | |||||
| 1376 | ) ON [AHOB PR]; | |||||
| 1377 | ||||||
| 1378 | ||||||
| 1379 | GO | |||||
| 1380 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1381 | ||||||
| 1382 | ||||||
| 1383 | GO | |||||
| 1384 | PRINT N'Cr eating [AH OBPR].[INT ERFACE_CAL L_LOG]...' ; | |||||
| 1385 | ||||||
| 1386 | ||||||
| 1387 | GO | |||||
| 1388 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1389 | ||||||
| 1390 | ||||||
| 1391 | GO | |||||
| 1392 | CREATE TAB LE [AHOBPR ].[INTERFA CE_CALL_LO G] ( | |||||
| 1393 | [REGIS TRANT_ID] INT NULL , | |||||
| 1394 | [INTER FACE_NAME] VARCHAR ( 50) NOT NULL, | |||||
| 1395 | [TIME_ OF_CALL] DATETIME2 (0) NOT NULL, | |||||
| 1396 | [PARAM ETERS] VARCHAR ( 1000) NULL , | |||||
| 1397 | [RETUR N_VALUES] VARCHAR ( 1000) NULL , | |||||
| 1398 | [CREAT EDBY] VARCHAR ( 30) NOT NULL, | |||||
| 1399 | [UPDAT EDBY] VARCHAR ( 30) NOT NULL, | |||||
| 1400 | [CREAT ED] DATETIME2 (0) NOT NULL, | |||||
| 1401 | [UPDAT ED] DATETIME2 (0) NOT NULL | |||||
| 1402 | ) ON [AHOB PR]; | |||||
| 1403 | ||||||
| 1404 | ||||||
| 1405 | GO | |||||
| 1406 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1407 | ||||||
| 1408 | ||||||
| 1409 | GO | |||||
| 1410 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_FI LE]...'; | |||||
| 1411 | ||||||
| 1412 | ||||||
| 1413 | GO | |||||
| 1414 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1415 | ||||||
| 1416 | ||||||
| 1417 | GO | |||||
| 1418 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_FILE] ( | |||||
| 1419 | [REGIS TRANT_FILE _ID] UNIQU EIDENTIFIE R ROWGUIDC OL NOT NUL L, | |||||
| 1420 | [FILE_ ID] VARCH AR (256) NOT NULL , | |||||
| 1421 | [FILE_ TYPE] VARCH AR (256) NOT NULL , | |||||
| 1422 | [FILE_ CONTENT] VARBI NARY (MAX) FILESTREA M NULL, | |||||
| 1423 | [CREAT EDBY] VARCH AR (30) NOT NULL , | |||||
| 1424 | [UPDAT EDBY] VARCH AR (30) NOT NULL , | |||||
| 1425 | [CREAT ED] DATET IME2 (0) NOT NULL , | |||||
| 1426 | [UPDAT ED] DATET IME2 (0) NOT NULL , | |||||
| 1427 | [ROW_V ERSION] TIMES TAMP NOT NULL , | |||||
| 1428 | CONSTR AINT [PK_R EGISTRANT_ FILE] PRIM ARY KEY CL USTERED ([ REGISTRANT _FILE_ID] ASC) ON [A HOBPR] | |||||
| 1429 | ) ON [AHOB PR] FILEST REAM_ON [F ILESTREAMG roup]; | |||||
| 1430 | ||||||
| 1431 | ||||||
| 1432 | GO | |||||
| 1433 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1434 | ||||||
| 1435 | ||||||
| 1436 | GO | |||||
| 1437 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_VI SIT]...'; | |||||
| 1438 | ||||||
| 1439 | ||||||
| 1440 | GO | |||||
| 1441 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1442 | ||||||
| 1443 | ||||||
| 1444 | GO | |||||
| 1445 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_VISIT] ( | |||||
| 1446 | [REGIS TRANT_VISI T_ID] INT IDENTI TY (10, 1) NOT NULL, | |||||
| 1447 | [REGIS TRANT_ID] INT NOT NU LL, | |||||
| 1448 | [VISIT _DATE_TIME ] DATETIME2 (0) NULL, | |||||
| 1449 | [STD_I NSTITUTION _ID] INT NULL, | |||||
| 1450 | [VISTA _Encounter ID] VARCHAR (5 0) NULL, | |||||
| 1451 | [VISTA _Sta3n] SMALLINT NULL, | |||||
| 1452 | [VISTA _Eligibili tyStatus] VARCHAR (5 0) NULL, | |||||
| 1453 | [EVALU ATION_FLAG ] CHAR (1) NOT NU LL, | |||||
| 1454 | [APPOI NTMENT_TYP E] VARCHAR (5 0) NULL, | |||||
| 1455 | [STOP_ CODE] VARCHAR (5 0) NULL, | |||||
| 1456 | [CREAT EDBY] VARCHAR (3 0) NOT NU LL, | |||||
| 1457 | [UPDAT EDBY] VARCHAR (3 0) NOT NU LL, | |||||
| 1458 | [CREAT ED] DATETIME2 (0) NOT NU LL, | |||||
| 1459 | [UPDAT ED] DATETIME2 (0) NOT NU LL, | |||||
| 1460 | [ROW_V ERSION] TIMESTAMP NOT NU LL, | |||||
| 1461 | CONSTR AINT [PK_R EGISTRANT_ VISIT] PRI MARY KEY C LUSTERED ( [REGISTRAN T_VISIT_ID ] ASC) ON [AHOBPR] | |||||
| 1462 | ) ON [AHOB PR]; | |||||
| 1463 | ||||||
| 1464 | ||||||
| 1465 | GO | |||||
| 1466 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1467 | ||||||
| 1468 | ||||||
| 1469 | GO | |||||
| 1470 | PRINT N'Cr eating [AH OBPR].[AHO BPR_USER]. ..'; | |||||
| 1471 | ||||||
| 1472 | ||||||
| 1473 | GO | |||||
| 1474 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1475 | ||||||
| 1476 | ||||||
| 1477 | GO | |||||
| 1478 | CREATE TAB LE [AHOBPR ].[AHOBPR_ USER] ( | |||||
| 1479 | [USER_ ID] INT NOT NULL, | |||||
| 1480 | [LAST_ LOGIN] DATETIM E NULL , | |||||
| 1481 | [LAST_ VISTA_LOGI N] DATETIM E NULL , | |||||
| 1482 | [ACTIV E_FLAG] BIT NOT NULL, | |||||
| 1483 | [CREAT ED] DATETIM E NOT NULL, | |||||
| 1484 | [CREAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 1485 | [UPDAT ED] DATETIM E NOT NULL, | |||||
| 1486 | [UPDAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 1487 | [ROW_V ERSION] TIMESTA MP NOT NULL, | |||||
| 1488 | [PENDI NG_FLAG] BIT NOT NULL, | |||||
| 1489 | CONSTR AINT [PK_A HOBPR_USER ] PRIMARY KEY CLUSTE RED ([USER _ID] ASC) ON [AHOBPR ] | |||||
| 1490 | ) ON [AHOB PR]; | |||||
| 1491 | ||||||
| 1492 | ||||||
| 1493 | GO | |||||
| 1494 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1495 | ||||||
| 1496 | ||||||
| 1497 | GO | |||||
| 1498 | PRINT N'Cr eating [AH OBPR].[AUD IT_LOG]... '; | |||||
| 1499 | ||||||
| 1500 | ||||||
| 1501 | GO | |||||
| 1502 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1503 | ||||||
| 1504 | ||||||
| 1505 | GO | |||||
| 1506 | CREATE TAB LE [AHOBPR ].[AUDIT_L OG] ( | |||||
| 1507 | [TYPE_ ID] TINYINT NOT N ULL, | |||||
| 1508 | [USER_ ID] INT NULL, | |||||
| 1509 | [REGIS TRANT_ID] INT NULL, | |||||
| 1510 | [MESSA GE] VARCHAR (1 000) NULL, | |||||
| 1511 | [CREAT ED] DATETIME NOT N ULL, | |||||
| 1512 | [CREAT EDBY] VARCHAR (3 0) NOT N ULL, | |||||
| 1513 | [UPDAT ED] DATETIME NOT N ULL, | |||||
| 1514 | [UPDAT EDBY] VARCHAR (3 0) NOT N ULL, | |||||
| 1515 | [ROW_V ERSION] TIMESTAMP NOT N ULL, | |||||
| 1516 | [LOG_I D] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 1517 | CONSTR AINT [PK_A UDIT_LOG] PRIMARY KE Y CLUSTERE D ([LOG_ID ] ASC) ON [AHOBPR] | |||||
| 1518 | ) ON [AHOB PR]; | |||||
| 1519 | ||||||
| 1520 | ||||||
| 1521 | GO | |||||
| 1522 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1523 | ||||||
| 1524 | ||||||
| 1525 | GO | |||||
| 1526 | PRINT N'Cr eating [AH OBPR].[AUD IT_LOG_TYP E]...'; | |||||
| 1527 | ||||||
| 1528 | ||||||
| 1529 | GO | |||||
| 1530 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1531 | ||||||
| 1532 | ||||||
| 1533 | GO | |||||
| 1534 | CREATE TAB LE [AHOBPR ].[AUDIT_L OG_TYPE] ( | |||||
| 1535 | [TYPE_ ID] TI NYINT NOT NULL , | |||||
| 1536 | [DESCR IPTION] VA RCHAR (100 ) NOT NULL , | |||||
| 1537 | [CREAT ED] DA TETIME NOT NULL , | |||||
| 1538 | [CREAT EDBY] VA RCHAR (30) NOT NULL , | |||||
| 1539 | [UPDAT ED] DA TETIME NOT NULL , | |||||
| 1540 | [UPDAT EDBY] VA RCHAR (30) NOT NULL , | |||||
| 1541 | [ROW_V ERSION] TI MESTAMP NOT NULL , | |||||
| 1542 | CONSTR AINT [PK_A UDIT_LOG_T YPE] PRIMA RY KEY CLU STERED ([T YPE_ID] AS C) ON [AHO BPR] | |||||
| 1543 | ) ON [AHOB PR]; | |||||
| 1544 | ||||||
| 1545 | ||||||
| 1546 | GO | |||||
| 1547 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1548 | ||||||
| 1549 | ||||||
| 1550 | GO | |||||
| 1551 | PRINT N'Cr eating [AH OBPR].[DOD _DEPLOYMEN T_IMPORT]. ..'; | |||||
| 1552 | ||||||
| 1553 | ||||||
| 1554 | GO | |||||
| 1555 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1556 | ||||||
| 1557 | ||||||
| 1558 | GO | |||||
| 1559 | CREATE TAB LE [AHOBPR ].[DOD_DEP LOYMENT_IM PORT] ( | |||||
| 1560 | [DEPLO YMENT_ID] IN T IDENTITY (1, 1) NOT NULL, | |||||
| 1561 | [EDIPI ] VA RCHAR (10) NOT NULL, | |||||
| 1562 | [SERVI CE] VA RCHAR (15) NOT NULL, | |||||
| 1563 | [COMPO ] VA RCHAR (10) NOT NULL, | |||||
| 1564 | [LOCAT ION] VA RCHAR (2) NOT NULL, | |||||
| 1565 | [DEPLO YMENT_STAR T_DATE] DA TE NOT NULL, | |||||
| 1566 | [DEPLO YMENT_END_ DATE] DA TE NOT NULL, | |||||
| 1567 | [LOCAT ION_START_ DATE] DA TE NOT NULL, | |||||
| 1568 | [LOCAT ION_END_DA TE] DA TE NOT NULL, | |||||
| 1569 | [PAY_P LAN_GRADE] VA RCHAR (4) NOT NULL, | |||||
| 1570 | [IMPOR T_DATE] DA TE NOT NULL | |||||
| 1571 | ) ON [AHOB PR]; | |||||
| 1572 | ||||||
| 1573 | ||||||
| 1574 | GO | |||||
| 1575 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1576 | ||||||
| 1577 | ||||||
| 1578 | GO | |||||
| 1579 | PRINT N'Cr eating [AH OBPR].[STD _COUNTRY]. ..'; | |||||
| 1580 | ||||||
| 1581 | ||||||
| 1582 | GO | |||||
| 1583 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1584 | ||||||
| 1585 | ||||||
| 1586 | GO | |||||
| 1587 | CREATE TAB LE [AHOBPR ].[STD_COU NTRY] ( | |||||
| 1588 | [CODE] VA RCHAR (2) NOT NULL, | |||||
| 1589 | [DESCR IPTION] VA RCHAR (50) NOT NULL, | |||||
| 1590 | CONSTR AINT [PK_S TD_COUNTRY ] PRIMARY KEY CLUSTE RED ([CODE ] ASC) ON [AHOBPR] | |||||
| 1591 | ) ON [AHOB PR]; | |||||
| 1592 | ||||||
| 1593 | ||||||
| 1594 | GO | |||||
| 1595 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1596 | ||||||
| 1597 | ||||||
| 1598 | GO | |||||
| 1599 | PRINT N'Cr eating [AH OBPR].[STD _PAY_PLAN_ GRADE]...' ; | |||||
| 1600 | ||||||
| 1601 | ||||||
| 1602 | GO | |||||
| 1603 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1604 | ||||||
| 1605 | ||||||
| 1606 | GO | |||||
| 1607 | CREATE TAB LE [AHOBPR ].[STD_PAY _PLAN_GRAD E] ( | |||||
| 1608 | [CODE] VA RCHAR (4) NOT NULL, | |||||
| 1609 | [DESCR IPTION] VA RCHAR (50) NOT NULL, | |||||
| 1610 | CONSTR AINT [PK_S TD_PAY_PLA N_GRADE] P RIMARY KEY CLUSTERED ([CODE] A SC) ON [AH OBPR] | |||||
| 1611 | ) ON [AHOB PR]; | |||||
| 1612 | ||||||
| 1613 | ||||||
| 1614 | GO | |||||
| 1615 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1616 | ||||||
| 1617 | ||||||
| 1618 | GO | |||||
| 1619 | PRINT N'Cr eating [AH OBPR].[JSO N_QUEUE].. .'; | |||||
| 1620 | ||||||
| 1621 | ||||||
| 1622 | GO | |||||
| 1623 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1624 | ||||||
| 1625 | ||||||
| 1626 | GO | |||||
| 1627 | CREATE TAB LE [AHOBPR ].[JSON_QU EUE] ( | |||||
| 1628 | [JSON_ QUEUE_ID] IN T IDENTIT Y (1, 1) N OT NULL, | |||||
| 1629 | [REGIS TRANT_JSON _ID] IN T NOT NUL L, | |||||
| 1630 | [PROCE SS_START_D ATE] DA TETIME2 (0 ) NULL, | |||||
| 1631 | [PROCE SS_COMPLET E_DATE] DA TETIME2 (0 ) NULL, | |||||
| 1632 | [PROCE SS_STATUS] VA RCHAR (100 ) NULL, | |||||
| 1633 | [PROCE SS_ERROR] VA RCHAR (400 0) NULL, | |||||
| 1634 | [ROW_V ERSION] RO WVERSION NOT NUL L, | |||||
| 1635 | [CREAT EDBY] VA RCHAR (30) NOT NUL L, | |||||
| 1636 | [UPDAT EDBY] VA RCHAR (30) NOT NUL L, | |||||
| 1637 | [CREAT ED] DA TETIME2 (0 ) NOT NUL L, | |||||
| 1638 | [UPDAT ED] DA TETIME2 (0 ) NOT NUL L, | |||||
| 1639 | CONSTR AINT [JSON _QUEUE_PK] PRIMARY K EY CLUSTER ED ([JSON_ QUEUE_ID] ASC) ON [A HOBPR] | |||||
| 1640 | ) ON [AHOB PR]; | |||||
| 1641 | ||||||
| 1642 | ||||||
| 1643 | GO | |||||
| 1644 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1645 | ||||||
| 1646 | ||||||
| 1647 | GO | |||||
| 1648 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_JS ON]...'; | |||||
| 1649 | ||||||
| 1650 | ||||||
| 1651 | GO | |||||
| 1652 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1653 | ||||||
| 1654 | ||||||
| 1655 | GO | |||||
| 1656 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_JSON] ( | |||||
| 1657 | [REGIS TRANT_JSON _ID] INT I DENTITY (1 , 1) NOT N ULL, | |||||
| 1658 | [OBJEC T_ID] VARCH AR (256) N OT NULL, | |||||
| 1659 | [OBJEC T_TYPE] VARCH AR (100) N OT NULL, | |||||
| 1660 | [JSON_ DATA] VARCH AR (MAX) N OT NULL, | |||||
| 1661 | [CREAT EDBY] VARCH AR (30) N OT NULL, | |||||
| 1662 | [UPDAT EDBY] VARCH AR (30) N OT NULL, | |||||
| 1663 | [CREAT ED] DATET IME2 (0) N OT NULL, | |||||
| 1664 | [UPDAT ED] DATET IME2 (0) N OT NULL, | |||||
| 1665 | [ROW_V ERSION] ROWVE RSION N OT NULL, | |||||
| 1666 | CONSTR AINT [JSON _ID_PK] PR IMARY KEY CLUSTERED ([REGISTRA NT_JSON_ID ] ASC) ON [AHOBPR] | |||||
| 1667 | ) ON [AHOB PR]; | |||||
| 1668 | ||||||
| 1669 | ||||||
| 1670 | GO | |||||
| 1671 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1672 | ||||||
| 1673 | ||||||
| 1674 | GO | |||||
| 1675 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_JS ON].[IX_RE GISTRANT_J SON_Object ]...'; | |||||
| 1676 | ||||||
| 1677 | ||||||
| 1678 | GO | |||||
| 1679 | CREATE NON CLUSTERED INDEX [IX_ REGISTRANT _JSON_Obje ct] | |||||
| 1680 | ON [AH OBPR].[REG ISTRANT_JS ON]([OBJEC T_TYPE] AS C, [OBJECT _ID] ASC); | |||||
| 1681 | ||||||
| 1682 | ||||||
| 1683 | GO | |||||
| 1684 | PRINT N'Cr eating [AH OBPR].[STD _TERM_QUES TION]...'; | |||||
| 1685 | ||||||
| 1686 | ||||||
| 1687 | GO | |||||
| 1688 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1689 | ||||||
| 1690 | ||||||
| 1691 | GO | |||||
| 1692 | CREATE TAB LE [AHOBPR ].[STD_TER M_QUESTION ] ( | |||||
| 1693 | [STD_T ERM_QUESTI ON_ID] INT IDENTITY (1, 1) NOT NULL, | |||||
| 1694 | [STD_T ERM_ID] INT NULL, | |||||
| 1695 | [STD_F ORM_QUESTI ON_ID] INT NULL, | |||||
| 1696 | [CREAT EDBY] VAR CHAR (30) NOT NULL, | |||||
| 1697 | [UPDAT EDBY] VAR CHAR (30) NOT NULL, | |||||
| 1698 | [CREAT ED] DAT ETIME2 (0) NOT NULL, | |||||
| 1699 | [UPDAT ED] DAT ETIME2 (0) NOT NULL, | |||||
| 1700 | [ROW_V ERSION] TIM ESTAMP NOT NULL, | |||||
| 1701 | CONSTR AINT [PK_S TD_TERM_QU ESTION] PR IMARY KEY CLUSTERED ([STD_TERM _QUESTION_ ID] ASC) O N [AHOBPR] | |||||
| 1702 | ) ON [AHOB PR]; | |||||
| 1703 | ||||||
| 1704 | ||||||
| 1705 | GO | |||||
| 1706 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1707 | ||||||
| 1708 | ||||||
| 1709 | GO | |||||
| 1710 | PRINT N'Cr eating [AH OBPR].[STD _DISCHARGE _CHARACTER ]...'; | |||||
| 1711 | ||||||
| 1712 | ||||||
| 1713 | GO | |||||
| 1714 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1715 | ||||||
| 1716 | ||||||
| 1717 | GO | |||||
| 1718 | CREATE TAB LE [AHOBPR ].[STD_DIS CHARGE_CHA RACTER] ( | |||||
| 1719 | [STD_D ISCHARGE_C HARACTER_I D] INT IDE NTITY (1, 1) NOT NUL L, | |||||
| 1720 | [DISCH ARGE_CHARA CTER_CODE] VARCHAR (100) NUL L, | |||||
| 1721 | [DISCH ARGE_CHARA CTER] VARCHAR (100) NOT NULL, | |||||
| 1722 | [CREAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 1723 | [UPDAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 1724 | [CREAT ED] DATETIM E2 (0) NOT NULL, | |||||
| 1725 | [UPDAT ED] DATETIM E2 (0) NOT NULL, | |||||
| 1726 | [ROW_V ERSION] TIMESTA MP NOT NULL, | |||||
| 1727 | CONSTR AINT [STD_ DISCHARGE_ PK] PRIMAR Y KEY CLUS TERED ([ST D_DISCHARG E_CHARACTE R_ID] ASC) ON [AHOBP R] | |||||
| 1728 | ) ON [AHOB PR]; | |||||
| 1729 | ||||||
| 1730 | ||||||
| 1731 | GO | |||||
| 1732 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1733 | ||||||
| 1734 | ||||||
| 1735 | GO | |||||
| 1736 | PRINT N'Cr eating [AH OBPR].[STD _SEPARATIO N_FAMILY]. ..'; | |||||
| 1737 | ||||||
| 1738 | ||||||
| 1739 | GO | |||||
| 1740 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1741 | ||||||
| 1742 | ||||||
| 1743 | GO | |||||
| 1744 | CREATE TAB LE [AHOBPR ].[STD_SEP ARATION_FA MILY] ( | |||||
| 1745 | [STD_S EPARATION_ FAMILY_ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 1746 | [FAMIL Y_CODE] CHAR (1) NULL, | |||||
| 1747 | [FAMIL Y] VARCHAR ( 100) NOT N ULL, | |||||
| 1748 | [CREAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 1749 | [UPDAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 1750 | [CREAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 1751 | [UPDAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 1752 | [ROW_V ERSION] TIMESTAMP NOT N ULL, | |||||
| 1753 | CONSTR AINT [STD_ SEPARATION _FAMILY_PK ] PRIMARY KEY CLUSTE RED ([STD_ SEPARATION _FAMILY_ID ] ASC) ON [AHOBPR] | |||||
| 1754 | ); | |||||
| 1755 | ||||||
| 1756 | ||||||
| 1757 | GO | |||||
| 1758 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1759 | ||||||
| 1760 | ||||||
| 1761 | GO | |||||
| 1762 | PRINT N'Cr eating [AH OBPR].[STD _SEPARATIO N_REASON]. ..'; | |||||
| 1763 | ||||||
| 1764 | ||||||
| 1765 | GO | |||||
| 1766 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1767 | ||||||
| 1768 | ||||||
| 1769 | GO | |||||
| 1770 | CREATE TAB LE [AHOBPR ].[STD_SEP ARATION_RE ASON] ( | |||||
| 1771 | [STD_S EPARATION_ REASON_ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 1772 | [REASO N_CODE] VARCHAR ( 10) NULL, | |||||
| 1773 | [STD_S EPARATION_ FAMILY_ID] INT NULL, | |||||
| 1774 | [REASO N] VARCHAR ( 100) NOT N ULL, | |||||
| 1775 | [CREAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 1776 | [UPDAT EDBY] VARCHAR ( 30) NOT N ULL, | |||||
| 1777 | [CREAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 1778 | [UPDAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 1779 | [ROW_V ERSION] TIMESTAMP NOT N ULL, | |||||
| 1780 | CONSTR AINT [STD_ SEPARATION _REASON_PK ] PRIMARY KEY CLUSTE RED ([STD_ SEPARATION _REASON_ID ] ASC) ON [AHOBPR] | |||||
| 1781 | ); | |||||
| 1782 | ||||||
| 1783 | ||||||
| 1784 | GO | |||||
| 1785 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1786 | ||||||
| 1787 | ||||||
| 1788 | GO | |||||
| 1789 | PRINT N'Cr eating [AH OBPR].[STD _SERVICE_O CCUPATION] ...'; | |||||
| 1790 | ||||||
| 1791 | ||||||
| 1792 | GO | |||||
| 1793 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1794 | ||||||
| 1795 | ||||||
| 1796 | GO | |||||
| 1797 | CREATE TAB LE [AHOBPR ].[STD_SER VICE_OCCUP ATION] ( | |||||
| 1798 | [STD_S ERVICE_OCC UPATION_ID ] INT IDEN TITY (1, 1 ) NOT NULL , | |||||
| 1799 | [SERVI CE_OCCUPAT ION_CODE] VARCHAR (10) NOT NULL, | |||||
| 1800 | [SERVI CE_TITLE] VARCHAR (256) NULL , | |||||
| 1801 | [CREAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 1802 | [UPDAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 1803 | [CREAT ED] DATETIME 2 (0) NOT NULL, | |||||
| 1804 | [UPDAT ED] DATETIME 2 (0) NOT NULL, | |||||
| 1805 | [ROW_V ERSION] TIMESTAM P NOT NULL, | |||||
| 1806 | CONSTR AINT [STD_ SERVICE_OC CUPATION_P K] PRIMARY KEY CLUST ERED ([STD _SERVICE_O CCUPATION_ ID] ASC) O N [AHOBPR] | |||||
| 1807 | ) ON [AHOB PR]; | |||||
| 1808 | ||||||
| 1809 | ||||||
| 1810 | GO | |||||
| 1811 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1812 | ||||||
| 1813 | ||||||
| 1814 | GO | |||||
| 1815 | PRINT N'Cr eating [AH OBPR].[STD _COMPONENT ]...'; | |||||
| 1816 | ||||||
| 1817 | ||||||
| 1818 | GO | |||||
| 1819 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1820 | ||||||
| 1821 | ||||||
| 1822 | GO | |||||
| 1823 | CREATE TAB LE [AHOBPR ].[STD_COM PONENT] ( | |||||
| 1824 | [STD_C OMPONENT_I D] INT IDE NTITY (1, 1) NOT NUL L, | |||||
| 1825 | [CATEG ORY_CODE] CHAR (1 ) NUL L, | |||||
| 1826 | [DESCR IPTION] VARCHAR (100) NOT NULL, | |||||
| 1827 | [CREAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 1828 | [UPDAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 1829 | [CREAT ED] DATETIM E2 (0) NOT NULL, | |||||
| 1830 | [UPDAT ED] DATETIM E2 (0) NOT NULL, | |||||
| 1831 | [ROW_V ERSION] TIMESTA MP NOT NULL, | |||||
| 1832 | CONSTR AINT [STD_ COMPONENT_ PK] PRIMAR Y KEY CLUS TERED ([ST D_COMPONEN T_ID] ASC) ON [AHOBP R] | |||||
| 1833 | ) ON [AHOB PR]; | |||||
| 1834 | ||||||
| 1835 | ||||||
| 1836 | GO | |||||
| 1837 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1838 | ||||||
| 1839 | ||||||
| 1840 | GO | |||||
| 1841 | PRINT N'Cr eating [AH OBPR].[STA GED_HEALTH _FACTOR].. .'; | |||||
| 1842 | ||||||
| 1843 | ||||||
| 1844 | GO | |||||
| 1845 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1846 | ||||||
| 1847 | ||||||
| 1848 | GO | |||||
| 1849 | CREATE TAB LE [AHOBPR ].[STAGED_ HEALTH_FAC TOR] ( | |||||
| 1850 | [CDW_V ISIT_SID] BIG INT NOT NULL, | |||||
| 1851 | [REGIS TRANT_ID] INT NULL, | |||||
| 1852 | [STD_H EALTH_FACT OR_ID] SMA LLINT NULL, | |||||
| 1853 | [HEALT H_FACTOR_T EXT] VAR CHAR (40) NULL, | |||||
| 1854 | [COMME NTS] VAR CHAR (255) NULL | |||||
| 1855 | ) ON [AHOB PR]; | |||||
| 1856 | ||||||
| 1857 | ||||||
| 1858 | GO | |||||
| 1859 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1860 | ||||||
| 1861 | ||||||
| 1862 | GO | |||||
| 1863 | PRINT N'Cr eating [AH OBPR].[STA GED_PATIEN T]...'; | |||||
| 1864 | ||||||
| 1865 | ||||||
| 1866 | GO | |||||
| 1867 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1868 | ||||||
| 1869 | ||||||
| 1870 | GO | |||||
| 1871 | CREATE TAB LE [AHOBPR ].[STAGED_ PATIENT] ( | |||||
| 1872 | [Patie ntSID] BIGINT NULL, | |||||
| 1873 | [Patie ntIEN] VARCHAR (50) NULL, | |||||
| 1874 | [Patie ntICN] VARCHAR (50) NOT N ULL, | |||||
| 1875 | [Patie ntICNCheck sum] VARCHAR (50) NULL, | |||||
| 1876 | [REGIS TRANT_ID] INT NOT N ULL, | |||||
| 1877 | [Sta3N ] SMALLINT NULL, | |||||
| 1878 | [Patie ntSSN] VARCHAR (50) NULL, | |||||
| 1879 | [Eligi bility] VARCHAR (50) NULL, | |||||
| 1880 | [Eligi bilityStat us] VARCHAR (50) NULL, | |||||
| 1881 | [LastS erviceSepa rationDate ] DATE NULL, | |||||
| 1882 | [GENDE R] CHAR (1) NULL, | |||||
| 1883 | [DECEA SED] CHAR (1) NULL, | |||||
| 1884 | [DateO fDeath] DATE NULL, | |||||
| 1885 | [RaceT ext] VARCHAR (50) NULL, | |||||
| 1886 | [Marit alStatus] VARCHAR (25) NULL, | |||||
| 1887 | [Vista EditDate] DATE NULL, | |||||
| 1888 | [Extra ctBatchID] BIGINT NULL, | |||||
| 1889 | [Enrol lmentStatu s] VARCHAR (50) NULL, | |||||
| 1890 | [Prefe rredInstit utionCode] VARCHAR (10) NULL, | |||||
| 1891 | [Enrol lmentDate] DATE NULL, | |||||
| 1892 | [STD_I NSTITUTION _ID] INT NULL | |||||
| 1893 | ) ON [AHOB PR]; | |||||
| 1894 | ||||||
| 1895 | ||||||
| 1896 | GO | |||||
| 1897 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1898 | ||||||
| 1899 | ||||||
| 1900 | GO | |||||
| 1901 | PRINT N'Cr eating [AH OBPR].[STA GED_PATIEN T].[IX_PAT IENT_REGIS TRANT_ID]. ..'; | |||||
| 1902 | ||||||
| 1903 | ||||||
| 1904 | GO | |||||
| 1905 | CREATE NON CLUSTERED INDEX [IX_ PATIENT_RE GISTRANT_I D] | |||||
| 1906 | ON [AH OBPR].[STA GED_PATIEN T]([REGIST RANT_ID] A SC); | |||||
| 1907 | ||||||
| 1908 | ||||||
| 1909 | GO | |||||
| 1910 | PRINT N'Cr eating [AH OBPR].[STA GED_VISIT] ...'; | |||||
| 1911 | ||||||
| 1912 | ||||||
| 1913 | GO | |||||
| 1914 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 1915 | ||||||
| 1916 | ||||||
| 1917 | GO | |||||
| 1918 | CREATE TAB LE [AHOBPR ].[STAGED_ VISIT] ( | |||||
| 1919 | [Visit SID] BIGIN T N OT NULL, | |||||
| 1920 | [REGIS TRANT_ID] INT N OT NULL, | |||||
| 1921 | [VISTA _Encounter ID] VARCH AR (50) N ULL, | |||||
| 1922 | [Patie ntICN] VARCH AR (50) N OT NULL, | |||||
| 1923 | [Patie ntSID] BIGIN T N OT NULL, | |||||
| 1924 | [VISTA _PatientIE N] VARCH AR (50) N ULL, | |||||
| 1925 | [VISTA _Sta3n] SMALL INT N ULL, | |||||
| 1926 | [VISIT _DATE_TIME ] DATET IME2 (0) N ULL, | |||||
| 1927 | [VISTA _Eligibili ty] VARCH AR (50) N ULL, | |||||
| 1928 | [EVALU ATION_FLAG ] CHAR (1) N OT NULL, | |||||
| 1929 | [APPOI NTMENT_TYP E] VARCH AR (50) N ULL, | |||||
| 1930 | [APPOI NTMENT_STA TUS] VARCH AR (50) N ULL, | |||||
| 1931 | [INSTI TUTION_COD E] VARCH AR (10) N ULL, | |||||
| 1932 | [STOP_ CODE] VARCH AR (50) N ULL, | |||||
| 1933 | [STD_I NSTITUTION _ID] INT N ULL | |||||
| 1934 | ) ON [AHOB PR]; | |||||
| 1935 | ||||||
| 1936 | ||||||
| 1937 | GO | |||||
| 1938 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 1939 | ||||||
| 1940 | ||||||
| 1941 | GO | |||||
| 1942 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT].. .'; | |||||
| 1943 | ||||||
| 1944 | ||||||
| 1945 | GO | |||||
| 1946 | CREATE TAB LE [AHOBPR ].[REGISTR ANT] ( | |||||
| 1947 | [REGIS TRANT_ID] INT I DENTITY (1 , 1) NOT N ULL, | |||||
| 1948 | [USER_ ID] VARCH AR (256) N ULL, | |||||
| 1949 | [EDIPI ] VARCH AR (50) N OT NULL, | |||||
| 1950 | [ICN] VARCH AR (50) N ULL, | |||||
| 1951 | [SSN] VARCH AR (20) N OT NULL, | |||||
| 1952 | [FIRST _NAME] VARCH AR (50) N ULL, | |||||
| 1953 | [MIDDL E_NAME] VARCH AR (50) N ULL, | |||||
| 1954 | [LAST_ NAME] VARCH AR (50) N ULL, | |||||
| 1955 | [BIRTH _DATE] DATE N ULL, | |||||
| 1956 | [GENDE R] VARCH AR (50) N ULL, | |||||
| 1957 | [RACE] VARCH AR (50) N ULL, | |||||
| 1958 | [ETHNI CITY] VARCH AR (50) N ULL, | |||||
| 1959 | [STD_S ERVICE_STA TUS_ID] INT N ULL, | |||||
| 1960 | [STD_S ERVICE_STA TUS_ID_WHE N_ENROLLED ] INT N ULL, | |||||
| 1961 | [STD_B RANCH_OF_S ERVICE_ID_ CURRENT] INT N ULL, | |||||
| 1962 | [STD_B RANCH_OF_S ERVICE_ID_ WHEN_ENROL LED] INT N ULL, | |||||
| 1963 | [UIC_C URRENT] CHAR (6) N ULL, | |||||
| 1964 | [UIC_W HEN_ENROLL ED] CHAR (6) N ULL, | |||||
| 1965 | [STD_R EGISTRANT_ STATUS_ID] INT N ULL, | |||||
| 1966 | [REGIS TRANT_STAT US_LAST_UP DATED_DATE ] DATET IME2 (0) N ULL, | |||||
| 1967 | [STD_I NSTITUTION _ID] INT N ULL, | |||||
| 1968 | [MARIT AL_STATUS] VARCH AR (50) N ULL, | |||||
| 1969 | [EDUCA TION_LEVEL ] VARCH AR (50) N ULL, | |||||
| 1970 | [STD_S EPARATION_ REASON_ID_ CURRENT] INT N ULL, | |||||
| 1971 | [SEPAR ATION_DATE _CURRENT] DATE N ULL, | |||||
| 1972 | [STD_S EPARATION_ REASON_ID_ WHEN_ENROL LED] INT N ULL, | |||||
| 1973 | [SEPAR ATION_DATE _WHEN_ENRO LLED] DATE N ULL, | |||||
| 1974 | [STD_D ISCHARGE_C HARACTER_I D] INT N ULL, | |||||
| 1975 | [STD_C OMPONENT_I D_CURRENT] INT N ULL, | |||||
| 1976 | [STD_C OMPONENT_I D_WHEN_ENR OLLED] INT N ULL, | |||||
| 1977 | [HEALT H_CONCERNS _RESPONSE] VARCH AR (50) N ULL, | |||||
| 1978 | [REQUE ST_SEEN_RE SPONSE] VARCH AR (50) N ULL, | |||||
| 1979 | [DECEA SED_FLAG] BIT N OT NULL, | |||||
| 1980 | [DEATH _DATE] DATE N ULL, | |||||
| 1981 | [ELIGI BILITY_STA TUS] VARCH AR (30) N ULL, | |||||
| 1982 | [ELIGI BILITY] VARCH AR (50) N ULL, | |||||
| 1983 | [CONTA CT_PREFERE NCE] VARCH AR (100) N ULL, | |||||
| 1984 | [ETL_U PDATED] DATET IME2 (0) N ULL, | |||||
| 1985 | [ENROL LMENT_STAT US] VARCH AR (50) N ULL, | |||||
| 1986 | [ENROL LED_DATE] DATE N ULL, | |||||
| 1987 | [CREAT EDBY] VARCH AR (30) N OT NULL, | |||||
| 1988 | [UPDAT EDBY] VARCH AR (30) N OT NULL, | |||||
| 1989 | [CREAT ED] DATET IME2 (0) N OT NULL, | |||||
| 1990 | [UPDAT ED] DATET IME2 (0) N OT NULL, | |||||
| 1991 | [ROW_V ERSION] ROWVE RSION N OT NULL, | |||||
| 1992 | CONSTR AINT [REGI STRANT_ID_ PK] PRIMAR Y KEY CLUS TERED ([RE GISTRANT_I D] ASC) ON [AHOBPR] | |||||
| 1993 | ); | |||||
| 1994 | ||||||
| 1995 | ||||||
| 1996 | GO | |||||
| 1997 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT].[ IX_REGISTR ANT_StdReg istrantSta tusId]...' ; | |||||
| 1998 | ||||||
| 1999 | ||||||
| 2000 | GO | |||||
| 2001 | CREATE NON CLUSTERED INDEX [IX_ REGISTRANT _StdRegist rantStatus Id] | |||||
| 2002 | ON [AH OBPR].[REG ISTRANT]([ STD_REGIST RANT_STATU S_ID] ASC) | |||||
| 2003 | ON [AH OBPR]; | |||||
| 2004 | ||||||
| 2005 | ||||||
| 2006 | GO | |||||
| 2007 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT].[ IX_REGISTR ANT_Update d]...'; | |||||
| 2008 | ||||||
| 2009 | ||||||
| 2010 | GO | |||||
| 2011 | CREATE NON CLUSTERED INDEX [IX_ REGISTRANT _Updated] | |||||
| 2012 | ON [AH OBPR].[REG ISTRANT]([ UPDATED] A SC) | |||||
| 2013 | ON [AH OBPR]; | |||||
| 2014 | ||||||
| 2015 | ||||||
| 2016 | GO | |||||
| 2017 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT].[ IX_REGISTR ANT_StdIns titutionId ]...'; | |||||
| 2018 | ||||||
| 2019 | ||||||
| 2020 | GO | |||||
| 2021 | CREATE NON CLUSTERED INDEX [IX_ REGISTRANT _StdInstit utionId] | |||||
| 2022 | ON [AH OBPR].[REG ISTRANT]([ STD_INSTIT UTION_ID] ASC) | |||||
| 2023 | ON [AH OBPR]; | |||||
| 2024 | ||||||
| 2025 | ||||||
| 2026 | GO | |||||
| 2027 | PRINT N'Cr eating [AH OBPR].[STD _FORM_QUES TION]...'; | |||||
| 2028 | ||||||
| 2029 | ||||||
| 2030 | GO | |||||
| 2031 | CREATE TAB LE [AHOBPR ].[STD_FOR M_QUESTION ] ( | |||||
| 2032 | [STD_F ORM_QUESTI ON_ID] INT IDENT ITY (1, 1) NOT NULL, | |||||
| 2033 | [STD_F ORM_SUB_SE CTION_ID] INT NOT N ULL, | |||||
| 2034 | [STD_F ORM_SECTIO N_ID] INT NOT N ULL, | |||||
| 2035 | [STD_F ORM_ID] INT NOT N ULL, | |||||
| 2036 | [TEXT] VARCHAR (4 000) NOT N ULL, | |||||
| 2037 | [TYPE] VARCHAR (1 00) NOT N ULL, | |||||
| 2038 | [MIN] VARCHAR (2 56) NOT N ULL, | |||||
| 2039 | [MAX] VARCHAR (2 56) NOT N ULL, | |||||
| 2040 | [MAX_C HOICES] INT NULL, | |||||
| 2041 | [PAREN T_ID] INT NULL, | |||||
| 2042 | [FORM_ QUESTION_U NIQUE_ID] VARCHAR (1 00) NULL, | |||||
| 2043 | [BRP_F ORM_QUESTI ON_ID] VARCHAR (1 00) NULL, | |||||
| 2044 | [BRP_P ARENT_QUES TION_ID] VARCHAR (1 00) NULL, | |||||
| 2045 | [MAX_L ENGTH] INT NULL, | |||||
| 2046 | [MIN_L ENGTH] INT NULL, | |||||
| 2047 | [POST_ REQ_TRIGGE R_ONCE] VARCHAR (1 00) NULL, | |||||
| 2048 | [PRE_R EQ_OPERATO R] VARCHAR (1 00) NULL, | |||||
| 2049 | [SOURC E_ID] VARCHAR (1 00) NULL, | |||||
| 2050 | [CREAT EDBY] VARCHAR (3 0) NOT N ULL, | |||||
| 2051 | [UPDAT EDBY] VARCHAR (3 0) NOT N ULL, | |||||
| 2052 | [CREAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 2053 | [UPDAT ED] DATETIME2 (0) NOT N ULL, | |||||
| 2054 | [ROW_V ERSION] ROWVERSION NOT N ULL, | |||||
| 2055 | [SHORT _TEXT] VARCHAR (4 000) NULL, | |||||
| 2056 | CONSTR AINT [PK_S TD_FORM_QU ESTION] PR IMARY KEY CLUSTERED ([STD_FORM _QUESTION_ ID] ASC) O N [AHOBPR] | |||||
| 2057 | ); | |||||
| 2058 | ||||||
| 2059 | ||||||
| 2060 | GO | |||||
| 2061 | PRINT N'Cr eating [AH OBPR].[STD _FORM_QUES TION].[IX_ STD_FORM_Q UESTION_Un iqueId]... '; | |||||
| 2062 | ||||||
| 2063 | ||||||
| 2064 | GO | |||||
| 2065 | CREATE NON CLUSTERED INDEX [IX_ STD_FORM_Q UESTION_Un iqueId] | |||||
| 2066 | ON [AH OBPR].[STD _FORM_QUES TION]([FOR M_QUESTION _UNIQUE_ID ] ASC) | |||||
| 2067 | ON [AH OBPR]; | |||||
| 2068 | ||||||
| 2069 | ||||||
| 2070 | GO | |||||
| 2071 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_PH ONE]...'; | |||||
| 2072 | ||||||
| 2073 | ||||||
| 2074 | GO | |||||
| 2075 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 2076 | ||||||
| 2077 | ||||||
| 2078 | GO | |||||
| 2079 | CREATE TAB LE [AHOBPR ].[REGISTR ANT_PHONE] ( | |||||
| 2080 | [REGIS TRANT_PHON E_ID] INT IDENTITY ( 1, 1) NOT NULL, | |||||
| 2081 | [REGIS TRANT_ID] INT NOT NULL, | |||||
| 2082 | [TYPE] VARC HAR (100) NULL, | |||||
| 2083 | [PHONE _NUMBER] VARC HAR (50) NULL, | |||||
| 2084 | [CREAT EDBY] VARC HAR (30) NOT NULL, | |||||
| 2085 | [UPDAT EDBY] VARC HAR (30) NOT NULL, | |||||
| 2086 | [CREAT ED] DATE TIME2 (0) NOT NULL, | |||||
| 2087 | [UPDAT ED] DATE TIME2 (0) NOT NULL, | |||||
| 2088 | [ROW_V ERSION] ROWV ERSION NOT NULL, | |||||
| 2089 | CONSTR AINT [REGI STRANT_PHO NE_ID_PK] PRIMARY KE Y CLUSTERE D ([REGIST RANT_PHONE _ID] ASC) ON [AHOBPR ] | |||||
| 2090 | ); | |||||
| 2091 | ||||||
| 2092 | ||||||
| 2093 | GO | |||||
| 2094 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 2095 | ||||||
| 2096 | ||||||
| 2097 | GO | |||||
| 2098 | PRINT N'Cr eating [AH OBPR].[REG ISTRANT_PH ONE].[IX_R egistrantP hone_Regis trantConta ctInfoId]. ..'; | |||||
| 2099 | ||||||
| 2100 | ||||||
| 2101 | GO | |||||
| 2102 | CREATE NON CLUSTERED INDEX [IX_ Registrant Phone_Regi strantCont actInfoId] | |||||
| 2103 | ON [AH OBPR].[REG ISTRANT_PH ONE]([REGI STRANT_ID] ASC); | |||||
| 2104 | ||||||
| 2105 | ||||||
| 2106 | GO | |||||
| 2107 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _QUESTION] ...'; | |||||
| 2108 | ||||||
| 2109 | ||||||
| 2110 | GO | |||||
| 2111 | CREATE TAB LE [AHOBPR ].[FORM_RE SPONSE_QUE STION] ( | |||||
| 2112 | [FORM_ RESPONSE_Q UESTION_ID ] INT IDEN TITY (1, 1 ) NOT NULL , | |||||
| 2113 | [FORM_ RESPONSE_I D] INT NOT NULL, | |||||
| 2114 | [STD_F ORM_QUESTI ON_ID] INT NOT NULL, | |||||
| 2115 | [REGIS TRANT_DEPL OYMENT_ID] INT NULL , | |||||
| 2116 | [START ED_DATE] DATETIME 2 (0) NOT NULL, | |||||
| 2117 | [COMPL ETED_DATE] DATETIME 2 (0) NULL , | |||||
| 2118 | [CREAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 2119 | [UPDAT EDBY] VARCHAR (30) NOT NULL, | |||||
| 2120 | [CREAT ED] DATETIME 2 (0) NOT NULL, | |||||
| 2121 | [UPDAT ED] DATETIME 2 (0) NOT NULL, | |||||
| 2122 | [ROW_V ERSION] ROWVERSI ON NOT NULL, | |||||
| 2123 | CONSTR AINT [PK_F ORM_RESPON SE_QUESTIO N] PRIMARY KEY CLUST ERED ([FOR M_RESPONSE _QUESTION_ ID] ASC) O N [AHOBPR] | |||||
| 2124 | ); | |||||
| 2125 | ||||||
| 2126 | ||||||
| 2127 | GO | |||||
| 2128 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _QUESTION] .[IX_FORM_ RESPONSE_Q UESTION_Fo rmResponse Id]...'; | |||||
| 2129 | ||||||
| 2130 | ||||||
| 2131 | GO | |||||
| 2132 | CREATE NON CLUSTERED INDEX [IX_ FORM_RESPO NSE_QUESTI ON_FormRes ponseId] | |||||
| 2133 | ON [AH OBPR].[FOR M_RESPONSE _QUESTION] ([FORM_RES PONSE_ID] ASC) | |||||
| 2134 | INCLUD E([STD_FOR M_QUESTION _ID]); | |||||
| 2135 | ||||||
| 2136 | ||||||
| 2137 | GO | |||||
| 2138 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _QUESTION] .[IX_FORM_ RESPONSE_Q UESTION_St dFormQuest ionId]...' ; | |||||
| 2139 | ||||||
| 2140 | ||||||
| 2141 | GO | |||||
| 2142 | CREATE NON CLUSTERED INDEX [IX_ FORM_RESPO NSE_QUESTI ON_StdForm QuestionId ] | |||||
| 2143 | ON [AH OBPR].[FOR M_RESPONSE _QUESTION] ([FORM_RES PONSE_ID] ASC, [STD_ FORM_QUEST ION_ID] AS C) | |||||
| 2144 | INCLUD E([FORM_RE SPONSE_QUE STION_ID]) ; | |||||
| 2145 | ||||||
| 2146 | ||||||
| 2147 | GO | |||||
| 2148 | PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _QUESTION] .[IX_FORM_ RESPONSE_Q UESTION_De ploymentID ]...'; | |||||
| 2149 | ||||||
| 2150 | ||||||
| 2151 | GO | |||||
| 2152 | CREATE NON CLUSTERED INDEX [IX_ FORM_RESPO NSE_QUESTI ON_Deploym entID] | |||||
| 2153 | ON [AH OBPR].[FOR M_RESPONSE _QUESTION] ([REGISTRA NT_DEPLOYM ENT_ID] AS C) | |||||
| 2154 | INCLUD E([FORM_RE SPONSE_QUE STION_ID], [FORM_RES PONSE_ID], [STD_FORM _QUESTION_ ID]); | |||||
| 2155 | ||||||
| 2156 | ||||||
| 2157 | GO | |||||
| 2158 | PRINT N'Cr eating [db o].[STD_IN STITUTION] .[IX_STD_I NSTITUTION _VisnId].. .'; | |||||
| 2159 | ||||||
| 2160 | ||||||
| 2161 | GO | |||||
| 2162 | CREATE NON CLUSTERED INDEX [IX_ STD_INSTIT UTION_Visn Id] | |||||
| 2163 | ON [db o].[STD_IN STITUTION] ([VISN_ID] ASC) | |||||
| 2164 | INCLUD E([ID], [S TATIONNUMB ER]); | |||||
| 2165 | ||||||
| 2166 | ||||||
| 2167 | GO | |||||
| 2168 | PRINT N'Cr eating [AH OBPR].[DF_ STD_CONCEP T_CREATED] ...'; | |||||
| 2169 | ||||||
| 2170 | ||||||
| 2171 | GO | |||||
| 2172 | ALTER TABL E [AHOBPR] .[STD_CONC EPT] | |||||
| 2173 | ADD CO NSTRAINT [ DF_STD_CON CEPT_CREAT ED] DEFAUL T (getdate ()) FOR [C REATED]; | |||||
| 2174 | ||||||
| 2175 | ||||||
| 2176 | GO | |||||
| 2177 | PRINT N'Cr eating [AH OBPR].[DF_ STD_CONCEP T_UPDATED] ...'; | |||||
| 2178 | ||||||
| 2179 | ||||||
| 2180 | GO | |||||
| 2181 | ALTER TABL E [AHOBPR] .[STD_CONC EPT] | |||||
| 2182 | ADD CO NSTRAINT [ DF_STD_CON CEPT_UPDAT ED] DEFAUL T (getdate ()) FOR [U PDATED]; | |||||
| 2183 | ||||||
| 2184 | ||||||
| 2185 | GO | |||||
| 2186 | PRINT N'Cr eating [AH OBPR].[DF_ STD_TERM_C REATED]... '; | |||||
| 2187 | ||||||
| 2188 | ||||||
| 2189 | GO | |||||
| 2190 | ALTER TABL E [AHOBPR] .[STD_TERM ] | |||||
| 2191 | ADD CO NSTRAINT [ DF_STD_TER M_CREATED] DEFAULT ( getdate()) FOR [CREA TED]; | |||||
| 2192 | ||||||
| 2193 | ||||||
| 2194 | GO | |||||
| 2195 | PRINT N'Cr eating [AH OBPR].[DF_ STD_TERM_U PDATED]... '; | |||||
| 2196 | ||||||
| 2197 | ||||||
| 2198 | GO | |||||
| 2199 | ALTER TABL E [AHOBPR] .[STD_TERM ] | |||||
| 2200 | ADD CO NSTRAINT [ DF_STD_TER M_UPDATED] DEFAULT ( getdate()) FOR [UPDA TED]; | |||||
| 2201 | ||||||
| 2202 | ||||||
| 2203 | GO | |||||
| 2204 | PRINT N'Cr eating [AH OBPR].[DF_ FormRespon se_Created ]...'; | |||||
| 2205 | ||||||
| 2206 | ||||||
| 2207 | GO | |||||
| 2208 | ALTER TABL E [AHOBPR] .[FORM_RES PONSE] | |||||
| 2209 | ADD CO NSTRAINT [ DF_FormRes ponse_Crea ted] DEFAU LT (getdat e()) FOR [ CREATED]; | |||||
| 2210 | ||||||
| 2211 | ||||||
| 2212 | GO | |||||
| 2213 | PRINT N'Cr eating [AH OBPR].[DF_ FormRespon se_Updated ]...'; | |||||
| 2214 | ||||||
| 2215 | ||||||
| 2216 | GO | |||||
| 2217 | ALTER TABL E [AHOBPR] .[FORM_RES PONSE] | |||||
| 2218 | ADD CO NSTRAINT [ DF_FormRes ponse_Upda ted] DEFAU LT (getdat e()) FOR [ UPDATED]; | |||||
| 2219 | ||||||
| 2220 | ||||||
| 2221 | GO | |||||
| 2222 | PRINT N'Cr eating [AH OBPR].[DF_ StdFormAns wer_Create d]...'; | |||||
| 2223 | ||||||
| 2224 | ||||||
| 2225 | GO | |||||
| 2226 | ALTER TABL E [AHOBPR] .[STD_FORM _ANSWER] | |||||
| 2227 | ADD CO NSTRAINT [ DF_StdForm Answer_Cre ated] DEFA ULT getdat e() FOR [C REATED]; | |||||
| 2228 | ||||||
| 2229 | ||||||
| 2230 | GO | |||||
| 2231 | PRINT N'Cr eating [AH OBPR].[DF_ StdFormAns wer_Update d]...'; | |||||
| 2232 | ||||||
| 2233 | ||||||
| 2234 | GO | |||||
| 2235 | ALTER TABL E [AHOBPR] .[STD_FORM _ANSWER] | |||||
| 2236 | ADD CO NSTRAINT [ DF_StdForm Answer_Upd ated] DEFA ULT getdat e() FOR [U PDATED]; | |||||
| 2237 | ||||||
| 2238 | ||||||
| 2239 | GO | |||||
| 2240 | PRINT N'Cr eating [AH OBPR].[DF_ StdFormAns werField_C reated]... '; | |||||
| 2241 | ||||||
| 2242 | ||||||
| 2243 | GO | |||||
| 2244 | ALTER TABL E [AHOBPR] .[STD_FORM _ANSWER_FI ELD] | |||||
| 2245 | ADD CO NSTRAINT [ DF_StdForm AnswerFiel d_Created] DEFAULT g etdate() F OR [CREATE D]; | |||||
| 2246 | ||||||
| 2247 | ||||||
| 2248 | GO | |||||
| 2249 | PRINT N'Cr eating [AH OBPR].[DF_ StdFormAns werField_U pdated]... '; | |||||
| 2250 | ||||||
| 2251 | ||||||
| 2252 | GO | |||||
| 2253 | ALTER TABL E [AHOBPR] .[STD_FORM _ANSWER_FI ELD] | |||||
| 2254 | ADD CO NSTRAINT [ DF_StdForm AnswerFiel d_Updated] DEFAULT g etdate() F OR [UPDATE D]; | |||||
| 2255 | ||||||
| 2256 | ||||||
| 2257 | GO | |||||
| 2258 | PRINT N'Cr eating [AH OBPR].[DF_ StdFormSec tion_Creat ed]...'; | |||||
| 2259 | ||||||
| 2260 | ||||||
| 2261 | GO | |||||
| 2262 | ALTER TABL E [AHOBPR] .[STD_FORM _SECTION] | |||||
| 2263 | ADD CO NSTRAINT [ DF_StdForm Section_Cr eated] DEF AULT getda te() FOR [ CREATED]; | |||||
| 2264 | ||||||
| 2265 | ||||||
| 2266 | GO | |||||
| 2267 | PRINT N'Cr eating [AH OBPR].[DF_ StdFormSec tion_Updat ed]...'; | |||||
| 2268 | ||||||
| 2269 | ||||||
| 2270 | GO | |||||
| 2271 | ALTER TABL E [AHOBPR] .[STD_FORM _SECTION] | |||||
| 2272 | ADD CO NSTRAINT [ DF_StdForm Section_Up dated] DEF AULT getda te() FOR [ UPDATED]; | |||||
| 2273 | ||||||
| 2274 | ||||||
| 2275 | GO | |||||
| 2276 | PRINT N'Cr eating [AH OBPR].[DF_ StdFormSub Section_Cr eated]...' ; | |||||
| 2277 | ||||||
| 2278 | ||||||
| 2279 | GO | |||||
| 2280 | ALTER TABL E [AHOBPR] .[STD_FORM _SUB_SECTI ON] | |||||
| 2281 | ADD CO NSTRAINT [ DF_StdForm SubSection _Created] DEFAULT ge tdate() FO R [CREATED ]; | |||||
| 2282 | ||||||
| 2283 | ||||||
| 2284 | GO | |||||
| 2285 | PRINT N'Cr eating [AH OBPR].[DF_ StdFormSub Section_Up dated]...' ; | |||||
| 2286 | ||||||
| 2287 | ||||||
| 2288 | GO | |||||
| 2289 | ALTER TABL E [AHOBPR] .[STD_FORM _SUB_SECTI ON] | |||||
| 2290 | ADD CO NSTRAINT [ DF_StdForm SubSection _Updated] DEFAULT ge tdate() FO R [UPDATED ]; | |||||
| 2291 | ||||||
| 2292 | ||||||
| 2293 | GO | |||||
| 2294 | PRINT N'Cr eating [AH OBPR].[DF_ StdRegistr antStatus_ Created].. .'; | |||||
| 2295 | ||||||
| 2296 | ||||||
| 2297 | GO | |||||
| 2298 | ALTER TABL E [AHOBPR] .[STD_REGI STRANT_STA TUS] | |||||
| 2299 | ADD CO NSTRAINT [ DF_StdRegi strantStat us_Created ] DEFAULT getdate() FOR [CREAT ED]; | |||||
| 2300 | ||||||
| 2301 | ||||||
| 2302 | GO | |||||
| 2303 | PRINT N'Cr eating [AH OBPR].[DF_ StdRegistr antStatus_ Updated].. .'; | |||||
| 2304 | ||||||
| 2305 | ||||||
| 2306 | GO | |||||
| 2307 | ALTER TABL E [AHOBPR] .[STD_REGI STRANT_STA TUS] | |||||
| 2308 | ADD CO NSTRAINT [ DF_StdRegi strantStat us_Updated ] DEFAULT getdate() FOR [UPDAT ED]; | |||||
| 2309 | ||||||
| 2310 | ||||||
| 2311 | GO | |||||
| 2312 | PRINT N'Cr eating [AH OBPR].[DF_ STD_REGIST RY_FLAG_AC TIVE_FLAG] ...'; | |||||
| 2313 | ||||||
| 2314 | ||||||
| 2315 | GO | |||||
| 2316 | ALTER TABL E [AHOBPR] .[STD_REGI STRY_FLAG] | |||||
| 2317 | ADD CO NSTRAINT [ DF_STD_REG ISTRY_FLAG _ACTIVE_FL AG] DEFAUL T ((1)) FO R [ACTIVE_ FLAG]; | |||||
| 2318 | ||||||
| 2319 | ||||||
| 2320 | GO | |||||
| 2321 | PRINT N'Cr eating [AH OBPR].[DF_ STD_REGIST RY_FLAG_PR EDEFINED]. ..'; | |||||
| 2322 | ||||||
| 2323 | ||||||
| 2324 | GO | |||||
| 2325 | ALTER TABL E [AHOBPR] .[STD_REGI STRY_FLAG] | |||||
| 2326 | ADD CO NSTRAINT [ DF_STD_REG ISTRY_FLAG _PREDEFINE D] DEFAULT ((0)) FOR [PREDEFIN ED]; | |||||
| 2327 | ||||||
| 2328 | ||||||
| 2329 | GO | |||||
| 2330 | PRINT N'Cr eating [AH OBPR].[DF_ StdRegistr yFlag_Crea ted]...'; | |||||
| 2331 | ||||||
| 2332 | ||||||
| 2333 | GO | |||||
| 2334 | ALTER TABL E [AHOBPR] .[STD_REGI STRY_FLAG] | |||||
| 2335 | ADD CO NSTRAINT [ DF_StdRegi stryFlag_C reated] DE FAULT (get date()) FO R [CREATED ]; | |||||
| 2336 | ||||||
| 2337 | ||||||
| 2338 | GO | |||||
| 2339 | PRINT N'Cr eating [AH OBPR].[DF_ StdRegistr yFlag_Upda ted]...'; | |||||
| 2340 | ||||||
| 2341 | ||||||
| 2342 | GO | |||||
| 2343 | ALTER TABL E [AHOBPR] .[STD_REGI STRY_FLAG] | |||||
| 2344 | ADD CO NSTRAINT [ DF_StdRegi stryFlag_U pdated] DE FAULT (get date()) FO R [UPDATED ]; | |||||
| 2345 | ||||||
| 2346 | ||||||
| 2347 | GO | |||||
| 2348 | PRINT N'Cr eating [AH OBPR].[DF_ StdRegistr yFlagType_ Created].. .'; | |||||
| 2349 | ||||||
| 2350 | ||||||
| 2351 | GO | |||||
| 2352 | ALTER TABL E [AHOBPR] .[STD_REGI STRY_FLAG_ TYPE] | |||||
| 2353 | ADD CO NSTRAINT [ DF_StdRegi stryFlagTy pe_Created ] DEFAULT (getdate() ) FOR [CRE ATED]; | |||||
| 2354 | ||||||
| 2355 | ||||||
| 2356 | GO | |||||
| 2357 | PRINT N'Cr eating [AH OBPR].[DF_ StdRegistr yFlagType_ Updated].. .'; | |||||
| 2358 | ||||||
| 2359 | ||||||
| 2360 | GO | |||||
| 2361 | ALTER TABL E [AHOBPR] .[STD_REGI STRY_FLAG_ TYPE] | |||||
| 2362 | ADD CO NSTRAINT [ DF_StdRegi stryFlagTy pe_Updated ] DEFAULT (getdate() ) FOR [UPD ATED]; | |||||
| 2363 | ||||||
| 2364 | ||||||
| 2365 | GO | |||||
| 2366 | PRINT N'Cr eating [AH OBPR].[DF_ STD_REGIST RY_FLAG_TY PE_ACTIVE_ FLAG]...'; | |||||
| 2367 | ||||||
| 2368 | ||||||
| 2369 | GO | |||||
| 2370 | ALTER TABL E [AHOBPR] .[STD_REGI STRY_FLAG_ TYPE] | |||||
| 2371 | ADD CO NSTRAINT [ DF_STD_REG ISTRY_FLAG _TYPE_ACTI VE_FLAG] D EFAULT ((1 )) FOR [AC TIVE_FLAG] ; | |||||
| 2372 | ||||||
| 2373 | ||||||
| 2374 | GO | |||||
| 2375 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant RegistryFl ag_Created ]...'; | |||||
| 2376 | ||||||
| 2377 | ||||||
| 2378 | GO | |||||
| 2379 | ALTER TABL E [AHOBPR] .[REGISTRA NT_REGISTR Y_FLAG] | |||||
| 2380 | ADD CO NSTRAINT [ DF_Registr antRegistr yFlag_Crea ted] DEFAU LT (getdat e()) FOR [ CREATED]; | |||||
| 2381 | ||||||
| 2382 | ||||||
| 2383 | GO | |||||
| 2384 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant RegistryFl ag_Updated ]...'; | |||||
| 2385 | ||||||
| 2386 | ||||||
| 2387 | GO | |||||
| 2388 | ALTER TABL E [AHOBPR] .[REGISTRA NT_REGISTR Y_FLAG] | |||||
| 2389 | ADD CO NSTRAINT [ DF_Registr antRegistr yFlag_Upda ted] DEFAU LT (getdat e()) FOR [ UPDATED]; | |||||
| 2390 | ||||||
| 2391 | ||||||
| 2392 | GO | |||||
| 2393 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant Email_Crea ted]...'; | |||||
| 2394 | ||||||
| 2395 | ||||||
| 2396 | GO | |||||
| 2397 | ALTER TABL E [AHOBPR] .[REGISTRA NT_EMAIL] | |||||
| 2398 | ADD CO NSTRAINT [ DF_Registr antEmail_C reated] DE FAULT (get date()) FO R [CREATED ]; | |||||
| 2399 | ||||||
| 2400 | ||||||
| 2401 | GO | |||||
| 2402 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant Email_Upda ted]...'; | |||||
| 2403 | ||||||
| 2404 | ||||||
| 2405 | GO | |||||
| 2406 | ALTER TABL E [AHOBPR] .[REGISTRA NT_EMAIL] | |||||
| 2407 | ADD CO NSTRAINT [ DF_Registr antEmail_U pdated] DE FAULT (get date()) FO R [UPDATED ]; | |||||
| 2408 | ||||||
| 2409 | ||||||
| 2410 | GO | |||||
| 2411 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant ContactInf o_Created] ...'; | |||||
| 2412 | ||||||
| 2413 | ||||||
| 2414 | GO | |||||
| 2415 | SET QUOTED _IDENTIFIE R ON; | |||||
| 2416 | ||||||
| 2417 | SET ANSI_N ULLS OFF; | |||||
| 2418 | ||||||
| 2419 | ||||||
| 2420 | GO | |||||
| 2421 | ALTER TABL E [AHOBPR] .[REGISTRA NT_CONTACT _INFO] | |||||
| 2422 | ADD CO NSTRAINT [ DF_Registr antContact Info_Creat ed] DEFAUL T (getdate ()) FOR [C REATED]; | |||||
| 2423 | ||||||
| 2424 | ||||||
| 2425 | GO | |||||
| 2426 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 2427 | ||||||
| 2428 | ||||||
| 2429 | GO | |||||
| 2430 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant ContactInf o_Updated] ...'; | |||||
| 2431 | ||||||
| 2432 | ||||||
| 2433 | GO | |||||
| 2434 | SET QUOTED _IDENTIFIE R ON; | |||||
| 2435 | ||||||
| 2436 | SET ANSI_N ULLS OFF; | |||||
| 2437 | ||||||
| 2438 | ||||||
| 2439 | GO | |||||
| 2440 | ALTER TABL E [AHOBPR] .[REGISTRA NT_CONTACT _INFO] | |||||
| 2441 | ADD CO NSTRAINT [ DF_Registr antContact Info_Updat ed] DEFAUL T (getdate ()) FOR [U PDATED]; | |||||
| 2442 | ||||||
| 2443 | ||||||
| 2444 | GO | |||||
| 2445 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 2446 | ||||||
| 2447 | ||||||
| 2448 | GO | |||||
| 2449 | PRINT N'Cr eating [AH OBPR].[DF_ StdHealthF actorCateg ory_Active Flag]...'; | |||||
| 2450 | ||||||
| 2451 | ||||||
| 2452 | GO | |||||
| 2453 | SET QUOTED _IDENTIFIE R ON; | |||||
| 2454 | ||||||
| 2455 | SET ANSI_N ULLS OFF; | |||||
| 2456 | ||||||
| 2457 | ||||||
| 2458 | GO | |||||
| 2459 | ALTER TABL E [AHOBPR] .[STD_HEAL TH_FACTOR_ CATEGORY] | |||||
| 2460 | ADD CO NSTRAINT [ DF_StdHeal thFactorCa tegory_Act iveFlag] D EFAULT ((1 )) FOR [AC TIVE_FLAG] ; | |||||
| 2461 | ||||||
| 2462 | ||||||
| 2463 | GO | |||||
| 2464 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 2465 | ||||||
| 2466 | ||||||
| 2467 | GO | |||||
| 2468 | PRINT N'Cr eating [AH OBPR].[DF_ StdHealthF actorCateg ory_Create d]...'; | |||||
| 2469 | ||||||
| 2470 | ||||||
| 2471 | GO | |||||
| 2472 | SET QUOTED _IDENTIFIE R ON; | |||||
| 2473 | ||||||
| 2474 | SET ANSI_N ULLS OFF; | |||||
| 2475 | ||||||
| 2476 | ||||||
| 2477 | GO | |||||
| 2478 | ALTER TABL E [AHOBPR] .[STD_HEAL TH_FACTOR_ CATEGORY] | |||||
| 2479 | ADD CO NSTRAINT [ DF_StdHeal thFactorCa tegory_Cre ated] DEFA ULT (getda te()) FOR [CREATED]; | |||||
| 2480 | ||||||
| 2481 | ||||||
| 2482 | GO | |||||
| 2483 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 2484 | ||||||
| 2485 | ||||||
| 2486 | GO | |||||
| 2487 | PRINT N'Cr eating [AH OBPR].[DF_ StdHealthF actorCateg ory_Update d]...'; | |||||
| 2488 | ||||||
| 2489 | ||||||
| 2490 | GO | |||||
| 2491 | SET QUOTED _IDENTIFIE R ON; | |||||
| 2492 | ||||||
| 2493 | SET ANSI_N ULLS OFF; | |||||
| 2494 | ||||||
| 2495 | ||||||
| 2496 | GO | |||||
| 2497 | ALTER TABL E [AHOBPR] .[STD_HEAL TH_FACTOR_ CATEGORY] | |||||
| 2498 | ADD CO NSTRAINT [ DF_StdHeal thFactorCa tegory_Upd ated] DEFA ULT (getda te()) FOR [UPDATED]; | |||||
| 2499 | ||||||
| 2500 | ||||||
| 2501 | GO | |||||
| 2502 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 2503 | ||||||
| 2504 | ||||||
| 2505 | GO | |||||
| 2506 | PRINT N'Cr eating [AH OBPR].[DF_ StdHealthF actor_Acti veFlag]... '; | |||||
| 2507 | ||||||
| 2508 | ||||||
| 2509 | GO | |||||
| 2510 | ALTER TABL E [AHOBPR] .[STD_HEAL TH_FACTOR] | |||||
| 2511 | ADD CO NSTRAINT [ DF_StdHeal thFactor_A ctiveFlag] DEFAULT 1 FOR [ACTI VE_FLAG]; | |||||
| 2512 | ||||||
| 2513 | ||||||
| 2514 | GO | |||||
| 2515 | PRINT N'Cr eating [AH OBPR].[DF_ StdHealthF actor_Crea ted]...'; | |||||
| 2516 | ||||||
| 2517 | ||||||
| 2518 | GO | |||||
| 2519 | ALTER TABL E [AHOBPR] .[STD_HEAL TH_FACTOR] | |||||
| 2520 | ADD CO NSTRAINT [ DF_StdHeal thFactor_C reated] DE FAULT getd ate() FOR [CREATED]; | |||||
| 2521 | ||||||
| 2522 | ||||||
| 2523 | GO | |||||
| 2524 | PRINT N'Cr eating [AH OBPR].[DF_ StdHealthF actor_Upda ted]...'; | |||||
| 2525 | ||||||
| 2526 | ||||||
| 2527 | GO | |||||
| 2528 | ALTER TABL E [AHOBPR] .[STD_HEAL TH_FACTOR] | |||||
| 2529 | ADD CO NSTRAINT [ DF_StdHeal thFactor_U pdated] DE FAULT getd ate() FOR [UPDATED]; | |||||
| 2530 | ||||||
| 2531 | ||||||
| 2532 | GO | |||||
| 2533 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant HealthFact or_Active] ...'; | |||||
| 2534 | ||||||
| 2535 | ||||||
| 2536 | GO | |||||
| 2537 | SET QUOTED _IDENTIFIE R ON; | |||||
| 2538 | ||||||
| 2539 | SET ANSI_N ULLS OFF; | |||||
| 2540 | ||||||
| 2541 | ||||||
| 2542 | GO | |||||
| 2543 | ALTER TABL E [AHOBPR] .[REGISTRA NT_HEALTH_ FACTOR] | |||||
| 2544 | ADD CO NSTRAINT [ DF_Registr antHealthF actor_Acti ve] DEFAUL T ((1)) FO R [ACTIVE_ FLAG]; | |||||
| 2545 | ||||||
| 2546 | ||||||
| 2547 | GO | |||||
| 2548 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 2549 | ||||||
| 2550 | ||||||
| 2551 | GO | |||||
| 2552 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant HealthFact or_Created ]...'; | |||||
| 2553 | ||||||
| 2554 | ||||||
| 2555 | GO | |||||
| 2556 | SET QUOTED _IDENTIFIE R ON; | |||||
| 2557 | ||||||
| 2558 | SET ANSI_N ULLS OFF; | |||||
| 2559 | ||||||
| 2560 | ||||||
| 2561 | GO | |||||
| 2562 | ALTER TABL E [AHOBPR] .[REGISTRA NT_HEALTH_ FACTOR] | |||||
| 2563 | ADD CO NSTRAINT [ DF_Registr antHealthF actor_Crea ted] DEFAU LT (getdat e()) FOR [ CREATED]; | |||||
| 2564 | ||||||
| 2565 | ||||||
| 2566 | GO | |||||
| 2567 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 2568 | ||||||
| 2569 | ||||||
| 2570 | GO | |||||
| 2571 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant HealthFact or_Updated ]...'; | |||||
| 2572 | ||||||
| 2573 | ||||||
| 2574 | GO | |||||
| 2575 | SET QUOTED _IDENTIFIE R ON; | |||||
| 2576 | ||||||
| 2577 | SET ANSI_N ULLS OFF; | |||||
| 2578 | ||||||
| 2579 | ||||||
| 2580 | GO | |||||
| 2581 | ALTER TABL E [AHOBPR] .[REGISTRA NT_HEALTH_ FACTOR] | |||||
| 2582 | ADD CO NSTRAINT [ DF_Registr antHealthF actor_Upda ted] DEFAU LT (getdat e()) FOR [ UPDATED]; | |||||
| 2583 | ||||||
| 2584 | ||||||
| 2585 | GO | |||||
| 2586 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 2587 | ||||||
| 2588 | ||||||
| 2589 | GO | |||||
| 2590 | PRINT N'Cr eating [AH OBPR].[DF_ ErrorLog_C reated]... '; | |||||
| 2591 | ||||||
| 2592 | ||||||
| 2593 | GO | |||||
| 2594 | ALTER TABL E [AHOBPR] .[ERROR_LO G] | |||||
| 2595 | ADD CO NSTRAINT [ DF_ErrorLo g_Created] DEFAULT g etdate() F OR [CREATE D]; | |||||
| 2596 | ||||||
| 2597 | ||||||
| 2598 | GO | |||||
| 2599 | PRINT N'Cr eating [AH OBPR].[DF_ ErrorLog_U pdated]... '; | |||||
| 2600 | ||||||
| 2601 | ||||||
| 2602 | GO | |||||
| 2603 | ALTER TABL E [AHOBPR] .[ERROR_LO G] | |||||
| 2604 | ADD CO NSTRAINT [ DF_ErrorLo g_Updated] DEFAULT g etdate() F OR [UPDATE D]; | |||||
| 2605 | ||||||
| 2606 | ||||||
| 2607 | GO | |||||
| 2608 | PRINT N'Cr eating [AH OBPR].[DF_ StdDeploym entLocatio n_UserAdde dFlag]...' ; | |||||
| 2609 | ||||||
| 2610 | ||||||
| 2611 | GO | |||||
| 2612 | ALTER TABL E [AHOBPR] .[STD_DEPL OYMENT_LOC ATION] | |||||
| 2613 | ADD CO NSTRAINT [ DF_StdDepl oymentLoca tion_UserA ddedFlag] DEFAULT 0 FOR [USER_ ADDED_FLAG ]; | |||||
| 2614 | ||||||
| 2615 | ||||||
| 2616 | GO | |||||
| 2617 | PRINT N'Cr eating [AH OBPR].[DF_ STD_TERM_A NS_CREATED ]...'; | |||||
| 2618 | ||||||
| 2619 | ||||||
| 2620 | GO | |||||
| 2621 | ALTER TABL E [AHOBPR] .[STD_TERM _ANSWER] | |||||
| 2622 | ADD CO NSTRAINT [ DF_STD_TER M_ANS_CREA TED] DEFAU LT (getdat e()) FOR [ CREATED]; | |||||
| 2623 | ||||||
| 2624 | ||||||
| 2625 | GO | |||||
| 2626 | PRINT N'Cr eating [AH OBPR].[DF_ STD_TERM_A NS_UPDATED ]...'; | |||||
| 2627 | ||||||
| 2628 | ||||||
| 2629 | GO | |||||
| 2630 | ALTER TABL E [AHOBPR] .[STD_TERM _ANSWER] | |||||
| 2631 | ADD CO NSTRAINT [ DF_STD_TER M_ANS_UPDA TED] DEFAU LT (getdat e()) FOR [ UPDATED]; | |||||
| 2632 | ||||||
| 2633 | ||||||
| 2634 | GO | |||||
| 2635 | PRINT N'Cr eating [AH OBPR].[DF_ EMAIL_TEMP LATES_Acti ve]...'; | |||||
| 2636 | ||||||
| 2637 | ||||||
| 2638 | GO | |||||
| 2639 | ALTER TABL E [AHOBPR] .[EMAIL_TE MPLATES] | |||||
| 2640 | ADD CO NSTRAINT [ DF_EMAIL_T EMPLATES_A ctive] DEF AULT ((0)) FOR [ACTI VE]; | |||||
| 2641 | ||||||
| 2642 | ||||||
| 2643 | GO | |||||
| 2644 | PRINT N'Cr eating [AH OBPR].[DF_ EMAIL_TEMP LATES_CREA TED]...'; | |||||
| 2645 | ||||||
| 2646 | ||||||
| 2647 | GO | |||||
| 2648 | ALTER TABL E [AHOBPR] .[EMAIL_TE MPLATES] | |||||
| 2649 | ADD CO NSTRAINT [ DF_EMAIL_T EMPLATES_C REATED] DE FAULT (get date()) FO R [CREATED ]; | |||||
| 2650 | ||||||
| 2651 | ||||||
| 2652 | GO | |||||
| 2653 | PRINT N'Cr eating [AH OBPR].[DF_ EMAIL_TEMP LATES_UPDA TED]...'; | |||||
| 2654 | ||||||
| 2655 | ||||||
| 2656 | GO | |||||
| 2657 | ALTER TABL E [AHOBPR] .[EMAIL_TE MPLATES] | |||||
| 2658 | ADD CO NSTRAINT [ DF_EMAIL_T EMPLATES_U PDATED] DE FAULT (get date()) FO R [UPDATED ]; | |||||
| 2659 | ||||||
| 2660 | ||||||
| 2661 | GO | |||||
| 2662 | PRINT N'Cr eating [AH OBPR].[DF_ EMAIL_LOG_ CREATED].. .'; | |||||
| 2663 | ||||||
| 2664 | ||||||
| 2665 | GO | |||||
| 2666 | ALTER TABL E [AHOBPR] .[EMAIL_LO G] | |||||
| 2667 | ADD CO NSTRAINT [ DF_EMAIL_L OG_CREATED ] DEFAULT (getdate() ) FOR [CRE ATED]; | |||||
| 2668 | ||||||
| 2669 | ||||||
| 2670 | GO | |||||
| 2671 | PRINT N'Cr eating [AH OBPR].[DF_ EMAIL_LOG_ UPDATED].. .'; | |||||
| 2672 | ||||||
| 2673 | ||||||
| 2674 | GO | |||||
| 2675 | ALTER TABL E [AHOBPR] .[EMAIL_LO G] | |||||
| 2676 | ADD CO NSTRAINT [ DF_EMAIL_L OG_UPDATED ] DEFAULT (getdate() ) FOR [UPD ATED]; | |||||
| 2677 | ||||||
| 2678 | ||||||
| 2679 | GO | |||||
| 2680 | PRINT N'Cr eating [AH OBPR].[DF_ EMAIL_LOG_ EMAIL_SENT ]...'; | |||||
| 2681 | ||||||
| 2682 | ||||||
| 2683 | GO | |||||
| 2684 | ALTER TABL E [AHOBPR] .[EMAIL_LO G] | |||||
| 2685 | ADD CO NSTRAINT [ DF_EMAIL_L OG_EMAIL_S ENT] DEFAU LT (getdat e()) FOR [ EMAIL_SENT ]; | |||||
| 2686 | ||||||
| 2687 | ||||||
| 2688 | GO | |||||
| 2689 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant FileId]... '; | |||||
| 2690 | ||||||
| 2691 | ||||||
| 2692 | GO | |||||
| 2693 | ALTER TABL E [AHOBPR] .[REGISTRA NT_FILE] | |||||
| 2694 | ADD CO NSTRAINT [ DF_Registr antFileId] DEFAULT n ewid() FOR [REGISTRA NT_FILE_ID ]; | |||||
| 2695 | ||||||
| 2696 | ||||||
| 2697 | GO | |||||
| 2698 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant Visit_Eval uationFlag ]...'; | |||||
| 2699 | ||||||
| 2700 | ||||||
| 2701 | GO | |||||
| 2702 | ALTER TABL E [AHOBPR] .[REGISTRA NT_VISIT] | |||||
| 2703 | ADD CO NSTRAINT [ DF_Registr antVisit_E valuationF lag] DEFAU LT 'N' FOR [EVALUATI ON_FLAG]; | |||||
| 2704 | ||||||
| 2705 | ||||||
| 2706 | GO | |||||
| 2707 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant Visit_Crea ted]...'; | |||||
| 2708 | ||||||
| 2709 | ||||||
| 2710 | GO | |||||
| 2711 | ALTER TABL E [AHOBPR] .[REGISTRA NT_VISIT] | |||||
| 2712 | ADD CO NSTRAINT [ DF_Registr antVisit_C reated] DE FAULT (get date()) FO R [CREATED ]; | |||||
| 2713 | ||||||
| 2714 | ||||||
| 2715 | GO | |||||
| 2716 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant Visit_Upda ted]...'; | |||||
| 2717 | ||||||
| 2718 | ||||||
| 2719 | GO | |||||
| 2720 | ALTER TABL E [AHOBPR] .[REGISTRA NT_VISIT] | |||||
| 2721 | ADD CO NSTRAINT [ DF_Registr antVisit_U pdated] DE FAULT (get date()) FO R [UPDATED ]; | |||||
| 2722 | ||||||
| 2723 | ||||||
| 2724 | GO | |||||
| 2725 | PRINT N'Cr eating [AH OBPR].[DF_ STD_TERM_Q STN_CREATE D]...'; | |||||
| 2726 | ||||||
| 2727 | ||||||
| 2728 | GO | |||||
| 2729 | ALTER TABL E [AHOBPR] .[STD_TERM _QUESTION] | |||||
| 2730 | ADD CO NSTRAINT [ DF_STD_TER M_QSTN_CRE ATED] DEFA ULT (getda te()) FOR [CREATED]; | |||||
| 2731 | ||||||
| 2732 | ||||||
| 2733 | GO | |||||
| 2734 | PRINT N'Cr eating [AH OBPR].[DF_ STD_TERM_Q STN_UPDATE D]...'; | |||||
| 2735 | ||||||
| 2736 | ||||||
| 2737 | GO | |||||
| 2738 | ALTER TABL E [AHOBPR] .[STD_TERM _QUESTION] | |||||
| 2739 | ADD CO NSTRAINT [ DF_STD_TER M_QSTN_UPD ATED] DEFA ULT (getda te()) FOR [UPDATED]; | |||||
| 2740 | ||||||
| 2741 | ||||||
| 2742 | GO | |||||
| 2743 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant _DeceasedF lag]...'; | |||||
| 2744 | ||||||
| 2745 | ||||||
| 2746 | GO | |||||
| 2747 | ALTER TABL E [AHOBPR] .[REGISTRA NT] | |||||
| 2748 | ADD CO NSTRAINT [ DF_Registr ant_Deceas edFlag] DE FAULT ((0) ) FOR [DEC EASED_FLAG ]; | |||||
| 2749 | ||||||
| 2750 | ||||||
| 2751 | GO | |||||
| 2752 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant Phone_Crea ted]...'; | |||||
| 2753 | ||||||
| 2754 | ||||||
| 2755 | GO | |||||
| 2756 | ALTER TABL E [AHOBPR] .[REGISTRA NT_PHONE] | |||||
| 2757 | ADD CO NSTRAINT [ DF_Registr antPhone_C reated] DE FAULT (get date()) FO R [CREATED ]; | |||||
| 2758 | ||||||
| 2759 | ||||||
| 2760 | GO | |||||
| 2761 | PRINT N'Cr eating [AH OBPR].[DF_ Registrant Phone_Upda ted]...'; | |||||
| 2762 | ||||||
| 2763 | ||||||
| 2764 | GO | |||||
| 2765 | ALTER TABL E [AHOBPR] .[REGISTRA NT_PHONE] | |||||
| 2766 | ADD CO NSTRAINT [ DF_Registr antPhone_U pdated] DE FAULT (get date()) FO R [UPDATED ]; | |||||
| 2767 | ||||||
| 2768 | ||||||
| 2769 | GO | |||||
| 2770 | PRINT N'Cr eating [AH OBPR].[FK_ STD_TERM_S TD_CONCEPT ]...'; | |||||
| 2771 | ||||||
| 2772 | ||||||
| 2773 | GO | |||||
| 2774 | ALTER TABL E [AHOBPR] .[STD_TERM ] WITH NOC HECK | |||||
| 2775 | ADD CO NSTRAINT [ FK_STD_TER M_STD_CONC EPT] FOREI GN KEY ([S TD_CONCEPT _ID]) REFE RENCES [AH OBPR].[STD _CONCEPT] ([STD_CONC EPT_ID]); | |||||
| 2776 | ||||||
| 2777 | ||||||
| 2778 | GO | |||||
| 2779 | PRINT N'Cr eating [AH OBPR].[FK_ STD_TERM_S YSTEM_STD_ TERM]...'; | |||||
| 2780 | ||||||
| 2781 | ||||||
| 2782 | GO | |||||
| 2783 | ALTER TABL E [AHOBPR] .[STD_TERM ] WITH NOC HECK | |||||
| 2784 | ADD CO NSTRAINT [ FK_STD_TER M_SYSTEM_S TD_TERM] F OREIGN KEY ([SYSTEM_ STD_TERM_I D]) REFERE NCES [AHOB PR].[STD_T ERM] ([STD _TERM_ID]) ; | |||||
| 2785 | ||||||
| 2786 | ||||||
| 2787 | GO | |||||
| 2788 | PRINT N'Cr eating [AH OBPR].[FK_ FORM_RESPO NSE_REGIST RANT]...'; | |||||
| 2789 | ||||||
| 2790 | ||||||
| 2791 | GO | |||||
| 2792 | ALTER TABL E [AHOBPR] .[FORM_RES PONSE] WIT H NOCHECK | |||||
| 2793 | ADD CO NSTRAINT [ FK_FORM_RE SPONSE_REG ISTRANT] F OREIGN KEY ([REGISTR ANT_ID]) R EFERENCES [AHOBPR].[ REGISTRANT ] ([REGIST RANT_ID]); | |||||
| 2794 | ||||||
| 2795 | ||||||
| 2796 | GO | |||||
| 2797 | PRINT N'Cr eating [AH OBPR].[FK_ FORM_RESPO NSE_STD_FO RM]...'; | |||||
| 2798 | ||||||
| 2799 | ||||||
| 2800 | GO | |||||
| 2801 | ALTER TABL E [AHOBPR] .[FORM_RES PONSE] WIT H NOCHECK | |||||
| 2802 | ADD CO NSTRAINT [ FK_FORM_RE SPONSE_STD _FORM] FOR EIGN KEY ( [STD_FORM_ ID]) REFER ENCES [AHO BPR].[STD_ FORM] ([ST D_FORM_ID] ); | |||||
| 2803 | ||||||
| 2804 | ||||||
| 2805 | GO | |||||
| 2806 | PRINT N'Cr eating [AH OBPR].[FK_ FORM_RESPO NSE_ANSWER _FORM_RESP ONSE_DETAI L]...'; | |||||
| 2807 | ||||||
| 2808 | ||||||
| 2809 | GO | |||||
| 2810 | ALTER TABL E [AHOBPR] .[FORM_RES PONSE_ANSW ER] WITH N OCHECK | |||||
| 2811 | ADD CO NSTRAINT [ FK_FORM_RE SPONSE_ANS WER_FORM_R ESPONSE_DE TAIL] FORE IGN KEY ([ FORM_RESPO NSE_QUESTI ON_ID]) RE FERENCES [ AHOBPR].[F ORM_RESPON SE_QUESTIO N] ([FORM_ RESPONSE_Q UESTION_ID ]); | |||||
| 2812 | ||||||
| 2813 | ||||||
| 2814 | GO | |||||
| 2815 | PRINT N'Cr eating [AH OBPR].[FK_ FORM_RESPO NSE_ANSWER _STD_FORM_ ANSWER]... '; | |||||
| 2816 | ||||||
| 2817 | ||||||
| 2818 | GO | |||||
| 2819 | ALTER TABL E [AHOBPR] .[FORM_RES PONSE_ANSW ER] WITH N OCHECK | |||||
| 2820 | ADD CO NSTRAINT [ FK_FORM_RE SPONSE_ANS WER_STD_FO RM_ANSWER] FOREIGN K EY ([STD_F ORM_ANSWER _ID]) REFE RENCES [AH OBPR].[STD _FORM_ANSW ER] ([STD_ FORM_ANSWE R_ID]); | |||||
| 2821 | ||||||
| 2822 | ||||||
| 2823 | GO | |||||
| 2824 | PRINT N'Cr eating [AH OBPR].[FK_ FORM_RESPO NSE_STATUS _FORM_RESP ONSE]...'; | |||||
| 2825 | ||||||
| 2826 | ||||||
| 2827 | GO | |||||
| 2828 | ALTER TABL E [AHOBPR] .[FORM_RES PONSE_STAT US] WITH N OCHECK | |||||
| 2829 | ADD CO NSTRAINT [ FK_FORM_RE SPONSE_STA TUS_FORM_R ESPONSE] F OREIGN KEY ([FORM_RE SPONSE_ID] ) REFERENC ES [AHOBPR ].[FORM_RE SPONSE] ([ FORM_RESPO NSE_ID]); | |||||
| 2830 | ||||||
| 2831 | ||||||
| 2832 | GO | |||||
| 2833 | PRINT N'Cr eating [AH OBPR].[FK_ FORM_RESPO NSE_STATUS _STD_FORM_ SECTION].. .'; | |||||
| 2834 | ||||||
| 2835 | ||||||
| 2836 | GO | |||||
| 2837 | ALTER TABL E [AHOBPR] .[FORM_RES PONSE_STAT US] WITH N OCHECK | |||||
| 2838 | ADD CO NSTRAINT [ FK_FORM_RE SPONSE_STA TUS_STD_FO RM_SECTION ] FOREIGN KEY ([LAST _SECTION_I D]) REFERE NCES [AHOB PR].[STD_F ORM_SECTIO N] ([STD_F ORM_SECTIO N_ID]); | |||||
| 2839 | ||||||
| 2840 | ||||||
| 2841 | GO | |||||
| 2842 | PRINT N'Cr eating [AH OBPR].[FK_ FORM_RESPO NSE_STATUS _STD_FORM_ SUB_SECTIO N]...'; | |||||
| 2843 | ||||||
| 2844 | ||||||
| 2845 | GO | |||||
| 2846 | ALTER TABL E [AHOBPR] .[FORM_RES PONSE_STAT US] WITH N OCHECK | |||||
| 2847 | ADD CO NSTRAINT [ FK_FORM_RE SPONSE_STA TUS_STD_FO RM_SUB_SEC TION] FORE IGN KEY ([ LAST_SUB_S ECTION_ID] ) REFERENC ES [AHOBPR ].[STD_FOR M_SUB_SECT ION] ([STD _FORM_SUB_ SECTION_ID ]); | |||||
| 2848 | ||||||
| 2849 | ||||||
| 2850 | GO | |||||
| 2851 | PRINT N'Cr eating [AH OBPR].[FK_ PROCESS_ME TRICS_REGI STRANT]... '; | |||||
| 2852 | ||||||
| 2853 | ||||||
| 2854 | GO | |||||
| 2855 | ALTER TABL E [AHOBPR] .[PROCESS_ METRICS] W ITH NOCHEC K | |||||
| 2856 | ADD CO NSTRAINT [ FK_PROCESS _METRICS_R EGISTRANT] FOREIGN K EY ([REGIS TRANT_ID]) REFERENCE S [AHOBPR] .[REGISTRA NT] ([REGI STRANT_ID] ); | |||||
| 2857 | ||||||
| 2858 | ||||||
| 2859 | GO | |||||
| 2860 | PRINT N'Cr eating [AH OBPR].[FK_ PROCESS_ME TRICS_STD_ PROCESS_ME TRICS_TYPE ]...'; | |||||
| 2861 | ||||||
| 2862 | ||||||
| 2863 | GO | |||||
| 2864 | ALTER TABL E [AHOBPR] .[PROCESS_ METRICS] W ITH NOCHEC K | |||||
| 2865 | ADD CO NSTRAINT [ FK_PROCESS _METRICS_S TD_PROCESS _METRICS_T YPE] FOREI GN KEY ([S TD_PROCESS _METRICS_T YPE_ID]) R EFERENCES [AHOBPR].[ STD_PROCES S_METRICS_ TYPE] ([ST D_PROCESS_ METRICS_TY PE_ID]); | |||||
| 2866 | ||||||
| 2867 | ||||||
| 2868 | GO | |||||
| 2869 | PRINT N'Cr eating [AH OBPR].[FK_ STD_FORM_A NSWER_STD_ FORM]...'; | |||||
| 2870 | ||||||
| 2871 | ||||||
| 2872 | GO | |||||
| 2873 | ALTER TABL E [AHOBPR] .[STD_FORM _ANSWER] W ITH NOCHEC K | |||||
| 2874 | ADD CO NSTRAINT [ FK_STD_FOR M_ANSWER_S TD_FORM] F OREIGN KEY ([STD_FOR M_ID]) REF ERENCES [A HOBPR].[ST D_FORM] ([ STD_FORM_I D]); | |||||
| 2875 | ||||||
| 2876 | ||||||
| 2877 | GO | |||||
| 2878 | PRINT N'Cr eating [AH OBPR].[FK_ STD_FORM_A NSWER_STD_ FORM_QUEST ION]...'; | |||||
| 2879 | ||||||
| 2880 | ||||||
| 2881 | GO | |||||
| 2882 | ALTER TABL E [AHOBPR] .[STD_FORM _ANSWER] W ITH NOCHEC K | |||||
| 2883 | ADD CO NSTRAINT [ FK_STD_FOR M_ANSWER_S TD_FORM_QU ESTION] FO REIGN KEY ([STD_FORM _QUESTION_ ID]) REFER ENCES [AHO BPR].[STD_ FORM_QUEST ION] ([STD _FORM_QUES TION_ID]); | |||||
| 2884 | ||||||
| 2885 | ||||||
| 2886 | GO | |||||
| 2887 | PRINT N'Cr eating [AH OBPR].[FK_ STD_FORM_A NSWER_STD_ FORM_SECTI ON]...'; | |||||
| 2888 | ||||||
| 2889 | ||||||
| 2890 | GO | |||||
| 2891 | ALTER TABL E [AHOBPR] .[STD_FORM _ANSWER] W ITH NOCHEC K | |||||
| 2892 | ADD CO NSTRAINT [ FK_STD_FOR M_ANSWER_S TD_FORM_SE CTION] FOR EIGN KEY ( [STD_FORM_ SECTION_ID ]) REFEREN CES [AHOBP R].[STD_FO RM_SECTION ] ([STD_FO RM_SECTION _ID]); | |||||
| 2893 | ||||||
| 2894 | ||||||
| 2895 | GO | |||||
| 2896 | PRINT N'Cr eating [AH OBPR].[FK_ STD_FORM_A NSWER_STD_ FORM_SUB_S ECTION]... '; | |||||
| 2897 | ||||||
| 2898 | ||||||
| 2899 | GO | |||||
| 2900 | ALTER TABL E [AHOBPR] .[STD_FORM _ANSWER] W ITH NOCHEC K | |||||
| 2901 | ADD CO NSTRAINT [ FK_STD_FOR M_ANSWER_S TD_FORM_SU B_SECTION] FOREIGN K EY ([STD_F ORM_SUB_SE CTION_ID]) REFERENCE S [AHOBPR] .[STD_FORM _SUB_SECTI ON] ([STD_ FORM_SUB_S ECTION_ID] ); | |||||
| 2902 | ||||||
| 2903 | ||||||
| 2904 | GO | |||||
| 2905 | PRINT N'Cr eating [AH OBPR].[FK_ STD_FORM_A NSWER_FIEL D_STD_FORM _ANSWER].. .'; | |||||
| 2906 | ||||||
| 2907 | ||||||
| 2908 | GO | |||||
| 2909 | ALTER TABL E [AHOBPR] .[STD_FORM _ANSWER_FI ELD] WITH NOCHECK | |||||
| 2910 | ADD CO NSTRAINT [ FK_STD_FOR M_ANSWER_F IELD_STD_F ORM_ANSWER ] FOREIGN KEY ([STD_ FORM_ANSWE R_ID]) REF ERENCES [A HOBPR].[ST D_FORM_ANS WER] ([STD _FORM_ANSW ER_ID]); | |||||
| 2911 | ||||||
| 2912 | ||||||
| 2913 | GO | |||||
| 2914 | PRINT N'Cr eating [AH OBPR].[FK_ STD_FORM_S ECTION_STD _FORM]...' ; | |||||
| 2915 | ||||||
| 2916 | ||||||
| 2917 | GO | |||||
| 2918 | ALTER TABL E [AHOBPR] .[STD_FORM _SECTION] WITH NOCHE CK | |||||
| 2919 | ADD CO NSTRAINT [ FK_STD_FOR M_SECTION_ STD_FORM] FOREIGN KE Y ([STD_FO RM_ID]) RE FERENCES [ AHOBPR].[S TD_FORM] ( [STD_FORM_ ID]); | |||||
| 2920 | ||||||
| 2921 | ||||||
| 2922 | GO | |||||
| 2923 | PRINT N'Cr eating [AH OBPR].[FK_ STD_FORM_S UB_SECTION _STD_FORM] ...'; | |||||
| 2924 | ||||||
| 2925 | ||||||
| 2926 | GO | |||||
| 2927 | ALTER TABL E [AHOBPR] .[STD_FORM _SUB_SECTI ON] WITH N OCHECK | |||||
| 2928 | ADD CO NSTRAINT [ FK_STD_FOR M_SUB_SECT ION_STD_FO RM] FOREIG N KEY ([ST D_FORM_ID] ) REFERENC ES [AHOBPR ].[STD_FOR M] ([STD_F ORM_ID]); | |||||
| 2929 | ||||||
| 2930 | ||||||
| 2931 | GO | |||||
| 2932 | PRINT N'Cr eating [AH OBPR].[FK_ STD_FORM_S UB_SECTION _STD_FORM_ SECTION].. .'; | |||||
| 2933 | ||||||
| 2934 | ||||||
| 2935 | GO | |||||
| 2936 | ALTER TABL E [AHOBPR] .[STD_FORM _SUB_SECTI ON] WITH N OCHECK | |||||
| 2937 | ADD CO NSTRAINT [ FK_STD_FOR M_SUB_SECT ION_STD_FO RM_SECTION ] FOREIGN KEY ([STD_ FORM_SECTI ON_ID]) RE FERENCES [ AHOBPR].[S TD_FORM_SE CTION] ([S TD_FORM_SE CTION_ID]) ; | |||||
| 2938 | ||||||
| 2939 | ||||||
| 2940 | GO | |||||
| 2941 | PRINT N'Cr eating [AH OBPR].[FK_ StdRegistr yFlag_StdR egistryFla gType]...' ; | |||||
| 2942 | ||||||
| 2943 | ||||||
| 2944 | GO | |||||
| 2945 | ALTER TABL E [AHOBPR] .[STD_REGI STRY_FLAG] WITH NOCH ECK | |||||
| 2946 | ADD CO NSTRAINT [ FK_StdRegi stryFlag_S tdRegistry FlagType] FOREIGN KE Y ([STD_RE GISTRY_FLA G_TYPE_ID] ) REFERENC ES [AHOBPR ].[STD_REG ISTRY_FLAG _TYPE] ([S TD_REGISTR Y_FLAG_TYP E_ID]); | |||||
| 2947 | ||||||
| 2948 | ||||||
| 2949 | GO | |||||
| 2950 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _REGISTRY_ FLAG_REGIS TRANT]...' ; | |||||
| 2951 | ||||||
| 2952 | ||||||
| 2953 | GO | |||||
| 2954 | ALTER TABL E [AHOBPR] .[REGISTRA NT_REGISTR Y_FLAG] WI TH NOCHECK | |||||
| 2955 | ADD CO NSTRAINT [ FK_REGISTR ANT_REGIST RY_FLAG_RE GISTRANT] FOREIGN KE Y ([REGIST RANT_ID]) REFERENCES [AHOBPR]. [REGISTRAN T] ([REGIS TRANT_ID]) ; | |||||
| 2956 | ||||||
| 2957 | ||||||
| 2958 | GO | |||||
| 2959 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _REGISTRY_ FLAG_STD_R EGISTRY_FL AG]...'; | |||||
| 2960 | ||||||
| 2961 | ||||||
| 2962 | GO | |||||
| 2963 | ALTER TABL E [AHOBPR] .[REGISTRA NT_REGISTR Y_FLAG] WI TH NOCHECK | |||||
| 2964 | ADD CO NSTRAINT [ FK_REGISTR ANT_REGIST RY_FLAG_ST D_REGISTRY _FLAG] FOR EIGN KEY ( [STD_REGIS TRY_FLAG_I D]) REFERE NCES [AHOB PR].[STD_R EGISTRY_FL AG] ([STD_ REGISTRY_F LAG_ID]); | |||||
| 2965 | ||||||
| 2966 | ||||||
| 2967 | GO | |||||
| 2968 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _EMAIL_REG ISTRANT_CO NTACT_INFO ]...'; | |||||
| 2969 | ||||||
| 2970 | ||||||
| 2971 | GO | |||||
| 2972 | ALTER TABL E [AHOBPR] .[REGISTRA NT_EMAIL] WITH NOCHE CK | |||||
| 2973 | ADD CO NSTRAINT [ FK_REGISTR ANT_EMAIL_ REGISTRANT _CONTACT_I NFO] FOREI GN KEY ([R EGISTRANT_ ID]) REFER ENCES [AHO BPR].[REGI STRANT_CON TACT_INFO] ([REGISTR ANT_ID]); | |||||
| 2974 | ||||||
| 2975 | ||||||
| 2976 | GO | |||||
| 2977 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _DEPLOYMEN T_REGISTRA NT]...'; | |||||
| 2978 | ||||||
| 2979 | ||||||
| 2980 | GO | |||||
| 2981 | ALTER TABL E [AHOBPR] .[REGISTRA NT_DEPLOYM ENT] WITH NOCHECK | |||||
| 2982 | ADD CO NSTRAINT [ FK_REGISTR ANT_DEPLOY MENT_REGIS TRANT] FOR EIGN KEY ( [REGISTRAN T_ID]) REF ERENCES [A HOBPR].[RE GISTRANT] ([REGISTRA NT_ID]); | |||||
| 2983 | ||||||
| 2984 | ||||||
| 2985 | GO | |||||
| 2986 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _DEPLOYMEN T_OCCUPATI ON]...'; | |||||
| 2987 | ||||||
| 2988 | ||||||
| 2989 | GO | |||||
| 2990 | ALTER TABL E [AHOBPR] .[REGISTRA NT_DEPLOYM ENT] WITH NOCHECK | |||||
| 2991 | ADD CO NSTRAINT [ FK_REGISTR ANT_DEPLOY MENT_OCCUP ATION] FOR EIGN KEY ( [STD_SERVI CE_OCCUPAT ION_ID]) R EFERENCES [AHOBPR].[ STD_SERVIC E_OCCUPATI ON] ([STD_ SERVICE_OC CUPATION_I D]); | |||||
| 2992 | ||||||
| 2993 | ||||||
| 2994 | GO | |||||
| 2995 | PRINT N'Cr eating [AH OBPR].[FK_ Registrant DeployHx_S tdBranchOf Service].. .'; | |||||
| 2996 | ||||||
| 2997 | ||||||
| 2998 | GO | |||||
| 2999 | ALTER TABL E [AHOBPR] .[REGISTRA NT_DEPLOYM ENT] WITH NOCHECK | |||||
| 3000 | ADD CO NSTRAINT [ FK_Registr antDeployH x_StdBranc hOfService ] FOREIGN KEY ([STD_ BRANCH_OF_ SERVICE_ID ]) REFEREN CES [AHOBP R].[STD_BR ANCH_OF_SE RVICE] ([S TD_BRANCH_ OF_SERVICE _ID]); | |||||
| 3001 | ||||||
| 3002 | ||||||
| 3003 | GO | |||||
| 3004 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _DEPLOYMEN T_STD_COMP ONENT]...' ; | |||||
| 3005 | ||||||
| 3006 | ||||||
| 3007 | GO | |||||
| 3008 | ALTER TABL E [AHOBPR] .[REGISTRA NT_DEPLOYM ENT] WITH NOCHECK | |||||
| 3009 | ADD CO NSTRAINT [ FK_REGISTR ANT_DEPLOY MENT_STD_C OMPONENT] FOREIGN KE Y ([STD_CO MPONENT_ID ]) REFEREN CES [AHOBP R].[STD_CO MPONENT] ( [STD_COMPO NENT_ID]); | |||||
| 3010 | ||||||
| 3011 | ||||||
| 3012 | GO | |||||
| 3013 | PRINT N'Cr eating [AH OBPR].[FK_ Registrant ContactInf o_Registra nt]...'; | |||||
| 3014 | ||||||
| 3015 | ||||||
| 3016 | GO | |||||
| 3017 | ALTER TABL E [AHOBPR] .[REGISTRA NT_CONTACT _INFO] WIT H NOCHECK | |||||
| 3018 | ADD CO NSTRAINT [ FK_Registr antContact Info_Regis trant] FOR EIGN KEY ( [REGISTRAN T_ID]) REF ERENCES [A HOBPR].[RE GISTRANT] ([REGISTRA NT_ID]); | |||||
| 3019 | ||||||
| 3020 | ||||||
| 3021 | GO | |||||
| 3022 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _ADDRESS_R EGISTRANT_ CONTACT_IN FO]...'; | |||||
| 3023 | ||||||
| 3024 | ||||||
| 3025 | GO | |||||
| 3026 | ALTER TABL E [AHOBPR] .[REGISTRA NT_ADDRESS ] WITH NOC HECK | |||||
| 3027 | ADD CO NSTRAINT [ FK_REGISTR ANT_ADDRES S_REGISTRA NT_CONTACT _INFO] FOR EIGN KEY ( [REGISTRAN T_ID]) REF ERENCES [A HOBPR].[RE GISTRANT_C ONTACT_INF O] ([REGIS TRANT_ID]) ; | |||||
| 3028 | ||||||
| 3029 | ||||||
| 3030 | GO | |||||
| 3031 | PRINT N'Cr eating [AH OBPR].[FK_ StdHealthF actor_StdH ealthFacto rCategory] ...'; | |||||
| 3032 | ||||||
| 3033 | ||||||
| 3034 | GO | |||||
| 3035 | ALTER TABL E [AHOBPR] .[STD_HEAL TH_FACTOR] WITH NOCH ECK | |||||
| 3036 | ADD CO NSTRAINT [ FK_StdHeal thFactor_S tdHealthFa ctorCatego ry] FOREIG N KEY ([ST D_HEALTH_F ACTOR_CATE GORY_ID]) REFERENCES [AHOBPR]. [STD_HEALT H_FACTOR_C ATEGORY] ( [STD_HEALT H_FACTOR_C ATEGORY_ID ]); | |||||
| 3037 | ||||||
| 3038 | ||||||
| 3039 | GO | |||||
| 3040 | PRINT N'Cr eating [AH OBPR].[FK_ Registrant HealthFact or_Registr antVisit]. ..'; | |||||
| 3041 | ||||||
| 3042 | ||||||
| 3043 | GO | |||||
| 3044 | ALTER TABL E [AHOBPR] .[REGISTRA NT_HEALTH_ FACTOR] WI TH NOCHECK | |||||
| 3045 | ADD CO NSTRAINT [ FK_Registr antHealthF actor_Regi strantVisi t] FOREIGN KEY ([REG ISTRANT_VI SIT_ID]) R EFERENCES [AHOBPR].[ REGISTRANT _VISIT] ([ REGISTRANT _VISIT_ID] ); | |||||
| 3046 | ||||||
| 3047 | ||||||
| 3048 | GO | |||||
| 3049 | PRINT N'Cr eating [AH OBPR].[FK_ Registrant HealthFact or_StdHeal thFactor]. ..'; | |||||
| 3050 | ||||||
| 3051 | ||||||
| 3052 | GO | |||||
| 3053 | ALTER TABL E [AHOBPR] .[REGISTRA NT_HEALTH_ FACTOR] WI TH NOCHECK | |||||
| 3054 | ADD CO NSTRAINT [ FK_Registr antHealthF actor_StdH ealthFacto r] FOREIGN KEY ([STD _HEALTH_FA CTOR_ID]) REFERENCES [AHOBPR]. [STD_HEALT H_FACTOR] ([STD_HEAL TH_FACTOR_ ID]); | |||||
| 3055 | ||||||
| 3056 | ||||||
| 3057 | GO | |||||
| 3058 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _SERVICE_E PISODE_REG ISTRANT].. .'; | |||||
| 3059 | ||||||
| 3060 | ||||||
| 3061 | GO | |||||
| 3062 | ALTER TABL E [AHOBPR] .[REGISTRA NT_SERVICE _EPISODE] WITH NOCHE CK | |||||
| 3063 | ADD CO NSTRAINT [ FK_REGISTR ANT_SERVIC E_EPISODE_ REGISTRANT ] FOREIGN KEY ([REGI STRANT_ID] ) REFERENC ES [AHOBPR ].[REGISTR ANT] ([REG ISTRANT_ID ]); | |||||
| 3064 | ||||||
| 3065 | ||||||
| 3066 | GO | |||||
| 3067 | PRINT N'Cr eating [AH OBPR].[FK_ ServiceEpi sode_StdBr anchOfServ ice]...'; | |||||
| 3068 | ||||||
| 3069 | ||||||
| 3070 | GO | |||||
| 3071 | ALTER TABL E [AHOBPR] .[REGISTRA NT_SERVICE _EPISODE] WITH NOCHE CK | |||||
| 3072 | ADD CO NSTRAINT [ FK_Service Episode_St dBranchOfS ervice] FO REIGN KEY ([STD_BRAN CH_OF_SERV ICE_ID]) R EFERENCES [AHOBPR].[ STD_BRANCH _OF_SERVIC E] ([STD_B RANCH_OF_S ERVICE_ID] ); | |||||
| 3073 | ||||||
| 3074 | ||||||
| 3075 | GO | |||||
| 3076 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _INFO_REGI STRANT]... '; | |||||
| 3077 | ||||||
| 3078 | ||||||
| 3079 | GO | |||||
| 3080 | ALTER TABL E [AHOBPR] .[REGISTRA NT_RECORD_ INFO] WITH NOCHECK | |||||
| 3081 | ADD CO NSTRAINT [ FK_REGISTR ANT_INFO_R EGISTRANT] FOREIGN K EY ([REGIS TRANT_ID]) REFERENCE S [AHOBPR] .[REGISTRA NT] ([REGI STRANT_ID] ); | |||||
| 3082 | ||||||
| 3083 | ||||||
| 3084 | GO | |||||
| 3085 | PRINT N'Cr eating [AH OBPR].[FK_ STD_TERM_A NSWER_STD_ ANSWER]... '; | |||||
| 3086 | ||||||
| 3087 | ||||||
| 3088 | GO | |||||
| 3089 | ALTER TABL E [AHOBPR] .[STD_TERM _ANSWER] W ITH NOCHEC K | |||||
| 3090 | ADD CO NSTRAINT [ FK_STD_TER M_ANSWER_S TD_ANSWER] FOREIGN K EY ([STD_F ORM_ANSWER _ID]) REFE RENCES [AH OBPR].[STD _FORM_ANSW ER] ([STD_ FORM_ANSWE R_ID]); | |||||
| 3091 | ||||||
| 3092 | ||||||
| 3093 | GO | |||||
| 3094 | PRINT N'Cr eating [AH OBPR].[FK_ STD_TERM_A NSWER_STD_ TERM]...'; | |||||
| 3095 | ||||||
| 3096 | ||||||
| 3097 | GO | |||||
| 3098 | ALTER TABL E [AHOBPR] .[STD_TERM _ANSWER] W ITH NOCHEC K | |||||
| 3099 | ADD CO NSTRAINT [ FK_STD_TER M_ANSWER_S TD_TERM] F OREIGN KEY ([STD_TER M_ID]) REF ERENCES [A HOBPR].[ST D_TERM] ([ STD_TERM_I D]); | |||||
| 3100 | ||||||
| 3101 | ||||||
| 3102 | GO | |||||
| 3103 | PRINT N'Cr eating [AH OBPR].[FK_ EMAIL_LOG_ EMAIL_TEMP LATES]...' ; | |||||
| 3104 | ||||||
| 3105 | ||||||
| 3106 | GO | |||||
| 3107 | ALTER TABL E [AHOBPR] .[EMAIL_LO G] WITH NO CHECK | |||||
| 3108 | ADD CO NSTRAINT [ FK_EMAIL_L OG_EMAIL_T EMPLATES] FOREIGN KE Y ([TEMPLA TE_ID]) RE FERENCES [ AHOBPR].[E MAIL_TEMPL ATES] ([TE MPLATE_ID] ); | |||||
| 3109 | ||||||
| 3110 | ||||||
| 3111 | GO | |||||
| 3112 | PRINT N'Cr eating [AH OBPR].[FK_ EMAIL_LOG_ REGISTRANT ]...'; | |||||
| 3113 | ||||||
| 3114 | ||||||
| 3115 | GO | |||||
| 3116 | ALTER TABL E [AHOBPR] .[EMAIL_LO G] WITH NO CHECK | |||||
| 3117 | ADD CO NSTRAINT [ FK_EMAIL_L OG_REGISTR ANT] FOREI GN KEY ([R EGISTRANT_ ID]) REFER ENCES [AHO BPR].[REGI STRANT] ([ REGISTRANT _ID]); | |||||
| 3118 | ||||||
| 3119 | ||||||
| 3120 | GO | |||||
| 3121 | PRINT N'Cr eating [AH OBPR].[FK_ Registrant Visit_DboS tdInstitui on]...'; | |||||
| 3122 | ||||||
| 3123 | ||||||
| 3124 | GO | |||||
| 3125 | ALTER TABL E [AHOBPR] .[REGISTRA NT_VISIT] WITH NOCHE CK | |||||
| 3126 | ADD CO NSTRAINT [ FK_Registr antVisit_D boStdInsti tuion] FOR EIGN KEY ( [STD_INSTI TUTION_ID] ) REFERENC ES [dbo].[ STD_INSTIT UTION] ([I D]); | |||||
| 3127 | ||||||
| 3128 | ||||||
| 3129 | GO | |||||
| 3130 | PRINT N'Cr eating [AH OBPR].[FK_ Registrant Visit_Regi strant]... '; | |||||
| 3131 | ||||||
| 3132 | ||||||
| 3133 | GO | |||||
| 3134 | ALTER TABL E [AHOBPR] .[REGISTRA NT_VISIT] WITH NOCHE CK | |||||
| 3135 | ADD CO NSTRAINT [ FK_Registr antVisit_R egistrant] FOREIGN K EY ([REGIS TRANT_ID]) REFERENCE S [AHOBPR] .[REGISTRA NT] ([REGI STRANT_ID] ); | |||||
| 3136 | ||||||
| 3137 | ||||||
| 3138 | GO | |||||
| 3139 | PRINT N'Cr eating [AH OBPR].[FK_ USER_USERS ]...'; | |||||
| 3140 | ||||||
| 3141 | ||||||
| 3142 | GO | |||||
| 3143 | ALTER TABL E [AHOBPR] .[AHOBPR_U SER] WITH NOCHECK | |||||
| 3144 | ADD CO NSTRAINT [ FK_USER_US ERS] FOREI GN KEY ([U SER_ID]) R EFERENCES [dbo].[USE RS] ([USER _ID]); | |||||
| 3145 | ||||||
| 3146 | ||||||
| 3147 | GO | |||||
| 3148 | PRINT N'Cr eating [AH OBPR].[FK_ AUDIT_LOG_ AUDIT_LOG_ TYPE]...'; | |||||
| 3149 | ||||||
| 3150 | ||||||
| 3151 | GO | |||||
| 3152 | ALTER TABL E [AHOBPR] .[AUDIT_LO G] WITH NO CHECK | |||||
| 3153 | ADD CO NSTRAINT [ FK_AUDIT_L OG_AUDIT_L OG_TYPE] F OREIGN KEY ([TYPE_ID ]) REFEREN CES [AHOBP R].[AUDIT_ LOG_TYPE] ([TYPE_ID] ); | |||||
| 3154 | ||||||
| 3155 | ||||||
| 3156 | GO | |||||
| 3157 | PRINT N'Cr eating [AH OBPR].[FK_ DOD_DEPLOY MENT_IMPOR T_STD_COUN TRY]...'; | |||||
| 3158 | ||||||
| 3159 | ||||||
| 3160 | GO | |||||
| 3161 | ALTER TABL E [AHOBPR] .[DOD_DEPL OYMENT_IMP ORT] WITH NOCHECK | |||||
| 3162 | ADD CO NSTRAINT [ FK_DOD_DEP LOYMENT_IM PORT_STD_C OUNTRY] FO REIGN KEY ([LOCATION ]) REFEREN CES [AHOBP R].[STD_CO UNTRY] ([C ODE]); | |||||
| 3163 | ||||||
| 3164 | ||||||
| 3165 | GO | |||||
| 3166 | PRINT N'Cr eating [AH OBPR].[FK_ DOD_DEPLOY MENT_IMPOR T_STD_PAY_ PLAN_GRADE ]...'; | |||||
| 3167 | ||||||
| 3168 | ||||||
| 3169 | GO | |||||
| 3170 | ALTER TABL E [AHOBPR] .[DOD_DEPL OYMENT_IMP ORT] WITH NOCHECK | |||||
| 3171 | ADD CO NSTRAINT [ FK_DOD_DEP LOYMENT_IM PORT_STD_P AY_PLAN_GR ADE] FOREI GN KEY ([P AY_PLAN_GR ADE]) REFE RENCES [AH OBPR].[STD _PAY_PLAN_ GRADE] ([C ODE]); | |||||
| 3172 | ||||||
| 3173 | ||||||
| 3174 | GO | |||||
| 3175 | PRINT N'Cr eating [AH OBPR].[FK_ STD_TERM_Q UESTION_ST D_QUESTION ]...'; | |||||
| 3176 | ||||||
| 3177 | ||||||
| 3178 | GO | |||||
| 3179 | ALTER TABL E [AHOBPR] .[STD_TERM _QUESTION] WITH NOCH ECK | |||||
| 3180 | ADD CO NSTRAINT [ FK_STD_TER M_QUESTION _STD_QUEST ION] FOREI GN KEY ([S TD_FORM_QU ESTION_ID] ) REFERENC ES [AHOBPR ].[STD_FOR M_QUESTION ] ([STD_FO RM_QUESTIO N_ID]); | |||||
| 3181 | ||||||
| 3182 | ||||||
| 3183 | GO | |||||
| 3184 | PRINT N'Cr eating [AH OBPR].[FK_ STD_TERM_Q UESTION_ST D_TERM]... '; | |||||
| 3185 | ||||||
| 3186 | ||||||
| 3187 | GO | |||||
| 3188 | ALTER TABL E [AHOBPR] .[STD_TERM _QUESTION] WITH NOCH ECK | |||||
| 3189 | ADD CO NSTRAINT [ FK_STD_TER M_QUESTION _STD_TERM] FOREIGN K EY ([STD_T ERM_ID]) R EFERENCES [AHOBPR].[ STD_TERM] ([STD_TERM _ID]); | |||||
| 3190 | ||||||
| 3191 | ||||||
| 3192 | GO | |||||
| 3193 | PRINT N'Cr eating [AH OBPR].[FK_ SEPARATION _REASON_ST D_FAMILY]. ..'; | |||||
| 3194 | ||||||
| 3195 | ||||||
| 3196 | GO | |||||
| 3197 | ALTER TABL E [AHOBPR] .[STD_SEPA RATION_REA SON] WITH NOCHECK | |||||
| 3198 | ADD CO NSTRAINT [ FK_SEPARAT ION_REASON _STD_FAMIL Y] FOREIGN KEY ([STD _SEPARATIO N_FAMILY_I D]) REFERE NCES [AHOB PR].[STD_S EPARATION_ FAMILY] ([ STD_SEPARA TION_FAMIL Y_ID]); | |||||
| 3199 | ||||||
| 3200 | ||||||
| 3201 | GO | |||||
| 3202 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _STD_INSTI TUTION]... '; | |||||
| 3203 | ||||||
| 3204 | ||||||
| 3205 | GO | |||||
| 3206 | ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH N OCHECK | |||||
| 3207 | ADD CO NSTRAINT [ FK_REGISTR ANT_STD_IN STITUTION] FOREIGN K EY ([STD_I NSTITUTION _ID]) REFE RENCES [db o].[STD_IN STITUTION] ([ID]); | |||||
| 3208 | ||||||
| 3209 | ||||||
| 3210 | GO | |||||
| 3211 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _STD_REGIS TRANT_STAT US]...'; | |||||
| 3212 | ||||||
| 3213 | ||||||
| 3214 | GO | |||||
| 3215 | ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH N OCHECK | |||||
| 3216 | ADD CO NSTRAINT [ FK_REGISTR ANT_STD_RE GISTRANT_S TATUS] FOR EIGN KEY ( [STD_REGIS TRANT_STAT US_ID]) RE FERENCES [ AHOBPR].[S TD_REGISTR ANT_STATUS ] ([STD_RE GISTRANT_S TATUS_ID]) ; | |||||
| 3217 | ||||||
| 3218 | ||||||
| 3219 | GO | |||||
| 3220 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _STD_SERVI CE_STATUS] ...'; | |||||
| 3221 | ||||||
| 3222 | ||||||
| 3223 | GO | |||||
| 3224 | ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH N OCHECK | |||||
| 3225 | ADD CO NSTRAINT [ FK_REGISTR ANT_STD_SE RVICE_STAT US] FOREIG N KEY ([ST D_SERVICE_ STATUS_ID] ) REFERENC ES [AHOBPR ].[STD_SER VICE_STATU S] ([STD_S ERVICE_STA TUS_ID]); | |||||
| 3226 | ||||||
| 3227 | ||||||
| 3228 | GO | |||||
| 3229 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _STD_SERVI CE_STATUS2 ]...'; | |||||
| 3230 | ||||||
| 3231 | ||||||
| 3232 | GO | |||||
| 3233 | ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH N OCHECK | |||||
| 3234 | ADD CO NSTRAINT [ FK_REGISTR ANT_STD_SE RVICE_STAT US2] FOREI GN KEY ([S TD_SERVICE _STATUS_ID _WHEN_ENRO LLED]) REF ERENCES [A HOBPR].[ST D_SERVICE_ STATUS] ([ STD_SERVIC E_STATUS_I D]); | |||||
| 3235 | ||||||
| 3236 | ||||||
| 3237 | GO | |||||
| 3238 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _STD_BRANC H_OF_SERVI CE]...'; | |||||
| 3239 | ||||||
| 3240 | ||||||
| 3241 | GO | |||||
| 3242 | ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH N OCHECK | |||||
| 3243 | ADD CO NSTRAINT [ FK_REGISTR ANT_STD_BR ANCH_OF_SE RVICE] FOR EIGN KEY ( [STD_BRANC H_OF_SERVI CE_ID_CURR ENT]) REFE RENCES [AH OBPR].[STD _BRANCH_OF _SERVICE] ([STD_BRAN CH_OF_SERV ICE_ID]); | |||||
| 3244 | ||||||
| 3245 | ||||||
| 3246 | GO | |||||
| 3247 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _STD_BRANC H_OF_SERVI CE2]...'; | |||||
| 3248 | ||||||
| 3249 | ||||||
| 3250 | GO | |||||
| 3251 | ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH N OCHECK | |||||
| 3252 | ADD CO NSTRAINT [ FK_REGISTR ANT_STD_BR ANCH_OF_SE RVICE2] FO REIGN KEY ([STD_BRAN CH_OF_SERV ICE_ID_WHE N_ENROLLED ]) REFEREN CES [AHOBP R].[STD_BR ANCH_OF_SE RVICE] ([S TD_BRANCH_ OF_SERVICE _ID]); | |||||
| 3253 | ||||||
| 3254 | ||||||
| 3255 | GO | |||||
| 3256 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _STD_COMPO NENT]...'; | |||||
| 3257 | ||||||
| 3258 | ||||||
| 3259 | GO | |||||
| 3260 | ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH N OCHECK | |||||
| 3261 | ADD CO NSTRAINT [ FK_REGISTR ANT_STD_CO MPONENT] F OREIGN KEY ([STD_COM PONENT_ID_ CURRENT]) REFERENCES [AHOBPR]. [STD_COMPO NENT] ([ST D_COMPONEN T_ID]); | |||||
| 3262 | ||||||
| 3263 | ||||||
| 3264 | GO | |||||
| 3265 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _STD_COMPO NENT2]...' ; | |||||
| 3266 | ||||||
| 3267 | ||||||
| 3268 | GO | |||||
| 3269 | ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH N OCHECK | |||||
| 3270 | ADD CO NSTRAINT [ FK_REGISTR ANT_STD_CO MPONENT2] FOREIGN KE Y ([STD_CO MPONENT_ID _WHEN_ENRO LLED]) REF ERENCES [A HOBPR].[ST D_COMPONEN T] ([STD_C OMPONENT_I D]); | |||||
| 3271 | ||||||
| 3272 | ||||||
| 3273 | GO | |||||
| 3274 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _STD_SEPAR ATION_REAS ON]...'; | |||||
| 3275 | ||||||
| 3276 | ||||||
| 3277 | GO | |||||
| 3278 | ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH N OCHECK | |||||
| 3279 | ADD CO NSTRAINT [ FK_REGISTR ANT_STD_SE PARATION_R EASON] FOR EIGN KEY ( [STD_SEPAR ATION_REAS ON_ID_CURR ENT]) REFE RENCES [AH OBPR].[STD _SEPARATIO N_REASON] ([STD_SEPA RATION_REA SON_ID]); | |||||
| 3280 | ||||||
| 3281 | ||||||
| 3282 | GO | |||||
| 3283 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _STD_SEPAR ATION_REAS ON2]...'; | |||||
| 3284 | ||||||
| 3285 | ||||||
| 3286 | GO | |||||
| 3287 | ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH N OCHECK | |||||
| 3288 | ADD CO NSTRAINT [ FK_REGISTR ANT_STD_SE PARATION_R EASON2] FO REIGN KEY ([STD_SEPA RATION_REA SON_ID_WHE N_ENROLLED ]) REFEREN CES [AHOBP R].[STD_SE PARATION_R EASON] ([S TD_SEPARAT ION_REASON _ID]); | |||||
| 3289 | ||||||
| 3290 | ||||||
| 3291 | GO | |||||
| 3292 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _[STD_DISC HARGE_CHAR ACTER]...' ; | |||||
| 3293 | ||||||
| 3294 | ||||||
| 3295 | GO | |||||
| 3296 | ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH N OCHECK | |||||
| 3297 | ADD CO NSTRAINT [ FK_REGISTR ANT_[STD_D ISCHARGE_C HARACTER] FOREIGN KE Y ([STD_DI SCHARGE_CH ARACTER_ID ]) REFEREN CES [AHOBP R].[STD_DI SCHARGE_CH ARACTER] ( [STD_DISCH ARGE_CHARA CTER_ID]); | |||||
| 3298 | ||||||
| 3299 | ||||||
| 3300 | GO | |||||
| 3301 | PRINT N'Cr eating [AH OBPR].[FK_ STD_FORM_Q UESTION_ST D_FORM]... '; | |||||
| 3302 | ||||||
| 3303 | ||||||
| 3304 | GO | |||||
| 3305 | ALTER TABL E [AHOBPR] .[STD_FORM _QUESTION] WITH NOCH ECK | |||||
| 3306 | ADD CO NSTRAINT [ FK_STD_FOR M_QUESTION _STD_FORM] FOREIGN K EY ([STD_F ORM_ID]) R EFERENCES [AHOBPR].[ STD_FORM] ([STD_FORM _ID]); | |||||
| 3307 | ||||||
| 3308 | ||||||
| 3309 | GO | |||||
| 3310 | PRINT N'Cr eating [AH OBPR].[FK_ STD_FORM_Q UESTION_ST D_FORM_SEC TION]...'; | |||||
| 3311 | ||||||
| 3312 | ||||||
| 3313 | GO | |||||
| 3314 | ALTER TABL E [AHOBPR] .[STD_FORM _QUESTION] WITH NOCH ECK | |||||
| 3315 | ADD CO NSTRAINT [ FK_STD_FOR M_QUESTION _STD_FORM_ SECTION] F OREIGN KEY ([STD_FOR M_SECTION_ ID]) REFER ENCES [AHO BPR].[STD_ FORM_SECTI ON] ([STD_ FORM_SECTI ON_ID]); | |||||
| 3316 | ||||||
| 3317 | ||||||
| 3318 | GO | |||||
| 3319 | PRINT N'Cr eating [AH OBPR].[FK_ STD_FORM_Q UESTION_ST D_FORM_SUB _SECTION]. ..'; | |||||
| 3320 | ||||||
| 3321 | ||||||
| 3322 | GO | |||||
| 3323 | ALTER TABL E [AHOBPR] .[STD_FORM _QUESTION] WITH NOCH ECK | |||||
| 3324 | ADD CO NSTRAINT [ FK_STD_FOR M_QUESTION _STD_FORM_ SUB_SECTIO N] FOREIGN KEY ([STD _FORM_SUB_ SECTION_ID ]) REFEREN CES [AHOBP R].[STD_FO RM_SUB_SEC TION] ([ST D_FORM_SUB _SECTION_I D]); | |||||
| 3325 | ||||||
| 3326 | ||||||
| 3327 | GO | |||||
| 3328 | PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _PHONE_REG ISTRANT_CO NTACT_INFO ]...'; | |||||
| 3329 | ||||||
| 3330 | ||||||
| 3331 | GO | |||||
| 3332 | ALTER TABL E [AHOBPR] .[REGISTRA NT_PHONE] WITH NOCHE CK | |||||
| 3333 | ADD CO NSTRAINT [ FK_REGISTR ANT_PHONE_ REGISTRANT _CONTACT_I NFO] FOREI GN KEY ([R EGISTRANT_ ID]) REFER ENCES [AHO BPR].[REGI STRANT_CON TACT_INFO] ([REGISTR ANT_ID]); | |||||
| 3334 | ||||||
| 3335 | ||||||
| 3336 | GO | |||||
| 3337 | PRINT N'Cr eating [AH OBPR].[FK_ FormRespon seQuestion _FORM_RESP ONSE]...'; | |||||
| 3338 | ||||||
| 3339 | ||||||
| 3340 | GO | |||||
| 3341 | ALTER TABL E [AHOBPR] .[FORM_RES PONSE_QUES TION] WITH NOCHECK | |||||
| 3342 | ADD CO NSTRAINT [ FK_FormRes ponseQuest ion_FORM_R ESPONSE] F OREIGN KEY ([FORM_RE SPONSE_ID] ) REFERENC ES [AHOBPR ].[FORM_RE SPONSE] ([ FORM_RESPO NSE_ID]); | |||||
| 3343 | ||||||
| 3344 | ||||||
| 3345 | GO | |||||
| 3346 | PRINT N'Cr eating [AH OBPR].[FK_ FormRespon seQuestion _REGISTRAN T_DEPLOYME NT_HISTORY ]...'; | |||||
| 3347 | ||||||
| 3348 | ||||||
| 3349 | GO | |||||
| 3350 | ALTER TABL E [AHOBPR] .[FORM_RES PONSE_QUES TION] WITH NOCHECK | |||||
| 3351 | ADD CO NSTRAINT [ FK_FormRes ponseQuest ion_REGIST RANT_DEPLO YMENT_HIST ORY] FOREI GN KEY ([R EGISTRANT_ DEPLOYMENT _ID]) REFE RENCES [AH OBPR].[REG ISTRANT_DE PLOYMENT] ([REGISTRA NT_DEPLOYM ENT_ID]); | |||||
| 3352 | ||||||
| 3353 | ||||||
| 3354 | GO | |||||
| 3355 | PRINT N'Cr eating [AH OBPR].[FK_ FormRespon seQuestion _STD_FORM_ QUESTION]. ..'; | |||||
| 3356 | ||||||
| 3357 | ||||||
| 3358 | GO | |||||
| 3359 | ALTER TABL E [AHOBPR] .[FORM_RES PONSE_QUES TION] WITH NOCHECK | |||||
| 3360 | ADD CO NSTRAINT [ FK_FormRes ponseQuest ion_STD_FO RM_QUESTIO N] FOREIGN KEY ([STD _FORM_QUES TION_ID]) REFERENCES [AHOBPR]. [STD_FORM_ QUESTION] ([STD_FORM _QUESTION_ ID]); | |||||
| 3361 | ||||||
| 3362 | ||||||
| 3363 | GO | |||||
| 3364 | PRINT N'Cr eating [AH OBPR].[TRG _FORM_RESP ONSE_H]... '; | |||||
| 3365 | ||||||
| 3366 | ||||||
| 3367 | GO | |||||
| 3368 | Create tri gger [AHOB PR].[TRG_F ORM_RESPON SE_H] on [ AHOBPR].[F ORM_RESPON SE] | |||||
| 3369 | after Upda te, Insert | |||||
| 3370 | AS | |||||
| 3371 | Begin | |||||
| 3372 | declare @l v_change v archar(15) | |||||
| 3373 | , @cdelete d int | |||||
| 3374 | , @cinsert ed int | |||||
| 3375 | , @cSftDel ete int | |||||
| 3376 | SELECT @cd eleted =co unt(*) FRO M DELETED | |||||
| 3377 | SELECT @ci nserted =c ount(*) FR OM INSERTE D | |||||
| 3378 | INSERT INT O [AHOBPR] .[FORM_RES PONSE_H] | |||||
| 3379 | ( [Audit_D ate] | |||||
| 3380 | , [Audit_T ype] | |||||
| 3381 | , [Audit_A pplication User] | |||||
| 3382 | , [Audit_S QLUser] | |||||
| 3383 | , [FORM_RE SPONSE_ID] | |||||
| 3384 | , [REGISTR ANT_ID] | |||||
| 3385 | , [STD_FOR M_ID] | |||||
| 3386 | , [CREATED BY] | |||||
| 3387 | , [UPDATED BY] | |||||
| 3388 | , [CREATED ] | |||||
| 3389 | , [UPDATED ] | |||||
| 3390 | ) | |||||
| 3391 | SELECT get Date() | |||||
| 3392 | , lv_Chang e= case | |||||
| 3393 | WHEN @cdel eted=0 and @cinserte d>0 then ' INSERT' | |||||
| 3394 | when @cdel eted>0 and @cinserte d>0 then ' UPDATE' | |||||
| 3395 | else NULL | |||||
| 3396 | end | |||||
| 3397 | , HCB= cas e | |||||
| 3398 | WHEN @cdel eted=0 and @cinserte d>0 then C reatedBy | |||||
| 3399 | when @cdel eted>0 and @cinserte d>0 then U pdatedBy | |||||
| 3400 | else NULL | |||||
| 3401 | end | |||||
| 3402 | , suser_sn ame() | |||||
| 3403 | , [FORM_RE SPONSE_ID] | |||||
| 3404 | , [REGISTR ANT_ID] | |||||
| 3405 | , [STD_FOR M_ID] | |||||
| 3406 | , [CREATED BY] | |||||
| 3407 | , [UPDATED BY] | |||||
| 3408 | , [CREATED ] | |||||
| 3409 | , [UPDATED ] | |||||
| 3410 | ||||||
| 3411 | FROM INSER TED | |||||
| 3412 | End | |||||
| 3413 | GO | |||||
| 3414 | PRINT N'Cr eating [AH OBPR].[TRG _FORM_RESP ONSE_DEL_H ]...'; | |||||
| 3415 | ||||||
| 3416 | ||||||
| 3417 | GO | |||||
| 3418 | CREATE TRI GGER [AHO BPR].[TRG_ FORM_RESPO NSE_DEL_H] | |||||
| 3419 | on [AHOBP R].[FORM_R ESPONSE] A fter DELET E | |||||
| 3420 | AS | |||||
| 3421 | BEGIN | |||||
| 3422 | declare @p os int, @v char varch ar(128) | |||||
| 3423 | SET @pos = 1 | |||||
| 3424 | SET @v char = CAS T(CONTEXT_ INFO()AS v archar(128 )) | |||||
| 3425 | ||||||
| 3426 | --Remo ve all 0x0 (keep onl y text) | |||||
| 3427 | WHILE not ASCII( substring( @vchar,@po s,1))=0 | |||||
| 3428 | BEGIN | |||||
| 3429 | S ET @pos = @pos + 1 | |||||
| 3430 | END | |||||
| 3431 | ||||||
| 3432 | SET @v char = SUB STRING(@vc har, 1, @p os - 1) | |||||
| 3433 | INSERT INT O [AHOBPR] .[FORM_RES PONSE_H] | |||||
| 3434 | ( [Audit_D ate] | |||||
| 3435 | , [Audit_T ype] | |||||
| 3436 | , [Audit_A pplication User] | |||||
| 3437 | , [Audit_S QLUser] | |||||
| 3438 | , [FORM_RE SPONSE_ID] | |||||
| 3439 | , [REGISTR ANT_ID] | |||||
| 3440 | , [STD_FOR M_ID] | |||||
| 3441 | , [CREATED BY] | |||||
| 3442 | , [UPDATED BY] | |||||
| 3443 | , [CREATED ] | |||||
| 3444 | , [UPDATED ] | |||||
| 3445 | ) | |||||
| 3446 | SELECT get Date() | |||||
| 3447 | , lv_Chang e= 'DELET E' | |||||
| 3448 | , HCB= @vc har | |||||
| 3449 | , suser_sn ame() | |||||
| 3450 | , [FORM_RE SPONSE_ID] | |||||
| 3451 | , [REGISTR ANT_ID] | |||||
| 3452 | , [STD_FOR M_ID] | |||||
| 3453 | , [CREATED BY] | |||||
| 3454 | , [UPDATED BY] | |||||
| 3455 | , [CREATED ] | |||||
| 3456 | , [UPDATED ] | |||||
| 3457 | ||||||
| 3458 | From Delet ed | |||||
| 3459 | End | |||||
| 3460 | GO | |||||
| 3461 | PRINT N'Cr eating [AH OBPR].[TRG _FORM_RESP ONSE_ANSWE R_H]...'; | |||||
| 3462 | ||||||
| 3463 | ||||||
| 3464 | GO | |||||
| 3465 | Create tri gger [AHOB PR].[TRG_F ORM_RESPON SE_ANSWER_ H] on [AHO BPR].[FORM _RESPONSE_ ANSWER] | |||||
| 3466 | after Upda te, Insert | |||||
| 3467 | AS | |||||
| 3468 | Begin | |||||
| 3469 | declare @l v_change v archar(15) | |||||
| 3470 | , @cdelete d int | |||||
| 3471 | , @cinsert ed int | |||||
| 3472 | , @cSftDel ete int | |||||
| 3473 | SELECT @cd eleted =co unt(*) FRO M DELETED | |||||
| 3474 | SELECT @ci nserted =c ount(*) FR OM INSERTE D | |||||
| 3475 | INSERT INT O [AHOBPR] .[FORM_RES PONSE_ANSW ER_H] | |||||
| 3476 | ( [Audit_D ate] | |||||
| 3477 | , [Audit_T ype] | |||||
| 3478 | , [Audit_A pplication User] | |||||
| 3479 | , [Audit_S QLUser] | |||||
| 3480 | , [FORM_RE SPONSE_ANS WER_ID] | |||||
| 3481 | , [FORM_RE SPONSE_QUE STION_ID] | |||||
| 3482 | , [STD_FOR M_ANSWER_I D] | |||||
| 3483 | , [ANSWER_ VALUE] | |||||
| 3484 | , [CREATED BY] | |||||
| 3485 | , [UPDATED BY] | |||||
| 3486 | , [CREATED ] | |||||
| 3487 | , [UPDATED ] | |||||
| 3488 | ) | |||||
| 3489 | SELECT get Date() | |||||
| 3490 | , lv_Chang e= case | |||||
| 3491 | WHEN @cdel eted=0 and @cinserte d>0 then ' INSERT' | |||||
| 3492 | when @cdel eted>0 and @cinserte d>0 then ' UPDATE' | |||||
| 3493 | else NULL | |||||
| 3494 | end | |||||
| 3495 | , HCB= cas e | |||||
| 3496 | WHEN @cdel eted=0 and @cinserte d>0 then C reatedBy | |||||
| 3497 | when @cdel eted>0 and @cinserte d>0 then U pdatedBy | |||||
| 3498 | else NULL | |||||
| 3499 | end | |||||
| 3500 | , suser_sn ame() | |||||
| 3501 | , [FORM_RE SPONSE_ANS WER_ID] | |||||
| 3502 | , [FORM_RE SPONSE_QUE STION_ID] | |||||
| 3503 | , [STD_FOR M_ANSWER_I D] | |||||
| 3504 | , [ANSWER_ VALUE] | |||||
| 3505 | , [CREATED BY] | |||||
| 3506 | , [UPDATED BY] | |||||
| 3507 | , [CREATED ] | |||||
| 3508 | , [UPDATED ] | |||||
| 3509 | ||||||
| 3510 | FROM INSER TED | |||||
| 3511 | End | |||||
| 3512 | GO | |||||
| 3513 | PRINT N'Cr eating [AH OBPR].[TRG _FORM_RESP ONSE_ANSWE R_DEL_H].. .'; | |||||
| 3514 | ||||||
| 3515 | ||||||
| 3516 | GO | |||||
| 3517 | CREATE TRI GGER [AHO BPR].[TRG_ FORM_RESPO NSE_ANSWER _DEL_H] | |||||
| 3518 | on [AHOBP R].[FORM_R ESPONSE_AN SWER] Afte r DELETE | |||||
| 3519 | AS | |||||
| 3520 | BEGIN | |||||
| 3521 | declare @p os int, @v char varch ar(128) | |||||
| 3522 | SET @pos = 1 | |||||
| 3523 | SET @v char = CAS T(CONTEXT_ INFO()AS v archar(128 )) | |||||
| 3524 | ||||||
| 3525 | --Remo ve all 0x0 (keep onl y text) | |||||
| 3526 | WHILE not ASCII( substring( @vchar,@po s,1))=0 | |||||
| 3527 | BEGIN | |||||
| 3528 | S ET @pos = @pos + 1 | |||||
| 3529 | END | |||||
| 3530 | ||||||
| 3531 | SET @v char = SUB STRING(@vc har, 1, @p os - 1) | |||||
| 3532 | INSERT INT O [AHOBPR] .[FORM_RES PONSE_ANSW ER_H] | |||||
| 3533 | ( [Audit_D ate] | |||||
| 3534 | , [Audit_T ype] | |||||
| 3535 | , [Audit_A pplication User] | |||||
| 3536 | , [Audit_S QLUser] | |||||
| 3537 | , [FORM_RE SPONSE_ANS WER_ID] | |||||
| 3538 | , [FORM_RE SPONSE_QUE STION_ID] | |||||
| 3539 | , [STD_FOR M_ANSWER_I D] | |||||
| 3540 | , [ANSWER_ VALUE] | |||||
| 3541 | , [CREATED BY] | |||||
| 3542 | , [UPDATED BY] | |||||
| 3543 | , [CREATED ] | |||||
| 3544 | , [UPDATED ] | |||||
| 3545 | ) | |||||
| 3546 | SELECT get Date() | |||||
| 3547 | , lv_Chang e= 'DELET E' | |||||
| 3548 | , HCB= @vc har | |||||
| 3549 | , suser_sn ame() | |||||
| 3550 | , [FORM_RE SPONSE_ANS WER_ID] | |||||
| 3551 | , [FORM_RE SPONSE_QUE STION_ID] | |||||
| 3552 | , [STD_FOR M_ANSWER_I D] | |||||
| 3553 | , [ANSWER_ VALUE] | |||||
| 3554 | , [CREATED BY] | |||||
| 3555 | , [UPDATED BY] | |||||
| 3556 | , [CREATED ] | |||||
| 3557 | , [UPDATED ] | |||||
| 3558 | ||||||
| 3559 | From Delet ed | |||||
| 3560 | End | |||||
| 3561 | GO | |||||
| 3562 | PRINT N'Cr eating [AH OBPR].[TRG _FORM_RESP ONSE_STATU S_H]...'; | |||||
| 3563 | ||||||
| 3564 | ||||||
| 3565 | GO | |||||
| 3566 | Create tri gger [AHOB PR].[TRG_F ORM_RESPON SE_STATUS_ H] on [AHO BPR].[FORM _RESPONSE_ STATUS] | |||||
| 3567 | after Upda te, Insert | |||||
| 3568 | AS | |||||
| 3569 | Begin | |||||
| 3570 | declare @l v_change v archar(15) | |||||
| 3571 | , @cdelete d int | |||||
| 3572 | , @cinsert ed int | |||||
| 3573 | , @cSftDel ete int | |||||
| 3574 | SELECT @cd eleted =co unt(*) FRO M DELETED | |||||
| 3575 | SELECT @ci nserted =c ount(*) FR OM INSERTE D | |||||
| 3576 | INSERT INT O [AHOBPR] .[FORM_RES PONSE_STAT US_H] | |||||
| 3577 | ( [Audit_D ate] | |||||
| 3578 | , [Audit_T ype] | |||||
| 3579 | , [Audit_A pplication User] | |||||
| 3580 | , [Audit_S QLUser] | |||||
| 3581 | , [FORM_RE SPONSE_STA TUS_ID] | |||||
| 3582 | , [FORM_RE SPONSE_ID] | |||||
| 3583 | , [LAST_SE CTION_ID] | |||||
| 3584 | , [LAST_SU B_SECTION_ ID] | |||||
| 3585 | , [QUESTIO NNAIRE_STA RTED_DATE] | |||||
| 3586 | , [QUESTIO NNAIRE_COM PLETED_DAT E] | |||||
| 3587 | , [CREATED BY] | |||||
| 3588 | , [UPDATED BY] | |||||
| 3589 | , [CREATED ] | |||||
| 3590 | , [UPDATED ] | |||||
| 3591 | ) | |||||
| 3592 | SELECT get Date() | |||||
| 3593 | , lv_Chang e= case | |||||
| 3594 | WHEN @cdel eted=0 and @cinserte d>0 then ' INSERT' | |||||
| 3595 | when @cdel eted>0 and @cinserte d>0 then ' UPDATE' | |||||
| 3596 | else NULL | |||||
| 3597 | end | |||||
| 3598 | , HCB= cas e | |||||
| 3599 | WHEN @cdel eted=0 and @cinserte d>0 then C reatedBy | |||||
| 3600 | when @cdel eted>0 and @cinserte d>0 then U pdatedBy | |||||
| 3601 | else NULL | |||||
| 3602 | end | |||||
| 3603 | , suser_sn ame() | |||||
| 3604 | , [FORM_RE SPONSE_STA TUS_ID] | |||||
| 3605 | , [FORM_RE SPONSE_ID] | |||||
| 3606 | , [LAST_SE CTION_ID] | |||||
| 3607 | , [LAST_SU B_SECTION_ ID] | |||||
| 3608 | , [QUESTIO NNAIRE_STA RTED_DATE] | |||||
| 3609 | , [QUESTIO NNAIRE_COM PLETED_DAT E] | |||||
| 3610 | , [CREATED BY] | |||||
| 3611 | , [UPDATED BY] | |||||
| 3612 | , [CREATED ] | |||||
| 3613 | , [UPDATED ] | |||||
| 3614 | ||||||
| 3615 | FROM INSER TED | |||||
| 3616 | End | |||||
| 3617 | GO | |||||
| 3618 | PRINT N'Cr eating [AH OBPR].[TRG _FORM_RESP ONSE_STATU S_DEL_H].. .'; | |||||
| 3619 | ||||||
| 3620 | ||||||
| 3621 | GO | |||||
| 3622 | CREATE TRI GGER [AHO BPR].[TRG_ FORM_RESPO NSE_STATUS _DEL_H] | |||||
| 3623 | on [AHOBP R].[FORM_R ESPONSE_ST ATUS] Afte r DELETE | |||||
| 3624 | AS | |||||
| 3625 | BEGIN | |||||
| 3626 | declare @p os int, @v char varch ar(128) | |||||
| 3627 | SET @pos = 1 | |||||
| 3628 | SET @v char = CAS T(CONTEXT_ INFO()AS v archar(128 )) | |||||
| 3629 | ||||||
| 3630 | --Remo ve all 0x0 (keep onl y text) | |||||
| 3631 | WHILE not ASCII( substring( @vchar,@po s,1))=0 | |||||
| 3632 | BEGIN | |||||
| 3633 | S ET @pos = @pos + 1 | |||||
| 3634 | END | |||||
| 3635 | ||||||
| 3636 | SET @v char = SUB STRING(@vc har, 1, @p os - 1) | |||||
| 3637 | INSERT INT O [AHOBPR] .[FORM_RES PONSE_STAT US_H] | |||||
| 3638 | ( [Audit_D ate] | |||||
| 3639 | , [Audit_T ype] | |||||
| 3640 | , [Audit_A pplication User] | |||||
| 3641 | , [Audit_S QLUser] | |||||
| 3642 | , [FORM_RE SPONSE_STA TUS_ID] | |||||
| 3643 | , [FORM_RE SPONSE_ID] | |||||
| 3644 | , [LAST_SE CTION_ID] | |||||
| 3645 | , [LAST_SU B_SECTION_ ID] | |||||
| 3646 | , [QUESTIO NNAIRE_STA RTED_DATE] | |||||
| 3647 | , [QUESTIO NNAIRE_COM PLETED_DAT E] | |||||
| 3648 | , [CREATED BY] | |||||
| 3649 | , [UPDATED BY] | |||||
| 3650 | , [CREATED ] | |||||
| 3651 | , [UPDATED ] | |||||
| 3652 | ) | |||||
| 3653 | SELECT get Date() | |||||
| 3654 | , lv_Chang e= 'DELET E' | |||||
| 3655 | , HCB= @vc har | |||||
| 3656 | , suser_sn ame() | |||||
| 3657 | , [FORM_RE SPONSE_STA TUS_ID] | |||||
| 3658 | , [FORM_RE SPONSE_ID] | |||||
| 3659 | , [LAST_SE CTION_ID] | |||||
| 3660 | , [LAST_SU B_SECTION_ ID] | |||||
| 3661 | , [QUESTIO NNAIRE_STA RTED_DATE] | |||||
| 3662 | , [QUESTIO NNAIRE_COM PLETED_DAT E] | |||||
| 3663 | , [CREATED BY] | |||||
| 3664 | , [UPDATED BY] | |||||
| 3665 | , [CREATED ] | |||||
| 3666 | , [UPDATED ] | |||||
| 3667 | ||||||
| 3668 | From Delet ed | |||||
| 3669 | End | |||||
| 3670 | GO | |||||
| 3671 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_REGISTRY _FLAG_H].. .'; | |||||
| 3672 | ||||||
| 3673 | ||||||
| 3674 | GO | |||||
| 3675 | Create tri gger [AHOB PR].[TRG_R EGISTRANT_ REGISTRY_F LAG_H] on [AHOBPR].[ REGISTRANT _REGISTRY_ FLAG] | |||||
| 3676 | after Upda te, Insert | |||||
| 3677 | AS | |||||
| 3678 | Begin | |||||
| 3679 | declare @l v_change v archar(15) | |||||
| 3680 | , @cdelete d int | |||||
| 3681 | , @cinsert ed int | |||||
| 3682 | , @cSftDel ete int | |||||
| 3683 | SELECT @cd eleted =co unt(*) FRO M DELETED | |||||
| 3684 | SELECT @ci nserted =c ount(*) FR OM INSERTE D | |||||
| 3685 | INSERT INT O [AHOBPR] .[REGISTRA NT_REGISTR Y_FLAG_H] | |||||
| 3686 | ( [Audit_D ate] | |||||
| 3687 | , [Audit_T ype] | |||||
| 3688 | , [Audit_A pplication User] | |||||
| 3689 | , [Audit_S QLUser] | |||||
| 3690 | , [REGISTR ANT_REGIST RY_FLAG_ID ] | |||||
| 3691 | , [REGISTR ANT_ID] | |||||
| 3692 | , [STD_REG ISTRY_FLAG _ID] | |||||
| 3693 | , [CREATED BY] | |||||
| 3694 | , [UPDATED BY] | |||||
| 3695 | , [CREATED ] | |||||
| 3696 | , [UPDATED ] | |||||
| 3697 | ) | |||||
| 3698 | SELECT get Date() | |||||
| 3699 | , lv_Chang e= case | |||||
| 3700 | WHEN @cdel eted=0 and @cinserte d>0 then ' INSERT' | |||||
| 3701 | when @cdel eted>0 and @cinserte d>0 then ' UPDATE' | |||||
| 3702 | else NULL | |||||
| 3703 | end | |||||
| 3704 | , HCB= cas e | |||||
| 3705 | WHEN @cdel eted=0 and @cinserte d>0 then C reatedBy | |||||
| 3706 | when @cdel eted>0 and @cinserte d>0 then U pdatedBy | |||||
| 3707 | else NULL | |||||
| 3708 | end | |||||
| 3709 | , suser_sn ame() | |||||
| 3710 | , [REGISTR ANT_REGIST RY_FLAG_ID ] | |||||
| 3711 | , [REGISTR ANT_ID] | |||||
| 3712 | , [STD_REG ISTRY_FLAG _ID] | |||||
| 3713 | , [CREATED BY] | |||||
| 3714 | , [UPDATED BY] | |||||
| 3715 | , [CREATED ] | |||||
| 3716 | , [UPDATED ] | |||||
| 3717 | ||||||
| 3718 | FROM INSER TED | |||||
| 3719 | End | |||||
| 3720 | GO | |||||
| 3721 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_REGISTRY _FLAG_DEL_ H]...'; | |||||
| 3722 | ||||||
| 3723 | ||||||
| 3724 | GO | |||||
| 3725 | CREATE TRI GGER [AHO BPR].[TRG_ REGISTRANT _REGISTRY_ FLAG_DEL_H ] | |||||
| 3726 | on [AHOBP R].[REGIST RANT_REGIS TRY_FLAG] After DELE TE | |||||
| 3727 | AS | |||||
| 3728 | BEGIN | |||||
| 3729 | declare @p os int, @v char varch ar(128) | |||||
| 3730 | SET @pos = 1 | |||||
| 3731 | SET @v char = CAS T(CONTEXT_ INFO()AS v archar(128 )) | |||||
| 3732 | ||||||
| 3733 | --Remo ve all 0x0 (keep onl y text) | |||||
| 3734 | WHILE not ASCII( substring( @vchar,@po s,1))=0 | |||||
| 3735 | BEGIN | |||||
| 3736 | S ET @pos = @pos + 1 | |||||
| 3737 | END | |||||
| 3738 | ||||||
| 3739 | SET @v char = SUB STRING(@vc har, 1, @p os - 1) | |||||
| 3740 | INSERT INT O [AHOBPR] .[REGISTRA NT_REGISTR Y_FLAG_H] | |||||
| 3741 | ( [Audit_D ate] | |||||
| 3742 | , [Audit_T ype] | |||||
| 3743 | , [Audit_A pplication User] | |||||
| 3744 | , [Audit_S QLUser] | |||||
| 3745 | , [REGISTR ANT_REGIST RY_FLAG_ID ] | |||||
| 3746 | , [REGISTR ANT_ID] | |||||
| 3747 | , [STD_REG ISTRY_FLAG _ID] | |||||
| 3748 | , [CREATED BY] | |||||
| 3749 | , [UPDATED BY] | |||||
| 3750 | , [CREATED ] | |||||
| 3751 | , [UPDATED ] | |||||
| 3752 | ) | |||||
| 3753 | SELECT get Date() | |||||
| 3754 | , lv_Chang e= 'DELET E' | |||||
| 3755 | , HCB= @vc har | |||||
| 3756 | , suser_sn ame() | |||||
| 3757 | , [REGISTR ANT_REGIST RY_FLAG_ID ] | |||||
| 3758 | , [REGISTR ANT_ID] | |||||
| 3759 | , [STD_REG ISTRY_FLAG _ID] | |||||
| 3760 | , [CREATED BY] | |||||
| 3761 | , [UPDATED BY] | |||||
| 3762 | , [CREATED ] | |||||
| 3763 | , [UPDATED ] | |||||
| 3764 | ||||||
| 3765 | From Delet ed | |||||
| 3766 | End | |||||
| 3767 | GO | |||||
| 3768 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_EMAIL_H] ...'; | |||||
| 3769 | ||||||
| 3770 | ||||||
| 3771 | GO | |||||
| 3772 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 3773 | ||||||
| 3774 | ||||||
| 3775 | GO | |||||
| 3776 | Create tri gger [AHOB PR].[TRG_R EGISTRANT_ EMAIL_H] o n [AHOBPR] .[REGISTRA NT_EMAIL] | |||||
| 3777 | after Upda te, Insert | |||||
| 3778 | AS | |||||
| 3779 | Begin | |||||
| 3780 | declare @l v_change v archar(15) | |||||
| 3781 | , @cdelete d int | |||||
| 3782 | , @cinsert ed int | |||||
| 3783 | , @cSftDel ete int | |||||
| 3784 | SELECT @cd eleted =co unt(*) FRO M DELETED | |||||
| 3785 | SELECT @ci nserted =c ount(*) FR OM INSERTE D | |||||
| 3786 | INSERT INT O [AHOBPR] .[REGISTRA NT_EMAIL_H ] | |||||
| 3787 | ( [Audit_D ate] | |||||
| 3788 | , [Audit_T ype] | |||||
| 3789 | , [Audit_A pplication User] | |||||
| 3790 | , [Audit_S QLUser] | |||||
| 3791 | , [REGISTR ANT_EMAIL_ ID] | |||||
| 3792 | , [REGISTR ANT_ID] | |||||
| 3793 | , [TYPE] | |||||
| 3794 | , [EMAIL] | |||||
| 3795 | , [CREATED BY] | |||||
| 3796 | , [UPDATED BY] | |||||
| 3797 | , [CREATED ] | |||||
| 3798 | , [UPDATED ] | |||||
| 3799 | ) | |||||
| 3800 | SELECT get Date() | |||||
| 3801 | , lv_Chang e= case | |||||
| 3802 | WHEN @cdel eted=0 and @cinserte d>0 then ' INSERT' | |||||
| 3803 | when @cdel eted>0 and @cinserte d>0 then ' UPDATE' | |||||
| 3804 | else NULL | |||||
| 3805 | end | |||||
| 3806 | , HCB= cas e | |||||
| 3807 | WHEN @cdel eted=0 and @cinserte d>0 then C reatedBy | |||||
| 3808 | when @cdel eted>0 and @cinserte d>0 then U pdatedBy | |||||
| 3809 | else NULL | |||||
| 3810 | end | |||||
| 3811 | , suser_sn ame() | |||||
| 3812 | , [REGISTR ANT_EMAIL_ ID] | |||||
| 3813 | , [REGISTR ANT_ID] | |||||
| 3814 | , [TYPE] | |||||
| 3815 | , [EMAIL] | |||||
| 3816 | , [CREATED BY] | |||||
| 3817 | , [UPDATED BY] | |||||
| 3818 | , [CREATED ] | |||||
| 3819 | , [UPDATED ] | |||||
| 3820 | ||||||
| 3821 | FROM INSER TED | |||||
| 3822 | End | |||||
| 3823 | GO | |||||
| 3824 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 3825 | ||||||
| 3826 | ||||||
| 3827 | GO | |||||
| 3828 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_EMAIL_DE L_H]...'; | |||||
| 3829 | ||||||
| 3830 | ||||||
| 3831 | GO | |||||
| 3832 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 3833 | ||||||
| 3834 | ||||||
| 3835 | GO | |||||
| 3836 | CREATE TRI GGER [AHO BPR].[TRG_ REGISTRANT _EMAIL_DEL _H] | |||||
| 3837 | on [AHOBP R].[REGIST RANT_EMAIL ] After DE LETE | |||||
| 3838 | AS | |||||
| 3839 | BEGIN | |||||
| 3840 | declare @p os int, @v char varch ar(128) | |||||
| 3841 | SET @pos = 1 | |||||
| 3842 | SET @v char = CAS T(CONTEXT_ INFO()AS v archar(128 )) | |||||
| 3843 | ||||||
| 3844 | --Remo ve all 0x0 (keep onl y text) | |||||
| 3845 | WHILE not ASCII( substring( @vchar,@po s,1))=0 | |||||
| 3846 | BEGIN | |||||
| 3847 | S ET @pos = @pos + 1 | |||||
| 3848 | END | |||||
| 3849 | ||||||
| 3850 | SET @v char = SUB STRING(@vc har, 1, @p os - 1) | |||||
| 3851 | INSERT INT O [AHOBPR] .[REGISTRA NT_EMAIL_H ] | |||||
| 3852 | ( [Audit_D ate] | |||||
| 3853 | , [Audit_T ype] | |||||
| 3854 | , [Audit_A pplication User] | |||||
| 3855 | , [Audit_S QLUser] | |||||
| 3856 | , [REGISTR ANT_EMAIL_ ID] | |||||
| 3857 | , [REGISTR ANT_ID] | |||||
| 3858 | , [TYPE] | |||||
| 3859 | , [EMAIL] | |||||
| 3860 | , [CREATED BY] | |||||
| 3861 | , [UPDATED BY] | |||||
| 3862 | , [CREATED ] | |||||
| 3863 | , [UPDATED ] | |||||
| 3864 | ) | |||||
| 3865 | SELECT get Date() | |||||
| 3866 | , lv_Chang e= 'DELET E' | |||||
| 3867 | , HCB= @vc har | |||||
| 3868 | , suser_sn ame() | |||||
| 3869 | , [REGISTR ANT_EMAIL_ ID] | |||||
| 3870 | , [REGISTR ANT_ID] | |||||
| 3871 | , [TYPE] | |||||
| 3872 | , [EMAIL] | |||||
| 3873 | , [CREATED BY] | |||||
| 3874 | , [UPDATED BY] | |||||
| 3875 | , [CREATED ] | |||||
| 3876 | , [UPDATED ] | |||||
| 3877 | ||||||
| 3878 | From Delet ed | |||||
| 3879 | End | |||||
| 3880 | GO | |||||
| 3881 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 3882 | ||||||
| 3883 | ||||||
| 3884 | GO | |||||
| 3885 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_CONTACT_ INFO_H]... '; | |||||
| 3886 | ||||||
| 3887 | ||||||
| 3888 | GO | |||||
| 3889 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 3890 | ||||||
| 3891 | ||||||
| 3892 | GO | |||||
| 3893 | Create tri gger [AHOB PR].[TRG_R EGISTRANT_ CONTACT_IN FO_H] on [ AHOBPR].[R EGISTRANT_ CONTACT_IN FO] | |||||
| 3894 | after Upda te, Insert | |||||
| 3895 | AS | |||||
| 3896 | Begin | |||||
| 3897 | declare @l v_change v archar(15) | |||||
| 3898 | , @cdelete d int | |||||
| 3899 | , @cinsert ed int | |||||
| 3900 | , @cSftDel ete int | |||||
| 3901 | SELECT @cd eleted =co unt(*) FRO M DELETED | |||||
| 3902 | SELECT @ci nserted =c ount(*) FR OM INSERTE D | |||||
| 3903 | INSERT INT O [AHOBPR] .[REGISTRA NT_CONTACT _INFO_H] | |||||
| 3904 | ( [Audit_D ate] | |||||
| 3905 | , [Audit_T ype] | |||||
| 3906 | , [Audit_A pplication User] | |||||
| 3907 | , [Audit_S QLUser] | |||||
| 3908 | , [REGISTR ANT_ID] | |||||
| 3909 | , [FIRST_N AME_CONFIR MED] | |||||
| 3910 | , [MIDDLE_ NAME_CONFI RMED] | |||||
| 3911 | , [LAST_NA ME_CONFIRM ED] | |||||
| 3912 | , [LAST_UP DATED_DATE ] | |||||
| 3913 | , [PREVIOU S_VALUES] | |||||
| 3914 | , [PREVIOU S_UPDATED_ DATE] | |||||
| 3915 | , [CREATED BY] | |||||
| 3916 | , [UPDATED BY] | |||||
| 3917 | , [CREATED ] | |||||
| 3918 | , [UPDATED ] | |||||
| 3919 | ) | |||||
| 3920 | SELECT get Date() | |||||
| 3921 | , lv_Chang e= case | |||||
| 3922 | WHEN @cdel eted=0 and @cinserte d>0 then ' INSERT' | |||||
| 3923 | when @cdel eted>0 and @cinserte d>0 then ' UPDATE' | |||||
| 3924 | else NULL | |||||
| 3925 | end | |||||
| 3926 | , HCB= cas e | |||||
| 3927 | WHEN @cdel eted=0 and @cinserte d>0 then C reatedBy | |||||
| 3928 | when @cdel eted>0 and @cinserte d>0 then U pdatedBy | |||||
| 3929 | else NULL | |||||
| 3930 | end | |||||
| 3931 | , suser_sn ame() | |||||
| 3932 | , [REGISTR ANT_ID] | |||||
| 3933 | , [FIRST_N AME_CONFIR MED] | |||||
| 3934 | , [MIDDLE_ NAME_CONFI RMED] | |||||
| 3935 | , [LAST_NA ME_CONFIRM ED] | |||||
| 3936 | , [LAST_UP DATED_DATE ] | |||||
| 3937 | , [PREVIOU S_VALUES] | |||||
| 3938 | , [PREVIOU S_UPDATED_ DATE] | |||||
| 3939 | , [CREATED BY] | |||||
| 3940 | , [UPDATED BY] | |||||
| 3941 | , [CREATED ] | |||||
| 3942 | , [UPDATED ] | |||||
| 3943 | ||||||
| 3944 | FROM INSER TED | |||||
| 3945 | End | |||||
| 3946 | GO | |||||
| 3947 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 3948 | ||||||
| 3949 | ||||||
| 3950 | GO | |||||
| 3951 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_CONTACT_ INFO_DEL_H ]...'; | |||||
| 3952 | ||||||
| 3953 | ||||||
| 3954 | GO | |||||
| 3955 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 3956 | ||||||
| 3957 | ||||||
| 3958 | GO | |||||
| 3959 | CREATE TRI GGER [AHO BPR].[TRG_ REGISTRANT _CONTACT_I NFO_DEL_H] | |||||
| 3960 | on [AHOBP R].[REGIST RANT_CONTA CT_INFO] A fter DELET E | |||||
| 3961 | AS | |||||
| 3962 | BEGIN | |||||
| 3963 | declare @p os int, @v char varch ar(128) | |||||
| 3964 | SET @pos = 1 | |||||
| 3965 | SET @v char = CAS T(CONTEXT_ INFO()AS v archar(128 )) | |||||
| 3966 | ||||||
| 3967 | --Remo ve all 0x0 (keep onl y text) | |||||
| 3968 | WHILE not ASCII( substring( @vchar,@po s,1))=0 | |||||
| 3969 | BEGIN | |||||
| 3970 | S ET @pos = @pos + 1 | |||||
| 3971 | END | |||||
| 3972 | ||||||
| 3973 | SET @v char = SUB STRING(@vc har, 1, @p os - 1) | |||||
| 3974 | INSERT INT O [AHOBPR] .[REGISTRA NT_CONTACT _INFO_H] | |||||
| 3975 | ( [Audit_D ate] | |||||
| 3976 | , [Audit_T ype] | |||||
| 3977 | , [Audit_A pplication User] | |||||
| 3978 | , [Audit_S QLUser] | |||||
| 3979 | , [REGISTR ANT_ID] | |||||
| 3980 | , [FIRST_N AME_CONFIR MED] | |||||
| 3981 | , [MIDDLE_ NAME_CONFI RMED] | |||||
| 3982 | , [LAST_NA ME_CONFIRM ED] | |||||
| 3983 | , [LAST_UP DATED_DATE ] | |||||
| 3984 | , [PREVIOU S_VALUES] | |||||
| 3985 | , [PREVIOU S_UPDATED_ DATE] | |||||
| 3986 | , [CREATED BY] | |||||
| 3987 | , [UPDATED BY] | |||||
| 3988 | , [CREATED ] | |||||
| 3989 | , [UPDATED ] | |||||
| 3990 | ) | |||||
| 3991 | SELECT get Date() | |||||
| 3992 | , lv_Chang e= 'DELET E' | |||||
| 3993 | , HCB= @vc har | |||||
| 3994 | , suser_sn ame() | |||||
| 3995 | , [REGISTR ANT_ID] | |||||
| 3996 | , [FIRST_N AME_CONFIR MED] | |||||
| 3997 | , [MIDDLE_ NAME_CONFI RMED] | |||||
| 3998 | , [LAST_NA ME_CONFIRM ED] | |||||
| 3999 | , [LAST_UP DATED_DATE ] | |||||
| 4000 | , [PREVIOU S_VALUES] | |||||
| 4001 | , [PREVIOU S_UPDATED_ DATE] | |||||
| 4002 | , [CREATED BY] | |||||
| 4003 | , [UPDATED BY] | |||||
| 4004 | , [CREATED ] | |||||
| 4005 | , [UPDATED ] | |||||
| 4006 | ||||||
| 4007 | From Delet ed | |||||
| 4008 | End | |||||
| 4009 | GO | |||||
| 4010 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 4011 | ||||||
| 4012 | ||||||
| 4013 | GO | |||||
| 4014 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_ADDRESS_ H]...'; | |||||
| 4015 | ||||||
| 4016 | ||||||
| 4017 | GO | |||||
| 4018 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 4019 | ||||||
| 4020 | ||||||
| 4021 | GO | |||||
| 4022 | Create tri gger [AHOB PR].[TRG_R EGISTRANT_ ADDRESS_H] on [AHOBP R].[REGIST RANT_ADDRE SS] | |||||
| 4023 | after Upda te, Insert | |||||
| 4024 | AS | |||||
| 4025 | Begin | |||||
| 4026 | declare @l v_change v archar(15) | |||||
| 4027 | , @cdelete d int | |||||
| 4028 | , @cinsert ed int | |||||
| 4029 | , @cSftDel ete int | |||||
| 4030 | SELECT @cd eleted =co unt(*) FRO M DELETED | |||||
| 4031 | SELECT @ci nserted =c ount(*) FR OM INSERTE D | |||||
| 4032 | INSERT INT O [AHOBPR] .[REGISTRA NT_ADDRESS _H] | |||||
| 4033 | ( [Audit_D ate] | |||||
| 4034 | , [Audit_T ype] | |||||
| 4035 | , [Audit_A pplication User] | |||||
| 4036 | , [Audit_S QLUser] | |||||
| 4037 | , [REGISTR ANT_ADDRES S_ID] | |||||
| 4038 | , [REGISTR ANT_ID] | |||||
| 4039 | , [TYPE] | |||||
| 4040 | , [STREET1 ] | |||||
| 4041 | , [STREET2 ] | |||||
| 4042 | , [CITY] | |||||
| 4043 | , [STATE] | |||||
| 4044 | , [ZIP] | |||||
| 4045 | , [COUNTRY ] | |||||
| 4046 | , [CREATED BY] | |||||
| 4047 | , [UPDATED BY] | |||||
| 4048 | , [CREATED ] | |||||
| 4049 | , [UPDATED ] | |||||
| 4050 | ) | |||||
| 4051 | SELECT get Date() | |||||
| 4052 | , lv_Chang e= case | |||||
| 4053 | WHEN @cdel eted=0 and @cinserte d>0 then ' INSERT' | |||||
| 4054 | when @cdel eted>0 and @cinserte d>0 then ' UPDATE' | |||||
| 4055 | else NULL | |||||
| 4056 | end | |||||
| 4057 | , HCB= cas e | |||||
| 4058 | WHEN @cdel eted=0 and @cinserte d>0 then C reatedBy | |||||
| 4059 | when @cdel eted>0 and @cinserte d>0 then U pdatedBy | |||||
| 4060 | else NULL | |||||
| 4061 | end | |||||
| 4062 | , suser_sn ame() | |||||
| 4063 | , [REGISTR ANT_ADDRES S_ID] | |||||
| 4064 | , [REGISTR ANT_ID] | |||||
| 4065 | , [TYPE] | |||||
| 4066 | , [STREET1 ] | |||||
| 4067 | , [STREET2 ] | |||||
| 4068 | , [CITY] | |||||
| 4069 | , [STATE] | |||||
| 4070 | , [ZIP] | |||||
| 4071 | , [COUNTRY ] | |||||
| 4072 | , [CREATED BY] | |||||
| 4073 | , [UPDATED BY] | |||||
| 4074 | , [CREATED ] | |||||
| 4075 | , [UPDATED ] | |||||
| 4076 | ||||||
| 4077 | FROM INSER TED | |||||
| 4078 | End | |||||
| 4079 | GO | |||||
| 4080 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 4081 | ||||||
| 4082 | ||||||
| 4083 | GO | |||||
| 4084 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_ADDRESS_ DEL_H]...' ; | |||||
| 4085 | ||||||
| 4086 | ||||||
| 4087 | GO | |||||
| 4088 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 4089 | ||||||
| 4090 | ||||||
| 4091 | GO | |||||
| 4092 | CREATE TRI GGER [AHO BPR].[TRG_ REGISTRANT _ADDRESS_D EL_H] | |||||
| 4093 | on [AHOBP R].[REGIST RANT_ADDRE SS] After DELETE | |||||
| 4094 | AS | |||||
| 4095 | BEGIN | |||||
| 4096 | declare @p os int, @v char varch ar(128) | |||||
| 4097 | SET @pos = 1 | |||||
| 4098 | SET @v char = CAS T(CONTEXT_ INFO()AS v archar(128 )) | |||||
| 4099 | ||||||
| 4100 | --Remo ve all 0x0 (keep onl y text) | |||||
| 4101 | WHILE not ASCII( substring( @vchar,@po s,1))=0 | |||||
| 4102 | BEGIN | |||||
| 4103 | S ET @pos = @pos + 1 | |||||
| 4104 | END | |||||
| 4105 | ||||||
| 4106 | SET @v char = SUB STRING(@vc har, 1, @p os - 1) | |||||
| 4107 | INSERT INT O [AHOBPR] .[REGISTRA NT_ADDRESS _H] | |||||
| 4108 | ( [Audit_D ate] | |||||
| 4109 | , [Audit_T ype] | |||||
| 4110 | , [Audit_A pplication User] | |||||
| 4111 | , [Audit_S QLUser] | |||||
| 4112 | , [REGISTR ANT_ADDRES S_ID] | |||||
| 4113 | , [REGISTR ANT_ID] | |||||
| 4114 | , [TYPE] | |||||
| 4115 | , [STREET1 ] | |||||
| 4116 | , [STREET2 ] | |||||
| 4117 | , [CITY] | |||||
| 4118 | , [STATE] | |||||
| 4119 | , [ZIP] | |||||
| 4120 | , [COUNTRY ] | |||||
| 4121 | , [CREATED BY] | |||||
| 4122 | , [UPDATED BY] | |||||
| 4123 | , [CREATED ] | |||||
| 4124 | , [UPDATED ] | |||||
| 4125 | ) | |||||
| 4126 | SELECT get Date() | |||||
| 4127 | , lv_Chang e= 'DELET E' | |||||
| 4128 | , HCB= @vc har | |||||
| 4129 | , suser_sn ame() | |||||
| 4130 | , [REGISTR ANT_ADDRES S_ID] | |||||
| 4131 | , [REGISTR ANT_ID] | |||||
| 4132 | , [TYPE] | |||||
| 4133 | , [STREET1 ] | |||||
| 4134 | , [STREET2 ] | |||||
| 4135 | , [CITY] | |||||
| 4136 | , [STATE] | |||||
| 4137 | , [ZIP] | |||||
| 4138 | , [COUNTRY ] | |||||
| 4139 | , [CREATED BY] | |||||
| 4140 | , [UPDATED BY] | |||||
| 4141 | , [CREATED ] | |||||
| 4142 | , [UPDATED ] | |||||
| 4143 | ||||||
| 4144 | From Delet ed | |||||
| 4145 | End | |||||
| 4146 | GO | |||||
| 4147 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 4148 | ||||||
| 4149 | ||||||
| 4150 | GO | |||||
| 4151 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_RECORD_I NFO_H]...' ; | |||||
| 4152 | ||||||
| 4153 | ||||||
| 4154 | GO | |||||
| 4155 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 4156 | ||||||
| 4157 | ||||||
| 4158 | GO | |||||
| 4159 | Create tri gger [AHOB PR].[TRG_R EGISTRANT_ RECORD_INF O_H] on [A HOBPR].[RE GISTRANT_R ECORD_INFO ] | |||||
| 4160 | after Upda te, Insert | |||||
| 4161 | AS | |||||
| 4162 | Begin | |||||
| 4163 | declare @l v_change v archar(15) | |||||
| 4164 | , @cdelete d int | |||||
| 4165 | , @cinsert ed int | |||||
| 4166 | , @cSftDel ete int | |||||
| 4167 | SELECT @cd eleted =co unt(*) FRO M DELETED | |||||
| 4168 | SELECT @ci nserted =c ount(*) FR OM INSERTE D | |||||
| 4169 | INSERT INT O [AHOBPR] .[REGISTRA NT_RECORD_ INFO_H] | |||||
| 4170 | ( [Audit_D ate] | |||||
| 4171 | , [Audit_T ype] | |||||
| 4172 | , [Audit_A pplication User] | |||||
| 4173 | , [Audit_S QLUser] | |||||
| 4174 | , [REGISTR ANT_ID] | |||||
| 4175 | , [EULA_AC CEPTED_DAT E] | |||||
| 4176 | , [EDIPI_V ERIFIED_DA TE] | |||||
| 4177 | , [EDIPI_M ISMATCHED_ FLAG] | |||||
| 4178 | , [CONTACT _INFO_VERI FIED_DATE] | |||||
| 4179 | , [CREATED BY] | |||||
| 4180 | , [UPDATED BY] | |||||
| 4181 | , [CREATED ] | |||||
| 4182 | , [UPDATED ] | |||||
| 4183 | ) | |||||
| 4184 | SELECT get Date() | |||||
| 4185 | , lv_Chang e= case | |||||
| 4186 | WHEN @cdel eted=0 and @cinserte d>0 then ' INSERT' | |||||
| 4187 | when @cdel eted>0 and @cinserte d>0 then ' UPDATE' | |||||
| 4188 | else NULL | |||||
| 4189 | end | |||||
| 4190 | , HCB= cas e | |||||
| 4191 | WHEN @cdel eted=0 and @cinserte d>0 then C reatedBy | |||||
| 4192 | when @cdel eted>0 and @cinserte d>0 then U pdatedBy | |||||
| 4193 | else NULL | |||||
| 4194 | end | |||||
| 4195 | , suser_sn ame() | |||||
| 4196 | , [REGISTR ANT_ID] | |||||
| 4197 | , [EULA_AC CEPTED_DAT E] | |||||
| 4198 | , [EDIPI_V ERIFIED_DA TE] | |||||
| 4199 | , [EDIPI_M ISMATCHED_ FLAG] | |||||
| 4200 | , [CONTACT _INFO_VERI FIED_DATE] | |||||
| 4201 | , [CREATED BY] | |||||
| 4202 | , [UPDATED BY] | |||||
| 4203 | , [CREATED ] | |||||
| 4204 | , [UPDATED ] | |||||
| 4205 | ||||||
| 4206 | FROM INSER TED | |||||
| 4207 | End | |||||
| 4208 | GO | |||||
| 4209 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 4210 | ||||||
| 4211 | ||||||
| 4212 | GO | |||||
| 4213 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_RECORD_I NFO_DEL_H] ...'; | |||||
| 4214 | ||||||
| 4215 | ||||||
| 4216 | GO | |||||
| 4217 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 4218 | ||||||
| 4219 | ||||||
| 4220 | GO | |||||
| 4221 | CREATE TRI GGER [AHO BPR].[TRG_ REGISTRANT _RECORD_IN FO_DEL_H] | |||||
| 4222 | on [AHOBP R].[REGIST RANT_RECOR D_INFO] Af ter DELETE | |||||
| 4223 | AS | |||||
| 4224 | BEGIN | |||||
| 4225 | declare @p os int, @v char varch ar(128) | |||||
| 4226 | SET @pos = 1 | |||||
| 4227 | SET @v char = CAS T(CONTEXT_ INFO()AS v archar(128 )) | |||||
| 4228 | ||||||
| 4229 | --Remo ve all 0x0 (keep onl y text) | |||||
| 4230 | WHILE not ASCII( substring( @vchar,@po s,1))=0 | |||||
| 4231 | BEGIN | |||||
| 4232 | S ET @pos = @pos + 1 | |||||
| 4233 | END | |||||
| 4234 | ||||||
| 4235 | SET @v char = SUB STRING(@vc har, 1, @p os - 1) | |||||
| 4236 | INSERT INT O [AHOBPR] .[REGISTRA NT_RECORD_ INFO_H] | |||||
| 4237 | ( [Audit_D ate] | |||||
| 4238 | , [Audit_T ype] | |||||
| 4239 | , [Audit_A pplication User] | |||||
| 4240 | , [Audit_S QLUser] | |||||
| 4241 | , [REGISTR ANT_ID] | |||||
| 4242 | , [EULA_AC CEPTED_DAT E] | |||||
| 4243 | , [EDIPI_V ERIFIED_DA TE] | |||||
| 4244 | , [EDIPI_M ISMATCHED_ FLAG] | |||||
| 4245 | , [CONTACT _INFO_VERI FIED_DATE] | |||||
| 4246 | , [CREATED BY] | |||||
| 4247 | , [UPDATED BY] | |||||
| 4248 | , [CREATED ] | |||||
| 4249 | , [UPDATED ] | |||||
| 4250 | ) | |||||
| 4251 | SELECT get Date() | |||||
| 4252 | , lv_Chang e= 'DELET E' | |||||
| 4253 | , HCB= @vc har | |||||
| 4254 | , suser_sn ame() | |||||
| 4255 | , [REGISTR ANT_ID] | |||||
| 4256 | , [EULA_AC CEPTED_DAT E] | |||||
| 4257 | , [EDIPI_V ERIFIED_DA TE] | |||||
| 4258 | , [EDIPI_M ISMATCHED_ FLAG] | |||||
| 4259 | , [CONTACT _INFO_VERI FIED_DATE] | |||||
| 4260 | , [CREATED BY] | |||||
| 4261 | , [UPDATED BY] | |||||
| 4262 | , [CREATED ] | |||||
| 4263 | , [UPDATED ] | |||||
| 4264 | ||||||
| 4265 | From Delet ed | |||||
| 4266 | End | |||||
| 4267 | GO | |||||
| 4268 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 4269 | ||||||
| 4270 | ||||||
| 4271 | GO | |||||
| 4272 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_JSON_INS ERT]...'; | |||||
| 4273 | ||||||
| 4274 | ||||||
| 4275 | GO | |||||
| 4276 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 4277 | ||||||
| 4278 | ||||||
| 4279 | GO | |||||
| 4280 | CREATE TRI GGER [AHOB PR].[TRG_R EGISTRANT_ JSON_INSER T] | |||||
| 4281 | ON [AH OBPR].[REG ISTRANT_JS ON] | |||||
| 4282 | FOR IN SERT | |||||
| 4283 | AS | |||||
| 4284 | BEGIN | |||||
| 4285 | SE T NoCount ON | |||||
| 4286 | DE CLARE @reg istrantJso nId INT, @ objectId V ARCHAR(256 ), @object Type VARCH AR(100), @CreatedBy VARCHAR(1 00); | |||||
| 4287 | ||||||
| 4288 | SE LECT @regi strantJson Id = REGIS TRANT_JSON _ID, | |||||
| 4289 | @obje ctId = [ OBJECT_ID] , | |||||
| 4290 | @obje ctType = [ OBJECT_TYP E], | |||||
| 4291 | @Crea tedBy = [ CREATEDBY] | |||||
| 4292 | FROM INSER TED; | |||||
| 4293 | ||||||
| 4294 | -- Delete pr evious rec ords for t he same ob ject ID an d object t ype | |||||
| 4295 | DE LETE FROM [AHOBPR].[ REGISTRANT _JSON] | |||||
| 4296 | WH ERE REGIST RANT_JSON_ ID != @reg istrantJso nId | |||||
| 4297 | AND [OBJ ECT_ID] = @objectId | |||||
| 4298 | AND [OBJ ECT_TYPE] = @objectT ype; | |||||
| 4299 | ||||||
| 4300 | -- Insert to JSON_QUEU E table | |||||
| 4301 | IN SERT INTO [AHOBPR].[ JSON_QUEUE ] ([REGIST RANT_JSON_ ID], [CREA TED], [UPD ATED], [CR EATEDBY], [UPDATEDBY ]) | |||||
| 4302 | VA LUES (@reg istrantJso nId, GETDA TE(),GETDA TE(),@Crea tedBy,@Cre atedBy); | |||||
| 4303 | END | |||||
| 4304 | GO | |||||
| 4305 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 4306 | ||||||
| 4307 | ||||||
| 4308 | GO | |||||
| 4309 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_Ins_Upd] ...'; | |||||
| 4310 | ||||||
| 4311 | ||||||
| 4312 | GO | |||||
| 4313 | ||||||
| 4314 | CREATE TRI GGER [AHOB PR].[TRG_R EGISTRANT_ Ins_Upd] | |||||
| 4315 | ON [AH OBPR].[REG ISTRANT] | |||||
| 4316 | FOR IN SERT, UPDA TE | |||||
| 4317 | AS | |||||
| 4318 | BEGIN | |||||
| 4319 | SE T NoCount ON | |||||
| 4320 | DE CLARE @Met ricsTypeId int = (SE LECT STD_P ROCESS_MET RICS_TYPE_ ID FROM ST D_PROCESS_ METRICS_TY PE WHERE P ROCESS_MET RICS = 'R egistrant Status Cha nge'); | |||||
| 4321 | ||||||
| 4322 | -- set the [R EGISTRANT_ STATUS_LAS T_UPDATED_ DATE] fiel d if a sta tus change is detect ed | |||||
| 4323 | UP DATE [AHO BPR].[REGI STRANT] | |||||
| 4324 | SET [REG ISTRANT_ST ATUS_LAST_ UPDATED_DA TE] = UPDA TED | |||||
| 4325 | WHERE NOT EXISTS ( | |||||
| 4326 | SELECT * | |||||
| 4327 | FROM de leted | |||||
| 4328 | INNER | |||||
| 4329 | JOIN in serted | |||||
| 4330 | ON in serted.REG ISTRANT_ID = deleted .REGISTRAN T_ID | |||||
| 4331 | WHERE | |||||
| 4332 | in serted.REG ISTRANT_ID = delete d.REGISTRA NT_ID | |||||
| 4333 | AND in serted.STD _REGISTRAN T_STATUS_I D = delete d.STD_REGI STRANT_STA TUS_ID | |||||
| 4334 | AND [R EGISTRANT] .REGISTRAN T_ID = ins erted.REGI STRANT_ID | |||||
| 4335 | ) | |||||
| 4336 | AND [REGISTRAN T_STATUS_L AST_UPDATE D_DATE] != UPDATED; | |||||
| 4337 | ||||||
| 4338 | -- Insert a ' Registrant Status Ch ange' even ts into AH OBPR.PROCE SS_METRICS if change s are dete cted | |||||
| 4339 | IN SERT | |||||
| 4340 | INTO AH OBPR.PROCE SS_METRICS | |||||
| 4341 | ( | |||||
| 4342 | [REGISTRAN T_ID], | |||||
| 4343 | [STD_PROCE SS_METRICS _TYPE_ID], | |||||
| 4344 | [PROCESS_M ETRICS_VAL UE], | |||||
| 4345 | [CREATEDBY ], | |||||
| 4346 | [UPDATEDBY ], | |||||
| 4347 | [CREATED], | |||||
| 4348 | [UPDATED] | |||||
| 4349 | ) | |||||
| 4350 | SELECT [R EGISTRANT_ ID], | |||||
| 4351 | @M etricsType Id, | |||||
| 4352 | s. REGISTRANT _STATUS, | |||||
| 4353 | in serted.[UP DATEDBY], | |||||
| 4354 | in serted.[UP DATEDBY], | |||||
| 4355 | in serted.[UP DATED], | |||||
| 4356 | in serted.[UP DATED] | |||||
| 4357 | FROM | |||||
| 4358 | in serted | |||||
| 4359 | JOIN AH OBPR.STD_R EGISTRANT_ STATUS AS s | |||||
| 4360 | ON s. STD_REGIST RANT_STATU S_ID = ins erted.STD_ REGISTRANT _STATUS_ID | |||||
| 4361 | WHERE NO T EXISTS ( | |||||
| 4362 | SELECT * | |||||
| 4363 | FROM de leted | |||||
| 4364 | WHERE in serted.REG ISTRANT_ID = delete d.REGISTRA NT_ID | |||||
| 4365 | AND in serted.STD _REGISTRAN T_STATUS_I D = delete d.STD_REGI STRANT_STA TUS_ID | |||||
| 4366 | ); | |||||
| 4367 | ||||||
| 4368 | END | |||||
| 4369 | GO | |||||
| 4370 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_H]...'; | |||||
| 4371 | ||||||
| 4372 | ||||||
| 4373 | GO | |||||
| 4374 | ||||||
| 4375 | Create tri gger [AHOB PR].[TRG_R EGISTRANT_ H] on [AHO BPR].[REGI STRANT] | |||||
| 4376 | after Upda te, Insert | |||||
| 4377 | AS | |||||
| 4378 | Begin | |||||
| 4379 | declare @l v_change v archar(15) | |||||
| 4380 | , @cdelete d int | |||||
| 4381 | , @cinsert ed int | |||||
| 4382 | , @cSftDel ete int | |||||
| 4383 | SELECT @cd eleted =co unt(*) FRO M DELETED | |||||
| 4384 | SELECT @ci nserted =c ount(*) FR OM INSERTE D | |||||
| 4385 | INSERT INT O [AHOBPR] .[REGISTRA NT_H] | |||||
| 4386 | ( [Audit_D ate] | |||||
| 4387 | , [Audit_T ype] | |||||
| 4388 | , [Audit_A pplication User] | |||||
| 4389 | , [Audit_S QLUser] | |||||
| 4390 | , [REGISTR ANT_ID] | |||||
| 4391 | , [USER_ID ] | |||||
| 4392 | , [EDIPI] | |||||
| 4393 | , [ICN] | |||||
| 4394 | , [SSN] | |||||
| 4395 | , [FIRST_N AME] | |||||
| 4396 | , [MIDDLE_ NAME] | |||||
| 4397 | , [LAST_NA ME] | |||||
| 4398 | , [BIRTH_D ATE] | |||||
| 4399 | , [GENDER] | |||||
| 4400 | , [RACE] | |||||
| 4401 | , [ETHNICI TY] | |||||
| 4402 | , [STD_SER VICE_STATU S_ID] | |||||
| 4403 | , [STD_SER VICE_STATU S_ID_WHEN_ ENROLLED] | |||||
| 4404 | , [STD_BRA NCH_OF_SER VICE_ID_CU RRENT] | |||||
| 4405 | , [STD_BRA NCH_OF_SER VICE_ID_WH EN_ENROLLE D] | |||||
| 4406 | , [UIC_CUR RENT] | |||||
| 4407 | , [UIC_WHE N_ENROLLED ] | |||||
| 4408 | , [STD_REG ISTRANT_ST ATUS_ID] | |||||
| 4409 | , [REGISTR ANT_STATUS _LAST_UPDA TED_DATE] | |||||
| 4410 | , [STD_INS TITUTION_I D] | |||||
| 4411 | , [MARITAL _STATUS] | |||||
| 4412 | , [EDUCATI ON_LEVEL] | |||||
| 4413 | , [STD_SEP ARATION_RE ASON_ID_CU RRENT] | |||||
| 4414 | , [SEPARAT ION_DATE_C URRENT] | |||||
| 4415 | , [STD_SEP ARATION_RE ASON_ID_WH EN_ENROLLE D] | |||||
| 4416 | , [SEPARAT ION_DATE_W HEN_ENROLL ED] | |||||
| 4417 | , [STD_DIS CHARGE_CHA RACTER_ID] | |||||
| 4418 | , [STD_COM PONENT_ID_ CURRENT] | |||||
| 4419 | , [STD_COM PONENT_ID_ WHEN_ENROL LED] | |||||
| 4420 | , [HEALTH_ CONCERNS_R ESPONSE] | |||||
| 4421 | , [REQUEST _SEEN_RESP ONSE] | |||||
| 4422 | , [DECEASE D_FLAG] | |||||
| 4423 | , [DEATH_D ATE] | |||||
| 4424 | , [ELIGIBI LITY_STATU S] | |||||
| 4425 | , [ELIGIBI LITY] | |||||
| 4426 | , [CONTACT _PREFERENC E] | |||||
| 4427 | , [ETL_UPD ATED] | |||||
| 4428 | , [ENROLLM ENT_STATUS ] | |||||
| 4429 | , [ENROLLE D_DATE] | |||||
| 4430 | , [CREATED BY] | |||||
| 4431 | , [UPDATED BY] | |||||
| 4432 | , [CREATED ] | |||||
| 4433 | , [UPDATED ] | |||||
| 4434 | ) | |||||
| 4435 | SELECT get Date() | |||||
| 4436 | , lv_Chang e= case | |||||
| 4437 | WHEN @cdel eted=0 and @cinserte d>0 then ' INSERT' | |||||
| 4438 | when @cdel eted>0 and @cinserte d>0 then ' UPDATE' | |||||
| 4439 | else NULL | |||||
| 4440 | end | |||||
| 4441 | , HCB= cas e | |||||
| 4442 | WHEN @cdel eted=0 and @cinserte d>0 then C reatedBy | |||||
| 4443 | when @cdel eted>0 and @cinserte d>0 then U pdatedBy | |||||
| 4444 | else NULL | |||||
| 4445 | end | |||||
| 4446 | , suser_sn ame() | |||||
| 4447 | , [REGISTR ANT_ID] | |||||
| 4448 | , [USER_ID ] | |||||
| 4449 | , [EDIPI] | |||||
| 4450 | , [ICN] | |||||
| 4451 | , [SSN] | |||||
| 4452 | , [FIRST_N AME] | |||||
| 4453 | , [MIDDLE_ NAME] | |||||
| 4454 | , [LAST_NA ME] | |||||
| 4455 | , [BIRTH_D ATE] | |||||
| 4456 | , [GENDER] | |||||
| 4457 | , [RACE] | |||||
| 4458 | , [ETHNICI TY] | |||||
| 4459 | , [STD_SER VICE_STATU S_ID] | |||||
| 4460 | , [STD_SER VICE_STATU S_ID_WHEN_ ENROLLED] | |||||
| 4461 | , [STD_BRA NCH_OF_SER VICE_ID_CU RRENT] | |||||
| 4462 | , [STD_BRA NCH_OF_SER VICE_ID_WH EN_ENROLLE D] | |||||
| 4463 | , [UIC_CUR RENT] | |||||
| 4464 | , [UIC_WHE N_ENROLLED ] | |||||
| 4465 | , [STD_REG ISTRANT_ST ATUS_ID] | |||||
| 4466 | , [REGISTR ANT_STATUS _LAST_UPDA TED_DATE] | |||||
| 4467 | , [STD_INS TITUTION_I D] | |||||
| 4468 | , [MARITAL _STATUS] | |||||
| 4469 | , [EDUCATI ON_LEVEL] | |||||
| 4470 | , [STD_SEP ARATION_RE ASON_ID_CU RRENT] | |||||
| 4471 | , [SEPARAT ION_DATE_C URRENT] | |||||
| 4472 | , [STD_SEP ARATION_RE ASON_ID_WH EN_ENROLLE D] | |||||
| 4473 | , [SEPARAT ION_DATE_W HEN_ENROLL ED] | |||||
| 4474 | , [STD_DIS CHARGE_CHA RACTER_ID] | |||||
| 4475 | , [STD_COM PONENT_ID_ CURRENT] | |||||
| 4476 | , [STD_COM PONENT_ID_ WHEN_ENROL LED] | |||||
| 4477 | , [HEALTH_ CONCERNS_R ESPONSE] | |||||
| 4478 | , [REQUEST _SEEN_RESP ONSE] | |||||
| 4479 | , [DECEASE D_FLAG] | |||||
| 4480 | , [DEATH_D ATE] | |||||
| 4481 | , [ELIGIBI LITY_STATU S] | |||||
| 4482 | , [ELIGIBI LITY] | |||||
| 4483 | , [CONTACT _PREFERENC E] | |||||
| 4484 | , [ETL_UPD ATED] | |||||
| 4485 | , [ENROLLM ENT_STATUS ] | |||||
| 4486 | , [ENROLLE D_DATE] | |||||
| 4487 | , [CREATED BY] | |||||
| 4488 | , [UPDATED BY] | |||||
| 4489 | , [CREATED ] | |||||
| 4490 | , [UPDATED ] | |||||
| 4491 | ||||||
| 4492 | FROM INSER TED | |||||
| 4493 | End | |||||
| 4494 | GO | |||||
| 4495 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_DEL_H].. .'; | |||||
| 4496 | ||||||
| 4497 | ||||||
| 4498 | GO | |||||
| 4499 | ||||||
| 4500 | ||||||
| 4501 | CREATE TRI GGER [AHO BPR].[TRG_ REGISTRANT _DEL_H] | |||||
| 4502 | ON [AHOBP R].[REGIST RANT] Afte r DELETE | |||||
| 4503 | AS | |||||
| 4504 | BEGIN | |||||
| 4505 | DECLARE @p os INT, @V CHAR VARCH AR(128) | |||||
| 4506 | SET @pos = 1 | |||||
| 4507 | SET @v char = CAS T(CONTEXT_ INFO()AS v archar(128 )) | |||||
| 4508 | ||||||
| 4509 | --Remo ve all 0x0 (keep onl y text) | |||||
| 4510 | WHILE not ASCII( substring( @vchar,@po s,1))=0 | |||||
| 4511 | BEGIN | |||||
| 4512 | S ET @pos = @pos + 1 | |||||
| 4513 | END | |||||
| 4514 | ||||||
| 4515 | SET @v char = SUB STRING(@vc har, 1, @p os - 1) | |||||
| 4516 | INSERT INT O [AHOBPR] .[REGISTRA NT_H] | |||||
| 4517 | ( [Audit_D ate] | |||||
| 4518 | , [Audit_T ype] | |||||
| 4519 | , [Audit_A pplication User] | |||||
| 4520 | , [Audit_S QLUser] | |||||
| 4521 | , [REGISTR ANT_ID] | |||||
| 4522 | , [USER_ID ] | |||||
| 4523 | , [EDIPI] | |||||
| 4524 | , [ICN] | |||||
| 4525 | , [SSN] | |||||
| 4526 | , [FIRST_N AME] | |||||
| 4527 | , [MIDDLE_ NAME] | |||||
| 4528 | , [LAST_NA ME] | |||||
| 4529 | , [BIRTH_D ATE] | |||||
| 4530 | , [GENDER] | |||||
| 4531 | , [RACE] | |||||
| 4532 | , [ETHNICI TY] | |||||
| 4533 | , [STD_SER VICE_STATU S_ID] | |||||
| 4534 | , [STD_SER VICE_STATU S_ID_WHEN_ ENROLLED] | |||||
| 4535 | , [STD_BRA NCH_OF_SER VICE_ID_CU RRENT] | |||||
| 4536 | , [STD_BRA NCH_OF_SER VICE_ID_WH EN_ENROLLE D] | |||||
| 4537 | , [UIC_CUR RENT] | |||||
| 4538 | , [UIC_WHE N_ENROLLED ] | |||||
| 4539 | , [STD_REG ISTRANT_ST ATUS_ID] | |||||
| 4540 | , [REGISTR ANT_STATUS _LAST_UPDA TED_DATE] | |||||
| 4541 | , [STD_INS TITUTION_I D] | |||||
| 4542 | , [MARITAL _STATUS] | |||||
| 4543 | , [EDUCATI ON_LEVEL] | |||||
| 4544 | , [STD_SEP ARATION_RE ASON_ID_CU RRENT] | |||||
| 4545 | , [SEPARAT ION_DATE_C URRENT] | |||||
| 4546 | , [STD_SEP ARATION_RE ASON_ID_WH EN_ENROLLE D] | |||||
| 4547 | , [SEPARAT ION_DATE_W HEN_ENROLL ED] | |||||
| 4548 | , [STD_DIS CHARGE_CHA RACTER_ID] | |||||
| 4549 | , [STD_COM PONENT_ID_ CURRENT] | |||||
| 4550 | , [STD_COM PONENT_ID_ WHEN_ENROL LED] | |||||
| 4551 | , [HEALTH_ CONCERNS_R ESPONSE] | |||||
| 4552 | , [REQUEST _SEEN_RESP ONSE] | |||||
| 4553 | , [DECEASE D_FLAG] | |||||
| 4554 | , [DEATH_D ATE] | |||||
| 4555 | , [ELIGIBI LITY_STATU S] | |||||
| 4556 | , [ELIGIBI LITY] | |||||
| 4557 | , [CONTACT _PREFERENC E] | |||||
| 4558 | , [ETL_UPD ATED] | |||||
| 4559 | , [ENROLLM ENT_STATUS ] | |||||
| 4560 | , [ENROLLE D_DATE] | |||||
| 4561 | , [CREATED BY] | |||||
| 4562 | , [UPDATED BY] | |||||
| 4563 | , [CREATED ] | |||||
| 4564 | , [UPDATED ] | |||||
| 4565 | ) | |||||
| 4566 | SELECT get Date() | |||||
| 4567 | , lv_Chang e= 'DELET E' | |||||
| 4568 | , HCB= @vc har | |||||
| 4569 | , suser_sn ame() | |||||
| 4570 | , [REGISTR ANT_ID] | |||||
| 4571 | , [USER_ID ] | |||||
| 4572 | , [EDIPI] | |||||
| 4573 | , [ICN] | |||||
| 4574 | , [SSN] | |||||
| 4575 | , [FIRST_N AME] | |||||
| 4576 | , [MIDDLE_ NAME] | |||||
| 4577 | , [LAST_NA ME] | |||||
| 4578 | , [BIRTH_D ATE] | |||||
| 4579 | , [GENDER] | |||||
| 4580 | , [RACE] | |||||
| 4581 | , [ETHNICI TY] | |||||
| 4582 | , [STD_SER VICE_STATU S_ID] | |||||
| 4583 | , [STD_SER VICE_STATU S_ID_WHEN_ ENROLLED] | |||||
| 4584 | , [STD_BRA NCH_OF_SER VICE_ID_CU RRENT] | |||||
| 4585 | , [STD_BRA NCH_OF_SER VICE_ID_WH EN_ENROLLE D] | |||||
| 4586 | , [UIC_CUR RENT] | |||||
| 4587 | , [UIC_WHE N_ENROLLED ] | |||||
| 4588 | , [STD_REG ISTRANT_ST ATUS_ID] | |||||
| 4589 | , [REGISTR ANT_STATUS _LAST_UPDA TED_DATE] | |||||
| 4590 | , [STD_INS TITUTION_I D] | |||||
| 4591 | , [MARITAL _STATUS] | |||||
| 4592 | , [EDUCATI ON_LEVEL] | |||||
| 4593 | , [STD_SEP ARATION_RE ASON_ID_CU RRENT] | |||||
| 4594 | , [SEPARAT ION_DATE_C URRENT] | |||||
| 4595 | , [STD_SEP ARATION_RE ASON_ID_WH EN_ENROLLE D] | |||||
| 4596 | , [SEPARAT ION_DATE_W HEN_ENROLL ED] | |||||
| 4597 | , [STD_DIS CHARGE_CHA RACTER_ID] | |||||
| 4598 | , [STD_COM PONENT_ID_ CURRENT] | |||||
| 4599 | , [STD_COM PONENT_ID_ WHEN_ENROL LED] | |||||
| 4600 | , [HEALTH_ CONCERNS_R ESPONSE] | |||||
| 4601 | , [REQUEST _SEEN_RESP ONSE] | |||||
| 4602 | , [DECEASE D_FLAG] | |||||
| 4603 | , [DEATH_D ATE] | |||||
| 4604 | , [ELIGIBI LITY_STATU S] | |||||
| 4605 | , [ELIGIBI LITY] | |||||
| 4606 | , [CONTACT _PREFERENC E] | |||||
| 4607 | , [ETL_UPD ATED] | |||||
| 4608 | , [ENROLLM ENT_STATUS ] | |||||
| 4609 | , [ENROLLE D_DATE] | |||||
| 4610 | , [CREATED BY] | |||||
| 4611 | , [UPDATED BY] | |||||
| 4612 | , [CREATED ] | |||||
| 4613 | , [UPDATED ] | |||||
| 4614 | ||||||
| 4615 | From Delet ed | |||||
| 4616 | End | |||||
| 4617 | GO | |||||
| 4618 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_PHONE_H] ...'; | |||||
| 4619 | ||||||
| 4620 | ||||||
| 4621 | GO | |||||
| 4622 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 4623 | ||||||
| 4624 | ||||||
| 4625 | GO | |||||
| 4626 | Create tri gger [AHOB PR].[TRG_R EGISTRANT_ PHONE_H] o n [AHOBPR] .[REGISTRA NT_PHONE] | |||||
| 4627 | after Upda te, Insert | |||||
| 4628 | AS | |||||
| 4629 | Begin | |||||
| 4630 | declare @l v_change v archar(15) | |||||
| 4631 | , @cdelete d int | |||||
| 4632 | , @cinsert ed int | |||||
| 4633 | , @cSftDel ete int | |||||
| 4634 | SELECT @cd eleted =co unt(*) FRO M DELETED | |||||
| 4635 | SELECT @ci nserted =c ount(*) FR OM INSERTE D | |||||
| 4636 | INSERT INT O [AHOBPR] .[REGISTRA NT_PHONE_H ] | |||||
| 4637 | ( [Audit_D ate] | |||||
| 4638 | , [Audit_T ype] | |||||
| 4639 | , [Audit_A pplication User] | |||||
| 4640 | , [Audit_S QLUser] | |||||
| 4641 | , [REGISTR ANT_PHONE_ ID] | |||||
| 4642 | , [REGISTR ANT_ID] | |||||
| 4643 | , [TYPE] | |||||
| 4644 | , [PHONE_N UMBER] | |||||
| 4645 | , [CREATED BY] | |||||
| 4646 | , [UPDATED BY] | |||||
| 4647 | , [CREATED ] | |||||
| 4648 | , [UPDATED ] | |||||
| 4649 | ) | |||||
| 4650 | SELECT get Date() | |||||
| 4651 | , lv_Chang e= case | |||||
| 4652 | WHEN @cdel eted=0 and @cinserte d>0 then ' INSERT' | |||||
| 4653 | when @cdel eted>0 and @cinserte d>0 then ' UPDATE' | |||||
| 4654 | else NULL | |||||
| 4655 | end | |||||
| 4656 | , HCB= cas e | |||||
| 4657 | WHEN @cdel eted=0 and @cinserte d>0 then C reatedBy | |||||
| 4658 | when @cdel eted>0 and @cinserte d>0 then U pdatedBy | |||||
| 4659 | else NULL | |||||
| 4660 | end | |||||
| 4661 | , suser_sn ame() | |||||
| 4662 | , [REGISTR ANT_PHONE_ ID] | |||||
| 4663 | , [REGISTR ANT_ID] | |||||
| 4664 | , [TYPE] | |||||
| 4665 | , [PHONE_N UMBER] | |||||
| 4666 | , [CREATED BY] | |||||
| 4667 | , [UPDATED BY] | |||||
| 4668 | , [CREATED ] | |||||
| 4669 | , [UPDATED ] | |||||
| 4670 | ||||||
| 4671 | FROM INSER TED | |||||
| 4672 | End | |||||
| 4673 | GO | |||||
| 4674 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 4675 | ||||||
| 4676 | ||||||
| 4677 | GO | |||||
| 4678 | PRINT N'Cr eating [AH OBPR].[TRG _REGISTRAN T_PHONE_DE L_H]...'; | |||||
| 4679 | ||||||
| 4680 | ||||||
| 4681 | GO | |||||
| 4682 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 4683 | ||||||
| 4684 | ||||||
| 4685 | GO | |||||
| 4686 | CREATE TRI GGER [AHO BPR].[TRG_ REGISTRANT _PHONE_DEL _H] | |||||
| 4687 | on [AHOBP R].[REGIST RANT_PHONE ] After DE LETE | |||||
| 4688 | AS | |||||
| 4689 | BEGIN | |||||
| 4690 | declare @p os int, @v char varch ar(128) | |||||
| 4691 | SET @pos = 1 | |||||
| 4692 | SET @v char = CAS T(CONTEXT_ INFO()AS v archar(128 )) | |||||
| 4693 | ||||||
| 4694 | --Remo ve all 0x0 (keep onl y text) | |||||
| 4695 | WHILE not ASCII( substring( @vchar,@po s,1))=0 | |||||
| 4696 | BEGIN | |||||
| 4697 | S ET @pos = @pos + 1 | |||||
| 4698 | END | |||||
| 4699 | ||||||
| 4700 | SET @v char = SUB STRING(@vc har, 1, @p os - 1) | |||||
| 4701 | INSERT INT O [AHOBPR] .[REGISTRA NT_PHONE_H ] | |||||
| 4702 | ( [Audit_D ate] | |||||
| 4703 | , [Audit_T ype] | |||||
| 4704 | , [Audit_A pplication User] | |||||
| 4705 | , [Audit_S QLUser] | |||||
| 4706 | , [REGISTR ANT_PHONE_ ID] | |||||
| 4707 | , [REGISTR ANT_ID] | |||||
| 4708 | , [TYPE] | |||||
| 4709 | , [PHONE_N UMBER] | |||||
| 4710 | , [CREATED BY] | |||||
| 4711 | , [UPDATED BY] | |||||
| 4712 | , [CREATED ] | |||||
| 4713 | , [UPDATED ] | |||||
| 4714 | ) | |||||
| 4715 | SELECT get Date() | |||||
| 4716 | , lv_Chang e= 'DELET E' | |||||
| 4717 | , HCB= @vc har | |||||
| 4718 | , suser_sn ame() | |||||
| 4719 | , [REGISTR ANT_PHONE_ ID] | |||||
| 4720 | , [REGISTR ANT_ID] | |||||
| 4721 | , [TYPE] | |||||
| 4722 | , [PHONE_N UMBER] | |||||
| 4723 | , [CREATED BY] | |||||
| 4724 | , [UPDATED BY] | |||||
| 4725 | , [CREATED ] | |||||
| 4726 | , [UPDATED ] | |||||
| 4727 | ||||||
| 4728 | From Delet ed | |||||
| 4729 | End | |||||
| 4730 | GO | |||||
| 4731 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 4732 | ||||||
| 4733 | ||||||
| 4734 | GO | |||||
| 4735 | PRINT N'Cr eating [AH OBPR].[TRG _FORM_RESP ONSE_QUEST ION_H]...' ; | |||||
| 4736 | ||||||
| 4737 | ||||||
| 4738 | GO | |||||
| 4739 | Create tri gger [AHOB PR].[TRG_F ORM_RESPON SE_QUESTIO N_H] on [A HOBPR].[FO RM_RESPONS E_QUESTION ] | |||||
| 4740 | after Upda te, Insert | |||||
| 4741 | AS | |||||
| 4742 | Begin | |||||
| 4743 | declare @l v_change v archar(15) | |||||
| 4744 | , @cdelete d int | |||||
| 4745 | , @cinsert ed int | |||||
| 4746 | , @cSftDel ete int | |||||
| 4747 | SELECT @cd eleted =co unt(*) FRO M DELETED | |||||
| 4748 | SELECT @ci nserted =c ount(*) FR OM INSERTE D | |||||
| 4749 | INSERT INT O [AHOBPR] .[FORM_RES PONSE_QUES TION_H] | |||||
| 4750 | ( [Audit_D ate] | |||||
| 4751 | , [Audit_T ype] | |||||
| 4752 | , [Audit_A pplication User] | |||||
| 4753 | , [Audit_S QLUser] | |||||
| 4754 | , [FORM_RE SPONSE_QUE STION_ID] | |||||
| 4755 | , [FORM_RE SPONSE_ID] | |||||
| 4756 | , [STD_FOR M_QUESTION _ID] | |||||
| 4757 | , [REGISTR ANT_DEPLOY MENT_ID] | |||||
| 4758 | , [STARTED _DATE] | |||||
| 4759 | , [COMPLET ED_DATE] | |||||
| 4760 | , [CREATED BY] | |||||
| 4761 | , [UPDATED BY] | |||||
| 4762 | , [CREATED ] | |||||
| 4763 | , [UPDATED ] | |||||
| 4764 | ) | |||||
| 4765 | SELECT get Date() | |||||
| 4766 | , lv_Chang e= case | |||||
| 4767 | WHEN @cdel eted=0 and @cinserte d>0 then ' INSERT' | |||||
| 4768 | when @cdel eted>0 and @cinserte d>0 then ' UPDATE' | |||||
| 4769 | else NULL | |||||
| 4770 | end | |||||
| 4771 | , HCB= cas e | |||||
| 4772 | WHEN @cdel eted=0 and @cinserte d>0 then C reatedBy | |||||
| 4773 | when @cdel eted>0 and @cinserte d>0 then U pdatedBy | |||||
| 4774 | else NULL | |||||
| 4775 | end | |||||
| 4776 | , suser_sn ame() | |||||
| 4777 | , [FORM_RE SPONSE_QUE STION_ID] | |||||
| 4778 | , [FORM_RE SPONSE_ID] | |||||
| 4779 | , [STD_FOR M_QUESTION _ID] | |||||
| 4780 | , [REGISTR ANT_DEPLOY MENT_ID] | |||||
| 4781 | , [STARTED _DATE] | |||||
| 4782 | , [COMPLET ED_DATE] | |||||
| 4783 | , [CREATED BY] | |||||
| 4784 | , [UPDATED BY] | |||||
| 4785 | , [CREATED ] | |||||
| 4786 | , [UPDATED ] | |||||
| 4787 | ||||||
| 4788 | FROM INSER TED | |||||
| 4789 | End | |||||
| 4790 | GO | |||||
| 4791 | PRINT N'Cr eating [AH OBPR].[TRG _FORM_RESP ONSE_QUEST ION_DEL_H] ...'; | |||||
| 4792 | ||||||
| 4793 | ||||||
| 4794 | GO | |||||
| 4795 | CREATE TRI GGER [AHO BPR].[TRG_ FORM_RESPO NSE_QUESTI ON_DEL_H] | |||||
| 4796 | on [AHOBP R].[FORM_R ESPONSE_QU ESTION] Af ter DELETE | |||||
| 4797 | AS | |||||
| 4798 | BEGIN | |||||
| 4799 | declare @p os int, @v char varch ar(128) | |||||
| 4800 | SET @pos = 1 | |||||
| 4801 | SET @v char = CAS T(CONTEXT_ INFO()AS v archar(128 )) | |||||
| 4802 | ||||||
| 4803 | --Remo ve all 0x0 (keep onl y text) | |||||
| 4804 | WHILE not ASCII( substring( @vchar,@po s,1))=0 | |||||
| 4805 | BEGIN | |||||
| 4806 | S ET @pos = @pos + 1 | |||||
| 4807 | END | |||||
| 4808 | ||||||
| 4809 | SET @v char = SUB STRING(@vc har, 1, @p os - 1) | |||||
| 4810 | INSERT INT O [AHOBPR] .[FORM_RES PONSE_QUES TION_H] | |||||
| 4811 | ( [Audit_D ate] | |||||
| 4812 | , [Audit_T ype] | |||||
| 4813 | , [Audit_A pplication User] | |||||
| 4814 | , [Audit_S QLUser] | |||||
| 4815 | , [FORM_RE SPONSE_QUE STION_ID] | |||||
| 4816 | , [FORM_RE SPONSE_ID] | |||||
| 4817 | , [STD_FOR M_QUESTION _ID] | |||||
| 4818 | , [REGISTR ANT_DEPLOY MENT_ID] | |||||
| 4819 | , [STARTED _DATE] | |||||
| 4820 | , [COMPLET ED_DATE] | |||||
| 4821 | , [CREATED BY] | |||||
| 4822 | , [UPDATED BY] | |||||
| 4823 | , [CREATED ] | |||||
| 4824 | , [UPDATED ] | |||||
| 4825 | ) | |||||
| 4826 | SELECT get Date() | |||||
| 4827 | , lv_Chang e= 'DELET E' | |||||
| 4828 | , HCB= @vc har | |||||
| 4829 | , suser_sn ame() | |||||
| 4830 | , [FORM_RE SPONSE_QUE STION_ID] | |||||
| 4831 | , [FORM_RE SPONSE_ID] | |||||
| 4832 | , [STD_FOR M_QUESTION _ID] | |||||
| 4833 | , [REGISTR ANT_DEPLOY MENT_ID] | |||||
| 4834 | , [STARTED _DATE] | |||||
| 4835 | , [COMPLET ED_DATE] | |||||
| 4836 | , [CREATED BY] | |||||
| 4837 | , [UPDATED BY] | |||||
| 4838 | , [CREATED ] | |||||
| 4839 | , [UPDATED ] | |||||
| 4840 | ||||||
| 4841 | From Delet ed | |||||
| 4842 | End | |||||
| 4843 | GO | |||||
| 4844 | PRINT N'Cr eating [AH OBPR].[Get AppPageId] ...'; | |||||
| 4845 | ||||||
| 4846 | ||||||
| 4847 | GO | |||||
| 4848 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 4849 | ||||||
| 4850 | ||||||
| 4851 | GO | |||||
| 4852 | ||||||
| 4853 | CREATE FUN CTION [AHO BPR].[GetA ppPageId]( | |||||
| 4854 | @code v archar(100 0) | |||||
| 4855 | ) | |||||
| 4856 | RETURNS IN T | |||||
| 4857 | AS | |||||
| 4858 | BEGIN | |||||
| 4859 | de clare @res ult INT = 0; | |||||
| 4860 | SE T @result = (SELECT ID FROM ST D_APPPAGE WHERE Code = @code); | |||||
| 4861 | re turn @resu lt; | |||||
| 4862 | END | |||||
| 4863 | GO | |||||
| 4864 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 4865 | ||||||
| 4866 | ||||||
| 4867 | GO | |||||
| 4868 | PRINT N'Cr eating [AH OBPR].[Get StateCodeB yID]...'; | |||||
| 4869 | ||||||
| 4870 | ||||||
| 4871 | GO | |||||
| 4872 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 4873 | ||||||
| 4874 | ||||||
| 4875 | GO | |||||
| 4876 | CREATE FUN CTION [AHO BPR].[GetS tateCodeBy ID]( | |||||
| 4877 | @stateI d varchar( 1000) | |||||
| 4878 | ) | |||||
| 4879 | RETURNS va rchar(2000 ) | |||||
| 4880 | AS | |||||
| 4881 | BEGIN | |||||
| 4882 | de clare @res ult varcha r(2000) = ''; | |||||
| 4883 | IF ISNULL(@s tateId, '' ) = '' | |||||
| 4884 | BEGI N | |||||
| 4885 | SET @r esult = 'A K,AR,AZ,CA ,CO,CT,DE, FL,GA,HI,I A,ID,IL,IN ,KS,KY,LA, MA,MD,ME,M I,MN,MO,MS ,MT,NC,ND, NE,NH,NJ,N M,NV,NY,OH ,OK,OR,PA, RI,SC,SD,T N,TX,UT,VA ,VT,WA,WI, WV,WY'; | |||||
| 4886 | END | |||||
| 4887 | EL SE | |||||
| 4888 | BEGIN | |||||
| 4889 | DECLAR E @state v archar(100 ); | |||||
| 4890 | ||||||
| 4891 | DECLAR E curState CURSOR | |||||
| 4892 | FOR | |||||
| 4893 | SELECT P OSTALNAME | |||||
| 4894 | FROM dbo .STD_STATE | |||||
| 4895 | WHERE ID IN (SELEC T * FROM f ncSplit(@s tateId, ', ')); | |||||
| 4896 | ||||||
| 4897 | OPEN c urState; | |||||
| 4898 | FETCH NEXT FROM curState I NTO @state ; | |||||
| 4899 | WHILE @@FETCH_ST ATUS = 0 -- Not End of file | |||||
| 4900 | BEGI N | |||||
| 4901 | if @r esult != ' ' | |||||
| 4902 | SET @res ult = @res ult + ',' | |||||
| 4903 | ||||||
| 4904 | SET @r esult = @r esult + @s tate; | |||||
| 4905 | ||||||
| 4906 | FETCH NEXT FROM curState I NTO @state ; | |||||
| 4907 | END | |||||
| 4908 | CLOSE curState; | |||||
| 4909 | DEALLO CATE curSt ate; | |||||
| 4910 | END | |||||
| 4911 | re turn @resu lt; | |||||
| 4912 | END; | |||||
| 4913 | GO | |||||
| 4914 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 4915 | ||||||
| 4916 | ||||||
| 4917 | GO | |||||
| 4918 | PRINT N'Cr eating [db o].[AddMax Time]...'; | |||||
| 4919 | ||||||
| 4920 | ||||||
| 4921 | GO | |||||
| 4922 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 4923 | ||||||
| 4924 | ||||||
| 4925 | GO | |||||
| 4926 | -- ======= ========== ========== ========== ======== | |||||
| 4927 | -- Author: Bruce Clegg | |||||
| 4928 | -- Create date: 2015 .01.09 | |||||
| 4929 | -- Descrip tion: Add 23:59:59 t o a date c riteria fi eld to ens ure an End ing date p arameter w ill includ e all rows for the l ast day. | |||||
| 4930 | -- ======= ========== ========== ========== ======== | |||||
| 4931 | CREATE FUN CTION [dbo ].[AddMaxT ime] | |||||
| 4932 | ( | |||||
| 4933 | @date In DATET IME2(0) | |||||
| 4934 | ) | |||||
| 4935 | RETURNS DA TETIME2(0) | |||||
| 4936 | AS | |||||
| 4937 | BEGIN | |||||
| 4938 | ||||||
| 4939 | return CONVERT(D ATETIME2(0 ), CONVERT (varchar(1 0),@dateIn , 120)+' 2 3:59:59', 120); | |||||
| 4940 | END | |||||
| 4941 | ||||||
| 4942 | -- select dbo.AddMa xTime(GETD ATE()); | |||||
| 4943 | GO | |||||
| 4944 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 4945 | ||||||
| 4946 | ||||||
| 4947 | GO | |||||
| 4948 | PRINT N'Cr eating [db o].[CleanD ate]...'; | |||||
| 4949 | ||||||
| 4950 | ||||||
| 4951 | GO | |||||
| 4952 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 4953 | ||||||
| 4954 | ||||||
| 4955 | GO | |||||
| 4956 | -- ======= ========== ========== ========== ======== | |||||
| 4957 | -- Author: Bruce Clegg | |||||
| 4958 | -- Create date: 2015 .01.09 | |||||
| 4959 | -- Descrip tion: Conv ert a VARC HAR date p arameter t o a vaid d ate or ret urn NULL i f not vali d | |||||
| 4960 | -- ======= ========== ========== ========== ======== | |||||
| 4961 | CREATE FUN CTION [dbo ].[CleanDa te] | |||||
| 4962 | ( | |||||
| 4963 | @inpu tText VA RCHAR(100) = NULL | |||||
| 4964 | ) | |||||
| 4965 | RETURNS DA TETIME2(0) | |||||
| 4966 | AS | |||||
| 4967 | BEGIN | |||||
| 4968 | ||||||
| 4969 | DECLARE @returnDat e DATETIME 2(0) = NUL L; | |||||
| 4970 | ||||||
| 4971 | SET @inp utText = I SNULL(@inp utText,'') ; | |||||
| 4972 | ||||||
| 4973 | IF ISDAT E(@inputTe xt) = 1 | |||||
| 4974 | IF PAT INDEX ( '% /%' , @inp utText ) > 1 | |||||
| 4975 | SET @returnDat e = CONVER T(DATETIME 2(0),@inpu tText, 101 ); | |||||
| 4976 | ELSE | |||||
| 4977 | SET @returnDat e = CONVER T(DATETIME 2(0),@inpu tText, 120 ); | |||||
| 4978 | ||||||
| 4979 | return @returnDa te; | |||||
| 4980 | END | |||||
| 4981 | ||||||
| 4982 | -- select dbo.Clean Date('09/1 1/2014'); | |||||
| 4983 | GO | |||||
| 4984 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 4985 | ||||||
| 4986 | ||||||
| 4987 | GO | |||||
| 4988 | PRINT N'Cr eating [db o].[MixedC ase]...'; | |||||
| 4989 | ||||||
| 4990 | ||||||
| 4991 | GO | |||||
| 4992 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 4993 | ||||||
| 4994 | ||||||
| 4995 | GO | |||||
| 4996 | -- ======= ========== ========== ========== ======== | |||||
| 4997 | -- Author: Bruce Clegg | |||||
| 4998 | -- Create date: 2015 .01.09 | |||||
| 4999 | -- Descrip tion: Retu rn VARCHAR field as upper case for first Character and lower for the r emaining c haracters | |||||
| 5000 | -- ======= ========== ========== ========== ======== | |||||
| 5001 | CREATE FUN CTION [dbo ].[MixedCa se] | |||||
| 5002 | ( | |||||
| 5003 | @inpu tText VA RCHAR(100) = NULL | |||||
| 5004 | ) | |||||
| 5005 | RETURNS VA RCHAR(100) | |||||
| 5006 | AS | |||||
| 5007 | BEGIN | |||||
| 5008 | ||||||
| 5009 | DECLARE @returnTex t VARCHAR( 100) = '' | |||||
| 5010 | ||||||
| 5011 | SET @inp utText = I SNULL(@inp utText,'') ; | |||||
| 5012 | ||||||
| 5013 | IF LEN(@ inputText) = 1 | |||||
| 5014 | SET @ returnText = UPPER(@ inputText) | |||||
| 5015 | ELSE | |||||
| 5016 | IF LEN(@ inputText) > 1 | |||||
| 5017 | SET @ returnText = RTRIM(U PPER(SUBST RING(@inpu tText,1,1) ) + LOWER( SUBSTRING( @inputText ,2,99))); | |||||
| 5018 | ||||||
| 5019 | return @returnTe xt; | |||||
| 5020 | END | |||||
| 5021 | ||||||
| 5022 | -- select dbo.Mixed Case('bruc e'); | |||||
| 5023 | GO | |||||
| 5024 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 5025 | ||||||
| 5026 | ||||||
| 5027 | GO | |||||
| 5028 | PRINT N'Cr eating [AH OBPR].[VIE W_FORM]... '; | |||||
| 5029 | ||||||
| 5030 | ||||||
| 5031 | GO | |||||
| 5032 | ||||||
| 5033 | ||||||
| 5034 | CREATE VIE W [AHOBPR] .[VIEW_FOR M] AS | |||||
| 5035 | SELECT AHO BPR.STD_FO RM.STD_FOR M_ID, AHOB PR.STD_FOR M.NAME, AH OBPR.STD_F ORM.VERSIO N, AHOBPR. STD_FORM.T ITLE, | |||||
| 5036 | AH OBPR.STD_F ORM_SECTIO N.STD_FORM _SECTION_I D, AHOBPR. STD_FORM_S ECTION.TIT LE AS SECT ION, | |||||
| 5037 | AH OBPR.STD_F ORM_SUB_SE CTION.STD_ FORM_SUB_S ECTION_ID, AHOBPR.ST D_FORM_SUB _SECTION.t itle AS SU BSECTION_T ITLE, | |||||
| 5038 | AH OBPR.STD_F ORM_SUB_SE CTION.intr oduction A S SUBSECTI ON_INTRODU CTION, | |||||
| 5039 | AH OBPR.STD_F ORM_QUESTI ON.STD_FOR M_QUESTION _ID, AHOBP R.STD_FORM _QUESTION. TEXT, | |||||
| 5040 | AH OBPR.STD_F ORM_QUESTI ON.TYPE, A HOBPR.STD_ FORM_QUEST ION.MIN, A HOBPR.STD_ FORM_QUEST ION.MAX, A HOBPR.STD_ FORM_QUEST ION.MAX_CH OICES, | |||||
| 5041 | AH OBPR.STD_F ORM_ANSWER .STD_FORM_ ANSWER_ID, AHOBPR.ST D_FORM_ANS WER.[ORDER ], AHOBPR. STD_FORM_A NSWER.TEXT AS ANSWER _TEXT, | |||||
| 5042 | AH OBPR.STD_F ORM_ANSWER .HELP, AHO BPR.STD_FO RM_SECTION .BRP_FORM_ SECTION_ID , AHOBPR.S TD_FORM_SU B_SECTION. BRP_FORM_S UB_SECTION _ID, | |||||
| 5043 | AH OBPR.STD_F ORM_QUESTI ON.BRP_FOR M_QUESTION _ID, AHOBP R.STD_FORM _ANSWER.BR P_FORM_ANS WER_ID | |||||
| 5044 | FROM AHOBP R.STD_FORM , AHOBPR.S TD_FORM_SE CTION, AH OBPR.STD_F ORM_SUB_SE CTION, AHO BPR.STD_FO RM_QUESTIO N, AHOBPR. STD_FORM_A NSWER | |||||
| 5045 | WHERE AHOB PR.STD_FOR M.STD_FORM _ID = AHOB PR.STD_FOR M_SECTION. STD_FORM_I D | |||||
| 5046 | AND AHOBPR .STD_FORM_ SECTION.ST D_FORM_SEC TION_ID = AHOBPR.STD _FORM_SUB_ SECTION.ST D_FORM_SEC TION_ID | |||||
| 5047 | AND AHOBPR .STD_FORM_ SUB_SECTIO N.STD_FORM _SUB_SECTI ON_ID = AH OBPR.STD_F ORM_QUESTI ON.STD_FOR M_SUB_SECT ION_ID | |||||
| 5048 | AND AHOBPR .STD_FORM_ QUESTION.S TD_FORM_QU ESTION_ID = AHOBPR.S TD_FORM_AN SWER.STD_F ORM_QUESTI ON_ID | |||||
| 5049 | GO | |||||
| 5050 | PRINT N'Cr eating [AH OBPR].[VIE W_REGISTRA NTS]...'; | |||||
| 5051 | ||||||
| 5052 | ||||||
| 5053 | GO | |||||
| 5054 | CREATE VIE W [AHOBPR] .[VIEW_REG ISTRANTS] AS | |||||
| 5055 | /********* ********** ********** ********** ********** ********** ********** * | |||||
| 5056 | ********** ********** ********** ********** ********** ********** ********** */ | |||||
| 5057 | WITH addr AS | |||||
| 5058 | ( | |||||
| 5059 | SELECT * | |||||
| 5060 | FROM AHOBPR.REG ISTRANT_AD DRESS | |||||
| 5061 | WHERE TYPE = 'HO ME' | |||||
| 5062 | ) | |||||
| 5063 | SELECT reg .REGISTRAN T_ID, | |||||
| 5064 | reg .LAST_NAME + ', ' + reg.FIRST_ NAME + ' ' + reg.MID DLE_NAME A S FULL_NAM E, | |||||
| 5065 | reg .BIRTH_DAT E, | |||||
| 5066 | DAT EDIFF(YEAR , reg.BIRT H_DATE, GE TDATE()) A S REGISTRA NT_AGE, | |||||
| 5067 | reg .GENDER, | |||||
| 5068 | reg .STD_SERVI CE_STATUS_ ID, | |||||
| 5069 | reg .STD_REGIS TRANT_STAT US_ID, | |||||
| 5070 | reg .STD_INSTI TUTION_ID, | |||||
| 5071 | ISN ULL(reg.RE GISTRANT_S TATUS_LAST _UPDATED_D ATE, reg.U PDATED) AS STATUS_LA ST_UPDATED _DATE, | |||||
| 5072 | DAT EDIFF(DAY, ISNULL(re g.REGISTRA NT_STATUS_ LAST_UPDAT ED_DATE, r eg.UPDATED ), GETDATE ()) As DAY S_AT_CURRE NT_STATUS, | |||||
| 5073 | inf o.EDIPI_MI SMATCHED_F LAG, | |||||
| 5074 | inf o.EDIPI_VE RIFIED_DAT E, | |||||
| 5075 | inf o.EULA_ACC EPTED_DATE , | |||||
| 5076 | inf o.CONTACT_ INFO_VERIF IED_DATE, | |||||
| 5077 | add r.COUNTRY, | |||||
| 5078 | add r.STATE, | |||||
| 5079 | add r.CITY | |||||
| 5080 | FROM AHO BPR.REGIST RANT reg | |||||
| 5081 | LEFT JO IN AHOBPR. [REGISTRAN T_RECORD_I NFO] info | |||||
| 5082 | ON info.RE GISTRANT_I D = reg.RE GISTRANT_I D | |||||
| 5083 | LEFT JO IN AHOBPR. REGISTRANT _CONTACT_I NFO cont | |||||
| 5084 | ON cont.RE GISTRANT_I D = info.R EGISTRANT_ ID | |||||
| 5085 | LEFT JO IN addr | |||||
| 5086 | ON addr.RE GISTRANT_I D = cont.R EGISTRANT_ ID; | |||||
| 5087 | ||||||
| 5088 | ||||||
| 5089 | -- SEL ECT * FROM [AHOBPR]. [VIEW_REGI STRANTS] | |||||
| 5090 | GO | |||||
| 5091 | PRINT N'Cr eating [AH OBPR].[VIE W_HEALTH_F ACTOR]...' ; | |||||
| 5092 | ||||||
| 5093 | ||||||
| 5094 | GO | |||||
| 5095 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 5096 | ||||||
| 5097 | ||||||
| 5098 | GO | |||||
| 5099 | CREATE VIE W [AHOBPR] .[VIEW_HEA LTH_FACTOR ] WITH SCH EMABINDING | |||||
| 5100 | AS SEL ECT | |||||
| 5101 | A.R EGISTRANT_ HEALTH_FAC TOR_ID, | |||||
| 5102 | A.R EGISTRANT_ VISIT_ID, | |||||
| 5103 | D.R EGISTRANT_ ID, | |||||
| 5104 | D.V ISIT_DATE_ TIME AS EV ALUATION_D ATE_TIME, | |||||
| 5105 | B.D ESCRIPTION AS HEALTH _FACTOR, | |||||
| 5106 | C.DESCR IPTION AS HEALTH_FAC TOR_CATEGO RY, | |||||
| 5107 | C.TOOLT IP as CATE GORY_TOOLT IP, | |||||
| 5108 | B.SORT_ ORDER AS S ORT_ORDER, | |||||
| 5109 | B.STD_H EALTH_FACT OR_CATEGOR Y_ID | |||||
| 5110 | FROM AHO BPR.[REGIS TRANT_HEAL TH_FACTOR] A, | |||||
| 5111 | AHO BPR.STD_HE ALTH_FACTO R B, | |||||
| 5112 | AHO BPR.STD_HE ALTH_FACTO R_CATEGORY C, | |||||
| 5113 | AHOBPR. REGISTRANT _VISIT D | |||||
| 5114 | WHERE A.S TD_HEALTH_ FACTOR_ID = B.STD_HE ALTH_FACTO R_ID | |||||
| 5115 | AND B.S TD_HEALTH_ FACTOR_CAT EGORY_ID = C.STD_HEA LTH_FACTOR _CATEGORY_ ID | |||||
| 5116 | AND A.R EGISTRANT_ VISIT_ID = D.REGISTR ANT_VISIT_ ID | |||||
| 5117 | AND D.E VALUATION_ FLAG = 'Y' | |||||
| 5118 | GO | |||||
| 5119 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 5120 | ||||||
| 5121 | ||||||
| 5122 | GO | |||||
| 5123 | PRINT N'Cr eating [AH OBPR].[VIE W_INSTITUT ION]...'; | |||||
| 5124 | ||||||
| 5125 | ||||||
| 5126 | GO | |||||
| 5127 | CREATE VIE W [AHOBPR] .[VIEW_INS TITUTION] | |||||
| 5128 | AS | |||||
| 5129 | SEL ECT dbo.S TD_INSTITU TION.ID, | |||||
| 5130 | dbo.S TD_INSTITU TION.NAME, | |||||
| 5131 | dbo.S TD_INSTITU TION.STATI ONNUMBER, | |||||
| 5132 | dbo.S TD_INSTITU TION.VISTA NAME, | |||||
| 5133 | dbo.S TD_INSTITU TION.AGENC Y_ID, | |||||
| 5134 | dbo.S TD_FACILIT YTYPE.NAME AS FACILI TY_TYPE, | |||||
| 5135 | dbo.S TD_INSTITU TION.MFN_Z EG_RECIPIE NT, | |||||
| 5136 | dbo.S TD_INSTITU TION.PAREN T_ID, | |||||
| 5137 | dbo.S TD_INSTITU TION.REALI GNEDFROM_I D, | |||||
| 5138 | dbo.S TD_INSTITU TION.REALI GNEDTO_ID, | |||||
| 5139 | dbo.S TD_INSTITU TION.VISN_ ID, | |||||
| 5140 | dbo.S TD_INSTITU TION.IS_AC TIVE, | |||||
| 5141 | dbo.S TD_INSTITU TION.STREE TADDRESSLI NE1, | |||||
| 5142 | dbo.S TD_INSTITU TION.STREE TCITY, | |||||
| 5143 | dbo.S TD_INSTITU TION.STREE TPOSTALCOD E, | |||||
| 5144 | dbo.S TD_COUNTRY .SHORTNAME AS COUNTR Y_NAME, | |||||
| 5145 | dbo.S TD_COUNTRY .ALPHA3COD E AS COUNT RY_CODE, | |||||
| 5146 | dbo.S TD_STATE.F IPSCODE AS STATE_COD E, | |||||
| 5147 | dbo.S TD_STATE.N AME AS STA TE_NAME, | |||||
| 5148 | dbo.S TD_COUNTY. NAME AS CO UNTY_NAME, | |||||
| 5149 | dbo.S TD_COUNTY. COUNTYNUMB ER, | |||||
| 5150 | dbo.S TD_COUNTY. DESCRIPTIO N_TEXT AS COUNTY_DES C | |||||
| 5151 | F ROM dbo.S TD_INSTITU TION | |||||
| 5152 | J OIN dbo.S TD_FACILIT YTYPE | |||||
| 5153 | ON dbo.S TD_INSTITU TION.STD_F ACILITYTYP E_ID = dbo .STD_FACIL ITYTYPE.ID | |||||
| 5154 | LEFT J OIN dbo.S TD_COUNTY | |||||
| 5155 | ON dbo.S TD_INSTITU TION.STREE TCOUNTY_ID = dbo.STD _COUNTY.ID | |||||
| 5156 | LEFT J OIN dbo.S TD_COUNTRY | |||||
| 5157 | ON dbo.S TD_INSTITU TION.STREE TCOUNTRY_I D = dbo.ST D_COUNTRY. ID | |||||
| 5158 | LEFT J OIN dbo.S TD_STATE | |||||
| 5159 | ON dbo.S TD_INSTITU TION.STREE TSTATE_ID = dbo.STD_ STATE.ID; | |||||
| 5160 | ||||||
| 5161 | -- SELECT * FROM [AH OBPR].[VIE W_INSTITUT ION] | |||||
| 5162 | GO | |||||
| 5163 | PRINT N'Cr eating [AH OBPR].[VIE W_US_LOCAT IONS]...'; | |||||
| 5164 | ||||||
| 5165 | ||||||
| 5166 | GO | |||||
| 5167 | CREATE VIE W [AHOBPR] .[VIEW_US_ LOCATIONS] | |||||
| 5168 | AS | |||||
| 5169 | SELECT S TD_COUNTRY .ID AS COU NTRY_ID, | |||||
| 5170 | S TD_COUNTRY .ALPHA3COD E AS COUNT RY_CODE, | |||||
| 5171 | S TD_COUNTRY .POSTALNAM E AS COUNT RY_NAME, | |||||
| 5172 | S TD_STATE.I D AS STATE _ID, | |||||
| 5173 | S TD_STATE.P OSTALNAME AS STATE_C ODE, | |||||
| 5174 | S TD_STATE.N AME AS STA TE_NAME, | |||||
| 5175 | S TD_COUNTY. ID AS COUN TY_ID, | |||||
| 5176 | S TD_COUNTY. NAME AS CO UNTY_NAME | |||||
| 5177 | FROM d bo.STD_COU NTY | |||||
| 5178 | JOIN d bo.STD_STA TE | |||||
| 5179 | ON S TD_STATE.I D = STD_CO UNTY.STATE _ID | |||||
| 5180 | JOIN d bo.STD_COU NTRY | |||||
| 5181 | ON S TD_COUNTRY .ID = STD_ STATE.COUN TRY_ID; | |||||
| 5182 | GO | |||||
| 5183 | PRINT N'Cr eating [AH OBPR].[VIE W_ETHNICIT Y]...'; | |||||
| 5184 | ||||||
| 5185 | ||||||
| 5186 | GO | |||||
| 5187 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 5188 | ||||||
| 5189 | ||||||
| 5190 | GO | |||||
| 5191 | CREATE VIE W [AHOBPR] .[VIEW_ETH NICITY] WI TH SCHEMAB INDING | |||||
| 5192 | AS SEL ECT | |||||
| 5193 | ID, | |||||
| 5194 | ABBREV IATION, | |||||
| 5195 | NAME, | |||||
| 5196 | DESCRI PTION_TEXT | |||||
| 5197 | FROM dbo .[STD_ETHN ICITY] | |||||
| 5198 | GO | |||||
| 5199 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 5200 | ||||||
| 5201 | ||||||
| 5202 | GO | |||||
| 5203 | PRINT N'Cr eating [AH OBPR].[VIE W_FACILITY _LOOKUP].. .'; | |||||
| 5204 | ||||||
| 5205 | ||||||
| 5206 | GO | |||||
| 5207 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 5208 | ||||||
| 5209 | ||||||
| 5210 | GO | |||||
| 5211 | CREATE VIE W [AHOBPR] .[VIEW_FAC ILITY_LOOK UP] | |||||
| 5212 | AS | |||||
| 5213 | SELECT 'Vi sn' AS LOO KUP_TYPE | |||||
| 5214 | ,CASE WHE N len('0' + SUBSTRIN G(visn.NAM E, 6, 5)) > 2 | |||||
| 5215 | THEN SUB STRING(vis n.NAME, 6, 5) | |||||
| 5216 | ELSE '0' + SUBSTRI NG(visn.NA ME, 6, 5) END AS ID | |||||
| 5217 | ,'V'+CASE WHEN len( '0' + SUBS TRING(visn .NAME, 6, 5)) > 2 | |||||
| 5218 | THEN SUB STRING(vis n.NAME, 6, 5) | |||||
| 5219 | ELSE '0' + SUBSTRI NG(visn.NA ME, 6, 5) END AS COD E | |||||
| 5220 | ,'V'+ CAS E WHEN len ('0' + SUB STRING(vis n.NAME, 6, 5)) > 2 | |||||
| 5221 | TH EN SUBSTRI NG(visn.NA ME, 6, 5) | |||||
| 5222 | EL SE '0' + S UBSTRING(v isn.NAME, 6, 5) END AS NAME | |||||
| 5223 | ,0 AS PARENT_ ID | |||||
| 5224 | ,CO NVERT(INT, SUBSTRING (visn.NAME , 6, 5)) A S SORT_ORD ER | |||||
| 5225 | , ' V' + CASE WHEN len(' 0' + SUBST RING(visn. NAME, 6, 5 )) > 2 | |||||
| 5226 | THEN SUBST RING(visn. NAME, 6, 5 ) | |||||
| 5227 | ELSE '0' + SUBSTRING (visn.NAME , 6, 5) EN D AS VisnI D | |||||
| 5228 | ,CO NVERT(INT, 0) AS BASE _ID | |||||
| 5229 | FROM dbo .STD_INSTI TUTION AS visn | |||||
| 5230 | WHERE SUB STRING(vis n.NAME,1,5 ) = 'VISN ' | |||||
| 5231 | UNION ALL | |||||
| 5232 | SELECT 'Ma inFacility ' AS LOOKU P_TYPE | |||||
| 5233 | ,fac.ID | |||||
| 5234 | ,fa c.STATIONN UMBER AS C ODE | |||||
| 5235 | ,'( V' + SUBST RING(visn. NAME, 6, 5 ) + ')(' + fac.STATI ONNUMBER + ') ' | |||||
| 5236 | + fa c.NAME + ' , ' | |||||
| 5237 | + IS NULL(fac.S TREETCITY, '') + ', ' | |||||
| 5238 | + IS NULL(S.POS TALNAME, ' <blank nam e>') AS Na me | |||||
| 5239 | ,CO NVERT(int, SUBSTRING (visn.NAME , 6, 5)) A S PARENT_I D | |||||
| 5240 | ,CO NVERT(int, SUBSTRING (visn.NAME , 6, 5)) A S SORT_ORD ER | |||||
| 5241 | ,'V ' + CASE W HEN len('0 ' + SUBSTR ING(visn.N AME, 6, 5) ) > 2 | |||||
| 5242 | T HEN SUBSTR ING(visn.N AME, 6, 5) | |||||
| 5243 | E LSE '0' + SUBSTRING( visn.NAME, 6, 5) END AS VisnID | |||||
| 5244 | ,fa c.ID AS BA SE_ID | |||||
| 5245 | FROM dbo.STD_I NSTITUTION visn | |||||
| 5246 | JOIN dbo.STD_I NSTITUTION AS fac ON visn.ID = fac.VISN_ ID | |||||
| 5247 | LEFT JOIN dbo.STD_S TATE AS S ON S.ID = fac.STREET STATE_ID | |||||
| 5248 | WHERE SUBS TRING(visn .NAME,1,5) = 'VISN ' | |||||
| 5249 | AND LEN( fac.STATIO NNUMBER) = 3 | |||||
| 5250 | UNION ALL | |||||
| 5251 | SELECT 'Fa cility' AS LOOKUP_TY PE | |||||
| 5252 | ,fac.ID | |||||
| 5253 | ,fa c.STATIONN UMBER AS C ODE | |||||
| 5254 | ,'( V' + SUBST RING(visn. NAME, 6, 5 ) + ')(' + fac.STATI ONNUMBER + ') ' | |||||
| 5255 | + fa c.NAME + ' , ' | |||||
| 5256 | + IS NULL(fac.S TREETCITY, '') + ', ' | |||||
| 5257 | + IS NULL(S.POS TALNAME, ' <blank nam e>') AS Na me | |||||
| 5258 | ,ba se.ID AS PARENT_ID | |||||
| 5259 | ,CO NVERT(int, SUBSTRING (visn.NAME , 6, 5)) A S SORT_ORD ER | |||||
| 5260 | ,'V ' + CASE W HEN len('0 ' + SUBSTR ING(visn.N AME, 6, 5) ) > 2 | |||||
| 5261 | T HEN SUBSTR ING(visn.N AME, 6, 5) | |||||
| 5262 | E LSE '0' + SUBSTRING( visn.NAME, 6, 5) END AS VisnID | |||||
| 5263 | ,ba se.ID AS B ASE_ID | |||||
| 5264 | FROM dbo.STD_I NSTITUTION visn | |||||
| 5265 | JOIN dbo.STD_I NSTITUTION AS fac ON visn.ID = fac.VISN_ ID | |||||
| 5266 | JOIN dbo.STD_I NSTITUTION base ON b ase.STATIO NNUMBER = SUBSTRING( fac.STATIO NNUMBER,1, 3) | |||||
| 5267 | LEFT JOIN dbo.STD_S TATE AS S ON S.ID = fac.STREET STATE_ID | |||||
| 5268 | WHERE SUB STRING(vis n.NAME,1,5 ) = 'VISN ' | |||||
| 5269 | AND LEN (fac.STATI ONNUMBER) > 3 | |||||
| 5270 | ; | |||||
| 5271 | GO | |||||
| 5272 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 5273 | ||||||
| 5274 | ||||||
| 5275 | GO | |||||
| 5276 | PRINT N'Cr eating [AH OBPR].[VIE W_ETL_LOOK UP]...'; | |||||
| 5277 | ||||||
| 5278 | ||||||
| 5279 | GO | |||||
| 5280 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 5281 | ||||||
| 5282 | ||||||
| 5283 | GO | |||||
| 5284 | CREATE VIE W [AHOBPR] .[VIEW_ETL _LOOKUP] W ITH SCHEMA BINDING AS | |||||
| 5285 | ||||||
| 5286 | WITH src | |||||
| 5287 | AS( | |||||
| 5288 | SELECT D ISTINCT | |||||
| 5289 | 'STD_MARIT ALSTATUS' AS [TYPE], | |||||
| 5290 | [MARITAL_S TATUS] AS [DESCRIPTI ON] | |||||
| 5291 | FROM [AHOBPR].[ REGISTRANT ] | |||||
| 5292 | UNION | |||||
| 5293 | SELECT D ISTINCT | |||||
| 5294 | 'STD_GENDE R' AS [TYP E], | |||||
| 5295 | [GENDER] | |||||
| 5296 | FROM [AHOBPR].[ REGISTRANT ] | |||||
| 5297 | UNION | |||||
| 5298 | SELECT D ISTINCT | |||||
| 5299 | 'STD_RACE' AS [TYPE] , | |||||
| 5300 | RACE | |||||
| 5301 | FROM [AHOBPR].[ REGISTRANT ] | |||||
| 5302 | UNION | |||||
| 5303 | SELECT D ISTINCT | |||||
| 5304 | 'STD_ELIGI BLITYSTATU S' AS [TYP E], | |||||
| 5305 | ELIGIBILIT Y_STATUS | |||||
| 5306 | FROM [AHOBPR].[ REGISTRANT ] | |||||
| 5307 | UNION | |||||
| 5308 | SELECT D ISTINCT | |||||
| 5309 | 'STD_ETHNI CITY' AS [ TYPE], | |||||
| 5310 | [ETHNICITY ] | |||||
| 5311 | FROM [AHOBPR].[ REGISTRANT ] | |||||
| 5312 | ) | |||||
| 5313 | SELECT [T YPE], | |||||
| 5314 | RO W_NUMBER() OVER( ORD ER BY [TYP E],[DESCRI PTION] ) A S ID, | |||||
| 5315 | IS NULL([DESC RIPTION],' No Data Av ailable') AS [DESCRI PTION] | |||||
| 5316 | FROM Sr c; | |||||
| 5317 | ||||||
| 5318 | ||||||
| 5319 | ||||||
| 5320 | -- SELECT * FROM [AH OBPR].[VIE W_ETL_LOOK UP] | |||||
| 5321 | GO | |||||
| 5322 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 5323 | ||||||
| 5324 | ||||||
| 5325 | GO | |||||
| 5326 | PRINT N'Cr eating [AH OBPR].[VIE W_INSTITUT ION_NAME]. ..'; | |||||
| 5327 | ||||||
| 5328 | ||||||
| 5329 | GO | |||||
| 5330 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 5331 | ||||||
| 5332 | ||||||
| 5333 | GO | |||||
| 5334 | CREATE VIE W [AHOBPR] .[VIEW_INS TITUTION_N AME] | |||||
| 5335 | AS | |||||
| 5336 | SEL ECT dbo.S TD_INSTITU TION.ID, | |||||
| 5337 | dbo.S TD_INSTITU TION.NAME, | |||||
| 5338 | dbo.S TD_INSTITU TION.STATI ONNUMBER, | |||||
| 5339 | dbo.S TD_INSTITU TION.VISTA NAME, | |||||
| 5340 | dbo.S TD_INSTITU TION.AGENC Y_ID, | |||||
| 5341 | dbo.S TD_FACILIT YTYPE.NAME AS FACILI TY_TYPE, | |||||
| 5342 | dbo.S TD_INSTITU TION.PAREN T_ID, | |||||
| 5343 | dbo.S TD_INSTITU TION.VISN_ ID | |||||
| 5344 | F ROM dbo.S TD_INSTITU TION | |||||
| 5345 | J OIN dbo.S TD_FACILIT YTYPE | |||||
| 5346 | ON dbo.S TD_INSTITU TION.STD_F ACILITYTYP E_ID = dbo .STD_FACIL ITYTYPE.ID | |||||
| 5347 | UNI ON | |||||
| 5348 | SEL ECT -1, | |||||
| 5349 | 'No Fa citilty As signed', | |||||
| 5350 | 'NULL' , | |||||
| 5351 | 'No Fa citilty As signed', | |||||
| 5352 | NULL, | |||||
| 5353 | NULL, | |||||
| 5354 | NULL, | |||||
| 5355 | '-1' | |||||
| 5356 | ; | |||||
| 5357 | ||||||
| 5358 | -- SELECT TOP(100) * FROM [AHO BPR].[VIEW _INSTITUTI ON_NAME] | |||||
| 5359 | GO | |||||
| 5360 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 5361 | ||||||
| 5362 | ||||||
| 5363 | GO | |||||
| 5364 | PRINT N'Cr eating [AH OBPR].[VIE W_LOOKUP]. ..'; | |||||
| 5365 | ||||||
| 5366 | ||||||
| 5367 | GO | |||||
| 5368 | CREATE VIE W [AHOBPR] .[VIEW_LOO KUP] WITH SCHEMABIND ING AS | |||||
| 5369 | SELECT 'RE GISTRY_FLA G' AS LOOK UP_TYPE | |||||
| 5370 | ,STD_RE GISTRY_FLA G_ID AS ID | |||||
| 5371 | ,RE GISTRY_FLA G_NAME AS CODE | |||||
| 5372 | ,RE GISTRY_FLA G_NAME AS NAME | |||||
| 5373 | ,0 AS PARENT_ ID | |||||
| 5374 | ,1 AS SORT_OR DER | |||||
| 5375 | FROM AHO BPR.STD_RE GISTRY_FLA G | |||||
| 5376 | WHERE STD _REGISTRY_ FLAG_ID > 0 | |||||
| 5377 | UNION ALL | |||||
| 5378 | SELECT 'RE GISTRY_STA TUS' AS LO OKUP_TYPE | |||||
| 5379 | ,STD_REGI STRANT_STA TUS_ID AS ID | |||||
| 5380 | ,RE GISTRANT_S TATUS AS C ODE | |||||
| 5381 | ,RE GISTRANT_S TATUS AS N AME | |||||
| 5382 | ,0 AS PARENT_ ID | |||||
| 5383 | ,OR DINAL_VALU E AS SORT_ ORDER | |||||
| 5384 | FROM AHO BPR.STD_RE GISTRANT_S TATUS | |||||
| 5385 | WHERE STD _REGISTRAN T_STATUS_I D > 0 | |||||
| 5386 | UNION ALL | |||||
| 5387 | SELECT 'RE GISTRY_FLA G_TYPE' AS LOOKUP_TY PE | |||||
| 5388 | ,STD_REGI STRY_FLAG_ TYPE_ID AS ID | |||||
| 5389 | ,RE GISTRY_FLA G_TYPE AS CODE | |||||
| 5390 | ,RE GISTRY_FLA G_TYPE AS NAME | |||||
| 5391 | ,0 AS PARENT_ ID | |||||
| 5392 | ,1 AS SORT_OR DER | |||||
| 5393 | FROM AHO BPR.STD_RE GISTRY_FLA G_TYPE | |||||
| 5394 | UNION ALL | |||||
| 5395 | SELECT 'SU BPOPULATIO N_FLAG_ACT IVE' AS LO OKUP_TYPE | |||||
| 5396 | ,STD_REGI STRY_FLAG_ ID AS ID | |||||
| 5397 | ,RE GISTRY_FLA G_NAME AS CODE | |||||
| 5398 | ,RE GISTRY_FLA G_NAME AS NAME | |||||
| 5399 | ,0 AS PARENT_ ID | |||||
| 5400 | ,1 AS SORT_OR DER | |||||
| 5401 | FROM AHOBP R.STD_REGI STRY_FLAG | |||||
| 5402 | WHERE ACTI VE_FLAG = 1 AND STD_ REGISTRY_F LAG_TYPE_I D = 2 | |||||
| 5403 | UNION ALL | |||||
| 5404 | SELECT 'ST D_STATE' A S LOOKUP_T YPE | |||||
| 5405 | ,ID | |||||
| 5406 | ,PO STALNAME A S CODE | |||||
| 5407 | ,PO STALNAME A S NAME | |||||
| 5408 | ,0 AS PARENT_ ID | |||||
| 5409 | ,1 AS SORT_OR DER | |||||
| 5410 | FROM DBO.S TD_STATE | |||||
| 5411 | WHERE COUN TRY_ID = 1 006840 | |||||
| 5412 | AND POSTAL NAME IN (' AL', 'AK', 'AR', 'AZ ', 'CA', ' CO', 'CT', 'DE', 'FL ', 'GA', ' HI', | |||||
| 5413 | 'IA', 'ID' , 'IL', 'I N', 'KS', 'KY', 'LA' , 'MA', 'M D', 'ME', 'MI', 'MN' , 'MO', 'M S', | |||||
| 5414 | 'MT', 'NC' , 'ND', 'N E', 'NH', 'NJ', 'NM' , 'NV', 'N Y', 'OH', 'OK', 'OR' , 'PA', 'R I', | |||||
| 5415 | 'SC', 'SD' , 'TN', 'T X', 'UT', 'VA', 'VT' , 'WA', 'W I', 'WV', 'WY', 'DC' , 'AS', 'G U', 'PR', 'VI', 'MP' , 'AA', 'A E', 'AP') | |||||
| 5416 | UNION ALL | |||||
| 5417 | SELECT 'ST D_STATE' A S LOOKUP_T YPE | |||||
| 5418 | ,0 | |||||
| 5419 | ,'F oreign Cou ntry/Other ' AS CODE | |||||
| 5420 | ,'F oreign Cou ntry/Other ' AS NAME | |||||
| 5421 | ,0 AS PARENT_ ID | |||||
| 5422 | ,99 99 AS SORT _ORDER | |||||
| 5423 | UNION ALL | |||||
| 5424 | SELECT 'AD MINTRACKIN G_FLAG_ACT IVE' AS LO OKUP_TYPE | |||||
| 5425 | ,STD_REGI STRY_FLAG_ ID AS ID | |||||
| 5426 | ,RE GISTRY_FLA G_NAME AS CODE | |||||
| 5427 | ,RE GISTRY_FLA G_NAME AS NAME | |||||
| 5428 | ,0 AS PARENT_ ID | |||||
| 5429 | ,1 AS SORT_OR DER | |||||
| 5430 | FROM AHOBP R.STD_REGI STRY_FLAG | |||||
| 5431 | WHERE ACTI VE_FLAG = 1 | |||||
| 5432 | AND STD_ REGISTRY_F LAG_TYPE_I D = 1 | |||||
| 5433 | AND (PRE DEFINED = 0 | |||||
| 5434 | OR (PRE DEFINED = 1 AND REGI STRY_FLAG_ NAME NOT L IKE 'Statu s Change: %')) | |||||
| 5435 | UNION ALL | |||||
| 5436 | SELECT 'ST D_SERVICE_ STATUS' AS LOOKUP_TY PE | |||||
| 5437 | ,STD_SERV ICE_STATUS _ID As ID | |||||
| 5438 | ,SE RVICE_STAT US AS CODE | |||||
| 5439 | ,SE RVICE_STAT US AS NAME | |||||
| 5440 | ,0 AS PARENT_ ID | |||||
| 5441 | ,1 AS SORT_OR DER | |||||
| 5442 | FROM AHO BPR.STD_SE RVICE_STAT US | |||||
| 5443 | WHERE STD _SERVICE_S TATUS_ID > 0 | |||||
| 5444 | UNION AL L | |||||
| 5445 | SELECT 'ST D_FORM_QUE STION' AS LOOKUP_TYP E | |||||
| 5446 | ,STD_FO RM_QUESTIO N_ID As ID | |||||
| 5447 | ,FO RM_QUESTIO N_UNIQUE_I D AS CODE | |||||
| 5448 | ,FO RM_QUESTIO N_UNIQUE_I D AS NAME | |||||
| 5449 | ,0 AS PARENT_ ID | |||||
| 5450 | ,1 AS SORT_OR DER | |||||
| 5451 | FROM AHO BPR.STD_FO RM_QUESTIO N | |||||
| 5452 | UNION ALL | |||||
| 5453 | SELECT 'RE GISTRY_STA TUS_INELIG IBLE' AS L OOKUP_TYPE | |||||
| 5454 | ,STD_REGI STRANT_STA TUS_ID AS ID | |||||
| 5455 | ,RE GISTRANT_S TATUS AS C ODE | |||||
| 5456 | ,RE GISTRANT_S TATUS AS N AME | |||||
| 5457 | ,0 AS PARENT_ ID | |||||
| 5458 | ,ST D_REGISTRA NT_STATUS_ ID AS SORT _ORDER | |||||
| 5459 | FROM AHO BPR.STD_RE GISTRANT_S TATUS | |||||
| 5460 | WHERE ST D_REGISTRA NT_STATUS_ ID IN (3, 4, 5) | |||||
| 5461 | UNION ALL | |||||
| 5462 | SELECT 'RE GISTRY_STA TUS_REVIEW ED' AS LOO KUP_TYPE | |||||
| 5463 | ,STD_REGI STRANT_STA TUS_ID AS ID | |||||
| 5464 | ,RE GISTRANT_S TATUS AS C ODE | |||||
| 5465 | ,RE GISTRANT_S TATUS AS N AME | |||||
| 5466 | ,0 AS PARENT_ ID | |||||
| 5467 | ,ST D_REGISTRA NT_STATUS_ ID AS SORT _ORDER | |||||
| 5468 | FROM AHO BPR.STD_RE GISTRANT_S TATUS | |||||
| 5469 | WHERE ST D_REGISTRA NT_STATUS_ ID IN (5, 8) | |||||
| 5470 | UNION ALL | |||||
| 5471 | SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE | |||||
| 5472 | ,1 AS I D | |||||
| 5473 | ,'A ll' AS COD E | |||||
| 5474 | ,'A ll' AS NAM E | |||||
| 5475 | ,0 AS PARENT_ ID | |||||
| 5476 | ,1 AS SORT_OR DER | |||||
| 5477 | UNION ALL | |||||
| 5478 | SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE | |||||
| 5479 | ,2 AS I D | |||||
| 5480 | ,'F acility' A S CODE | |||||
| 5481 | ,'F acility' A S NAME | |||||
| 5482 | ,0 AS PARENT_ ID | |||||
| 5483 | ,2 AS SORT_OR DER | |||||
| 5484 | UNION ALL | |||||
| 5485 | SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE | |||||
| 5486 | ,3 AS I D | |||||
| 5487 | ,'V ISN' AS CO DE | |||||
| 5488 | ,'V ISN' AS NA ME | |||||
| 5489 | ,0 AS PARENT_ ID | |||||
| 5490 | ,3 AS SORT_OR DER | |||||
| 5491 | UNION ALL | |||||
| 5492 | SELECT 'SU BPOPULATIO N_FLAG_ALL ' AS LOOKU P_TYPE | |||||
| 5493 | ,STD_RE GISTRY_FLA G_ID AS ID | |||||
| 5494 | ,RE GISTRY_FLA G_NAME AS CODE | |||||
| 5495 | ,RE GISTRY_FLA G_NAME AS NAME | |||||
| 5496 | ,0 AS PARENT_ ID | |||||
| 5497 | ,1 AS SORT_OR DER | |||||
| 5498 | FROM AHOBP R.STD_REGI STRY_FLAG | |||||
| 5499 | WHERE STD_ REGISTRY_F LAG_TYPE_I D = 2 | |||||
| 5500 | UNION ALL | |||||
| 5501 | SELECT 'AD MIN_FLAG_A LL' AS LOO KUP_TYPE | |||||
| 5502 | ,STD_RE GISTRY_FLA G_ID AS ID | |||||
| 5503 | ,RE GISTRY_FLA G_NAME AS CODE | |||||
| 5504 | ,RE GISTRY_FLA G_NAME AS NAME | |||||
| 5505 | ,0 AS PARENT_ ID | |||||
| 5506 | ,1 AS SORT_OR DER | |||||
| 5507 | FROM AHOBP R.STD_REGI STRY_FLAG | |||||
| 5508 | WHERE STD_ REGISTRY_F LAG_TYPE_I D = 1 | |||||
| 5509 | UNION ALL | |||||
| 5510 | SELECT 'HE ALTH_FACTO R' AS LOOK UP_TYPE | |||||
| 5511 | ,A.[STD _HEALTH_FA CTOR_ID] A S ID | |||||
| 5512 | ,A. [NAME] AS CODE | |||||
| 5513 | ,B. [DESCRIPTI ON] + ': ' + A.DESCR IPTION AS NAME | |||||
| 5514 | ,0 AS PARENT_ ID | |||||
| 5515 | ,1 AS SORT_OR DER | |||||
| 5516 | FROM [AH OBPR].[STD _HEALTH_FA CTOR] A IN NER JOIN [ AHOBPR].[S TD_HEALTH_ FACTOR_CAT EGORY] B O N A.STD_HE ALTH_FACTO R_CATEGORY _ID = B.ST D_HEALTH_F ACTOR_CATE GORY_ID | |||||
| 5517 | UNION ALL | |||||
| 5518 | SELECT DIS TINCT 'DEP LOYMENT_CO UNTRY' AS LOOKUP_TYP E | |||||
| 5519 | ,0 AS I D | |||||
| 5520 | ,[D EPLOYMENT_ COUNTRY] A S CODE | |||||
| 5521 | ,[D EPLOYMENT_ COUNTRY] A S NAME | |||||
| 5522 | ,0 AS PARENT_ ID | |||||
| 5523 | ,1 AS SORT_OR DER | |||||
| 5524 | FROM [AH OBPR].[REG ISTRANT_DE PLOYMENT] | |||||
| 5525 | UNION ALL | |||||
| 5526 | SELECT DIS TINCT 'DEP LOYMENT_CO UNTRY_EXPO SURE' AS L OOKUP_TYPE | |||||
| 5527 | ,0 AS I D | |||||
| 5528 | ,[D EPLOYMENT_ COUNTRY] A S CODE | |||||
| 5529 | ,[D EPLOYMENT_ COUNTRY] A S NAME | |||||
| 5530 | ,0 AS PARENT_ ID | |||||
| 5531 | ,1 AS SORT_OR DER | |||||
| 5532 | FROM [AH OBPR].[REG ISTRANT_DE PLOYMENT] A JOIN AHO BPR.FORM_R ESPONSE_QU ESTION B | |||||
| 5533 | ON A.REGISTR ANT_DEPLOY MENT_ID = B.REGISTRA NT_DEPLOYM ENT_ID | |||||
| 5534 | UN ION ALL | |||||
| 5535 | SELECT 'ST D_RACE' AS LOOKUP_TY PE | |||||
| 5536 | ,ID | |||||
| 5537 | ,DE SCRIPTION AS CODE | |||||
| 5538 | ,DE SCRIPTION AS NAME | |||||
| 5539 | ,0 AS PARENT_ ID | |||||
| 5540 | ,1 AS SORT_OR DER | |||||
| 5541 | FROM AHOBP R.VIEW_ETL _LOOKUP | |||||
| 5542 | WHERE TYPE = 'STD_RA CE' | |||||
| 5543 | AND ID > 0 | |||||
| 5544 | UNION ALL | |||||
| 5545 | SELECT 'ST D_GENDER' AS LOOKUP_ TYPE | |||||
| 5546 | ,ID | |||||
| 5547 | ,DE SCRIPTION AS CODE | |||||
| 5548 | ,DE SCRIPTION AS NAME | |||||
| 5549 | ,0 AS PARENT_ ID | |||||
| 5550 | ,1 AS SORT_OR DER | |||||
| 5551 | FROM AHOBP R.VIEW_ETL _LOOKUP | |||||
| 5552 | WHERE TYPE = 'STD_GE NDER' | |||||
| 5553 | AND ID > 0 | |||||
| 5554 | UNION ALL | |||||
| 5555 | SELECT 'ST D_SEPARATI ONFAMILY' AS LOOKUP_ TYPE | |||||
| 5556 | ,[ STD_SEPARA TION_FAMIL Y_ID] AS I D | |||||
| 5557 | ,[ FAMILY_COD E] AS CODE | |||||
| 5558 | ,[ FAMILY] A S NAME | |||||
| 5559 | ,0 AS PARENT _ID | |||||
| 5560 | ,1 AS SORT_O RDER | |||||
| 5561 | FROM AH OBPR.STD_S EPARATION_ FAMILY | |||||
| 5562 | WHERE [ STD_SEPARA TION_FAMIL Y_ID] > 0 | |||||
| 5563 | UNION ALL | |||||
| 5564 | SELECT 'S TD_SEPARAT IONREASON' AS LOOKUP _TYPE | |||||
| 5565 | ,[ STD_SEPARA TION_REASO N_ID] AS I D | |||||
| 5566 | ,[ REASON_COD E] AS CODE | |||||
| 5567 | ,[ REASON] AS NAME | |||||
| 5568 | ,0 AS PARENT _ID | |||||
| 5569 | ,1 AS SORT_O RDER | |||||
| 5570 | FROM AH OBPR.STD_S EPARATION_ REASON | |||||
| 5571 | WHERE [ STD_SEPARA TION_REASO N_ID] > 0 | |||||
| 5572 | UNION ALL | |||||
| 5573 | SELECT 'ST D_ELIGIBLI TYSTATUS' AS LOOKUP_ TYPE | |||||
| 5574 | ,ID | |||||
| 5575 | ,DE SCRIPTION AS CODE | |||||
| 5576 | ,DE SCRIPTION AS NAME | |||||
| 5577 | ,0 AS PARENT_ ID | |||||
| 5578 | ,1 AS SORT_OR DER | |||||
| 5579 | FROM AHOBP R.VIEW_ETL _LOOKUP | |||||
| 5580 | WHERE TYPE = 'STD_EL IGIBLITYST ATUS' | |||||
| 5581 | AND ID > 0 | |||||
| 5582 | UNION ALL | |||||
| 5583 | SELECT 'ST D_ETHNICIT Y' AS LOOK UP_TYPE | |||||
| 5584 | ,ID | |||||
| 5585 | ,DE SCRIPTION AS CODE | |||||
| 5586 | ,DE SCRIPTION AS NAME | |||||
| 5587 | ,0 AS PARENT_ ID | |||||
| 5588 | ,1 AS SORT_OR DER | |||||
| 5589 | FROM AHOBP R.VIEW_ETL _LOOKUP | |||||
| 5590 | WHERE TYPE = 'STD_ET HNICITY' | |||||
| 5591 | AND ID > 0 | |||||
| 5592 | UNION ALL | |||||
| 5593 | SELECT 'S TD_CHARACT EROFSERVIC E' AS LOOK UP_TYPE | |||||
| 5594 | ,STD_DI SCHARGE_CH ARACTER_ID As ID | |||||
| 5595 | ,DI SCHARGE_CH ARACTER_CO DE AS CODE | |||||
| 5596 | ,DI SCHARGE_CH ARACTER AS NAME | |||||
| 5597 | ,0 AS PARENT_ ID | |||||
| 5598 | ,1 AS SORT_OR DER | |||||
| 5599 | FROM AHO BPR.STD_DI SCHARGE_CH ARACTER; | |||||
| 5600 | ||||||
| 5601 | ||||||
| 5602 | -- select * from [A HOBPR].[VI EW_LOOKUP] | |||||
| 5603 | GO | |||||
| 5604 | PRINT N'Cr eating [AH OBPR].[SP_ ReportStat usByLocati on]...'; | |||||
| 5605 | ||||||
| 5606 | ||||||
| 5607 | GO | |||||
| 5608 | -- ======= ========== ========== ========== ======== | |||||
| 5609 | -- Author: Debora h Barr | |||||
| 5610 | -- Create date: Nove mber 12, 2 014 | |||||
| 5611 | -- Descrip tion: Used for the A HOBPR Stat us by Loca tion Repor t | |||||
| 5612 | ||||||
| 5613 | -- Modific ation log | |||||
| 5614 | -- 2015011 4 - Sherry Wang: Cha nged query for @Inst itutionId and @VisnI d | |||||
| 5615 | -- 2015020 2 - Change state to use state codes, rem oved unnee ded tables and joins , Removed Distinct | |||||
| 5616 | -- 2015021 9 - Change state to include te rritories and Milita ry Bases | |||||
| 5617 | -- 2015033 0 - Bruce Clegg - Ad ded VisnId value of NLA to fin d Null loc ations | |||||
| 5618 | -- 2015042 7 - Bruce Clegg - Ch ange to Lo cationType and Key, for both A ssigned an d Evaluate d Location s | |||||
| 5619 | -- ======= ========== ========== ========== ======== | |||||
| 5620 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportStat usByLocati on] | |||||
| 5621 | @st ate varcha r(8000) = NULL, -- M ultiple st ates, comm a-separate d values w hen not NU LL | |||||
| 5622 | @st atus varch ar(1000) = NULL, -- Multiple s tatues, co mma-separa ted values when not NULL | |||||
| 5623 | @As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned | |||||
| 5624 | @As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089 | |||||
| 5625 | @Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned | |||||
| 5626 | @Ev aluatedLoc ationKey VARCHAR(50 ) = NULL -- 'V16', 'V01' 1 000109, 1 000089 | |||||
| 5627 | AS | |||||
| 5628 | BEGIN | |||||
| 5629 | DECLARE @Today DAT ETIME2 = G ETDATE(); | |||||
| 5630 | ||||||
| 5631 | DECLARE @A ssignedIns titutionId INT = 0, | |||||
| 5632 | @E valuatedIn stitutionI d INT = 0; | |||||
| 5633 | ||||||
| 5634 | IF @Assign edLocation Type IN (' Base','Ins titution') | |||||
| 5635 | AND ISNUME RIC(@Assig nedLocatio nKey) = 1 | |||||
| 5636 | SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key); | |||||
| 5637 | ||||||
| 5638 | IF @Evalua tedLocatio nType IN ( 'Base','In stitution' ) | |||||
| 5639 | AND ISNUME RIC(@Evalu atedLocati onKey) = 1 | |||||
| 5640 | SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey); | |||||
| 5641 | ||||||
| 5642 | --Temp ta ble concat nate flags for Regis trants wit h multiple flags | |||||
| 5643 | CREATE TAB LE #state | |||||
| 5644 | ( | |||||
| 5645 | [Regist rant_Id] I NT, | |||||
| 5646 | [state] VARCHAR(8 000) | |||||
| 5647 | ) | |||||
| 5648 | ||||||
| 5649 | SET @state = REPLACE (@state, ' Foreign Co untry/Othe r', 'FM,MH ,PW,UM,US, CANAD,MX,E U,PI,FG,OT ,UN') | |||||
| 5650 | ||||||
| 5651 | INSERT INT O #state ( [Registran t_Id], [st ate]) | |||||
| 5652 | -- Load Ta ble | |||||
| 5653 | SELECT a. REGISTRANT _ID, | |||||
| 5654 | ST UFF((SELEC T ', ' + b .STATE | |||||
| 5655 | FR OM AHOBPR. REGISTRANT _ADDRESS b | |||||
| 5656 | WHE RE a.REGIS TRANT_ID = b.REGISTR ANT_ID | |||||
| 5657 | FOR XM L PATH('') ), 1, 1, ' ') [STATE ] | |||||
| 5658 | FR OM AHOBPR. REGISTRANT a | |||||
| 5659 | GROUP BY a.REGIS TRANT_ID | |||||
| 5660 | ORDER BY a.REGIS TRANT_ID; | |||||
| 5661 | ||||||
| 5662 | SE LECT reg. REGISTRANT _ID | |||||
| 5663 | ,(reg.LAS T_NAME + ' , ' + reg. FIRST_NAME ) AS Name | |||||
| 5664 | ,b.REGIST RANT_STATU S AS Statu s | |||||
| 5665 | ,DATEDIFF (day, reg. REGISTRANT _STATUS_LA ST_UPDATED _DATE, @To day) As Da ys | |||||
| 5666 | ,s.STATE AS State | |||||
| 5667 | ,RIGHT(in st.VisnID, 2) AS VI SN | |||||
| 5668 | ,inst.Nam e AS Facil ity | |||||
| 5669 | ,reg.BIRT H_DATE AS BirthDate | |||||
| 5670 | , CONVERT(VA RCHAR(10), reg.BIRTH _DATE, 101 ) AS Birth DateDispla y | |||||
| 5671 | FROM AHOBP R.REGISTRA NT reg | |||||
| 5672 | JOIN AHOBPR.ST D_REGISTRA NT_STATUS b | |||||
| 5673 | ON reg.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID | |||||
| 5674 | LEFT JOIN AHOBPR.VIE W_FACILITY _LOOKUP in st | |||||
| 5675 | ON inst.ID = reg.STD_I NSTITUTION _ID | |||||
| 5676 | LEFT JOIN #sta te s | |||||
| 5677 | ON reg.REGIS TRANT_ID = s.Registr ant_Id | |||||
| 5678 | W HERE (ISNU LL(@state, '') = '' | |||||
| 5679 | OR EX ISTS(SELEC T DISTINCT addr.REGI STRANT_ID | |||||
| 5680 | FRO M AHOBPR.R EGISTRANT_ ADDRESS ad dr | |||||
| 5681 | WHER E addr.REG ISTRANT_ID = reg.REG ISTRANT_ID | |||||
| 5682 | AN D addr.STA TE IN (SE LECT * FRO M fncSplit (@state, ' ,')))) | |||||
| 5683 | AND (ISNULL(@ status,'') = '' | |||||
| 5684 | OR reg.ST D_REGISTRA NT_STATUS_ ID IN (SEL ECT * FROM fncSplit( @status, ' ,'))) | |||||
| 5685 | AND ( @AssignedL ocationTyp e IS NULL | |||||
| 5686 | OR (@Assig nedLocatio nType = 'N LA' | |||||
| 5687 | AND re g.STD_INST ITUTION_ID IS NULL) | |||||
| 5688 | OR (@Assig nedLocatio nType = 'V ISN' | |||||
| 5689 | AND E XISTS(SELE CT * FROM AHOBPR.VIE W_FACILITY _LOOKUP in st | |||||
| 5690 | WHERE inst.ID = reg.STD_IN STITUTION_ ID | |||||
| 5691 | AND inst.VisnI D = @Assig nedLocatio nKey) | |||||
| 5692 | ) | |||||
| 5693 | OR (@Assig nedLocatio nType = 'B ase' | |||||
| 5694 | AND E XISTS(SELE CT * FROM AHOBPR.VIE W_FACILITY _LOOKUP in st | |||||
| 5695 | WHERE inst.ID = reg.STD_IN STITUTION_ ID | |||||
| 5696 | AND inst.BASE_ ID = @Assi gnedInstit utionId) | |||||
| 5697 | ) | |||||
| 5698 | OR (@Assig nedLocatio nType = 'I nstitution ' | |||||
| 5699 | AND r eg.STD_INS TITUTION_I D = @Assig nedInstitu tionId) | |||||
| 5700 | ) | |||||
| 5701 | AND ( @Evaluated LocationTy pe IS NULL | |||||
| 5702 | OR (@Evalu atedLocati onType = ' NLA' | |||||
| 5703 | AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al | |||||
| 5704 | WHERE eva l.REGISTRA NT_ID = Re g.REGISTRA NT_ID | |||||
| 5705 | AND eva l.EVALUATI ON_FLAG = 'Y' ) | |||||
| 5706 | ) | |||||
| 5707 | OR (@Evalu atedLocati onType = ' VISN' | |||||
| 5708 | AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval | |||||
| 5709 | JOIN AHOBPR.VIE W_FACILITY _LOOKUP in st ON inst .ID = eval .STD_INSTI TUTION_ID | |||||
| 5710 | WHERE eval.REGIS TRANT_ID = Reg.REGIS TRANT_ID | |||||
| 5711 | AND inst.VisnI D = @Evalu atedLocati onKey | |||||
| 5712 | AND eval.EVALU ATION_FLAG = 'Y' ) | |||||
| 5713 | ) | |||||
| 5714 | OR (@Evalu atedLocati onType = ' Base' | |||||
| 5715 | AND E XISTS(SELE CT * FROM AHOBPR.VIE W_FACILITY _LOOKUP in st | |||||
| 5716 | WHERE inst.ID = reg.STD_IN STITUTION_ ID | |||||
| 5717 | AND inst.BASE_ ID = @Eval uatedInsti tutionId) | |||||
| 5718 | ) | |||||
| 5719 | OR (@Evalu atedLocati onType = ' Institutio n' | |||||
| 5720 | AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval | |||||
| 5721 | WHERE eval.REGIS TRANT_ID = Reg.REGIS TRANT_ID | |||||
| 5722 | AND eval.EVALU ATION_FLAG = 'Y' | |||||
| 5723 | AND eval.STD_I NSTITUTION _ID = @Eva luatedInst itutionId) | |||||
| 5724 | ) | |||||
| 5725 | ); | |||||
| 5726 | ||||||
| 5727 | DROP TAB LE #state | |||||
| 5728 | END | |||||
| 5729 | ||||||
| 5730 | -- EXEC [A HOBPR].[SP _ReportSta tusByLocat ion] | |||||
| 5731 | -- EXEC [A HOBPR].[SP _ReportSta tusByLocat ion] @stat e = 'AA,Fo reign Coun try/Other' | |||||
| 5732 | -- EXEC [A HOBPR].[SP _ReportSta tusByLocat ion] @stat us = 7 | |||||
| 5733 | ||||||
| 5734 | -- exec [A HOBPR].[SP _ReportSta tusByLocat ion] | |||||
| 5735 | -- exec [A HOBPR].[SP _ReportSta tusByLocat ion] @Assi gnedLocati onType = ' NLA' | |||||
| 5736 | -- exec [A HOBPR].[SP _ReportSta tusByLocat ion] @Assi gnedLocati onType = ' VISN', @As signedLoca tionKey = 'V16' | |||||
| 5737 | -- exec [A HOBPR].[SP _ReportSta tusByLocat ion] @Assi gnedLocati onType = ' Base', @As signedLoca tionKey = '1000089' | |||||
| 5738 | -- exec [A HOBPR].[SP _ReportSta tusByLocat ion] @Assi gnedLocati onType = ' Institutio n', @Assig nedLocatio nKey = '10 00089' | |||||
| 5739 | -- exec [A HOBPR].[SP _ReportSta tusByLocat ion] | |||||
| 5740 | -- exec [A HOBPR].[SP _ReportSta tusByLocat ion] @Eval uatedLocat ionType = 'NLA' | |||||
| 5741 | -- exec [A HOBPR].[SP _ReportSta tusByLocat ion] @Eval uatedLocat ionType = 'VISN', @E valuatedLo cationKey = 'V16' | |||||
| 5742 | -- exec [A HOBPR].[SP _ReportSta tusByLocat ion] @Eval uatedLocat ionType = 'Base', @E valuatedLo cationKey = '1000089 ' | |||||
| 5743 | -- exec [A HOBPR].[SP _ReportSta tusByLocat ion] @Eval uatedLocat ionType = 'Instituti on', @Eval uatedLocat ionKey = ' 1000089' | |||||
| 5744 | GO | |||||
| 5745 | PRINT N'Cr eating [AH OBPR].[SP_ ReportGetD utyStatusB yID]...'; | |||||
| 5746 | ||||||
| 5747 | ||||||
| 5748 | GO | |||||
| 5749 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 5750 | ||||||
| 5751 | ||||||
| 5752 | GO | |||||
| 5753 | ||||||
| 5754 | -- ======= ========== ========== ========== ======== | |||||
| 5755 | -- Author: Debora h Barr | |||||
| 5756 | -- Create date: Dece mber 08, 2 014 | |||||
| 5757 | -- Descrip tion: Used for the A HOBPR Ad H oc Report | |||||
| 5758 | -- ======= ========== ========== ========== ======== | |||||
| 5759 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportGetD utyStatusB yID] | |||||
| 5760 | @du tyStatusId varchar(1 00) = NULL -- Multip le statues , comma-se parated va lues when not NULL | |||||
| 5761 | ||||||
| 5762 | AS | |||||
| 5763 | BEGIN | |||||
| 5764 | DECLARE @dutyStatu sDescripti on varchar (4000) = ' ' | |||||
| 5765 | DECLARE @dutyStatu s varchar( 100) | |||||
| 5766 | ||||||
| 5767 | DECLARE curDutySta tus CURSOR | |||||
| 5768 | FOR | |||||
| 5769 | SE LECT SERVI CE_STATUS | |||||
| 5770 | FROM AHOBPR.ST D_SERVICE_ STATUS | |||||
| 5771 | WHER E STD_SERV ICE_STATUS _ID IN (SE LECT * FRO M fncSplit (@dutyStat usId, ',') ) | |||||
| 5772 | OR ISN ULL(@dutyS tatusId, ' ') = ''; | |||||
| 5773 | ||||||
| 5774 | OPEN cur DutyStatus ; | |||||
| 5775 | FETCH NE XT FROM cu rDutyStatu s INTO @du tyStatus; | |||||
| 5776 | WHILE @@ FETCH_STAT US = 0 -- Not End o f file | |||||
| 5777 | BE GIN | |||||
| 5778 | if @dutyStatu sDescripti on != '' | |||||
| 5779 | SET @d utyStatusD escription = @dutySt atusDescri ption + ', ' | |||||
| 5780 | ||||||
| 5781 | SET @dutyStatu sDescripti on = @duty StatusDesc ription + @dutyStatu s; | |||||
| 5782 | FETC H NEXT FRO M curDutyS tatus INTO @dutyStat us; | |||||
| 5783 | EN D | |||||
| 5784 | CLOSE cu rDutyStatu s; | |||||
| 5785 | DEALLOCA TE curDuty Status; | |||||
| 5786 | ||||||
| 5787 | SELECT @dutyStatu sDescripti on AS DUTY _STATUS_DE SCRIPTION | |||||
| 5788 | ||||||
| 5789 | END | |||||
| 5790 | GO | |||||
| 5791 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 5792 | ||||||
| 5793 | ||||||
| 5794 | GO | |||||
| 5795 | PRINT N'Cr eating [AH OBPR].[SP_ ReportGetF acilityNam eByID]...' ; | |||||
| 5796 | ||||||
| 5797 | ||||||
| 5798 | GO | |||||
| 5799 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 5800 | ||||||
| 5801 | ||||||
| 5802 | GO | |||||
| 5803 | -- ======= ========== ========== ========== ======== | |||||
| 5804 | -- Author: Sherry Wang | |||||
| 5805 | -- Create date: Janu ary 07, 20 15 | |||||
| 5806 | -- Descrip tion: Used for the A HOBPR Repo rt | |||||
| 5807 | -- ======= ========== ========== ========== ======== | |||||
| 5808 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportGetF acilityNam eByID] | |||||
| 5809 | @In stitutionI d VARCHAR( 50) = '0' | |||||
| 5810 | ||||||
| 5811 | AS | |||||
| 5812 | BEGIN | |||||
| 5813 | IF ISNUL L(@Institu tionId,'0' ) <> '0' | |||||
| 5814 | AND ISNU MERIC(@Ins titutionId ) = 1 | |||||
| 5815 | SELECT TOP (1) Name | |||||
| 5816 | FROM AHOBP R.VIEW_FAC ILITY_LOOK UP | |||||
| 5817 | WHERE ID = @Institu tionId; | |||||
| 5818 | END; | |||||
| 5819 | -- EXEC [A HOBPR].[SP _ReportGet FacilityNa meByID] '1 000109' | |||||
| 5820 | GO | |||||
| 5821 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 5822 | ||||||
| 5823 | ||||||
| 5824 | GO | |||||
| 5825 | PRINT N'Cr eating [AH OBPR].[SP_ ReportGetS tatusByID] ...'; | |||||
| 5826 | ||||||
| 5827 | ||||||
| 5828 | GO | |||||
| 5829 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 5830 | ||||||
| 5831 | ||||||
| 5832 | GO | |||||
| 5833 | -- ======= ========== ========== ========== ======== | |||||
| 5834 | -- Author: Sherry Wang | |||||
| 5835 | -- Create date: Dece mber 01, 2 014 | |||||
| 5836 | -- Descrip tion: Used for the A HOBPR Stat us by Loca tion Repor t | |||||
| 5837 | -- ======= ========== ========== ========== ======== | |||||
| 5838 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportGetS tatusByID] | |||||
| 5839 | @st atusId var char(100) = NULL -- Multiple s tatues, co mma-separa ted values when not NULL | |||||
| 5840 | ||||||
| 5841 | AS | |||||
| 5842 | BEGIN | |||||
| 5843 | DECLARE @statusDes cription v archar(400 0) = '' | |||||
| 5844 | DECLARE @status va rchar(100) | |||||
| 5845 | ||||||
| 5846 | DECLARE curStatus CURSOR | |||||
| 5847 | FOR | |||||
| 5848 | SE LECT REGIS TRANT_STAT US | |||||
| 5849 | FROM AHOBPR.ST D_REGISTRA NT_STATUS | |||||
| 5850 | WHER E STD_REGI STRANT_STA TUS_ID IN (SELECT * FROM fncSp lit(@statu sId, ',')) | |||||
| 5851 | OR ISN ULL(@statu sId, '') = ''; | |||||
| 5852 | ||||||
| 5853 | OPEN cur Status; | |||||
| 5854 | FETCH NE XT FROM cu rStatus IN TO @status ; | |||||
| 5855 | WHILE @@ FETCH_STAT US = 0 -- Not End o f file | |||||
| 5856 | BE GIN | |||||
| 5857 | if @statusDes cription ! = '' | |||||
| 5858 | SET @s tatusDescr iption = @ statusDesc ription + ', ' | |||||
| 5859 | ||||||
| 5860 | SET @statusDes cription = @statusDe scription + @status; | |||||
| 5861 | FETC H NEXT FRO M curStatu s INTO @st atus; | |||||
| 5862 | EN D | |||||
| 5863 | CLOSE cu rStatus; | |||||
| 5864 | DEALLOCA TE curStat us; | |||||
| 5865 | ||||||
| 5866 | SELECT @statusDes cription A S STATUS_D ESCRIPTION | |||||
| 5867 | ||||||
| 5868 | END | |||||
| 5869 | GO | |||||
| 5870 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 5871 | ||||||
| 5872 | ||||||
| 5873 | GO | |||||
| 5874 | PRINT N'Cr eating [AH OBPR].[SP_ ReportGetS tateByID]. ..'; | |||||
| 5875 | ||||||
| 5876 | ||||||
| 5877 | GO | |||||
| 5878 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 5879 | ||||||
| 5880 | ||||||
| 5881 | GO | |||||
| 5882 | -- ======= ========== ========== ========== ======== | |||||
| 5883 | -- Author: Sherry Wang | |||||
| 5884 | -- Create date: Dece mber 01, 2 014 | |||||
| 5885 | -- Descrip tion: Used for the A HOBPR Stat us by Loca tion Repor t | |||||
| 5886 | -- ======= ========== ========== ========== ======== | |||||
| 5887 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportGetS tateByID] | |||||
| 5888 | @st ateId varc har(1000) = NULL -- Multiple s tatues, co mma-separa ted values when not NULL | |||||
| 5889 | ||||||
| 5890 | AS | |||||
| 5891 | BEGIN | |||||
| 5892 | SELECT AHOBPR.Get StateCodeB yID (@stat eId) AS ST ATE_DESCRI PTION | |||||
| 5893 | END | |||||
| 5894 | GO | |||||
| 5895 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 5896 | ||||||
| 5897 | ||||||
| 5898 | GO | |||||
| 5899 | PRINT N'Cr eating [AH OBPR].[ERR OR_LOG_Log ]...'; | |||||
| 5900 | ||||||
| 5901 | ||||||
| 5902 | GO | |||||
| 5903 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 5904 | ||||||
| 5905 | ||||||
| 5906 | GO | |||||
| 5907 | -- ======= ========== ========== ========== ======== | |||||
| 5908 | -- Author: Dave M ay | |||||
| 5909 | -- Create date: 22 J uly 2012 | |||||
| 5910 | -- Descrip tion: Used to log er rors to th e ERROR_LO G table. | |||||
| 5911 | -- ======= ========== ========== ========== ======== | |||||
| 5912 | CREATE PRO CEDURE AHO BPR.ERROR_ LOG_Log | |||||
| 5913 | @E rrorProced ure nvarch ar(128), | |||||
| 5914 | @E rrorMessag e nvarchar (4000) | |||||
| 5915 | AS | |||||
| 5916 | BEGIN | |||||
| 5917 | SET NOCO UNT ON; | |||||
| 5918 | SET IMPL ICIT_TRANS ACTIONS OF F ; | |||||
| 5919 | ||||||
| 5920 | DECLARE @User varc har(255) = ORIGINAL_ LOGIN(); | |||||
| 5921 | DECLARE @Now datet ime2(0) = GETDATE(); | |||||
| 5922 | ||||||
| 5923 | INSERT | |||||
| 5924 | INTO [ AHOBPR].[E RROR_LOG] | |||||
| 5925 | ( [COMPONENT _TYPE] | |||||
| 5926 | , [ERROR_TYP E] | |||||
| 5927 | , [ERROR_SOU RCE] | |||||
| 5928 | , [ERROR_MES SAGE] | |||||
| 5929 | , [CREATEDBY ] | |||||
| 5930 | , [UPDATEDBY ] | |||||
| 5931 | , [UPDATED] | |||||
| 5932 | ) | |||||
| 5933 | VALUES | |||||
| 5934 | ('Datab ase', | |||||
| 5935 | 'Store d Procedur e', | |||||
| 5936 | @ErrorProc edure, | |||||
| 5937 | @ErrorMess age, | |||||
| 5938 | @User, | |||||
| 5939 | @User, | |||||
| 5940 | @Now | |||||
| 5941 | ) ; | |||||
| 5942 | ||||||
| 5943 | RETURN S COPE_IDENT ITY(); | |||||
| 5944 | END | |||||
| 5945 | GO | |||||
| 5946 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 5947 | ||||||
| 5948 | ||||||
| 5949 | GO | |||||
| 5950 | PRINT N'Cr eating [AH OBPR].[SP_ ReportClin icallyReve lantSummar y]...'; | |||||
| 5951 | ||||||
| 5952 | ||||||
| 5953 | GO | |||||
| 5954 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 5955 | ||||||
| 5956 | ||||||
| 5957 | GO | |||||
| 5958 | -- ======= ========== ========== ========== ======== | |||||
| 5959 | -- Au thor: Bruce Clegg | |||||
| 5960 | -- Create date: Febr uary 4, 20 15 | |||||
| 5961 | -- Descrip tion: Used for the A HOBPR Clin ically Rev elant Summ ary | |||||
| 5962 | -- Note: Data is massag ed for que stions 1.2 .A, 1.2.F, 1.2.G, 2. 5.A and 2. 5.C | |||||
| 5963 | -- Modific ation log | |||||
| 5964 | -- 2015042 7 - Clegg - get depl oyment cou nts indepe ndent of Q uestion nu mbers | |||||
| 5965 | -- ======= ========== ========== ========== ======== | |||||
| 5966 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportClin icallyReve lantSummar y] | |||||
| 5967 | @Re gistrantId INT = 0 | |||||
| 5968 | AS | |||||
| 5969 | BEGIN | |||||
| 5970 | ||||||
| 5971 | --Temp table conc atenate An swers for Questions | |||||
| 5972 | CREATE T ABLE #Answ ers | |||||
| 5973 | ( | |||||
| 5974 | Quest ionNumber VARCHAR(10 0), | |||||
| 5975 | Quest ionNumberD isplay VAR CHAR(100), | |||||
| 5976 | Answe rValues VA RCHAR(8000 ) | |||||
| 5977 | ); | |||||
| 5978 | ||||||
| 5979 | ||||||
| 5980 | -- Load all clinic al releven t answers that are N OT from a Deployment | |||||
| 5981 | WITH Res ponses | |||||
| 5982 | AS (SELE CT qst.FOR M_QUESTION _UNIQUE_ID AS Questi onNumber, | |||||
| 5983 | I SNULL(rAns .ANSWER_VA LUE,ans.[T EXT]) AS AnswerValu e | |||||
| 5984 | FROM A HOBPR.REGI STRANT reg | |||||
| 5985 | JOIN A HOBPR.FORM _RESPONSE fr ON fr.R EGISTRANT_ ID = Reg.R EGISTRANT_ ID | |||||
| 5986 | JOIN A HOBPR.FORM _RESPONSE_ QUESTION r Qst ON fr. FORM_RESPO NSE_ID = r Qst.FORM_R ESPONSE_ID | |||||
| 5987 | JOIN A HOBPR.FORM _RESPONSE_ ANSWER rAn s ON rQst. FORM_RESPO NSE_QUESTI ON_ID = rA ns.FORM_RE SPONSE_QUE STION_ID | |||||
| 5988 | JOIN A HOBPR.STD_ FORM_ANSWE R ans ON r Ans.STD_FO RM_ANSWER_ ID = ans.S TD_FORM_AN SWER_ID | |||||
| 5989 | JOIN A HOBPR.STD_ FORM_QUEST ION qst ON rQst.STD_ FORM_QUEST ION_ID = q st.STD_FOR M_QUESTION _ID | |||||
| 5990 | WHERE f r.STD_FORM _ID = ans. STD_FORM_I D | |||||
| 5991 | AND q st.STD_FOR M_ID = fr. STD_FORM_I D | |||||
| 5992 | AND a ns.CLINICA L_RELEVANT _FLAG = 1 | |||||
| 5993 | AND r eg.REGISTR ANT_ID = @ Registrant Id | |||||
| 5994 | AND r Qst.REGIST RANT_DEPLO YMENT_ID I S NULL | |||||
| 5995 | ) | |||||
| 5996 | ||||||
| 5997 | INSERT I NTO #Answe rs (Questi onNumber, QuestionNu mberDispla y, AnswerV alues) | |||||
| 5998 | SELECT a.Question Number, a. QuestionNu mber, | |||||
| 5999 | STUFF((SEL ECT '~' + b.AnswerVa lue | |||||
| 6000 | FROM Respo nses b | |||||
| 6001 | W HERE a.Que stionNumbe r = b.Ques tionNumber | |||||
| 6002 | FOR XML PATH(' ')), 1, 1, '') Answ erValues | |||||
| 6003 | FROM Respo nses a | |||||
| 6004 | GROU P BY a.Que stionNumbe r | |||||
| 6005 | ORDE R BY a.Que stionNumbe r; | |||||
| 6006 | ||||||
| 6007 | ||||||
| 6008 | -- Get D eployment Count with out limiti ng it to a specific Question. | |||||
| 6009 | DECLA RE @Deploy mentCount INT = 0; | |||||
| 6010 | With Deployment s | |||||
| 6011 | AS( | |||||
| 6012 | S ELECT DIST INCT rQst. REGISTRANT _DEPLOYMEN T_ID | |||||
| 6013 | FROM AHOB PR.REGISTR ANT reg | |||||
| 6014 | JOIN AHOB PR.FORM_RE SPONSE fr ON fr.REGI STRANT_ID = Reg.REGI STRANT_ID | |||||
| 6015 | JOIN AHOB PR.FORM_RE SPONSE_QUE STION rQst ON fr.FOR M_RESPONSE _ID = rQst .FORM_RESP ONSE_ID | |||||
| 6016 | WHERE reg. REGISTRANT _ID = 149 -- @Regist rantId | |||||
| 6017 | AND rQst .REGISTRAN T_DEPLOYME NT_ID IS N OT NULL | |||||
| 6018 | ) | |||||
| 6019 | SELEC T @Deploym entCount = COUNT(RE GISTRANT_D EPLOYMENT_ ID) | |||||
| 6020 | FRO M Deployme nts; | |||||
| 6021 | ||||||
| 6022 | -- Load specific c linical re levent ans wers summa rized for all Deploy ments - '1 .2.A','1.2 .F' | |||||
| 6023 | INSERT I NTO #Answe rs (Questi onNumber, QuestionNu mberDispla y, AnswerV alues) | |||||
| 6024 | SEL ECT qst.FO RM_QUESTIO N_UNIQUE_I D AS Quest ionNumber | |||||
| 6025 | ,qst.FO RM_QUESTIO N_UNIQUE_I D AS Quest ionNumberD isplay | |||||
| 6026 | , 'Said yes to '+ CONV ERT(VARCHA R(2),SUM(C ASE WHEN I SNULL(rAns .ANSWER_VA LUE,ans.[T EXT]) = 'Y es' THEN 1 ELSE 0 EN D)) | |||||
| 6027 | + ' of ' + CONVERT(VA RCHAR(2),@ Deployment Count) + ' deploymen ts' AS Ans werValues | |||||
| 6028 | FROM AHOBP R.REGISTRA NT reg | |||||
| 6029 | JOIN AHOBP R.FORM_RES PONSE fr O N fr.REGIS TRANT_ID = Reg.REGIS TRANT_ID | |||||
| 6030 | JOIN AHOBP R.FORM_RES PONSE_QUES TION rQst ON fr.FORM _RESPONSE_ ID = rQst. FORM_RESPO NSE_ID | |||||
| 6031 | LEFT JOIN AHOBPR.FOR M_RESPONSE _ANSWER rA ns ON rQst .FORM_RESP ONSE_QUEST ION_ID = r Ans.FORM_R ESPONSE_QU ESTION_ID | |||||
| 6032 | LEFT JOIN AHOBPR.STD _FORM_ANSW ER ans ON rAns.STD_F ORM_ANSWER _ID = ans. STD_FORM_A NSWER_ID | |||||
| 6033 | JOIN AHOBP R.STD_FORM _QUESTION qst ON rQs t.STD_FORM _QUESTION_ ID = qst.S TD_FORM_QU ESTION_ID | |||||
| 6034 | W HERE qst.S TD_FORM_ID = fr.STD_ FORM_ID | |||||
| 6035 | AND reg.R EGISTRANT_ ID = @Regi strantId | |||||
| 6036 | AND qst.F ORM_QUESTI ON_UNIQUE_ ID in ('1. 2.A','1.2. F') | |||||
| 6037 | GROUP BY qst.FORM_Q UESTION_UN IQUE_ID; | |||||
| 6038 | ||||||
| 6039 | -- Alw ays Delete any zero counts fro m above th at were cr eated in o rder to ca pture true Deploymen t count. | |||||
| 6040 | DELETE F ROM #Answe rs WHERE A nswerValue s LIKE 'Sa id yes to 0 of % dep loyments' | |||||
| 6041 | AND QuestionNu mber in (' 1.2.A','1. 2.F'); | |||||
| 6042 | ||||||
| 6043 | ||||||
| 6044 | -- Load specific c linical re levent ans wers summa rized for all Deploy ments -- ' 1.2.G' | |||||
| 6045 | INSERT I NTO #Answe rs (Questi onNumber, QuestionNu mberDispla y, AnswerV alues) | |||||
| 6046 | SELE CT qst.FOR M_QUESTION _UNIQUE_ID AS Questi onNumber | |||||
| 6047 | ,qst.FORM _QUESTION_ UNIQUE_ID AS Questio nNumberDis play | |||||
| 6048 | ,'M aximum: '+ CONVERT(V ARCHAR(2), MAX(CONVER T(INT,rAns .ANSWER_VA LUE))) | |||||
| 6049 | + ' hours, Av erage: '+ LEFT(CONVE RT(VARCHAR (20),AVG(C ONVERT(DEC IMAL(6,2), rAns.ANSWE R_VALUE))) ,4) | |||||
| 6050 | + ' hours, De ployments: ' + CONVE RT(VARCHAR (2),@Deplo ymentCount ) AS Answe rValues | |||||
| 6051 | FR OM AHOBPR. REGISTRANT reg | |||||
| 6052 | JO IN AHOBPR. FORM_RESPO NSE fr ON fr.REGISTR ANT_ID = R eg.REGISTR ANT_ID | |||||
| 6053 | JO IN AHOBPR. FORM_RESPO NSE_QUESTI ON rQst ON fr.FORM_R ESPONSE_ID = rQst.FO RM_RESPONS E_ID | |||||
| 6054 | JO IN AHOBPR. FORM_RESPO NSE_ANSWER rAns ON r Qst.FORM_R ESPONSE_QU ESTION_ID = rAns.FOR M_RESPONSE _QUESTION_ ID | |||||
| 6055 | JO IN AHOBPR. STD_FORM_Q UESTION qs t ON rQst. STD_FORM_Q UESTION_ID = qst.STD _FORM_QUES TION_ID | |||||
| 6056 | WHE RE qst.STD _FORM_ID = fr.STD_FO RM_ID | |||||
| 6057 | A ND qst.STD _FORM_ID = fr.STD_FO RM_ID | |||||
| 6058 | A ND reg.REG ISTRANT_ID = @Regist rantId | |||||
| 6059 | A ND qst.FOR M_QUESTION _UNIQUE_ID = '1.2.G' | |||||
| 6060 | G ROUP BY qs t.FORM_QUE STION_UNIQ UE_ID; | |||||
| 6061 | ||||||
| 6062 | -- Alw ays Delete any Null or Empty A nswers. | |||||
| 6063 | DELETE F ROM #Answe rs WHERE I SNULL(Answ erValues,' ') = ''; | |||||
| 6064 | ||||||
| 6065 | ||||||
| 6066 | -- Tobac co Exposur e | |||||
| 6067 | -- if bo th 2.5.A a nd 2.5.C e xist, repl ace with C ombined an swer text' | |||||
| 6068 | DECLARE @25A VARCH AR(200) = (SELECT An swerValues FROM #Ans wers WHERE QuestionN umber = '2 .5.A') | |||||
| 6069 | DECLARE @25C VARCH AR(200) = (SELECT An swerValues FROM #Ans wers WHERE QuestionN umber = '2 .5.C') | |||||
| 6070 | IF @25A = 'Yes' | |||||
| 6071 | IF @25C = 'N ot at all' | |||||
| 6072 | UPDATE #An swers SET AnswerValu es = 'Past Smoker' | |||||
| 6073 | , QuestionNu mberDispla y = '2.5' | |||||
| 6074 | WHERE QuestionNu mber = '2. 5.A'; | |||||
| 6075 | ELS E | |||||
| 6076 | UPDATE #An swers SET AnswerValu es = 'Curr ent Smoker ' | |||||
| 6077 | , QuestionNu mberDispla y = '2.5' | |||||
| 6078 | WHERE QuestionNu mber = '2. 5.A'; | |||||
| 6079 | IF @25 A = 'No' | |||||
| 6080 | UPD ATE #Answe rs SET Ans werValues = 'Never s moked' | |||||
| 6081 | , QuestionNu mberDispla y = '2.5' | |||||
| 6082 | WHERE QuestionNu mber = '2. 5.A'; | |||||
| 6083 | ||||||
| 6084 | -- Alway s Delete 2 .5.C, as i t cannot s tand on it 's own | |||||
| 6085 | DELETE F ROM #Answe rs WHERE Q uestionNum ber = '2.5 .C'; | |||||
| 6086 | ||||||
| 6087 | -- Final Query | |||||
| 6088 | SE LECT DISTI NCT | |||||
| 6089 | list.Quest ionNumberD isplay AS QuestionNu mber | |||||
| 6090 | ,CASE WHEN qst. SHORT_TEXT = 'Have y ou smoked at least 1 00 cigaret tes in you r entire l ife?' -- 2.5.A | |||||
| 6091 | THEN 'Hav e you ever smoked?' | |||||
| 6092 | ELSE qst. SHORT_TEXT END AS Q uestionTex t | |||||
| 6093 | ,REPL ACE(list.A nswerValue s,'~','<br />') AS An swerValues | |||||
| 6094 | ,sec. STD_FORM_S ECTION_ID AS Section Id | |||||
| 6095 | ,sub. STD_FORM_S UB_SECTION _ID AS Sub sectionId | |||||
| 6096 | ,CASE WHEN ISNU LL(sub.MEN U_ITEM_NAM E, '') = ' ' | |||||
| 6097 | THEN Conv ert(VARCHA R, sec.BRP _FORM_SECT ION_ID) + ' ' + sec. MENU_ITEM_ NAME | |||||
| 6098 | ELSE Conv ert(VARCHA R, sec.BRP _FORM_SECT ION_ID) + '.' + Conv ert(VARCHA R, sub.BRP _FORM_SUB_ SECTION_ID ) + ' ' + sec.MENU_I TEM_NAME + ' > ' + s ub.MENU_IT EM_NAME | |||||
| 6099 | END AS Se ctionAndSu bSection | |||||
| 6100 | FROM AHOBP R.REGISTRA NT reg | |||||
| 6101 | JOIN AHOBP R.FORM_RES PONSE fr O N fr.REGIS TRANT_ID = Reg.REGIS TRANT_ID | |||||
| 6102 | JOIN AHOBP R.FORM_RES PONSE_QUES TION rQst ON fr.FORM _RESPONSE_ ID = rQst. FORM_RESPO NSE_ID | |||||
| 6103 | JOIN AHOBP R.STD_FORM _QUESTION qst ON rQs t.STD_FORM _QUESTION_ ID = qst.S TD_FORM_QU ESTION_ID | |||||
| 6104 | JOIN #Answ ers list O N qst.FORM _QUESTION_ UNIQUE_ID = list.Que stionNumbe r | |||||
| 6105 | JOIN STD_F ORM_SECTIO N sec ON s ec.STD_FOR M_SECTION_ ID = qst.S TD_FORM_SE CTION_ID | |||||
| 6106 | JOIN STD_F ORM_SUB_SE CTION sub ON sub.STD _FORM_SUB_ SECTION_ID = qst.STD _FORM_SUB_ SECTION_ID | |||||
| 6107 | W HERE qst.S TD_FORM_ID = fr.STD_ FORM_ID | |||||
| 6108 | AND reg.R EGISTRANT_ ID = @Regi strantId; | |||||
| 6109 | ||||||
| 6110 | DROP TAB LE #Answer s | |||||
| 6111 | END | |||||
| 6112 | ||||||
| 6113 | -- EXEC [A HOBPR].[SP _ReportCli nicallyRev elantSumma ry] 149 | |||||
| 6114 | -- 5 6 7 8 108 | |||||
| 6115 | GO | |||||
| 6116 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 6117 | ||||||
| 6118 | ||||||
| 6119 | GO | |||||
| 6120 | PRINT N'Cr eating [AH OBPR].[SP_ ReportElig ibility].. .'; | |||||
| 6121 | ||||||
| 6122 | ||||||
| 6123 | GO | |||||
| 6124 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 6125 | ||||||
| 6126 | ||||||
| 6127 | GO | |||||
| 6128 | -- ======= ========== ========== ========== ======== | |||||
| 6129 | -- Author: Bruce Clegg | |||||
| 6130 | -- Create date: 01/2 0/2015 | |||||
| 6131 | -- Descrip tion: Used for the A HOBPR Elig ibility Re port | |||||
| 6132 | ||||||
| 6133 | -- Modific ation log | |||||
| 6134 | ||||||
| 6135 | -- ======= ========== ========== ========== ======== | |||||
| 6136 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportElig ibility] | |||||
| 6137 | @st atus varch ar(1000) = NULL, -- Multiple s tatues, co mma-separa ted values when not NULL | |||||
| 6138 | @ad minFlag va rchar (10) = NULL, | |||||
| 6139 | @ad minFlagFro mDateText varchar (2 0) = NULL, | |||||
| 6140 | @ad minFlagToD ateText va rchar (20) = NULL | |||||
| 6141 | AS | |||||
| 6142 | ||||||
| 6143 | BEGIN | |||||
| 6144 | ||||||
| 6145 | -- Convert date para meters fro m VARCHAR to DATETIM E2(0) | |||||
| 6146 | DECLARE @adminFlag FromDate D ATETIME2(0 ) = NULL, | |||||
| 6147 | @adminFlag ToDate DAT ETIME2(0) = NULL; | |||||
| 6148 | ||||||
| 6149 | SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1'); | |||||
| 6150 | SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ())); | |||||
| 6151 | ||||||
| 6152 | SELECT a.REGISTR ANT_ID | |||||
| 6153 | , a.SSN | |||||
| 6154 | ,a.LAST_N AME | |||||
| 6155 | ,a.FIRST_ NAME | |||||
| 6156 | ,a.MIDDLE _NAME | |||||
| 6157 | FROM AHOBP R.REGISTRA NT a | |||||
| 6158 | W HERE (a.ST D_REGISTRA NT_STATUS_ ID IN (SEL ECT * FROM fncSplit( @status, ' ,'))OR ISN ULL(@statu s,'') = '' ) | |||||
| 6159 | AND ((ISN ULL(@admin Flag,'') = '') | |||||
| 6160 | OR EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG adminfl ag | |||||
| 6161 | WHERE ad minflag.ST D_REGISTRY _FLAG_ID I N (SELECT * FROM fnc Split(@adm inFlag, ', ')) | |||||
| 6162 | AND ad minflag.RE GISTRANT_I D = a.REGI STRANT_ID | |||||
| 6163 | AND ad minflag.CR EATED BETW EEN @admin FlagFromDa te AND @ad minFlagToD ate)); | |||||
| 6164 | ||||||
| 6165 | END | |||||
| 6166 | ||||||
| 6167 | -- Test Ca ses | |||||
| 6168 | -- EXECUTE [AHOBPR]. [SP_Report Eligibilit y] | |||||
| 6169 | -- EXECUTE [AHOBPR]. [SP_Report Eligibilit y] @adminF lag = '59, 60' | |||||
| 6170 | -- EXECUTE [AHOBPR]. [SP_Report Eligibilit y] @status = '1,2,3, 4' | |||||
| 6171 | GO | |||||
| 6172 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 6173 | ||||||
| 6174 | ||||||
| 6175 | GO | |||||
| 6176 | PRINT N'Cr eating [AH OBPR].[SP_ ReportGetA nswerByID] ...'; | |||||
| 6177 | ||||||
| 6178 | ||||||
| 6179 | GO | |||||
| 6180 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 6181 | ||||||
| 6182 | ||||||
| 6183 | GO | |||||
| 6184 | -- ======= ========== ========== ========== ======== | |||||
| 6185 | -- Author: Debora h Barr | |||||
| 6186 | -- Create date: 1/9/ 2015 | |||||
| 6187 | -- Descrip tion: Used for the A HOBPR Ad H oc Report | |||||
| 6188 | -- ======= ========== ========== ========== ======== | |||||
| 6189 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportGetA nswerByID] | |||||
| 6190 | @an swerId var char(100) = NULL -- Multiple s tatues, co mma-separa ted values when not NULL | |||||
| 6191 | ||||||
| 6192 | AS | |||||
| 6193 | BEGIN | |||||
| 6194 | DECLARE @answerDes cription v archar(400 0) = '' | |||||
| 6195 | DECLARE @answer va rchar(100) | |||||
| 6196 | ||||||
| 6197 | DECLARE curAnswer CURSOR | |||||
| 6198 | FOR | |||||
| 6199 | SE LECT TEXT | |||||
| 6200 | FROM AHOBPR.ST D_FORM_ANS WER | |||||
| 6201 | WHER E STD_FORM _ANSWER_ID IN (SELEC T * FROM f ncSplit(@a nswerId, ' ,')) | |||||
| 6202 | OR ISN ULL(@answe rId, '') = ''; | |||||
| 6203 | ||||||
| 6204 | OPEN cur Answer; | |||||
| 6205 | FETCH NE XT FROM cu rAnswer IN TO @answer ; | |||||
| 6206 | WHILE @@ FETCH_STAT US = 0 -- Not End o f file | |||||
| 6207 | BE GIN | |||||
| 6208 | if @answerDes cription ! = '' | |||||
| 6209 | SET @a nswerDescr iption = @ answerDesc ription + ', ' | |||||
| 6210 | ||||||
| 6211 | SET @answerDes cription = @answerDe scription + @answer; | |||||
| 6212 | FETC H NEXT FRO M curAnswe r INTO @an swer; | |||||
| 6213 | EN D | |||||
| 6214 | CLOSE cu rAnswer; | |||||
| 6215 | DEALLOCA TE curAnsw er; | |||||
| 6216 | ||||||
| 6217 | SELECT @answerDes cription A S ANSWER_D ESCRIPTION | |||||
| 6218 | ||||||
| 6219 | END | |||||
| 6220 | GO | |||||
| 6221 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 6222 | ||||||
| 6223 | ||||||
| 6224 | GO | |||||
| 6225 | PRINT N'Cr eating [AH OBPR].[SP_ ReportGetQ uestionByI D]...'; | |||||
| 6226 | ||||||
| 6227 | ||||||
| 6228 | GO | |||||
| 6229 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 6230 | ||||||
| 6231 | ||||||
| 6232 | GO | |||||
| 6233 | -- ======= ========== ========== ========== ======== | |||||
| 6234 | -- Author: Debora h Barr | |||||
| 6235 | -- Create date: 1/9/ 2015 | |||||
| 6236 | -- Descrip tion: Used for the A HOBPR Ad H oc Report | |||||
| 6237 | -- ======= ========== ========== ========== ======== | |||||
| 6238 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportGetQ uestionByI D] | |||||
| 6239 | @Qu estionUniq ueId varch ar(100) = NULL | |||||
| 6240 | ||||||
| 6241 | AS | |||||
| 6242 | BEGIN | |||||
| 6243 | --SELECT {fn concat (FORM_QUES TION_UNIQU E_ID, TEXT )} AS QUES TION_DESCR IPTION | |||||
| 6244 | SELECT FO RM_QUESTIO N_UNIQUE_I D + ' ' + TEXT AS Q uestionDes cription | |||||
| 6245 | FROM AHOBP R.STD_FORM _QUESTION | |||||
| 6246 | WHERE FORM _QUESTION_ UNIQUE_ID = @Questio nUniqueId | |||||
| 6247 | ||||||
| 6248 | END | |||||
| 6249 | GO | |||||
| 6250 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 6251 | ||||||
| 6252 | ||||||
| 6253 | GO | |||||
| 6254 | PRINT N'Cr eating [AH OBPR].[SP_ ReportGetF lagNameByI D]...'; | |||||
| 6255 | ||||||
| 6256 | ||||||
| 6257 | GO | |||||
| 6258 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 6259 | ||||||
| 6260 | ||||||
| 6261 | GO | |||||
| 6262 | ||||||
| 6263 | ||||||
| 6264 | -- ======= ========== ========== ========== ======== | |||||
| 6265 | -- Author: Debora h Barr | |||||
| 6266 | -- Create date: 1/9/ 2015 | |||||
| 6267 | -- Descrip tion: Used for the A HOBPR Ad H oc Report | |||||
| 6268 | -- ======= ========== ========== ========== ======== | |||||
| 6269 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportGetF lagNameByI D] | |||||
| 6270 | @Fl agId INT = 0 | |||||
| 6271 | ||||||
| 6272 | AS | |||||
| 6273 | BEGIN | |||||
| 6274 | SELECT RE GISTRY_FLA G_NAME | |||||
| 6275 | FROM AHOBP R.STD_REGI STRY_FLAG | |||||
| 6276 | WHERE STD_ REGISTRY_F LAG_ID = @ FlagId | |||||
| 6277 | ||||||
| 6278 | END | |||||
| 6279 | GO | |||||
| 6280 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 6281 | ||||||
| 6282 | ||||||
| 6283 | GO | |||||
| 6284 | PRINT N'Cr eating [AH OBPR].[SP_ PostMigrat ionDataUpd ates]...'; | |||||
| 6285 | ||||||
| 6286 | ||||||
| 6287 | GO | |||||
| 6288 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 6289 | ||||||
| 6290 | ||||||
| 6291 | GO | |||||
| 6292 | CREATE PRO CEDURE [AH OBPR].[SP_ PostMigrat ionDataUpd ates] | |||||
| 6293 | ||||||
| 6294 | AS | |||||
| 6295 | BEGIN | |||||
| 6296 | ||||||
| 6297 | PRINT 'P ostMigrati onDataUpda tes.sql st arted...'; | |||||
| 6298 | PRINT 'S tarted ' + CAST(GETD ATE() as v archar(20) ) + '.'; | |||||
| 6299 | ||||||
| 6300 | PRINT 'S tep 01 - S et display Question Number...' ; | |||||
| 6301 | ||||||
| 6302 | With Goo dValues | |||||
| 6303 | AS ( | |||||
| 6304 | SELECT Q .STD_FORM_ QUESTION_I D | |||||
| 6305 | ,C ONVERT(VAR CHAR(10),s ec.BRP_FOR M_SECTION_ ID) + '.' | |||||
| 6306 | +C ONVERT(VAR CHAR(10),s s.[BRP_FOR M_SUB_SECT ION_ID])+ '.' | |||||
| 6307 | +Q .BRP_FORM_ QUESTION_I D AS Calcu latedID | |||||
| 6308 | FROM A HOBPR.STD_ FORM_QUEST ION Q | |||||
| 6309 | JOIN [ AHOBPR].[S TD_FORM_SU B_SECTION] ss ON Q. STD_FORM_S UB_SECTION _ID = ss.S TD_FORM_SU B_SECTION_ ID | |||||
| 6310 | JOIN A HOBPR.STD_ FORM_SECTI ON sec ON se c.STD_FORM _SECTION_I D = ss.STD _FORM_SECT ION_ID | |||||
| 6311 | ) | |||||
| 6312 | MERGE INTO AHOBP R.STD_FORM _QUESTION as Tgt | |||||
| 6313 | USING GoodValues AS Src | |||||
| 6314 | ON tgt.STD_FO RM_QUESTIO N_ID = Src .STD_FORM_ QUESTION_I D | |||||
| 6315 | WHEN MATCHED | |||||
| 6316 | THEN UPDATE | |||||
| 6317 | SET Tg t.FORM_QUE STION_UNIQ UE_ID = Sr c.Calculat edID; | |||||
| 6318 | ||||||
| 6319 | PRINT 'S tep 02 - C lear all C linical Re levant Fla g...)'; | |||||
| 6320 | ||||||
| 6321 | UPDATE A HOBPR.STD_ FORM_ANSWE R | |||||
| 6322 | SET CL INICAL_REL EVANT_FLAG = 0; | |||||
| 6323 | ||||||
| 6324 | PRINT 'S tep 03 - S etting Cli nical Rele vant Flag. ..)'; | |||||
| 6325 | ||||||
| 6326 | WITH Ma sterData | |||||
| 6327 | AS ( | |||||
| 6328 | SELECT * | |||||
| 6329 | FROM ( V ALUES | |||||
| 6330 | ('1.2.A',' Yes'), | |||||
| 6331 | ('1.2.F',' Yes'), | |||||
| 6332 | ('1.2.G',' '), | |||||
| 6333 | ('1.3.B',' '), | |||||
| 6334 | ('1.4.C',' '), | |||||
| 6335 | ('1.4.D',' Yes'), | |||||
| 6336 | ('1.4.E',' '), | |||||
| 6337 | ('1.4.F',' Yes'), | |||||
| 6338 | ('2.1.D',' can''t do it at all' ), | |||||
| 6339 | ('2.1.D',' somewhat d ifficult') , | |||||
| 6340 | ('2.1.D',' very diffi cult'), | |||||
| 6341 | ('2.1.E',' can''t do it at all' ), | |||||
| 6342 | ('2.1.E',' somewhat d ifficult') , | |||||
| 6343 | ('2.1.E',' very diffi cult'), | |||||
| 6344 | ('2.1.F',' Arthritis/ rheumatism '), | |||||
| 6345 | ('2.1.F',' Back or ne ck problem '), | |||||
| 6346 | ('2.1.F',' Benign Tum ors, Cysts '), | |||||
| 6347 | ('2.1.F',' Birth defe ct'), | |||||
| 6348 | ('2.1.F',' Brain inju ry, (for e xample, Tr aumatic Br ain Injury /TBI, Inte llectual d isability) '), | |||||
| 6349 | ('2.1.F',' Cancer'), | |||||
| 6350 | ('2.1.F',' Circulatio n problems (includin g blood cl ots)'), | |||||
| 6351 | ('2.1.F',' Depression /anxiety/e motional p roblem'), | |||||
| 6352 | ('2.1.F',' Diabetes') , | |||||
| 6353 | ('2.1.F',' Epilepsy, seizures') , | |||||
| 6354 | ('2.1.F',' Fibromyalg ia, lupus' ), | |||||
| 6355 | ('2.1.F',' Fracture, bone/joint injury'), | |||||
| 6356 | ('2.1.F',' Hearing pr oblem'), | |||||
| 6357 | ('2.1.F',' Heart prob lem'), | |||||
| 6358 | ('2.1.F',' Hernia'), | |||||
| 6359 | ('2.1.F',' Hypertensi on/high bl ood pressu re'), | |||||
| 6360 | ('2.1.F',' Kidney, bl adder or r enal probl ems'), | |||||
| 6361 | ('2.1.F',' Knee probl ems (not a rthritis, not joint injury)'), | |||||
| 6362 | ('2.1.F',' Lung/breat hing probl em (for ex ample, ast hma and em physema)') , | |||||
| 6363 | ('2.1.F',' Migraine h eadaches ( not just h eadaches)' ), | |||||
| 6364 | ('2.1.F',' Missing li mbs (finge rs, toes o r digits), amputee') , | |||||
| 6365 | ('2.1.F',' Multiple S clerosis ( MS), Muscu lar Dystro phy (MD)') , | |||||
| 6366 | ('2.1.F',' Osteoporos is, tendin itis'), | |||||
| 6367 | ('2.1.F',' Other deve lopmental problem (f or example , cerebral palsy)'), | |||||
| 6368 | ('2.1.F',' Other inju ry'), | |||||
| 6369 | ('2.1.F',' Other nerv e damage, including carpal tun nel syndro me'), | |||||
| 6370 | ('2.1.F',' Parkinson' 's disease , other tr emors'), | |||||
| 6371 | ('2.1.F',' Polio (mye litis), pa ralysis, p ara/quadri plegia'), | |||||
| 6372 | ('2.1.F',' Senility') , | |||||
| 6373 | ('2.1.F',' Stroke pro blem'), | |||||
| 6374 | ('2.1.F',' Thyroid pr oblems, Gr ave''s dis ease, gout '), | |||||
| 6375 | ('2.1.F',' Ulcer'), | |||||
| 6376 | ('2.1.F',' Varicose v eins, hemo rrhoids'), | |||||
| 6377 | ('2.1.F',' Vision/pro blem seein g'), | |||||
| 6378 | ('2.1.F',' Weight pro blem'), | |||||
| 6379 | ('2.2.1.B' ,'Yes'), | |||||
| 6380 | ('2.2.1.C' ,'Yes'), | |||||
| 6381 | ('2.2.1.D' ,'Yes'), | |||||
| 6382 | ('2.2.1.E' ,'Yes'), | |||||
| 6383 | ('2.2.1.F' ,'Yes'), | |||||
| 6384 | ('2.2.1.G' ,'Yes'), | |||||
| 6385 | ('2.2.1.H' ,'Yes'), | |||||
| 6386 | ('2.2.1.I' ,'After de ployment') , | |||||
| 6387 | ('2.2.1.I' ,'Before d eployment' ), | |||||
| 6388 | ('2.2.1.I' ,'During d eployment' ), | |||||
| 6389 | ('2.2.1.J' ,'About th e same'), | |||||
| 6390 | ('2.2.1.J' ,'Better') , | |||||
| 6391 | ('2.2.1.J' ,'Worse'), | |||||
| 6392 | ('2.2.1.M' ,'Stopping for breat h after wa lking abou t 100 yard s or after a few min utes on le vel ground '), | |||||
| 6393 | ('2.2.1.M' ,'Too brea thless to leave the house, or breathless when dres sing or un dressing') , | |||||
| 6394 | ('2.2.1.M' ,'Walking slower tha n most peo ple on lev el ground, stop afte r one mile , or stop after 15 m inutes wal king at my own pace' ), | |||||
| 6395 | ('2.4.A',' Yes'), | |||||
| 6396 | ('2.4.B',' Bladder'), | |||||
| 6397 | ('2.4.B',' Blood'), | |||||
| 6398 | ('2.4.B',' Bone'), | |||||
| 6399 | ('2.4.B',' Brain'), | |||||
| 6400 | ('2.4.B',' Breast'), | |||||
| 6401 | ('2.4.B',' Cervix'), | |||||
| 6402 | ('2.4.B',' Colon'), | |||||
| 6403 | ('2.4.B',' Esophagus' ), | |||||
| 6404 | ('2.4.B',' Gallbladde r'), | |||||
| 6405 | ('2.4.B',' Kidney'), | |||||
| 6406 | ('2.4.B',' Larynx-win dpipe'), | |||||
| 6407 | ('2.4.B',' Leukemia') , | |||||
| 6408 | ('2.4.B',' Liver'), | |||||
| 6409 | ('2.4.B',' Lung'), | |||||
| 6410 | ('2.4.B',' Lymphoma') , | |||||
| 6411 | ('2.4.B',' Melanoma') , | |||||
| 6412 | ('2.4.B',' Mouth/tong ue/lip'), | |||||
| 6413 | ('2.4.B',' Other'), | |||||
| 6414 | ('2.4.B',' Ovary'), | |||||
| 6415 | ('2.4.B',' Pancreas') , | |||||
| 6416 | ('2.4.B',' Prostate') , | |||||
| 6417 | ('2.4.B',' Rectum'), | |||||
| 6418 | ('2.4.B',' Skin (Don’ t Know wha t kind)'), | |||||
| 6419 | ('2.4.B',' Skin (non- melanoma)' ), | |||||
| 6420 | ('2.4.B',' Soft tissu e (muscle or fat)'), | |||||
| 6421 | ('2.4.B',' Stomach'), | |||||
| 6422 | ('2.4.B',' Testis'), | |||||
| 6423 | ('2.4.B',' Throat-pha rynx'), | |||||
| 6424 | ('2.4.B',' Thyroid'), | |||||
| 6425 | ('2.4.B',' Uterus'), | |||||
| 6426 | ('2.5.A',' No'), | |||||
| 6427 | ('2.5.A',' Yes'), | |||||
| 6428 | ('2.5.C',' Don''t kno w'), | |||||
| 6429 | ('2.5.C',' Everyday') , | |||||
| 6430 | ('2.5.C',' I do not w ish to ans wer'), | |||||
| 6431 | ('2.5.C',' Not at all '), | |||||
| 6432 | ('2.5.C',' Some days' ), | |||||
| 6433 | ('3.1.A',' About the same'), | |||||
| 6434 | ('3.1.A',' Better'), | |||||
| 6435 | ('3.1.A',' Worse'), | |||||
| 6436 | ('3.1.E',' A little c oncerned') , | |||||
| 6437 | ('3.1.E',' Very conce rned'), | |||||
| 6438 | ('3.1.F',' Cancer'), | |||||
| 6439 | ('3.1.F',' Effect on children o r ability to have ch ildren'), | |||||
| 6440 | ('3.1.F',' Eye proble m'), | |||||
| 6441 | ('3.1.F',' Gastrointe stinal (GI ) problem' ), | |||||
| 6442 | ('3.1.F',' Heart prob lem'), | |||||
| 6443 | ('3.1.F',' Immune pro blem'), | |||||
| 6444 | ('3.1.F',' Lung/Respi ratory/Bre athing pro blem'), | |||||
| 6445 | ('3.1.F',' Neurologic al problem '), | |||||
| 6446 | ('3.1.F',' Other prob lem'), | |||||
| 6447 | ('3.1.F',' Skin probl em'), | |||||
| 6448 | ('3.1.H',' Yes'), | |||||
| 6449 | ('3.1.J',' Cancer'), | |||||
| 6450 | ('3.1.J',' Effect on children o r ability to have ch ildren'), | |||||
| 6451 | ('3.1.J',' Eyes'), | |||||
| 6452 | ('3.1.J',' Heart'), | |||||
| 6453 | ('3.1.J',' Lung/Respi ratory/Bre athing'), | |||||
| 6454 | ('3.1.J',' Other'), | |||||
| 6455 | ('3.1.J',' Skin'), | |||||
| 6456 | ('5.4.A',' Yes'), | |||||
| 6457 | ('5.4.B.4' ,'Yes'), | |||||
| 6458 | ('5.5.D',' Yes') | |||||
| 6459 | ) | |||||
| 6460 | AS Master Record(Que stionID, A nswerText) | |||||
| 6461 | ) | |||||
| 6462 | U PDATE AHOB PR.STD_FOR M_ANSWER | |||||
| 6463 | S ET CLINICA L_RELEVANT _FLAG = 1 | |||||
| 6464 | W HERE STD_F ORM_ANSWER _ID IN | |||||
| 6465 | ( | |||||
| 6466 | SELE CT A.STD_F ORM_ANSWER _ID | |||||
| 6467 | FR OM AHOBPR. STD_FORM_A NSWER A | |||||
| 6468 | JO IN AHOBPR. STD_FORM_Q UESTION B | |||||
| 6469 | ON A.STD_F ORM_QUESTI ON_ID = B. STD_FORM_Q UESTION_ID | |||||
| 6470 | WHE RE EXISTS( SELECT * F ROM Master Data | |||||
| 6471 | WHERE B.F ORM_QUESTI ON_UNIQUE_ ID = Maste rData.Ques tionID | |||||
| 6472 | AND ISN ULL(A.[TEX T],'') = M asterData. AnswerText ) | |||||
| 6473 | ); | |||||
| 6474 | ||||||
| 6475 | PRINT 'S tep 04 - L oading Too l Tips for Sections. ..'; | |||||
| 6476 | ||||||
| 6477 | WITH Ma sterData | |||||
| 6478 | AS ( | |||||
| 6479 | SELECT * | |||||
| 6480 | FROM ( VALUES | |||||
| 6481 | (1 ,'To view questionna ire respon ses for De ployment H istory sel ect from t he sub sec tions belo w.'), | |||||
| 6482 | (2 ,'To view questionna ire respon ses to Sym ptoms & Me dical Hist ory select from the sub sectio ns below.' ), | |||||
| 6483 | (3 ,'Select t o view reg istrant re sponses to Health Co ncerns.'), | |||||
| 6484 | (4 ,'Select t o view reg istrant re sponses to Places Yo u''ve Live d.'), | |||||
| 6485 | (5 ,'To view questionna ire respon ses to Wor k History select fro m the sub sections b elow.'), | |||||
| 6486 | (6 ,'Select t o view reg istrant re sponses to Home Envi ronment & Hobbies.') , | |||||
| 6487 | (7 ,'Select t o view reg istrant re sponses to Health Ca re Utiliza tion.'), | |||||
| 6488 | (8 ,'Select t o view reg istrant re sponses to Contact P references .') | |||||
| 6489 | ) | |||||
| 6490 | A S MasterRe cord(id, T extValue) | |||||
| 6491 | ) | |||||
| 6492 | MERGE | |||||
| 6493 | INTO AHOBPR.STD _FORM_SECT ION AS T gt | |||||
| 6494 | USING MasterData AS Src | |||||
| 6495 | ON Tgt.BRP_FO RM_SECTION _ID = Src. id | |||||
| 6496 | WHEN MA TCHED | |||||
| 6497 | THEN UP DATE SET T gt.TOOL_TI P = Src.Te xtValue; | |||||
| 6498 | ||||||
| 6499 | PRINT 'S tep 05 - L oading Too l Tips for Sub Secti ons...'; | |||||
| 6500 | ||||||
| 6501 | WITH Ma sterData | |||||
| 6502 | AS ( | |||||
| 6503 | SELECT * | |||||
| 6504 | FROM ( VALUES | |||||
| 6505 | (1,1,'Sele ct to view registran t deployme nt history received from deplo yment inte rfaces.'), | |||||
| 6506 | (1,2,'Sele ct to view registran t response s for depl oyment spe cific ques tions.'), | |||||
| 6507 | (1,3,'Sele ct to view registran t response s to Milit ary Occupa tional Exp osures.'), | |||||
| 6508 | (1,4,'Sele ct to view registran t response s to Envir onment Exp osures & A ir Polluti on.'), | |||||
| 6509 | (2,1,'Sele ct to view registran t response s to Funct ional Limi tations & Reported C auses.'), | |||||
| 6510 | (2,2,'Sele ct to view registran t response s to Healt h Conditio ns.'), | |||||
| 6511 | (2,3,'Sele ct to view registran t response s to Heigh t & Weight .'), | |||||
| 6512 | (2,4,'Sele ct to view registran t response s to Cance r History. '), | |||||
| 6513 | (2,5,'Sele ct to view registran t response s to Tobac co Exposur e.'), | |||||
| 6514 | (2,6,'Sele ct to view registran t response s to Deplo yment Smok ing Histor y.'), | |||||
| 6515 | (2,7,'Sele ct to view registran t response s to Month Alcohol U se.'), | |||||
| 6516 | (3,1,'Sele ct to view registran t response s to Healt h Concerns .'), | |||||
| 6517 | (4,1,'Sele ct to view registran t response s to Place s You''ve Lived.'), | |||||
| 6518 | (5,1,'Sele ct to view registran t response s to Curre nt Occupat ional Stat us.'), | |||||
| 6519 | (5,2,'Sele ct to view registran t response s to Main Occupation .'), | |||||
| 6520 | (5,3,'Sele ct to view registran t response s to Dust Exposures. '), | |||||
| 6521 | (5,4,'Sele ct to view registran t response s to Gas, Smoke, Vap ors or Fum es Exposur e.'), | |||||
| 6522 | (5,5,'Sele ct to view registran t response s to Asbes tos Exposu re.'), | |||||
| 6523 | (6,1,'Sele ct to view registran t response s to Home Environmen t & Hobbie s.'), | |||||
| 6524 | (7,1,'Sele ct to view registran t response s to Healt h Care Uti lization.' ), | |||||
| 6525 | (8,1,'Sele ct to view registran t response s to Conta ct Prefere nces.') | |||||
| 6526 | ) | |||||
| 6527 | A S MasterRe cord(Secti onId, SubS ectionId, TextValue) | |||||
| 6528 | ) | |||||
| 6529 | ,Src | |||||
| 6530 | AS( | |||||
| 6531 | SELEC T STD_FORM _SUB_SECTI ON_ID AS s sId, TextV alue | |||||
| 6532 | FRO M [AHOBPR] .[STD_FORM _SUB_SECTI ON] | |||||
| 6533 | JOI N AHOBPR.S TD_FORM_SE CTION | |||||
| 6534 | O N STD_FORM _SECTION.S TD_FORM_SE CTION_ID = STD_FORM_ SUB_SECTIO N.STD_FORM _SECTION_I D | |||||
| 6535 | JOI N MasterDa ta | |||||
| 6536 | ON Maste rData.Sect ionId = ST D_FORM_SEC TION.BRP_F ORM_SECTIO N_ID | |||||
| 6537 | AND Mast erData.Sub SectionId = STD_FORM _SUB_SECTI ON.BRP_FOR M_SUB_SECT ION_ID | |||||
| 6538 | ) | |||||
| 6539 | MERGE | |||||
| 6540 | INTO AHOBPR.STD _FORM_SUB_ SECTION AS Tgt | |||||
| 6541 | USING Src | |||||
| 6542 | ON Tgt.STD_FO RM_SUB_SEC TION_ID = Src.ssId | |||||
| 6543 | WHEN MA TCHED | |||||
| 6544 | THEN UP DATE SET T gt.TOOL_TI P = Src.Te xtValue; | |||||
| 6545 | ||||||
| 6546 | PRINT 'S tep 06 - U pdate STD_ FORM_SECTI ON...'; | |||||
| 6547 | ||||||
| 6548 | WITH Ma sterData | |||||
| 6549 | AS ( | |||||
| 6550 | SELECT * | |||||
| 6551 | FROM ( V ALUES | |||||
| 6552 | (1,'Depl oyment His tory'), | |||||
| 6553 | (2,'Symp toms & Med ical Histo ry'), | |||||
| 6554 | (3,'Heal th Concern s'), | |||||
| 6555 | (4,'Plac es You''ve Lived'), | |||||
| 6556 | (5,'Work History') , | |||||
| 6557 | (6,'Home Environme nt & Hobbi es'), | |||||
| 6558 | (7,'Heal th Care Ut ilization' ), | |||||
| 6559 | (8,'Cont act Prefer ences') ) | |||||
| 6560 | AS Master Record([BR P_FORM_SEC TION_ID], [MENU_ITEM _NAME]) | |||||
| 6561 | ) | |||||
| 6562 | , Src | |||||
| 6563 | AS ( | |||||
| 6564 | SEL ECT sec.ST D_FORM_SEC TION_ID, | |||||
| 6565 | MasterDa ta.[BRP_FO RM_SECTION _ID], Mast erData.[ME NU_ITEM_NA ME] | |||||
| 6566 | FRO M MasterDa ta | |||||
| 6567 | JOI N AHOBPR.S TD_FORM_SE CTION sec ON sec.[BR P_FORM_SEC TION_ID] = MasterDat a.[BRP_FOR M_SECTION_ ID] | |||||
| 6568 | ) | |||||
| 6569 | MER GE | |||||
| 6570 | INTO [AHOBPR].[ STD_FORM_S ECTION] AS Tgt | |||||
| 6571 | USING Src | |||||
| 6572 | ON Tgt.[STD_F ORM_SECTIO N_ID] = Sr c.[STD_FOR M_SECTION_ ID] | |||||
| 6573 | WHEN M ATCHED | |||||
| 6574 | THEN UP DATE SET T gt.[MENU_I TEM_NAME] = Src.[MEN U_ITEM_NAM E]; | |||||
| 6575 | ||||||
| 6576 | PRINT 'S tep 07 Upd ate [STD_F ORM_SUBSEC TION]...'; | |||||
| 6577 | ||||||
| 6578 | WITH Ma sterData | |||||
| 6579 | AS ( | |||||
| 6580 | SELECT * | |||||
| 6581 | FROM ( V ALUES | |||||
| 6582 | (1,1,' Deployment s'), | |||||
| 6583 | (1,2,' Deployment Exposures '), | |||||
| 6584 | (1,3,' Military O ccupationa l Exposure s'), | |||||
| 6585 | (1,4,' Environmen tal Exposu res & Air Pollution' ), | |||||
| 6586 | (2,1,' Functional Limitatio n & Report ed Cause') , | |||||
| 6587 | (2,2,' Health Con ditions'), | |||||
| 6588 | (2,3,' Height & W eight'), | |||||
| 6589 | (2,4,' Cancer His tory'), | |||||
| 6590 | (2,5,' Tobacco Ex posure'), | |||||
| 6591 | (2,6,' Deployment Smoking H istory'), | |||||
| 6592 | (2,7,' 12 Month A lcohol Use '), | |||||
| 6593 | (5,1,' Current Oc cupational Status'), | |||||
| 6594 | (5,2,' Main Occup ation'), | |||||
| 6595 | (5,3,' Dust Expos ures'), | |||||
| 6596 | (5,4,' Gas, Smoke , Vapors o r Fumes Ex posure?'), | |||||
| 6597 | (5,5,' Asbestos E xposure') | |||||
| 6598 | ) | |||||
| 6599 | AS Master Record ( [ SECTION_ID ], [SUB_SE CTION_ID], [MENU_ITE M]) | |||||
| 6600 | ) , | |||||
| 6601 | Src AS ( | |||||
| 6602 | S ELECT ss.S TD_FORM_SU B_SECTION_ ID, -- [SE CTION_ID], [SUB_SECT ION_ID], | |||||
| 6603 | [M ENU_ITEM] | |||||
| 6604 | F ROM Master Data | |||||
| 6605 | J OIN AHOBPR .[STD_FORM _SUB_SECTI ON] ss ON ss.[BRP_FO RM_SUB_SEC TION_ID] = MasterDat a.[SUB_SEC TION_ID] | |||||
| 6606 | J OIN AHOBPR .[STD_FORM _SECTION] sec ON ss. [STD_FORM_ SECTION_ID ] = sec.[S TD_FORM_SE CTION_ID] | |||||
| 6607 | W HERE Maste rData.[SEC TION_ID] = sec.BRP_F ORM_SECTIO N_ID | |||||
| 6608 | ) | |||||
| 6609 | MERGE | |||||
| 6610 | INTO [AHOBPR].[ STD_FORM_S UB_SECTION ] AS Tgt | |||||
| 6611 | USING Src | |||||
| 6612 | ON Tgt.[STD_F ORM_SUB_SE CTION_ID] = Src.[STD _FORM_SUB_ SECTION_ID ] | |||||
| 6613 | WHEN M ATCHED | |||||
| 6614 | THEN U PDATE | |||||
| 6615 | SET Tgt. [MENU_ITEM _NAME] = S rc.[MENU_I TEM]; | |||||
| 6616 | ||||||
| 6617 | PRINT 'S tep 08 - S et Short T ext = Text with HTML removed.' ; | |||||
| 6618 | ||||||
| 6619 | UPDATE [ AHOBPR].[S TD_FORM_QU ESTION] | |||||
| 6620 | SET SHORT_TEX T = REPLAC E(REPLACE( REPLACE([T EXT],'<str ong>',''), '</strong> ',''),'</b r>',''); | |||||
| 6621 | ||||||
| 6622 | PRINT 'St ep 09 - Up date Quest ion Unique ID to sho rt form fo r sections 1,3,6,7 & 8 - Shoul d be 33 '; | |||||
| 6623 | ||||||
| 6624 | With Sho rtValues | |||||
| 6625 | AS ( | |||||
| 6626 | SELECT Q .STD_FORM_ QUESTION_I D | |||||
| 6627 | ,C ONVERT(VAR CHAR(10),s ec.BRP_FOR M_SECTION_ ID) + '.' | |||||
| 6628 | +Q .BRP_FORM_ QUESTION_I D AS Calcu latedID | |||||
| 6629 | FROM AH OBPR.STD_F ORM_QUESTI ON Q | |||||
| 6630 | JOIN [ AHOBPR].[S TD_FORM_SU B_SECTION] ss ON Q. STD_FORM_S UB_SECTION _ID = ss.S TD_FORM_SU B_SECTION_ ID | |||||
| 6631 | JOIN A HOBPR.STD_ FORM_SECTI ON sec ON se c.STD_FORM _SECTION_I D = ss.STD _FORM_SECT ION_ID | |||||
| 6632 | WHERE sec.BRP_FO RM_SECTION _ID IN (1, 3,6,7,8) | |||||
| 6633 | AND ss.BRP_FOR M_SUB_SECT ION_ID = 1 | |||||
| 6634 | ) | |||||
| 6635 | MERGE INTO AHOBP R.STD_FORM _QUESTION as Tgt | |||||
| 6636 | USING ShortValue s AS Src | |||||
| 6637 | ON tgt.STD_FO RM_QUESTIO N_ID = Src .STD_FORM_ QUESTION_I D | |||||
| 6638 | WHEN MATCHED | |||||
| 6639 | THEN UPDATE | |||||
| 6640 | SET Tg t.FORM_QUE STION_UNIQ UE_ID = Sr c.Calculat edID; | |||||
| 6641 | ||||||
| 6642 | PRINT '' ; | |||||
| 6643 | PRINT 'P ostMigrati onDataUpda tes.sql Sc ript End.' ; | |||||
| 6644 | PRINT '' ; | |||||
| 6645 | PRINT 'C ompleted ' + CAST(GE TDATE() AS varchar(2 0)) + '.'; | |||||
| 6646 | ||||||
| 6647 | END; | |||||
| 6648 | ||||||
| 6649 | -- EXECUTE [AHOBPR]. [SP_PostMi grationDat aUpdates] | |||||
| 6650 | GO | |||||
| 6651 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 6652 | ||||||
| 6653 | ||||||
| 6654 | GO | |||||
| 6655 | PRINT N'Cr eating [AH OBPR].[SP_ UpdateRegi strantResp onse]...'; | |||||
| 6656 | ||||||
| 6657 | ||||||
| 6658 | GO | |||||
| 6659 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 6660 | ||||||
| 6661 | ||||||
| 6662 | GO | |||||
| 6663 | -- ======= ========== ========== ========== ======== | |||||
| 6664 | -- Author: Bruce Clegg | |||||
| 6665 | -- Create date: 4/24 /2015 | |||||
| 6666 | -- Descrip tion: Call ed after l oading Res ponse | |||||
| 6667 | -- ======= ========== ========== ========== ======== | |||||
| 6668 | CREATE PRO CEDURE [AH OBPR].[SP_ UpdateRegi strantResp onse] | |||||
| 6669 | @re gistrantId INT = NUL L | |||||
| 6670 | AS | |||||
| 6671 | BEGIN | |||||
| 6672 | ||||||
| 6673 | UPDATE A HOBPR.REGI STRANT | |||||
| 6674 | SET [ REQUEST_SE EN_RESPONS E] = ( | |||||
| 6675 | SELE CT SUBSTRI NG(ISNULL( d.TEXT,'') ,1,50) as ResponseTe xt | |||||
| 6676 | FR OM AHOBPR. FORM_RESPO NSE r | |||||
| 6677 | JO IN AHOBPR. FORM_RESPO NSE_QUESTI ON a ON r. FORM_RESPO NSE_ID = a .FORM_RESP ONSE_ID | |||||
| 6678 | JO IN AHOBPR. STD_FORM_Q UESTION b ON a.STD_ FORM_QUEST ION_ID = b .STD_FORM_ QUESTION_I D | |||||
| 6679 | JO IN AHOBPR. FORM_RESPO NSE_ANSWER c ON a.FO RM_RESPONS E_QUESTION _ID = c.FO RM_RESPONS E_QUESTION _ID | |||||
| 6680 | JO IN AHOBPR. STD_FORM_A NSWER d ON c.STD_FOR M_ANSWER_I D = d.STD_ FORM_ANSWE R_ID | |||||
| 6681 | WHE RE r.REGI STRANT_ID = @registr antId | |||||
| 6682 | A ND b.FORM_ QUESTION_U NIQUE_ID = '7.B' | |||||
| 6683 | A ND r.STD_F ORM_ID = b .STD_FORM_ ID | |||||
| 6684 | ), | |||||
| 6685 | [HE ALTH_CONCE RNS_RESPON SE] = ( | |||||
| 6686 | SE LECT Disti nct d.TEXT | |||||
| 6687 | FROM AHOBP R.FORM_RES PONSE r | |||||
| 6688 | JOIN AHOBP R.FORM_RES PONSE_QUES TION a ON r.FORM_RES PONSE_ID = a.FORM_RE SPONSE_ID | |||||
| 6689 | JOIN AHOBP R.STD_FORM _QUESTION b ON a. STD_FORM_Q UESTION_ID = b.STD_F ORM_QUESTI ON_ID | |||||
| 6690 | JOIN AHOBP R.FORM_RES PONSE_ANSW ER c ON a. FORM_RESPO NSE_QUESTI ON_ID = c. FORM_RESPO NSE_QUESTI ON_ID | |||||
| 6691 | JOIN AHOBP R.STD_FORM _ANSWER d ON c. STD_FORM_A NSWER_ID = d.STD_FOR M_ANSWER_I D | |||||
| 6692 | W HERE r.RE GISTRANT_I D = @regis trantId | |||||
| 6693 | AND b.FOR M_QUESTION _UNIQUE_ID IN ('3.A' ,'3.B','3. C','3.D',' 3.E','3.F' ,'3.G','3. H','3.I',' 3.J','3.K' ) | |||||
| 6694 | AND d.TEX T = 'Yes' | |||||
| 6695 | ), | |||||
| 6696 | [C ONTACT_PRE FERENCE] = ( | |||||
| 6697 | SE LECT SUBST RING(d.TEX T,1,100) | |||||
| 6698 | FROM AHOBP R.FORM_RES PONSE r | |||||
| 6699 | JOIN AHOBP R.FORM_RES PONSE_QUES TION a ON r.FORM_RES PONSE_ID = a.FORM_RE SPONSE_ID | |||||
| 6700 | JOIN AHOBP R.STD_FORM _QUESTION b ON a. STD_FORM_Q UESTION_ID = b.STD_F ORM_QUESTI ON_ID | |||||
| 6701 | JOIN AHOBP R.FORM_RES PONSE_ANSW ER c ON a. FORM_RESPO NSE_QUESTI ON_ID = c. FORM_RESPO NSE_QUESTI ON_ID | |||||
| 6702 | JOIN AHOBP R.STD_FORM _ANSWER d ON c. STD_FORM_A NSWER_ID = d.STD_FOR M_ANSWER_I D | |||||
| 6703 | W HERE r.RE GISTRANT_I D = @regis trantId | |||||
| 6704 | AND b.FOR M_QUESTION _UNIQUE_ID = '8.A' | |||||
| 6705 | ) | |||||
| 6706 | WHERE RE GISTRANT_I D = @regis trantId; | |||||
| 6707 | ||||||
| 6708 | END; | |||||
| 6709 | -- EXECUTE [AHOBPR]. [SP_Update Registrant Response] 105 | |||||
| 6710 | GO | |||||
| 6711 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 6712 | ||||||
| 6713 | ||||||
| 6714 | GO | |||||
| 6715 | PRINT N'Cr eating [AH OBPR].[SP_ DeleteRegi strantAndR esponse].. .'; | |||||
| 6716 | ||||||
| 6717 | ||||||
| 6718 | GO | |||||
| 6719 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 6720 | ||||||
| 6721 | ||||||
| 6722 | GO | |||||
| 6723 | -- ======= ========== ========== ========== ======== | |||||
| 6724 | -- Author: Bruce Clegg | |||||
| 6725 | -- Create date: 4/24 /2015 | |||||
| 6726 | -- Descrip tion: Call ed after l oading Res ponse | |||||
| 6727 | -- ======= ========== ========== ========== ======== | |||||
| 6728 | CREATE PRO CEDURE [AH OBPR].[SP_ DeleteRegi strantAndR esponse] | |||||
| 6729 | @re gistrantId INT = NUL L | |||||
| 6730 | AS | |||||
| 6731 | BEGIN | |||||
| 6732 | ||||||
| 6733 | DELETE F ROM AHOBPR .FORM_RESP ONSE_ANSWE R | |||||
| 6734 | WHERE FO RM_RESPONS E_ANSWER_I D IN | |||||
| 6735 | ( | |||||
| 6736 | SELECT c.F ORM_RESPON SE_ANSWER_ ID | |||||
| 6737 | FROM AHO BPR.FORM_R ESPONSE r | |||||
| 6738 | JOIN AHO BPR.FORM_R ESPONSE_QU ESTION a O N r.FORM_R ESPONSE_ID = a.FORM_ RESPONSE_I D | |||||
| 6739 | JOIN AHO BPR.FORM_R ESPONSE_AN SWER c ON a.FORM_RES PONSE_QUES TION_ID = c.FORM_RES PONSE_QUES TION_ID | |||||
| 6740 | WHERE r. REGISTRANT _ID = @reg istrantId | |||||
| 6741 | ) ; | |||||
| 6742 | ||||||
| 6743 | DELETE F ROM AHOBPR .FORM_RESP ONSE_QUEST ION | |||||
| 6744 | WHERE FO RM_RESPONS E_QUESTION _ID IN | |||||
| 6745 | ( | |||||
| 6746 | SELECT a.F ORM_RESPON SE_QUESTIO N_ID | |||||
| 6747 | FROM AHO BPR.FORM_R ESPONSE r | |||||
| 6748 | JOIN AHO BPR.FORM_R ESPONSE_QU ESTION a O N r.FORM_R ESPONSE_ID = a.FORM_ RESPONSE_I D | |||||
| 6749 | WHERE r. REGISTRANT _ID = @reg istrantId | |||||
| 6750 | ) ; | |||||
| 6751 | ||||||
| 6752 | DELETE F ROM AHOBPR .FORM_RESP ONSE_STATU S | |||||
| 6753 | WHERE FO RM_RESPONS E_STATUS_I D IN | |||||
| 6754 | ( | |||||
| 6755 | SELECT a.F ORM_RESPON SE_STATUS_ ID | |||||
| 6756 | FROM AHO BPR.FORM_R ESPONSE r | |||||
| 6757 | JOIN AHO BPR.FORM_R ESPONSE_ST ATUS a ON r.FORM_RES PONSE_ID = a.FORM_RE SPONSE_ID | |||||
| 6758 | WHERE r. REGISTRANT _ID = @reg istrantId | |||||
| 6759 | ) ; | |||||
| 6760 | ||||||
| 6761 | DELETE F ROM AHOBPR .FORM_RESP ONSE | |||||
| 6762 | WH ERE REGIST RANT_ID = @registra ntId; | |||||
| 6763 | ||||||
| 6764 | DELETE F ROM AHOBPR .REGISTRAN T_DEPLOYME NT | |||||
| 6765 | WH ERE REGIST RANT_ID = @registra ntId; | |||||
| 6766 | ||||||
| 6767 | DELETE F ROM AHOBPR .REGISTRAN T_ADDRESS | |||||
| 6768 | WH ERE REGIST RANT_ID = @registra ntId; | |||||
| 6769 | ||||||
| 6770 | DELETE F ROM AHOBPR .REGISTRAN T_PHONE | |||||
| 6771 | WH ERE REGIST RANT_ID = @registra ntId; | |||||
| 6772 | ||||||
| 6773 | DELETE FROM AHOBP R.REGISTRA NT_EMAIL | |||||
| 6774 | WH ERE REGIST RANT_ID = @registra ntId; | |||||
| 6775 | ||||||
| 6776 | ||||||
| 6777 | DELETE F ROM AHOBPR .REGISTRAN T_CONTACT_ INFO | |||||
| 6778 | WH ERE REGIST RANT_ID = @registra ntId; | |||||
| 6779 | ||||||
| 6780 | DELETE F ROM AHOBPR .REGISTRAN T_HEALTH_F ACTOR | |||||
| 6781 | WH ERE REGIST RANT_VISIT _ID IN | |||||
| 6782 | (SELEC T REGISTRA NT_VISIT_I D | |||||
| 6783 | FRO M AHOBPR.R EGISTRANT_ VISIT | |||||
| 6784 | WHER E REGISTRA NT_ID = @r egistrantI d); | |||||
| 6785 | ||||||
| 6786 | DELETE F ROM AHOBPR .REGISTRAN T_VISIT | |||||
| 6787 | WH ERE REGIST RANT_ID = @registra ntId; | |||||
| 6788 | ||||||
| 6789 | DELETE F ROM AHOBPR .REGISTRAN T_RECORD_I NFO | |||||
| 6790 | WH ERE REGIST RANT_ID = @registra ntId; | |||||
| 6791 | ||||||
| 6792 | DELETE F ROM AHOBPR .REGISTRAN T_REGISTRY _FLAG | |||||
| 6793 | WH ERE REGIST RANT_ID = @registra ntId; | |||||
| 6794 | ||||||
| 6795 | DELETE F ROM AHOBPR .REGISTRAN T_SERVICE_ EPISODE | |||||
| 6796 | WH ERE REGIST RANT_ID = @registra ntId; | |||||
| 6797 | ||||||
| 6798 | DELETE F ROM AHOBPR .PROCESS_M ETRICS | |||||
| 6799 | WH ERE REGIST RANT_ID = @registra ntId; | |||||
| 6800 | ||||||
| 6801 | DELETE F ROM AHOBPR .REGISTRAN T | |||||
| 6802 | WH ERE REGIST RANT_ID = @registra ntId; | |||||
| 6803 | END; | |||||
| 6804 | -- EXECUTE [AHOBPR]. [SP_Delete Registrant AndRespons e] 140 | |||||
| 6805 | GO | |||||
| 6806 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 6807 | ||||||
| 6808 | ||||||
| 6809 | GO | |||||
| 6810 | PRINT N'Cr eating [AH OBPR].[SP_ ReportRegi strantCont act]...'; | |||||
| 6811 | ||||||
| 6812 | ||||||
| 6813 | GO | |||||
| 6814 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 6815 | ||||||
| 6816 | ||||||
| 6817 | GO | |||||
| 6818 | -- ======= ========== ========== ========== ======== | |||||
| 6819 | -- Author: Bruce Clegg | |||||
| 6820 | -- Create date: Jan 12, 2015 | |||||
| 6821 | -- Descrip tion: Used for the A HOBPR Cont act Report -- exec [AHOBPR].[ SP_ReportR egistrantC ontact] (More opt ions at bo ttom) | |||||
| 6822 | -- 2015-02 -23 - Cleg g - provid e individu al field n ames | |||||
| 6823 | -- 2015033 0 - Bruce Clegg - Ad ded VisnId value of NLA to fin d Null loc ations | |||||
| 6824 | -- 2015042 7 - Bruce Clegg - Ch ange to Lo cationType and Key, for both A ssigned an d Evaluate d Location s | |||||
| 6825 | -- 2015042 9 - Bruce Clegg - Ad ded Email column (ag ain) | |||||
| 6826 | -- 2015061 7 - D. Bar r - Added state para meter | |||||
| 6827 | -- ======= ========== ========== ========== ======== | |||||
| 6828 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportRegi strantCont act] | |||||
| 6829 | @Re gistrantSt atus VARCHAR(50 ) = '', -- '1,2,3 ,4,5,6,7,8 ' | |||||
| 6830 | @Sv cStatus VARCHAR(50 ) = '', -- '1,2,3 ' | |||||
| 6831 | @Ad minFlagId INT = 0, -- 60 | |||||
| 6832 | @Ad minFromDat eText VARCHAR(50 ) = NULL, | |||||
| 6833 | @Ad minToDateT ext VARCHAR(50 ) = NULL, | |||||
| 6834 | @Su bPopulatio nFlagId INT = 0, -- 65 | |||||
| 6835 | @As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned | |||||
| 6836 | @As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089 | |||||
| 6837 | @Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned | |||||
| 6838 | @Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089 | |||||
| 6839 | @Co mpletedFro mDateText VARCHAR(50 ) = NULL, | |||||
| 6840 | @Co mpletedToD ateText VARCHAR(50 ) = NULL, | |||||
| 6841 | @st ate varcha r(8000) = NULL -- Mu ltiple sta tes, comma -separated values wh en not NUL L | |||||
| 6842 | AS | |||||
| 6843 | BEGIN | |||||
| 6844 | ||||||
| 6845 | DECLARE @A dminFromDa te DATETIM E2(0) = IS NULL(dbo.C leanDate(@ AdminFromD ateText),' 19000101') | |||||
| 6846 | DECLARE @A dminToDate DATETIM E2(0) = db o.AddMaxTi me(ISNULL( dbo.CleanD ate(@Admin ToDateText ),GETDATE( ))); | |||||
| 6847 | DECLARE @C ompletedFr omDate DAT ETIME2(0) = ISNULL(d bo.CleanDa te(@Comple tedFromDat eText),'19 000101') | |||||
| 6848 | DECLARE @C ompletedTo Date DAT ETIME2(0) = dbo.AddM axTime(ISN ULL(dbo.Cl eanDate(@C ompletedTo DateText), GETDATE()) ); | |||||
| 6849 | ||||||
| 6850 | PRINT @Ass ignedLocat ionType; | |||||
| 6851 | PRINT @Ass ignedLocat ionKey; | |||||
| 6852 | ||||||
| 6853 | DECLARE @A ssignedIns titutionId INT = 0, | |||||
| 6854 | @E valuatedIn stitutionI d INT = 0; | |||||
| 6855 | ||||||
| 6856 | IF @Assign edLocation Type IN (' Base','Ins titution') | |||||
| 6857 | AND ISNUME RIC(@Assig nedLocatio nKey) = 1 | |||||
| 6858 | SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key); | |||||
| 6859 | ||||||
| 6860 | IF @Evalua tedLocatio nType IN ( 'Base','In stitution' ) | |||||
| 6861 | AND ISNUME RIC(@Evalu atedLocati onKey) = 1 | |||||
| 6862 | SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey); | |||||
| 6863 | ||||||
| 6864 | WITH addr | |||||
| 6865 | AS ( | |||||
| 6866 | SELECT REGISTRAN T_ID, | |||||
| 6867 | ISNULL( STREET1,'' ) AS STRE ET1, | |||||
| 6868 | ISNULL( STREET2,'' ) AS STRE ET2, | |||||
| 6869 | ISNULL( CITY,'') AS CITY , | |||||
| 6870 | ISNULL( [STATE],'' ) AS [STA TE], | |||||
| 6871 | ISNULL( COUNTRY,'' ) AS COUN TRY, | |||||
| 6872 | ISNULL( ZIP,'') AS ZIP | |||||
| 6873 | FR OM AHOBPR .[REGISTRA NT_ADDRESS ] | |||||
| 6874 | ) | |||||
| 6875 | ,phone1 | |||||
| 6876 | AS ( | |||||
| 6877 | SELECT REGISTRAN T_ID, | |||||
| 6878 | ISNULL( PHONE_NUMB ER,'') AS PHONE_NUMB ER_Main | |||||
| 6879 | FROM AHOBPR.RE GISTRANT_P HONE | |||||
| 6880 | WHERE ISNULL(TY PE,'Main') = 'Main' | |||||
| 6881 | ) | |||||
| 6882 | ,phone2 | |||||
| 6883 | AS ( | |||||
| 6884 | SELECT REGISTRAN T_ID, | |||||
| 6885 | ISNULL( PHONE_NUMB ER,'') AS PHONE_NUMB ER_Mobile | |||||
| 6886 | FROM AHOBPR.RE GISTRANT_P HONE | |||||
| 6887 | WHERE TYPE = 'M obile' | |||||
| 6888 | ) | |||||
| 6889 | ||||||
| 6890 | AS ( | |||||
| 6891 | SELECT REGISTRAN T_ID, | |||||
| 6892 | ISNULL( EMAIL,'') AS EMAIL | |||||
| 6893 | FROM AHOBPR.RE GISTRANT_E MAIL | |||||
| 6894 | ) | |||||
| 6895 | ,Pref | |||||
| 6896 | AS( | |||||
| 6897 | SELE CT fr.REGI STRANT_ID | |||||
| 6898 | ,ans.TEXT AS Contac tPreferenc e | |||||
| 6899 | FR OM AHOBPR .FORM_RESP ONSE fr | |||||
| 6900 | JO IN AHOBPR. FORM_RESPO NSE_QUESTI ON rQst ON fr.FORM_R ESPONSE_ID = rQst.FO RM_RESPONS E_ID | |||||
| 6901 | JO IN AHOBPR. STD_FORM_Q UESTION qs t ON rQst. STD_FORM_Q UESTION_ID = qst.STD _FORM_QUES TION_ID | |||||
| 6902 | JO IN AHOBPR. FORM_RESPO NSE_ANSWER rAns ON r Qst.FORM_R ESPONSE_QU ESTION_ID = rAns.FOR M_RESPONSE _QUESTION_ ID | |||||
| 6903 | JO IN AHOBPR. STD_FORM_A NSWER ans ON ans.STD _FORM_ANSW ER_ID = rA ns.STD_FOR M_ANSWER_I D | |||||
| 6904 | WHE RE qst.STD _FORM_ID = fr.STD_FO RM_ID | |||||
| 6905 | A ND qst.FOR M_QUESTION _UNIQUE_ID = '8.A' | |||||
| 6906 | ) | |||||
| 6907 | SE LECT | |||||
| 6908 | reg.RE GISTRANT_I D, | |||||
| 6909 | ISNULL(r eg.LAST_NA ME,'') AS LAST_NAME , | |||||
| 6910 | ISNULL(reg .FIRST_NAM E,'') AS FIRST_NAME , | |||||
| 6911 | ISNULL(Pre f.ContactP reference, '') AS Co ntactPrefe rence, | |||||
| 6912 | ISNULL(S TREET1,'') AS STREE T1, | |||||
| 6913 | ISNULL(S TREET2,'') AS STREE T2, | |||||
| 6914 | ISNULL(C ITY,'') AS CITY, | |||||
| 6915 | ISNULL([ STATE],'') AS [STAT E], | |||||
| 6916 | ISNULL(C OUNTRY,'') AS COUNT RY, | |||||
| 6917 | ISNULL(Z IP,'') AS ZIP, | |||||
| 6918 | ISNULL(p hone1.PHON E_NUMBER_M ain,'') AS PHONE_NU MBER_Main, | |||||
| 6919 | ISNULL(p hone2.PHON E_NUMBER_M obile,'') AS PHONE_ NUMBER_Mob ile, | |||||
| 6920 | ISNULL(ema il.EMAIL,' ') AS EMAI L | |||||
| 6921 | FROM AHOBP R.REGISTRA NT reg | |||||
| 6922 | LEFT JOIN addr | |||||
| 6923 | ON reg.REGIS TRANT_ID = addr.REGI STRANT_ID | |||||
| 6924 | LEFT JOIN phone1 | |||||
| 6925 | ON reg.REGIS TRANT_ID = phone1.RE GISTRANT_I D | |||||
| 6926 | LEFT JOIN phone2 | |||||
| 6927 | ON reg.REGIS TRANT_ID = phone2.RE GISTRANT_I D | |||||
| 6928 | LEFT JOIN email | |||||
| 6929 | ON reg.REGIS TRANT_ID = email.REG ISTRANT_ID | |||||
| 6930 | LEFT JOIN Pref | |||||
| 6931 | ON reg.REGIS TRANT_ID = Pref.REGI STRANT_ID | |||||
| 6932 | W HERE (reg. STD_REGIST RANT_STATU S_ID IN (S ELECT * FR OM fncSpli t(@Registr antStatus, ',')) | |||||
| 6933 | OR I SNULL(@Reg istrantSta tus,'') = '') | |||||
| 6934 | AND (reg. STD_SERVIC E_STATUS_I D IN (SELE CT * FROM fncSplit(@ SvcStatus, ',')) | |||||
| 6935 | OR I SNULL(@Svc Status,'') = '') | |||||
| 6936 | AND ( @AssignedL ocationTyp e IS NULL | |||||
| 6937 | OR (@Assig nedLocatio nType = 'N LA' | |||||
| 6938 | AND re g.STD_INST ITUTION_ID IS NULL) | |||||
| 6939 | OR (@Assig nedLocatio nType = 'V ISN' | |||||
| 6940 | AND E XISTS(SELE CT * FROM AHOBPR.VIE W_FACILITY _LOOKUP in st | |||||
| 6941 | WHERE inst.ID = reg.STD_IN STITUTION_ ID | |||||
| 6942 | AND inst.VisnI D = @Assig nedLocatio nKey) | |||||
| 6943 | ) | |||||
| 6944 | OR (@Assig nedLocatio nType = 'B ase' | |||||
| 6945 | AND E XISTS(SELE CT * FROM AHOBPR.VIE W_FACILITY _LOOKUP in st | |||||
| 6946 | WHERE inst.ID = reg.STD_IN STITUTION_ ID | |||||
| 6947 | AND inst.BASE_ ID = @Assi gnedInstit utionId) | |||||
| 6948 | ) | |||||
| 6949 | OR (@Assig nedLocatio nType = 'I nstitution ' | |||||
| 6950 | AND r eg.STD_INS TITUTION_I D = @Assig nedInstitu tionId) | |||||
| 6951 | ) | |||||
| 6952 | AND ( @Evaluated LocationTy pe IS NULL | |||||
| 6953 | OR (@Evalu atedLocati onType = ' NLA' | |||||
| 6954 | AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al | |||||
| 6955 | WHERE eva l.REGISTRA NT_ID = Re g.REGISTRA NT_ID | |||||
| 6956 | AND eva l.EVALUATI ON_FLAG = 'Y') | |||||
| 6957 | ) | |||||
| 6958 | OR (@Evalu atedLocati onType = ' VISN' | |||||
| 6959 | AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval | |||||
| 6960 | JOIN AHOBPR.VIE W_FACILITY _LOOKUP in st ON inst .ID = eval .STD_INSTI TUTION_ID | |||||
| 6961 | WHERE eval.REGIS TRANT_ID = Reg.REGIS TRANT_ID | |||||
| 6962 | AND inst.VisnI D = @Evalu atedLocati onKey | |||||
| 6963 | AND eval.EVALU ATION_FLAG = 'Y') | |||||
| 6964 | ) | |||||
| 6965 | OR (@Evalu atedLocati onType = ' Base' | |||||
| 6966 | AND E XISTS(SELE CT * FROM AHOBPR.VIE W_FACILITY _LOOKUP in st | |||||
| 6967 | WHERE inst.ID = reg.STD_IN STITUTION_ ID | |||||
| 6968 | AND inst.BASE_ ID = @Eval uatedInsti tutionId) | |||||
| 6969 | ) | |||||
| 6970 | OR (@Evalu atedLocati onType = ' Institutio n' | |||||
| 6971 | AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval | |||||
| 6972 | WHERE eval.REGIS TRANT_ID = Reg.REGIS TRANT_ID | |||||
| 6973 | AND eval.STD_I NSTITUTION _ID = @Eva luatedInst itutionId | |||||
| 6974 | AND eval.EVALU ATION_FLAG = 'Y') | |||||
| 6975 | ) | |||||
| 6976 | ) | |||||
| 6977 | AND ( ISNULL(@Su bPopulatio nFlagId, 0 ) = 0 | |||||
| 6978 | OR EXISTS( SELECT [RE GISTRANT_I D] FROM AH OBPR.REGIS TRANT_REGI STRY_FLAG popFlag | |||||
| 6979 | WHERE pop Flag.REGIS TRANT_ID = reg.REGIS TRANT_ID | |||||
| 6980 | AND pop Flag.STD_R EGISTRY_FL AG_ID = @S ubPopulati onFlagId)) | |||||
| 6981 | AND ( ISNULL(@Ad minFlagId, 0) = 0 | |||||
| 6982 | OR EXISTS( SELECT [RE GISTRANT_I D] FROM AH OBPR.REGIS TRANT_REGI STRY_FLAG adminFlag | |||||
| 6983 | WHERE adm inFlag.REG ISTRANT_ID = reg.REG ISTRANT_ID | |||||
| 6984 | AND adm inFlag.STD _REGISTRY_ FLAG_ID = @AdminFlag Id | |||||
| 6985 | AND adm inFlag.CRE ATED BETWE EN @AdminF romDate AN D @AdminTo Date)) | |||||
| 6986 | AND ( (ISNULL(@C ompletedFr omDateText ,'') = '' AND ISNULL (@Complete dToDateTex t,'') = '' ) | |||||
| 6987 | O R EXISTS(S ELECT resp .REGISTRAN T_ID, stat .QUESTIONN AIRE_COMPL ETED_DATE | |||||
| 6988 | FROM AHOB PR.FORM_RE SPONSE_STA TUS stat | |||||
| 6989 | JOIN AHOB PR.FORM_RE SPONSE res p | |||||
| 6990 | ON resp .FORM_RESP ONSE_ID = stat.FORM_ RESPONSE_I D | |||||
| 6991 | WHERE resp .REGISTRAN T_ID = reg .REGISTRAN T_ID | |||||
| 6992 | AND stat .QUESTIONN AIRE_COMPL ETED_DATE BETWEEN @C ompletedFr omDate AND @Complete dToDate)) | |||||
| 6993 | AND (I SNULL(@sta te,'') = ' ' | |||||
| 6994 | OR EX ISTS(SELEC T DISTINCT addr.REGI STRANT_ID | |||||
| 6995 | FRO M AHOBPR.R EGISTRANT_ ADDRESS ad dr | |||||
| 6996 | WHER E addr.REG ISTRANT_ID = reg.REG ISTRANT_ID | |||||
| 6997 | AN D addr.STA TE IN (SE LECT * FRO M fncSplit (@state, ' ,')))) | |||||
| 6998 | ; | |||||
| 6999 | ||||||
| 7000 | END | |||||
| 7001 | -- exec [A HOBPR].[SP _ReportReg istrantCon tact] | |||||
| 7002 | -- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Ass ignedLocat ionType = 'NLA' | |||||
| 7003 | -- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Ass ignedLocat ionType = 'VISN', @A ssignedLoc ationKey = 'V16' | |||||
| 7004 | -- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Ass ignedLocat ionType = 'Base', @A ssignedLoc ationKey = '1000089' | |||||
| 7005 | -- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Ass ignedLocat ionType = 'Instituti on', @Assi gnedLocati onKey = '1 000089' | |||||
| 7006 | -- exec [A HOBPR].[SP _ReportReg istrantCon tact] | |||||
| 7007 | -- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Eva luatedLoca tionType = 'NLA' | |||||
| 7008 | -- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Eva luatedLoca tionType = 'VISN', @ EvaluatedL ocationKey = 'V16' | |||||
| 7009 | -- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Eva luatedLoca tionType = 'Base', @ EvaluatedL ocationKey = '100008 9' | |||||
| 7010 | -- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Eva luatedLoca tionType = 'Institut ion', @Eva luatedLoca tionKey = '1000089' | |||||
| 7011 | ||||||
| 7012 | ||||||
| 7013 | --@ AssignedLo cationType VARCHAR( 10) = NULL , -- 'VIS N', 'Base' , 'Institu tion', 'NL A' = No Lo cation Ass igned | |||||
| 7014 | --@ AssignedLo cationKey VARCHAR( 50) = NULL , -- 'V16 ', 'V01' 1000109, 1000089 | |||||
| 7015 | --exec [A HOBPR].[SP _ReportReg istrantCon tact] '5,6 ,7', NULL, 0, NULL, NULL, 0, 0 , NULL @E valuatedLo cationType | |||||
| 7016 | --exec [A HOBPR].[SP _ReportReg istrantCon tact] NULL , '2', 0, NULL, NULL , 0, 0, NU LL | |||||
| 7017 | --exec [A HOBPR].[SP _ReportReg istrantCon tact] NULL , NULL, 60 , NULL, '2 0141204', 0, 0, NULL | |||||
| 7018 | --exec [A HOBPR].[SP _ReportReg istrantCon tact] NULL , NULL, 60 , '12/04/2 014', NULL , 0, 0, NU LL | |||||
| 7019 | --exec [A HOBPR].[SP _ReportReg istrantCon tact] NULL , NULL, 60 , '12/03/2 014', '12/ 12/2014', 0, 0, NULL | |||||
| 7020 | --exec [A HOBPR].[SP _ReportReg istrantCon tact] NULL , NULL, 0, NULL, NUL L, 65, 0, NULL | |||||
| 7021 | --exec [A HOBPR].[SP _ReportReg istrantCon tact] NULL , NULL, 0, NULL, NUL L, 0, 1000 109, NULL | |||||
| 7022 | --exec [A HOBPR].[SP _ReportReg istrantCon tact] NULL , NULL, 0, NULL, NUL L, 0, 0, ' NLA' --'V0 1' | |||||
| 7023 | --exec [A HOBPR].[SP _ReportReg istrantCon tact] @Com pletedFrom DateText = '08/13/20 14' | |||||
| 7024 | --exec [A HOBPR].[SP _ReportReg istrantCon tact] @Com pletedToDa teText = ' 08/13/2014 ' | |||||
| 7025 | --exec [A HOBPR].[SP _ReportReg istrantCon tact] @Com pletedFrom DateText = '08/13/20 14', @Comp letedToDat eText = '0 8/13/2014' | |||||
| 7026 | GO | |||||
| 7027 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 7028 | ||||||
| 7029 | ||||||
| 7030 | GO | |||||
| 7031 | PRINT N'Cr eating [AH OBPR].[SP_ Test]...'; | |||||
| 7032 | ||||||
| 7033 | ||||||
| 7034 | GO | |||||
| 7035 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 7036 | ||||||
| 7037 | ||||||
| 7038 | GO | |||||
| 7039 | ||||||
| 7040 | CREATE PRO CEDURE [AH OBPR].[SP_ Test] | |||||
| 7041 | @Re gistrantId INT = 0, @firstName varchar(5 0) = NULL, @lastName varchar(5 0) = NULL | |||||
| 7042 | AS | |||||
| 7043 | BEGIN | |||||
| 7044 | UP DATE AHOBP R.REGISTRA NT | |||||
| 7045 | SE T FIRST_NA ME = @firs tName, LAS T_NAME = @ lastName | |||||
| 7046 | WH ERE REGIST RANT_ID = @Registran tId | |||||
| 7047 | ||||||
| 7048 | SE LECT FIRST _NAME, MID DLE_NAME, LAST_NAME FROM AHOBP R.REGISTRA NT WHERE R EGISTRANT_ ID = @Regi strantId | |||||
| 7049 | END | |||||
| 7050 | ||||||
| 7051 | -- EXEC [A HOBPR].[SP _Test] 33, 'Jane', ' Mary', 'Sm ith' | |||||
| 7052 | GO | |||||
| 7053 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 7054 | ||||||
| 7055 | ||||||
| 7056 | GO | |||||
| 7057 | PRINT N'Cr eating [AH OBPR].[SP_ RecordEmai lLog]...'; | |||||
| 7058 | ||||||
| 7059 | ||||||
| 7060 | GO | |||||
| 7061 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 7062 | ||||||
| 7063 | ||||||
| 7064 | GO | |||||
| 7065 | -- ======= ========== ========== ========== ======== | |||||
| 7066 | -- Author: Debora h Barr | |||||
| 7067 | -- Create date: 2/23 /2015 | |||||
| 7068 | -- Descrip tion: Used to log em ail | |||||
| 7069 | -- ======= ========== ========== ========== ======== | |||||
| 7070 | CREATE PRO CEDURE [AH OBPR].[SP_ RecordEmai lLog] | |||||
| 7071 | @t emplateId as int, | |||||
| 7072 | @r egistrantI d as int, | |||||
| 7073 | @u serId as i nt, | |||||
| 7074 | @e To varchar (100), | |||||
| 7075 | @e CC varchar (100), | |||||
| 7076 | @e BCC varcha r(max), | |||||
| 7077 | @s ubject var char(200), | |||||
| 7078 | @b ody varcha r(max) , | |||||
| 7079 | @f ailed varc har(max), | |||||
| 7080 | @c reatedBy v archar(30) , | |||||
| 7081 | @u pdatedBy v archar(30) | |||||
| 7082 | AS | |||||
| 7083 | BEGIN | |||||
| 7084 | SE T NOCOUNT ON; | |||||
| 7085 | DE CLARE @eId INT | |||||
| 7086 | IN SERT INTO | |||||
| 7087 | EMAI L_LOG | |||||
| 7088 | (TEM PLATE_ID, REGISTRANT _ID, USER_ ID ,EMAIL_ SENT, EMAI L_TO ,EMA IL_CC ,EMA IL_BCC ,su bject , bo dy, failed , CREATEDB Y, UPDATED BY ) | |||||
| 7089 | VA LUES | |||||
| 7090 | (@te mplateId, @registran tId, @user Id, getdat e(), @eTo, @eCC, @eB CC, @subje ct, @body, @failed, @createdBy , @updated By ) | |||||
| 7091 | ||||||
| 7092 | SE T @eId = S COPE_IDENT ITY() | |||||
| 7093 | SE LECT @eId | |||||
| 7094 | ||||||
| 7095 | END | |||||
| 7096 | GO | |||||
| 7097 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 7098 | ||||||
| 7099 | ||||||
| 7100 | GO | |||||
| 7101 | PRINT N'Cr eating [AH OBPR].[SP_ InsertRegi strantFile ]...'; | |||||
| 7102 | ||||||
| 7103 | ||||||
| 7104 | GO | |||||
| 7105 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 7106 | ||||||
| 7107 | ||||||
| 7108 | GO | |||||
| 7109 | CREATE PRO CEDURE [AH OBPR].[SP_ InsertRegi strantFile ] | |||||
| 7110 | @f ileId varchar( 256), | |||||
| 7111 | @f ileType varchar( 256), | |||||
| 7112 | @f ileContent varbin ary(max), | |||||
| 7113 | @c reatedBy varchar( 30) | |||||
| 7114 | AS | |||||
| 7115 | BEGIN | |||||
| 7116 | SE T NOCOUNT ON; | |||||
| 7117 | ||||||
| 7118 | DE CLARE @reg istrantFil eId uniqueiden tifier; | |||||
| 7119 | ||||||
| 7120 | SE LECT @reg istrantFil eId = regi strant_fil e_id | |||||
| 7121 | FR OM AHOB PR.REGISTR ANT_FILE | |||||
| 7122 | WH ERE FILE _ID = @fil eId AND | |||||
| 7123 | FILE_T YPE = @fil eType; | |||||
| 7124 | ||||||
| 7125 | IF (@registr antFileId is null) | |||||
| 7126 | BEGI N | |||||
| 7127 | INSERT INTO AHOB PR.REGISTR ANT_FILE | |||||
| 7128 | (REGISTR ANT_FILE_I D, | |||||
| 7129 | FILE_ID , | |||||
| 7130 | FILE_TY PE, | |||||
| 7131 | FILE_CO NTENT, | |||||
| 7132 | CREATED BY, | |||||
| 7133 | UPDATED BY, | |||||
| 7134 | CREATED , | |||||
| 7135 | UPDATED ) | |||||
| 7136 | VALUES | |||||
| 7137 | (NEWID() , | |||||
| 7138 | @fileId , | |||||
| 7139 | @fileTy pe, | |||||
| 7140 | @fileCo ntent, | |||||
| 7141 | @create dBy, | |||||
| 7142 | @create dBy, | |||||
| 7143 | GETDATE (), | |||||
| 7144 | GETDATE ()); | |||||
| 7145 | END | |||||
| 7146 | EL SE | |||||
| 7147 | BEGI N | |||||
| 7148 | UPDATE AHOBPR.RE GISTRANT_F ILE | |||||
| 7149 | SET | |||||
| 7150 | FILE_CON TENT = @fi leContent, | |||||
| 7151 | UPDATEDB Y = @creat edBy, | |||||
| 7152 | UPDATED = GETDATE( ) | |||||
| 7153 | WHERE REGISTRANT _FILE_ID = @registra ntFileId; | |||||
| 7154 | END | |||||
| 7155 | END | |||||
| 7156 | GO | |||||
| 7157 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 7158 | ||||||
| 7159 | ||||||
| 7160 | GO | |||||
| 7161 | PRINT N'Cr eating [AH OBPR].[SP_ UpdateFrom CDW]...'; | |||||
| 7162 | ||||||
| 7163 | ||||||
| 7164 | GO | |||||
| 7165 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 7166 | ||||||
| 7167 | ||||||
| 7168 | GO | |||||
| 7169 | -- ======= ========== ========== ========== ======== | |||||
| 7170 | -- Author: Bruce Clegg | |||||
| 7171 | -- Create date: 6/12 /2015 | |||||
| 7172 | -- Descrip tion: Call ed after l oading CdW Staging t ables | |||||
| 7173 | -- ======= ========== ========== ========== ======== | |||||
| 7174 | CREATE PRO CEDURE [AH OBPR].[SP_ UpdateFrom CDW] | |||||
| 7175 | AS | |||||
| 7176 | BEGIN | |||||
| 7177 | ||||||
| 7178 | DECLARE @Now DATET IME2(0) = GETDATE(); | |||||
| 7179 | DECLARE @ProcName VARCHAR(30 ) = 'AHOBP R.SP_Updat eFromCDW'; | |||||
| 7180 | ||||||
| 7181 | PRINT 'S et Institu tion ID in Staged Pa tient'; | |||||
| 7182 | ||||||
| 7183 | WITH Src | |||||
| 7184 | AS( | |||||
| 7185 | SELECT R EGISTRANT_ ID | |||||
| 7186 | ,Preferr edInstitut ionCode | |||||
| 7187 | ,Inst.ID | |||||
| 7188 | FROM [ AHOBPR].[S TAGED_PATI ENT] Stg | |||||
| 7189 | JOIN A HOBPR.VIEW _INSTITUTI ON Inst ON Inst.STAT IONNUMBER = Stg.Pref erredInsti tutionCode | |||||
| 7190 | ) | |||||
| 7191 | MERGE INTO [AHOB PR].[STAGE D_PATIENT] AS Tgt | |||||
| 7192 | USING Src | |||||
| 7193 | ON Tgt.RE GISTRANT_I D = Src.RE GISTRANT_I D | |||||
| 7194 | WHEN M ATCHED | |||||
| 7195 | THEN U PDATE | |||||
| 7196 | SET Tgt.ST D_INSTITUT ION_ID = S rc.ID; | |||||
| 7197 | ||||||
| 7198 | PRINT 'U pdate Regi strant fro m staged p atient...' ; | |||||
| 7199 | ||||||
| 7200 | WITH Src | |||||
| 7201 | AS ( | |||||
| 7202 | SELECT [REGISTRA NT_ID] | |||||
| 7203 | ,[GENDER] | |||||
| 7204 | ,[DECEASED ] | |||||
| 7205 | ,[DateOfDe ath] | |||||
| 7206 | ,[RaceText ] | |||||
| 7207 | ,[MaritalS tatus] | |||||
| 7208 | ,[Eligibil ityStatus] | |||||
| 7209 | ,[Eligibil ity] | |||||
| 7210 | ,[PatientI CN] | |||||
| 7211 | ,[Enrollme ntStatus] | |||||
| 7212 | ,[Preferre dInstituti onCode] | |||||
| 7213 | ,[Enrollme ntDate] | |||||
| 7214 | ,[STD_INST ITUTION_ID ] | |||||
| 7215 | FROM [AHOBPR]. [STAGED_PA TIENT] | |||||
| 7216 | ) | |||||
| 7217 | MERG E INTO [AH OBPR].[REG ISTRANT] A S Tgt | |||||
| 7218 | USIN G Src | |||||
| 7219 | ON Tgt. REGISTRANT _ID = Src. REGISTRANT _ID | |||||
| 7220 | WHEN MATCHED | |||||
| 7221 | THEN UPDATE | |||||
| 7222 | SET Tgt. STD_INSTIT UTION_ID = Src.STD_I NSTITUTION _ID | |||||
| 7223 | ,Tgt. GENDER = S rc.GENDER | |||||
| 7224 | ,Tgt. MARITAL_ST ATUS = Src .[MaritalS tatus] | |||||
| 7225 | ,Tgt. RACE = Src .[RaceText ] | |||||
| 7226 | ,Tgt. DECEASED_F LAG = CONV ERT(BIT,(C ASE Src.[D ECEASED] W HEN 'Y' TH EN 1 ELSE 0 END)) | |||||
| 7227 | ,Tgt. DEATH_DATE = Src.[Da teOfDeath] | |||||
| 7228 | ,Tgt. ELIGIBILIT Y_STATUS = Src.[Elig ibilitySta tus] | |||||
| 7229 | ,Tgt. ELIGIBILIT Y = Src.[E ligibility ] | |||||
| 7230 | ,Tgt. ENROLLMENT _STATUS = Src.[Enrol lmentStatu s] | |||||
| 7231 | ,Tgt. ENROLLED_D ATE = Src. [Enrollmen tDate] | |||||
| 7232 | ,Tgt. ETL_UPDATE D = @Now; | |||||
| 7233 | ||||||
| 7234 | PRINT 'D elete heal th factors for encou nters bein g updated' ; | |||||
| 7235 | DELETE | |||||
| 7236 | FROM AHO BPR.REGIST RANT_HEALT H_FACTOR | |||||
| 7237 | WHERE EX ISTS(SELEC T REGISTRA NT_VISIT_I D | |||||
| 7238 | FRO M AHOBPR.R EGISTRANT_ VISIT | |||||
| 7239 | JOI N AHOBPR.S TAGED_VISI T ON STAGE D_VISIT.RE GISTRANT_I D = REGIST RANT_VISIT .REGISTRAN T_ID | |||||
| 7240 | WHER E REGISTRA NT_VISIT.R EGISTRANT_ VISIT_ID = REGISTRAN T_HEALTH_F ACTOR.REGI STRANT_VIS IT_ID | |||||
| 7241 | AN D STAGED_V ISIT.EVALU ATION_FLAG = 'Y'); | |||||
| 7242 | ||||||
| 7243 | PRINT 'D elete enco uters bein g updated' ; | |||||
| 7244 | ||||||
| 7245 | DELETE | |||||
| 7246 | FROM AHO BPR.REGIST RANT_VISIT | |||||
| 7247 | WHERE EV ALUATION_F LAG = 'Y' | |||||
| 7248 | AND EX ISTS(SELEC T REGISTRA NT_ID FROM AHOBPR.ST AGED_VISIT | |||||
| 7249 | WHER E STAGED_V ISIT.REGIS TRANT_ID = REGISTRAN T_VISIT.RE GISTRANT_I D | |||||
| 7250 | AND STAGED_VIS IT.EVALUAT ION_FLAG = 'Y'); | |||||
| 7251 | ||||||
| 7252 | PRINT 'D elete rece nt visits being upda ted'; | |||||
| 7253 | ||||||
| 7254 | DELETE | |||||
| 7255 | FROM AHO BPR.REGIST RANT_VISIT | |||||
| 7256 | WHERE EV ALUATION_F LAG = 'N' | |||||
| 7257 | AND EX ISTS(SELEC T REGISTRA NT_ID FROM AHOBPR.ST AGED_VISIT | |||||
| 7258 | WHER E STAGED_V ISIT.REGIS TRANT_ID = REGISTRAN T_VISIT.RE GISTRANT_I D | |||||
| 7259 | AND STAGED_VIS IT.EVALUAT ION_FLAG = 'N'); | |||||
| 7260 | ||||||
| 7261 | PRINT 'S et Institu tion ID in Staged VI SIT'; | |||||
| 7262 | ||||||
| 7263 | WITH Src | |||||
| 7264 | AS( | |||||
| 7265 | SELECT S tg.VisitSI D | |||||
| 7266 | ,S tg.INSTITU TION_CODE | |||||
| 7267 | ,I nst.ID | |||||
| 7268 | FROM [ AHOBPR].[S TAGED_VISI T] Stg | |||||
| 7269 | JOIN A HOBPR.VIEW _INSTITUTI ON Inst ON Inst.STAT IONNUMBER = Stg.INST ITUTION_CO DE | |||||
| 7270 | ) | |||||
| 7271 | MERGE INTO [AHOB PR].[STAGE D_VISIT] A S Tgt | |||||
| 7272 | USING Src | |||||
| 7273 | ON Tgt.Vi sitSID = S rc.VisitSI D | |||||
| 7274 | WHEN M ATCHED | |||||
| 7275 | THEN U PDATE | |||||
| 7276 | SET Tgt.ST D_INSTITUT ION_ID = S rc.ID; | |||||
| 7277 | ||||||
| 7278 | PRINT 'I nsert enco unters and visits... '; | |||||
| 7279 | ||||||
| 7280 | INSERT I NTO [AHOBP R].[REGIST RANT_VISIT ] | |||||
| 7281 | ([REGIS TRANT_ID] | |||||
| 7282 | ,[VISIT _DATE_TIME ] | |||||
| 7283 | ,[STD_I NSTITUTION _ID] | |||||
| 7284 | ,[VISTA _Encounter ID] | |||||
| 7285 | ,[VISTA _Sta3n] | |||||
| 7286 | ,[VISTA _Eligibili tyStatus] | |||||
| 7287 | ,[EVALU ATION_FLAG ] | |||||
| 7288 | ,[APPOI NTMENT_TYP E] | |||||
| 7289 | ,[STOP_ CODE] | |||||
| 7290 | ,[CREAT EDBY] | |||||
| 7291 | ,[UPDAT EDBY] | |||||
| 7292 | ,[CREAT ED] | |||||
| 7293 | ,[UPDAT ED]) | |||||
| 7294 | SELE CT [REGIST RANT_ID] | |||||
| 7295 | ,[VISIT_ DATE_TIME] | |||||
| 7296 | ,[STD_IN STITUTION_ ID] | |||||
| 7297 | ,[VISTA_ EncounterI D] | |||||
| 7298 | ,[VISTA_ Sta3n] | |||||
| 7299 | ,[VISTA_ Eligibilit y] | |||||
| 7300 | ,[EVALUA TION_FLAG] | |||||
| 7301 | ,[APPOIN TMENT_TYPE ] | |||||
| 7302 | ,[STOP_C ODE] | |||||
| 7303 | ,@ProcNa me | |||||
| 7304 | ,@ProcNa me | |||||
| 7305 | ,@Now | |||||
| 7306 | ,@Now | |||||
| 7307 | FROM [ AHOBPR].[S TAGED_VISI T]; | |||||
| 7308 | ||||||
| 7309 | PRINT 'S et Standar d Health F actors ID from STD_H EALTH_FACT OR...'; | |||||
| 7310 | ||||||
| 7311 | WITH Src | |||||
| 7312 | AS( | |||||
| 7313 | SELE CT [CDW_VI SIT_SID] | |||||
| 7314 | ,[REGIST RANT_ID] | |||||
| 7315 | ,std.[ST D_HEALTH_F ACTOR_ID] | |||||
| 7316 | ,[HEALTH _FACTOR_TE XT] | |||||
| 7317 | FR OM [AHOBPR ].[STAGED_ HEALTH_FAC TOR] stage d | |||||
| 7318 | JO IN AHOBPR. STD_HEALTH _FACTOR st d ON std.N AME = stag ed.HEALTH_ FACTOR_TEX T | |||||
| 7319 | ) | |||||
| 7320 | MERGE INTO AHOBP R.[STAGED_ HEALTH_FAC TOR] AS Tg t | |||||
| 7321 | USING Src ON Tg t.[CDW_VIS IT_SID] = Src.[CDW_V ISIT_SID] | |||||
| 7322 | WHEN M ATCHED | |||||
| 7323 | AND Tgt .[REGISTRA NT_ID] = S rc.[REGIST RANT_ID] | |||||
| 7324 | AND Tgt .[HEALTH_F ACTOR_TEXT ] = Src.[H EALTH_FACT OR_TEXT] | |||||
| 7325 | THEN U PDATE | |||||
| 7326 | SET Tgt.[S TD_HEALTH_ FACTOR_ID] = Src.[ST D_HEALTH_F ACTOR_ID]; | |||||
| 7327 | ||||||
| 7328 | PRINT ' Insert Hea lth Factor s...'; | |||||
| 7329 | ||||||
| 7330 | INSERT I NTO [AHOBP R].[REGIST RANT_HEALT H_FACTOR] | |||||
| 7331 | ([REGIS TRANT_VISI T_ID] | |||||
| 7332 | ,[STD_H EALTH_FACT OR_ID] | |||||
| 7333 | ,[ACTIV E_FLAG] | |||||
| 7334 | ,[HEALT H_FACTOR_T EXT] | |||||
| 7335 | ,[COMME NTS] | |||||
| 7336 | ,[CREAT EDBY] | |||||
| 7337 | ,[UPDAT EDBY] | |||||
| 7338 | ,[CREAT ED] | |||||
| 7339 | ,[UPDAT ED]) | |||||
| 7340 | SELE CT visit.R EGISTRANT_ VISIT_ID | |||||
| 7341 | ,hf.[STD _HEALTH_FA CTOR_ID] | |||||
| 7342 | ,1 | |||||
| 7343 | ,hf.[HEA LTH_FACTOR _TEXT] | |||||
| 7344 | ,hf.[COM MENTS] | |||||
| 7345 | ,@ProcNa me | |||||
| 7346 | ,@ProcNa me | |||||
| 7347 | ,@Now | |||||
| 7348 | ,@Now | |||||
| 7349 | FROM [ AHOBPR].[S TAGED_HEAL TH_FACTOR] hf -- 295 | |||||
| 7350 | JOIN A HOBPR.STAG ED_VISIT s tage ON st age.VisitS ID = hf.CD W_VISIT_SI D | |||||
| 7351 | JOIN A HOBPR.REGI STRANT_VIS IT visit O N visit.VI STA_Encoun terID = st age.VISTA_ EncounterI D | |||||
| 7352 | ||||||
| 7353 | END; | |||||
| 7354 | -- EXECUTE [AHOBPR]. [SP_Update FromCDW]; | |||||
| 7355 | GO | |||||
| 7356 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 7357 | ||||||
| 7358 | ||||||
| 7359 | GO | |||||
| 7360 | PRINT N'Cr eating [AH OBPR].[SP_ ResetDatab ase]...'; | |||||
| 7361 | ||||||
| 7362 | ||||||
| 7363 | GO | |||||
| 7364 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 7365 | ||||||
| 7366 | ||||||
| 7367 | GO | |||||
| 7368 | -- ======= ========== ========== ========== ======== | |||||
| 7369 | -- Author: Sherry Wang | |||||
| 7370 | -- Create date: 6/12 /2015 | |||||
| 7371 | -- Descrip tion: Call ed to rese t database | |||||
| 7372 | -- ======= ========== ========== ========== ======== | |||||
| 7373 | CREATE PRO CEDURE [AH OBPR].[SP_ ResetDatab ase] | |||||
| 7374 | AS | |||||
| 7375 | ||||||
| 7376 | DECLARE @r egistrantI d int | |||||
| 7377 | DECLARE @r egistrantC ursor CURS OR | |||||
| 7378 | SET @regis trantCurso r = CURSOR FAST_FORW ARD | |||||
| 7379 | FO R | |||||
| 7380 | SE LECT REGIS TRANT_ID F ROM AHOBPR .REGISTRAN T | |||||
| 7381 | WH ERE USER_I D IN (SELE CT OBJECT_ ID FROM AH OBPR.REGIS TRANT_JSON ) | |||||
| 7382 | BEGIN | |||||
| 7383 | ||||||
| 7384 | OP EN @regist rantCursor | |||||
| 7385 | FE TCH NEXT F ROM @regis trantCurso r INTO @re gistrantId | |||||
| 7386 | WH ILE @@FETC H_STATUS = 0 | |||||
| 7387 | BEGI N | |||||
| 7388 | exec a hobpr.SP_D eleteRegis trantAndRe sponse @re gistrantId | |||||
| 7389 | ||||||
| 7390 | FETCH NEXT FROM @registran tCursor IN TO @regist rantId | |||||
| 7391 | END | |||||
| 7392 | CL OSE @regis trantCurso r | |||||
| 7393 | DE ALLOCATE @ registrant Cursor | |||||
| 7394 | ||||||
| 7395 | DE LETE FROM [AHOBPR].[ JSON_queue ] | |||||
| 7396 | DE LETE FROM [AHOBPR].[ REGISTRANT _JSON] WHE RE OBJECT_ TYPE <> 'f orm' | |||||
| 7397 | ||||||
| 7398 | END | |||||
| 7399 | ||||||
| 7400 | -- EXEC [A HOBPR].[SP _ResetData base] | |||||
| 7401 | GO | |||||
| 7402 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 7403 | ||||||
| 7404 | ||||||
| 7405 | GO | |||||
| 7406 | PRINT N'Cr eating [AH OBPR].[SP_ DeleteOneR egistrant] ...'; | |||||
| 7407 | ||||||
| 7408 | ||||||
| 7409 | GO | |||||
| 7410 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 7411 | ||||||
| 7412 | ||||||
| 7413 | GO | |||||
| 7414 | -- ======= ========== ========== ========== ======== | |||||
| 7415 | -- Author: Sherry Wang | |||||
| 7416 | -- Create date: 7/6/ 2015 | |||||
| 7417 | -- Descrip tion: Call ed to dele te one reg istrant fr om databas e | |||||
| 7418 | -- ======= ========== ========== ========== ======== | |||||
| 7419 | CREATE PRO CEDURE [AH OBPR].[SP_ DeleteOneR egistrant] | |||||
| 7420 | @f irstName VARCHAR(50 ), | |||||
| 7421 | @l astName V ARCHAR(50) | |||||
| 7422 | AS | |||||
| 7423 | ||||||
| 7424 | DECLARE @r egistrantI d int | |||||
| 7425 | BEGIN | |||||
| 7426 | ||||||
| 7427 | SE LECT @regi strantId = REGISTRAN T_ID FROM [AHOBPR].[ REGISTRANT ] WHERE FI RST_NAME = @firstNam e AND LAST _NAME = @l astName | |||||
| 7428 | ex ec ahobpr. SP_DeleteR egistrantA ndResponse @registra ntId | |||||
| 7429 | ||||||
| 7430 | DE LETE FROM [AHOBPR].[ REGISTRANT _JSON] WHE RE OBJECT_ ID IN | |||||
| 7431 | (SEL ECT OBJECT _ID FROM [ AHOBPR].[R EGISTRANT_ JSON] WHER E JSON_DAT A like '%' + @firstN ame + '%' AND JSON_D ATA like ' %' + @last Name + '%' ) | |||||
| 7432 | ||||||
| 7433 | END | |||||
| 7434 | GO | |||||
| 7435 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 7436 | ||||||
| 7437 | ||||||
| 7438 | GO | |||||
| 7439 | PRINT N'Cr eating [AH OBPR].[SP_ ReportAdHo cByIndivid ual]...'; | |||||
| 7440 | ||||||
| 7441 | ||||||
| 7442 | GO | |||||
| 7443 | -- ======= ========== ========== ========== ======== | |||||
| 7444 | -- Author: Debora h Barr | |||||
| 7445 | -- Create date: Nove mber 12, 2 014 | |||||
| 7446 | -- Descrip tion: Used for the A HOBPR Ad H oc Report | |||||
| 7447 | ||||||
| 7448 | -- Modific ation log | |||||
| 7449 | -- 2014-12 -31 - Chan ged from F LAG to RES PONSE for Health Con cerns and REQUEST_SE EN, Reform atted stat ements for readabili ty | |||||
| 7450 | -- 2015-01 -05 - Chan ge Date Fo rmat to MM /DD/YYYY | |||||
| 7451 | -- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ healthFact or, @formS tartFromDa te, @formS tartToDate , @subpopu lationFlag | |||||
| 7452 | -- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ adminFlag, @deployme ntAll, @de ploymentEx posure, @a dminFlagFr omDate, @a dminFlagTo Date | |||||
| 7453 | -- 2015-01 -16 - Bruc e Clegg - Fix parame ters and r emove NULL s from dis play where possible | |||||
| 7454 | -- 2015-02 -09 - Bruc e Clegg - Change Hea lth Factor Exists st atements t o use new REGISTRANT _VISIT | |||||
| 7455 | -- 2015-03 -30 - Bruc e Clegg - Added Visn Id value o f NLA to f ind Null l ocations | |||||
| 7456 | -- 2015-04 -27 - Bruc e Clegg - Change to LocationTy pe and Key , for both Assigned and Evalua ted Locati ons | |||||
| 7457 | -- 2015-06 -04 - Bruc e Clegg - Add more p arameters | |||||
| 7458 | -- 2015-06 -18 - Bruc e Clegg - Changed @s eparationT ype to an Integer | |||||
| 7459 | -- 2015-07 -09 - Bruc e CLegg - Rewrote as Dynamic S QL for per formance | |||||
| 7460 | -- ======= ========== ========== ========== ======== | |||||
| 7461 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportAdHo cByIndivid ual] | |||||
| 7462 | @st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL | |||||
| 7463 | @du tyStatus v archar(100 ) = NULL, -- Multipl e states, comma-sepa rated valu es when no t NULL | |||||
| 7464 | @fo rmStartFro mDateText varchar(10 0) = NULL, | |||||
| 7465 | @fo rmStartToD ateText va rchar(100) = NULL, | |||||
| 7466 | @he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL | |||||
| 7467 | @fo rmCompleti onFromDate Text varch ar(100) = NULL, | |||||
| 7468 | @fo rmCompleti onToDateTe xt varchar (100) = NU LL, | |||||
| 7469 | @qu estionNumb er varchar (100) = NU LL, | |||||
| 7470 | @an swer varch ar(100) = NULL, | |||||
| 7471 | @he althConcer ns varchar (100) = 'A ll', | |||||
| 7472 | @re questToBeS een varcha r(100) = ' All', | |||||
| 7473 | @As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned | |||||
| 7474 | @As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089 | |||||
| 7475 | @Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned | |||||
| 7476 | @Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089 | |||||
| 7477 | @su bpopulatio nFlag varc har (10) = NULL, | |||||
| 7478 | @ad minFlag va rchar (10) = NULL, | |||||
| 7479 | @de ploymentAl l varchar (256) = NU LL, | |||||
| 7480 | @de ploymentEx posure var char (256) = NULL, | |||||
| 7481 | @ad minFlagFro mDateText varchar (2 0) = NULL, | |||||
| 7482 | @ad minFlagToD ateText va rchar (20) = NULL, | |||||
| 7483 | @ex cludeDead varchar(1) = 'N', | |||||
| 7484 | @ge nder varch ar(50) = ' ', | |||||
| 7485 | @ra ce varchar (50) = '', | |||||
| 7486 | @et hnicity va rchar(50) = '', | |||||
| 7487 | @se parationTy pe INT = 0 , | |||||
| 7488 | @se parationFr omDateText varchar ( 20) = NULL , | |||||
| 7489 | @se parationTo DateText v archar (20 ) = NULL, | |||||
| 7490 | @en rollmentSt atus varch ar(50) = ' ' | |||||
| 7491 | AS | |||||
| 7492 | ||||||
| 7493 | BEGIN | |||||
| 7494 | ||||||
| 7495 | PRINT 'Sta rting....' ; | |||||
| 7496 | ||||||
| 7497 | -- Convert date para meters fro m VARCHAR to DATETIM E2(0) | |||||
| 7498 | DECLARE @formStart FromDate D ATETIME2(0 ) = NULL, | |||||
| 7499 | @formStart ToDate DAT ETIME2(0) = NULL, | |||||
| 7500 | @formCompl etionFromD ate DATETI ME2(0) = N ULL, | |||||
| 7501 | @formCompl etionToDat e DATETIME 2(0) = NUL L, | |||||
| 7502 | @adminFlag FromDate D ATETIME2(0 ) = NULL, | |||||
| 7503 | @adminFlag ToDate DAT ETIME2(0) = NULL, | |||||
| 7504 | @separatio nFromDate DATETIME2( 0) = NULL, | |||||
| 7505 | @separatio nToDate DA TETIME2(0) = NULL; | |||||
| 7506 | ||||||
| 7507 | DECLARE @Query VAR CHAR(8000) ; | |||||
| 7508 | DECLARE @MainQuery VARCHAR(8 000); | |||||
| 7509 | DECLARE @RegCriter ia VARCHAR (8000) = ' '; | |||||
| 7510 | DECLARE @AdminWith VARCHAR(8 000); | |||||
| 7511 | DECLARE @SubPopWit h VARCHAR( 8000); | |||||
| 7512 | DECLARE @DeployWit h VARCHAR( 8000); | |||||
| 7513 | ||||||
| 7514 | SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext); | |||||
| 7515 | SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text)); | |||||
| 7516 | SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext); | |||||
| 7517 | SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text)); | |||||
| 7518 | SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1'); | |||||
| 7519 | SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ())); | |||||
| 7520 | SE T @separat ionFromDat e = dbo.Cl eanDate(@s eparationF romDateTex t); | |||||
| 7521 | SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText)); | |||||
| 7522 | ||||||
| 7523 | DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID | |||||
| 7524 | FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE | |||||
| 7525 | WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag'); | |||||
| 7526 | ||||||
| 7527 | DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID | |||||
| 7528 | FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE | |||||
| 7529 | WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g'); | |||||
| 7530 | ||||||
| 7531 | -- Set Ins titutionID values if needed. | |||||
| 7532 | DECLARE @A ssignedIns titutionId INT = 0, | |||||
| 7533 | @E valuatedIn stitutionI d INT = 0; | |||||
| 7534 | ||||||
| 7535 | IF @Assign edLocation Type IN (' Base','Ins titution') | |||||
| 7536 | AND ISNUME RIC(@Assig nedLocatio nKey) = 1 | |||||
| 7537 | SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key); | |||||
| 7538 | ||||||
| 7539 | IF @Evalua tedLocatio nType IN ( 'Base','In stitution' ) | |||||
| 7540 | AND ISNUME RIC(@Evalu atedLocati onKey) = 1 | |||||
| 7541 | SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey); | |||||
| 7542 | ||||||
| 7543 | --Concat enate one or more Su b-populati on flags f or Registr ants with flags | |||||
| 7544 | SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+ | |||||
| 7545 | 'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' + | |||||
| 7546 | ' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' + | |||||
| 7547 | ' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' + | |||||
| 7548 | ' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' + | |||||
| 7549 | ' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) + | |||||
| 7550 | ' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' + | |||||
| 7551 | ' F ROM AHOBPR .REGISTRAN T a ' + | |||||
| 7552 | 'WH ERE 1 = 1 '; | |||||
| 7553 | --PRINT @ SubPopWith ; | |||||
| 7554 | ||||||
| 7555 | --Concat enate one or more Ad min flags for Regist rants with flags | |||||
| 7556 | SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' + | |||||
| 7557 | ' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' + | |||||
| 7558 | ' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' + | |||||
| 7559 | ' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' + | |||||
| 7560 | ' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' + | |||||
| 7561 | ' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) + | |||||
| 7562 | ' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) + | |||||
| 7563 | ' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' + | |||||
| 7564 | ' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' + | |||||
| 7565 | ' FROM A HOBPR.REGI STRANT a ' + | |||||
| 7566 | ' WHERE 1 = 1 '; | |||||
| 7567 | --PRINT @A dminWith; | |||||
| 7568 | --Concat enate one or more De ployment C ountries f or Registr ants with Deployment s | |||||
| 7569 | SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' + | |||||
| 7570 | ' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' + | |||||
| 7571 | ' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' + | |||||
| 7572 | ' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' + | |||||
| 7573 | ' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' + | |||||
| 7574 | ' FROM AHOBPR.RE GISTRANT a ' + | |||||
| 7575 | ' WHERE 1 = 1 '; | |||||
| 7576 | --PRINT @D eployWith; | |||||
| 7577 | ||||||
| 7578 | SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' + | |||||
| 7579 | ', (a.LAST_NA ME + '', ' ' + a.FIRS T_NAME) AS Name ' + | |||||
| 7580 | ', b.REGISTRA NT_STATUS AS Status ' + | |||||
| 7581 | ', c.SERVICE_ STATUS AS DutyStatus ' + | |||||
| 7582 | ', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' + | |||||
| 7583 | ', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' + | |||||
| 7584 | ', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' + | |||||
| 7585 | ', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y '; | |||||
| 7586 | --Decide w hich query to run de pending on if a ques tion was s elected as a paramet er for the report | |||||
| 7587 | IF ISNUL L(@questio nNumber, ' ') = '' | |||||
| 7588 | SET @M ainQuery = @MainQuer y + ','''' AS Questi onNumber ' + | |||||
| 7589 | ','''' AS Answer ' | |||||
| 7590 | ELSE | |||||
| 7591 | SET @M ainQuery = @MainQuer y + ',''' + @questio nNumber + ''' AS Que stionNumbe r ' + | |||||
| 7592 | ',STUF F((SELECT '', '' + s tdAnswer.T EXT ' + | |||||
| 7593 | ' FROM AHOBPR.FOR M_RESPONSE _ANSWER an swer ' + | |||||
| 7594 | ' JOIN AHOBPR.STD _FORM_ANSW ER stdAnsw er ON answ er.STD_FOR M_ANSWER_I D = stdAns wer.STD_FO RM_ANSWER_ ID ' + | |||||
| 7595 | ' WHERE formQuesti on.FORM_RE SPONSE_QUE STION_ID = answer.FO RM_RESPONS E_QUESTION _ID ' + | |||||
| 7596 | ' FOR XM L PATH(''' ')), 1, 1, '''') AS Answer ' ; | |||||
| 7597 | ||||||
| 7598 | SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' + | |||||
| 7599 | ',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' + | |||||
| 7600 | ',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' + | |||||
| 7601 | ',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' + | |||||
| 7602 | ',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' + | |||||
| 7603 | ',a.BI RTH_DATE A S BirthDat e ' + | |||||
| 7604 | ',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' + | |||||
| 7605 | 'FROM AH OBPR.REGIS TRANT a ' | |||||
| 7606 | ||||||
| 7607 | SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' + | |||||
| 7608 | ' JOIN AHOBP R.STD_SERV ICE_STATUS c ON a.ST D_SERVICE_ STATUS_ID = c.STD_SE RVICE_STAT US_ID ' + | |||||
| 7609 | ' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' + | |||||
| 7610 | ' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' + | |||||
| 7611 | ' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' + | |||||
| 7612 | ' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' + | |||||
| 7613 | ' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID '; | |||||
| 7614 | ||||||
| 7615 | IF ISNUL L(@questio nNumber, ' ') != '' | |||||
| 7616 | SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' + | |||||
| 7617 | ' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID '; | |||||
| 7618 | ||||||
| 7619 | SET @Mai nQuery = @ MainQuery + ' WHERE 1 = 1 '; | |||||
| 7620 | ||||||
| 7621 | -- Quest ion Number and Answe r criteria are only used again st Main Qu ery | |||||
| 7622 | IF ISNUL L(@questio nNumber, ' ') > '' | |||||
| 7623 | SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' '; | |||||
| 7624 | ||||||
| 7625 | IF ISNUL L(@answer, '') != '' | |||||
| 7626 | SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT ra.STD _FORM_ANSW ER_ID FROM AHOBPR.FO RM_RESPONS E_ANSWER r a ' + | |||||
| 7627 | ' WH ERE ra.FOR M_RESPONSE _QUESTION_ ID = formQ uestion.FO RM_RESPONS E_QUESTION _ID ' + | |||||
| 7628 | ' AND ra.STD _FORM_ANSW ER_ID IN ( ' + @answe r + ') )'; | |||||
| 7629 | ||||||
| 7630 | IF @form StartFromD ate IS NOT NULL | |||||
| 7631 | SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + ''''; | |||||
| 7632 | ||||||
| 7633 | PRINT CO NVERT(VARC HAR(20),@f ormStartTo Date,121); | |||||
| 7634 | ||||||
| 7635 | IF @form StartToDat e IS NOT N ULL | |||||
| 7636 | SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + ''''; | |||||
| 7637 | ||||||
| 7638 | PRINT @MainQuery ; | |||||
| 7639 | PRINT LEN(@MainQ uery); | |||||
| 7640 | ||||||
| 7641 | IF @form Completion FromDate I S NOT NULL | |||||
| 7642 | SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + ''''; | |||||
| 7643 | ||||||
| 7644 | PRINT @MainQuery ; | |||||
| 7645 | ||||||
| 7646 | ||||||
| 7647 | IF @form Completion ToDate IS NOT NULL | |||||
| 7648 | SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + ''''; | |||||
| 7649 | ||||||
| 7650 | PRINT @MainQuery ; | |||||
| 7651 | ||||||
| 7652 | IF ISNUL L(@subpopu lationFlag ,'') != '' | |||||
| 7653 | SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' + | |||||
| 7654 | ' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' + | |||||
| 7655 | ' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) '; | |||||
| 7656 | PRINT @M ainQuery; | |||||
| 7657 | IF ISNULL(@a dminFlag,' ') != '' | |||||
| 7658 | SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG adminfl ag ' + | |||||
| 7659 | ' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' + | |||||
| 7660 | ' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' + | |||||
| 7661 | ' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) + | |||||
| 7662 | ''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) '; | |||||
| 7663 | PRINT @MainQuery ; | |||||
| 7664 | IF ISNUL L(@deploym entAll,'') != '' | |||||
| 7665 | SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' + | |||||
| 7666 | ' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID | |||||
| 7667 | AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ; | |||||
| 7668 | PRINT @ MainQuery; | |||||
| 7669 | IF ISNUL L(@healthF actor,'') != '' | |||||
| 7670 | SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' + | |||||
| 7671 | ' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' + | |||||
| 7672 | ' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' + | |||||
| 7673 | ' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) ' | |||||
| 7674 | ||||||
| 7675 | PRINT @M ainQuery; | |||||
| 7676 | IF ISNUL L(@deploym entExposur e,'') != ' ' | |||||
| 7677 | SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' + | |||||
| 7678 | ' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' + | |||||
| 7679 | ' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' + | |||||
| 7680 | ' WHERE qu est.FORM_Q UESTION_UN IQUE_ID = ''1.2.A'' ' + | |||||
| 7681 | ' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' + | |||||
| 7682 | ' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) '; | |||||
| 7683 | ||||||
| 7684 | PRINT @M ainQuery; | |||||
| 7685 | ||||||
| 7686 | -- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts | |||||
| 7687 | IF @stat us IS NOT NULL | |||||
| 7688 | SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )'; | |||||
| 7689 | ||||||
| 7690 | IF ISNUL L(@dutySta tus,'') > '' | |||||
| 7691 | SET @R egCriteria = @RegCri teria + ' AND a.STD_ SERVICE_ST ATUS_ID IN (' + @dut yStatus + ')'; | |||||
| 7692 | ||||||
| 7693 | IF @heal thConcerns != 'All' | |||||
| 7694 | SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' '; | |||||
| 7695 | ||||||
| 7696 | IF @requ estToBeSee n != 'All' | |||||
| 7697 | SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ; | |||||
| 7698 | ||||||
| 7699 | IF ISNUL L(@exclude Dead,'N') = 'Y' | |||||
| 7700 | SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 '; | |||||
| 7701 | ||||||
| 7702 | IF ISNUL L(@gender, '') != '' | |||||
| 7703 | SET @R egCriteria = @RegCri teria + ' AND ''' + @gender + ''' = ISNU LL(a.GENDE R,''No Dat a Availabl e'') '; | |||||
| 7704 | ||||||
| 7705 | IF ISNUL L(@ethnici ty,'') != '' | |||||
| 7706 | SET @R egCriteria = @RegCri teria + ' AND ''' + @ethnicity + ''' = I SNULL(a.ET HNICITY,'' No Data Av ailable'') '; | |||||
| 7707 | ||||||
| 7708 | IF ISNUL L(@separat ionType,0) != 0 | |||||
| 7709 | SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) '; | |||||
| 7710 | ||||||
| 7711 | IF @sepa rationFrom Date IS NO T NULL | |||||
| 7712 | SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ; | |||||
| 7713 | ||||||
| 7714 | IF @sepa rationToDa te IS NOT NULL | |||||
| 7715 | SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + ''''; | |||||
| 7716 | ||||||
| 7717 | IF ISNUL L(@race,'' ) != '' | |||||
| 7718 | SET @R egCriteria = @RegCri teria + ' AND ''' + @race + '' ' = ISNUL L(a.RACE , ''No Data Available' ') '; | |||||
| 7719 | ||||||
| 7720 | IF ISNUL L(@enrollm entStatus, '') != '' | |||||
| 7721 | SET @R egCriteria = @RegCri teria + ' AND ''' + @enrollmen tStatus + ''' = ISNU LL(a.ENROL LMENT_STAT US,''No Da ta Availab le'') '; | |||||
| 7722 | ||||||
| 7723 | IF @Assi gnedLocati onType IS NOT NULL | |||||
| 7724 | BEGIN | |||||
| 7725 | IF @ AssignedLo cationType = 'NLA' | |||||
| 7726 | SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ; | |||||
| 7727 | ELSE | |||||
| 7728 | IF @ AssignedLo cationType = 'VISN' | |||||
| 7729 | SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' + | |||||
| 7730 | ' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' + | |||||
| 7731 | ' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') '; | |||||
| 7732 | ELSE | |||||
| 7733 | IF @ AssignedLo cationType = 'Base' | |||||
| 7734 | SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' + | |||||
| 7735 | ' WHER E inst.ID = a.STD_IN STITUTION_ ID ' + | |||||
| 7736 | ' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') ' | |||||
| 7737 | ELSE | |||||
| 7738 | IF @ AssignedLo cationType = 'Instit ution' | |||||
| 7739 | SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId); | |||||
| 7740 | END; | |||||
| 7741 | ||||||
| 7742 | IF @Eval uatedLocat ionType IS NOT NULL | |||||
| 7743 | BEGIN | |||||
| 7744 | IF @ EvaluatedL ocationTyp e = 'NLA' | |||||
| 7745 | SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' + | |||||
| 7746 | ' WHERE eva l.REGISTRA NT_VISIT_I D = a.REGI STRANT_ID ' + | |||||
| 7747 | ' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ; | |||||
| 7748 | ELSE | |||||
| 7749 | IF @ EvaluatedL ocationTyp e = 'VISN' | |||||
| 7750 | SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' + | |||||
| 7751 | ' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' + | |||||
| 7752 | ' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' + | |||||
| 7753 | ' AN D eval.EVA LUATION_FL AG = ''Y'' ' + | |||||
| 7754 | ' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') '; | |||||
| 7755 | ELSE | |||||
| 7756 | IF @ EvaluatedL ocationTyp e = 'Base' | |||||
| 7757 | SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' + | |||||
| 7758 | ' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' + | |||||
| 7759 | ' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' + | |||||
| 7760 | ' AN D eval.EVA LUATION_FL AG = ''Y'' ' + | |||||
| 7761 | ' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') '; | |||||
| 7762 | ELSE | |||||
| 7763 | IF @ EvaluatedL ocationTyp e = 'Insti tution' | |||||
| 7764 | SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' + | |||||
| 7765 | ' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' + | |||||
| 7766 | ' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' + | |||||
| 7767 | ' AN D eval.EVA LUATION_FL AG = ''Y'' ' + | |||||
| 7768 | ' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') '; | |||||
| 7769 | END; | |||||
| 7770 | ||||||
| 7771 | -- Add cri teria and Close With Statement | |||||
| 7772 | SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) ' | |||||
| 7773 | SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) ' | |||||
| 7774 | SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) ' | |||||
| 7775 | ||||||
| 7776 | SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria; | |||||
| 7777 | ||||||
| 7778 | PRINT @ Query; | |||||
| 7779 | ||||||
| 7780 | EXECUTE ( @Query); | |||||
| 7781 | END; | |||||
| 7782 | ||||||
| 7783 | -- Test Ca ses | |||||
| 7784 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] | |||||
| 7785 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ status = ' 6,7' | |||||
| 7786 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ dutyStatus = '1,2' | |||||
| 7787 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formStartF romDateTex t = '2001 0101' | |||||
| 7788 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formStartT oDateText = '2014123 1' | |||||
| 7789 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ healthFact or = '44,4 5,46,47' | |||||
| 7790 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formComple tionFromDa teText = '20010101' | |||||
| 7791 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formComple tionToDate Text = '2 0141231' | |||||
| 7792 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ healthConc erns = 'Ye s' , | |||||
| 7793 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ requestToB eSeen = 'Y es | |||||
| 7794 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ subpopulat ionFlag = '64,65,66, 67' | |||||
| 7795 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ deployment All = 'Egy pt' | |||||
| 7796 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ deployment Exposure = 'Iraq' | |||||
| 7797 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ adminFlag = '59,60' ,@adminFla gFromDateT ext = '201 50101' , @ adminFlagT oDateText = '2015020 1' | |||||
| 7798 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ questionNu mber = '1. 2.E' , @a nswer = '2 346,1571,1 7' | |||||
| 7799 | -- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] | |||||
| 7800 | -- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'NLA' | |||||
| 7801 | -- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'VISN', @A ssignedLoc ationKey = 'V16' | |||||
| 7802 | -- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'Base', @A ssignedLoc ationKey = '1000089' | |||||
| 7803 | -- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'Instituti on', @Assi gnedLocati onKey = '1 000089' | |||||
| 7804 | -- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @et hnicity = 'JEWISH' | |||||
| 7805 | -- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'NLA' | |||||
| 7806 | -- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'VISN', @ EvaluatedL ocationKey = 'V16' | |||||
| 7807 | -- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'Base', @ EvaluatedL ocationKey = '100008 9' | |||||
| 7808 | -- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'Institut ion', @Eva luatedLoca tionKey = '1000089' | |||||
| 7809 | GO | |||||
| 7810 | PRINT N'Cr eating [AH OBPR].[SP_ ReportRegi strantStat usAging].. .'; | |||||
| 7811 | ||||||
| 7812 | ||||||
| 7813 | GO | |||||
| 7814 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 7815 | ||||||
| 7816 | ||||||
| 7817 | GO | |||||
| 7818 | -- ======= ========== ========== ========== ======== | |||||
| 7819 | -- Author: Bruce Clegg | |||||
| 7820 | -- Create date: Jan 8, 2015 | |||||
| 7821 | -- Descrip tion: Used for the A HOBPR Agin g Report -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] (More o ptions at bottom) | |||||
| 7822 | -- Note: A ll 7 Regis trant Stat us rows wi ll be retu rned as po ssible val ues, so so me rows ma y have all zeros. | |||||
| 7823 | -- 2015033 0 - Bruce Clegg - Ad ded VisnId value of NLA to fin d Null loc ations | |||||
| 7824 | -- 2015042 7 - Bruce Clegg - Ch ange to Lo cationType and Key, for both A ssigned an d Evaluate d Location s | |||||
| 7825 | -- 2015071 0 - Bruce Clegg - Re write usin g Dynamic SQL for Pe rformance | |||||
| 7826 | -- ======= ========== ========== ========== ======== | |||||
| 7827 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportRegi strantStat usAging] | |||||
| 7828 | @As OfDate DATETIME2( 0) = NULL, | |||||
| 7829 | @Sv cStatus VARCHAR(50 ) = '', -- 'Vet eran', 'Re tiree', 'A ctive Duty ' | |||||
| 7830 | @As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN ', 'Base', 'Institut ion', 'NLA ' = No Loc ation Assi gned | |||||
| 7831 | @As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16' , 'V01' 1000109, 1000089 | |||||
| 7832 | @Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN ', 'Base', 'Institut ion', 'NLA ' = No Loc ation Assi gned | |||||
| 7833 | @Ev aluatedLoc ationKey VARCHAR(50 ) = NULL -- 'V16' , 'V01' 1000109, 1000089 | |||||
| 7834 | AS | |||||
| 7835 | BEGIN | |||||
| 7836 | ||||||
| 7837 | SET @AsO fDate = db o.AddMaxTi me(ISNULL( @AsOfDate, GETDATE()) ); -- add s 23:59:59 | |||||
| 7838 | ||||||
| 7839 | DECLARE @AssignedI nstitution Id INT = 0 , | |||||
| 7840 | @E valuatedIn stitutionI d INT = 0; | |||||
| 7841 | ||||||
| 7842 | DECLARE @Query VAR CHAR(8000) ; | |||||
| 7843 | ||||||
| 7844 | IF @Assi gnedLocati onType IN ('Base','I nstitution ') | |||||
| 7845 | AND ISNU MERIC(@Ass ignedLocat ionKey) = 1 | |||||
| 7846 | SET @A ssignedIns titutionId = CONVERT (INT,@Assi gnedLocati onKey); | |||||
| 7847 | ||||||
| 7848 | IF @Eval uatedLocat ionType IN ('Base',' Institutio n') | |||||
| 7849 | AND ISNU MERIC(@Eva luatedLoca tionKey) = 1 | |||||
| 7850 | SET @E valuatedIn stitutionI d = CONVER T(INT,@Eva luatedLoca tionKey); | |||||
| 7851 | ||||||
| 7852 | SET @Que ry = 'WITH MostRecen t AS ( ' + | |||||
| 7853 | 'SEL ECT Metric s.REGISTRA NT_ID, ' + | |||||
| 7854 | 'MAX(Me trics.PROC ESS_METRIC S_ID) AS M axMetricsI D ' + | |||||
| 7855 | 'F ROM [AHOBP R].[PROCES S_METRICS] Metrics ' + | |||||
| 7856 | 'J OIN AHOBPR .STD_PROCE SS_METRICS _TYPE Proc essType ' + | |||||
| 7857 | 'ON Proces sType.STD_ PROCESS_ME TRICS_TYPE _ID = Metr ics.STD_PR OCESS_METR ICS_TYPE_I D ' + | |||||
| 7858 | 'WH ERE Proces sType.PROC ESS_METRIC S = ''Regi strant Sta tus Change '' ' + | |||||
| 7859 | ' AND Metric s.CREATED <= ''' + C ONVERT(VAR CHAR(20),@ AsOfDate,1 21) + ''' ' + | |||||
| 7860 | 'GR OUP BY [RE GISTRANT_I D] ' + | |||||
| 7861 | '), St at AS ( ' + | |||||
| 7862 | 'SEL ECT this.[ REGISTRANT _ID], ' + | |||||
| 7863 | 'this.P ROCESS_MET RICS_VALUE , ' + | |||||
| 7864 | 'this.C REATED AS StatusDate , ' + | |||||
| 7865 | 'DATEDI FF(DAY, th is.CREATED , ''' + CO NVERT(VARC HAR(20),@A sOfDate,12 1) + ''') AS DaysDif f ' + | |||||
| 7866 | 'F ROM [AHOBP R].[PROCES S_METRICS] this ' + | |||||
| 7867 | 'J OIN MostRe cent ON Mo stRecent.M axMetricsI D = this.P ROCESS_MET RICS_ID ' + | |||||
| 7868 | '), S ummary AS ( ' + | |||||
| 7869 | 'SEL ECT Stat.P ROCESS_MET RICS_VALUE , ' + | |||||
| 7870 | 'SUM(CA SE WHEN( S tat.DaysDi ff < 31) T HEN 1 ELSE 0 END) AS Age0to30, ' + | |||||
| 7871 | 'SUM(CA SE WHEN( S tat.DaysDi ff BETWEEN 31 AND 60 ) THEN 1 E LSE 0 END) AS Age31t o60, ' + | |||||
| 7872 | 'SUM(CA SE WHEN( S tat.DaysDi ff BETWEEN 61 AND 90 ) THEN 1 E LSE 0 END) AS Age61t o90, ' + | |||||
| 7873 | 'SUM(CA SE WHEN( S tat.DaysDi ff > 90) T HEN 1 ELSE 0 END) AS Age91plus , ' + | |||||
| 7874 | 'Count( *) AS Tota lCount ' + | |||||
| 7875 | 'FROM AHOBPR.REG ISTRANT re g ' + | |||||
| 7876 | 'JOIN Stat ON re g.REGISTRA NT_ID = St at.REGISTR ANT_ID ' + | |||||
| 7877 | 'JOIN AHOB PR.STD_SER VICE_STATU S svc ON s vc.STD_SER VICE_STATU S_ID = reg .STD_SERVI CE_STATUS_ ID ' + | |||||
| 7878 | 'W HERE 1 = 1 '; | |||||
| 7879 | ||||||
| 7880 | IF ISNUL L(@SvcStat us,'') != '' | |||||
| 7881 | SET @Q uery = @Qu ery + ' AN D svc.SERV ICE_STATUS = ''' + @ SvcStatus + ''''; | |||||
| 7882 | ||||||
| 7883 | IF @Assi gnedLocati onType = ' NLA' | |||||
| 7884 | SET @Q uery = @Qu ery + ' AN D reg.STD_ INSTITUTIO N_ID IS NU LL '; | |||||
| 7885 | ||||||
| 7886 | IF @Assi gnedLocati onType = ' VISN' | |||||
| 7887 | SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. VIEW_FACIL ITY_LOOKUP inst ' + | |||||
| 7888 | ' WHERE inst .ID = reg. STD_INSTIT UTION_ID ' + | |||||
| 7889 | 'AND inst .VisnID = ''' + @Ass ignedLocat ionKey + ' '') '; | |||||
| 7890 | ||||||
| 7891 | IF @Assi gnedLocati onType = ' Base' | |||||
| 7892 | SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. VIEW_FACIL ITY_LOOKUP inst ' + | |||||
| 7893 | ' WHERE inst .ID = reg. STD_INSTIT UTION_ID ' + | |||||
| 7894 | 'AND inst .BASE_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId) + ' ) '; | |||||
| 7895 | ||||||
| 7896 | IF @Assi gnedLocati onType = ' Institutio n' | |||||
| 7897 | SET @Q uery = @Qu ery + ' AN D reg.STD_ INSTITUTIO N_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ' ' | |||||
| 7898 | ||||||
| 7899 | IF @Eval uatedLocat ionType = 'NLA' | |||||
| 7900 | SET @Q uery = @Qu ery + ' AN D NOT EXIS TS( SELECT * FROM AH OBPR.REGIS TRANT_VISI T eval ' + | |||||
| 7901 | 'WHERE eval.REGI STRANT_ID = Reg.REGI STRANT_ID ' + | |||||
| 7902 | 'AN D eval.EVA LUATION_FL AG = ''Y'' ) '; | |||||
| 7903 | ||||||
| 7904 | IF @Eval uatedLocat ionType = 'VISN' | |||||
| 7905 | SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _VISIT eva l ' + | |||||
| 7906 | 'JO IN AHOBPR. VIEW_FACIL ITY_LOOKUP inst ON i nst.ID = e val.STD_IN STITUTION_ ID ' + | |||||
| 7907 | ' WHE RE eval.RE GISTRANT_I D = Reg.RE GISTRANT_I D ' + | |||||
| 7908 | 'A ND inst.Vi snID = ''' + @Evalu atedLocati onKey + '' ' ' + | |||||
| 7909 | 'A ND eval.EV ALUATION_F LAG = ''Y' ') ' ; | |||||
| 7910 | ||||||
| 7911 | IF @Eval uatedLocat ionType = 'Base' | |||||
| 7912 | SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _VISIT eva l ' + | |||||
| 7913 | 'JO IN AHOBPR. VIEW_FACIL ITY_LOOKUP inst ON i nst.ID = e val.STD_IN STITUTION_ ID ' + | |||||
| 7914 | ' WHE RE eval.RE GISTRANT_I D = Reg.RE GISTRANT_I D ' + | |||||
| 7915 | ' AND inst .BASE_ID = ' + CONVE RT(VARCHAR (20),@Eval uatedInsti tutionId) + | |||||
| 7916 | ' AND ev al.EVALUAT ION_FLAG = ''Y'') '; | |||||
| 7917 | IF @Eval uatedLocat ionType = 'Instituti on' | |||||
| 7918 | SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _VISIT eva l ' + | |||||
| 7919 | ' WHERE eval .REGISTRAN T_ID = Reg .REGISTRAN T_ID '+ | |||||
| 7920 | ' AND eval .STD_INSTI TUTION_ID = ' + CONV ERT(VARCHA R(20),@Eva luatedInst itutionId) + | |||||
| 7921 | ' AND eval .EVALUATIO N_FLAG = ' 'Y'') '; | |||||
| 7922 | ||||||
| 7923 | ||||||
| 7924 | SET @Que ry = @Quer y + ' GROU P BY Stat. PROCESS_ME TRICS_VALU E ) ' + | |||||
| 7925 | 'SELEC T Possible .ORDINAL_V ALUE, ' + | |||||
| 7926 | 'Possible .REGISTRAN T_STATUS, ' + | |||||
| 7927 | 'ISNULL(S ummary.Age 0to30,0) AS Age0t o30, ' + | |||||
| 7928 | 'ISNULL(S ummary.Age 31to60, 0) AS Age31 to60, ' + | |||||
| 7929 | 'ISNULL(S ummary.Age 61to90, 0) AS Age61 to90, ' + | |||||
| 7930 | 'ISNULL(S ummary.Age 91plus, 0) AS Age91 plus, ' + | |||||
| 7931 | 'ISNULL(S ummary.Tot alCount, 0 ) AS Total Count ' + | |||||
| 7932 | 'FRO M [AHOBPR] .[STD_REGI STRANT_STA TUS] Possi ble ' + | |||||
| 7933 | 'LEF T JOIN Sum mary ON Su mmary.PROC ESS_METRIC S_VALUE = Possible.R EGISTRANT_ STATUS ' + | |||||
| 7934 | ' ORD ER BY Poss ible.ORDIN AL_VALUE' + | |||||
| 7935 | ' OPT ION (OPTIM IZE FOR UN KNOWN); ' ; | |||||
| 7936 | ||||||
| 7937 | PRINT @ Query; | |||||
| 7938 | ||||||
| 7939 | EXECUTE (@Query); | |||||
| 7940 | END | |||||
| 7941 | ||||||
| 7942 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] '20141130' | |||||
| 7943 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] '20150130' , 'Veteran ' | |||||
| 7944 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] '20150122' , 'Retiree ' | |||||
| 7945 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] '20150122' , 'Active Duty' | |||||
| 7946 | ||||||
| 7947 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] @AsOfDate = '2015013 0' | |||||
| 7948 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] @AsOfDate = '2015013 0', @Assig nedLocatio nType = 'N LA' | |||||
| 7949 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] @AsOfDate = '2015013 0', @Assig nedLocatio nType = 'V ISN', @Ass ignedLocat ionKey = ' V16' | |||||
| 7950 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] @AsOfDate = '2015013 0', @Assig nedLocatio nType = 'B ase', @Ass ignedLocat ionKey = ' 1000089' | |||||
| 7951 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] @AsOfDate = '2015013 0', @Assig nedLocatio nType = 'I nstitution ', @Assign edLocation Key = '100 0089' | |||||
| 7952 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] @AsOfDate = '2015013 0' | |||||
| 7953 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] @AsOfDate = '2015013 0', @Evalu atedLocati onType = ' NLA' | |||||
| 7954 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] @AsOfDate = '2015013 0', @Evalu atedLocati onType = ' VISN', @Ev aluatedLoc ationKey = 'V16' | |||||
| 7955 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] @AsOfDate = '2015013 0', @Evalu atedLocati onType = ' Base', @Ev aluatedLoc ationKey = '1000089' | |||||
| 7956 | -- exec [A HOBPR].[SP _ReportReg istrantSta tusAging] @AsOfDate = '2015013 0', @Evalu atedLocati onType = ' Institutio n', @Evalu atedLocati onKey = '1 000089' | |||||
| 7957 | GO | |||||
| 7958 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 7959 | ||||||
| 7960 | ||||||
| 7961 | GO | |||||
| 7962 | PRINT N'Cr eating [AH OBPR].[SP_ ReportPart icipation] ...'; | |||||
| 7963 | ||||||
| 7964 | ||||||
| 7965 | GO | |||||
| 7966 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 7967 | ||||||
| 7968 | ||||||
| 7969 | GO | |||||
| 7970 | -- ======= ========== ========== ========== ======== | |||||
| 7971 | -- Author: Bruce Clegg | |||||
| 7972 | -- Create date: Dec 30, 2014 | |||||
| 7973 | -- Descrip tion: Used for the A HOBPR Part icipation Report -- exec [AHOBPR]. [SP_Report Participat ion] | |||||
| 7974 | -- 2015033 0 - Bruce Clegg - Ad ded VisnId value of NLA to fin d Null loc ations | |||||
| 7975 | -- 2015042 7 - Bruce Clegg - Ch ange to Lo cationType and Key, for both A ssigned an d Evaluate d Location s | |||||
| 7976 | -- 2015071 0 - Bruce Clegg - Re write usin g Dynamic SQL for Pe rformance | |||||
| 7977 | -- ======= ========== ========== ========== ======== | |||||
| 7978 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportPart icipation] | |||||
| 7979 | @St artDate DA TETIME2(0) = NULL, | |||||
| 7980 | @En dDate DA TETIME2(0) = NULL, | |||||
| 7981 | @As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned | |||||
| 7982 | @As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089 | |||||
| 7983 | @Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned | |||||
| 7984 | @Ev aluatedLoc ationKey VARCHAR(50 ) = NULL -- 'V16', 'V01' 1000109, 1000089 | |||||
| 7985 | AS | |||||
| 7986 | BEGIN | |||||
| 7987 | ||||||
| 7988 | SET @Sta rtDate = I SNULL(@Sta rtDate,'19 900802'); -- Desert Storm star t date | |||||
| 7989 | SET @End Date = ISN ULL(@EndDa te, GetDat e()); | |||||
| 7990 | ||||||
| 7991 | DECLARE @ConsentSt atusCount INT = 0, | |||||
| 7992 | @EligibleS tatusCount INT = 0, | |||||
| 7993 | @Participa ntStatusCo unt INT = 0, | |||||
| 7994 | @HealthCon cernsCount INT = 0, | |||||
| 7995 | @NoHealthC oncernsCou nt INT = 0 , | |||||
| 7996 | @RequestSe enCount IN T = 0, | |||||
| 7997 | @NoRequest SeenCount INT = 0, | |||||
| 7998 | @DoNotKnow RequestSee nCount INT = 0, | |||||
| 7999 | @VeteranSe rviceStatu sCount INT = 0, | |||||
| 8000 | @ActiveDut yServiceSt atusCount INT = 0, | |||||
| 8001 | @RetireeSe rviceStatu sCount INT = 0, | |||||
| 8002 | @Afgh911Co unt INT = 0, | |||||
| 8003 | @Iraq911Co unt INT = 0, | |||||
| 8004 | @SWA911Cou nt INT = 0 , | |||||
| 8005 | @Pre911Cou nt INT = 0 , | |||||
| 8006 | @Djibouti9 11Count IN T = 0, | |||||
| 8007 | @MedianDay sToPartici pant DECIM AL(9,2) = 0; | |||||
| 8008 | ||||||
| 8009 | DECLARE @AssignedI nstitution Id INT = 0 , | |||||
| 8010 | @E valuatedIn stitutionI d INT = 0; | |||||
| 8011 | ||||||
| 8012 | DECLARE @Query NVA RCHAR(MAX) ; | |||||
| 8013 | DECLARE @Criteria VARCHAR(20 00) = ''; | |||||
| 8014 | ||||||
| 8015 | IF @Assign edLocation Type IN (' Base','Ins titution') | |||||
| 8016 | AND ISNUME RIC(@Assig nedLocatio nKey) = 1 | |||||
| 8017 | SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key); | |||||
| 8018 | ||||||
| 8019 | IF @Evalua tedLocatio nType IN ( 'Base','In stitution' ) | |||||
| 8020 | AND ISNUME RIC(@Evalu atedLocati onKey) = 1 | |||||
| 8021 | SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey); | |||||
| 8022 | ||||||
| 8023 | -- Buil d Criteria string | |||||
| 8024 | ||||||
| 8025 | SET @Cri teria = ' AND respon seStat.QUE STIONNAIRE _COMPLETED _DATE BETW EEN ''' + CONVERT(VA RCHAR(20), @StartDate ,121) + | |||||
| 8026 | '' ' AND ''' + CONVERT( VARCHAR(20 ),@EndDate ,121) + '' ' ' ; | |||||
| 8027 | IF @Assi gnedLocati onType = ' NLA' | |||||
| 8028 | SET @C riteria = @Criteria + ' AND re g.STD_INST ITUTION_ID IS NULL ' ; | |||||
| 8029 | ||||||
| 8030 | IF @Assi gnedLocati onType = ' VISN' | |||||
| 8031 | SET @C riteria = @Criteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' + | |||||
| 8032 | ' WHERE inst .ID = reg. STD_INSTIT UTION_ID ' + | |||||
| 8033 | 'AND inst .VisnID = ''' + @Ass ignedLocat ionKey + ' '') '; | |||||
| 8034 | ||||||
| 8035 | IF @Assi gnedLocati onType = ' Base' | |||||
| 8036 | SET @C riteria = @Criteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' + | |||||
| 8037 | ' WHERE inst .ID = reg. STD_INSTIT UTION_ID ' + | |||||
| 8038 | 'AND inst .BASE_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId) + ' ) '; | |||||
| 8039 | ||||||
| 8040 | IF @Assi gnedLocati onType = ' Institutio n' | |||||
| 8041 | SET @C riteria = @Criteria + ' AND re g.STD_INST ITUTION_ID = ' + CON VERT(VARCH AR(20),@As signedInst itutionId) + ' ' | |||||
| 8042 | ||||||
| 8043 | IF @Eval uatedLocat ionType = 'NLA' | |||||
| 8044 | SET @C riteria = @Criteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' + | |||||
| 8045 | 'WHERE eval.REGI STRANT_ID = Reg.REGI STRANT_ID ' + | |||||
| 8046 | 'AN D eval.EVA LUATION_FL AG = ''Y'' ) '; | |||||
| 8047 | ||||||
| 8048 | IF @Eval uatedLocat ionType = 'VISN' | |||||
| 8049 | SET @C riteria = @Criteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' + | |||||
| 8050 | 'JO IN AHOBPR. VIEW_FACIL ITY_LOOKUP inst ON i nst.ID = e val.STD_IN STITUTION_ ID ' + | |||||
| 8051 | ' WHE RE eval.RE GISTRANT_I D = Reg.RE GISTRANT_I D ' + | |||||
| 8052 | 'A ND inst.Vi snID = ''' + @Evalu atedLocati onKey + '' ' ' + | |||||
| 8053 | 'A ND eval.EV ALUATION_F LAG = ''Y' ') ' ; | |||||
| 8054 | ||||||
| 8055 | IF @Eval uatedLocat ionType = 'Base' | |||||
| 8056 | SET @C riteria = @Criteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' + | |||||
| 8057 | 'JO IN AHOBPR. VIEW_FACIL ITY_LOOKUP inst ON i nst.ID = e val.STD_IN STITUTION_ ID ' + | |||||
| 8058 | ' WHE RE eval.RE GISTRANT_I D = Reg.RE GISTRANT_I D ' + | |||||
| 8059 | ' AND inst .BASE_ID = ' + CONVE RT(VARCHAR (20),@Eval uatedInsti tutionId) + | |||||
| 8060 | ' AND ev al.EVALUAT ION_FLAG = ''Y'') '; | |||||
| 8061 | IF @Eval uatedLocat ionType = 'Instituti on' | |||||
| 8062 | SET @C riteria = @Criteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' + | |||||
| 8063 | ' WHERE eval .REGISTRAN T_ID = Reg .REGISTRAN T_ID '+ | |||||
| 8064 | ' AND eval .STD_INSTI TUTION_ID = ' + CONV ERT(VARCHA R(20),@Eva luatedInst itutionId) + | |||||
| 8065 | ' AND eval .EVALUATIO N_FLAG = ' 'Y'') '; | |||||
| 8066 | ||||||
| 8067 | -- @Par ticipantSt atusCount | |||||
| 8068 | SET @Que ry = ' SEL ECT @Parti cipantStat usCount = COUNT(*) ' + | |||||
| 8069 | ' F ROM [AHOBP R].[REGIST RANT] reg ' + | |||||
| 8070 | ' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' + | |||||
| 8071 | ' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' + | |||||
| 8072 | ' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID ' | |||||
| 8073 | + @Cri teria | |||||
| 8074 | + ' A ND stat.RE GISTRANT_S TATUS = '' Participan t'' '; | |||||
| 8075 | ||||||
| 8076 | PRINT @Q uery; | |||||
| 8077 | EXEC sp_ executesql @Query, N'@Partici pantStatus Count INT OUTPUT', @Partici pantStatus Count OUTP UT; | |||||
| 8078 | ||||||
| 8079 | ||||||
| 8080 | -- @H ealthConce rnsCount | |||||
| 8081 | SET @Que ry = ' SEL ECT @Healt hConcernsC ount = COU NT(*) ' + | |||||
| 8082 | ' F ROM [AHOBP R].[REGIST RANT] reg ' + | |||||
| 8083 | ' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' + | |||||
| 8084 | ' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' + | |||||
| 8085 | ' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID ' | |||||
| 8086 | + ' WH ERE reg.HE ALTH_CONCE RNS_RESPON SE = ''Yes '' ' | |||||
| 8087 | + @Cri teria; | |||||
| 8088 | ||||||
| 8089 | PRINT @Q uery; | |||||
| 8090 | EXEC sp_ executesql @Query, N'@HealthC oncernsCou nt INT OUT PUT', @ HealthConc ernsCount OUTPUT; | |||||
| 8091 | ||||||
| 8092 | -- @NoH ealthConce rnsCount | |||||
| 8093 | SET @Que ry = ' SEL ECT @NoHea lthConcern sCount = C OUNT(*) ' + | |||||
| 8094 | ' F ROM [AHOBP R].[REGIST RANT] reg ' + | |||||
| 8095 | ' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' + | |||||
| 8096 | ' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' + | |||||
| 8097 | ' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID ' | |||||
| 8098 | + ' WH ERE reg.HE ALTH_CONCE RNS_RESPON SE IS NULL ' | |||||
| 8099 | + @Cri teria; | |||||
| 8100 | ||||||
| 8101 | PRINT @Q uery; | |||||
| 8102 | EXEC sp_ executesql @Query, N'@NoHealt hConcernsC ount INT O UTPUT', @NoHealth ConcernsCo unt OUTPUT ; | |||||
| 8103 | ||||||
| 8104 | ||||||
| 8105 | -- @Req uestSeenCo unt | |||||
| 8106 | SET @Que ry = ' SEL ECT @Reque stSeenCoun t = COUNT( *) ' + | |||||
| 8107 | ' F ROM [AHOBP R].[REGIST RANT] reg ' + | |||||
| 8108 | ' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' + | |||||
| 8109 | ' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' + | |||||
| 8110 | ' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID ' | |||||
| 8111 | + ' WH ERE reg.RE QUEST_SEEN _RESPONSE = ''Yes'' ' | |||||
| 8112 | + @Cri teria; | |||||
| 8113 | ||||||
| 8114 | PRINT @Q uery; | |||||
| 8115 | EXEC sp_ executesql @Query, N'@Request SeenCount INT OUTPUT ', @Req uestSeenCo unt OUTPUT ; | |||||
| 8116 | ||||||
| 8117 | -- @NoR equestSeen Count | |||||
| 8118 | SET @Que ry = ' SEL ECT @NoReq uestSeenCo unt = COUN T(*) ' + | |||||
| 8119 | ' F ROM [AHOBP R].[REGIST RANT] reg ' + | |||||
| 8120 | ' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' + | |||||
| 8121 | ' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' + | |||||
| 8122 | ' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID ' | |||||
| 8123 | + ' WH ERE reg.RE QUEST_SEEN _RESPONSE = ''No'' ' | |||||
| 8124 | + @Cri teria; | |||||
| 8125 | ||||||
| 8126 | PRINT @Q uery; | |||||
| 8127 | EXEC sp_ executesql @Query, N'@NoReque stSeenCoun t INT OUTP UT', @N oRequestSe enCount OU TPUT; | |||||
| 8128 | ||||||
| 8129 | -- @DoN otKnowRequ estSeenCou nt | |||||
| 8130 | SET @Que ry = ' SEL ECT @DoNot KnowReques tSeenCount = COUNT(* ) ' + | |||||
| 8131 | ' F ROM [AHOBP R].[REGIST RANT] reg ' + | |||||
| 8132 | ' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' + | |||||
| 8133 | ' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' + | |||||
| 8134 | ' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID ' | |||||
| 8135 | + ' WH ERE ISNULL (reg.REQUE ST_SEEN_RE SPONSE,''' ') NOT IN (''Yes'',' 'No'') ' | |||||
| 8136 | + @Cri teria; | |||||
| 8137 | ||||||
| 8138 | PRINT @Q uery; | |||||
| 8139 | EXEC sp_ executesql @Query, N'@DoNotKn owRequestS eenCount I NT OUTPUT' , @DoNotKn owRequestS eenCount O UTPUT; | |||||
| 8140 | ||||||
| 8141 | -- @Act iveDutySer viceStatus Count | |||||
| 8142 | SET @Que ry = ' SEL ECT @Activ eDutyServi ceStatusCo unt = COUN T(*) ' + | |||||
| 8143 | ' F ROM [AHOBP R].[REGIST RANT] reg ' + | |||||
| 8144 | ' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' + | |||||
| 8145 | ' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' + | |||||
| 8146 | ' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID ' + | |||||
| 8147 | ' J OIN AHOBPR .STD_SERVI CE_STATUS svc ON sv c.STD_SERV ICE_STATUS _ID = reg. STD_SERVIC E_STATUS_I D ' | |||||
| 8148 | + ' WH ERE svc.SE RVICE_STAT US = ''Act ive Duty'' ' | |||||
| 8149 | + @Cri teria; | |||||
| 8150 | ||||||
| 8151 | PRINT @Q uery; | |||||
| 8152 | EXEC sp_ executesql @Query, N'@ActiveD utyService StatusCoun t INT OUTP UT', @Acti veDutyServ iceStatusC ount OUTPU T; | |||||
| 8153 | ||||||
| 8154 | ||||||
| 8155 | -- @Vet eranServic eStatusCou nt | |||||
| 8156 | SET @Que ry = ' SEL ECT @Veter anServiceS tatusCount = COUNT(* ) ' + | |||||
| 8157 | ' F ROM [AHOBP R].[REGIST RANT] reg ' + | |||||
| 8158 | ' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' + | |||||
| 8159 | ' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' + | |||||
| 8160 | ' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID ' + | |||||
| 8161 | ' J OIN AHOBPR .STD_SERVI CE_STATUS svc ON sv c.STD_SERV ICE_STATUS _ID = reg. STD_SERVIC E_STATUS_I D ' | |||||
| 8162 | + ' WH ERE svc.SE RVICE_STAT US = ''Sep arated'' ' | |||||
| 8163 | + @Cri teria; | |||||
| 8164 | ||||||
| 8165 | PRINT @Q uery; | |||||
| 8166 | EXEC sp_ executesql @Query, N'@Veteran ServiceSta tusCount I NT OUTPUT' , @Veteran ServiceSta tusCount O UTPUT; | |||||
| 8167 | ||||||
| 8168 | -- @Ret ireeServic eStatusCou nt | |||||
| 8169 | SET @Que ry = ' SEL ECT @Retir eeServiceS tatusCount = COUNT(* ) ' + | |||||
| 8170 | ' F ROM [AHOBP R].[REGIST RANT] reg ' + | |||||
| 8171 | ' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' + | |||||
| 8172 | ' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' + | |||||
| 8173 | ' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID ' + | |||||
| 8174 | ' J OIN AHOBPR .STD_SERVI CE_STATUS svc ON sv c.STD_SERV ICE_STATUS _ID = reg. STD_SERVIC E_STATUS_I D ' | |||||
| 8175 | + ' WH ERE svc.SE RVICE_STAT US = ''Ret iree'' ' | |||||
| 8176 | + @Cri teria; | |||||
| 8177 | ||||||
| 8178 | PRINT @Q uery; | |||||
| 8179 | EXEC sp_ executesql @Query, N'@Retiree ServiceSta tusCount I NT OUTPUT' , @Retiree ServiceSta tusCount O UTPUT; | |||||
| 8180 | ||||||
| 8181 | ||||||
| 8182 | ||||||
| 8183 | -- Deploym ent Counts | |||||
| 8184 | SET @Que ry = 'WITH Deploymen ts | |||||
| 8185 | AS ( | |||||
| 8186 | SELECT | |||||
| 8187 | dp ly.REGISTR ANT_ID , | |||||
| 8188 | CASE WHEN (SUM (CASE WHEN [DEPLOYME NT_COUNTRY ] = ''Iraq '' | |||||
| 8189 | AND [DEPLOYME NT_START_D ATE] > ''2 0010911'' | |||||
| 8190 | THE N 1 ELSE 0 END) )> 0 | |||||
| 8191 | THEN 1 EL SE 0 END A S Iraq911C ount, | |||||
| 8192 | CASE WHEN (SUM (CASE WHEN [DEPLOYME NT_COUNTRY ] = ''Afgh anistan'' | |||||
| 8193 | AND [DEPLOYME NT_START_D ATE] > ''2 0010911'' | |||||
| 8194 | THEN 1 ELSE 0 END)) > 0 | |||||
| 8195 | THEN 1 EL SE 0 END A S Afgh911C ount, | |||||
| 8196 | CASE WHEN (SUM (CASE WHEN [DEPLOYME NT_COUNTRY ] = ''Djib outi'' | |||||
| 8197 | AND [DEPLOYME NT_START_D ATE] > ''2 0010911'' | |||||
| 8198 | THEN 1 ELSE 0 END)) > 0 | |||||
| 8199 | THEN 1 EL SE 0 END A S Djibouti 911Count, | |||||
| 8200 | CASE WHEN (SUM (CASE WHEN [DEPLOYME NT_COUNTRY ] IN (''Ku wait'',''S audi Arabi a'',''Bahr ain'', ''G ulf of Ade n'', ''Gul f of Oman' ', ''Oman' ', ''Qatar '', ''Unit ed Arab Em irates'', ''Persian Gulf'', '' Arabian Se a'', ''Red Sea'') | |||||
| 8201 | AND [DEPLOYME NT_START_D ATE] > ''2 0010911'' | |||||
| 8202 | THE N 1 ELSE 0 END)) > 0 | |||||
| 8203 | THEN 1 EL SE 0 END A S SWA911Co unt, | |||||
| 8204 | CASE WHEN (SUM (CASE WHEN ([DEPLOYM ENT_START_ DATE] BETW EEN ''1990 0802'' AND ''2001091 1'' ) | |||||
| 8205 | AND [DEPLOYM ENT_COUNTR Y] IN (''I raq'',''Ku wait'',''S audi Arabi a'',''Bahr ain'', ''G ulf of Ade n'', ''Gul f of Oman' ', ''Oman' ', ''Qatar '', ''Unit ed Arab Em irates'', ''Persian Gulf'', '' Arabian Se a'', ''Red Sea'') | |||||
| 8206 | THEN 1 ELSE 0 END)) > 0 | |||||
| 8207 | THEN 1 EL SE 0 END AS Pre911C ount | |||||
| 8208 | FROM [ AHOBPR].[R EGISTRANT_ DEPLOYMENT ] dply | |||||
| 8209 | JO IN AHOBPR. REGISTRANT Reg ON Re g.REGISTRA NT_ID = dp ly.REGISTR ANT_ID | |||||
| 8210 | JO IN AHOBPR. FORM_RESPO NSE resp O N resp.REG ISTRANT_ID = dply.RE GISTRANT_I D | |||||
| 8211 | JO IN AHOBPR. FORM_RESPO NSE_STATUS responseS tat ON res ponseStat. FORM_RESPO NSE_ID = r esp.FORM_R ESPONSE_ID | |||||
| 8212 | JO IN AHOBPR. FORM_RESPO NSE_QUESTI ON exposur e ON dply. REGISTRANT _DEPLOYMEN T_ID = exp osure.REGI STRANT_DEP LOYMENT_ID | |||||
| 8213 | JOIN A HOBPR.STD_ FORM_QUEST ION quest ON exposur e.STD_FORM _QUESTION_ ID = quest .STD_FORM_ QUESTION_I D | |||||
| 8214 | WHERE q uest.FORM_ QUESTION_U NIQUE_ID = ''1.2.A'' ' + | |||||
| 8215 | @Criter ia + | |||||
| 8216 | ' GROU P BY dply. REGISTRANT _ID | |||||
| 8217 | ) | |||||
| 8218 | SELEC T @Afgh911 Count = S UM(ISNULL( Deployment s.Afgh911C ount,0)) | |||||
| 8219 | ,@Iraq911 Count = S UM(ISNULL( Deployment s.Iraq911C ount,0)) | |||||
| 8220 | ,@SWA911C ount = SUM (ISNULL(De ployments. SWA911Coun t,0)) | |||||
| 8221 | ,@Pre911C ount = S UM(ISNULL( Deployment s.Pre911Co unt,0)) | |||||
| 8222 | ,@Djibout i911Count = SUM(ISNU LL(Deploym ents.Djibo uti911Coun t,0)) | |||||
| 8223 | FROM Deploymen ts' ; | |||||
| 8224 | ||||||
| 8225 | PRINT @Q uery; | |||||
| 8226 | EXEC sp_ executesql @Query, | |||||
| 8227 | N'@ Afgh911Cou nt INT OUT PUT, @Iraq 911Count I NT OUTPUT, @SWA911Co unt INT OU TPUT, @Pre 911Count I NT OUTPUT, @Djibouti 911Count I NT OUTPUT' | |||||
| 8228 | , @A fgh911Coun t OUTPUT, @Iraq911Co unt OUTPUT , @SWA911C ount OUTPU T, @Pre911 Count OUTP UT, @Djibo uti911Coun t OUTPUT; | |||||
| 8229 | ||||||
| 8230 | ||||||
| 8231 | CREAT E TABLE #D aysToParti cipant(DAY S INT); | |||||
| 8232 | ||||||
| 8233 | -- Med ian Days f rom Eligib le to Part icipant St atus | |||||
| 8234 | -- Not e that onl y Registra nts with B oth values and DateP articipant > DateEli gible will be counte d for eith er Numerat or or Deno minator | |||||
| 8235 | ||||||
| 8236 | SET @Q uery = 'WI TH eligibl e | |||||
| 8237 | AS ( | |||||
| 8238 | SELECT [RE GISTRANT_I D],MIN([CR EATED]) AS DateEligi ble | |||||
| 8239 | FROM [AH OBPR].[PRO CESS_METRI CS] | |||||
| 8240 | WHERE [PR OCESS_METR ICS_VALUE] = ''Eligi ble'' | |||||
| 8241 | GROUP BY [REGISTRAN T_ID] | |||||
| 8242 | ) , | |||||
| 8243 | part icipant | |||||
| 8244 | AS ( | |||||
| 8245 | S ELECT [REG ISTRANT_ID ],MAX([CRE ATED]) AS DatePartic ipant | |||||
| 8246 | FROM [AHO BPR].[PROC ESS_METRIC S] | |||||
| 8247 | WHERE [PRO CESS_METRI CS_VALUE] = ''Partic ipant'' | |||||
| 8248 | GROUP BY [REGISTRAN T_ID] | |||||
| 8249 | ) | |||||
| 8250 | INSER T INTO #Da ysToPartic ipant(DAYS ) | |||||
| 8251 | SELECT | |||||
| 8252 | CASE WHEN Date Participan t > DateEl igible THE N DATEDIFF (Day,DateE ligible,Da teParticip ant) ELSE 0 END AS D aysDiffere nce | |||||
| 8253 | FROM [AHOBPR]. [REGISTRAN T] reg | |||||
| 8254 | JOIN eligible ON reg.REG ISTRANT_ID = eligibl e.REGISTRA NT_ID | |||||
| 8255 | JOIN participa nt ON reg. REGISTRANT _ID = part icipant.RE GISTRANT_I D | |||||
| 8256 | JOIN AHOBPR.FO RM_RESPONS E resp ON resp.REGIS TRANT_ID = reg.REGIS TRANT_ID | |||||
| 8257 | JOIN AHOBPR.FO RM_RESPONS E_STATUS r esponseSta t ON respo nseStat.FO RM_RESPONS E_ID = res p.FORM_RES PONSE_ID ' + | |||||
| 8258 | 'WHERE 1 = 1 ' + @Criteri a + | |||||
| 8259 | ' ORDER BY DaysDi fference'; | |||||
| 8260 | ||||||
| 8261 | PRINT @Q uery; | |||||
| 8262 | EXECUTE( @Query); | |||||
| 8263 | ||||||
| 8264 | WITH C ounts AS | |||||
| 8265 | ( | |||||
| 8266 | SEL ECT c=COUN T(*) | |||||
| 8267 | FRO M #DaysToP articipant | |||||
| 8268 | ) | |||||
| 8269 | SELECT @MedianDa ysToPartic ipant = AV G(0. + DAY S) | |||||
| 8270 | FROM C ounts a | |||||
| 8271 | CROSS APPLY | |||||
| 8272 | ( | |||||
| 8273 | SEL ECT TOP((( a.c - 1) / 2) + (1 + (1 - a.c % 2))) | |||||
| 8274 | DAYS, r=RO W_NUMBER() OVER (ORD ER BY DAYS ) | |||||
| 8275 | FRO M #DaysToP articipant b | |||||
| 8276 | ORD ER BY DAYS | |||||
| 8277 | ) p | |||||
| 8278 | WHERE r BETWEEN ((a.c - 1) / 2) + 1 AND (((a.c - 1) / 2) + (1 + (1 - a.c % 2 ))); | |||||
| 8279 | ||||||
| 8280 | DROP TABLE #Day sToPartici pant; | |||||
| 8281 | ||||||
| 8282 | -- Return Results | |||||
| 8283 | SELECT ISNULL(@Pa rticipantS tatusCount ,0) AS Par ticipantSt atusCount, | |||||
| 8284 | ISNULL(@He althConcer nsCount,0) AS Report edHealthCo ncernsCoun t, | |||||
| 8285 | ISNULL(@No HealthConc ernsCount, 0) AS NoR eportedHea lthConcern sCount, | |||||
| 8286 | ISNULL(@Re questSeenC ount,0) AS RequestSe enCount, | |||||
| 8287 | ISNULL(@No RequestSee nCount,0) AS NoReque stSeenCoun t, | |||||
| 8288 | ISNULL(@Do NotKnowReq uestSeenCo unt,0) AS DoNotKnowR equestSeen Count, | |||||
| 8289 | ISNULL(@Ve teranServi ceStatusCo unt,0) AS VeteranSer viceStatus Count , | |||||
| 8290 | ISNULL(@Ac tiveDutySe rviceStatu sCount,0) AS Active DutyServic eStatusCou nt, | |||||
| 8291 | ISNULL(@Re tireeServi ceStatusCo unt,0) AS RetireeSer viceStatus Count, | |||||
| 8292 | ISNULL(@Af gh911Count ,0) AS Af gh911Count , | |||||
| 8293 | ISNULL(@Ir aq911Count ,0) AS Ira q911Count, | |||||
| 8294 | ISNULL(@SW A911Count, 0) AS Sou thWestAsia 911Count, | |||||
| 8295 | ISNULL(@Pr e911Count, 0) AS Pre 911Count, | |||||
| 8296 | ISNULL(@Me dianDaysTo Participan t,0.0) AS MedianDays ToParticip ant, | |||||
| 8297 | ISNULL(@Dj ibouti911C ount,0) AS Djibouti9 11Count ; | |||||
| 8298 | ||||||
| 8299 | END | |||||
| 8300 | ||||||
| 8301 | -- exec [A HOBPR].[SP _ReportPar ticipation ] | |||||
| 8302 | -- exec [A HOBPR].[SP _ReportPar ticipation ] @Assigne dLocationT ype = 'NLA ' | |||||
| 8303 | -- exec [A HOBPR].[SP _ReportPar ticipation ] @Assigne dLocationT ype = 'VIS N', @Assig nedLocatio nKey = 'V1 6' | |||||
| 8304 | -- exec [A HOBPR].[SP _ReportPar ticipation ] @Assigne dLocationT ype = 'Bas e', @Assig nedLocatio nKey = '10 00089' | |||||
| 8305 | -- exec [A HOBPR].[SP _ReportPar ticipation ] @Assigne dLocationT ype = 'Ins titution', @Assigned LocationKe y = '10000 89' | |||||
| 8306 | -- exec [A HOBPR].[SP _ReportPar ticipation ] | |||||
| 8307 | -- exec [A HOBPR].[SP _ReportPar ticipation ] @Evaluat edLocation Type = 'NL A' | |||||
| 8308 | -- exec [A HOBPR].[SP _ReportPar ticipation ] @Evaluat edLocation Type = 'VI SN', @Eval uatedLocat ionKey = ' V16' | |||||
| 8309 | -- exec [A HOBPR].[SP _ReportPar ticipation ] @Evaluat edLocation Type = 'Ba se', @Eval uatedLocat ionKey = ' 1000089' | |||||
| 8310 | -- exec [A HOBPR].[SP _ReportPar ticipation ] @Evaluat edLocation Type = 'In stitution' , @Evaluat edLocation Key = '100 0089' | |||||
| 8311 | GO | |||||
| 8312 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 8313 | ||||||
| 8314 | ||||||
| 8315 | GO | |||||
| 8316 | PRINT N'Cr eating [AH OBPR].[SP_ ClearProce ssMetrics] ...'; | |||||
| 8317 | ||||||
| 8318 | ||||||
| 8319 | GO | |||||
| 8320 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 8321 | ||||||
| 8322 | ||||||
| 8323 | GO | |||||
| 8324 | -- ======= ========== ========== ========== ======== | |||||
| 8325 | -- Author: Bruce Clegg | |||||
| 8326 | -- Create date: July , 13 2015 | |||||
| 8327 | -- Descrip tion: Call ed from Mi rgation ro utine to r emove any Process Me trics reco rds create d, | |||||
| 8328 | -- as t hey do not have vail d dates. | |||||
| 8329 | CREATE PRO CEDURE [AH OBPR].[SP_ ClearProce ssMetrics] AS | |||||
| 8330 | BEGIN | |||||
| 8331 | SE T NOCOUNT ON; | |||||
| 8332 | ||||||
| 8333 | TR UNCATE TAB LE [AHOBPR ].[PROCESS _METRICS]; | |||||
| 8334 | ||||||
| 8335 | END | |||||
| 8336 | GO | |||||
| 8337 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 8338 | ||||||
| 8339 | ||||||
| 8340 | GO | |||||
| 8341 | PRINT N'Cr eating [AH OBPR].[SP_ ReportAdHo cByLocatio n]...'; | |||||
| 8342 | ||||||
| 8343 | ||||||
| 8344 | GO | |||||
| 8345 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 8346 | ||||||
| 8347 | ||||||
| 8348 | GO | |||||
| 8349 | -- ======= ========== ========== ========== ======== | |||||
| 8350 | -- Author: Debora h Barr | |||||
| 8351 | -- Create date: Nove mber 12, 2 014 | |||||
| 8352 | -- Descrip tion: Used for the A HOBPR Ad H oc Report | |||||
| 8353 | ||||||
| 8354 | -- Modific ation log | |||||
| 8355 | -- 2014-12 -31 - Chan ged from F LAG to RES PONSE for Health Con cerns and REQUEST_SE EN, Reform atted stat ements for readabili ty | |||||
| 8356 | -- 2015-01 -05 - Chan ge Date Fo rmat to MM /DD/YYYY | |||||
| 8357 | -- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ healthFact or, @formS tartFromDa te, @formS tartToDate , @subpopu lationFlag | |||||
| 8358 | -- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ adminFlag, @deployme ntAll, @de ploymentEx posure, @a dminFlagFr omDate, @a dminFlagTo Date | |||||
| 8359 | -- 2015-01 -16 - Bruc e Clegg - Fix parame ters, Add distinct a nd outer q uery to gr oup counts . | |||||
| 8360 | -- 2015-02 -09 - Bruc e Clegg - Change Hea lth Factor Exists st atements t o use new REGISTRANT _VISIT | |||||
| 8361 | -- 2015-05 -07 - Bruc e Clegg - Change Fac ility name from "Oth er" to "No Facitilty Assigned" when not found | |||||
| 8362 | -- 2015-06 -04 - Bruc e Clegg - Add more p arameters | |||||
| 8363 | -- 2015-06 -18 - Bruc e Clegg - Changed @s eparationT ype to an Integer | |||||
| 8364 | -- 2015-07 -09 - Bruc e Clegg - Rewrote as Dynamic S QL for per formance | |||||
| 8365 | -- ======= ========== ========== ========== ======== | |||||
| 8366 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportAdHo cByLocatio n] | |||||
| 8367 | @st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL | |||||
| 8368 | @du tyStatus v archar(100 ) = NULL, -- Multipl e states, comma-sepa rated valu es when no t NULL | |||||
| 8369 | @fo rmStartFro mDateText varchar(10 0) = NULL, | |||||
| 8370 | @fo rmStartToD ateText va rchar(100) = NULL, | |||||
| 8371 | @he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL | |||||
| 8372 | @fo rmCompleti onFromDate Text varch ar(100) = NULL, | |||||
| 8373 | @fo rmCompleti onToDateTe xt varchar (100) = NU LL, | |||||
| 8374 | @qu estionNumb er varchar (100) = NU LL, | |||||
| 8375 | @an swer varch ar(100) = NULL, | |||||
| 8376 | @he althConcer ns varchar (10) = 'Al l', | |||||
| 8377 | @re questToBeS een varcha r(10) = 'A ll', | |||||
| 8378 | @gr oupBy VARC HAR(50) = '', -- 'VISN' or 'Facili ty' | |||||
| 8379 | @su bpopulatio nFlag varc har (10) = NULL, | |||||
| 8380 | @ad minFlag va rchar (10) = NULL, | |||||
| 8381 | @de ploymentAl l varchar (256) = NU LL, | |||||
| 8382 | @de ploymentEx posure var char (256) = NULL, | |||||
| 8383 | @ad minFlagFro mDateText varchar (2 0) = NULL, | |||||
| 8384 | @ad minFlagToD ateText va rchar (20) = NULL, | |||||
| 8385 | @ex cludeDead varchar(1) = 'N', | |||||
| 8386 | @ge nder varch ar(50) = ' ', | |||||
| 8387 | @ra ce varchar (50) = '', | |||||
| 8388 | @et hnicity va rchar(50) = '', | |||||
| 8389 | @se parationTy pe INT = 0 , | |||||
| 8390 | @se parationFr omDateText varchar ( 20) = NULL , | |||||
| 8391 | @se parationTo DateText v archar (20 ) = NULL, | |||||
| 8392 | @en rollmentSt atus varch ar(50) = ' ' | |||||
| 8393 | AS | |||||
| 8394 | ||||||
| 8395 | BEGIN | |||||
| 8396 | ||||||
| 8397 | DECLARE @formStart FromDate D ATETIME2(0 ) = NULL, | |||||
| 8398 | @formStart ToDate DAT ETIME2(0) = NULL, | |||||
| 8399 | @formCompl etionFromD ate DATETI ME2(0) = N ULL, | |||||
| 8400 | @formCompl etionToDat e DATETIME 2(0) = NUL L, | |||||
| 8401 | @adminFlag FromDate D ATETIME2(0 ) = NULL, | |||||
| 8402 | @adminFlag ToDate DAT ETIME2(0) = NULL, | |||||
| 8403 | @separatio nFromDate DATETIME2( 0) = NULL, | |||||
| 8404 | @separatio nToDate DA TETIME2(0) = NULL; | |||||
| 8405 | ||||||
| 8406 | DECLARE @Query VAR CHAR(8000) ; | |||||
| 8407 | ||||||
| 8408 | -- Conve rt date pa rameters | |||||
| 8409 | ||||||
| 8410 | SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext); | |||||
| 8411 | SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text)); | |||||
| 8412 | SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext); | |||||
| 8413 | SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text)); | |||||
| 8414 | SET @adm inFlagFrom Date = dbo .CleanDate (@adminFla gFromDateT ext); | |||||
| 8415 | SET @adm inFlagToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@admin FlagToDate Text)); | |||||
| 8416 | SET @sep arationFro mDate = db o.CleanDat e(@separat ionFromDat eText); | |||||
| 8417 | SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText)); | |||||
| 8418 | ||||||
| 8419 | -- Build Src TDE | |||||
| 8420 | SET @Que ry = ' WIT H Src | |||||
| 8421 | AS( SE LECT a.REG ISTRANT_ID , a.STD_IN STITUTION_ ID FROM AH OBPR.REGIS TRANT a WH ERE 1 = 1 '; | |||||
| 8422 | ||||||
| 8423 | IF @stat us IS NOT NULL | |||||
| 8424 | SET @Q uery = @Qu ery + ' AN D a.STD_RE GISTRANT_S TATUS_ID I N (' + @st atus + ')' ; | |||||
| 8425 | ||||||
| 8426 | IF ISNUL L(@dutySta tus,'') > '' | |||||
| 8427 | SET @Q uery = @Qu ery + ' AN D a.STD_SE RVICE_STAT US_ID IN ( ' + @dutyS tatus + ') '; | |||||
| 8428 | ||||||
| 8429 | IF @heal thConcerns != 'All' | |||||
| 8430 | SET @Q uery = @Qu ery + ' AN D a.HEALTH _CONCERNS_ RESPONSE = ''' + @he althConcer ns + ''''; | |||||
| 8431 | ||||||
| 8432 | IF @requ estToBeSee n != 'All' | |||||
| 8433 | SET @Q uery = @Qu ery + ' AN D a.REQUES T_SEEN_RES PONSE = '' ' + @reque stToBeSeen + ''''; | |||||
| 8434 | ||||||
| 8435 | IF @form StartFromD ate IS NOT NULL OR @ formStartT oDate IS N OT NULL | |||||
| 8436 | OR @form Completion FromDate I S NOT NULL OR @formC ompletionT oDate IS N OT NULL | |||||
| 8437 | BEGIN | |||||
| 8438 | SET @Query = @ Query + ' AND EXISTS ( SELECT d .REGISTRAN T_ID FROM AHOBPR.FOR M_RESPONSE d | |||||
| 8439 | JOIN AHOBP R.FORM_RES PONSE_STAT US e ON d. FORM_RESPO NSE_ID = e .FORM_RESP ONSE_ID | |||||
| 8440 | W HERE a.REG ISTRANT_ID = d.REGIS TRANT_ID ' ; | |||||
| 8441 | IF @formStar tFromDate IS NOT NUL L | |||||
| 8442 | SET @Quer y = @Query + ' AND e .QUESTIONN AIRE_START ED_DATE >= ''' + CON VERT(VARCH AR(20),@fo rmStartFro mDate,121) + ''''; | |||||
| 8443 | IF @formStar tToDate IS NOT NULL | |||||
| 8444 | SET @Quer y = @Query + ' AND e .QUESTIONN AIRE_START ED_DATE <= ''' + CON VERT(VARCH AR(20),@fo rmStartToD ate,121) + ''''; | |||||
| 8445 | IF @formComp letionFrom Date IS NO T NULL | |||||
| 8446 | SET @Quer y = @Query + ' AND e .QUESTIONN AIRE_COMPL ETED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formComple tionFromDa te,121) + ''''; | |||||
| 8447 | IF @formComp letionToDa te IS NOT NULL | |||||
| 8448 | SET @Quer y = @Query + ' AND e .QUESTIONN AIRE_COMPL ETED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formComple tionToDate ,121) + '' ''; | |||||
| 8449 | S ET @Query = @Query + ' ) ' -- Close Exis its statem ent | |||||
| 8450 | END | |||||
| 8451 | ||||||
| 8452 | IF ISNUL L(@answer, '') != '' | |||||
| 8453 | SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT fr.R EGISTRANT_ ID FROM AH OBPR.FORM_ RESPONSE_A NSWER ra ' + | |||||
| 8454 | 'JOI N AHOBPR.F ORM_RESPON SE_QUESTIO N rq ON rq .FORM_RESP ONSE_QUEST ION_ID = r a.FORM_RES PONSE_QUES TION_ID ' + | |||||
| 8455 | 'JOI N AHOBPR.F ORM_RESPON SE fr ON f r.FORM_RES PONSE_ID = rq.FORM_R ESPONSE_ID ' + | |||||
| 8456 | ' WHER E ra.STD_F ORM_ANSWER _ID IN (' + @answer + ') AND f r.REGISTRA NT_ID = a. REGISTRANT _ID )'; | |||||
| 8457 | ||||||
| 8458 | IF ISNUL L(@subpopu lationFlag ,'') != '' | |||||
| 8459 | SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _REGISTRY_ FLAG subpo p ' + | |||||
| 8460 | ' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' + | |||||
| 8461 | ' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) '; | |||||
| 8462 | ||||||
| 8463 | IF ISNULL(@a dminFlag,' ') != '' | |||||
| 8464 | SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _REGISTRY_ FLAG admin flag ' + | |||||
| 8465 | ' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' + | |||||
| 8466 | ' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' + | |||||
| 8467 | ' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) + | |||||
| 8468 | ''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) '; | |||||
| 8469 | ||||||
| 8470 | IF ISNUL L(@healthF actor,'') != '' | |||||
| 8471 | SET @Q uery = @Qu ery + ' AN D EXISTS ( SELECT re. REGISTRANT _ID FROM A HOBPR.REGI STRANT_VIS IT re ' + | |||||
| 8472 | ' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' + | |||||
| 8473 | ' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' + | |||||
| 8474 | ' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) ' | |||||
| 8475 | ||||||
| 8476 | IF ISNUL L(@deploym entAll,'') != '' | |||||
| 8477 | SET @Q uery = @Qu ery + ' AN D EXISTS ( SELECT dep l.REGISTRA NT_ID FROM AHOBPR.RE GISTRANT_D EPLOYMENT depl ' + | |||||
| 8478 | ' WHERE a.R EGISTRANT_ ID = depl. REGISTRANT _ID | |||||
| 8479 | AND dep l.DEPLOYME NT_COUNTRY = ''' + @ deployment All + ''') ' ; | |||||
| 8480 | ||||||
| 8481 | IF ISNUL L(@deploym entExposur e,'') != ' ' | |||||
| 8482 | SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT depl oymentExpo sure.REGIS TRANT_ID F ROM AHOBPR .REGISTRAN T_DEPLOYME NT deploym entExposur e ' + | |||||
| 8483 | ' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' + | |||||
| 8484 | ' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' + | |||||
| 8485 | ' WHERE qu est.FORM_Q UESTION_UN IQUE_ID = ''1.2.A'' ' + | |||||
| 8486 | ' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' + | |||||
| 8487 | ' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) '; | |||||
| 8488 | IF ISNUL L(@exclude Dead,'N') = 'Y' | |||||
| 8489 | SET @Q uery = @Qu ery + ' AN D a.DECEAS ED_FLAG = 0 '; | |||||
| 8490 | ||||||
| 8491 | IF ISNUL L(@gender, '') != '' | |||||
| 8492 | SET @Q uery = @Qu ery + ' AN D ''' + @g ender + '' ' = ISNULL (a.GENDER, ''No Data Available' ') '; | |||||
| 8493 | ||||||
| 8494 | IF ISNUL L(@ethnici ty,'') != '' | |||||
| 8495 | SET @Q uery = @Qu ery + ' AN D ''' + @e thnicity + ''' = ISN ULL(a.ETHN ICITY,''No Data Avai lable'') ' ; | |||||
| 8496 | ||||||
| 8497 | IF ISNUL L(@separat ionType,0) != 0 | |||||
| 8498 | SET @Q uery = @Qu ery + ' AN D ''' + @s eparationT ype + ''' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) '; | |||||
| 8499 | ||||||
| 8500 | IF @sepa rationFrom Date IS NO T NULL | |||||
| 8501 | SET @Q uery = @Qu ery + ' AN D a.SEPARA TION_DATE_ CURRENT >= ''' + CON VERT(VARCH AR(20),@se parationFr omDate,121 ) + ''''; | |||||
| 8502 | ||||||
| 8503 | IF @sepa rationToDa te IS NOT NULL | |||||
| 8504 | SET @Q uery = @Qu ery + ' AN D a.SEPAR ATION_DATE _CURRENT < = ''' + CO NVERT(VARC HAR(20),@s eparationT oDate,121) + ''''; | |||||
| 8505 | ||||||
| 8506 | IF ISNUL L(@race,'' ) != '' | |||||
| 8507 | SET @Q uery = @Qu ery + ' AN D ''' + @r ace + ''' = ISNULL( a.RACE ,'' No Data Av ailable'') '; | |||||
| 8508 | ||||||
| 8509 | IF ISNUL L(@enrollm entStatus, '') != '' | |||||
| 8510 | SET @Q uery = @Qu ery + ' AN D ''' + @e nrollmentS tatus + '' ' = ISNULL (a.ENROLLM ENT_STATUS ,''No Data Available '') '; | |||||
| 8511 | ||||||
| 8512 | -- Add S ummary TDE | |||||
| 8513 | SET @Que ry = @Quer y + ' ) ,Summary AS( ' + | |||||
| 8514 | ' SELE CT Src.STD _INSTITUTI ON_ID, COU NT(*) AS T otalRegist rants FROM Src ' + | |||||
| 8515 | ' GROU P BY STD_I NSTITUTION _ID ) '; | |||||
| 8516 | -- By Faci lity | |||||
| 8517 | IF @groupBy = 'Facilit y' | |||||
| 8518 | SET @Query = @Query + ' SELECT inst.Name AS Locati on, ' + | |||||
| 8519 | ' ISNULL(C ONVERT(VAR CHAR(10),S ummary.STD _INSTITUTI ON_ID),''- 1'') AS Lo cationId, ' + | |||||
| 8520 | ' SU M(TotalReg istrants) AS TotalRe gistrants FROM Summa ry ' + | |||||
| 8521 | ' JOIN AHOBPR.VI EW_INSTITU TION_NAME inst ON in st.ID = IS NULL(Summa ry.STD_INS TITUTION_I D,-1) ' + | |||||
| 8522 | ' GROUP BY inst.N ame,STD_IN STITUTION_ ID ' + | |||||
| 8523 | ' O PTION (OPT IMIZE FOR UNKNOWN);' ; | |||||
| 8524 | ||||||
| 8525 | -- By VISN | |||||
| 8526 | IF @groupBy = 'VISN' | |||||
| 8527 | SET @Quer y = @Query + ' ,Visn Summary AS ( ' + | |||||
| 8528 | ' S ELECT ISNU LL(inst.Vi snID,''NLA '') AS Loc ation, ' + | |||||
| 8529 | ' ISNU LL(inst.Vi snID, ''-1 '') AS Loc ationId, ' + | |||||
| 8530 | ' SUM( TotalRegis trants) AS TotalRegi strants ' + | |||||
| 8531 | ' FROM Summ ary ' + | |||||
| 8532 | ' LEFT JOIN AHOBPR.VI EW_FACILIT Y_LOOKUP i nst ON ins t.ID = ISN ULL(Summar y.STD_INST ITUTION_ID ,-1) ' + | |||||
| 8533 | ' GROUP BY inst.VisnI D ) ' + | |||||
| 8534 | ' S ELECT REPL ACE(Locati on,''NLA'' ,''No Faci tilty Assi gned'') AS Location, ' + | |||||
| 8535 | ' CONV ERT(VARCHA R(10),Loca tionId) AS LocationI d, TotalRe gistrants ' + | |||||
| 8536 | ' FROM Visn Summary ' + | |||||
| 8537 | ' ORDER BY L ocation ' + | |||||
| 8538 | ' OPTION (OP TIMIZE FOR UNKNOWN); ' ; | |||||
| 8539 | ||||||
| 8540 | PRINT @Q uery; | |||||
| 8541 | ||||||
| 8542 | EXECUTE (@Query); | |||||
| 8543 | END | |||||
| 8544 | -- Paramet ers | |||||
| 8545 | --@statu s, @dutySt atus ,@que stionnaire StartDate, @question naireCompl eteDate, | |||||
| 8546 | --@quest ionNumber, @answer, @healthCon cerns= 'Al l', @reque stToBeSeen = 'All', | |||||
| 8547 | --@regis tryFlag,@I nstitution Id = 0, @V isnId = '' | |||||
| 8548 | -- Test Ca ses | |||||
| 8549 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @st atus = '6, 7' | |||||
| 8550 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @du tyStatus = '1,2' | |||||
| 8551 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @fo rmStartFro mDateText = '200101 01' | |||||
| 8552 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @fo rmStartToD ateText = '20141231' | |||||
| 8553 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @he althFactor = '44,45, 46,47' | |||||
| 8554 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @fo rmCompleti onFromDate Text = '2 0010101' | |||||
| 8555 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @fo rmCompleti onToDateTe xt = '201 41231' | |||||
| 8556 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @he althConcer ns = 'Yes' | |||||
| 8557 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @re questToBeS een = 'Yes ' | |||||
| 8558 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @su bpopulatio nFlag = '6 4,65,66,67 ' | |||||
| 8559 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @de ploymentAl l = 'Iraq' -- 'Eg ypt' | |||||
| 8560 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @de ploymentEx posure = 'Iraq' | |||||
| 8561 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @ad minFlag = '59,60' ,@ adminFlagF romDateTex t = '20150 101' , @ad minFlagToD ateText = '20150201' | |||||
| 8562 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @qu estionNumb er = '1.2. E' , @ans wer = '234 6,1571,17' | |||||
| 8563 | -- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = ' Facility' , @status = '6,7' ,@ answer = ' 2346,1571, 17' -- ' 20,795,157 0' | |||||
| 8564 | GO | |||||
| 8565 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 8566 | ||||||
| 8567 | ||||||
| 8568 | GO | |||||
| 8569 | PRINT N'Cr eating [AH OBPR].[SP_ ReportPart icipantDet ails]...'; | |||||
| 8570 | ||||||
| 8571 | ||||||
| 8572 | GO | |||||
| 8573 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 8574 | ||||||
| 8575 | ||||||
| 8576 | GO | |||||
| 8577 | -- ======= ========== ========== ========== ======== | |||||
| 8578 | -- Author: Bruce Clegg | |||||
| 8579 | -- Create date: Jan 5, 2015 | |||||
| 8580 | -- Descrip tion: Used for the A HOBPR Part icipation Report Dri lldown -- exec [AHO BPR].[SP_R eportParti cipantDeta ils] (M ore option s at botto m) | |||||
| 8581 | -- 2015033 0 - Bruce Clegg - Ad ded VisnId value of NLA to fin d Null loc ations | |||||
| 8582 | -- 2015042 7 - Bruce Clegg - Ch ange to Lo cationType and Key, for both A ssigned an d Evaluate d Location s | |||||
| 8583 | -- 2015050 4 - Bruce Clegg - Fi x @Request Seen selec tion logic to match Participat ion Report | |||||
| 8584 | -- 2015071 0 - Bruce Clegg - Re write usin g Dynamic SQL for Pe rformance | |||||
| 8585 | -- ======= ========== ========== ========== ======== | |||||
| 8586 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportPart icipantDet ails] | |||||
| 8587 | @St artDate DA TETIME2(0) = NULL, | |||||
| 8588 | @En dDate DATE TIME2(0) = NULL, | |||||
| 8589 | @Re gistrantSt atus VARC HAR(50) = '', -- 'P articipant ', 'Review - Not Eli gible', 'E ligible', 'No Consen t', 'Conse nt', 'Revi ew' | |||||
| 8590 | @Sv cStatus V ARCHAR(50) = '', -- 'V eteran', ' Retiree', 'Active Du ty' | |||||
| 8591 | @Re questSeen VARCHAR(5 0) = '', -- 'Y es', 'No', 'Unknown' | |||||
| 8592 | @He althConcer n VARCHAR (50) = '', -- 'Y es', 'No' | |||||
| 8593 | @De ploymentGr oup VARCHA R(50) = '' , -- 'A fgh911', ' Iraq911', 'Southwest AsiaAfter9 11', 'Pre9 11', 'Dji boutiAfter 911' | |||||
| 8594 | @As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned | |||||
| 8595 | @As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089 | |||||
| 8596 | @Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned | |||||
| 8597 | @Ev aluatedLoc ationKey VARCHAR(50 ) = NULL -- 'V16', 'V01' 1000109, 1000089 | |||||
| 8598 | AS | |||||
| 8599 | BEGIN | |||||
| 8600 | ||||||
| 8601 | SET @Sta rtDate = I SNULL(@Sta rtDate,'19 900802'); | |||||
| 8602 | SET @End Date = ISN ULL(@EndDa te, GetDat e()); | |||||
| 8603 | SET @End Date = dbo .AddMaxTim e(@EndDate ); -- Add s 23:59:59 to criter ia paramet er | |||||
| 8604 | ||||||
| 8605 | DECLARE @AssignedI nstitution Id INT = 0 , | |||||
| 8606 | @Evaluated Institutio nId INT = 0; | |||||
| 8607 | DECLARE @Query NVA RCHAR(MAX) ; | |||||
| 8608 | ||||||
| 8609 | IF @Assi gnedLocati onType IN ('Base','I nstitution ') | |||||
| 8610 | AND ISNU MERIC(@Ass ignedLocat ionKey) = 1 | |||||
| 8611 | SET @A ssignedIns titutionId = CONVERT (INT,@Assi gnedLocati onKey); | |||||
| 8612 | ||||||
| 8613 | IF @Eval uatedLocat ionType IN ('Base',' Institutio n') | |||||
| 8614 | AND ISNU MERIC(@Eva luatedLoca tionKey) = 1 | |||||
| 8615 | SET @E valuatedIn stitutionI d = CONVER T(INT,@Eva luatedLoca tionKey); | |||||
| 8616 | ||||||
| 8617 | --Temp t able for D eployments | |||||
| 8618 | CREATE T ABLE #Depl oyments | |||||
| 8619 | ( | |||||
| 8620 | [REGISTRA NT_ID] INT | |||||
| 8621 | ); | |||||
| 8622 | ||||||
| 8623 | -- INSER T Registra nts if the y are in t he Deploym ent Group | |||||
| 8624 | SET @Que ry = ' INS ERT INTO # Deployment s([REGISTR ANT_ID]) ' + | |||||
| 8625 | ' SEL ECT DISTIN CT deploym ent.REGIST RANT_ID ' + | |||||
| 8626 | ' F ROM AHOBPR .REGISTRAN T_DEPLOYME NT deploym ent ' + | |||||
| 8627 | ' J OIN AHOBPR .FORM_RESP ONSE_QUEST ION exposu re ON dep loyment.RE GISTRANT_D EPLOYMENT_ ID = expos ure.REGIST RANT_DEPLO YMENT_ID ' + | |||||
| 8628 | ' J OIN AHOBPR .STD_FORM_ QUESTION q uest ON ex posure.STD _FORM_QUES TION_ID = quest.STD_ FORM_QUEST ION_ID ' + | |||||
| 8629 | ' WH ERE quest. FORM_QUEST ION_UNIQUE _ID = ''1. 2.A'''; | |||||
| 8630 | IF @Depl oymentGrou p = 'Afgh9 11' | |||||
| 8631 | SET @ Query = @ Query + ' AND [DEPLO YMENT_COUN TRY] = ''A fghanistan '' ' + | |||||
| 8632 | ' AND [DEPLO YMENT_STAR T_DATE] > ''20010911 '' '; | |||||
| 8633 | ELSE | |||||
| 8634 | IF @Depl oymentGrou p = 'Iraq9 11' | |||||
| 8635 | SET @Query = @Query + ' AND [DEPL OYMENT_COU NTRY] = '' Iraq'' ' + | |||||
| 8636 | 'AND [DEPL OYMENT_STA RT_DATE] > ''2001091 1'' '; | |||||
| 8637 | ELSE | |||||
| 8638 | IF @Depl oymentGrou p = 'Djibo utiAfter91 1' | |||||
| 8639 | SET @Query = @Query + ' AND [DEPL OYMENT_COU NTRY] = '' Djibouti'' ' + | |||||
| 8640 | 'AND [DEPL OYMENT_STA RT_DATE] > ''2001091 1'' '; | |||||
| 8641 | ELSE | |||||
| 8642 | IF @Depl oymentGrou p = 'South westAsiaAf ter911' | |||||
| 8643 | SET @Query = @Query + ' AND [DEPL OYMENT_COU NTRY] IN ( ''Kuwait'' ,''Saudi A rabia'','' Bahrain'', ''Gulf of Aden'', ' 'Gulf of O man'', ''O man'', ''Q atar'', '' United Ara b Emirates '', ''Pers ian Gulf'' , ''Arabia n Sea'', ' 'Red Sea'' ) ' + | |||||
| 8644 | ' AND [DEPLO YMENT_STAR T_DATE] > ''20010911 '' '; | |||||
| 8645 | ELSE | |||||
| 8646 | IF @Depl oymentGrou p = 'Pre91 1' | |||||
| 8647 | SET @Query = @Query + ' AND [DEPL OYMENT_COU NTRY] IN ( ''Iraq'',' 'Kuwait'', ''Saudi Ar abia'',''B ahrain'', ''Gulf of Aden'', '' Gulf of Om an'', ''Om an'', ''Qa tar'', ''U nited Arab Emirates' ', ''Persi an Gulf'', ''Arabian Sea'', '' Red Sea'') ' + | |||||
| 8648 | ' AND [DEPL OYMENT_STA RT_DATE] B ETWEEN ''1 9900802'' AND ''2001 0911'' '; | |||||
| 8649 | IF ISNUL L(@Deploym entGroup,' ') > '' | |||||
| 8650 | EXECUT E(@Query); | |||||
| 8651 | ||||||
| 8652 | SET @Que ry = ' | |||||
| 8653 | WITH e ligible | |||||
| 8654 | AS ( | |||||
| 8655 | SELECT [RE GISTRANT_I D],MIN([CR EATED]) AS DateEligi ble | |||||
| 8656 | FROM [AH OBPR].[PRO CESS_METRI CS] | |||||
| 8657 | WHERE [PR OCESS_METR ICS_VALUE] IN (''Eli gible'','' Reviewed - Eligible' ') | |||||
| 8658 | GROUP BY [REGISTRAN T_ID] | |||||
| 8659 | ) , | |||||
| 8660 | part icipant | |||||
| 8661 | AS ( | |||||
| 8662 | S ELECT [REG ISTRANT_ID ], MAX([CR EATED]) AS DateParti cipant | |||||
| 8663 | FROM [AHO BPR].[PROC ESS_METRIC S] | |||||
| 8664 | WHERE [PRO CESS_METRI CS_VALUE] = ''Partic ipant'' | |||||
| 8665 | GROUP BY [ REGISTRANT _ID] | |||||
| 8666 | ) | |||||
| 8667 | SE LECT reg.R EGISTRANT_ ID | |||||
| 8668 | ,(reg.LAS T_NAME + ' ', '' + re g.FIRST_NA ME) AS Nam e | |||||
| 8669 | ,stat.REG ISTRANT_ST ATUS | |||||
| 8670 | ,svc.SERV ICE_STATUS | |||||
| 8671 | ,QUESTION NAIRE_COMP LETED_DATE | |||||
| 8672 | ,ISNULL(r eg.REQUEST _SEEN_RESP ONSE, ''Un known'') A S REQUEST_ SEEN_RESPO NSE | |||||
| 8673 | ,ISNULL(r eg.HEALTH_ CONCERNS_R ESPONSE,'' No'') AS H EALTH_CONC ERNS_RESPO NSE | |||||
| 8674 | ,ISNULL(i nst.Name,' ''') AS In stitutionN ame | |||||
| 8675 | ,CONVERT( VARCHAR(10 ), respons eStat.QUES TIONNAIRE_ COMPLETED_ DATE, 101) AS QUESTI ONNAIRE_CO MPLETED_Di splay | |||||
| 8676 | ,CASE WHE N DatePart icipant > DateEligib le THEN DA TEDIFF(Day ,DateEligi ble,DatePa rticipant) ELSE 0 EN D AS DaysE ligibleToP articipant | |||||
| 8677 | , reg.BIRTH_ DATE AS Bi rthDate | |||||
| 8678 | , CONVERT(VA RCHAR(10), reg.BIRTH _DATE, 101 ) AS Birth DateDispla y | |||||
| 8679 | FROM AHOBP R.REGISTRA NT reg | |||||
| 8680 | JOIN AHOBPR.ST D_REGISTRA NT_STATUS stat | |||||
| 8681 | ON reg.STD_R EGISTRANT_ STATUS_ID = stat.STD _REGISTRAN T_STATUS_I D | |||||
| 8682 | JOIN AHOBPR.ST D_SERVICE_ STATUS svc | |||||
| 8683 | ON svc.STD_S ERVICE_STA TUS_ID = r eg.STD_SER VICE_STATU S_ID | |||||
| 8684 | JOIN AHOBPR.FO RM_RESPONS E resp | |||||
| 8685 | ON resp.REGI STRANT_ID = reg.REGI STRANT_ID | |||||
| 8686 | JOIN AHOBPR.FO RM_RESPONS E_STATUS r esponseSta t | |||||
| 8687 | ON responseS tat.FORM_R ESPONSE_ID = resp.FO RM_RESPONS E_ID | |||||
| 8688 | JOIN e ligible | |||||
| 8689 | ON r eg.REGISTR ANT_ID = e ligible.RE GISTRANT_I D | |||||
| 8690 | JOIN p articipant | |||||
| 8691 | ON r eg.REGISTR ANT_ID = p articipant .REGISTRAN T_ID | |||||
| 8692 | LEFT JOIN AHOB PR.VIEW_FA CILITY_LOO KUP inst | |||||
| 8693 | ON inst.ID = reg.STD_I NSTITUTION _ID | |||||
| 8694 | W HERE respo nseStat.QU ESTIONNAIR E_COMPLETE D_DATE BET WEEN ''' + CONVERT(VA RCHAR(20), @StartDat e,121) + | |||||
| 8695 | ''' AND ' '' + CONVE RT(VARCHAR (20), @End Date,121) + ''' '; | |||||
| 8696 | ||||||
| 8697 | IF ISNUL L(@Registr antStatus, '') > '' | |||||
| 8698 | SET @Query = @Query + ' AND st at.REGISTR ANT_STATUS = ''' + @ Registrant Status + ' '' '; | |||||
| 8699 | ||||||
| 8700 | IF ISNUL L(@SvcStat us,'') > ' ' | |||||
| 8701 | SET @Query = @Query + ' AND sv c.SERVICE_ STATUS = ' '' + @Svc Status + ' '' '; | |||||
| 8702 | ||||||
| 8703 | IF ISNUL L(@HealthC oncern,'') > '' | |||||
| 8704 | SET @Query = @Query + ' AND IS NULL(reg.H EALTH_CONC ERNS_RESPO NSE,''No'' ) = ''' + @HealthCo ncern + '' ' '; | |||||
| 8705 | ||||||
| 8706 | IF ISNUL L(@Request Seen,'') > '' | |||||
| 8707 | SET @Query = @Query + 'AND ISN ULL(reg.RE QUEST_SEEN _RESPONSE, ''Unknown '') = ''' + @Reques tSeen + '' ' '; | |||||
| 8708 | ||||||
| 8709 | IF ISNUL L(@Deploym entGroup,' ') > '' | |||||
| 8710 | SET @Query = @Query + 'AND EXI STS(SELECT * FROM #D eployments WHERE #De ployments. REGISTRANT _ID = reg. REGISTRANT _ID) '; | |||||
| 8711 | ||||||
| 8712 | IF @Assi gnedLocati onType = ' NLA' | |||||
| 8713 | SET @Q uery = @Qu ery + ' AN D reg.STD_ INSTITUTIO N_ID IS NU LL ' ; | |||||
| 8714 | ||||||
| 8715 | IF @Assi gnedLocati onType = ' VISN' | |||||
| 8716 | SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. VIEW_FACIL ITY_LOOKUP inst ' + | |||||
| 8717 | ' WHERE inst .ID = reg. STD_INSTIT UTION_ID ' + | |||||
| 8718 | ' AND inst .VisnID = ''' + @Ass ignedLocat ionKey + ' '') '; | |||||
| 8719 | ||||||
| 8720 | IF @Assi gnedLocati onType = ' Base' | |||||
| 8721 | SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. VIEW_FACIL ITY_LOOKUP inst ' + | |||||
| 8722 | ' WHERE in st.ID = re g.STD_INST ITUTION_ID ' + | |||||
| 8723 | ' AND in st.BASE_ID = ' + CON VERT(VARCH AR(20),@As signedInst itutionId) + ') ' | |||||
| 8724 | ||||||
| 8725 | IF @Assi gnedLocati onType = ' Institutio n' | |||||
| 8726 | SET @Q uery = @Qu ery + ' AN D reg.STD_ INSTITUTIO N_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId); | |||||
| 8727 | ||||||
| 8728 | IF @Eval uatedLocat ionType = 'NLA' | |||||
| 8729 | SET @Q uery = @Qu ery + ' AN D NOT EXIS TS( SELECT * FROM AH OBPR.REGIS TRANT_VISI T eval ' + | |||||
| 8730 | ' WH ERE eval.R EGISTRANT_ VISIT_ID = reg.REGIS TRANT_ID ' + | |||||
| 8731 | ' AND eval.E VALUATION_ FLAG = ''Y '') ' ; | |||||
| 8732 | ||||||
| 8733 | IF @Eval uatedLocat ionType = 'VISN' | |||||
| 8734 | SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _VISIT eva l ' + | |||||
| 8735 | ' JOIN A HOBPR.VIEW _FACILITY_ LOOKUP ins t ON inst. ID = eval. STD_INSTIT UTION_ID ' + | |||||
| 8736 | ' WHERE ev al.REGISTR ANT_VISIT_ ID = reg.R EGISTRANT_ ID ' + | |||||
| 8737 | ' AND ev al.EVALUAT ION_FLAG = ''Y'' ' + | |||||
| 8738 | ' AND in st.VisnID = ''' + @E valuatedLo cationKey + ''') '; | |||||
| 8739 | ||||||
| 8740 | IF @Eval uatedLocat ionType = 'Base' | |||||
| 8741 | SET @Q uery = @Qu ery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' + | |||||
| 8742 | ' JOIN A HOBPR.VIEW _FACILITY_ LOOKUP ins t ON inst. ID = eval. STD_INSTIT UTION_ID ' + | |||||
| 8743 | ' WHERE ev al.REGISTR ANT_VISIT_ ID = reg.R EGISTRANT_ ID ' + | |||||
| 8744 | ' AND ev al.EVALUAT ION_FLAG = ''Y'' ' + | |||||
| 8745 | ' AND in st.BASE_ID = ' + CON VERT(VARCH AR(20),@Ev aluatedIns titutionId ) + ') '; | |||||
| 8746 | ||||||
| 8747 | IF @Eval uatedLocat ionType = 'Instituti on' | |||||
| 8748 | SET @Q uery = @Qu ery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' + | |||||
| 8749 | ' JOIN A HOBPR.VIEW _FACILITY_ LOOKUP ins t ON inst. ID = eval. STD_INSTIT UTION_ID ' + | |||||
| 8750 | ' WHERE ev al.REGISTR ANT_VISIT_ ID = reg.R EGISTRANT_ ID ' + | |||||
| 8751 | ' AND ev al.EVALUAT ION_FLAG = ''Y'' ' + | |||||
| 8752 | ' AND ev al.STD_INS TITUTION_I D = ' + CO NVERT(VARC HAR(20),@E valuatedIn stitutionI d) + ') ' ; | |||||
| 8753 | ||||||
| 8754 | SET @Que ry = @Quer y + ' ORDE R BY respo nseStat.QU ESTIONNAIR E_COMPLETE D_DATE '; | |||||
| 8755 | ||||||
| 8756 | PRINT @Q uery; | |||||
| 8757 | ||||||
| 8758 | EXECUTE( @Query); | |||||
| 8759 | ||||||
| 8760 | DROP TAB LE #Deploy ments; | |||||
| 8761 | END | |||||
| 8762 | ||||||
| 8763 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] | |||||
| 8764 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] '20 140101', ' 20150101', NULL, NUL L, 'Unknow n' | |||||
| 8765 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] NUL L, NULL, ' Participan t' | |||||
| 8766 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] NUL L, NULL, N ULL, 'Sepa rated' | |||||
| 8767 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] NUL L, NULL, N ULL, NULL, 'Yes' | |||||
| 8768 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] NUL L, NULL, N ULL, NULL, 'No' | |||||
| 8769 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] NUL L, NULL, N ULL, NULL, 'Unknown' | |||||
| 8770 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] NUL L, NULL, N ULL, NULL, NULL, 'Ye s' | |||||
| 8771 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] NUL L, NULL, N ULL, NULL, NULL, 'No ' | |||||
| 8772 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] NUL L, NULL, N ULL, NULL, NULL, NUL L, 'Afgh91 1' | |||||
| 8773 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] NUL L, NULL, N ULL, NULL, NULL, NUL L, 'Iraq91 1' | |||||
| 8774 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] NUL L, NULL, N ULL, NULL, NULL, NUL L, 'Southw estAsiaAft er911' | |||||
| 8775 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] NUL L, NULL, N ULL, NULL, NULL, NUL L, 'Djibou tiAfter911 ' | |||||
| 8776 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] NUL L, NULL, N ULL, NULL, NULL, NUL L, 'Pre911 ' | |||||
| 8777 | ||||||
| 8778 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] | |||||
| 8779 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] @As signedLoca tionType = 'NLA' | |||||
| 8780 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] @As signedLoca tionType = 'VISN', @ AssignedLo cationKey = 'V16' | |||||
| 8781 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] @As signedLoca tionType = 'Base', @ AssignedLo cationKey = '1000089 ' | |||||
| 8782 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] @As signedLoca tionType = 'Institut ion', @Ass ignedLocat ionKey = ' 1000089' | |||||
| 8783 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] | |||||
| 8784 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] @Ev aluatedLoc ationType = 'NLA' | |||||
| 8785 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] @Ev aluatedLoc ationType = 'VISN', @Evaluated LocationKe y = 'V16' | |||||
| 8786 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] @Ev aluatedLoc ationType = 'Base', @Evaluated LocationKe y = '10000 89' | |||||
| 8787 | -- exec [A HOBPR].[SP _ReportPar ticipantDe tails] @Ev aluatedLoc ationType = 'Institu tion', @Ev aluatedLoc ationKey = '1000089' | |||||
| 8788 | GO | |||||
| 8789 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON; | |||||
| 8790 | ||||||
| 8791 | ||||||
| 8792 | GO | |||||
| 8793 | PRINT N'Cr eating [AH OBPR].[SP_ ReportCont actHistory ]...'; | |||||
| 8794 | ||||||
| 8795 | ||||||
| 8796 | GO | |||||
| 8797 | SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF; | |||||
| 8798 | ||||||
| 8799 | ||||||
| 8800 | GO | |||||
| 8801 | -- ======= ========== ========== ========== ======== | |||||
| 8802 | -- Object: Stor edProcedur e [AHOBPR] .[SP_Repor tContactHi story] | |||||
| 8803 | -- Author: Bruc e Clegg | |||||
| 8804 | -- Create date: 21 M ay 2015 | |||||
| 8805 | -- Descrip tion: Make 4 tables look like one | |||||
| 8806 | -- | |||||
| 8807 | -- Modific ation Log: | |||||
| 8808 | -- 2015.05 .21 Bruce Clegg - Cr eate Proce dure | |||||
| 8809 | -- 2015.07 .14 CleggB - changed UpdatedDa te and out put from D ate to Dat eTime2(0) | |||||
| 8810 | CREATE PRO CEDURE [AH OBPR].[SP_ ReportCont actHistory ] | |||||
| 8811 | @R egistrantI d INT = NU LL | |||||
| 8812 | WITH EXECU TE AS OWNE R | |||||
| 8813 | AS | |||||
| 8814 | BEGIN | |||||
| 8815 | ||||||
| 8816 | DECLARE @RowCount SMALLINT = 0; | |||||
| 8817 | ||||||
| 8818 | DECLARE @Results T ABLE(Updat edDate DATETI ME2(0) | |||||
| 8819 | ,[STR EET1] VARCHA R(256) | |||||
| 8820 | ,[STR EET2] VARCHA R(256) | |||||
| 8821 | ,[CIT Y] VARCHA R(100) | |||||
| 8822 | ,[STA TE] VARCHA R(100) | |||||
| 8823 | ,[ZIP ] VARCHA R(15) | |||||
| 8824 | ,[COU NTRY] VARCHA R(100) | |||||
| 8825 | ,Phon eNumber VARCHA R(50) | |||||
| 8826 | ,Mobi leNumber VARCHA R(50) | |||||
| 8827 | ,EMAI L VARCHA R(256) ); | |||||
| 8828 | ||||||
| 8829 | DECLARE @UpdatedD ate DAT ETIME2(0) | |||||
| 8830 | ,@MyOrder INT | |||||
| 8831 | ,@Street1 VAR CHAR(256) | |||||
| 8832 | ,@Street2 VAR CHAR(256) | |||||
| 8833 | ,@City VAR CHAR(100) | |||||
| 8834 | ,@State VAR CHAR(100) | |||||
| 8835 | ,@Zip VAR CHAR(15) | |||||
| 8836 | ,@Country VAR CHAR(100) | |||||
| 8837 | ,@PhoneNum ber VAR CHAR(50) | |||||
| 8838 | ,@MobileNu mber VAR CHAR(50) | |||||
| 8839 | ,@Email VAR CHAR(256); | |||||
| 8840 | ||||||
| 8841 | DECLARE @UpdatedD ateOut DATETIME2( 0) | |||||
| 8842 | ,@Street1O ut VARCHAR(25 6) | |||||
| 8843 | ,@Street2O ut VARCHAR(25 6) | |||||
| 8844 | ,@CityOut VARCHAR(10 0) | |||||
| 8845 | ,@StateOut VARCHAR(10 0) | |||||
| 8846 | ,@ZipOut VARCHAR(15 ) | |||||
| 8847 | ,@CountryO ut VARCHAR(10 0) | |||||
| 8848 | ,@PhoneNum berOut VARCHAR(50 ) | |||||
| 8849 | ,@MobileNu mberOut VARCHAR(50 ) | |||||
| 8850 | ,@EmailOut VARCHAR(25 6); | |||||
| 8851 | ||||||
| 8852 | DECLARE MyCursor C URSOR LOCA L | |||||
| 8853 | FOR | |||||
| 8854 | WITH Add r | |||||
| 8855 | AS ( | |||||
| 8856 | SELE CT DISTINC T | |||||
| 8857 | [REGIST RANT_ID] | |||||
| 8858 | ,[STREET 1] | |||||
| 8859 | ,[STREET 2] | |||||
| 8860 | ,[CITY] | |||||
| 8861 | ,[STATE] | |||||
| 8862 | ,[ZIP] | |||||
| 8863 | ,[COUNTR Y] | |||||
| 8864 | ,[Audit_ Date] AS U pdatedDate | |||||
| 8865 | ,CONVERT (INT,'1') AS MyOrder | |||||
| 8866 | FR OM [AHOBPR ].[REGISTR ANT_ADDRES S_H] | |||||
| 8867 | WHE RE [Audit_ Type] != ' DELETE' | |||||
| 8868 | A ND [REGIST RANT_ID] = @Registra ntId | |||||
| 8869 | ) | |||||
| 8870 | ,Phone | |||||
| 8871 | AS ( | |||||
| 8872 | SE LECT DISTI NCT | |||||
| 8873 | [REGI STRANT_ID] | |||||
| 8874 | ,[PHON E_NUMBER] as PhoneNu mber | |||||
| 8875 | ,[Audi t_Date] AS UpdatedDa te | |||||
| 8876 | ,CONVE RT(INT,'2' ) AS MyOrd er | |||||
| 8877 | FROM [AHOB PR].[REGIS TRANT_PHON E_H] | |||||
| 8878 | W HERE ISNUL L([TYPE],' ') != 'Mob ile' | |||||
| 8879 | AND [Audi t_Type] != 'DELETE' | |||||
| 8880 | AND [REGI STRANT_ID] = @Regist rantId | |||||
| 8881 | ) | |||||
| 8882 | ,Mobil e | |||||
| 8883 | AS ( | |||||
| 8884 | SE LECT DISTI NCT | |||||
| 8885 | [REGI STRANT_ID] | |||||
| 8886 | ,[PHON E_NUMBER] AS MobileN umber | |||||
| 8887 | ,[Audi t_Date] AS UpdatedDa te | |||||
| 8888 | ,CONVE RT(INT,'3' ) AS MyOrd er | |||||
| 8889 | FROM [AHOB PR].[REGIS TRANT_PHON E_H] | |||||
| 8890 | W HERE [TYPE ] = 'Mobil e' | |||||
| 8891 | AND [Audi t_Type] != 'DELETE' | |||||
| 8892 | AND [REGI STRANT_ID] = @Regist rantId | |||||
| 8893 | ) | |||||
| 8894 | ||||||
| 8895 | AS ( | |||||
| 8896 | SEL ECT DISTIN CT | |||||
| 8897 | [REGIS TRANT_ID] | |||||
| 8898 | ,[EMAIL ] | |||||
| 8899 | ,[Audit _Date] AS UpdatedDat e | |||||
| 8900 | ,CONVER T(INT,'4') AS MyOrde r | |||||
| 8901 | F ROM [AHOBP R].[REGIST RANT_EMAIL _H] | |||||
| 8902 | WH ERE [Audit _Type] != 'DELETE' | |||||
| 8903 | AND [REGIS TRANT_ID] = @Registr antId | |||||
| 8904 | ) | |||||
| 8905 | SE LECT Addr. UpdatedDat e | |||||
| 8906 | ,Addr. Myorder | |||||
| 8907 | ,[STRE ET1] | |||||
| 8908 | ,[STRE ET2] | |||||
| 8909 | ,[CITY ] | |||||
| 8910 | ,[STAT E] | |||||
| 8911 | ,[ZIP] | |||||
| 8912 | ,[COUN TRY] | |||||
| 8913 | ,NULL AS PhoneNu mber | |||||
| 8914 | ,NULL as MobileN umber | |||||
| 8915 | ,NULL as EMAIL | |||||
| 8916 | FROM Addr | |||||
| 8917 | UNI ON | |||||
| 8918 | SEL ECT Phone. UpdatedDat e | |||||
| 8919 | ,Phone .Myorder | |||||
| 8920 | ,NULL | |||||
| 8921 | ,NULL | |||||
| 8922 | ,NULL | |||||
| 8923 | ,NULL | |||||
| 8924 | ,NULL | |||||
| 8925 | ,NULL | |||||
| 8926 | ,Phone Number | |||||
| 8927 | ,NULL as MobileN umber | |||||
| 8928 | ,NULL as EMAIL | |||||
| 8929 | FROM Phone | |||||
| 8930 | UNI ON | |||||
| 8931 | SEL ECT Mobile .UpdatedDa te | |||||
| 8932 | ,Mobil e.Myorder | |||||
| 8933 | ,NULL | |||||
| 8934 | ,NULL | |||||
| 8935 | ,NULL | |||||
| 8936 | ,NULL | |||||
| 8937 | ,NULL | |||||
| 8938 | ,NULL | |||||
| 8939 | ,NULL AS PhoneNu mber | |||||
| 8940 | ,Mobil eNumber | |||||
| 8941 | ,NULL as EMAIL | |||||
| 8942 | FROM Mobil e | |||||
| 8943 | UN ION | |||||
| 8944 | SE LECT Email .UpdatedDa te | |||||
| 8945 | ,Email .Myorder | |||||
| 8946 | ,NULL | |||||
| 8947 | ,NULL | |||||
| 8948 | ,NULL | |||||
| 8949 | ,NULL | |||||
| 8950 | ,NULL | |||||
| 8951 | ,NULL | |||||
| 8952 | ,NULL AS PhoneNu mber | |||||
| 8953 | ,NULL AS MobileN umber | |||||
| 8954 | ,Email .EMAIL | |||||
| 8955 | FROM Email | |||||
| 8956 | ORDER BY U pdatedDate DESC, MyO rder ASC; | |||||
| 8957 | ||||||
| 8958 | ||||||
| 8959 | OPEN M yCursor; | |||||
| 8960 | ||||||
| 8961 | FETCH NEXT FROM MyCursor -- priming read | |||||
| 8962 | INTO @UpdatedDa te | |||||
| 8963 | ,@MyOrder | |||||
| 8964 | ,@Street1 | |||||
| 8965 | ,@Street2 | |||||
| 8966 | ,@City | |||||
| 8967 | ,@State | |||||
| 8968 | ,@Zip | |||||
| 8969 | ,@Country | |||||
| 8970 | ,@PhoneNum ber | |||||
| 8971 | ,@MobileNu mber | |||||
| 8972 | ,@Email; | |||||
| 8973 | ||||||
| 8974 | SET @U pdatedDate Out = @Upd atedDate; | |||||
| 8975 | ||||||
| 8976 | WHILE @@FETCH_ST ATUS = 0 - - Not End of file | |||||
| 8977 | BEGI N | |||||
| 8978 | -- If new da te, or now here to pu t data val ue, Insert into temp and clear Output va riables | |||||
| 8979 | IF (@Updated Date != @U pdatedDate Out AND @R owCount > 0) | |||||
| 8980 | OR (@MyOrder = 1 AND @ Street1Out IS NOT NU LL) | |||||
| 8981 | OR (@MyOrder = 2 AND @ PhoneNumbe rOut IS NO T NULL) | |||||
| 8982 | OR (@MyOrder = 3 AND @ MobileNumb erOut IS N OT NULL) | |||||
| 8983 | OR (@MyOrder = 4 AND @ EmailOut I S NOT NULL ) | |||||
| 8984 | BE GIN | |||||
| 8985 | I NSERT INTO @Results (UpdatedDa te | |||||
| 8986 | , [STREET1] | |||||
| 8987 | , [STREET2] | |||||
| 8988 | , [CITY] | |||||
| 8989 | , [STATE] | |||||
| 8990 | , [ZIP] | |||||
| 8991 | , [COUNTRY] | |||||
| 8992 | , PhoneNumbe r | |||||
| 8993 | , MobileNumb er | |||||
| 8994 | , EMAIL ) | |||||
| 8995 | VALUES(@ UpdatedDat eOut | |||||
| 8996 | ,@ Street1Out | |||||
| 8997 | ,@ Street2Out | |||||
| 8998 | ,@ CityOut | |||||
| 8999 | ,@ StateOut | |||||
| 9000 | ,@ ZipOut | |||||
| 9001 | ,@ CountryOut | |||||
| 9002 | ,@ PhoneNumbe rOut | |||||
| 9003 | ,@ MobileNumb erOut | |||||
| 9004 | ,@ EmailOut); | |||||
| 9005 | ||||||
| 9006 | S ET @Update dDateOut = @UpdatedD ate; | |||||
| 9007 | S ET @Street 1Out = NUL L; | |||||
| 9008 | S ET @Street 2Out = NUL L; | |||||
| 9009 | S ET @CityOu t = NULL; | |||||
| 9010 | S ET @StateO ut = NULL; | |||||
| 9011 | S ET @ZipOut = NULL; | |||||
| 9012 | S ET @Countr yOut = NUL L; | |||||
| 9013 | S ET @PhoneN umberOut = NULL; | |||||
| 9014 | S ET @Mobile NumberOut = NULL; | |||||
| 9015 | S ET @EmailO ut = NULL; | |||||
| 9016 | EN D | |||||
| 9017 | ||||||
| 9018 | SE T @RowCoun t = @RowCo unt + 1; | |||||
| 9019 | ||||||
| 9020 | -- Set Addre ss Fields | |||||
| 9021 | IF @MyOrder = 1 | |||||
| 9022 | BEGIN | |||||
| 9023 | SET @St reet1Out = @Street1; | |||||
| 9024 | SET @St reet2Out = @Street2; | |||||
| 9025 | SET @Ci tyOut = @C ity; | |||||
| 9026 | SET @St ateOut = @ State; | |||||
| 9027 | SET @Zi pOut = @Zi p; | |||||
| 9028 | SET @Co untryOut = @Country; | |||||
| 9029 | END; | |||||
| 9030 | ||||||
| 9031 | -- Set Phone Number | |||||
| 9032 | IF @MyOrder = 2 | |||||
| 9033 | SET @Phon eNumberOut = @PhoneN umber; | |||||
| 9034 | ||||||
| 9035 | IF @MyOrder = 3 | |||||
| 9036 | SET @Mobi leNumberOu t = @Mobil eNumber; | |||||
| 9037 | ||||||
| 9038 | IF @MyOrder = 4 | |||||
| 9039 | SET @Emai lOut = @Em ail; | |||||
| 9040 | ||||||
| 9041 | FE TCH NEXT F ROM MyCurs or | |||||
| 9042 | I NTO @Updat edDate | |||||
| 9043 | ,@MyOr der | |||||
| 9044 | ,@Stre et1 | |||||
| 9045 | ,@Stre et2 | |||||
| 9046 | ,@City | |||||
| 9047 | ,@Stat e | |||||
| 9048 | ,@Zip | |||||
| 9049 | ,@Coun try | |||||
| 9050 | ,@Phon eNumber | |||||
| 9051 | ,@Mobi leNumber | |||||
| 9052 | ,@Emai l; | |||||
| 9053 | ||||||
| 9054 | END; -- End o f loop | |||||
| 9055 | ||||||
| 9056 | --wr ite last r ecord | |||||
| 9057 | INSER T INTO @Re sults (Upd atedDate | |||||
| 9058 | , [STREET1] | |||||
| 9059 | , [STREET2] | |||||
| 9060 | , [CITY] | |||||
| 9061 | , [STATE] | |||||
| 9062 | , [ZIP] | |||||
| 9063 | , [COUNTRY] | |||||
| 9064 | , PhoneNumbe r | |||||
| 9065 | , MobileNumb er | |||||
| 9066 | , EMAIL ) | |||||
| 9067 | VALUES(@ UpdatedDat eOut | |||||
| 9068 | ,@ Street1Out | |||||
| 9069 | ,@ Street2Out | |||||
| 9070 | ,@ CityOut | |||||
| 9071 | ,@ StateOut | |||||
| 9072 | ,@ ZipOut | |||||
| 9073 | ,@ CountryOut | |||||
| 9074 | ,@ PhoneNumbe rOut | |||||
| 9075 | ,@ MobileNumb erOut | |||||
| 9076 | ,@ EmailOut); | |||||
| 9077 | CLOSE MyCursor; | |||||
| 9078 | ||||||
| 9079 | SELECT UpdatedDa te | |||||
| 9080 | ,ISNULL(ST REET1,'') AS Street1 | |||||
| 9081 | ,ISNULL(ST REET2,'') AS Street2 | |||||
| 9082 | ,ISNULL(CI TY,'') AS City | |||||
| 9083 | ,ISNULL(ST ATE,'') AS State | |||||
| 9084 | ,ISNULL(ZI P,'') AS Z ip | |||||
| 9085 | ,ISNULL(CO UNTRY,'') AS Country | |||||
| 9086 | ,ISNULL(Ph oneNumber, '') AS Pho neNumber | |||||
| 9087 | ,ISNULL(Mo bileNumber ,'') AS Mo bileNumber | |||||
| 9088 | ,ISNULL(EM AIL,'') AS Email | |||||
| 9089 | FROM @Results | |||||
| 9090 | ORDER BY UpdatedDa te DESC; | |||||
| 9091 | ||||||
| 9092 | END | |||||
| 9093 | ||||||
| 9094 | -- EXECU TE [AHOBPR ].[SP_Repo rtContactH istory] 5 | |||||
| 9095 | GO | |||||
| 9096 | ||||||
| 9097 | ||||||
| 9098 | ||||||
| 9099 | INSERT INT O [dbo].[D atabaseCha ngeLog] | |||||
| 9100 | ([MajorRe leaseNumbe r] | |||||
| 9101 | ,[MinorRe leaseNumbe r] | |||||
| 9102 | ,[PointRe leaseNumbe r] | |||||
| 9103 | ,[Hotfix] | |||||
| 9104 | ,[ScriptN ame] | |||||
| 9105 | ,[ScriptD escription ] | |||||
| 9106 | ,[TargetR egistry] | |||||
| 9107 | ,[DateApp lied]) | |||||
| 9108 | VALUE S | |||||
| 9109 | ('$(Major ReleaseNum ber)' | |||||
| 9110 | ,'$(Minor ReleaseNum ber)' | |||||
| 9111 | ,'$(Point ReleaseNum ber)' | |||||
| 9112 | ,0 | |||||
| 9113 | ,'Step 2 - Registry .Database. Deploy.sql ' | |||||
| 9114 | ,'Step 2 - Regist ry.Databas e.Deploy.s ql Script' | |||||
| 9115 | ,'AHOBPR' | |||||
| 9116 | ,GETDATE( )) | |||||
| 9117 | ||||||
| 9118 | ||||||
| 9119 | PRINT ''; | |||||
| 9120 | PRINT 'Ste p 2 - Regi stry.Datab ase.Deploy .sql Scrip t Complete .'; | |||||
| 9121 | PRINT ''; | |||||
| 9122 | PRINT 'Com pleted ' + CAST(GETD ATE() AS v archar(20) ) + '.'; | |||||
| 9123 | ||||||
| 9124 | ---------- ---------- ---------- --- | |||||
| 9125 | -- END OF GENERATED DEPLOYMENT -- | |||||
| 9126 | ---------- ---------- ---------- --- |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.