126. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 4/12/2018 10:19:05 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

126.1 Files compared

#	Location	File	Last Modified
1	MSSRe Build 4.zip\DatabaseScripts\DatabasePatches\TBI Enhancements Increment 1	POLYTRAUMA_DB_CHANGES.sql	Tue Apr 10 19:45:49 2018 UTC
2	MSSRe Build 4.zip\DatabaseScripts\DatabasePatches\TBI Enhancements Increment 1	POLYTRAUMA_DB_CHANGES.sql	Thu Apr 12 12:24:47 2018 UTC

126.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	62	1662
Changed	61	122
Inserted	0	0
Removed	0	0

126.3 Comparison options

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

126.4 Active regular expressions

No regular expressions were active.

126.5 Comparison detail

	1	USE [V5_R egistry]
	2
	3	/******* ****** ****** ****** ****** ****** ****** *****
	4	* POLYTRAU MA DATABAS E CHANGES - Jan. 201 4 ( PII )
	5	* Summary of updates :
	6	* - [TBI_ POLYTRAUMA ] - severa l fields a dded
	7	* - [STD_ TBIINJURYL IST] - add entry of 'Physical Assault' t o next to last entry
	8	* - [STD_ POLYTRAUMA _ENTRY_TYP E] - new t able
	9	* - [STD_ POLYTRAUMA _SEVERITY_ LEVEL_INDE X] - new t able
	10	* - [STD_ PERSON_LIV ING_WITH] - new tabl e
	11	* - [STD_ POLYTRAUMA _EMPLOYMEN T_STATUS] - new tabl e
	12	* - [STD_ TBIDSCHRGS TS] - set all old va lues as in active and add new v alues.
	13	*
	14	******** ****** ****** ****** ****** ****** ****** ****/
	15
	16	/******* * Chan ge #1 ******** /
	17	-- Add Phy sical Assa ult to the Injury Li st and upd ate 'Other ' to have the last s ort value.
	18	INSERT INT O [TBI].[S TD_TBIINJU RYLIST]([C ODE], [NAM E], [DESCR IPTION_TEX T], [SORT_ ORDER], [I NACTIVE_FL AG], [INAC TIVE_DATE] , [CREATED BY],
	19	[UPDATEDBY ], [CREATE D], [UPDAT ED])
	20	VALUES('Ph ysical Ass ault', 'Ph ysical Ass ault', 'Ph ysical Ass ault', 18, 0, NULL, ' DNS RYANK', ' DNS RYANK', GE TDATE(), G ETDATE());
	21
	22	-- change sort order of 'other ' so it's last
	23	UPDATE [TB I].[STD_TB IINJURYLIS T] SET [SO RT_ORDER] = 19 WHERE ID = 18;
	24
	25	-- Add col umn to TBI _POLYTRAUM A for PHYS ICAL_ASSAU LT_INJRY_I ND
	26	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'PHYSICAL_ ASSAULT_IN JRY_IND')
	27	ALTER TABL E [TBI].[T BI_POLYTRA UMA] ADD [ PHYSICAL_A SSAULT_INJ RY_IND] va rchar(1) N ULL;
	28
	29	/******* * End Ch ange #1 ******** /
	30
	31
	32	/******* * Chan ge #2 ******** /
	33	-- Alter T BI_POLYTRA UMA table to have JF K Coma Rec overy Scal e score co lumn (JFK_ COMA_RECOV ERY - int, null)
	34	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'JFK_COMA_ RECOVERY')
	35	ALTER TABL E [TBI].[T BI_POLYTRA UMA] ADD [ JFK_COMA_R ECOVERY] i nt NULL;
	36	/******* * End Ch ange #2 ******** /
	37
	38
	39	/******* * Chan ge #3 ******** /
	40	-- CREATE [TBI].[STD _POLYTRAUM A_ENTRY_TY PE] table for storin g types of Polytraum a entries (PRC and P TRP) and i nsert init ial data.
	41	IF NOT EXI STS (SELEC T * FROM s ys.objects WHERE obj ect_id = O BJECT_ID(N '[TBI].[ST D_POLYTRAU MA_ENTRY_T YPE]') AND type in ( N'U'))
	42	BEGIN
	43	CREATE TAB LE [TBI].[ STD_POLYTR AUMA_ENTRY _TYPE](
	44	[I D] [int] I DENTITY(1, 1) NOT NUL L,
	45	[C ODE] [varc har](50) N OT NULL,
	46	[N AME] [varc har](100) NOT NULL,
	47	[D ESCRIPTION _TEXT] [va rchar](500 ) NOT NULL ,
	48	[S ORT_ORDER] [int] NOT NULL,
	49	[I NACTIVE_FL AG] [bit] NOT NULL,
	50	[I NACTIVE_DA TE] [datet ime] NULL,
	51	[C REATEDBY] [varchar]( 30) NOT NU LL,
	52	[C REATED] [d atetime] N OT NULL,
	53	[U PDATEDBY] [varchar]( 30) NOT NU LL,
	54	[U PDATED] [d atetime] N OT NULL,
	55	[R OW_VERSION ] [timesta mp] NOT NU LL,
	56	CONSTRAIN T [PK_STD_ POLYTRAUMA _ENTRY_TYP E] PRIMARY KEY CLUST ERED
	57	(
	58	[I D] ASC
	59	)WITH (PAD _INDEX = OFF, STATI STICS_NORE COMPUTE = OFF, IGNO RE_DUP_KEY = OFF, AL LOW_ROW_LO CKS = ON, ALLOW_PAG E_LOCKS = ON) ON [P RIMARY]
	60	) ON [PRIM ARY]
	61
	62	-- INSERT INITIAL DA TA (PRC / PTRP)
	63	INSERT INT O [TBI].[S TD_POLYTRA UMA_ENTRY_ TYPE]([COD E], [NAME] , [DESCRIP TION_TEXT] , [SORT_OR DER], [INA CTIVE_FLAG ], [INACTI VE_DATE], [CREATEDBY ],
	64	[CREATED], [UPDATEDB Y], [UPDAT ED])
	65	VALUES('PR C', 'PRC', 'Polytrau ma Rehabil itation Ce nter', 1, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	66
	67	INSERT INT O [TBI].[S TD_POLYTRA UMA_ENTRY_ TYPE]([COD E], [NAME] , [DESCRIP TION_TEXT] , [SORT_OR DER], [INA CTIVE_FLAG ], [INACTI VE_DATE], [CREATEDBY ],
	68	[CREATED], [UPDATEDB Y], [UPDAT ED])
	69	VALUES('PT RP', 'PTRP ', 'Polytr auma Trans itional Re habilitati on Program ', 2, 0, N ULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	70
	71	END
	72	GO
	73
	74
	75	-- ADD ENT RY_TYPE_ID to TBI.TB I_POLYTRAU MA
	76	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'ENTRY_TYP E_ID')
	77	BEGIN
	78
	79	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD ENTRY _TYPE_ID i nt NULL
	80
	81	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	82	FK _TBI_POLYT RAUMA_STD_ POLYTRAUMA _ENTRY_TYP E FOREIGN KEY
	83	(
	84	EN TRY_TYPE_I D
	85	) REFERENCES TBI.STD_P OLYTRAUMA_ ENTRY_TYPE
	86	(
	87	ID
	88	) ON UPDATE NO ACTION
	89	O N DELETE NO ACTION
	90
	91	END
	92	GO
	93
	94	/******* * End Ch ange #3 ******** /
	95
	96
	97	/******* * Chan ge #4 ******** /
	98	-- Add IS_ FOLLOW_UP field (if 1 … follow up, if 0 o r null … a dmission)
	99	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'IS_FOLLOW _UP')
	100	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD IS_FO LLOW_UP bi t NULL
	101
	102	/******* * End Ch ange #4 ******** /
	103
	104
	105	/******* * Chan ge #5 ******** /
	106	-- Add GEN ITO_URINAR Y_INJURIES field (bi t) 1 = tru e ... 0 or NULL = fa lse
	107	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'GENITO_UR INARY_INJU RIES')
	108	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD GENIT O_URINARY_ INJURIES b it NULL
	109
	110	/******* * End Ch ange #5 ******** /
	111
	112
	113	/******* * Chan ge #6 ******** /
	114	-- INSERT NEW VALUES INTO TBI. STD_TBIDIS CHARGETO t able for n ew desired values. To keep le gacy data intact, st art sort o rder at 50 and in (G etRehabDis chargeToLi st -> Drop DownList.c s) filter where sort order >= 50
	115
	116	IF (SELECT MAX(ID) F ROM TBI.ST D_TBIDISCH ARGETO) < 6
	117	BEGIN
	118
	119	UPDATE TBI .STD_TBIDI SCHARGETO SET [INACT IVE_FLAG] = 1, [INAC TIVE_DATE] = GETDATE () WHERE I D < 6;
	120
	121	--Private
	122	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	123	[CREATEDBY ], [UPDATE DBY]) VALU ES('Privat e', 'Priva te', 'Priv ate', 1, 0 , NULL, GE TDATE(), G ETDATE(), ' DNS RYANK', ' DNS RYANK');
	124
	125	--Nursing Home
	126	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	127	[CREATEDBY ], [UPDATE DBY]) VALU ES('Nursin g_Home', ' Nursing Ho me', 'Nurs ing Home', 2, 0, NUL L, GETDATE (), GETDAT E(), ' DNS RYANK', ' DNS RYANK');
	128
	129	--Adult Ho me
	130	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	131	[CREATEDBY ], [UPDATE DBY]) VALU ES('Adult_ Home', 'Ad ult Home', 'Adult Ho me', 3, 0, NULL, GET DATE(), GE TDATE(), ' DNS RYANK', ' DNS RYANK');
	132
	133	--Correcti onal insti tution
	134	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	135	[CREATEDBY ], [UPDATE DBY]) VALU ES('Correc tional', ' Correction al Institu tion', 'Co rrectional Instituti on', 4, 0, NULL, GET DATE(), GE TDATE(), ' DNS RYANK', ' DNS RYANK');
	136
	137	--Hotel
	138	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	139	[CREATEDBY ], [UPDATE DBY]) VALU ES('Hotel' , 'Hotel', 'Hotel', 5, 0, NULL , GETDATE( ), GETDATE (), ' DNS RYANK', ' DNS RYANK');
	140
	141	--Homeless
	142	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	143	[CREATEDBY ], [UPDATE DBY]) VALU ES('Homele ss', 'Home less', 'Ho meless', 6 , 0, NULL, GETDATE() , GETDATE( ), ' DNS RYANK', ' DNS RYANK');
	144
	145	--Acute Ho spital
	146	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	147	[CREATEDBY ], [UPDATE DBY]) VALU ES('Acute_ Hospital', 'Acute Ho spital', ' Acute Hosp ital', 7, 0, NULL, G ETDATE(), GETDATE(), ' DNS RYANK', ' DNS RYANK');
	148
	149	--Rehabili tation Hos pital
	150	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	151	[CREATEDBY ], [UPDATE DBY]) VALU ES('Rehab_ Hospital', 'Rehabili tation Hos pital', 'R ehabilitat ion Hospit al', 8, 0, NULL, GET DATE(), GE TDATE(), ' DNS RYANK', ' DNS RYANK');
	152
	153	--Other Ho spital
	154	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	155	[CREATEDBY ], [UPDATE DBY]) VALU ES('Other_ Hospital', 'Other Ho spital', ' Other Hosp ital', 9, 0, NULL, G ETDATE(), GETDATE(), ' DNS RYANK', ' DNS RYANK');
	156
	157	--Sub-Acut e Hospital
	158	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	159	[CREATEDBY ], [UPDATE DBY]) VALU ES('SubAcu te_Hospita l', 'Sub-A cute Hospi tal', 'Sub -Acute Hos pital', 10 , 0, NULL, GETDATE() , GETDATE( ), ' DNS RYANK', ' DNS RYANK');
	160
	161	--Military Housing ( Apartment, Barracks or House)
	162	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	163	[CREATEDBY ], [UPDATE DBY]) VALU ES('MTH', 'Military Housing', 'Apartment , Barracks or House' , 11, 0, N ULL, GETDA TE(), GETD ATE(), ' DNS RYANK', ' DNS RYANK');
	164
	165	-- Militar y Hospital (MTF)
	166	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	167	[CREATEDBY ], [UPDATE DBY]) VALU ES('MTF', 'Military Hospital', 'Military Hospital' , 12, 0, N ULL, GETDA TE(), GETD ATE(), ' DNS RYANK', ' DNS RYANK');
	168
	169	--PTRP
	170	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	171	[CREATEDBY ], [UPDATE DBY]) VALU ES('PTRP', 'Polytrau ma Transit ional Reha bilitation Program', 'Polytrau ma Transit ional Reha bilitation Program', 13, 0, NU LL, GETDAT E(), GETDA TE(), ' DNS RYANK', ' DNS RYANK');
	172
	173	--Other
	174	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	175	[CREATEDBY ], [UPDATE DBY]) VALU ES('Other' , 'Other', 'Other', 14, 0, NUL L, GETDATE (), GETDAT E(), ' DNS RYANK', ' DNS RYANK');
	176
	177	--Unknown
	178	INSERT INT O TBI.STD_ TBIDISCHAR GETO([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	179	[CREATEDBY ], [UPDATE DBY]) VALU ES('Unknow n', 'Unkno wn', 'Unkn own', 15, 0, NULL, G ETDATE(), GETDATE(), ' DNS RYANK', ' DNS RYANK');
	180
	181	END
	182
	183	/******* * End Ch ange #6 ******** /
	184
	185
	186	/******* * Chan ge #7 ******** /
	187	-- Create [TBI].[STD _POLYTRAUM A_SEVERITY _LEVEL_IND EX] table / Create c olumn in P OLYTRAUMA (SEVERITY_ LEVEL_INDE X) FK
	188	IF NOT EXI STS (SELEC T * FROM s ys.objects WHERE obj ect_id = O BJECT_ID(N '[TBI].[ST D_POLYTRAU MA_SEVERIT Y_LEVEL_IN DEX]') AND type in ( N'U'))
	189	BEGIN
	190	CREATE TAB LE [TBI].[ STD_POLYTR AUMA_SEVER ITY_LEVEL_ INDEX](
	191	[I D] [int] I DENTITY(1, 1) NOT NUL L,
	192	[C ODE] [varc har](50) N OT NULL,
	193	[N AME] [varc har](100) NOT NULL,
	194	[D ESCRIPTION _TEXT] [va rchar](500 ) NOT NULL ,
	195	[S ORT_ORDER] [int] NOT NULL,
	196	[I NACTIVE_FL AG] [bit] NOT NULL,
	197	[I NACTIVE_DA TE] [datet ime] NULL,
	198	[C REATEDBY] [varchar]( 30) NOT NU LL,
	199	[C REATED] [d atetime] N OT NULL,
	200	[U PDATEDBY] [varchar]( 30) NOT NU LL,
	201	[U PDATED] [d atetime] N OT NULL,
	202	[R OW_VERSION ] [timesta mp] NOT NU LL,
	203	CONSTRAIN T [PK_STD_ POLYTRAUMA _SEVERITY_ LEVEL_INDE X] PRIMARY KEY CLUST ERED
	204	(
	205	[I D] ASC
	206	)WITH (PAD _INDEX = OFF, STATI STICS_NORE COMPUTE = OFF, IGNO RE_DUP_KEY = OFF, AL LOW_ROW_LO CKS = ON, ALLOW_PAG E_LOCKS = ON) ON [P RIMARY]
	207	) ON [PRIM ARY]
	208
	209
	210	-- INSERT INITIAL DA TA
	211
	212	INSERT INT O [TBI].[S TD_POLYTRA UMA_SEVERI TY_LEVEL_I NDEX]([COD E], [NAME] , [DESCRIP TION_TEXT] , [SORT_OR DER], [INA CTIVE_FLAG ], [INACTI VE_DATE], [CREATEDBY ],
	213	[CREATED], [UPDATEDB Y], [UPDAT ED])
	214	VALUES('Mi ld', 'Mild ', 'Mild', 1, 0, NUL L, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	215
	216	INSERT INT O [TBI].[S TD_POLYTRA UMA_SEVERI TY_LEVEL_I NDEX]([COD E], [NAME] , [DESCRIP TION_TEXT] , [SORT_OR DER], [INA CTIVE_FLAG ], [INACTI VE_DATE], [CREATEDBY ],
	217	[CREATED], [UPDATEDB Y], [UPDAT ED])
	218	VALUES('Mo derate', ' Moderate', 'Moderate ', 2, 0, N ULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	219
	220	INSERT INT O [TBI].[S TD_POLYTRA UMA_SEVERI TY_LEVEL_I NDEX]([COD E], [NAME] , [DESCRIP TION_TEXT] , [SORT_OR DER], [INA CTIVE_FLAG ], [INACTI VE_DATE], [CREATEDBY ],
	221	[CREATED], [UPDATEDB Y], [UPDAT ED])
	222	VALUES('Se vere', 'Se vere', 'Se vere', 3, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	223
	224	INSERT INT O [TBI].[S TD_POLYTRA UMA_SEVERI TY_LEVEL_I NDEX]([COD E], [NAME] , [DESCRIP TION_TEXT] , [SORT_OR DER], [INA CTIVE_FLAG ], [INACTI VE_DATE], [CREATEDBY ],
	225	[CREATED], [UPDATEDB Y], [UPDAT ED])
	226	VALUES('NA ', 'N/A', 'Not Appli cable', 4, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	227
	228	END
	229	GO
	230
	231	-- Add SEV ERITY_LEVE L_INDEX fi eld (int n ull) - FK to [TBI].[ STD_POLYTR AUMA_SEVER ITY_LEVEL_ INDEX]
	232	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'SEVERITY_ LEVEL_INDE X_ID')
	233	BEGIN
	234
	235	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD SEVER ITY_LEVEL_ INDEX_ID i nt NULL
	236
	237	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	238	FK _TBI_POLYT RAUMA_STD_ POLYTRAUMA _SEVERITY_ LEVEL_INDE X FOREIGN KEY
	239	(
	240	SE VERITY_LEV EL_INDEX_I D
	241	) REFERENCES TBI.STD_P OLYTRAUMA_ SEVERITY_L EVEL_INDEX
	242	(
	243	ID
	244	) ON UPDATE NO ACTION
	245	O N DELETE NO ACTION
	246
	247	END
	248	GO
	249
	250	/******* * End Ch ange #7 ******** /
	251
	252
	253	/******* * Chan ge #8 ******** /
	254	-- Add DAY S_FROM_ONS ET field t o POLYTRAU MA - store s calculat ed days fr om onset t o admissio n
	255	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'DAYS_FROM _ONSET')
	256	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD DAYS_ FROM_ONSET int NULL
	257	GO
	258
	259	/******* * End Ch ange #8 ******** /
	260
	261
	262	/******* * Chan ge #9 ******** /
	263	-- Add PTR P_PROGRAM to POLYTRA UMA table (varchar(1 0) null)
	264	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'PTRP_PROG RAM')
	265	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD PTRP_ PROGRAM va rchar(10) NULL
	266	GO
	267
	268	/******* * End Ch ange #9 ******** /
	269
	270
	271	/******* * Chan ge #10 * ********** */
	272	IF NOT EXI STS (SELEC T * FROM s ys.objects WHERE obj ect_id = O BJECT_ID(N '[TBI].[ST D_PERSON_L IVING_WITH ]') AND ty pe in (N'U '))
	273	BEGIN
	274	CREATE TAB LE [TBI].[ STD_PERSON _LIVING_WI TH](
	275	[I D] [int] I DENTITY(1, 1) NOT NUL L,
	276	[C ODE] [varc har](50) N OT NULL,
	277	[N AME] [varc har](100) NOT NULL,
	278	[D ESCRIPTION _TEXT] [va rchar](500 ) NOT NULL ,
	279	[S ORT_ORDER] [int] NOT NULL,
	280	[I NACTIVE_FL AG] [bit] NOT NULL,
	281	[I NACTIVE_DA TE] [datet ime] NULL,
	282	[C REATEDBY] [varchar]( 30) NOT NU LL,
	283	[C REATED] [d atetime] N OT NULL,
	284	[U PDATEDBY] [varchar]( 30) NOT NU LL,
	285	[U PDATED] [d atetime] N OT NULL,
	286	[R OW_VERSION ] [timesta mp] NOT NU LL,
	287	CONSTRAIN T [PK_STD_ PERSON_LIV ING_WITH] PRIMARY KE Y CLUSTERE D
	288	(
	289	[I D] ASC
	290	)WITH (PAD _INDEX = OFF, STATI STICS_NORE COMPUTE = OFF, IGNO RE_DUP_KEY = OFF, AL LOW_ROW_LO CKS = ON, ALLOW_PAG E_LOCKS = ON) ON [P RIMARY]
	291	) ON [PRIM ARY]
	292
	293
	294	-- INSERT INITIAL DA TA
	295
	296	-- Alone
	297	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	298	[CREATED], [UPDATEDB Y], [UPDAT ED])
	299	VALUES('Al one', 'Alo ne', 'Alon e', 1, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	300
	301	-- Spouse
	302	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	303	[CREATED], [UPDATEDB Y], [UPDAT ED])
	304	VALUES('Sp ouse', 'Sp ouse', 'Sp ouse', 2, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	305
	306	-- Parent( s)
	307	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	308	[CREATED], [UPDATEDB Y], [UPDAT ED])
	309	VALUES('Pa rent', 'Pa rent(s)', 'Parent(s) ', 3, 0, N ULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	310
	311	-- Sibling
	312	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	313	[CREATED], [UPDATEDB Y], [UPDAT ED])
	314	VALUES('Si bling', 'S ibling', ' Sibling', 4, 0, NULL , ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	315
	316	-- Child<2 1
	317	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	318	[CREATED], [UPDATEDB Y], [UPDAT ED])
	319	VALUES('YC hild', 'Ch ild < 21', 'Child < 21', 5, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	320
	321	-- Child>= 21/Other R elative
	322	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	323	[CREATED], [UPDATEDB Y], [UPDAT ED])
	324	VALUES('AC hildOther' , 'Child > = 21 / Oth er Relativ e', 'Child >= 21 / O ther Relat ive', 6, 0 , NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	325
	326	-- Roommat e/Friend
	327	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	328	[CREATED], [UPDATEDB Y], [UPDAT ED])
	329	VALUES('Ro ommate', ' Roommate / Friend', 'Roommate / Friend', 7, 0, NUL L, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	330
	331	-- Signifi cant Other
	332	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	333	[CREATED], [UPDATEDB Y], [UPDAT ED])
	334	VALUES('Si gnificantO ther', 'Si gnificant Other', 'S ignificant Other', 8 , 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	335
	336	-- Other P atients
	337	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	338	[CREATED], [UPDATEDB Y], [UPDAT ED])
	339	VALUES('Ot herPatient s', 'Other Patients' , 'Other P atients', 9, 0, NULL , ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	340
	341	-- Other R esidents
	342	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	343	[CREATED], [UPDATEDB Y], [UPDAT ED])
	344	VALUES('Ot herResiden ts', 'Othe r Resident s', 'Other Residents ', 10, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	345
	346	-- Persona l Care Att endant
	347	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	348	[CREATED], [UPDATEDB Y], [UPDAT ED])
	349	VALUES('Pe rsonalCare Attendant' , 'Persona l Care Att endant', ' Personal C are Attend ant', 11, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	350
	351	-- Other
	352	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	353	[CREATED], [UPDATEDB Y], [UPDAT ED])
	354	VALUES('Ot her', 'Oth er', 'Othe r', 12, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	355
	356	-- Other M ilitary Pe rsonnel
	357	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	358	[CREATED], [UPDATEDB Y], [UPDAT ED])
	359	VALUES('Ot herMilitar y', 'Other Military Personnel' , 'Other M ilitary Pe rsonnel', 13, 0, NUL L, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	360
	361	-- Unknown
	362	INSERT INT O [TBI].[S TD_PERSON_ LIVING_WIT H]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	363	[CREATED], [UPDATEDB Y], [UPDAT ED])
	364	VALUES('Un known', 'U nknown', ' Unknown', 14, 0, NUL L, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	365
	366
	367	END
	368	GO
	369
	370	-- Add PRE INJURY_PRI M_PERSON_L IVING_WITH _ID field (int null) - FK to [ TBI].[STD_ PERSON_LIV ING_WITH]
	371	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'PREINJURY _PRIM_PERS ON_LIVING_ WITH_ID')
	372	BEGIN
	373
	374	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD PREIN JURY_PRIM_ PERSON_LIV ING_WITH_I D int NULL
	375
	376	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	377	FK _TBI_POLYT RAUMA_PREI NJURY_PRIM _STD_PERSO N_LIVING_W ITH FOREIG N KEY
	378	(
	379	PR EINJURY_PR IM_PERSON_ LIVING_WIT H_ID
	380	) REFERENCES TBI.STD_P ERSON_LIVI NG_WITH
	381	(
	382	ID
	383	) ON UPDATE NO ACTION
	384	O N DELETE NO ACTION
	385
	386	END
	387	GO
	388
	389	/******* * End Ch ange #10 ******** /
	390
	391
	392	/******* * Change #11 ** ******/
	393
	394	-- Add PRE INJURY_RES IDENCE_ID field (int null) - F K to [TBI] .[STD_TBID ISCHARGETO ]
	395	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'PREINJURY _RESIDENCE _ID')
	396	BEGIN
	397
	398	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD PREIN JURY_RESID ENCE_ID in t NULL
	399
	400	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	401	FK _TBI_POLYT RAUMA_PREI NJURY_RESI DENCE_ID_S TD_TBIDISC HARGETO FO REIGN KEY
	402	(
	403	PR EINJURY_RE SIDENCE_ID
	404	) REFERENCES TBI.STD_T BIDISCHARG ETO
	405	(
	406	ID
	407	) ON UPDATE NO ACTION
	408	O N DELETE NO ACTION
	409
	410	END
	411	GO
	412
	413	/******* * End Ch ange #11 ******** /
	414
	415
	416	/******* * Change #12 ** ******/
	417	-- Create STD_POLYTR AUMA_EMPLO YMENT_STAT US table a nd populat e with ini tial data.
	418	IF NOT EXI STS (SELEC T * FROM s ys.objects WHERE obj ect_id = O BJECT_ID(N '[TBI].[ST D_POLYTRAU MA_EMPLOYM ENT_STATUS ]') AND ty pe in (N'U '))
	419	BEGIN
	420	CREATE TAB LE [TBI].[ STD_POLYTR AUMA_EMPLO YMENT_STAT US](
	421	[I D] [int] I DENTITY(1, 1) NOT NUL L,
	422	[C ODE] [varc har](50) N OT NULL,
	423	[N AME] [varc har](100) NOT NULL,
	424	[D ESCRIPTION _TEXT] [va rchar](500 ) NOT NULL ,
	425	[S ORT_ORDER] [int] NOT NULL,
	426	[I NACTIVE_FL AG] [bit] NOT NULL,
	427	[I NACTIVE_DA TE] [datet ime] NULL,
	428	[C REATEDBY] [varchar]( 30) NOT NU LL,
	429	[C REATED] [d atetime] N OT NULL,
	430	[U PDATEDBY] [varchar]( 30) NOT NU LL,
	431	[U PDATED] [d atetime] N OT NULL,
	432	[R OW_VERSION ] [timesta mp] NOT NU LL,
	433	CONSTRAIN T [PK_STD_ POLYTRAUMA _EMPLOYMEN T_STATUS] PRIMARY KE Y CLUSTERE D
	434	(
	435	[I D] ASC
	436	)WITH (PAD _INDEX = OFF, STATI STICS_NORE COMPUTE = OFF, IGNO RE_DUP_KEY = OFF, AL LOW_ROW_LO CKS = ON, ALLOW_PAG E_LOCKS = ON) ON [P RIMARY]
	437	) ON [PRIM ARY]
	438
	439	-- INSERT INITIAL DA TA
	440	-- Full-ti me student (regular class)
	441	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	442	[CREATED], [UPDATEDB Y], [UPDAT ED])
	443	VALUES('FT _STUDENT', 'Full-tim e student (regular c lass)', 'F ull-time s tudent (re gular clas s)', 1, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	444
	445	-- Part-ti me student (regular class)
	446	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	447	[CREATED], [UPDATEDB Y], [UPDAT ED])
	448	VALUES('PT _STUDENT', 'Part-tim e student (regular c lass)', 'P art-time s tudent (re gular clas s)', 2, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	449
	450	-- Special education /other non -regular e ducation
	451	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	452	[CREATED], [UPDATEDB Y], [UPDAT ED])
	453	VALUES('SP EC_ED', 'S pecial edu cation/oth er non-reg ular educa tion', 'Sp ecial educ ation/othe r non-regu lar educat ion', 3, 0 , NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	454
	455	-- Competi tively emp loyed
	456	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	457	[CREATED], [UPDATEDB Y], [UPDAT ED])
	458	VALUES('CO MP_EMPLOYE D', 'Compe titively e mployed', 'Competiti vely emplo yed', 4, 0 , NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	459
	460	-- Taking care of ho use or fam ily
	461	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	462	[CREATED], [UPDATEDB Y], [UPDAT ED])
	463	VALUES('HO ME', 'Taki ng care of house or family', ' Taking car e of house or family ', 5, 0, N ULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	464
	465	-- Special employed (sheltered workshop, supportiv e employme nt, job co ach)
	466	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	467	[CREATED], [UPDATEDB Y], [UPDAT ED])
	468	VALUES('SP EC_EMPLOYE D', 'Speci al employe d', 'Speci al employe d (shelter ed worksho p, support ive employ ment, job coach) ', 6, 0, NULL , ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	469
	470	-- Retired (age)
	471	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	472	[CREATED], [UPDATEDB Y], [UPDAT ED])
	473	VALUES('RE TIRED_AGE' , 'Retired (age)', ' Retired (a ge)', 7, 0 , NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	474
	475	-- Unemplo yed (looki ng for wor k in the l ast 4 week s)
	476	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	477	[CREATED], [UPDATEDB Y], [UPDAT ED])
	478	VALUES('UN EMPLOYED_S EEK', 'Une mployed (s eeking)', 'Unemploye d (looking for work in the las t 4 weeks) ', 8, 0, N ULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	479
	480	-- Volunte er work
	481	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	482	[CREATED], [UPDATEDB Y], [UPDAT ED])
	483	VALUES('VO LUNTEER', 'Volunteer work', 'V olunteer w ork', 9, 0 , NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	484
	485	-- Retired (disabili ty)
	486	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	487	[CREATED], [UPDATEDB Y], [UPDAT ED])
	488	VALUES('RE TIRED_DISA BILITY', ' Retired (d isability) ', 'Retire d (disabil ity)', 10, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	489
	490	-- Unemplo yed (not l ooking for work in t he last 4 weeks for any reason )
	491	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	492	[CREATED], [UPDATEDB Y], [UPDAT ED])
	493	VALUES('UN EMPLOYED_N OT_SEEK', 'Unemploye d (not see king)', 'U nemployed (not looki ng for wor k in the l ast 4 week s for any reason)', 11, 0, NUL L, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	494
	495	-- Hospita lized with out pay fo r last 4 w eeks
	496	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	497	[CREATED], [UPDATEDB Y], [UPDAT ED])
	498	VALUES('HO SPITAL_NO_ PAY', 'Hos pitalized without pa y for last 4 weeks', 'Hospital ized witho ut pay for last 4 we eks', 12, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	499
	500	-- Retired (other)
	501	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	502	[CREATED], [UPDATEDB Y], [UPDAT ED])
	503	VALUES('RE TIRED_OTHE R', 'Retir ed (other) ', 'Retire d (other)' , 13, 0, N ULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	504
	505	-- On leav e from wor k, not rec eiving pay
	506	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	507	[CREATED], [UPDATEDB Y], [UPDAT ED])
	508	VALUES('LE AVE_NO_PAY ', 'On lea ve from wo rk, not re ceiving pa y', 'On le ave from w ork, not r eceiving p ay', 14, 0 , NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	509
	510	-- Other
	511	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	512	[CREATED], [UPDATEDB Y], [UPDAT ED])
	513	VALUES('OT HER', 'Oth er', 'Othe r', 15, 0, NULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	514
	515	-- Warrior Transitio n Unit/Bri gade
	516	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	517	[CREATED], [UPDATEDB Y], [UPDAT ED])
	518	VALUES('WT U_BRIGADE' , 'Warrior Transitio n Unit/Bri gade', 'Wa rrior Tran sition Uni t/Brigade' , 16, 0, N ULL, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	519
	520	-- Refused
	521	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	522	[CREATED], [UPDATEDB Y], [UPDAT ED])
	523	VALUES('RE FUSED', 'R efused', ' Refused', 17, 0, NUL L, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	524
	525	-- UNKNOWN
	526	INSERT INT O [TBI].[S TD_POLYTRA UMA_EMPLOY MENT_STATU S]([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATEDBY],
	527	[CREATED], [UPDATEDB Y], [UPDAT ED])
	528	VALUES('UN KNOWN', 'U nknown', ' Unknown', 18, 0, NUL L, ' DNS RYANK', GE TDATE(), ' DNS RYANK', GE TDATE());
	529
	530	END
	531	GO
	532
	533	-- Add PRE INJURY_PRI M_PERSON_L IVING_WITH _ID field (int null) - FK to [ TBI].[STD_ POLYTRAUMA _EMPLOYMEN T_STATUS]
	534	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'PRI_PREIN JURY_EMPLO Y_STATUS_I D')
	535	BEGIN
	536
	537	-- add fie lds
	538	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD PRI_P REINJURY_E MPLOY_STAT US_ID int NULL
	539
	540	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD SEC_P REINJURY_E MPLOY_STAT US_ID int NULL
	541
	542	-- add con straints t o STD_POLY TRAUMA_EMP LOYMENT_ST ATUS
	543	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	544	FK _TBI_POLYT RAUMA_PRI_ STD_POLYTR AUMA_EMPLO YMENT_STAT US FOREIGN KEY
	545	(
	546	PR I_PREINJUR Y_EMPLOY_S TATUS_ID
	547	) REFERENCES TBI.STD_P OLYTRAUMA_ EMPLOYMENT _STATUS
	548	(
	549	ID
	550	) ON UPDATE NO ACTION
	551	O N DELETE NO ACTION
	552
	553
	554	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	555	FK _TBI_POLYT RAUMA_SEC_ STD_POLYTR AUMA_EMPLO YMENT_STAT US FOREIGN KEY
	556	(
	557	SE C_PREINJUR Y_EMPLOY_S TATUS_ID
	558	) REFERENCES TBI.STD_P OLYTRAUMA_ EMPLOYMENT _STATUS
	559	(
	560	ID
	561	) ON UPDATE NO ACTION
	562	O N DELETE NO ACTION
	563
	564	END
	565	GO
	566
	567	/******* * End Ch ange #12 ******** /
	568
	569
	570	/******* * Change #13 ** ******/
	571	-- Add MPA I score co lumns to P OLYTRAUMA table
	572
	573	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_ABIL ITIES_INIT IAL')
	574	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ ABILITIES_ INITIAL in t NULL
	575
	576	/*** -- Re moved by s takeholder
	577	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_ABIL ITIES_DC')
	578	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ ABILITIES_ DC int NUL L
	579	**/
	580
	581	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_ABIL ITIES_FOLL OWUP')
	582	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ ABILITIES_ FOLLOWUP i nt NULL
	583
	584	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_ADJU STMENT_INI TIAL')
	585	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ ADJUSTMENT _INITIAL i nt NULL
	586
	587	/*** -- Re moved by s takeholder
	588	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_ADJU STMENT_DC' )
	589	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ ADJUSTMENT _DC int NU LL
	590	**/
	591
	592	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_ADJU STMENT_FOL LOWUP')
	593	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ ADJUSTMENT _FOLLOWUP int NULL
	594
	595	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_PART ICIPATION_ INITIAL')
	596	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ PARTICIPAT ION_INITIA L int NULL
	597
	598	/*** -- Re moved by s takeholder
	599	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_PART ICIPATION_ DC')
	600	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ PARTICIPAT ION_DC int NULL
	601	**/
	602
	603	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_PART ICIPATION_ FOLLOWUP')
	604	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ PARTICIPAT ION_FOLLOW UP int NUL L
	605
	606	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_TOTA L_INITIAL' )
	607	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ TOTAL_INIT IAL int NU LL
	608
	609	/*** -- Re moved by s takeholder
	610	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_TOTA L_DC')
	611	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ TOTAL_DC i nt NULL
	612	**/
	613
	614	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_TOTA L_FOLLOWUP ')
	615	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ TOTAL_FOLL OWUP int N ULL
	616
	617	GO
	618
	619	/******* * End Ch ange #13 ******** /
	620
	621
	622	/******* * Change #14 ** ******/
	623	-- Create (3) column s for stor ing MPAI Q 26 values for admiss ion, disch arge, and followup
	624
	625	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_Q26_ ADMISSION' )
	626	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ Q26_ADMISS ION int NU LL
	627
	628	/*** -- Re moved by s takeholder
	629	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_Q26_ DC')
	630	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ Q26_DC int NULL
	631	**/
	632
	633	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'MPAI_Q26_ FOLLOWUP')
	634	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD MPAI_ Q26_FOLLOW UP int NUL L
	635
	636	GO
	637
	638	/******* * End Ch ange #14 ******** /
	639
	640
	641	/******* * Change #15 ** ******/
	642	-- Create (3) new fi elds (int null) for storing Sa tisfaction with Life Score (sc ore range from 5 to 35) for ad mission, d ischarge, and follow up
	643	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'SATIS_W_L IFE_ADMISS ION')
	644	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD SATIS _W_LIFE_AD MISSION in t NULL
	645
	646	/*** -- Re moved by s takeholder
	647	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'SATIS_W_L IFE_DC')
	648	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD SATIS _W_LIFE_DC int NULL
	649	**/
	650
	651	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'SATIS_W_L IFE_FOLLOW UP')
	652	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD SATIS _W_LIFE_FO LLOWUP int NULL
	653
	654	GO
	655
	656	/******* * End Ch ange #15 ******** /
	657
	658
	659	/******* * Change #16 ** ******/
	660	-- Create new fields PART_FOLL OWUP (int null) for storing PA RT (0 – 12 8 range) - Participa tion Asses sment with Recombine d Tools (P ART) for f ollowup
	661	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'PART_FOLL OWUP')
	662	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD PART_ FOLLOWUP i nt NULL
	663
	664	/******* * End Ch ange #16 ******** /
	665
	666
	667	/******* * Change #17 ** ******/
	668	-- Create (3) new fi elds (int null) for WHO_QOL_AD MISSION, W HO_QOL_DC, and WHO_Q OL_FOLLOWU P
	669	/**
	670	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'WHO_QOL_A DMISSION')
	671	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD WHO_Q OL_ADMISSI ON int NUL L
	672	**/
	673	/*** -- Re moved by s takeholder
	674	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'WHO_QOL_D C')
	675	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD WHO_Q OL_DC int NULL
	676	**/
	677	/**
	678	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'WHO_QOL_F OLLOWUP')
	679	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD WHO_Q OL_FOLLOWU P int NULL
	680	**/
	681	/******* * End Ch ange #17 ******** /
	682
	683
	684	/******* * Change #18 ** ******/
	685
	686	IF (SELECT MAX(ID) F ROM TBI.ST D_TBIDSCHR GSTS) < 6
	687	BEGIN
	688
	689	UPDATE TBI .STD_TBIDS CHRGSTS SE T [INACTIV E_FLAG] = 1, [INACTI VE_DATE] = GETDATE() WHERE ID < 6;
	690
	691	-- Active Duty
	692	INSERT INT O TBI.STD_ TBIDSCHRGS TS([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATED], [U PDATED],
	693	[CREATEDBY ], [UPDATE DBY]) VALU ES('ACTIVE _DUTY', 'A ctive Duty ', 'Active Duty', 1, 0, NULL, GETDATE(), GETDATE() , ' DNS RYANK', ' DNS RYANK');
	694
	695	-- Tempora ry Disabil ity Retire d List (TD RL)
	696	INSERT INT O TBI.STD_ TBIDSCHRGS TS([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATED], [U PDATED],
	697	[CREATEDBY ], [UPDATE DBY]) VALU ES('TDRL', 'Temporar y Disabili ty Retired List', 'T emporary D isability Retired Li st (TDRL)' , 2, 0, NU LL, GETDAT E(), GETDA TE(), ' DNS RYANK', ' DNS RYANK');
	698
	699	-- Medical Evaluatio n Board in Process
	700	INSERT INT O TBI.STD_ TBIDSCHRGS TS([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATED], [U PDATED],
	701	[CREATEDBY ], [UPDATE DBY]) VALU ES('MEB', 'Medical E valuation Board in P rocess', ' Medical Ev aluation B oard in Pr ocess', 3, 0, NULL, GETDATE(), GETDATE() , ' DNS RYANK', ' DNS RYANK');
	702
	703	-- Convale scent Leav e
	704	INSERT INT O TBI.STD_ TBIDSCHRGS TS([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATED], [U PDATED],
	705	[CREATEDBY ], [UPDATE DBY]) VALU ES('CONVAL ESCENT_LEA VE', 'Conv alescent L eave', 'Co nvalescent Leave', 4 , 0, NULL, GETDATE() , GETDATE( ), ' DNS RYANK', ' DNS RYANK');
	706
	707	-- Veteran
	708	INSERT INT O TBI.STD_ TBIDSCHRGS TS([CODE], [NAME], [ DESCRIPTIO N_TEXT], [ SORT_ORDER ], [INACTI VE_FLAG], [INACTIVE_ DATE], [CR EATED], [U PDATED],
	709	[CREATEDBY ], [UPDATE DBY]) VALU ES('VETERA N', 'Veter an', 'Vete ran', 5, 0 , NULL, GE TDATE(), G ETDATE(), ' DNS RYANK', ' DNS RYANK');
	710
	711	END
	712	GO
	713
	714	-- create new column for milit ary duty s tatus at d ischarge, and constr aint for S TD_TBIDSCH RGSTS
	715	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'DC_MILITA RY_DUTY_ST ATUS_ID')
	716	BEGIN
	717
	718	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD DC_MI LITARY_DUT Y_STATUS_I D int NULL
	719
	720	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	721	FK _TBI_POLYT RAUMA_MILI TARY_DUTY_ STATUS_STD _TBIDSCHRG STS FOREIG N KEY
	722	(
	723	DC _MILITARY_ DUTY_STATU S_ID
	724	) REFERENCES TBI.STD_T BIDSCHRGST S
	725	(
	726	ID
	727	) ON UPDATE NO ACTION
	728	O N DELETE NO ACTION
	729
	730	END
	731	GO
	732
	733	/******* * End Ch ange #18 ******** /
	734
	735
	736	/******* * End Ch ange #19 ******** /
	737	-- Add PRI _PERSON_LI VING_DC_ID field (in t null) - FK to [TBI ].[STD_PER SON_LIVING _WITH]
	738	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'PRI_PERSO N_LIVING_D C_ID')
	739	BEGIN
	740
	741	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD PRI_P ERSON_LIVI NG_DC_ID i nt NULL
	742
	743	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	744	FK _TBI_POLYT RAUMA_PRI_ PERSON_DC_ STD_PERSON _LIVING_WI TH FOREIGN KEY
	745	(
	746	PR I_PERSON_L IVING_DC_I D
	747	) REFERENCES TBI.STD_P ERSON_LIVI NG_WITH
	748	(
	749	ID
	750	) ON UPDATE NO ACTION
	751	O N DELETE NO ACTION
	752
	753	END
	754	GO
	755
	756	-- Add PRI _PERSON_LI VING_FOLLO WUP_ID fie ld (int nu ll) - FK t o [TBI].[S TD_PERSON_ LIVING_WIT H]
	757	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'PRI_PERSO N_LIVING_F OLLOWUP_ID ')
	758	BEGIN
	759
	760	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD PRI_P ERSON_LIVI NG_FOLLOWU P_ID int N ULL
	761
	762	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	763	FK _TBI_POLYT RAUMA_PRI_ PERSON_FOL LOWUP_STD_ PERSON_LIV ING_WITH F OREIGN KEY
	764	(
	765	PR I_PERSON_L IVING_FOLL OWUP_ID
	766	) REFERENCES TBI.STD_P ERSON_LIVI NG_WITH
	767	(
	768	ID
	769	) ON UPDATE NO ACTION
	770	O N DELETE NO ACTION
	771
	772	END
	773	GO
	774
	775	/******* * End Ch ange #19 ******** /
	776
	777
	778	/******* * Change #20 ** ******/
	779	-- Add DC_ RESIDENCE_ ID field ( int null) - FK to [T BI].[STD_T BIDISCHARG ETO]
	780	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'DC_RESIDE NCE_ID')
	781	BEGIN
	782
	783	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD DC_RE SIDENCE_ID int NULL
	784
	785	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	786	FK _TBI_POLYT RAUMA_DC_R ESIDENCE_I D_STD_TBID ISCHARGETO FOREIGN K EY
	787	(
	788	DC _RESIDENCE _ID
	789	) REFERENCES TBI.STD_T BIDISCHARG ETO
	790	(
	791	ID
	792	) ON UPDATE NO ACTION
	793	O N DELETE NO ACTION
	794
	795	END
	796	GO
	797
	798	-- Add FOL LOWUP_RESI DENCE_ID f ield (int null) - FK to [TBI]. [STD_TBIDI SCHARGETO]
	799	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'FOLLOWUP_ RESIDENCE_ ID')
	800	BEGIN
	801
	802	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD FOLLO WUP_RESIDE NCE_ID int NULL
	803
	804	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	805	FK _TBI_POLYT RAUMA_FOLL OWUP_RESID ENCE_ID_ST D_TBIDISCH ARGETO FOR EIGN KEY
	806	(
	807	FO LLOWUP_RES IDENCE_ID
	808	) REFERENCES TBI.STD_T BIDISCHARG ETO
	809	(
	810	ID
	811	) ON UPDATE NO ACTION
	812	O N DELETE NO ACTION
	813
	814	END
	815	GO
	816
	817	/******* * End Ch ange #20 ******** /
	818
	819
	820	/******* * End Ch ange #21 ******** /
	821	-- Add PRI _DC_EMPLOY _STATUS_ID field (in t null) - FK to [TBI ].[STD_POL YTRAUMA_EM PLOYMENT_S TATUS]
	822	IF NOT EXI STS (SELEC T * FROM I NFORMATION _SCHEMA.CO LUMNS WHER E TABLE_NA ME = 'TBI_ POLYTRAUMA ' AND COLU MN_NAME = 'PRI_DC_EM PLOY_STATU S_ID')
	823	BEGIN
	824
	825	-- add fie lds
	826	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD PRI_D C_EMPLOY_S TATUS_ID i nt NULL
	827	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD SEC_D C_EMPLOY_S TATUS_ID i nt NULL
	828	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD PRI_F OLLOWUP_EM PLOY_STATU S_ID int N ULL
	829	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD SEC_F OLLOWUP_EM PLOY_STATU S_ID int N ULL
	830
	831	-- add con straints t o STD_POLY TRAUMA_EMP LOYMENT_ST ATUS
	832	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	833	FK _TBI_POLYT RAUMA_PRI_ DC_STD_POL YTRAUMA_EM PLOYMENT_S TATUS FORE IGN KEY
	834	(
	835	PR I_DC_EMPLO Y_STATUS_I D
	836	) REFERENCES TBI.STD_P OLYTRAUMA_ EMPLOYMENT _STATUS
	837	(
	838	ID
	839	) ON UPDATE NO ACTION
	840	O N DELETE NO ACTION
	841
	842
	843	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	844	FK _TBI_POLYT RAUMA_SEC_ DC_STD_POL YTRAUMA_EM PLOYMENT_S TATUS FORE IGN KEY
	845	(
	846	SE C_DC_EMPLO Y_STATUS_I D
	847	) REFERENCES TBI.STD_P OLYTRAUMA_ EMPLOYMENT _STATUS
	848	(
	849	ID
	850	) ON UPDATE NO ACTION
	851	O N DELETE NO ACTION
	852
	853	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	854	FK _TBI_POLYT RAUMA_PRI_ FOLLOWUP_S TD_POLYTRA UMA_EMPLOY MENT_STATU S FOREIGN KEY
	855	(
	856	PR I_FOLLOWUP _EMPLOY_ST ATUS_ID
	857	) REFERENCES TBI.STD_P OLYTRAUMA_ EMPLOYMENT _STATUS
	858	(
	859	ID
	860	) ON UPDATE NO ACTION
	861	O N DELETE NO ACTION
	862
	863
	864	ALTER TABL E TBI.TBI_ POLYTRAUMA ADD CONST RAINT
	865	FK _TBI_POLYT RAUMA_SEC_ FOLLOWUP_S TD_POLYTRA UMA_EMPLOY MENT_STATU S FOREIGN KEY
	866	(
	867	SE C_FOLLOWUP _EMPLOY_ST ATUS_ID
	868	) REFERENCES TBI.STD_P OLYTRAUMA_ EMPLOYMENT _STATUS
	869	(
	870	ID
	871	) ON UPDATE NO ACTION
	872	O N DELETE NO ACTION
	873
	874	END
	875	GO
	876
	877	/******* * End Ch ange #21 ******** /
	878
	879
	880	/******* * End Ch ange #22 ******** /
	881	-- Set Wal ter Reed a nd Nationa l Naval to inactive and add WR NNMC
	882	IF (SELECT MAX(ID) F ROM TBI.ST D_TBIFACIL ITYSRC) < 7
	883	BEGIN
	884
	885	UPDATE TBI .STD_TBIFA CILITYSRC SET [INACT IVE_FLAG] = 1, [INAC TIVE_DATE] = GETDATE () WHERE I D < 3;
	886
	887	INSERT INT O TBI.STD_ TBIFACILIT YSRC([CODE ], [NAME], [DESCRIPT ION_TEXT], [SORT_ORD ER], [INAC TIVE_FLAG] , [INACTIV E_DATE], [ CREATED], [UPDATED],
	888	[CREATEDBY ], [UPDATE DBY]) VALU ES('WRNNMC ', 'WRNNMC ', 'WRNNMC ', 1, 0, N ULL, GETDA TE(), GETD ATE(), ' DNS RYANK', ' DNS RYANK');
	889
	890	END
	891
	892	/******* * End Ch ange #22 ******** /