107. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/21/2018 5:29:16 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.

107.1 Files compared

#	Location	File	Last Modified
1			Wed Mar 21 21:29:16 2018 UTC
2	AHOBPRe_v4.3.15_bld3.zip\DatabaseScripts\AHOBPR\Increment 3\Pre-Prod\AHOBPR_Database_2_0_32.zip	Registry.AHOBPR.Database.Rollback.Version.2.0.32.sql	Thu Feb 11 15:55:58 2016 UTC

107.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	0	0
Changed	0	0
Inserted	1	3321
Removed	0	0

107.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

107.4 Active regular expressions

No regular expressions were active.

107.5 Comparison detail

				1		:setvar Da tabaseName "Registry QA"
				2
				3		---------- ---------- ---------- ---------- --
				4		-- 2.0.32. 2
				5		---------- ---------- ---------- ---------- --
				6		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				7		:setvar Ma jorRelease Number "2"
				8		:setvar Mi norRelease Number "0"
				9		:setvar Po intRelease Number "32 "
				10		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.32.2. sql"
				11
				12		print '
				13		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				14		Rollback $ (ScriptNam e)
				15
				16		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				17
				18		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				19		';
				20		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				21		print '
				22		******** ****** ****** ****** ****** *****
				23		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				24		******** ****** ****** ****** ****** *****
				25
				26		';
				27		go
				28		:on error exit
				29		go
				30		:setvar __ IsSqlCmdEn abled "Tru e"
				31		/*
				32		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				33		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				34		*/
				35		set noexec off;
				36		go
				37		if N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				38		BEGIN
				39		pr int N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				40		se t NOEXEC O N; --When set NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				41		end
				42
				43		go
				44
				45		use [$(Dat abaseName) ]
				46		GO
				47
				48		--****** ****
				49		--Rollback steps
				50		--****** ****
				51		--
				52		if exists (select * from sys.i ndexes whe re name = 'IX_StdFor mAnswer_St dFormQuest ion')
				53		drop ind ex IX_StdF ormAnswer_ StdFormQue stion ON A HOBPR.STD_ FORM_ANSWE R;
				54		go
				55		if exists (select * from sys.i ndexes whe re name = 'IX_StdFor mAnswer_BR PFormAnswe rId')
				56		drop ind ex IX_StdF ormAnswer_ BRPFormAns werId on A HOBPR.STD_ FORM_ANSWE R;
				57		go
				58
				59		if exists (select * from sys.p rocedures where name = 'SP_Rep ortRegistr antContact _pre_2_0_3 2_2'
				60		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				61		)
				62		begin
				63		if exist s (select * from sys .procedure s where na me = 'SP_R eportRegis trantConta ct'
				64		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				65		)
				66		drop p rocedure a hobpr.SP_R eportRegis trantConta ct;
				67		exec sp_ rename 'ah obpr.SP_Re portRegist rantContac t_pre_2_0_ 32_2', 'SP _ReportReg istrantCon tact'
				68		end;
				69		go
				70		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant SendQuesti ons_pre_2_ 0_32_2'
				71		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				72		)
				73		begin
				74		if exist s (select * from sys .procedure s where na me = 'SP_G etRegistra ntSendQues tions'
				75		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				76		)
				77		drop p rocedure a hobpr.SP_G etRegistra ntSendQues tions;
				78		exec sp_ rename 'ah obpr.SP_Ge tRegistran tSendQuest ions_pre_2 _0_32_2', 'SP_GetReg istrantSen dQuestions '
				79		end;
				80		go
				81
				82		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant SendMessag e_pre_2_0_ 32_2'
				83		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				84		)
				85		begin
				86		if exist s (select * from sys .procedure s where na me = 'SP_G etRegistra ntSendMess age'
				87		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				88		)
				89		drop p rocedure a hobpr.SP_G etRegistra ntSendMess age;
				90		exec sp_ rename 'ah obpr.SP_Ge tRegistran tSendMessa ge_pre_2_0 _32_2', 'S P_GetRegis trantSendM essage'
				91		end;
				92		go
				93
				94		if exists (select * from sys.p rocedures where name = 'SP_Rep ortAdHocBy Location_p re_2_0_32_ 2'
				95		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				96		)
				97		begin
				98		if exist s (select * from sys .procedure s where na me = 'SP_R eportAdHoc ByLocation '
				99		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				100		)
				101		drop p rocedure a hobpr.SP_R eportAdHoc ByLocation ;
				102		exec sp_ rename 'ah obpr.SP_Re portAdHocB yLocation_ pre_2_0_32 _2', 'SP_R eportAdHoc ByLocation '
				103		end;
				104
				105		go
				106
				107		if exists (select * from sys.p rocedures where name = 'SP_Rep ortAdHocBy Individual _pre_2_0_3 2_2'
				108		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				109		)
				110		begin
				111		if exist s (select * from sys .procedure s where na me = 'SP_R eportAdHoc ByIndividu al'
				112		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				113		)
				114		drop p rocedure a hobpr.SP_R eportAdHoc ByIndividu al;
				115		exec sp_ rename 'ah obpr.SP_Re portAdHocB yIndividua l_pre_2_0_ 32_2', 'SP _ReportAdH ocByIndivi dual'
				116		end;
				117
				118		print N'Ro llback com plete.';
				119		GO
				120
				121		delete
				122		from [db o].[Databa seChangeLo g]
				123		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				124		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				125		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				126		and [S criptName] = '$(Script Name)';
				127		GO
				128
				129
				130		---------- ---------- ---------- ---------- ---
				131		---- END R OLLBACK
				132		---------- ---------- ---------- ---------- ---
				133		--SELECT ' Last scrip t run and not rolled back',*
				134		--FROM [db o].[Databa seChangeLo g]
				135		--WHERE [ DatabaseCh angeID] = (
				136		-- SELECT M AX([Databa seChangeID ]) FROM [d bo].[Datab aseChangeL og]
				137		-- WHERE Ta rgetRegist ry = 'AHOBPR'
				138		-- );
				139
				140		---------- ---------- ---------- ---------- --
				141		-- 2.0.32. 1
				142		---------- ---------- ---------- ---------- --
				143		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				144		:setvar Ma jorRelease Number "2"
				145		:setvar Mi norRelease Number "0"
				146		:setvar Po intRelease Number "32 "
				147		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.32.1. sql"
				148
				149		print '
				150		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				151		Rollback $ (ScriptNam e)
				152
				153		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				154
				155		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				156		';
				157		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				158		print '
				159		******** ****** ****** ****** ****** *****
				160		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				161		******** ****** ****** ****** ****** *****
				162
				163		';
				164		go
				165		:on error exit
				166		go
				167		:setvar __ IsSqlCmdEn abled "Tru e"
				168		/*
				169		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				170		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				171		*/
				172		set noexec off;
				173		go
				174		if N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				175		BEGIN
				176		pr int N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				177		se t NOEXEC O N; --When set NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				178		end
				179
				180		go
				181
				182		use [$(Dat abaseName) ]
				183		GO
				184
				185		--****** ****
				186		--Rollback steps
				187		--****** ****
				188		--
				189
				190		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant AddFlag_pr e_2_0_32_1 '
				191		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				192		)
				193		begin
				194		if exist s(select * from sys. procedures where nam e = 'SP_Ge tRegistran tAddFlag'
				195		and sch ema_id = ( select sch ema_id fro m sys.sche mas where name = 'AH OBPR')
				196		)
				197		drop p rocedure A HOBPR.SP_G etRegistra ntAddFlag;
				198
				199		exec sp_ rename 'AH OBPR.SP_Ge tRegistran tAddFlag_p re_2_0_32_ 1','SP_Get Registrant AddFlag';
				200		end;
				201
				202		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant SendMessag e_pre_2_0_ 32_1'
				203		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				204		)
				205		begin
				206		if exist s(select * from sys. procedures where nam e = 'SP_Ge tRegistran tSendMessa ge'
				207		and sch ema_id = ( select sch ema_id fro m sys.sche mas where name = 'AH OBPR')
				208		)
				209		drop p rocedure A HOBPR.SP_G etRegistra ntSendMess age;
				210
				211		exec sp_ rename 'AH OBPR.SP_Ge tRegistran tSendMessa ge_pre_2_0 _32_1','SP _GetRegist rantSendMe ssage';
				212		end;
				213
				214
				215		GO
				216
				217		if exists (select * from sys.p rocedures where name = 'SP_Rep ortAdHocBy Individual _pre_2_0_3 2_1'
				218		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				219		)
				220		begin
				221		if exist s(select * from sys. procedures where nam e = 'SP_Re portAdHocB yIndividua l'
				222		and sch ema_id = ( select sch ema_id fro m sys.sche mas where name = 'AH OBPR')
				223		)
				224		drop p rocedure A HOBPR.SP_R eportAdHoc ByIndividu al;
				225
				226		exec sp_ rename 'AH OBPR.SP_Re portAdHocB yIndividua l_pre_2_0_ 32_1','SP_ ReportAdHo cByIndivid ual';
				227		end;
				228
				229		if exists (select * from sys.p rocedures where name = 'SP_Rep ortRegistr antContact _pre_2_0_3 2_1'
				230		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				231		)
				232		begin
				233		if exist s(select * from sys. procedures where nam e = 'SP_Re portRegist rantContac t'
				234		and sch ema_id = ( select sch ema_id fro m sys.sche mas where name = 'AH OBPR')
				235		)
				236		drop p rocedure A HOBPR.SP_R eportRegis trantConta ct;
				237
				238		exec sp_ rename 'AH OBPR.SP_Re portRegist rantContac t_pre_2_0_ 32_1','SP_ ReportRegi strantCont act';
				239		end;
				240
				241		print N'Ro llback com plete.';
				242		GO
				243
				244		delete
				245		from [db o].[Databa seChangeLo g]
				246		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				247		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				248		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				249		and [S criptName] = '$(Script Name)';
				250		GO
				251
				252
				253		---------- ---------- ---------- ---------- ---
				254		---- END R OLLBACK
				255		---------- ---------- ---------- ---------- ---
				256		--SELECT ' Last scrip t run and not rolled back',*
				257		--FROM [db o].[Databa seChangeLo g]
				258		--WHERE [ DatabaseCh angeID] = (
				259		-- SELECT M AX([Databa seChangeID ]) FROM [d bo].[Datab aseChangeL og]
				260		-- WHERE Ta rgetRegist ry = 'AHOBPR'
				261		-- );
				262		go
				263		---------- ---------- ---------- ---------- --
				264		-- 2.0.30. 1
				265		---------- ---------- ---------- ---------- --
				266		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				267		:setvar Ma jorRelease Number "2"
				268		:setvar Mi norRelease Number "0"
				269		:setvar Po intRelease Number "30 "
				270		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.30.1. sql"
				271
				272		print '
				273		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				274		Rollback $ (ScriptNam e)
				275
				276		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				277
				278		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				279		';
				280		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				281		print '
				282		******** ****** ****** ****** ****** *****
				283		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				284		******** ****** ****** ****** ****** *****
				285
				286		';
				287		go
				288		:on error exit
				289		go
				290		:setvar __ IsSqlCmdEn abled "Tru e"
				291		/*
				292		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				293		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				294		*/
				295		set noexec off;
				296		go
				297		if N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				298		BEGIN
				299		pr int N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				300		se t NOEXEC O N; --When set NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				301		end
				302
				303		go
				304
				305		use [$(Dat abaseName) ]
				306		GO
				307
				308		--****** ****
				309		--Rollback steps
				310		--****** ****
				311		--
				312
				313		if exists (select * from sys.v iews where name = 'v iew_lookup _pre_2_0_3 0'
				314		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				315		)
				316		begin
				317		if exist s(select * from sys. views wher e name = ' VIEW_LOOKU P'
				318		and sch ema_id = ( select sch ema_id fro m sys.sche mas where name = 'AH OBPR')
				319		)
				320		drop v iew AHOBPR .VIEW_LOOK UP;
				321
				322		exec sp_ rename 'AH OBPR.view_ lookup_pre _2_0_30',' VIEW_LOOKU P';
				323		end;
				324
				325		go
				326
				327		print N'Ro llback com plete.';
				328		GO
				329
				330		delete
				331		from [db o].[Databa seChangeLo g]
				332		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				333		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				334		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				335		and [S criptName] = '$(Script Name)';
				336		GO
				337
				338		---------- ---------- ---------- ---------- --
				339		-- 2.0.24. 1
				340		---------- ---------- ---------- ---------- --
				341		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				342		:setvar Ma jorRelease Number "2"
				343		:setvar Mi norRelease Number "0"
				344		:setvar Po intRelease Number "24 "
				345		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.24.1. sql"
				346
				347		print '
				348		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				349		Rollback $ (ScriptNam e)
				350
				351		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				352
				353		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				354		';
				355		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				356		print '
				357		******** ****** ****** ****** ****** *****
				358		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				359		******** ****** ****** ****** ****** *****
				360
				361		';
				362		go
				363		:on error exit
				364		go
				365		:setvar __ IsSqlCmdEn abled "Tru e"
				366		/*
				367		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				368		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				369		*/
				370		set noexec off;
				371		go
				372		if N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				373		BEGIN
				374		pr int N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				375		se t NOEXEC O N; --When set NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				376		end
				377
				378		go
				379
				380		use [$(Dat abaseName) ]
				381		GO
				382
				383		--****** ****
				384		--Rollback steps
				385		--****** ****
				386		--
				387		update [d bo].[Datab aseChangeL og]
				388		set [Scr iptDescrip tion] = 'R ollback in itiated... '
				389		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				390		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				391		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				392		and [S criptName] = '$(Script Name)';
				393		go
				394		set ansi_n ulls, ansi _padding, ansi_warni ngs, arith abort, con cat_null_y ields_null , quoted_i dentifier on;
				395
				396		set numeri c_roundabo rt off;
				397
				398		go
				399		if exists( select * f rom sys.vi ews where name = 'vi ew_lookup_ pre2_0_24_ 1'
				400		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR'))
				401		begin
				402		if exi sts (selec t * from s ys.views w here name = 'VIEW_LO OKUP'
				403		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'a hobpr')
				404		)
				405		drop v iew [AHOBP R].[VIEW_L OOKUP];
				406		exec sp_ rename 'ah obpr.view_ lookup_pre 2_0_24_1', 'VIEW_LOOK UP' ;
				407		end;
				408
				409		go
				410
				411
				412		declare @ RegistryId int = (se lect ID fr om [dbo].[ STD_REGIST RY] where [CODE] = N 'AHOBPR');
				413		declare @ Today date time = get date();
				414
				415		if exists (select * from sys.t ables wher e name = ' std_gui_co ntrols_pre 2_0_24_1'
				416		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR'))
				417		begin
				418		delete f rom [dbo]. [STD_GUI_C ONTROLS] w here [STD_ REGISTRY_I D] = @Regi stryId;
				419
				420		insert
				421		into [ dbo].[STD_ GUI_CONTRO LS]
				422		(
				423		[STD_REGI STRY_ID]
				424		,[CATEGORY ]
				425		,[NAME]
				426		,[BASE_CON TROL_TYPE]
				427		,[USER_CON TROL_ID]
				428		,[VALIDATI ON_ERROR_M ESSAGE]
				429		,[VALIDATI ON_REGULAR _EXPRESSIO N]
				430		,[TOOL_TIP ]
				431		,[SORT_ORD ER]
				432		,[CREATED]
				433		,[UPDATED]
				434		,[CREATEDB Y]
				435		,[UPDATEDB Y]
				436		,[LOOKUP_L IST_CATEGO RY]
				437		,[BASE_CON TROL_WIDTH ]
				438		,[DATA_ELE MENT_WIDTH ]
				439		,[REQUIRED ]
				440		,[INCLUDE_ LABEL]
				441		,[LABEL_TE XT]
				442		,[LOOKUP_L IST_CATEGO RY2]
				443		,[LOOKUP_L IST_CATEGO RY3]
				444		,[VALIDATI ON_GROUP]
				445		,[DATA_TYP E_MAX_LENG TH]
				446		,[PANEL_NA ME]
				447		)
				448		SELECT [ST D_REGISTRY _ID]
				449		,[CA TEGORY]
				450		,[NA ME]
				451		,[BA SE_CONTROL _TYPE]
				452		,[US ER_CONTROL _ID]
				453		,[VA LIDATION_E RROR_MESSA GE]
				454		,[VA LIDATION_R EGULAR_EXP RESSION]
				455		,[TO OL_TIP]
				456		,[SO RT_ORDER]
				457		,[CR EATED]
				458		,[UP DATED]
				459		,[CR EATEDBY]
				460		,[UP DATEDBY]
				461		,[LO OKUP_LIST_ CATEGORY]
				462		,[BA SE_CONTROL _WIDTH]
				463		,[DA TA_ELEMENT _WIDTH]
				464		,[RE QUIRED]
				465		,[IN CLUDE_LABE L]
				466		,[LA BEL_TEXT]
				467		,[LO OKUP_LIST_ CATEGORY2]
				468		,[LO OKUP_LIST_ CATEGORY3]
				469		,[VA LIDATION_G ROUP]
				470		,[DA TA_TYPE_MA X_LENGTH]
				471		,[PA NEL_NAME]
				472		FROM [AH OBPR].[std _gui_contr ols_pre2_0 _24_1];
				473
				474		drop tab le ahobpr. std_gui_co ntrols_pre 2_0_24_1;
				475		end;
				476
				477
				478		go
				479
				480		print N'Ro llback com plete.';
				481		GO
				482
				483		delete
				484		from [db o].[Databa seChangeLo g]
				485		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				486		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				487		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				488		and [S criptName] = '$(Script Name)';
				489		GO
				490		---------- ---------- ---------- ---------- --
				491		-- 2.0.23. 1
				492		---------- ---------- ---------- ---------- --
				493		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				494		:setvar Ma jorRelease Number "2"
				495		:setvar Mi norRelease Number "0"
				496		:setvar Po intRelease Number "23 "
				497		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.23.1. sql"
				498
				499		print '
				500		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				501		Rollback $ (ScriptNam e)
				502
				503		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				504
				505		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				506		';
				507		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				508		print '
				509		******** ****** ****** ****** ****** *****
				510		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				511		******** ****** ****** ****** ****** *****
				512
				513		';
				514		go
				515		:on error exit
				516		go
				517		:setvar __ IsSqlCmdEn abled "Tru e"
				518		/*
				519		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				520		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				521		*/
				522		set noexec off;
				523		go
				524		if N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				525		BEGIN
				526		pr int N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				527		se t NOEXEC O N; --When set NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				528		end
				529
				530		go
				531
				532		use [$(Dat abaseName) ]
				533		GO
				534
				535		--****** ****
				536		--Rollback steps
				537		--****** ****
				538		--
				539		update [d bo].[Datab aseChangeL og]
				540		set [Scr iptDescrip tion] = 'R ollback in itiated... '
				541		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				542		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				543		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				544		and [S criptName] = '$(Script Name)';
				545		go
				546		set ansi_n ulls, ansi _padding, ansi_warni ngs, arith abort, con cat_null_y ields_null , quoted_i dentifier on;
				547
				548		set numeri c_roundabo rt off;
				549
				550		go
				551
				552		update [ AHOBPR].[S TD_REGISTR Y_FLAG_TYP E]
				553		set REGI STRY_FLAG_ TYPE = REP LACE(REGIS TRY_FLAG_T YPE, 'Subp opulation' , 'SubPopu lation'),
				554		REGISTRY_F LAG_TYPE_D ESCRIPTION = REPLACE (REGISTRY_ FLAG_TYPE_ DESCRIPTIO N, 'Subpop ulation', 'SubPopula tion');
				555
				556
				557		go
				558
				559		print N'Ro llback com plete.';
				560		GO
				561
				562		delete
				563		from [db o].[Databa seChangeLo g]
				564		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				565		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				566		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				567		and [S criptName] = '$(Script Name)';
				568		GO
				569		---------- ---------- ---------- ---------- ----
				570		-- 2.0.20. 2
				571		---------- ---------- ---------- ---------- ----
				572		--:setvar DatabaseNa me "Regist ry"
				573		:setvar Ma jorRelease Number "2"
				574		:setvar Mi norRelease Number "0"
				575		:setvar Po intRelease Number "20 "
				576		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.20.2. sql"
				577
				578		print '
				579		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				580		Rollback $ (ScriptNam e)
				581
				582		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				583
				584		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				585		';
				586		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				587		print '
				588		******** ****** ****** ****** ****** *****
				589		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				590		******** ****** ****** ****** ****** *****
				591
				592		';
				593		GO
				594		:on error exit
				595		GO
				596		:setvar __ IsSqlCmdEn abled "Tru e"
				597		/*
				598		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				599		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				600		*/
				601		set noexec off;
				602		go
				603		if N'$(__I sSqlCmdEna bled)' not like N'Tr ue'
				604		begin
				605		print N'SQLCMD m ode must b e enabled to success fully exec ute this s cript.';
				606		set no exec on; - -when set noexec is on, sql se rver compi les each b atch of tr ansact-sql statement s but does not execu te them.
				607		end
				608
				609		GO
				610
				611		USE [$(Dat abaseName) ]
				612		GO
				613		---------- ---------- ---------- ---------- --
				614		---------- ---------- ---------- ---------- --
				615		if exists (select * from sys.t riggers wh ere object _id = OBJE CT_ID(N'[A HOBPR].[TR G_AHOBPR_U SER_H]'))
				616		drop tri gger [AHOB PR].[TRG_A HOBPR_USER _H];
				617		go
				618
				619		if exists( select * f rom sys.tr iggers whe re object_ id=OBJECT_ ID(N'[AHOB PR].[TRG_A HOBPR_USER _DEL_H]'))
				620		drop tri gger [AHOB PR].[TRG_A HOBPR_USER _DEL_H];
				621		go
				622		if exists (select * from sys.o bjects whe re object_ id = OBJEC T_ID(N'[AH OBPR].[AHO BPR_USER_H ]') AND ty pe in (N'U '))
				623		begin
				624		drop tab le [AHOBPR ].[AHOBPR_ USER_H];
				625		end;
				626		go
				627
				628		if exists (select * from sys.t riggers wh ere object _id = OBJE CT_ID(N'[A HOBPR].[TR G_EMAIL_TE MPLATES_H] '))
				629		drop tri gger [AHOB PR].[TRG_E MAIL_TEMPL ATES_H];
				630		go
				631
				632		if exists( select * f rom sys.tr iggers whe re object_ id=OBJECT_ ID(N'[AHOB PR].[TRG_E MAIL_TEMPL ATES_DEL_H ]'))
				633		drop tri gger [AHOB PR].[TRG_E MAIL_TEMPL ATES_DEL_H ];
				634		go
				635
				636		if exists (select * from sys.o bjects whe re object_ id = OBJEC T_ID(N'[AH OBPR].[EMA IL_TEMPLAT ES_H]') AN D type in (N'U'))
				637		begin
				638		drop tab le [AHOBPR ].[EMAIL_T EMPLATES_H ]
				639		end;
				640		go
				641
				642		if exists (select * from sys.t riggers wh ere object _id = OBJE CT_ID(N'[A HOBPR].[TR G_FOLLOWUP _FORM_RESP ONSE_H]'))
				643		drop tri gger [AHOB PR].[TRG_F OLLOWUP_FO RM_RESPONS E_H];
				644		go
				645		if exists( select * f rom sys.tr iggers whe re object_ id=OBJECT_ ID(N'[AHOB PR].[TRG_F OLLOWUP_FO RM_RESPONS E_DEL_H]') )
				646		drop tri gger [AHOB PR].[TRG_F OLLOWUP_FO RM_RESPONS E_DEL_H];
				647		go
				648
				649		if exists (select * from sys.o bjects whe re object_ id = OBJEC T_ID(N'[AH OBPR].[FOL LOWUP_FORM _RESPONSE_ H]') AND t ype in (N' U'))
				650		begin
				651		drop tab le [AHOBPR ].[FOLLOWU P_FORM_RES PONSE_H];
				652		end;
				653		go
				654		if exists (select * from sys.t riggers wh ere object _id = OBJE CT_ID(N'[A HOBPR].[TR G_FOLLOWUP _FORM_RESP ONSE_ANSWE R_H]'))
				655		drop tri gger [AHOB PR].[TRG_F OLLOWUP_FO RM_RESPONS E_ANSWER_H ];
				656		go
				657		if exists( select * f rom sys.tr iggers whe re object_ id=OBJECT_ ID(N'[AHOB PR].[TRG_F OLLOWUP_FO RM_RESPONS E_ANSWER_D EL_H]'))
				658		drop tri gger [AHOB PR].[TRG_F OLLOWUP_FO RM_RESPONS E_ANSWER_D EL_H];
				659		go
				660
				661		if exists (select * from sys.o bjects whe re object_ id = OBJEC T_ID(N'[AH OBPR].[FOL LOWUP_FORM _RESPONSE_ ANSWER_H]' ) AND type in (N'U') )
				662		begin
				663		drop tab le [AHOBPR ].[FOLLOWU P_FORM_RES PONSE_ANSW ER_H];
				664		end;
				665		go
				666		if exists (select * from sys.t riggers wh ere object _id = OBJE CT_ID(N'[A HOBPR].[TR G_FOLLOWUP _FORM_RESP ONSE_QUEST ION_H]'))
				667		drop tri gger [AHOB PR].[TRG_F OLLOWUP_FO RM_RESPONS E_QUESTION _H];
				668		go
				669		if exists( select * f rom sys.tr iggers whe re object_ id=OBJECT_ ID(N'[AHOB PR].[TRG_F OLLOWUP_FO RM_RESPONS E_QUESTION _DEL_H]'))
				670		drop tri gger [AHOB PR].[TRG_F OLLOWUP_FO RM_RESPONS E_QUESTION _DEL_H];
				671		go
				672
				673		if exists (select * from sys.o bjects whe re object_ id = OBJEC T_ID(N'[AH OBPR].[FOL LOWUP_FORM _RESPONSE_ QUESTION_H ]') AND ty pe in (N'U '))
				674		begin
				675		drop tab le [AHOBPR ].[FOLLOWU P_FORM_RES PONSE_QUES TION_H];
				676		end;
				677		go
				678		if exists (select * from sys.t riggers wh ere object _id = OBJE CT_ID(N'[A HOBPR].[TR G_TOOL_ANS WER_H]'))
				679		drop tri gger [AHOB PR].[TRG_T OOL_ANSWER _H];
				680		go
				681		if exists( select * f rom sys.tr iggers whe re object_ id=OBJECT_ ID(N'[AHOB PR].[TRG_T OOL_ANSWER _DEL_H]'))
				682		drop tri gger [AHOB PR].[TRG_T OOL_ANSWER _DEL_H];
				683		go
				684
				685		if exists (select * from sys.o bjects whe re object_ id = OBJEC T_ID(N'[AH OBPR].[TOO L_ANSWER_H ]') AND ty pe in (N'U '))
				686		begin
				687		drop tab le [AHOBPR ].[TOOL_AN SWER_H];
				688		end;
				689		go
				690		if exists (select * from sys.t riggers wh ere object _id = OBJE CT_ID(N'[A HOBPR].[TR G_TOOL_FOR M_H]'))
				691		drop tri gger [AHOB PR].[TRG_T OOL_FORM_H ];
				692		go
				693		if exists( select * f rom sys.tr iggers whe re object_ id=OBJECT_ ID(N'[AHOB PR].[TRG_T OOL_FORM_D EL_H]'))
				694		drop tri gger [AHOB PR].[TRG_T OOL_FORM_D EL_H];
				695		go
				696
				697		if exists (select * from sys.o bjects whe re object_ id = OBJEC T_ID(N'[AH OBPR].[TOO L_FORM_H]' ) AND type in (N'U') )
				698		begin
				699		drop tab le [AHOBPR ].[TOOL_FO RM_H];
				700		end;
				701		go
				702		if exists (select * from sys.t riggers wh ere object _id = OBJE CT_ID(N'[A HOBPR].[TR G_TOOL_FOR M_QUESTION _H]'))
				703		drop tri gger [AHOB PR].[TRG_T OOL_FORM_Q UESTION_H]
				704		go
				705		if exists( select * f rom sys.tr iggers whe re object_ id=OBJECT_ ID(N'[AHOB PR].[TRG_T OOL_FORM_Q UESTION_DE L_H]'))
				706		drop tri gger [AHOB PR].[TRG_T OOL_FORM_Q UESTION_DE L_H];
				707		go
				708
				709		if exists (select * from sys.o bjects whe re object_ id = OBJEC T_ID(N'[AH OBPR].[TOO L_FORM_QUE STION_H]') AND type in (N'U'))
				710		begin
				711		drop tab le [AHOBPR ].[TOOL_FO RM_QUESTIO N_H];
				712		end;
				713		go
				714		if exists (select * from sys.t riggers wh ere object _id = OBJE CT_ID(N'[A HOBPR].[TR G_TOOL_QUE STION_H]') )
				715		drop trigg er [AHOBPR ].[TRG_TOO L_QUESTION _H]
				716		go
				717
				718		if exists( select * f rom sys.tr iggers whe re object_ id=OBJECT_ ID(N'[AHOB PR].[TRG_T OOL_QUESTI ON_DEL_H]' ))
				719		drop tri gger [AHOB PR].[TRG_T OOL_QUESTI ON_DEL_H]
				720		go
				721
				722		if exists (select * from sys.o bjects whe re object_ id = OBJEC T_ID(N'[AH OBPR].[TOO L_QUESTION _H]') AND type in (N 'U'))
				723		begin
				724		drop tab le [AHOBPR ].[TOOL_QU ESTION_H]
				725		end;
				726		print N'Ro llback com plete.';
				727		go
				728
				729		delete
				730		from [db o].[Databa seChangeLo g]
				731		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				732		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				733		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				734		and [S criptName] = '$(Script Name)';
				735		go
				736
				737
				738		---------- ---------- ---------- ---------- ---------- -----
				739		-- 2.0.20. 1
				740		---------- ---------- ---------- ---------- ---------- -----
				741		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				742		:setvar Ma jorRelease Number "2"
				743		:setvar Mi norRelease Number "0"
				744		:setvar Po intRelease Number "20 "
				745		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.20.1. sql"
				746
				747		print '
				748		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				749		Rollback $ (ScriptNam e)
				750
				751		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				752
				753		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				754		';
				755		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				756		print '
				757		******** ****** ****** ****** ****** *****
				758		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				759		******** ****** ****** ****** ****** *****
				760
				761		';
				762		go
				763		:on error exit
				764		go
				765		:setvar __ IsSqlCmdEn abled "Tru e"
				766		/*
				767		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				768		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				769		*/
				770		set noexec off;
				771		go
				772		if N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				773		BEGIN
				774		pr int N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				775		se t NOEXEC O N; --When set NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				776		end
				777
				778		go
				779
				780		use [$(Dat abaseName) ]
				781		GO
				782
				783		--****** ****
				784		--Rollback steps
				785		--****** ****
				786		--
				787		update [d bo].[Datab aseChangeL og]
				788		set [Scr iptDescrip tion] = 'R ollback in itiated... '
				789		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				790		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				791		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				792		and [S criptName] = '$(Script Name)';
				793		go
				794		set ansi_n ulls, ansi _padding, ansi_warni ngs, arith abort, con cat_null_y ields_null , quoted_i dentifier on;
				795
				796		set numeri c_roundabo rt off;
				797
				798		go
				799
				800		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant File'
				801		and schema _id = (sel ect schema _id from [ sys].[sche mas] where name = 'A HOBPR')
				802		)
				803		begin
				804		print 'D rop proced ure SP_Get Registrant File...';
				805		drop pro cedure aho bpr.SP_Get Registrant File;
				806		end;
				807
				808		go
				809
				810		print N'Ro llback com plete.';
				811		GO
				812
				813		delete
				814		from [db o].[Databa seChangeLo g]
				815		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				816		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				817		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				818		and [S criptName] = '$(Script Name)';
				819		GO
				820		---------- ---------- ---------- ---------- -
				821		-- 2.0.17. 1
				822		---------- ---------- ---------- ---------- --
				823
				824		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				825		:setvar Ma jorRelease Number "2"
				826		:setvar Mi norRelease Number "0"
				827		:setvar Po intRelease Number "17 "
				828		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.17.1. sql"
				829
				830		PRINT '
				831		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				832		Rollback $ (ScriptNam e)
				833
				834		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				835
				836		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				837		';
				838		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				839		PRINT '
				840		******** ****** ****** ****** ****** *****
				841		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				842		******** ****** ****** ****** ****** *****
				843
				844		';
				845		GO
				846		:on error exit
				847		GO
				848		:setvar __ IsSqlCmdEn abled "Tru e"
				849		/*
				850		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				851		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				852		*/
				853		SET NOEXEC OFF;
				854		GO
				855		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				856		BEGIN
				857		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				858		SE T NOEXEC O N; --When SET NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				859		END
				860
				861		GO
				862
				863		USE [$(Dat abaseName) ]
				864		GO
				865
				866		--****** ****
				867		--Rollback steps
				868		--****** ****
				869		--
				870		UPDATE [d bo].[Datab aseChangeL og]
				871		SET [Scr iptDescrip tion] = 'R ollback in itiated... '
				872		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				873		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				874		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				875		AND [S criptName] = '$(Script Name)';
				876		GO
				877		SET ANSI_N ULLS, ANSI _PADDING, ANSI_WARNI NGS, ARITH ABORT, CON CAT_NULL_Y IELDS_NULL , QUOTED_I DENTIFIER ON;
				878
				879		SET NUMERI C_ROUNDABO RT OFF;
				880
				881		GO
				882
				883		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant AddFlag_Pr e2_0_17'
				884		and schema _id = (sel ect schema _id from [ sys].[sche mas] where name = 'A HOBPR')
				885		)
				886		begin
				887		print 'M ove AHOBPR .SP_GetReg istrantAdd Flag_Pre2_ 0_17 to SP _GetRegist rantAddFla g...';
				888		if exist s (select * from sys .procedure s where na me = 'SP_G etRegistra ntAddFlag'
				889		and sc hema_id = (select sc hema_id fr om [sys].[ schemas] w here name = 'AHOBPR' )
				890		)
				891		drop p rocedure a hobpr.SP_G etRegistra ntAddFlag;
				892		exec sp_ rename 'AH OBPR.SP_Ge tRegistran tAddFlag_P re2_0_17', 'SP_GetRe gistrantAd dFlag';
				893		end;
				894
				895		go
				896		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant SendQuesti ons_Pre2_0 _17'
				897		and schem a_id = (se lect schem a_id from [sys].[sch emas] wher e name = ' AHOBPR')
				898		)
				899		begin
				900		print 'M ove AHOBPR .SP_GetReg istrantSen dQuestions _Pre2_0_17 to SP_Get Registrant SendQuesti ons...';
				901		if exist s (select * from sys .procedure s where na me = 'SP_G etRegistra ntSendQues tions'
				902		and sc hema_id = (select sc hema_id fr om [sys].[ schemas] w here name = 'AHOBPR' )
				903		)
				904		drop p rocedure a hobpr.SP_G etRegistra ntSendQues tions;
				905		exec sp_ rename 'AH OBPR.SP_Ge tRegistran tSendQuest ions_Pre2_ 0_17', 'SP _GetRegist rantSendQu estions';
				906		end;
				907
				908		GO
				909		IF exists (select * from sys.v iews where name='vie w_lookup_P re2_0_17_1 '
				910		and schem a_id = (se lect schem a_id from sys.schema s where na me = 'ahob pr')
				911		)
				912		begin
				913		print 'M ove VIEW_L OOKUP2_0_1 7_1 to VIE W_LOOKUP_P re';
				914		if exist s (select * from sys .views whe re name = 'VIEW_LOOK UP'
				915		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'a hobpr')
				916		)
				917		drop v iew ahobpr .view_look up;
				918		exec sp_ rename 'AH OBPR.VIEW_ LOOKUP_Pre 2_0_17_1', 'VIEW_LOO KUP';
				919		end;
				920		go
				921		PRINT N'Ro llback com plete.';
				922		GO
				923
				924		DELETE
				925		FROM [db o].[Databa seChangeLo g]
				926		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				927		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				928		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				929		AND [S criptName] = '$(Script Name)';
				930		GO
				931		---------- ---------- ---------- ---------- ---
				932		---- 2.0.1 6.1
				933		---------- ---------- ---------- ---------- ---
				934		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				935		:setvar Ma jorRelease Number "2"
				936		:setvar Mi norRelease Number "0"
				937		:setvar Po intRelease Number "16 "
				938		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.16.1. sql"
				939
				940		PRINT '
				941		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				942		Rollback $ (ScriptNam e)
				943
				944		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				945
				946		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				947		';
				948		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				949		PRINT '
				950		******** ****** ****** ****** ****** *****
				951		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				952		******** ****** ****** ****** ****** *****
				953
				954		';
				955		GO
				956		:on error exit
				957		GO
				958		:setvar __ IsSqlCmdEn abled "Tru e"
				959		/*
				960		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				961		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				962		*/
				963		SET NOEXEC OFF;
				964		GO
				965		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				966		BEGIN
				967		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				968		SE T NOEXEC O N; --When SET NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				969		END
				970
				971		GO
				972
				973		USE [$(Dat abaseName) ]
				974		GO
				975
				976		--****** ****
				977		--Rollback steps
				978		--****** ****
				979		--
				980		UPDATE [d bo].[Datab aseChangeL og]
				981		SET [Scr iptDescrip tion] = 'R ollback in itiated... '
				982		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				983		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				984		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				985		AND [S criptName] = '$(Script Name)';
				986		go
				987		set ansi_n ulls, ansi _padding, ansi_warni ngs, arith abort, con cat_null_y ields_null , quoted_i dentifier on;
				988
				989		set numeri c_roundabo rt off;
				990
				991		go
				992
				993		if exists (select * from sys.p rocedures where name = 'SP_Rep ortAdHocBy Individual _Pre2_0_16 _1'
				994		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				995		begin
				996		if exist s (select * from sys .procedure s where na me = 'SP_R eportAdHoc ByIndividu al'
				997		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				998		drop p rocedure a hobpr.SP_R eportAdHoc ByIndividu al;
				999		exec sp_ rename 'ah obpr.SP_Re portAdHocB yIndividua l_Pre2_0_1 6_1', 'SP_ ReportAdHo cByIndivid ual';
				1000		end;
				1001		go
				1002
				1003		if exists (select * from sys.p rocedures where name = 'SP_Rep ortRegistr antContact _Pre2_0_16 _1'
				1004		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				1005		begin
				1006		if exist s (select * from sys .procedure s where na me = 'SP_R eportRegis trantConta ct'
				1007		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				1008		drop p rocedure a hobpr.SP_R eportRegis trantConta ct;
				1009		exec sp_ rename 'ah obpr.SP_Re portRegist rantContac t_Pre2_0_1 6_1', 'SP_ ReportRegi strantCont act';
				1010		end;
				1011		go
				1012
				1013		IF EXISTS (select * from sys.p rocedures where name = 'SP_Get Registrant SendMessag e_Pre2_0_1 6_1'
				1014		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				1015		BEGIN
				1016		if exist s (select * from sys .procedure s where na me = 'SP_G etRegistra ntSendMess age'
				1017		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				1018		DROP P ROCEDURE a hobpr.SP_G etRegistra ntSendMess age;
				1019		EXEC sp_ rename 'ah obpr.SP_Ge tRegistran tSendMessa ge_Pre2_0_ 16_1', 'SP _GetRegist rantSendMe ssage';
				1020		END;
				1021		GO
				1022
				1023		IF EXISTS (select * from sys.p rocedures where name = 'SP_Rep ortAdHocBy Location_P re2_0_16_1 '
				1024		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				1025		BEGIN
				1026		if exist s (select * from sys .procedure s where na me = 'SP_R eportAdHoc ByLocation '
				1027		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				1028		DROP P ROCEDURE a hobpr.SP_R eportAdHoc ByLocation ;
				1029		EXEC sp_ rename 'ah obpr.SP_Re portAdHocB yLocation_ Pre2_0_16_ 1', 'SP_Re portAdHocB yLocation' ;
				1030		END;
				1031
				1032		GO
				1033		PRINT N'Ro llback com plete.';
				1034		GO
				1035
				1036		DELETE
				1037		FROM [db o].[Databa seChangeLo g]
				1038		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				1039		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				1040		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				1041		AND [S criptName] = '$(Script Name)';
				1042		GO
				1043		-- nothing to do for 2.0.15.1
				1044		DELETE
				1045		FROM [db o].[Databa seChangeLo g]
				1046		WHERE [M ajorReleas eNumber] = '2'
				1047		AND [M inorReleas eNumber] = '0'
				1048		AND [P ointReleas eNumber] = '15';
				1049		go
				1050		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				1051		:setvar Ma jorRelease Number "2"
				1052		:setvar Mi norRelease Number "0"
				1053		:setvar Po intRelease Number "14 "
				1054		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.14.1. sql"
				1055
				1056		PRINT '
				1057		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				1058		Rollback $ (ScriptNam e)
				1059
				1060		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				1061
				1062		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				1063		';
				1064		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				1065		PRINT '
				1066		******** ****** ****** ****** ****** *****
				1067		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				1068		******** ****** ****** ****** ****** *****
				1069
				1070		';
				1071		GO
				1072		:on error exit
				1073		GO
				1074		:setvar __ IsSqlCmdEn abled "Tru e"
				1075		/*
				1076		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				1077		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				1078		*/
				1079		SET NOEXEC OFF;
				1080		GO
				1081		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				1082		BEGIN
				1083		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				1084		SE T NOEXEC O N; --When SET NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				1085		END
				1086
				1087		GO
				1088
				1089		USE [$(Dat abaseName) ]
				1090		GO
				1091
				1092		--****** ****
				1093		--Rollback steps
				1094		--****** ****
				1095		--
				1096		UPDATE [d bo].[Datab aseChangeL og]
				1097		SET [Scr iptDescrip tion] = 'R ollback in itiated... '
				1098		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				1099		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				1100		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				1101		AND [S criptName] = '$(Script Name)';
				1102		GO
				1103		SET ANSI_N ULLS, ANSI _PADDING, ANSI_WARNI NGS, ARITH ABORT, CON CAT_NULL_Y IELDS_NULL , QUOTED_I DENTIFIER ON;
				1104
				1105		SET NUMERI C_ROUNDABO RT OFF;
				1106
				1107		GO
				1108		IF EXISTS (select * from sys.p rocedures where name = 'sp_Del eteOneRegi strant_Pri orTo2_0_14 '
				1109		and sche ma_id = (s elect SCHE MA_ID from sys.schem as where n ame = 'AHO BPR')
				1110		)
				1111		BEGIN
				1112		if exist s (select * from sys .procedure s where na me = 'SP_D eleteOneRe gistrant'
				1113		and sc hema_id = (select SC HEMA_ID fr om sys.sch emas where name = 'A HOBPR')
				1114		)
				1115		DROP P ROCEDURE A HOBPR.SP_D eleteOneRe gistrant;
				1116		EXEC sp_ RENAME 'AH OBPR.SP_De leteOneReg istrant_Pr iorTo2_0_1 4', 'sp_De leteOneReg istrant';
				1117		END;
				1118
				1119
				1120		IF EXISTS (select * from sys.p rocedures where name = 'SP_Del eteRegistr antAndResp onse_Prior To2_0_14'
				1121		and sche ma_id = (s elect SCHE MA_ID from sys.schem as where n ame = 'AHO BPR')
				1122		)
				1123		BEGIN
				1124		if exist s (select * from sys .procedure s where na me = 'SP_D eleteRegis trantAndRe sponse'
				1125		and sc hema_id = (select SC HEMA_ID fr om sys.sch emas where name = 'A HOBPR')
				1126		)
				1127		DROP P ROCEDURE A HOBPR.SP_D eleteRegis trantAndRe sponse;
				1128		EXEC sp_ RENAME 'AH OBPR.SP_De leteRegist rantAndRes ponse_Prio rTo2_0_14' , 'SP_Dele teRegistra ntAndRespo nse';
				1129		END;
				1130
				1131		GO
				1132		PRINT N'Ro llback com plete.';
				1133		GO
				1134
				1135		DELETE
				1136		FROM [db o].[Databa seChangeLo g]
				1137		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				1138		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				1139		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				1140		AND [S criptName] = '$(Script Name)';
				1141		GO
				1142		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				1143		:setvar Ma jorRelease Number "2"
				1144		:setvar Mi norRelease Number "0"
				1145		:setvar Po intRelease Number "13 "
				1146		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.13.1. sql"
				1147
				1148		PRINT '
				1149		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				1150		Rollback $ (ScriptNam e)
				1151
				1152		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				1153
				1154		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				1155		';
				1156		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				1157		PRINT '
				1158		******** ****** ****** ****** ****** *****
				1159		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				1160		******** ****** ****** ****** ****** *****
				1161
				1162		';
				1163		GO
				1164		:on error exit
				1165		GO
				1166		:setvar __ IsSqlCmdEn abled "Tru e"
				1167		/*
				1168		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				1169		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				1170		*/
				1171		SET NOEXEC OFF;
				1172		GO
				1173		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				1174		BEGIN
				1175		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				1176		SE T NOCOUNT ON;
				1177		SE T NOEXEC O N; --When SET NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				1178		END
				1179
				1180		GO
				1181
				1182		USE [$(Dat abaseName) ]
				1183		GO
				1184
				1185		--****** ****
				1186		--Rollback steps
				1187		--****** ****
				1188		--
				1189		if exists (select * from sys.v iews where name = 'v iew_lookup _pre_2_0_1 3_1'
				1190		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				1191		)
				1192		begin
				1193		if exist s (select * from sys .views whe re name = 'VIEW_LOOK UP'
				1194		and schema_id = (select schema_id from sys.s chemas whe re name = 'AHOBPR'))
				1195		drop v iew AHOBPR .VIEW_LOOK UP;
				1196		exec sp_ rename 'ah obpr.view_ lookup_pre _2_0_13_1' , 'VIEW_LO OKUP';
				1197		end;
				1198
				1199		if exists( select * f rom sys.co lumns wher e name = ' SALUTATION '
				1200		and obje ct_id = (s elect obje ct_id from sys.table s where na me = 'EMAI L_TEMPLATE S'
				1201		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				1202		)
				1203		)
				1204		begin
				1205		if exist s(select * from sys. default_co nstraints where name = 'DF_Ema ilTemplate s_Salutati on'
				1206		and sch ema_id = ( select sch ema_id fro m sys.sche mas where name = 'AH OBPR')
				1207		)
				1208		alte r table [A HOBPR].[EM AIL_TEMPLA TES]
				1209		dr op constra int DF_Ema ilTemplate s_Salutati on;
				1210		alter ta ble [AHOBP R].[EMAIL_ TEMPLATES]
				1211		drop c olumn SALU TATION;
				1212		end;
				1213		if exists( select * f rom sys.co lumns wher e name = ' CONTACT_IN FO'
				1214		and obje ct_id = (s elect obje ct_id from sys.table s where na me = 'EMAI L_TEMPLATE S'
				1215		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				1216		)
				1217		)
				1218		begin
				1219		if exist s(select * from sys. default_co nstraints where name = 'DF_Ema ilTemplate s_ContactI nfo'
				1220		and sch ema_id = ( select sch ema_id fro m sys.sche mas where name = 'AH OBPR')
				1221		)
				1222		alte r table [A HOBPR].[EM AIL_TEMPLA TES]
				1223		dr op constra int DF_Ema ilTemplate s_ContactI nfo;
				1224		alter ta ble [AHOBP R].[EMAIL_ TEMPLATES]
				1225		drop c olumn CONT ACT_INFO;
				1226		end;
				1227		if exists( select * f rom sys.co lumns wher e name = ' ADVANCED_U SER_FLAG'
				1228		and obje ct_id = (s elect obje ct_id from sys.table s where na me = 'EMAI L_TEMPLATE S'
				1229		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				1230		)
				1231		)
				1232		begin
				1233		if exi sts(select * from sy s.default_ constraint s where na me = 'DF_E mailTempla tes_Advanc edUserFlag '
				1234		and sch ema_id = ( select sch ema_id fro m sys.sche mas where name = 'AH OBPR')
				1235		)
				1236		alte r table [A HOBPR].[EM AIL_TEMPLA TES]
				1237		dr op constra int DF_Ema ilTemplate s_Advanced UserFlag;
				1238		alter ta ble [AHOBP R].[EMAIL_ TEMPLATES]
				1239		drop c olumn ADVA NCED_USER_ FLAG;
				1240		end;
				1241		if exists( select * f rom sys.co lumns wher e name = ' CREATEDBY_ ADVANCED_U SER_FLAG'
				1242		and obje ct_id = (s elect obje ct_id from sys.table s where na me = 'EMAI L_TEMPLATE S'
				1243		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				1244		)
				1245		)
				1246		begin
				1247		if exist s(select * from sys. default_co nstraints where name = 'DF_Ema ilTemplate s_Createdb yAdvancedu serFlag'
				1248		and sch ema_id = ( select sch ema_id fro m sys.sche mas where name = 'AH OBPR')
				1249		)
				1250		alter table [AHO BPR].[EMAI L_TEMPLATE S]
				1251		drop constrain t DF_Email Templates_ CreatedbyA dvanceduse rFlag;
				1252		alter ta ble [AHOBP R].[EMAIL_ TEMPLATES]
				1253		drop c olumn CREA TEDBY_ADVA NCED_USER_ FLAG;
				1254		end;
				1255		GO
				1256		PRINT N'2. 0.13.1 Rol lback comp lete.';
				1257
				1258		go
				1259		delete
				1260		--select *
				1261		from [db o].[Databa seChangeLo g]
				1262		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				1263		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				1264		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				1265		and [S criptName] = '$(Script Name)';
				1266		go
				1267		---------- ---------- ---------- ---------- ---
				1268		---------- ---------- ---------- ---------- ---
				1269		---- 2.0.1 2.1
				1270		---------- ---------- ---------- ---------- ---
				1271		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				1272		:setvar Ma jorRelease Number "2"
				1273		:setvar Mi norRelease Number "0"
				1274		:setvar Po intRelease Number "12 "
				1275		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.12.1. sql"
				1276
				1277		PRINT '
				1278		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				1279		Rollback $ (ScriptNam e)
				1280
				1281		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				1282
				1283		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				1284		';
				1285		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				1286		PRINT '
				1287		******** ****** ****** ****** ****** *****
				1288		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				1289		******** ****** ****** ****** ****** *****
				1290
				1291		';
				1292		GO
				1293		:on error exit
				1294		GO
				1295		:setvar __ IsSqlCmdEn abled "Tru e"
				1296		/*
				1297		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				1298		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				1299		*/
				1300		SET NOEXEC OFF;
				1301		GO
				1302		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				1303		BEGIN
				1304		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				1305		SE T NOCOUNT ON;
				1306		SE T NOEXEC O N; --When SET NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				1307		END
				1308
				1309		GO
				1310
				1311		USE [$(Dat abaseName) ]
				1312		GO
				1313
				1314		--****** ****
				1315		--Rollback steps
				1316		--****** ****
				1317		--
				1318
				1319		UPDATE [d bo].[Datab aseChangeL og]
				1320		SET [Scr iptDescrip tion] = 'R ollback in itiated... '
				1321		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				1322		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				1323		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				1324		AND [S criptName] = '$(Script Name)';
				1325		GO
				1326		IF EXISTS (select * from sys.p rocedures where name = 'SP_Get Registrant AddFlag'
				1327		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				1328		)
				1329		DROP PRO CEDURE AHO BPR.SP_Get Registrant AddFlag;
				1330		GO
				1331		PRINT N'Ro llback com plete.';
				1332		GO
				1333
				1334		DELETE
				1335		FROM [db o].[Databa seChangeLo g]
				1336		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				1337		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				1338		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				1339		AND [S criptName] = '$(Script Name)';
				1340		GO
				1341		---------- ---------- ---------- ---------- ---
				1342		---------- ---------- ---------- ---------- ---
				1343		-- 2.0.11. 1
				1344		---------- ---------- ---------- ---------- ---
				1345		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				1346		:setvar Ma jorRelease Number "2"
				1347		:setvar Mi norRelease Number "0"
				1348		:setvar Po intRelease Number "11 "
				1349		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.11.1. sql"
				1350
				1351		PRINT '
				1352		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				1353		Rollback $ (ScriptNam e)
				1354
				1355		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				1356
				1357		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				1358		';
				1359		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				1360		PRINT '
				1361		******** ****** ****** ****** ****** *****
				1362		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				1363		******** ****** ****** ****** ****** *****
				1364
				1365		';
				1366		GO
				1367		:on error exit
				1368		GO
				1369		:setvar __ IsSqlCmdEn abled "Tru e"
				1370		/*
				1371		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				1372		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				1373		*/
				1374		SET NOEXEC OFF;
				1375		GO
				1376		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				1377		BEGIN
				1378		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				1379		SE T NOEXEC O N; --When SET NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				1380		END
				1381
				1382		GO
				1383
				1384		USE [$(Dat abaseName) ]
				1385		GO
				1386
				1387		--****** ****
				1388		--Rollback steps
				1389		--****** ****
				1390		--
				1391		UPDATE [d bo].[Datab aseChangeL og]
				1392		SET [Scr iptDescrip tion] = 'R ollback in itiatited. ..'
				1393		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				1394		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				1395		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				1396		AND [S criptName] = '$(Script Name)';
				1397		GO
				1398		GO
				1399		SET ANSI_N ULLS, ANSI _PADDING, ANSI_WARNI NGS, ARITH ABORT, CON CAT_NULL_Y IELDS_NULL , QUOTED_I DENTIFIER ON;
				1400
				1401		SET NUMERI C_ROUNDABO RT OFF;
				1402
				1403
				1404		GO
				1405		USE [$(Dat abaseName) ];
				1406
				1407
				1408		GO
				1409		IF EXISTS (select * from sys.c olumns whe re name = 'STANDARD_ FLAG'
				1410		and obje ct_id = (s elect obje ct_id from sys.objec ts where n ame = 'TOO L_ANSWER'
				1411		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				1412		)
				1413		)
				1414		begin
				1415		alter ta ble [AHOBP R].[TOOL_A NSWER]
				1416		drop c onstraint DF_ToolAns wer_Standa rdFlag;
				1417		ALTER TA BLE [AHOBP R].[TOOL_A NSWER]
				1418		DROP COLUM N STANDARD _FLAG;
				1419		end;
				1420		GO
				1421
				1422		DELETE
				1423		FROM [db o].[Databa seChangeLo g]
				1424		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				1425		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				1426		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				1427		AND [S criptName] = '$(Script Name)';
				1428
				1429		go
				1430		---------- ---------- ---------- ---------- ---
				1431		---- 2.0.9 .2
				1432		---------- ---------- ---------- ---------- ---
				1433		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				1434		:setvar Ma jorRelease Number "2"
				1435		:setvar Mi norRelease Number "0"
				1436		:setvar Po intRelease Number "9"
				1437		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.9.2.s ql"
				1438
				1439		PRINT '
				1440		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				1441		Rollback $ (ScriptNam e)
				1442
				1443		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				1444
				1445		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				1446		';
				1447		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				1448		PRINT '
				1449		******** ****** ****** ****** ****** *****
				1450		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				1451		******** ****** ****** ****** ****** *****
				1452
				1453		';
				1454		GO
				1455		:on error exit
				1456		GO
				1457		:setvar __ IsSqlCmdEn abled "Tru e"
				1458		/*
				1459		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				1460		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				1461		*/
				1462		SET NOEXEC OFF;
				1463		GO
				1464		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				1465		BEGIN
				1466		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				1467		SE T NOEXEC O N; --When SET NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				1468		END
				1469
				1470		GO
				1471
				1472		USE [$(Dat abaseName) ]
				1473		GO
				1474
				1475		--****** ****
				1476		--Rollback steps
				1477		--****** ****
				1478		--
				1479		UPDATE [d bo].[Datab aseChangeL og]
				1480		SET [Scr iptDescrip tion] = 'R ollback in itiated... '
				1481		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				1482		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				1483		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				1484		AND [S criptName] = '$(Script Name)';
				1485		GO
				1486		SET ANSI_N ULLS, ANSI _PADDING, ANSI_WARNI NGS, ARITH ABORT, CON CAT_NULL_Y IELDS_NULL , QUOTED_I DENTIFIER ON;
				1487
				1488		SET NUMERI C_ROUNDABO RT OFF;
				1489
				1490		GO
				1491
				1492		IF EXISTS (select * from sys.p rocedures where name = 'SP_Get Registrant SendQuesti ons_temp'
				1493		AND schem a_id = (SE LECT schem a_id FROM sys.schema s WHERE na me = 'AHOB PR')
				1494		)
				1495		BEGIN
				1496		PRINT 'DROP PROC EDURE [AHO BPR].[SP_G etRegistra ntSendQues tions_temp ]';
				1497		DROP P ROCEDURE [ AHOBPR].[S P_GetRegis trantSendQ uestions_t emp];
				1498		END;
				1499
				1500		GO
				1501		IF EXISTS (select * from sys.t ables wher e name = ' SP_GetScri ptsBatch'
				1502		AND schem a_id = (SE LECT schem a_id FROM sys.schema s WHERE na me = 'AHOB PR')
				1503		)
				1504		BEGIN
				1505		PRINT N' Dropping [ AHOBPR].[S P_GetScrip tsBatch].. .';
				1506		DROP PRO CEDURE [AH OBPR].[SP_ GetScripts Batch];
				1507		END;
				1508
				1509		GO
				1510		IF EXISTS (select * from sys.p rocedures where name = 'SP_Upd ateScripts BatchStatu s'
				1511		AND schem a_id = (SE LECT schem a_id FROM sys.schema s WHERE na me = 'AHOB PR')
				1512		)
				1513		BEGIN
				1514		PRINT N' Dropping [ AHOBPR].[S P_UpdateSc riptsBatch Status]... ';
				1515		DROP PRO CEDURE [AH OBPR].[SP_ UpdateScri ptsBatchSt atus];
				1516		END;
				1517
				1518		GO
				1519
				1520
				1521		IF EXISTS (select * from sys.t ables wher e name = ' SCRIPTS_BA TCH'
				1522		AND schem a_id = (SE LECT schem a_id FROM sys.schema s WHERE na me = 'AHOB PR')
				1523		)
				1524		BEGIN
				1525		PRINT N' Dropping [ AHOBPR].[S CRIPTS_BAT CH]...';
				1526		DROP TAB LE [AHOBPR ].[SCRIPTS _BATCH];
				1527		END;
				1528
				1529
				1530		GO
				1531
				1532		--PRINT N' Altering [ AHOBPR].[V IEW_LOOKUP ]...';
				1533		--if exist s (select * from sys .views whe re name = 'VIEW_LOOK UP'
				1534		-- and sc hema_id = (SELECT sc hema_id FR OM sys.sch emas WHERE name = 'A HOBPR')
				1535		-- )
				1536		-- drop v iew [AHOBP R].[VIEW_L OOKUP];
				1537		--GO
				1538
				1539		--CREATE V IEW [AHOBP R].[VIEW_L OOKUP]
				1540		--WITH SCH EMABINDING
				1541		--AS
				1542		-- SELECT 'REGISTRY _FLAG' AS LOOKUP_TYP E
				1543		-- ,STD_ REGISTRY_F LAG_ID AS ID
				1544		-- ,REGISTRY _FLAG_NAME AS CODE
				1545		-- ,REGISTRY _FLAG_NAME AS NAME
				1546		-- ,0 AS PAR ENT_ID
				1547		-- ,1 AS SOR T_ORDER
				1548		-- FROM AHOBPR.ST D_REGISTRY _FLAG
				1549		-- WHERE STD_REGIS TRY_FLAG_I D > 0
				1550		-- UNION ALL
				1551		-- SELECT 'REGISTRY _STATUS' A S LOOKUP_T YPE
				1552		-- ,STD_RE GISTRANT_S TATUS_ID A S ID
				1553		-- ,REGISTRA NT_STATUS AS CODE
				1554		-- ,REGISTRA NT_STATUS AS NAME
				1555		-- ,0 AS PAR ENT_ID
				1556		-- ,ORDINAL_ VALUE AS S ORT_ORDER
				1557		-- FROM AHOBPR.ST D_REGISTRA NT_STATUS
				1558		-- WHERE STD_REGIS TRANT_STAT US_ID > 0
				1559		-- UNION ALL
				1560		-- SELECT 'REGISTRY _FLAG_TYPE ' AS LOOKU P_TYPE
				1561		-- ,STD_RE GISTRY_FLA G_TYPE_ID AS ID
				1562		-- ,REGISTRY _FLAG_TYPE AS CODE
				1563		-- ,REGISTRY _FLAG_TYPE AS NAME
				1564		-- ,0 AS PAR ENT_ID
				1565		-- ,1 AS SOR T_ORDER
				1566		-- FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				1567		-- UNION ALL
				1568		-- SELECT 'SUBPOPUL ATION_FLAG _ACTIVE' A S LOOKUP_T YPE
				1569		-- ,STD_RE GISTRY_FLA G_ID AS ID
				1570		-- ,REGISTRY _FLAG_NAME AS CODE
				1571		-- ,REGISTRY _FLAG_NAME AS NAME
				1572		-- ,0 AS PAR ENT_ID
				1573		-- ,1 AS SOR T_ORDER
				1574		-- FROM A HOBPR.STD_ REGISTRY_F LAG
				1575		-- WHERE ACTIVE_FLA G = 1 AND STD_REGIST RY_FLAG_TY PE_ID = 2
				1576		-- UNION ALL
				1577		-- SELECT 'STD_STAT E' AS LOOK UP_TYPE
				1578		-- ,ID
				1579		-- ,POSTALNA ME AS CODE
				1580		-- ,POSTALNA ME AS NAME
				1581		-- ,0 AS PAR ENT_ID
				1582		-- ,1 AS SOR T_ORDER
				1583		-- FROM D BO.STD_STA TE
				1584		-- WHERE COUNTRY_ID = 1006840
				1585		-- AND POST ALNAME IN ('AL', 'AK ', 'AR', ' AZ', 'CA', 'CO', 'CT ', 'DE', ' FL', 'GA', 'HI',
				1586		-- 'IA', 'I D', 'IL', 'IN', 'KS' , 'KY', 'L A', 'MA', 'MD', 'ME' , 'MI', 'M N', 'MO', 'MS',
				1587		-- 'MT', 'N C', 'ND', 'NE', 'NH' , 'NJ', 'N M', 'NV', 'NY', 'OH' , 'OK', 'O R', 'PA', 'RI',
				1588		-- 'SC', 'S D', 'TN', 'TX', 'UT' , 'VA', 'V T', 'WA', 'WI', 'WV' , 'WY', 'D C', 'AS', 'GU', 'PR' , 'VI', 'M P', 'AA', 'AE', 'AP' )
				1589		-- UNION ALL
				1590		-- SELECT 'STD_STAT E' AS LOOK UP_TYPE
				1591		-- ,0
				1592		-- ,'Foreign Country/O ther' AS C ODE
				1593		-- ,'Foreign Country/O ther' AS N AME
				1594		-- ,0 AS PAR ENT_ID
				1595		-- ,9999 AS SORT_ORDER
				1596		-- UNION ALL
				1597		-- SELECT 'ADMINTRA CKING_FLAG _ACTIVE' A S LOOKUP_T YPE
				1598		-- ,STD_RE GISTRY_FLA G_ID AS ID
				1599		-- ,REGISTRY _FLAG_NAME AS CODE
				1600		-- ,REGISTRY _FLAG_NAME AS NAME
				1601		-- ,0 AS PAR ENT_ID
				1602		-- ,1 AS SOR T_ORDER
				1603		-- FROM A HOBPR.STD_ REGISTRY_F LAG
				1604		-- WHERE ACTIVE_FLA G = 1
				1605		-- AND STD_REGIST RY_FLAG_TY PE_ID = 1
				1606		-- AND (PREDEFINE D = 0
				1607		-- OR (PREDEFINE D = 1 AND REGISTRY_F LAG_NAME N OT LIKE 'S tatus Chan ge: %'))
				1608		-- UNION ALL
				1609		-- SELECT 'STD_SERV ICE_STATUS ' AS LOOKU P_TYPE
				1610		-- ,STD_SE RVICE_STAT US_ID As I D
				1611		-- ,SERVICE_ STATUS AS CODE
				1612		-- ,SERVICE_ STATUS AS NAME
				1613		-- ,0 AS PAR ENT_ID
				1614		-- ,1 AS SOR T_ORDER
				1615		-- FROM AHOBPR.ST D_SERVICE_ STATUS
				1616		-- WHERE STD_SERVI CE_STATUS_ ID > 0
				1617		-- UNIO N ALL
				1618		-- SELECT 'STD_FORM _QUESTION' AS LOOKUP _TYPE
				1619		-- ,STD_ FORM_QUEST ION_ID As ID
				1620		-- ,FORM_QUE STION_UNIQ UE_ID AS C ODE
				1621		-- ,FORM_QUE STION_UNIQ UE_ID AS N AME
				1622		-- ,0 AS PAR ENT_ID
				1623		-- ,1 AS SOR T_ORDER
				1624		-- FROM AHOBPR.ST D_FORM_QUE STION
				1625		-- UNION ALL
				1626		-- SELECT 'REGISTRY _STATUS_IN ELIGIBLE' AS LOOKUP_ TYPE
				1627		-- ,STD_RE GISTRANT_S TATUS_ID A S ID
				1628		-- ,REGISTRA NT_STATUS AS CODE
				1629		-- ,REGISTRA NT_STATUS AS NAME
				1630		-- ,0 AS PAR ENT_ID
				1631		-- ,STD_REGI STRANT_STA TUS_ID AS SORT_ORDER
				1632		-- FROM AHOBPR.ST D_REGISTRA NT_STATUS
				1633		-- WHER E STD_REGI STRANT_STA TUS_ID IN (3, 4, 5)
				1634		-- UNION ALL
				1635		-- SELECT 'REGISTRY _STATUS_RE VIEWED' AS LOOKUP_TY PE
				1636		-- ,STD_RE GISTRANT_S TATUS_ID A S ID
				1637		-- ,REGISTRA NT_STATUS AS CODE
				1638		-- ,REGISTRA NT_STATUS AS NAME
				1639		-- ,0 AS PAR ENT_ID
				1640		-- ,STD_REGI STRANT_STA TUS_ID AS SORT_ORDER
				1641		-- FROM AHOBPR.ST D_REGISTRA NT_STATUS
				1642		-- WHER E STD_REGI STRANT_STA TUS_ID IN (5, 8)
				1643		-- UNION ALL
				1644		-- SELECT 'REPORT_L OCATION' A S LOOKUP_T YPE
				1645		-- ,1 AS ID
				1646		-- ,'All' AS CODE
				1647		-- ,'All' AS NAME
				1648		-- ,0 AS PAR ENT_ID
				1649		-- ,1 AS SOR T_ORDER
				1650		-- UNION ALL
				1651		-- SELECT 'REPORT_L OCATION' A S LOOKUP_T YPE
				1652		-- ,2 AS ID
				1653		-- ,'Facilit y' AS CODE
				1654		-- ,'Facilit y' AS NAME
				1655		-- ,0 AS PAR ENT_ID
				1656		-- ,2 AS SOR T_ORDER
				1657		-- UNION ALL
				1658		-- SELECT 'REPORT_L OCATION' A S LOOKUP_T YPE
				1659		-- ,3 AS ID
				1660		-- ,'VISN' A S CODE
				1661		-- ,'VISN' A S NAME
				1662		-- ,0 AS PAR ENT_ID
				1663		-- ,3 AS SOR T_ORDER
				1664		-- UNION ALL
				1665		-- SELECT 'SUBPOPUL ATION_FLAG _ALL' AS L OOKUP_TYPE
				1666		-- ,STD_ REGISTRY_F LAG_ID AS ID
				1667		-- ,REGISTRY _FLAG_NAME AS CODE
				1668		-- ,REGISTRY _FLAG_NAME AS NAME
				1669		-- ,0 AS PAR ENT_ID
				1670		-- ,1 AS SOR T_ORDER
				1671		-- FROM A HOBPR.STD_ REGISTRY_F LAG
				1672		-- WHERE STD_REGIST RY_FLAG_TY PE_ID = 2
				1673		-- UNION ALL
				1674		-- SELECT 'ADMIN_FL AG_ALL' AS LOOKUP_TY PE
				1675		-- ,STD_ REGISTRY_F LAG_ID AS ID
				1676		-- ,REGISTRY _FLAG_NAME AS CODE
				1677		-- ,REGISTRY _FLAG_NAME AS NAME
				1678		-- ,0 AS PAR ENT_ID
				1679		-- ,1 AS SOR T_ORDER
				1680		-- FROM A HOBPR.STD_ REGISTRY_F LAG
				1681		-- WHERE STD_REGIST RY_FLAG_TY PE_ID = 1
				1682		-- UNION ALL
				1683		-- SELECT 'HEALTH_F ACTOR' AS LOOKUP_TYP E
				1684		-- ,A.[S TD_HEALTH_ FACTOR_ID] AS ID
				1685		-- ,A.[NAME] AS CODE
				1686		-- ,B.[DESCR IPTION] + ': ' + A.D ESCRIPTION AS NAME
				1687		-- ,0 AS PAR ENT_ID
				1688		-- ,1 AS SOR T_ORDER
				1689		-- FROM [AHOBPR]. [STD_HEALT H_FACTOR] A INNER JO IN [AHOBPR ].[STD_HEA LTH_FACTOR _CATEGORY] B ON A.ST D_HEALTH_F ACTOR_CATE GORY_ID = B.STD_HEAL TH_FACTOR_ CATEGORY_I D
				1690		-- UNION ALL
				1691		-- SELECT DISTINCT 'DEPLOYMEN T_COUNTRY' AS LOOKUP _TYPE
				1692		-- ,0 AS ID
				1693		-- ,[DEPLOYM ENT_COUNTR Y] AS CODE
				1694		-- ,[DEPLOYM ENT_COUNTR Y] AS NAME
				1695		-- ,0 AS PAR ENT_ID
				1696		-- ,1 AS SOR T_ORDER
				1697		-- FROM [AHOBPR]. [REGISTRAN T_DEPLOYME NT]
				1698		-- UNION ALL
				1699		-- SELECT DISTINCT 'DEPLOYMEN T_COUNTRY_ EXPOSURE' AS LOOKUP_ TYPE
				1700		-- ,0 AS ID
				1701		-- ,[DEPLOYM ENT_COUNTR Y] AS CODE
				1702		-- ,[DEPLOYM ENT_COUNTR Y] AS NAME
				1703		-- ,0 AS PAR ENT_ID
				1704		-- ,1 AS SOR T_ORDER
				1705		-- FROM [AHOBPR]. [REGISTRAN T_DEPLOYME NT] A JOIN AHOBPR.FO RM_RESPONS E_QUESTION B
				1706		-- ON A.REGIS TRANT_DEPL OYMENT_ID = B.REGIST RANT_DEPLO YMENT_ID
				1707		-- UNION ALL
				1708		-- SELECT 'STD_RACE ' AS LOOKU P_TYPE
				1709		-- ,ID
				1710		-- ,DESCRIPT ION AS COD E
				1711		-- ,DESCRIPT ION AS NAM E
				1712		-- ,0 AS PAR ENT_ID
				1713		-- ,1 AS SOR T_ORDER
				1714		-- FROM A HOBPR.VIEW _ETL_LOOKU P
				1715		-- WHERE TYPE = 'ST D_RACE'
				1716		-- AND ID > 0
				1717		-- UNION ALL
				1718		-- SELECT 'STD_GEND ER' AS LOO KUP_TYPE
				1719		-- ,ID
				1720		-- ,DESCRIPT ION AS COD E
				1721		-- ,DESCRIPT ION AS NAM E
				1722		-- ,0 AS PAR ENT_ID
				1723		-- ,1 AS SOR T_ORDER
				1724		-- FROM A HOBPR.VIEW _ETL_LOOKU P
				1725		-- WHERE TYPE = 'ST D_GENDER'
				1726		-- AND ID > 0
				1727		-- UNION ALL
				1728		-- SELECT 'STD_SEPA RATIONFAMI LY' AS LOO KUP_TYPE
				1729		-- ,[STD_SE PARATION_F AMILY_ID] AS ID
				1730		-- ,[FAMILY _CODE] AS CODE
				1731		-- ,[FAMILY ] AS NAME
				1732		-- ,0 AS PA RENT_ID
				1733		-- ,1 AS SO RT_ORDER
				1734		-- FRO M AHOBPR.S TD_SEPARAT ION_FAMILY
				1735		-- WHER E [STD_SE PARATION_F AMILY_ID] > 0
				1736		-- UNION ALL
				1737		-- SELEC T 'STD_SEP ARATIONREA SON' AS LO OKUP_TYPE
				1738		-- ,[STD_SE PARATION_R EASON_ID] AS ID
				1739		-- ,[REASON _CODE] AS CODE
				1740		-- ,[REASON ] AS NAME
				1741		-- ,0 AS PA RENT_ID
				1742		-- ,1 AS SO RT_ORDER
				1743		-- FRO M AHOBPR.S TD_SEPARAT ION_REASON
				1744		-- WHER E [STD_SE PARATION_R EASON_ID] > 0
				1745		-- UNION ALL
				1746		-- SELECT 'STD_ELIG IBLITYSTAT US' AS LOO KUP_TYPE
				1747		-- ,ID
				1748		-- ,DESCRIPT ION AS COD E
				1749		-- ,DESCRIPT ION AS NAM E
				1750		-- ,0 AS PAR ENT_ID
				1751		-- ,1 AS SOR T_ORDER
				1752		-- FROM A HOBPR.VIEW _ETL_LOOKU P
				1753		-- WHERE TYPE = 'ST D_ELIGIBLI TYSTATUS'
				1754		-- AND ID > 0
				1755		-- UNION ALL
				1756		-- SELECT 'STD_ETHN ICITY' AS LOOKUP_TYP E
				1757		-- ,ID
				1758		-- ,DESCRIPT ION AS COD E
				1759		-- ,DESCRIPT ION AS NAM E
				1760		-- ,0 AS PAR ENT_ID
				1761		-- ,1 AS SOR T_ORDER
				1762		-- FROM A HOBPR.VIEW _ETL_LOOKU P
				1763		-- WHERE TYPE = 'ST D_ETHNICIT Y'
				1764		-- AND ID > 0
				1765		-- UNION ALL
				1766		-- SELEC T 'STD_CHA RACTEROFSE RVICE' AS LOOKUP_TYP E
				1767		-- ,STD_ DISCHARGE_ CHARACTER_ ID As ID
				1768		-- ,DISCHARG E_CHARACTE R_CODE AS CODE
				1769		-- ,DISCHARG E_CHARACTE R AS NAME
				1770		-- ,0 AS PAR ENT_ID
				1771		-- ,1 AS SOR T_ORDER
				1772		-- FROM AHOBPR.ST D_DISCHARG E_CHARACTE R
				1773		-- UNION ALL
				1774		-- SELECT 'TEMPLATE _MESSAGE_T ITLE' AS L OOKUP_TYPE
				1775		-- ,TEMPLA TE_ID AS I D
				1776		-- ,TITLE AS CODE
				1777		-- ,TITLE AS NAME
				1778		-- ,0 AS PAR ENT_ID
				1779		-- ,1 AS SOR T_ORDER
				1780		-- FROM AHOBPR.EM AIL_TEMPLA TES
				1781		-- UNION ALL
				1782		-- SELEC T 'TOOL_QU ESTION_TYP E' AS LOOK UP_TYPE
				1783		-- ,2 As ID,'multi pleChoice' AS CODE,' Dropdown L ist - Muti ple Choice ' AS NAME, 0 AS PAREN T_ID,1 AS SORT_ORDER
				1784		-- UNION ALL
				1785		-- SELEC T 'TOOL_QU ESTION_TYP E' AS LOOK UP_TYPE
				1786		-- ,1 As ID,'multi Select' AS CODE,'Che ckboxes - Mutliple S elect' AS NAME,0 AS PARENT_ID, 2 AS SORT_ ORDER
				1787		-- UNION ALL
				1788		-- SELEC T 'TOOL_QU ESTION_TYP E' AS LOOK UP_TYPE
				1789		-- ,3 As ID,'text' AS CODE,' Radio Butt ons with F ree Text' AS NAME,0 AS PARENT_ ID,3 AS SO RT_ORDER
				1790		-- UNION ALL
				1791		-- SELEC T 'TOOL_QU ESTION_TYP E' AS LOOK UP_TYPE
				1792		-- ,4 As ID,'numbe r' AS CODE ,'Radio Bu ttons with Numeric V alue' AS N AME,0 AS P ARENT_ID,4 AS SORT_O RDER
				1793		-- UNION ALL
				1794		-- SELECT 'FOLLOWUP _QUESTION_ GROUP_LIST ' AS LOOKU P_TYPE
				1795		-- ,STD_FO RM_ID AS I D
				1796		-- ,NAME AS CODE
				1797		-- ,NAME AS NAME
				1798		-- ,0 AS PAR ENT_ID
				1799		-- ,1 AS SOR T_ORDER
				1800		-- FROM AHOBPR.ST D_FORM
				1801		-- WHER E FOLLOWUP _FLAG = 1;
				1802		---- selec t * from [AHOBPR].[ VIEW_LOOKU P]
				1803		GO
				1804		PRINT N'Al tering [AH OBPR].[SP_ DeleteOneR egistrant] ...';
				1805
				1806
				1807		GO
				1808
				1809
				1810		ALTER PROC EDURE [AHO BPR].[SP_D eleteOneRe gistrant]
				1811		@f irstName VARCHAR(50 ),
				1812		@l astName V ARCHAR(50)
				1813		AS
				1814
				1815		DECLARE @r egistrantI d int, @us erId varch ar(256)
				1816		BEGIN
				1817		SE LECT @regi strantId = REGISTRAN T_ID, @use rId = USER _ID FROM [ AHOBPR].[R EGISTRANT] WHERE FIR ST_NAME = @firstName AND LAST_ NAME = @la stName
				1818
				1819		DE LETE FROM [AHOBPR].[ REGISTRANT _JSON] WHE RE OBJECT_ ID = @user Id
				1820
				1821		DE LETE FROM [AHOBPR].[ REGISTRANT _JSON_FOLL OWUP] WHER E OBJECT_I D = @userI d
				1822
				1823		ex ec ahobpr. SP_DeleteR egistrantA ndResponse @registra ntId
				1824
				1825		END
				1826		GO
				1827		PRINT N'Al tering [AH OBPR].[SP_ JsonGetCur rent]...';
				1828
				1829
				1830		GO
				1831
				1832		ALTER PROC EDURE [AHO BPR].[SP_J sonGetCurr ent]
				1833		@ObjectTyp e VARCHAR( 100),
				1834		@ObjectId VARCHAR(2 56)
				1835		AS
				1836
				1837		BEGIN
				1838
				1839		DECLARE @C urrentId I NT;
				1840
				1841		-- G et the Mos t Current JSON ID fo r the Type and ID
				1842		SELE CT @Curren tId = MAX( [REGISTRAN T_JSON_ID] )
				1843		FR OM [AHOBPR ].[REGISTR ANT_JSON] WITH (READ PAST)
				1844		WHE RE [OBJECT _TYPE] = @ ObjectType
				1845		A ND [OBJECT _ID] = @Ob jectId;
				1846
				1847		-- G et the rec ord
				1848		SELE CT
				1849		REGI STRANT_JSO N_ID
				1850		, OBJE CT_ID
				1851		, OBJE CT_TYPE
				1852		, JSON _DATA
				1853		, CREA TEDBY
				1854		, UPDA TEDBY
				1855		, CREA TED
				1856		, UPDA TED
				1857		FR OM [AHOBPR ].[REGISTR ANT_JSON] WITH (NOLO CK)
				1858		WHE RE [REGIST RANT_JSON_ ID] = @Cur rentId;
				1859
				1860		END
				1861		-- EXECUTE AHOBPR.SP _JsonGetCu rrent 5187
				1862		GO
				1863		PRINT N'Al tering [AH OBPR].[SP_ ReportCont actHistory ]...';
				1864
				1865
				1866		GO
				1867		-- ======= ========== ========== ========== ========
				1868		-- Author: Bruce Clegg
				1869		-- Create date: Nove mber 12, 2 014
				1870		-- Descrip tion: Used for the A HOBPR Cont act Histor y report
				1871		-- Modific ation log
				1872		-- 2015-07 -14 CleggB - changed UpdatedDa te and out put from D ate to Dat eTime2(0)
				1873		ALTER PROC EDURE [AHO BPR].[SP_R eportConta ctHistory]
				1874		@R egistrantI d INT = NU LL
				1875		WITH EXECU TE AS OWNE R
				1876		AS
				1877		BEGIN
				1878
				1879		DECLARE @RowCount SMALLINT = 0;
				1880
				1881		DECLARE @Results T ABLE(Updat edDate DATETI ME2(0)
				1882		,[STR EET1] VARCHA R(256)
				1883		,[STR EET2] VARCHA R(256)
				1884		,[CIT Y] VARCHA R(100)
				1885		,[STA TE] VARCHA R(100)
				1886		,[ZIP ] VARCHA R(15)
				1887		,[COU NTRY] VARCHA R(100)
				1888		,Phon eNumber VARCHA R(50)
				1889		,Mobi leNumber VARCHA R(50)
				1890		,EMAI L VARCHA R(256) );
				1891
				1892		DECLARE @UpdatedD ate DAT ETIME2(0)
				1893		,@MyOrder INT
				1894		,@Street1 VAR CHAR(256)
				1895		,@Street2 VAR CHAR(256)
				1896		,@City VAR CHAR(100)
				1897		,@State VAR CHAR(100)
				1898		,@Zip VAR CHAR(15)
				1899		,@Country VAR CHAR(100)
				1900		,@PhoneNum ber VAR CHAR(50)
				1901		,@MobileNu mber VAR CHAR(50)
				1902		,@Email VAR CHAR(256);
				1903
				1904		DECLARE @UpdatedD ateOut DATETIME2( 0)
				1905		,@Street1O ut VARCHAR(25 6)
				1906		,@Street2O ut VARCHAR(25 6)
				1907		,@CityOut VARCHAR(10 0)
				1908		,@StateOut VARCHAR(10 0)
				1909		,@ZipOut VARCHAR(15 )
				1910		,@CountryO ut VARCHAR(10 0)
				1911		,@PhoneNum berOut VARCHAR(50 )
				1912		,@MobileNu mberOut VARCHAR(50 )
				1913		,@EmailOut VARCHAR(25 6);
				1914
				1915		DECLARE MyCursor C URSOR LOCA L
				1916		FOR
				1917		WITH Add r
				1918		AS (
				1919		SELE CT DISTINC T
				1920		[REGIST RANT_ID]
				1921		,[STREET 1]
				1922		,[STREET 2]
				1923		,[CITY]
				1924		,[STATE]
				1925		,[ZIP]
				1926		,[COUNTR Y]
				1927		,[Audit_ Date] AS U pdatedDate
				1928		,CONVERT (INT,'1') AS MyOrder
				1929		FR OM [AHOBPR ].[REGISTR ANT_ADDRES S_H]
				1930		WHE RE [Audit_ Type] != ' DELETE'
				1931		A ND [REGIST RANT_ID] = @Registra ntId
				1932		)
				1933		,Phone
				1934		AS (
				1935		SE LECT DISTI NCT
				1936		[REGI STRANT_ID]
				1937		,[PHON E_NUMBER] as PhoneNu mber
				1938		,[Audi t_Date] AS UpdatedDa te
				1939		,CONVE RT(INT,'2' ) AS MyOrd er
				1940		FROM [AHOB PR].[REGIS TRANT_PHON E_H]
				1941		W HERE ISNUL L([TYPE],' ') != 'Mob ile'
				1942		AND [Audi t_Type] != 'DELETE'
				1943		AND [REGI STRANT_ID] = @Regist rantId
				1944		)
				1945		,Mobil e
				1946		AS (
				1947		SE LECT DISTI NCT
				1948		[REGI STRANT_ID]
				1949		,[PHON E_NUMBER] AS MobileN umber
				1950		,[Audi t_Date] AS UpdatedDa te
				1951		,CONVE RT(INT,'3' ) AS MyOrd er
				1952		FROM [AHOB PR].[REGIS TRANT_PHON E_H]
				1953		W HERE [TYPE ] = 'Mobil e'
				1954		AND [Audi t_Type] != 'DELETE'
				1955		AND [REGI STRANT_ID] = @Regist rantId
				1956		)
				1957		,Email
				1958		AS (
				1959		SEL ECT DISTIN CT
				1960		[REGIS TRANT_ID]
				1961		,[EMAIL ]
				1962		,[Audit _Date] AS UpdatedDat e
				1963		,CONVER T(INT,'4') AS MyOrde r
				1964		F ROM [AHOBP R].[REGIST RANT_EMAIL _H]
				1965		WH ERE [Audit _Type] != 'DELETE'
				1966		AND [REGIS TRANT_ID] = @Registr antId
				1967		)
				1968		SE LECT Addr. UpdatedDat e
				1969		,Addr. Myorder
				1970		,[STRE ET1]
				1971		,[STRE ET2]
				1972		,[CITY ]
				1973		,[STAT E]
				1974		,[ZIP]
				1975		,[COUN TRY]
				1976		,NULL AS PhoneNu mber
				1977		,NULL as MobileN umber
				1978		,NULL as EMAIL
				1979		FROM Addr
				1980		UNI ON
				1981		SEL ECT Phone. UpdatedDat e
				1982		,Phone .Myorder
				1983		,NULL
				1984		,NULL
				1985		,NULL
				1986		,NULL
				1987		,NULL
				1988		,NULL
				1989		,Phone Number
				1990		,NULL as MobileN umber
				1991		,NULL as EMAIL
				1992		FROM Phone
				1993		UNI ON
				1994		SEL ECT Mobile .UpdatedDa te
				1995		,Mobil e.Myorder
				1996		,NULL
				1997		,NULL
				1998		,NULL
				1999		,NULL
				2000		,NULL
				2001		,NULL
				2002		,NULL AS PhoneNu mber
				2003		,Mobil eNumber
				2004		,NULL as EMAIL
				2005		FROM Mobil e
				2006		UN ION
				2007		SE LECT Email .UpdatedDa te
				2008		,Email .Myorder
				2009		,NULL
				2010		,NULL
				2011		,NULL
				2012		,NULL
				2013		,NULL
				2014		,NULL
				2015		,NULL AS PhoneNu mber
				2016		,NULL AS MobileN umber
				2017		,Email .EMAIL
				2018		FROM Email
				2019		ORDER BY U pdatedDate DESC, MyO rder ASC;
				2020
				2021
				2022		OPEN M yCursor;
				2023
				2024		FETCH NEXT FROM MyCursor -- priming read
				2025		INTO @UpdatedDa te
				2026		,@MyOrder
				2027		,@Street1
				2028		,@Street2
				2029		,@City
				2030		,@State
				2031		,@Zip
				2032		,@Country
				2033		,@PhoneNum ber
				2034		,@MobileNu mber
				2035		,@Email;
				2036
				2037		SET @U pdatedDate Out = @Upd atedDate;
				2038
				2039		WHILE @@FETCH_ST ATUS = 0 - - Not End of file
				2040		BEGI N
				2041		-- If new da te, or now here to pu t data val ue, Insert into temp and clear Output va riables
				2042		IF (@Updated Date != @U pdatedDate Out AND @R owCount > 0)
				2043		OR (@MyOrder = 1 AND @ Street1Out IS NOT NU LL)
				2044		OR (@MyOrder = 2 AND @ PhoneNumbe rOut IS NO T NULL)
				2045		OR (@MyOrder = 3 AND @ MobileNumb erOut IS N OT NULL)
				2046		OR (@MyOrder = 4 AND @ EmailOut I S NOT NULL )
				2047		BE GIN
				2048		I NSERT INTO @Results (UpdatedDa te
				2049		, [STREET1]
				2050		, [STREET2]
				2051		, [CITY]
				2052		, [STATE]
				2053		, [ZIP]
				2054		, [COUNTRY]
				2055		, PhoneNumbe r
				2056		, MobileNumb er
				2057		, EMAIL )
				2058		VALUES(@ UpdatedDat eOut
				2059		,@ Street1Out
				2060		,@ Street2Out
				2061		,@ CityOut
				2062		,@ StateOut
				2063		,@ ZipOut
				2064		,@ CountryOut
				2065		,@ PhoneNumbe rOut
				2066		,@ MobileNumb erOut
				2067		,@ EmailOut);
				2068
				2069		S ET @Update dDateOut = @UpdatedD ate;
				2070		S ET @Street 1Out = NUL L;
				2071		S ET @Street 2Out = NUL L;
				2072		S ET @CityOu t = NULL;
				2073		S ET @StateO ut = NULL;
				2074		S ET @ZipOut = NULL;
				2075		S ET @Countr yOut = NUL L;
				2076		S ET @PhoneN umberOut = NULL;
				2077		S ET @Mobile NumberOut = NULL;
				2078		S ET @EmailO ut = NULL;
				2079		EN D
				2080
				2081		SE T @RowCoun t = @RowCo unt + 1;
				2082
				2083		-- Set Addre ss Fields
				2084		IF @MyOrder = 1
				2085		BEGIN
				2086		SET @St reet1Out = @Street1;
				2087		SET @St reet2Out = @Street2;
				2088		SET @Ci tyOut = @C ity;
				2089		SET @St ateOut = @ State;
				2090		SET @Zi pOut = @Zi p;
				2091		SET @Co untryOut = @Country;
				2092		END;
				2093
				2094		-- Set Phone Number
				2095		IF @MyOrder = 2
				2096		SET @Phon eNumberOut = @PhoneN umber;
				2097
				2098		IF @MyOrder = 3
				2099		SET @Mobi leNumberOu t = @Mobil eNumber;
				2100
				2101		IF @MyOrder = 4
				2102		SET @Emai lOut = @Em ail;
				2103
				2104		FE TCH NEXT F ROM MyCurs or
				2105		I NTO @Updat edDate
				2106		,@MyOr der
				2107		,@Stre et1
				2108		,@Stre et2
				2109		,@City
				2110		,@Stat e
				2111		,@Zip
				2112		,@Coun try
				2113		,@Phon eNumber
				2114		,@Mobi leNumber
				2115		,@Emai l;
				2116
				2117		END; -- End o f loop
				2118
				2119		--wr ite last r ecord
				2120		INSER T INTO @Re sults (Upd atedDate
				2121		, [STREET1]
				2122		, [STREET2]
				2123		, [CITY]
				2124		, [STATE]
				2125		, [ZIP]
				2126		, [COUNTRY]
				2127		, PhoneNumbe r
				2128		, MobileNumb er
				2129		, EMAIL )
				2130		VALUES(@ UpdatedDat eOut
				2131		,@ Street1Out
				2132		,@ Street2Out
				2133		,@ CityOut
				2134		,@ StateOut
				2135		,@ ZipOut
				2136		,@ CountryOut
				2137		,@ PhoneNumbe rOut
				2138		,@ MobileNumb erOut
				2139		,@ EmailOut);
				2140		CLOSE MyCursor;
				2141
				2142		SELECT UpdatedDa te
				2143		,ISNULL(ST REET1,'') AS Street1
				2144		,ISNULL(ST REET2,'') AS Street2
				2145		,ISNULL(CI TY,'') AS City
				2146		,ISNULL(ST ATE,'') AS State
				2147		,ISNULL(ZI P,'') AS Z ip
				2148		,ISNULL(CO UNTRY,'') AS Country
				2149		,ISNULL(Ph oneNumber, '') AS Pho neNumber
				2150		,ISNULL(Mo bileNumber ,'') AS Mo bileNumber
				2151		,ISNULL(EM AIL,'') AS Email
				2152
				2153		FROM @Results
				2154		ORDER BY UpdatedDa te DESC;
				2155
				2156		END
				2157
				2158		-- EXECUTE [AHOBPR]. [SP_Report ContactHis tory] 5
				2159		GO
				2160		PRINT N'Al tering [AH OBPR].[SP_ ReportPart icipation] ...';
				2161
				2162
				2163		GO
				2164		-- ======= ========== ========== ========== ========
				2165		-- Author: Bruce Clegg
				2166		-- Create date: Dec 30, 2014
				2167		-- Descrip tion: Used for the A HOBPR Part icipation Report -- exec [AHOBPR]. [SP_Report Participat ion]
				2168		-- 2015033 0 - Bruce Clegg - Ad ded VisnId value of NLA to fin d Null loc ations
				2169		-- 2015042 7 - Bruce Clegg - Ch ange to Lo cationType and Key, for both A ssigned an d Evaluate d Location s
				2170		-- 2015071 0 - Bruce Clegg - Re write usin g Dynamic SQL for Pe rformance
				2171		-- 2015091 0 - Bruce Clegg - Re moved sele ction for Question 1 .2.A for D eployments
				2172		-- 2015091 5 - Bruce Clegg - Ad d Max Time to End da te paramet er
				2173		-- ======= ========== ========== ========== ========
				2174		ALTER PROC EDURE [AHO BPR].[SP_R eportParti cipation]
				2175		@St artDate DA TETIME2(0) = NULL,
				2176		@En dDate DA TETIME2(0) = NULL,
				2177		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				2178		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				2179		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				2180		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL -- 'V16', 'V01' 1000109, 1000089
				2181		AS
				2182		BEGIN
				2183
				2184		SET @Sta rtDate = I SNULL(@Sta rtDate,'19 900802'); -- Desert Storm star t date
				2185		SET @End Date = ISN ULL(@EndDa te, GETDAT E());
				2186
				2187		SET @End Date = dbo .AddMaxTim e(@EndDate );
				2188
				2189		DECLARE @ConsentSt atusCount INT = 0,
				2190		@EligibleS tatusCount INT = 0,
				2191		@Participa ntStatusCo unt INT = 0,
				2192		@HealthCon cernsCount INT = 0,
				2193		@NoHealthC oncernsCou nt INT = 0 ,
				2194		@RequestSe enCount IN T = 0,
				2195		@NoRequest SeenCount INT = 0,
				2196		@DoNotKnow RequestSee nCount INT = 0,
				2197		@VeteranSe rviceStatu sCount INT = 0,
				2198		@ActiveDut yServiceSt atusCount INT = 0,
				2199		@RetireeSe rviceStatu sCount INT = 0,
				2200		@Afgh911Co unt INT = 0,
				2201		@Iraq911Co unt INT = 0,
				2202		@SWA911Cou nt INT = 0 ,
				2203		@Pre911Cou nt INT = 0 ,
				2204		@Djibouti9 11Count IN T = 0,
				2205		@MedianDay sToPartici pant DECIM AL(9,2) = 0;
				2206
				2207		DECLARE @AssignedI nstitution Id INT = 0 ,
				2208		@E valuatedIn stitutionI d INT = 0;
				2209
				2210		DECLARE @Query NVA RCHAR(MAX) ;
				2211		DECLARE @Criteria VARCHAR(20 00) = '';
				2212
				2213		IF @Assign edLocation Type IN (' Base','Ins titution')
				2214		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				2215		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				2216
				2217		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				2218		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				2219		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				2220
				2221		-- Buil d Criteria string
				2222
				2223		SET @Cri teria = ' AND respon seStat.QUE STIONNAIRE _COMPLETED _DATE BETW EEN ''' + CONVERT(VA RCHAR(20), @StartDate ,121) +
				2224		'' ' AND ''' + CONVERT( VARCHAR(20 ),@EndDate ,121) + '' ' ' ;
				2225		IF @Assi gnedLocati onType = ' NLA'
				2226		SET @C riteria = @Criteria + ' AND re g.STD_INST ITUTION_ID IS NULL ' ;
				2227
				2228		IF @Assi gnedLocati onType = ' VISN'
				2229		SET @C riteria = @Criteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				2230		' WHERE inst .ID = reg. STD_INSTIT UTION_ID ' +
				2231		'AND inst .VisnID = ''' + @Ass ignedLocat ionKey + ' '') ';
				2232
				2233		IF @Assi gnedLocati onType = ' Base'
				2234		SET @C riteria = @Criteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				2235		' WHERE inst .ID = reg. STD_INSTIT UTION_ID ' +
				2236		'AND inst .BASE_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId) + ' ) ';
				2237
				2238		IF @Assi gnedLocati onType = ' Institutio n'
				2239		SET @C riteria = @Criteria + ' AND re g.STD_INST ITUTION_ID = ' + CON VERT(VARCH AR(20),@As signedInst itutionId) + ' '
				2240
				2241		IF @Eval uatedLocat ionType = 'NLA'
				2242		SET @C riteria = @Criteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				2243		'WHERE eval.REGI STRANT_ID = Reg.REGI STRANT_ID ' +
				2244		'AN D eval.EVA LUATION_FL AG = ''Y'' ) ';
				2245
				2246		IF @Eval uatedLocat ionType = 'VISN'
				2247		SET @C riteria = @Criteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				2248		'JO IN AHOBPR. VIEW_FACIL ITY_LOOKUP inst ON i nst.ID = e val.STD_IN STITUTION_ ID ' +
				2249		' WHE RE eval.RE GISTRANT_I D = Reg.RE GISTRANT_I D ' +
				2250		'A ND inst.Vi snID = ''' + @Evalu atedLocati onKey + '' ' ' +
				2251		'A ND eval.EV ALUATION_F LAG = ''Y' ') ' ;
				2252
				2253		IF @Eval uatedLocat ionType = 'Base'
				2254		SET @C riteria = @Criteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				2255		'JO IN AHOBPR. VIEW_FACIL ITY_LOOKUP inst ON i nst.ID = e val.STD_IN STITUTION_ ID ' +
				2256		' WHE RE eval.RE GISTRANT_I D = Reg.RE GISTRANT_I D ' +
				2257		' AND inst .BASE_ID = ' + CONVE RT(VARCHAR (20),@Eval uatedInsti tutionId) +
				2258		' AND ev al.EVALUAT ION_FLAG = ''Y'') ';
				2259		IF @Eval uatedLocat ionType = 'Instituti on'
				2260		SET @C riteria = @Criteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				2261		' WHERE eval .REGISTRAN T_ID = Reg .REGISTRAN T_ID '+
				2262		' AND eval .STD_INSTI TUTION_ID = ' + CONV ERT(VARCHA R(20),@Eva luatedInst itutionId) +
				2263		' AND eval .EVALUATIO N_FLAG = ' 'Y'') ';
				2264
				2265		-- @Par ticipantSt atusCount
				2266		SET @Que ry = ' SEL ECT @Parti cipantStat usCount = COUNT(*) ' +
				2267		' F ROM [AHOBP R].[REGIST RANT] reg ' +
				2268		' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' +
				2269		' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' +
				2270		' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID '
				2271		+ @Cri teria
				2272		+ ' A ND stat.RE GISTRANT_S TATUS = '' Participan t'' ';
				2273
				2274		PRINT @Q uery;
				2275		EXEC sp_ executesql @Query, N'@Partici pantStatus Count INT OUTPUT', @Partici pantStatus Count OUTP UT;
				2276
				2277
				2278		-- @H ealthConce rnsCount
				2279		SET @Que ry = ' SEL ECT @Healt hConcernsC ount = COU NT(*) ' +
				2280		' F ROM [AHOBP R].[REGIST RANT] reg ' +
				2281		' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' +
				2282		' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' +
				2283		' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID '
				2284		+ ' WH ERE reg.HE ALTH_CONCE RNS_RESPON SE = ''Yes '' '
				2285		+ @Cri teria;
				2286
				2287		PRINT @Q uery;
				2288		EXEC sp_ executesql @Query, N'@HealthC oncernsCou nt INT OUT PUT', @ HealthConc ernsCount OUTPUT;
				2289
				2290		-- @NoH ealthConce rnsCount
				2291		SET @Que ry = ' SEL ECT @NoHea lthConcern sCount = C OUNT(*) ' +
				2292		' F ROM [AHOBP R].[REGIST RANT] reg ' +
				2293		' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' +
				2294		' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' +
				2295		' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID '
				2296		+ ' WH ERE reg.HE ALTH_CONCE RNS_RESPON SE IS NULL '
				2297		+ @Cri teria;
				2298
				2299		PRINT @Q uery;
				2300		EXEC sp_ executesql @Query, N'@NoHealt hConcernsC ount INT O UTPUT', @NoHealth ConcernsCo unt OUTPUT ;
				2301
				2302
				2303		-- @Req uestSeenCo unt
				2304		SET @Que ry = ' SEL ECT @Reque stSeenCoun t = COUNT( *) ' +
				2305		' F ROM [AHOBP R].[REGIST RANT] reg ' +
				2306		' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' +
				2307		' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' +
				2308		' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID '
				2309		+ ' WH ERE reg.RE QUEST_SEEN _RESPONSE = ''Yes'' '
				2310		+ @Cri teria;
				2311
				2312		PRINT @Q uery;
				2313		EXEC sp_ executesql @Query, N'@Request SeenCount INT OUTPUT ', @Req uestSeenCo unt OUTPUT ;
				2314
				2315		-- @NoR equestSeen Count
				2316		SET @Que ry = ' SEL ECT @NoReq uestSeenCo unt = COUN T(*) ' +
				2317		' F ROM [AHOBP R].[REGIST RANT] reg ' +
				2318		' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' +
				2319		' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' +
				2320		' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID '
				2321		+ ' WH ERE reg.RE QUEST_SEEN _RESPONSE = ''No'' '
				2322		+ @Cri teria;
				2323
				2324		PRINT @Q uery;
				2325		EXEC sp_ executesql @Query, N'@NoReque stSeenCoun t INT OUTP UT', @N oRequestSe enCount OU TPUT;
				2326
				2327		-- @DoN otKnowRequ estSeenCou nt
				2328		SET @Que ry = ' SEL ECT @DoNot KnowReques tSeenCount = COUNT(* ) ' +
				2329		' F ROM [AHOBP R].[REGIST RANT] reg ' +
				2330		' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' +
				2331		' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' +
				2332		' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID '
				2333		+ ' WH ERE ISNULL (reg.REQUE ST_SEEN_RE SPONSE,''' ') NOT IN (''Yes'',' 'No'') '
				2334		+ @Cri teria;
				2335
				2336		PRINT @Q uery;
				2337		EXEC sp_ executesql @Query, N'@DoNotKn owRequestS eenCount I NT OUTPUT' , @DoNotKn owRequestS eenCount O UTPUT;
				2338
				2339		-- @Act iveDutySer viceStatus Count
				2340		SET @Que ry = ' SEL ECT @Activ eDutyServi ceStatusCo unt = COUN T(*) ' +
				2341		' F ROM [AHOBP R].[REGIST RANT] reg ' +
				2342		' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' +
				2343		' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' +
				2344		' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID ' +
				2345		' J OIN AHOBPR .STD_SERVI CE_STATUS svc ON sv c.STD_SERV ICE_STATUS _ID = reg. STD_SERVIC E_STATUS_I D '
				2346		+ ' WH ERE svc.SE RVICE_STAT US = ''Act ive Duty'' '
				2347		+ @Cri teria;
				2348
				2349		PRINT @Q uery;
				2350		EXEC sp_ executesql @Query, N'@ActiveD utyService StatusCoun t INT OUTP UT', @Acti veDutyServ iceStatusC ount OUTPU T;
				2351
				2352
				2353		-- @Vet eranServic eStatusCou nt
				2354		SET @Que ry = ' SEL ECT @Veter anServiceS tatusCount = COUNT(* ) ' +
				2355		' F ROM [AHOBP R].[REGIST RANT] reg ' +
				2356		' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' +
				2357		' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' +
				2358		' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID ' +
				2359		' J OIN AHOBPR .STD_SERVI CE_STATUS svc ON sv c.STD_SERV ICE_STATUS _ID = reg. STD_SERVIC E_STATUS_I D '
				2360		+ ' WH ERE svc.SE RVICE_STAT US = ''Sep arated'' '
				2361		+ @Cri teria;
				2362
				2363		PRINT @Q uery;
				2364		EXEC sp_ executesql @Query, N'@Veteran ServiceSta tusCount I NT OUTPUT' , @Veteran ServiceSta tusCount O UTPUT;
				2365
				2366		-- @Ret ireeServic eStatusCou nt
				2367		SET @Que ry = ' SEL ECT @Retir eeServiceS tatusCount = COUNT(* ) ' +
				2368		' F ROM [AHOBP R].[REGIST RANT] reg ' +
				2369		' J OIN AHOBPR .STD_REGIS TRANT_STAT US stat ON stat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D ' +
				2370		' J OIN AHOBPR .FORM_RESP ONSE resp ON resp.RE GISTRANT_I D = reg.RE GISTRANT_I D ' +
				2371		' J OIN AHOBPR .FORM_RESP ONSE_STATU S response Stat ON r esponseSta t.FORM_RES PONSE_ID = resp.FORM _RESPONSE_ ID ' +
				2372		' J OIN AHOBPR .STD_SERVI CE_STATUS svc ON sv c.STD_SERV ICE_STATUS _ID = reg. STD_SERVIC E_STATUS_I D '
				2373		+ ' WH ERE svc.SE RVICE_STAT US = ''Ret iree'' '
				2374		+ @Cri teria;
				2375
				2376		PRINT @Q uery;
				2377		EXEC sp_ executesql @Query, N'@Retiree ServiceSta tusCount I NT OUTPUT' , @Retiree ServiceSta tusCount O UTPUT;
				2378
				2379
				2380
				2381		-- Deploym ent Counts
				2382		SET @Que ry = 'WITH Deploymen ts
				2383		AS (
				2384		SELECT
				2385		dp ly.REGISTR ANT_ID ,
				2386		CASE WHEN (SUM (CASE WHEN [DEPLOYME NT_COUNTRY ] = ''Iraq ''
				2387		AND [DEPLOYME NT_START_D ATE] > ''2 0010911''
				2388		THE N 1 ELSE 0 END) )> 0
				2389		THEN 1 EL SE 0 END A S Iraq911C ount,
				2390		CASE WHEN (SUM (CASE WHEN [DEPLOYME NT_COUNTRY ] = ''Afgh anistan''
				2391		AND [DEPLOYME NT_START_D ATE] > ''2 0010911''
				2392		THEN 1 ELSE 0 END)) > 0
				2393		THEN 1 EL SE 0 END A S Afgh911C ount,
				2394		CASE WHEN (SUM (CASE WHEN [DEPLOYME NT_COUNTRY ] = ''Djib outi''
				2395		AND [DEPLOYME NT_START_D ATE] > ''2 0010911''
				2396		THEN 1 ELSE 0 END)) > 0
				2397		THEN 1 EL SE 0 END A S Djibouti 911Count,
				2398		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'')
				2399		AND [DEPLOYME NT_START_D ATE] > ''2 0010911''
				2400		THE N 1 ELSE 0 END)) > 0
				2401		THEN 1 EL SE 0 END A S SWA911Co unt,
				2402		CASE WHEN (SUM (CASE WHEN ([DEPLOYM ENT_START_ DATE] BETW EEN ''1990 0802'' AND ''2001091 1'' )
				2403		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'')
				2404		THEN 1 ELSE 0 END)) > 0
				2405		THEN 1 EL SE 0 END AS Pre911C ount
				2406		FROM [ AHOBPR].[R EGISTRANT_ DEPLOYMENT ] dply
				2407		JO IN AHOBPR. REGISTRANT Reg ON Re g.REGISTRA NT_ID = dp ly.REGISTR ANT_ID
				2408		JO IN AHOBPR. FORM_RESPO NSE resp O N resp.REG ISTRANT_ID = dply.RE GISTRANT_I D
				2409		JO IN AHOBPR. FORM_RESPO NSE_STATUS responseS tat ON res ponseStat. FORM_RESPO NSE_ID = r esp.FORM_R ESPONSE_ID
				2410		WHERE 1 = 1 ' +
				2411		@Criter ia +
				2412		' GROU P BY dply. REGISTRANT _ID
				2413		)
				2414		SELEC T @Afgh911 Count = S UM(ISNULL( Deployment s.Afgh911C ount,0))
				2415		,@Iraq911 Count = S UM(ISNULL( Deployment s.Iraq911C ount,0))
				2416		,@SWA911C ount = SUM (ISNULL(De ployments. SWA911Coun t,0))
				2417		,@Pre911C ount = S UM(ISNULL( Deployment s.Pre911Co unt,0))
				2418		,@Djibout i911Count = SUM(ISNU LL(Deploym ents.Djibo uti911Coun t,0))
				2419		FROM Deploymen ts' ;
				2420
				2421		PRINT @Q uery;
				2422		EXEC sp_ executesql @Query,
				2423		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'
				2424		, @A fgh911Coun t OUTPUT, @Iraq911Co unt OUTPUT , @SWA911C ount OUTPU T, @Pre911 Count OUTP UT, @Djibo uti911Coun t OUTPUT;
				2425
				2426
				2427		CREAT E TABLE #D aysToParti cipant(DAY S INT);
				2428
				2429		-- Med ian Days f rom Eligib le to Part icipant St atus
				2430		-- 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
				2431
				2432		SET @Q uery = 'WI TH eligibl e
				2433		AS (
				2434		SELECT [RE GISTRANT_I D],MIN([CR EATED]) AS DateEligi ble
				2435		FROM [AH OBPR].[PRO CESS_METRI CS]
				2436		WHERE [PR OCESS_METR ICS_VALUE] = ''Eligi ble''
				2437		GROUP BY [REGISTRAN T_ID]
				2438		) ,
				2439		part icipant
				2440		AS (
				2441		S ELECT [REG ISTRANT_ID ],MAX([CRE ATED]) AS DatePartic ipant
				2442		FROM [AHO BPR].[PROC ESS_METRIC S]
				2443		WHERE [PRO CESS_METRI CS_VALUE] = ''Partic ipant''
				2444		GROUP BY [REGISTRAN T_ID]
				2445		)
				2446		INSER T INTO #Da ysToPartic ipant(DAYS )
				2447		SELECT
				2448		CASE WHEN Date Participan t > DateEl igible THE N DATEDIFF (Day,DateE ligible,Da teParticip ant) ELSE 0 END AS D aysDiffere nce
				2449		FROM [AHOBPR]. [REGISTRAN T] reg
				2450		JOIN eligible ON reg.REG ISTRANT_ID = eligibl e.REGISTRA NT_ID
				2451		JOIN participa nt ON reg. REGISTRANT _ID = part icipant.RE GISTRANT_I D
				2452		JOIN AHOBPR.FO RM_RESPONS E resp ON resp.REGIS TRANT_ID = reg.REGIS TRANT_ID
				2453		JOIN AHOBPR.FO RM_RESPONS E_STATUS r esponseSta t ON respo nseStat.FO RM_RESPONS E_ID = res p.FORM_RES PONSE_ID ' +
				2454		'WHERE 1 = 1 ' + @Criteri a +
				2455		' ORDER BY DaysDi fference';
				2456
				2457		PRINT @Q uery;
				2458		EXECUTE( @Query);
				2459
				2460		WITH C ounts AS
				2461		(
				2462		SEL ECT c=COUN T(*)
				2463		FRO M #DaysToP articipant
				2464		)
				2465		SELECT @MedianDa ysToPartic ipant = AV G(0. + DAY S)
				2466		FROM C ounts a
				2467		CROSS APPLY
				2468		(
				2469		SEL ECT TOP((( a.c - 1) / 2) + (1 + (1 - a.c % 2)))
				2470		DAYS, r=RO W_NUMBER() OVER (ORD ER BY DAYS )
				2471		FRO M #DaysToP articipant b
				2472		ORD ER BY DAYS
				2473		) p
				2474		WHERE r BETWEEN ((a.c - 1) / 2) + 1 AND (((a.c - 1) / 2) + (1 + (1 - a.c % 2 )));
				2475
				2476		DROP TABLE #Day sToPartici pant;
				2477
				2478		-- Return Results
				2479		SELECT ISNULL(@Pa rticipantS tatusCount ,0) AS Par ticipantSt atusCount,
				2480		ISNULL(@He althConcer nsCount,0) AS Report edHealthCo ncernsCoun t,
				2481		ISNULL(@No HealthConc ernsCount, 0) AS NoR eportedHea lthConcern sCount,
				2482		ISNULL(@Re questSeenC ount,0) AS RequestSe enCount,
				2483		ISNULL(@No RequestSee nCount,0) AS NoReque stSeenCoun t,
				2484		ISNULL(@Do NotKnowReq uestSeenCo unt,0) AS DoNotKnowR equestSeen Count,
				2485		ISNULL(@Ve teranServi ceStatusCo unt,0) AS VeteranSer viceStatus Count ,
				2486		ISNULL(@Ac tiveDutySe rviceStatu sCount,0) AS Active DutyServic eStatusCou nt,
				2487		ISNULL(@Re tireeServi ceStatusCo unt,0) AS RetireeSer viceStatus Count,
				2488		ISNULL(@Af gh911Count ,0) AS Af gh911Count ,
				2489		ISNULL(@Ir aq911Count ,0) AS Ira q911Count,
				2490		ISNULL(@SW A911Count, 0) AS Sou thWestAsia 911Count,
				2491		ISNULL(@Pr e911Count, 0) AS Pre 911Count,
				2492		ISNULL(@Me dianDaysTo Participan t,0.0) AS MedianDays ToParticip ant,
				2493		ISNULL(@Dj ibouti911C ount,0) AS Djibouti9 11Count ;
				2494
				2495		END
				2496
				2497		-- exec [A HOBPR].[SP _ReportPar ticipation ] @StartDa te = '2015 0901'
				2498		-- exec [A HOBPR].[SP _ReportPar ticipation ] @Assigne dLocationT ype = 'NLA '
				2499		-- exec [A HOBPR].[SP _ReportPar ticipation ] @Assigne dLocationT ype = 'VIS N', @Assig nedLocatio nKey = 'V1 6'
				2500		-- exec [A HOBPR].[SP _ReportPar ticipation ] @Assigne dLocationT ype = 'Bas e', @Assig nedLocatio nKey = '10 00089'
				2501		-- exec [A HOBPR].[SP _ReportPar ticipation ] @Assigne dLocationT ype = 'Ins titution', @Assigned LocationKe y = '10000 89'
				2502		-- exec [A HOBPR].[SP _ReportPar ticipation ]
				2503		-- exec [A HOBPR].[SP _ReportPar ticipation ] @Evaluat edLocation Type = 'NL A'
				2504		-- exec [A HOBPR].[SP _ReportPar ticipation ] @Evaluat edLocation Type = 'VI SN', @Eval uatedLocat ionKey = ' V16'
				2505		-- exec [A HOBPR].[SP _ReportPar ticipation ] @Evaluat edLocation Type = 'Ba se', @Eval uatedLocat ionKey = ' 1000089'
				2506		-- exec [A HOBPR].[SP _ReportPar ticipation ] @Evaluat edLocation Type = 'In stitution' , @Evaluat edLocation Key = '100 0089'
				2507		GO
				2508		PRINT N'Up date compl ete.';
				2509
				2510
				2511		GO
				2512
				2513		DELETE
				2514		FROM [db o].[Databa seChangeLo g]
				2515		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				2516		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				2517		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				2518		AND [S criptName] = '$(Script Name)';
				2519		GO
				2520
				2521		---------- ---------- ---------- ---------- --
				2522		---------- ---------- ---------- ---------- --
				2523		-- 2.0.9.1
				2524		---------- ---------- ---------- ---------- --
				2525		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				2526		:setvar Ma jorRelease Number "2"
				2527		:setvar Mi norRelease Number "0"
				2528		:setvar Po intRelease Number "9"
				2529		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.9.1.s ql"
				2530
				2531		PRINT '
				2532		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2533		Rollback $ (ScriptNam e)
				2534
				2535		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				2536
				2537		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2538		';
				2539		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				2540		PRINT '
				2541		******** ****** ****** ****** ****** *****
				2542		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				2543		******** ****** ****** ****** ****** *****
				2544
				2545		';
				2546		GO
				2547		:on error exit
				2548		GO
				2549		:setvar __ IsSqlCmdEn abled "Tru e"
				2550		/*
				2551		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				2552		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				2553		*/
				2554		SET NOEXEC OFF;
				2555		GO
				2556		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				2557		BEGIN
				2558		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				2559		SE T NOEXEC O N; --When SET NOEXEC is ON, SQ L Server c ompiles ea ch batch o f Transact -SQL state ments but does not e xecute the m.
				2560		END
				2561
				2562		GO
				2563
				2564		USE [$(Dat abaseName) ]
				2565		GO
				2566
				2567		--****** ****
				2568		--Rollback steps
				2569		--****** ****
				2570		--
				2571		UPDATE [d bo].[Datab aseChangeL og]
				2572		SET [Scr iptDescrip tion] = 'R ollback in itiatited. ..'
				2573		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				2574		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				2575		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				2576		AND [S criptName] = '$(Script Name)';
				2577		GO
				2578
				2579		IF EXISTS (select * from sys.p rocedures where name = 'SP_Get FailedtoSe ndQuestion s'
				2580		AND schema_id = (SELECT schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2581		)
				2582		DROP PRO CEDURE [AH OBPR].[SP_ GetFailedt oSendQuest ions];
				2583
				2584		GO
				2585		DELETE
				2586		FROM [db o].[Databa seChangeLo g]
				2587		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				2588		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				2589		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				2590		AND [S criptName] = '$(Script Name)';
				2591		GO
				2592
				2593		---------- ---------- ---------- ---------- --
				2594		---------- ---------- ---------- ---------- --
				2595		-- 2.0.8.1
				2596		---------- ---------- ---------- ---------- --
				2597		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				2598		:setvar Ma jorRelease Number "2"
				2599		:setvar Mi norRelease Number "0"
				2600		:setvar Po intRelease Number "8"
				2601		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.8.1.s ql"
				2602		-- Detect SQLCMD mod e and disa ble script execution if SQLCMD mode is n ot support ed.
				2603		SET NOEXEC OFF; SET NOCOUNT OF F;
				2604		:setvar __ IsSqlCmdEn abled "Tru e"
				2605		GO
				2606		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue' BEGIN
				2607		PRINT '!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!' ;
				2608		RAISER ROR('SQLCM D mode mus t be enabl ed to succ essfully e xecute thi s script.' , 11, 0); PRINT '!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!'
				2609		SET NO COUNT ON; SET NOEXEC ON; --thi s is neces sary becau se SQLCMD mode is no t and ther efore so o n error ex it cannot be used
				2610		END
				2611		GO
				2612
				2613
				2614		PRINT '
				2615		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2616		Rollback $ (ScriptNam e)
				2617
				2618		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				2619
				2620		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2621		';
				2622		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				2623		PRINT '
				2624		******** ****** ****** ****** ****** *****
				2625		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				2626		******** ****** ****** ****** ****** *****
				2627
				2628		';
				2629		GO
				2630		:on error exit
				2631
				2632		USE [$(Dat abaseName) ]
				2633		GO
				2634
				2635		--****** ****
				2636		--Rollback steps
				2637		--****** ****
				2638		--
				2639
				2640		UPDATE [db o].[Databa seChangeLo g]
				2641		SET Scri ptDescript ion = 'Rol lback init iated...'
				2642		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				2643		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				2644		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				2645		AND [S criptName] = '$(Script Name)';
				2646		GO
				2647		if exists (select * from sys.v iews where name = 'V IEW_LOOKUP _Pre_2_0_8 _1'
				2648		AND schema_id = (SELECT schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2649		)
				2650		begin
				2651		begin tr y
				2652		begin transactio n;
				2653		if exi sts (selec t * from s ys.views w here name = 'VIEW_LO OKUP'
				2654		and schema_id = (select schema_id from sys.s chemas whe re name = 'AHOBPR')
				2655		)
				2656		drop view [AHO BPR].VIEW_ LOOKUP;
				2657
				2658		exec s p_rename ' AHOBPR.VIE W_LOOKUP_P re_2_0_8_1 ', 'VIEW_L OOKUP';
				2659		commit ;
				2660		end try
				2661		begin ca tch
				2662		rollba ck;
				2663		raiser ror('!!! E rror: The procedure VIEW_LOOKU P was not rolled bac k. The scr ipt execut ion was st opped. Yo u must bac k out the changes, f ix the err or and run it again. !!!',11
				2664		,1);
				2665		set no count on;
				2666		set no exec on;
				2667		end catc h
				2668		end;
				2669		go
				2670
				2671		IF EXISTS (select * from sys.p rocedures where name = 'SP_Del eteRegistr antAndResp onse_Pre_2 _0_8_1'
				2672		AND schema_id = (SELECT schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2673		)
				2674		BEGIN
				2675		BEGIN TR Y
				2676		BEGIN TRANSACTIO N;
				2677		if exi sts (selec t * from s ys.procedu res where name = 'SP _DeleteReg istrantAnd Response'
				2678		AND schema_id = (SELECT schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2679		)
				2680		DROP PROCEDURE [AHOBPR]. SP_DeleteR egistrantA ndResponse ;
				2681
				2682		EXEC s p_rename ' AHOBPR.SP_ DeleteRegi strantAndR esponse_Pr e_2_0_8_1' , 'SP_Dele teRegistra ntAndRespo nse';
				2683		COMMIT ;
				2684		END TRY
				2685		BEGIN CA TCH
				2686		ROLLBA CK;
				2687		RAISER ROR('!!! E rror: The procedure SP_DeleteR egistrantA ndResponse was not r olled back . The scri pt executi on was sto pped. You must back out the c hanges, fi x the erro r and run it again. !!!',11
				2688		,2);
				2689		SET NO COUNT ON;
				2690		SET NO EXEC ON;
				2691		END CATC H
				2692		END;
				2693		GO
				2694
				2695		IF EXISTS (select * from sys.p rocedures where name = 'SP_Del eteOneRegi strant_Pre _2_0_8_1'
				2696		AND schema_id = (SELECT schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2697		)
				2698		BEGIN
				2699		BEGIN TR Y
				2700		BEGIN TRANSACTIO N;
				2701		if exi sts (selec t * from s ys.procedu res where name = 'SP _DeleteOne Registrant '
				2702		AND schema_id = (SELECT schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2703		)
				2704		DROP PROCEDURE [AHOBPR]. SP_DeleteO neRegistra nt;
				2705
				2706		EXEC s p_rename ' AHOBPR.SP_ DeleteOneR egistrant_ Pre_2_0_8_ 1', 'SP_De leteOneReg istrant';
				2707		COMMIT ;
				2708		END TRY
				2709		BEGIN CA TCH
				2710		ROLLBA CK;
				2711		RAISER ROR('!!! E rror: The procedure SP_DeleteO neRegistra nt was not rolled ba ck. The sc ript execu tion was s topped. Y ou must ba ck out the changes, fix the er ror and ru n it again . !!!',11
				2712		,3);
				2713		SET NO COUNT ON;
				2714		SET NO EXEC ON;
				2715		END CATC H
				2716		END;
				2717		GO
				2718		DELETE
				2719		FROM [db o].[Databa seChangeLo g]
				2720		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				2721		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				2722		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				2723		AND [S criptName] = '$(Script Name)';
				2724		GO
				2725		---------- ---------- ---------- ---------- ---------- ---------
				2726		---------- ---------- ---------- ---------- ---------- ---------
				2727		-- 2.0.4.3
				2728		---------- ---------- ---------- ---------- ---------- ---------
				2729		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				2730		:setvar Ma jorRelease Number "2"
				2731		:setvar Mi norRelease Number "0"
				2732		:setvar Po intRelease Number "4"
				2733		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.4.3.s ql"
				2734
				2735		PRINT '
				2736		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2737		Rollback $ (ScriptNam e)
				2738
				2739		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				2740
				2741		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2742		';
				2743		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				2744		PRINT '
				2745		******** ****** ****** ****** ****** *****
				2746		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				2747		******** ****** ****** ****** ****** *****
				2748
				2749		';
				2750		go
				2751		:on error exit
				2752		go
				2753		:setvar __ IsSqlCmdEn abled "Tru e"
				2754		/*
				2755		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				2756		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				2757		*/
				2758		set noexec off;
				2759		go
				2760		if N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				2761		begin
				2762		print N'SQLCMD m ode must b e enabled to success fully exec ute this s cript.';
				2763		set no exec on; - -When SET NOEXEC is ON, SQL Se rver compi les each b atch of Tr ansact-SQL statement s but does not execu te them.
				2764		end
				2765
				2766		go
				2767
				2768		use [$(Dat abaseName) ]
				2769		go
				2770
				2771		--****** ****
				2772		--Rollback steps
				2773		--****** ****
				2774		--
				2775		update [d bo].[Datab aseChangeL og]
				2776		set [Scr iptDescrip tion] = 'R ollback in itiated... '
				2777		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				2778		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				2779		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				2780		and [S criptName] = '$(Script Name)';
				2781		go
				2782		set ansi_n ulls, ansi _padding, ansi_warni ngs, arith abort, con cat_null_y ields_null , quoted_i dentifier on;
				2783
				2784		set numeri c_roundabo rt off;
				2785
				2786		go
				2787
				2788		if exists (select * from sys.p rocedures where name = 'SP_Get JsonQueueF ollowupRow '
				2789		and schema _id = (sel ect schema _id from [ sys].[sche mas] where name = 'A HOBPR')
				2790		)
				2791		begin
				2792		print 'D rop proced ure AHOBPR .SP_GetJso nQueueFoll owupRow... ';
				2793		drop pro cedure aho bpr.SP_Get JsonQueueF ollowupRow ;
				2794		end;
				2795
				2796		go
				2797		print N'$( ScriptName ) Rollback complete. ';
				2798		go
				2799
				2800		delete
				2801		from [db o].[Databa seChangeLo g]
				2802		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				2803		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				2804		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				2805		and [S criptName] = '$(Script Name)';
				2806		go
				2807		---------- ---------- ---------- ---------- ---------- ---------
				2808		---------- ---------- ---------- ---------- ---------- ---------
				2809		-- 2.0.4.2
				2810		---------- ---------- ---------- ---------- ---------- ---------
				2811		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				2812		:setvar Ma jorRelease Number "2"
				2813		:setvar Mi norRelease Number "0"
				2814		:setvar Po intRelease Number "4"
				2815		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.4.2.s ql"
				2816		--select * from [dbo ].[Databas eChangeLog ] where [S criptName] = 'Regist ry.AHOBPR. Database.B uild.2.0.4 .2.sql'
				2817		PRINT '
				2818		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2819		Rollback $ (ScriptNam e)
				2820
				2821		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				2822
				2823		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2824		';
				2825		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				2826		PRINT '
				2827		******** ****** ****** ****** ****** *****
				2828		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				2829		******** ****** ****** ****** ****** *****
				2830
				2831		';
				2832		GO
				2833		:on error exit
				2834		GO
				2835
				2836		USE [$(Dat abaseName) ]
				2837		GO
				2838
				2839		--****** ****
				2840		--Rollback steps
				2841		--****** ****
				2842		--
				2843
				2844		UPDATE [db o].[Databa seChangeLo g]
				2845		SET Scri ptDescript ion = 'Rol lback init iated...'
				2846		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				2847		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				2848		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				2849		AND [S criptName] = '$(Script Name)';
				2850		GO
				2851		GO
				2852
				2853		IF EXISTS (select * from sys.v iews where name = 'V IEW_REGIST RANT_DEPLO YMENT'
				2854		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2855		)
				2856		BEGIN
				2857		DROP VIE W [AHOBPR] .VIEW_REGI STRANT_DEP LOYMENT;
				2858		END;
				2859		GO
				2860
				2861		IF EXISTS (select * from sys.v iews where name = 'V IEW_REGIST RANT_EVALU ATION'
				2862		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2863		)
				2864		BEGIN
				2865		DROP VIE W [AHOBPR] .VIEW_REGI STRANT_EVA LUATION;
				2866		END;
				2867		GO
				2868
				2869		IF EXISTS (select * from sys.v iews where name = 'V IEW_REGIST RANT_VISIT '
				2870		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2871		)
				2872		BEGIN
				2873		DROP VIE W [AHOBPR] .VIEW_REGI STRANT_VIS IT;
				2874		END;
				2875
				2876		GO
				2877		IF EXISTS (select * from sys.v iews where name = 'V IEW_REGIST RANT_ANSWE R'
				2878		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2879		)
				2880		BEGIN
				2881		DROP VIE W [AHOBPR] .VIEW_REGI STRANT_ANS WER;
				2882		END;
				2883		GO
				2884		IF EXISTS (select * from sys.v iews where name = 'V IEW_REGIST RANT_QUEST ION'
				2885		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2886		)
				2887		BEGIN
				2888		DROP VIE W [AHOBPR] .VIEW_REGI STRANT_QUE STION;
				2889		END;
				2890		GO
				2891		IF EXISTS (select * from sys.v iews where name = 'V IEW_REGIST RANT_STATU S_OLD'
				2892		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2893		)
				2894		BEGIN
				2895		IF EXIST S (select * from sys .views whe re name = 'VIEW_REGI STRANT_STA TUS'
				2896		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2897		)
				2898		BEGIN
				2899		DROP V IEW AHOBPR .VIEW_REGI STRANT_STA TUS;
				2900		END;
				2901		EXEC SP_ RENAME 'AH OBPR.VIEW_ REGISTRANT _STATUS_OL D', 'VIEW_ REGISTRANT _STATUS';
				2902		END;
				2903		GO
				2904		if exists (select * from sys.v iews where name = 'V IEW_REGIST RANT'
				2905		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2906		)
				2907		begin
				2908		drop vie w [AHOBPR] .VIEW_REGI STRANT;
				2909		end;
				2910		if exists (select * from sys.v iews where name = 'V IEW_REGIST RANT_pre_2 _0_4_2'
				2911		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				2912		)
				2913		begin
				2914		exec sp_ rename 'ah obpr.VIEW_ REGISTRANT _pre_2_0_4 _2', 'VIEW _REGISTRAN T';
				2915		end;
				2916
				2917		GO
				2918		IF EXISTS (select * from sys.v iews where name = 'V IEW_REGIST RANT_DEPLO YMENT_EXPO SURE_RESPO NSE'
				2919		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2920		)
				2921		BEGIN
				2922		DROP VIE W [AHOBPR] .VIEW_REGI STRANT_DEP LOYMENT_EX POSURE_RES PONSE;
				2923		END;
				2924		GO
				2925		DELETE
				2926		FROM [db o].[Databa seChangeLo g]
				2927		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				2928		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				2929		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				2930		AND [S criptName] = '$(Script Name)';
				2931		go
				2932		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				2933		:setvar Ma jorRelease Number "2"
				2934		:setvar Mi norRelease Number "0"
				2935		:setvar Po intRelease Number "4"
				2936		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.4.1.s ql"
				2937
				2938		PRINT '
				2939		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2940		Rollback $ (ScriptNam e)
				2941
				2942		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				2943
				2944		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2945		';
				2946		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				2947		PRINT '
				2948		******** ****** ****** ****** ****** *****
				2949		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				2950		******** ****** ****** ****** ****** *****
				2951
				2952		';
				2953		GO
				2954		:on error exit
				2955		GO
				2956
				2957		USE [$(Dat abaseName) ]
				2958		GO
				2959
				2960		--****** ****
				2961		--Rollback steps
				2962		--****** ****
				2963		--
				2964		DELETE
				2965		--select *
				2966		FROM [db o].[Databa seChangeLo g]
				2967		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				2968		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				2969		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				2970		AND [S criptName] = '$(Script Name)';
				2971
				2972		--22
				2973		IF EXISTS (select * from sys.p rocedures where name = 'SP_Get Registrant SendMessag e_Pre_2_0_ 4_1'
				2974		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2975		)
				2976		BEGIN
				2977		if exist s (select * from sys .procedure s where na me = 'SP_G etRegistra ntSendMess age'
				2978		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2979		)
				2980		DROP P ROCEDURE A HOBPR.SP_G etRegistra ntSendMess age;
				2981		exec sp_ rename 'AH OBPR.SP_Ge tRegistran tSendMessa ge_Pre_2_0 _4_1', 'SP _GetRegist rantSendMe ssage';
				2982		END;
				2983		--21
				2984		IF EXISTS (select * from sys.v iews where name = 'V IEW_LOOKUP _Pre_2_0_4 _1'
				2985		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2986		)
				2987		BEGIN
				2988		IF EXIST S (select * from sys .views whe re name = 'VIEW_LOOK UP'
				2989		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2990		)
				2991		drop v iew ahobpr .VIEW_LOOK UP;
				2992		exec sp_ rename 'AH OBPR.VIEW_ LOOKUP_Pre _2_0_4_1', 'VIEW_LOOK UP';
				2993		END;
				2994		GO
				2995		--20
				2996		IF EXISTS (SELECT * FROM sys.p rocedures WHERE name = 'SP_Get JsonQueueF ollowup'
				2997		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				2998		)
				2999		BEGIN
				3000		DROP PRO CEDURE [AH OBPR].SP_G etJsonQueu eFollowup;
				3001		END;
				3002		GO
				3003		--19
				3004		IF EXISTS (SELECT * FROM sys.p rocedures WHERE name = 'SP_Ins ertJsonQue ueFollowup '
				3005		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				3006		)
				3007		BEGIN
				3008		DROP PRO CEDURE [AH OBPR].SP_I nsertJsonQ ueueFollow up;
				3009		END;
				3010		GO
				3011		--18
				3012		IF EXISTS (SELECT * FROM sys.p rocedures WHERE name = 'SP_Get Registrant JsonFollow upRow'
				3013		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				3014		)
				3015		BEGIN
				3016		DROP PRO CEDURE [AH OBPR].SP_G etRegistra ntJsonFoll owupRow;
				3017		END;
				3018		GO
				3019		--17
				3020		IF EXISTS (SELECT * FROM sys.p rocedures WHERE name = 'SP_Get JsonFollow up'
				3021		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				3022		)
				3023		BEGIN
				3024		DROP PRO CEDURE [AH OBPR].SP_G etJsonFoll owup;
				3025		END;
				3026		GO
				3027		--16
				3028		IF EXISTS (SELECT * FROM sys.p rocedures WHERE name = 'SP_Get JsonFollow ups'
				3029		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				3030		)
				3031		BEGIN
				3032		DROP PRO CEDURE [AH OBPR].SP_G etJsonFoll owups;
				3033		END;
				3034		GO
				3035		--15
				3036		IF EXISTS (SELECT * FROM sys.t ables WHER E name = ' FOLLOWUP_F ORM_RESPON SE_ANSWER'
				3037		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				3038		)
				3039		BEGIN
				3040		DROP TAB LE [AHOBPR ].FOLLOWUP _FORM_RESP ONSE_ANSWE R;
				3041		END;
				3042		GO
				3043		--14
				3044		IF EXISTS (SELECT * FROM sys.t ables WHER E name = ' FOLLOWUP_F ORM_RESPON SE_QUESTIO N'
				3045		AND sch ema_id = ( select sch ema_id FRO M sys.sche mas WHERE name = 'AH OBPR')
				3046		)
				3047		BEGIN
				3048		DROP TAB LE [AHOBPR ].FOLLOWUP _FORM_RESP ONSE_QUEST ION;
				3049		END;
				3050		GO
				3051		--13
				3052		IF EXISTS (SELECT * FROM sys.t ables WHER E name = ' FOLLOWUP_F ORM_RESPON SE'
				3053		AND sch ema_id = ( select sch ema_id FRO M sys.sche mas WHERE name = 'AH OBPR')
				3054		)
				3055		BEGIN
				3056		DROP TAB LE [AHOBPR ].FOLLOWUP _FORM_RESP ONSE;
				3057		END;
				3058		GO
				3059		--12
				3060		IF EXISTS (SELECT * FROM sys.p rocedures WHERE name = 'SP_Get Registrant SendQuesti ons'
				3061		AND sche ma_id = (S ELECT sche ma_id FROM sys.schem as WHERE n ame = 'AHO BPR')
				3062		)
				3063		BEGIN
				3064		DROP PRO CEDURE AHO BPR.SP_Get Registrant SendQuesti ons;
				3065		END;
				3066		--11
				3067		IF EXISTS (SELECT * FROM sys.p rocedures WHERE name = 'SP_Ins ertRegistr antJsonFol lowup'
				3068		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				3069		)
				3070		BEGIN
				3071		DROP PRO CEDURE AHO BPR.SP_Ins ertRegistr antJsonFol lowup;
				3072		END;
				3073		GO
				3074		--10
				3075		IF EXISTS (select * from sys.t ables wher e name = ' JSON_QUEUE _FOLLOWUP_ STATUS'
				3076		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				3077		)
				3078		BEGIN
				3079		DROP TAB LE [AHOBPR ].JSON_QUE UE_FOLLOWU P_STATUS;
				3080		END;
				3081		GO
				3082		--9
				3083		IF EXISTS (select * from sys.t ables wher e name = ' JSON_QUEUE _FOLLOWUP'
				3084		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				3085		)
				3086		BEGIN
				3087		DROP TAB LE AHOBPR. JSON_QUEUE _FOLLOWUP;
				3088		END;
				3089		GO
				3090		--8
				3091		IF EXISTS (select * from sys.t ables wher e name = ' REGISTRANT _JSON_FOLL OWUP'
				3092		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				3093		)
				3094		BEGIN
				3095		DROP TAB LE AHOBPR. REGISTRANT _JSON_FOLL OWUP;
				3096		END;
				3097		GO
				3098		--7
				3099		IF EXISTS (select * from sys.c olumns whe re name = 'TOOL_FORM _ID'
				3100		AND object_id = (select object_id from sys.t ables wher e name = ' STD_FORM'
				3101		AND sc hema_id = (select sc hema_id FR OM sys.sch emas WHERE name = 'A HOBPR')
				3102		)
				3103		)
				3104		BEGIN
				3105		ALTER
				3106		TABLE [AHOBPR].S TD_FORM
				3107		DROP C OLUMN TOOL _FORM_ID;
				3108		END;
				3109		GO
				3110		--6
				3111		IF EXISTS (select * from sys.c olumns whe re name = 'FOLLOWUP_ FLAG'
				3112		AND object_id = (select object_id from sys.t ables wher e name = ' STD_FORM'
				3113		AND sc hema_id = (select sc hema_id FR OM sys.sch emas WHERE name = 'A HOBPR')
				3114		)
				3115		)
				3116		BEGIN
				3117		begin tr y
				3118		if exi sts (selec t * from s ys.default _constrain ts where n ame = 'DF_ STD_FORM_F OLLOWUP_FL AG'
				3119		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				3120		)
				3121		ALTE R TABLE [A HOBPR].STD _FORM
				3122		DR OP CONSTRA INT DF_STD _FORM_FOLL OWUP_FLAG;
				3123		ALTER
				3124		TABL E [AHOBPR] .STD_FORM
				3125		DROP COLUMN FO LLOWUP_FLA G;
				3126		end try
				3127		begin ca tch
				3128		print 'FOLLOWUP_ FLAG colum n not dele ted'
				3129		end catc h;
				3130		END;
				3131		GO
				3132		--5
				3133		IF EXISTS (SELECT * FROM sys.t ables WHER E name = ' TOOL_ANSWE R'
				3134		AND sche ma_id = (S ELECT sche ma_id FROM sys.schem as WHERE n ame = 'AHO BPR')
				3135		)
				3136		DROP TAB LE [AHOBPR ].TOOL_ANS WER;
				3137		GO
				3138		--4
				3139		IF EXISTS (SELECT * FROM sys.t ables WHER E name = ' TOOL_FORM_ QUESTION'
				3140		AND sche ma_id = (S ELECT sche ma_id FROM sys.schem as WHERE n ame = 'AHO BPR')
				3141		)
				3142		DROP TAB LE [AHOBPR ].[TOOL_FO RM_QUESTIO N];
				3143		GO
				3144		--3
				3145		IF EXISTS (SELECT * FROM sys.t ables WHER E name = ' TOOL_QUEST ION'
				3146		AND sche ma_id = (S ELECT sche ma_id FROM sys.schem as WHERE n ame = 'AHO BPR')
				3147		)
				3148		DROP TAB LE [AHOBPR ].[TOOL_QU ESTION];
				3149		GO
				3150		--2
				3151		IF EXISTS (SELECT * FROM sys.t ables WHER E name = ' TOOL_FORM'
				3152		AND sche ma_id = (S ELECT sche ma_id FROM sys.schem as WHERE n ame = 'AHO BPR')
				3153		)
				3154		DROP TAB LE AHOBPR. [TOOL_FORM ];
				3155		GO
				3156		-- Detect SQLCMD mod e and disa ble script execution if SQLCMD mode is n ot support ed.
				3157		SET NOEXEC OFF; SET NOCOUNT OF F;
				3158		:setvar __ IsSqlCmdEn abled "Tru e"
				3159		GO
				3160		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue' BEGIN
				3161		PRINT '!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!' ;
				3162		RAISER ROR('SQLCM D mode mus t be enabl ed to succ essfully e xecute thi s script.' , 11, 0); PRINT '!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!'
				3163		SET NO COUNT ON; SET NOEXEC ON; --thi s is neces sary becau se SQLCMD mode is no t and ther efore so o n error ex it cannot be used
				3164		END
				3165		GO
				3166		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				3167		:setvar Ma jorRelease Number "2"
				3168		:setvar Mi norRelease Number "0"
				3169		:setvar Po intRelease Number "2"
				3170		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.2.2.s ql"
				3171
				3172		PRINT '
				3173		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				3174		$(ScriptNa me)
				3175
				3176		Rollback s cript in s upport of AHOBPR Rel ease $(Maj orReleaseN umber).$(M inorReleas eNumber).$ (PointRele aseNumber)
				3177
				3178		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				3179		';
				3180		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				3181		PRINT '
				3182		******** ****** ****** ****** ****** *****
				3183		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				3184		******** ****** ****** ****** ****** *****
				3185
				3186		';
				3187		GO
				3188		:on error exit
				3189
				3190		use [$(Dat abaseName) ]
				3191
				3192		if exists (select * from sys.v iews where name = 'V IEW_REGIST RANT_STATU S_Pre_2_0_ 2_2'
				3193		)
				3194		begin
				3195		if exist s (select * from sys .views whe re name = 'VIEW_REGI STRANT_STA TUS'
				3196		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR')
				3197		)
				3198		drop v iew ahobpr .VIEW_REGI STRANT_STA TUS;
				3199		exec sp_ rename 'AH OBPR.VIEW_ REGISTRANT _STATUS_Pr e_2_0_2_2' , 'VIEW_RE GISTRANT_S TATUS';
				3200		end;
				3201		go
				3202		delete
				3203		from [db o].[Databa seChangeLo g]
				3204		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				3205		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				3206		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				3207		AND [S criptName] = '$(Script Name)';
				3208		GO
				3209
				3210
				3211		-- Detect SQLCMD mod e and disa ble script execution if SQLCMD mode is n ot support ed.
				3212		SET NOEXEC OFF; SET NOCOUNT OF F;
				3213		:setvar __ IsSqlCmdEn abled "Tru e"
				3214		GO
				3215		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue' BEGIN
				3216		PRINT '!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!' ;
				3217		RAISER ROR('SQLCM D mode mus t be enabl ed to succ essfully e xecute thi s script.' , 11, 0); PRINT '!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!'
				3218		SET NO COUNT ON; SET NOEXEC ON; --thi s is neces sary becau se SQLCMD mode is no t and ther efore so o n error ex it cannot be used
				3219		END
				3220		GO
				3221
				3222
				3223
				3224		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				3225		:setvar Ma jorRelease Number "2"
				3226		:setvar Mi norRelease Number "0"
				3227		:setvar Po intRelease Number "2"
				3228		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.2.1.s ql"
				3229
				3230		-- Detect SQLCMD mod e and disa ble script execution if SQLCMD mode is n ot support ed.
				3231		SET NOEXEC OFF; SET NOCOUNT OF F;
				3232		:setvar __ IsSqlCmdEn abled "Tru e"
				3233		GO
				3234		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue' BEGIN
				3235		PRINT '!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!' ;
				3236		RAISER ROR('SQLCM D mode mus t be enabl ed to succ essfully e xecute thi s script.' , 11, 0); PRINT '!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!!!!!! !!!!!'
				3237		SET NO COUNT ON; SET NOEXEC ON; --thi s is neces sary becau se SQLCMD mode is no t and ther efore so o n error ex it cannot be used
				3238		END
				3239		GO
				3240
				3241
				3242		PRINT '
				3243		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				3244		$(ScriptNa me)
				3245
				3246		Rollback s cript in s upport of AHOBPR Rel ease $(Maj orReleaseN umber).$(M inorReleas eNumber).$ (PointRele aseNumber)
				3247
				3248		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				3249		';
				3250		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				3251		PRINT '
				3252		******** ****** ****** ****** ****** *****
				3253		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				3254		******** ****** ****** ****** ****** *****
				3255
				3256		';
				3257		GO
				3258		:on error exit
				3259		USE $(Data baseName)
				3260		--****** ****
				3261		--Rollback steps
				3262		--****** ****
				3263		UPDATE [db o].[Databa seChangeLo g]
				3264		SET Scri ptDescript ion = 'Rol lback init iated...'
				3265		WHERE [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				3266		AND [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				3267		AND [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				3268		AND [S criptName] = '$(Script Name)';
				3269		GO
				3270		IF EXISTS (select * from sys.p rocedures where name = 'SP_Get Registrant SendMessag e')
				3271		DROP PRO CEDURE AHO BPR.SP_Get Registrant SendMessag e;
				3272		GO
				3273		IF EXISTS (select * from sys.c olumns joi n sys.tabl es on tabl es.object_ id = colum ns.object_ id
				3274		where co lumns.name = 'email' and table s.name = ' EMAIL_TEMP LATES')
				3275		BEGIN
				3276		IF EXIST S (select * from sys .default_c onstraints
				3277		where name = 'DF _EMAIL_TEM PLATES_Ema il' and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR')
				3278		)
				3279		ALTER TABLE AHOB PR.EMAIL_T EMPLATES
				3280		DROP CONSTRAIN T DF_EMAIL _TEMPLATES _Email;
				3281		ALTER
				3282		TABL E AHOBPR.E MAIL_TEMPL ATES
				3283		DROP COL UMN [EMAI L];
				3284		END;
				3285		GO
				3286		IF EXISTS (select * from sys.c olumns joi n sys.tabl es on tabl es.object_ id = colum ns.object_ id
				3287		where co lumns.name = 'notifi cation' an d tables.n ame = 'EMA IL_TEMPLAT ES')
				3288		BEGIN
				3289		IF EXIST S (select * from sys .default_c onstraints
				3290		where name = 'DF _EMAIL_TEM PLATES_Not ification' and schem a_id = (se lect schem a_id from sys.schema s where na me = 'AHOB PR')
				3291		)
				3292		ALTER TABLE AHOB PR.EMAIL_T EMPLATES
				3293		DROP CONSTRAIN T DF_EMAIL _TEMPLATES _Notificat ion;
				3294
				3295		ALTER
				3296		TABL E AHOBPR.E MAIL_TEMPL ATES
				3297		DROP COL UMN [NOTI FICATION];
				3298		END;
				3299		GO
				3300
				3301		IF EXISTS (select * from sys.v iews where name = 'V IEW_REGIST RANT_STATU S'
				3302		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				3303		)
				3304		DROP VIE W [AHOBPR] .[VIEW_REG ISTRANT_ST ATUS];
				3305		GO
				3306		DELETE FRO M [dbo].[D atabaseCha ngeLog]
				3307		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				3308		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				3309		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				3310		AND [Scr iptName] = ' $(ScriptNa me)';
				3311		GO
				3312
				3313		---------- ---------- ---------- ---------- ---
				3314		---- END R OLLBACK
				3315		---------- ---------- ---------- ---------- ---
				3316		SELECT 'La st script run and no t rolled b ack',*
				3317		FROM [dbo] .[Database ChangeLog]
				3318		WHERE [Da tabaseChan geID] = (
				3319		SELECT MAX ([Database ChangeID]) FROM [dbo ].[Databas eChangeLog ]
				3320		WHERE Targ etRegistry = 'AHOBPR'
				3321		) ;