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

108.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.Version.2.0.32.sql	Thu Feb 11 15:48:12 2016 UTC

108.2 Comparison summary

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

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

108.4 Active regular expressions

No regular expressions were active.

108.5 Comparison detail

				1		:setvar Da tabaseName "Registry QA"
				2		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- --
				3		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- --
				4		--2.0.2.1
				5		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- --
				6
				7		:setvar Ma jorRelease Number "2"
				8		:setvar Mi norRelease Number "0"
				9		:setvar Po intRelease Number "2"
				10		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.2.1.s ql"
				11
				12		PRINT '
				13		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				14		$(ScriptNa me)
				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		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				48		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				49		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				50		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				51		AND [Scr iptName] = ' $(ScriptNa me)')
				52		BEGIN
				53		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!' ,11
				54		,1);
				55		SET NOC OUNT ON;
				56		SET NOE XEC ON;
				57		END
				58		ELSE
				59		INSERT
				60		INTO [ dbo].[Data baseChange Log]
				61		([Major ReleaseNum ber]
				62		,[Minor ReleaseNum ber]
				63		,[Point ReleaseNum ber]
				64		,[Hotfi x]
				65		,[Scrip tName]
				66		,[Scrip tDescripti on]
				67		,[Targe tRegistry]
				68		,[DateA pplied])
				69		VAL UES
				70		('$(Maj orReleaseN umber)'
				71		,'$(Min orReleaseN umber)'
				72		,'$(Poi ntReleaseN umber)'
				73		,0
				74		,'$(Scr iptName)'
				75		,'Scr ipt Starte d...'
				76		,'AHOBP R'
				77		,GETDAT E());
				78
				79		GO
				80		---------- ---------- ---------- ----------
				81		-- Start D DL Portion of Script
				82		---------- ---------- ---------- ----------
				83		PRINT 'ALT ER TABLE A HOBPR.EMAI L_TEMPLATE S...';
				84		GO
				85		ALTER
				86		TABLE AHOBPR.EMA IL_TEMPLAT ES
				87		ADD [EMAI L] [bit] NULL,
				88		[NOTI FICATION] [bit] NUL L;
				89		GO
				90		PRINT 'CRE ATE VIEW [ AHOBPR].[V IEW_REGIST RANT_STATU S]...';
				91		go
				92		if exists (select * from sys.v iews where name = 'V IEW_REGIST RANT_STATU S'
				93		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				94		)
				95		begin
				96		if exist s(select * from sys. views wher e name = ' VIEW_REGIS TRANT_STAT US_pre_2_0 _2_1'
				97		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				98		)
				99		drop v iew ahobpr .VIEW_REGI STRANT_STA TUS
				100		else
				101		exec s p_rename ' ahobpr.VIE W_REGISTRA NT_STATUS' , 'VIEW_RE GISTRANT_S TATUS_pre_ 2_0_2_1';
				102		end;
				103
				104		GO
				105		CREATE VIE W [AHOBPR] .[VIEW_REG ISTRANT_ST ATUS] AS
				106		/******* ****** ****** ****** ****** ****** ******** *
				107		******** ****** ****** ****** ****** ****** ******** */
				108		WITH deplo yments AS
				109		(
				110		SELECT REGISTRANT _ID, COUNT (*) AS NUM BER_OF_DEP LOYMENTS
				111		FROM AHOBPR.REG ISTRANT_DE PLOYMENT
				112		GROUP BY REGISTR ANT_ID
				113		)
				114		, Logins A S
				115		(
				116		SELECT M AX(CREATED ) AS LAST_ LOGIN_DATE
				117		, M IN(CREATED ) AS FIRST _LOGIN_DAT E
				118		, C OUNT(*) AS NUMBER_OF _LOGINS
				119		, US ER_ID
				120		FROM AH OBPR.DATA_ ACCESS_LOG
				121		WHERE PA GE_NAME = 'Login'
				122		GROUP BY USER_ID
				123		)
				124		SELECT reg .REGISTRAN T_ID,
				125		reg.ssn ,
				126		reg .edipi,
				127		reg .LAST_NAME ,
				128		reg .FIRST_NAM E,
				129		reg .MIDDLE_NA ME,
				130		reg .LAST_NAME + ', ' + reg.FIRST_ NAME + ' ' + reg.MID DLE_NAME A S FULL_NAM E,
				131		reg .BIRTH_DAT E,
				132		DAT EDIFF(YEAR , reg.BIRT H_DATE, GE TDATE()) A S REGISTRA NT_AGE,
				133		reg .GENDER,
				134		reg .STD_SERVI CE_STATUS_ ID,
				135		reg .STD_REGIS TRANT_STAT US_ID,
				136		reg .STD_INSTI TUTION_ID,
				137		ISN ULL(reg.RE GISTRANT_S TATUS_LAST _UPDATED_D ATE, reg.U PDATED) AS STATUS_LA ST_UPDATED _DATE,
				138		DAT EDIFF(DAY, ISNULL(re g.REGISTRA NT_STATUS_ LAST_UPDAT ED_DATE, r eg.UPDATED ), GETDATE ()) As DAY S_AT_CURRE NT_STATUS,
				139		inf o.EDIPI_MI SMATCHED_F LAG,
				140		inf o.EDIPI_VE RIFIED_DAT E,
				141		inf o.EULA_ACC EPTED_DATE ,
				142		inf o.CONTACT_ INFO_VERIF IED_DATE,
				143		frs .[FORM_RES PONSE_STAT US_ID]
				144		,frs .[FORM_RES PONSE_ID]
				145		,frs .[LAST_SEC TION_ID]
				146		,frs .[LAST_SUB _SECTION_I D]
				147		,frs .[QUESTION NAIRE_STAR TED_DATE]
				148		,frs .[QUESTION NAIRE_COMP LETED_DATE ]
				149		,frs .[UPDATED] AS QUESIO NNAIRE_LAS T_UPDATED,
				150		reg Stat.REGIS TRANT_STAT US,
				151		dep loyments.N UMBER_OF_D EPLOYMENTS ,
				152		Log ins.*
				153		FROM AHO BPR.REGIST RANT reg
				154		LEFT JOI N Logins
				155		ON LOG INs.USER_I D = reg.us er_id
				156		LEFT JO IN AHOBPR. [REGISTRAN T_RECORD_I NFO] info
				157		ON info.RE GISTRANT_I D = reg.RE GISTRANT_I D
				158		JOIN AH OBPR.STD_R EGISTRANT_ STATUS reg Stat
				159		ON re gStat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D
				160		LEFT JO IN AHOBPR. FORM_RESPO NSE fr
				161		ON fr.REGI STRANT_ID = reg.REGI STRANT_ID
				162		LEFT JO IN AHOBPR. FORM_RESPO NSE_STATUS frs
				163		ON frs.FOR M_RESPONSE _ID = fr.F ORM_RESPON SE_ID
				164		LEFT JO IN deploym ents
				165		ON deploym ents.REGIS TRANT_ID = reg.REGIS TRANT_ID;
				166
				167		GO
				168		BEGIN TRAN SACTION;
				169		BEGIN TRY
				170		UPDATE AHOBPR.EMA IL_TEMPLAT ES
				171		SET [EMA IL] = 0,
				172		[NOTIF ICATION] = 0;
				173
				174		ALTER TA BLe AHOBPR .EMAIL_TEM PLATES
				175		ALTER COLU MN [EMAIL] [bit] NOT NULL;
				176
				177		ALTER TA BLE AHOBPR .EMAIL_TEM PLATES
				178		ALTER COLU MN [NOTIFI CATION] [b it] NOT NU LL;
				179
				180		INSERT
				181		INTO [ dbo].[Data baseChange Log]
				182		( [MajorRele aseNumber]
				183		, [MinorRele aseNumber]
				184		, [PointRele aseNumber]
				185		, [Hotfix]
				186		, [ScriptNam e]
				187		, [ScriptDes cription]
				188		, [TargetReg istry]
				189		, [DateAppli ed])
				190		VALUE S
				191		('$(Major ReleaseNum ber)'
				192		,'$(Minor ReleaseNum ber)'
				193		,'$(Point ReleaseNum ber)'
				194		,0
				195		,'$(Scrip tName)'
				196		,'Deplo yment Step 1 Complet ed.'
				197		,'AHOBPR'
				198		,GETDATE( ));
				199		COMMIT;
				200		END TRY
				201		BEGIN CATC H
				202		PRINT 'E rror! Roll ing back t he EMAIL_T EMPLATES m odificatio ns...';
				203		ROLLBACK ;
				204		RAISERRO R ('$(Scri ptName) st opped afte r an erorr was raise d. Fix th e error, r ollback th e changes and try ag ain.',11,3 );
				205		END CATCH;
				206		GO
				207
				208		-- ======= ========== ========== ========== ========
				209		-- Create date: Octo ber 28, 20 15
				210		-- Descrip tion: Used to create the list of registr ant to sen d email/no tification s to.
				211
				212		-- Modific ation log
				213		--
				214		-- ======= ========== ========== ========== ========
				215		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antSendMes sage]
				216		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				217		@du tyStatus v archar(100 ) = NULL, -- Multipl e states, comma-sepa rated valu es when no t NULL
				218		@fo rmStartFro mDateText varchar(10 0) = NULL,
				219		@fo rmStartToD ateText va rchar(100) = NULL,
				220		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				221		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				222		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				223		@qu estionNumb er varchar (100) = NU LL,
				224		@an swer varch ar(100) = NULL,
				225		@he althConcer ns varchar (100) = 'A ll',
				226		@re questToBeS een varcha r(100) = ' All',
				227		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				228		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				229		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				230		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				231		@su bpopulatio nFlag varc har (10) = NULL,
				232		@ad minFlag va rchar (10) = NULL,
				233		@de ploymentAl l varchar (256) = NU LL,
				234		@de ploymentEx posure var char (256) = NULL,
				235		@ad minFlagFro mDateText varchar (2 0) = NULL,
				236		@ad minFlagToD ateText va rchar (20) = NULL,
				237		@ex cludeDead varchar(1) = 'N',
				238		@ge nder varch ar(50) = ' ',
				239		@ra ce varchar (50) = '',
				240		@et hnicity va rchar(50) = '',
				241		@se parationTy pe INT = 0 ,
				242		@se parationFr omDateText varchar ( 20) = NULL ,
				243		@se parationTo DateText v archar (20 ) = NULL,
				244		@en rollmentSt atus varch ar(50) = ' '
				245		AS
				246
				247		BEGIN
				248
				249		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				250		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				251		@formStart ToDate DAT ETIME2(0) = NULL,
				252		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				253		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				254		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				255		@adminFlag ToDate DAT ETIME2(0) = NULL,
				256		@separatio nFromDate DATETIME2( 0) = NULL,
				257		@separatio nToDate DA TETIME2(0) = NULL;
				258
				259		DECLARE @Query VAR CHAR(8000) ;
				260		DECLARE @MainQuery VARCHAR(8 000);
				261		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				262		DECLARE @AdminWith VARCHAR(8 000);
				263		DECLARE @SubPopWit h VARCHAR( 8000);
				264		DECLARE @DeployWit h VARCHAR( 8000);
				265
				266		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				267		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				268		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				269		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				270		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				271		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				272		SE T @separat ionFromDat e = dbo.Cl eanDate(@s eparationF romDateTex t);
				273		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				274
				275		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				276		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				277		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				278
				279		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				280		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				281		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				282
				283		-- Set I nstitution ID values if needed.
				284		DECLARE @AssignedI nstitution Id INT = 0 ,
				285		@Evaluated Institutio nId INT = 0;
				286
				287		IF @Assi gnedLocati onType IN ('Base','I nstitution ')
				288		AND ISNU MERIC(@Ass ignedLocat ionKey) = 1
				289		SET @A ssignedIns titutionId = CONVERT (INT,@Assi gnedLocati onKey);
				290
				291		IF @Eval uatedLocat ionType IN ('Base',' Institutio n')
				292		AND ISNU MERIC(@Eva luatedLoca tionKey) = 1
				293		SET @E valuatedIn stitutionI d = CONVER T(INT,@Eva luatedLoca tionKey);
				294
				295		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				296		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				297		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				298		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				299		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				300		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				301		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				302		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				303		' F ROM AHOBPR .REGISTRAN T a ' +
				304		'WH ERE 1 = 1 ';
				305
				306		--Concat enate one or more Ad min flags for Regist rants with flags
				307		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				308		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				309		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				310		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				311		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				312		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				313		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				314		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				315		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				316		' FROM A HOBPR.REGI STRANT a ' +
				317		' WHERE 1 = 1 ';
				318
				319		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				320		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				321		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				322		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				323		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				324		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				325		' FROM AHOBPR.RE GISTRANT a ' +
				326		' WHERE 1 = 1 ';
				327
				328		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				329		', (a.LAST_NA ME + '', ' ' + a.FIRS T_NAME) AS Name ' +
				330		', b.REGISTRA NT_STATUS AS Status ' +
				331		', c.SERVICE_ STATUS AS DutyStatus ' +
				332		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				333		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				334		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				335		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				336		--Decide w hich query to run de pending on if a ques tion was s elected as a paramet er for the report
				337		IF ISNUL L(@questio nNumber, ' ') = ''
				338		SET @M ainQuery = @MainQuer y + ','''' AS Questi onNumber ' +
				339		','''' AS Answer '
				340		ELSE
				341		SET @M ainQuery = @MainQuer y + ',''' + @questio nNumber + ''' AS Que stionNumbe r ' +
				342		',STUF F((SELECT '', '' + s tdAnswer.T EXT ' +
				343		' FROM AHOBPR.FOR M_RESPONSE _ANSWER an swer ' +
				344		' JOIN AHOBPR.STD _FORM_ANSW ER stdAnsw er ON answ er.STD_FOR M_ANSWER_I D = stdAns wer.STD_FO RM_ANSWER_ ID ' +
				345		' WHERE formQuesti on.FORM_RE SPONSE_QUE STION_ID = answer.FO RM_RESPONS E_QUESTION _ID ' +
				346		' FOR XM L PATH(''' ')), 1, 1, '''') AS Answer ' ;
				347
				348		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				349		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				350		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				351		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				352		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				353		',a.BI RTH_DATE A S BirthDat e ' +
				354		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				355		'FROM AH OBPR.REGIS TRANT a '
				356
				357		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				358		' JOIN AHOBP R.STD_SERV ICE_STATUS c ON a.ST D_SERVICE_ STATUS_ID = c.STD_SE RVICE_STAT US_ID ' +
				359		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				360		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				361		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				362		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				363		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ';
				364
				365		IF ISNUL L(@questio nNumber, ' ') != ''
				366		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				367		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				368
				369		SET @Mai nQuery = @ MainQuery + ' WHERE 1 = 1 ';
				370
				371		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				372		IF ISNUL L(@questio nNumber, ' ') > ''
				373		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				374
				375		IF ISNUL L(@answer, '') != ''
				376		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SE LECT fr.RE GISTRANT_I D FROM AHO BPR.FORM_R ESPONSE_AN SWER ra ' +
				377		'JOI N AHOBPR.F ORM_RESPON SE_QUESTIO N rq ON rq .FORM_RESP ONSE_QUEST ION_ID = r a.FORM_RES PONSE_QUES TION_ID ' +
				378		'JOI N AHOBPR.F ORM_RESPON SE fr ON f r.FORM_RES PONSE_ID = rq.FORM_R ESPONSE_ID ' +
				379		'JOI N AHOBPR.S TD_FORM_AN SWER A1 ON A1.STD_FO RM_ANSWER_ ID = ra.ST D_FORM_ANS WER_ID ' +
				380		'JOI N AHOBPR.S TD_FORM_QU ESTION Q1 ON Q1.STD_ FORM_QUEST ION_ID = r q.STD_FORM _QUESTION_ ID ' +
				381		'JOI N AHOBPR.S TD_FORM_QU ESTION Q2 ON Q2.FORM _QUESTION_ UNIQUE_ID = Q1.FORM_ QUESTION_U NIQUE_ID ' +
				382		'JOI N AHOBPR.S TD_FORM_AN SWER A2 ON A2.STD_FO RM_QUESTIO N_ID = Q2. STD_FORM_Q UESTION_ID ' +
				383		' AN D A1.BRP_F ORM_ANSWER _ID = A2.B RP_FORM_AN SWER_ID ' +
				384		' WHER E A2.STD_F ORM_ANSWER _ID IN (' + @answer + ') AND f r.REGISTRA NT_ID = a. REGISTRANT _ID )';
				385
				386		IF @form StartFromD ate IS NOT NULL
				387		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				388
				389		IF @form StartToDat e IS NOT N ULL
				390		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				391
				392		IF @form Completion FromDate I S NOT NULL
				393		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				394
				395		IF @form Completion ToDate IS NOT NULL
				396		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				397
				398		IF ISNUL L(@subpopu lationFlag ,'') != ''
				399		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				400		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				401		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				402
				403		IF ISNULL(@a dminFlag,' ') != ''
				404		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG adminfl ag ' +
				405		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				406		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				407		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				408		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				409
				410		IF ISNUL L(@deploym entAll,'') != ''
				411		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				412		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				413		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				414
				415		IF ISNUL L(@healthF actor,'') != ''
				416		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				417		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				418		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				419		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				420
				421
				422		IF ISNUL L(@deploym entExposur e,'') != ' '
				423		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				424		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				425		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				426		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID = ''1.2.A'' ' +
				427		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				428		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				429
				430
				431		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				432		IF @stat us IS NOT NULL
				433		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				434
				435		IF ISNUL L(@dutySta tus,'') > ''
				436		SET @R egCriteria = @RegCri teria + ' AND a.STD_ SERVICE_ST ATUS_ID IN (' + @dut yStatus + ')';
				437
				438		IF @heal thConcerns != 'All'
				439		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				440
				441		IF @requ estToBeSee n != 'All'
				442		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				443
				444		IF ISNUL L(@exclude Dead,'N') = 'Y'
				445		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				446
				447		IF ISNUL L(@gender, '') != ''
				448		SET @R egCriteria = @RegCri teria + ' AND ''' + @gender + ''' = ISNU LL(a.GENDE R,''No Dat a Availabl e'') ';
				449
				450		IF ISNUL L(@ethnici ty,'') != ''
				451		SET @R egCriteria = @RegCri teria + ' AND ''' + @ethnicity + ''' = I SNULL(a.ET HNICITY,'' No Data Av ailable'') ';
				452
				453		IF ISNUL L(@separat ionType,0) != 0
				454		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				455
				456		IF @sepa rationFrom Date IS NO T NULL
				457		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				458
				459		IF @sepa rationToDa te IS NOT NULL
				460		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				461
				462		IF ISNUL L(@race,'' ) != ''
				463		SET @R egCriteria = @RegCri teria + ' AND ''' + @race + '' ' = ISNUL L(a.RACE , ''No Data Available' ') ';
				464
				465		IF ISNUL L(@enrollm entStatus, '') != ''
				466		SET @R egCriteria = @RegCri teria + ' AND ''' + @enrollmen tStatus + ''' = ISNU LL(a.ENROL LMENT_STAT US,''No Da ta Availab le'') ';
				467
				468		IF @Assi gnedLocati onType IS NOT NULL
				469		BEGIN
				470		IF @ AssignedLo cationType = 'NLA'
				471		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				472		ELSE
				473		IF @ AssignedLo cationType = 'VISN'
				474		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				475		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				476		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				477		ELSE
				478		IF @ AssignedLo cationType = 'Base'
				479		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				480		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				481		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				482		ELSE
				483		IF @ AssignedLo cationType = 'Instit ution'
				484		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				485		END;
				486
				487		IF @Eval uatedLocat ionType IS NOT NULL
				488		BEGIN
				489		IF @ EvaluatedL ocationTyp e = 'NLA'
				490		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				491		' WHERE eva l.REGISTRA NT_VISIT_I D = a.REGI STRANT_ID ' +
				492		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				493		ELSE
				494		IF @ EvaluatedL ocationTyp e = 'VISN'
				495		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				496		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				497		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				498		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				499		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				500		ELSE
				501		IF @ EvaluatedL ocationTyp e = 'Base'
				502		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				503		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				504		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				505		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				506		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				507		ELSE
				508		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				509		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				510		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				511		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				512		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				513		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				514		END;
				515
				516		-- Add cri teria and Close With Statement
				517		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				518		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				519		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				520
				521		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				522
				523		PRINT @ Query;
				524
				525		EXECUTE ( @Query);
				526		END;
				527
				528		-- Test Ca ses
				529		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage]
				530		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @status = '6,7'
				531		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @dutyStatu s = '1,2'
				532		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formStart FromDateTe xt = '200 10101'
				533		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formStart ToDateText = '201412 31'
				534		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthFac tor = '44, 45,46,47'
				535		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionFromD ateText = '20010101 '
				536		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionToDat eText = ' 20141231'
				537		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthCon cerns = 'Y es' ,
				538		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @requestTo BeSeen = ' Yes
				539		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @subpopula tionFlag = '64,65,66 ,67'
				540		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tAll = 'Eg ypt'
				541		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tExposure = 'Iraq'
				542		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @adminFlag = '59,60' ,@adminFl agFromDate Text = '20 150101' , @adminFlag ToDateText = '201502 01'
				543		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @questionN umber = '5 .4.A' , @ answer = ' 2221'
				544		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage]
				545		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'NLA'
				546		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'VISN', @ AssignedLo cationKey = 'V16'
				547		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Base', @ AssignedLo cationKey = '1000089 '
				548		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Institut ion', @Ass ignedLocat ionKey = ' 1000089'
				549		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @e thnicity = 'JEWISH'
				550		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'NLA'
				551		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'VISN', @Evaluated LocationKe y = 'V16'
				552		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Base', @Evaluated LocationKe y = '10000 89'
				553		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Institu tion', @Ev aluatedLoc ationKey = '1000089'
				554		GO
				555		UPDATE [d bo].[Datab aseChangeL og]
				556		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				557		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				558		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				559		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				560		AND [S criptName] = '$(Scrip tName)'
				561		AND Ta rgetRegist ry = 'AHOBPR' ;
				562
				563		GO
				564		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				565		WHERE Targ etRegistry = 'AHOBPR'
				566		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				567		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				568		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				569		AND [Scr iptName] = '$(Script Name)';
				570
				571		GO
				572		PRINT 'Com pleted ' + CAST(GETD ATE() AS v archar(20) ) + '.';
				573		---------- ---------- ---------- ---------- ---------- ---------- -------
				574		---------- ---------- ---------- ---------- ---------- ---------- -------
				575		-- 2.0.2.2
				576		---------- ---------- ---------- ---------- ---------- ---------- -------
				577
				578		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				579		:setvar Ma jorRelease Number "2"
				580		:setvar Mi norRelease Number "0"
				581		:setvar Po intRelease Number "2"
				582		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.2.2.s ql"
				583
				584
				585		PRINT '
				586		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				587		$(ScriptNa me)
				588
				589		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				590
				591		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				592		';
				593		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				594		PRINT '
				595		******** ****** ****** ****** ****** *****
				596		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				597		******** ****** ****** ****** ****** *****
				598
				599		';
				600		GO
				601		:on error exit
				602		GO
				603		:setvar __ IsSqlCmdEn abled "Tru e"
				604		/*
				605		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				606		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				607		*/
				608		SET NOEXEC OFF;
				609		GO
				610		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				611		BEGIN
				612		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				613		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.
				614		END
				615
				616		GO
				617
				618		USE [$(Dat abaseName) ]
				619		GO
				620		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				621		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				622		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				623		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				624		AND [Scr iptName] = ' $(ScriptNa me)')
				625		BEGIN
				626		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!' ,11
				627		,1);
				628		SET NOC OUNT ON;
				629		SET NOE XEC ON;
				630		END
				631		ELSE
				632		INSERT
				633		INTO [ dbo].[Data baseChange Log]
				634		([Major ReleaseNum ber]
				635		,[Minor ReleaseNum ber]
				636		,[Point ReleaseNum ber]
				637		,[Hotfi x]
				638		,[Scrip tName]
				639		,[Scrip tDescripti on]
				640		,[Targe tRegistry]
				641		,[DateA pplied])
				642		VAL UES
				643		('$(Maj orReleaseN umber)'
				644		,'$(Min orReleaseN umber)'
				645		,'$(Poi ntReleaseN umber)'
				646		,0
				647		,'$(Scr iptName)'
				648		,'Scr ipt Starte d...'
				649		,'AHOBP R'
				650		,GETDAT E());
				651
				652		GO
				653		if exists (select * from sys.v iews where name = 'V IEW_REGIST RANT_STATU S'
				654		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				655		)
				656		begin
				657		if exist s(select * from sys. views wher e name = ' VIEW_REGIS TRANT_STAT US_Pre_2_0 _2_2'
				658		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				659		)
				660		drop v iew ahobpr .VIEW_REGI STRANT_STA TUS
				661		else
				662		exec s p_rename ' ahobpr.VIE W_REGISTRA NT_STATUS' , 'VIEW_RE GISTRANT_S TATUS_Pre_ 2_0_2_2';
				663		end;
				664
				665		GO
				666		CREATE VIE W [AHOBPR] .[VIEW_REG ISTRANT_ST ATUS] AS
				667		/******* ****** ****** ****** ****** ****** ******** *
				668		******** ****** ****** ****** ****** ****** ******** */
				669		WITH deplo yments AS
				670		(
				671		SELECT REGISTRANT _ID, COUNT (*) AS NUM BER_OF_DEP LOYMENTS
				672		FROM AHOBPR.REG ISTRANT_DE PLOYMENT
				673		GROUP BY REGISTR ANT_ID
				674		)
				675		, Logins A S
				676		(
				677		SELECT M AX(CREATED ) AS LAST_ LOGIN_DATE
				678		, M IN(CREATED ) AS FIRST _LOGIN_DAT E
				679		, C OUNT(*) AS NUMBER_OF _LOGINS
				680		, US ER_ID AS E DIPI_HASH
				681		FROM AH OBPR.DATA_ ACCESS_LOG
				682		WHERE PA GE_NAME = 'Login'
				683		GROUP BY USER_ID
				684		)
				685		SELECT reg .*,
				686		reg .LAST_NAME + ', ' + reg.FIRST_ NAME + ' ' + reg.MID DLE_NAME A S FULL_NAM E,
				687		DAT EDIFF(YEAR , reg.BIRT H_DATE, GE TDATE()) A S REGISTRA NT_AGE,
				688		ISN ULL(reg.RE GISTRANT_S TATUS_LAST _UPDATED_D ATE, reg.U PDATED) AS STATUS_LA ST_UPDATED _DATE,
				689		DAT EDIFF(DAY, ISNULL(re g.REGISTRA NT_STATUS_ LAST_UPDAT ED_DATE, r eg.UPDATED ), GETDATE ()) As DAY S_AT_CURRE NT_STATUS,
				690		inf o.EDIPI_MI SMATCHED_F LAG,
				691		inf o.EDIPI_VE RIFIED_DAT E,
				692		inf o.EULA_ACC EPTED_DATE ,
				693		inf o.CONTACT_ INFO_VERIF IED_DATE,
				694		frs .[FORM_RES PONSE_STAT US_ID]
				695		,frs .[FORM_RES PONSE_ID]
				696		,frs .[LAST_SEC TION_ID]
				697		,frs .[LAST_SUB _SECTION_I D]
				698		,frs .[QUESTION NAIRE_STAR TED_DATE]
				699		,frs .[QUESTION NAIRE_COMP LETED_DATE ]
				700		,frs .[UPDATED] AS QUESIO NNAIRE_LAS T_UPDATED,
				701		reg Stat.REGIS TRANT_STAT US,
				702		dep loyments.N UMBER_OF_D EPLOYMENTS ,
				703		Log ins.*,
				704		sfs .TITLE as LAST_SECTI ON,
				705		ssf s.TITLE as LAST_SUB_ SECTION
				706		FROM AHO BPR.REGIST RANT reg
				707		LEFT JOI N Logins
				708		ON LOG INs.EDIPI_ HASH = reg .user_id
				709		LEFT JO IN AHOBPR. [REGISTRAN T_RECORD_I NFO] info
				710		ON info.RE GISTRANT_I D = reg.RE GISTRANT_I D
				711		JOIN AH OBPR.STD_R EGISTRANT_ STATUS reg Stat
				712		ON re gStat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D
				713		LEFT JO IN AHOBPR. FORM_RESPO NSE fr
				714		ON fr.REGI STRANT_ID = reg.REGI STRANT_ID
				715		LEFT JO IN AHOBPR. FORM_RESPO NSE_STATUS frs
				716		ON frs.FOR M_RESPONSE _ID = fr.F ORM_RESPON SE_ID
				717		LEFT JO IN deploym ents
				718		ON deploym ents.REGIS TRANT_ID = reg.REGIS TRANT_ID
				719		LEFT JO IN AHOBPR. STD_FORM_S ECTION sfs
				720		O N sfs.STD_ FORM_SECTI ON_ID = LA ST_SECTION _ID
				721		LEFT JO IN AHOBPR. STD_FORM_S UB_SECTION ssfs
				722		O N ssfs.STD _FORM_SUB_ SECTION_ID = LAST_SU B_SECTION_ ID;
				723		GO
				724		IF EXISTS (select * from sys.v iews where name = 'V IEW_REGIST RANT_STATU S_Pre_2_0_ 2_2'
				725		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				726		)
				727		DROP VIE W AHOBPR.V IEW_REGIST RANT_STATU S_Pre_2_0_ 2_2;
				728		GO
				729
				730		UPDATE [d bo].[Datab aseChangeL og]
				731		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				732		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				733		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				734		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				735		AND [S criptName] = '$(Scrip tName)'
				736		AND Ta rgetRegist ry = 'AHOBPR' ;
				737
				738		GO
				739		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				740		WHERE Targ etRegistry = 'AHOBPR'
				741		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				742		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				743		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				744		AND [Scr iptName] = '$(Script Name)';
				745		go
				746		---------- ---------- ---------- ---------- ---------- ---------- -------
				747		---------- ---------- ---------- ---------- ---------- ---------- -------
				748		-- 2.0.4.1 --------- ---------- ---------- ---------- ---------- -------
				749		---------- ---------- ---------- ---------- ---------- ---------- -------
				750
				751		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				752		:setvar Ma jorRelease Number "2"
				753		:setvar Mi norRelease Number "0"
				754		:setvar Po intRelease Number "4"
				755		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.4.1.s ql"
				756
				757
				758		PRINT '
				759		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				760		$(ScriptNa me)
				761
				762		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				763
				764		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				765		';
				766		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				767		PRINT '
				768		******** ****** ****** ****** ****** *****
				769		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				770		******** ****** ****** ****** ****** *****
				771
				772		';
				773		GO
				774		:on error exit
				775		GO
				776		:setvar __ IsSqlCmdEn abled "Tru e"
				777		/*
				778		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				779		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				780		*/
				781		SET NOEXEC OFF;
				782		GO
				783		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				784		BEGIN
				785		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				786		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.
				787		END
				788
				789		GO
				790
				791		USE [$(Dat abaseName) ]
				792		GO
				793		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				794		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				795		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				796		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				797		AND [Scr iptName] = ' $(ScriptNa me)')
				798		BEGIN
				799		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!' ,11
				800		,1);
				801		SET NOC OUNT ON;
				802		SET NOE XEC ON;
				803		END
				804		ELSE
				805		INSERT
				806		INTO [ dbo].[Data baseChange Log]
				807		([Major ReleaseNum ber]
				808		,[Minor ReleaseNum ber]
				809		,[Point ReleaseNum ber]
				810		,[Hotfi x]
				811		,[Scrip tName]
				812		,[Scrip tDescripti on]
				813		,[Targe tRegistry]
				814		,[DateA pplied])
				815		VAL UES
				816		('$(Maj orReleaseN umber)'
				817		,'$(Min orReleaseN umber)'
				818		,'$(Poi ntReleaseN umber)'
				819		,0
				820		,'$(Scr iptName)'
				821		,'Scr ipt Starte d...'
				822		,'AHOBP R'
				823		,GETDAT E());
				824
				825		GO
				826
				827		PRINT 'CRE ATE TABLE [AHOBPR].[ TOOL_FORM] ...';
				828		GO
				829
				830		CREATE TAB LE [AHOBPR ].[TOOL_FO RM](
				831		[T OOL_FORM_I D] [int] I DENTITY(1, 1) NOT NUL L,
				832		[N AME] [varc har](256) NOT NULL,
				833		[T ITLE] [var char](500) NULL,
				834		[A CTIVE_FLAG ] [bit] NO T NULL,
				835		[E DITABLE_FL AG] [bit] NOT NULL,
				836		[C REATEDBY] [varchar]( 30) NOT NU LL,
				837		[U PDATEDBY] [varchar]( 30) NOT NU LL,
				838		[C REATED] [d atetime2]( 0) NOT NUL L,
				839		[U PDATED] [d atetime2]( 0) NOT NUL L,
				840		[R OW_VERSION ] [timesta mp] NOT NU LL,
				841		CONSTRAIN T [PK_TOOL _FORM] PRI MARY KEY C LUSTERED
				842		(
				843		[T OOL_FORM_I D] ASC
				844		)WITH (PAD _INDEX = OFF, STATI STICS_NORE COMPUTE = OFF, IGNO RE_DUP_KEY = OFF, AL LOW_ROW_LO CKS = ON, ALLOW_PAG E_LOCKS = ON) ON [A HOBPR]
				845		) ON [AHOB PR]
				846
				847		GO
				848
				849		ALTER TABL E [AHOBPR] .[TOOL_FOR M] ADD CO NSTRAINT [ DF_TOOL_FO RM_CREATED ] DEFAULT (getdate( )) FOR [CR EATED]
				850		GO
				851
				852		ALTER TABL E [AHOBPR] .[TOOL_FOR M] ADD CO NSTRAINT [ DF_TOOL_FO RM_UPDATED ] DEFAULT (getdate( )) FOR [UP DATED]
				853		GO
				854
				855		ALTER TABL E [AHOBPR] .[TOOL_FOR M] ADD CO NSTRAINT [ DF_TOOL_FO RM_EDITABL E_FLAG] D EFAULT (1) FOR [EDIT ABLE_FLAG]
				856		GO
				857
				858		ALTER TABL E [AHOBPR] .[TOOL_FOR M] ADD CO NSTRAINT [ DF_TOOL_FO RM_ACTIVE_ FLAG] DEF AULT (1) F OR [ACTIVE _FLAG]
				859		GO
				860
				861		PRINT 'CRE ATE TABLE [AHOBPR].[ TOOL_QUEST ION]...';
				862		GO
				863		CREATE TAB LE [AHOBPR ].[TOOL_QU ESTION](
				864		[T OOL_QUESTI ON_ID] [in t] IDENTIT Y(1,1) NOT NULL,
				865		[T EXT] [varc har](4000) NOT NULL,
				866		[T YPE] [varc har](100) NOT NULL,
				867		[M IN] [varch ar](256) N ULL,
				868		[M AX] [varch ar](256) N ULL,
				869		[M AX_CHOICES ] [int] NU LL,
				870		[M AX_LENGTH] [int] NUL L,
				871		[M IN_LENGTH] [int] NUL L,
				872		[K EY_WORDS] [varchar]( 2000) NULL ,
				873		[A CTIVE_FLAG ] [bit] NO T NULL,
				874		[E DITABLE_FL AG] [bit] NOT NULL,
				875		[S OURCE_ID] [varchar]( 100) NULL,
				876		[C REATEDBY] [varchar]( 30) NOT NU LL,
				877		[U PDATEDBY] [varchar]( 30) NOT NU LL,
				878		[C REATED] [d atetime2]( 0) NOT NUL L,
				879		[U PDATED] [d atetime2]( 0) NOT NUL L,
				880		[R OW_VERSION ] [timesta mp] NOT NU LL,
				881		CONSTRAIN T [PK_TOOL _QUESTION] PRIMARY K EY CLUSTER ED
				882		(
				883		[T OOL_QUESTI ON_ID] ASC
				884		)WITH (PAD _INDEX = OFF, STATI STICS_NORE COMPUTE = OFF, IGNO RE_DUP_KEY = OFF, AL LOW_ROW_LO CKS = ON, ALLOW_PAG E_LOCKS = ON) ON [A HOBPR]
				885		) ON [AHOB PR]
				886
				887		GO
				888
				889		ALTER TABL E [AHOBPR] .[TOOL_QUE STION] ADD CONSTRAI NT [DF_TOO LQUESTION_ CREATED] DEFAULT (g etdate()) FOR [CREAT ED]
				890		GO
				891
				892		ALTER TABL E [AHOBPR] .[TOOL_QUE STION] ADD CONSTRAI NT [DF_TOO LQUESTION_ UPDATED] DEFAULT (g etdate()) FOR [UPDAT ED]
				893		GO
				894
				895		ALTER TABL E [AHOBPR] .[TOOL_QUE STION] ADD CONSTRAI NT [DF_TOO LQUESTION_ EDITABLE_F LAG] DEFA ULT (1) FO R [EDITABL E_FLAG]
				896		GO
				897
				898		ALTER TABL E [AHOBPR] .[TOOL_QUE STION] ADD CONSTRAI NT [DF_TOO LQUESTION_ ACTIVE_FLA G] DEFAUL T (1) FOR [ACTIVE_FL AG]
				899		GO
				900
				901		PRINT 'CRE ATE TABLE [AHOBPR].[ TOOL_FORM_ QUESTION]. ..';
				902		GO
				903		CREATE TAB LE [AHOBPR ].[TOOL_FO RM_QUESTIO N](
				904		[T OOL_FORM_Q UESTION_ID ] [int] ID ENTITY(1,1 ) NOT NULL ,
				905		[T OOL_FORM_I D] [int] N OT NULL,
				906		[T OOL_QUESTI ON_ID] [in t] NOT NUL L,
				907		[C REATEDBY] [varchar]( 30) NOT NU LL,
				908		[U PDATEDBY] [varchar]( 30) NOT NU LL,
				909		[C REATED] [d atetime2]( 0) NOT NUL L,
				910		[U PDATED] [d atetime2]( 0) NOT NUL L,
				911		[R OW_VERSION ] [timesta mp] NOT NU LL,
				912		CONSTRAIN T [PK_TOOL _FORM_QUES TION] PRIM ARY KEY CL USTERED
				913		(
				914		[T OOL_FORM_Q UESTION_ID ] ASC
				915		)WITH (PAD _INDEX = OFF, STATI STICS_NORE COMPUTE = OFF, IGNO RE_DUP_KEY = OFF, AL LOW_ROW_LO CKS = ON, ALLOW_PAG E_LOCKS = ON) ON [A HOBPR]
				916		) ON [AHOB PR]
				917
				918		GO
				919
				920		ALTER TABL E [AHOBPR] .[TOOL_FOR M_QUESTION ] ADD CON STRAINT [D F_TOOL_FOR M_QUESTION _CREATED] DEFAULT ( getdate()) FOR [CREA TED]
				921		GO
				922
				923		ALTER TABL E [AHOBPR] .[TOOL_FOR M_QUESTION ] ADD CON STRAINT [D F_TOOL_FOR M_QUESTION _UPDATED] DEFAULT ( getdate()) FOR [UPDA TED]
				924		GO
				925
				926		ALTER TABL E [AHOBPR] .[TOOL_FOR M_QUESTION ] WITH CH ECK ADD C ONSTRAINT [FK_TOOL_F ORM_QUESTI ON_TOOL_QU ESTION] FO REIGN KEY( [TOOL_QUES TION_ID])
				927		REFERENCES [AHOBPR]. [TOOL_QUES TION] ([TO OL_QUESTIO N_ID])
				928		GO
				929
				930		ALTER TABL E [AHOBPR] .[TOOL_FOR M_QUESTION ] CHECK CO NSTRAINT [ FK_TOOL_FO RM_QUESTIO N_TOOL_QUE STION]
				931		GO
				932
				933		ALTER TABL E [AHOBPR] .[TOOL_FOR M_QUESTION ] WITH CH ECK ADD C ONSTRAINT [FK_TOOL_F ORM_QUESTI ON_TOOL_FO RM] FOREIG N KEY([TOO L_FORM_ID] )
				934		REFERENCES [AHOBPR]. [TOOL_FORM ] ([TOOL_F ORM_ID])
				935		GO
				936
				937		ALTER TABL E [AHOBPR] .[TOOL_FOR M_QUESTION ] CHECK CO NSTRAINT [ FK_TOOL_FO RM_QUESTIO N_TOOL_FOR M]
				938		GO
				939
				940		PRINT 'CRE ATE TABLE [AHOBPR].[ TOOL_ANSWE R]...';
				941		GO
				942		CREATE TAB LE [AHOBPR ].[TOOL_AN SWER](
				943		[T OOL_ANSWER _ID] [int] IDENTITY( 1,1) NOT N ULL,
				944		[T OOL_QUESTI ON_ID] [in t] NOT NUL L,
				945		[O RDER] [int ] NOT NULL ,
				946		[T EXT] [varc har](4000) NULL,
				947		[E DITABLE] [ bit] NOT N ULL,
				948		[H ELP] [varc har](1000) NULL,
				949		[C LINICAL_RE LEVANT_FLA G] [bit] N OT NULL,
				950		[C REATEDBY] [varchar]( 30) NOT NU LL,
				951		[U PDATEDBY] [varchar]( 30) NOT NU LL,
				952		[C REATED] [d atetime2]( 0) NOT NUL L,
				953		[U PDATED] [d atetime2]( 0) NOT NUL L,
				954		[R OW_VERSION ] [timesta mp] NOT NU LL,
				955		CONSTRAIN T [PK_TOOL _ANSWER] P RIMARY KEY CLUSTERED
				956		(
				957		[T OOL_ANSWER _ID] ASC
				958		)WITH (PAD _INDEX = OFF, STATI STICS_NORE COMPUTE = OFF, IGNO RE_DUP_KEY = OFF, AL LOW_ROW_LO CKS = ON, ALLOW_PAG E_LOCKS = ON) ON [A HOBPR]
				959		) ON [AHOB PR]
				960
				961		GO
				962
				963		ALTER
				964		TABLE [A HOBPR].[TO OL_ANSWER]
				965		WITH CHE CK
				966		ADD CON STRAINT [F K_TOOL_ANS WER_TOOL_Q UESTION]
				967		FOREIGN KEY([TOOL_ QUESTION_I D])
				968		REFERENC ES [AHOBPR ].[TOOL_QU ESTION] ([ TOOL_QUEST ION_ID])
				969		GO
				970
				971		ALTER TABL E [AHOBPR] .[TOOL_ANS WER] CHECK CONSTRAIN T [FK_TOOL _ANSWER_TO OL_QUESTIO N]
				972		GO
				973
				974		ALTER TABL E [AHOBPR] .[TOOL_ANS WER] ADD CONSTRAINT [DF_TOOLA NSWER_CREA TED] DEFA ULT (getda te()) FOR [CREATED]
				975		GO
				976
				977		ALTER TABL E [AHOBPR] .[TOOL_ANS WER] ADD CONSTRAINT [DF_TOOLA NSWER_UPDA TED] DEFA ULT (getda te()) FOR [UPDATED]
				978		GO
				979
				980		PRINT 'ADD column FO LLOWUP_FLA G...';
				981		GO
				982		if not exi sts (selec t * from s ys.columns where nam e = 'FOLLO WUP_FLAG'
				983		and object_id = (select object_id from sys.t ables wher e name = ' STD_FORM'
				984		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR')
				985		)
				986		)
				987		ALTER TA BLE [AHOBP R].[STD_FO RM] ADD FO LLOWUP_FLA G BIT NOT NULL CONST RAINT DF_S TD_FORM_FO LLOWUP_FLA G DEFAULT 0;
				988		GO
				989		PRINT 'ADD column TO OL_FORM_ID ...';
				990		GO
				991		ALTER TABL E [AHOBPR] .[STD_FORM ] ADD TOOL _FORM_ID I NT NULL;
				992		GO
				993		PRINT '[AH OBPR].[REG ISTRANT_JS ON_FOLLOWU P]...';
				994		GO
				995		--todo cha nge the pk name in t fs!
				996
				997		CREATE TAB LE [AHOBPR ].[REGISTR ANT_JSON_F OLLOWUP](
				998		[R EGISTRANT_ JSON_FOLLO WUP_ID] [i nt] IDENTI TY(1,1) NO T NULL,
				999		[O BJECT_ID] [varchar]( 256) NOT N ULL,
				1000		[O BJECT_TYPE ] [varchar ](100) NOT NULL,
				1001		[I NSTANCE_ID ] [varchar ](100) NOT NULL,
				1002		[J SON_DATA] [varchar]( max) NOT N ULL,
				1003		[S TATUS] [va rchar](100 ) NOT NULL ,
				1004		[C REATEDBY] [varchar]( 30) NOT NU LL,
				1005		[U PDATEDBY] [varchar]( 30) NOT NU LL,
				1006		[C REATED] [d atetime2]( 0) NOT NUL L,
				1007		[U PDATED] [d atetime2]( 0) NOT NUL L,
				1008		[R OW_VERSION ] [timesta mp] NOT NU LL,
				1009		CONSTRAI NT [PK_REG ISTRANT_JS ON_FOLLOWU P_ID] PRIM ARY KEY CL USTERED
				1010		(
				1011		[REGISTRAN T_JSON_FOL LOWUP_ID] ASC
				1012		)
				1013		WITH (PA D_INDEX = OFF, STAT ISTICS_NOR ECOMPUTE = OFF, IGN ORE_DUP_KE Y = OFF, A LLOW_ROW_L OCKS = ON , ALLOW_PA GE_LOCKS = ON) ON [ AHOBPR]
				1014		) ON [AHOB PR] TEXTIM AGE_ON [AH OBPR]
				1015
				1016		GO
				1017		PRINT 'CRE ATE TABLE [AHOBPR].[ JSON_QUEUE _FOLLOWUP] ...';
				1018		GO
				1019		CREATE TAB LE [AHOBPR ].[JSON_QU EUE_FOLLOW UP]
				1020		(
				1021		[J SON_QUEUE_ FOLLOWUP_I D] [int] I DENTITY(1, 1) NOT NUL L,
				1022		[R EGISTRANT_ JSON_FOLLO WUP_ID] [i nt] NOT NU LL,
				1023		[R OW_VERSION ] [timesta mp] NOT NU LL,
				1024		[C REATEDBY] [varchar]( 30) NOT NU LL,
				1025		[U PDATEDBY] [varchar]( 30) NOT NU LL,
				1026		[C REATED] [d atetime2]( 0) NOT NUL L,
				1027		[U PDATED] [d atetime2]( 0) NOT NUL L,
				1028		CONSTRAI NT [PK_JSO N_QUEUE_FO LLOWUP] PR IMARY KEY CLUSTERED
				1029		(
				1030		[JSON_QUEU E_FOLLOWUP _ID] ASC
				1031		)WITH (P AD_INDEX = OFF, STA TISTICS_NO RECOMPUTE = OFF, IG NORE_DUP_K EY = OFF, ALLOW_ROW_ LOCKS = O N, ALLOW_P AGE_LOCKS = ON) ON [AHOBPR]
				1032		) ON [AHOB PR]
				1033
				1034		GO
				1035		PRINT 'CRE ATE TABLE [AHOBPR].[ JSON_QUEUE _FOLLOWUP_ STATUS]... ';
				1036		GO
				1037		CREATE TAB LE [AHOBPR ].[JSON_QU EUE_FOLLOW UP_STATUS]
				1038		(
				1039		[J SON_QUEUE_ FOLLOWUP_S TATUS_ID] [int] IDEN TITY(1,1) NOT NULL,
				1040		[J SON_QUEUE_ FOLLOWUP_I D] [int] N OT NULL,
				1041		[R EGISTRANT_ JSON_FOLLO WUP_ID] [i nt] NOT NU LL,
				1042		[P ROCESS_STA RT_DATE] [ datetime2] (0) NULL,
				1043		[P ROCESS_COM PLETE_DATE ] [datetim e2](0) NUL L,
				1044		[P ROCESS_STA TUS] [varc har](100) NULL,
				1045		[P ROCESS_ERR OR] [varch ar](4000) NULL,
				1046		[C REATEDBY] [varchar]( 30) NOT NU LL,
				1047		[U PDATEDBY] [varchar]( 30) NOT NU LL,
				1048		[C REATED] [d atetime2]( 0) NOT NUL L,
				1049		[U PDATED] [d atetime2]( 0) NOT NUL L,
				1050		CONSTRAI NT [PK_JSO N_QUEUE_FO LLOWUP_STA TUS] PRIMA RY KEY CLU STERED
				1051		(
				1052		[JSON_QUEU E_FOLLOWUP _STATUS_ID ] ASC
				1053		)WITH (P AD_INDEX = OFF, STA TISTICS_NO RECOMPUTE = OFF, IG NORE_DUP_K EY = OFF, ALLOW_ROW_ LOCKS = O N, ALLOW_P AGE_LOCKS = ON) ON [AHOBPR]
				1054		) ON [AH OBPR]
				1055
				1056		GO
				1057		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Ins ertRegistr antJsonFol lowup]...' ;
				1058		GO
				1059		CREATE PRO CEDURE [AH OBPR].[SP_ InsertRegi strantJson Followup]
				1060		@o bjectId VARCHA R(256),
				1061		@o bjectType VARCHA R(100),
				1062		@i nstanceId VARCHA R(100),
				1063		@j sonData VARCHA R(max),
				1064		@s tatus VARCHAR(10 0),
				1065		@c reatedBy VARCHA R(30)
				1066		AS
				1067		BEGIN
				1068		SE T NOCOUNT ON;
				1069
				1070		IN SERT
				1071		INTO AHOBPR.REG ISTRANT_JS ON_FOLLOWU P
				1072		(
				1073		OBJECT_I D
				1074		, OBJE CT_TYPE
				1075		, INST ANCE_ID
				1076		, JSON _DATA
				1077		, [STA TUS]
				1078		, CREA TED
				1079		, CREA TEDBY
				1080		, UPDA TED
				1081		, UPDA TEDBY
				1082		)
				1083		VA LUES (
				1084		@objec tId
				1085		, @objec tType
				1086		, @insta nceId
				1087		, @jsonD ata
				1088		, @statu s
				1089		, GETDAT E()
				1090		, @creat edBy
				1091		, GETDAT E()
				1092		, @creat edBy
				1093		);
				1094
				1095		SE LECT SCOPE _IDENTITY( );
				1096
				1097		END
				1098		GO
				1099		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Get Registrant SendQuesti ons]...';
				1100		GO
				1101		-- ======= ========== ========== ========== ========
				1102		-- Create date: Octo ber 28, 20 15
				1103		-- Descrip tion: Used to create the list of registr ant to sen d follow-u p question s to.
				1104
				1105		-- Modific ation log
				1106		--
				1107		-- ======= ========== ========== ========== ========
				1108		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antSendQue stions]
				1109		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				1110		@fo rmStartFro mDateText varchar(10 0) = NULL,
				1111		@fo rmStartToD ateText va rchar(100) = NULL,
				1112		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				1113		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				1114		@qu estionNumb er varchar (100) = NU LL,
				1115		@an swer varch ar(100) = NULL,
				1116		@he althConcer ns varchar (100) = 'A ll',
				1117		@su bpopulatio nFlag varc har (10) = NULL,
				1118		@ad minFlag va rchar (10) = NULL,
				1119		@de ploymentAl l varchar (256) = NU LL,
				1120		@de ploymentEx posure var char (256) = NULL,
				1121		@ad minFlagFro mDateText varchar (2 0) = NULL,
				1122		@ad minFlagToD ateText va rchar (20) = NULL,
				1123		@ex cludeDead varchar(1) = 'Y'
				1124		AS
				1125
				1126		BEGIN
				1127
				1128		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				1129		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				1130		@formStart ToDate DAT ETIME2(0) = NULL,
				1131		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				1132		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				1133		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				1134		@adminFlag ToDate DAT ETIME2(0) = NULL,
				1135		@separatio nFromDate DATETIME2( 0) = NULL,
				1136		@separatio nToDate DA TETIME2(0) = NULL;
				1137
				1138		DECLARE @Query VAR CHAR(8000) ;
				1139		DECLARE @MainQuery VARCHAR(8 000);
				1140		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				1141		DECLARE @AdminWith VARCHAR(8 000);
				1142		DECLARE @SubPopWit h VARCHAR( 8000);
				1143		DECLARE @DeployWit h VARCHAR( 8000);
				1144
				1145		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				1146		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				1147		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				1148		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				1149		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				1150		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				1151
				1152		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				1153		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				1154		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				1155
				1156		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				1157		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				1158		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				1159
				1160		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				1161		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , a.SSN,'+
				1162		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				1163		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				1164		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				1165		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				1166		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				1167		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				1168		' F ROM AHOBPR .REGISTRAN T a ' +
				1169		'WH ERE 1 = 1 ';
				1170
				1171		--Concat enate one or more Ad min flags for Regist rants with flags
				1172		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				1173		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				1174		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				1175		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				1176		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				1177		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				1178		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				1179		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				1180		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				1181		' FROM A HOBPR.REGI STRANT a ' +
				1182		' WHERE 1 = 1 ';
				1183
				1184		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				1185		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				1186		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				1187		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				1188		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				1189		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				1190		' FROM AHOBPR.RE GISTRANT a ' +
				1191		' WHERE 1 = 1 ';
				1192
				1193		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				1194		', a.SSN, (a. LAST_NAME + '', '' + a.FIRST_N AME) AS Na me ' +
				1195		', b.REGISTRA NT_STATUS AS Status ' +
				1196		', c.SERVICE_ STATUS AS DutyStatus ' +
				1197		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				1198		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				1199		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				1200		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				1201		--Decide w hich query to run de pending on if a ques tion was s elected as a paramet er for the report
				1202		IF ISNUL L(@questio nNumber, ' ') = ''
				1203		SET @M ainQuery = @MainQuer y + ','''' AS Questi onNumber ' +
				1204		','''' AS Answer '
				1205		ELSE
				1206		SET @M ainQuery = @MainQuer y + ',''' + @questio nNumber + ''' AS Que stionNumbe r ' +
				1207		',STUF F((SELECT '', '' + s tdAnswer.T EXT ' +
				1208		' FROM AHOBPR.FOR M_RESPONSE _ANSWER an swer ' +
				1209		' JOIN AHOBPR.STD _FORM_ANSW ER stdAnsw er ON answ er.STD_FOR M_ANSWER_I D = stdAns wer.STD_FO RM_ANSWER_ ID ' +
				1210		' WHERE formQuesti on.FORM_RE SPONSE_QUE STION_ID = answer.FO RM_RESPONS E_QUESTION _ID ' +
				1211		' FOR XM L PATH(''' ')), 1, 1, '''') AS Answer ' ;
				1212
				1213		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				1214		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				1215		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				1216		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				1217		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				1218		',a.BI RTH_DATE A S BirthDat e ' +
				1219		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				1220		'FROM AH OBPR.REGIS TRANT a '
				1221
				1222		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				1223		' JOIN AHOBP R.STD_SERV ICE_STATUS c ON a.ST D_SERVICE_ STATUS_ID = c.STD_SE RVICE_STAT US_ID ' +
				1224		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				1225		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				1226		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				1227		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				1228		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ';
				1229
				1230		IF ISNUL L(@questio nNumber, ' ') != ''
				1231		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				1232		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				1233
				1234		SET @Mai nQuery = @ MainQuery + ' WHERE 1 = 1 ';
				1235
				1236		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				1237		IF ISNUL L(@questio nNumber, ' ') > ''
				1238		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				1239
				1240		IF ISNUL L(@answer, '') != ''
				1241		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SE LECT fr.RE GISTRANT_I D FROM AHO BPR.FORM_R ESPONSE_AN SWER ra ' +
				1242		'JOI N AHOBPR.F ORM_RESPON SE_QUESTIO N rq ON rq .FORM_RESP ONSE_QUEST ION_ID = r a.FORM_RES PONSE_QUES TION_ID ' +
				1243		'JOI N AHOBPR.F ORM_RESPON SE fr ON f r.FORM_RES PONSE_ID = rq.FORM_R ESPONSE_ID ' +
				1244		'JOI N AHOBPR.S TD_FORM_AN SWER A1 ON A1.STD_FO RM_ANSWER_ ID = ra.ST D_FORM_ANS WER_ID ' +
				1245		'JOI N AHOBPR.S TD_FORM_QU ESTION Q1 ON Q1.STD_ FORM_QUEST ION_ID = r q.STD_FORM _QUESTION_ ID ' +
				1246		'JOI N AHOBPR.S TD_FORM_QU ESTION Q2 ON Q2.FORM _QUESTION_ UNIQUE_ID = Q1.FORM_ QUESTION_U NIQUE_ID ' +
				1247		'JOI N AHOBPR.S TD_FORM_AN SWER A2 ON A2.STD_FO RM_QUESTIO N_ID = Q2. STD_FORM_Q UESTION_ID ' +
				1248		' AN D A1.BRP_F ORM_ANSWER _ID = A2.B RP_FORM_AN SWER_ID ' +
				1249		' WHER E A2.STD_F ORM_ANSWER _ID IN (' + @answer + ') AND f r.REGISTRA NT_ID = a. REGISTRANT _ID )';
				1250
				1251		IF @form StartFromD ate IS NOT NULL
				1252		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				1253
				1254		IF @form StartToDat e IS NOT N ULL
				1255		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				1256
				1257		IF @form Completion FromDate I S NOT NULL
				1258		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				1259
				1260		IF @form Completion ToDate IS NOT NULL
				1261		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				1262
				1263		IF ISNUL L(@subpopu lationFlag ,'') != ''
				1264		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				1265		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				1266		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				1267
				1268		IF ISNULL(@a dminFlag,' ') != ''
				1269		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG adminfl ag ' +
				1270		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				1271		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				1272		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				1273		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				1274
				1275		IF ISNUL L(@deploym entAll,'') != ''
				1276		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				1277		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				1278		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				1279
				1280		IF ISNU LL(@deploy mentExposu re,'') != ''
				1281		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				1282		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				1283		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				1284		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID = ''1.2.A'' ' +
				1285		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				1286		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				1287
				1288
				1289		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				1290		IF @stat us IS NOT NULL
				1291		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				1292
				1293		IF @heal thConcerns != 'All'
				1294		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				1295
				1296		IF ISNUL L(@exclude Dead,'N') = 'Y'
				1297		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				1298
				1299		IF @sepa rationFrom Date IS NO T NULL
				1300		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				1301
				1302		IF @sepa rationToDa te IS NOT NULL
				1303		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				1304
				1305
				1306		-- Add cri teria and Close With Statement
				1307		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID, a.S SN ) '
				1308		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID, a.S SN ) '
				1309		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID, a.S SN ) '
				1310
				1311		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				1312
				1313		PRINT @ Query;
				1314
				1315		EXECUTE ( @Query);
				1316		END;
				1317
				1318		-- Test Ca ses
				1319		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions]
				1320		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ status = ' 6,7'
				1321		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formStartF romDateTex t = '2001 0101'
				1322		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formStartT oDateText = '2014123 1'
				1323		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formComple tionFromDa teText = '20010101'
				1324		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formComple tionToDate Text = '2 0141231'
				1325		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ healthConc erns = 'Ye s' ,
				1326		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ subpopulat ionFlag = '64,65,66, 67'
				1327		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ deployment All = 'Egy pt'
				1328		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ deployment Exposure = 'Iraq'
				1329		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ adminFlag = '59,60' ,@adminFla gFromDateT ext = '201 50101' , @ adminFlagT oDateText = '2015020 1'
				1330		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ questionNu mber = '5. 4.A' , @a nswer = '2 221'
				1331		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions]
				1332
				1333		GO
				1334		PRINT 'CRE ATE TABLE FOLLOWUP_F ORM_RESPON SE...';
				1335		GO
				1336		CREATE TAB LE [AHOBPR ].[FOLLOWU P_FORM_RES PONSE](
				1337		[F OLLOWUP_FO RM_RESPONS E_ID] [int ] IDENTITY (1,1) NOT NULL,
				1338		[R EGISTRANT_ ID] [int] NOT NULL,
				1339		[S TD_FORM_ID ] [int] NO T NULL,
				1340		[C OMPLETED_D ATE] [date time2](0) NULL,
				1341		[C REATEDBY] [varchar]( 30) NOT NU LL,
				1342		[U PDATEDBY] [varchar]( 30) NOT NU LL,
				1343		[C REATED] [d atetime2]( 0) NOT NUL L,
				1344		[U PDATED] [d atetime2]( 0) NOT NUL L,
				1345		[R OW_VERSION ] [timesta mp] NOT NU LL,
				1346		CONSTRAIN T [PK_FOLL OWUP_FORM_ RESPONSE] PRIMARY KE Y CLUSTERE D
				1347		(
				1348		[F OLLOWUP_FO RM_RESPONS E_ID] ASC
				1349		)WITH (PAD _INDEX = OFF, STATI STICS_NORE COMPUTE = OFF, IGNO RE_DUP_KEY = OFF, AL LOW_ROW_LO CKS = ON, ALLOW_PAG E_LOCKS = ON) ON [A HOBPR]
				1350		) ON [AHOB PR]
				1351
				1352		GO
				1353
				1354		SET ANSI_P ADDING OFF
				1355		GO
				1356
				1357		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE] WIT H CHECK AD D CONSTRA INT [FK_FO LLOWUP_FOR M_RESPONSE _REGISTRAN T] FOREIGN KEY([REGI STRANT_ID] )
				1358		REFERENCES [AHOBPR]. [REGISTRAN T] ([REGIS TRANT_ID])
				1359		GO
				1360
				1361		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE] CHEC K CONSTRAI NT [FK_FOL LOWUP_FORM _RESPONSE_ REGISTRANT ]
				1362		GO
				1363
				1364		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE] WIT H CHECK AD D CONSTRA INT [FK_FO LLOWUP_FOR M_RESPONSE _STD_FORM] FOREIGN K EY([STD_FO RM_ID])
				1365		REFERENCES [AHOBPR]. [STD_FORM] ([STD_FOR M_ID])
				1366		GO
				1367
				1368		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE] CHEC K CONSTRAI NT [FK_FOL LOWUP_FORM _RESPONSE_ STD_FORM]
				1369		GO
				1370
				1371		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE] ADD CONSTRAIN T [DF_FOLL OWUP_FORM_ RESPONSE_C REATED] D EFAULT (ge tdate()) F OR [CREATE D]
				1372		GO
				1373
				1374		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE] ADD CONSTRAIN T [DF_FOLL OWUP_FORM_ RESPONSE_U PDATED] D EFAULT (ge tdate()) F OR [UPDATE D]
				1375		GO
				1376
				1377		PRINT 'CRE ATE TABLE [AHOBPR].[ FOLLOWUP_F ORM_RESPON SE_QUESTIO N]...';
				1378		GO
				1379		CREATE TAB LE [AHOBPR ].[FOLLOWU P_FORM_RES PONSE_QUES TION](
				1380		[F OLLOWUP_FO RM_RESPONS E_QUESTION _ID] [int] IDENTITY( 1,1) NOT N ULL,
				1381		[F OLLOWUP_FO RM_RESPONS E_ID] [int ] NOT NULL ,
				1382		[S TD_FORM_QU ESTION_ID] [int] NOT NULL,
				1383		[S TARTED_DAT E] [dateti me2](0) NO T NULL,
				1384		[C OMPLETED_D ATE] [date time2](0) NULL,
				1385		[C REATEDBY] [varchar]( 30) NOT NU LL,
				1386		[U PDATEDBY] [varchar]( 30) NOT NU LL,
				1387		[C REATED] [d atetime2]( 0) NOT NUL L,
				1388		[U PDATED] [d atetime2]( 0) NOT NUL L,
				1389		[R OW_VERSION ] [timesta mp] NOT NU LL,
				1390		CONSTRAIN T [PK_FOLL OWUP_FORM_ RESPONSE_Q UESTION] P RIMARY KEY CLUSTERED
				1391		(
				1392		[F OLLOWUP_FO RM_RESPONS E_QUESTION _ID] ASC
				1393		)WITH (PAD _INDEX = OFF, STATI STICS_NORE COMPUTE = OFF, IGNO RE_DUP_KEY = OFF, AL LOW_ROW_LO CKS = ON, ALLOW_PAG E_LOCKS = ON) ON [A HOBPR]
				1394		) ON [AHOB PR]
				1395
				1396		GO
				1397
				1398		SET ANSI_P ADDING OFF
				1399		GO
				1400
				1401		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'The person or program th at created the recor d' , @leve l0type=N'S CHEMA',@le vel0name=N 'AHOBPR', @level1typ e=N'TABLE' ,@level1na me=N'FOLLO WUP_FORM_R ESPONSE_QU ESTION', @ level2type =N'COLUMN' ,@level2na me=N'CREAT EDBY'
				1402		GO
				1403
				1404		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'The person or program th at updated the recor d' , @leve l0type=N'S CHEMA',@le vel0name=N 'AHOBPR', @level1typ e=N'TABLE' ,@level1na me=N'FOLLO WUP_FORM_R ESPONSE_QU ESTION', @ level2type =N'COLUMN' ,@level2na me=N'UPDAT EDBY'
				1405		GO
				1406
				1407		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'The date and t ime to the second wh en the rec ord was cr eated' , @ level0type =N'SCHEMA' ,@level0na me=N'AHOBP R', @level 1type=N'TA BLE',@leve l1name=N'F OLLOWUP_FO RM_RESPONS E_QUESTION ', @level2 type=N'COL UMN',@leve l2name=N'C REATED'
				1408		GO
				1409
				1410		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'The date and t ime to the second wh en the rec ord was up dated' , @ level0type =N'SCHEMA' ,@level0na me=N'AHOBP R', @level 1type=N'TA BLE',@leve l1name=N'F OLLOWUP_FO RM_RESPONS E_QUESTION ', @level2 type=N'COL UMN',@leve l2name=N'U PDATED'
				1411		GO
				1412
				1413		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'A un ique row i dentifier required b y LINQ to SQL' , @le vel0type=N 'SCHEMA',@ level0name =N'AHOBPR' , @level1t ype=N'TABL E',@level1 name=N'FOL LOWUP_FORM _RESPONSE_ QUESTION', @level2ty pe=N'COLUM N',@level2 name=N'ROW _VERSION'
				1414		GO
				1415
				1416		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE_QUEST ION] WITH CHECK ADD CONSTRAI NT [FK_Fol lowupFormR esponseQue stion_FOLL OWUP_FORM_ RESPONSE] FOREIGN KE Y([FOLLOWU P_FORM_RES PONSE_ID])
				1417		REFERENCES [AHOBPR]. [FOLLOWUP_ FORM_RESPO NSE] ([FOL LOWUP_FORM _RESPONSE_ ID])
				1418		GO
				1419
				1420		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE_QUEST ION] CHECK CONSTRAIN T [FK_Foll owupFormRe sponseQues tion_FOLLO WUP_FORM_R ESPONSE]
				1421		GO
				1422
				1423		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE_QUEST ION] WITH CHECK ADD CONSTRAI NT [FK_Fol lowupFormR esponseQue stion_STD_ FORM_QUEST ION] FOREI GN KEY([ST D_FORM_QUE STION_ID])
				1424		REFERENCES [AHOBPR]. [STD_FORM_ QUESTION] ([STD_FORM _QUESTION_ ID])
				1425		GO
				1426
				1427		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE_QUEST ION] CHECK CONSTRAIN T [FK_Foll owupFormRe sponseQues tion_STD_F ORM_QUESTI ON]
				1428		GO
				1429		GO
				1430		PRINT 'CRE ATE TABLE [AHOBPR].[ FOLLOWUP_F ORM_RESPON SE_ANSWER] ...';
				1431		GO
				1432		CREATE TAB LE [AHOBPR ].[FOLLOWU P_FORM_RES PONSE_ANSW ER](
				1433		[F OLLOWUP_FO RM_RESPONS E_ANSWER_I D] [int] I DENTITY(1, 1) NOT NUL L,
				1434		[F OLLOWUP_FO RM_RESPONS E_QUESTION _ID] [int] NOT NULL,
				1435		[S TD_FORM_AN SWER_ID] [ int] NOT N ULL,
				1436		[A NSWER_VALU E] [varcha r](4000) N ULL,
				1437		[C REATEDBY] [varchar]( 30) NOT NU LL,
				1438		[U PDATEDBY] [varchar]( 30) NOT NU LL,
				1439		[C REATED] [d atetime2]( 0) NOT NUL L,
				1440		[U PDATED] [d atetime2]( 0) NOT NUL L,
				1441		[R OW_VERSION ] [timesta mp] NOT NU LL,
				1442		CONSTRAIN T [PK_FOLL OWUP_FORM_ RESPONSE_A NSWER] PRI MARY KEY C LUSTERED
				1443		(
				1444		[F OLLOWUP_FO RM_RESPONS E_ANSWER_I D] ASC
				1445		)WITH (PAD _INDEX = OFF, STATI STICS_NORE COMPUTE = OFF, IGNO RE_DUP_KEY = OFF, AL LOW_ROW_LO CKS = ON, ALLOW_PAG E_LOCKS = ON) ON [A HOBPR]
				1446		) ON [AHOB PR]
				1447
				1448		GO
				1449
				1450		SET ANSI_P ADDING OFF
				1451		GO
				1452
				1453		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'PK f or the tab le. An ID ENTITY sur rogate key .' , @leve l0type=N'S CHEMA',@le vel0name=N 'AHOBPR', @level1typ e=N'TABLE' ,@level1na me=N'FOLLO WUP_FORM_R ESPONSE_AN SWER', @le vel2type=N 'COLUMN',@ level2name =N'FOLLOWU P_FORM_RES PONSE_ANSW ER_ID'
				1454		GO
				1455
				1456		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'FK t o the FOLL OWUP_FORM_ RESPONSE_D ETAIL tabl e' , @leve l0type=N'S CHEMA',@le vel0name=N 'AHOBPR', @level1typ e=N'TABLE' ,@level1na me=N'FOLLO WUP_FORM_R ESPONSE_AN SWER', @le vel2type=N 'COLUMN',@ level2name =N'FOLLOWU P_FORM_RES PONSE_QUES TION_ID'
				1457		GO
				1458
				1459		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'FK t o the STD_ FORM_ANSWE R table' , @level0ty pe=N'SCHEM A',@level0 name=N'AHO BPR', @lev el1type=N' TABLE',@le vel1name=N 'FOLLOWUP_ FORM_RESPO NSE_ANSWER ', @level2 type=N'COL UMN',@leve l2name=N'S TD_FORM_AN SWER_ID'
				1460		GO
				1461
				1462		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'The answer pro vided by t he partici pant.' , @ level0type =N'SCHEMA' ,@level0na me=N'AHOBP R', @level 1type=N'TA BLE',@leve l1name=N'F OLLOWUP_FO RM_RESPONS E_ANSWER', @level2ty pe=N'COLUM N',@level2 name=N'ANS WER_VALUE'
				1463		GO
				1464
				1465		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'The person or program th at created the recor d' , @leve l0type=N'S CHEMA',@le vel0name=N 'AHOBPR', @level1typ e=N'TABLE' ,@level1na me=N'FOLLO WUP_FORM_R ESPONSE_AN SWER', @le vel2type=N 'COLUMN',@ level2name =N'CREATED BY'
				1466		GO
				1467
				1468		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'The person or program th at last up dated the record' , @level0typ e=N'SCHEMA ',@level0n ame=N'AHOB PR', @leve l1type=N'T ABLE',@lev el1name=N' FOLLOWUP_F ORM_RESPON SE_ANSWER' , @level2t ype=N'COLU MN',@level 2name=N'UP DATEDBY'
				1469		GO
				1470
				1471		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'The date and t ime to the second wh en the rec ord was cr eated' , @ level0type =N'SCHEMA' ,@level0na me=N'AHOBP R', @level 1type=N'TA BLE',@leve l1name=N'F OLLOWUP_FO RM_RESPONS E_ANSWER', @level2ty pe=N'COLUM N',@level2 name=N'CRE ATED'
				1472		GO
				1473
				1474		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'The date and t ime to the second wh en the rec ord was la st updated ' , @level 0type=N'SC HEMA',@lev el0name=N' AHOBPR', @ level1type =N'TABLE', @level1nam e=N'FOLLOW UP_FORM_RE SPONSE_ANS WER', @lev el2type=N' COLUMN',@l evel2name= N'UPDATED'
				1475		GO
				1476
				1477		EXEC sys.s p_addexten dedpropert y @name=N' MS_Descrip tion', @va lue=N'A un ique row i dentifier required b y LINQ to SQL' , @le vel0type=N 'SCHEMA',@ level0name =N'AHOBPR' , @level1t ype=N'TABL E',@level1 name=N'FOL LOWUP_FORM _RESPONSE_ ANSWER', @ level2type =N'COLUMN' ,@level2na me=N'ROW_V ERSION'
				1478		GO
				1479
				1480		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE_ANSWE R] WITH C HECK ADD CONSTRAINT [FK_FOLLO WUP_FORM_R ESPONSE_AN SWER_FOLLO WUP_FORM_R ESPONSE_DE TAIL] FORE IGN KEY([F OLLOWUP_FO RM_RESPONS E_QUESTION _ID])
				1481		REFERENCES [AHOBPR]. [FOLLOWUP_ FORM_RESPO NSE_QUESTI ON] ([FOLL OWUP_FORM_ RESPONSE_Q UESTION_ID ])
				1482		GO
				1483
				1484		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE_ANSWE R] CHECK C ONSTRAINT [FK_FOLLOW UP_FORM_RE SPONSE_ANS WER_FOLLOW UP_FORM_RE SPONSE_DET AIL]
				1485		GO
				1486
				1487		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE_ANSWE R] WITH C HECK ADD CONSTRAINT [FK_FOLLO WUP_FORM_R ESPONSE_AN SWER_STD_F ORM_ANSWER ] FOREIGN KEY([STD_F ORM_ANSWER _ID])
				1488		REFERENCES [AHOBPR]. [STD_FORM_ ANSWER] ([ STD_FORM_A NSWER_ID])
				1489		GO
				1490
				1491		ALTER TABL E [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE_ANSWE R] CHECK C ONSTRAINT [FK_FOLLOW UP_FORM_RE SPONSE_ANS WER_STD_FO RM_ANSWER]
				1492		GO
				1493		PRINT 'CRE ATE PROCED URE [AHOBP R].SP_GetJ sonFollowu ps...';
				1494		GO
				1495
				1496		CREATE PRO CEDURE [AH OBPR].SP_G etJsonFoll owups
				1497		@ObjectTy pe VARCHAR (100),
				1498		@ObjectId VARCHAR(2 56)
				1499		AS
				1500
				1501		BEGIN
				1502
				1503		WITH
				1504		Ranked Row AS
				1505		(
				1506		SELE CT [REGIST RANT_JSON_ FOLLOWUP_I D], JSON_D ATA, STATU S
				1507		,RANK() OVER(PARTI TION BY [O BJECT_TYPE ], [OBJECT _ID], [INS TANCE_ID]
				1508		O RDER BY RE GISTRANT_J SON_FOLLOW UP_ID DESC ) AS RowRa nk
				1509		FR OM
				1510		[AHOBPR] .[REGISTRA NT_JSON_FO LLOWUP] WI TH (READPA ST)--don't bother wi th records that are locked
				1511		WH ERE OBJECT _ID = @Obj ectId AND OBJECT_TYP E = @Objec tType
				1512		)
				1513		SELECT [REGISTR ANT_JSON_F OLLOWUP_ID ], JSON_DA TA, STATUS
				1514		FROM RankedRo w
				1515		WHERE RowRank = 1
				1516		END
				1517		-- EXECUTE AHOBPR.SP _GetJsonFo llowups 51 87
				1518		GO
				1519		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Get JsonFollow up]...';
				1520		GO
				1521		CREATE PRO CEDURE [AH OBPR].[SP_ GetJsonFol lowup]
				1522		@ObjectTy pe VARCHAR (100),
				1523		@ObjectId VARCHAR(2 56),
				1524		@Instance Id VARCHAR (100)
				1525		AS
				1526
				1527		BEGIN
				1528
				1529		WITH
				1530		Ranked Row AS
				1531		(
				1532		SELE CT [REGIST RANT_JSON_ FOLLOWUP_I D], JSON_D ATA, STATU S
				1533		,RANK() OVER(PARTI TION BY [O BJECT_TYPE ], [OBJECT _ID], [INS TANCE_ID]
				1534		O RDER BY RE GISTRANT_J SON_FOLLOW UP_ID DESC ) AS RowRa nk
				1535		FR OM
				1536		[AHOBPR] .[REGISTRA NT_JSON_FO LLOWUP] WI TH (READPA ST)--don't bother wi th records that are locked
				1537		WH ERE OBJECT _ID = @Obj ectId AND OBJECT_TYP E = @Objec tType AND INSTANCE_I D = @Insta nceId
				1538		)
				1539		SELECT [REGISTR ANT_JSON_F OLLOWUP_ID ], JSON_DA TA, STATUS
				1540		FROM RankedRo w
				1541		WHERE RowRank = 1
				1542		END
				1543		-- EXECUTE AHOBPR.[S P_GetJsonF ollowup] 5 187
				1544		GO
				1545		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Get Registrant JsonFollow upRow]...' ;
				1546		GO
				1547
				1548		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antJsonFol lowupRow]
				1549		@j sonFollowu pId INT
				1550		AS
				1551		BEGIN
				1552		SE T NOCOUNT ON;
				1553
				1554		SE LECT REGIS TRANT_JSON _FOLLOWUP_ ID
				1555		, OBJECT_ID
				1556		, OBJECT_TY PE
				1557		, INSTANCE_ ID
				1558		, JSON_DATA
				1559		F ROM AHOBPR .REGISTRAN T_JSON_FOL LOWUP
				1560		WH ERE REGIST RANT_JSON_ FOLLOWUP_I D = @jsonF ollowupId;
				1561
				1562		END
				1563		GO
				1564		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Ins ertJsonQue ueFollowup ]...';
				1565		GO
				1566		CREATE PRO CEDURE [AH OBPR].[SP_ InsertJson QueueFollo wup]
				1567		@j sonQueueFo llowupId INT,
				1568		@r egistrantJ sonFollowu pId INT,
				1569		@p rocessStar tDate DATETIME 2(0) = nul l,
				1570		@p rocessComp leteDate DATETIME 2(0) = nul l,
				1571		@p rocessStat us VARCHAR( 100),
				1572		@p rocessErro r VARCHA R(4000),
				1573		@c reatedBy VARCHAR( 30)
				1574		AS
				1575		BEGIN
				1576		SE T NOCOUNT ON;
				1577
				1578		IN SERT INTO AHOBPR.JSO N_QUEUE_FO LLOWUP_STA TUS (
				1579		JS ON_QUEUE_F OLLOWUP_ID
				1580		, REGIST RANT_JSON_ FOLLOWUP_I D
				1581		, PROCES S_START_DA TE
				1582		, PROCES S_COMPLETE _DATE
				1583		, PROCES S_STATUS
				1584		, PROCES S_ERROR
				1585		, CREATE DBY
				1586		, CREATE D
				1587		, UPDATE DBY
				1588		, UPDATE D)
				1589		VA LUES ( @jsonQue ueFollowup Id
				1590		, @regis trantJsonF ollowupId
				1591		, @proce ssStartDat e
				1592		, @proce ssComplete Date
				1593		, @proce ssStatus
				1594		, @proce ssError
				1595		, @creat edBy
				1596		, GETDAT E()
				1597		, @creat edBy
				1598		, GETDAT E());
				1599
				1600		SE LECT SCOPE _IDENTITY( );
				1601
				1602		END
				1603		GO
				1604		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Get JsonQueueF ollowup].. .';
				1605		GO
				1606		CREATE PRO CEDURE [AH OBPR].[SP_ GetJsonQue ueFollowup ]
				1607		AS
				1608		/*
				1609		[SP_GetJso nQueueFoll owup]
				1610		Get all th e items th at need to be proces sed by [RE GISTRANT_J SON_FOLLOW UP_ID]:
				1611		a. Dele te the pre vious/old/ duplicated records f rom REGIST RANT_JSON_ FOLLOWUP t able
				1612		b. Inse rt the new records t o JSON_QUE UE_FOLLOWU P table
				1613		*/
				1614
				1615		BEGIN
				1616
				1617		-- DELET E any dupl icate REGI STRANT_JSO N rows
				1618		WITH
				1619		Ranked Row AS
				1620		(
				1621		SELE CT [REGIST RANT_JSON_ FOLLOWUP_I D]
				1622		,RANK() OVER(PARTI TION BY [O BJECT_TYPE ], [OBJECT _ID], [INS TANCE_ID]
				1623		O RDER BY [R EGISTRANT_ JSON_FOLLO WUP_ID] DE SC) AS Row Rank
				1624		FR OM
				1625		[AHOBPR] .[REGISTRA NT_JSON_FO LLOWUP] WI TH (READPA ST)--don't bother wi th records that are locked
				1626		)
				1627		, Duplic ate AS
				1628		(
				1629		SEL ECT [REG ISTRANT_JS ON_FOLLOWU P_ID]
				1630		F ROM Rank edRow
				1631		W HERE RowR ank > 1
				1632		)
				1633		DELETE
				1634		FROM [ AHOBPR].[R EGISTRANT_ JSON_FOLLO WUP] WITH (READPAST) --don't bo ther with records th at are loc ked
				1635		WHERE EXISTS ( SELECT *
				1636		FROM Dupl icate
				1637		WHERE Dupl icate.REGI STRANT_JSO N_FOLLOWUP _ID = REGI STRANT_JSO N_FOLLOWUP .REGISTRAN T_JSON_FOL LOWUP_ID
				1638		);
				1639
				1640		-- Inser t the new records in the JSON_ QUEUE_FOLL OWUP
				1641		WITH
				1642		Ranked Row AS --w e just del eted dupli cates abov e, but sin ce we used READPAST and since there is n o
				1643		--g uarantee t hat new du p has not been added since we take the p recaution of ranking
				1644		--t hem again.
				1645		( SELE CT *
				1646		,RANK() OVER(PARTI TION BY [O BJECT_TYPE ], [OBJECT _ID], [INS TANCE_ID]
				1647		O RDER BY [R EGISTRANT_ JSON_FOLLO WUP_ID] DE SC) AS Row Rank
				1648		FRO M [AHOBPR] .[REGISTRA NT_JSON_FO LLOWUP] WI TH (READPA ST) --don' t bother w ith record s that are locked
				1649		WHE RE NOT EXI STS ( SELE CT *
				1650		FROM AHOBPR .JSON_QUEU E_FOLLOWUP AS Q
				1651		WHER E Q.REGI STRANT_JSO N_FOLLOWUP _ID = [REG ISTRANT_JS ON_FOLLOWU P].REGISTR ANT_JSON_F OLLOWUP_ID
				1652		)
				1653		AND OBJ ECT_TYPE = 'response s_followup '
				1654		)
				1655		, Src AS
				1656		( SELE CT [REGIST RANT_JSON_ FOLLOWUP_I D]
				1657		,[CREATE D]
				1658		,[UPDATE D]
				1659		,[CREATE DBY]
				1660		,[UPDATE DBY]
				1661		FROM RankedRo w
				1662		WHER E RowRank = 1
				1663		)
				1664		MERGE
				1665		INTO [AHOBPR] .[JSON_QUE UE_FOLLOWU P] Tgt
				1666		USIN G Src
				1667		ON Tgt.[REG ISTRANT_JS ON_FOLLOWU P_ID] = Sr c.[REGISTR ANT_JSON_F OLLOWUP_ID ]
				1668		WHE N NOT MATC HED
				1669		THE N INSERT
				1670		( [REGIS TRANT_JSON _FOLLOWUP_ ID]
				1671		, [CREAT ED]
				1672		, [UPDAT ED]
				1673		, [CREAT EDBY]
				1674		, [UPDAT EDBY]
				1675		)
				1676		VALUES
				1677		( Src.[ REGISTRANT _JSON_FOLL OWUP_ID]
				1678		,Src.[ CREATED]
				1679		,Src.[ UPDATED]
				1680		,Src.[ CREATEDBY]
				1681		,Src.[ UPDATEDBY]
				1682		);
				1683
				1684		-- Get the IDs of th e queued J SON object s to be pa rsed
				1685		-- Order t he JSON_QU EUE_IDs to be proces sed by obj ect_type i n the foll owing orde r: USER, INFO, RESP ONSE
				1686
				1687		--Switched to just p ull record s from the JSON QUEU E table wh ere there are NO
				1688		--correspo nding reco rds in the JSON_QUEU E_STATUS t able. I.e ., only gr ab items
				1689		--that hav e never be en tried b efore. 9/ 30/15 MW.
				1690		SELECT J SON_QUEUE_ FOLLOWUP_I D
				1691		FROM A HOBPR.JSON _QUEUE_FOL LOWUP Q
				1692		JOIN A HOBPR.REGI STRANT_JSO N_FOLLOWUP AS J ON Q .REGISTRAN T_JSON_FOL LOWUP_ID = J.REGISTR ANT_JSON_F OLLOWUP_ID
				1693		WHERE N OT EXISTS( SELECT * F ROM AHOBPR .JSON_QUEU E_FOLLOWUP _STATUS S WHERE S.JS ON_QUEUE_F OLLOWUP_ID = Q.JSON_ QUEUE_FOLL OWUP_ID)
				1694		AND J .OBJECT_TY PE = 'resp onses_foll owup'
				1695		END
				1696		-- EXECUTE [AHOBPR]. [SP_GetJso nFollowup]
				1697		GO
				1698		PRINT 'Ren ame VIEW [ AHOBPR].[V IEW_LOOKUP ] to VIEW_ LOOKUP_Pre _2_0_4_1.. .';
				1699		GO
				1700		if exists (select * from sys.v iews where name = 'v iew_lookup '
				1701		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				1702		)
				1703		begin
				1704		if exist s(select * from sys. views wher e name = ' VIEW_LOOKU P_Pre_2_0_ 4_1'
				1705		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				1706		)
				1707		drop v iew ahobpr .view_look up
				1708		else
				1709		exec s p_rename ' ahobpr.vie w_lookup', 'VIEW_LOO KUP_Pre_2_ 0_4_1';
				1710		end;
				1711
				1712		GO
				1713		PRINT 'CRE ATE VIEW [ AHOBPR].[V IEW_LOOKUP ]...';
				1714		GO
				1715		CREATE VIE W [AHOBPR] .[VIEW_LOO KUP]
				1716		WITH SCHEM ABINDING
				1717		AS
				1718		SELECT ' REGISTRY_F LAG' AS LO OKUP_TYPE
				1719		,STD_ REGISTRY_F LAG_ID AS ID
				1720		, REGISTRY_F LAG_NAME A S CODE
				1721		, REGISTRY_F LAG_NAME A S NAME
				1722		, 0 AS PAREN T_ID
				1723		, 1 AS SORT_ ORDER
				1724		FROM A HOBPR.STD_ REGISTRY_F LAG
				1725		WHERE S TD_REGISTR Y_FLAG_ID > 0
				1726		UNION AL L
				1727		SELECT ' REGISTRY_S TATUS' AS LOOKUP_TYP E
				1728		,STD_RE GISTRANT_S TATUS_ID A S ID
				1729		, REGISTRANT _STATUS AS CODE
				1730		, REGISTRANT _STATUS AS NAME
				1731		, 0 AS PAREN T_ID
				1732		, ORDINAL_VA LUE AS SOR T_ORDER
				1733		FROM A HOBPR.STD_ REGISTRANT _STATUS
				1734		WHERE S TD_REGISTR ANT_STATUS _ID > 0
				1735		UNION AL L
				1736		SELECT ' REGISTRY_F LAG_TYPE' AS LOOKUP_ TYPE
				1737		,STD_RE GISTRY_FLA G_TYPE_ID AS ID
				1738		, REGISTRY_F LAG_TYPE A S CODE
				1739		, REGISTRY_F LAG_TYPE A S NAME
				1740		, 0 AS PAREN T_ID
				1741		, 1 AS SORT_ ORDER
				1742		FROM A HOBPR.STD_ REGISTRY_F LAG_TYPE
				1743		UNION AL L
				1744		SELECT ' SUBPOPULAT ION_FLAG_A CTIVE' AS LOOKUP_TYP E
				1745		,STD_RE GISTRY_FLA G_ID AS ID
				1746		, REGISTRY_F LAG_NAME A S CODE
				1747		, REGISTRY_F LAG_NAME A S NAME
				1748		, 0 AS PAREN T_ID
				1749		, 1 AS SORT_ ORDER
				1750		FROM AHO BPR.STD_RE GISTRY_FLA G
				1751		WHERE AC TIVE_FLAG = 1 AND ST D_REGISTRY _FLAG_TYPE _ID = 2
				1752		UNION AL L
				1753		SELECT ' STD_STATE' AS LOOKUP _TYPE
				1754		,ID
				1755		, POSTALNAME AS CODE
				1756		, POSTALNAME AS NAME
				1757		, 0 AS PAREN T_ID
				1758		, 1 AS SORT_ ORDER
				1759		FROM DBO .STD_STATE
				1760		WHERE CO UNTRY_ID = 1006840
				1761		AND POST ALNAME IN ('AL', 'AK ', 'AR', ' AZ', 'CA', 'CO', 'CT ', 'DE', ' FL', 'GA', 'HI',
				1762		'IA', 'I D', 'IL', 'IN', 'KS' , 'KY', 'L A', 'MA', 'MD', 'ME' , 'MI', 'M N', 'MO', 'MS',
				1763		'MT', 'N C', 'ND', 'NE', 'NH' , 'NJ', 'N M', 'NV', 'NY', 'OH' , 'OK', 'O R', 'PA', 'RI',
				1764		'SC', 'S D', 'TN', 'TX', 'UT' , 'VA', 'V T', 'WA', 'WI', 'WV' , 'WY', 'D C', 'AS', 'GU', 'PR' , 'VI', 'M P', 'AA', 'AE', 'AP' )
				1765		UNION AL L
				1766		SELECT ' STD_STATE' AS LOOKUP _TYPE
				1767		,0
				1768		, 'Foreign C ountry/Oth er' AS COD E
				1769		, 'Foreign C ountry/Oth er' AS NAM E
				1770		, 0 AS PAREN T_ID
				1771		, 9999 AS SO RT_ORDER
				1772		UNION AL L
				1773		SELECT ' ADMINTRACK ING_FLAG_A CTIVE' AS LOOKUP_TYP E
				1774		,STD_RE GISTRY_FLA G_ID AS ID
				1775		, REGISTRY_F LAG_NAME A S CODE
				1776		, REGISTRY_F LAG_NAME A S NAME
				1777		, 0 AS PAREN T_ID
				1778		, 1 AS SORT_ ORDER
				1779		FROM AHO BPR.STD_RE GISTRY_FLA G
				1780		WHERE AC TIVE_FLAG = 1
				1781		AND ST D_REGISTRY _FLAG_TYPE _ID = 1
				1782		AND (P REDEFINED = 0
				1783		OR (P REDEFINED = 1 AND RE GISTRY_FLA G_NAME NOT LIKE 'Sta tus Change : %'))
				1784		UNION AL L
				1785		SELECT ' STD_SERVIC E_STATUS' AS LOOKUP_ TYPE
				1786		,STD_SE RVICE_STAT US_ID As I D
				1787		, SERVICE_ST ATUS AS CO DE
				1788		, SERVICE_ST ATUS AS NA ME
				1789		, 0 AS PAREN T_ID
				1790		, 1 AS SORT_ ORDER
				1791		FROM A HOBPR.STD_ SERVICE_ST ATUS
				1792		WHERE S TD_SERVICE _STATUS_ID > 0
				1793		UNION ALL
				1794		SELECT ' STD_FORM_Q UESTION' A S LOOKUP_T YPE
				1795		,STD_ FORM_QUEST ION_ID As ID
				1796		, FORM_QUEST ION_UNIQUE _ID AS COD E
				1797		, FORM_QUEST ION_UNIQUE _ID AS NAM E
				1798		, 0 AS PAREN T_ID
				1799		, 1 AS SORT_ ORDER
				1800		FROM A HOBPR.STD_ FORM_QUEST ION
				1801		UNION AL L
				1802		SELECT ' REGISTRY_S TATUS_INEL IGIBLE' AS LOOKUP_TY PE
				1803		,STD_RE GISTRANT_S TATUS_ID A S ID
				1804		, REGISTRANT _STATUS AS CODE
				1805		, REGISTRANT _STATUS AS NAME
				1806		, 0 AS PAREN T_ID
				1807		, STD_REGIST RANT_STATU S_ID AS SO RT_ORDER
				1808		FROM A HOBPR.STD_ REGISTRANT _STATUS
				1809		WHERE STD_REGIST RANT_STATU S_ID IN (3 , 4, 5)
				1810		UNION AL L
				1811		SELECT ' REGISTRY_S TATUS_REVI EWED' AS L OOKUP_TYPE
				1812		,STD_RE GISTRANT_S TATUS_ID A S ID
				1813		, REGISTRANT _STATUS AS CODE
				1814		, REGISTRANT _STATUS AS NAME
				1815		, 0 AS PAREN T_ID
				1816		, STD_REGIST RANT_STATU S_ID AS SO RT_ORDER
				1817		FROM A HOBPR.STD_ REGISTRANT _STATUS
				1818		WHERE STD_REGIST RANT_STATU S_ID IN (5 , 8)
				1819		UNION AL L
				1820		SELECT ' REPORT_LOC ATION' AS LOOKUP_TYP E
				1821		,1 AS ID
				1822		, 'All' AS C ODE
				1823		, 'All' AS N AME
				1824		, 0 AS PAREN T_ID
				1825		, 1 AS SORT_ ORDER
				1826		UNION AL L
				1827		SELECT ' REPORT_LOC ATION' AS LOOKUP_TYP E
				1828		,2 AS ID
				1829		, 'Facility' AS CODE
				1830		, 'Facility' AS NAME
				1831		, 0 AS PAREN T_ID
				1832		, 2 AS SORT_ ORDER
				1833		UNION AL L
				1834		SELECT ' REPORT_LOC ATION' AS LOOKUP_TYP E
				1835		,3 AS ID
				1836		, 'VISN' AS CODE
				1837		, 'VISN' AS NAME
				1838		, 0 AS PAREN T_ID
				1839		, 3 AS SORT_ ORDER
				1840		UNION AL L
				1841		SELECT ' SUBPOPULAT ION_FLAG_A LL' AS LOO KUP_TYPE
				1842		,STD_ REGISTRY_F LAG_ID AS ID
				1843		, REGISTRY_F LAG_NAME A S CODE
				1844		, REGISTRY_F LAG_NAME A S NAME
				1845		, 0 AS PAREN T_ID
				1846		, 1 AS SORT_ ORDER
				1847		FROM AHO BPR.STD_RE GISTRY_FLA G
				1848		WHERE ST D_REGISTRY _FLAG_TYPE _ID = 2
				1849		UNION AL L
				1850		SELECT ' ADMIN_FLAG _ALL' AS L OOKUP_TYPE
				1851		,STD_ REGISTRY_F LAG_ID AS ID
				1852		, REGISTRY_F LAG_NAME A S CODE
				1853		, REGISTRY_F LAG_NAME A S NAME
				1854		, 0 AS PAREN T_ID
				1855		, 1 AS SORT_ ORDER
				1856		FROM AHO BPR.STD_RE GISTRY_FLA G
				1857		WHERE ST D_REGISTRY _FLAG_TYPE _ID = 1
				1858		UNION AL L
				1859		SELECT ' HEALTH_FAC TOR' AS LO OKUP_TYPE
				1860		,A.[S TD_HEALTH_ FACTOR_ID] AS ID
				1861		, A.[NAME] A S CODE
				1862		, B.[DESCRIP TION] + ': ' + A.DES CRIPTION A S NAME
				1863		, 0 AS PAREN T_ID
				1864		, 1 AS SORT_ ORDER
				1865		FROM [ AHOBPR].[S TD_HEALTH_ FACTOR] A INNER JOIN [AHOBPR]. [STD_HEALT H_FACTOR_C ATEGORY] B ON A.STD_ HEALTH_FAC TOR_CATEGO RY_ID = B. STD_HEALTH _FACTOR_CA TEGORY_ID
				1866		UNION AL L
				1867		SELECT D ISTINCT 'D EPLOYMENT_ COUNTRY' A S LOOKUP_T YPE
				1868		,0 AS ID
				1869		, [DEPLOYMEN T_COUNTRY] AS CODE
				1870		, [DEPLOYMEN T_COUNTRY] AS NAME
				1871		, 0 AS PAREN T_ID
				1872		, 1 AS SORT_ ORDER
				1873		FROM [ AHOBPR].[R EGISTRANT_ DEPLOYMENT ]
				1874		UNION AL L
				1875		SELECT D ISTINCT 'D EPLOYMENT_ COUNTRY_EX POSURE' AS LOOKUP_TY PE
				1876		,0 AS ID
				1877		, [DEPLOYMEN T_COUNTRY] AS CODE
				1878		, [DEPLOYMEN T_COUNTRY] AS NAME
				1879		, 0 AS PAREN T_ID
				1880		, 1 AS SORT_ ORDER
				1881		FROM [ AHOBPR].[R EGISTRANT_ DEPLOYMENT ] A JOIN A HOBPR.FORM _RESPONSE_ QUESTION B
				1882		ON A.REGIS TRANT_DEPL OYMENT_ID = B.REGIST RANT_DEPLO YMENT_ID
				1883		UNION ALL
				1884		SELECT ' STD_RACE' AS LOOKUP_ TYPE
				1885		,ID
				1886		, DESCRIPTIO N AS CODE
				1887		, DESCRIPTIO N AS NAME
				1888		, 0 AS PAREN T_ID
				1889		, 1 AS SORT_ ORDER
				1890		FROM AHO BPR.VIEW_E TL_LOOKUP
				1891		WHERE TY PE = 'STD_ RACE'
				1892		AND ID > 0
				1893		UNION AL L
				1894		SELECT ' STD_GENDER ' AS LOOKU P_TYPE
				1895		,ID
				1896		, DESCRIPTIO N AS CODE
				1897		, DESCRIPTIO N AS NAME
				1898		, 0 AS PAREN T_ID
				1899		, 1 AS SORT_ ORDER
				1900		FROM AHO BPR.VIEW_E TL_LOOKUP
				1901		WHERE TY PE = 'STD_ GENDER'
				1902		AND ID > 0
				1903		UNION AL L
				1904		SELECT ' STD_SEPARA TIONFAMILY ' AS LOOKU P_TYPE
				1905		,[STD_SEPA RATION_FAM ILY_ID] AS ID
				1906		,[FAMILY_C ODE] AS CO DE
				1907		,[FAMILY] AS NAME
				1908		,0 AS PARE NT_ID
				1909		,1 AS SORT _ORDER
				1910		FROM AHOBPR.STD _SEPARATIO N_FAMILY
				1911		WHERE [STD_SEPA RATION_FAM ILY_ID] > 0
				1912		UNION A LL
				1913		SELECT 'STD_SEPAR ATIONREASO N' AS LOOK UP_TYPE
				1914		,[STD_SEPA RATION_REA SON_ID] AS ID
				1915		,[REASON_C ODE] AS CO DE
				1916		,[REASON] AS NAME
				1917		,0 AS PARE NT_ID
				1918		,1 AS SORT _ORDER
				1919		FROM AHOBPR.STD _SEPARATIO N_REASON
				1920		WHERE [STD_SEPA RATION_REA SON_ID] > 0
				1921		UNION AL L
				1922		SELECT ' STD_ELIGIB LITYSTATUS ' AS LOOKU P_TYPE
				1923		,ID
				1924		, DESCRIPTIO N AS CODE
				1925		, DESCRIPTIO N AS NAME
				1926		, 0 AS PAREN T_ID
				1927		, 1 AS SORT_ ORDER
				1928		FROM AHO BPR.VIEW_E TL_LOOKUP
				1929		WHERE TY PE = 'STD_ ELIGIBLITY STATUS'
				1930		AND ID > 0
				1931		UNION AL L
				1932		SELECT ' STD_ETHNIC ITY' AS LO OKUP_TYPE
				1933		,ID
				1934		, DESCRIPTIO N AS CODE
				1935		, DESCRIPTIO N AS NAME
				1936		, 0 AS PAREN T_ID
				1937		, 1 AS SORT_ ORDER
				1938		FROM AHO BPR.VIEW_E TL_LOOKUP
				1939		WHERE TY PE = 'STD_ ETHNICITY'
				1940		AND ID > 0
				1941		UNION AL L
				1942		SELECT 'STD_CHARA CTEROFSERV ICE' AS LO OKUP_TYPE
				1943		,STD_ DISCHARGE_ CHARACTER_ ID As ID
				1944		, DISCHARGE_ CHARACTER_ CODE AS CO DE
				1945		, DISCHARGE_ CHARACTER AS NAME
				1946		, 0 AS PAREN T_ID
				1947		, 1 AS SORT_ ORDER
				1948		FROM A HOBPR.STD_ DISCHARGE_ CHARACTER
				1949		UNION AL L
				1950		SELECT ' TEMPLATE_M ESSAGE_TIT LE' AS LOO KUP_TYPE
				1951		,TEMPLA TE_ID AS I D
				1952		, TITLE AS C ODE
				1953		, TITLE AS N AME
				1954		, 0 AS PAREN T_ID
				1955		, 1 AS SORT_ ORDER
				1956		FROM A HOBPR.EMAI L_TEMPLATE S
				1957		UNION AL L
				1958		SELECT 'TOOL_QUES TION_TYPE' AS LOOKUP _TYPE
				1959		,2 As ID,'multi pleChoice' AS CODE,' Dropdown L ist - Muti ple Choice ' AS NAME, 0 AS PAREN T_ID,1 AS SORT_ORDER
				1960		UNION AL L
				1961		SELECT 'TOOL_QUES TION_TYPE' AS LOOKUP _TYPE
				1962		,1 As ID,'multi Select' AS CODE,'Che ckboxes - Mutliple S elect' AS NAME,0 AS PARENT_ID, 2 AS SORT_ ORDER
				1963		UNION AL L
				1964		SELECT 'TOOL_QUES TION_TYPE' AS LOOKUP _TYPE
				1965		,3 As ID,'text' AS CODE,' Radio Butt ons with F ree Text' AS NAME,0 AS PARENT_ ID,3 AS SO RT_ORDER
				1966		UNION AL L
				1967		SELECT 'TOOL_QUES TION_TYPE' AS LOOKUP _TYPE
				1968		,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
				1969		UNION AL L
				1970		SELECT ' FOLLOWUP_Q UESTION_GR OUP_LIST' AS LOOKUP_ TYPE
				1971		,STD_FO RM_ID AS I D
				1972		, NAME AS CO DE
				1973		, NAME AS NA ME
				1974		, 0 AS PAREN T_ID
				1975		, 1 AS SORT_ ORDER
				1976		FROM A HOBPR.STD_ FORM
				1977		WHERE FOLLOWUP_F LAG = 1;
				1978		-- select * from [A HOBPR].[VI EW_LOOKUP]
				1979		GO
				1980		IF NOT EXI STS (selec t * from s ys.views w here name = 'VIEW_LO OKUP'
				1981		AND schema_id = (select schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				1982		AND modify_dat e > datead d(second, -10, GETDA TE())
				1983		)
				1984		BEGIN
				1985		RAISERRO R('!!! Err or: The vi ew VIEW_LO OKUP was n ot altered . The scri pt executi on was sto pped. You must back out the c hanges, fi x the erro r and run it again. !!!',0
				1986		,21);
				1987		SET NOCO UNT ON;
				1988		SET NOEX EC ON;
				1989		END;
				1990		GO
				1991		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Get Registrant SendMessag e]...';
				1992		go
				1993		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant SendMessag e'
				1994		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				1995		)
				1996		begin
				1997		if exist s (select * from sys .procedure s where na me = 'SP_G etRegistra ntSendMess age_Pre_2_ 0_4_1')
				1998		drop p rocedure A HOBPR.SP_G etRegistra ntSendMess age
				1999		else
				2000		exec s p_rename ' AHOBPR.SP_ GetRegistr antSendMes sage', 'SP _GetRegist rantSendMe ssage_Pre_ 2_0_4_1';
				2001		end;
				2002		GO
				2003		-- ======= ========== ========== ========== ========
				2004		-- Create date: Octo ber 28, 20 15
				2005		-- Descrip tion: Used to create the list of registr ant to sen d email/no tification s to.
				2006
				2007		-- Modific ation log
				2008		--
				2009		-- ======= ========== ========== ========== ========
				2010		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antSendMes sage]
				2011		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				2012		@st ate varcha r(8000) = NULL, -- M ultiple st ates, comm a-separate d values w hen not NU LL
				2013		@fo rmStartFro mDateText varchar(10 0) = NULL,
				2014		@fo rmStartToD ateText va rchar(100) = NULL,
				2015		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				2016		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				2017		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				2018		@qu estionNumb er varchar (100) = NU LL,
				2019		@an swer varch ar(100) = NULL,
				2020		@he althConcer ns varchar (100) = 'A ll',
				2021		@re questToBeS een varcha r(100) = ' All',
				2022		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				2023		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				2024		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				2025		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				2026		@su bpopulatio nFlag varc har (10) = NULL,
				2027		@ad minFlag va rchar (10) = NULL,
				2028		@de ploymentAl l varchar (256) = NU LL,
				2029		@de ploymentEx posure var char (256) = NULL,
				2030		@ad minFlagFro mDateText varchar (2 0) = NULL,
				2031		@ad minFlagToD ateText va rchar (20) = NULL,
				2032		@ex cludeDead varchar(1) = 'N',
				2033		@co ntactPrefe rence varc har(100) = '',
				2034		@la stName var char(50) = '',
				2035		@ss n varchar( 4) = '',
				2036		@se parationTy pe INT = 0 ,
				2037		@se parationFr omDateText varchar ( 20) = NULL ,
				2038		@se parationTo DateText v archar (20 ) = NULL,
				2039		@fo rmBirthDat eText varc har(100) = NULL,
				2040		@em ail varcha r(100) = ' All',
				2041		@ev aluation v archar(100 ) = 'All'
				2042		AS
				2043
				2044		BEGIN
				2045
				2046		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				2047		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				2048		@formStart ToDate DAT ETIME2(0) = NULL,
				2049		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				2050		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				2051		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				2052		@adminFlag ToDate DAT ETIME2(0) = NULL,
				2053		@separatio nFromDate DATETIME2( 0) = NULL,
				2054		@separatio nToDate DA TETIME2(0) = NULL,
				2055		@formBirth Date DATET IME2(0) = NULL;
				2056
				2057		DECLARE @Query VAR CHAR(8000) ;
				2058		DECLARE @MainQuery VARCHAR(8 000);
				2059		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				2060		DECLARE @AdminWith VARCHAR(8 000);
				2061		DECLARE @SubPopWit h VARCHAR( 8000);
				2062		DECLARE @DeployWit h VARCHAR( 8000);
				2063
				2064		--Temp table conc atnate fla gs for Reg istrants w ith multip le flags
				2065		CREATE T ABLE #stat e
				2066		(
				2067		[Regi strant_Id] INT,
				2068		[stat e] VARCHAR (8000)
				2069		)
				2070
				2071		SET @sta te = REPLA CE(@state, 'Foreign Country/Ot her', 'FM, MH,PW,UM,U S,CANAD,MX ,EU,PI,FG, OT,UN')
				2072
				2073		INSERT I NTO #state ([Registr ant_Id], [ state])
				2074		-- Load Table
				2075		SELECT a .REGISTRAN T_ID,
				2076		ST UFF((SELEC T ', ' + b .STATE
				2077		FRO M AHOBPR.R EGISTRANT_ ADDRESS b
				2078		WHER E a.REGIST RANT_ID = b.REGISTRA NT_ID
				2079		FOR XML PATH(' ')), 1, 1, '') [STA TE]
				2080		FROM A HOBPR.REGI STRANT a
				2081		GROUP BY a.REGIS TRANT_ID;
				2082
				2083
				2084
				2085		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				2086		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				2087		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				2088		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				2089		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				2090		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				2091		SE T @separat ionFromDat e = dbo.Cl eanDate(@s eparationF romDateTex t);
				2092		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				2093		SET @for mBirthDate = dbo.Cle anDate(@fo rmBirthDat eText);
				2094
				2095		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				2096		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				2097		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				2098
				2099		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				2100		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				2101		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				2102
				2103		-- Set Ins titutionID values if needed.
				2104		DECLARE @A ssignedIns titutionId INT = 0,
				2105		@E valuatedIn stitutionI d INT = 0;
				2106
				2107		IF @Assign edLocation Type IN (' Base','Ins titution')
				2108		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				2109		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				2110
				2111		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				2112		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				2113		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				2114
				2115		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				2116		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				2117		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				2118		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				2119		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				2120		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				2121		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				2122		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				2123		' F ROM AHOBPR .REGISTRAN T a ' +
				2124		'WH ERE 1 = 1 ';
				2125
				2126		--Concat enate one or more Ad min flags for Regist rants with flags
				2127		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				2128		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				2129		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				2130		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				2131		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				2132		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				2133		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				2134		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				2135		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				2136		' FROM A HOBPR.REGI STRANT a ' +
				2137		' WHERE 1 = 1 ';
				2138
				2139		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				2140		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				2141		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				2142		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				2143		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				2144		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				2145		' FROM AHOBPR.RE GISTRANT a ' +
				2146		' WHERE 1 = 1 ';
				2147
				2148		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				2149		', (a.LAST_NA ME + '', ' ' + a.FIRS T_NAME) AS Name ' +
				2150		', b.REGISTRA NT_STATUS AS Status ' +
				2151		', s.STATE AS State ' +
				2152		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				2153		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				2154		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				2155		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				2156		-- ',RIGHT(a. SSN, 4) AS SSN ';
				2157		--Decide w hich query to run de pending on if a ques tion was s elected as a paramet er for the report
				2158		IF ISNUL L(@questio nNumber, ' ') = ''
				2159		SET @M ainQuery = @MainQuer y + ','''' AS Questi onNumber ' +
				2160		','''' AS Answer '
				2161		ELSE
				2162		SET @M ainQuery = @MainQuer y + ',''' + @questio nNumber + ''' AS Que stionNumbe r ' +
				2163		',STUF F((SELECT '', '' + s tdAnswer.T EXT ' +
				2164		' FROM AHOBPR.FOR M_RESPONSE _ANSWER an swer ' +
				2165		' JOIN AHOBPR.STD _FORM_ANSW ER stdAnsw er ON answ er.STD_FOR M_ANSWER_I D = stdAns wer.STD_FO RM_ANSWER_ ID ' +
				2166		' WHERE formQuesti on.FORM_RE SPONSE_QUE STION_ID = answer.FO RM_RESPONS E_QUESTION _ID ' +
				2167		' FOR XM L PATH(''' ')), 1, 1, '''') AS Answer ' ;
				2168
				2169		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				2170		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				2171		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				2172		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				2173		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				2174		',a.BI RTH_DATE A S BirthDat e ' +
				2175		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				2176		',RIGH T(a.SSN, 4 ) AS SSN ' +
				2177		'FROM AH OBPR.REGIS TRANT a '
				2178
				2179		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				2180		'LEFT JOIN #state s ' + 'ON a .REGISTRAN T_ID = s.R egistrant_ Id ' +
				2181		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				2182		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				2183		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				2184		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				2185		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ';
				2186
				2187		IF ISNUL L(@questio nNumber, ' ') != ''
				2188		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				2189		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				2190
				2191		--Decid e which qu ery to run accord to @email va lue to get registran ts with or without e mail addre sses
				2192		IF ISNULL( @email, '' ) = 'Yes'
				2193		SET @M ainQuery = @MainQuer y + ' INNE R JOIN AHO BPR.REGIST RANT_EMAIL em ON a. REGISTRANT _ID = em.R EGISTRANT_ ID ';
				2194
				2195		IF ISNULL( @email, '' ) = 'No'
				2196		SET @M ainQuery = @MainQuer y + ' Left JOIN AHOB PR.REGISTR ANT_EMAIL em ON a.R EGISTRANT_ ID = em.RE GISTRANT_I D ';
				2197
				2198		--Decide which quer y to run a ccord to @ evaluation value to get regist rants with or withou t AHOBPR e valuations
				2199		IF ISNULL( @evaluatio n, '') = ' Yes'
				2200		SET @M ainQuery = @MainQuer y + ' INNE R JOIN AHO BPR.REGIST RANT_VISIT ev ON a. REGISTRANT _ID = ev.R EGISTRANT_ ID ';
				2201
				2202		IF ISNULL( @evaluatio n, '') = ' No'
				2203		SET @M ainQuery = @MainQuer y + ' Left JOIN (SEL ECT REGIST RANT_ID, E VALUATION_ FLAG FROM AHOBPR.REG ISTRANT_VI SIT ' +
				2204		' WHERE EV ALUATION_F LAG = ''Y' ') AS ev o n ev.REGIS TRANT_ID = a.REGISTR ANT_ID ';
				2205
				2206
				2207
				2208		SET @M ainQuery = @MainQuer y + ' WHER E 1 = 1 ';
				2209
				2210
				2211		IF ISNULL( @email, '' ) = 'No'
				2212		SE T @MainQue ry = @Main Query + ' AND em.EMA IL is NULL ';
				2213
				2214		IF ISNULL( @evaluatio n, '') = ' Yes'
				2215		SE T @MainQue ry = @Main Query + ' AND ev.EVA LUATION_FL AG = ''Y'' ';
				2216
				2217		IF ISNULL( @evaluatio n, '') = ' No'
				2218		SE T @MainQue ry = @Main Query + ' AND EVALUA TION_FLAG is NULL ';
				2219
				2220
				2221		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				2222		IF ISNUL L(@questio nNumber, ' ') > ''
				2223		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				2224
				2225		IF ISNUL L(@answer, '') != ''
				2226		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SE LECT fr.RE GISTRANT_I D FROM AHO BPR.FORM_R ESPONSE_AN SWER ra ' +
				2227		'JOI N AHOBPR.F ORM_RESPON SE_QUESTIO N rq ON rq .FORM_RESP ONSE_QUEST ION_ID = r a.FORM_RES PONSE_QUES TION_ID ' +
				2228		'JOI N AHOBPR.F ORM_RESPON SE fr ON f r.FORM_RES PONSE_ID = rq.FORM_R ESPONSE_ID ' +
				2229		'JOI N AHOBPR.S TD_FORM_AN SWER A1 ON A1.STD_FO RM_ANSWER_ ID = ra.ST D_FORM_ANS WER_ID ' +
				2230		'JOI N AHOBPR.S TD_FORM_QU ESTION Q1 ON Q1.STD_ FORM_QUEST ION_ID = r q.STD_FORM _QUESTION_ ID ' +
				2231		'JOI N AHOBPR.S TD_FORM_QU ESTION Q2 ON Q2.FORM _QUESTION_ UNIQUE_ID = Q1.FORM_ QUESTION_U NIQUE_ID ' +
				2232		'JOI N AHOBPR.S TD_FORM_AN SWER A2 ON A2.STD_FO RM_QUESTIO N_ID = Q2. STD_FORM_Q UESTION_ID ' +
				2233		' AN D A1.BRP_F ORM_ANSWER _ID = A2.B RP_FORM_AN SWER_ID ' +
				2234		' WHER E A2.STD_F ORM_ANSWER _ID IN (' + @answer + ') AND f r.REGISTRA NT_ID = a. REGISTRANT _ID )';
				2235
				2236		IF @form StartFromD ate IS NOT NULL
				2237		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				2238
				2239		IF @form StartToDat e IS NOT N ULL
				2240		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				2241
				2242		IF @form Completion FromDate I S NOT NULL
				2243		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				2244
				2245		IF @form Completion ToDate IS NOT NULL
				2246		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				2247
				2248		IF @form BirthDate IS NOT NUL L
				2249		SET @ MainQuery = @MainQue ry + ' AND a.BIRTH_D ATE = ''' + CONVERT( VARCHAR(20 ),@formBir thDate,121 ) + '''';
				2250
				2251
				2252
				2253		IF ISNUL L(@subpopu lationFlag ,'') != ''
				2254		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				2255		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				2256		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				2257
				2258		IF ISNULL(@a dminFlag,' ') != ''
				2259		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG adminfl ag ' +
				2260		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				2261		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				2262		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				2263		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				2264
				2265		IF ISNUL L(@deploym entAll,'') != ''
				2266		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				2267		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				2268		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				2269
				2270		IF ISNUL L(@healthF actor,'') != ''
				2271		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				2272		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				2273		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				2274		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				2275
				2276
				2277		IF ISNUL L(@deploym entExposur e,'') != ' '
				2278		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				2279		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				2280		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				2281		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID = ''1.2.A'' ' +
				2282		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				2283		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				2284
				2285
				2286
				2287
				2288
				2289		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				2290		IF @stat us IS NOT NULL
				2291		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				2292
				2293		IF ISNUL L(@state,' ') > ''
				2294		BEGIN
				2295		SET @state = R EPLACE(@St ate,',','' ',''');
				2296		SET @RegCriter ia = @RegC riteria + ' AND EXIS TS(SELECT DISTINCT a ddr.REGIST RANT_ID ' +
				2297		'FROM AH OBPR.REGIS TRANT_ADDR ESS addr ' +
				2298		'WHERE ad dr.REGISTR ANT_ID = a .REGISTRAN T_ID ' +
				2299		'AND ad dr.STATE IN ( ''' + @state + ''') ) ';
				2300		END;
				2301
				2302		IF @heal thConcerns != 'All'
				2303		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				2304
				2305		IF @requ estToBeSee n != 'All'
				2306		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				2307
				2308		IF ISNUL L(@exclude Dead,'N') = 'Y'
				2309		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				2310
				2311		IF ISNUL L(@contact Preference ,'') != ''
				2312		SET @R egCriteria = @RegCri teria + ' AND ''' + @contactPr eference + ''' = ISN ULL(a.CONT ACT_PREFER ENCE,''No Data Avail able'') ';
				2313
				2314		IF ISNUL L(@ssn,'') != ''
				2315		SET @R egCriteria = @RegCri teria + ' AND RIGHT( a.SSN, 4) = ''' + @s sn + '''' ;
				2316
				2317		IF ISNUL L(@separat ionType,0) != 0
				2318		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				2319
				2320		IF @sepa rationFrom Date IS NO T NULL
				2321		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				2322
				2323		IF @sepa rationToDa te IS NOT NULL
				2324		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				2325
				2326		IF ISNUL L(@lastNam e,'') != ' '
				2327		SET @R egCriteria = @RegCri teria + ' AND RTRIM( LTRIM(a.LA ST_NAME)) LIKE ''' + @lastName + '''';
				2328
				2329		IF @Assi gnedLocati onType IS NOT NULL
				2330		BEGIN
				2331		IF @ AssignedLo cationType = 'NLA'
				2332		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				2333		ELSE
				2334		IF @ AssignedLo cationType = 'VISN'
				2335		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				2336		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				2337		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				2338		ELSE
				2339		IF @ AssignedLo cationType = 'Base'
				2340		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				2341		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				2342		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				2343		ELSE
				2344		IF @ AssignedLo cationType = 'Instit ution'
				2345		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				2346		END;
				2347
				2348		IF @Eval uatedLocat ionType IS NOT NULL
				2349		BEGIN
				2350		IF @ EvaluatedL ocationTyp e = 'NLA'
				2351		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				2352		' WHERE eva l.REGISTRA NT_VISIT_I D = a.REGI STRANT_ID ' +
				2353		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				2354		ELSE
				2355		IF @ EvaluatedL ocationTyp e = 'VISN'
				2356		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				2357		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				2358		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				2359		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				2360		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				2361		ELSE
				2362		IF @ EvaluatedL ocationTyp e = 'Base'
				2363		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				2364		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				2365		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				2366		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				2367		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				2368		ELSE
				2369		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				2370		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				2371		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				2372		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				2373		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				2374		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				2375		END;
				2376
				2377		-- Add cri teria and Close With Statement
				2378		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				2379		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				2380		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				2381
				2382		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				2383
				2384		PRINT @ Query;
				2385
				2386		EXECUTE ( @Query);
				2387		END;
				2388		-- Test Ca ses
				2389		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage]
				2390		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @status = '6,7'
				2391		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @evaluatio n = 'N', @ status = ' 7'
				2392		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @contactPr eference = 'Email fr om the VA'
				2393		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @state = ' MD,VA'
				2394		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage_c hanges] @f ormBirthDa teText = '19770707'
				2395		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formStart ToDateText = '201412 31'
				2396		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthFac tor = '44, 45,46,47'
				2397		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionFromD ateText = '20010101 '
				2398		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionToDat eText = ' 20141231'
				2399		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthCon cerns = 'Y es' ,
				2400		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @requestTo BeSeen = ' Yes
				2401		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @subpopula tionFlag = '64,65,66 ,67'
				2402		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tAll = 'Eg ypt'
				2403		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tExposure = 'Iraq'
				2404		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @adminFlag = '59,60' ,@adminFl agFromDate Text = '20 150101' , @adminFlag ToDateText = '201502 01'
				2405		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @questionN umber = '5 .4.A' , @ answer = ' 2221'
				2406		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage]
				2407		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'NLA'
				2408		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'VISN', @ AssignedLo cationKey = 'V16'
				2409		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Base', @ AssignedLo cationKey = '1000089 '
				2410		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Institut ion', @Ass ignedLocat ionKey = ' 1000089'
				2411		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @s sn = '1125 '
				2412		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'NLA'
				2413		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'VISN', @Evaluated LocationKe y = 'V16'
				2414		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Base', @Evaluated LocationKe y = '10000 89'
				2415		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Institu tion', @Ev aluatedLoc ationKey = '1000089'
				2416
				2417		GO
				2418		UPDATE [d bo].[Datab aseChangeL og]
				2419		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				2420		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				2421		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				2422		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				2423		AND [S criptName] = '$(Scrip tName)'
				2424		AND Ta rgetRegist ry = 'AHOBPR' ;
				2425
				2426		GO
				2427		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				2428		WHERE Targ etRegistry = 'AHOBPR'
				2429		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				2430		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				2431		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				2432		AND [Scr iptName] = '$(Script Name)';
				2433		go
				2434		---------- ---------- ---------- ---------- ---------- ---------- ----
				2435		---------- ---------- ---------- ---------- ---------- ---------- ----
				2436		-- 2.0.4.2
				2437		---------- ---------- ---------- ---------- ---------- ---------- ----
				2438
				2439		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				2440		:setvar Ma jorRelease Number "2"
				2441		:setvar Mi norRelease Number "0"
				2442		:setvar Po intRelease Number "4"
				2443		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.4.2.s ql"
				2444
				2445
				2446		PRINT '
				2447		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2448		$(ScriptNa me)
				2449
				2450		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				2451
				2452		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2453		';
				2454		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				2455		PRINT '
				2456		******** ****** ****** ****** ****** *****
				2457		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				2458		******** ****** ****** ****** ****** *****
				2459
				2460		';
				2461		GO
				2462		:on error exit
				2463		GO
				2464		:setvar __ IsSqlCmdEn abled "Tru e"
				2465		/*
				2466		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				2467		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				2468		*/
				2469		SET NOEXEC OFF;
				2470		GO
				2471		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				2472		BEGIN
				2473		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				2474		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.
				2475		END
				2476
				2477		GO
				2478
				2479		USE [$(Dat abaseName) ]
				2480		GO
				2481		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				2482		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				2483		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				2484		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				2485		AND [Scr iptName] = ' $(ScriptNa me)')
				2486		BEGIN
				2487		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!' ,11
				2488		,1);
				2489		SET NOC OUNT ON;
				2490		SET NOE XEC ON;
				2491		END
				2492		ELSE
				2493		INSERT
				2494		INTO [ dbo].[Data baseChange Log]
				2495		([Major ReleaseNum ber]
				2496		,[Minor ReleaseNum ber]
				2497		,[Point ReleaseNum ber]
				2498		,[Hotfi x]
				2499		,[Scrip tName]
				2500		,[Scrip tDescripti on]
				2501		,[Targe tRegistry]
				2502		,[DateA pplied])
				2503		VAL UES
				2504		('$(Maj orReleaseN umber)'
				2505		,'$(Min orReleaseN umber)'
				2506		,'$(Poi ntReleaseN umber)'
				2507		,0
				2508		,'$(Scr iptName)'
				2509		,'Scr ipt Starte d...'
				2510		,'AHOBP R'
				2511		,GETDAT E());
				2512
				2513		GO
				2514
				2515		PRINT 'CRE ATE VIEW [ AHOBPR].[V IEW_REGIST RANT]...';
				2516		if exists (select * from sys.v iews where name = 'V IEW_REGIST RANT'
				2517		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				2518		)
				2519		begin
				2520		if exist s (select * from sys .views whe re name = 'VIEW_REGI STRANT_pre _2_0_4_2'
				2521		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				2522		)
				2523		drop v iew ahobp r.VIEW_REG ISTRANT
				2524		else
				2525		exec s p_rename ' ahobpr.VIE W_REGISTRA NT', 'VIEW _REGISTRAN T_pre_2_0_ 4_2';
				2526		end;
				2527		GO
				2528		CREATE VIE W [AHOBPR] .[VIEW_REG ISTRANT]
				2529		AS SELECT
				2530		reg .REGISTRAN T_ID,
				2531		reg .LAST_NAME + ', ' + reg.FIRST_ NAME + ' ' + reg.MID DLE_NAME A S REGISTRA NT_FULL_NA ME,
				2532		reg .LAST_NAME ,
				2533		reg .FIRST_NAM E,
				2534		reg .MIDDLE_NA ME,
				2535
				2536		reg .STD_REGIS TRANT_STAT US_ID,
				2537		reg Stat.REGIS TRANT_STAT US,
				2538		ISN ULL(reg.RE GISTRANT_S TATUS_LAST _UPDATED_D ATE, reg.U PDATED) AS REGISTR ANT_STATUS _LAST_UPDA TED_DATE,
				2539		DAT EDIFF( DAY , ISNULL(r eg.REGISTR ANT_STATUS _LAST_UPDA TED_DATE
				2540		, reg.UPDA TED), GETD ATE()) AS REGISTR ANT_DAYS_A T_CURRENT_ STATUS,
				2541		reg .[HEALTH_C ONCERNS_RE SPONSE] AS REGISTR ANT_HEALTH _CONCERNS_ RESPONSE,
				2542		reg .[REQUEST_ SEEN_RESPO NSE] AS REGISTR ANT_REQUES T_SEEN_RES PONSE,
				2543
				2544		reg .BIRTH_DAT E AS REGISTR ANT_BIRTH_ DATE,
				2545		DAT EDIFF(YEAR , reg.BIRT H_DATE, GE TDATE()) AS REGISTR ANT_AGE,
				2546		reg .GENDER AS REGISTR ANT_GENDER ,
				2547		reg .STD_INSTI TUTION_ID AS REGISTR ANT_ASSIGN ED_INSTITU TION_ID,
				2548		i.N AME AS REGISTR ANT_ASSIGN ED_INSTITU TION_NAME,
				2549		reg .STD_SERVI CE_STATUS_ ID AS REGISTR ANT_STD_SE RVICE_STAT US_ID,
				2550
				2551		reg .EDIPI AS REGISTR ANT_EDIPI,
				2552		SSN AS REGISTR ANT_SSN,
				2553		RIG HT(REG.SSN , 4) AS REGUSTR ANT_LAST_F OUR,
				2554		USE R_ID AS REGISTR ANT_USER_I D,
				2555
				2556		REG .CREATEDBY AS RE GISTRANT_C REATEDBY,
				2557		REG .CREATED AS RE GISTRANT_C REATED,
				2558		REG .UPDATED AS RE GISTRANT_U PDATED,
				2559		REG .UPDATEDBY ASREG ISTRANT_UP DATEDBY
				2560		FROM AHO BPR.REGIST RANT reg
				2561		LEFT
				2562		JOIN db o.STD_INST ITUTION I
				2563		ON I. ID = reg.[ STD_INSTIT UTION_ID]
				2564		JOIN AH OBPR.STD_R EGISTRANT_ STATUS reg Stat
				2565		ON re gStat.STD_ REGISTRANT _STATUS_ID = reg.STD _REGISTRAN T_STATUS_I D;
				2566
				2567		-- SEL ECT * FROM [AHOBPR]. [VIEW_REGI STRANT]
				2568		GO
				2569
				2570		PRINT 'CRE ATE VIEW A HOBPR.VIEW _REGISTRAN T_DEPLOYME NT...';
				2571		GO
				2572		CREATE VIE W AHOBPR.V IEW_REGIST RANT_DEPLO YMENT
				2573		AS SELECT
				2574		R. REGISTRANT _FULL_NAME AS DEP LOYED_REGI STRANT_FUL L_NAME
				2575		, [R EGISTRANT_ DEPLOYMENT _ID]
				2576		, D. [DEPLOYMEN T_COUNTRY]
				2577		, D. [DEPLOYMEN T_BASE]
				2578		, D. [DEPLOYMEN T_START_DA TE]
				2579		, D. [DEPLOYMEN T_END_DATE ]
				2580		, D. [IS_ELIGI BLE_FLAG] AS DEP LOYMENT_IS _ELIGIBLE_ FLAG
				2581		, D. [STD_BRANC H_OF_SERVI CE_ID] AS DEP LOYMENT_BR ANCH_OF_SE RVICE_ID
				2582		, [B RANCH_OF_S ERVICE] AS DEP LOYMENT_BR ANCH_OF_SE RVICE
				2583		, [D UTY_PROJEC T_CODE]
				2584		, [U SER_ENTERE D_FLAG]
				2585		, [U SER_VERIFI ED_FLAG]
				2586
				2587		, D. [STD_SERVI CE_OCCUPAT ION_ID] AS DEP LOYMENT_SE RVICE_OCCU PATION_ID
				2588		, [S ERVICE_OCC UPATION_CO DE] AS DEP LOYMENT_SE RVICE_OCCU PATION_COD E
				2589		, [S ERVICE_TIT LE] AS DEP LOYMENT_SE RVICE_TITL E
				2590		, [M ILITARY_RA NK] AS DEP LOYMENT_MI LITARY_RAN K
				2591		, [D EPLOYMENT_ UIC]
				2592		, [I S_GULF_WAR _VETERAN_F LAG]
				2593		, D. [STD_COMPO NENT_ID] AS DEP LOYMENT_CO MPONENT_ID
				2594		, C. [CATEGORY_ CODE] AS DEP LOYMENT_CO MPONENT_CA TEGORY_COD E
				2595		, C. [DESCRIPTI ON] AS DEP LOYMENT_CO MPONENT
				2596		, R. *
				2597		FROM [A HOBPR].[VI EW_REGISTR ANT] AS R
				2598		JOIN [A HOBPR].[RE GISTRANT_D EPLOYMENT] AS D
				2599		ON R. [REGISTRAN T_ID] = D. [REGISTRAN T_ID]
				2600		LEFT
				2601		JOIN [A HOBPR].[ST D_BRANCH_O F_SERVICE] BoS
				2602		ON Bo S.[STD_BRA NCH_OF_SER VICE_ID] = D.[STD_BR ANCH_OF_SE RVICE_ID]
				2603		LEFT
				2604		JOIN [A HOBPR].[ST D_SERVICE_ OCCUPATION ] SO
				2605		ON SO .[STD_SERV ICE_OCCUPA TION_ID] = D.[STD_SE RVICE_OCCU PATION_ID]
				2606		LEFT
				2607		JOIN [A HOBPR].[ST D_COMPONEN T] C
				2608		ON C. [STD_COMPO NENT_ID] = D.[STD_CO MPONENT_ID ];
				2609
				2610		GO
				2611
				2612		PRINT 'CRE ATE VIEW A HOBPR.VIEW _REGISTRAN T_QUESTION ...';
				2613		GO
				2614		CREATE VIE W [AHOBPR] .[VIEW_REG ISTRANT_QU ESTION]
				2615		AS SELECT
				2616		r.REGISTR ANT_ID AS ASKED_R EGISTRANT_ ID
				2617		, R.REGISTR ANT_FULL_N AME AS ASKED_R EGISTRANT_ NAME
				2618		, SFQ.[FORM _QUESTION_ UNIQUE_ID]
				2619		, PQ.[SHORT _TEXT] AS PAREN T_QUESTION _TEXT
				2620		, SFQ.[SHOR T_TEXT] AS QUEST ION_TEXT
				2621		, SFQ.[TYPE ] AS QUEST ION_TYPE
				2622		, FRQ.[STAR TED_DATE] AS QUEST ION_STARTE D_DATE
				2623		, FRQ.[COMP LETED_DATE ] AS QUEST ION_COMPLE TED_DATE
				2624		, FR.FORM_R ESPONSE_ID
				2625		, FRQ.FORM_ RESPONSE_Q UESTION_ID
				2626		, FRQ.[STD_ FORM_QUEST ION_ID]
				2627		, R.*
				2628		, D.[REGIST RANT_DEPLO YMENT_ID]
				2629
				2630		, D.[DEPLOYM ENT_COUNTR Y]
				2631		, D.[DEPLOYM ENT_BASE]
				2632		, D.[DEPLOYM ENT_START_ DATE]
				2633		, D.[DEPLOYM ENT_END_DA TE]
				2634		, D.DEPLOYME NT_IS_ELIG IBLE_FLAG
				2635		, D.DEPLOYME NT_BRANCH_ OF_SERVICE _ID
				2636		, D.DEPLOYME NT_BRANCH_ OF_SERVICE
				2637		, D.[DUTY_PR OJECT_CODE ]
				2638		, D.[USER_EN TERED_FLAG ]
				2639		, D.[USER_VE RIFIED_FLA G]
				2640
				2641		, FR.CREATE DBY AS RESPONSE_ CREATEDBY
				2642		, FR.CREATE D AS RESPONSE_ CREATED
				2643		, FR.UPDATE D AS RESPONSE_ UPDATED
				2644		, FR.UPDATE DBY AS RESPONSE_ UPDATEDBY
				2645		, FRQ.CREAT EDBY AS RESPONSE_ QUESTION_C REATEDBY
				2646		, FRQ.CREAT ED AS RESPONSE_ QUESTION_C REATED
				2647		, FRQ.UPDAT EDBY AS RESPONSE_ QUESTION_U PDATEDBY
				2648		, FRQ.UPDAT ED AS RESPONSE_ QUESTION_U PDATED
				2649
				2650		FROM [A HOBPR].[VI EW_REGISTR ANT] AS R
				2651		JOIN [A HOBPR].[FO RM_RESPONS E] AS FR
				2652		ON R. [REGISTRAN T_ID] = FR .[REGISTRA NT_ID]
				2653		JOIN [A HOBPR].[FO RM_RESPONS E_QUESTION ] AS FRQ
				2654		ON F R.[FORM_RE SPONSE_ID] = FRQ.[FO RM_RESPONS E_ID]
				2655		JOIN [A HOBPR].[ST D_FORM_QUE STION] AS SFQ
				2656		ON FR Q.[STD_FOR M_QUESTION _ID] = SFQ .[STD_FORM _QUESTION_ ID]
				2657		LEFT
				2658		JOIN [A HOBPR].[ST D_FORM_QUE STION] AS PQ
				2659		ON PQ .[STD_FORM _QUESTION_ ID] = SFQ. [PARENT_ID ]
				2660		LEFT
				2661		JOIN [A HOBPR].VIE W_REGISTRA NT_DEPLOYM ENT D
				2662		ON D. [REGISTRAN T_DEPLOYME NT_ID] = F RQ.[REGIST RANT_DEPLO YMENT_ID];
				2663		GO
				2664
				2665		PRINT 'CRE ATE VIEW A HOBPR.VIEW _REGISTRAN T_ANSWER.. .';
				2666		GO
				2667
				2668		CREATE VIE W AHOBPR.V IEW_REGIST RANT_ANSWE R
				2669		AS SELECT SFA.[TEXT ] AS ANSWER_TE XT
				2670		, FRA.ANSWE R_VALUE
				2671		, ISNULL(SF A.[TEXT], ANSWER_VAL UE) AS AN SWER_COALE SCED
				2672		, SFA.[ORDE R] AS ANSWER_OR DER
				2673		, SFA.[EDIT ABLE] AS EDITABLE
				2674		, SFA.HELP AS ANSWER_HE LP
				2675		, Q.*
				2676
				2677		FROM [A HOBPR].VIE W_REGISTRA NT_QUESTIO N AS Q
				2678		JOIN [A HOBPR].[FO RM_RESPONS E_ANSWER] AS FRA
				2679		ON Q. [FORM_RESP ONSE_QUEST ION_ID] = FRA.[FORM_ RESPONSE_Q UESTION_ID ]
				2680		JOIN [A HOBPR].[ST D_FORM_ANS WER] AS SF A
				2681		ON FR A.[STD_FOR M_ANSWER_I D] = SFA.[ STD_FORM_A NSWER_ID];
				2682
				2683		GO
				2684
				2685		CREATE VIE W AHOBPR.V IEW_REGIST RANT_DEPLO YMENT_EXPO SURE_RESPO NSE
				2686		AS SELECT V.*
				2687		FROM AHOBPR.V IEW_REGIST RANT_DEPLO YMENT V
				2688		JOIN AHOBPR.V IEW_REGIST RANT_ANSWE R exposure
				2689		ON V.REGIST RANT_DEPLO YMENT_ID = exposure. REGISTRANT _DEPLOYMEN T_ID
				2690		WHERE FORM_QUEST ION_UNIQUE _ID = '1.2 .A';
				2691		GO
				2692
				2693
				2694		PRINT 'CRE ATE VIEW [ AHOBPR].[V IEW_REGIST RANT_VISIT ]..';
				2695		GO
				2696		CREATE VIE W [AHOBPR] .[VIEW_REG ISTRANT_VI SIT]
				2697		AS SELECT
				2698		R. REGISTRANT _ID AS PAT IENT_REGIS TRANT_ID
				2699		, R. REGISTRANT _FULL_NAME AS PAT IENT_NAME
				2700		, V. [VISIT_DAT E_TIME]
				2701		, [E VALUATION_ FLAG]
				2702		, [A PPOINTMENT _TYPE]
				2703		, [S TOP_CODE]
				2704		, [V ISTA_Encou nterID]
				2705		, [V ISTA_Sta3n ]
				2706		, [V ISTA_Eligi bilityStat us]
				2707		, I. NAME AS INS TITUTION_N AME
				2708		, VI STANAME
				2709		, FT .NAME AS FAC ILITY_TYPE
				2710		, CA SE FT.ISME DICALTREAT ING WHEN 1 THEN 'Tru e' WHEN '0 ' THEN 'Fa lse' ELSE FT.ISMEDIC ALTREATING END AS IS _MEDICAL_T REATING
				2711		, R. *
				2712		, V. [CREATEDBY ] AS VISIT _CREATED_B Y
				2713		, V. [UPDATEDBY ] AS VISIT _UPDATEDBY
				2714		, V. [CREATED] AS VISIT _CREATED
				2715		, V. [UPDATED] AS VISIT _UPDATED
				2716
				2717		FROM [A HOBPR].VIE W_REGISTRA NT AS R
				2718		JOIN [A HOBPR].[RE GISTRANT_V ISIT] V
				2719		ON V. REGISTRANT _ID = R.RE GISTRANT_I D
				2720		LEFT
				2721		JOIN db o.STD_INST ITUTION I
				2722		ON I. ID = V.[ST D_INSTITUT ION_ID]
				2723		LEFT
				2724		JOIN [d bo].[STD_F ACILITYTYP E] FT
				2725		ON FT .[ID] = I. [STD_FACIL ITYTYPE_ID ];
				2726
				2727		GO
				2728
				2729		PRINT 'CRE ATE VIEW A HOBPR.VIEW _REGISTRAN T_EVALUATI ON...';
				2730		GO
				2731		CREATE VIE W AHOBPR.V IEW_REGIST RANT_EVALU ATION
				2732		AS SELECT *
				2733		FROM VIE W_REGISTRA NT_VISIT
				2734		WHERE [E VALUATION_ FLAG] = 'Y ';
				2735
				2736		GO
				2737
				2738		PRINT 'ALT ER VIEW [A HOBPR].[VI EW_REGISTR ANT_STATUS ]...';
				2739		GO
				2740		--enable r ollback
				2741		if exists (select * from sys.v iews where name = 'V IEW_REGIST RANT_STATU S'
				2742		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				2743		)
				2744		begin
				2745		if exist s (select * from sys .views whe re name = 'VIEW_REGI STRANT_STA TUS_OLD'
				2746		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR')
				2747		)
				2748		drop v iew AHOBPR .VIEW_REGI STRANT_STA TUS
				2749		else
				2750		exec S P_RENAME ' AHOBPR.VIE W_REGISTRA NT_STATUS' , 'VIEW_RE GISTRANT_S TATUS_OLD' ;
				2751		end;
				2752		GO
				2753
				2754		CREATE VIE W [AHOBPR] .[VIEW_REG ISTRANT_ST ATUS] AS
				2755		WITH deplo yments AS
				2756		(
				2757		SELECT REGISTRANT _ID, COUNT (*) AS NUM BER_OF_DEP LOYMENTS
				2758		FROM AHOBPR.REG ISTRANT_DE PLOYMENT
				2759		GROUP BY REGISTR ANT_ID
				2760		)
				2761		, Logins A S
				2762		(
				2763		SELECT M AX(CREATED ) AS LAST_ LOGIN_DATE
				2764		, M IN(CREATED ) AS FIRST _LOGIN_DAT E
				2765		, C OUNT(*) AS NUMBER_OF _LOGINS
				2766		, US ER_ID
				2767		FROM AH OBPR.DATA_ ACCESS_LOG
				2768		WHERE PA GE_NAME = 'Login'
				2769		GROUP BY USER_ID
				2770		)
				2771		SELECT
				2772		reg .REGISTRAN T_FULL_NAM E AS ST ATUS_FULL_ NAME,
				2773		inf o.EDIPI_MI SMATCHED_F LAG,
				2774		inf o.EDIPI_VE RIFIED_DAT E,
				2775		inf o.EULA_ACC EPTED_DATE ,
				2776		inf o.CONTACT_ INFO_VERIF IED_DATE,
				2777		frs .[FORM_RES PONSE_STAT US_ID],
				2778		frs .[LAST_SEC TION_ID],
				2779		sfs .TITLE as LAST_SECTI ON,
				2780		frs .[LAST_SUB _SECTION_I D],
				2781		ssf s.TITLE as LAST_SUB_ SECTION,
				2782		frs .[QUESTION NAIRE_STAR TED_DATE],
				2783		frs .[QUESTION NAIRE_COMP LETED_DATE ],
				2784		frs .[UPDATED] AS QUESIO NNAIRE_LAS T_UPDATED,
				2785		dep loyments.N UMBER_OF_D EPLOYMENTS ,
				2786		Log ins.*,
				2787		reg .*
				2788		FROM AHO BPR.[VIEW_ REGISTRANT ] reg
				2789		LEFT JOI N Logins
				2790		ON LOG INs.USER_I D = reg.RE GISTRANT_U SER_ID
				2791		LEFT JO IN AHOBPR. [REGISTRAN T_RECORD_I NFO] info
				2792		ON info.RE GISTRANT_I D = reg.RE GISTRANT_I D
				2793		LEFT JO IN AHOBPR. FORM_RESPO NSE fr
				2794		ON fr.REGI STRANT_ID = reg.REGI STRANT_ID
				2795		LEFT JO IN AHOBPR. FORM_RESPO NSE_STATUS frs
				2796		ON frs.FOR M_RESPONSE _ID = fr.F ORM_RESPON SE_ID
				2797		LEFT JO IN deploym ents
				2798		ON deploym ents.REGIS TRANT_ID = reg.REGIS TRANT_ID
				2799		LEFT JO IN AHOBPR. STD_FORM_S ECTION sfs
				2800		O N sfs.STD_ FORM_SECTI ON_ID = LA ST_SECTION _ID
				2801		LEFT JO IN AHOBPR. STD_FORM_S UB_SECTION ssfs
				2802		O N ssfs.STD _FORM_SUB_ SECTION_ID = LAST_SU B_SECTION_ ID;
				2803		GO
				2804		UPDATE [d bo].[Datab aseChangeL og]
				2805		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				2806		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				2807		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				2808		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				2809		AND [S criptName] = '$(Scrip tName)'
				2810		AND Ta rgetRegist ry = 'AHOBPR' ;
				2811
				2812		GO
				2813		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				2814		WHERE Targ etRegistry = 'AHOBPR'
				2815		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				2816		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				2817		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				2818		AND [Scr iptName] = '$(Script Name)';
				2819		go
				2820		---------- ---------- ---------- ---------- ---------- ---------- -
				2821		---------- ---------- ---------- ---------- ---------- ---------- -
				2822		-- 2.0.4.3
				2823		---------- ---------- ---------- ---------- ---------- ---------- -
				2824
				2825		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				2826		:setvar Ma jorRelease Number "2"
				2827		:setvar Mi norRelease Number "0"
				2828		:setvar Po intRelease Number "4"
				2829		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.4.3.s ql"
				2830
				2831		PRINT '
				2832		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2833		$(ScriptNa me)
				2834
				2835		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				2836
				2837		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2838		';
				2839		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				2840		PRINT '
				2841		******** ****** ****** ****** ****** *****
				2842		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				2843		******** ****** ****** ****** ****** *****
				2844
				2845		';
				2846		GO
				2847		:on error exit
				2848		GO
				2849		:setvar __ IsSqlCmdEn abled "Tru e"
				2850		/*
				2851		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				2852		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				2853		*/
				2854		SET NOEXEC OFF;
				2855		GO
				2856		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				2857		BEGIN
				2858		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				2859		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.
				2860		END
				2861
				2862		GO
				2863
				2864		USE [$(Dat abaseName) ]
				2865		GO
				2866		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				2867		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				2868		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				2869		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				2870		AND [Scr iptName] = ' $(ScriptNa me)')
				2871		BEGIN
				2872		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!' ,11
				2873		,1);
				2874		SET NOC OUNT ON;
				2875		SET NOE XEC ON;
				2876		END
				2877		ELSE
				2878		INSERT
				2879		INTO [ dbo].[Data baseChange Log]
				2880		([Major ReleaseNum ber]
				2881		,[Minor ReleaseNum ber]
				2882		,[Point ReleaseNum ber]
				2883		,[Hotfi x]
				2884		,[Scrip tName]
				2885		,[Scrip tDescripti on]
				2886		,[Targe tRegistry]
				2887		,[DateA pplied])
				2888		VAL UES
				2889		('$(Maj orReleaseN umber)'
				2890		,'$(Min orReleaseN umber)'
				2891		,'$(Poi ntReleaseN umber)'
				2892		,0
				2893		,'$(Scr iptName)'
				2894		,'Scr ipt Starte d...'
				2895		,'AHOBP R'
				2896		,GETDAT E());
				2897
				2898		GO
				2899		---------- ---------- ---------- ---------- ---------- ----
				2900		PRINT 'Scr ipt starte d...';
				2901		PRINT GETD ATE();
				2902		GO
				2903		---------- ---------- ---------- ---------- ---------- ----
				2904		CREATE PRO CEDURE [AH OBPR].[SP_ GetJsonQue ueFollowup Row]
				2905		@j sonQueueFo llowupId INT
				2906		AS
				2907		BEGIN
				2908		SE T NOCOUNT ON;
				2909
				2910		SE LECT JSON_ QUEUE_FOLL OWUP_ID
				2911		, REGISTRAN T_JSON_FOL LOWUP_ID
				2912		F ROM AHOBPR .JSON_QUEU E_FOLLOWUP
				2913		WH ERE JSON_Q UEUE_FOLLO WUP_ID = @ jsonQueueF ollowupId;
				2914
				2915		END;
				2916
				2917		GO
				2918
				2919		UPDATE [d bo].[Datab aseChangeL og]
				2920		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				2921		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				2922		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				2923		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				2924		AND [S criptName] = '$(Scrip tName)'
				2925		AND Ta rgetRegist ry = 'AHOBPR' ;
				2926
				2927		GO
				2928		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				2929		WHERE Targ etRegistry = 'AHOBPR'
				2930		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				2931		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				2932		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				2933		AND [Scr iptName] = '$(Script Name)';
				2934
				2935		---------- ---------- ---------- ---------- ---------- ---------- -
				2936		---------- ---------- ---------- ---------- ---------- ---------- -
				2937		-- 2.0.8.1
				2938		---------- ---------- ---------- ---------- ---------- ---------- -
				2939
				2940		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				2941		:setvar Ma jorRelease Number "2"
				2942		:setvar Mi norRelease Number "0"
				2943		:setvar Po intRelease Number "8"
				2944		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.8.1.s ql"
				2945
				2946
				2947		PRINT '
				2948		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2949		$(ScriptNa me)
				2950
				2951		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				2952
				2953		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				2954		';
				2955		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				2956		PRINT '
				2957		******** ****** ****** ****** ****** *****
				2958		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				2959		******** ****** ****** ****** ****** *****
				2960
				2961		';
				2962		GO
				2963		:on error exit
				2964		GO
				2965		:setvar __ IsSqlCmdEn abled "Tru e"
				2966		/*
				2967		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				2968		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				2969		*/
				2970		SET NOEXEC OFF;
				2971		GO
				2972		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				2973		BEGIN
				2974		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				2975		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.
				2976		END
				2977
				2978		GO
				2979
				2980		USE [$(Dat abaseName) ]
				2981		GO
				2982		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				2983		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				2984		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				2985		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				2986		AND [Scr iptName] = ' $(ScriptNa me)')
				2987		BEGIN
				2988		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!' ,11
				2989		,1);
				2990		SET NOC OUNT ON;
				2991		SET NOE XEC ON;
				2992		END
				2993		ELSE
				2994		INSERT
				2995		INTO [ dbo].[Data baseChange Log]
				2996		([Major ReleaseNum ber]
				2997		,[Minor ReleaseNum ber]
				2998		,[Point ReleaseNum ber]
				2999		,[Hotfi x]
				3000		,[Scrip tName]
				3001		,[Scrip tDescripti on]
				3002		,[Targe tRegistry]
				3003		,[DateA pplied])
				3004		VAL UES
				3005		('$(Maj orReleaseN umber)'
				3006		,'$(Min orReleaseN umber)'
				3007		,'$(Poi ntReleaseN umber)'
				3008		,0
				3009		,'$(Scr iptName)'
				3010		,'Scr ipt Starte d...'
				3011		,'AHOBP R'
				3012		,GETDAT E());
				3013
				3014		GO
				3015
				3016		PRINT 'Ren ame [AHOBP R].[SP_Del eteOneRegi strant] to [SP_Delet eOneRegist rant_Pre_2 _0_8_1]... ';
				3017		GO
				3018		if exists (select * from sys.p rocedures where name = 'SP_Del eteOneRegi strant'
				3019		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				3020		)
				3021		begin
				3022		if exist s (select * from sys .procedure s where na me = 'SP_D eleteOneRe gistrant_P re_2_0_8_1 '
				3023		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR'))
				3024		drop p rocedure A HOBPR.SP_D eleteOneRe gistrant
				3025		else
				3026		exec s p_rename ' AHOBPR.SP_ DeleteOneR egistrant' , 'SP_Dele teOneRegis trant_Pre_ 2_0_8_1';
				3027		end
				3028		GO
				3029		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Del eteOneRegi strant]... ';
				3030		GO
				3031
				3032		CREATE PRO CEDURE [AH OBPR].[SP_ DeleteOneR egistrant]
				3033		@f irstName VARCHAR(50 ),
				3034		@l astName V ARCHAR(50)
				3035		AS
				3036
				3037		DECLARE @r egistrantI d int, @us erId varch ar(256)
				3038		BEGIN
				3039		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
				3040
				3041		DE LETE FROM [AHOBPR].[ REGISTRANT _JSON] WHE RE OBJECT_ ID = @user Id
				3042
				3043		DE LETE FROM [AHOBPR].[ REGISTRANT _JSON_FOLL OWUP] WHER E OBJECT_I D = @userI d
				3044
				3045		ex ec ahobpr. SP_DeleteR egistrantA ndResponse @registra ntId
				3046
				3047		END
				3048		GO
				3049		PRINT 'Ren ame [AHOBP R].[SP_Del eteRegistr antAndResp onse] to S P_DeleteRe gistrantAn dResponse_ Pre_2_0_8_ 1...';
				3050		GO
				3051		if exists (select * from sys.p rocedures where name = 'SP_Del eteRegistr antAndResp onse'
				3052		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				3053		)
				3054		begin
				3055		if exist s (select * from sys .procedure s where na me = 'SP_D eleteRegis trantAndRe sponse_Pre _2_0_8_1'
				3056		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR'))
				3057		drop p rocedure A HOBPR.SP_D eleteRegis trantAndRe sponse
				3058		else
				3059		exec s p_rename ' AHOBPR.SP_ DeleteRegi strantAndR esponse', 'SP_Delete Registrant AndRespons e_Pre_2_0_ 8_1';
				3060		end;
				3061		GO
				3062
				3063		-- ======= ========== ========== ========== ========
				3064		-- Author: Bruce Clegg
				3065		-- Create date: 4/24 /2015
				3066		-- Descrip tion: Call ed after l oading Res ponse
				3067		-- ======= ========== ========== ========== ========
				3068		CREATE PRO CEDURE [AH OBPR].[SP_ DeleteRegi strantAndR esponse]
				3069		@re gistrantId INT = NUL L
				3070		AS
				3071		BEGIN
				3072
				3073		DELETE F ROM AHOBPR .FORM_RESP ONSE_ANSWE R
				3074		WHERE FO RM_RESPONS E_ANSWER_I D IN
				3075		(
				3076		SELECT c.F ORM_RESPON SE_ANSWER_ ID
				3077		FROM AHO BPR.FORM_R ESPONSE r
				3078		JOIN AHO BPR.FORM_R ESPONSE_QU ESTION a O N r.FORM_R ESPONSE_ID = a.FORM_ RESPONSE_I D
				3079		JOIN AHO BPR.FORM_R ESPONSE_AN SWER c ON a.FORM_RES PONSE_QUES TION_ID = c.FORM_RES PONSE_QUES TION_ID
				3080		WHERE r. REGISTRANT _ID = @reg istrantId
				3081		) ;
				3082
				3083		DELETE F ROM AHOBPR .FORM_RESP ONSE_QUEST ION
				3084		WHERE FO RM_RESPONS E_QUESTION _ID IN
				3085		(
				3086		SELECT a.F ORM_RESPON SE_QUESTIO N_ID
				3087		FROM AHO BPR.FORM_R ESPONSE r
				3088		JOIN AHO BPR.FORM_R ESPONSE_QU ESTION a O N r.FORM_R ESPONSE_ID = a.FORM_ RESPONSE_I D
				3089		WHERE r. REGISTRANT _ID = @reg istrantId
				3090		) ;
				3091
				3092		DELETE F ROM AHOBPR .FORM_RESP ONSE_STATU S
				3093		WHERE FO RM_RESPONS E_STATUS_I D IN
				3094		(
				3095		SELECT a.F ORM_RESPON SE_STATUS_ ID
				3096		FROM AHO BPR.FORM_R ESPONSE r
				3097		JOIN AHO BPR.FORM_R ESPONSE_ST ATUS a ON r.FORM_RES PONSE_ID = a.FORM_RE SPONSE_ID
				3098		WHERE r. REGISTRANT _ID = @reg istrantId
				3099		) ;
				3100
				3101		DELETE F ROM AHOBPR .FORM_RESP ONSE
				3102		WH ERE REGIST RANT_ID = @registra ntId;
				3103
				3104		DELETE FROM AHOBP R.FOLLOWUP _FORM_RESP ONSE_ANSWE R
				3105		WHERE FO LLOWUP_FOR M_RESPONSE _ANSWER_ID IN
				3106		(
				3107		SELECT c.F OLLOWUP_FO RM_RESPONS E_ANSWER_I D
				3108		FROM AHO BPR.FOLLOW UP_FORM_RE SPONSE r
				3109		JOIN AHO BPR.FOLLOW UP_FORM_RE SPONSE_QUE STION a ON r.FOLLOWU P_FORM_RES PONSE_ID = a.FOLLOWU P_FORM_RES PONSE_ID
				3110		JOIN AHO BPR.FOLLOW UP_FORM_RE SPONSE_ANS WER c ON a .FOLLOWUP_ FORM_RESPO NSE_QUESTI ON_ID = c. FOLLOWUP_F ORM_RESPON SE_QUESTIO N_ID
				3111		WHERE r. REGISTRANT _ID = @reg istrantId
				3112		) ;
				3113
				3114		DELETE F ROM AHOBPR .FOLLOWUP_ FORM_RESPO NSE_QUESTI ON
				3115		WHERE FO LLOWUP_FOR M_RESPONSE _QUESTION_ ID IN
				3116		(
				3117		SELECT a.F OLLOWUP_FO RM_RESPONS E_QUESTION _ID
				3118		FROM AHO BPR.FOLLOW UP_FORM_RE SPONSE r
				3119		JOIN AHO BPR.FOLLOW UP_FORM_RE SPONSE_QUE STION a ON r.FOLLOWU P_FORM_RES PONSE_ID = a.FOLLOWU P_FORM_RES PONSE_ID
				3120		WHERE r. REGISTRANT _ID = @reg istrantId
				3121		) ;
				3122
				3123
				3124		DELETE F ROM AHOBPR .FOLLOWUP_ FORM_RESPO NSE
				3125		WH ERE REGIST RANT_ID = @registra ntId;
				3126
				3127		DELETE F ROM AHOBPR .REGISTRAN T_DEPLOYME NT
				3128		WH ERE REGIST RANT_ID = @registra ntId;
				3129
				3130		DELETE F ROM AHOBPR .REGISTRAN T_ADDRESS
				3131		WH ERE REGIST RANT_ID = @registra ntId;
				3132
				3133		DELETE F ROM AHOBPR .REGISTRAN T_PHONE
				3134		WH ERE REGIST RANT_ID = @registra ntId;
				3135
				3136		DELETE FROM AHOBP R.REGISTRA NT_EMAIL
				3137		WH ERE REGIST RANT_ID = @registra ntId;
				3138
				3139
				3140		DELETE F ROM AHOBPR .REGISTRAN T_CONTACT_ INFO
				3141		WH ERE REGIST RANT_ID = @registra ntId;
				3142
				3143		DELETE F ROM AHOBPR .REGISTRAN T_HEALTH_F ACTOR
				3144		WH ERE REGIST RANT_VISIT _ID IN
				3145		(SELEC T REGISTRA NT_VISIT_I D
				3146		FRO M AHOBPR.R EGISTRANT_ VISIT
				3147		WHER E REGISTRA NT_ID = @r egistrantI d);
				3148
				3149		DELETE F ROM AHOBPR .REGISTRAN T_VISIT
				3150		WH ERE REGIST RANT_ID = @registra ntId;
				3151
				3152		DELETE F ROM AHOBPR .REGISTRAN T_RECORD_I NFO
				3153		WH ERE REGIST RANT_ID = @registra ntId;
				3154
				3155		DELETE F ROM AHOBPR .REGISTRAN T_REGISTRY _FLAG
				3156		WH ERE REGIST RANT_ID = @registra ntId;
				3157
				3158		DELETE F ROM AHOBPR .REGISTRAN T_SERVICE_ EPISODE
				3159		WH ERE REGIST RANT_ID = @registra ntId;
				3160
				3161		DELETE F ROM AHOBPR .PROCESS_M ETRICS
				3162		WH ERE REGIST RANT_ID = @registra ntId;
				3163
				3164		DELETE F ROM AHOBPR .EMAIL_LOG
				3165		WH ERE REGIST RANT_ID = @registra ntId;
				3166
				3167		DELETE F ROM AHOBPR .REGISTRAN T
				3168		WH ERE REGIST RANT_ID = @registra ntId;
				3169		END;
				3170		-- EXECUTE [AHOBPR]. [SP_Delete Registrant AndRespons e] 140
				3171
				3172		GO
				3173
				3174		PRINT 'Ren ame [AHOBP R].[VIEW_L OOKUP] to [VIEW_LOOK UP_Pre_2_0 _8_1]...';
				3175		GO
				3176		if exists (select * from sys.v iews where name = 'V IEW_LOOKUP '
				3177		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				3178		)
				3179		begin
				3180		if exist s (select * from sys .views whe re name = 'VIEW_LOOK UP_Pre_2_0 _8_1'
				3181		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR'))
				3182		drop v iew AHOBPR .VIEW_LOOK UP
				3183		else
				3184		exec s p_rename ' AHOBPR.VIE W_LOOKUP', 'VIEW_LOO KUP_Pre_2_ 0_8_1';
				3185		end;
				3186		GO
				3187		PRINT 'CRE ATE VIEW [ AHOBPR].[V IEW_LOOKUP ]...';
				3188		GO
				3189
				3190		CREATE VIE W [AHOBPR] .[VIEW_LOO KUP] WITH SCHEMABIND ING AS
				3191		SELECT 'RE GISTRY_FLA G' AS LOOK UP_TYPE
				3192		,STD_RE GISTRY_FLA G_ID AS ID
				3193		,RE GISTRY_FLA G_NAME AS CODE
				3194		,RE GISTRY_FLA G_NAME AS NAME
				3195		,0 AS PARENT_ ID
				3196		,1 AS SORT_OR DER
				3197		FROM AHO BPR.STD_RE GISTRY_FLA G
				3198		WHERE STD _REGISTRY_ FLAG_ID > 0
				3199		UNION ALL
				3200		SELECT 'RE GISTRY_STA TUS' AS LO OKUP_TYPE
				3201		,STD_REGI STRANT_STA TUS_ID AS ID
				3202		,RE GISTRANT_S TATUS AS C ODE
				3203		,RE GISTRANT_S TATUS AS N AME
				3204		,0 AS PARENT_ ID
				3205		,OR DINAL_VALU E AS SORT_ ORDER
				3206		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				3207		WHERE STD _REGISTRAN T_STATUS_I D > 0
				3208		UNION ALL
				3209		SELECT 'RE GISTRY_FLA G_TYPE' AS LOOKUP_TY PE
				3210		,STD_REGI STRY_FLAG_ TYPE_ID AS ID
				3211		,RE GISTRY_FLA G_TYPE AS CODE
				3212		,RE GISTRY_FLA G_TYPE AS NAME
				3213		,0 AS PARENT_ ID
				3214		,1 AS SORT_OR DER
				3215		FROM AHO BPR.STD_RE GISTRY_FLA G_TYPE
				3216		UNION ALL
				3217		SELECT 'SU BPOPULATIO N_FLAG_ACT IVE' AS LO OKUP_TYPE
				3218		,STD_REGI STRY_FLAG_ ID AS ID
				3219		,RE GISTRY_FLA G_NAME AS CODE
				3220		,RE GISTRY_FLA G_NAME AS NAME
				3221		,0 AS PARENT_ ID
				3222		,1 AS SORT_OR DER
				3223		FROM AHOBP R.STD_REGI STRY_FLAG
				3224		WHERE ACTI VE_FLAG = 1 AND STD_ REGISTRY_F LAG_TYPE_I D = 2
				3225		UNION ALL
				3226		SELECT 'ST D_STATE' A S LOOKUP_T YPE
				3227		,ID
				3228		,PO STALNAME A S CODE
				3229		,PO STALNAME A S NAME
				3230		,0 AS PARENT_ ID
				3231		,1 AS SORT_OR DER
				3232		FROM DBO.S TD_STATE
				3233		WHERE COUN TRY_ID = 1 006840
				3234		AND POSTAL NAME IN (' AL', 'AK', 'AR', 'AZ ', 'CA', ' CO', 'CT', 'DE', 'FL ', 'GA', ' HI',
				3235		'IA', 'ID' , 'IL', 'I N', 'KS', 'KY', 'LA' , 'MA', 'M D', 'ME', 'MI', 'MN' , 'MO', 'M S',
				3236		'MT', 'NC' , 'ND', 'N E', 'NH', 'NJ', 'NM' , 'NV', 'N Y', 'OH', 'OK', 'OR' , 'PA', 'R I',
				3237		'SC', 'SD' , 'TN', 'T X', 'UT', 'VA', 'VT' , 'WA', 'W I', 'WV', 'WY', 'DC' , 'AS', 'G U', 'PR', 'VI', 'MP' , 'AA', 'A E', 'AP')
				3238		UNION ALL
				3239		SELECT 'ST D_STATE' A S LOOKUP_T YPE
				3240		,0
				3241		,'F oreign Cou ntry/Other ' AS CODE
				3242		,'F oreign Cou ntry/Other ' AS NAME
				3243		,0 AS PARENT_ ID
				3244		,99 99 AS SORT _ORDER
				3245		UNION ALL
				3246		SELECT 'AD MINTRACKIN G_FLAG_ACT IVE' AS LO OKUP_TYPE
				3247		,STD_REGI STRY_FLAG_ ID AS ID
				3248		,RE GISTRY_FLA G_NAME AS CODE
				3249		,RE GISTRY_FLA G_NAME AS NAME
				3250		,0 AS PARENT_ ID
				3251		,1 AS SORT_OR DER
				3252		FROM AHOBP R.STD_REGI STRY_FLAG
				3253		WHERE ACTI VE_FLAG = 1
				3254		AND STD_ REGISTRY_F LAG_TYPE_I D = 1
				3255		AND (PRE DEFINED = 0
				3256		OR (PRE DEFINED = 1 AND REGI STRY_FLAG_ NAME NOT L IKE 'Statu s Change: %'))
				3257		UNION ALL
				3258		SELECT 'ST D_SERVICE_ STATUS' AS LOOKUP_TY PE
				3259		,STD_SERV ICE_STATUS _ID As ID
				3260		,SE RVICE_STAT US AS CODE
				3261		,SE RVICE_STAT US AS NAME
				3262		,0 AS PARENT_ ID
				3263		,1 AS SORT_OR DER
				3264		FROM AHO BPR.STD_SE RVICE_STAT US
				3265		WHERE STD _SERVICE_S TATUS_ID > 0
				3266		UNION AL L
				3267		SELECT 'ST D_FORM_QUE STION' AS LOOKUP_TYP E
				3268		,STD_FO RM_QUESTIO N_ID As ID
				3269		,FO RM_QUESTIO N_UNIQUE_I D AS CODE
				3270		,FO RM_QUESTIO N_UNIQUE_I D AS NAME
				3271		,0 AS PARENT_ ID
				3272		,1 AS SORT_OR DER
				3273		FROM AHO BPR.STD_FO RM_QUESTIO N
				3274		UNION ALL
				3275		SELECT 'RE GISTRY_STA TUS_INELIG IBLE' AS L OOKUP_TYPE
				3276		,STD_REGI STRANT_STA TUS_ID AS ID
				3277		,RE GISTRANT_S TATUS AS C ODE
				3278		,RE GISTRANT_S TATUS AS N AME
				3279		,0 AS PARENT_ ID
				3280		,ST D_REGISTRA NT_STATUS_ ID AS SORT _ORDER
				3281		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				3282		WHERE ST D_REGISTRA NT_STATUS_ ID IN (3, 4, 5)
				3283		UNION ALL
				3284		SELECT 'RE GISTRY_STA TUS_REVIEW ED' AS LOO KUP_TYPE
				3285		,STD_REGI STRANT_STA TUS_ID AS ID
				3286		,RE GISTRANT_S TATUS AS C ODE
				3287		,RE GISTRANT_S TATUS AS N AME
				3288		,0 AS PARENT_ ID
				3289		,ST D_REGISTRA NT_STATUS_ ID AS SORT _ORDER
				3290		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				3291		WHERE ST D_REGISTRA NT_STATUS_ ID IN (5, 8)
				3292		UNION ALL
				3293		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				3294		,1 AS I D
				3295		,'A ll' AS COD E
				3296		,'A ll' AS NAM E
				3297		,0 AS PARENT_ ID
				3298		,1 AS SORT_OR DER
				3299		UNION ALL
				3300		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				3301		,2 AS I D
				3302		,'F acility' A S CODE
				3303		,'F acility' A S NAME
				3304		,0 AS PARENT_ ID
				3305		,2 AS SORT_OR DER
				3306		UNION ALL
				3307		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				3308		,3 AS I D
				3309		,'V ISN' AS CO DE
				3310		,'V ISN' AS NA ME
				3311		,0 AS PARENT_ ID
				3312		,3 AS SORT_OR DER
				3313		UNION ALL
				3314		SELECT 'SU BPOPULATIO N_FLAG_ALL ' AS LOOKU P_TYPE
				3315		,STD_RE GISTRY_FLA G_ID AS ID
				3316		,RE GISTRY_FLA G_NAME AS CODE
				3317		,RE GISTRY_FLA G_NAME AS NAME
				3318		,0 AS PARENT_ ID
				3319		,1 AS SORT_OR DER
				3320		FROM AHOBP R.STD_REGI STRY_FLAG
				3321		WHERE STD_ REGISTRY_F LAG_TYPE_I D = 2
				3322		UNION ALL
				3323		SELECT 'AD MIN_FLAG_A LL' AS LOO KUP_TYPE
				3324		,STD_RE GISTRY_FLA G_ID AS ID
				3325		,RE GISTRY_FLA G_NAME AS CODE
				3326		,RE GISTRY_FLA G_NAME AS NAME
				3327		,0 AS PARENT_ ID
				3328		,1 AS SORT_OR DER
				3329		FROM AHOBP R.STD_REGI STRY_FLAG
				3330		WHERE STD_ REGISTRY_F LAG_TYPE_I D = 1
				3331		UNION ALL
				3332		SELECT 'HE ALTH_FACTO R' AS LOOK UP_TYPE
				3333		,A.[STD _HEALTH_FA CTOR_ID] A S ID
				3334		,A. [NAME] AS CODE
				3335		,B. [DESCRIPTI ON] + ': ' + A.DESCR IPTION AS NAME
				3336		,0 AS PARENT_ ID
				3337		,1 AS SORT_OR DER
				3338		FROM [AH OBPR].[STD _HEALTH_FA CTOR] A IN NER JOIN [ AHOBPR].[S TD_HEALTH_ FACTOR_CAT EGORY] B O N A.STD_HE ALTH_FACTO R_CATEGORY _ID = B.ST D_HEALTH_F ACTOR_CATE GORY_ID
				3339		UNION ALL
				3340		SELECT DIS TINCT 'DEP LOYMENT_CO UNTRY' AS LOOKUP_TYP E
				3341		,0 AS I D
				3342		,[D EPLOYMENT_ COUNTRY] A S CODE
				3343		,[D EPLOYMENT_ COUNTRY] A S NAME
				3344		,0 AS PARENT_ ID
				3345		,1 AS SORT_OR DER
				3346		FROM [AH OBPR].[REG ISTRANT_DE PLOYMENT]
				3347		UNION ALL
				3348		SELECT DIS TINCT 'DEP LOYMENT_CO UNTRY_EXPO SURE' AS L OOKUP_TYPE
				3349		,0 AS I D
				3350		,[D EPLOYMENT_ COUNTRY] A S CODE
				3351		,[D EPLOYMENT_ COUNTRY] A S NAME
				3352		,0 AS PARENT_ ID
				3353		,1 AS SORT_OR DER
				3354		FROM [AH OBPR].[REG ISTRANT_DE PLOYMENT] A JOIN AHO BPR.FORM_R ESPONSE_QU ESTION B
				3355		ON A.REGISTR ANT_DEPLOY MENT_ID = B.REGISTRA NT_DEPLOYM ENT_ID
				3356		UN ION ALL
				3357		SELECT 'ST D_RACE' AS LOOKUP_TY PE
				3358		,ID
				3359		,DE SCRIPTION AS CODE
				3360		,DE SCRIPTION AS NAME
				3361		,0 AS PARENT_ ID
				3362		,1 AS SORT_OR DER
				3363		FROM AHOBP R.VIEW_ETL _LOOKUP
				3364		WHERE TYPE = 'STD_RA CE'
				3365		AND ID > 0
				3366		UNION ALL
				3367		SELECT 'ST D_GENDER' AS LOOKUP_ TYPE
				3368		,ID
				3369		,DE SCRIPTION AS CODE
				3370		,DE SCRIPTION AS NAME
				3371		,0 AS PARENT_ ID
				3372		,1 AS SORT_OR DER
				3373		FROM AHOBP R.VIEW_ETL _LOOKUP
				3374		WHERE TYPE = 'STD_GE NDER'
				3375		AND ID > 0
				3376		UNION ALL
				3377		SELECT 'ST D_SEPARATI ONFAMILY' AS LOOKUP_ TYPE
				3378		,[ STD_SEPARA TION_FAMIL Y_ID] AS I D
				3379		,[ FAMILY_COD E] AS CODE
				3380		,[ FAMILY] A S NAME
				3381		,0 AS PARENT _ID
				3382		,1 AS SORT_O RDER
				3383		FROM AH OBPR.STD_S EPARATION_ FAMILY
				3384		WHERE [ STD_SEPARA TION_FAMIL Y_ID] > 0
				3385		UNION ALL
				3386		SELECT 'S TD_SEPARAT IONREASON' AS LOOKUP _TYPE
				3387		,[ STD_SEPARA TION_REASO N_ID] AS I D
				3388		,[ REASON_COD E] AS CODE
				3389		,[ REASON] AS NAME
				3390		,0 AS PARENT _ID
				3391		,1 AS SORT_O RDER
				3392		FROM AH OBPR.STD_S EPARATION_ REASON
				3393		WHERE [ STD_SEPARA TION_REASO N_ID] > 0
				3394		UNION ALL
				3395		SELECT 'ST D_ELIGIBLI TYSTATUS' AS LOOKUP_ TYPE
				3396		,ID
				3397		,DE SCRIPTION AS CODE
				3398		,DE SCRIPTION AS NAME
				3399		,0 AS PARENT_ ID
				3400		,1 AS SORT_OR DER
				3401		FROM AHOBP R.VIEW_ETL _LOOKUP
				3402		WHERE TYPE = 'STD_EL IGIBLITYST ATUS'
				3403		AND ID > 0
				3404		UNION ALL
				3405		SELECT 'ST D_ETHNICIT Y' AS LOOK UP_TYPE
				3406		,ID
				3407		,DE SCRIPTION AS CODE
				3408		,DE SCRIPTION AS NAME
				3409		,0 AS PARENT_ ID
				3410		,1 AS SORT_OR DER
				3411		FROM AHOBP R.VIEW_ETL _LOOKUP
				3412		WHERE TYPE = 'STD_ET HNICITY'
				3413		AND ID > 0
				3414		UNION ALL
				3415		SELECT 'S TD_CHARACT EROFSERVIC E' AS LOOK UP_TYPE
				3416		,STD_DI SCHARGE_CH ARACTER_ID As ID
				3417		,DI SCHARGE_CH ARACTER_CO DE AS CODE
				3418		,DI SCHARGE_CH ARACTER AS NAME
				3419		,0 AS PARENT_ ID
				3420		,1 AS SORT_OR DER
				3421		FROM AHO BPR.STD_DI SCHARGE_CH ARACTER
				3422		UNION ALL
				3423		SELECT 'TE MPLATE_MES SAGE_TITLE ' AS LOOKU P_TYPE
				3424		,TEMPLATE _ID AS ID
				3425		,TI TLE AS COD E
				3426		,TI TLE AS NAM E
				3427		,0 AS PARENT_ ID
				3428		,1 AS SORT_OR DER
				3429		FROM AHO BPR.EMAIL_ TEMPLATES
				3430		WHERE AC TIVE = 'Tr ue'
				3431		UNION ALL
				3432		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				3433		,2 As I D,'multipl eChoice' A S CODE,'Dr opdown Lis t - Multip le Choice' AS NAME,0 AS PARENT _ID,1 AS S ORT_ORDER
				3434		UNION ALL
				3435		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				3436		,1 As I D,'multiSe lect' AS C ODE,'Check boxes - Mu ltiple Sel ect' AS NA ME,0 AS PA RENT_ID,2 AS SORT_OR DER
				3437		UNION ALL
				3438		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				3439		,3 As I D,'text' A S CODE,'Ra dio Button s with Fre e Text' AS NAME,0 AS PARENT_ID ,3 AS SORT _ORDER
				3440		UNION ALL
				3441		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				3442		,4 As I D,'number' AS CODE,' Radio Butt ons with N umeric Val ue' AS NAM E,0 AS PAR ENT_ID,4 A S SORT_ORD ER
				3443		UNION ALL
				3444		SELECT 'FO LLOWUP_QUE STION_GROU P_LIST' AS LOOKUP_TY PE
				3445		,STD_FORM _ID AS ID
				3446		,NA ME AS CODE
				3447		,NA ME AS NAME
				3448		,0 AS PARENT_ ID
				3449		,1 AS SORT_OR DER
				3450		FROM AHO BPR.STD_FO RM
				3451		WHERE FO LLOWUP_FLA G = 1
				3452		UNION AL L
				3453		SELECT DIS TINCT 'CON TACT_PREFE RENCE' AS LOOKUP_TYP E
				3454		,0 AS I D
				3455		,[C ONTACT_PRE FERENCE] A S CODE
				3456		,[C ONTACT_PRE FERENCE] A S NAME
				3457		,0 AS PARENT_ ID
				3458		,1 AS SORT_OR DER
				3459		FROM [AH OBPR].[REG ISTRANT]
				3460		WHERE CO NTACT_PREF ERENCE > ' '
				3461
				3462		-- select * from [A HOBPR].[VI EW_LOOKUP]
				3463
				3464		GO
				3465
				3466		UPDATE [d bo].[Datab aseChangeL og]
				3467		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				3468		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				3469		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				3470		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				3471		AND [S criptName] = '$(Scrip tName)'
				3472		AND Ta rgetRegist ry = 'AHOBPR' ;
				3473
				3474		GO
				3475		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				3476		WHERE Targ etRegistry = 'AHOBPR'
				3477		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				3478		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				3479		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				3480		AND [Scr iptName] = '$(Script Name)';
				3481
				3482		go
				3483		---------- ---------- ---------- ---------- ---------- ---------- -
				3484		---------- ---------- ---------- ---------- ---------- ---------- -
				3485		-- 2.0.9.1
				3486		---------- ---------- ---------- ---------- ---------- ---------- ---
				3487		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				3488		:setvar Ma jorRelease Number "2"
				3489		:setvar Mi norRelease Number "0"
				3490		:setvar Po intRelease Number "9"
				3491		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.9.1.s ql"
				3492
				3493		PRINT '
				3494		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				3495		$(ScriptNa me)
				3496
				3497		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				3498
				3499		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				3500		';
				3501		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				3502		PRINT '
				3503		******** ****** ****** ****** ****** *****
				3504		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				3505		******** ****** ****** ****** ****** *****
				3506
				3507		';
				3508		GO
				3509		:on error exit
				3510		GO
				3511		:setvar __ IsSqlCmdEn abled "Tru e"
				3512		/*
				3513		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				3514		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				3515		*/
				3516		SET NOEXEC OFF;
				3517		GO
				3518		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				3519		BEGIN
				3520		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				3521		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.
				3522		END
				3523
				3524		GO
				3525
				3526		USE [$(Dat abaseName) ]
				3527		GO
				3528		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				3529		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				3530		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				3531		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				3532		AND [Scr iptName] = ' $(ScriptNa me)')
				3533		BEGIN
				3534		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!' ,11
				3535		,1);
				3536		SET NOC OUNT ON;
				3537		SET NOE XEC ON;
				3538		END
				3539		ELSE
				3540		INSERT
				3541		INTO [ dbo].[Data baseChange Log]
				3542		([Major ReleaseNum ber]
				3543		,[Minor ReleaseNum ber]
				3544		,[Point ReleaseNum ber]
				3545		,[Hotfi x]
				3546		,[Scrip tName]
				3547		,[Scrip tDescripti on]
				3548		,[Targe tRegistry]
				3549		,[DateA pplied])
				3550		VAL UES
				3551		('$(Maj orReleaseN umber)'
				3552		,'$(Min orReleaseN umber)'
				3553		,'$(Poi ntReleaseN umber)'
				3554		,0
				3555		,'$(Scr iptName)'
				3556		,'Scr ipt Starte d...'
				3557		,'AHOBP R'
				3558		,GETDAT E());
				3559
				3560		GO
				3561		--DELETE F ROM AHOBPR .EMAIL_LOG WHERE TEM PLATE_ID I N (SELECT TEMPLATE_I D FROM [AH OBPR].[EMA IL_TEMPLAT ES] WHERE SUBJECT = 'New Follo w-up Quest ions')
				3562		--DELETE F ROM [AHOBP R].[EMAIL_ TEMPLATES] WHERE SUB JECT = 'Ne w Follow-u p Question s';
				3563		WITH
				3564		Src AS
				3565		( SELECT *
				3566		FROM ( VALUES
				3567		('New Fol low-up Que stions', ' New Follow -up Questi ons'
				3568		,'Hello { REGISTRANT NAME},{NEW LINE}{NEWL INE}Thank you for pa rticipatin g in the A irborne Ha zards and Open Burn Pit Regist ry. After reviewing your quest ionnaire, the Depart ment of Ve terans Aff airs would like to a sk some ad ditional f ollow-up q uestions. Your respo nses will be used to further a ssist VA i n carrying out valua ble resear ch related to the he alth effec ts of airb orne hazar ds on Vete rans and S ervicememb ers. At your earli est conven ience, ple ase log in to the reg istry port al and com plete the additional questionn aire(s).{N EWLINE}{NE WLINE}1. G o to AHOBP R (https:/ /veteran.m obilehealt h.va.gov/A HBurnPitRe gistry/){N EWLINE}2. Click (4) Follow up Questions {NEWLINE}3 . Select Question g roup{NEWLI NE}4. Com plete the questions{ NEWLINE}5. Click su bmit{NEWLI NE}{NEWLIN E}Repeat 3 thru 5 un til all qu estion gro ups are co mpleted. { NEWLINE}{N EWLINE}If you have q uestions o r concerns , please c ontact the Registry Help Desk at 1-877-4 70-5947.{N EWLINE}{NE WLINE}Than k you for participat ing in the Airborne Hazards an d Open Bur n Pit Regi srty.'
				3569		,0 ,'AHOB PR' ,'AHOB PR' ,GETDA TE(),GETDA TE(),1 ,1) ) value([T ITLE],[SUB JECT],[BOD Y],[ACTIVE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED],[EMA IL],[NOTIF ICATION])
				3570		)
				3571		MERGE
				3572		INTO [AH OBPR].[EMA IL_TEMPLAT ES] Tgt
				3573		USING Sr c
				3574		ON Sr c.SUBJECT = Tgt.SUBJ ECT
				3575		WHEN MA TCHED
				3576		AN D ( Src.BO DY != Tgt. BODY
				3577		O R Src.[TIT LE] != Tgt .[TITLE]
				3578		O R Src.ACTI VE != Tgt. ACTIVE
				3579		)
				3580		THEN UP DATE
				3581		SE T [TITLE] = Src.[TI TLE]
				3582		,[SUBJEC T] = Src.[ SUBJECT]
				3583		,[BODY] = Src.[BOD Y]
				3584		,[ACTIVE ] = Src.[A CTIVE]
				3585		,[CREATE DBY] = Src .[CREATEDB Y]
				3586		,[UPDATE DBY] = Src .[UPDATEDB Y]
				3587		,[CREATE D] = Src.[ CREATED]
				3588		,[UPDATE D] = Src.[ UPDATED]
				3589		,[EMAIL] = Src.[EM AIL]
				3590		,[NOTIFI CATION] = Src.[NOTIF ICATION]
				3591		WHEN NOT MATCHED B Y TARGET
				3592		THEN INS ERT
				3593		([ TITLE],[SU BJECT],[BO DY],[ACTIV E],[CREATE DBY],[UPDA TEDBY],[CR EATED],[UP DATED],[EM AIL],[NOTI FICATION])
				3594		VA LUES
				3595		(S rc.[TITLE] ,Src.[SUBJ ECT],Src.[ BODY],Src. [ACTIVE],S rc.[CREATE DBY],Src.[ UPDATEDBY] ,Src.[CREA TED],Src.[ UPDATED]
				3596		,S rc.[EMAIL] ,Src.[NOTI FICATION]) ;
				3597
				3598		IF @@ROWCO UNT > 0
				3599		DELETE F ROM AHOBPR .EMAIL_LOG WHERE TEM PLATE_ID I N (SELECT TEMPLATE_I D FROM [AH OBPR].[EMA IL_TEMPLAT ES] WHERE SUBJECT = 'New Follo w-up Quest ions');
				3600
				3601		--GO
				3602		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Get FailedtoSe ndQuestion s]...';
				3603		GO
				3604
				3605		CREATE PRO CEDURE [AH OBPR].[SP_ GetFailedt oSendQuest ions]
				3606		AS
				3607
				3608		BEGIN
				3609		SE LECT A.REG ISTRANT_ID
				3610		, (I SNULL(A.LA ST_NAME,'{ Last Name Not Found} ') + ISNUL L(', ' + A .FIRST_NAM E,'')) AS REGISTRANT _NAME
				3611		, C. NAME AS FO LLOW_UP_GR OUP
				3612		, B. CREATED AS DATE_FAIL ED
				3613		, C. STD_FORM_I D
				3614		FR OM AHOBPR. REGISTRANT A
				3615		JOIN AHO BPR.FOLLOW UP_FORM_RE SPONSE B
				3616		ON A.R EGISTRANT_ ID = B.REG ISTRANT_ID
				3617		JOIN AHO BPR.STD_FO RM C
				3618		ON B.S TD_FORM_ID = C.STD_F ORM_ID
				3619		WH ERE B.COMP LETED_DATE IS NULL
				3620		AND NOT EXISTS
				3621		(
				3622		SELECT 'X'
				3623		FROM A HOBPR.REGI STRANT_JSO N_FOLLOWUP D
				3624		WHERE D.OBJECT_T YPE = 'use r_form'
				3625		AND D.OB JECT_ID = A.USER_ID
				3626		AN D D.INSTAN CE_ID = C. BPR_FORM_I D
				3627		)
				3628
				3629
				3630		END;
				3631
				3632		-- Test Ca ses
				3633		-- exec [A HOBPR].[SP _GetFailed toSendQues tions]
				3634
				3635		GO
				3636		UPDATE [d bo].[Datab aseChangeL og]
				3637		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				3638		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				3639		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				3640		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				3641		AND [S criptName] = '$(Scrip tName)'
				3642		AND Ta rgetRegist ry = 'AHOBPR' ;
				3643
				3644		GO
				3645		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				3646		WHERE Targ etRegistry = 'AHOBPR'
				3647		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				3648		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				3649		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				3650		AND [Scr iptName] = '$(Script Name)';
				3651		go
				3652		---------- ---------- ---------- ---------- ---------- ---
				3653		---------- ---------- ---------- ---------- ---------- ---
				3654		-- 2.0.9.2
				3655		---------- ---------- ---------- ---------- ---------- ---
				3656		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				3657		:setvar Ma jorRelease Number "2"
				3658		:setvar Mi norRelease Number "0"
				3659		:setvar Po intRelease Number "9"
				3660		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.9.2.s ql"
				3661
				3662		PRINT '
				3663		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				3664		$(ScriptNa me)
				3665
				3666		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				3667
				3668		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				3669		';
				3670		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				3671		PRINT '
				3672		******** ****** ****** ****** ****** *****
				3673		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				3674		******** ****** ****** ****** ****** *****
				3675
				3676		';
				3677		GO
				3678		:on error exit
				3679		GO
				3680		:setvar __ IsSqlCmdEn abled "Tru e"
				3681		/*
				3682		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				3683		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				3684		*/
				3685		SET NOEXEC OFF;
				3686		GO
				3687		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				3688		BEGIN
				3689		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				3690		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.
				3691		END
				3692
				3693		GO
				3694
				3695		USE [$(Dat abaseName) ]
				3696		GO
				3697		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				3698		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				3699		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				3700		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				3701		AND [Scr iptName] = ' $(ScriptNa me)')
				3702		BEGIN
				3703		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!' ,11
				3704		,1);
				3705		SET NOC OUNT ON;
				3706		SET NOE XEC ON;
				3707		END
				3708		ELSE
				3709		INSERT
				3710		INTO [ dbo].[Data baseChange Log]
				3711		([Major ReleaseNum ber]
				3712		,[Minor ReleaseNum ber]
				3713		,[Point ReleaseNum ber]
				3714		,[Hotfi x]
				3715		,[Scrip tName]
				3716		,[Scrip tDescripti on]
				3717		,[Targe tRegistry]
				3718		,[DateA pplied])
				3719		VAL UES
				3720		('$(Maj orReleaseN umber)'
				3721		,'$(Min orReleaseN umber)'
				3722		,'$(Poi ntReleaseN umber)'
				3723		,0
				3724		,'$(Scr iptName)'
				3725		,'Scr ipt Starte d...'
				3726		,'AHOBP R'
				3727		,GETDAT E());
				3728
				3729		GO
				3730
				3731		PRINT N'Cr eating [AH OBPR].[REG ISTRANT_JS ON_SQL20]. ..';
				3732
				3733
				3734		GO
				3735		IF NOT EXI STS(select * from sy s.tables w here name = 'REGISTR ANT_JSON_S QL20'
				3736		AND sc hema_id = (SELECT sc hema_id FR OM sys.sch emas WHERE name = 'A HOBPR')
				3737		)
				3738		CREATE TAB LE [AHOBPR ].[REGISTR ANT_JSON_S QL20] (
				3739		[REGIS TRANT_JSON _SQL20_ID] INT IDENT ITY (1, 1) NOT NULL,
				3740		[REGIS TRANT_JSON _ID] INT NOT N ULL,
				3741		[CREAT ED] DATETIME2 (0) NOT N ULL,
				3742		CONSTR AINT [REGI STRANT_JSO N_SQL20_PK ] PRIMARY KEY CLUSTE RED ([REGI STRANT_JSO N_SQL20_ID ] ASC) ON [AHOBPR]
				3743		);
				3744
				3745
				3746		GO
				3747		IF EXISTS (select * from sys.c olumns c join sys. objects o on o.objec t_id = c.o bject_id
				3748		where c. name = 'Pa tientSID'
				3749		AND o.n ame = 'STA GED_VISIT'
				3750		AND sys tem_type_i d = 56
				3751		AND sch ema_id = ( SELECT sch ema_id FRO M sys.sche mas WHERE name = 'AH OBPR') --1 27 (56) bi gint max_l ength=8 (4 )
				3752		)
				3753		TRUNCATE TABLE [AH OBPR].[STA GED_VISIT] ;
				3754
				3755		PRINT N'Dr opping on [AHOBPR].[ REGISTRANT _HEALTH_FA CTOR].[ACT IVE_FLAG]. ..';
				3756
				3757
				3758		GO
				3759
				3760		IF exists (select * from sys.d efault_con straints w here is_sy stem_named = 1
				3761		AND pa rent_objec t_id = (se lect objec t_id from sys.object s where na me = 'REGI STRANT_HEA LTH_FACTOR ')
				3762		AND sch ema_id = ( SELECT sch ema_id FRO M sys.sche mas WHERE name = 'AH OBPR')
				3763		and par ent_column _id = (sel ect column _id from s ys.columns where nam e = 'ACTIV E_FLAG'
				3764		and object_id = (select object_id from sys.o bjects whe re name = 'REGISTRAN T_HEALTH_F ACTOR')
				3765		)
				3766		)
				3767		BEGIN
				3768		DECLARE @Command n varchar(10 00);
				3769		SET @Com mand = 'AL TER TABLE [AHOBPR].[ REGISTRANT _HEALTH_FA CTOR] DROP CONSTRAIN T '
				3770		+ (s elect name from sys. default_co nstraints
				3771		wh ere is_sys tem_named = 1
				3772		AND parent _object_id = (select object_id from sys. objects wh ere name = 'REGISTRA NT_HEALTH_ FACTOR')
				3773		AND schema _id = (SEL ECT schema _id FROM s ys.schemas WHERE nam e = 'AHOBP R')
				3774		and parent _column_id = (select column_id from sys. columns wh ere name = 'ACTIVE_F LAG'
				3775		and obje ct_id = (s elect obje ct_id from sys.objec ts where n ame = 'REG ISTRANT_HE ALTH_FACTO R')
				3776		)
				3777		);
				3778		EXEC (@C ommand);
				3779		END;
				3780
				3781
				3782		GO
				3783		PRINT N'St arting reb uilding ta ble [AHOBP R].[JSON_Q UEUE_STATU S]...';
				3784
				3785
				3786		GO
				3787		BEGIN TRAN SACTION;
				3788
				3789		SET TRANSA CTION ISOL ATION LEVE L SERIALIZ ABLE;
				3790
				3791		SET XACT_A BORT ON;
				3792
				3793		CREATE TAB LE [AHOBPR ].[tmp_ms_ xx_JSON_QU EUE_STATUS ] (
				3794		[JSON_ QUEUE_STAT US_ID] IN T IDENTIT Y (1, 1) N OT NULL,
				3795		[JSON_ QUEUE_ID] IN T NOT NUL L,
				3796		[REGIS TRANT_JSON _ID] IN T NOT NUL L,
				3797		[PROCE SS_START_D ATE] DA TETIME2 (0 ) NULL,
				3798		[PROCE SS_COMPLET E_DATE] DA TETIME2 (0 ) NULL,
				3799		[PROCE SS_STATUS] VA RCHAR (100 ) NULL,
				3800		[PROCE SS_ERROR] VA RCHAR (400 0) NULL,
				3801		[ROW_V ERSION] RO WVERSION NOT NUL L,
				3802		[CREAT EDBY] VA RCHAR (30) NOT NUL L,
				3803		[UPDAT EDBY] VA RCHAR (30) NOT NUL L,
				3804		[CREAT ED] DA TETIME2 (0 ) NOT NUL L,
				3805		[UPDAT ED] DA TETIME2 (0 ) NOT NUL L,
				3806		CONSTR AINT [tmp_ ms_xx_cons traint_JSO N_QUEUE_ST ATUS_PK] P RIMARY KEY CLUSTERED ([JSON_QU EUE_STATUS _ID] ASC) ON [AHOBPR ]
				3807		);
				3808
				3809		IF EXISTS (SELECT TO P 1 1
				3810		FROM [A HOBPR].[JS ON_QUEUE_S TATUS])
				3811		BEGIN
				3812		SE T IDENTITY _INSERT [A HOBPR].[tm p_ms_xx_JS ON_QUEUE_S TATUS] ON;
				3813		IN SERT INTO [AHOBPR].[ tmp_ms_xx_ JSON_QUEUE _STATUS] ( [JSON_QUEU E_STATUS_I D], [JSON_ QUEUE_ID], [REGISTRA NT_JSON_ID ], [PROCES S_START_DA TE], [PROC ESS_COMPLE TE_DATE], [PROCESS_S TATUS], [P ROCESS_ERR OR], [CREA TEDBY], [U PDATEDBY], [CREATED] , [UPDATED ])
				3814		SE LECT [JS ON_QUEUE_S TATUS_ID],
				3815		[JS ON_QUEUE_I D],
				3816		[RE GISTRANT_J SON_ID],
				3817		[PR OCESS_STAR T_DATE],
				3818		[PR OCESS_COMP LETE_DATE] ,
				3819		[PR OCESS_STAT US],
				3820		[PR OCESS_ERRO R],
				3821		[CR EATEDBY],
				3822		[UP DATEDBY],
				3823		[CR EATED],
				3824		[UP DATED]
				3825		FR OM [AH OBPR].[JSO N_QUEUE_ST ATUS]
				3826		OR DER BY [JS ON_QUEUE_S TATUS_ID] ASC;
				3827		SE T IDENTITY _INSERT [A HOBPR].[tm p_ms_xx_JS ON_QUEUE_S TATUS] OFF ;
				3828
				3829		DR OP TABLE [ AHOBPR].[J SON_QUEUE_ STATUS];
				3830		END
				3831
				3832		EXECUTE sp _rename N' [AHOBPR].[ tmp_ms_xx_ JSON_QUEUE _STATUS]', N'JSON_QU EUE_STATUS ';
				3833
				3834		EXECUTE sp _rename N' [AHOBPR].[ tmp_ms_xx_ constraint _JSON_QUEU E_STATUS_P K]', N'JSO N_QUEUE_ST ATUS_PK', N'OBJECT';
				3835
				3836		COMMIT TRA NSACTION;
				3837
				3838		SET TRANSA CTION ISOL ATION LEVE L READ COM MITTED;
				3839
				3840
				3841		GO
				3842		PRINT N'Al tering [AH OBPR].[STA GED_PATIEN T]...';
				3843
				3844
				3845		GO
				3846		SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF;
				3847
				3848
				3849		GO
				3850		ALTER TABL E [AHOBPR] .[STAGED_P ATIENT] AL TER COLUMN [ExtractB atchID] BI GINT NULL;
				3851
				3852		ALTER TABL E [AHOBPR] .[STAGED_P ATIENT] AL TER COLUMN [PatientS ID] BIGINT NULL;
				3853
				3854
				3855		GO
				3856		SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON;
				3857
				3858
				3859		GO
				3860		PRINT N'Al tering [AH OBPR].[STA GED_VISIT] ...';
				3861
				3862
				3863		GO
				3864		SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF;
				3865
				3866
				3867		GO
				3868		IF EXISTS (select * from sys.c olumns whe re name = 'STOP_CODE 2'
				3869		AND object _id = (sel ect object _id from s ys.objects where nam e = 'STAGE D_VISIT')
				3870		)
				3871		ALTER TA BLE [AHOBP R].[STAGED _VISIT] DR OP COLUMN [STOP_CODE 2], COLUMN [STOP_COD E2_SID];
				3872
				3873
				3874		GO
				3875		ALTER TABL E [AHOBPR] .[STAGED_V ISIT] ALTE R COLUMN [ PatientICN ] VARCHAR (50) NOT N ULL;
				3876		GO
				3877		ALTER TABL E [AHOBPR] .[STAGED_V ISIT] ALTE R COLUMN [ PatientSID ] BIGINT N OT NULL;
				3878
				3879
				3880		GO
				3881		SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON;
				3882
				3883
				3884		GO
				3885		PRINT N'Cr eating [AH OBPR].[STA GED_DOD_DE PLOYMENT_I MPORT]...' ;
				3886
				3887
				3888		GO
				3889		SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF;
				3890
				3891
				3892		GO
				3893		IF NOT EXI STS (selec t * from s ys.tables where name = 'STAGED _DOD_DEPLO YMENT_IMPO RT' AND sc hema_id = (SELECT sc hema_id FR OM sys.sch emas WHERE name = 'A HOBPR')
				3894		)
				3895		CREATE TAB LE [AHOBPR ].[STAGED_ DOD_DEPLOY MENT_IMPOR T] (
				3896		[DEPLO YMENT_ID] INT IDENTI TY (1, 1) NOT NULL,
				3897		[EDIPI ] VARCHAR ( 10) NULL,
				3898		[SVC] VARCHAR ( 15) NULL,
				3899		[COMPO ] VARCHAR ( 10) NULL,
				3900		[LOCAT ION] VARCHAR ( 2) NULL,
				3901		[DEP_B GN_CDT] VARCHAR ( 10) NULL,
				3902		[DEP_E ND_CDT] VARCHAR ( 10) NULL,
				3903		[LOC_B EGIN_DATE] VARCHAR ( 10) NULL,
				3904		[LOC_E ND_DATE] VARCHAR ( 10) NULL,
				3905		[GRADE ] VARCHAR ( 4) NULL,
				3906		[PN_SE X_CD] VARCHAR ( 50) NULL,
				3907		[MRTL_ STAT_CD] VARCHAR ( 50) NULL,
				3908		[EDU_L VL_CD] VARCHAR ( 50) NULL,
				3909		[RACE_ CD] VARCHAR ( 50) NULL,
				3910		[ETH_A FF_CD] VARCHAR ( 50) NULL,
				3911		[DTY_D OD_OCC_CD] VARCHAR ( 50) NULL,
				3912		[Servi ce] VARCHAR ( 50) NULL,
				3913		[Compo nent] VARCHAR ( 50) NULL
				3914		) ON [AHOB PR];
				3915
				3916
				3917		GO
				3918		SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON;
				3919
				3920
				3921		GO
				3922		PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _QUESTION] .[IX_FORM_ RESPONSE_Q UESTION_De ploymentID ]...';
				3923
				3924
				3925		GO
				3926		if not exi sts (selec t * from s ys.indexes where nam e = 'IX_FO RM_RESPONS E_QUESTION _Deploymen tID')
				3927		CREATE NON CLUSTERED INDEX [IX_ FORM_RESPO NSE_QUESTI ON_Deploym entID]
				3928		ON [AH OBPR].[FOR M_RESPONSE _QUESTION] ([REGISTRA NT_DEPLOYM ENT_ID] AS C)
				3929		INCLUD E([FORM_RE SPONSE_QUE STION_ID], [FORM_RES PONSE_ID], [STD_FORM _QUESTION_ ID]);
				3930
				3931
				3932		GO
				3933		PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _QUESTION] .[IX_FORM_ RESPONSE_Q UESTION_Fo rmResponse Id]...';
				3934
				3935
				3936		GO
				3937		if not exi sts (selec t * from s ys.indexes where nam e = 'IX_FO RM_RESPONS E_QUESTION _FormRespo nseId')
				3938		CREATE NON CLUSTERED INDEX [IX_ FORM_RESPO NSE_QUESTI ON_FormRes ponseId]
				3939		ON [AH OBPR].[FOR M_RESPONSE _QUESTION] ([FORM_RES PONSE_ID] ASC)
				3940		INCLUD E([STD_FOR M_QUESTION _ID]);
				3941
				3942
				3943		GO
				3944		PRINT N'Cr eating [AH OBPR].[FOR M_RESPONSE _QUESTION] .[IX_FORM_ RESPONSE_Q UESTION_St dFormQuest ionId]...' ;
				3945
				3946
				3947		GO
				3948		if not exi sts (selec t * from s ys.indexes where nam e = 'IX_FO RM_RESPONS E_QUESTION _StdFormQu estionId')
				3949		CREATE NON CLUSTERED INDEX [IX_ FORM_RESPO NSE_QUESTI ON_StdForm QuestionId ]
				3950		ON [AH OBPR].[FOR M_RESPONSE _QUESTION] ([FORM_RES PONSE_ID] ASC, [STD_ FORM_QUEST ION_ID] AS C)
				3951		INCLUD E([FORM_RE SPONSE_QUE STION_ID]) ;
				3952
				3953
				3954		GO
				3955		PRINT N'Cr eating [AH OBPR].[REG ISTRANT].[ IX_REGISTR ANT_StdIns titutionId ]...';
				3956
				3957
				3958		GO
				3959		if not exi sts (selec t * from s ys.indexes where nam e = 'IX_RE GISTRANT_S tdInstitut ionId')
				3960		CREATE NON CLUSTERED INDEX [IX_ REGISTRANT _StdInstit utionId]
				3961		ON [AH OBPR].[REG ISTRANT]([ STD_INSTIT UTION_ID] ASC)
				3962		ON [AH OBPR];
				3963
				3964
				3965		GO
				3966		PRINT N'Cr eating [AH OBPR].[STD _FORM_QUES TION].[IX_ STD_FORM_Q UESTION_Un iqueId]... ';
				3967
				3968
				3969		GO
				3970		if not exi sts (selec t * from s ys.indexes where nam e = 'IX_ST D_FORM_QUE STION_Uniq ueId')
				3971		CREATE NON CLUSTERED INDEX [IX_ STD_FORM_Q UESTION_Un iqueId]
				3972		ON [AH OBPR].[STD _FORM_QUES TION]([FOR M_QUESTION _UNIQUE_ID ] ASC)
				3973		ON [AH OBPR];
				3974
				3975
				3976		GO
				3977		PRINT N'Cr eating [AH OBPR].[DF_ EMAIL_TEMP LATES_Emai l]...';
				3978
				3979
				3980		GO
				3981		if not exi sts (selec t * from s ys.default _constrain ts where i s_system_n amed = 0
				3982		AND parent_obj ect_id = ( select obj ect_id fro m sys.obje cts where name = 'EM AIL_TEMPLA TES')
				3983		AND schema_id = (SELECT schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				3984		and parent_col umn_id = ( select col umn_id fro m sys.colu mns where name = 'EM AIL'
				3985		an d object_i d = (selec t object_i d from sys .objects w here name = 'EMAIL_T EMPLATES')
				3986		)
				3987		)
				3988		ALTER TABL E [AHOBPR] .[EMAIL_TE MPLATES]
				3989		ADD CO NSTRAINT [ DF_EMAIL_T EMPLATES_E mail] DEFA ULT ((1)) FOR [EMAIL ];
				3990
				3991
				3992		GO
				3993		PRINT N'Cr eating [AH OBPR].[DF_ EMAIL_TEMP LATES_Noti fication]. ..';
				3994
				3995
				3996		GO
				3997		if not exi sts (selec t * from s ys.default _constrain ts where i s_system_n amed = 0
				3998		AND parent_obj ect_id = ( select obj ect_id fro m sys.obje cts where name = 'EM AIL_TEMPLA TES')
				3999		AND schema_id = (SELECT schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				4000		and parent_col umn_id = ( select col umn_id fro m sys.colu mns where name = 'NO TIFICATION '
				4001		an d object_i d = (selec t object_i d from sys .objects w here name = 'EMAIL_T EMPLATES')
				4002		)
				4003		)
				4004		ALTER TABL E [AHOBPR] .[EMAIL_TE MPLATES]
				4005		ADD CO NSTRAINT [ DF_EMAIL_T EMPLATES_N otificatio n] DEFAULT ((1)) FOR [NOTIFICA TION];
				4006
				4007
				4008		GO
				4009		PRINT N'Cr eating [AH OBPR].[DF_ Registrant HealthFact or_Active] ...';
				4010
				4011
				4012		GO
				4013		if not exi sts (selec t * from s ys.default _constrain ts where i s_system_n amed = 0
				4014		AND parent_obj ect_id = ( select obj ect_id fro m sys.obje cts where name = 'RE GISTRANT_H EALTH_FACT OR')
				4015		AND schema_id = (SELECT schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				4016		and parent_col umn_id = ( select col umn_id fro m sys.colu mns where name = 'AC TIVE_FLAG'
				4017		an d object_i d = (selec t object_i d from sys .objects w here name = 'REGISTR ANT_HEALTH _FACTOR')
				4018		)
				4019		)
				4020		ALTER TABL E [AHOBPR] .[REGISTRA NT_HEALTH_ FACTOR]
				4021		ADD CO NSTRAINT [ DF_Registr antHealthF actor_Acti ve] DEFAUL T ((1)) FO R [ACTIVE_ FLAG];
				4022
				4023
				4024		GO
				4025		PRINT N'Cr eating [AH OBPR].[FK_ REGISTRANT _STD_SEPAR ATION_REAS ON2]...';
				4026
				4027
				4028		GO
				4029		IF not exi sts (selec t * from s ys.foreign _keys wher e name = ' FK_REGISTR ANT_STD_SE PARATION_R EASON2')
				4030		ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH N OCHECK
				4031		ADD CO NSTRAINT [ FK_REGISTR ANT_STD_SE PARATION_R EASON2] FO REIGN KEY ([STD_SEPA RATION_REA SON_ID_WHE N_ENROLLED ]) REFEREN CES [AHOBP R].[STD_SE PARATION_R EASON] ([S TD_SEPARAT ION_REASON _ID]);
				4032
				4033
				4034		GO
				4035		PRINT N'Al tering [AH OBPR].[SP_ ClearProce ssMetrics] ...';
				4036
				4037
				4038		GO
				4039		SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF;
				4040
				4041
				4042		GO
				4043		-- ======= ========== ========== ========== ========
				4044		-- Author: Bruce Clegg
				4045		-- Create date: July , 13 2015
				4046		-- Descrip tion: Call ed from Mi rgation ro utine to r emove any Process Me trics reco rds create d,
				4047		-- as t hey do not have vail d dates.
				4048		ALTER PROC EDURE [AHO BPR].[SP_C learProces sMetrics] AS
				4049		BEGIN
				4050		SE T NOCOUNT ON;
				4051
				4052		TR UNCATE TAB LE [AHOBPR ].[PROCESS _METRICS];
				4053
				4054		END
				4055		GO
				4056		SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON;
				4057
				4058
				4059		GO
				4060		PRINT N'Al tering [AH OBPR].[SP_ PostMigrat ionDataUpd ates]...';
				4061
				4062
				4063		GO
				4064		SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF;
				4065
				4066
				4067		GO
				4068		ALTER PROC EDURE [AHO BPR].[SP_P ostMigrati onDataUpda tes]
				4069
				4070		AS
				4071		BEGIN
				4072
				4073		PRINT 'P ostMigrati onDataUpda tes.sql st arted...';
				4074		PRINT 'S tarted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				4075
				4076		PRINT 'S tep 01 - S et display Question Number...' ;
				4077
				4078		With Goo dValues
				4079		AS (
				4080		SELECT Q .STD_FORM_ QUESTION_I D
				4081		,C ONVERT(VAR CHAR(10),s ec.BRP_FOR M_SECTION_ ID) + '.'
				4082		+C ONVERT(VAR CHAR(10),s s.[BRP_FOR M_SUB_SECT ION_ID])+ '.'
				4083		+Q .BRP_FORM_ QUESTION_I D AS Calcu latedID
				4084		FROM A HOBPR.STD_ FORM_QUEST ION Q
				4085		JOIN [ AHOBPR].[S TD_FORM_SU B_SECTION] ss ON Q. STD_FORM_S UB_SECTION _ID = ss.S TD_FORM_SU B_SECTION_ ID
				4086		JOIN A HOBPR.STD_ FORM_SECTI ON sec ON se c.STD_FORM _SECTION_I D = ss.STD _FORM_SECT ION_ID
				4087		)
				4088		MERGE INTO AHOBP R.STD_FORM _QUESTION as Tgt
				4089		USING GoodValues AS Src
				4090		ON tgt.STD_FO RM_QUESTIO N_ID = Src .STD_FORM_ QUESTION_I D
				4091		WHEN MATCHED
				4092		THEN UPDATE
				4093		SET Tg t.FORM_QUE STION_UNIQ UE_ID = Sr c.Calculat edID;
				4094
				4095		PRINT 'S tep 02 - C lear all C linical Re levant Fla g...)';
				4096
				4097		UPDATE A HOBPR.STD_ FORM_ANSWE R
				4098		SET CL INICAL_REL EVANT_FLAG = 0;
				4099
				4100		PRINT 'S tep 03 - S etting Cli nical Rele vant Flag. ..)';
				4101
				4102		WITH Ma sterData
				4103		AS (
				4104		SELECT *
				4105		FROM ( V ALUES
				4106		('1.2.A',' Yes'),
				4107		('1.2.F',' Yes'),
				4108		('1.2.G',' '),
				4109		('1.3.B',' '),
				4110		('1.4.C',' '),
				4111		('1.4.D',' Yes'),
				4112		('1.4.E',' '),
				4113		('1.4.F',' Yes'),
				4114		('2.1.D',' can''t do it at all' ),
				4115		('2.1.D',' somewhat d ifficult') ,
				4116		('2.1.D',' very diffi cult'),
				4117		('2.1.E',' can''t do it at all' ),
				4118		('2.1.E',' somewhat d ifficult') ,
				4119		('2.1.E',' very diffi cult'),
				4120		('2.1.F',' Arthritis/ rheumatism '),
				4121		('2.1.F',' Back or ne ck problem '),
				4122		('2.1.F',' Benign Tum ors, Cysts '),
				4123		('2.1.F',' Birth defe ct'),
				4124		('2.1.F',' Brain inju ry, (for e xample, Tr aumatic Br ain Injury /TBI, Inte llectual d isability) '),
				4125		('2.1.F',' Cancer'),
				4126		('2.1.F',' Circulatio n problems (includin g blood cl ots)'),
				4127		('2.1.F',' Depression /anxiety/e motional p roblem'),
				4128		('2.1.F',' Diabetes') ,
				4129		('2.1.F',' Epilepsy, seizures') ,
				4130		('2.1.F',' Fibromyalg ia, lupus' ),
				4131		('2.1.F',' Fracture, bone/joint injury'),
				4132		('2.1.F',' Hearing pr oblem'),
				4133		('2.1.F',' Heart prob lem'),
				4134		('2.1.F',' Hernia'),
				4135		('2.1.F',' Hypertensi on/high bl ood pressu re'),
				4136		('2.1.F',' Kidney, bl adder or r enal probl ems'),
				4137		('2.1.F',' Knee probl ems (not a rthritis, not joint injury)'),
				4138		('2.1.F',' Lung/breat hing probl em (for ex ample, ast hma and em physema)') ,
				4139		('2.1.F',' Migraine h eadaches ( not just h eadaches)' ),
				4140		('2.1.F',' Missing li mbs (finge rs, toes o r digits), amputee') ,
				4141		('2.1.F',' Multiple S clerosis ( MS), Muscu lar Dystro phy (MD)') ,
				4142		('2.1.F',' Osteoporos is, tendin itis'),
				4143		('2.1.F',' Other deve lopmental problem (f or example , cerebral palsy)'),
				4144		('2.1.F',' Other inju ry'),
				4145		('2.1.F',' Other nerv e damage, including carpal tun nel syndro me'),
				4146		('2.1.F',' Parkinson' 's disease , other tr emors'),
				4147		('2.1.F',' Polio (mye litis), pa ralysis, p ara/quadri plegia'),
				4148		('2.1.F',' Senility') ,
				4149		('2.1.F',' Stroke pro blem'),
				4150		('2.1.F',' Thyroid pr oblems, Gr ave''s dis ease, gout '),
				4151		('2.1.F',' Ulcer'),
				4152		('2.1.F',' Varicose v eins, hemo rrhoids'),
				4153		('2.1.F',' Vision/pro blem seein g'),
				4154		('2.1.F',' Weight pro blem'),
				4155		('2.2.1.B' ,'Yes'),
				4156		('2.2.1.C' ,'Yes'),
				4157		('2.2.1.D' ,'Yes'),
				4158		('2.2.1.E' ,'Yes'),
				4159		('2.2.1.F' ,'Yes'),
				4160		('2.2.1.G' ,'Yes'),
				4161		('2.2.1.H' ,'Yes'),
				4162		('2.2.1.I' ,'After de ployment') ,
				4163		('2.2.1.I' ,'Before d eployment' ),
				4164		('2.2.1.I' ,'During d eployment' ),
				4165		('2.2.1.J' ,'About th e same'),
				4166		('2.2.1.J' ,'Better') ,
				4167		('2.2.1.J' ,'Worse'),
				4168		('2.2.1.M' ,'Stopping for breat h after wa lking abou t 100 yard s or after a few min utes on le vel ground '),
				4169		('2.2.1.M' ,'Too brea thless to leave the house, or breathless when dres sing or un dressing') ,
				4170		('2.2.1.M' ,'Walking slower tha n most peo ple on lev el ground, stop afte r one mile , or stop after 15 m inutes wal king at my own pace' ),
				4171		('2.4.A',' Yes'),
				4172		('2.4.B',' Bladder'),
				4173		('2.4.B',' Blood'),
				4174		('2.4.B',' Bone'),
				4175		('2.4.B',' Brain'),
				4176		('2.4.B',' Breast'),
				4177		('2.4.B',' Cervix'),
				4178		('2.4.B',' Colon'),
				4179		('2.4.B',' Esophagus' ),
				4180		('2.4.B',' Gallbladde r'),
				4181		('2.4.B',' Kidney'),
				4182		('2.4.B',' Larynx-win dpipe'),
				4183		('2.4.B',' Leukemia') ,
				4184		('2.4.B',' Liver'),
				4185		('2.4.B',' Lung'),
				4186		('2.4.B',' Lymphoma') ,
				4187		('2.4.B',' Melanoma') ,
				4188		('2.4.B',' Mouth/tong ue/lip'),
				4189		('2.4.B',' Other'),
				4190		('2.4.B',' Ovary'),
				4191		('2.4.B',' Pancreas') ,
				4192		('2.4.B',' Prostate') ,
				4193		('2.4.B',' Rectum'),
				4194		('2.4.B',' Skin (Don' 't Know wh at kind)') ,
				4195		('2.4.B',' Skin (non- melanoma)' ),
				4196		('2.4.B',' Soft tissu e (muscle or fat)'),
				4197		('2.4.B',' Stomach'),
				4198		('2.4.B',' Testis'),
				4199		('2.4.B',' Throat-pha rynx'),
				4200		('2.4.B',' Thyroid'),
				4201		('2.4.B',' Uterus'),
				4202		('2.5.A',' No'),
				4203		('2.5.A',' Yes'),
				4204		('2.5.C',' Don''t kno w'),
				4205		('2.5.C',' Everyday') ,
				4206		('2.5.C',' I do not w ish to ans wer'),
				4207		('2.5.C',' Not at all '),
				4208		('2.5.C',' Some days' ),
				4209		('3.1.A',' About the same'),
				4210		('3.1.A',' Better'),
				4211		('3.1.A',' Worse'),
				4212		('3.1.E',' A little c oncerned') ,
				4213		('3.1.E',' Very conce rned'),
				4214		('3.1.F',' Cancer'),
				4215		('3.1.F',' Effect on children o r ability to have ch ildren'),
				4216		('3.1.F',' Eye proble m'),
				4217		('3.1.F',' Gastrointe stinal (GI ) problem' ),
				4218		('3.1.F',' Heart prob lem'),
				4219		('3.1.F',' Immune pro blem'),
				4220		('3.1.F',' Lung/Respi ratory/Bre athing pro blem'),
				4221		('3.1.F',' Neurologic al problem '),
				4222		('3.1.F',' Other prob lem'),
				4223		('3.1.F',' Skin probl em'),
				4224		('3.1.H',' Yes'),
				4225		('3.1.J',' Cancer'),
				4226		('3.1.J',' Effect on children o r ability to have ch ildren'),
				4227		('3.1.J',' Eyes'),
				4228		('3.1.J',' Heart'),
				4229		('3.1.J',' Lung/Respi ratory/Bre athing'),
				4230		('3.1.J',' Other'),
				4231		('3.1.J',' Skin'),
				4232		('5.4.A',' Yes'),
				4233		('5.4.B.4' ,'Yes'),
				4234		('5.5.D',' Yes')
				4235		)
				4236		AS Master Record(Que stionID, A nswerText)
				4237		)
				4238		U PDATE AHOB PR.STD_FOR M_ANSWER
				4239		S ET CLINICA L_RELEVANT _FLAG = 1
				4240		W HERE STD_F ORM_ANSWER _ID IN
				4241		(
				4242		SELE CT A.STD_F ORM_ANSWER _ID
				4243		FR OM AHOBPR. STD_FORM_A NSWER A
				4244		JO IN AHOBPR. STD_FORM_Q UESTION B
				4245		ON A.STD_F ORM_QUESTI ON_ID = B. STD_FORM_Q UESTION_ID
				4246		WHE RE EXISTS( SELECT * F ROM Master Data
				4247		WHERE B.F ORM_QUESTI ON_UNIQUE_ ID = Maste rData.Ques tionID
				4248		AND ISN ULL(A.[TEX T],'') = M asterData. AnswerText )
				4249		);
				4250
				4251		PRINT 'S tep 04 - L oading Too l Tips for Sections. ..';
				4252
				4253		WITH Ma sterData
				4254		AS (
				4255		SELECT *
				4256		FROM ( VALUES
				4257		(1 ,'To view questionna ire respon ses for De ployment H istory sel ect from t he sub sec tions belo w.'),
				4258		(2 ,'To view questionna ire respon ses to Sym ptoms & Me dical Hist ory select from the sub sectio ns below.' ),
				4259		(3 ,'Select t o view reg istrant re sponses to Health Co ncerns.'),
				4260		(4 ,'Select t o view reg istrant re sponses to Places Yo u''ve Live d.'),
				4261		(5 ,'To view questionna ire respon ses to Wor k History select fro m the sub sections b elow.'),
				4262		(6 ,'Select t o view reg istrant re sponses to Home Envi ronment & Hobbies.') ,
				4263		(7 ,'Select t o view reg istrant re sponses to Health Ca re Utiliza tion.'),
				4264		(8 ,'Select t o view reg istrant re sponses to Contact P references .')
				4265		)
				4266		A S MasterRe cord(id, T extValue)
				4267		)
				4268		MERGE
				4269		INTO AHOBPR.STD _FORM_SECT ION AS T gt
				4270		USING MasterData AS Src
				4271		ON Tgt.BRP_FO RM_SECTION _ID = Src. id
				4272		WHEN MA TCHED
				4273		THEN UP DATE SET T gt.TOOL_TI P = Src.Te xtValue;
				4274
				4275		PRINT 'S tep 05 - L oading Too l Tips for Sub Secti ons...';
				4276
				4277		WITH Ma sterData
				4278		AS (
				4279		SELECT *
				4280		FROM ( VALUES
				4281		(1,1,'Sele ct to view registran t deployme nt history received from deplo yment inte rfaces.'),
				4282		(1,2,'Sele ct to view registran t response s for depl oyment spe cific ques tions.'),
				4283		(1,3,'Sele ct to view registran t response s to Milit ary Occupa tional Exp osures.'),
				4284		(1,4,'Sele ct to view registran t response s to Envir onment Exp osures & A ir Polluti on.'),
				4285		(2,1,'Sele ct to view registran t response s to Funct ional Limi tations & Reported C auses.'),
				4286		(2,2,'Sele ct to view registran t response s to Healt h Conditio ns.'),
				4287		(2,3,'Sele ct to view registran t response s to Heigh t & Weight .'),
				4288		(2,4,'Sele ct to view registran t response s to Cance r History. '),
				4289		(2,5,'Sele ct to view registran t response s to Tobac co Exposur e.'),
				4290		(2,6,'Sele ct to view registran t response s to Deplo yment Smok ing Histor y.'),
				4291		(2,7,'Sele ct to view registran t response s to Month Alcohol U se.'),
				4292		(3,1,'Sele ct to view registran t response s to Healt h Concerns .'),
				4293		(4,1,'Sele ct to view registran t response s to Place s You''ve Lived.'),
				4294		(5,1,'Sele ct to view registran t response s to Curre nt Occupat ional Stat us.'),
				4295		(5,2,'Sele ct to view registran t response s to Main Occupation .'),
				4296		(5,3,'Sele ct to view registran t response s to Dust Exposures. '),
				4297		(5,4,'Sele ct to view registran t response s to Gas, Smoke, Vap ors or Fum es Exposur e.'),
				4298		(5,5,'Sele ct to view registran t response s to Asbes tos Exposu re.'),
				4299		(6,1,'Sele ct to view registran t response s to Home Environmen t & Hobbie s.'),
				4300		(7,1,'Sele ct to view registran t response s to Healt h Care Uti lization.' ),
				4301		(8,1,'Sele ct to view registran t response s to Conta ct Prefere nces.')
				4302		)
				4303		A S MasterRe cord(Secti onId, SubS ectionId, TextValue)
				4304		)
				4305		,Src
				4306		AS(
				4307		SELEC T STD_FORM _SUB_SECTI ON_ID AS s sId, TextV alue
				4308		FRO M [AHOBPR] .[STD_FORM _SUB_SECTI ON]
				4309		JOI N AHOBPR.S TD_FORM_SE CTION
				4310		O N STD_FORM _SECTION.S TD_FORM_SE CTION_ID = STD_FORM_ SUB_SECTIO N.STD_FORM _SECTION_I D
				4311		JOI N MasterDa ta
				4312		ON Maste rData.Sect ionId = ST D_FORM_SEC TION.BRP_F ORM_SECTIO N_ID
				4313		AND Mast erData.Sub SectionId = STD_FORM _SUB_SECTI ON.BRP_FOR M_SUB_SECT ION_ID
				4314		)
				4315		MERGE
				4316		INTO AHOBPR.STD _FORM_SUB_ SECTION AS Tgt
				4317		USING Src
				4318		ON Tgt.STD_FO RM_SUB_SEC TION_ID = Src.ssId
				4319		WHEN MA TCHED
				4320		THEN UP DATE SET T gt.TOOL_TI P = Src.Te xtValue;
				4321
				4322		PRINT 'S tep 06 - U pdate STD_ FORM_SECTI ON...';
				4323
				4324		WITH Ma sterData
				4325		AS (
				4326		SELECT *
				4327		FROM ( V ALUES
				4328		(1,'Depl oyment His tory'),
				4329		(2,'Symp toms & Med ical Histo ry'),
				4330		(3,'Heal th Concern s'),
				4331		(4,'Plac es You''ve Lived'),
				4332		(5,'Work History') ,
				4333		(6,'Home Environme nt & Hobbi es'),
				4334		(7,'Heal th Care Ut ilization' ),
				4335		(8,'Cont act Prefer ences') )
				4336		AS Master Record([BR P_FORM_SEC TION_ID], [MENU_ITEM _NAME])
				4337		)
				4338		, Src
				4339		AS (
				4340		SEL ECT sec.ST D_FORM_SEC TION_ID,
				4341		MasterDa ta.[BRP_FO RM_SECTION _ID], Mast erData.[ME NU_ITEM_NA ME]
				4342		FRO M MasterDa ta
				4343		JOI N AHOBPR.S TD_FORM_SE CTION sec ON sec.[BR P_FORM_SEC TION_ID] = MasterDat a.[BRP_FOR M_SECTION_ ID]
				4344		)
				4345		MER GE
				4346		INTO [AHOBPR].[ STD_FORM_S ECTION] AS Tgt
				4347		USING Src
				4348		ON Tgt.[STD_F ORM_SECTIO N_ID] = Sr c.[STD_FOR M_SECTION_ ID]
				4349		WHEN M ATCHED
				4350		THEN UP DATE SET T gt.[MENU_I TEM_NAME] = Src.[MEN U_ITEM_NAM E];
				4351
				4352		PRINT 'S tep 07 Upd ate [STD_F ORM_SUBSEC TION]...';
				4353
				4354		WITH Ma sterData
				4355		AS (
				4356		SELECT *
				4357		FROM ( V ALUES
				4358		(1,1,' Deployment s'),
				4359		(1,2,' Deployment Exposures '),
				4360		(1,3,' Military O ccupationa l Exposure s'),
				4361		(1,4,' Environmen tal Exposu res & Air Pollution' ),
				4362		(2,1,' Functional Limitatio n & Report ed Cause') ,
				4363		(2,2,' Health Con ditions'),
				4364		(2,3,' Height & W eight'),
				4365		(2,4,' Cancer His tory'),
				4366		(2,5,' Tobacco Ex posure'),
				4367		(2,6,' Deployment Smoking H istory'),
				4368		(2,7,' 12 Month A lcohol Use '),
				4369		(5,1,' Current Oc cupational Status'),
				4370		(5,2,' Main Occup ation'),
				4371		(5,3,' Dust Expos ures'),
				4372		(5,4,' Gas, Smoke , Vapors o r Fumes Ex posure?'),
				4373		(5,5,' Asbestos E xposure')
				4374		)
				4375		AS Master Record ( [ SECTION_ID ], [SUB_SE CTION_ID], [MENU_ITE M])
				4376		) ,
				4377		Src AS (
				4378		S ELECT ss.S TD_FORM_SU B_SECTION_ ID, -- [SE CTION_ID], [SUB_SECT ION_ID],
				4379		[M ENU_ITEM]
				4380		F ROM Master Data
				4381		J OIN AHOBPR .[STD_FORM _SUB_SECTI ON] ss ON ss.[BRP_FO RM_SUB_SEC TION_ID] = MasterDat a.[SUB_SEC TION_ID]
				4382		J OIN AHOBPR .[STD_FORM _SECTION] sec ON ss. [STD_FORM_ SECTION_ID ] = sec.[S TD_FORM_SE CTION_ID]
				4383		W HERE Maste rData.[SEC TION_ID] = sec.BRP_F ORM_SECTIO N_ID
				4384		)
				4385		MERGE
				4386		INTO [AHOBPR].[ STD_FORM_S UB_SECTION ] AS Tgt
				4387		USING Src
				4388		ON Tgt.[STD_F ORM_SUB_SE CTION_ID] = Src.[STD _FORM_SUB_ SECTION_ID ]
				4389		WHEN M ATCHED
				4390		THEN U PDATE
				4391		SET Tgt. [MENU_ITEM _NAME] = S rc.[MENU_I TEM];
				4392
				4393		PRINT 'S tep 08 - S et Short T ext = Text with HTML removed.' ;
				4394
				4395		UPDATE [ AHOBPR].[S TD_FORM_QU ESTION]
				4396		SET SHORT_TEX T = REPLAC E(REPLACE( REPLACE([T EXT],'<str ong>',''), '</strong> ',''),'</b r>','');
				4397
				4398		PRINT 'St ep 09 - Up date Quest ion Unique ID to sho rt form fo r sections 1,3,6,7 & 8 - Shoul d be 33 ';
				4399
				4400		With Sho rtValues
				4401		AS (
				4402		SELECT Q .STD_FORM_ QUESTION_I D
				4403		,C ONVERT(VAR CHAR(10),s ec.BRP_FOR M_SECTION_ ID) + '.'
				4404		+Q .BRP_FORM_ QUESTION_I D AS Calcu latedID
				4405		FROM AH OBPR.STD_F ORM_QUESTI ON Q
				4406		JOIN [ AHOBPR].[S TD_FORM_SU B_SECTION] ss ON Q. STD_FORM_S UB_SECTION _ID = ss.S TD_FORM_SU B_SECTION_ ID
				4407		JOIN A HOBPR.STD_ FORM_SECTI ON sec ON se c.STD_FORM _SECTION_I D = ss.STD _FORM_SECT ION_ID
				4408		WHERE sec.BRP_FO RM_SECTION _ID IN (1, 3,6,7,8)
				4409		AND ss.BRP_FOR M_SUB_SECT ION_ID = 1
				4410		)
				4411		MERGE INTO AHOBP R.STD_FORM _QUESTION as Tgt
				4412		USING ShortValue s AS Src
				4413		ON tgt.STD_FO RM_QUESTIO N_ID = Src .STD_FORM_ QUESTION_I D
				4414		WHEN MATCHED
				4415		THEN UPDATE
				4416		SET Tg t.FORM_QUE STION_UNIQ UE_ID = Sr c.Calculat edID;
				4417
				4418		PRINT 'E NABLE TRIG GER TRG_RE GISTRANT_J SON_INSERT ';
				4419
				4420		ENABLE T RIGGER TRG _REGISTRAN T_JSON_INS ERT ON AHO BPR.REGIST RANT_JSON;
				4421
				4422		PRINT 'D ROP INDEX [IX_REGIST RANT_JSON_ Object] If it exists ..';
				4423
				4424		IF EXIS TS (SELECT * FROM sy s.indexes WHERE obje ct_id = OB JECT_ID(N' [AHOBPR].[ REGISTRANT _JSON]') A ND name = N'IX_REGIS TRANT_JSON _Object')
				4425		DROP INDEX [IX _REGISTRAN T_JSON_Obj ect] ON [A HOBPR].[RE GISTRANT_J SON] WITH ( ONLINE = OFF );
				4426
				4427		PRINT 'C REATE INDE X [IX_REGI STRANT_JSO N_Object] ....';
				4428
				4429		CREATE N ONCLUSTERE D INDEX [I X_REGISTRA NT_JSON_Ob ject] ON [ AHOBPR].[R EGISTRANT_ JSON]
				4430		(
				4431		[OBJECT_TY PE] ASC,
				4432		[OBJECT_ID ] ASC,
				4433		[REGISTRAN T_JSON_ID] ASC
				4434		)WITH (P AD_INDEX = OFF, STA TISTICS_NO RECOMPUTE = OFF, SO RT_IN_TEMP DB = OFF, IGNORE_DUP _KEY = OFF , DROP_EXI STING = OF F, ONLINE = OFF, ALL OW_ROW_LOC KS = ON, ALLOW_PAGE _LOCKS = ON) ON [AH OBPR];
				4435
				4436
				4437
				4438		PRINT '' ;
				4439		PRINT 'P ostMigrati onDataUpda tes.sql Sc ript End.' ;
				4440		PRINT '' ;
				4441		PRINT 'C ompleted ' + CAST(GE TDATE() AS varchar(2 0)) + '.';
				4442
				4443		END;
				4444
				4445		-- EXECUTE [AHOBPR]. [SP_PostMi grationDat aUpdates]
				4446		GO
				4447		SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON;
				4448
				4449
				4450		GO
				4451		PRINT N'Al tering [AH OBPR].[SP_ ReportCont actHistory ]...';
				4452
				4453
				4454		GO
				4455		SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF;
				4456
				4457
				4458		GO
				4459		-- ======= ========== ========== ========== ========
				4460		-- Object: Stor edProcedur e [AHOBPR] .[SP_Repor tContactHi story]
				4461		-- Author: Bruc e Clegg
				4462		-- Create date: 21 M ay 2015
				4463		-- Descrip tion: Make 4 tables look like one
				4464		--
				4465		-- Modific ation Log:
				4466		-- 2015.05 .21 Bruce Clegg - Cr eate Proce dure
				4467		-- 2015.07 .14 CleggB - changed UpdatedDa te and out put from D ate to Dat eTime2(0)
				4468		ALTER PROC EDURE [AHO BPR].[SP_R eportConta ctHistory]
				4469		@R egistrantI d INT = NU LL
				4470		WITH EXECU TE AS OWNE R
				4471		AS
				4472		BEGIN
				4473
				4474		DECLARE @RowCount SMALLINT = 0;
				4475
				4476		DECLARE @Results T ABLE(Updat edDate DATETI ME2(0)
				4477		,[STR EET1] VARCHA R(256)
				4478		,[STR EET2] VARCHA R(256)
				4479		,[CIT Y] VARCHA R(100)
				4480		,[STA TE] VARCHA R(100)
				4481		,[ZIP ] VARCHA R(15)
				4482		,[COU NTRY] VARCHA R(100)
				4483		,Phon eNumber VARCHA R(50)
				4484		,Mobi leNumber VARCHA R(50)
				4485		,EMAI L VARCHA R(256) );
				4486
				4487		DECLARE @UpdatedD ate DAT ETIME2(0)
				4488		,@MyOrder INT
				4489		,@Street1 VAR CHAR(256)
				4490		,@Street2 VAR CHAR(256)
				4491		,@City VAR CHAR(100)
				4492		,@State VAR CHAR(100)
				4493		,@Zip VAR CHAR(15)
				4494		,@Country VAR CHAR(100)
				4495		,@PhoneNum ber VAR CHAR(50)
				4496		,@MobileNu mber VAR CHAR(50)
				4497		,@Email VAR CHAR(256);
				4498
				4499		DECLARE @UpdatedD ateOut DATETIME2( 0)
				4500		,@Street1O ut VARCHAR(25 6)
				4501		,@Street2O ut VARCHAR(25 6)
				4502		,@CityOut VARCHAR(10 0)
				4503		,@StateOut VARCHAR(10 0)
				4504		,@ZipOut VARCHAR(15 )
				4505		,@CountryO ut VARCHAR(10 0)
				4506		,@PhoneNum berOut VARCHAR(50 )
				4507		,@MobileNu mberOut VARCHAR(50 )
				4508		,@EmailOut VARCHAR(25 6);
				4509
				4510		DECLARE MyCursor C URSOR LOCA L
				4511		FOR
				4512		WITH Add r
				4513		AS (
				4514		SELE CT DISTINC T
				4515		[REGIST RANT_ID]
				4516		,[STREET 1]
				4517		,[STREET 2]
				4518		,[CITY]
				4519		,[STATE]
				4520		,[ZIP]
				4521		,[COUNTR Y]
				4522		,[Audit_ Date] AS U pdatedDate
				4523		,CONVERT (INT,'1') AS MyOrder
				4524		FR OM [AHOBPR ].[REGISTR ANT_ADDRES S_H]
				4525		WHE RE [Audit_ Type] != ' DELETE'
				4526		A ND [REGIST RANT_ID] = @Registra ntId
				4527		)
				4528		,Phone
				4529		AS (
				4530		SE LECT DISTI NCT
				4531		[REGI STRANT_ID]
				4532		,[PHON E_NUMBER] as PhoneNu mber
				4533		,[Audi t_Date] AS UpdatedDa te
				4534		,CONVE RT(INT,'2' ) AS MyOrd er
				4535		FROM [AHOB PR].[REGIS TRANT_PHON E_H]
				4536		W HERE ISNUL L([TYPE],' ') != 'Mob ile'
				4537		AND [Audi t_Type] != 'DELETE'
				4538		AND [REGI STRANT_ID] = @Regist rantId
				4539		)
				4540		,Mobil e
				4541		AS (
				4542		SE LECT DISTI NCT
				4543		[REGI STRANT_ID]
				4544		,[PHON E_NUMBER] AS MobileN umber
				4545		,[Audi t_Date] AS UpdatedDa te
				4546		,CONVE RT(INT,'3' ) AS MyOrd er
				4547		FROM [AHOB PR].[REGIS TRANT_PHON E_H]
				4548		W HERE [TYPE ] = 'Mobil e'
				4549		AND [Audi t_Type] != 'DELETE'
				4550		AND [REGI STRANT_ID] = @Regist rantId
				4551		)
				4552		,Email
				4553		AS (
				4554		SEL ECT DISTIN CT
				4555		[REGIS TRANT_ID]
				4556		,[EMAIL ]
				4557		,[Audit _Date] AS UpdatedDat e
				4558		,CONVER T(INT,'4') AS MyOrde r
				4559		F ROM [AHOBP R].[REGIST RANT_EMAIL _H]
				4560		WH ERE [Audit _Type] != 'DELETE'
				4561		AND [REGIS TRANT_ID] = @Registr antId
				4562		)
				4563		SE LECT Addr. UpdatedDat e
				4564		,Addr. Myorder
				4565		,[STRE ET1]
				4566		,[STRE ET2]
				4567		,[CITY ]
				4568		,[STAT E]
				4569		,[ZIP]
				4570		,[COUN TRY]
				4571		,NULL AS PhoneNu mber
				4572		,NULL as MobileN umber
				4573		,NULL as EMAIL
				4574		FROM Addr
				4575		UNI ON
				4576		SEL ECT Phone. UpdatedDat e
				4577		,Phone .Myorder
				4578		,NULL
				4579		,NULL
				4580		,NULL
				4581		,NULL
				4582		,NULL
				4583		,NULL
				4584		,Phone Number
				4585		,NULL as MobileN umber
				4586		,NULL as EMAIL
				4587		FROM Phone
				4588		UNI ON
				4589		SEL ECT Mobile .UpdatedDa te
				4590		,Mobil e.Myorder
				4591		,NULL
				4592		,NULL
				4593		,NULL
				4594		,NULL
				4595		,NULL
				4596		,NULL
				4597		,NULL AS PhoneNu mber
				4598		,Mobil eNumber
				4599		,NULL as EMAIL
				4600		FROM Mobil e
				4601		UN ION
				4602		SE LECT Email .UpdatedDa te
				4603		,Email .Myorder
				4604		,NULL
				4605		,NULL
				4606		,NULL
				4607		,NULL
				4608		,NULL
				4609		,NULL
				4610		,NULL AS PhoneNu mber
				4611		,NULL AS MobileN umber
				4612		,Email .EMAIL
				4613		FROM Email
				4614		ORDER BY U pdatedDate DESC, MyO rder ASC;
				4615
				4616
				4617		OPEN M yCursor;
				4618
				4619		FETCH NEXT FROM MyCursor -- priming read
				4620		INTO @UpdatedDa te
				4621		,@MyOrder
				4622		,@Street1
				4623		,@Street2
				4624		,@City
				4625		,@State
				4626		,@Zip
				4627		,@Country
				4628		,@PhoneNum ber
				4629		,@MobileNu mber
				4630		,@Email;
				4631
				4632		SET @U pdatedDate Out = @Upd atedDate;
				4633
				4634		WHILE @@FETCH_ST ATUS = 0 - - Not End of file
				4635		BEGI N
				4636		-- If new da te, or now here to pu t data val ue, Insert into temp and clear Output va riables
				4637		IF (@Updated Date != @U pdatedDate Out AND @R owCount > 0)
				4638		OR (@MyOrder = 1 AND @ Street1Out IS NOT NU LL)
				4639		OR (@MyOrder = 2 AND @ PhoneNumbe rOut IS NO T NULL)
				4640		OR (@MyOrder = 3 AND @ MobileNumb erOut IS N OT NULL)
				4641		OR (@MyOrder = 4 AND @ EmailOut I S NOT NULL )
				4642		BE GIN
				4643		I NSERT INTO @Results (UpdatedDa te
				4644		, [STREET1]
				4645		, [STREET2]
				4646		, [CITY]
				4647		, [STATE]
				4648		, [ZIP]
				4649		, [COUNTRY]
				4650		, PhoneNumbe r
				4651		, MobileNumb er
				4652		, EMAIL )
				4653		VALUES(@ UpdatedDat eOut
				4654		,@ Street1Out
				4655		,@ Street2Out
				4656		,@ CityOut
				4657		,@ StateOut
				4658		,@ ZipOut
				4659		,@ CountryOut
				4660		,@ PhoneNumbe rOut
				4661		,@ MobileNumb erOut
				4662		,@ EmailOut);
				4663
				4664		S ET @Update dDateOut = @UpdatedD ate;
				4665		S ET @Street 1Out = NUL L;
				4666		S ET @Street 2Out = NUL L;
				4667		S ET @CityOu t = NULL;
				4668		S ET @StateO ut = NULL;
				4669		S ET @ZipOut = NULL;
				4670		S ET @Countr yOut = NUL L;
				4671		S ET @PhoneN umberOut = NULL;
				4672		S ET @Mobile NumberOut = NULL;
				4673		S ET @EmailO ut = NULL;
				4674		EN D
				4675
				4676		SE T @RowCoun t = @RowCo unt + 1;
				4677
				4678		-- Set Addre ss Fields
				4679		IF @MyOrder = 1
				4680		BEGIN
				4681		SET @St reet1Out = @Street1;
				4682		SET @St reet2Out = @Street2;
				4683		SET @Ci tyOut = @C ity;
				4684		SET @St ateOut = @ State;
				4685		SET @Zi pOut = @Zi p;
				4686		SET @Co untryOut = @Country;
				4687		END;
				4688
				4689		-- Set Phone Number
				4690		IF @MyOrder = 2
				4691		SET @Phon eNumberOut = @PhoneN umber;
				4692
				4693		IF @MyOrder = 3
				4694		SET @Mobi leNumberOu t = @Mobil eNumber;
				4695
				4696		IF @MyOrder = 4
				4697		SET @Emai lOut = @Em ail;
				4698
				4699		FE TCH NEXT F ROM MyCurs or
				4700		I NTO @Updat edDate
				4701		,@MyOr der
				4702		,@Stre et1
				4703		,@Stre et2
				4704		,@City
				4705		,@Stat e
				4706		,@Zip
				4707		,@Coun try
				4708		,@Phon eNumber
				4709		,@Mobi leNumber
				4710		,@Emai l;
				4711
				4712		END; -- End o f loop
				4713
				4714		--wr ite last r ecord
				4715		INSER T INTO @Re sults (Upd atedDate
				4716		, [STREET1]
				4717		, [STREET2]
				4718		, [CITY]
				4719		, [STATE]
				4720		, [ZIP]
				4721		, [COUNTRY]
				4722		, PhoneNumbe r
				4723		, MobileNumb er
				4724		, EMAIL )
				4725		VALUES(@ UpdatedDat eOut
				4726		,@ Street1Out
				4727		,@ Street2Out
				4728		,@ CityOut
				4729		,@ StateOut
				4730		,@ ZipOut
				4731		,@ CountryOut
				4732		,@ PhoneNumbe rOut
				4733		,@ MobileNumb erOut
				4734		,@ EmailOut);
				4735		CLOSE MyCursor;
				4736
				4737		SELECT UpdatedDa te
				4738		,ISNULL(ST REET1,'') AS Street1
				4739		,ISNULL(ST REET2,'') AS Street2
				4740		,ISNULL(CI TY,'') AS City
				4741		,ISNULL(ST ATE,'') AS State
				4742		,ISNULL(ZI P,'') AS Z ip
				4743		,ISNULL(CO UNTRY,'') AS Country
				4744		,ISNULL(Ph oneNumber, '') AS Pho neNumber
				4745		,ISNULL(Mo bileNumber ,'') AS Mo bileNumber
				4746		,ISNULL(EM AIL,'') AS Email
				4747		FROM @Results
				4748		ORDER BY UpdatedDa te DESC;
				4749
				4750		END
				4751
				4752		-- EXECU TE [AHOBPR ].[SP_Repo rtContactH istory] 5
				4753		GO
				4754		SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON;
				4755
				4756
				4757		GO
				4758		PRINT N'Cr eating [AH OBPR].[SP_ LoadDodDep loymentIns ert]...';
				4759
				4760
				4761		GO
				4762		SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF;
				4763
				4764
				4765		GO
				4766		IF EXISTS (select * from sys.p rocedures where name = 'SP_Loa dDodDeploy mentInsert '
				4767		AND schema_id = (SELECT schema_id FROM sys.s chemas WHE RE name = 'AHOBPR')
				4768		)
				4769		DROP PRO CEDURE [AH OBPR].[SP_ LoadDodDep loymentIns ert];
				4770		GO
				4771		-- ======= ========== ========== ========== ========
				4772		-- Author: Bruce Clegg
				4773		-- Create date: 2015 -08-07
				4774		-- Descrip tion: Move data from Staged ta ble, creat ing orphan s and mass aging data
				4775
				4776		-- Modific ation log
				4777		CREATE PRO CEDURE [AH OBPR].[SP_ LoadDodDep loymentIns ert]
				4778		AS
				4779		BEGIN
				4780
				4781		PRINT 'T runcate Do D Depoymen t...';
				4782
				4783		TRUNCATE TABLE [AH OBPR].[DOD _DEPLOYMEN T_IMPORT];
				4784
				4785		PRINT 'A dd Orphan Country co des if nee ded...';
				4786
				4787		WITH Sta ged
				4788		AS(
				4789		SELE CT DISTINC T LOCATION
				4790		FR OM AHOBPR. STAGED_DOD _DEPLOYMEN T_IMPORT
				4791		)
				4792		INSER T INTO [AH OBPR].[STD _COUNTRY]
				4793		([CODE]
				4794		,[DESCR IPTION])
				4795		SELEC T LOCATION ,
				4796		LOCATION + ' - Orp han'
				4797		FRO M Staged
				4798		WHERE NO T EXISTS(S ELECT [COD E]
				4799		FROM [AHO BPR].[STD_ COUNTRY]
				4800		WHERE [CO DE] = LOCA TION);
				4801
				4802		PRINT 'A dd Orphan Pay Grade codes if n eeded...';
				4803
				4804		WITH Sta ged
				4805		AS(
				4806		SELE CT DISTINC T GRADE
				4807		FR OM AHOBPR. STAGED_DOD _DEPLOYMEN T_IMPORT
				4808		)
				4809		INSER T INTO AHO BPR.STD_PA Y_PLAN_GRA DE
				4810		([CODE]
				4811		,[DESCR IPTION])
				4812		SELEC T GRADE,
				4813		GRADE + ' - Orphan '
				4814		FRO M Staged
				4815		WHERE NO T EXISTS(S ELECT [COD E]
				4816		FROM AHOB PR.STD_PAY _PLAN_GRAD E
				4817		WHERE [CO DE] = GRAD E);
				4818
				4819		PRINT 'S et Service Name valu es...';
				4820
				4821		WITH Mas terData
				4822		AS (
				4823		SELE CT *
				4824		FR OM ( VALUE S
				4825		(' A','Army') ,
				4826		(' C','Coast Guard'),
				4827		(' F','Air Fo rce'),
				4828		(' M','Marine Corps'),
				4829		(' N','Navy')
				4830		) Reco rd(Code, S erviceName )
				4831		)
				4832		,Src
				4833		AS (
				4834		SELECT S taged.DEPL OYMENT_ID, ServiceNa me
				4835		FROM M asterData
				4836		JOIN A HOBPR.STAG ED_DOD_DEP LOYMENT_IM PORT AS St aged
				4837		ON S taged.SVC = MasterDa ta.Code
				4838		)
				4839		MERGE IN TO AHOBPR. STAGED_DOD _DEPLOYMEN T_IMPORT A S Tgt
				4840		USING Sr c
				4841		ON Tg t.DEPLOYME NT_ID = Sr c.DEPLOYME NT_ID
				4842		WHEN MAT CHED
				4843		THEN UPD ATE
				4844		SET Tgt.[S ervice] = Src.Servic eName;
				4845
				4846		PRINT 'S et Compone nt Name va lues...';
				4847
				4848		WITH Mas terData
				4849		AS (
				4850		SELE CT *
				4851		FR OM ( VALUE S
				4852		(' R','Regula r'),
				4853		(' V','Reserv e'),
				4854		(' G','Guard' )
				4855		) Reco rd(Code, C ompoName)
				4856		)
				4857		,Src
				4858		AS (
				4859		SELECT S taged.DEPL OYMENT_ID, CompoName
				4860		FROM M asterData
				4861		JOIN A HOBPR.STAG ED_DOD_DEP LOYMENT_IM PORT AS St aged
				4862		ON S taged.COMP O = Master Data.Code
				4863		)
				4864		MERGE IN TO AHOBPR. STAGED_DOD _DEPLOYMEN T_IMPORT A S Tgt
				4865		USING Sr c
				4866		ON Tg t.DEPLOYME NT_ID = Sr c.DEPLOYME NT_ID
				4867		WHEN MAT CHED
				4868		THEN UPD ATE
				4869		SET Tgt.[C omponent] = Src.Comp oName;
				4870
				4871		PRINT 'L oad from S tatged int o DOD Depl oyment..';
				4872
				4873		DECLARE @Now DATET IME2(0) = GETDATE();
				4874		DECLARE @DefaultSt art DATETI ME2(0) = ' 20010101';
				4875
				4876		INSERT I NTO [AHOBP R].[DOD_DE PLOYMENT_I MPORT]
				4877		([EDIPI ]
				4878		,[SERVI CE]
				4879		,[COMPO ]
				4880		,[LOCAT ION]
				4881		,[DEPLO YMENT_STAR T_DATE]
				4882		,[DEPLO YMENT_END_ DATE]
				4883		,[LOCAT ION_START_ DATE]
				4884		,[LOCAT ION_END_DA TE]
				4885		,[PAY_P LAN_GRADE]
				4886		,[IMPOR T_DATE])
				4887		SELECT [ EDIPI]
				4888		,I SNULL(SUBS TRING([Ser vice],1,15 ),SVC)
				4889		,I SNULL(SUBS TRING([Com ponent],1, 10),COMPO)
				4890		,[ LOCATION]
				4891		,I SNULL([DEP _BGN_CDT], @DefaultS tart)
				4892		,I SNULL([DEP _END_CDT], @Now)
				4893		,I SNULL([LOC _BEGIN_DAT E], @Defau ltStart)
				4894		,I SNULL([LOC _END_DATE] , @Now)
				4895		,[ GRADE]
				4896		,@ Now
				4897		-- ,[PN_SEX_C D] -- New fields to be added n ext releas e
				4898		-- ,[MRTL_STA T_CD]
				4899		-- ,[EDU_LVL_ CD]
				4900		-- ,[RACE_CD]
				4901		-- ,[ETH_AFF_ CD]
				4902		-- ,[DTY_DOD_ OCC_CD]
				4903		FROM [ AHOBPR].[S TAGED_DOD_ DEPLOYMENT _IMPORT];
				4904
				4905		END;
				4906		-- EXE CUTE [AHO BPR].[SP_L oadDodDepl oymentInse rt] -- about 8 mi nutes
				4907		GO
				4908		SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON;
				4909
				4910
				4911		GO
				4912		PRINT N'Re freshing [ AHOBPR].[S P_GetJsonQ ueue]...';
				4913
				4914
				4915		GO
				4916		SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF;
				4917
				4918
				4919		GO
				4920		EXECUTE sp _refreshsq lmodule N' [AHOBPR].[ SP_GetJson Queue]';
				4921
				4922
				4923		GO
				4924		SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON;
				4925
				4926
				4927		GO
				4928		PRINT N'Re freshing [ AHOBPR].[S P_InsertJs onQueue].. .';
				4929
				4930
				4931		GO
				4932		EXECUTE sp _refreshsq lmodule N' [AHOBPR].[ SP_InsertJ sonQueue]' ;
				4933
				4934
				4935		GO
				4936		PRINT N'Re freshing [ AHOBPR].[S P_UpdateFr omCDW]...' ;
				4937
				4938
				4939		GO
				4940		SET ANSI_N ULLS, QUOT ED_IDENTIF IER OFF;
				4941
				4942
				4943		GO
				4944		EXECUTE sp _refreshsq lmodule N' [AHOBPR].[ SP_UpdateF romCDW]';
				4945
				4946
				4947		GO
				4948		SET ANSI_N ULLS, QUOT ED_IDENTIF IER ON;
				4949
				4950
				4951		GO
				4952		PRINT N'Ch ecking exi sting data against n ewly creat ed constra ints';
				4953
				4954
				4955		GO
				4956		USE [$(Dat abaseName) ];
				4957
				4958
				4959		GO
				4960		ALTER TABL E [AHOBPR] .[REGISTRA NT] WITH C HECK CHECK CONSTRAIN T [FK_REGI STRANT_STD _SEPARATIO N_REASON2] ;
				4961
				4962
				4963		GO
				4964		PRINT N'Up date compl ete.';
				4965
				4966		GO
				4967		UPDATE [d bo].[Datab aseChangeL og]
				4968		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				4969		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				4970		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				4971		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				4972		AND [S criptName] = '$(Scrip tName)'
				4973		AND Ta rgetRegist ry = 'AHOBPR' ;
				4974
				4975		GO
				4976		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				4977		WHERE Targ etRegistry = 'AHOBPR'
				4978		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				4979		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				4980		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				4981		AND [Scr iptName] = '$(Script Name)';
				4982		go
				4983		---------- ---------- ---------- ---------- ---------- ----------
				4984		---------- ---------- ---------- ---------- ---------- ----------
				4985		-- 2.0.11. 1
				4986		---------- ---------- ---------- ---------- ---------- ----------
				4987		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				4988		:setvar Ma jorRelease Number "2"
				4989		:setvar Mi norRelease Number "0"
				4990		:setvar Po intRelease Number "11 "
				4991		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.11.1. sql"
				4992
				4993		PRINT '
				4994		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				4995		$(ScriptNa me)
				4996
				4997		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				4998
				4999		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				5000		';
				5001		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				5002		PRINT '
				5003		******** ****** ****** ****** ****** *****
				5004		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				5005		******** ****** ****** ****** ****** *****
				5006
				5007		';
				5008		GO
				5009		:on error exit
				5010		GO
				5011		:setvar __ IsSqlCmdEn abled "Tru e"
				5012		/*
				5013		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				5014		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				5015		*/
				5016		SET NOEXEC OFF;
				5017		GO
				5018		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				5019		BEGIN
				5020		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				5021		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.
				5022		END
				5023
				5024		GO
				5025
				5026		USE [$(Dat abaseName) ]
				5027		GO
				5028		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				5029		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				5030		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				5031		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				5032		AND [Scr iptName] = ' $(ScriptNa me)')
				5033		BEGIN
				5034		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!' ,11
				5035		,1);
				5036		SET NOC OUNT ON;
				5037		SET NOE XEC ON;
				5038		END
				5039		ELSE
				5040		INSERT
				5041		INTO [ dbo].[Data baseChange Log]
				5042		([Major ReleaseNum ber]
				5043		,[Minor ReleaseNum ber]
				5044		,[Point ReleaseNum ber]
				5045		,[Hotfi x]
				5046		,[Scrip tName]
				5047		,[Scrip tDescripti on]
				5048		,[Targe tRegistry]
				5049		,[DateA pplied])
				5050		VAL UES
				5051		('$(Maj orReleaseN umber)'
				5052		,'$(Min orReleaseN umber)'
				5053		,'$(Poi ntReleaseN umber)'
				5054		,0
				5055		,'$(Scr iptName)'
				5056		,'Scr ipt Starte d...'
				5057		,'AHOBP R'
				5058		,GETDAT E());
				5059
				5060		GO
				5061		SET NOCOUN T ON;
				5062		GO
				5063
				5064		DECLARE @ RegistryId int = (SE LECT ID FR OM [dbo].[ STD_REGIST RY] where [CODE] = N 'AHOBPR');
				5065		DECLARE @ Today Date time = GET DATE();
				5066
				5067		DELETE FRO M [dbo].[S TD_GUI_CON TROLS] WHE RE [STD_RE GISTRY_ID] = @Regist ryId;
				5068
				5069		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_SEARCH', 'Last Nam e', '2', ' BaseContro lTextBoxLa stName', N ULL, NULL, 'Registra nt Last Na me', '1', @Today, @T oday, 'DBA ', 'DBA', NULL, '100 ', NULL, ' False', 'T rue', 'Las t Name:<br />', NULL , NULL, NU LL, '50', 'PanelSear chCriteria ')
				5070		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_SEARCH', 'Last Fou r Digits o f SSN', '2 ', 'BaseCo ntrolTextB oxLast4SSN ', NULL, N ULL, 'Regi strant Las t Four Dig ists of SS N', '2', @ Today, @To day, 'DBA' , 'DBA', N ULL, '50', NULL, 'Fa lse', 'Tru e', 'Last Four Digit s of SSN:< br />', NU LL, NULL, NULL, '4', 'PanelSea rchCriteri a')
				5071		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_SEARCH', 'Registry Status', '4', 'Base ControlDro pdownListR egistrySta tus', NULL , NULL, 'R egistrant Registry S tatus', '4 ', @Today, @Today, ' DBA', 'DBA ', 'REGIST RY_STATUS' , NULL, NU LL, 'False ', 'True', 'Registry Status:<b r />', NUL L, NULL, N ULL, NULL, 'PanelSea rchCriteri a')
				5072		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_SEARCH', 'Registry Flags', ' 4', 'BaseC ontrolDrop downListRe gistryFlag ', NULL, N ULL, 'Regi strant Reg istry Flag s', '5', @ Today, @To day, 'DBA' , 'DBA', ' REGISTRY_F LAG', NULL , NULL, 'F alse', 'Tr ue', 'Regi stry Flags :<br />', NULL, NULL , NULL, NU LL, 'Panel SearchCrit eria')
				5073		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_ST ATUSBYLOCA TION', 'Re port Stat us Paramet ers', '5', 'BaseCont rolListBox Status', N ULL, NULL, 'Status i s the stat us of the registrant ’s questio nnaire: No Consent, Consent, N ot Eligibl e, Review, Review No t-Eligible , Review-E ligible, E ligible, a nd Partici pant. The Selection Criteria allows a u ser to fil ter with o ne or more statuses. ', '0', @T oday, @Tod ay, 'DBA', 'DBA', 'R EGISTRY_ST ATUS', '15 0', '150', 'False', 'True', 'S tatus:<br />', NULL, NULL, NUL L, NULL, ' PanelRepor tParm')
				5074		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_ST ATUSBYLOCA TION', 'Re port Sate Parameters ', '5', 'B aseControl ListBoxSta te', NULL, NULL, 'St ate is the state fro m the curr ent addres ses a Regi strant has in AHOBPR . The Sel ection Cri teria allo ws a user to filter with one o r more sta tes.', '0' , @Today, @Today, 'D BA', 'DBA' , 'STD_STA TE', '170' , '170', ' False', 'T rue', 'Sta te:<br />' , NULL, NU LL, NULL, NULL, 'Pan elReportPa rm')
				5075		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant F ull Name', '1', 'Bas eControlLa belName', NULL, NULL , 'Registr ant Full N ame', '0', @Today, @ Today, 'DB A', 'DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Na me: &nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelReg istrantInf o')
				5076		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant D ate of Bir th', '1', 'BaseContr olLabelDob ', NULL, N ULL, 'Regi strant Dat e of Birth ', '0', @T oday, @Tod ay, 'DBA', 'DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Date of Birth ( mm/dd/yyyy ):&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelRegis trantInfo' )
				5077		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant G ender', '1 ', 'BaseCo ntrolLabel Gender', N ULL, NULL, 'Registra nt Gender' , '0', @To day, @Toda y, 'DBA', 'DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Gender :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelRegist rantInfo')
				5078		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant D uty Status ', '1', 'B aseControl LabelDutyS tatus', NU LL, NULL, 'Registran t Duty Sta tus', '0', @Today, @ Today, 'DB A', 'DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Du ty Status: &nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelRegistr antInfo')
				5079		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant L ast 4 SSN' , '1', 'Ba seControlL abelLast4s sn', NULL, NULL, 'Re gistrant L ast 4 Digi sts of SSN ', '0', @T oday, @Tod ay, 'DBA', 'DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Last 4 SSN:&nbs p&nbsp', N ULL, NULL, NULL, NUL L, 'PanelR egistrantI nfo')
				5080		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant E dipi', '1' , 'BaseCon trolLabelE dipi', NUL L, NULL, ' Registrant Edipi', ' 0', @Today , @Today, 'DBA', 'DB A', NULL, NULL, NULL , 'False', 'False', 'EDIPI:&nb sp&nbsp', NULL, NULL , NULL, NU LL, 'Panel Registrant Info')
				5081		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant S tatus', '1 ', 'BaseCo ntrolLabel RegistrySt atus', NUL L, NULL, ' Registrant Status', '0', @Toda y, @Today, 'DBA', 'D BA', NULL, NULL, NUL L, 'False' , 'False', 'Status:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, 'Pan elRegistra ntInfo')
				5082		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant E mail', '1' , 'BaseCon trolLabelE mail', NUL L, NULL, ' Registrant Email', ' 0', @Today , @Today, 'DBA', 'DB A', NULL, NULL, NULL , 'False', 'False', 'Email:&nb sp&nbsp', NULL, NULL , NULL, NU LL, 'Panel Registrant Info')
				5083		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant P hone', '1' , 'BaseCon trolLabelP hone', NUL L, NULL, ' Registrant Phone', ' 0', @Today , @Today, 'DBA', 'DB A', NULL, NULL, NULL , 'False', 'False', 'Phone:&nb sp&nbsp', NULL, NULL , NULL, NU LL, 'Panel Registrant Info')
				5084		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant Q uestionnai re Complet ion Date', '1', 'Bas eControlLa belQuestio nnaireComp letionDate ', NULL, N ULL, 'Regi strant Que stionnaire Completio n Date', ' 0', @Today , @Today, 'DBA', 'DB A', NULL, NULL, NULL , 'False', 'False', 'Questionn aire Compl etion Date :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelRegist rantInfo')
				5085		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant A ddress', ' 1', 'BaseC ontrolLabe lAddress', NULL, NUL L, 'Regist rant Addre ss', '0', @Today, @T oday, 'DBA ', 'DBA', NULL, NULL , NULL, 'F alse', 'Fa lse', 'Add ress:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe gistrantIn fo')
				5086		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re port Healt h Concerns ', '1', 'B aseControl LabelHealt hConcern', NULL, NUL L, 'Report Health Co ncerns?', '0', @Toda y, @Today, 'DBA', 'D BA', NULL, NULL, NUL L, 'False' , 'False', 'Report H ealth Conc erns?&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe gistrantIn fo')
				5087		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re quest to b e Seen', ' 1', 'BaseC ontrolLabe lRequestTo BeSeen', N ULL, NULL, 'Request to be Seen ?', '0', @ Today, @To day, 'DBA' , 'DBA', N ULL, NULL, NULL, 'Fa lse', 'Fal se', 'Requ est to be Seen?&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe gistrantIn fo')
				5088		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Su bpopulatio n Flags', '1', 'Base ControlLab elSubpopul ationFlags ', NULL, N ULL, 'Subp opulation Flags for a Registra nt', '0', @Today, @T oday, 'DBA ', 'DBA', NULL, NULL , NULL, 'F alse', 'Fa lse', 'Sub population Flags:&nb sp&nbsp', NULL, NULL , NULL, NU LL, 'Panel Registrant Info')
				5089		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'La st Admin F lag Set', '1', 'Base ControlLab elLastOutr each', NUL L, NULL, ' Last Admin Flag Set for a Regi strant', ' 0', @Today , @Today, 'DBA', 'DB A', NULL, NULL, NULL , 'False', 'False', 'Last Admi n Flag Set :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelRegist rantInfo')
				5090		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Duty S tatus', '5 ', 'BaseCo ntrolListB oxDutyStat us', NULL, NULL, 'Du ty Status is the mil itary stan ding of th e registra nt: Vetera n, Retiree , or Activ e Duty. Th e Selectio n Criteria allows th e user to filter wit h one or m ore status es.', '0', @Today, @ Today, 'DB A', 'DBA', 'STD_SERV ICE_STATUS ', NULL, N ULL, 'Fals e', 'True' , 'Duty St atus:<br / >', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				5091		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Questi on Number' , '4', 'Ba seControlD ropdownLis tQuestions ', NULL, N ULL, 'Spec ific Quest ion is a q uestion an d response from a co mpleted qu estionnair e. This da ta will on ly be avai lable for registrant s in Parti cipant sta tus. The Selection Criteria a llows the user to fi lter with one questi on and one or more r esponses.' , '0', @To day, @Toda y, 'DBA', 'DBA', 'ST D_FORM_QUE STION', NU LL, NULL, 'False', ' True', 'Qu estions:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lAdHocRepo rt')
				5092		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Questi on Respons e', '4', ' BaseContro lDropdownL istQuestio nReponse', NULL, NUL L, 'Specif ic Questio n is a que stion and response f rom a comp leted ques tionnaire. This data will only be availa ble for re gistrants in Partici pant statu s. The Se lection Cr iteria all ows the us er to filt er with on e question and one o r more res ponses.', '0', @Toda y, @Today, 'DBA', 'D BA', NULL, '150', '1 50', 'Fals e', 'True' , 'Answers :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelParame terAdHocRe port')
				5093		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Radio Button Hea lth Concer sn', '3', 'BaseContr olRadioBut tonListHea lthConcern s', NULL, NULL, 'Hea lth Concer ns is any positive r esponse to Q3.A–3.K by the reg istrant. T his data w ill only b e availabl e for regi strants in Participa nt status. The Selec tion Crite ria allows the user to filter with all a nswers, an y yes answ ers, or on ly no answ ers.', '0' , @Today, @Today, 'D BA', 'DBA' , NULL, NU LL, NULL, 'False', ' False', 'H ealth Conc erns:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelPa rameterAdH ocReport')
				5094		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Statu s Paramete rs', '5', 'BaseContr olListBoxS tatus', NU LL, NULL, 'Status is the statu s of the r egistrant’ s question naire: No Consent, C onsent, No t Eligible , Review, Review Not -Eligible, Review-El igible, El igible, an d Particip ant. The Selection Criteria a llows a us er to filt er with on e or more statuses.' , '0', @To day, @Toda y, 'DBA', 'DBA', 'RE GISTRY_STA TUS', '150 ', '150', 'False', ' True', 'St atus:<br / >', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				5095		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CHANGE_ST ATUS_REGIS TRANT_SEAR CH', 'Chan ge Status Registrant Search Pa rameters', '5', 'Bas eControlLi stBoxStatu s', NULL, NULL, 'Reg istrant Re gistry Sta tus', '0', @Today, @ Today, 'DB A', 'DBA', 'REGISTRY _STATUS_IN ELIGIBLE', '150', '1 50', 'Fals e', 'True' , 'Status: <br />', N ULL, NULL, NULL, NUL L, 'PanelS earchCrite ria')
				5096		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CHANGE_ST ATUS', 'Ch ange Statu s for a Re gistrant', '3', 'Bas eControlRa dioButtonL istStatus' , NULL, NU LL, 'Regis trant Regi stry Statu s', '0', @ Today, @To day, 'DBA' , 'DBA', ' REGISTRY_S TATUS_REVI EWED', NUL L, NULL, ' False', 'T rue', 'Cha nge Status To:&nbsp& nbsp&nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelCha ngeStatus' )
				5097		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Ans wer', '5', 'BaseCont rolListBox Answer', N ULL, NULL, 'Specific Question is a quest ion and re sponse fro m a comple ted questi onnaire. T his data w ill only b e availabl e for regi strants in Participa nt status. The Sele ction Crit eria allow s the user to filter with one question a nd one or more respo nses.', '0 ', @Today, @Today, ' DBA', 'DBA ', NULL, ' 200', '200 ', 'False' , 'True', 'Answer:<b r />', NUL L, NULL, N ULL, NULL, 'PanelPar ameterAdHo cReport')
				5098		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Sea rch Criter ia Name', '2', 'Base ControlTex tBoxSearch CriteriaNa me', 'Sear ch Criteri a Name is required.' , NULL, 'S earch Crit eria Name' , '0', @To day, @Toda y, 'DBA', 'DBA', NUL L, NULL, N ULL, 'True ', 'True', 'Search C riteria Na me: ', NUL L, NULL, ' OnSaveSear chCriteria ', '256', 'PanelPara meterAdHoc Report')
				5099		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents wit h Registra nt status= Participan t', '1', ' BaseContro lLabelPart icipantSta tus', NULL , NULL, 'N umber of r espondents with Regi strant sta tus=Partic ipant', '1 ', @Today, @Today, ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Number of respon dents with Registran t status=P articipant ', NULL, N ULL, NULL, NULL, 'Pa nelPartici pation')
				5100		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents wit h reported health co ncerns', ' 1', 'BaseC ontrolLabe lHealthCon cern', NUL L, NULL, ' Number of respondent s with rep orted heal th concern s', '2', @ Today, @To day, 'AHOB PR DBA', ' AHOBPR DBA ', NULL, N ULL, NULL, 'False', 'False', ' Number of respondent s with rep orted heal th concern s', NULL, NULL, NULL , NULL, 'P anelPartic ipation')
				5101		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents wit h no repor ted health concerns' , '1', 'Ba seControlL abelNoHeal thConcern' , NULL, NU LL, 'Numbe r of respo ndents wit h no repor ted health concerns' , '3', @To day, @Toda y, 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Nu mber of re spondents with no re ported hea lth concer ns', NULL, NULL, NUL L, NULL, ' PanelParti cipation')
				5102		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents wit h benefici ary status =Current V eteran', ' 1', 'BaseC ontrolLabe lVeteran', NULL, NUL L, 'Number of respon dents with beneficia ry status= Current Ve teran', '4 ', @Today, @Today, ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Number of respon dents with beneficia ry status= Current Ve teran', NU LL, NULL, NULL, NULL , 'PanelPa rticipatio n')
				5103		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents wit h benefici ary status =Active Du ty', '1', 'BaseContr olLabelAct iveDuty', NULL, NULL , 'Number of respond ents with beneficiar y status=A ctive Duty ', '5', @T oday, @Tod ay, 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' False', 'N umber of r espondents with bene ficiary st atus=Activ e Duty', N ULL, NULL, NULL, NUL L, 'PanelP articipati on')
				5104		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents wit h benefici ary status =Retiree', '1', 'Bas eControlLa belRetiree ', NULL, N ULL, 'Numb er of resp ondents wi th benefic iary statu s=Retiree' , '6', @To day, @Toda y, 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Nu mber of re spondents with benef iciary sta tus=Retire e', NULL, NULL, NULL , NULL, 'P anelPartic ipation')
				5105		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents Dep loyed to I raq on or after Sept 11, 2001' , '1', 'Ba seControlL abelIrapAf ter911', N ULL, NULL, 'Number o f responde nts Deploy ed to Iraq on or aft er Sept 11 , 2001', ' 7', @Today , @Today, 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Numbe r of respo ndents Dep loyed to I raq on or after Sept 11, 2001' , NULL, NU LL, NULL, NULL, 'Pan elParticip ation')
				5106		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents Dep loyed to A fghanistan on or aft er Sept 11 , 2001', ' 1', 'BaseC ontrolLabe lAfghanist anAfter911 ', NULL, N ULL, 'Numb er of resp ondents De ployed to Afghanista n on or af ter Sept 1 1, 2001', '8', @Toda y, @Today, 'AHOBPR D BA', 'AHOB PR DBA', N ULL, NULL, NULL, 'Fa lse', 'Fal se', 'Numb er of resp ondents De ployed to Afghanista n on or af ter Sept 1 1, 2001', NULL, NULL , NULL, NU LL, 'Panel Participat ion')
				5107		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents Dep loyed to S outhwest A sia theate r of opera tions afte r August 2 nd, 1990 a nd prior t o Septembe r 11, 2001 ', '1', 'B aseControl LabelAsiaB efore911', NULL, NUL L, 'Number of respon dents Depl oyed to So uthwest As ia theater of operat ions after August 2n d, 1990 an d prior to September 11, 2001' , '9', @To day, @Toda y, 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Nu mber of re spondents Deployed t o Southwes t Asia the ater of op erations a fter Augus t 2nd, 199 0 and prio r to Septe mber 11, 2 001', NULL , NULL, NU LL, NULL, 'PanelPart icipation' )
				5108		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents Dep loyed to S outhwest A sia (w/o I raq) on or after Sep t 11, 2001 ', '1', 'B aseControl LabelSouth westAsiaAf ter911', N ULL, NULL, 'Number o f responde nts Deploy ed to Sout hwest Asia (w/o Iraq ) on or af ter Sept 1 1, 2001', '10', @Tod ay, @Today , 'AHOBPR DBA', 'AHO BPR DBA', NULL, NULL , NULL, 'F alse', 'Fa lse', 'Num ber of res pondents D eployed to Southwest Asia (w/o Iraq) on or after S ept 11, 20 01', NULL, NULL, NUL L, NULL, ' PanelParti cipation')
				5109		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents tha t wish to discuss he alth conce rns (Answe r to Q7.B= Yes)', '1' , 'BaseCon trolLabelD iscussHeal thConcern' , NULL, NU LL, 'Numbe r of respo ndents tha t wish to discuss he alth conce rns (Answe r to Q7.B= Yes)', '11 ', @Today, @Today, ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Number of respon dents that wish to d iscuss hea lth concer ns (Answer to Q7.B=Y es)', NULL , NULL, NU LL, NULL, 'PanelPart icipation' )
				5110		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents tha t do not w ish to dis cuss healt h concerns (Answer t o Q7.B=No) ', '1', 'B aseControl LabelNoDis cussHealth Concern', NULL, NULL , 'Number of respond ents that do not wis h to discu ss health concerns ( Answer to Q7.B=No)', '12', @To day, @Toda y, 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Nu mber of re spondents that do no t wish to discuss he alth conce rns (Answe r to Q7.B= No)', NULL , NULL, NU LL, NULL, 'PanelPart icipation' )
				5111		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents tha t don’t kn ow if they wish to d iscuss hea lth concer ns (Answer to Q7.B=D on’t know) ', '1', 'B aseControl LabelUnkno wnDiscussH ealthConce rn', NULL, NULL, 'Nu mber of re spondents that don’t know if t hey wish t o discuss health con cerns (Ans wer to Q7. B=Don’t kn ow)', '13' , @Today, @Today, 'A HOBPR DBA' , 'AHOBPR DBA', NULL , NULL, NU LL, 'False ', 'False' , 'Number of respond ents that don’t know if they w ish to dis cuss healt h concerns (Answer t o Q7.B=Don ’t know)', NULL, NUL L, NULL, N ULL, 'Pane lParticipa tion')
				5112		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Media n number o f days fro m change o f Registra nt Record status=Eli gible to R egistrant Record sta tus=Partic ipant', '1 ', 'BaseCo ntrolLabel MedianTime CompleteFo rm', NULL, NULL, 'Me dian numbe r of days from chang e of Regis trant Reco rd status= Eligible t o Registra nt Record status=Par ticipant', '14', @To day, @Toda y, 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Me dian numbe r of days from chang e of Regis trant Reco rd status= Eligible t o Registra nt Record status=Par ticipant', NULL, NUL L, NULL, N ULL, 'Pane lParticipa tion')
				5113		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO RMATION', 'Report Du ty Status' , '5', 'Ba seControlL istBoxDuty Status', N ULL, NULL, 'Duty Sta tus is the military standing o f the regi strant: Ve teran, Ret iree, or A ctive Duty . The Sele ction Crit eria allow s the user to filter with one or more st atuses.', '0', @Toda y, @Today, 'DBA', 'D BA', 'STD_ SERVICE_ST ATUS', NUL L, NULL, ' False', 'T rue', 'Dut y Status:< br />', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				5114		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO RMATION', 'Report R egistrant Status', ' 5', 'BaseC ontrolList BoxStatus' , NULL, NU LL, 'Statu s is the s tatus of t he registr ant’s ques tionnaire: No Consen t, Consent , Not Elig ible, Revi ew, Review Not-Eligi ble, Revie w-Eligible , Eligible , and Part icipant. The Select ion Criter ia allows a user to filter wit h one or m ore status es.', '0', @Today, @ Today, 'DB A', 'DBA', 'REGISTRY _STATUS', '150', '15 0', 'False ', 'True', 'Status:< br />', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				5115		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO RMATION', 'Report Su bpopulatio n Flag', ' 4', 'BaseC ontrolDrop DownListSu bpopulatio nFlag', NU LL, NULL, 'Subpopula tion Flag is a flag on the reg istrant re cord set b y a Clinic al Portal user. The Selection Criteria allows the user to f ilter with one subpo pulation f lag.', '0' , @Today, @Today, 'D BA', 'DBA' , 'SUBPOPU LATION_FLA G_ALL', NU LL, NULL, 'False', ' True', 'Su bpopulatio n Flag:<br />', NULL , NULL, NU LL, NULL, 'PanelRepo rtParm')
				5116		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Subpop ulation Fl ag', '4', 'BaseContr olDropDown ListSubpop ulationFla g', NULL, NULL, 'Sub population Flag is a flag on t he registr ant record set by a Clinical P ortal user . The Sel ection Cri teria allo ws the use r to filte r with one subpopula tion flag. ', '0', @T oday, @Tod ay, 'DBA', 'DBA', 'S UBPOPULATI ON_FLAG_AL L', NULL, NULL, 'Fal se', 'True ', 'Subpop ulation Fl ag:&nbsp&n bsp', NULL , NULL, NU LL, NULL, 'PanelRepo rtParm')
				5117		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Hea lth Factor ', '5', 'B aseControl ListBoxHea lthFactor' , NULL, NU LL, 'Healt h Factors are entere d into the CPRS Temp late by a Health Car e Provider during th e Clinical Exposure Evaluation . This da ta will on ly be avai lable for registrant s in Parti cipant sta tus and ha ve had a C linical Ex posure Eva luation. The Select ion Criter ia allows the user t o filter w ith one or more heal th factors .', '0', @ Today, @To day, 'DBA' , 'DBA', ' HEALTH_FAC TOR', '350 ', '350', 'False', ' True', 'He alth Facto r:<br />', NULL, NUL L, NULL, N ULL, 'Pane lReportPar m')
				5118		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Dep loyment Co untry All' , '4', 'Ba seControlD ropDownLis tDeploymen tCountryAl l', NULL, NULL, 'Dep loyment Co untry rece ived from deployment data inte rfaces. T he Selecti on Criteri a allows t he user to filter wi th one cou ntry and b y all depl oyments. ', '0', @T oday, @Tod ay, 'DBA', 'DBA', 'D EPLOYMENT_ COUNTRY', NULL, NULL , 'False', 'True', ' Deployment Country ( All Deploy ments):&nb sp&nbsp', NULL, NULL , NULL, NU LL, 'Panel ReportParm ')
				5119		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Dep loyment Co untry With Exposure Response', '4', 'Bas eControlDr opDownList Deployment CountryExp osure', NU LL, NULL, 'Deploymen t Country received f rom deploy ment data interfaces . The Sel ection Cri teria allo ws the use r to filte r with one country a nd by depl oyments th at have ex posure res ponses. T he data fo r deployme nts that h ave exposu re respons es will on ly be avai lable for registrant s in Parti cipant sta tus.', '0' , @Today, @Today, 'D BA', 'DBA' , 'DEPLOYM ENT_COUNTR Y_EXPOSURE ', NULL, N ULL, 'Fals e', 'True' , 'Deploym ent Countr y (Deploym ents With Exposure R esponses): &nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelReportP arm')
				5120		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_EL IGIBILITY_ REVIEW', ' Report Re gistrant S tatus', '5 ', 'BaseCo ntrolListB oxStatus', NULL, NUL L, 'Status is the st atus of th e registra nt’s quest ionnaire: No Consent , Consent, Not Eligi ble, Revie w, Review Not-Eligib le, Review -Eligible, Eligible, and Parti cipant. T he Selecti on Criteri a allows a user to f ilter with one or mo re statuse s.', '0', @Today, @T oday, 'DBA ', 'DBA', 'REGISTRY_ STATUS', ' 150', '150 ', 'False' , 'True', 'Status:<b r />', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				5121		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CHANGE_ST ATUS_REGIS TRANT_SEAR CH', 'Last Name', '2 ', 'BaseCo ntrolTextB oxLastName ', NULL, N ULL, 'Regi strant Las t Name', ' 1', @Today , @Today, 'DBA', 'DB A', NULL, '100', NUL L, 'False' , 'True', 'Last Name :<br />', NULL, NULL , NULL, '5 0', 'Panel SearchCrit eria')
				5122		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CHANGE_ST ATUS_REGIS TRANT_SEAR CH', 'Last Four Digi ts of SSN' , '2', 'Ba seControlT extBoxLast 4SSN', NUL L, NULL, ' Registrant Last Four Digists o f SSN', '2 ', @Today, @Today, ' DBA', 'DBA ', NULL, ' 50', NULL, 'False', 'True', 'L ast Four D igits of S SN:<br />' , NULL, NU LL, NULL, '4', 'Pane lSearchCri teria')
				5123		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents Dep loyed to D jibouti on or after Sept 11, 2 001', '1', 'BaseCont rolLabelDj iboutiAfte r911', NUL L, NULL, ' Number of respondent s Deployed to Djibou ti on or a fter Sept 11, 2001', '15', @To day, @Toda y, 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Nu mber of re spondents Deployed t o Djibouti on or aft er Sept 11 , 2001', N ULL, NULL, NULL, NUL L, 'PanelP articipati on')
				5124		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _HEALTH_FA CTOR', 'Re ported His tory of As thma as Re corded by the Provid er', '1', 'BaseContr olLabelAst hma', NULL , NULL, 'R eported Hi story of A sthma as R ecorded by the Provi der', '1', @Today, @ Today, 'AH OBPR DBA', 'AHOBPR D BA', NULL, NULL, NUL L, 'False' , 'False', 'Reported History o f Asthma a s Recorded by the Pr ovider', N ULL, NULL, NULL, NUL L, 'PanelH ealthFacto r')
				5125		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _HEALTH_FA CTOR', 'Re ported Ini tiation or Increase in Tobacco Smoking D uring Depl oyment', ' 1', 'BaseC ontrolLabe lSmokingDe ployment', NULL, NUL L, 'Report ed Initiat ion or Inc rease in T obacco Smo king Durin g Deployme nt', '2', @Today, @T oday, 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'False', 'Reported Initiation or Increa se in Toba cco Smokin g During D eployment' , NULL, NU LL, NULL, NULL, 'Pan elHealthFa ctor')
				5126		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _HEALTH_FA CTOR', 'Re ported Tob acco Smoki ng History ', '1', 'B aseControl LabelTobac co', NULL, NULL, 'Re ported Tob acco Smoki ng History ', '3', @T oday, @Tod ay, 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' False', 'R eported To bacco Smok ing Histor y', NULL, NULL, NULL , NULL, 'P anelHealth Factor')
				5127		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _HEALTH_FA CTOR', 'Pr esence of Birth Defe cts in Chi ldren', '1 ', 'BaseCo ntrolLabel BirthDefec ts', NULL, NULL, 'Pr esence of Birth Defe cts in Chi ldren', '4 ', @Today, @Today, ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Presen ce of Birt h Defects in Childre n', NULL, NULL, NULL , NULL, 'P anelHealth Factor')
				5128		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'F ull Name', '1', 'Bas eControlTe xtboxFullN ame', 'Ful l Name is required.' , NULL, 'F ull Name', '0', '201 5-05-05 00 :00:00.000 ', '2015-0 5-05 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Tru e', 'False ', 'Full N ame:', NUL L, NULL, ' alpha', NU LL, 'entry Panel')
				5129		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'F irst Name' , '1', 'Ba seControlT extboxFirs tName', 'F irst Name is require d.', NULL, 'First Na me', '1', '2015-05-0 7 00:00:00 .000', '20 15-05-07 0 0:00:00.00 0', 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'True', 'F alse', 'Fi rst Name:' , NULL, NU LL, 'alpha ', NULL, ' entryPanel ')
				5130		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'M iddle Name ', '1', 'B aseControl TextBoxMid dleName', NULL, NULL , 'Middle Name', '2' , '2015-05 -05 00:00: 00.000', ' 2015-05-05 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'False', 'Middle Na me:', NULL , NULL, NU LL, NULL, 'entryPane l')
				5131		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'L ast Name', '1', 'Bas eControlTe xtBoxLastN ame', 'Las t Name is required.' , NULL, 'L ast Name', '3', '201 5-05-05 00 :00:00.000 ', '2015-0 5-05 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Tru e', 'False ', 'Last N ame:', NUL L, NULL, ' alpha', NU LL, 'entry Panel')
				5132		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'M aiden Name ', '1', 'B aseControl TextBoxMai denName', NULL, NULL , 'Maiden Name', '4' , '2015-05 -05 00:00: 00.000', ' 2015-05-05 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'False', 'Maiden Na me:', NULL , NULL, NU LL, NULL, 'entryPane l')
				5133		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'E mployee Nu mber', '1' , 'BaseCon trolTextBo xEmployeeN umber', NU LL, NULL, 'Employee Number', ' 5', '2015- 05-05 00:0 0:00.000', '2015-05- 05 00:00:0 0.000', 'A HOBPR DBA' , 'AHOBPR DBA', NULL , NULL, NU LL, 'False ', 'False' , 'Employe e Number:' , NULL, NU LL, NULL, NULL, 'ent ryPanel')
				5134		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'J ob Title', '1', 'Bas eControlTe xtBoxJobTi tle', 'Job Title is required.' , NULL, 'J ob Title', '6', '201 5-05-05 00 :00:00.000 ', '2015-0 5-05 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Tru e', 'False ', 'Job Ti tle:', NUL L, NULL, ' alpha', NU LL, 'entry Panel')
				5135		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'E mail Addre ss', '1', 'BaseContr olTextBoxE mail', 'Em ail Addres s is requi red.', NUL L, 'Email Address', '7', '2015 -05-05 00: 00:00.000' , '2015-05 -05 00:00: 00.000', ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'True ', 'False' , 'Email A ddress:', NULL, NULL , 'alpha', NULL, 'en tryPanel')
				5136		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'P hone Numbe r', '1', ' BaseContro lTextBoxTe lephone', 'Telephone Number is required. ', NULL, ' Telephone Number', ' 8', '2015- 05-05 00:0 0:00.000', '2015-05- 05 00:00:0 0.000', 'A HOBPR DBA' , 'AHOBPR DBA', NULL , NULL, NU LL, 'True' , 'False', 'Telephon e Number:' , NULL, NU LL, 'alpha ', NULL, ' entryPanel ')
				5137		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'F ax', '1', 'BaseContr olTextBoxF ax', NULL, NULL, 'Fa x Number', '9', '201 5-05-05 00 :00:00.000 ', '2015-0 5-05 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Fax N umber:', N ULL, NULL, NULL, NUL L, 'entryP anel')
				5138		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Race', '1' , 'BaseCon trolLabelR ace', NULL , NULL, 'R egistrant' 's Race', '0', '2015 -05-19 13: 22:24.530' , '2015-05 -19 13:22: 24.530', ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Race:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, 'Pan elRegistra ntInformat ion')
				5139		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Ethnicity' , '1', 'Ba seControlL abelEthnic ity', NULL , NULL, 'E thnicity', '0', '201 5-05-19 13 :22:24.530 ', '2015-0 5-19 13:22 :24.530', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Ethni city:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe gistrantDe mographics ')
				5140		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Marital St atus', '1' , 'BaseCon trolLabelM aritalStat us', NULL, NULL, 'Ma ritalSttus ', '0', '2 015-05-19 13:22:24.5 30', '2015 -05-09 13: 22:24.530' , 'AHOBPR DBA', 'AHO BPR DBA', NULL, NULL , NULL, 'F alse', 'Fa lse', 'Mar ital Statu s:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelRegis trantDemog raphics')
				5141		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' VitalStatu s', '1', ' BaseContro lLabelVita lStatus', NULL, NULL , 'Vital S tatus', '0 ', '2015-0 5-19 13:22 :24.530', '2015-05-1 9 13:22:24 .530', 'AH OBPR DBA', 'AHOBPR D BA', NULL, NULL, NUL L, 'False' , 'False', 'Vital St atus:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe gistrantDe mographics ')
				5142		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Education Level', '1 ', 'BaseCo ntrolLabel EducationL evel', NUL L, NULL, ' Eduaction Level', '0 ', '2015-0 5-19 13:22 :24.530', '2015-05-1 9 13:22:24 .530', 'AH OBPR DBA', 'AHOBPR D BA', NULL, NULL, NUL L, 'False' , 'False', 'Educatio n Level:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lRegistran tDemograph ics')
				5143		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Current Br anch of Se rvice', '1 ', 'BaseCo ntrolLabel CurrentBra nchOfSvc', NULL, NUL L, 'Curren t Branch o f Service' , '0', '20 15-05-19 1 3:22:24.53 0', '2015- 05-19 13:2 2:24.530', 'AHOBPR D BA', 'AHOB PR DBA', N ULL, NULL, NULL, 'Fa lse', 'Fal se', 'Curr ent Branch Of Servic e:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelRegis trantDemog raphics')
				5144		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Branch of Service at First Log in', '1', 'BaseContr olLabelBra nchSvcFirs tLogin', N ULL, NULL, 'Branch o f Service at First L ogin', '0' , '2015-05 -19 13:22: 24.530', ' 2015-05-19 13:22:24. 530', 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'False', 'Branch of Service a t First Lo gin:&nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelReg istrantDem ographics' )
				5145		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Current Co mponent', '1', 'Base ControlLab elCurrentC omponent', NULL, NUL L, 'Curren t Componen t', '0', ' 2015-05-19 13:22:24. 530', '201 5-05-19 13 :22:24.530 ', 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Cu rrent Comp onent:&nbs p&nbsp', N ULL, NULL, NULL, NUL L, 'PanelR egistrantD emographic s')
				5146		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Component at FirstLo gin', '1', 'BaseCont rolLabelCo mponentFir stLogin', NULL, NULL , 'Compone nt at Firs t Login', '0', '2015 -05-19 13: 22:24.530' , '2015-05 -19 13:22: 24.530', ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Compon ent at Fir st Login:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, 'Pan elRegistra ntDemograp hics')
				5147		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Most recen t Separati on Type', '1', 'Base ControlLab elMostRece ntSepType' , NULL, NU LL, 'Most recent Sep aration Ty pe', '0', '2015-05-1 9 13:22:24 .530', '20 15-05-19 1 3:22:24.53 0', 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' False', 'M ost recent Separatio n Type:&nb sp&nbsp ', NULL, NUL L, NULL, N ULL, 'Pane lSeparatio nInfo')
				5148		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Separation Type at F irst Login ', '1', 'B aseControl LabelSepTy peFirstLog in', NULL, NULL, 'Se paration T ype at Fir st Login', '0', '201 5-05-19 13 :22:24.530 ', '2015-0 5-19 13:22 :24.530', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Separ ation Type at First Login:&nbs p&nbsp ', NULL, NUL L, NULL, N ULL, 'Pane lSeparatio nInfo')
				5149		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Most recen t Separati on Date', '1', 'Base ControlLab elMostRece ntSepDate' , NULL, NU LL, 'Most recent Sep aration Da te', '0', '2015-05-1 9 13:22:24 .530', '20 15-05-19 1 3:22:24.53 0', 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' False', 'M ost recent Separatio n Date:&nb sp&nbsp ', NULL, NUL L, NULL, N ULL, 'Pane lSeparatio nInfo')
				5150		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Separation Date at F irst Login ', '1', 'B aseControl LabelSepDa teFirstLog in', NULL, NULL, 'Se paration D ate at Fir st Login', '0', '201 5-05-19 13 :22:24.530 ', '2015-0 5-19 13:22 :24.530', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Separ ation Date at First Login:&nbs p&nbsp ', NULL, NUL L, NULL, N ULL, 'Pane lSeparatio nInfo')
				5151		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Contact Pr eference', '1', 'Bas eControlLa belContact Preferance ', NULL, N ULL, 'Cont act Prefer ence', '0' , '2015-05 -19 13:22: 24.530', ' 2015-05-19 13:22:24. 530', 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'False', 'Contact P reference: &nbsp&nbsp ', NULL, NULL, NUL L, NULL, ' PanelCurre ntContactI nfo')
				5152		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Phone', '1 ', 'BaseCo ntrolLabel Phone', NU LL, NULL, 'Phone', ' 0', '2015- 05-19 13:2 2:24.530', '2015-05- 19 13:22:2 4.530', 'A HOBPR DBA' , 'AHOBPR DBA', NULL , NULL, NU LL, 'False ', 'False' , 'Phone:& nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelCurrent ContactInf o')
				5153		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Mobile', ' 1', 'BaseC ontrolLabe lMobile', NULL, NULL , 'Mobile' , '0', '20 15-05-19 1 3:22:24.53 0', '2015- 05-19 13:2 2:24.530', 'AHOBPR D BA', 'AHOB PR DBA', N ULL, NULL, NULL, 'Fa lse', 'Fal se', 'Mobi le:&nbsp&n bsp ', NU LL, NULL, NULL, NULL , 'PanelCu rrentConta ctInfo')
				5154		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Email', '1 ', 'BaseCo ntrolLabel Email', NU LL, NULL, 'Email', ' 0', '2015- 05-19 13:2 2:24.530', '2015-05- 19 13:22:2 4.530', 'A HOBPR DBA' , 'AHOBPR DBA', NULL , NULL, NU LL, 'False ', 'False' , 'Email:& nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelCurrent ContactInf o')
				5155		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Address', '1', 'Base ControlLab elAddress' , NULL, NU LL, 'Addre ss', '0', '2015-05-1 9 13:22:24 .530', '20 15-05-19 1 3:22:24.53 0', 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' False', 'A ddress:&nb sp&nbsp ', NULL, NUL L, NULL, N ULL, 'Pane lCurrentCo ntactInfo' )
				5156		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO RMATION', 'Report Pa rmater Sta te', '5', 'BaseContr olListBoxS tate', NUL L, NULL, ' State is t he state f rom the cu rrent addr esses a Re gistrant h as in AHOB PR. The S election C riteria al lows a use r to filte r with one or more s tates.', ' 0', '2015- 05-26 12:0 0:00.000', '2015-05- 26 12:00:0 0.000', 'A HOBPR DBA' , 'AHOBPR DBA', 'STD _STATE', ' 170', '170 ', 'False' , 'True', 'State:<br />', NULL , NULL, NU LL, NULL, 'PanelRepo rtParm')
				5157		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Race', '4', 'Bas eControlDr opDownList Race', NUL L, NULL, ' Race is th e heredita ry group t o which th e registra nt identif ies with. The Select ion Criter ia allows the user t o filter b y one Race .', '0', ' 2015-06-03 13:22:24. 530', '201 5-06-03 13 :22:24.530 ', 'AHOBPR DBA', 'AH OBPR DBA', 'STD_RACE ', NULL, N ULL, 'Fals e', 'True' , 'Race:&n bsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelReportP arm')
				5158		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Gender ', '4', 'B aseControl DropDownLi stGender', NULL, NUL L, 'Gender is the se x of the r egistrant. The Selec tion Crite ria allows the user to filter by one Gen der.', '0' , '2015-06 -04 00:00: 00.000', ' 2015-06-04 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', 'STD_G ENDER', NU LL, NULL, 'False', ' True', 'Ge nder: ', NULL, NULL , NULL, NU LL, 'Panel ReportParm ')
				5159		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Separa tion Type' , '4', 'Ba seControlD ropDownLis tSeparatio nType', NU LL, NULL, 'Separatio n Type is reason for the Regis trants mos t recent s eparation. The Sele ction Crit eria allow s the user to filter by one Se paration T ype.', '0' , '2015-06 -04 00:00: 00.000', ' 2015-06-04 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', 'STD_S EPARATIONR EASON', NU LL, NULL, 'False', ' True', 'Se paration T ype:&nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				5160		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Ethnic ity', '4', 'BaseCont rolDropDow nListEthni city', NUL L, NULL, ' Ethnicity is the eth nic affili ation of t he Registr ant. The S election C riteria al lows the u ser to fil ter by one Ethnicity .', '0', ' 2015-06-04 00:00:00. 000', '201 5-06-04 00 :00:00.000 ', 'AHOBPR DBA', 'AH OBPR DBA', 'STD_ETHN ICITY', NU LL, NULL, 'False', ' True', 'Et hnicity:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lReportPar m')
				5161		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Enroll ment Statu s', '4', ' BaseContro lDropDownL istEnrollm entStatus' , NULL, NU LL, 'Healt h Care Enr ollment St atus is th e Registra nt’s statu s in VA Ca re. The Se lection Cr iteria all ows the us er to filt er by one Health Car e Enrollme nt Status. ', '0', '2 015-06-04 00:00:00.0 00', '2015 -06-04 00: 00:00.000' , 'AHOBPR DBA', 'AHO BPR DBA', 'STD_ELIGI BLITYSTATU S', NULL, NULL, 'Fal se', 'True ', ' Healt h Care (VA Care) Enr ollment St atus:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				5162		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Duty Statu s', '1', ' BaseContro lLabelDuty Status', N ULL, NULL, NULL, '0' , '2015-06 -04 00:00: 00.000', ' 2015-06-17 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'True', ' Current Du ty Status: &nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelRegistr antDemogra phics')
				5163		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Duty Statu s at First Login', ' 1', 'BaseC ontrolLabe lDutyStatu sFirstLogi n', NULL, NULL, NULL , '0', '20 15-06-18 0 0:00:00.00 0', '2015- 06-18 00:0 0:00.000', 'AHOBPR D BA', 'AHOB PR DBA', N ULL, NULL, NULL, 'Fa lse', 'Tru e', 'Duty Status At First Logi n:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelRegis trantDemog raphics')
				5164		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Report Cha racter of Service', '1', 'Base ControlLab elCharOfSe rvice', NU LL, NULL, NULL, '0', '2015-06- 25 00:00:0 0.000', '2 015-06-25 00:00:00.0 00', 'AHOB PR DBA', ' AHOBPR DBA ', 'STD_CH ARACTEROFS ERVICE', N ULL, NULL, 'False', 'True', 'C haracter o f Service: &nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelCurrent ContactInf o')
				5165		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION', N'Q uestion Te xt', 2, N' BaseContro lTextboxQu estionText ', N'Quest ion Text i s required .', NULL, N'Question Text', 1, CAST(0x00 00A5450000 0000 AS Da teTime), C AST(0x0000 A545000000 00 AS Date Time), N'A HOBPR DBA' , N'AHOBPR DBA', NUL L, NULL, 3 00, 1, 0, N'Question Text: **& nbsp&nbsp' , NULL, NU LL, N'Save Question', 4000, N'P anelEditQu estion')
				5166		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION', N'Q uestion Ty pe', 7, N' BaseContro lRadioButt onListText ValueQuest ionType', N'Question Type is r equired.', NULL, N'Q uestion Ty pe', 2, CA ST(0x0000A 5450000000 0 AS DateT ime), CAST (0x0000A54 500000000 AS DateTim e), N'AHOB PR DBA', N 'AHOBPR DB A', N'TOOL _QUESTION_ TYPE', NUL L, NULL, 1 , 0, N'Que stion Type : **&nbsp' , NULL, NU LL, N'Save Question', NULL, N'P anelEditQu estion')
				5167		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION', N'Q uestion Ke y Words', 2, N'BaseC ontrolText boxQuestio nKeyWords' , NULL, NU LL, N'Ques tion Key W ords', 3, CAST(0x000 0A54500000 000 AS Dat eTime), CA ST(0x0000A 5450000000 0 AS DateT ime), N'AH OBPR DBA', N'AHOBPR DBA', NULL , NULL, 20 0, 0, 0, N 'Key Words :&nbsp&nbs p&nbsp&nbs p', NULL, NULL, NULL , 2000, N' PanelEditQ uestion')
				5168		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION', N'M inimum Val ue', 2, N' BaseContro lTextBoxMi nValue', N 'Minimum V alue is nu meric only .', N'^[0- 9]+$', N'M inimum Val ue for Fre e Text Num ber Field' , 4, CAST( 0x0000A545 00000000 A S DateTime ), CAST(0x 0000A54500 000000 AS DateTime), N'AHOBPR DBA', N'AH OBPR DBA', NULL, NUL L, NULL, 0 , 0, N'Min imum Value :&nbsp&nbs p', NULL, NULL, N'Sa veQuestion ', 256, N' PanelEditQ uestion')
				5169		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION', N'M ax Value', 2, N'Base ControlTex tBoxMaxVal ue', N'Max Value is numeric on ly.', N'^[ 0-9]+$', N 'Max Value for Free Text Numbe r Field', 5, CAST(0x 0000A54500 000000 AS DateTime), CAST(0x00 00A5450000 0000 AS Da teTime), N 'AHOBPR DB A', N'AHOB PR DBA', N ULL, NULL, NULL, 0, 0, N'Max V alue:&nbsp &nbsp', NU LL, NULL, N'SaveQues tion', 256 , N'PanelE ditQuestio n')
				5170		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION_GROUP ', N'Quest ion Group Name', 2, N'BaseCont rolTextbox FormName', N'Questio n Group Na me is requ ired.', NU LL, N'Ques tion Group Name', 1, CAST(0x00 00A5460000 0000 AS Da teTime), C AST(0x0000 A546000000 00 AS Date Time), N'A HOBPR DBA' , N'AHOBPR DBA', NUL L, NULL, 2 00, 1, 0, N'Question Group Nam e: **&nbsp &nbsp', NU LL, NULL, N'SaveQues tionGroup' , 256, N'P anelEditQu estionGrou p')
				5171		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION_GROUP ', N'Quest ion Group Title', 2, N'BaseCon trolTextbo xFormTitle ', N'Quest ion Group Title is r equired.', NULL, N'Q uestion Gr oup Title' , 1, CAST( 0x0000A546 00000000 A S DateTime ), CAST(0x 0000A54600 000000 AS DateTime), N'AHOBPR DBA', N'AH OBPR DBA', NULL, NUL L, 300, 1, 0, N'Ques tion Group Notes: ** &nbsp&nbsp ', NULL, N ULL, N'Sav eQuestionG roup', 500 , N'PanelE ditQuestio nGroup')
				5172		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Du ty Status' , '5', 'Ba seControlL istBoxDuty Status', N ULL, NULL, 'Duty Sta tus is the military standing o f the regi strant: Ve teran, Ret iree, or A ctive Duty . The Sele ction Crit eria allow s the user to filter with one or more st atuses.', '0', @Toda y, @Today, 'DBA', 'D BA', 'STD_ SERVICE_ST ATUS', NUL L, NULL, ' False', 'T rue', 'Dut y Status:< br />', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				5173		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Qu estion Num ber', '4', 'BaseCont rolDropdow nListQuest ions', NUL L, NULL, ' Specific Q uestion is a questio n and resp onse from a complete d question naire. Thi s data wil l only be available for regist rants in P articipant status. The Select ion Criter ia allows the user t o filter w ith one qu estion and one or mo re respons es.', '0', @Today, @ Today, 'DB A', 'DBA', 'STD_FORM _QUESTION' , NULL, NU LL, 'False ', 'True', 'Question s:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelAdHoc Report')
				5174		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Qu estion Res ponse', '4 ', 'BaseCo ntrolDropd ownListQue stionRepon se', NULL, NULL, 'Sp ecific Que stion is a question and respon se from a completed questionna ire. This data will only be av ailable fo r registra nts in Par ticipant s tatus. Th e Selectio n Criteria allows th e user to filter wit h one ques tion and o ne or more responses .', '0', @ Today, @To day, 'DBA' , 'DBA', N ULL, '150' , '150', ' False', 'T rue', 'Ans wers:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelPa rameterAdH ocReport')
				5175		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Ra dio Button Health Co ncersn', ' 3', 'BaseC ontrolRadi oButtonLis tHealthCon cerns', NU LL, NULL, 'Health Co ncerns is any positi ve respons e to Q3.A– 3.K by the registran t. This da ta will on ly be avai lable for registrant s in Parti cipant sta tus. The S election C riteria al lows the u ser to fil ter with a ll answers , any yes answers, o r only no answers.', '0', @Tod ay, @Today , 'DBA', ' DBA', NULL , NULL, NU LL, 'False ', 'False' , 'Health Concerns:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, 'Pan elParamete rAdHocRepo rt')
				5176		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report S tatus Para meters', ' 5', 'BaseC ontrolList BoxStatus' , NULL, NU LL, 'Statu s is the s tatus of t he registr ant’s ques tionnaire: No Consen t, Consent , Not Elig ible, Revi ew, Review Not-Eligi ble, Revie w-Eligible , Eligible , and Part icipant. The Select ion Criter ia allows a user to filter wit h one or m ore status es.', '0', @Today, @ Today, 'DB A', 'DBA', 'REGISTRY _STATUS', '150', '15 0', 'False ', 'True', 'Status:< br />', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				5177		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Answer', '5', 'Base ControlLis tBoxAnswer ', NULL, N ULL, 'Spec ific Quest ion is a q uestion an d response from a co mpleted qu estionnair e. This da ta will on ly be avai lable for registrant s in Parti cipant sta tus. The Selection Criteria a llows the user to fi lter with one questi on and one or more r esponses.' , '0', @To day, @Toda y, 'DBA', 'DBA', NUL L, '200', '200', 'Fa lse', 'Tru e', 'Answe r:<br />', NULL, NUL L, NULL, N ULL, 'Pane lParameter AdHocRepor t')
				5178		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Search Cr iteria Nam e', '2', ' BaseContro lTextBoxSe archCriter iaName', ' Search Cri teria Name is requir ed.', NULL , 'Search Criteria N ame', '0', @Today, @ Today, 'DB A', 'DBA', NULL, NUL L, NULL, ' True', 'Tr ue', 'Sear ch Criteri a Name: ', NULL, NUL L, 'OnSave SearchCrit eria', '25 6', 'Panel ParameterA dHocReport ')
				5179		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Su bpopulatio n Flag', ' 5', 'BaseC ontrolList BoxSubpopu lationFlag ', NULL, N ULL, 'Subp opulation Flag is a flag on th e registra nt record set by a C linical Po rtal user. The Sele ction Crit eria allow s the user to filter with one subpopulat ion flag.' , '0', '20 15-11-11 1 6:26:06.28 0', '2015- 11-11 16:2 6:06.280', 'DBA', 'D BA', 'SUBP OPULATION_ FLAG_ALL', '300', '3 00', 'Fals e', 'True' , 'Subpopu lation Fla g:<br>', N ULL, NULL, NULL, NUL L, 'PanelR eportParm' )
				5180		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Health Fa ctor', '5' , 'BaseCon trolListBo xHealthFac tor', NULL , NULL, 'H ealth Fact ors are en tered into the CPRS Template b y a Health Care Prov ider durin g the Clin ical Expos ure Evalua tion. Thi s data wil l only be available for regist rants in P articipant status an d have had a Clinica l Exposure Evaluatio n. The Se lection Cr iteria all ows the us er to filt er with on e or more health fac tors.', '0 ', @Today, @Today, ' DBA', 'DBA ', 'HEALTH _FACTOR', '350', '35 0', 'False ', 'True', 'Health F actor:<br />', NULL, NULL, NUL L, NULL, ' PanelRepor tParm')
				5181		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Deploymen t Country All', '4', 'BaseCont rolDropDow nListDeplo ymentCount ryAll', NU LL, NULL, 'Deploymen t Country received f rom deploy ment data interfaces . The Sel ection Cri teria allo ws the use r to filte r with one country a nd by all deployment s. ', '0' , @Today, @Today, 'D BA', 'DBA' , 'DEPLOYM ENT_COUNTR Y', NULL, NULL, 'Fal se', 'True ', 'Deploy ment Count ry (All De ployments) :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				5182		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Deploymen t Country With Expos ure Respon se', '4', 'BaseContr olDropDown ListDeploy mentCountr yExposure' , NULL, NU LL, 'Deplo yment Coun try receiv ed from de ployment d ata interf aces. The Selection Criteria allows the user to f ilter with one count ry and by deployment s that hav e exposure responses . The dat a for depl oyments th at have ex posure res ponses wil l only be available for regist rants in P articipant status.', '0', @Tod ay, @Today , 'DBA', ' DBA', 'DEP LOYMENT_CO UNTRY_EXPO SURE', NUL L, NULL, ' False', 'T rue', 'Dep loyment Co untry (Dep loyments W ith Exposu re Respons es):&nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				5183		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Ra ce', '4', 'BaseContr olDropDown ListRace', NULL, NUL L, 'Race i s the here ditary gro up to whic h the regi strant ide ntifies wi th. The Se lection Cr iteria all ows the us er to filt er by one Race.', '0 ', '2015-0 6-03 13:22 :24.530', '2015-06-0 3 13:22:24 .530', 'AH OBPR DBA', 'AHOBPR D BA', 'STD_ RACE', NUL L, NULL, ' False', 'T rue', 'Rac e:&nbsp&nb sp ', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				5184		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Ge nder', '4' , 'BaseCon trolDropDo wnListGend er', NULL, NULL, 'Ge nder is th e sex of t he registr ant. The S election C riteria al lows the u ser to fil ter by one Gender.', '0', '201 5-06-04 00 :00:00.000 ', '2015-0 6-04 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', 'S TD_GENDER' , NULL, NU LL, 'False ', 'True', 'Gender: ', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				5185		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Se paration T ype', '4', 'BaseCont rolDropDow nListSepar ationType' , NULL, NU LL, 'Separ ation Type is reason for the R egistrants most rece nt separat ion. The Selection Criteria a llows the user to fi lter by on e Separati on Type.', '0', '201 5-06-04 00 :00:00.000 ', '2015-0 6-04 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', 'S TD_SEPARAT IONREASON' , NULL, NU LL, 'False ', 'True', 'Separati on Type:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lReportPar m')
				5186		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Et hnicity', '4', 'Base ControlDro pDownListE thnicity', NULL, NUL L, 'Ethnic ity is the ethnic af filiation of the Reg istrant. T he Selecti on Criteri a allows t he user to filter by one Ethni city.', '0 ', '2015-0 6-04 00:00 :00.000', '2015-06-0 4 00:00:00 .000', 'AH OBPR DBA', 'AHOBPR D BA', 'STD_ ETHNICITY' , NULL, NU LL, 'False ', 'True', 'Ethnicit y:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelRepor tParm')
				5187		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report En rollment S tatus', '4 ', 'BaseCo ntrolDropD ownListEnr ollmentSta tus', NULL , NULL, 'H ealth Care Enrollmen t Status i s the Regi strant’s s tatus in V A Care. Th e Selectio n Criteria allows th e user to filter by one Health Care Enro llment Sta tus.', '0' , '2015-06 -04 00:00: 00.000', ' 2015-06-04 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', 'STD_E LIGIBLITYS TATUS', NU LL, NULL, 'False', ' True', ' H ealth Care (VA Care) Enrollmen t Status:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, 'Pan elReportPa rm')
				5188		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Template Title', '4 ', 'BaseCo ntrolDropD ownListTem plate', 'E mail/Notif ication is required. ', NULL, N ULL, '0', '2015-11-0 4 00:00:00 .000', '20 15-11-04 0 0:00:00.00 0', 'AHOBP R DBA', 'A HOBPR DBA' , 'TEMPLAT E_MESSAGE_ TITLE', NU LL, NULL, 'True', 'T rue', 'Ema il/Notific ation:&nbs p&nbsp', N ULL, NULL, 'sendEmail Message', NULL, 'Pan elSend')
				5189		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Question R esponse', 4, N'BaseC ontrolDrop downListQu estionRepo nse', NULL , NULL, N' Specific Q uestion is a questio n and resp onse from a complete d question naire. Thi s data wil l only be available for regist rants in P articipant status. The Select ion Criter ia allows the user t o filter w ith one qu estion and one or mo re respons es.', 0, C AST(0x0000 A549000000 00 AS Date Time), CAS T(0x0000A5 4900000000 AS DateTi me), N'DBA ', N'DBA', NULL, 150 , 150, 0, 1, N'Answe rs:&nbsp&n bsp', NULL , NULL, NU LL, NULL, N'PanelPar ameterSend Questions' )
				5190		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Radio Butt on Health Concersn', 3, N'Base ControlRad ioButtonLi stHealthCo ncerns', N ULL, NULL, N'Health Concerns i s any posi tive respo nse to Q3. A3.K by th e registra nt. This d ata will o nly be ava ilable for registran ts in Part icipant st atus. The Selection Criteria a llows the user to fi lter with all answer s, any yes answers, or only no answers.' , 0, CAST( 0x0000A549 00000000 A S DateTime ), CAST(0x 0000A54900 000000 AS DateTime), N'DBA', N 'DBA', NUL L, NULL, N ULL, 0, 0, N'Health Concerns:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, N'Pa nelParamet erSendQues tions')
				5191		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Status Par ameters', 5, N'BaseC ontrolList BoxStatus' , NULL, NU LL, N'Stat us is the status of the regist rants ques tionnaire: No Consen t, Consent , Not Elig ible, Revi ew, Review Not-Eligi ble, Revie w-Eligible , Eligible , and Part icipant. The Select ion Criter ia allows a user to filter wit h one or m ore status es.', 0, C AST(0x0000 A549000000 00 AS Date Time), CAS T(0x0000A5 4900000000 AS DateTi me), N'DBA ', N'DBA', N'REGISTR Y_STATUS', 150, 150, 0, 1, N'S tatus:<br />', NULL, NULL, NUL L, NULL, N 'PanelPara meterSendQ uestions')
				5192		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Answer', 5 , N'BaseCo ntrolListB oxAnswer', NULL, NUL L, N'Speci fic Questi on is a qu estion and response from a com pleted que stionnaire . This dat a will onl y be avail able for r egistrants in Partic ipant stat us. The S election C riteria al lows the u ser to fil ter with o ne questio n and one or more re sponses.', 0, CAST(0 x0000A5490 0000000 AS DateTime) , CAST(0x0 000A549000 00000 AS D ateTime), N'DBA', N' DBA', NULL , 200, 200 , 0, 1, N' Answer:<br />', NULL , NULL, NU LL, NULL, N'PanelPar ameterSend Questions' )
				5193		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', 'S ubpopulati on Flag', '5', 'Base ControlLis tBoxSubpop ulationFla g', NULL, NULL, 'Sub population Flag is a flag on t he registr ant record set by a Clinical P ortal user . The Sel ection Cri teria allo ws the use r to filte r with one subpopula tion flag. ', '0', '2 015-11-07 00:00:00.0 00', '2015 -11-07 00: 00:00.000' , 'DBA', ' DBA', 'SUB POPULATION _FLAG_ALL' , '300', ' 300', 'Fal se', 'True ', 'Subpop ulation Fl ag:<br>', NULL, NULL , NULL, NU LL, 'Panel ParameterS endQuestio ns')
				5194		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Health Fac tor', 5, N 'BaseContr olListBoxH ealthFacto r', NULL, NULL, N'He alth Facto rs are ent ered into the CPRS T emplate by a Health Care Provi der during the Clini cal Exposu re Evaluat ion. This data will only be a vailable f or registr ants in Pa rticipant status and have had a Clinical Exposure Evaluation . The Sel ection Cri teria allo ws the use r to filte r with one or more h ealth fact ors.', 0, CAST(0x000 0A54900000 000 AS Dat eTime), CA ST(0x0000A 5490000000 0 AS DateT ime), N'DB A', N'DBA' , N'HEALTH _FACTOR', 350, 350, 0, 1, N'He alth Facto r:<br />', NULL, NUL L, NULL, N ULL, N'Pan elParamete rSendQuest ions')
				5195		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Deployment Country A ll', 4, N' BaseContro lDropDownL istDeploym entCountry All', NULL , NULL, N' Deployment Country r eceived fr om deploym ent data i nterfaces. The Sele ction Crit eria allow s the user to filter with one country an d by all d eployments . ', 0, C AST(0x0000 A549000000 00 AS Date Time), CAS T(0x0000A5 4900000000 AS DateTi me), N'DBA ', N'DBA', N'DEPLOYM ENT_COUNTR Y', NULL, NULL, 0, 1 , N'Deploy ment Count ry (All De ployments) :&nbsp&nbs p', NULL, NULL, NULL , NULL, N' PanelParam eterSendQu estions')
				5196		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Deployment Country W ith Exposu re Respons e', 4, N'B aseControl DropDownLi stDeployme ntCountryE xposure', NULL, NULL , N'Deploy ment Count ry receive d from dep loyment da ta interfa ces. The Selection Criteria a llows the user to fi lter with one countr y and by d eployments that have exposure responses. The data for deplo yments tha t have exp osure resp onses will only be a vailable f or registr ants in Pa rticipant status.', 0, CAST(0x 0000A54900 000000 AS DateTime), CAST(0x00 00A5490000 0000 AS Da teTime), N 'DBA', N'D BA', N'DEP LOYMENT_CO UNTRY_EXPO SURE', NUL L, NULL, 0 , 1, N'Dep loyment Co untry (Dep loyments W ith Exposu re Respons es):&nbsp& nbsp', NUL L, NULL, N ULL, NULL, N'PanelPa rameterSen dQuestions ')
				5197		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' List of Fo llow-up Qu estion Gro up', 4, N' BaseContro lDropDownL istFollowu pQuestionG roup', N'Q uestion Gr oup is req uired.', N ULL, N'Sel ect a foll ow-up ques tion group from the list', 0, CAST(0x000 0A54900000 000 AS Dat eTime), CA ST(0x0000A 5490000000 0 AS DateT ime), N'DB A', N'DBA' , N'FOLLOW UP_QUESTIO N_GROUP_LI ST', NULL, NULL, 1, 1, N'Quest ion Group: &nbsp&nbsp ', NULL, N ULL, N'Sen dQuestions ', NULL, N 'PanelPara meterSendQ uestions')
				5198		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Contact P reference' , '4', 'Ba seControlD ropDownLis tContactPr eference', NULL, NUL L, 'Contac t Preferen ce is for the prefer red method of being contacted. ', '0', '2 015-11-13 00:00:00.0 00', '2015 -11-13 00: 00:00.000' , 'AHOBPR DBA', 'AHO BPR DBA', 'CONTACT_P REFERENCE' , NULL, NU LL, 'False ', 'True', 'Contact Preference :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				5199		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Last Name ', '2', 'B aseControl TextBoxLas tName', NU LL, NULL, 'Registran t Last Nam e.', '0', '2015-11-1 3 00:00:00 .000', '20 15-11-13 0 0:00:00.00 0', 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' True', 'La st Name:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lReportPar m')
				5200		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Last Four Digits of SSN', '2' , 'BaseCon trolTextBo xLast4SSN' , NULL, NU LL, 'Regis trant Last Four Digi sts of SSN .', '0', ' 2015-11-13 00:00:00. 000', '201 5-11-13 00 :00:00.000 ', 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'T rue', 'Las t Four Dig its of SSN :&nbsp&nbs p', NULL, NULL, NULL , '4', 'Pa nelReportP arm')
				5201		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'AHOBPR Ev aluation', '3', 'Bas eControlRa dioButtonL istEvaluat ion', NULL , NULL, 'R adio butto n for Regi strant AHO BPR Evalua tion statu s.', '0', '2015-11-1 3 00:00:00 .000', '20 15-11-13 0 0:00:00.00 0', 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' True', 'AH OBPR Evalu ation:&nbs p&nbsp', N ULL, NULL, NULL, NUL L, 'PanelR eportParm' )
				5202		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Email', ' 3', 'BaseC ontrolRadi oButtonLis tEmail', N ULL, NULL, 'Radio bu tton for R egistrants with and without em ails.', '0 ', '2015-1 1-13 00:00 :00.000', '2015-11-1 3 00:00:00 .000', 'AH OBPR DBA', 'AHOBPR D BA', NULL, NULL, NUL L, 'False' , 'True', 'Emai:&nbs p&nbsp', N ULL, NULL, NULL, NUL L, 'PanelR eportParm' )
				5203		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'State', ' 5', 'BaseC ontrolList BoxState', NULL, NUL L, 'State is the sta te from th e current addresses a Registra nt has in AHOBPR. T he Selecti on Criteri a allows a user to f ilter with one or mo re states. ', '0', '2 015-11-13 00:00:00.0 00', '2015 -11-13 00: 00:00.000' , 'DBA', ' DBA', 'STD _STATE', ' 170', '170 ', 'False' , 'True', 'State:<br />', NULL , NULL, NU LL, NULL, 'PanelRepo rtParm')
				5204		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', 'L ast Name', '2', 'Bas eControlTe xtBoxLastN ame', NULL , NULL, 'R egistrant Last Name' , '0', '20 15-11-20 0 0:00:00.00 0', '2015- 11-20 00:0 0:00.000', 'DBA', 'D BA', NULL, NULL, NUL L, 'False' , 'True', 'Last Name :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelParame terSendQue stions')
				5205		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', 'L ast 4 digi ts of SSN' , '2', 'Ba seControlT extBoxLast 4SSN', NUL L, NULL, ' Registrant last Four Digist of SSN', '0' , '2015-11 -20 00:00: 00.000', ' 2015-11-20 00:00:00. 000', 'DBA ', 'DBA', NULL, NULL , NULL, 'F alse', 'Tr ue', 'Last Four Digi ts of SSN: &nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelParamet erSendQues tions')
				5206		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Report Radio Butt on Health Concersn', '3', 'Bas eControlRa dioButtonL istHealthC oncerns', NULL, NULL , 'Health Concerns i s any posi tive respo nse to Q3. A–3.K by t he registr ant. This data will only be av ailable fo r registra nts in Par ticipant s tatus. The Selection Criteria allows the user to f ilter with all answe rs, any ye s answers, or only n o answers. ', '0', @T oday, @Tod ay, 'DBA', 'DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Healt h Concerns :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelAddFla g')
				5207		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Report Status Pa rameters', '5', 'Bas eControlLi stBoxStatu s', NULL, NULL, 'Sta tus is the status of the regis trant’s qu estionnair e: No Cons ent, Conse nt, Not El igible, Re view, Revi ew Not-Eli gible, Rev iew-Eligib le, Eligib le, and Pa rticipant. The Sele ction Crit eria allow s a user t o filter w ith one or more stat uses.', '0 ', @Today, @Today, ' DBA', 'DBA ', 'REGIST RY_STATUS' , '150', ' 150', 'Fal se', 'True ', 'Status :<br />', NULL, NULL , NULL, NU LL, 'Panel AddFlag')
				5208		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Report Subpopulat ion Flag', '5', 'Bas eControlLi stBoxSubpo pulationFl ag', NULL, NULL, 'Su bpopulatio n Flag is a flag on the regist rant recor d set by a Clinical Portal use r. The Se lection Cr iteria all ows the us er to filt er with on e subpopul ation flag .', '0', ' 2015-11-11 16:26:06. 280', '201 5-11-11 16 :26:06.280 ', 'DBA', 'DBA', 'SU BPOPULATIO N_FLAG_ALL ', '300', '300', 'Fa lse', 'Tru e', 'Subpo pulation F lag:<br>', NULL, NUL L, NULL, N ULL, 'Pane lAddFlag')
				5209		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Deploym ent Countr y All', '4 ', 'BaseCo ntrolDropD ownListDep loymentCou ntryAll', NULL, NULL , 'Deploym ent Countr y received from depl oyment dat a interfac es. The S election C riteria al lows the u ser to fil ter with o ne country and by al l deployme nts. ', ' 0', @Today , @Today, 'DBA', 'DB A', 'DEPLO YMENT_COUN TRY', NULL , NULL, 'F alse', 'Tr ue', 'Depl oyment Cou ntry (All Deployment s):&nbsp&n bsp', NULL , NULL, NU LL, NULL, 'PanelAddF lag')
				5210		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Deploym ent Countr y With Exp osure Resp onse', '4' , 'BaseCon trolDropDo wnListDepl oymentCoun tryExposur e', NULL, NULL, 'Dep loyment Co untry rece ived from deployment data inte rfaces. T he Selecti on Criteri a allows t he user to filter wi th one cou ntry and b y deployme nts that h ave exposu re respons es. The d ata for de ployments that have exposure r esponses w ill only b e availabl e for regi strants in Participa nt status. ', '0', @T oday, @Tod ay, 'DBA', 'DBA', 'D EPLOYMENT_ COUNTRY_EX POSURE', N ULL, NULL, 'False', 'True', 'D eployment Country (D eployments With Expo sure Respo nses):&nbs p&nbsp', N ULL, NULL, NULL, NUL L, 'PanelA ddFlag')
				5211		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Admin T racking Fl ag', '4', 'BaseContr olDropDown ListAdminF lag', NULL , NULL, 'S elect Admi n Tracking Flag. ', '0', @Tod ay, @Today , 'DBA', ' DBA', 'ADM INTRACKING _FLAG_ACTI VE', NULL, NULL, 'Fa lse', 'Tru e', 'Admin Flag Name :<br>', NU LL, NULL, NULL, NULL , 'PanelSu bmitFlag')
				5212		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Subpopu lation Fla g', '4', ' BaseContro lDropDownL istSubpopF lag', NULL , NULL, 'S elect Subp opulation Flag.', '0 ', @Today, @Today, ' DBA', 'DBA ', 'SUBPOP ULATION_FL AG_ACTIVE' , NULL, NU LL, 'False ', 'True', 'Subpopul ation Flag Name:<br> ', NULL, N ULL, NULL, NULL, 'Pa nelSubmitF lag')
				5213		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Registr y Flag Typ e', '4', ' BaseContro lDropDownL istFlagTyp e', NULL, NULL, 'Sel ect Regist ry Flag Ty pe.', '0', @Today, @ Today, 'DB A', 'DBA', 'REGISTRY _FLAG_TYPE ', NULL, N ULL, 'Fals e', 'True' , 'Registr yFlag Type :<br>', NU LL, NULL, NULL, NULL , 'PanelSu bmitFlag')
				5214
				5215		GO
				5216		SET NOCOUN T OFF;
				5217		GO
				5218		ALTER TABL E [AHOBPR] .[TOOL_ANS WER]
				5219		AD D [STANDAR D_FLAG] [b it] NOT NU LL CONSTRA INT DF_Too lAnswer_St andardFlag DEFAULT 0 ;
				5220		GO
				5221
				5222		PRINT N'Up date compl ete.';
				5223
				5224		GO
				5225		UPDATE [d bo].[Datab aseChangeL og]
				5226		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				5227		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				5228		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				5229		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				5230		AND [S criptName] = '$(Scrip tName)'
				5231		AND Ta rgetRegist ry = 'AHOBPR' ;
				5232
				5233		GO
				5234		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				5235		WHERE Targ etRegistry = 'AHOBPR'
				5236		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				5237		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				5238		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				5239		AND [Scr iptName] = '$(Script Name)';
				5240		go
				5241		---------- ---------- ---------- ---------- ---------- ----------
				5242		---------- ---------- ---------- ---------- ---------- ----------
				5243		-- 2.0.12. 1
				5244		---------- ---------- ---------- ---------- ---------- ----------
				5245		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				5246		:setvar Ma jorRelease Number "2"
				5247		:setvar Mi norRelease Number "0"
				5248		:setvar Po intRelease Number "12 "
				5249		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.12.1. sql"
				5250
				5251		PRINT '
				5252		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				5253		$(ScriptNa me)
				5254
				5255		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				5256
				5257		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				5258		';
				5259		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				5260		PRINT '
				5261		******** ****** ****** ****** ****** *****
				5262		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				5263		******** ****** ****** ****** ****** *****
				5264
				5265		';
				5266		GO
				5267		:on error exit
				5268		GO
				5269		:setvar __ IsSqlCmdEn abled "Tru e"
				5270		/*
				5271		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				5272		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				5273		*/
				5274		SET NOEXEC OFF;
				5275		SET NOCOUN T OFF;
				5276		GO
				5277		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				5278		BEGIN
				5279		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				5280		SE T NOCOUNT ON;
				5281		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.
				5282		END
				5283
				5284		GO
				5285
				5286		USE [$(Dat abaseName) ]
				5287		GO
				5288		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				5289		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				5290		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				5291		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				5292		AND [Scr iptName] = ' $(ScriptNa me)')
				5293		BEGIN
				5294		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!'
				5295		,11
				5296		,1);
				5297		END
				5298		ELSE
				5299		INSERT
				5300		INTO [ dbo].[Data baseChange Log]
				5301		([Major ReleaseNum ber]
				5302		,[Minor ReleaseNum ber]
				5303		,[Point ReleaseNum ber]
				5304		,[Hotfi x]
				5305		,[Scrip tName]
				5306		,[Scrip tDescripti on]
				5307		,[Targe tRegistry]
				5308		,[DateA pplied])
				5309		VAL UES
				5310		('$(Maj orReleaseN umber)'
				5311		,'$(Min orReleaseN umber)'
				5312		,'$(Poi ntReleaseN umber)'
				5313		,0
				5314		,'$(Scr iptName)'
				5315		,'Scr ipt Starte d...'
				5316		,'AHOBP R'
				5317		,GETDAT E());
				5318
				5319		GO
				5320		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				5321		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				5322
				5323		-- ======= ========== ========== ========== ========
				5324		-- Create date: Dece mber 1, 20 15
				5325		-- Descrip tion: Used to create the list of registr ant to add mass Admi n & Sub-po pulation f lags.
				5326
				5327		-- Modific ation log
				5328		-- Added i n Script 2 .0.12.1
				5329		-- ======= ========== ========== ========== ========
				5330		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antAddFlag ]
				5331		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				5332		@st ate varcha r(8000) = NULL, -- M ultiple st ates, comm a-separate d values w hen not NU LL
				5333		@fo rmStartFro mDateText varchar(10 0) = NULL,
				5334		@fo rmStartToD ateText va rchar(100) = NULL,
				5335		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				5336		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				5337		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				5338		@he althConcer ns varchar (100) = 'A ll',
				5339		@re questToBeS een varcha r(100) = ' All',
				5340		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				5341		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				5342		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				5343		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				5344		@su bpopulatio nFlag varc har (8000) = NULL, - - Multiple subpopula tionFlags, comma-sep arated val ues when n ot NULL
				5345		@ad minFlag va rchar (10) = NULL,
				5346		@de ploymentAl l varchar (256) = NU LL,
				5347		@de ploymentEx posure var char (256) = NULL,
				5348		@ad minFlagFro mDateText varchar (2 0) = NULL,
				5349		@ad minFlagToD ateText va rchar (20) = NULL,
				5350		@ex cludeDead varchar(1) = 'N',
				5351		@se parationTy pe INT = 0 ,
				5352		@se parationFr omDateText varchar ( 20) = NULL ,
				5353		@se parationTo DateText v archar (20 ) = NULL,
				5354		@ex cludeAdmin Flag varch ar(1) = 'N ',
				5355		@de ploymentSt artFromDat eText varc har(100) = NULL,
				5356		@de ploymentSt artToDateT ext varcha r(100) = N ULL,
				5357		@de ploymentCo mpletionFr omDateText varchar(1 00) = NULL ,
				5358		@de ploymentCo mpletionTo DateText v archar(100 ) = NULL
				5359
				5360		AS
				5361
				5362		BEGIN
				5363
				5364		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				5365		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				5366		@formStart ToDate DAT ETIME2(0) = NULL,
				5367		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				5368		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				5369		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				5370		@adminFlag ToDate DAT ETIME2(0) = NULL,
				5371		@separatio nFromDate DATETIME2( 0) = NULL,
				5372		@separatio nToDate DA TETIME2(0) = NULL,
				5373		@deploymen tStartFrom Date DATET IME2(0) = NULL,
				5374		@deploymen tStartToDa te DATETIM E2(0) = NU LL,
				5375		@deploymen tCompletio nFromDate DATETIME2( 0) = NULL,
				5376		@deploymen tCompletio nToDate DA TETIME2(0) = NULL
				5377
				5378		DECLARE @Query VAR CHAR(8000) ;
				5379		DECLARE @MainQuery VARCHAR(8 000);
				5380		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				5381		DECLARE @AdminWith VARCHAR(8 000);
				5382		DECLARE @SubPopWit h VARCHAR( 8000);
				5383		DECLARE @DeployWit h VARCHAR( 8000);
				5384
				5385		--Temp table conc atnate fla gs for Reg istrants w ith multip le flags
				5386		CREATE T ABLE #stat e
				5387		(
				5388		[Regi strant_Id] INT,
				5389		[stat e] VARCHAR (8000)
				5390		)
				5391
				5392		SET @sta te = REPLA CE(@state, 'Foreign Country/Ot her', 'FM, MH,PW,UM,U S,CANAD,MX ,EU,PI,FG, OT,UN')
				5393
				5394		INSERT I NTO #state ([Registr ant_Id], [ state])
				5395		-- Load Table
				5396		SELECT a .REGISTRAN T_ID,
				5397		ST UFF((SELEC T ', ' + b .STATE
				5398		FRO M AHOBPR.R EGISTRANT_ ADDRESS b
				5399		WHER E a.REGIST RANT_ID = b.REGISTRA NT_ID
				5400		FOR XML PATH(' ')), 1, 1, '') [STA TE]
				5401		FROM A HOBPR.REGI STRANT a
				5402		GROUP B Y a.REGIST RANT_ID;
				5403
				5404
				5405
				5406		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				5407		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				5408		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				5409		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				5410		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				5411		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				5412		SET @sep arationFro mDate = db o.CleanDat e(@separat ionFromDat eText);
				5413		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				5414		SET @dep loymentSta rtFromDate = dbo.Cle anDate(@de ploymentSt artFromDat eText);
				5415		SET @dep loymentSta rtToDate = dbo.AddMa xTime(dbo. CleanDate( @deploymen tStartToDa teText));
				5416		SET @dep loymentCom pletionFro mDate = db o.CleanDat e(@deploym entComplet ionFromDat eText);
				5417		SET @dep loymentCom pletionToD ate = dbo. AddMaxTime (dbo.Clean Date(@depl oymentComp letionToDa teText));
				5418
				5419
				5420
				5421		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				5422		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				5423		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				5424
				5425		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				5426		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				5427		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				5428
				5429		-- Set Ins titutionID values if needed.
				5430		DECLARE @A ssignedIns titutionId INT = 0,
				5431		@E valuatedIn stitutionI d INT = 0;
				5432
				5433		IF @Assign edLocation Type IN (' Base','Ins titution')
				5434		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				5435		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				5436
				5437		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				5438		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				5439		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				5440
				5441		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				5442		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				5443		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				5444		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				5445		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				5446		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				5447		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				5448		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				5449		' F ROM AHOBPR .REGISTRAN T a ' +
				5450		'WH ERE 1 = 1 ';
				5451
				5452		--Concat enate one or more Ad min flags for Regist rants with flags
				5453		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				5454		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				5455		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				5456		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				5457		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				5458		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				5459		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				5460		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				5461		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				5462		' FROM A HOBPR.REGI STRANT a ' +
				5463		' WHERE 1 = 1 ';
				5464
				5465		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				5466		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				5467		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				5468		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				5469		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				5470		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				5471		' FROM AHOBPR.RE GISTRANT a ' +
				5472		' WHERE 1 = 1 ';
				5473
				5474		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				5475		', (a.LAST_NA ME + '', ' ' + a.FIRS T_NAME) AS Name ' +
				5476		', b.REGISTRA NT_STATUS AS Status ' +
				5477		', s.STATE AS State ' +
				5478		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				5479		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				5480		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				5481		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				5482
				5483
				5484		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				5485		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				5486		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				5487		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				5488		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				5489		',a.BI RTH_DATE A S BirthDat e ' +
				5490		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				5491		',RIG HT(a.SSN, 4) AS SSN ' +
				5492		'FRO M AHOBPR.R EGISTRANT a '
				5493
				5494		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				5495		'LEFT JOIN #state s ' + 'ON a .REGISTRAN T_ID = s.R egistrant_ Id ' +
				5496		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				5497		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				5498		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				5499		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				5500		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ' +
				5501		' LEFT JOIN AHOB PR.REGISTR ANT_DEPLOY MENT rd ON a.REGISTR ANT_ID = rd.REGISTR ANT_ID ';
				5502
				5503
				5504
				5505		--used to get all re gistrant w ithout the selected adminflag
				5506		IF ISNULL( @excludeAd minFlag, ' N') = 'Y'
				5507		SET @M ainQuery = @MainQuer y + ' Left JOIN (SEL ECT REGIST RANT_ID, S TD_REGISTR Y_FLAG_ID FROM AHOBP R.REGISTRA NT_REGISTR Y_FLAG ' +
				5508		' WHERE ST D_REGISTRY _FLAG_ID I N (' + @ad minFlag + ')) AS af on af.REG ISTRANT_ID = a.REGIS TRANT_ID ' ;
				5509
				5510
				5511		SET @M ainQuery = @MainQuer y + ' WHER E 1 = 1 ';
				5512
				5513
				5514		IF ISNULL( @excludeAd minFlag, ' N') = 'Y'
				5515		SE T @MainQue ry = @Main Query + ' AND STD_RE GISTRY_FLA G_ID is NU LL ';
				5516
				5517
				5518		IF @form StartFromD ate IS NOT NULL
				5519		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				5520
				5521		IF @form StartToDat e IS NOT N ULL
				5522		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				5523
				5524		IF @form Completion FromDate I S NOT NULL
				5525		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				5526
				5527		IF @form Completion ToDate IS NOT NULL
				5528		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				5529
				5530		IF @depl oymentStar tFromDate IS NOT NUL L
				5531		SET @ MainQuery = @MainQue ry + ' AND rd.DEPLOY MENT_START _DATE >= ' '' + CONVE RT(VARCHAR (20),@depl oymentStar tFromDate, 121) + ''' ';
				5532
				5533		IF @depl oymentStar tToDate IS NOT NULL
				5534		SET @ MainQuery = @MainQue ry + ' AND rd.DEPLOY MENT_START _DATE <= ' '' + CONVE RT(VARCHAR (20),@depl oymentStar tToDate,12 1) + '''';
				5535
				5536		IF @depl oymentComp letionFrom Date IS NO T NULL
				5537		SET @ MainQuery = @MainQue ry + ' AND rd.DEPLOY MENT_END_D ATE >= ''' + CONVERT (VARCHAR(2 0),@deploy mentComple tionFromDa te,121) + '''';
				5538
				5539		IF @depl oymentComp letionToDa te IS NOT NULL
				5540		SET @ MainQuery = @MainQue ry + ' AND rd.DEPLOY MENT_END_D ATE <= ''' + CONVERT (VARCHAR(2 0),@deploy mentComple tionToDate ,121) + '' '';
				5541
				5542
				5543
				5544		IF ISNUL L(@subpopu lationFlag ,'') != ''
				5545		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				5546		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				5547		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				5548
				5549		IF (ISNULL(@ adminFlag, '') != '' AND ISNULL (@excludeA dminFlag,' N') = 'N')
				5550		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG adminfl ag ' +
				5551		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				5552		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				5553		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				5554		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				5555
				5556
				5557
				5558		IF ISNUL L(@deploym entAll,'') != ''
				5559		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				5560		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				5561		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				5562
				5563		IF ISNUL L(@healthF actor,'') != ''
				5564		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				5565		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				5566		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				5567		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				5568
				5569
				5570		IF ISNUL L(@deploym entExposur e,'') != ' '
				5571		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				5572		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				5573		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				5574		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				5575		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				5576		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				5577
				5578
				5579
				5580
				5581
				5582		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				5583		IF @stat us IS NOT NULL
				5584		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				5585
				5586		IF ISNUL L(@state,' ') > ''
				5587		BEGIN
				5588		SET @state = R EPLACE(@St ate,',','' ',''');
				5589		SET @RegCriter ia = @RegC riteria + ' AND EXIS TS(SELECT DISTINCT a ddr.REGIST RANT_ID ' +
				5590		'FROM AH OBPR.REGIS TRANT_ADDR ESS addr ' +
				5591		'WHERE ad dr.REGISTR ANT_ID = a .REGISTRAN T_ID ' +
				5592		'AND ad dr.STATE IN ( ''' + @state + ''') ) ';
				5593		END;
				5594
				5595		IF @heal thConcerns != 'All'
				5596		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				5597
				5598		IF @requ estToBeSee n != 'All'
				5599		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				5600
				5601		IF ISNUL L(@exclude Dead,'N') = 'Y'
				5602		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				5603
				5604		IF ISNUL L(@separat ionType,0) != 0
				5605		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				5606
				5607		IF @sepa rationFrom Date IS NO T NULL
				5608		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				5609
				5610		IF @sepa rationToDa te IS NOT NULL
				5611		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				5612
				5613		IF @Assi gnedLocati onType IS NOT NULL
				5614		BEGIN
				5615		IF @ AssignedLo cationType = 'NLA'
				5616		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				5617		ELSE
				5618		IF @ AssignedLo cationType = 'VISN'
				5619		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				5620		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				5621		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				5622		ELSE
				5623		IF @ AssignedLo cationType = 'Base'
				5624		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				5625		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				5626		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				5627		ELSE
				5628		IF @ AssignedLo cationType = 'Instit ution'
				5629		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				5630		END;
				5631
				5632		IF @Eval uatedLocat ionType IS NOT NULL
				5633		BEGIN
				5634		IF @ EvaluatedL ocationTyp e = 'NLA'
				5635		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				5636		' WHERE eva l.REGISTRA NT_VISIT_I D = a.REGI STRANT_ID ' +
				5637		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				5638		ELSE
				5639		IF @ EvaluatedL ocationTyp e = 'VISN'
				5640		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				5641		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				5642		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				5643		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				5644		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				5645		ELSE
				5646		IF @ EvaluatedL ocationTyp e = 'Base'
				5647		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				5648		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				5649		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				5650		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				5651		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				5652		ELSE
				5653		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				5654		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				5655		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				5656		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				5657		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				5658		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				5659		END;
				5660
				5661		-- Add cri teria and Close With Statement
				5662		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				5663		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				5664		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				5665
				5666		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				5667
				5668		PRINT @ Query;
				5669
				5670		EXECUTE ( @Query);
				5671		END;
				5672
				5673
				5674
				5675		-- Test Ca ses
				5676		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag]
				5677		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @sta tus = '6,7 '
				5678		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @sta te = 'MD,V A'
				5679		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @for mStartToDa teText = ' 20141231'
				5680		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @hea lthFactor = '44,45,4 6,47'
				5681		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @dep loymentSta rtFromDate Text = '2 0120101'
				5682		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @for mCompletio nToDateTex t = '2014 1231'
				5683		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @hea lthConcern s = 'Yes' ,
				5684		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @req uestToBeSe en = 'Yes
				5685		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @sub population Flag = '85 ,87,89,105 ,106,91'
				5686		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @dep loymentAll = 'Iraq,d jibouti'
				5687		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @dep loymentExp osure = ' Iraq'
				5688		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @adm inFlag = ' 117', @exc ludeAdminF lag = 'Y' ,@adminFla gFromDateT ext = '201 50101' , @ adminFlagT oDateText = '2015020 1'
				5689		-- exec [A HOBPR].[SP _GetRegist rantAddFla g]
				5690		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Assign edLocation Type = 'NL A'
				5691		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Assign edLocation Type = 'VI SN', @Assi gnedLocati onKey = 'V 16'
				5692		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Assign edLocation Type = 'Ba se', @Assi gnedLocati onKey = '1 000089'
				5693		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Assign edLocation Type = 'In stitution' , @Assigne dLocationK ey = '1000 089'
				5694		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Evalua tedLocatio nType = 'N LA'
				5695		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Evalua tedLocatio nType = 'V ISN', @Eva luatedLoca tionKey = 'V16'
				5696		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Evalua tedLocatio nType = 'B ase', @Eva luatedLoca tionKey = '1000089'
				5697		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Evalua tedLocatio nType = 'I nstitution ', @Evalua tedLocatio nKey = '10 00089'
				5698
				5699		GO
				5700
				5701		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				5702		PRINT N'Up date compl ete.';
				5703		PRINT 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				5704		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				5705
				5706
				5707		GO
				5708		UPDATE [d bo].[Datab aseChangeL og]
				5709		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				5710		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				5711		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				5712		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				5713		AND [S criptName] = '$(Scrip tName)'
				5714		AND Ta rgetRegist ry = 'AHOBPR' ;
				5715
				5716		GO
				5717		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				5718		WHERE Targ etRegistry = 'AHOBPR'
				5719		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				5720		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				5721		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				5722		AND [Scr iptName] = '$(Script Name)';
				5723		go
				5724		---------- ---------- ---------- ---------- ---------- ---------- -
				5725		---------- ---------- ---------- ---------- ---------- ---------- -
				5726		-- 2.13.1
				5727		---------- ---------- ---------- ---------- ---------- ---------- -
				5728		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				5729		:setvar Ma jorRelease Number "2"
				5730		:setvar Mi norRelease Number "0"
				5731		:setvar Po intRelease Number "13 "
				5732		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.13.1. sql"
				5733
				5734		PRINT '
				5735		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				5736		$(ScriptNa me)
				5737
				5738		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				5739
				5740		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				5741		';
				5742		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				5743		PRINT '
				5744		******** ****** ****** ****** ****** *****
				5745		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				5746		******** ****** ****** ****** ****** *****
				5747
				5748		';
				5749		GO
				5750		:on error exit
				5751		GO
				5752		:setvar __ IsSqlCmdEn abled "Tru e"
				5753		/*
				5754		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				5755		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				5756		*/
				5757		SET NOEXEC OFF;
				5758		SET NOCOUN T OFF;
				5759		GO
				5760		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				5761		BEGIN
				5762		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				5763		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.
				5764		END
				5765
				5766		GO
				5767
				5768		USE [$(Dat abaseName) ]
				5769		GO
				5770		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				5771		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				5772		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				5773		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				5774		AND [Scr iptName] = ' $(ScriptNa me)')
				5775		BEGIN
				5776		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!' ,11
				5777		,1);
				5778		SET NOC OUNT ON;
				5779		SET NOE XEC ON;
				5780		END
				5781		ELSE
				5782		INSERT
				5783		INTO [ dbo].[Data baseChange Log]
				5784		([Major ReleaseNum ber]
				5785		,[Minor ReleaseNum ber]
				5786		,[Point ReleaseNum ber]
				5787		,[Hotfi x]
				5788		,[Scrip tName]
				5789		,[Scrip tDescripti on]
				5790		,[Targe tRegistry]
				5791		,[DateA pplied])
				5792		VAL UES
				5793		('$(Maj orReleaseN umber)'
				5794		,'$(Min orReleaseN umber)'
				5795		,'$(Poi ntReleaseN umber)'
				5796		,0
				5797		,'$(Scr iptName)'
				5798		,'Scr ipt Starte d...'
				5799		,'AHOBP R'
				5800		,GETDAT E());
				5801
				5802		GO
				5803		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				5804		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				5805		PRINT 'ALT ER TABLE [ AHOBPR].[E MAIL_TEMPL ATES]...';
				5806
				5807		ALTER
				5808		TABLE [A HOBPR].[EM AIL_TEMPLA TES]
				5809		AD D [SALUT ATION] [va rchar](255 ) NOT NULL CONSTRAIN T DF_Email Templates_ Salutation DEFA ULT '',
				5810		[CONTA CT_INFO] [ varchar](1 000) NOT NULL CONSTRAIN T DF_Email Templates_ ContactInf o DEFA ULT '',
				5811		[ADVAN CED_USER_F LAG] [bit] NOT NULL CONSTRAIN T DF_Email Templates_ AdvancedUs erFlag DEFA ULT 0;
				5812		if not exi sts (selec t * from s ys.columns where nam e = 'CREAT EDBY_ADVAN CED_USER_F LAG'
				5813		and object_id = (select object_id from sys.t ables wher e name = ' EMAIL_TEMP LATES'
				5814		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR'))
				5815		)
				5816		alter
				5817		table [AHOBPR].[ EMAIL_TEMP LATES]
				5818		add [CRE ATEDBY_ADV ANCED_USER _FLAG] [bi t] not nu ll constra int DF_Ema ilTemplate s_Createdb yAdvancedu serFlag de fault 0;
				5819		GO
				5820
				5821		PRINT 'ALT ER VIEW [A HOBPR].[VI EW_LOOKUP] ...';
				5822		GO
				5823		if exists (select * from sys.v iews where name = 'V IEW_LOOKUP '
				5824		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				5825		)
				5826		begin
				5827		if exist s (select * from sys .views whe re name = 'view_look up_pre_2_0 _13_1'
				5828		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR')
				5829		)
				5830		drop v iew AHOBPR .VIEW_LOOK UP
				5831		else
				5832		exec s p_rename ' AHOBPR.VIE W_LOOKUP', 'view_loo kup_pre_2_ 0_13_1';
				5833		end;
				5834		go
				5835		CREATE VIE W [AHOBPR] .[VIEW_LOO KUP]
				5836		WITH SCHEM ABINDING A S
				5837		SELECT 'RE GISTRY_FLA G' AS LOOK UP_TYPE
				5838		,STD_RE GISTRY_FLA G_ID AS ID
				5839		,RE GISTRY_FLA G_NAME AS CODE
				5840		,RE GISTRY_FLA G_NAME AS NAME
				5841		,0 AS PARENT_ ID
				5842		,1 AS SORT_OR DER
				5843		FROM AHO BPR.STD_RE GISTRY_FLA G
				5844		WHERE STD _REGISTRY_ FLAG_ID > 0
				5845		UNION ALL
				5846		SELECT 'RE GISTRY_STA TUS' AS LO OKUP_TYPE
				5847		,STD_REGI STRANT_STA TUS_ID AS ID
				5848		,RE GISTRANT_S TATUS AS C ODE
				5849		,RE GISTRANT_S TATUS AS N AME
				5850		,0 AS PARENT_ ID
				5851		,OR DINAL_VALU E AS SORT_ ORDER
				5852		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				5853		WHERE STD _REGISTRAN T_STATUS_I D > 0
				5854		UNION ALL
				5855		SELECT 'RE GISTRY_FLA G_TYPE' AS LOOKUP_TY PE
				5856		,STD_REGI STRY_FLAG_ TYPE_ID AS ID
				5857		,RE GISTRY_FLA G_TYPE AS CODE
				5858		,RE GISTRY_FLA G_TYPE AS NAME
				5859		,0 AS PARENT_ ID
				5860		,1 AS SORT_OR DER
				5861		FROM AHO BPR.STD_RE GISTRY_FLA G_TYPE
				5862		UNION ALL
				5863		SELECT 'SU BPOPULATIO N_FLAG_ACT IVE' AS LO OKUP_TYPE
				5864		,STD_REGI STRY_FLAG_ ID AS ID
				5865		,RE GISTRY_FLA G_NAME AS CODE
				5866		,RE GISTRY_FLA G_NAME AS NAME
				5867		,0 AS PARENT_ ID
				5868		,1 AS SORT_OR DER
				5869		FROM AHOBP R.STD_REGI STRY_FLAG
				5870		WHERE ACTI VE_FLAG = 1 AND STD_ REGISTRY_F LAG_TYPE_I D = 2
				5871		UNION ALL
				5872		SELECT 'ST D_STATE' A S LOOKUP_T YPE
				5873		,ID
				5874		,PO STALNAME A S CODE
				5875		,PO STALNAME A S NAME
				5876		,0 AS PARENT_ ID
				5877		,1 AS SORT_OR DER
				5878		FROM DBO.S TD_STATE
				5879		WHERE COUN TRY_ID = 1 006840
				5880		AND POSTAL NAME IN (' AL', 'AK', 'AR', 'AZ ', 'CA', ' CO', 'CT', 'DE', 'FL ', 'GA', ' HI',
				5881		'IA', 'ID' , 'IL', 'I N', 'KS', 'KY', 'LA' , 'MA', 'M D', 'ME', 'MI', 'MN' , 'MO', 'M S',
				5882		'MT', 'NC' , 'ND', 'N E', 'NH', 'NJ', 'NM' , 'NV', 'N Y', 'OH', 'OK', 'OR' , 'PA', 'R I',
				5883		'SC', 'SD' , 'TN', 'T X', 'UT', 'VA', 'VT' , 'WA', 'W I', 'WV', 'WY', 'DC' , 'AS', 'G U', 'PR', 'VI', 'MP' , 'AA', 'A E', 'AP')
				5884		UNION ALL
				5885		SELECT 'ST D_STATE' A S LOOKUP_T YPE
				5886		,0
				5887		,'F oreign Cou ntry/Other ' AS CODE
				5888		,'F oreign Cou ntry/Other ' AS NAME
				5889		,0 AS PARENT_ ID
				5890		,99 99 AS SORT _ORDER
				5891		UNION ALL
				5892		SELECT 'AD MINTRACKIN G_FLAG_ACT IVE' AS LO OKUP_TYPE
				5893		,STD_REGI STRY_FLAG_ ID AS ID
				5894		,RE GISTRY_FLA G_NAME AS CODE
				5895		,RE GISTRY_FLA G_NAME AS NAME
				5896		,0 AS PARENT_ ID
				5897		,1 AS SORT_OR DER
				5898		FROM AHOBP R.STD_REGI STRY_FLAG
				5899		WHERE ACTI VE_FLAG = 1
				5900		AND STD_ REGISTRY_F LAG_TYPE_I D = 1
				5901		AND (PRE DEFINED = 0
				5902		OR ( PREDEFINED = 1 AND R EGISTRY_FL AG_NAME = 'Eligibili ty Review - More Doc umentation Needed'))
				5903		UNION ALL
				5904		SELECT 'ST D_SERVICE_ STATUS' AS LOOKUP_TY PE
				5905		,STD_SERV ICE_STATUS _ID As ID
				5906		,SE RVICE_STAT US AS CODE
				5907		,SE RVICE_STAT US AS NAME
				5908		,0 AS PARENT_ ID
				5909		,1 AS SORT_OR DER
				5910		FROM AHO BPR.STD_SE RVICE_STAT US
				5911		WHERE STD _SERVICE_S TATUS_ID > 0
				5912		UNION AL L
				5913		SELECT 'ST D_FORM_QUE STION' AS LOOKUP_TYP E
				5914		,STD_FO RM_QUESTIO N_ID As ID
				5915		,FO RM_QUESTIO N_UNIQUE_I D AS CODE
				5916		,FO RM_QUESTIO N_UNIQUE_I D AS NAME
				5917		,0 AS PARENT_ ID
				5918		,1 AS SORT_OR DER
				5919		FROM AHO BPR.STD_FO RM_QUESTIO N
				5920		UNION ALL
				5921		SELECT 'RE GISTRY_STA TUS_INELIG IBLE' AS L OOKUP_TYPE
				5922		,STD_REGI STRANT_STA TUS_ID AS ID
				5923		,RE GISTRANT_S TATUS AS C ODE
				5924		,RE GISTRANT_S TATUS AS N AME
				5925		,0 AS PARENT_ ID
				5926		,ST D_REGISTRA NT_STATUS_ ID AS SORT _ORDER
				5927		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				5928		WHERE ST D_REGISTRA NT_STATUS_ ID IN (3, 4, 5)
				5929		UNION ALL
				5930		SELECT 'RE GISTRY_STA TUS_REVIEW ED' AS LOO KUP_TYPE
				5931		,STD_REGI STRANT_STA TUS_ID AS ID
				5932		,RE GISTRANT_S TATUS AS C ODE
				5933		,RE GISTRANT_S TATUS AS N AME
				5934		,0 AS PARENT_ ID
				5935		,ST D_REGISTRA NT_STATUS_ ID AS SORT _ORDER
				5936		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				5937		WHERE ST D_REGISTRA NT_STATUS_ ID IN (5, 8)
				5938		UNION ALL
				5939		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				5940		,1 AS I D
				5941		,'A ll' AS COD E
				5942		,'A ll' AS NAM E
				5943		,0 AS PARENT_ ID
				5944		,1 AS SORT_OR DER
				5945		UNION ALL
				5946		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				5947		,2 AS I D
				5948		,'F acility' A S CODE
				5949		,'F acility' A S NAME
				5950		,0 AS PARENT_ ID
				5951		,2 AS SORT_OR DER
				5952		UNION ALL
				5953		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				5954		,3 AS I D
				5955		,'V ISN' AS CO DE
				5956		,'V ISN' AS NA ME
				5957		,0 AS PARENT_ ID
				5958		,3 AS SORT_OR DER
				5959		UNION ALL
				5960		SELECT 'SU BPOPULATIO N_FLAG_ALL ' AS LOOKU P_TYPE
				5961		,STD_RE GISTRY_FLA G_ID AS ID
				5962		,RE GISTRY_FLA G_NAME AS CODE
				5963		,RE GISTRY_FLA G_NAME AS NAME
				5964		,0 AS PARENT_ ID
				5965		,1 AS SORT_OR DER
				5966		FROM AHOBP R.STD_REGI STRY_FLAG
				5967		WHERE STD_ REGISTRY_F LAG_TYPE_I D = 2
				5968		UNION ALL
				5969		SELECT 'AD MIN_FLAG_A LL' AS LOO KUP_TYPE
				5970		,STD_RE GISTRY_FLA G_ID AS ID
				5971		,RE GISTRY_FLA G_NAME AS CODE
				5972		,RE GISTRY_FLA G_NAME AS NAME
				5973		,0 AS PARENT_ ID
				5974		,1 AS SORT_OR DER
				5975		FROM AHOBP R.STD_REGI STRY_FLAG
				5976		WHERE STD_ REGISTRY_F LAG_TYPE_I D = 1
				5977		UNION ALL
				5978		SELECT 'HE ALTH_FACTO R' AS LOOK UP_TYPE
				5979		,A.[STD _HEALTH_FA CTOR_ID] A S ID
				5980		,A. [NAME] AS CODE
				5981		,B. [DESCRIPTI ON] + ': ' + A.DESCR IPTION AS NAME
				5982		,0 AS PARENT_ ID
				5983		,1 AS SORT_OR DER
				5984		FROM [AH OBPR].[STD _HEALTH_FA CTOR] A IN NER JOIN [ AHOBPR].[S TD_HEALTH_ FACTOR_CAT EGORY] B O N A.STD_HE ALTH_FACTO R_CATEGORY _ID = B.ST D_HEALTH_F ACTOR_CATE GORY_ID
				5985		UNION ALL
				5986		SELECT DIS TINCT 'DEP LOYMENT_CO UNTRY' AS LOOKUP_TYP E
				5987		,0 AS I D
				5988		,[D EPLOYMENT_ COUNTRY] A S CODE
				5989		,[D EPLOYMENT_ COUNTRY] A S NAME
				5990		,0 AS PARENT_ ID
				5991		,1 AS SORT_OR DER
				5992		FROM [AH OBPR].[REG ISTRANT_DE PLOYMENT]
				5993		UNION ALL
				5994		SELECT DIS TINCT 'DEP LOYMENT_CO UNTRY_EXPO SURE' AS L OOKUP_TYPE
				5995		,0 AS I D
				5996		,[D EPLOYMENT_ COUNTRY] A S CODE
				5997		,[D EPLOYMENT_ COUNTRY] A S NAME
				5998		,0 AS PARENT_ ID
				5999		,1 AS SORT_OR DER
				6000		FROM [AH OBPR].[REG ISTRANT_DE PLOYMENT] A JOIN AHO BPR.FORM_R ESPONSE_QU ESTION B
				6001		ON A.REGISTR ANT_DEPLOY MENT_ID = B.REGISTRA NT_DEPLOYM ENT_ID
				6002		UN ION ALL
				6003		SELECT 'ST D_RACE' AS LOOKUP_TY PE
				6004		,ID
				6005		,DE SCRIPTION AS CODE
				6006		,DE SCRIPTION AS NAME
				6007		,0 AS PARENT_ ID
				6008		,1 AS SORT_OR DER
				6009		FROM AHOBP R.VIEW_ETL _LOOKUP
				6010		WHERE TYPE = 'STD_RA CE'
				6011		AND ID > 0
				6012		UNION ALL
				6013		SELECT 'ST D_GENDER' AS LOOKUP_ TYPE
				6014		,ID
				6015		,DE SCRIPTION AS CODE
				6016		,DE SCRIPTION AS NAME
				6017		,0 AS PARENT_ ID
				6018		,1 AS SORT_OR DER
				6019		FROM AHOBP R.VIEW_ETL _LOOKUP
				6020		WHERE TYPE = 'STD_GE NDER'
				6021		AND ID > 0
				6022		UNION ALL
				6023		SELECT 'ST D_SEPARATI ONFAMILY' AS LOOKUP_ TYPE
				6024		,[ STD_SEPARA TION_FAMIL Y_ID] AS I D
				6025		,[ FAMILY_COD E] AS CODE
				6026		,[ FAMILY] A S NAME
				6027		,0 AS PARENT _ID
				6028		,1 AS SORT_O RDER
				6029		FROM AH OBPR.STD_S EPARATION_ FAMILY
				6030		WHERE [ STD_SEPARA TION_FAMIL Y_ID] > 0
				6031		UNION ALL
				6032		SELECT 'S TD_SEPARAT IONREASON' AS LOOKUP _TYPE
				6033		,[ STD_SEPARA TION_REASO N_ID] AS I D
				6034		,[ REASON_COD E] AS CODE
				6035		,[ REASON] AS NAME
				6036		,0 AS PARENT _ID
				6037		,1 AS SORT_O RDER
				6038		FROM AH OBPR.STD_S EPARATION_ REASON
				6039		WHERE [ STD_SEPARA TION_REASO N_ID] > 0
				6040		UNION ALL
				6041		SELECT 'ST D_ELIGIBLI TYSTATUS' AS LOOKUP_ TYPE
				6042		,ID
				6043		,DE SCRIPTION AS CODE
				6044		,DE SCRIPTION AS NAME
				6045		,0 AS PARENT_ ID
				6046		,1 AS SORT_OR DER
				6047		FROM AHOBP R.VIEW_ETL _LOOKUP
				6048		WHERE TYPE = 'STD_EL IGIBLITYST ATUS'
				6049		AND ID > 0
				6050		UNION ALL
				6051		SELECT 'ST D_ETHNICIT Y' AS LOOK UP_TYPE
				6052		,ID
				6053		,DE SCRIPTION AS CODE
				6054		,DE SCRIPTION AS NAME
				6055		,0 AS PARENT_ ID
				6056		,1 AS SORT_OR DER
				6057		FROM AHOBP R.VIEW_ETL _LOOKUP
				6058		WHERE TYPE = 'STD_ET HNICITY'
				6059		AND ID > 0
				6060		UNION ALL
				6061		SELECT 'S TD_CHARACT EROFSERVIC E' AS LOOK UP_TYPE
				6062		,STD_DI SCHARGE_CH ARACTER_ID As ID
				6063		,DI SCHARGE_CH ARACTER_CO DE AS CODE
				6064		,DI SCHARGE_CH ARACTER AS NAME
				6065		,0 AS PARENT_ ID
				6066		,1 AS SORT_OR DER
				6067		FROM AHO BPR.STD_DI SCHARGE_CH ARACTER
				6068		UNION ALL
				6069		SELECT 'TE MPLATE_MES SAGE_TITLE ' AS LOOKU P_TYPE
				6070		,TEMPLATE _ID AS ID
				6071		,TI TLE AS COD E
				6072		,TI TLE AS NAM E
				6073		,0 AS PARENT_ ID
				6074		,1 AS SORT_OR DER
				6075		FROM AHO BPR.EMAIL_ TEMPLATES
				6076		WHERE AC TIVE = 'Tr ue' AND CR EATEDBY_AD VANCED_USE R_FLAG = 0
				6077		AND TITL E NOT IN ( 'Eligible for Burn P it Registr y', 'Not E ligible fo r Burn Pit Registry' , 'New Fol low-up Que stions')
				6078		UNION ALL
				6079		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				6080		,2 As I D,'multipl eChoice' A S CODE,'Dr opdown Lis t - Multip le Choice' AS NAME,0 AS PARENT _ID,1 AS S ORT_ORDER
				6081		UNION ALL
				6082		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				6083		,1 As I D,'multiSe lect' AS C ODE,'Check boxes - Mu ltiple Sel ect' AS NA ME,0 AS PA RENT_ID,2 AS SORT_OR DER
				6084		UNION ALL
				6085		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				6086		,3 As I D,'text' A S CODE,'Ra dio Button s with Fre e Text' AS NAME,0 AS PARENT_ID ,3 AS SORT _ORDER
				6087		UNION ALL
				6088		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				6089		,4 As I D,'number' AS CODE,' Radio Butt ons with N umeric Val ue' AS NAM E,0 AS PAR ENT_ID,4 A S SORT_ORD ER
				6090		UNION ALL
				6091		SELECT 'FO LLOWUP_QUE STION_GROU P_LIST' AS LOOKUP_TY PE
				6092		,STD_FORM _ID AS ID
				6093		,NA ME AS CODE
				6094		,NA ME AS NAME
				6095		,0 AS PARENT_ ID
				6096		,1 AS SORT_OR DER
				6097		FROM AHO BPR.STD_FO RM
				6098		WHERE FO LLOWUP_FLA G = 1
				6099		UNION ALL
				6100		SELECT DIS TINCT 'CON TACT_PREFE RENCE' AS LOOKUP_TYP E
				6101		,0 AS I D
				6102		,[C ONTACT_PRE FERENCE] A S CODE
				6103		,[C ONTACT_PRE FERENCE] A S NAME
				6104		,0 AS PARENT_ ID
				6105		,1 AS SORT_OR DER
				6106		FROM [AH OBPR].[REG ISTRANT]
				6107		WHERE CO NTACT_PREF ERENCE > ' '
				6108		UNION ALL
				6109		SELECT 'MY _TEMPLATES _TITLE' AS LOOKUP_TY PE
				6110		,TEMPLATE _ID AS ID
				6111		,CR EATEDBY AS CODE
				6112		,TI TLE AS NAM E
				6113		,0 AS PARENT_ ID
				6114		,1 AS SORT_OR DER
				6115		FROM AHO BPR.EMAIL_ TEMPLATES
				6116		WHERE AC TIVE = 'Tr ue' AND CR EATEDBY_AD VANCED_USE R_FLAG = 1
				6117
				6118		-- select * from [A HOBPR].[VI EW_LOOKUP]
				6119		GO
				6120
				6121		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				6122		PRINT N'Up date compl ete.';
				6123		PRINT 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				6124		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				6125
				6126
				6127		GO
				6128		UPDATE [d bo].[Datab aseChangeL og]
				6129		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				6130		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				6131		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				6132		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				6133		AND [S criptName] = '$(Scrip tName)'
				6134		AND Ta rgetRegist ry = 'AHOBPR' ;
				6135
				6136		GO
				6137		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				6138		WHERE Targ etRegistry = 'AHOBPR'
				6139		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				6140		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				6141		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				6142		AND [Scr iptName] = '$(Script Name)';
				6143		go
				6144		---------- ---------- ---------- ---------- ---------- ---------- -
				6145		---------- ---------- ---------- ---------- ---------- ---------- -
				6146		-- 2.14.1
				6147		---------- ---------- ---------- ---------- ---------- ---------- -
				6148		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				6149		:setvar Ma jorRelease Number "2"
				6150		:setvar Mi norRelease Number "0"
				6151		:setvar Po intRelease Number "14 "
				6152		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.14.1. sql"
				6153
				6154		PRINT '
				6155		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				6156		$(ScriptNa me)
				6157
				6158		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				6159
				6160		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				6161		';
				6162		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				6163		PRINT '
				6164		******** ****** ****** ****** ****** *****
				6165		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				6166		******** ****** ****** ****** ****** *****
				6167
				6168		';
				6169		GO
				6170		:on error exit
				6171		GO
				6172		:setvar __ IsSqlCmdEn abled "Tru e"
				6173		/*
				6174		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				6175		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				6176		*/
				6177		SET NOEXEC OFF;
				6178		SET NOCOUN T OFF;
				6179		GO
				6180		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				6181		BEGIN
				6182		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				6183		SE T NOCOUNT ON;
				6184		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.
				6185		END
				6186
				6187		GO
				6188
				6189		USE [$(Dat abaseName) ]
				6190		GO
				6191		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				6192		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				6193		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				6194		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				6195		AND [Scr iptName] = ' $(ScriptNa me)')
				6196		BEGIN
				6197		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!'
				6198		,11
				6199		,1);
				6200		END
				6201		ELSE
				6202		INSERT
				6203		INTO [ dbo].[Data baseChange Log]
				6204		([Major ReleaseNum ber]
				6205		,[Minor ReleaseNum ber]
				6206		,[Point ReleaseNum ber]
				6207		,[Hotfi x]
				6208		,[Scrip tName]
				6209		,[Scrip tDescripti on]
				6210		,[Targe tRegistry]
				6211		,[DateA pplied])
				6212		VAL UES
				6213		('$(Maj orReleaseN umber)'
				6214		,'$(Min orReleaseN umber)'
				6215		,'$(Poi ntReleaseN umber)'
				6216		,0
				6217		,'$(Scr iptName)'
				6218		,'Scr ipt Starte d...'
				6219		,'AHOBP R'
				6220		,GETDAT E());
				6221
				6222		GO
				6223		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				6224		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				6225		PRINT 'REN AME ahobpr .SP_Delete OneRegistr ant to sp_ DeleteOneR egistrant_ PriorTo2_0 _14...';
				6226		GO
				6227		if exists (select * from sys.p rocedures where name = 'SP_Del eteOneRegi strant'
				6228		and sche ma_id = (s elect SCHE MA_ID from sys.schem as where n ame = 'AHO BPR')
				6229		)
				6230		begin
				6231		if exist s ( select * from sy s.procedur es where n ame = 'sp_ DeleteOneR egistrant_ PriorTo2_0 _14'
				6232		and sc hema_id = (select SC HEMA_ID fr om sys.sch emas where name = 'A HOBPR')
				6233		)
				6234		drop p rocedure a hobpr.SP_D eleteOneRe gistrant
				6235		else
				6236		exec s p_rename ' ahobpr.SP_ DeleteOneR egistrant' , 'sp_Dele teOneRegis trant_Prio rTo2_0_14' ;
				6237		end;
				6238		GO
				6239
				6240		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Del eteOneRegi strant]... ';
				6241		GO
				6242		CREATE PRO CEDURE [AH OBPR].[SP_ DeleteOneR egistrant]
				6243		@f irstName VARCHAR(50 ),
				6244		@l astName V ARCHAR(50)
				6245		AS
				6246
				6247		DECLARE @r egistrantI d int, @us erId varch ar(256)
				6248		BEGIN
				6249		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
				6250
				6251		DE LETE FROM [AHOBPR].[ REGISTRANT _JSON] WHE RE OBJECT_ ID = @user Id
				6252
				6253		DE LETE FROM [AHOBPR].[ REGISTRANT _JSON_FOLL OWUP] WHER E OBJECT_I D = @userI d
				6254
				6255		DE LETE FROM [AHOBPR].[ REGISTRANT _FILE] WHE RE FILE_ID = @userId
				6256
				6257		ex ec ahobpr. SP_DeleteR egistrantA ndResponse @registra ntId
				6258
				6259		END
				6260		GO
				6261		PRINT 'REN AME ahobpr .SP_Delete Registrant AndRespons e to SP_De leteRegist rantAndRes ponse_Prio rTo2_0_14. ..';
				6262		GO
				6263		if exists (select * from sys.p rocedures where name = 'SP_Del eteRegistr antAndResp onse'
				6264		and sche ma_id = (s elect SCHE MA_ID from sys.schem as where n ame = 'AHO BPR')
				6265		)
				6266		begin
				6267		if exist s ( select * from sy s.procedur es where n ame = 'SP_ DeleteRegi strantAndR esponse_Pr iorTo2_0_1 4'
				6268		and sc hema_id = (select SC HEMA_ID fr om sys.sch emas where name = 'A HOBPR')
				6269		)
				6270		drop p rocedure a hobpr.SP_D eleteRegis trantAndRe sponse
				6271		else
				6272		exec s p_rename ' ahobpr.SP_ DeleteRegi strantAndR esponse', 'SP_Delete Registrant AndRespons e_PriorTo2 _0_14';
				6273		end;
				6274
				6275		GO
				6276
				6277		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Del eteRegistr antAndResp onse]...';
				6278		GO
				6279		-- ======= ========== ========== ========== ========
				6280		-- Author: Bruce Clegg
				6281		-- Create date: 4/24 /2015
				6282		-- Descrip tion: Call ed after l oading Res ponse
				6283		-- ======= ========== ========== ========== ========
				6284		CREATE PRO CEDURE [AH OBPR].[SP_ DeleteRegi strantAndR esponse]
				6285		@re gistrantId INT = NUL L
				6286		AS
				6287		BEGIN
				6288
				6289		DELETE F ROM AHOBPR .FORM_RESP ONSE_ANSWE R
				6290		WHERE FO RM_RESPONS E_ANSWER_I D IN
				6291		(
				6292		SELECT c.F ORM_RESPON SE_ANSWER_ ID
				6293		FROM AHO BPR.FORM_R ESPONSE r
				6294		JOIN AHO BPR.FORM_R ESPONSE_QU ESTION a O N r.FORM_R ESPONSE_ID = a.FORM_ RESPONSE_I D
				6295		JOIN AHO BPR.FORM_R ESPONSE_AN SWER c ON a.FORM_RES PONSE_QUES TION_ID = c.FORM_RES PONSE_QUES TION_ID
				6296		WHERE r. REGISTRANT _ID = @reg istrantId
				6297		) ;
				6298
				6299		DELETE F ROM AHOBPR .FORM_RESP ONSE_QUEST ION
				6300		WHERE FO RM_RESPONS E_QUESTION _ID IN
				6301		(
				6302		SELECT a.F ORM_RESPON SE_QUESTIO N_ID
				6303		FROM AHO BPR.FORM_R ESPONSE r
				6304		JOIN AHO BPR.FORM_R ESPONSE_QU ESTION a O N r.FORM_R ESPONSE_ID = a.FORM_ RESPONSE_I D
				6305		WHERE r. REGISTRANT _ID = @reg istrantId
				6306		) ;
				6307
				6308		DELETE F ROM AHOBPR .FORM_RESP ONSE_STATU S
				6309		WHERE FO RM_RESPONS E_STATUS_I D IN
				6310		(
				6311		SELECT a.F ORM_RESPON SE_STATUS_ ID
				6312		FROM AHO BPR.FORM_R ESPONSE r
				6313		JOIN AHO BPR.FORM_R ESPONSE_ST ATUS a ON r.FORM_RES PONSE_ID = a.FORM_RE SPONSE_ID
				6314		WHERE r. REGISTRANT _ID = @reg istrantId
				6315		) ;
				6316
				6317		DELETE F ROM AHOBPR .FORM_RESP ONSE
				6318		WH ERE REGIST RANT_ID = @registra ntId;
				6319
				6320		DELETE FROM AHOBP R.FOLLOWUP _FORM_RESP ONSE_ANSWE R
				6321		WHERE FO LLOWUP_FOR M_RESPONSE _ANSWER_ID IN
				6322		(
				6323		SELECT c.F OLLOWUP_FO RM_RESPONS E_ANSWER_I D
				6324		FROM AHO BPR.FOLLOW UP_FORM_RE SPONSE r
				6325		JOIN AHO BPR.FOLLOW UP_FORM_RE SPONSE_QUE STION a ON r.FOLLOWU P_FORM_RES PONSE_ID = a.FOLLOWU P_FORM_RES PONSE_ID
				6326		JOIN AHO BPR.FOLLOW UP_FORM_RE SPONSE_ANS WER c ON a .FOLLOWUP_ FORM_RESPO NSE_QUESTI ON_ID = c. FOLLOWUP_F ORM_RESPON SE_QUESTIO N_ID
				6327		WHERE r. REGISTRANT _ID = @reg istrantId
				6328		) ;
				6329
				6330		DELETE F ROM AHOBPR .FOLLOWUP_ FORM_RESPO NSE_QUESTI ON
				6331		WHERE FO LLOWUP_FOR M_RESPONSE _QUESTION_ ID IN
				6332		(
				6333		SELECT a.F OLLOWUP_FO RM_RESPONS E_QUESTION _ID
				6334		FROM AHO BPR.FOLLOW UP_FORM_RE SPONSE r
				6335		JOIN AHO BPR.FOLLOW UP_FORM_RE SPONSE_QUE STION a ON r.FOLLOWU P_FORM_RES PONSE_ID = a.FOLLOWU P_FORM_RES PONSE_ID
				6336		WHERE r. REGISTRANT _ID = @reg istrantId
				6337		) ;
				6338
				6339
				6340		DELETE F ROM AHOBPR .FOLLOWUP_ FORM_RESPO NSE
				6341		WH ERE REGIST RANT_ID = @registra ntId;
				6342
				6343		DELETE F ROM AHOBPR .REGISTRAN T_DEPLOYME NT
				6344		WH ERE REGIST RANT_ID = @registra ntId;
				6345
				6346		DELETE F ROM AHOBPR .REGISTRAN T_ADDRESS
				6347		WH ERE REGIST RANT_ID = @registra ntId;
				6348
				6349		DELETE F ROM AHOBPR .REGISTRAN T_PHONE
				6350		WH ERE REGIST RANT_ID = @registra ntId;
				6351
				6352		DELETE FROM AHOBP R.REGISTRA NT_EMAIL
				6353		WH ERE REGIST RANT_ID = @registra ntId;
				6354
				6355
				6356		DELETE F ROM AHOBPR .REGISTRAN T_CONTACT_ INFO
				6357		WH ERE REGIST RANT_ID = @registra ntId;
				6358
				6359		DELETE F ROM AHOBPR .REGISTRAN T_HEALTH_F ACTOR
				6360		WH ERE REGIST RANT_VISIT _ID IN
				6361		(SELEC T REGISTRA NT_VISIT_I D
				6362		FRO M AHOBPR.R EGISTRANT_ VISIT
				6363		WHER E REGISTRA NT_ID = @r egistrantI d);
				6364
				6365		DELETE F ROM AHOBPR .REGISTRAN T_VISIT
				6366		WH ERE REGIST RANT_ID = @registra ntId;
				6367
				6368		DELETE F ROM AHOBPR .REGISTRAN T_RECORD_I NFO
				6369		WH ERE REGIST RANT_ID = @registra ntId;
				6370
				6371		DELETE F ROM AHOBPR .REGISTRAN T_REGISTRY _FLAG
				6372		WH ERE REGIST RANT_ID = @registra ntId;
				6373
				6374		DELETE F ROM AHOBPR .REGISTRAN T_SERVICE_ EPISODE
				6375		WH ERE REGIST RANT_ID = @registra ntId;
				6376
				6377		DELETE F ROM AHOBPR .PROCESS_M ETRICS
				6378		WH ERE REGIST RANT_ID = @registra ntId;
				6379
				6380		DELETE F ROM AHOBPR .EMAIL_LOG
				6381		WH ERE REGIST RANT_ID = @registra ntId;
				6382
				6383		DELETE F ROM AHOBPR .REGISTRAN T
				6384		WH ERE REGIST RANT_ID = @registra ntId;
				6385		END;
				6386		-- EXECUTE [AHOBPR]. [SP_Delete Registrant AndRespons e] 140
				6387		GO
				6388
				6389		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				6390		PRINT N'Up date compl ete.';
				6391		PRINT 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				6392		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				6393
				6394
				6395		GO
				6396		UPDATE [d bo].[Datab aseChangeL og]
				6397		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				6398		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				6399		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				6400		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				6401		AND [S criptName] = '$(Scrip tName)'
				6402		AND Ta rgetRegist ry = 'AHOBPR' ;
				6403
				6404		GO
				6405		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				6406		WHERE Targ etRegistry = 'AHOBPR'
				6407		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				6408		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				6409		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				6410		AND [Scr iptName] = '$(Script Name)';
				6411		go
				6412		---------- ---------- ---------- ---------- ---------- ---------- -
				6413		---------- ---------- ---------- ---------- ---------- ---------- -
				6414		-- 2.0.15. 1
				6415		---------- ---------- ---------- ---------- ---------- ---------- -
				6416		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				6417		:setvar Ma jorRelease Number "2"
				6418		:setvar Mi norRelease Number "0"
				6419		:setvar Po intRelease Number "15 "
				6420		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.15.1. sql"
				6421
				6422		PRINT '
				6423		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				6424		$(ScriptNa me)
				6425
				6426		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				6427
				6428		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				6429		';
				6430		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				6431		PRINT '
				6432		******** ****** ****** ****** ****** *****
				6433		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				6434		******** ****** ****** ****** ****** *****
				6435
				6436		';
				6437		GO
				6438		:on error exit
				6439		GO
				6440		:setvar __ IsSqlCmdEn abled "Tru e"
				6441		/*
				6442		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				6443		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				6444		*/
				6445		SET NOEXEC OFF;
				6446		SET NOCOUN T OFF;
				6447		GO
				6448		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				6449		BEGIN
				6450		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				6451		SE T NOCOUNT ON;
				6452		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.
				6453		END
				6454
				6455		GO
				6456
				6457		USE [$(Dat abaseName) ]
				6458		GO
				6459		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				6460		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				6461		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				6462		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				6463		AND [Scr iptName] = ' $(ScriptNa me)')
				6464		BEGIN
				6465		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!'
				6466		,11
				6467		,1);
				6468		END
				6469		ELSE
				6470		INSERT
				6471		INTO [ dbo].[Data baseChange Log]
				6472		([Major ReleaseNum ber]
				6473		,[Minor ReleaseNum ber]
				6474		,[Point ReleaseNum ber]
				6475		,[Hotfi x]
				6476		,[Scrip tName]
				6477		,[Scrip tDescripti on]
				6478		,[Targe tRegistry]
				6479		,[DateA pplied])
				6480		VAL UES
				6481		('$(Maj orReleaseN umber)'
				6482		,'$(Min orReleaseN umber)'
				6483		,'$(Poi ntReleaseN umber)'
				6484		,0
				6485		,'$(Scr iptName)'
				6486		,'Scr ipt Starte d...'
				6487		,'AHOBP R'
				6488		,GETDAT E());
				6489
				6490		GO
				6491		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				6492		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				6493		ALTER TABL E [AHOBPR] .[EMAIL_TE MPLATES]
				6494		ALTER COL UMN [BODY] [varchar] (4000) NOT NULL;
				6495		GO
				6496
				6497		ALTER TABL E [AHOBPR] .[EMAIL_TE MPLATES]
				6498		ALTER COL UMN [CONTA CT_INFO] [ varchar](2 000) NOT N ULL
				6499		GO
				6500
				6501		ALTER TABL E [AHOBPR] .[EMAIL_LO G]
				6502		ALTER COL UMN [BODY] [varchar] (7000) NUL L;
				6503		GO
				6504
				6505		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				6506		PRINT N'Up date compl ete.';
				6507		PRINT 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				6508		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				6509
				6510
				6511		GO
				6512		UPDATE [d bo].[Datab aseChangeL og]
				6513		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				6514		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				6515		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				6516		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				6517		AND [S criptName] = '$(Scrip tName)'
				6518		AND Ta rgetRegist ry = 'AHOBPR' ;
				6519
				6520		GO
				6521		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				6522		WHERE Targ etRegistry = 'AHOBPR'
				6523		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				6524		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				6525		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				6526		AND [Scr iptName] = '$(Script Name)';
				6527		go
				6528		---------- ---------- ---------- ---------- ---------- ---------- -
				6529		---------- ---------- ---------- ---------- ---------- ---------- -
				6530		-- 2.0.16. 1
				6531		---------- ---------- ---------- ---------- ---------- ---------- -
				6532		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				6533		:setvar Ma jorRelease Number "2"
				6534		:setvar Mi norRelease Number "0"
				6535		:setvar Po intRelease Number "16 "
				6536		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.16.1. sql"
				6537
				6538		PRINT '
				6539		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				6540		$(ScriptNa me)
				6541
				6542		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				6543
				6544		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				6545		';
				6546		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				6547		PRINT '
				6548		******** ****** ****** ****** ****** *****
				6549		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				6550		******** ****** ****** ****** ****** *****
				6551
				6552		';
				6553		GO
				6554		:on error exit
				6555		GO
				6556		:setvar __ IsSqlCmdEn abled "Tru e"
				6557		/*
				6558		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				6559		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				6560		*/
				6561		SET NOEXEC OFF;
				6562		SET NOCOUN T OFF;
				6563		GO
				6564		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				6565		BEGIN
				6566		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				6567		SE T NOCOUNT ON;
				6568		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.
				6569		END
				6570
				6571		GO
				6572
				6573		USE [$(Dat abaseName) ]
				6574		GO
				6575		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				6576		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				6577		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				6578		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				6579		AND [Scr iptName] = ' $(ScriptNa me)')
				6580		BEGIN
				6581		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!'
				6582		,11
				6583		,1);
				6584		END
				6585		ELSE
				6586		INSERT
				6587		INTO [ dbo].[Data baseChange Log]
				6588		([Major ReleaseNum ber]
				6589		,[Minor ReleaseNum ber]
				6590		,[Point ReleaseNum ber]
				6591		,[Hotfi x]
				6592		,[Scrip tName]
				6593		,[Scrip tDescripti on]
				6594		,[Targe tRegistry]
				6595		,[DateA pplied])
				6596		VAL UES
				6597		('$(Maj orReleaseN umber)'
				6598		,'$(Min orReleaseN umber)'
				6599		,'$(Poi ntReleaseN umber)'
				6600		,0
				6601		,'$(Scr iptName)'
				6602		,'Scr ipt Starte d...'
				6603		,'AHOBP R'
				6604		,GETDAT E());
				6605
				6606		GO
				6607		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				6608		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				6609		PRINT 'ren ame ahobpr .SP_Report AdHocByInd ividual to SP_Report AdHocByInd ividual_Pr e2_0_16_1. ..';
				6610		GO
				6611		if exists (select * from sys.p rocedures where name = 'SP_Rep ortAdHocBy Individual '
				6612		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				6613		begin
				6614		if exist s (select * from sys .procedure s where na me = 'SP_R eportAdHoc ByIndividu al_Pre2_0_ 16_1'
				6615		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR')
				6616		)
				6617		drop p rocedure a hobpr.SP_R eportAdHoc ByIndividu al
				6618		else
				6619		exec s p_rename ' ahobpr.SP_ ReportAdHo cByIndivid ual', 'SP_ ReportAdHo cByIndivid ual_Pre2_0 _16_1';
				6620		end;
				6621		GO
				6622		-- ======= ========== ========== ========== ========
				6623		-- Author: Debora h Barr
				6624		-- Create date: Nove mber 12, 2 014
				6625		-- Descrip tion: Used for the A HOBPR Ad H oc Report
				6626
				6627		-- Modific ation log
				6628		-- 2014-12 -31 - Chan ged from F LAG to RES PONSE for Health Con cerns and REQUEST_SE EN, Reform atted stat ements for readabili ty
				6629		-- 2015-01 -05 - Chan ge Date Fo rmat to MM /DD/YYYY
				6630		-- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ healthFact or, @formS tartFromDa te, @formS tartToDate , @subpopu lationFlag
				6631		-- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ adminFlag, @deployme ntAll, @de ploymentEx posure, @a dminFlagFr omDate, @a dminFlagTo Date
				6632		-- 2015-01 -16 - Bruc e Clegg - Fix parame ters and r emove NULL s from dis play where possible
				6633		-- 2015-02 -09 - Bruc e Clegg - Change Hea lth Factor Exists st atements t o use new REGISTRANT _VISIT
				6634		-- 2015-03 -30 - Bruc e Clegg - Added Visn Id value o f NLA to f ind Null l ocations
				6635		-- 2015-04 -27 - Bruc e Clegg - Change to LocationTy pe and Key , for both Assigned and Evalua ted Locati ons
				6636		-- 2015-06 -04 - Bruc e Clegg - Add more p arameters
				6637		-- 2015-06 -18 - Bruc e Clegg - Changed @s eparationT ype to an Integer
				6638		-- 2015-07 -09 - Bruc e CLegg - Rewrote as Dynamic S QL for per formance
				6639		-- Deborah Barr Scri pt 2.0.16. 1
				6640		-- ======= ========== ========== ========== ========
				6641		CREATE PRO CEDURE [AH OBPR].[SP_ ReportAdHo cByIndivid ual]
				6642		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				6643		@du tyStatus v archar(100 ) = NULL, -- Multipl e states, comma-sepa rated valu es when no t NULL
				6644		@fo rmStartFro mDateText varchar(10 0) = NULL,
				6645		@fo rmStartToD ateText va rchar(100) = NULL,
				6646		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				6647		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				6648		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				6649		@qu estionNumb er varchar (100) = NU LL,
				6650		@an swer varch ar(100) = NULL,
				6651		@he althConcer ns varchar (100) = 'A ll',
				6652		@re questToBeS een varcha r(100) = ' All',
				6653		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				6654		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				6655		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				6656		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				6657		@su bpopulatio nFlag varc har (10) = NULL,
				6658		@ad minFlag va rchar (10) = NULL,
				6659		@de ploymentAl l varchar (256) = NU LL,
				6660		@de ploymentEx posure var char (256) = NULL,
				6661		@ad minFlagFro mDateText varchar (2 0) = NULL,
				6662		@ad minFlagToD ateText va rchar (20) = NULL,
				6663		@ex cludeDead varchar(1) = 'N',
				6664		@ge nder varch ar(50) = ' ',
				6665		@ra ce varchar (50) = '',
				6666		@et hnicity va rchar(50) = '',
				6667		@se parationTy pe INT = 0 ,
				6668		@se parationFr omDateText varchar ( 20) = NULL ,
				6669		@se parationTo DateText v archar (20 ) = NULL,
				6670		@en rollmentSt atus varch ar(50) = ' ',
				6671		@ev aluation v archar(100 ) = 'All'
				6672		AS
				6673
				6674		BEGIN
				6675
				6676		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				6677		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				6678		@formStart ToDate DAT ETIME2(0) = NULL,
				6679		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				6680		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				6681		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				6682		@adminFlag ToDate DAT ETIME2(0) = NULL,
				6683		@separatio nFromDate DATETIME2( 0) = NULL,
				6684		@separatio nToDate DA TETIME2(0) = NULL;
				6685
				6686		DECLARE @Query VAR CHAR(8000) ;
				6687		DECLARE @MainQuery VARCHAR(8 000);
				6688		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				6689		DECLARE @AdminWith VARCHAR(8 000);
				6690		DECLARE @SubPopWit h VARCHAR( 8000);
				6691		DECLARE @DeployWit h VARCHAR( 8000);
				6692
				6693		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				6694		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				6695		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				6696		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				6697		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				6698		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				6699		SE T @separat ionFromDat e = dbo.Cl eanDate(@s eparationF romDateTex t);
				6700		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				6701
				6702		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				6703		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				6704		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				6705
				6706		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				6707		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				6708		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				6709
				6710		-- Set Ins titutionID values if needed.
				6711		DECLARE @A ssignedIns titutionId INT = 0,
				6712		@E valuatedIn stitutionI d INT = 0;
				6713
				6714		IF @Assign edLocation Type IN (' Base','Ins titution')
				6715		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				6716		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				6717
				6718		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				6719		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				6720		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				6721
				6722		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				6723		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				6724		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				6725		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				6726		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				6727		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				6728		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				6729		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				6730		' F ROM AHOBPR .REGISTRAN T a ' +
				6731		'WH ERE 1 = 1 ';
				6732
				6733		--Concat enate one or more Ad min flags for Regist rants with flags
				6734		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				6735		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				6736		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				6737		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				6738		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				6739		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				6740		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				6741		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				6742		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				6743		' FROM A HOBPR.REGI STRANT a ' +
				6744		' WHERE 1 = 1 ';
				6745
				6746		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				6747		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				6748		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				6749		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				6750		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				6751		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				6752		' FROM AHOBPR.RE GISTRANT a ' +
				6753		' WHERE 1 = 1 ';
				6754
				6755		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				6756		', (a.LAST_NA ME + '', ' ' + a.FIRS T_NAME) AS Name ' +
				6757		', b.REGISTRA NT_STATUS AS Status ' +
				6758		', c.SERVICE_ STATUS AS DutyStatus ' +
				6759		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				6760		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				6761		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				6762		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				6763		--Decide w hich query to run de pending on if a ques tion was s elected as a paramet er for the report
				6764		IF ISNUL L(@questio nNumber, ' ') = ''
				6765		SET @M ainQuery = @MainQuer y + ','''' AS Questi onNumber ' +
				6766		','''' AS Answer '
				6767		ELSE
				6768		SET @M ainQuery = @MainQuer y + ',''' + @questio nNumber + ''' AS Que stionNumbe r ' +
				6769		',STUF F((SELECT '', '' + s tdAnswer.T EXT ' +
				6770		' FROM AHOBPR.FOR M_RESPONSE _ANSWER an swer ' +
				6771		' JOIN AHOBPR.STD _FORM_ANSW ER stdAnsw er ON answ er.STD_FOR M_ANSWER_I D = stdAns wer.STD_FO RM_ANSWER_ ID ' +
				6772		' WHERE formQuesti on.FORM_RE SPONSE_QUE STION_ID = answer.FO RM_RESPONS E_QUESTION _ID ' +
				6773		' FOR XM L PATH(''' ')), 1, 1, '''') AS Answer ' ;
				6774
				6775		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				6776		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				6777		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				6778		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				6779		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				6780		',a.BI RTH_DATE A S BirthDat e ' +
				6781		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				6782		'FROM AH OBPR.REGIS TRANT a '
				6783
				6784		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				6785		' JOIN AHOBP R.STD_SERV ICE_STATUS c ON a.ST D_SERVICE_ STATUS_ID = c.STD_SE RVICE_STAT US_ID ' +
				6786		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				6787		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				6788		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				6789		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				6790		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ';
				6791
				6792		IF ISNUL L(@questio nNumber, ' ') != ''
				6793		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				6794		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				6795
				6796		SET @Mai nQuery = @ MainQuery + ' WHERE 1 = 1 ';
				6797
				6798
				6799		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				6800		IF ISNUL L(@questio nNumber, ' ') > ''
				6801		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				6802
				6803		IF ISNUL L(@answer, '') != ''
				6804		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SE LECT fr.RE GISTRANT_I D FROM AHO BPR.FORM_R ESPONSE_AN SWER ra ' +
				6805		'JOI N AHOBPR.F ORM_RESPON SE_QUESTIO N rq ON rq .FORM_RESP ONSE_QUEST ION_ID = r a.FORM_RES PONSE_QUES TION_ID ' +
				6806		'JOI N AHOBPR.F ORM_RESPON SE fr ON f r.FORM_RES PONSE_ID = rq.FORM_R ESPONSE_ID ' +
				6807		'JOI N AHOBPR.S TD_FORM_AN SWER A1 ON A1.STD_FO RM_ANSWER_ ID = ra.ST D_FORM_ANS WER_ID ' +
				6808		'JOI N AHOBPR.S TD_FORM_QU ESTION Q1 ON Q1.STD_ FORM_QUEST ION_ID = r q.STD_FORM _QUESTION_ ID ' +
				6809		'JOI N AHOBPR.S TD_FORM_QU ESTION Q2 ON Q2.FORM _QUESTION_ UNIQUE_ID = Q1.FORM_ QUESTION_U NIQUE_ID ' +
				6810		'JOI N AHOBPR.S TD_FORM_AN SWER A2 ON A2.STD_FO RM_QUESTIO N_ID = Q2. STD_FORM_Q UESTION_ID ' +
				6811		' AN D A1.BRP_F ORM_ANSWER _ID = A2.B RP_FORM_AN SWER_ID ' +
				6812		' WHER E A2.STD_F ORM_ANSWER _ID IN (' + @answer + ') AND f r.REGISTRA NT_ID = a. REGISTRANT _ID )';
				6813
				6814		IF @form StartFromD ate IS NOT NULL
				6815		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				6816
				6817		IF @form StartToDat e IS NOT N ULL
				6818		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				6819
				6820		IF @form Completion FromDate I S NOT NULL
				6821		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				6822
				6823		IF @form Completion ToDate IS NOT NULL
				6824		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				6825
				6826		IF ISNUL L(@subpopu lationFlag ,'') != ''
				6827		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				6828		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				6829		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				6830
				6831		IF ISNULL(@a dminFlag,' ') != ''
				6832		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG adminfl ag ' +
				6833		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				6834		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				6835		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				6836		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				6837
				6838		IF ISNUL L(@deploym entAll,'') != ''
				6839		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				6840		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				6841		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				6842
				6843		IF ISNUL L(@healthF actor,'') != ''
				6844		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				6845		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				6846		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				6847		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				6848
				6849
				6850		IF ISNUL L(@deploym entExposur e,'') != ' '
				6851		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				6852		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				6853		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				6854		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				6855		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				6856		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				6857
				6858		IF (@eva luation = 'Yes')
				6859		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev ' +
				6860		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				6861		' AN D ev.EVALU ATION_FLAG = ''Y'') '
				6862		ELSE IF (@evaluat ion = 'No' )
				6863		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT ev ' +
				6864		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				6865		' AN D ev.EVALU ATION_FLAG = ''Y'') ' ;
				6866
				6867
				6868		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				6869		IF @stat us IS NOT NULL
				6870		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				6871
				6872		IF ISNUL L(@dutySta tus,'') > ''
				6873		SET @R egCriteria = @RegCri teria + ' AND a.STD_ SERVICE_ST ATUS_ID IN (' + @dut yStatus + ')';
				6874
				6875		IF @heal thConcerns != 'All'
				6876		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				6877
				6878		IF @requ estToBeSee n != 'All'
				6879		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				6880
				6881		IF ISNUL L(@exclude Dead,'N') = 'Y'
				6882		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				6883
				6884		IF ISNUL L(@gender, '') != ''
				6885		SET @R egCriteria = @RegCri teria + ' AND ''' + @gender + ''' = ISNU LL(a.GENDE R,''No Dat a Availabl e'') ';
				6886
				6887		IF ISNUL L(@ethnici ty,'') != ''
				6888		SET @R egCriteria = @RegCri teria + ' AND ''' + @ethnicity + ''' = I SNULL(a.ET HNICITY,'' No Data Av ailable'') ';
				6889
				6890		IF ISNUL L(@separat ionType,0) != 0
				6891		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				6892
				6893		IF @sepa rationFrom Date IS NO T NULL
				6894		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				6895
				6896		IF @sepa rationToDa te IS NOT NULL
				6897		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				6898
				6899		IF ISNUL L(@race,'' ) != ''
				6900		SET @R egCriteria = @RegCri teria + ' AND ''' + @race + '' ' = ISNUL L(a.RACE , ''No Data Available' ') ';
				6901
				6902		IF ISNUL L(@enrollm entStatus, '') != ''
				6903		SET @R egCriteria = @RegCri teria + ' AND ''' + @enrollmen tStatus + ''' = ISNU LL(a.ENROL LMENT_STAT US,''No Da ta Availab le'') ';
				6904
				6905		IF @Assi gnedLocati onType IS NOT NULL
				6906		BEGIN
				6907		IF @ AssignedLo cationType = 'NLA'
				6908		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				6909		ELSE
				6910		IF @ AssignedLo cationType = 'VISN'
				6911		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				6912		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				6913		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				6914		ELSE
				6915		IF @ AssignedLo cationType = 'Base'
				6916		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				6917		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				6918		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				6919		ELSE
				6920		IF @ AssignedLo cationType = 'Instit ution'
				6921		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				6922		END;
				6923
				6924		IF @Eval uatedLocat ionType IS NOT NULL
				6925		BEGIN
				6926		IF @ EvaluatedL ocationTyp e = 'NLA'
				6927		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				6928		' WHERE eva l.REGISTRA NT_VISIT_I D = a.REGI STRANT_ID ' +
				6929		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				6930		ELSE
				6931		IF @ EvaluatedL ocationTyp e = 'VISN'
				6932		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				6933		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				6934		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				6935		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				6936		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				6937		ELSE
				6938		IF @ EvaluatedL ocationTyp e = 'Base'
				6939		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				6940		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				6941		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				6942		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				6943		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				6944		ELSE
				6945		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				6946		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				6947		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				6948		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				6949		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				6950		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				6951		END;
				6952
				6953		-- Add cri teria and Close With Statement
				6954		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				6955		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				6956		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				6957
				6958		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				6959
				6960		PRINT @ Query;
				6961
				6962		EXECUTE ( @Query);
				6963		END;
				6964
				6965
				6966
				6967		-- Test Ca ses
				6968		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual]
				6969		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ status = ' 6,7'
				6970		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ dutyStatus = '1,2'
				6971		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formStartF romDateTex t = '2001 0101'
				6972		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formStartT oDateText = '2014123 1'
				6973		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ healthFact or = '44,4 5,46,47'
				6974		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formComple tionFromDa teText = '20010101'
				6975		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formComple tionToDate Text = '2 0141231'
				6976		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ healthConc erns = 'Ye s' ,
				6977		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ requestToB eSeen = 'Y es
				6978		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ subpopulat ionFlag = '64,65,66, 67'
				6979		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ deployment All = 'Egy pt'
				6980		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ deployment Exposure = 'Iraq'
				6981		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ adminFlag = '59,60' ,@adminFla gFromDateT ext = '201 50101' , @ adminFlagT oDateText = '2015020 1'
				6982		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ questionNu mber = '5. 4.A' , @a nswer = '2 221'
				6983		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual]
				6984		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'NLA'
				6985		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'VISN', @A ssignedLoc ationKey = 'V16'
				6986		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'Base', @A ssignedLoc ationKey = '1000089'
				6987		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'Instituti on', @Assi gnedLocati onKey = '1 000089'
				6988		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @et hnicity = 'JEWISH'
				6989		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'NLA'
				6990		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'VISN', @ EvaluatedL ocationKey = 'V16'
				6991		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'Base', @ EvaluatedL ocationKey = '100008 9'
				6992		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'Institut ion', @Eva luatedLoca tionKey = '1000089'
				6993
				6994		GO
				6995		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Rep ortRegistr antContact ]...';
				6996		GO
				6997		if exists (select * from sys.p rocedures where name = 'SP_Rep ortRegistr antContact '
				6998		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				6999		begin
				7000		if exist s (select * from sys .procedure s where na me = 'SP_R eportRegis trantConta ct_Pre2_0_ 16_1'
				7001		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR')
				7002		)
				7003		drop p rocedure a hobpr.SP_R eportRegis trantConta ct
				7004		else
				7005		exec s p_rename ' ahobpr.SP_ ReportRegi strantCont act', 'SP_ ReportRegi strantCont act_Pre2_0 _16_1';
				7006		end;
				7007
				7008		GO
				7009
				7010		-- ======= ========== ========== ========== ========
				7011		-- Create date: Octo ber 28, 20 15
				7012		-- Descrip tion: Used to create the list of registr ant to sen d email/no tification s to.
				7013
				7014		-- Modific ation log
				7015		-- Deborah Barr Scri pt 2.0.16. 1
				7016		-- ======= ========== ========== ========== ========
				7017		CREATE PRO CEDURE [AH OBPR].[SP_ ReportRegi strantCont act]
				7018		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				7019		@st ate varcha r(8000) = NULL, -- M ultiple st ates, comm a-separate d values w hen not NU LL
				7020		@fo rmStartFro mDateText varchar(10 0) = NULL,
				7021		@fo rmStartToD ateText va rchar(100) = NULL,
				7022		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				7023		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				7024		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				7025		@qu estionNumb er varchar (100) = NU LL,
				7026		@an swer varch ar(100) = NULL,
				7027		@he althConcer ns varchar (100) = 'A ll',
				7028		@re questToBeS een varcha r(100) = ' All',
				7029		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				7030		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				7031		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				7032		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				7033		@su bpopulatio nFlag varc har (8000) = NULL, - - Multiple subpopula tionFlags, comma-sep arated val ues when n ot NULL
				7034		@ad minFlag va rchar (10) = NULL,
				7035		@de ploymentAl l varchar (256) = NU LL,
				7036		@de ploymentEx posure var char (256) = NULL,
				7037		@ad minFlagFro mDateText varchar (2 0) = NULL,
				7038		@ad minFlagToD ateText va rchar (20) = NULL,
				7039		@ex cludeDead varchar(1) = 'N',
				7040		@co ntactPrefe rence varc har(100) = '',
				7041		@la stName var char(50) = '',
				7042		@ss n varchar( 4) = '',
				7043		@se parationTy pe INT = 0 ,
				7044		@se parationFr omDateText varchar ( 20) = NULL ,
				7045		@se parationTo DateText v archar (20 ) = NULL,
				7046		@fo rmBirthDat eText varc har(100) = NULL,
				7047		@em ail varcha r(100) = ' All',
				7048		@ev aluation v archar(100 ) = 'All',
				7049		@ex cludeAdmin Flag varch ar(1) = 'N '
				7050		AS
				7051
				7052		BEGIN
				7053
				7054		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				7055		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				7056		@formStart ToDate DAT ETIME2(0) = NULL,
				7057		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				7058		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				7059		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				7060		@adminFlag ToDate DAT ETIME2(0) = NULL,
				7061		@separatio nFromDate DATETIME2( 0) = NULL,
				7062		@separatio nToDate DA TETIME2(0) = NULL,
				7063		@formBirth Date DATET IME2(0) = NULL;
				7064
				7065		DECLARE @Query VAR CHAR(8000) ;
				7066		DECLARE @MainQuery VARCHAR(8 000);
				7067		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				7068		DECLARE @AdminWith VARCHAR(8 000);
				7069		DECLARE @SubPopWit h VARCHAR( 8000);
				7070		DECLARE @DeployWit h VARCHAR( 8000);
				7071
				7072		--registr ant contac t numbers
				7073		CREATE T ABLE #phon e
				7074		(
				7075		[Regi strant_Id] INT,
				7076		[Phon e] VARCHAR (50),
				7077		)
				7078
				7079		CREATE TABLE #mob ile
				7080		(
				7081		[Regi strant_Id] INT,
				7082		[Phon eMobile] V ARCHAR(50) ,
				7083		)
				7084		INSERT INTO #phon e ([Regist rant_Id], [Phone])
				7085		-- Load Table
				7086		SELECT R EGISTRANT_ ID,
				7087		ISNULL( PHONE_NUMB ER,'')
				7088		FROM AHOBPR.RE GISTRANT_P HONE
				7089		WHERE ISNULL(TY PE,'') != 'Mobile'
				7090
				7091
				7092		INSERT IN TO #mobile ([Registr ant_Id], [ PhoneMobil e])
				7093		-- Load Table
				7094		SELECT R EGISTRANT_ ID,
				7095		ISNULL( PHONE_NUMB ER,'')
				7096		FROM AHOBPR.RE GISTRANT_P HONE
				7097		WHERE TYPE = 'Mo bile'
				7098
				7099
				7100
				7101
				7102
				7103		CREATE T ABLE #stat e
				7104		(
				7105		[Regi strant_Id] INT,
				7106		[stat e] VARCHAR (8000)
				7107		)
				7108
				7109		SET @sta te = REPLA CE(@state, 'Foreign Country/Ot her', 'FM, MH,PW,UM,U S,CANAD,MX ,EU,PI,FG, OT,UN')
				7110
				7111		INSERT I NTO #state ([Registr ant_Id], [ state])
				7112		-- Load Table
				7113		SELECT a .REGISTRAN T_ID,
				7114		ST UFF((SELEC T ', ' + b .STATE
				7115		FRO M AHOBPR.R EGISTRANT_ ADDRESS b
				7116		WHER E a.REGIST RANT_ID = b.REGISTRA NT_ID
				7117		FOR XML PATH(' ')), 1, 1, '') [STA TE]
				7118		FROM A HOBPR.REGI STRANT a
				7119		GROUP B Y a.REGIST RANT_ID;
				7120
				7121
				7122
				7123		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				7124		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				7125		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				7126		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				7127		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				7128		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				7129		SE T @separat ionFromDat e = dbo.Cl eanDate(@s eparationF romDateTex t);
				7130		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				7131		SET @fo rmBirthDat e = dbo.Cl eanDate(@f ormBirthDa teText);
				7132
				7133		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				7134		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				7135		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				7136
				7137		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				7138		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				7139		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				7140
				7141		-- Set Ins titutionID values if needed.
				7142		DECLARE @A ssignedIns titutionId INT = 0,
				7143		@E valuatedIn stitutionI d INT = 0;
				7144
				7145		IF @Assign edLocation Type IN (' Base','Ins titution')
				7146		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				7147		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				7148
				7149		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				7150		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				7151		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				7152
				7153		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				7154		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				7155		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				7156		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				7157		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				7158		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				7159		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				7160		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				7161		' F ROM AHOBPR .REGISTRAN T a ' +
				7162		'WH ERE 1 = 1 ';
				7163
				7164		--Concat enate one or more Ad min flags for Regist rants with flags
				7165		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				7166		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				7167		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				7168		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				7169		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				7170		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				7171		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				7172		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				7173		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				7174		' FROM A HOBPR.REGI STRANT a ' +
				7175		' WHERE 1 = 1 ';
				7176
				7177		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				7178		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				7179		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				7180		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				7181		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				7182		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				7183		' FROM AHOBPR.RE GISTRANT a ' +
				7184		' WHERE 1 = 1 ';
				7185
				7186		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				7187		', a.LAST_NAM E AS LAST_ NAME ' +
				7188		', a.FIRST_NA ME AS FIRS T_NAME ' +
				7189		', a.CONTACT_ PREFERENCE AS Contac tPreferenc e ' +
				7190		', regADDR.ST REET1 AS S TREET1 ' +
				7191		', regADDR.ST REET2 AS S TREET2 ' +
				7192		', regADDR.CI TY AS CITY ' +
				7193		', regADDR.ST ATE AS STA TE ' +
				7194		', regADDR.CO UNTRY AS C OUNTRY ' +
				7195		', regADDR.ZI P AS ZIP ' +
				7196		', regPhone.P hone AS P HONE_NUMBE R_Main' +
				7197		',re gMobile.Ph oneMobile AS PHONE_ NUMBER_Mob ile' +
				7198		', regEmail.E MAIL AS EM AIL ';
				7199
				7200
				7201
				7202		SET @Mai nQuery = @ MainQuery +
				7203
				7204		'FROM AH OBPR.REGIS TRANT a '
				7205
				7206		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				7207		'LEFT JOIN #state s ' + 'ON a .REGISTRAN T_ID = s.R egistrant_ Id ' +
				7208		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				7209		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				7210		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				7211		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				7212		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ' +
				7213		' LEFT JOIN AHOB PR.REGISTR ANT_ADDRES S regAddr ON a.REGIS TRANT_ID = regAddr.R EGISTRANT_ ID ' +
				7214		' LEFT JOIN #pho ne regPhon e ON a.REG ISTRANT_ID = regPhon e.REGISTRA NT_ID ' +
				7215		' LEFT JOIN #mob ile regMob ile ON a.R EGISTRANT_ ID = regMo bile.REGIS TRANT_ID ' +
				7216		' LEFT JOIN AHOB PR.REGISTR ANT_EMAIL regEmail O N a.REGIST RANT_ID = regEmail.R EGISTRANT_ ID ';
				7217
				7218		IF ISNUL L(@questio nNumber, ' ') != ''
				7219		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				7220		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				7221
				7222
				7223		SET @M ainQuery = @MainQuer y + ' WHER E 1 = 1 ';
				7224
				7225
				7226		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				7227		IF ISNUL L(@questio nNumber, ' ') > ''
				7228		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				7229
				7230		IF ISNUL L(@answer, '') != ''
				7231		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SE LECT fr.RE GISTRANT_I D FROM AHO BPR.FORM_R ESPONSE_AN SWER ra ' +
				7232		'JOI N AHOBPR.F ORM_RESPON SE_QUESTIO N rq ON rq .FORM_RESP ONSE_QUEST ION_ID = r a.FORM_RES PONSE_QUES TION_ID ' +
				7233		'JOI N AHOBPR.F ORM_RESPON SE fr ON f r.FORM_RES PONSE_ID = rq.FORM_R ESPONSE_ID ' +
				7234		'JOI N AHOBPR.S TD_FORM_AN SWER A1 ON A1.STD_FO RM_ANSWER_ ID = ra.ST D_FORM_ANS WER_ID ' +
				7235		'JOI N AHOBPR.S TD_FORM_QU ESTION Q1 ON Q1.STD_ FORM_QUEST ION_ID = r q.STD_FORM _QUESTION_ ID ' +
				7236		'JOI N AHOBPR.S TD_FORM_QU ESTION Q2 ON Q2.FORM _QUESTION_ UNIQUE_ID = Q1.FORM_ QUESTION_U NIQUE_ID ' +
				7237		'JOI N AHOBPR.S TD_FORM_AN SWER A2 ON A2.STD_FO RM_QUESTIO N_ID = Q2. STD_FORM_Q UESTION_ID ' +
				7238		' AN D A1.BRP_F ORM_ANSWER _ID = A2.B RP_FORM_AN SWER_ID ' +
				7239		' WHER E A2.STD_F ORM_ANSWER _ID IN (' + @answer + ') AND f r.REGISTRA NT_ID = a. REGISTRANT _ID )';
				7240
				7241		IF @form StartFromD ate IS NOT NULL
				7242		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				7243
				7244		IF @form StartToDat e IS NOT N ULL
				7245		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				7246
				7247		IF @form Completion FromDate I S NOT NULL
				7248		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				7249
				7250		IF @form Completion ToDate IS NOT NULL
				7251		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				7252
				7253		IF @form BirthDate IS NOT NUL L
				7254		SET @ MainQuery = @MainQue ry + ' AND a.BIRTH_D ATE = ''' + CONVERT( VARCHAR(20 ),@formBir thDate,121 ) + '''';
				7255
				7256
				7257
				7258		IF ISNUL L(@subpopu lationFlag ,'') != ''
				7259		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				7260		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				7261		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				7262
				7263		IF (ISNULL (@adminFla g,'') != ' ')
				7264		IF (ISNULL (@excludeA dminFlag,' N') = 'N')
				7265		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_REGISTRY _FLAG admi nflag ' +
				7266		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				7267		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				7268		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				7269		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) '
				7270		ELSE
				7271		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G adminfla g ' +
				7272		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				7273		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				7274		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				7275		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				7276		IF (@em ail = 'Yes ')
				7277		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_EMAIL em ' +
				7278		' WHER E em.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				7279		' AN D em.EMAIL != '''') '
				7280		ELSE IF (@email = 'No')
				7281		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_EM AIL em ' +
				7282		' WHER E em.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				7283		' AN D em.EMAIL != '''') ' ;
				7284
				7285		IF (@eva luation = 'Yes')
				7286		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev ' +
				7287		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				7288		' AN D ev.EVALU ATION_FLAG = ''Y'') '
				7289		ELSE IF (@evaluat ion = 'No' )
				7290		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT ev ' +
				7291		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				7292		' AN D ev.EVALU ATION_FLAG = ''Y'') ' ;
				7293
				7294
				7295		IF ISNUL L(@deploym entAll,'') != ''
				7296		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				7297		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				7298		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				7299
				7300		IF ISNUL L(@healthF actor,'') != ''
				7301		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				7302		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				7303		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				7304		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				7305
				7306
				7307		IF ISNUL L(@deploym entExposur e,'') != ' '
				7308		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				7309		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				7310		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				7311		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				7312		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				7313		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				7314
				7315
				7316
				7317
				7318
				7319		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				7320		IF @stat us IS NOT NULL
				7321		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				7322
				7323		IF ISNUL L(@state,' ') > ''
				7324		BEGIN
				7325		SET @state = R EPLACE(@St ate,',','' ',''');
				7326		SET @RegCriter ia = @RegC riteria + ' AND EXIS TS(SELECT DISTINCT a ddr.REGIST RANT_ID ' +
				7327		'FROM AH OBPR.REGIS TRANT_ADDR ESS addr ' +
				7328		'WHERE ad dr.REGISTR ANT_ID = a .REGISTRAN T_ID ' +
				7329		'AND ad dr.STATE IN ( ''' + @state + ''') ) ';
				7330		END;
				7331
				7332		IF @heal thConcerns != 'All'
				7333		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				7334
				7335		IF @requ estToBeSee n != 'All'
				7336		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				7337
				7338		IF ISNUL L(@exclude Dead,'N') = 'Y'
				7339		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				7340
				7341		IF ISNUL L(@contact Preference ,'') != ''
				7342		SET @R egCriteria = @RegCri teria + ' AND ''' + @contactPr eference + ''' = ISN ULL(a.CONT ACT_PREFER ENCE,''No Data Avail able'') ';
				7343
				7344		IF ISNUL L(@ssn,'') != ''
				7345		SET @R egCriteria = @RegCri teria + ' AND RIGHT( a.SSN, 4) = ''' + @s sn + '''' ;
				7346
				7347		IF ISNUL L(@separat ionType,0) != 0
				7348		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				7349
				7350		IF @sepa rationFrom Date IS NO T NULL
				7351		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				7352
				7353		IF @sepa rationToDa te IS NOT NULL
				7354		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				7355
				7356		IF ISNUL L(@lastNam e,'') != ' '
				7357		SET @R egCriteria = @RegCri teria + ' AND RTRIM( LTRIM(a.LA ST_NAME)) LIKE ''' + @lastName + '''';
				7358
				7359		IF @Assi gnedLocati onType IS NOT NULL
				7360		BEGIN
				7361		IF @ AssignedLo cationType = 'NLA'
				7362		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				7363		ELSE
				7364		IF @ AssignedLo cationType = 'VISN'
				7365		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				7366		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				7367		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				7368		ELSE
				7369		IF @ AssignedLo cationType = 'Base'
				7370		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				7371		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				7372		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				7373		ELSE
				7374		IF @ AssignedLo cationType = 'Instit ution'
				7375		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				7376		END;
				7377
				7378		IF @Eval uatedLocat ionType IS NOT NULL
				7379		BEGIN
				7380		IF @ EvaluatedL ocationTyp e = 'NLA'
				7381		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				7382		' WHERE eva l.REGISTRA NT_VISIT_I D = a.REGI STRANT_ID ' +
				7383		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				7384		ELSE
				7385		IF @ EvaluatedL ocationTyp e = 'VISN'
				7386		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				7387		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				7388		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				7389		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				7390		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				7391		ELSE
				7392		IF @ EvaluatedL ocationTyp e = 'Base'
				7393		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				7394		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				7395		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				7396		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				7397		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				7398		ELSE
				7399		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				7400		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				7401		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				7402		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				7403		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				7404		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				7405		END;
				7406
				7407		-- Add cri teria and Close With Statement
				7408		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				7409		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				7410		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				7411
				7412		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				7413
				7414		PRINT @ Query;
				7415
				7416		EXECUTE ( @Query);
				7417		END;
				7418
				7419
				7420
				7421		-- Test Ca ses
				7422		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage]
				7423		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ status = ' 6,7'
				7424		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @evaluatio n = 'N', @ status = ' 7'
				7425		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @contactPr eference = 'Email fr om the VA'
				7426		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @state = ' MD,VA'
				7427		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage_c hanges] @f ormBirthDa teText = '19770707'
				7428		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formStart ToDateText = '201412 31'
				7429		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthFac tor = '44, 45,46,47'
				7430		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionFromD ateText = '20010101 '
				7431		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionToDat eText = ' 20141231'
				7432		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthCon cerns = 'Y es' ,
				7433		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @requestTo BeSeen = ' Yes
				7434		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @subpopula tionFlag = '85,87,89 ,105,106,9 1'
				7435		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tAll = 'Eg ypt'
				7436		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tExposure = 'Iraq'
				7437		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @adminFlag = '117', @excludeAd minFlag = 'Y' ,@admi nFlagFromD ateText = '20150101' , @adminF lagToDateT ext = '201 50201'
				7438		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @questionN umber = '5 .4.A' , @ answer = ' 2221'
				7439		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage]
				7440		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'NLA'
				7441		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'VISN', @ AssignedLo cationKey = 'V16'
				7442		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Base', @ AssignedLo cationKey = '1000089 '
				7443		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Institut ion', @Ass ignedLocat ionKey = ' 1000089'
				7444		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @s sn = '1125 '
				7445		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'NLA'
				7446		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'VISN', @Evaluated LocationKe y = 'V16'
				7447		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Base', @Evaluated LocationKe y = '10000 89'
				7448		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Institu tion', @Ev aluatedLoc ationKey = '1000089'
				7449
				7450		GO
				7451
				7452		GO
				7453		PRINT 'REN AME PROCED URE [AHOBP R].[SP_Get Registrant SendMessag e] to SP_G etRegistra ntSendMess age_Pre2_0 _16_1...';
				7454		GO
				7455		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant SendMessag e'
				7456		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				7457		begin
				7458		if exist s (select * from sys .procedure s where na me = 'SP_G etRegistra ntSendMess age_Pre2_0 _16_1'
				7459		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR')
				7460		)
				7461		drop p rocedure a hobpr.SP_G etRegistra ntSendMess age
				7462		else
				7463		exec s p_rename ' ahobpr.SP_ GetRegistr antSendMes sage', 'SP _GetRegist rantSendMe ssage_Pre2 _0_16_1';
				7464		end;
				7465
				7466		GO
				7467		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Get Registrant SendMessag e]...';
				7468		GO
				7469		-- ======= ========== ========== ========== ========
				7470		-- Create date: Octo ber 28, 20 15
				7471		-- Descrip tion: Used to create the list of registr ant to sen d email/no tification s to.
				7472
				7473		-- Modific ation log
				7474		-- Deborah Barr Scri pt 2.0.16. 1
				7475		-- ======= ========== ========== ========== ========
				7476		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antSendMes sage]
				7477		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				7478		@st ate varcha r(8000) = NULL, -- M ultiple st ates, comm a-separate d values w hen not NU LL
				7479		@fo rmStartFro mDateText varchar(10 0) = NULL,
				7480		@fo rmStartToD ateText va rchar(100) = NULL,
				7481		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				7482		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				7483		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				7484		@qu estionNumb er varchar (100) = NU LL,
				7485		@an swer varch ar(100) = NULL,
				7486		@he althConcer ns varchar (100) = 'A ll',
				7487		@re questToBeS een varcha r(100) = ' All',
				7488		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				7489		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				7490		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				7491		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				7492		@su bpopulatio nFlag varc har (8000) = NULL, - - Multiple subpopula tionFlags, comma-sep arated val ues when n ot NULL
				7493		@ad minFlag va rchar (10) = NULL,
				7494		@de ploymentAl l varchar (256) = NU LL,
				7495		@de ploymentEx posure var char (256) = NULL,
				7496		@ad minFlagFro mDateText varchar (2 0) = NULL,
				7497		@ad minFlagToD ateText va rchar (20) = NULL,
				7498		@ex cludeDead varchar(1) = 'N',
				7499		@co ntactPrefe rence varc har(100) = '',
				7500		@la stName var char(50) = '',
				7501		@ss n varchar( 4) = '',
				7502		@se parationTy pe INT = 0 ,
				7503		@se parationFr omDateText varchar ( 20) = NULL ,
				7504		@se parationTo DateText v archar (20 ) = NULL,
				7505		@fo rmBirthDat eText varc har(100) = NULL,
				7506		@em ail varcha r(100) = ' All',
				7507		@ev aluation v archar(100 ) = 'All',
				7508		@ex cludeAdmin Flag varch ar(1) = 'N '
				7509		AS
				7510
				7511		BEGIN
				7512
				7513		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				7514		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				7515		@formStart ToDate DAT ETIME2(0) = NULL,
				7516		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				7517		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				7518		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				7519		@adminFlag ToDate DAT ETIME2(0) = NULL,
				7520		@separatio nFromDate DATETIME2( 0) = NULL,
				7521		@separatio nToDate DA TETIME2(0) = NULL,
				7522		@formBirth Date DATET IME2(0) = NULL;
				7523
				7524		DECLARE @Query VAR CHAR(8000) ;
				7525		DECLARE @MainQuery VARCHAR(8 000);
				7526		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				7527		DECLARE @AdminWith VARCHAR(8 000);
				7528		DECLARE @SubPopWit h VARCHAR( 8000);
				7529		DECLARE @DeployWit h VARCHAR( 8000);
				7530
				7531		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				7532		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				7533		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				7534		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				7535		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				7536		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				7537		SE T @separat ionFromDat e = dbo.Cl eanDate(@s eparationF romDateTex t);
				7538		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				7539		SET @fo rmBirthDat e = dbo.Cl eanDate(@f ormBirthDa teText);
				7540
				7541		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				7542		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				7543		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				7544
				7545		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				7546		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				7547		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				7548
				7549		-- Set Ins titutionID values if needed.
				7550		DECLARE @A ssignedIns titutionId INT = 0,
				7551		@E valuatedIn stitutionI d INT = 0;
				7552
				7553		IF @Assign edLocation Type IN (' Base','Ins titution')
				7554		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				7555		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				7556
				7557		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				7558		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				7559		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				7560
				7561		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				7562		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				7563		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				7564		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				7565		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				7566		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				7567		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				7568		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				7569		' F ROM AHOBPR .REGISTRAN T a ' +
				7570		'WH ERE 1 = 1 ';
				7571
				7572		--Concat enate one or more Ad min flags for Regist rants with flags
				7573		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				7574		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				7575		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				7576		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				7577		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				7578		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				7579		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				7580		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				7581		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				7582		' FROM A HOBPR.REGI STRANT a ' +
				7583		' WHERE 1 = 1 ';
				7584
				7585		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				7586		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				7587		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				7588		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				7589		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				7590		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				7591		' FROM AHOBPR.RE GISTRANT a ' +
				7592		' WHERE 1 = 1 ';
				7593
				7594		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				7595		', (a.LAST_NA ME + '', ' ' + a.FIRS T_NAME) AS Name ' +
				7596		', b.REGISTRA NT_STATUS AS Status ' +
				7597		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				7598		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				7599		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				7600		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				7601		-- ',RIGHT(a. SSN, 4) AS SSN ';
				7602		--Decide w hich query to run de pending on if a ques tion was s elected as a paramet er for the report
				7603		IF ISNUL L(@questio nNumber, ' ') = ''
				7604		SET @M ainQuery = @MainQuer y + ','''' AS Questi onNumber ' +
				7605		','''' AS Answer '
				7606		ELSE
				7607		SET @M ainQuery = @MainQuer y + ',''' + @questio nNumber + ''' AS Que stionNumbe r ' +
				7608		',STUF F((SELECT '', '' + s tdAnswer.T EXT ' +
				7609		' FROM AHOBPR.FOR M_RESPONSE _ANSWER an swer ' +
				7610		' JOIN AHOBPR.STD _FORM_ANSW ER stdAnsw er ON answ er.STD_FOR M_ANSWER_I D = stdAns wer.STD_FO RM_ANSWER_ ID ' +
				7611		' WHERE formQuesti on.FORM_RE SPONSE_QUE STION_ID = answer.FO RM_RESPONS E_QUESTION _ID ' +
				7612		' FOR XM L PATH(''' ')), 1, 1, '''') AS Answer ' ;
				7613
				7614		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				7615		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				7616		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				7617		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				7618		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				7619		',a.BI RTH_DATE A S BirthDat e ' +
				7620		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				7621		',RIGH T(a.SSN, 4 ) AS SSN ' +
				7622		'FROM AH OBPR.REGIS TRANT a '
				7623
				7624		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				7625		' LEFT JOI N AHOBPR.F ORM_RESPON SE d ON a. REGISTRANT _ID = d.R EGISTRANT_ ID ' +
				7626		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				7627		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				7628		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				7629		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ';
				7630
				7631		IF ISNUL L(@questio nNumber, ' ') != ''
				7632		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				7633		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				7634
				7635		SET @M ainQuery = @MainQuer y + ' WHER E 1 = 1 ';
				7636
				7637
				7638		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				7639		IF ISNUL L(@questio nNumber, ' ') > ''
				7640		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				7641
				7642		IF ISNUL L(@answer, '') != ''
				7643		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SE LECT fr.RE GISTRANT_I D FROM AHO BPR.FORM_R ESPONSE_AN SWER ra ' +
				7644		'JOI N AHOBPR.F ORM_RESPON SE_QUESTIO N rq ON rq .FORM_RESP ONSE_QUEST ION_ID = r a.FORM_RES PONSE_QUES TION_ID ' +
				7645		'JOI N AHOBPR.F ORM_RESPON SE fr ON f r.FORM_RES PONSE_ID = rq.FORM_R ESPONSE_ID ' +
				7646		'JOI N AHOBPR.S TD_FORM_AN SWER A1 ON A1.STD_FO RM_ANSWER_ ID = ra.ST D_FORM_ANS WER_ID ' +
				7647		'JOI N AHOBPR.S TD_FORM_QU ESTION Q1 ON Q1.STD_ FORM_QUEST ION_ID = r q.STD_FORM _QUESTION_ ID ' +
				7648		'JOI N AHOBPR.S TD_FORM_QU ESTION Q2 ON Q2.FORM _QUESTION_ UNIQUE_ID = Q1.FORM_ QUESTION_U NIQUE_ID ' +
				7649		'JOI N AHOBPR.S TD_FORM_AN SWER A2 ON A2.STD_FO RM_QUESTIO N_ID = Q2. STD_FORM_Q UESTION_ID ' +
				7650		' AN D A1.BRP_F ORM_ANSWER _ID = A2.B RP_FORM_AN SWER_ID ' +
				7651		' WHER E A2.STD_F ORM_ANSWER _ID IN (' + @answer + ') AND f r.REGISTRA NT_ID = a. REGISTRANT _ID )';
				7652
				7653		IF @form StartFromD ate IS NOT NULL
				7654		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				7655
				7656		IF @form StartToDat e IS NOT N ULL
				7657		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				7658
				7659		IF @form Completion FromDate I S NOT NULL
				7660		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				7661
				7662		IF @form Completion ToDate IS NOT NULL
				7663		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				7664
				7665		IF @form BirthDate IS NOT NUL L
				7666		SET @ MainQuery = @MainQue ry + ' AND a.BIRTH_D ATE = ''' + CONVERT( VARCHAR(20 ),@formBir thDate,121 ) + '''';
				7667
				7668
				7669
				7670		IF ISNUL L(@subpopu lationFlag ,'') != ''
				7671		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				7672		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				7673		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				7674
				7675		IF (ISNULL(@ adminFlag, '') != '')
				7676		IF (ISNULL (@excludeA dminFlag,' N') = 'N')
				7677		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_REGISTRY _FLAG admi nflag ' +
				7678		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				7679		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				7680		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				7681		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) '
				7682		ELSE
				7683		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G adminfla g ' +
				7684		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				7685		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				7686		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				7687		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				7688		IF (@em ail = 'Yes ')
				7689		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_EMAIL em ' +
				7690		' WHER E em.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				7691		' AN D em.EMAIL != '''') '
				7692		ELSE IF (@email = 'No')
				7693		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_EM AIL em ' +
				7694		' WHER E em.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				7695		' AN D em.EMAIL != '''') ' ;
				7696
				7697		IF (@eva luation = 'Yes')
				7698		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev ' +
				7699		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				7700		' AN D ev.EVALU ATION_FLAG = ''Y'') '
				7701		ELSE IF (@evaluat ion = 'No' )
				7702		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT ev ' +
				7703		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				7704		' AN D ev.EVALU ATION_FLAG = ''Y'') ' ;
				7705
				7706		IF ISNUL L(@deploym entAll,'') != ''
				7707		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				7708		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				7709		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				7710
				7711		IF ISNUL L(@healthF actor,'') != ''
				7712		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				7713		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				7714		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				7715		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				7716
				7717
				7718		IF ISNUL L(@deploym entExposur e,'') != ' '
				7719		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				7720		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				7721		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				7722		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				7723		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				7724		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				7725
				7726		IF ISNUL L(@state,' ') != ''
				7727		BE GIN
				7728		SET @state = R EPLACE(@St ate,',','' ',''');
				7729		SET @MainQuery = @MainQu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _ADDRESS a ddr ' +
				7730		' WHER E addr.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				7731		'AND addr.STAT E IN ( '' ' + @state + ''') ) ';
				7732		EN D;
				7733
				7734
				7735		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				7736		IF @stat us IS NOT NULL
				7737		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				7738
				7739
				7740		IF @heal thConcerns != 'All'
				7741		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				7742
				7743		IF @requ estToBeSee n != 'All'
				7744		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				7745
				7746		IF ISNUL L(@exclude Dead,'N') = 'Y'
				7747		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				7748
				7749		IF ISNUL L(@contact Preference ,'') != ''
				7750		SET @R egCriteria = @RegCri teria + ' AND ''' + @contactPr eference + ''' = ISN ULL(a.CONT ACT_PREFER ENCE,''No Data Avail able'') ';
				7751
				7752		IF ISNUL L(@ssn,'') != ''
				7753		SET @R egCriteria = @RegCri teria + ' AND RIGHT( a.SSN, 4) = ''' + @s sn + '''' ;
				7754
				7755		IF ISNUL L(@separat ionType,0) != 0
				7756		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				7757
				7758		IF @sepa rationFrom Date IS NO T NULL
				7759		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				7760
				7761		IF @sepa rationToDa te IS NOT NULL
				7762		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				7763
				7764		IF ISNUL L(@lastNam e,'') != ' '
				7765		SET @R egCriteria = @RegCri teria + ' AND RTRIM( LTRIM(a.LA ST_NAME)) LIKE ''' + @lastName + '''';
				7766
				7767		IF @Assi gnedLocati onType IS NOT NULL
				7768		BEGIN
				7769		IF @ AssignedLo cationType = 'NLA'
				7770		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				7771		ELSE
				7772		IF @ AssignedLo cationType = 'VISN'
				7773		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				7774		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				7775		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				7776		ELSE
				7777		IF @ AssignedLo cationType = 'Base'
				7778		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				7779		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				7780		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				7781		ELSE
				7782		IF @ AssignedLo cationType = 'Instit ution'
				7783		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				7784		END;
				7785
				7786		IF @Eval uatedLocat ionType IS NOT NULL
				7787		BEGIN
				7788		IF @ EvaluatedL ocationTyp e = 'NLA'
				7789		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				7790		' WHERE eva l.REGISTRA NT_VISIT_I D = a.REGI STRANT_ID ' +
				7791		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				7792		ELSE
				7793		IF @ EvaluatedL ocationTyp e = 'VISN'
				7794		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				7795		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				7796		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				7797		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				7798		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				7799		ELSE
				7800		IF @ EvaluatedL ocationTyp e = 'Base'
				7801		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				7802		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				7803		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				7804		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				7805		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				7806		ELSE
				7807		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				7808		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				7809		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				7810		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				7811		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				7812		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				7813		END;
				7814
				7815		-- Add cri teria and Close With Statement
				7816		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				7817		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				7818		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				7819
				7820		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				7821
				7822		PRINT @ Query;
				7823
				7824		EXECUTE ( @Query);
				7825		END;
				7826
				7827
				7828
				7829		-- Test Ca ses
				7830		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage]
				7831		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @status = '6,7'
				7832		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @evaluatio n = 'N', @ status = ' 7'
				7833		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @contactPr eference = 'Email fr om the VA'
				7834		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @state = ' MD,VA'
				7835		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage_c hanges] @f ormBirthDa teText = '19770707'
				7836		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formStart ToDateText = '201412 31'
				7837		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthFac tor = '44, 45,46,47'
				7838		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionFromD ateText = '20010101 '
				7839		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionToDat eText = ' 20141231'
				7840		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthCon cerns = 'Y es' ,
				7841		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @requestTo BeSeen = ' Yes
				7842		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @subpopula tionFlag = '85,87,89 ,105,106,9 1'
				7843		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tAll = 'Eg ypt'
				7844		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tExposure = 'Iraq'
				7845		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @adminFlag = '117', @excludeAd minFlag = 'Y' ,@admi nFlagFromD ateText = '20150101' , @adminF lagToDateT ext = '201 50201'
				7846		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @questionN umber = '5 .4.A' , @ answer = ' 2221'
				7847		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage]
				7848		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'NLA'
				7849		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'VISN', @ AssignedLo cationKey = 'V16'
				7850		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Base', @ AssignedLo cationKey = '1000089 '
				7851		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Institut ion', @Ass ignedLocat ionKey = ' 1000089'
				7852		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @s sn = '1125 '
				7853		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'NLA'
				7854		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'VISN', @Evaluated LocationKe y = 'V16'
				7855		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Base', @Evaluated LocationKe y = '10000 89'
				7856		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Institu tion', @Ev aluatedLoc ationKey = '1000089'
				7857
				7858		GO
				7859
				7860		if exists (select * from sys.p rocedures where name = 'SP_Rep ortAdHocBy Location'
				7861		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				7862		begin
				7863		if exist s (select * from sys .procedure s where na me = 'SP_R eportAdHoc ByLocation _Pre2_0_16 _1'
				7864		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR')
				7865		)
				7866		drop p rocedure a hobpr.SP_R eportAdHoc ByLocation
				7867		else
				7868		exec s p_rename ' ahobpr.SP_ ReportAdHo cByLocatio n', 'SP_Re portAdHocB yLocation_ Pre2_0_16_ 1';
				7869		end;
				7870		GO
				7871
				7872		PRINT 'CRE ATE PROCED URE [AHOBP R].[SP_Rep ortAdHocBy Location]. ..';
				7873		GO
				7874		-- ======= ========== ========== ========== ========
				7875		-- Author: Debora h Barr
				7876		-- Create date: Nove mber 12, 2 014
				7877		-- Descrip tion: Used for the A HOBPR Ad H oc Report
				7878
				7879		-- Modific ation log
				7880		-- 2014-12 -31 - Chan ged from F LAG to RES PONSE for Health Con cerns and REQUEST_SE EN, Reform atted stat ements for readabili ty
				7881		-- 2015-01 -05 - Chan ge Date Fo rmat to MM /DD/YYYY
				7882		-- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ healthFact or, @formS tartFromDa te, @formS tartToDate , @subpopu lationFlag
				7883		-- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ adminFlag, @deployme ntAll, @de ploymentEx posure, @a dminFlagFr omDate, @a dminFlagTo Date
				7884		-- 2015-01 -16 - Bruc e Clegg - Fix parame ters, Add distinct a nd outer q uery to gr oup counts .
				7885		-- 2015-02 -09 - Bruc e Clegg - Change Hea lth Factor Exists st atements t o use new REGISTRANT _VISIT
				7886		-- 2015-05 -07 - Bruc e Clegg - Change Fac ility name from "Oth er" to "No Facitilty Assigned" when not found
				7887		-- 2015-06 -04 - Bruc e Clegg - Add more p arameters
				7888		-- 2015-06 -18 - Bruc e Clegg - Changed @s eparationT ype to an Integer
				7889		-- 2015-07 -09 - Bruc e Clegg - Rewrote as Dynamic S QL for per formance
				7890		-- 2015-08 -05 - Bruc e Clegg - Fix bug wi th AdminFl ag - Set F rom and To date defa ults
				7891		-- 2015-12 -11 - D Ba rr - added eval uation par ameter
				7892		-- Deborah Barr - Sc ript 2.0.1 6.1
				7893		-- ======= ========== ========== ========== ========
				7894		CREATE PRO CEDURE [AH OBPR].[SP_ ReportAdHo cByLocatio n]
				7895		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				7896		@du tyStatus v archar(100 ) = NULL, -- Multipl e states, comma-sepa rated valu es when no t NULL
				7897		@fo rmStartFro mDateText varchar(10 0) = NULL,
				7898		@fo rmStartToD ateText va rchar(100) = NULL,
				7899		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				7900		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				7901		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				7902		@qu estionNumb er varchar (100) = NU LL,
				7903		@an swer varch ar(100) = NULL,
				7904		@he althConcer ns varchar (10) = 'Al l',
				7905		@re questToBeS een varcha r(10) = 'A ll',
				7906		@gr oupBy VARC HAR(50) = '', -- 'VISN' or 'Facili ty'
				7907		@su bpopulatio nFlag varc har (10) = NULL,
				7908		@ad minFlag va rchar (10) = NULL,
				7909		@de ploymentAl l varchar (256) = NU LL,
				7910		@de ploymentEx posure var char (256) = NULL,
				7911		@ad minFlagFro mDateText varchar (2 0) = NULL,
				7912		@ad minFlagToD ateText va rchar (20) = NULL,
				7913		@ex cludeDead varchar(1) = 'N',
				7914		@ge nder varch ar(50) = ' ',
				7915		@ra ce varchar (50) = '',
				7916		@et hnicity va rchar(50) = '',
				7917		@se parationTy pe INT = 0 ,
				7918		@se parationFr omDateText varchar ( 20) = NULL ,
				7919		@se parationTo DateText v archar (20 ) = NULL,
				7920		@en rollmentSt atus varch ar(50) = ' ',
				7921		@ev aluation v archar(100 ) = 'All'
				7922		AS
				7923
				7924		BEGIN
				7925
				7926		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				7927		@formStart ToDate DAT ETIME2(0) = NULL,
				7928		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				7929		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				7930		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				7931		@adminFlag ToDate DAT ETIME2(0) = NULL,
				7932		@separatio nFromDate DATETIME2( 0) = NULL,
				7933		@separatio nToDate DA TETIME2(0) = NULL;
				7934
				7935		DECLARE @Query VAR CHAR(8000) ;
				7936
				7937		-- Conve rt date pa rameters
				7938
				7939		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				7940		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				7941		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				7942		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				7943		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				7944		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				7945		SET @sep arationFro mDate = db o.CleanDat e(@separat ionFromDat eText);
				7946		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				7947
				7948		-- Build Src TDE
				7949		SET @Que ry = ' WIT H Src
				7950		AS( SE LECT a.REG ISTRANT_ID , a.STD_IN STITUTION_ ID FROM AH OBPR.REGIS TRANT a ';
				7951
				7952
				7953		SET @Que ry = @Quer y + ' WHER E 1 = 1 ';
				7954
				7955
				7956
				7957		IF @stat us IS NOT NULL
				7958		SET @Q uery = @Qu ery + ' AN D a.STD_RE GISTRANT_S TATUS_ID I N (' + @st atus + ')' ;
				7959
				7960		IF ISNUL L(@dutySta tus,'') > ''
				7961		SET @Q uery = @Qu ery + ' AN D a.STD_SE RVICE_STAT US_ID IN ( ' + @dutyS tatus + ') ';
				7962
				7963		IF @heal thConcerns != 'All'
				7964		SET @Q uery = @Qu ery + ' AN D a.HEALTH _CONCERNS_ RESPONSE = ''' + @he althConcer ns + '''';
				7965
				7966		IF @requ estToBeSee n != 'All'
				7967		SET @Q uery = @Qu ery + ' AN D a.REQUES T_SEEN_RES PONSE = '' ' + @reque stToBeSeen + '''';
				7968
				7969		IF @form StartFromD ate IS NOT NULL OR @ formStartT oDate IS N OT NULL
				7970		OR @form Completion FromDate I S NOT NULL OR @formC ompletionT oDate IS N OT NULL
				7971		BEGIN
				7972		SET @Query = @ Query + ' AND EXISTS ( SELECT d .REGISTRAN T_ID FROM AHOBPR.FOR M_RESPONSE d
				7973		JOIN AHOBP R.FORM_RES PONSE_STAT US e ON d. FORM_RESPO NSE_ID = e .FORM_RESP ONSE_ID
				7974		W HERE a.REG ISTRANT_ID = d.REGIS TRANT_ID ' ;
				7975		IF @formStar tFromDate IS NOT NUL L
				7976		SET @Quer y = @Query + ' AND e .QUESTIONN AIRE_START ED_DATE >= ''' + CON VERT(VARCH AR(20),@fo rmStartFro mDate,121) + '''';
				7977		IF @formStar tToDate IS NOT NULL
				7978		SET @Quer y = @Query + ' AND e .QUESTIONN AIRE_START ED_DATE <= ''' + CON VERT(VARCH AR(20),@fo rmStartToD ate,121) + '''';
				7979		IF @formComp letionFrom Date IS NO T NULL
				7980		SET @Quer y = @Query + ' AND e .QUESTIONN AIRE_COMPL ETED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formComple tionFromDa te,121) + '''';
				7981		IF @formComp letionToDa te IS NOT NULL
				7982		SET @Quer y = @Query + ' AND e .QUESTIONN AIRE_COMPL ETED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formComple tionToDate ,121) + '' '';
				7983		S ET @Query = @Query + ' ) ' -- Close Exis its statem ent
				7984		END
				7985
				7986		IF ISNUL L(@answer, '') != ''
				7987		--SET @Query = @ Query + ' AND EXISTS (SELECT fr .REGISTRAN T_ID FROM AHOBPR.FOR M_RESPONSE _ANSWER ra ' +
				7988		-- 'J OIN AHOBPR .FORM_RESP ONSE_QUEST ION rq ON rq.FORM_RE SPONSE_QUE STION_ID = ra.FORM_R ESPONSE_QU ESTION_ID ' +
				7989		-- 'J OIN AHOBPR .FORM_RESP ONSE fr ON fr.FORM_R ESPONSE_ID = rq.FORM _RESPONSE_ ID ' +
				7990		-- ' WH ERE ra.STD _FORM_ANSW ER_ID IN ( ' + @answe r + ') AND fr.REGIST RANT_ID = a.REGISTRA NT_ID )';
				7991
				7992		SET @Que ry = @Quer y + ' AND EXISTS(SEL ECT fr.REG ISTRANT_ID FROM AHOB PR.FORM_RE SPONSE_ANS WER ra ' +
				7993		'JOIN AHOBPR.FOR M_RESPONSE _QUESTION rq ON rq.F ORM_RESPON SE_QUESTIO N_ID = ra. FORM_RESPO NSE_QUESTI ON_ID ' +
				7994		'JOIN AHOBPR.FOR M_RESPONSE fr ON fr. FORM_RESPO NSE_ID = r q.FORM_RES PONSE_ID ' +
				7995		'JOIN AHOBPR.STD _FORM_ANSW ER A1 ON A 1.STD_FORM _ANSWER_ID = ra.STD_ FORM_ANSWE R_ID ' +
				7996		'JOIN AHOBPR.STD _FORM_QUES TION Q1 ON Q1.STD_FO RM_QUESTIO N_ID = rq. STD_FORM_Q UESTION_ID ' +
				7997		'JOIN AHOBPR.STD _FORM_QUES TION Q2 ON Q2.FORM_Q UESTION_UN IQUE_ID = Q1.FORM_QU ESTION_UNI QUE_ID ' +
				7998		'JOIN AHOBPR.STD _FORM_ANSW ER A2 ON A 2.STD_FORM _QUESTION_ ID = Q2.ST D_FORM_QUE STION_ID ' +
				7999		' AND A1.BRP_FOR M_ANSWER_I D = A2.BRP _FORM_ANSW ER_ID ' +
				8000		' WHERE A2.STD_FOR M_ANSWER_I D IN (' + @answer + ') AND fr. REGISTRANT _ID = a.RE GISTRANT_I D )';
				8001
				8002
				8003		IF ISNUL L(@subpopu lationFlag ,'') != ''
				8004		SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _REGISTRY_ FLAG subpo p ' +
				8005		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				8006		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				8007
				8008		IF ISNULL(@a dminFlag,' ') != ''
				8009		SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _REGISTRY_ FLAG admin flag ' +
				8010		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				8011		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				8012		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				8013		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				8014
				8015		IF ISNUL L(@healthF actor,'') != ''
				8016		SET @Q uery = @Qu ery + ' AN D EXISTS ( SELECT re. REGISTRANT _ID FROM A HOBPR.REGI STRANT_VIS IT re ' +
				8017		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				8018		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				8019		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				8020
				8021		IF ISNUL L(@deploym entAll,'') != ''
				8022		SET @Q uery = @Qu ery + ' AN D EXISTS ( SELECT dep l.REGISTRA NT_ID FROM AHOBPR.RE GISTRANT_D EPLOYMENT depl ' +
				8023		' WHERE a.R EGISTRANT_ ID = depl. REGISTRANT _ID
				8024		AND dep l.DEPLOYME NT_COUNTRY = ''' + @ deployment All + ''') ' ;
				8025
				8026		IF ISNUL L(@deploym entExposur e,'') != ' '
				8027		SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT depl oymentExpo sure.REGIS TRANT_ID F ROM AHOBPR .REGISTRAN T_DEPLOYME NT deploym entExposur e ' +
				8028		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				8029		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				8030		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID = ''1.2.A'' ' +
				8031		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				8032		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				8033
				8034		IF (@evalu ation = 'Y es')
				8035		SET @Query = @Query + ' AND EXIST S(SELECT * FROM AHOB PR.REGISTR ANT_VISIT ev ' +
				8036		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				8037		' AN D ev.EVALU ATION_FLAG = ''Y'') '
				8038		ELSE IF (@evaluat ion = 'No' )
				8039		S ET @Query = @Query + ' AND NOT EXISTS(SE LECT * FRO M AHOBPR.R EGISTRANT_ VISIT ev ' +
				8040		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				8041		' AN D ev.EVALU ATION_FLAG = ''Y'') ' ;
				8042
				8043		IF ISNUL L(@exclude Dead,'N') = 'Y'
				8044		SET @Q uery = @Qu ery + ' AN D a.DECEAS ED_FLAG = 0 ';
				8045
				8046		IF ISNUL L(@gender, '') != ''
				8047		SET @Q uery = @Qu ery + ' AN D ''' + @g ender + '' ' = ISNULL (a.GENDER, ''No Data Available' ') ';
				8048
				8049		IF ISNUL L(@ethnici ty,'') != ''
				8050		SET @Q uery = @Qu ery + ' AN D ''' + @e thnicity + ''' = ISN ULL(a.ETHN ICITY,''No Data Avai lable'') ' ;
				8051
				8052		IF ISNUL L(@separat ionType,0) != 0
				8053		SET @Q uery = @Qu ery + ' AN D ''' + @s eparationT ype + ''' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				8054
				8055		IF @sepa rationFrom Date IS NO T NULL
				8056		SET @Q uery = @Qu ery + ' AN D a.SEPARA TION_DATE_ CURRENT >= ''' + CON VERT(VARCH AR(20),@se parationFr omDate,121 ) + '''';
				8057
				8058		IF @sepa rationToDa te IS NOT NULL
				8059		SET @Q uery = @Qu ery + ' AN D a.SEPAR ATION_DATE _CURRENT < = ''' + CO NVERT(VARC HAR(20),@s eparationT oDate,121) + '''';
				8060
				8061		IF ISNUL L(@race,'' ) != ''
				8062		SET @Q uery = @Qu ery + ' AN D ''' + @r ace + ''' = ISNULL( a.RACE ,'' No Data Av ailable'') ';
				8063
				8064		IF ISNUL L(@enrollm entStatus, '') != ''
				8065		SET @Q uery = @Qu ery + ' AN D ''' + @e nrollmentS tatus + '' ' = ISNULL (a.ENROLLM ENT_STATUS ,''No Data Available '') ';
				8066
				8067		-- Add S ummary TDE
				8068		SET @Que ry = @Quer y + ' ) ,Summary AS( ' +
				8069		' SELE CT Src.STD _INSTITUTI ON_ID, COU NT(*) AS T otalRegist rants FROM Src ' +
				8070		' GROU P BY STD_I NSTITUTION _ID ) ';
				8071		-- By Faci lity
				8072		IF @groupBy = 'Facilit y'
				8073		SET @Query = @Query + ' SELECT inst.Name AS Locati on, ' +
				8074		' ISNULL(C ONVERT(VAR CHAR(10),S ummary.STD _INSTITUTI ON_ID),''- 1'') AS Lo cationId, ' +
				8075		' SU M(TotalReg istrants) AS TotalRe gistrants FROM Summa ry ' +
				8076		' JOIN AHOBPR.VI EW_INSTITU TION_NAME inst ON in st.ID = IS NULL(Summa ry.STD_INS TITUTION_I D,-1) ' +
				8077		' GROUP BY inst.N ame,STD_IN STITUTION_ ID ' +
				8078		' O PTION (OPT IMIZE FOR UNKNOWN);' ;
				8079
				8080		-- By VISN
				8081		IF @groupBy = 'VISN'
				8082		SET @Quer y = @Query + ' ,Visn Summary AS ( ' +
				8083		' S ELECT ISNU LL(inst.Vi snID,''NLA '') AS Loc ation, ' +
				8084		' ISNU LL(inst.Vi snID, ''-1 '') AS Loc ationId, ' +
				8085		' SUM( TotalRegis trants) AS TotalRegi strants ' +
				8086		' FROM Summ ary ' +
				8087		' LEFT JOIN AHOBPR.VI EW_FACILIT Y_LOOKUP i nst ON ins t.ID = ISN ULL(Summar y.STD_INST ITUTION_ID ,-1) ' +
				8088		' GROUP BY inst.VisnI D ) ' +
				8089		' S ELECT REPL ACE(Locati on,''NLA'' ,''No Faci tilty Assi gned'') AS Location, ' +
				8090		' CONV ERT(VARCHA R(10),Loca tionId) AS LocationI d, TotalRe gistrants ' +
				8091		' FROM Visn Summary ' +
				8092		' ORDER BY L ocation ' +
				8093		' OPTION (OP TIMIZE FOR UNKNOWN); ' ;
				8094
				8095		PRINT @Q uery;
				8096
				8097		EXECUTE (@Query);
				8098		END
				8099		-- Paramet ers
				8100		--@statu s, @dutySt atus ,@que stionnaire StartDate, @question naireCompl eteDate,
				8101		--@quest ionNumber, @answer, @healthCon cerns= 'Al l', @reque stToBeSeen = 'All',
				8102		--@regis tryFlag,@I nstitution Id = 0, @V isnId = ''
				8103		-- Test Ca ses
				8104		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @ev aluation = 'No'
				8105		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @du tyStatus = '1,2'
				8106		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @fo rmStartFro mDateText = '200101 01'
				8107		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @fo rmStartToD ateText = '20141231'
				8108		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @he althFactor = '44,45, 46,47'
				8109		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @fo rmCompleti onFromDate Text = '2 0010101'
				8110		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @fo rmCompleti onToDateTe xt = '201 41231'
				8111		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @he althConcer ns = 'Yes'
				8112		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @re questToBeS een = 'Yes '
				8113		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @su bpopulatio nFlag = '6 4,65,66,67 '
				8114		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @de ploymentAl l = 'Iraq' -- 'Eg ypt'
				8115		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @de ploymentEx posure = 'Iraq'
				8116		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @ad minFlag = '59,60' ,@ adminFlagF romDateTex t = '20150 101' , @ad minFlagToD ateText = '20150201'
				8117		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @an swer = '22 21'
				8118		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = ' Facility' , @status = '6,7' ,@ answer = ' 2346,1571, 17' -- ' 20,795,157 0'
				8119
				8120		GO
				8121
				8122
				8123		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				8124		PRINT N'Up date compl ete.';
				8125		PRINT 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				8126		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				8127
				8128
				8129		GO
				8130		UPDATE [d bo].[Datab aseChangeL og]
				8131		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				8132		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				8133		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				8134		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				8135		AND [S criptName] = '$(Scrip tName)'
				8136		AND Ta rgetRegist ry = 'AHOBPR' ;
				8137
				8138		GO
				8139		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				8140		WHERE Targ etRegistry = 'AHOBPR'
				8141		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				8142		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				8143		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				8144		AND [Scr iptName] = '$(Script Name)';
				8145
				8146		go
				8147		---------- ---------- ---------- ---------- ---------- ---------- -
				8148		---------- ---------- ---------- ---------- ---------- ---------- -
				8149		-- 2.0.17. 1
				8150		---------- ---------- ---------- ---------- ---------- ---------- -
				8151		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				8152		:setvar Ma jorRelease Number "2"
				8153		:setvar Mi norRelease Number "0"
				8154		:setvar Po intRelease Number "17 "
				8155		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.17.1. sql"
				8156
				8157		PRINT '
				8158		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				8159		$(ScriptNa me)
				8160
				8161		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				8162
				8163		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				8164		';
				8165		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				8166		PRINT '
				8167		******** ****** ****** ****** ****** *****
				8168		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				8169		******** ****** ****** ****** ****** *****
				8170
				8171		';
				8172		GO
				8173		:on error exit
				8174		GO
				8175		:setvar __ IsSqlCmdEn abled "Tru e"
				8176		/*
				8177		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				8178		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				8179		*/
				8180		SET NOEXEC OFF;
				8181		SET NOCOUN T OFF;
				8182		GO
				8183		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				8184		BEGIN
				8185		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				8186		SE T NOCOUNT ON;
				8187		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.
				8188		END
				8189
				8190		GO
				8191
				8192		USE [$(Dat abaseName) ]
				8193		GO
				8194		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				8195		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				8196		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				8197		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				8198		AND [Scr iptName] = ' $(ScriptNa me)')
				8199		BEGIN
				8200		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!'
				8201		,11
				8202		,1);
				8203		END
				8204		ELSE
				8205		INSERT
				8206		INTO [ dbo].[Data baseChange Log]
				8207		([Major ReleaseNum ber]
				8208		,[Minor ReleaseNum ber]
				8209		,[Point ReleaseNum ber]
				8210		,[Hotfi x]
				8211		,[Scrip tName]
				8212		,[Scrip tDescripti on]
				8213		,[Targe tRegistry]
				8214		,[DateA pplied])
				8215		VAL UES
				8216		('$(Maj orReleaseN umber)'
				8217		,'$(Min orReleaseN umber)'
				8218		,'$(Poi ntReleaseN umber)'
				8219		,0
				8220		,'$(Scr iptName)'
				8221		,'Scr ipt Starte d...'
				8222		,'AHOBP R'
				8223		,GETDAT E());
				8224
				8225		GO
				8226		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				8227		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				8228		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant AddFlag'
				8229		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				8230		begin
				8231		if exist s (select * from sys .procedure s where na me = 'SP_G etRegistra ntAddFlag_ Pre2_0_17'
				8232		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR')
				8233		)
				8234		drop p rocedure a hobpr.SP_G etRegistra ntAddFlag
				8235		else
				8236		exec s p_rename ' ahobpr.SP_ GetRegistr antAddFlag ', 'SP_Get Registrant AddFlag_Pr e2_0_17';
				8237		end;
				8238		GO
				8239		-- ======= ========== ========== ========== ========
				8240		-- Create date: Dece mber 1, 20 15
				8241		-- Descrip tion: Used to create the list of registr ant to add mass Admi n & Sub-po pulation f lags.
				8242
				8243		-- Modific ation log
				8244		-- Part of script 2. 0.17.1
				8245		-- ======= ========== ========== ========== ========
				8246		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antAddFlag ]
				8247		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				8248		@st ate varcha r(8000) = NULL, -- M ultiple st ates, comm a-separate d values w hen not NU LL
				8249		@fo rmStartFro mDateText varchar(10 0) = NULL,
				8250		@fo rmStartToD ateText va rchar(100) = NULL,
				8251		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				8252		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				8253		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				8254		@he althConcer ns varchar (100) = 'A ll',
				8255		@re questToBeS een varcha r(100) = ' All',
				8256		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				8257		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				8258		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				8259		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				8260		@su bpopulatio nFlag varc har (8000) = NULL, - - Multiple subpopula tionFlags, comma-sep arated val ues when n ot NULL
				8261		@ad minFlag va rchar (10) = NULL,
				8262		@de ploymentAl l varchar (256) = NU LL,
				8263		@de ploymentEx posure var char (256) = NULL,
				8264		@ad minFlagFro mDateText varchar (2 0) = NULL,
				8265		@ad minFlagToD ateText va rchar (20) = NULL,
				8266		@ex cludeDead varchar(1) = 'N',
				8267		@se parationTy pe INT = 0 ,
				8268		@se parationFr omDateText varchar ( 20) = NULL ,
				8269		@se parationTo DateText v archar (20 ) = NULL,
				8270		@ex cludeAdmin Flag varch ar(1) = 'N ',
				8271		@de ploymentSt artFromDat eText varc har(100) = NULL,
				8272		@de ploymentSt artToDateT ext varcha r(100) = N ULL,
				8273		@de ploymentCo mpletionFr omDateText varchar(1 00) = NULL ,
				8274		@de ploymentCo mpletionTo DateText v archar(100 ) = NULL
				8275
				8276		AS
				8277
				8278		BEGIN
				8279
				8280		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				8281		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				8282		@formStart ToDate DAT ETIME2(0) = NULL,
				8283		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				8284		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				8285		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				8286		@adminFlag ToDate DAT ETIME2(0) = NULL,
				8287		@separatio nFromDate DATETIME2( 0) = NULL,
				8288		@separatio nToDate DA TETIME2(0) = NULL,
				8289		@deploymen tStartFrom Date DATET IME2(0) = NULL,
				8290		@deploymen tStartToDa te DATETIM E2(0) = NU LL,
				8291		@deploymen tCompletio nFromDate DATETIME2( 0) = NULL,
				8292		@deploymen tCompletio nToDate DA TETIME2(0) = NULL
				8293
				8294		DECLARE @Query VAR CHAR(8000) ;
				8295		DECLARE @MainQuery VARCHAR(8 000);
				8296		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				8297		DECLARE @AdminWith VARCHAR(8 000);
				8298		DECLARE @SubPopWit h VARCHAR( 8000);
				8299		DECLARE @DeployWit h VARCHAR( 8000);
				8300
				8301
				8302		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				8303		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				8304		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				8305		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				8306		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				8307		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				8308		SET @sep arationFro mDate = db o.CleanDat e(@separat ionFromDat eText);
				8309		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				8310		SET @dep loymentSta rtFromDate = dbo.Cle anDate(@de ploymentSt artFromDat eText);
				8311		SET @dep loymentSta rtToDate = dbo.AddMa xTime(dbo. CleanDate( @deploymen tStartToDa teText));
				8312		SET @dep loymentCom pletionFro mDate = db o.CleanDat e(@deploym entComplet ionFromDat eText);
				8313		SET @dep loymentCom pletionToD ate = dbo. AddMaxTime (dbo.Clean Date(@depl oymentComp letionToDa teText));
				8314
				8315
				8316
				8317		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				8318		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				8319		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				8320
				8321		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				8322		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				8323		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				8324
				8325		-- Set Ins titutionID values if needed.
				8326		DECLARE @A ssignedIns titutionId INT = 0,
				8327		@E valuatedIn stitutionI d INT = 0;
				8328
				8329		IF @Assign edLocation Type IN (' Base','Ins titution')
				8330		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				8331		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				8332
				8333		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				8334		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				8335		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				8336
				8337		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				8338		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				8339		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				8340		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				8341		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				8342		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				8343		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				8344		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				8345		' F ROM AHOBPR .REGISTRAN T a ' +
				8346		'WH ERE 1 = 1 ';
				8347
				8348		--Concat enate one or more Ad min flags for Regist rants with flags
				8349		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				8350		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				8351		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				8352		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				8353		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				8354		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				8355		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				8356		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				8357		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				8358		' FROM A HOBPR.REGI STRANT a ' +
				8359		' WHERE 1 = 1 ';
				8360
				8361		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				8362		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				8363		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				8364		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				8365		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				8366		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				8367		' FROM AHOBPR.RE GISTRANT a ' +
				8368		' WHERE 1 = 1 ';
				8369
				8370		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				8371		', (a.LAST_NA ME + '', ' ' + a.FIRS T_NAME) AS Name ' +
				8372		', b.REGISTRA NT_STATUS AS Status ' +
				8373		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				8374		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				8375		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				8376		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				8377
				8378
				8379		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				8380		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				8381		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				8382		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				8383		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				8384		',a.BI RTH_DATE A S BirthDat e ' +
				8385		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				8386		',RIG HT(a.SSN, 4) AS SSN ' +
				8387		'FRO M AHOBPR.R EGISTRANT a '
				8388
				8389		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				8390		' LEFT JOI N AHOBPR.F ORM_RESPON SE d ON a. REGISTRANT _ID = d.R EGISTRANT_ ID ' +
				8391		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				8392		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				8393		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				8394		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ' +
				8395		' LEFT JOIN AHOB PR.REGISTR ANT_DEPLOY MENT rd ON a.REGISTR ANT_ID = rd.REGISTR ANT_ID ';
				8396
				8397
				8398
				8399		SET @M ainQuery = @MainQuer y + ' WHER E 1 = 1 ';
				8400
				8401
				8402
				8403		IF @form StartFromD ate IS NOT NULL
				8404		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				8405
				8406		IF @form StartToDat e IS NOT N ULL
				8407		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				8408
				8409		IF @form Completion FromDate I S NOT NULL
				8410		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				8411
				8412		IF @form Completion ToDate IS NOT NULL
				8413		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				8414
				8415		IF @depl oymentStar tFromDate IS NOT NUL L
				8416		SET @ MainQuery = @MainQue ry + ' AND rd.DEPLOY MENT_START _DATE >= ' '' + CONVE RT(VARCHAR (20),@depl oymentStar tFromDate, 121) + ''' ';
				8417
				8418		IF @depl oymentStar tToDate IS NOT NULL
				8419		SET @ MainQuery = @MainQue ry + ' AND rd.DEPLOY MENT_START _DATE <= ' '' + CONVE RT(VARCHAR (20),@depl oymentStar tToDate,12 1) + '''';
				8420
				8421		IF @depl oymentComp letionFrom Date IS NO T NULL
				8422		SET @ MainQuery = @MainQue ry + ' AND rd.DEPLOY MENT_END_D ATE >= ''' + CONVERT (VARCHAR(2 0),@deploy mentComple tionFromDa te,121) + '''';
				8423
				8424		IF @depl oymentComp letionToDa te IS NOT NULL
				8425		SET @ MainQuery = @MainQue ry + ' AND rd.DEPLOY MENT_END_D ATE <= ''' + CONVERT (VARCHAR(2 0),@deploy mentComple tionToDate ,121) + '' '';
				8426
				8427
				8428
				8429		IF ISNUL L(@subpopu lationFlag ,'') != ''
				8430		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				8431		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				8432		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				8433
				8434		IF (ISNULL(@ adminFlag, '') != '')
				8435		IF (ISNULL (@excludeA dminFlag,' N') = 'N')
				8436		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_REGISTRY _FLAG admi nflag ' +
				8437		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				8438		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				8439		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				8440		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) '
				8441		ELSE
				8442		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G adminfla g ' +
				8443		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				8444		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				8445		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				8446		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				8447
				8448
				8449
				8450		IF ISNUL L(@deploym entAll,'') != ''
				8451		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				8452		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				8453		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				8454
				8455		IF ISNUL L(@healthF actor,'') != ''
				8456		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				8457		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				8458		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				8459		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				8460
				8461
				8462		IF ISNUL L(@deploym entExposur e,'') != ' '
				8463		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				8464		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				8465		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				8466		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				8467		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				8468		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				8469
				8470
				8471		IF ISNULL (@state,'' ) != ''
				8472		BE GIN
				8473		SET @state = R EPLACE(@St ate,',','' ',''');
				8474		SET @MainQuery = @MainQu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _ADDRESS a ddr ' +
				8475		' WHER E addr.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				8476		'AND addr.STAT E IN ( '' ' + @state + ''') ) ';
				8477		EN D;
				8478
				8479
				8480		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				8481		IF @stat us IS NOT NULL
				8482		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				8483
				8484		IF @heal thConcerns != 'All'
				8485		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				8486
				8487		IF @requ estToBeSee n != 'All'
				8488		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				8489
				8490		IF ISNUL L(@exclude Dead,'N') = 'Y'
				8491		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				8492
				8493		IF ISNUL L(@separat ionType,0) != 0
				8494		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				8495
				8496		IF @sepa rationFrom Date IS NO T NULL
				8497		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				8498
				8499		IF @sepa rationToDa te IS NOT NULL
				8500		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				8501
				8502		IF @Assi gnedLocati onType IS NOT NULL
				8503		BEGIN
				8504		IF @ AssignedLo cationType = 'NLA'
				8505		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				8506		ELSE
				8507		IF @ AssignedLo cationType = 'VISN'
				8508		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				8509		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				8510		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				8511		ELSE
				8512		IF @ AssignedLo cationType = 'Base'
				8513		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				8514		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				8515		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				8516		ELSE
				8517		IF @ AssignedLo cationType = 'Instit ution'
				8518		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				8519		END;
				8520
				8521		IF @Eval uatedLocat ionType IS NOT NULL
				8522		BEGIN
				8523		IF @ EvaluatedL ocationTyp e = 'NLA'
				8524		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				8525		' WHERE eva l.REGISTRA NT_VISIT_I D = a.REGI STRANT_ID ' +
				8526		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				8527		ELSE
				8528		IF @ EvaluatedL ocationTyp e = 'VISN'
				8529		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				8530		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				8531		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				8532		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				8533		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				8534		ELSE
				8535		IF @ EvaluatedL ocationTyp e = 'Base'
				8536		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				8537		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				8538		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				8539		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				8540		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				8541		ELSE
				8542		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				8543		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				8544		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				8545		' WHER E eval.REG ISTRANT_VI SIT_ID = a .REGISTRAN T_ID ' +
				8546		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				8547		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				8548		END;
				8549
				8550		-- Add cri teria and Close With Statement
				8551		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				8552		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				8553		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				8554
				8555		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				8556
				8557		PRINT @ Query;
				8558
				8559		EXECUTE ( @Query);
				8560		END;
				8561
				8562
				8563
				8564		-- Test Ca ses
				8565		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag]
				8566		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @sta tus = '6,7 '
				8567		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @sta te = 'MD,V A'
				8568		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @for mStartToDa teText = ' 20141231'
				8569		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @hea lthFactor = '44,45,4 6,47'
				8570		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @dep loymentSta rtFromDate Text = '2 0120101'
				8571		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @for mCompletio nToDateTex t = '2014 1231'
				8572		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @hea lthConcern s = 'Yes' ,
				8573		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @req uestToBeSe en = 'Yes
				8574		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @sub population Flag = '85 ,87,89,105 ,106,91'
				8575		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @dep loymentAll = 'Iraq,d jibouti'
				8576		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @dep loymentExp osure = ' Iraq'
				8577		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @adm inFlag = ' 117', @exc ludeAdminF lag = 'Y' ,@adminFla gFromDateT ext = '201 50101' , @ adminFlagT oDateText = '2015020 1'
				8578		-- exec [A HOBPR].[SP _GetRegist rantAddFla g]
				8579		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Assign edLocation Type = 'NL A'
				8580		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Assign edLocation Type = 'VI SN', @Assi gnedLocati onKey = 'V 16'
				8581		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Assign edLocation Type = 'Ba se', @Assi gnedLocati onKey = '1 000089'
				8582		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Assign edLocation Type = 'In stitution' , @Assigne dLocationK ey = '1000 089'
				8583		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Evalua tedLocatio nType = 'N LA'
				8584		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Evalua tedLocatio nType = 'V ISN', @Eva luatedLoca tionKey = 'V16'
				8585		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Evalua tedLocatio nType = 'B ase', @Eva luatedLoca tionKey = '1000089'
				8586		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Evalua tedLocatio nType = 'I nstitution ', @Evalua tedLocatio nKey = '10 00089'
				8587
				8588		GO
				8589		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant SendQuesti ons'
				8590		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR') )
				8591		begin
				8592		if exist s (select * from sys .procedure s where na me = 'SP_G etRegistra ntSendQues tions_Pre2 _0_17'
				8593		and sc hema_id = (select sc hema_id fr om sys.sch emas where name = 'A HOBPR')
				8594		)
				8595		drop p rocedure a hobpr.SP_G etRegistra ntSendQues tions
				8596		else
				8597		exec s p_rename ' ahobpr.SP_ GetRegistr antSendQue stions', ' SP_GetRegi strantSend Questions_ Pre2_0_17' ;
				8598		end;
				8599
				8600		go
				8601
				8602		-- ======= ========== ========== ========== ========
				8603		-- Create date: Octo ber 28, 20 15
				8604		-- Descrip tion: Used to create the list of registr ant to sen d follow-u p question s to.
				8605
				8606		-- Modific ation log
				8607		-- Part of script 2. 0.17.1
				8608		-- ======= ========== ========== ========== ========
				8609		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antSendQue stions]
				8610		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				8611		@fo rmStartFro mDateText varchar(10 0) = NULL,
				8612		@fo rmStartToD ateText va rchar(100) = NULL,
				8613		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				8614		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				8615		@qu estionNumb er varchar (100) = NU LL,
				8616		@an swer varch ar(100) = NULL,
				8617		@he althConcer ns varchar (100) = 'A ll',
				8618		@su bpopulatio nFlag varc har (10) = NULL,
				8619		@ad minFlag va rchar (10) = NULL,
				8620		@de ploymentAl l varchar (256) = NU LL,
				8621		@de ploymentEx posure var char (256) = NULL,
				8622		@ad minFlagFro mDateText varchar (2 0) = NULL,
				8623		@ad minFlagToD ateText va rchar (20) = NULL,
				8624		@ex cludeDead varchar(1) = 'Y',
				8625		@ex cludeAdmin Flag varch ar(1) = 'N ',
				8626		@la stName var char(50) = '',
				8627		@ss n varchar( 4) = '',
				8628		@fo rmBirthDat eText varc har(100) = NULL
				8629		AS
				8630
				8631		BEGIN
				8632
				8633		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				8634		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				8635		@formStart ToDate DAT ETIME2(0) = NULL,
				8636		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				8637		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				8638		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				8639		@adminFlag ToDate DAT ETIME2(0) = NULL,
				8640		@separatio nFromDate DATETIME2( 0) = NULL,
				8641		@separatio nToDate DA TETIME2(0) = NULL,
				8642		@formBirth Date DATET IME2(0) = NULL;
				8643
				8644		DECLARE @Query VAR CHAR(8000) ;
				8645		DECLARE @MainQuery VARCHAR(8 000);
				8646		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				8647		DECLARE @AdminWith VARCHAR(8 000);
				8648		DECLARE @SubPopWit h VARCHAR( 8000);
				8649		DECLARE @DeployWit h VARCHAR( 8000);
				8650
				8651		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				8652		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				8653		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				8654		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				8655		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				8656		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				8657		SET @for mBirthDate = dbo.Cle anDate(@fo rmBirthDat eText);
				8658
				8659		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				8660		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				8661		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				8662
				8663		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				8664		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				8665		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				8666
				8667		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				8668		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , a.SSN,'+
				8669		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				8670		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				8671		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				8672		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				8673		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				8674		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				8675		' F ROM AHOBPR .REGISTRAN T a ' +
				8676		'WH ERE 1 = 1 ';
				8677
				8678		--Concat enate one or more Ad min flags for Regist rants with flags
				8679		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				8680		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				8681		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				8682		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				8683		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				8684		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				8685		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				8686		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				8687		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				8688		' FROM A HOBPR.REGI STRANT a ' +
				8689		' WHERE 1 = 1 ';
				8690
				8691		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				8692		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				8693		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				8694		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				8695		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				8696		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				8697		' FROM AHOBPR.RE GISTRANT a ' +
				8698		' WHERE 1 = 1 ';
				8699
				8700		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				8701		', a.SSN, (a. LAST_NAME + '', '' + a.FIRST_N AME) AS Na me ' +
				8702		', b.REGISTRA NT_STATUS AS Status ' +
				8703		', c.SERVICE_ STATUS AS DutyStatus ' +
				8704		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				8705		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				8706		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				8707		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				8708		--Decide w hich query to run de pending on if a ques tion was s elected as a paramet er for the report
				8709		IF ISNUL L(@questio nNumber, ' ') = ''
				8710		SET @M ainQuery = @MainQuer y + ','''' AS Questi onNumber ' +
				8711		','''' AS Answer '
				8712		ELSE
				8713		SET @M ainQuery = @MainQuer y + ',''' + @questio nNumber + ''' AS Que stionNumbe r ' +
				8714		',STUF F((SELECT '', '' + s tdAnswer.T EXT ' +
				8715		' FROM AHOBPR.FOR M_RESPONSE _ANSWER an swer ' +
				8716		' JOIN AHOBPR.STD _FORM_ANSW ER stdAnsw er ON answ er.STD_FOR M_ANSWER_I D = stdAns wer.STD_FO RM_ANSWER_ ID ' +
				8717		' WHERE formQuesti on.FORM_RE SPONSE_QUE STION_ID = answer.FO RM_RESPONS E_QUESTION _ID ' +
				8718		' FOR XM L PATH(''' ')), 1, 1, '''') AS Answer ' ;
				8719
				8720		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				8721		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				8722		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				8723		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				8724		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				8725		',a.BI RTH_DATE A S BirthDat e ' +
				8726		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				8727		',RIGH T(a.SSN, 4 ) AS Last4 SSN ' +
				8728		'FROM AH OBPR.REGIS TRANT a '
				8729
				8730		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				8731		' JOIN AHOBP R.STD_SERV ICE_STATUS c ON a.ST D_SERVICE_ STATUS_ID = c.STD_SE RVICE_STAT US_ID ' +
				8732		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				8733		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				8734		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				8735		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				8736		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ';
				8737
				8738		IF ISNUL L(@questio nNumber, ' ') != ''
				8739		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				8740		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				8741
				8742
				8743		SET @Mai nQuery = @ MainQuery + ' WHERE 1 = 1 ';
				8744
				8745
				8746		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				8747		IF ISNUL L(@questio nNumber, ' ') > ''
				8748		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				8749
				8750		IF ISNUL L(@answer, '') != ''
				8751		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SE LECT fr.RE GISTRANT_I D FROM AHO BPR.FORM_R ESPONSE_AN SWER ra ' +
				8752		'JOI N AHOBPR.F ORM_RESPON SE_QUESTIO N rq ON rq .FORM_RESP ONSE_QUEST ION_ID = r a.FORM_RES PONSE_QUES TION_ID ' +
				8753		'JOI N AHOBPR.F ORM_RESPON SE fr ON f r.FORM_RES PONSE_ID = rq.FORM_R ESPONSE_ID ' +
				8754		'JOI N AHOBPR.S TD_FORM_AN SWER A1 ON A1.STD_FO RM_ANSWER_ ID = ra.ST D_FORM_ANS WER_ID ' +
				8755		'JOI N AHOBPR.S TD_FORM_QU ESTION Q1 ON Q1.STD_ FORM_QUEST ION_ID = r q.STD_FORM _QUESTION_ ID ' +
				8756		'JOI N AHOBPR.S TD_FORM_QU ESTION Q2 ON Q2.FORM _QUESTION_ UNIQUE_ID = Q1.FORM_ QUESTION_U NIQUE_ID ' +
				8757		'JOI N AHOBPR.S TD_FORM_AN SWER A2 ON A2.STD_FO RM_QUESTIO N_ID = Q2. STD_FORM_Q UESTION_ID ' +
				8758		' AN D A1.BRP_F ORM_ANSWER _ID = A2.B RP_FORM_AN SWER_ID ' +
				8759		' WHER E A2.STD_F ORM_ANSWER _ID IN (' + @answer + ') AND f r.REGISTRA NT_ID = a. REGISTRANT _ID )';
				8760
				8761		IF @form StartFromD ate IS NOT NULL
				8762		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				8763
				8764		IF @form StartToDat e IS NOT N ULL
				8765		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				8766
				8767		IF @form Completion FromDate I S NOT NULL
				8768		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				8769
				8770		IF @form Completion ToDate IS NOT NULL
				8771		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				8772
				8773		IF @form BirthDate IS NOT NUL L
				8774		SET @ MainQuery = @MainQue ry + ' AND a.BIRTH_D ATE = ''' + CONVERT( VARCHAR(20 ),@formBir thDate,121 ) + '''';
				8775
				8776		IF ISNUL L(@subpopu lationFlag ,'') != ''
				8777		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				8778		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				8779		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				8780
				8781		IF (ISNULL(@ adminFlag, '') != '')
				8782		IF (ISNULL (@excludeA dminFlag,' N') = 'N')
				8783		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_REGISTRY _FLAG admi nflag ' +
				8784		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				8785		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				8786		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				8787		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) '
				8788		ELSE
				8789		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G adminfla g ' +
				8790		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				8791		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				8792		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				8793		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				8794
				8795		IF ISNUL L(@deploym entAll,'') != ''
				8796		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				8797		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				8798		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				8799
				8800		IF ISNU LL(@deploy mentExposu re,'') != ''
				8801		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				8802		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				8803		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				8804		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				8805		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				8806		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				8807
				8808
				8809		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				8810		IF @stat us IS NOT NULL
				8811		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				8812
				8813		IF @heal thConcerns != 'All'
				8814		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				8815
				8816		IF ISNUL L(@exclude Dead,'N') = 'Y'
				8817		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				8818
				8819		IF ISNUL L(@ssn,'') != ''
				8820		SET @R egCriteria = @RegCri teria + ' AND RIGHT( a.SSN, 4) = ''' + @s sn + '''' ;
				8821
				8822		IF @sepa rationFrom Date IS NO T NULL
				8823		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				8824
				8825		IF @sepa rationToDa te IS NOT NULL
				8826		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				8827
				8828		IF ISNUL L(@lastNam e,'') != ' '
				8829		SET @R egCriteria = @RegCri teria + ' AND RTRIM( LTRIM(a.LA ST_NAME)) LIKE ''' + @lastName + '''';
				8830
				8831
				8832		-- Add cri teria and Close With Statement
				8833		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID, a.S SN ) '
				8834		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID, a.S SN ) '
				8835		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID, a.S SN ) '
				8836
				8837		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				8838
				8839		PRINT @ Query;
				8840
				8841		EXECUTE ( @Query);
				8842		END;
				8843
				8844
				8845
				8846		-- Test Ca ses
				8847		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions]
				8848		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ status = ' 6,7'
				8849		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formStartF romDateTex t = '2001 0101'
				8850		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formStartT oDateText = '2014123 1'
				8851		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formComple tionFromDa teText = '20010101'
				8852		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formComple tionToDate Text = '2 0141231'
				8853		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ healthConc erns = 'Ye s' ,
				8854		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ subpopulat ionFlag = '64,65,66, 67'
				8855		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ deployment All = 'Egy pt'
				8856		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ deployment Exposure = 'Iraq'
				8857		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ adminFlag = '59,60' ,@adminFla gFromDateT ext = '201 50101' , @ adminFlagT oDateText = '2015020 1'
				8858		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ questionNu mber = '5. 4.A' , @a nswer = '2 221'
				8859		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ lastName = 'horton'
				8860		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formBirthD ateText = '05/05/197 5'
				8861		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ ssn = '112 5'
				8862		go
				8863		if exists (select * from sys.v iews where name='vie w_lookup'
				8864		and schem a_id = (se lect schem a_id from sys.schema s where na me = 'ahob pr')
				8865		)
				8866		begin
				8867		if exist s (select * from sys .views whe re name='V IEW_LOOKUP _Pre2_0_17 _1'
				8868		and schem a_id = (se lect schem a_id from sys.schema s where na me = 'ahob pr')
				8869		)
				8870		drop v iew AHOBPR .VIEW_LOOK UP
				8871		else
				8872		exec s p_rename ' AHOBPR.VIE W_LOOKUP', 'VIEW_LOO KUP_Pre2_0 _17_1';
				8873		end;
				8874		print 'CRE ATE VIEW [ AHOBPR].[V IEW_LOOKUP ]...';
				8875		GO
				8876		CREATE VIE W [AHOBPR] .[VIEW_LOO KUP]
				8877		--last upd ated in 2. 0.17.1 scr ipt
				8878		WITH SCHEM ABINDING
				8879		AS
				8880		SELECT 'RE GISTRY_FLA G' AS LOOK UP_TYPE
				8881		,STD_RE GISTRY_FLA G_ID AS ID
				8882		,RE GISTRY_FLA G_NAME AS CODE
				8883		,RE GISTRY_FLA G_NAME AS NAME
				8884		,0 AS PARENT_ ID
				8885		,1 AS SORT_OR DER
				8886		FROM AHO BPR.STD_RE GISTRY_FLA G
				8887		WHERE STD _REGISTRY_ FLAG_ID > 0
				8888		UNION ALL
				8889		SELECT 'RE GISTRY_STA TUS' AS LO OKUP_TYPE
				8890		,STD_REGI STRANT_STA TUS_ID AS ID
				8891		,RE GISTRANT_S TATUS AS C ODE
				8892		,RE GISTRANT_S TATUS AS N AME
				8893		,0 AS PARENT_ ID
				8894		,OR DINAL_VALU E AS SORT_ ORDER
				8895		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				8896		WHERE STD _REGISTRAN T_STATUS_I D > 0
				8897		UNION ALL
				8898		SELECT 'RE GISTRY_FLA G_TYPE' AS LOOKUP_TY PE
				8899		,STD_REGI STRY_FLAG_ TYPE_ID AS ID
				8900		,RE GISTRY_FLA G_TYPE AS CODE
				8901		,RE GISTRY_FLA G_TYPE AS NAME
				8902		,0 AS PARENT_ ID
				8903		,1 AS SORT_OR DER
				8904		FROM AHO BPR.STD_RE GISTRY_FLA G_TYPE
				8905		UNION ALL
				8906		SELECT 'SU BPOPULATIO N_FLAG_ACT IVE' AS LO OKUP_TYPE
				8907		,STD_REGI STRY_FLAG_ ID AS ID
				8908		,RE GISTRY_FLA G_NAME AS CODE
				8909		,RE GISTRY_FLA G_NAME AS NAME
				8910		,0 AS PARENT_ ID
				8911		,1 AS SORT_OR DER
				8912		FROM AHOBP R.STD_REGI STRY_FLAG
				8913		WHERE ACTI VE_FLAG = 1 AND STD_ REGISTRY_F LAG_TYPE_I D = 2
				8914		UNION ALL
				8915		SELECT 'ST D_STATE' A S LOOKUP_T YPE
				8916		,ID
				8917		,PO STALNAME A S CODE
				8918		,PO STALNAME A S NAME
				8919		,0 AS PARENT_ ID
				8920		,1 AS SORT_OR DER
				8921		FROM DBO.S TD_STATE
				8922		WHERE COUN TRY_ID = 1 006840
				8923		AND POSTAL NAME IN (' AL', 'AK', 'AR', 'AZ ', 'CA', ' CO', 'CT', 'DE', 'FL ', 'GA', ' HI',
				8924		'IA', 'ID' , 'IL', 'I N', 'KS', 'KY', 'LA' , 'MA', 'M D', 'ME', 'MI', 'MN' , 'MO', 'M S',
				8925		'MT', 'NC' , 'ND', 'N E', 'NH', 'NJ', 'NM' , 'NV', 'N Y', 'OH', 'OK', 'OR' , 'PA', 'R I',
				8926		'SC', 'SD' , 'TN', 'T X', 'UT', 'VA', 'VT' , 'WA', 'W I', 'WV', 'WY', 'DC' , 'AS', 'G U', 'PR', 'VI', 'MP' , 'AA', 'A E', 'AP')
				8927		UNION ALL
				8928		SELECT 'ST D_STATE' A S LOOKUP_T YPE
				8929		,0
				8930		,'F oreign Cou ntry/Other ' AS CODE
				8931		,'F oreign Cou ntry/Other ' AS NAME
				8932		,0 AS PARENT_ ID
				8933		,99 99 AS SORT _ORDER
				8934		UNION ALL
				8935		SELECT 'AD MINTRACKIN G_FLAG_ACT IVE' AS LO OKUP_TYPE
				8936		,STD_REGI STRY_FLAG_ ID AS ID
				8937		,RE GISTRY_FLA G_NAME AS CODE
				8938		,RE GISTRY_FLA G_NAME AS NAME
				8939		,0 AS PARENT_ ID
				8940		,1 AS SORT_OR DER
				8941		FROM AHOBP R.STD_REGI STRY_FLAG
				8942		WHERE ACTI VE_FLAG = 1
				8943		AND STD_ REGISTRY_F LAG_TYPE_I D = 1
				8944		AND (PRE DEFINED = 0
				8945		OR ( PREDEFINED = 1 AND R EGISTRY_FL AG_NAME = 'Eligibili ty Review - More Doc umentation Needed')) --2.0.13.1 changed t his line
				8946		UNION ALL
				8947		SELECT 'ST D_SERVICE_ STATUS' AS LOOKUP_TY PE
				8948		,STD_SERV ICE_STATUS _ID As ID
				8949		,SE RVICE_STAT US AS CODE
				8950		,SE RVICE_STAT US AS NAME
				8951		,0 AS PARENT_ ID
				8952		,1 AS SORT_OR DER
				8953		FROM AHO BPR.STD_SE RVICE_STAT US
				8954		WHERE STD _SERVICE_S TATUS_ID > 0
				8955		UNION AL L
				8956		SELECT 'ST D_FORM_QUE STION' AS LOOKUP_TYP E
				8957		,STD_FO RM_QUESTIO N_ID As ID
				8958		,FO RM_QUESTIO N_UNIQUE_I D AS CODE
				8959		,FO RM_QUESTIO N_UNIQUE_I D AS NAME
				8960		,0 AS PARENT_ ID
				8961		,1 AS SORT_OR DER
				8962		FROM AHO BPR.STD_FO RM_QUESTIO N
				8963		UNION ALL
				8964		SELECT 'RE GISTRY_STA TUS_INELIG IBLE' AS L OOKUP_TYPE
				8965		,STD_REGI STRANT_STA TUS_ID AS ID
				8966		,RE GISTRANT_S TATUS AS C ODE
				8967		,RE GISTRANT_S TATUS AS N AME
				8968		,0 AS PARENT_ ID
				8969		,ST D_REGISTRA NT_STATUS_ ID AS SORT _ORDER
				8970		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				8971		WHERE ST D_REGISTRA NT_STATUS_ ID IN (3, 4, 5)
				8972		UNION ALL
				8973		SELECT 'RE GISTRY_STA TUS_REVIEW ED' AS LOO KUP_TYPE
				8974		,STD_REGI STRANT_STA TUS_ID AS ID
				8975		,RE GISTRANT_S TATUS AS C ODE
				8976		,RE GISTRANT_S TATUS AS N AME
				8977		,0 AS PARENT_ ID
				8978		,ST D_REGISTRA NT_STATUS_ ID AS SORT _ORDER
				8979		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				8980		WHERE ST D_REGISTRA NT_STATUS_ ID IN (5, 8)
				8981		UNION ALL
				8982		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				8983		,1 AS I D
				8984		,'A ll' AS COD E
				8985		,'A ll' AS NAM E
				8986		,0 AS PARENT_ ID
				8987		,1 AS SORT_OR DER
				8988		UNION ALL
				8989		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				8990		,2 AS I D
				8991		,'F acility' A S CODE
				8992		,'F acility' A S NAME
				8993		,0 AS PARENT_ ID
				8994		,2 AS SORT_OR DER
				8995		UNION ALL
				8996		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				8997		,3 AS I D
				8998		,'V ISN' AS CO DE
				8999		,'V ISN' AS NA ME
				9000		,0 AS PARENT_ ID
				9001		,3 AS SORT_OR DER
				9002		UNION ALL
				9003		SELECT 'SU BPOPULATIO N_FLAG_ALL ' AS LOOKU P_TYPE
				9004		,STD_RE GISTRY_FLA G_ID AS ID
				9005		,RE GISTRY_FLA G_NAME AS CODE
				9006		,RE GISTRY_FLA G_NAME AS NAME
				9007		,0 AS PARENT_ ID
				9008		,1 AS SORT_OR DER
				9009		FROM AHOBP R.STD_REGI STRY_FLAG
				9010		WHERE STD_ REGISTRY_F LAG_TYPE_I D = 2
				9011		UNION ALL
				9012		SELECT 'AD MIN_FLAG_A LL' AS LOO KUP_TYPE
				9013		,STD_RE GISTRY_FLA G_ID AS ID
				9014		,RE GISTRY_FLA G_NAME AS CODE
				9015		,RE GISTRY_FLA G_NAME AS NAME
				9016		,0 AS PARENT_ ID
				9017		,1 AS SORT_OR DER
				9018		FROM AHOBP R.STD_REGI STRY_FLAG
				9019		WHERE STD_ REGISTRY_F LAG_TYPE_I D = 1
				9020		UNION ALL
				9021		SELECT 'HE ALTH_FACTO R' AS LOOK UP_TYPE
				9022		,A.[STD _HEALTH_FA CTOR_ID] A S ID
				9023		,A. [NAME] AS CODE
				9024		,B. [DESCRIPTI ON] + ': ' + A.DESCR IPTION AS NAME
				9025		,0 AS PARENT_ ID
				9026		,1 AS SORT_OR DER
				9027		FROM [AH OBPR].[STD _HEALTH_FA CTOR] A IN NER JOIN [ AHOBPR].[S TD_HEALTH_ FACTOR_CAT EGORY] B O N A.STD_HE ALTH_FACTO R_CATEGORY _ID = B.ST D_HEALTH_F ACTOR_CATE GORY_ID
				9028		UNION ALL
				9029		SELECT DIS TINCT 'DEP LOYMENT_CO UNTRY' AS LOOKUP_TYP E
				9030		,0 AS I D
				9031		,[D EPLOYMENT_ COUNTRY] A S CODE
				9032		,[D EPLOYMENT_ COUNTRY] A S NAME
				9033		,0 AS PARENT_ ID
				9034		,1 AS SORT_OR DER
				9035		FROM [AH OBPR].[REG ISTRANT_DE PLOYMENT]
				9036		UNION ALL
				9037		SELECT DIS TINCT 'DEP LOYMENT_CO UNTRY_EXPO SURE' AS L OOKUP_TYPE
				9038		,0 AS I D
				9039		,[D EPLOYMENT_ COUNTRY] A S CODE
				9040		,[D EPLOYMENT_ COUNTRY] A S NAME
				9041		,0 AS PARENT_ ID
				9042		,1 AS SORT_OR DER
				9043		FROM [AH OBPR].[REG ISTRANT_DE PLOYMENT] A JOIN AHO BPR.FORM_R ESPONSE_QU ESTION B
				9044		ON A.REGISTR ANT_DEPLOY MENT_ID = B.REGISTRA NT_DEPLOYM ENT_ID
				9045		UN ION ALL
				9046		SELECT 'ST D_RACE' AS LOOKUP_TY PE
				9047		,ID
				9048		,DE SCRIPTION AS CODE
				9049		,DE SCRIPTION AS NAME
				9050		,0 AS PARENT_ ID
				9051		,1 AS SORT_OR DER
				9052		FROM AHOBP R.VIEW_ETL _LOOKUP
				9053		WHERE TYPE = 'STD_RA CE'
				9054		AND ID > 0
				9055		UNION ALL
				9056		SELECT 'ST D_GENDER' AS LOOKUP_ TYPE
				9057		,ID
				9058		,DE SCRIPTION AS CODE
				9059		,DE SCRIPTION AS NAME
				9060		,0 AS PARENT_ ID
				9061		,1 AS SORT_OR DER
				9062		FROM AHOBP R.VIEW_ETL _LOOKUP
				9063		WHERE TYPE = 'STD_GE NDER'
				9064		AND ID > 0
				9065		UNION ALL
				9066		SELECT 'ST D_SEPARATI ONFAMILY' AS LOOKUP_ TYPE
				9067		,[ STD_SEPARA TION_FAMIL Y_ID] AS I D
				9068		,[ FAMILY_COD E] AS CODE
				9069		,[ FAMILY] A S NAME
				9070		,0 AS PARENT _ID
				9071		,1 AS SORT_O RDER
				9072		FROM AH OBPR.STD_S EPARATION_ FAMILY
				9073		WHERE [ STD_SEPARA TION_FAMIL Y_ID] > 0
				9074		UNION ALL
				9075		SELECT 'S TD_SEPARAT IONREASON' AS LOOKUP _TYPE
				9076		,[ STD_SEPARA TION_REASO N_ID] AS I D
				9077		,[ REASON_COD E] AS CODE
				9078		,[ REASON] AS NAME
				9079		,0 AS PARENT _ID
				9080		,1 AS SORT_O RDER
				9081		FROM AH OBPR.STD_S EPARATION_ REASON
				9082		WHERE [ STD_SEPARA TION_REASO N_ID] > 0
				9083		UNION ALL
				9084		SELECT 'ST D_ELIGIBLI TYSTATUS' AS LOOKUP_ TYPE
				9085		,ID
				9086		,DE SCRIPTION AS CODE
				9087		,DE SCRIPTION AS NAME
				9088		,0 AS PARENT_ ID
				9089		,1 AS SORT_OR DER
				9090		FROM AHOBP R.VIEW_ETL _LOOKUP
				9091		WHERE TYPE = 'STD_EL IGIBLITYST ATUS'
				9092		AND ID > 0
				9093		UNION ALL
				9094		SELECT 'ST D_ETHNICIT Y' AS LOOK UP_TYPE
				9095		,ID
				9096		,DE SCRIPTION AS CODE
				9097		,DE SCRIPTION AS NAME
				9098		,0 AS PARENT_ ID
				9099		,1 AS SORT_OR DER
				9100		FROM AHOBP R.VIEW_ETL _LOOKUP
				9101		WHERE TYPE = 'STD_ET HNICITY'
				9102		AND ID > 0
				9103		UNION ALL
				9104		SELECT 'S TD_CHARACT EROFSERVIC E' AS LOOK UP_TYPE
				9105		,STD_DI SCHARGE_CH ARACTER_ID As ID
				9106		,DI SCHARGE_CH ARACTER_CO DE AS CODE
				9107		,DI SCHARGE_CH ARACTER AS NAME
				9108		,0 AS PARENT_ ID
				9109		,1 AS SORT_OR DER
				9110		FROM AHO BPR.STD_DI SCHARGE_CH ARACTER
				9111		UNION ALL
				9112		SELECT 'TE MPLATE_MES SAGE_TITLE ' AS LOOKU P_TYPE
				9113		,TEMPLATE _ID AS ID
				9114		,TI TLE AS COD E
				9115		,TI TLE AS NAM E
				9116		,0 AS PARENT_ ID
				9117		,1 AS SORT_OR DER
				9118		FROM AHO BPR.EMAIL_ TEMPLATES
				9119		WHERE AC TIVE = 'Tr ue' AND CR EATEDBY_AD VANCED_USE R_FLAG = 0
				9120		AND TITL E NOT IN ( 'Eligible for Burn P it Registr y', 'Not E ligible fo r Burn Pit Registry' , 'New Fol low-up Que stions', ' Need More Documentat ion')
				9121		UNION ALL
				9122		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				9123		,2 As I D,'multipl eChoice' A S CODE,'Dr opdown Lis t - Multip le Choice' AS NAME,0 AS PARENT _ID,1 AS S ORT_ORDER
				9124		UNION ALL
				9125		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				9126		,1 As I D,'multiSe lect' AS C ODE,'Check boxes - Mu ltiple Sel ect' AS NA ME,0 AS PA RENT_ID,2 AS SORT_OR DER
				9127		UNION ALL
				9128		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				9129		,3 As I D,'text' A S CODE,'Ra dio Button s with Fre e Text' AS NAME,0 AS PARENT_ID ,3 AS SORT _ORDER
				9130		UNION ALL
				9131		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				9132		,4 As I D,'number' AS CODE,' Radio Butt ons with N umeric Val ue' AS NAM E,0 AS PAR ENT_ID,4 A S SORT_ORD ER
				9133		UNION ALL
				9134		SELECT 'FO LLOWUP_QUE STION_GROU P_LIST' AS LOOKUP_TY PE
				9135		,STD_FORM _ID AS ID
				9136		,NA ME AS CODE
				9137		,NA ME AS NAME
				9138		,0 AS PARENT_ ID
				9139		,1 AS SORT_OR DER
				9140		FROM AHO BPR.STD_FO RM
				9141		WHERE FO LLOWUP_FLA G = 1
				9142		UNION ALL
				9143		SELECT DIS TINCT 'CON TACT_PREFE RENCE' AS LOOKUP_TYP E
				9144		,0 AS I D
				9145		,[C ONTACT_PRE FERENCE] A S CODE
				9146		,[C ONTACT_PRE FERENCE] A S NAME
				9147		,0 AS PARENT_ ID
				9148		,1 AS SORT_OR DER
				9149		FROM [AH OBPR].[REG ISTRANT]
				9150		WHERE CO NTACT_PREF ERENCE > ' '
				9151		UNION ALL
				9152		SELECT 'MY _TEMPLATES _TITLE' AS LOOKUP_TY PE
				9153		,TEMPLATE _ID AS ID
				9154		,CR EATEDBY AS CODE
				9155		,TI TLE AS NAM E
				9156		,0 AS PARENT_ ID
				9157		,1 AS SORT_OR DER
				9158		FROM AHO BPR.EMAIL_ TEMPLATES
				9159		WHERE AC TIVE = 'Tr ue' AND CR EATEDBY_AD VANCED_USE R_FLAG = 1
				9160
				9161		-- select * from [A HOBPR].[VI EW_LOOKUP]
				9162		GO
				9163
				9164		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				9165		PRINT N'Up date compl ete.';
				9166		PRINT 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				9167		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				9168
				9169
				9170		GO
				9171		UPDATE [d bo].[Datab aseChangeL og]
				9172		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				9173		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				9174		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				9175		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				9176		AND [S criptName] = '$(Scrip tName)'
				9177		AND Ta rgetRegist ry = 'AHOBPR' ;
				9178
				9179		GO
				9180		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				9181		WHERE Targ etRegistry = 'AHOBPR'
				9182		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				9183		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				9184		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				9185		AND [Scr iptName] = '$(Script Name)';
				9186		go
				9187
				9188		---------- ---------- ---------- ---------- ---------- ---------- -
				9189		---------- ---------- ---------- ---------- ---------- ---------- -
				9190		-- 2.0.20. 1
				9191		---------- ---------- ---------- ---------- ---------- ---------- -
				9192		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				9193		:setvar Ma jorRelease Number "2"
				9194		:setvar Mi norRelease Number "0"
				9195		:setvar Po intRelease Number "20 "
				9196		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.20.1. sql"
				9197
				9198		PRINT '
				9199		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				9200		$(ScriptNa me)
				9201
				9202		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				9203
				9204		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				9205		';
				9206		PRINT 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				9207		PRINT '
				9208		******** ****** ****** ****** ****** *****
				9209		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				9210		******** ****** ****** ****** ****** *****
				9211
				9212		';
				9213		GO
				9214		:on error exit
				9215		GO
				9216		:setvar __ IsSqlCmdEn abled "Tru e"
				9217		/*
				9218		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				9219		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				9220		*/
				9221		SET NOEXEC OFF;
				9222		SET NOCOUN T OFF;
				9223		GO
				9224		IF N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				9225		BEGIN
				9226		PR INT N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				9227		SE T NOCOUNT ON;
				9228		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.
				9229		END
				9230
				9231		GO
				9232
				9233		USE [$(Dat abaseName) ]
				9234		GO
				9235		IF EXISTS (SELECT * FROM [dbo] .[Database ChangeLog]
				9236		WHERE [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				9237		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				9238		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				9239		AND [Scr iptName] = ' $(ScriptNa me)')
				9240		BEGIN
				9241		RAISERR OR('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!'
				9242		,11
				9243		,1);
				9244		END
				9245		ELSE
				9246		INSERT
				9247		INTO [ dbo].[Data baseChange Log]
				9248		([Major ReleaseNum ber]
				9249		,[Minor ReleaseNum ber]
				9250		,[Point ReleaseNum ber]
				9251		,[Hotfi x]
				9252		,[Scrip tName]
				9253		,[Scrip tDescripti on]
				9254		,[Targe tRegistry]
				9255		,[DateA pplied])
				9256		VAL UES
				9257		('$(Maj orReleaseN umber)'
				9258		,'$(Min orReleaseN umber)'
				9259		,'$(Poi ntReleaseN umber)'
				9260		,0
				9261		,'$(Scr iptName)'
				9262		,'Scr ipt Starte d...'
				9263		,'AHOBP R'
				9264		,GETDAT E());
				9265
				9266		GO
				9267		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				9268		PRINT 'Scr ipt starte d...';
				9269		PRINT GETD ATE();
				9270		GO
				9271		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				9272		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antFile]
				9273		@fileType VARCHAR(1 00),
				9274		@fileId V ARCHAR(256 )
				9275		AS
				9276
				9277		BEGIN
				9278
				9279		SELE CT FILE_CO NTENT
				9280		FR OM
				9281		AHOBPR.R EGISTRANT_ FILE
				9282		WH ERE FILE_I D = @fileI d AND FILE _TYPE = @f ileType
				9283		END
				9284		-- EXECUTE AHOBPR.SP _JsonGetCu rrent 5187
				9285		GO
				9286
				9287		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				9288		PRINT N'Up date compl ete.';
				9289		PRINT 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				9290		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				9291
				9292
				9293		GO
				9294		UPDATE [d bo].[Datab aseChangeL og]
				9295		SET Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				9296		WHERE [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				9297		AND [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				9298		AND [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				9299		AND [S criptName] = '$(Scrip tName)'
				9300		AND Ta rgetRegist ry = 'AHOBPR' ;
				9301
				9302		GO
				9303		SELECT * F ROM [dbo]. [DatabaseC hangeLog]
				9304		WHERE Targ etRegistry = 'AHOBPR'
				9305		AND [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				9306		AND [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				9307		AND [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				9308		AND [Scr iptName] = '$(Script Name)';
				9309		go
				9310		---------- ---------- ---------- ---------- ---------- ---------- -
				9311		---------- ---------- ---------- ---------- ---------- ---------- -
				9312		-- 2.0.20. 2 (H Table s)
				9313		---------- ---------- ---------- ---------- ---------- ---------- -
				9314		--:setvar DatabaseNa me "Regist ry"
				9315		:setvar Ma jorRelease Number "2"
				9316		:setvar Mi norRelease Number "0"
				9317		:setvar Po intRelease Number "20 "
				9318		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.20.2. sql"
				9319
				9320		print '
				9321		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				9322		$(ScriptNa me)
				9323
				9324		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				9325
				9326		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				9327		';
				9328		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				9329		print '
				9330		******** ****** ****** ****** ****** *****
				9331		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				9332		******** ****** ****** ****** ****** *****
				9333
				9334		';
				9335		go
				9336		:on error exit
				9337		go
				9338		:setvar __ IsSqlCmdEn abled "Tru e"
				9339		/*
				9340		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				9341		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				9342		*/
				9343		set noexec off;
				9344		set nocoun t off;
				9345		go
				9346		if N'$(__I sSqlCmdEna bled)' not like N'Tr ue'
				9347		begin
				9348		print N'SQLCMD m ode must b e enabled to success fully exec ute this s cript.';
				9349		set no count on;
				9350		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.
				9351		end
				9352
				9353		go
				9354
				9355		use [$(Dat abaseName) ]
				9356		go
				9357		if exists (select * from [dbo] .[Database ChangeLog]
				9358		where [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				9359		and [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				9360		and [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				9361		and [Scr iptName] = ' $(ScriptNa me)')
				9362		begin
				9363		raiserr or('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!'
				9364		,11
				9365		,1);
				9366		end
				9367		else
				9368		insert
				9369		into [ dbo].[Data baseChange Log]
				9370		([Major ReleaseNum ber]
				9371		,[Minor ReleaseNum ber]
				9372		,[Point ReleaseNum ber]
				9373		,[Hotfi x]
				9374		,[Scrip tName]
				9375		,[Scrip tDescripti on]
				9376		,[Targe tRegistry]
				9377		,[DateA pplied])
				9378		val ues
				9379		('$(Maj orReleaseN umber)'
				9380		,'$(Min orReleaseN umber)'
				9381		,'$(Poi ntReleaseN umber)'
				9382		,0
				9383		,'$(Scr iptName)'
				9384		,'Scr ipt Starte d...'
				9385		,'AHOBP R'
				9386		,GETDAT E());
				9387
				9388		go
				9389		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				9390		print 'Scr ipt starte d...';
				9391		print getd ate();
				9392		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				9393
				9394		create
				9395		table [A HOBPR].[AH OBPR_USER_ H]
				9396		(
				9397		[Audit_AHO BPR_USER_H _ID] [int] identity( 1,1) not n ull
				9398		, [Audit_Dat e] [dateti me] not nu ll
				9399		, [Audit_Typ e] [varcha r](20) not null
				9400		, [Audit_App licationUs er] [varch ar](128)
				9401		, [Audit_SQL User] [var char](100)
				9402		, [USER_ID] [int]
				9403		, [LAST_LOGI N] [dateti me]
				9404		, [LAST_VIST A_LOGIN] [ datetime]
				9405		, [ACTIVE_FL AG] [bit]
				9406		, [CREATED] [datetime]
				9407		, [CREATEDBY ] [varchar ](30)
				9408		, [UPDATED] [datetime]
				9409		, [UPDATEDBY ] [varchar ](30)
				9410		, [PENDING_F LAG] [bit]
				9411		, constraint [AHOBPR_U SER_H_PK]
				9412		primary ke y clustere d ([Audit_ AHOBPR_USE R_H_ID] as c)
				9413		with ( pa d_index = off, stati stics_nore compute = off, ignor e_dup_key = off, all ow_row_loc ks = on, a llow_page_ locks = on )
				9414		on [PRIMAR Y]
				9415		)
				9416		on [PRIM ARY]
				9417		go
				9418		create
				9419		trigger [AHOBPR].[ TRG_AHOBPR _USER_H] o n [AHOBPR] .[AHOBPR_U SER]
				9420		after up date, inse rt
				9421		as
				9422		begin
				9423		declare @lv_change varchar(1 5)
				9424		, @cdeleted int
				9425		, @cinserted int
				9426		, @cSftDelet e int;
				9427		select @ cdeleted = count(*) f rom delete d;
				9428		select @ cinserted =count(*) from inser ted;
				9429
				9430		insert
				9431		into [AHOBPR].[ AHOBPR_USE R_H]
				9432		( [Audit_D ate]
				9433		, [Audit_T ype]
				9434		, [Audit_A pplication User]
				9435		, [Audit_S QLUser]
				9436		, [USER_ID ]
				9437		, [LAST_LO GIN]
				9438		, [LAST_VI STA_LOGIN]
				9439		, [ACTIVE_ FLAG]
				9440		, [CREATED ]
				9441		, [CREATED BY]
				9442		, [UPDATED ]
				9443		, [UPDATED BY]
				9444		, [PENDING _FLAG]
				9445		)
				9446		select getdate()
				9447		, lv_Change= case
				9448		when @cdeleted =0 and @ci nserted>0 then 'inse rt'
				9449		when @cdeleted >0 and @ci nserted>0 then 'upda te'
				9450		else null
				9451		end
				9452		, HCB = case
				9453		when @cd eleted=0 a nd @cinser ted>0 then CreatedBy
				9454		when @cd eleted>0 a nd @cinser ted>0 then UpdatedBy
				9455		else nul l
				9456		end
				9457		, suser_snam e()
				9458		, [USER_ID]
				9459		, [LAST_LOGI N]
				9460		, [LAST_VIST A_LOGIN]
				9461		, [ACTIVE_FL AG]
				9462		, [CREATED]
				9463		, [CREATEDBY ]
				9464		, [UPDATED]
				9465		, [UPDATEDBY ]
				9466		, [PENDING_F LAG]
				9467
				9468		from ins erted
				9469		end
				9470		go
				9471
				9472		create
				9473		trigger [AHOBPR]. [TRG_AHOBP R_USER_DEL _H]
				9474		on [AHO BPR].[AHOB PR_USER] a fter delet e
				9475		as
				9476		begin
				9477		declare @pos int, @vchar var char(128)
				9478		set @pos = 1
				9479		set @vch ar = cast( CONTEXT_IN FO()as var char(128))
				9480
				9481		--Remove all 0x0 ( keep only text)
				9482		while no t ascii(su bstring(@v char,@pos, 1))=0
				9483		begin
				9484		set @p os = @pos + 1
				9485		end
				9486
				9487		set @vch ar = SUBST RING(@vcha r, 1, @pos - 1)
				9488		insert
				9489		into [AHOBPR].[ AHOBPR_USE R_H]
				9490		( [Audit_D ate]
				9491		, [Audit_T ype]
				9492		, [Audit_A pplication User]
				9493		, [Audit_S QLUser]
				9494		, [USER_ID ]
				9495		, [LAST_LO GIN]
				9496		, [LAST_VI STA_LOGIN]
				9497		, [ACTIVE_ FLAG]
				9498		, [CREATED ]
				9499		, [CREATED BY]
				9500		, [UPDATED ]
				9501		, [UPDATED BY]
				9502		, [PENDING _FLAG]
				9503		)
				9504		select getdate( )
				9505		, lv_Chang e= 'delet e'
				9506		, HCB= @vc har
				9507		, suser_sn ame()
				9508		, [USER_ID ]
				9509		, [LAST_LO GIN]
				9510		, [LAST_VI STA_LOGIN]
				9511		, [ACTIVE_ FLAG]
				9512		, [CREATED ]
				9513		, [CREATED BY]
				9514		, [UPDATED ]
				9515		, [UPDATED BY]
				9516		, [PENDING _FLAG]
				9517
				9518		from d eleted;
				9519		end
				9520		go
				9521		create
				9522		table [A HOBPR].[EM AIL_TEMPLA TES_H]
				9523		(
				9524		[Audit_E MAIL_TEMPL ATES_H_ID] [int] ide ntity(1,1) not null
				9525		, [Audit_D ate] [date time] not null
				9526		, [Audit_T ype] [varc har](20) n ot null
				9527		, [Audit_A pplication User] [var char](128)
				9528		, [Audit_S QLUser] [v archar](10 0)
				9529		, [TEMPLAT E_ID] [int ]
				9530		, [TITLE] [varchar]( 255)
				9531		, [SUBJECT ] [varchar ](255)
				9532		, [BODY] [ varchar](4 000)
				9533		, [ACTIVE] [bit]
				9534		, [CREATED BY] [varch ar](30)
				9535		, [UPDATED BY] [varch ar](30)
				9536		, [CREATED ] [datetim e2]
				9537		, [UPDATED ] [datetim e2]
				9538		, [EMAIL] [bit]
				9539		, [NOTIFIC ATION] [bi t]
				9540		, [SALUTAT ION] [varc har](255)
				9541		, [CONTACT _INFO] [va rchar](200 0)
				9542		, [ADVANCE D_USER_FLA G] [bit]
				9543		, [CREATED BY_ADVANCE D_USER_FLA G] [bit]
				9544		, constrai nt [EMAIL_ TEMPLATES_ H_PK] prim ary key cl ustered
				9545		([Audi t_EMAIL_TE MPLATES_H_ ID] ASC)
				9546		with ( PAD_INDEX = OFF, STA TISTICS_NO RECOMPUTE = OFF, IGN ORE_DUP_KE Y = OFF, A LLOW_ROW_L OCKS = on, ALLOW_PAG E_LOCKS = on)
				9547		on [PR IMARY]
				9548		) on [PRIM ARY]
				9549		go
				9550		create
				9551		trigger [AHOBPR].[ TRG_EMAIL_ TEMPLATES_ H] on [AHO BPR].[EMAI L_TEMPLATE S]
				9552		after up date, inse rt
				9553		as
				9554		begin
				9555		declare @lv_change varchar(1 5)
				9556		, @cdeleted int
				9557		, @cinserted int
				9558		, @cSftDelet e int;
				9559		select @ cdeleted = count(*) f rom delete d;
				9560		select @ cinserted =count(*) from inser ted;
				9561		insert
				9562		into [AHOBPR].[ EMAIL_TEMP LATES_H]
				9563		( [Audit_D ate]
				9564		, [Audit_T ype]
				9565		, [Audit_A pplication User]
				9566		, [Audit_S QLUser]
				9567		, [TEMPLAT E_ID]
				9568		, [TITLE]
				9569		, [SUBJECT ]
				9570		, [BODY]
				9571		, [ACTIVE]
				9572		, [CREATED BY]
				9573		, [UPDATED BY]
				9574		, [CREATED ]
				9575		, [UPDATED ]
				9576		, [EMAIL]
				9577		, [NOTIFIC ATION]
				9578		, [SALUTAT ION]
				9579		, [CONTACT _INFO]
				9580		, [ADVANCE D_USER_FLA G]
				9581		, [CREATED BY_ADVANCE D_USER_FLA G]
				9582		)
				9583		select g etdate()
				9584		, lv_Change= case
				9585		when @ cdeleted=0 and @cins erted>0 th en 'insert '
				9586		when @ cdeleted>0 and @cins erted>0 th en 'update '
				9587		else n ull
				9588		end
				9589		, HCB = case
				9590		wh en @cdelet ed=0 and @ cinserted> 0 then Cre atedBy
				9591		wh en @cdelet ed>0 and @ cinserted> 0 then Upd atedBy
				9592		el se null
				9593		end
				9594		, suser_snam e()
				9595		, [TEMPLATE_ ID]
				9596		, [TITLE]
				9597		, [SUBJECT]
				9598		, [BODY]
				9599		, [ACTIVE]
				9600		, [CREATEDBY ]
				9601		, [UPDATEDBY ]
				9602		, [CREATED]
				9603		, [UPDATED]
				9604		, [EMAIL]
				9605		, [NOTIFICAT ION]
				9606		, [SALUTATIO N]
				9607		, [CONTACT_I NFO]
				9608		, [ADVANCED_ USER_FLAG]
				9609		, [CREATEDBY _ADVANCED_ USER_FLAG]
				9610
				9611		from ins erted
				9612		end
				9613		go
				9614		create
				9615		trigger [AHOBPR]. [TRG_EMAIL _TEMPLATES _DEL_H]
				9616		on [AHO BPR].[EMAI L_TEMPLATE S] after d elete
				9617		as
				9618		begin
				9619		declare @pos int, @vchar var char(128)
				9620		set @pos = 1
				9621		set @vch ar = cast( CONTEXT_IN FO()as var char(128))
				9622
				9623		--Remove all 0x0 ( keep only text)
				9624		while no t ascii(su bstring(@v char,@pos, 1))=0
				9625		begin
				9626		set @pos = @p os + 1
				9627		end
				9628
				9629		set @vch ar = SUBST RING(@vcha r, 1, @pos - 1)
				9630		insert
				9631		into [ AHOBPR].[E MAIL_TEMPL ATES_H]
				9632		( [Audit_D ate]
				9633		, [Audit_T ype]
				9634		, [Audit_A pplication User]
				9635		, [Audit_S QLUser]
				9636		, [TEMPLAT E_ID]
				9637		, [TITLE]
				9638		, [SUBJECT ]
				9639		, [BODY]
				9640		, [ACTIVE]
				9641		, [CREATED BY]
				9642		, [UPDATED BY]
				9643		, [CREATED ]
				9644		, [UPDATED ]
				9645		, [EMAIL]
				9646		, [NOTIFIC ATION]
				9647		, [SALUTAT ION]
				9648		, [CONTACT _INFO]
				9649		, [ADVANCE D_USER_FLA G]
				9650		, [CREATED BY_ADVANCE D_USER_FLA G]
				9651		)
				9652		selec t getdate( )
				9653		, lv_Chang e= 'delet e'
				9654		, HCB= @vc har
				9655		, suser_sn ame()
				9656		, [TEMPLAT E_ID]
				9657		, [TITLE]
				9658		, [SUBJECT ]
				9659		, [BODY]
				9660		, [ACTIVE]
				9661		, [CREATED BY]
				9662		, [UPDATED BY]
				9663		, [CREATED ]
				9664		, [UPDATED ]
				9665		, [EMAIL]
				9666		, [NOTIFIC ATION]
				9667		, [SALUTAT ION]
				9668		, [CONTACT _INFO]
				9669		, [ADVANCE D_USER_FLA G]
				9670		, [CREATED BY_ADVANCE D_USER_FLA G]
				9671
				9672		from del eted
				9673		end;
				9674		go
				9675		print 'cre ate table [AHOBPR].[ FOLLOWUP_F ORM_RESPON SE_H]';
				9676		go
				9677		create
				9678		table [A HOBPR].[FO LLOWUP_FOR M_RESPONSE _H]
				9679		(
				9680		[Audit _FOLLOWUP_ FORM_RESPO NSE_H_ID] [int] iden tity(1,1) not null
				9681		, [Audit _Date] [da tetime] no t null
				9682		, [Audit _Type] [va rchar](20) not null
				9683		, [Audit _Applicati onUser] [v archar](12 8)
				9684		, [Audit _SQLUser] [varchar]( 100)
				9685		, [FOLLO WUP_FORM_R ESPONSE_ID ] [int]
				9686		, [REGIS TRANT_ID] [int]
				9687		, [STD_F ORM_ID] [i nt]
				9688		, [COMPL ETED_DATE] [datetime 2]
				9689		, [CREAT EDBY] [var char](30)
				9690		, [UPDAT EDBY] [var char](30)
				9691		, [CREAT ED] [datet ime2]
				9692		, [UPDAT ED] [datet ime2]
				9693		, constr aint [FOLL OWUP_FORM_ RESPONSE_H _PK] prima ry key clu stered
				9694		( [Aud it_FOLLOWU P_FORM_RES PONSE_H_ID ] ASC)
				9695		with (PAD_INDE X = OFF, S TATISTICS_ NORECOMPUT E = OFF, I GNORE_DUP_ KEY = OFF, ALLOW_ROW _LOCKS = o n, ALLOW_P AGE_LOCKS = on)
				9696		on [ PRIMARY]
				9697		)
				9698		on [PRIM ARY]
				9699		go
				9700
				9701		create
				9702		trigger [AHOBPR].[ TRG_FOLLOW UP_FORM_RE SPONSE_H] on [AHOBPR ].[FOLLOWU P_FORM_RES PONSE]
				9703		after up date, inse rt
				9704		as
				9705		begin
				9706		declare @lv_change varchar(1 5)
				9707		, @cdeleted int
				9708		, @cinserted int
				9709		, @cSftDelet e int;
				9710		select @ cdeleted = count(*) f rom delete d;
				9711		select @ cinserted =count(*) from inser ted;
				9712		insert
				9713		into [ AHOBPR].[F OLLOWUP_FO RM_RESPONS E_H]
				9714		( [Audit_Dat e]
				9715		, [Audit_Typ e]
				9716		, [Audit_App licationUs er]
				9717		, [Audit_SQL User]
				9718		, [FOLLOWUP_ FORM_RESPO NSE_ID]
				9719		, [REGISTRAN T_ID]
				9720		, [STD_FORM_ ID]
				9721		, [COMPLETED _DATE]
				9722		, [CREATEDBY ]
				9723		, [UPDATEDBY ]
				9724		, [CREATED]
				9725		, [UPDATED]
				9726		)
				9727		select getdate()
				9728		, lv_Chang e= case
				9729		when @ cdeleted=0 and @cins erted>0 th en 'insert '
				9730		when @ cdeleted>0 and @cins erted>0 th en 'update '
				9731		else n ull
				9732		end
				9733		, HCB= cas e
				9734		when @cdel eted=0 and @cinserte d>0 then C reatedBy
				9735		when @cdel eted>0 and @cinserte d>0 then U pdatedBy
				9736		else null
				9737		en d
				9738		, suser_sn ame()
				9739		, [FOLLOWU P_FORM_RES PONSE_ID]
				9740		, [REGISTR ANT_ID]
				9741		, [STD_FOR M_ID]
				9742		, [COMPLET ED_DATE]
				9743		, [CREATED BY]
				9744		, [UPDATED BY]
				9745		, [CREATED ]
				9746		, [UPDATED ]
				9747
				9748		from ins erted;
				9749		end
				9750		go
				9751		create
				9752		trigger [AHOBPR]. [TRG_FOLLO WUP_FORM_R ESPONSE_DE L_H]
				9753		on [AHO BPR].[FOLL OWUP_FORM_ RESPONSE] after dele te
				9754		as
				9755		begin
				9756		declare @pos int, @vchar var char(128)
				9757		set @pos = 1
				9758		set @vch ar = cast( CONTEXT_IN FO()as var char(128))
				9759
				9760		--Remove all 0x0 ( keep only text)
				9761		while no t ascii(su bstring(@v char,@pos, 1))=0
				9762		begin
				9763		set @pos = @p os + 1
				9764		end
				9765
				9766		set @vch ar = SUBST RING(@vcha r, 1, @pos - 1)
				9767		insert
				9768		into [ AHOBPR].[F OLLOWUP_FO RM_RESPONS E_H]
				9769		( [Audit_Dat e]
				9770		, [Audit_Typ e]
				9771		, [Audit_App licationUs er]
				9772		, [Audit_SQL User]
				9773		, [FOLLOWUP_ FORM_RESPO NSE_ID]
				9774		, [REGISTRAN T_ID]
				9775		, [STD_FORM_ ID]
				9776		, [COMPLETED _DATE]
				9777		, [CREATEDBY ]
				9778		, [UPDATEDBY ]
				9779		, [CREATED]
				9780		, [UPDATED]
				9781		)
				9782		select getdate( )
				9783		, lv_Chang e= 'delet e'
				9784		, HCB= @vc har
				9785		, suser_sn ame()
				9786		, [FOLLOWU P_FORM_RES PONSE_ID]
				9787		, [REGISTR ANT_ID]
				9788		, [STD_FOR M_ID]
				9789		, [COMPLET ED_DATE]
				9790		, [CREATED BY]
				9791		, [UPDATED BY]
				9792		, [CREATED ]
				9793		, [UPDATED ]
				9794
				9795		from d eleted;
				9796		end
				9797		go
				9798		create
				9799		table [A HOBPR].[FO LLOWUP_FOR M_RESPONSE _ANSWER_H]
				9800		(
				9801		[Audit_FOL LOWUP_FORM _RESPONSE_ ANSWER_H_I D] [int] i dentity(1, 1) not nul l
				9802		, [Audit_D ate] [date time] not null
				9803		, [Audit_T ype] [varc har](20) n ot null
				9804		, [Audit_A pplication User] [var char](128)
				9805		, [Audit_S QLUser] [v archar](10 0)
				9806		, [FOLLOWU P_FORM_RES PONSE_ANSW ER_ID] [in t]
				9807		, [FOLLOWU P_FORM_RES PONSE_QUES TION_ID] [ int]
				9808		, [STD_FOR M_ANSWER_I D] [int]
				9809		, [ANSWER_ VALUE] [va rchar](400 0)
				9810		, [CREATED BY] [varch ar](30)
				9811		, [UPDATED BY] [varch ar](30)
				9812		, [CREATED ] [datetim e2]
				9813		, [UPDATED ] [datetim e2]
				9814		, constrai nt [FOLLOW UP_FORM_RE SPONSE_ANS WER_H_PK]
				9815		primar y key clus tered ([Au dit_FOLLOW UP_FORM_RE SPONSE_ANS WER_H_ID] ASC)
				9816		with ( PAD_INDEX = OFF, STA TISTICS_NO RECOMPUTE = OFF, IGN ORE_DUP_KE Y = OFF, A LLOW_ROW_L OCKS = on, ALLOW_PAG E_LOCKS = on)
				9817		on [PR IMARY]
				9818		)
				9819		on [PRIMAR Y]
				9820		go
				9821		create
				9822		trigger [AHOBPR].[ TRG_FOLLOW UP_FORM_RE SPONSE_ANS WER_H] on [AHOBPR].[ FOLLOWUP_F ORM_RESPON SE_ANSWER]
				9823		after up date, inse rt
				9824		as
				9825		begin
				9826		declare @lv_change varchar(1 5)
				9827		, @cdeleted int
				9828		, @cinserted int
				9829		, @cSftDelet e int;
				9830		select @ cdeleted = count(*) f rom delete d;
				9831		select @ cinserted =count(*) from inser ted;
				9832		insert
				9833		into [AHOBPR].[ FOLLOWUP_F ORM_RESPON SE_ANSWER_ H]
				9834		( [Audit_Dat e]
				9835		, [Audit_Typ e]
				9836		, [Audit_App licationUs er]
				9837		, [Audit_SQL User]
				9838		, [FOLLOWUP_ FORM_RESPO NSE_ANSWER _ID]
				9839		, [FOLLOWUP_ FORM_RESPO NSE_QUESTI ON_ID]
				9840		, [STD_FORM_ ANSWER_ID]
				9841		, [ANSWER_VA LUE]
				9842		, [CREATEDBY ]
				9843		, [UPDATEDBY ]
				9844		, [CREATED]
				9845		, [UPDATED]
				9846		)
				9847		select getdate()
				9848		, lv_Chang e= case
				9849		when @ cdeleted=0 and @cins erted>0 th en 'insert '
				9850		when @ cdeleted>0 and @cins erted>0 th en 'update '
				9851		else n ull
				9852		end
				9853		, HCB= cas e
				9854		wh en @cdelet ed=0 and @ cinserted> 0 then Cre atedBy
				9855		wh en @cdelet ed>0 and @ cinserted> 0 then Upd atedBy
				9856		el se null
				9857		end
				9858		, suser_sn ame()
				9859		, [FOLLOWU P_FORM_RES PONSE_ANSW ER_ID]
				9860		, [FOLLOWU P_FORM_RES PONSE_QUES TION_ID]
				9861		, [STD_FOR M_ANSWER_I D]
				9862		, [ANSWER_ VALUE]
				9863		, [CREATED BY]
				9864		, [UPDATED BY]
				9865		, [CREATED ]
				9866		, [UPDATED ]
				9867
				9868		from i nserted;
				9869		end
				9870		go
				9871		create
				9872		trigger [AHOBPR]. [TRG_FOLLO WUP_FORM_R ESPONSE_AN SWER_DEL_H ]
				9873		on [AHO BPR].[FOLL OWUP_FORM_ RESPONSE_A NSWER]
				9874		after de lete
				9875		as
				9876		begin
				9877		declare @pos int, @vchar var char(128)
				9878		set @pos = 1
				9879		set @vch ar = cast( CONTEXT_IN FO()as var char(128))
				9880
				9881		--Remove all 0x0 ( keep only text)
				9882		while no t ascii(su bstring(@v char,@pos, 1))=0
				9883		begin
				9884		set @pos = @p os + 1
				9885		end
				9886
				9887		set @vch ar = SUBST RING(@vcha r, 1, @pos - 1)
				9888		insert
				9889		into [ AHOBPR].[F OLLOWUP_FO RM_RESPONS E_ANSWER_H ]
				9890		( [Audit_Dat e]
				9891		, [Audit_Typ e]
				9892		, [Audit_App licationUs er]
				9893		, [Audit_SQL User]
				9894		, [FOLLOWUP_ FORM_RESPO NSE_ANSWER _ID]
				9895		, [FOLLOWUP_ FORM_RESPO NSE_QUESTI ON_ID]
				9896		, [STD_FORM_ ANSWER_ID]
				9897		, [ANSWER_VA LUE]
				9898		, [CREATEDBY ]
				9899		, [UPDATEDBY ]
				9900		, [CREATED]
				9901		, [UPDATED]
				9902		)
				9903		select getdate()
				9904		, lv_Chang e= 'delet e'
				9905		, HCB= @vc har
				9906		, suser_sn ame()
				9907		, [FOLLOWU P_FORM_RES PONSE_ANSW ER_ID]
				9908		, [FOLLOWU P_FORM_RES PONSE_QUES TION_ID]
				9909		, [STD_FOR M_ANSWER_I D]
				9910		, [ANSWER_ VALUE]
				9911		, [CREATED BY]
				9912		, [UPDATED BY]
				9913		, [CREATED ]
				9914		, [UPDATED ]
				9915
				9916		from d eleted;
				9917		end
				9918		go
				9919
				9920		create
				9921		table [A HOBPR].[FO LLOWUP_FOR M_RESPONSE _QUESTION_ H]
				9922		(
				9923		[Audit_FOL LOWUP_FORM _RESPONSE_ QUESTION_H _ID] [int] identity( 1,1) not n ull
				9924		, [Audit_D ate] [date time] not null
				9925		, [Audit_T ype] [varc har](20) n ot null
				9926		, [Audit_A pplication User] [var char](128)
				9927		, [Audit_S QLUser] [v archar](10 0)
				9928		, [FOLLOWU P_FORM_RES PONSE_QUES TION_ID] [ int]
				9929		, [FOLLOWU P_FORM_RES PONSE_ID] [int]
				9930		, [STD_FOR M_QUESTION _ID] [int]
				9931		, [STARTED _DATE] [da tetime2]
				9932		, [COMPLET ED_DATE] [ datetime2]
				9933		, [CREATED BY] [varch ar](30)
				9934		, [UPDATED BY] [varch ar](30)
				9935		, [CREATED ] [datetim e2]
				9936		, [UPDATED ] [datetim e2]
				9937		, constrai nt [FOLLOW UP_FORM_RE SPONSE_QUE STION_H_PK ]
				9938		primary key cluste red ([Audi t_FOLLOWUP _FORM_RESP ONSE_QUEST ION_H_ID] ASC)
				9939		with (PA D_INDEX = OFF, STATI STICS_NORE COMPUTE = OFF, IGNOR E_DUP_KEY = OFF, ALL OW_ROW_LOC KS = on, A LLOW_PAGE_ LOCKS = on )
				9940		on [PRIM ARY]
				9941		)
				9942		on [PRIMARY];
				9943		go
				9944		create
				9945		trigger [AHOBPR].[ TRG_FOLLOW UP_FORM_RE SPONSE_QUE STION_H] o n [AHOBPR] .[FOLLOWUP _FORM_RESP ONSE_QUEST ION]
				9946		after up date, inse rt
				9947		as
				9948		begin
				9949		declar e @lv_chan ge varchar (15)
				9950		, @cde leted int
				9951		, @cin serted int
				9952		, @cSf tDelete in t
				9953		select @cdeleted =count(*) from dele ted
				9954		select @cinserte d =count(* ) from ins erted
				9955		insert
				9956		into [AHOBPR]. [FOLLOWUP_ FORM_RESPO NSE_QUESTI ON_H]
				9957		( [Audit_D ate]
				9958		, [Audit_T ype]
				9959		, [Audit_A pplication User]
				9960		, [Audit_S QLUser]
				9961		, [FOLLOWU P_FORM_RES PONSE_QUES TION_ID]
				9962		, [FOLLOWU P_FORM_RES PONSE_ID]
				9963		, [STD_FOR M_QUESTION _ID]
				9964		, [STARTED _DATE]
				9965		, [COMPLET ED_DATE]
				9966		, [CREATED BY]
				9967		, [UPDATED BY]
				9968		, [CREATED ]
				9969		, [UPDATED ]
				9970		)
				9971		select getdate()
				9972		, lv_Chang e= case
				9973		when @ cdeleted=0 and @cins erted>0 th en 'insert '
				9974		when @ cdeleted>0 and @cins erted>0 th en 'update '
				9975		else n ull
				9976		end
				9977		, HCB= cas e
				9978		wh en @cdelet ed=0 and @ cinserted> 0 then Cre atedBy
				9979		wh en @cdelet ed>0 and @ cinserted> 0 then Upd atedBy
				9980		el se null
				9981		end
				9982		, suser_sn ame()
				9983		, [FOLLOWU P_FORM_RES PONSE_QUES TION_ID]
				9984		, [FOLLOWU P_FORM_RES PONSE_ID]
				9985		, [STD_FOR M_QUESTION _ID]
				9986		, [STARTED _DATE]
				9987		, [COMPLET ED_DATE]
				9988		, [CREATED BY]
				9989		, [UPDATED BY]
				9990		, [CREATED ]
				9991		, [UPDATED ]
				9992
				9993		from i nserted;
				9994		end
				9995		go
				9996		create
				9997		trigger [AHOBPR]. [TRG_FOLLO WUP_FORM_R ESPONSE_QU ESTION_DEL _H]
				9998		on [AHO BPR].[FOLL OWUP_FORM_ RESPONSE_Q UESTION]
				9999		after de lete
				10000		as
				10001		begin
				10002		declare @pos int, @vchar var char(128)
				10003		set @pos = 1
				10004		set @vch ar = cast( CONTEXT_IN FO()as var char(128))
				10005
				10006		--Remove all 0x0 ( keep only text)
				10007		while no t ascii(su bstring(@v char,@pos, 1))=0
				10008		begin
				10009		set @p os = @pos + 1
				10010		end
				10011
				10012		set @vch ar = SUBST RING(@vcha r, 1, @pos - 1)
				10013		insert
				10014		into [ AHOBPR].[F OLLOWUP_FO RM_RESPONS E_QUESTION _H]
				10015		( [Audit_Dat e]
				10016		, [Audit_Typ e]
				10017		, [Audit_App licationUs er]
				10018		, [Audit_SQL User]
				10019		, [FOLLOWUP_ FORM_RESPO NSE_QUESTI ON_ID]
				10020		, [FOLLOWUP_ FORM_RESPO NSE_ID]
				10021		, [STD_FORM_ QUESTION_I D]
				10022		, [STARTED_D ATE]
				10023		, [COMPLETED _DATE]
				10024		, [CREATEDBY ]
				10025		, [UPDATEDBY ]
				10026		, [CREATED]
				10027		, [UPDATED]
				10028		)
				10029		select getdate( )
				10030		, lv_Chang e= 'delet e'
				10031		, HCB= @vc har
				10032		, suser_sn ame()
				10033		, [FOLLOWU P_FORM_RES PONSE_QUES TION_ID]
				10034		, [FOLLOWU P_FORM_RES PONSE_ID]
				10035		, [STD_FOR M_QUESTION _ID]
				10036		, [STARTED _DATE]
				10037		, [COMPLET ED_DATE]
				10038		, [CREATED BY]
				10039		, [UPDATED BY]
				10040		, [CREATED ]
				10041		, [UPDATED ]
				10042
				10043		from delet ed;
				10044		end;
				10045		go
				10046
				10047		create
				10048		table [A HOBPR].[TO OL_ANSWER_ H]
				10049		(
				10050		[Audit_TOO L_ANSWER_H _ID] [int] identity( 1,1) not n ull
				10051		, [Audit_Dat e] [dateti me] not nu ll
				10052		, [Audit_Typ e] [varcha r](20) not null
				10053		, [Audit_App licationUs er] [varch ar](128)
				10054		, [Audit_SQL User] [var char](100)
				10055		, [TOOL_ANSW ER_ID] [in t]
				10056		, [TOOL_QUES TION_ID] [ int]
				10057		, [ORDER] [i nt]
				10058		, [TEXT] [va rchar](400 0)
				10059		, [EDITABLE] [bit]
				10060		, [HELP] [va rchar](100 0)
				10061		, [CLINICAL_ RELEVANT_F LAG] [bit]
				10062		, [CREATEDBY ] [varchar ](30)
				10063		, [UPDATEDBY ] [varchar ](30)
				10064		, [CREATED] [datetime2 ]
				10065		, [UPDATED] [datetime2 ]
				10066		, [STANDARD_ FLAG] [bit ]
				10067		, constraint [TOOL_ANS WER_H_PK]
				10068		primary ke y clustere d ([Audit_ TOOL_ANSWE R_H_ID] AS C)
				10069		with (PAD_ INDEX = OF F, STATIST ICS_NORECO MPUTE = OF F, IGNORE_ DUP_KEY = OFF, ALLOW _ROW_LOCKS = on, ALL OW_PAGE_LO CKS = on)
				10070		on [PRIMAR Y]
				10071		)
				10072		on [PRIM ARY];
				10073		go
				10074		create
				10075		trigger [AHOBPR].[ TRG_TOOL_A NSWER_H]
				10076		on [AHOB PR].[TOOL_ ANSWER]
				10077		after up date, inse rt
				10078		as
				10079		begin
				10080		declare @lv_change varchar(1 5)
				10081		, @cdeleted int
				10082		, @cinserted int
				10083		, @cSftDelet e int;
				10084		select @ cdeleted = count(*) f rom delete d;
				10085		select @ cinserted =count(*) from inser ted;
				10086		insert
				10087		into [ AHOBPR].[T OOL_ANSWER _H]
				10088		( [Audit_Dat e]
				10089		, [Audit_Typ e]
				10090		, [Audit_App licationUs er]
				10091		, [Audit_SQL User]
				10092		, [TOOL_ANSW ER_ID]
				10093		, [TOOL_QUES TION_ID]
				10094		, [ORDER]
				10095		, [TEXT]
				10096		, [EDITABLE]
				10097		, [HELP]
				10098		, [CLINICAL_ RELEVANT_F LAG]
				10099		, [CREATEDBY ]
				10100		, [UPDATEDBY ]
				10101		, [CREATED]
				10102		, [UPDATED]
				10103		, [STANDARD_ FLAG]
				10104		)
				10105		select getdate( )
				10106		, lv_Chang e= case
				10107		when @ cdeleted=0 and @cins erted>0 th en 'insert '
				10108		when @ cdeleted>0 and @cins erted>0 th en 'update '
				10109		else n ull
				10110		end
				10111		, HCB= cas e
				10112		wh en @cdelet ed=0 and @ cinserted> 0 then Cre atedBy
				10113		wh en @cdelet ed>0 and @ cinserted> 0 then Upd atedBy
				10114		el se null
				10115		end
				10116		, suser_sn ame()
				10117		, [TOOL_AN SWER_ID]
				10118		, [TOOL_QU ESTION_ID]
				10119		, [ORDER]
				10120		, [TEXT]
				10121		, [EDITABL E]
				10122		, [HELP]
				10123		, [CLINICA L_RELEVANT _FLAG]
				10124		, [CREATED BY]
				10125		, [UPDATED BY]
				10126		, [CREATED ]
				10127		, [UPDATED ]
				10128		, [STANDAR D_FLAG]
				10129
				10130		from i nserted;
				10131		end
				10132		go
				10133		create
				10134		trigger [AHOBPR]. [TRG_TOOL_ ANSWER_DEL _H]
				10135		on [AHO BPR].[TOOL _ANSWER]
				10136		after de lete
				10137		as
				10138		begin
				10139		declare @pos int, @vchar var char(128)
				10140		set @pos = 1
				10141		set @vch ar = cast( CONTEXT_IN FO()as var char(128))
				10142
				10143		--Remove all 0x0 ( keep only text)
				10144		while no t ascii(su bstring(@v char,@pos, 1))=0
				10145		begin
				10146		set @pos = @p os + 1
				10147		end
				10148
				10149		set @vch ar = SUBST RING(@vcha r, 1, @pos - 1)
				10150		insert
				10151		into [AHOBPR].[ TOOL_ANSWE R_H]
				10152		( [Audit_Dat e]
				10153		, [Audit_Typ e]
				10154		, [Audit_App licationUs er]
				10155		, [Audit_SQL User]
				10156		, [TOOL_ANSW ER_ID]
				10157		, [TOOL_QUES TION_ID]
				10158		, [ORDER]
				10159		, [TEXT]
				10160		, [EDITABLE]
				10161		, [HELP]
				10162		, [CLINICAL_ RELEVANT_F LAG]
				10163		, [CREATEDBY ]
				10164		, [UPDATEDBY ]
				10165		, [CREATED]
				10166		, [UPDATED]
				10167		, [STANDARD_ FLAG]
				10168		)
				10169		select getdate( )
				10170		, lv_Chang e= 'delet e'
				10171		, HCB= @vc har
				10172		, suser_sn ame()
				10173		, [TOOL_AN SWER_ID]
				10174		, [TOOL_QU ESTION_ID]
				10175		, [ORDER]
				10176		, [TEXT]
				10177		, [EDITABL E]
				10178		, [HELP]
				10179		, [CLINICA L_RELEVANT _FLAG]
				10180		, [CREATED BY]
				10181		, [UPDATED BY]
				10182		, [CREATED ]
				10183		, [UPDATED ]
				10184		, [STANDAR D_FLAG]
				10185		from d eleted;
				10186		end;
				10187		go
				10188
				10189		create
				10190		table [A HOBPR].[TO OL_FORM_H]
				10191		(
				10192		[Audit_TOO L_FORM_H_I D] [int] i dentity(1, 1) not nul l
				10193		, [Audit_Dat e] [dateti me] not nu ll
				10194		, [Audit_Typ e] [varcha r](20) not null
				10195		, [Audit_App licationUs er] [varch ar](128)
				10196		, [Audit_SQL User] [var char](100)
				10197		, [TOOL_FORM _ID] [int]
				10198		, [NAME] [va rchar](256 )
				10199		, [TITLE] [v archar](50 0)
				10200		, [ACTIVE_FL AG] [bit]
				10201		, [EDITABLE_ FLAG] [bit ]
				10202		, [CREATEDBY ] [varchar ](30)
				10203		, [UPDATEDBY ] [varchar ](30)
				10204		, [CREATED] [datetime2 ]
				10205		, [UPDATED] [datetime2 ]
				10206		, constraint [TOOL_FOR M_H_PK]
				10207		primary ke y clustere d (Audit_T OOL_FORM_H _ID ASC)
				10208		with (PAD_ INDEX = OF F, STATIST ICS_NORECO MPUTE = OF F, IGNORE_ DUP_KEY = OFF, ALLOW _ROW_LOCKS = on, ALL OW_PAGE_LO CKS = on)
				10209		on [PRIMAR Y]
				10210		)
				10211		on [PRI MARY];
				10212		go
				10213		create
				10214		trigger [AHOBPR].[ TRG_TOOL_F ORM_H]
				10215		on [AHOB PR].[TOOL_ FORM]
				10216		after up date, inse rt
				10217		as
				10218		begin
				10219		declare @lv_change varchar(1 5)
				10220		, @cdeleted int
				10221		, @cinserted int
				10222		, @cSftDelet e int;
				10223		select @ cdeleted = count(*) f rom delete d;
				10224		select @ cinserted =count(*) from inser ted;
				10225
				10226		insert
				10227		into [AHOBPR].[ TOOL_FORM_ H]
				10228		( [Audit_D ate]
				10229		, [Audit_T ype]
				10230		, [Audit_A pplication User]
				10231		, [Audit_S QLUser]
				10232		, [TOOL_FO RM_ID]
				10233		, [NAME]
				10234		, [TITLE]
				10235		, [ACTIVE_ FLAG]
				10236		, [EDITABL E_FLAG]
				10237		, [CREATED BY]
				10238		, [UPDATED BY]
				10239		, [CREATED ]
				10240		, [UPDATED ]
				10241		)
				10242		select getdate( )
				10243		, lv_Chang e= case
				10244		when @ cdeleted=0 and @cins erted>0 th en 'insert '
				10245		when @ cdeleted>0 and @cins erted>0 th en 'update '
				10246		else n ull
				10247		end
				10248		, HCB = ca se
				10249		when @cdel eted=0 and @cinserte d>0 then C reatedBy
				10250		when @cdel eted>0 and @cinserte d>0 then U pdatedBy
				10251		else null
				10252		e nd
				10253		, suser_sn ame()
				10254		, [TOOL_FO RM_ID]
				10255		, [NAME]
				10256		, [TITLE]
				10257		, [ACTIVE_ FLAG]
				10258		, [EDITABL E_FLAG]
				10259		, [CREATED BY]
				10260		, [UPDATED BY]
				10261		, [CREATED ]
				10262		, [UPDATED ]
				10263		from inser ted;
				10264		end
				10265		go
				10266		create
				10267		trigger [AHOBPR]. [TRG_TOOL_ FORM_DEL_H ]
				10268		on [AHO BPR].[TOOL _FORM]
				10269		after de lete
				10270		as
				10271		begin
				10272		declare @pos int, @vchar var char(128)
				10273		set @pos = 1
				10274		set @vch ar = cast( CONTEXT_IN FO()as var char(128))
				10275
				10276		--Remove all 0x0 ( keep only text)
				10277		while no t ascii(su bstring(@v char,@pos, 1))=0
				10278		begin
				10279		set @pos = @p os + 1
				10280		end
				10281
				10282		set @vch ar = SUBST RING(@vcha r, 1, @pos - 1)
				10283		insert
				10284		into [AHOBPR].[ TOOL_FORM_ H]
				10285		( [Audit_Dat e]
				10286		, [Audit_Typ e]
				10287		, [Audit_App licationUs er]
				10288		, [Audit_SQL User]
				10289		, [TOOL_FORM _ID]
				10290		, [NAME]
				10291		, [TITLE]
				10292		, [ACTIVE_FL AG]
				10293		, [EDITABLE_ FLAG]
				10294		, [CREATEDBY ]
				10295		, [UPDATEDBY ]
				10296		, [CREATED]
				10297		, [UPDATED]
				10298		)
				10299		select getdate( )
				10300		, lv_Chang e= 'delet e'
				10301		, HCB= @vc har
				10302		, suser_sn ame()
				10303		, [TOOL_FO RM_ID]
				10304		, [NAME]
				10305		, [TITLE]
				10306		, [ACTIVE_ FLAG]
				10307		, [EDITABL E_FLAG]
				10308		, [CREATED BY]
				10309		, [UPDATED BY]
				10310		, [CREATED ]
				10311		, [UPDATED ]
				10312
				10313		from d eleted;
				10314		end
				10315		go
				10316		create
				10317		table [A HOBPR].[TO OL_FORM_QU ESTION_H]
				10318		(
				10319		[Audit_TOO L_FORM_QUE STION_H_ID ] [int] id entity(1,1 ) not null
				10320		, [Audit_Dat e] [dateti me] not nu ll
				10321		, [Audit_Typ e] [varcha r](20) not null
				10322		, [Audit_App licationUs er] [varch ar](128)
				10323		, [Audit_SQL User] [var char](100)
				10324		, [TOOL_FORM _QUESTION_ ID] [int]
				10325		, [TOOL_FORM _ID] [int]
				10326		, [TOOL_QUES TION_ID] [ int]
				10327		, [CREATEDBY ] [varchar ](30)
				10328		, [UPDATEDBY ] [varchar ](30)
				10329		, [CREATED] [datetime2 ]
				10330		, [UPDATED] [datetime2 ]
				10331		, constraint [TOOL_FOR M_QUESTION _H_PK]
				10332		primary ke y clustere d ([Audit_ TOOL_FORM_ QUESTION_H _ID] ASC)
				10333		with (PAD_ INDEX = OF F, STATIST ICS_NORECO MPUTE = OF F, IGNORE_ DUP_KEY = OFF, ALLOW _ROW_LOCKS = on, ALL OW_PAGE_LO CKS = on)
				10334		on [PRIMAR Y]
				10335		)
				10336		on [PRIM ARY];
				10337		go
				10338		create
				10339		trigger [AHOBPR].[ TRG_TOOL_F ORM_QUESTI ON_H] on [ AHOBPR].[T OOL_FORM_Q UESTION]
				10340		after up date, inse rt
				10341		as
				10342		begin
				10343		declare @lv_change varchar(1 5)
				10344		, @cdeleted int
				10345		, @cinserted int
				10346		, @cSftDelet e int
				10347		select @ cdeleted = count(*) f rom delete d;
				10348		select @ cinserted =count(*) from inser ted;
				10349		insert
				10350		into [ AHOBPR].[T OOL_FORM_Q UESTION_H]
				10351		( [Audit_Dat e]
				10352		, [Audit_Typ e]
				10353		, [Audit_App licationUs er]
				10354		, [Audit_SQL User]
				10355		, [TOOL_FORM _QUESTION_ ID]
				10356		, [TOOL_FORM _ID]
				10357		, [TOOL_QUES TION_ID]
				10358		, [CREATEDBY ]
				10359		, [UPDATEDBY ]
				10360		, [CREATED]
				10361		, [UPDATED]
				10362		)
				10363		select getdate( )
				10364		, lv_Chang e = case
				10365		when @cdeleted =0 and @ci nserted>0 then 'inse rt'
				10366		when @cdeleted >0 and @ci nserted>0 then 'upda te'
				10367		else null
				10368		end
				10369		, HCB = ca se
				10370		when @cdel eted=0 and @cinserte d>0 then C reatedBy
				10371		when @cdel eted>0 and @cinserte d>0 then U pdatedBy
				10372		else null
				10373		en d
				10374		, suser_sn ame()
				10375		, [TOOL_FO RM_QUESTIO N_ID]
				10376		, [TOOL_FO RM_ID]
				10377		, [TOOL_QU ESTION_ID]
				10378		, [CREATED BY]
				10379		, [UPDATED BY]
				10380		, [CREATED ]
				10381		, [UPDATED ]
				10382
				10383		from i nserted;
				10384		end
				10385		go
				10386		create
				10387		trigger [AHOBPR]. [TRG_TOOL_ FORM_QUEST ION_DEL_H]
				10388		on [AHO BPR].[TOOL _FORM_QUES TION]
				10389		after de lete
				10390		as
				10391		begin
				10392		declare @pos int, @vchar var char(128)
				10393		set @pos = 1
				10394		set @vch ar = cast( CONTEXT_IN FO()as var char(128))
				10395
				10396		--Remove all 0x0 ( keep only text)
				10397		while no t ascii(su bstring(@v char,@pos, 1))=0
				10398		begin
				10399		set @pos = @p os + 1
				10400		end
				10401
				10402		set @vch ar = SUBST RING(@vcha r, 1, @pos - 1)
				10403		insert
				10404		into [ AHOBPR].[T OOL_FORM_Q UESTION_H]
				10405		( [Audit_Dat e]
				10406		, [Audit_Typ e]
				10407		, [Audit_App licationUs er]
				10408		, [Audit_SQL User]
				10409		, [TOOL_FORM _QUESTION_ ID]
				10410		, [TOOL_FORM _ID]
				10411		, [TOOL_QUES TION_ID]
				10412		, [CREATEDBY ]
				10413		, [UPDATEDBY ]
				10414		, [CREATED]
				10415		, [UPDATED]
				10416		)
				10417		select getdate( )
				10418		, lv_Chang e= 'delet e'
				10419		, HCB= @vc har
				10420		, suser_sn ame()
				10421		, [TOOL_FO RM_QUESTIO N_ID]
				10422		, [TOOL_FO RM_ID]
				10423		, [TOOL_QU ESTION_ID]
				10424		, [CREATED BY]
				10425		, [UPDATED BY]
				10426		, [CREATED ]
				10427		, [UPDATED ]
				10428		from del eted;
				10429		end
				10430		go
				10431		create
				10432		table [A HOBPR].[TO OL_QUESTIO N_H]
				10433		(
				10434		[Audit_TOO L_QUESTION _H_ID] [in t] identit y(1,1) not null
				10435		, [Audit_Dat e] [dateti me] not nu ll
				10436		, [Audit_Typ e] [varcha r](20) not null
				10437		, [Audit_App licationUs er] [varch ar](128)
				10438		, [Audit_SQL User] [var char](100)
				10439		, [TOOL_QUES TION_ID] [ int]
				10440		, [TEXT] [va rchar](400 0)
				10441		, [TYPE] [va rchar](100 )
				10442		, [MIN] [var char](256)
				10443		, [MAX] [var char](256)
				10444		, [MAX_CHOIC ES] [int]
				10445		, [MAX_LENGT H] [int]
				10446		, [MIN_LENGT H] [int]
				10447		, [KEY_WORDS ] [varchar ](2000)
				10448		, [ACTIVE_FL AG] [bit]
				10449		, [EDITABLE_ FLAG] [bit ]
				10450		, [SOURCE_ID ] [varchar ](100)
				10451		, [CREATEDBY ] [varchar ](30)
				10452		, [UPDATEDBY ] [varchar ](30)
				10453		, [CREATED] [datetime2 ]
				10454		, [UPDATED] [datetime2 ]
				10455		, constraint [TOOL_QUE STION_H_PK ]
				10456		primary ke y clustere d ([Audit_ TOOL_QUEST ION_H_ID] ASC)
				10457		with (PAD_ INDEX = OF F, STATIST ICS_NORECO MPUTE = OF F, IGNORE_ DUP_KEY = OFF, ALLOW _ROW_LOCKS = on, ALL OW_PAGE_LO CKS = on)
				10458		on [PRIMAR Y]
				10459		)
				10460		on [PRIM ARY];
				10461		go
				10462		create
				10463		trigger [AHOBPR].[ TRG_TOOL_Q UESTION_H]
				10464		on [AHOB PR].[TOOL_ QUESTION]
				10465		after up date, inse rt
				10466		as
				10467		begin
				10468		declare @lv_change varchar(1 5)
				10469		, @cdeleted int
				10470		, @cinserted int
				10471		, @cSftDelet e int
				10472		select @ cdeleted = count(*) f rom delete d;
				10473		select @ cinserted =count(*) from inser ted;
				10474
				10475		insert
				10476		into [ AHOBPR].[T OOL_QUESTI ON_H]
				10477		( [Audit_D ate]
				10478		, [Audit_T ype]
				10479		, [Audit_A pplication User]
				10480		, [Audit_S QLUser]
				10481		, [TOOL_QU ESTION_ID]
				10482		, [TEXT]
				10483		, [TYPE]
				10484		, [MIN]
				10485		, [MAX]
				10486		, [MAX_CHO ICES]
				10487		, [MAX_LEN GTH]
				10488		, [MIN_LEN GTH]
				10489		, [KEY_WOR DS]
				10490		, [ACTIVE_ FLAG]
				10491		, [EDITABL E_FLAG]
				10492		, [SOURCE_ ID]
				10493		, [CREATED BY]
				10494		, [UPDATED BY]
				10495		, [CREATED ]
				10496		, [UPDATED ]
				10497		)
				10498		select getdate( )
				10499		, lv_Chang e= case
				10500		when @cdeleted =0 and @ci nserted>0 then 'inse rt'
				10501		when @cdeleted >0 and @ci nserted>0 then 'upda te'
				10502		else null
				10503		end
				10504		, HCB = ca se
				10505		when @cdel eted=0 and @cinserte d>0 then C reatedBy
				10506		when @cdel eted>0 and @cinserte d>0 then U pdatedBy
				10507		else null
				10508		en d
				10509		, suser_sn ame()
				10510		, [TOOL_QU ESTION_ID]
				10511		, [TEXT]
				10512		, [TYPE]
				10513		, [MIN]
				10514		, [MAX]
				10515		, [MAX_CHO ICES]
				10516		, [MAX_LEN GTH]
				10517		, [MIN_LEN GTH]
				10518		, [KEY_WOR DS]
				10519		, [ACTIVE_ FLAG]
				10520		, [EDITABL E_FLAG]
				10521		, [SOURCE_ ID]
				10522		, [CREATED BY]
				10523		, [UPDATED BY]
				10524		, [CREATED ]
				10525		, [UPDATED ]
				10526
				10527		from in serted;
				10528		end
				10529		go
				10530		create
				10531		trigger [AHOBPR]. [TRG_TOOL_ QUESTION_D EL_H]
				10532		on [AHO BPR].[TOOL _QUESTION]
				10533		after de lete
				10534		as
				10535		begin
				10536		declare @pos int, @vchar var char(128)
				10537		set @pos = 1
				10538		set @vch ar = cast( CONTEXT_IN FO()as var char(128))
				10539
				10540		--Remove all 0x0 ( keep only text)
				10541		while no t ascii(su bstring(@v char,@pos, 1))=0
				10542		begin
				10543		set @pos = @p os + 1
				10544		end
				10545
				10546		set @vch ar = SUBST RING(@vcha r, 1, @pos - 1)
				10547		insert
				10548		into [AHOBPR].[ TOOL_QUEST ION_H]
				10549		( [Audit_D ate]
				10550		, [Audit_T ype]
				10551		, [Audit_A pplication User]
				10552		, [Audit_S QLUser]
				10553		, [TOOL_QU ESTION_ID]
				10554		, [TEXT]
				10555		, [TYPE]
				10556		, [MIN]
				10557		, [MAX]
				10558		, [MAX_CHO ICES]
				10559		, [MAX_LEN GTH]
				10560		, [MIN_LEN GTH]
				10561		, [KEY_WOR DS]
				10562		, [ACTIVE_ FLAG]
				10563		, [EDITABL E_FLAG]
				10564		, [SOURCE_ ID]
				10565		, [CREATED BY]
				10566		, [UPDATED BY]
				10567		, [CREATED ]
				10568		, [UPDATED ]
				10569		)
				10570		select getdate( )
				10571		, lv_Chang e= 'delet e'
				10572		, HCB= @vc har
				10573		, suser_sn ame()
				10574		, [TOOL_QU ESTION_ID]
				10575		, [TEXT]
				10576		, [TYPE]
				10577		, [MIN]
				10578		, [MAX]
				10579		, [MAX_CHO ICES]
				10580		, [MAX_LEN GTH]
				10581		, [MIN_LEN GTH]
				10582		, [KEY_WOR DS]
				10583		, [ACTIVE_ FLAG]
				10584		, [EDITABL E_FLAG]
				10585		, [SOURCE_ ID]
				10586		, [CREATED BY]
				10587		, [UPDATED BY]
				10588		, [CREATED ]
				10589		, [UPDATED ]
				10590
				10591		from d eleted;
				10592		end
				10593		go
				10594
				10595
				10596		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				10597		print N'Up date compl ete.';
				10598		print 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				10599		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				10600
				10601
				10602		go
				10603		update [d bo].[Datab aseChangeL og]
				10604		set Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				10605		where [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				10606		and [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				10607		and [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				10608		and [S criptName] = '$(Scrip tName)'
				10609		and Ta rgetRegist ry = 'AHOBPR' ;
				10610
				10611		go
				10612		select * f rom [dbo]. [DatabaseC hangeLog]
				10613		where Targ etRegistry = 'AHOBPR'
				10614		and [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				10615		and [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				10616		and [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				10617		and [Scr iptName] = '$(Script Name)';
				10618		go
				10619		---------- ---------- ---------- ---------- ---------- ---------- -
				10620		---------- ---------- ---------- ---------- ---------- ---------- -
				10621		-- 2.0.23. 1
				10622		---------- ---------- ---------- ---------- ---------- ---------- -
				10623		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				10624		:setvar Ma jorRelease Number "2"
				10625		:setvar Mi norRelease Number "0"
				10626		:setvar Po intRelease Number "23 "
				10627		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.23.1. sql"
				10628
				10629		print '
				10630		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				10631		$(ScriptNa me)
				10632
				10633		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				10634
				10635		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				10636		';
				10637		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				10638		print '
				10639		******** ****** ****** ****** ****** *****
				10640		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				10641		******** ****** ****** ****** ****** *****
				10642
				10643		';
				10644		go
				10645		:on error exit
				10646		go
				10647		:setvar __ IsSqlCmdEn abled "Tru e"
				10648		/*
				10649		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				10650		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				10651		*/
				10652		set noexec off;
				10653		set nocoun t off;
				10654		go
				10655		if N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				10656		begin
				10657		pr int N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				10658		SE T NOCOUNT ON;
				10659		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.
				10660		end
				10661
				10662		go
				10663
				10664		use [$(Dat abaseName) ]
				10665		go
				10666		if EXISTS ( select * from [dbo ].[Databas eChangeLog ]
				10667		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				10668		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				10669		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				10670		and [S criptName] = '$(Script Name)'
				10671		)
				10672		begin
				10673		raiserr or('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!'
				10674		,11
				10675		,1);
				10676		end
				10677		else
				10678		insert
				10679		into [ dbo].[Data baseChange Log]
				10680		([Major ReleaseNum ber]
				10681		,[Minor ReleaseNum ber]
				10682		,[Point ReleaseNum ber]
				10683		,[Hotfi x]
				10684		,[Scrip tName]
				10685		,[Scrip tDescripti on]
				10686		,[Targe tRegistry]
				10687		,[DateA pplied])
				10688		val ues
				10689		('$(Maj orReleaseN umber)'
				10690		,'$(Min orReleaseN umber)'
				10691		,'$(Poi ntReleaseN umber)'
				10692		,0
				10693		,'$(Scr iptName)'
				10694		,'Scr ipt Starte d...'
				10695		,'AHOBP R'
				10696		,GETDAT E()
				10697		);
				10698
				10699		go
				10700		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				10701		print 'Scr ipt starte d...';
				10702		print GETD ATE();
				10703		go
				10704		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				10705		update [ AHOBPR].[S TD_REGISTR Y_FLAG_TYP E]
				10706		set REGI STRY_FLAG_ TYPE = rep lace(REGIS TRY_FLAG_T YPE, 'SubP opulation' , 'Subpopu lation'),
				10707		REGISTRY_F LAG_TYPE_D ESCRIPTION = replace (REGISTRY_ FLAG_TYPE_ DESCRIPTIO N, 'SubPop ulation', 'Subpopula tion');
				10708		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				10709		print N'Up date compl ete.';
				10710		print 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				10711		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				10712
				10713
				10714		go
				10715		update [d bo].[Datab aseChangeL og]
				10716		set Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				10717		where [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				10718		and [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				10719		and [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				10720		and [S criptName] = '$(Scrip tName)'
				10721		and Ta rgetRegist ry = 'AHOBPR' ;
				10722
				10723		go
				10724		select * f rom [dbo]. [DatabaseC hangeLog]
				10725		where Targ etRegistry = 'AHOBPR'
				10726		and [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				10727		and [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				10728		and [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				10729		and [Scr iptName] = '$(Script Name)';
				10730		go
				10731		---------- ---------- ---------- ---------- ---------
				10732		---------- ---------- ---------- ---------- ---------
				10733		-- 2.0.24. 1
				10734		---------- ---------- ---------- ---------- ---------
				10735		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				10736		:setvar Ma jorRelease Number "2"
				10737		:setvar Mi norRelease Number "0"
				10738		:setvar Po intRelease Number "24 "
				10739		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.24.1. sql"
				10740
				10741
				10742		print '
				10743		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				10744		$(ScriptNa me)
				10745
				10746		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				10747
				10748		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				10749		';
				10750		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				10751		print '
				10752		******** ****** ****** ****** ****** *****
				10753		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				10754		******** ****** ****** ****** ****** *****
				10755
				10756		';
				10757		go
				10758		:on error exit
				10759		go
				10760		:setvar __ IsSqlCmdEn abled "Tru e"
				10761		/*
				10762		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				10763		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				10764		*/
				10765		set noexec off;
				10766		set nocoun t off;
				10767		go
				10768		if N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				10769		begin
				10770		pr int N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				10771		SE T NOCOUNT ON;
				10772		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.
				10773		end
				10774
				10775		go
				10776
				10777		use [$(Dat abaseName) ]
				10778		go
				10779		if EXISTS ( select * from [dbo ].[Databas eChangeLog ]
				10780		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				10781		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				10782		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				10783		and [S criptName] = '$(Script Name)'
				10784		)
				10785		begin
				10786		raiserr or('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!'
				10787		,11
				10788		,1);
				10789		end
				10790		else
				10791		insert
				10792		into [ dbo].[Data baseChange Log]
				10793		([Major ReleaseNum ber]
				10794		,[Minor ReleaseNum ber]
				10795		,[Point ReleaseNum ber]
				10796		,[Hotfi x]
				10797		,[Scrip tName]
				10798		,[Scrip tDescripti on]
				10799		,[Targe tRegistry]
				10800		,[DateA pplied])
				10801		val ues
				10802		('$(Maj orReleaseN umber)'
				10803		,'$(Min orReleaseN umber)'
				10804		,'$(Poi ntReleaseN umber)'
				10805		,0
				10806		,'$(Scr iptName)'
				10807		,'Scr ipt Starte d...'
				10808		,'AHOBP R'
				10809		,GETDAT E()
				10810		);
				10811
				10812		go
				10813		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				10814		print 'Scr ipt starte d...';
				10815		print GETD ATE();
				10816		go
				10817		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				10818		if exists (select * from sys.v iews where name='vie w_lookup'
				10819		and schem a_id = (se lect schem a_id from sys.schema s where na me = 'ahob pr')
				10820		)
				10821		begin
				10822		if exist s (select * from sys .views whe re name='v iew_lookup _pre2_0_24 _1'
				10823		and schem a_id = (se lect schem a_id from sys.schema s where na me = 'ahob pr')
				10824		)
				10825		drop v iew AHOBPR .VIEW_LOOK UP
				10826		else
				10827		exec s p_rename ' AHOBPR.VIE W_LOOKUP', 'view_loo kup_pre2_0 _24_1';
				10828		end;
				10829		go
				10830		--last upd ated in 2. 0.24.1 scr ipt
				10831		CREATE VIE W [AHOBPR] .[VIEW_LOO KUP]
				10832		WITH SCHEM ABINDING
				10833		AS
				10834		SELECT 'RE GISTRY_FLA G' AS LOOK UP_TYPE
				10835		,STD_RE GISTRY_FLA G_ID AS ID
				10836		,RE GISTRY_FLA G_NAME AS CODE
				10837		,RE GISTRY_FLA G_NAME AS NAME
				10838		,0 AS PARENT_ ID
				10839		,1 AS SORT_OR DER
				10840		FROM AHO BPR.STD_RE GISTRY_FLA G
				10841		WHERE STD _REGISTRY_ FLAG_ID > 0
				10842		UNION ALL
				10843		SELECT 'RE GISTRY_STA TUS' AS LO OKUP_TYPE
				10844		,STD_REGI STRANT_STA TUS_ID AS ID
				10845		,RE GISTRANT_S TATUS AS C ODE
				10846		,RE GISTRANT_S TATUS AS N AME
				10847		,0 AS PARENT_ ID
				10848		,OR DINAL_VALU E AS SORT_ ORDER
				10849		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				10850		WHERE STD _REGISTRAN T_STATUS_I D > 0
				10851		UNION ALL
				10852		SELECT 'RE GISTRY_FLA G_TYPE' AS LOOKUP_TY PE
				10853		,STD_REGI STRY_FLAG_ TYPE_ID AS ID
				10854		,RE GISTRY_FLA G_TYPE AS CODE
				10855		,RE GISTRY_FLA G_TYPE AS NAME
				10856		,0 AS PARENT_ ID
				10857		,1 AS SORT_OR DER
				10858		FROM AHO BPR.STD_RE GISTRY_FLA G_TYPE
				10859		UNION ALL
				10860		SELECT 'SU BPOPULATIO N_FLAG_ACT IVE' AS LO OKUP_TYPE
				10861		,STD_REGI STRY_FLAG_ ID AS ID
				10862		,RE GISTRY_FLA G_NAME AS CODE
				10863		,RE GISTRY_FLA G_NAME AS NAME
				10864		,0 AS PARENT_ ID
				10865		,1 AS SORT_OR DER
				10866		FROM AHOBP R.STD_REGI STRY_FLAG
				10867		WHERE ACTI VE_FLAG = 1 AND STD_ REGISTRY_F LAG_TYPE_I D = 2
				10868		UNION ALL
				10869		SELECT 'ST D_STATE' A S LOOKUP_T YPE
				10870		,ID
				10871		,PO STALNAME A S CODE
				10872		,PO STALNAME A S NAME
				10873		,0 AS PARENT_ ID
				10874		,1 AS SORT_OR DER
				10875		FROM DBO.S TD_STATE
				10876		WHERE COUN TRY_ID = 1 006840
				10877		AND POSTAL NAME IN (' AL', 'AK', 'AR', 'AZ ', 'CA', ' CO', 'CT', 'DE', 'FL ', 'GA', ' HI',
				10878		'IA', 'ID' , 'IL', 'I N', 'KS', 'KY', 'LA' , 'MA', 'M D', 'ME', 'MI', 'MN' , 'MO', 'M S',
				10879		'MT', 'NC' , 'ND', 'N E', 'NH', 'NJ', 'NM' , 'NV', 'N Y', 'OH', 'OK', 'OR' , 'PA', 'R I',
				10880		'SC', 'SD' , 'TN', 'T X', 'UT', 'VA', 'VT' , 'WA', 'W I', 'WV', 'WY', 'DC' , 'AS', 'G U', 'PR', 'VI', 'MP' , 'AA', 'A E', 'AP')
				10881		UNION ALL
				10882		SELECT 'ST D_STATE' A S LOOKUP_T YPE
				10883		,0
				10884		,'F oreign Cou ntry/Other ' AS CODE
				10885		,'F oreign Cou ntry/Other ' AS NAME
				10886		,0 AS PARENT_ ID
				10887		,99 99 AS SORT _ORDER
				10888		UNION ALL
				10889		SELECT 'AD MINTRACKIN G_FLAG_ACT IVE' AS LO OKUP_TYPE
				10890		,STD_REGI STRY_FLAG_ ID AS ID
				10891		,RE GISTRY_FLA G_NAME AS CODE
				10892		,RE GISTRY_FLA G_NAME AS NAME
				10893		,0 AS PARENT_ ID
				10894		,1 AS SORT_OR DER
				10895		FROM AHOBP R.STD_REGI STRY_FLAG
				10896		WHERE ACTI VE_FLAG = 1
				10897		AND STD_ REGISTRY_F LAG_TYPE_I D = 1
				10898		AND (PRE DEFINED = 0
				10899		OR ( PREDEFINED = 1 AND R EGISTRY_FL AG_NAME = 'Eligibili ty Review - More Doc umentation Needed')) --2.0.13.1 changed t his line
				10900		UNION ALL
				10901		SELECT 'ST D_SERVICE_ STATUS' AS LOOKUP_TY PE
				10902		,STD_SERV ICE_STATUS _ID As ID
				10903		,SE RVICE_STAT US AS CODE
				10904		,SE RVICE_STAT US AS NAME
				10905		,0 AS PARENT_ ID
				10906		,1 AS SORT_OR DER
				10907		FROM AHO BPR.STD_SE RVICE_STAT US
				10908		WHERE STD _SERVICE_S TATUS_ID > 0
				10909		UNION AL L
				10910		SELECT 'ST D_FORM_QUE STION' AS LOOKUP_TYP E
				10911		,STD_FO RM_QUESTIO N_ID As ID
				10912		,FO RM_QUESTIO N_UNIQUE_I D AS CODE
				10913		,FO RM_QUESTIO N_UNIQUE_I D AS NAME
				10914		,0 AS PARENT_ ID
				10915		,1 AS SORT_OR DER
				10916		FROM AHO BPR.STD_FO RM_QUESTIO N
				10917		UNION ALL
				10918		SELECT 'RE GISTRY_STA TUS_INELIG IBLE' AS L OOKUP_TYPE
				10919		,STD_REGI STRANT_STA TUS_ID AS ID
				10920		,RE GISTRANT_S TATUS AS C ODE
				10921		,RE GISTRANT_S TATUS AS N AME
				10922		,0 AS PARENT_ ID
				10923		,ST D_REGISTRA NT_STATUS_ ID AS SORT _ORDER
				10924		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				10925		WHERE ST D_REGISTRA NT_STATUS_ ID IN (3, 4, 5)
				10926		UNION ALL
				10927		SELECT 'RE GISTRY_STA TUS_REVIEW ED' AS LOO KUP_TYPE
				10928		,STD_REGI STRANT_STA TUS_ID AS ID
				10929		,RE GISTRANT_S TATUS AS C ODE
				10930		,RE GISTRANT_S TATUS AS N AME
				10931		,0 AS PARENT_ ID
				10932		,ST D_REGISTRA NT_STATUS_ ID AS SORT _ORDER
				10933		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				10934		WHERE ST D_REGISTRA NT_STATUS_ ID IN (5, 8)
				10935		UNION ALL
				10936		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				10937		,1 AS I D
				10938		,'A ll' AS COD E
				10939		,'A ll' AS NAM E
				10940		,0 AS PARENT_ ID
				10941		,1 AS SORT_OR DER
				10942		UNION ALL
				10943		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				10944		,2 AS I D
				10945		,'F acility' A S CODE
				10946		,'F acility' A S NAME
				10947		,0 AS PARENT_ ID
				10948		,2 AS SORT_OR DER
				10949		UNION ALL
				10950		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				10951		,3 AS I D
				10952		,'V ISN' AS CO DE
				10953		,'V ISN' AS NA ME
				10954		,0 AS PARENT_ ID
				10955		,3 AS SORT_OR DER
				10956		UNION ALL
				10957		SELECT 'SU BPOPULATIO N_FLAG_ALL ' AS LOOKU P_TYPE
				10958		,STD_RE GISTRY_FLA G_ID AS ID
				10959		,RE GISTRY_FLA G_NAME AS CODE
				10960		,RE GISTRY_FLA G_NAME AS NAME
				10961		,0 AS PARENT_ ID
				10962		,1 AS SORT_OR DER
				10963		FROM AHOBP R.STD_REGI STRY_FLAG
				10964		WHERE STD_ REGISTRY_F LAG_TYPE_I D = 2
				10965		UNION ALL
				10966		SELECT 'AD MIN_FLAG_A LL' AS LOO KUP_TYPE
				10967		,STD_RE GISTRY_FLA G_ID AS ID
				10968		,RE GISTRY_FLA G_NAME AS CODE
				10969		,RE GISTRY_FLA G_NAME AS NAME
				10970		,0 AS PARENT_ ID
				10971		,1 AS SORT_OR DER
				10972		FROM AHOBP R.STD_REGI STRY_FLAG
				10973		WHERE STD_ REGISTRY_F LAG_TYPE_I D = 1
				10974		UNION ALL
				10975		SELECT 'HE ALTH_FACTO R' AS LOOK UP_TYPE
				10976		,A.[STD _HEALTH_FA CTOR_ID] A S ID
				10977		,A. [NAME] AS CODE
				10978		,B. [DESCRIPTI ON] + ': ' + A.DESCR IPTION AS NAME
				10979		,0 AS PARENT_ ID
				10980		,1 AS SORT_OR DER
				10981		FROM [AH OBPR].[STD _HEALTH_FA CTOR] A IN NER JOIN [ AHOBPR].[S TD_HEALTH_ FACTOR_CAT EGORY] B O N A.STD_HE ALTH_FACTO R_CATEGORY _ID = B.ST D_HEALTH_F ACTOR_CATE GORY_ID
				10982		UNION ALL
				10983		SELECT DIS TINCT 'DEP LOYMENT_CO UNTRY' AS LOOKUP_TYP E
				10984		,0 AS I D
				10985		,[D EPLOYMENT_ COUNTRY] A S CODE
				10986		,[D EPLOYMENT_ COUNTRY] A S NAME
				10987		,0 AS PARENT_ ID
				10988		,1 AS SORT_OR DER
				10989		FROM [AH OBPR].[REG ISTRANT_DE PLOYMENT]
				10990		UNION ALL
				10991		SELECT DIS TINCT 'DEP LOYMENT_CO UNTRY_EXPO SURE' AS L OOKUP_TYPE
				10992		,0 AS I D
				10993		,[D EPLOYMENT_ COUNTRY] A S CODE
				10994		,[D EPLOYMENT_ COUNTRY] A S NAME
				10995		,0 AS PARENT_ ID
				10996		,1 AS SORT_OR DER
				10997		FROM [AH OBPR].[REG ISTRANT_DE PLOYMENT] A JOIN AHO BPR.FORM_R ESPONSE_QU ESTION B
				10998		ON A.REGISTR ANT_DEPLOY MENT_ID = B.REGISTRA NT_DEPLOYM ENT_ID
				10999		UN ION ALL
				11000		SELECT 'ST D_RACE' AS LOOKUP_TY PE
				11001		,ID
				11002		,DE SCRIPTION AS CODE
				11003		,DE SCRIPTION AS NAME
				11004		,0 AS PARENT_ ID
				11005		,1 AS SORT_OR DER
				11006		FROM AHOBP R.VIEW_ETL _LOOKUP
				11007		WHERE TYPE = 'STD_RA CE'
				11008		AND ID > 0
				11009		UNION ALL
				11010		SELECT 'ST D_GENDER' AS LOOKUP_ TYPE
				11011		,ID
				11012		,DE SCRIPTION AS CODE
				11013		,DE SCRIPTION AS NAME
				11014		,0 AS PARENT_ ID
				11015		,1 AS SORT_OR DER
				11016		FROM AHOBP R.VIEW_ETL _LOOKUP
				11017		WHERE TYPE = 'STD_GE NDER'
				11018		AND ID > 0
				11019		UNION ALL
				11020		SELECT 'ST D_SEPARATI ONFAMILY' AS LOOKUP_ TYPE
				11021		,[ STD_SEPARA TION_FAMIL Y_ID] AS I D
				11022		,[ FAMILY_COD E] AS CODE
				11023		,[ FAMILY] A S NAME
				11024		,0 AS PARENT _ID
				11025		,1 AS SORT_O RDER
				11026		FROM AH OBPR.STD_S EPARATION_ FAMILY
				11027		WHERE [ STD_SEPARA TION_FAMIL Y_ID] > 0
				11028		UNION ALL
				11029		SELECT 'S TD_SEPARAT IONREASON' AS LOOKUP _TYPE
				11030		,[ STD_SEPARA TION_REASO N_ID] AS I D
				11031		,[ REASON_COD E] AS CODE
				11032		,[ REASON] AS NAME
				11033		,0 AS PARENT _ID
				11034		,1 AS SORT_O RDER
				11035		FROM AH OBPR.STD_S EPARATION_ REASON
				11036		WHERE [ STD_SEPARA TION_REASO N_ID] > 0
				11037		UNION ALL
				11038		SELECT 'ST D_ELIGIBLI TYSTATUS' AS LOOKUP_ TYPE
				11039		,ID
				11040		,DE SCRIPTION AS CODE
				11041		,DE SCRIPTION AS NAME
				11042		,0 AS PARENT_ ID
				11043		,1 AS SORT_OR DER
				11044		FROM AHOBP R.VIEW_ETL _LOOKUP
				11045		WHERE TYPE = 'STD_EL IGIBLITYST ATUS'
				11046		AND ID > 0
				11047		UNION ALL
				11048		SELECT 'ST D_ETHNICIT Y' AS LOOK UP_TYPE
				11049		,ID
				11050		,DE SCRIPTION AS CODE
				11051		,DE SCRIPTION AS NAME
				11052		,0 AS PARENT_ ID
				11053		,1 AS SORT_OR DER
				11054		FROM AHOBP R.VIEW_ETL _LOOKUP
				11055		WHERE TYPE = 'STD_ET HNICITY'
				11056		AND ID > 0
				11057		UNION ALL
				11058		SELECT 'S TD_CHARACT EROFSERVIC E' AS LOOK UP_TYPE
				11059		,STD_DI SCHARGE_CH ARACTER_ID As ID
				11060		,DI SCHARGE_CH ARACTER_CO DE AS CODE
				11061		,DI SCHARGE_CH ARACTER AS NAME
				11062		,0 AS PARENT_ ID
				11063		,1 AS SORT_OR DER
				11064		FROM AHO BPR.STD_DI SCHARGE_CH ARACTER
				11065		UNION ALL
				11066		SELECT 'TE MPLATE_MES SAGE_TITLE ' AS LOOKU P_TYPE
				11067		,TEMPLATE _ID AS ID
				11068		,TI TLE AS COD E
				11069		,TI TLE AS NAM E
				11070		,0 AS PARENT_ ID
				11071		,1 AS SORT_OR DER
				11072		FROM AHO BPR.EMAIL_ TEMPLATES
				11073		WHERE AC TIVE = 'Tr ue' AND CR EATEDBY_AD VANCED_USE R_FLAG = 0
				11074		AND TITL E NOT IN ( 'Eligible for Burn P it Registr y', 'Not E ligible fo r Burn Pit Registry' , 'New Fol low-up Que stions', ' Need More Documentat ion')
				11075		UNION ALL
				11076		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				11077		,2 As I D,'multipl eChoice' A S CODE,'Dr opdown Lis t - Multip le Choice' AS NAME,0 AS PARENT _ID,1 AS S ORT_ORDER
				11078		UNION ALL
				11079		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				11080		,1 As I D,'multiSe lect' AS C ODE,'Check boxes - Mu ltiple Sel ect' AS NA ME,0 AS PA RENT_ID,2 AS SORT_OR DER
				11081		UNION ALL
				11082		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				11083		,3 As I D,'text' A S CODE,'Ra dio Button s with Fre e Text' AS NAME,0 AS PARENT_ID ,3 AS SORT _ORDER
				11084		UNION ALL
				11085		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				11086		,4 As I D,'number' AS CODE,' Radio Butt ons with N umeric Val ue' AS NAM E,0 AS PAR ENT_ID,4 A S SORT_ORD ER
				11087		UNION ALL
				11088		SELECT 'FO LLOWUP_QUE STION_GROU P_LIST' AS LOOKUP_TY PE
				11089		,STD_FORM _ID AS ID
				11090		,NA ME AS CODE
				11091		,NA ME AS NAME
				11092		,0 AS PARENT_ ID
				11093		,1 AS SORT_OR DER
				11094		FROM AHO BPR.STD_FO RM
				11095		WHERE FO LLOWUP_FLA G = 1
				11096		UNION ALL
				11097		SELECT DIS TINCT 'CON TACT_PREFE RENCE' AS LOOKUP_TYP E
				11098		,0 AS I D
				11099		,[C ONTACT_PRE FERENCE] A S CODE
				11100		,[C ONTACT_PRE FERENCE] A S NAME
				11101		,0 AS PARENT_ ID
				11102		,1 AS SORT_OR DER
				11103		FROM [AH OBPR].[REG ISTRANT]
				11104		WHERE CO NTACT_PREF ERENCE > ' '
				11105		UNION ALL
				11106		SELECT 'MY _TEMPLATES _TITLE' AS LOOKUP_TY PE
				11107		,TEMPLATE _ID AS ID
				11108		,CR EATEDBY AS CODE
				11109		,TI TLE AS NAM E
				11110		,0 AS PARENT_ ID
				11111		,1 AS SORT_OR DER
				11112		FROM AHO BPR.EMAIL_ TEMPLATES
				11113		WHERE AC TIVE = 'Tr ue' AND CR EATEDBY_AD VANCED_USE R_FLAG = 1
				11114		UNION ALL
				11115		SELECT DIS TINCT 'ENR OLLMENT_ST ATUS' AS L OOKUP_TYPE
				11116		,0 AS I D
				11117		,[E NROLLMENT_ STATUS] AS CODE
				11118		,[E NROLLMENT_ STATUS] AS NAME
				11119		,0 AS PARENT_ ID
				11120		,1 AS SORT_OR DER
				11121		FROM [AH OBPR].[REG ISTRANT]
				11122		WHERE E NROLLMENT_ STATUS > ' ';
				11123
				11124		-- select * from [A HOBPR].[VI EW_LOOKUP]
				11125
				11126		GO
				11127		SET NOCOUN T ON;
				11128
				11129		DECLARE @ RegistryId int = (SE LECT ID FR OM [dbo].[ STD_REGIST RY] where [CODE] = N 'AHOBPR');
				11130		DECLARE @ Today Date time = GET DATE();
				11131
				11132		select * i nto ahobpr .std_gui_c ontrols_pr e2_0_24_1 from [dbo] .[STD_GUI_ CONTROLS] where [STD _REGISTRY_ ID] = @Reg istryId;
				11133
				11134		DELETE FRO M [dbo].[S TD_GUI_CON TROLS] WHE RE [STD_RE GISTRY_ID] = @Regist ryId;
				11135
				11136		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_SEARCH', 'Last Nam e', '2', ' BaseContro lTextBoxLa stName', N ULL, NULL, 'Registra nt Last Na me', '1', @Today, @T oday, 'DBA ', 'DBA', NULL, '100 ', NULL, ' False', 'T rue', 'Las t Name:<br />', NULL , NULL, NU LL, '50', 'PanelSear chCriteria ')
				11137		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_SEARCH', 'Last Fou r Digits o f SSN', '2 ', 'BaseCo ntrolTextB oxLast4SSN ', NULL, N ULL, 'Regi strant Las t Four Dig ists of SS N', '2', @ Today, @To day, 'DBA' , 'DBA', N ULL, '50', NULL, 'Fa lse', 'Tru e', 'Last Four Digit s of SSN:< br />', NU LL, NULL, NULL, '4', 'PanelSea rchCriteri a')
				11138		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_SEARCH', 'Registry Status', '4', 'Base ControlDro pdownListR egistrySta tus', NULL , NULL, 'R egistrant Registry S tatus', '4 ', @Today, @Today, ' DBA', 'DBA ', 'REGIST RY_STATUS' , NULL, NU LL, 'False ', 'True', 'Registry Status:<b r />', NUL L, NULL, N ULL, NULL, 'PanelSea rchCriteri a')
				11139		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_SEARCH', 'Registry Flags', ' 4', 'BaseC ontrolDrop downListRe gistryFlag ', NULL, N ULL, 'Regi strant Reg istry Flag s', '5', @ Today, @To day, 'DBA' , 'DBA', ' REGISTRY_F LAG', NULL , NULL, 'F alse', 'Tr ue', 'Regi stry Flags :<br />', NULL, NULL , NULL, NU LL, 'Panel SearchCrit eria')
				11140		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_ST ATUSBYLOCA TION', 'Re port Stat us Paramet ers', '5', 'BaseCont rolListBox Status', N ULL, NULL, 'Status i s the stat us of the registrant ’s questio nnaire: No Consent, Consent, N ot Eligibl e, Review, Review No t-Eligible , Review-E ligible, E ligible, a nd Partici pant. The Selection Criteria allows a u ser to fil ter with o ne or more statuses. ', '0', @T oday, @Tod ay, 'DBA', 'DBA', 'R EGISTRY_ST ATUS', '15 0', '150', 'False', 'True', 'S tatus:<br />', NULL, NULL, NUL L, NULL, ' PanelRepor tParm')
				11141		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_ST ATUSBYLOCA TION', 'Re port Sate Parameters ', '5', 'B aseControl ListBoxSta te', NULL, NULL, 'St ate is the state fro m the curr ent addres ses a Regi strant has in AHOBPR . The Sel ection Cri teria allo ws a user to filter with one o r more sta tes.', '0' , @Today, @Today, 'D BA', 'DBA' , 'STD_STA TE', '170' , '170', ' False', 'T rue', 'Sta te:<br />' , NULL, NU LL, NULL, NULL, 'Pan elReportPa rm')
				11142		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant F ull Name', '1', 'Bas eControlLa belName', NULL, NULL , 'Registr ant Full N ame', '0', @Today, @ Today, 'DB A', 'DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Na me: &nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelReg istrantInf o')
				11143		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant D ate of Bir th', '1', 'BaseContr olLabelDob ', NULL, N ULL, 'Regi strant Dat e of Birth ', '0', @T oday, @Tod ay, 'DBA', 'DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Date of Birth ( mm/dd/yyyy ):&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelRegis trantInfo' )
				11144		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant G ender', '1 ', 'BaseCo ntrolLabel Gender', N ULL, NULL, 'Registra nt Gender' , '0', @To day, @Toda y, 'DBA', 'DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Gender :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelRegist rantInfo')
				11145		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant D uty Status ', '1', 'B aseControl LabelDutyS tatus', NU LL, NULL, 'Registran t Duty Sta tus', '0', @Today, @ Today, 'DB A', 'DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Du ty Status: &nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelRegistr antInfo')
				11146		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant L ast 4 SSN' , '1', 'Ba seControlL abelLast4s sn', NULL, NULL, 'Re gistrant L ast 4 Digi sts of SSN ', '0', @T oday, @Tod ay, 'DBA', 'DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Last 4 SSN:&nbs p&nbsp', N ULL, NULL, NULL, NUL L, 'PanelR egistrantI nfo')
				11147		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant E dipi', '1' , 'BaseCon trolLabelE dipi', NUL L, NULL, ' Registrant Edipi', ' 0', @Today , @Today, 'DBA', 'DB A', NULL, NULL, NULL , 'False', 'False', 'EDIPI:&nb sp&nbsp', NULL, NULL , NULL, NU LL, 'Panel Registrant Info')
				11148		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant S tatus', '1 ', 'BaseCo ntrolLabel RegistrySt atus', NUL L, NULL, ' Registrant Status', '0', @Toda y, @Today, 'DBA', 'D BA', NULL, NULL, NUL L, 'False' , 'False', 'Status:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, 'Pan elRegistra ntInfo')
				11149		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant E mail', '1' , 'BaseCon trolLabelE mail', NUL L, NULL, ' Registrant Email', ' 0', @Today , @Today, 'DBA', 'DB A', NULL, NULL, NULL , 'False', 'False', 'Email:&nb sp&nbsp', NULL, NULL , NULL, NU LL, 'Panel Registrant Info')
				11150		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant P hone', '1' , 'BaseCon trolLabelP hone', NUL L, NULL, ' Registrant Phone', ' 0', @Today , @Today, 'DBA', 'DB A', NULL, NULL, NULL , 'False', 'False', 'Phone:&nb sp&nbsp', NULL, NULL , NULL, NU LL, 'Panel Registrant Info')
				11151		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant Q uestionnai re Complet ion Date', '1', 'Bas eControlLa belQuestio nnaireComp letionDate ', NULL, N ULL, 'Regi strant Que stionnaire Completio n Date', ' 0', @Today , @Today, 'DBA', 'DB A', NULL, NULL, NULL , 'False', 'False', 'Questionn aire Compl etion Date :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelRegist rantInfo')
				11152		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re gistrant A ddress', ' 1', 'BaseC ontrolLabe lAddress', NULL, NUL L, 'Regist rant Addre ss', '0', @Today, @T oday, 'DBA ', 'DBA', NULL, NULL , NULL, 'F alse', 'Fa lse', 'Add ress:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe gistrantIn fo')
				11153		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re port Healt h Concerns ', '1', 'B aseControl LabelHealt hConcern', NULL, NUL L, 'Report Health Co ncerns?', '0', @Toda y, @Today, 'DBA', 'D BA', NULL, NULL, NUL L, 'False' , 'False', 'Report H ealth Conc erns?&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe gistrantIn fo')
				11154		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Re quest to b e Seen', ' 1', 'BaseC ontrolLabe lRequestTo BeSeen', N ULL, NULL, 'Request to be Seen ?', '0', @ Today, @To day, 'DBA' , 'DBA', N ULL, NULL, NULL, 'Fa lse', 'Fal se', 'Requ est to be Seen?&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe gistrantIn fo')
				11155		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'Su bpopulatio n Flags', '1', 'Base ControlLab elSubpopul ationFlags ', NULL, N ULL, 'Subp opulation Flags for a Registra nt', '0', @Today, @T oday, 'DBA ', 'DBA', NULL, NULL , NULL, 'F alse', 'Fa lse', 'Sub population Flags:&nb sp&nbsp', NULL, NULL , NULL, NU LL, 'Panel Registrant Info')
				11156		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_USER_CON TROL', 'La st Admin F lag Set', '1', 'Base ControlLab elLastOutr each', NUL L, NULL, ' Last Admin Flag Set for a Regi strant', ' 0', @Today , @Today, 'DBA', 'DB A', NULL, NULL, NULL , 'False', 'False', 'Last Admi n Flag Set :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelRegist rantInfo')
				11157		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Duty S tatus', '5 ', 'BaseCo ntrolListB oxDutyStat us', NULL, NULL, 'Du ty Status is the mil itary stan ding of th e registra nt: Vetera n, Retiree , or Activ e Duty. Th e Selectio n Criteria allows th e user to filter wit h one or m ore status es.', '0', @Today, @ Today, 'DB A', 'DBA', 'STD_SERV ICE_STATUS ', NULL, N ULL, 'Fals e', 'True' , 'Duty St atus:<br / >', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				11158		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Questi on Number' , '4', 'Ba seControlD ropdownLis tQuestions ', NULL, N ULL, 'Spec ific Quest ion is a q uestion an d response from a co mpleted qu estionnair e. This da ta will on ly be avai lable for registrant s in Parti cipant sta tus. The Selection Criteria a llows the user to fi lter with one questi on and one or more r esponses.' , '0', @To day, @Toda y, 'DBA', 'DBA', 'ST D_FORM_QUE STION', NU LL, NULL, 'False', ' True', 'Qu estions:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lAdHocRepo rt')
				11159		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Questi on Respons e', '4', ' BaseContro lDropdownL istQuestio nReponse', NULL, NUL L, 'Specif ic Questio n is a que stion and response f rom a comp leted ques tionnaire. This data will only be availa ble for re gistrants in Partici pant statu s. The Se lection Cr iteria all ows the us er to filt er with on e question and one o r more res ponses.', '0', @Toda y, @Today, 'DBA', 'D BA', NULL, '150', '1 50', 'Fals e', 'True' , 'Answers :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelParame terAdHocRe port')
				11160		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Radio Button Hea lth Concer sn', '3', 'BaseContr olRadioBut tonListHea lthConcern s', NULL, NULL, 'Hea lth Concer ns is any positive r esponse to Q3.A–3.K by the reg istrant. T his data w ill only b e availabl e for regi strants in Participa nt status. The Selec tion Crite ria allows the user to filter with all a nswers, an y yes answ ers, or on ly no answ ers.', '0' , @Today, @Today, 'D BA', 'DBA' , NULL, NU LL, NULL, 'False', ' False', 'H ealth Conc erns:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelPa rameterAdH ocReport')
				11161		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Statu s Paramete rs', '5', 'BaseContr olListBoxS tatus', NU LL, NULL, 'Status is the statu s of the r egistrant’ s question naire: No Consent, C onsent, No t Eligible , Review, Review Not -Eligible, Review-El igible, El igible, an d Particip ant. The Selection Criteria a llows a us er to filt er with on e or more statuses.' , '0', @To day, @Toda y, 'DBA', 'DBA', 'RE GISTRY_STA TUS', '150 ', '150', 'False', ' True', 'St atus:<br / >', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				11162		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CHANGE_ST ATUS_REGIS TRANT_SEAR CH', 'Chan ge Status Registrant Search Pa rameters', '5', 'Bas eControlLi stBoxStatu s', NULL, NULL, 'Reg istrant Re gistry Sta tus', '0', @Today, @ Today, 'DB A', 'DBA', 'REGISTRY _STATUS_IN ELIGIBLE', '150', '1 50', 'Fals e', 'True' , 'Status: <br />', N ULL, NULL, NULL, NUL L, 'PanelS earchCrite ria')
				11163		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CHANGE_ST ATUS', 'Ch ange Statu s for a Re gistrant', '3', 'Bas eControlRa dioButtonL istStatus' , NULL, NU LL, 'Regis trant Regi stry Statu s', '0', @ Today, @To day, 'DBA' , 'DBA', ' REGISTRY_S TATUS_REVI EWED', NUL L, NULL, ' False', 'T rue', 'Cha nge Status To:&nbsp& nbsp&nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelCha ngeStatus' )
				11164		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Ans wer', '5', 'BaseCont rolListBox Answer', N ULL, NULL, 'Specific Question is a quest ion and re sponse fro m a comple ted questi onnaire. T his data w ill only b e availabl e for regi strants in Participa nt status. The Sele ction Crit eria allow s the user to filter with one question a nd one or more respo nses.', '0 ', @Today, @Today, ' DBA', 'DBA ', NULL, ' 200', '200 ', 'False' , 'True', 'Answer:<b r />', NUL L, NULL, N ULL, NULL, 'PanelPar ameterAdHo cReport')
				11165		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Sea rch Criter ia Name', '2', 'Base ControlTex tBoxSearch CriteriaNa me', 'Sear ch Criteri a Name is required.' , NULL, 'S earch Crit eria Name' , '0', @To day, @Toda y, 'DBA', 'DBA', NUL L, NULL, N ULL, 'True ', 'True', 'Search C riteria Na me: ', NUL L, NULL, ' OnSaveSear chCriteria ', '256', 'PanelPara meterAdHoc Report')
				11166		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents wit h Registra nt status= Participan t', '1', ' BaseContro lLabelPart icipantSta tus', NULL , NULL, 'N umber of r espondents with Regi strant sta tus=Partic ipant', '1 ', @Today, @Today, ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Number of respon dents with Registran t status=P articipant ', NULL, N ULL, NULL, NULL, 'Pa nelPartici pation')
				11167		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents wit h reported health co ncerns', ' 1', 'BaseC ontrolLabe lHealthCon cern', NUL L, NULL, ' Number of respondent s with rep orted heal th concern s', '2', @ Today, @To day, 'AHOB PR DBA', ' AHOBPR DBA ', NULL, N ULL, NULL, 'False', 'False', ' Number of respondent s with rep orted heal th concern s', NULL, NULL, NULL , NULL, 'P anelPartic ipation')
				11168		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents wit h no repor ted health concerns' , '1', 'Ba seControlL abelNoHeal thConcern' , NULL, NU LL, 'Numbe r of respo ndents wit h no repor ted health concerns' , '3', @To day, @Toda y, 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Nu mber of re spondents with no re ported hea lth concer ns', NULL, NULL, NUL L, NULL, ' PanelParti cipation')
				11169		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents wit h benefici ary status =Current V eteran', ' 1', 'BaseC ontrolLabe lVeteran', NULL, NUL L, 'Number of respon dents with beneficia ry status= Current Ve teran', '4 ', @Today, @Today, ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Number of respon dents with beneficia ry status= Current Ve teran', NU LL, NULL, NULL, NULL , 'PanelPa rticipatio n')
				11170		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents wit h benefici ary status =Active Du ty', '1', 'BaseContr olLabelAct iveDuty', NULL, NULL , 'Number of respond ents with beneficiar y status=A ctive Duty ', '5', @T oday, @Tod ay, 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' False', 'N umber of r espondents with bene ficiary st atus=Activ e Duty', N ULL, NULL, NULL, NUL L, 'PanelP articipati on')
				11171		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents wit h benefici ary status =Retiree', '1', 'Bas eControlLa belRetiree ', NULL, N ULL, 'Numb er of resp ondents wi th benefic iary statu s=Retiree' , '6', @To day, @Toda y, 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Nu mber of re spondents with benef iciary sta tus=Retire e', NULL, NULL, NULL , NULL, 'P anelPartic ipation')
				11172		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents Dep loyed to I raq on or after Sept 11, 2001' , '1', 'Ba seControlL abelIrapAf ter911', N ULL, NULL, 'Number o f responde nts Deploy ed to Iraq on or aft er Sept 11 , 2001', ' 7', @Today , @Today, 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Numbe r of respo ndents Dep loyed to I raq on or after Sept 11, 2001' , NULL, NU LL, NULL, NULL, 'Pan elParticip ation')
				11173		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents Dep loyed to A fghanistan on or aft er Sept 11 , 2001', ' 1', 'BaseC ontrolLabe lAfghanist anAfter911 ', NULL, N ULL, 'Numb er of resp ondents De ployed to Afghanista n on or af ter Sept 1 1, 2001', '8', @Toda y, @Today, 'AHOBPR D BA', 'AHOB PR DBA', N ULL, NULL, NULL, 'Fa lse', 'Fal se', 'Numb er of resp ondents De ployed to Afghanista n on or af ter Sept 1 1, 2001', NULL, NULL , NULL, NU LL, 'Panel Participat ion')
				11174		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents Dep loyed to S outhwest A sia theate r of opera tions afte r August 2 nd, 1990 a nd prior t o Septembe r 11, 2001 ', '1', 'B aseControl LabelAsiaB efore911', NULL, NUL L, 'Number of respon dents Depl oyed to So uthwest As ia theater of operat ions after August 2n d, 1990 an d prior to September 11, 2001' , '9', @To day, @Toda y, 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Nu mber of re spondents Deployed t o Southwes t Asia the ater of op erations a fter Augus t 2nd, 199 0 and prio r to Septe mber 11, 2 001', NULL , NULL, NU LL, NULL, 'PanelPart icipation' )
				11175		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents Dep loyed to S outhwest A sia (w/o I raq) on or after Sep t 11, 2001 ', '1', 'B aseControl LabelSouth westAsiaAf ter911', N ULL, NULL, 'Number o f responde nts Deploy ed to Sout hwest Asia (w/o Iraq ) on or af ter Sept 1 1, 2001', '10', @Tod ay, @Today , 'AHOBPR DBA', 'AHO BPR DBA', NULL, NULL , NULL, 'F alse', 'Fa lse', 'Num ber of res pondents D eployed to Southwest Asia (w/o Iraq) on or after S ept 11, 20 01', NULL, NULL, NUL L, NULL, ' PanelParti cipation')
				11176		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents tha t wish to discuss he alth conce rns (Answe r to Q7.B= Yes)', '1' , 'BaseCon trolLabelD iscussHeal thConcern' , NULL, NU LL, 'Numbe r of respo ndents tha t wish to discuss he alth conce rns (Answe r to Q7.B= Yes)', '11 ', @Today, @Today, ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Number of respon dents that wish to d iscuss hea lth concer ns (Answer to Q7.B=Y es)', NULL , NULL, NU LL, NULL, 'PanelPart icipation' )
				11177		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents tha t do not w ish to dis cuss healt h concerns (Answer t o Q7.B=No) ', '1', 'B aseControl LabelNoDis cussHealth Concern', NULL, NULL , 'Number of respond ents that do not wis h to discu ss health concerns ( Answer to Q7.B=No)', '12', @To day, @Toda y, 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Nu mber of re spondents that do no t wish to discuss he alth conce rns (Answe r to Q7.B= No)', NULL , NULL, NU LL, NULL, 'PanelPart icipation' )
				11178		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents tha t don’t kn ow if they wish to d iscuss hea lth concer ns (Answer to Q7.B=D on’t know) ', '1', 'B aseControl LabelUnkno wnDiscussH ealthConce rn', NULL, NULL, 'Nu mber of re spondents that don’t know if t hey wish t o discuss health con cerns (Ans wer to Q7. B=Don’t kn ow)', '13' , @Today, @Today, 'A HOBPR DBA' , 'AHOBPR DBA', NULL , NULL, NU LL, 'False ', 'False' , 'Number of respond ents that don’t know if they w ish to dis cuss healt h concerns (Answer t o Q7.B=Don ’t know)', NULL, NUL L, NULL, N ULL, 'Pane lParticipa tion')
				11179		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Media n number o f days fro m change o f Registra nt Record status=Eli gible to R egistrant Record sta tus=Partic ipant', '1 ', 'BaseCo ntrolLabel MedianTime CompleteFo rm', NULL, NULL, 'Me dian numbe r of days from chang e of Regis trant Reco rd status= Eligible t o Registra nt Record status=Par ticipant', '14', @To day, @Toda y, 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Me dian numbe r of days from chang e of Regis trant Reco rd status= Eligible t o Registra nt Record status=Par ticipant', NULL, NUL L, NULL, N ULL, 'Pane lParticipa tion')
				11180		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO RMATION', 'Report Du ty Status' , '5', 'Ba seControlL istBoxDuty Status', N ULL, NULL, 'Duty Sta tus is the military standing o f the regi strant: Ve teran, Ret iree, or A ctive Duty . The Sele ction Crit eria allow s the user to filter with one or more st atuses.', '0', @Toda y, @Today, 'DBA', 'D BA', 'STD_ SERVICE_ST ATUS', NUL L, NULL, ' False', 'T rue', 'Dut y Status:< br />', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				11181		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO RMATION', 'Report R egistrant Status', ' 5', 'BaseC ontrolList BoxStatus' , NULL, NU LL, 'Statu s is the s tatus of t he registr ant’s ques tionnaire: No Consen t, Consent , Not Elig ible, Revi ew, Review Not-Eligi ble, Revie w-Eligible , Eligible , and Part icipant. The Select ion Criter ia allows a user to filter wit h one or m ore status es.', '0', @Today, @ Today, 'DB A', 'DBA', 'REGISTRY _STATUS', '150', '15 0', 'False ', 'True', 'Status:< br />', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				11182		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO RMATION', 'Report Su bpopulatio n Flag', ' 4', 'BaseC ontrolDrop DownListSu bpopulatio nFlag', NU LL, NULL, 'Subpopula tion Flag is a flag on the reg istrant re cord set b y a Clinic al Portal user. The Selection Criteria allows the user to f ilter with one subpo pulation f lag.', '0' , @Today, @Today, 'D BA', 'DBA' , 'SUBPOPU LATION_FLA G_ALL', NU LL, NULL, 'False', ' True', 'Su bpopulatio n Flag:<br />', NULL , NULL, NU LL, NULL, 'PanelRepo rtParm')
				11183		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Subpop ulation Fl ag', '4', 'BaseContr olDropDown ListSubpop ulationFla g', NULL, NULL, 'Sub population Flag is a flag on t he registr ant record set by a Clinical P ortal user . The Sel ection Cri teria allo ws the use r to filte r with one subpopula tion flag. ', '0', @T oday, @Tod ay, 'DBA', 'DBA', 'S UBPOPULATI ON_FLAG_AL L', NULL, NULL, 'Fal se', 'True ', 'Subpop ulation Fl ag:&nbsp&n bsp', NULL , NULL, NU LL, NULL, 'PanelRepo rtParm')
				11184		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Hea lth Factor ', '5', 'B aseControl ListBoxHea lthFactor' , NULL, NU LL, 'Healt h Factors are entere d into the CPRS Temp late by a Health Car e Provider during th e Clinical Exposure Evaluation . This da ta will on ly be avai lable for registrant s in Parti cipant sta tus and ha ve had a C linical Ex posure Eva luation. The Select ion Criter ia allows the user t o filter w ith one or more heal th factors .', '0', @ Today, @To day, 'DBA' , 'DBA', ' HEALTH_FAC TOR', '350 ', '350', 'False', ' True', 'He alth Facto r:<br />', NULL, NUL L, NULL, N ULL, 'Pane lReportPar m')
				11185		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Dep loyment Co untry All' , '4', 'Ba seControlD ropDownLis tDeploymen tCountryAl l', NULL, NULL, 'Dep loyment Co untry rece ived from deployment data inte rfaces. T he Selecti on Criteri a allows t he user to filter wi th one cou ntry and b y all depl oyments. ', '0', @T oday, @Tod ay, 'DBA', 'DBA', 'D EPLOYMENT_ COUNTRY', NULL, NULL , 'False', 'True', ' Deployment Country ( All Deploy ments):&nb sp&nbsp', NULL, NULL , NULL, NU LL, 'Panel ReportParm ')
				11186		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Dep loyment Co untry With Exposure Response', '4', 'Bas eControlDr opDownList Deployment CountryExp osure', NU LL, NULL, 'Deploymen t Country received f rom deploy ment data interfaces . The Sel ection Cri teria allo ws the use r to filte r with one country a nd by depl oyments th at have ex posure res ponses. T he data fo r deployme nts that h ave exposu re respons es will on ly be avai lable for registrant s in Parti cipant sta tus.', '0' , @Today, @Today, 'D BA', 'DBA' , 'DEPLOYM ENT_COUNTR Y_EXPOSURE ', NULL, N ULL, 'Fals e', 'True' , 'Deploym ent Countr y (Deploym ents With Exposure R esponses): &nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelReportP arm')
				11187		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_EL IGIBILITY_ REVIEW', ' Report Re gistrant S tatus', '5 ', 'BaseCo ntrolListB oxStatus', NULL, NUL L, 'Status is the st atus of th e registra nt’s quest ionnaire: No Consent , Consent, Not Eligi ble, Revie w, Review Not-Eligib le, Review -Eligible, Eligible, and Parti cipant. T he Selecti on Criteri a allows a user to f ilter with one or mo re statuse s.', '0', @Today, @T oday, 'DBA ', 'DBA', 'REGISTRY_ STATUS', ' 150', '150 ', 'False' , 'True', 'Status:<b r />', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				11188		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CHANGE_ST ATUS_REGIS TRANT_SEAR CH', 'Last Name', '2 ', 'BaseCo ntrolTextB oxLastName ', NULL, N ULL, 'Regi strant Las t Name', ' 1', @Today , @Today, 'DBA', 'DB A', NULL, '100', NUL L, 'False' , 'True', 'Last Name :<br />', NULL, NULL , NULL, '5 0', 'Panel SearchCrit eria')
				11189		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CHANGE_ST ATUS_REGIS TRANT_SEAR CH', 'Last Four Digi ts of SSN' , '2', 'Ba seControlT extBoxLast 4SSN', NUL L, NULL, ' Registrant Last Four Digists o f SSN', '2 ', @Today, @Today, ' DBA', 'DBA ', NULL, ' 50', NULL, 'False', 'True', 'L ast Four D igits of S SN:<br />' , NULL, NU LL, NULL, '4', 'Pane lSearchCri teria')
				11190		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_PA RTICIPATIO N', 'Numbe r of respo ndents Dep loyed to D jibouti on or after Sept 11, 2 001', '1', 'BaseCont rolLabelDj iboutiAfte r911', NUL L, NULL, ' Number of respondent s Deployed to Djibou ti on or a fter Sept 11, 2001', '15', @To day, @Toda y, 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Nu mber of re spondents Deployed t o Djibouti on or aft er Sept 11 , 2001', N ULL, NULL, NULL, NUL L, 'PanelP articipati on')
				11191		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _HEALTH_FA CTOR', 'Re ported His tory of As thma as Re corded by the Provid er', '1', 'BaseContr olLabelAst hma', NULL , NULL, 'R eported Hi story of A sthma as R ecorded by the Provi der', '1', @Today, @ Today, 'AH OBPR DBA', 'AHOBPR D BA', NULL, NULL, NUL L, 'False' , 'False', 'Reported History o f Asthma a s Recorded by the Pr ovider', N ULL, NULL, NULL, NUL L, 'PanelH ealthFacto r')
				11192		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _HEALTH_FA CTOR', 'Re ported Ini tiation or Increase in Tobacco Smoking D uring Depl oyment', ' 1', 'BaseC ontrolLabe lSmokingDe ployment', NULL, NUL L, 'Report ed Initiat ion or Inc rease in T obacco Smo king Durin g Deployme nt', '2', @Today, @T oday, 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'False', 'Reported Initiation or Increa se in Toba cco Smokin g During D eployment' , NULL, NU LL, NULL, NULL, 'Pan elHealthFa ctor')
				11193		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _HEALTH_FA CTOR', 'Re ported Tob acco Smoki ng History ', '1', 'B aseControl LabelTobac co', NULL, NULL, 'Re ported Tob acco Smoki ng History ', '3', @T oday, @Tod ay, 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' False', 'R eported To bacco Smok ing Histor y', NULL, NULL, NULL , NULL, 'P anelHealth Factor')
				11194		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _HEALTH_FA CTOR', 'Pr esence of Birth Defe cts in Chi ldren', '1 ', 'BaseCo ntrolLabel BirthDefec ts', NULL, NULL, 'Pr esence of Birth Defe cts in Chi ldren', '4 ', @Today, @Today, ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Presen ce of Birt h Defects in Childre n', NULL, NULL, NULL , NULL, 'P anelHealth Factor')
				11195		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'F ull Name', '1', 'Bas eControlTe xtboxFullN ame', 'Ful l Name is required.' , NULL, 'F ull Name', '0', '201 5-05-05 00 :00:00.000 ', '2015-0 5-05 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Tru e', 'False ', 'Full N ame:', NUL L, NULL, ' alpha', NU LL, 'entry Panel')
				11196		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'F irst Name' , '1', 'Ba seControlT extboxFirs tName', 'F irst Name is require d.', NULL, 'First Na me', '1', '2015-05-0 7 00:00:00 .000', '20 15-05-07 0 0:00:00.00 0', 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'True', 'F alse', 'Fi rst Name:' , NULL, NU LL, 'alpha ', NULL, ' entryPanel ')
				11197		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'M iddle Name ', '1', 'B aseControl TextBoxMid dleName', NULL, NULL , 'Middle Name', '2' , '2015-05 -05 00:00: 00.000', ' 2015-05-05 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'False', 'Middle Na me:', NULL , NULL, NU LL, NULL, 'entryPane l')
				11198		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'L ast Name', '1', 'Bas eControlTe xtBoxLastN ame', 'Las t Name is required.' , NULL, 'L ast Name', '3', '201 5-05-05 00 :00:00.000 ', '2015-0 5-05 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Tru e', 'False ', 'Last N ame:', NUL L, NULL, ' alpha', NU LL, 'entry Panel')
				11199		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'M aiden Name ', '1', 'B aseControl TextBoxMai denName', NULL, NULL , 'Maiden Name', '4' , '2015-05 -05 00:00: 00.000', ' 2015-05-05 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'False', 'Maiden Na me:', NULL , NULL, NU LL, NULL, 'entryPane l')
				11200		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'E mployee Nu mber', '1' , 'BaseCon trolTextBo xEmployeeN umber', NU LL, NULL, 'Employee Number', ' 5', '2015- 05-05 00:0 0:00.000', '2015-05- 05 00:00:0 0.000', 'A HOBPR DBA' , 'AHOBPR DBA', NULL , NULL, NU LL, 'False ', 'False' , 'Employe e Number:' , NULL, NU LL, NULL, NULL, 'ent ryPanel')
				11201		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'J ob Title', '1', 'Bas eControlTe xtBoxJobTi tle', 'Job Title is required.' , NULL, 'J ob Title', '6', '201 5-05-05 00 :00:00.000 ', '2015-0 5-05 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Tru e', 'False ', 'Job Ti tle:', NUL L, NULL, ' alpha', NU LL, 'entry Panel')
				11202		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'E mail Addre ss', '1', 'BaseContr olTextBoxE mail', 'Em ail Addres s is requi red.', NUL L, 'Email Address', '7', '2015 -05-05 00: 00:00.000' , '2015-05 -05 00:00: 00.000', ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'True ', 'False' , 'Email A ddress:', NULL, NULL , 'alpha', NULL, 'en tryPanel')
				11203		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'P hone Numbe r', '1', ' BaseContro lTextBoxTe lephone', 'Telephone Number is required. ', NULL, ' Telephone Number', ' 8', '2015- 05-05 00:0 0:00.000', '2015-05- 05 00:00:0 0.000', 'A HOBPR DBA' , 'AHOBPR DBA', NULL , NULL, NU LL, 'True' , 'False', 'Telephon e Number:' , NULL, NU LL, 'alpha ', NULL, ' entryPanel ')
				11204		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _CREATE_AC COUNT', 'F ax', '1', 'BaseContr olTextBoxF ax', NULL, NULL, 'Fa x Number', '9', '201 5-05-05 00 :00:00.000 ', '2015-0 5-05 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Fax N umber:', N ULL, NULL, NULL, NUL L, 'entryP anel')
				11205		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Race', '1' , 'BaseCon trolLabelR ace', NULL , NULL, 'R egistrant' 's Race', '0', '2015 -05-19 13: 22:24.530' , '2015-05 -19 13:22: 24.530', ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Race:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, 'Pan elRegistra ntInformat ion')
				11206		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Ethnicity' , '1', 'Ba seControlL abelEthnic ity', NULL , NULL, 'E thnicity', '0', '201 5-05-19 13 :22:24.530 ', '2015-0 5-19 13:22 :24.530', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Ethni city:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe gistrantDe mographics ')
				11207		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Marital St atus', '1' , 'BaseCon trolLabelM aritalStat us', NULL, NULL, 'Ma ritalSttus ', '0', '2 015-05-19 13:22:24.5 30', '2015 -05-09 13: 22:24.530' , 'AHOBPR DBA', 'AHO BPR DBA', NULL, NULL , NULL, 'F alse', 'Fa lse', 'Mar ital Statu s:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelRegis trantDemog raphics')
				11208		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' VitalStatu s', '1', ' BaseContro lLabelVita lStatus', NULL, NULL , 'Vital S tatus', '0 ', '2015-0 5-19 13:22 :24.530', '2015-05-1 9 13:22:24 .530', 'AH OBPR DBA', 'AHOBPR D BA', NULL, NULL, NUL L, 'False' , 'False', 'Vital St atus:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe gistrantDe mographics ')
				11209		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Education Level', '1 ', 'BaseCo ntrolLabel EducationL evel', NUL L, NULL, ' Eduaction Level', '0 ', '2015-0 5-19 13:22 :24.530', '2015-05-1 9 13:22:24 .530', 'AH OBPR DBA', 'AHOBPR D BA', NULL, NULL, NUL L, 'False' , 'False', 'Educatio n Level:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lRegistran tDemograph ics')
				11210		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Current Br anch of Se rvice', '1 ', 'BaseCo ntrolLabel CurrentBra nchOfSvc', NULL, NUL L, 'Curren t Branch o f Service' , '0', '20 15-05-19 1 3:22:24.53 0', '2015- 05-19 13:2 2:24.530', 'AHOBPR D BA', 'AHOB PR DBA', N ULL, NULL, NULL, 'Fa lse', 'Fal se', 'Curr ent Branch Of Servic e:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelRegis trantDemog raphics')
				11211		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Branch of Service at First Log in', '1', 'BaseContr olLabelBra nchSvcFirs tLogin', N ULL, NULL, 'Branch o f Service at First L ogin', '0' , '2015-05 -19 13:22: 24.530', ' 2015-05-19 13:22:24. 530', 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'False', 'Branch of Service a t First Lo gin:&nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelReg istrantDem ographics' )
				11212		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Current Co mponent', '1', 'Base ControlLab elCurrentC omponent', NULL, NUL L, 'Curren t Componen t', '0', ' 2015-05-19 13:22:24. 530', '201 5-05-19 13 :22:24.530 ', 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'F alse', 'Cu rrent Comp onent:&nbs p&nbsp', N ULL, NULL, NULL, NUL L, 'PanelR egistrantD emographic s')
				11213		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Component at FirstLo gin', '1', 'BaseCont rolLabelCo mponentFir stLogin', NULL, NULL , 'Compone nt at Firs t Login', '0', '2015 -05-19 13: 22:24.530' , '2015-05 -19 13:22: 24.530', ' AHOBPR DBA ', 'AHOBPR DBA', NUL L, NULL, N ULL, 'Fals e', 'False ', 'Compon ent at Fir st Login:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, 'Pan elRegistra ntDemograp hics')
				11214		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Most recen t Separati on Type', '1', 'Base ControlLab elMostRece ntSepType' , NULL, NU LL, 'Most recent Sep aration Ty pe', '0', '2015-05-1 9 13:22:24 .530', '20 15-05-19 1 3:22:24.53 0', 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' False', 'M ost recent Separatio n Type:&nb sp&nbsp ', NULL, NUL L, NULL, N ULL, 'Pane lSeparatio nInfo')
				11215		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Separation Type at F irst Login ', '1', 'B aseControl LabelSepTy peFirstLog in', NULL, NULL, 'Se paration T ype at Fir st Login', '0', '201 5-05-19 13 :22:24.530 ', '2015-0 5-19 13:22 :24.530', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Separ ation Type at First Login:&nbs p&nbsp ', NULL, NUL L, NULL, N ULL, 'Pane lSeparatio nInfo')
				11216		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Most recen t Separati on Date', '1', 'Base ControlLab elMostRece ntSepDate' , NULL, NU LL, 'Most recent Sep aration Da te', '0', '2015-05-1 9 13:22:24 .530', '20 15-05-19 1 3:22:24.53 0', 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' False', 'M ost recent Separatio n Date:&nb sp&nbsp ', NULL, NUL L, NULL, N ULL, 'Pane lSeparatio nInfo')
				11217		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Separation Date at F irst Login ', '1', 'B aseControl LabelSepDa teFirstLog in', NULL, NULL, 'Se paration D ate at Fir st Login', '0', '201 5-05-19 13 :22:24.530 ', '2015-0 5-19 13:22 :24.530', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Separ ation Date at First Login:&nbs p&nbsp ', NULL, NUL L, NULL, N ULL, 'Pane lSeparatio nInfo')
				11218		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Contact Pr eference', '1', 'Bas eControlLa belContact Preferance ', NULL, N ULL, 'Cont act Prefer ence', '0' , '2015-05 -19 13:22: 24.530', ' 2015-05-19 13:22:24. 530', 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'False', 'Contact P reference: &nbsp&nbsp ', NULL, NULL, NUL L, NULL, ' PanelCurre ntContactI nfo')
				11219		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Phone', '1 ', 'BaseCo ntrolLabel Phone', NU LL, NULL, 'Phone', ' 0', '2015- 05-19 13:2 2:24.530', '2015-05- 19 13:22:2 4.530', 'A HOBPR DBA' , 'AHOBPR DBA', NULL , NULL, NU LL, 'False ', 'False' , 'Phone:& nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelCurrent ContactInf o')
				11220		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Mobile', ' 1', 'BaseC ontrolLabe lMobile', NULL, NULL , 'Mobile' , '0', '20 15-05-19 1 3:22:24.53 0', '2015- 05-19 13:2 2:24.530', 'AHOBPR D BA', 'AHOB PR DBA', N ULL, NULL, NULL, 'Fa lse', 'Fal se', 'Mobi le:&nbsp&n bsp ', NU LL, NULL, NULL, NULL , 'PanelCu rrentConta ctInfo')
				11221		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Email', '1 ', 'BaseCo ntrolLabel Email', NU LL, NULL, 'Email', ' 0', '2015- 05-19 13:2 2:24.530', '2015-05- 19 13:22:2 4.530', 'A HOBPR DBA' , 'AHOBPR DBA', NULL , NULL, NU LL, 'False ', 'False' , 'Email:& nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelCurrent ContactInf o')
				11222		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Address', '1', 'Base ControlLab elAddress' , NULL, NU LL, 'Addre ss', '0', '2015-05-1 9 13:22:24 .530', '20 15-05-19 1 3:22:24.53 0', 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' False', 'A ddress:&nb sp&nbsp ', NULL, NUL L, NULL, N ULL, 'Pane lCurrentCo ntactInfo' )
				11223		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO RMATION', 'Report Pa rmater Sta te', '5', 'BaseContr olListBoxS tate', NUL L, NULL, ' State is t he state f rom the cu rrent addr esses a Re gistrant h as in AHOB PR. The S election C riteria al lows a use r to filte r with one or more s tates.', ' 0', '2015- 05-26 12:0 0:00.000', '2015-05- 26 12:00:0 0.000', 'A HOBPR DBA' , 'AHOBPR DBA', 'STD _STATE', ' 170', '170 ', 'False' , 'True', 'State:<br />', NULL , NULL, NU LL, NULL, 'PanelRepo rtParm')
				11224		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Race', '4', 'Bas eControlDr opDownList Race', NUL L, NULL, ' Race is th e heredita ry group t o which th e registra nt identif ies with. The Select ion Criter ia allows the user t o filter b y one Race .', '0', ' 2015-06-03 13:22:24. 530', '201 5-06-03 13 :22:24.530 ', 'AHOBPR DBA', 'AH OBPR DBA', 'STD_RACE ', NULL, N ULL, 'Fals e', 'True' , 'Race:&n bsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelReportP arm')
				11225		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Gender ', '4', 'B aseControl DropDownLi stGender', NULL, NUL L, 'Gender is the se x of the r egistrant. The Selec tion Crite ria allows the user to filter by one Gen der.', '0' , '2015-06 -04 00:00: 00.000', ' 2015-06-04 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', 'STD_G ENDER', NU LL, NULL, 'False', ' True', 'Ge nder: ', NULL, NULL , NULL, NU LL, 'Panel ReportParm ')
				11226		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Separa tion Type' , '4', 'Ba seControlD ropDownLis tSeparatio nType', NU LL, NULL, 'Separatio n Type is reason for the Regis trants mos t recent s eparation. The Sele ction Crit eria allow s the user to filter by one Se paration T ype.', '0' , '2015-06 -04 00:00: 00.000', ' 2015-06-04 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', 'STD_S EPARATIONR EASON', NU LL, NULL, 'False', ' True', 'Se paration T ype:&nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				11227		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Ethnic ity', '4', 'BaseCont rolDropDow nListEthni city', NUL L, NULL, ' Ethnicity is the eth nic affili ation of t he Registr ant. The S election C riteria al lows the u ser to fil ter by one Ethnicity .', '0', ' 2015-06-04 00:00:00. 000', '201 5-06-04 00 :00:00.000 ', 'AHOBPR DBA', 'AH OBPR DBA', 'STD_ETHN ICITY', NU LL, NULL, 'False', ' True', 'Et hnicity:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lReportPar m')
				11228		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_AD HOC', 'Rep ort Enroll ment Statu s', '4', ' BaseContro lDropDownL istEnrollm entStatus' , NULL, NU LL, 'Healt h Care Enr ollment St atus is th e Registra nt’s statu s in VA Ca re. The Se lection Cr iteria all ows the us er to filt er by one Health Car e Enrollme nt Status. ', '0', '2 015-06-04 00:00:00.0 00', '2015 -06-04 00: 00:00.000' , 'AHOBPR DBA', 'AHO BPR DBA', 'ENROLLMEN T_STATUS', NULL, NUL L, 'False' , 'True', ' Health C are (VA Ca re) Enroll ment Statu s:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelRepor tParm')
				11229		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Duty Statu s', '1', ' BaseContro lLabelDuty Status', N ULL, NULL, NULL, '0' , '2015-06 -04 00:00: 00.000', ' 2015-06-17 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'True', ' Current Du ty Status: &nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelRegistr antDemogra phics')
				11230		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Duty Statu s at First Login', ' 1', 'BaseC ontrolLabe lDutyStatu sFirstLogi n', NULL, NULL, NULL , '0', '20 15-06-18 0 0:00:00.00 0', '2015- 06-18 00:0 0:00.000', 'AHOBPR D BA', 'AHOB PR DBA', N ULL, NULL, NULL, 'Fa lse', 'Tru e', 'Duty Status At First Logi n:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelRegis trantDemog raphics')
				11231		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REGISTRAN T_INFORMAT ION_USER_C ONTROL', ' Report Cha racter of Service', '1', 'Base ControlLab elCharOfSe rvice', NU LL, NULL, NULL, '0', '2015-06- 25 00:00:0 0.000', '2 015-06-25 00:00:00.0 00', 'AHOB PR DBA', ' AHOBPR DBA ', 'STD_CH ARACTEROFS ERVICE', N ULL, NULL, 'False', 'True', 'C haracter o f Service: &nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelCurrent ContactInf o')
				11232		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION', N'Q uestion Te xt', 2, N' BaseContro lTextboxQu estionText ', N'Quest ion Text i s required .', NULL, N'Question Text', 1, CAST(0x00 00A5450000 0000 AS Da teTime), C AST(0x0000 A545000000 00 AS Date Time), N'A HOBPR DBA' , N'AHOBPR DBA', NUL L, NULL, 3 00, 1, 0, N'Question Text: **& nbsp&nbsp' , NULL, NU LL, N'Save Question', 4000, N'P anelEditQu estion')
				11233		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION', N'Q uestion Ty pe', 7, N' BaseContro lRadioButt onListText ValueQuest ionType', N'Question Type is r equired.', NULL, N'Q uestion Ty pe', 2, CA ST(0x0000A 5450000000 0 AS DateT ime), CAST (0x0000A54 500000000 AS DateTim e), N'AHOB PR DBA', N 'AHOBPR DB A', N'TOOL _QUESTION_ TYPE', NUL L, NULL, 1 , 0, N'Que stion Type : **&nbsp' , NULL, NU LL, N'Save Question', NULL, N'P anelEditQu estion')
				11234		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION', N'Q uestion Ke y Words', 2, N'BaseC ontrolText boxQuestio nKeyWords' , NULL, NU LL, N'Ques tion Key W ords', 3, CAST(0x000 0A54500000 000 AS Dat eTime), CA ST(0x0000A 5450000000 0 AS DateT ime), N'AH OBPR DBA', N'AHOBPR DBA', NULL , NULL, 20 0, 0, 0, N 'Key Words :&nbsp&nbs p&nbsp&nbs p', NULL, NULL, NULL , 2000, N' PanelEditQ uestion')
				11235		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION', N'M inimum Val ue', 2, N' BaseContro lTextBoxMi nValue', N 'Minimum V alue is nu meric only .', N'^[0- 9]+$', N'M inimum Val ue for Fre e Text Num ber Field' , 4, CAST( 0x0000A545 00000000 A S DateTime ), CAST(0x 0000A54500 000000 AS DateTime), N'AHOBPR DBA', N'AH OBPR DBA', NULL, NUL L, NULL, 0 , 0, N'Min imum Value :&nbsp&nbs p', NULL, NULL, N'Sa veQuestion ', 256, N' PanelEditQ uestion')
				11236		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION', N'M ax Value', 2, N'Base ControlTex tBoxMaxVal ue', N'Max Value is numeric on ly.', N'^[ 0-9]+$', N 'Max Value for Free Text Numbe r Field', 5, CAST(0x 0000A54500 000000 AS DateTime), CAST(0x00 00A5450000 0000 AS Da teTime), N 'AHOBPR DB A', N'AHOB PR DBA', N ULL, NULL, NULL, 0, 0, N'Max V alue:&nbsp &nbsp', NU LL, NULL, N'SaveQues tion', 256 , N'PanelE ditQuestio n')
				11237		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION_GROUP ', N'Quest ion Group Name', 2, N'BaseCont rolTextbox FormName', N'Questio n Group Na me is requ ired.', NU LL, N'Ques tion Group Name', 1, CAST(0x00 00A5460000 0000 AS Da teTime), C AST(0x0000 A546000000 00 AS Date Time), N'A HOBPR DBA' , N'AHOBPR DBA', NUL L, NULL, 2 00, 1, 0, N'Question Group Nam e: **&nbsp &nbsp', NU LL, NULL, N'SaveQues tionGroup' , 256, N'P anelEditQu estionGrou p')
				11238		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _TOOL_QUES TION_GROUP ', N'Quest ion Group Title', 2, N'BaseCon trolTextbo xFormTitle ', N'Quest ion Group Title is r equired.', NULL, N'Q uestion Gr oup Title' , 1, CAST( 0x0000A546 00000000 A S DateTime ), CAST(0x 0000A54600 000000 AS DateTime), N'AHOBPR DBA', N'AH OBPR DBA', NULL, NUL L, 300, 1, 0, N'Ques tion Group Notes: ** &nbsp&nbsp ', NULL, N ULL, N'Sav eQuestionG roup', 500 , N'PanelE ditQuestio nGroup')
				11239		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Du ty Status' , '5', 'Ba seControlL istBoxDuty Status', N ULL, NULL, 'Duty Sta tus is the military standing o f the regi strant: Ve teran, Ret iree, or A ctive Duty . The Sele ction Crit eria allow s the user to filter with one or more st atuses.', '0', @Toda y, @Today, 'DBA', 'D BA', 'STD_ SERVICE_ST ATUS', NUL L, NULL, ' False', 'T rue', 'Dut y Status:< br />', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				11240		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Qu estion Num ber', '4', 'BaseCont rolDropdow nListQuest ions', NUL L, NULL, ' Specific Q uestion is a questio n and resp onse from a complete d question naire. Thi s data wil l only be available for regist rants in P articipant status. The Select ion Criter ia allows the user t o filter w ith one qu estion and one or mo re respons es.', '0', @Today, @ Today, 'DB A', 'DBA', 'STD_FORM _QUESTION' , NULL, NU LL, 'False ', 'True', 'Question s:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelAdHoc Report')
				11241		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Qu estion Res ponse', '4 ', 'BaseCo ntrolDropd ownListQue stionRepon se', NULL, NULL, 'Sp ecific Que stion is a question and respon se from a completed questionna ire. This data will only be av ailable fo r registra nts in Par ticipant s tatus. Th e Selectio n Criteria allows th e user to filter wit h one ques tion and o ne or more responses .', '0', @ Today, @To day, 'DBA' , 'DBA', N ULL, '150' , '150', ' False', 'T rue', 'Ans wers:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelPa rameterAdH ocReport')
				11242		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Ra dio Button Health Co ncersn', ' 3', 'BaseC ontrolRadi oButtonLis tHealthCon cerns', NU LL, NULL, 'Health Co ncerns is any positi ve respons e to Q3.A– 3.K by the registran t. This da ta will on ly be avai lable for registrant s in Parti cipant sta tus. The S election C riteria al lows the u ser to fil ter with a ll answers , any yes answers, o r only no answers.', '0', @Tod ay, @Today , 'DBA', ' DBA', NULL , NULL, NU LL, 'False ', 'False' , 'Health Concerns:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, 'Pan elParamete rAdHocRepo rt')
				11243		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report S tatus Para meters', ' 5', 'BaseC ontrolList BoxStatus' , NULL, NU LL, 'Statu s is the s tatus of t he registr ant’s ques tionnaire: No Consen t, Consent , Not Elig ible, Revi ew, Review Not-Eligi ble, Revie w-Eligible , Eligible , and Part icipant. The Select ion Criter ia allows a user to filter wit h one or m ore status es.', '0', @Today, @ Today, 'DB A', 'DBA', 'REGISTRY _STATUS', '150', '15 0', 'False ', 'True', 'Status:< br />', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				11244		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Answer', '5', 'Base ControlLis tBoxAnswer ', NULL, N ULL, 'Spec ific Quest ion is a q uestion an d response from a co mpleted qu estionnair e. This da ta will on ly be avai lable for registrant s in Parti cipant sta tus. The Selection Criteria a llows the user to fi lter with one questi on and one or more r esponses.' , '0', @To day, @Toda y, 'DBA', 'DBA', NUL L, '200', '200', 'Fa lse', 'Tru e', 'Answe r:<br />', NULL, NUL L, NULL, N ULL, 'Pane lParameter AdHocRepor t')
				11245		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Search Cr iteria Nam e', '2', ' BaseContro lTextBoxSe archCriter iaName', ' Search Cri teria Name is requir ed.', NULL , 'Search Criteria N ame', '0', @Today, @ Today, 'DB A', 'DBA', NULL, NUL L, NULL, ' True', 'Tr ue', 'Sear ch Criteri a Name: ', NULL, NUL L, 'OnSave SearchCrit eria', '25 6', 'Panel ParameterA dHocReport ')
				11246		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Su bpopulatio n Flag', ' 5', 'BaseC ontrolList BoxSubpopu lationFlag ', NULL, N ULL, 'Subp opulation Flag is a flag on th e registra nt record set by a C linical Po rtal user. The Sele ction Crit eria allow s the user to filter with one subpopulat ion flag.' , '0', '20 15-11-11 1 6:26:06.28 0', '2015- 11-11 16:2 6:06.280', 'DBA', 'D BA', 'SUBP OPULATION_ FLAG_ALL', '300', '3 00', 'Fals e', 'True' , 'Subpopu lation Fla g:<br>', N ULL, NULL, NULL, NUL L, 'PanelR eportParm' )
				11247		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Health Fa ctor', '5' , 'BaseCon trolListBo xHealthFac tor', NULL , NULL, 'H ealth Fact ors are en tered into the CPRS Template b y a Health Care Prov ider durin g the Clin ical Expos ure Evalua tion. Thi s data wil l only be available for regist rants in P articipant status an d have had a Clinica l Exposure Evaluatio n. The Se lection Cr iteria all ows the us er to filt er with on e or more health fac tors.', '0 ', @Today, @Today, ' DBA', 'DBA ', 'HEALTH _FACTOR', '350', '35 0', 'False ', 'True', 'Health F actor:<br />', NULL, NULL, NUL L, NULL, ' PanelRepor tParm')
				11248		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Deploymen t Country All', '4', 'BaseCont rolDropDow nListDeplo ymentCount ryAll', NU LL, NULL, 'Deploymen t Country received f rom deploy ment data interfaces . The Sel ection Cri teria allo ws the use r to filte r with one country a nd by all deployment s. ', '0' , @Today, @Today, 'D BA', 'DBA' , 'DEPLOYM ENT_COUNTR Y', NULL, NULL, 'Fal se', 'True ', 'Deploy ment Count ry (All De ployments) :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				11249		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Deploymen t Country With Expos ure Respon se', '4', 'BaseContr olDropDown ListDeploy mentCountr yExposure' , NULL, NU LL, 'Deplo yment Coun try receiv ed from de ployment d ata interf aces. The Selection Criteria allows the user to f ilter with one count ry and by deployment s that hav e exposure responses . The dat a for depl oyments th at have ex posure res ponses wil l only be available for regist rants in P articipant status.', '0', @Tod ay, @Today , 'DBA', ' DBA', 'DEP LOYMENT_CO UNTRY_EXPO SURE', NUL L, NULL, ' False', 'T rue', 'Dep loyment Co untry (Dep loyments W ith Exposu re Respons es):&nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				11250		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Ra ce', '4', 'BaseContr olDropDown ListRace', NULL, NUL L, 'Race i s the here ditary gro up to whic h the regi strant ide ntifies wi th. The Se lection Cr iteria all ows the us er to filt er by one Race.', '0 ', '2015-0 6-03 13:22 :24.530', '2015-06-0 3 13:22:24 .530', 'AH OBPR DBA', 'AHOBPR D BA', 'STD_ RACE', NUL L, NULL, ' False', 'T rue', 'Rac e:&nbsp&nb sp ', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				11251		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Ge nder', '4' , 'BaseCon trolDropDo wnListGend er', NULL, NULL, 'Ge nder is th e sex of t he registr ant. The S election C riteria al lows the u ser to fil ter by one Gender.', '0', '201 5-06-04 00 :00:00.000 ', '2015-0 6-04 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', 'S TD_GENDER' , NULL, NU LL, 'False ', 'True', 'Gender: ', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				11252		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Se paration T ype', '4', 'BaseCont rolDropDow nListSepar ationType' , NULL, NU LL, 'Separ ation Type is reason for the R egistrants most rece nt separat ion. The Selection Criteria a llows the user to fi lter by on e Separati on Type.', '0', '201 5-06-04 00 :00:00.000 ', '2015-0 6-04 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', 'S TD_SEPARAT IONREASON' , NULL, NU LL, 'False ', 'True', 'Separati on Type:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lReportPar m')
				11253		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report Et hnicity', '4', 'Base ControlDro pDownListE thnicity', NULL, NUL L, 'Ethnic ity is the ethnic af filiation of the Reg istrant. T he Selecti on Criteri a allows t he user to filter by one Ethni city.', '0 ', '2015-0 6-04 00:00 :00.000', '2015-06-0 4 00:00:00 .000', 'AH OBPR DBA', 'AHOBPR D BA', 'STD_ ETHNICITY' , NULL, NU LL, 'False ', 'True', 'Ethnicit y:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelRepor tParm')
				11254		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Report En rollment S tatus', '4 ', 'BaseCo ntrolDropD ownListEnr ollmentSta tus', NULL , NULL, 'H ealth Care Enrollmen t Status i s the Regi strant’s s tatus in V A Care. Th e Selectio n Criteria allows th e user to filter by one Health Care Enro llment Sta tus.', '0' , '2015-06 -04 00:00: 00.000', ' 2015-06-04 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', 'STD_E LIGIBLITYS TATUS', NU LL, NULL, 'False', ' True', ' H ealth Care (VA Care) Enrollmen t Status:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, 'Pan elReportPa rm')
				11255		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Template Title', '4 ', 'BaseCo ntrolDropD ownListTem plate', 'E mail/Notif ication is required. ', NULL, ' Message Te mplates', '0', '2015 -11-04 00: 00:00.000' , '2015-11 -04 00:00: 00.000', ' AHOBPR DBA ', 'AHOBPR DBA', 'TE MPLATE_MES SAGE_TITLE ', NULL, N ULL, 'True ', 'True', 'Email/No tification :&nbsp&nbs p', NULL, NULL,'send EmailMessa ge', NULL, 'PanelSen d')
				11256		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Question R esponse', 4, N'BaseC ontrolDrop downListQu estionRepo nse', NULL , NULL, N' Specific Q uestion is a questio n and resp onse from a complete d question naire. Thi s data wil l only be available for regist rants in P articipant status. The Select ion Criter ia allows the user t o filter w ith one qu estion and one or mo re respons es.', 0, C AST(0x0000 A549000000 00 AS Date Time), CAS T(0x0000A5 4900000000 AS DateTi me), N'DBA ', N'DBA', NULL, 150 , 150, 0, 1, N'Answe rs:&nbsp&n bsp', NULL , NULL, NU LL, NULL, N'PanelPar ameterSend Questions' )
				11257		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Radio Butt on Health Concersn', 3, N'Base ControlRad ioButtonLi stHealthCo ncerns', N ULL, NULL, N'Health Concerns i s any posi tive respo nse to Q3. A3.K by th e registra nt. This d ata will o nly be ava ilable for registran ts in Part icipant st atus. The Selection Criteria a llows the user to fi lter with all answer s, any yes answers, or only no answers.' , 0, CAST( 0x0000A549 00000000 A S DateTime ), CAST(0x 0000A54900 000000 AS DateTime), N'DBA', N 'DBA', NUL L, NULL, N ULL, 0, 0, N'Health Concerns:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, N'Pa nelParamet erSendQues tions')
				11258		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Status Par ameters', 5, N'BaseC ontrolList BoxStatus' , NULL, NU LL, N'Stat us is the status of the regist rants ques tionnaire: No Consen t, Consent , Not Elig ible, Revi ew, Review Not-Eligi ble, Revie w-Eligible , Eligible , and Part icipant. The Select ion Criter ia allows a user to filter wit h one or m ore status es.', 0, C AST(0x0000 A549000000 00 AS Date Time), CAS T(0x0000A5 4900000000 AS DateTi me), N'DBA ', N'DBA', N'REGISTR Y_STATUS', 150, 150, 0, 1, N'S tatus:<br />', NULL, NULL, NUL L, NULL, N 'PanelPara meterSendQ uestions')
				11259		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Answer', 5 , N'BaseCo ntrolListB oxAnswer', NULL, NUL L, N'Speci fic Questi on is a qu estion and response from a com pleted que stionnaire . This dat a will onl y be avail able for r egistrants in Partic ipant stat us. The S election C riteria al lows the u ser to fil ter with o ne questio n and one or more re sponses.', 0, CAST(0 x0000A5490 0000000 AS DateTime) , CAST(0x0 000A549000 00000 AS D ateTime), N'DBA', N' DBA', NULL , 200, 200 , 0, 1, N' Answer:<br />', NULL , NULL, NU LL, NULL, N'PanelPar ameterSend Questions' )
				11260		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', 'S ubpopulati on Flag', '5', 'Base ControlLis tBoxSubpop ulationFla g', NULL, NULL, 'Sub population Flag is a flag on t he registr ant record set by a Clinical P ortal user . The Sel ection Cri teria allo ws the use r to filte r with one subpopula tion flag. ', '0', '2 015-11-07 00:00:00.0 00', '2015 -11-07 00: 00:00.000' , 'DBA', ' DBA', 'SUB POPULATION _FLAG_ALL' , '300', ' 300', 'Fal se', 'True ', 'Subpop ulation Fl ag:<br>', NULL, NULL , NULL, NU LL, 'Panel ParameterS endQuestio ns')
				11261		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Health Fac tor', 5, N 'BaseContr olListBoxH ealthFacto r', NULL, NULL, N'He alth Facto rs are ent ered into the CPRS T emplate by a Health Care Provi der during the Clini cal Exposu re Evaluat ion. This data will only be a vailable f or registr ants in Pa rticipant status and have had a Clinical Exposure Evaluation . The Sel ection Cri teria allo ws the use r to filte r with one or more h ealth fact ors.', 0, CAST(0x000 0A54900000 000 AS Dat eTime), CA ST(0x0000A 5490000000 0 AS DateT ime), N'DB A', N'DBA' , N'HEALTH _FACTOR', 350, 350, 0, 1, N'He alth Facto r:<br />', NULL, NUL L, NULL, N ULL, N'Pan elParamete rSendQuest ions')
				11262		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Deployment Country A ll', 4, N' BaseContro lDropDownL istDeploym entCountry All', NULL , NULL, N' Deployment Country r eceived fr om deploym ent data i nterfaces. The Sele ction Crit eria allow s the user to filter with one country an d by all d eployments . ', 0, C AST(0x0000 A549000000 00 AS Date Time), CAS T(0x0000A5 4900000000 AS DateTi me), N'DBA ', N'DBA', N'DEPLOYM ENT_COUNTR Y', NULL, NULL, 0, 1 , N'Deploy ment Count ry (All De ployments) :&nbsp&nbs p', NULL, NULL, NULL , NULL, N' PanelParam eterSendQu estions')
				11263		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' Deployment Country W ith Exposu re Respons e', 4, N'B aseControl DropDownLi stDeployme ntCountryE xposure', NULL, NULL , N'Deploy ment Count ry receive d from dep loyment da ta interfa ces. The Selection Criteria a llows the user to fi lter with one countr y and by d eployments that have exposure responses. The data for deplo yments tha t have exp osure resp onses will only be a vailable f or registr ants in Pa rticipant status.', 0, CAST(0x 0000A54900 000000 AS DateTime), CAST(0x00 00A5490000 0000 AS Da teTime), N 'DBA', N'D BA', N'DEP LOYMENT_CO UNTRY_EXPO SURE', NUL L, NULL, 0 , 1, N'Dep loyment Co untry (Dep loyments W ith Exposu re Respons es):&nbsp& nbsp', NUL L, NULL, N ULL, NULL, N'PanelPa rameterSen dQuestions ')
				11264		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', N' List of Fo llow-up Qu estion Gro up', 4, N' BaseContro lDropDownL istFollowu pQuestionG roup', N'Q uestion Gr oup is req uired.', N ULL, N'Sel ect a foll ow-up ques tion group from the list', 0, CAST(0x000 0A54900000 000 AS Dat eTime), CA ST(0x0000A 5490000000 0 AS DateT ime), N'DB A', N'DBA' , N'FOLLOW UP_QUESTIO N_GROUP_LI ST', NULL, NULL, 1, 1, N'Quest ion Group: &nbsp&nbsp ', NULL, N ULL, N'Sen dQuestions ', NULL, N 'PanelPara meterSendQ uestions')
				11265		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Contact P reference' , '4', 'Ba seControlD ropDownLis tContactPr eference', NULL, NUL L, 'Contac t Preferen ce is for the prefer red method of being contacted. ', '0', '2 015-11-13 00:00:00.0 00', '2015 -11-13 00: 00:00.000' , 'AHOBPR DBA', 'AHO BPR DBA', 'CONTACT_P REFERENCE' , NULL, NU LL, 'False ', 'True', 'Contact Preference :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				11266		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Last Name ', '2', 'B aseControl TextBoxLas tName', NU LL, NULL, 'Registran t Last Nam e.', '0', '2015-11-1 3 00:00:00 .000', '20 15-11-13 0 0:00:00.00 0', 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' True', 'La st Name:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lReportPar m')
				11267		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Last Four Digits of SSN', '2' , 'BaseCon trolTextBo xLast4SSN' , NULL, NU LL, 'Regis trant Last Four Digi sts of SSN .', '0', ' 2015-11-13 00:00:00. 000', '201 5-11-13 00 :00:00.000 ', 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'T rue', 'Las t Four Dig its of SSN :&nbsp&nbs p', NULL, NULL, NULL , '4', 'Pa nelReportP arm')
				11268		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'AHOBPR Ev aluation', '3', 'Bas eControlRa dioButtonL istEvaluat ion', NULL , NULL, 'R adio butto n for Regi strant AHO BPR Evalua tion statu s.', '0', '2015-11-1 3 00:00:00 .000', '20 15-11-13 0 0:00:00.00 0', 'AHOBP R DBA', 'A HOBPR DBA' , NULL, NU LL, NULL, 'False', ' True', 'AH OBPR Evalu ation:&nbs p&nbsp', N ULL, NULL, NULL, NUL L, 'PanelR eportParm' )
				11269		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'Email', ' 3', 'BaseC ontrolRadi oButtonLis tEmail', N ULL, NULL, 'Radio bu tton for R egistrants with and without em ails.', '0 ', '2015-1 1-13 00:00 :00.000', '2015-11-1 3 00:00:00 .000', 'AH OBPR DBA', 'AHOBPR D BA', NULL, NULL, NUL L, 'False' , 'True', 'Emai:&nbs p&nbsp', N ULL, NULL, NULL, NUL L, 'PanelR eportParm' )
				11270		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MESSAGE_T EMPLATE', 'State', ' 5', 'BaseC ontrolList BoxState', NULL, NUL L, 'State is the sta te from th e current addresses a Registra nt has in AHOBPR. T he Selecti on Criteri a allows a user to f ilter with one or mo re states. ', '0', '2 015-11-13 00:00:00.0 00', '2015 -11-13 00: 00:00.000' , 'DBA', ' DBA', 'STD _STATE', ' 170', '170 ', 'False' , 'True', 'State:<br />', NULL , NULL, NU LL, NULL, 'PanelRepo rtParm')
				11271		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', 'L ast Name', '2', 'Bas eControlTe xtBoxLastN ame', NULL , NULL, 'R egistrant Last Name' , '0', '20 15-11-20 0 0:00:00.00 0', '2015- 11-20 00:0 0:00.000', 'DBA', 'D BA', NULL, NULL, NUL L, 'False' , 'True', 'Last Name :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelParame terSendQue stions')
				11272		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _SEND_QUES TIONS', 'L ast 4 digi ts of SSN' , '2', 'Ba seControlT extBoxLast 4SSN', NUL L, NULL, ' Registrant last Four Digist of SSN', '0' , '2015-11 -20 00:00: 00.000', ' 2015-11-20 00:00:00. 000', 'DBA ', 'DBA', NULL, NULL , NULL, 'F alse', 'Tr ue', 'Last Four Digi ts of SSN: &nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelParamet erSendQues tions')
				11273		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Report Radio Butt on Health Concersn', '3', 'Bas eControlRa dioButtonL istHealthC oncerns', NULL, NULL , 'Health Concerns i s any posi tive respo nse to Q3. A–3.K by t he registr ant. This data will only be av ailable fo r registra nts in Par ticipant s tatus. The Selection Criteria allows the user to f ilter with all answe rs, any ye s answers, or only n o answers. ', '0', @T oday, @Tod ay, 'DBA', 'DBA', NU LL, NULL, NULL, 'Fal se', 'Fals e', 'Healt h Concerns :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelAddFla g')
				11274		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Report Status Pa rameters', '5', 'Bas eControlLi stBoxStatu s', NULL, NULL, 'Sta tus is the status of the regis trant’s qu estionnair e: No Cons ent, Conse nt, Not El igible, Re view, Revi ew Not-Eli gible, Rev iew-Eligib le, Eligib le, and Pa rticipant. The Sele ction Crit eria allow s a user t o filter w ith one or more stat uses.', '0 ', @Today, @Today, ' DBA', 'DBA ', 'REGIST RY_STATUS' , '150', ' 150', 'Fal se', 'True ', 'Status :<br />', NULL, NULL , NULL, NU LL, 'Panel AddFlag')
				11275		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Report Subpopulat ion Flag', '5', 'Bas eControlLi stBoxSubpo pulationFl ag', NULL, NULL, 'Su bpopulatio n Flag is a flag on the regist rant recor d set by a Clinical Portal use r. The Se lection Cr iteria all ows the us er to filt er with on e subpopul ation flag .', '0', ' 2015-11-11 16:26:06. 280', '201 5-11-11 16 :26:06.280 ', 'DBA', 'DBA', 'SU BPOPULATIO N_FLAG_ALL ', '300', '300', 'Fa lse', 'Tru e', 'Subpo pulation F lag:<br>', NULL, NUL L, NULL, N ULL, 'Pane lAddFlag')
				11276		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Deploym ent Countr y All', '4 ', 'BaseCo ntrolDropD ownListDep loymentCou ntryAll', NULL, NULL , 'Deploym ent Countr y received from depl oyment dat a interfac es. The S election C riteria al lows the u ser to fil ter with o ne country and by al l deployme nts. ', ' 0', @Today , @Today, 'DBA', 'DB A', 'DEPLO YMENT_COUN TRY', NULL , NULL, 'F alse', 'Tr ue', 'Depl oyment Cou ntry (All Deployment s):&nbsp&n bsp', NULL , NULL, NU LL, NULL, 'PanelAddF lag')
				11277		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Deploym ent Countr y With Exp osure Resp onse', '4' , 'BaseCon trolDropDo wnListDepl oymentCoun tryExposur e', NULL, NULL, 'Dep loyment Co untry rece ived from deployment data inte rfaces. T he Selecti on Criteri a allows t he user to filter wi th one cou ntry and b y deployme nts that h ave exposu re respons es. The d ata for de ployments that have exposure r esponses w ill only b e availabl e for regi strants in Participa nt status. ', '0', @T oday, @Tod ay, 'DBA', 'DBA', 'D EPLOYMENT_ COUNTRY_EX POSURE', N ULL, NULL, 'False', 'True', 'D eployment Country (D eployments With Expo sure Respo nses):&nbs p&nbsp', N ULL, NULL, NULL, NUL L, 'PanelA ddFlag')
				11278		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Admin T racking Fl ag', '4', 'BaseContr olDropDown ListAdminF lag', NULL , NULL, 'S elect Admi n Tracking Flag. ', '0', @Tod ay, @Today , 'DBA', ' DBA', 'ADM INTRACKING _FLAG_ACTI VE', NULL, NULL, 'Fa lse', 'Tru e', 'Admin Flag Name :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelSubmit Flag')
				11279		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Subpopu lation Fla g', '4', ' BaseContro lDropDownL istSubpopF lag', NULL , NULL, 'S elect Subp opulation Flag.', '0 ', @Today, @Today, ' DBA', 'DBA ', 'SUBPOP ULATION_FL AG_ACTIVE' , NULL, NU LL, 'False ', 'True', 'Subpopul ation Flag Name:&nbs p&nbsp', N ULL, NULL, NULL, NUL L, 'PanelS ubmitFlag' )
				11280		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Registr y Flag Typ e', '4', ' BaseContro lDropDownL istFlagTyp e', NULL, NULL, 'Sel ect Regist ry Flag Ty pe.', '0', @Today, @ Today, 'DB A', 'DBA', 'REGISTRY _FLAG_TYPE ', NULL, N ULL, 'Fals e', 'True' , 'Registr yFlag Type :<br>', NU LL, NULL, NULL, NULL , 'PanelSu bmitFlag')
				11281		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Report Dut y Status', '5', 'Bas eControlLi stBoxDutyS tatus', NU LL, NULL, 'Duty Stat us is the military s tanding of the regis trant: Vet eran, Reti ree, or Ac tive Duty. The Selec tion Crite ria allows the user to filter with one o r more sta tuses.', ' 0', @Today , @Today, 'DBA', 'DB A', 'STD_S ERVICE_STA TUS', NULL , NULL, 'F alse', 'Tr ue', 'Duty Status:<b r />', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				11282		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Report Que stion Numb er', '4', 'BaseContr olDropdown ListQuesti ons', NULL , NULL, 'S pecific Qu estion is a question and respo nse from a completed questionn aire. This data will only be a vailable f or registr ants in Pa rticipant status. T he Selecti on Criteri a allows t he user to filter wi th one que stion and one or mor e response s.', '0', @Today, @T oday, 'DBA ', 'DBA', 'STD_FORM_ QUESTION', NULL, NUL L, 'False' , 'True', 'Questions :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelAdHocR eport')
				11283		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Report Que stion Resp onse', '4' , 'BaseCon trolDropdo wnListQues tionRepons e', NULL, NULL, 'Spe cific Ques tion is a question a nd respons e from a c ompleted q uestionnai re. This d ata will o nly be ava ilable for registran ts in Part icipant st atus. The Selection Criteria allows the user to f ilter with one quest ion and on e or more responses. ', '0', @T oday, @Tod ay, 'DBA', 'DBA', NU LL, '150', '150', 'F alse', 'Tr ue', 'Answ ers:&nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelPar ameterAdHo cReport')
				11284		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Report Rad io Button Health Con cersn', '3 ', 'BaseCo ntrolRadio ButtonList HealthConc erns', NUL L, NULL, ' Health Con cerns is a ny positiv e response to Q3.A–3 .K by the registrant . This dat a will onl y be avail able for r egistrants in Partic ipant stat us. The Se lection Cr iteria all ows the us er to filt er with al l answers, any yes a nswers, or only no a nswers.', '0', @Toda y, @Today, 'DBA', 'D BA', NULL, NULL, NUL L, 'False' , 'False', 'Health C oncerns:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lParameter AdHocRepor t')
				11285		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Report St atus Param eters', '5 ', 'BaseCo ntrolListB oxStatus', NULL, NUL L, 'Status is the st atus of th e registra nt’s quest ionnaire: No Consent , Consent, Not Eligi ble, Revie w, Review Not-Eligib le, Review -Eligible, Eligible, and Parti cipant. T he Selecti on Criteri a allows a user to f ilter with one or mo re statuse s.', '0', @Today, @T oday, 'DBA ', 'DBA', 'REGISTRY_ STATUS', ' 150', '150 ', 'False' , 'True', 'Status:<b r />', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				11286		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Answer', ' 5', 'BaseC ontrolList BoxAnswer' , NULL, NU LL, 'Speci fic Questi on is a qu estion and response from a com pleted que stionnaire . This dat a will onl y be avail able for r egistrants in Partic ipant stat us. The S election C riteria al lows the u ser to fil ter with o ne questio n and one or more re sponses.', '0', @Tod ay, @Today , 'DBA', ' DBA', NULL , '200', ' 200', 'Fal se', 'True ', 'Answer :<br />', NULL, NULL , NULL, NU LL, 'Panel ParameterA dHocReport ')
				11287		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Search Cri teria Name ', '2', 'B aseControl TextBoxSea rchCriteri aName', 'S earch Crit eria Name is require d.', NULL, 'Search C riteria Na me', '0', @Today, @T oday, 'DBA ', 'DBA', NULL, NULL , NULL, 'T rue', 'Tru e', 'Searc h Criteria Name: ', NULL, NULL , 'OnSaveS earchCrite ria', '256 ', 'PanelP arameterAd HocReport' )
				11288		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Report Sub population Flag', '5 ', 'BaseCo ntrolListB oxSubpopul ationFlag' , NULL, NU LL, 'Subpo pulation F lag is a f lag on the registran t record s et by a Cl inical Por tal user. The Selec tion Crite ria allows the user to filter with one s ubpopulati on flag.', '0', '201 5-11-11 16 :26:06.280 ', '2015-1 1-11 16:26 :06.280', 'DBA', 'DB A', 'SUBPO PULATION_F LAG_ALL', '300', '30 0', 'False ', 'True', 'Subpopul ation Flag :<br>', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				11289		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Health Fac tor', '5', 'BaseCont rolListBox HealthFact or', NULL, NULL, 'He alth Facto rs are ent ered into the CPRS T emplate by a Health Care Provi der during the Clini cal Exposu re Evaluat ion. This data will only be a vailable f or registr ants in Pa rticipant status and have had a Clinical Exposure Evaluation . The Sel ection Cri teria allo ws the use r to filte r with one or more h ealth fact ors.', '0' , @Today, @Today, 'D BA', 'DBA' , 'HEALTH_ FACTOR', ' 350', '350 ', 'False' , 'True', 'Health Fa ctor:<br / >', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				11290		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Deployment Country A ll', '4', 'BaseContr olDropDown ListDeploy mentCountr yAll', NUL L, NULL, ' Deployment Country r eceived fr om deploym ent data i nterfaces. The Sele ction Crit eria allow s the user to filter with one country an d by all d eployments . ', '0', @Today, @ Today, 'DB A', 'DBA', 'DEPLOYME NT_COUNTRY ', NULL, N ULL, 'Fals e', 'True' , 'Deploym ent Countr y (All Dep loyments): &nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelReportP arm')
				11291		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Deployment Country W ith Exposu re Respons e', '4', ' BaseContro lDropDownL istDeploym entCountry Exposure', NULL, NUL L, 'Deploy ment Count ry receive d from dep loyment da ta interfa ces. The Selection Criteria a llows the user to fi lter with one countr y and by d eployments that have exposure responses. The data for deplo yments tha t have exp osure resp onses will only be a vailable f or registr ants in Pa rticipant status.', '0', @Toda y, @Today, 'DBA', 'D BA', 'DEPL OYMENT_COU NTRY_EXPOS URE', NULL , NULL, 'F alse', 'Tr ue', 'Depl oyment Cou ntry (Depl oyments Wi th Exposur e Response s):&nbsp&n bsp', NULL , NULL, NU LL, NULL, 'PanelRepo rtParm')
				11292		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Report Rac e', '4', ' BaseContro lDropDownL istRace', NULL, NULL , 'Race is the hered itary grou p to which the regis trant iden tifies wit h. The Sel ection Cri teria allo ws the use r to filte r by one R ace.', '0' , '2015-06 -03 13:22: 24.530', ' 2015-06-03 13:22:24. 530', 'AHO BPR DBA', 'AHOBPR DB A', 'STD_R ACE', NULL , NULL, 'F alse', 'Tr ue', 'Race :&nbsp&nbs p ', NULL , NULL, NU LL, NULL, 'PanelRepo rtParm')
				11293		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Report Gen der', '4', 'BaseCont rolDropDow nListGende r', NULL, NULL, 'Gen der is the sex of th e registra nt. The Se lection Cr iteria all ows the us er to filt er by one Gender.', '0', '2015 -06-04 00: 00:00.000' , '2015-06 -04 00:00: 00.000', ' AHOBPR DBA ', 'AHOBPR DBA', 'ST D_GENDER', NULL, NUL L, 'False' , 'True', 'Gender: ', NULL, N ULL, NULL, NULL, 'Pa nelReportP arm')
				11294		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Report Sep aration Ty pe', '4', 'BaseContr olDropDown ListSepara tionType', NULL, NUL L, 'Separa tion Type is reason for the Re gistrants most recen t separati on. The S election C riteria al lows the u ser to fil ter by one Separatio n Type.', '0', '2015 -06-04 00: 00:00.000' , '2015-06 -04 00:00: 00.000', ' AHOBPR DBA ', 'AHOBPR DBA', 'ST D_SEPARATI ONREASON', NULL, NUL L, 'False' , 'True', 'Separatio n Type:&nb sp&nbsp', NULL, NULL , NULL, NU LL, 'Panel ReportParm ')
				11295		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Report Eth nicity', ' 4', 'BaseC ontrolDrop DownListEt hnicity', NULL, NULL , 'Ethnici ty is the ethnic aff iliation o f the Regi strant. Th e Selectio n Criteria allows th e user to filter by one Ethnic ity.', '0' , '2015-06 -04 00:00: 00.000', ' 2015-06-04 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', 'STD_E THNICITY', NULL, NUL L, 'False' , 'True', 'Ethnicity :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				11296		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Report Enr ollment St atus', '4' , 'BaseCon trolDropDo wnListEnro llmentStat us', NULL, NULL, 'He alth Care Enrollment Status is the Regis trant’s st atus in VA Care. The Selection Criteria allows the user to f ilter by o ne Health Care Enrol lment Stat us.', '0', '2015-06- 04 00:00:0 0.000', '2 015-06-04 00:00:00.0 00', 'AHOB PR DBA', ' AHOBPR DBA ', 'STD_EL IGIBLITYST ATUS', NUL L, NULL, ' False', 'T rue', ' He alth Care (VA Care) Enrollment Status:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lReportPar m')
				11297		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Template T itle', '4' , 'BaseCon trolDropDo wnListTemp late', 'My Message i s required .', NULL, 'Message T emplates', '0', '201 5-11-04 00 :00:00.000 ', '2015-1 1-04 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', 'M Y_TEMPLATE S_TITLE', NULL, NULL , 'True', 'True', 'M y Message: &nbsp&nbsp ', NULL, N ULL,'sendE mailMessag e', NULL, 'PanelSend ')
				11298		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Last Name' , '2', 'Ba seControlT extBoxLast Name', NUL L, NULL, ' Registrant Last Name ', '0', '2 015-11-20 00:00:00.0 00', '2015 -11-20 00: 00:00.000' , 'DBA', ' DBA', NULL , NULL, NU LL, 'False ', 'True', 'Last Nam e:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelParam eterSendQu estions')
				11299		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Last 4 dig its of SSN ', '2', 'B aseControl TextBoxLas t4SSN', NU LL, NULL, 'Registran t last Fou r Digist o f SSN', '0 ', '2015-1 1-20 00:00 :00.000', '2015-11-2 0 00:00:00 .000', 'DB A', 'DBA', NULL, NUL L, NULL, ' False', 'T rue', 'Las t Four Dig its of SSN :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelParame terSendQue stions')
				11300		-- Build 2 .0.13.0
				11301		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Contact Pr eference', '4', 'Bas eControlDr opDownList ContactPre ference', NULL, NULL , 'Contact Preferenc e is for t he preferr ed method of being c ontacted.' , '0', '20 15-11-13 0 0:00:00.00 0', '2015- 11-13 00:0 0:00.000', 'AHOBPR D BA', 'AHOB PR DBA', ' CONTACT_PR EFERENCE', NULL, NUL L, 'False' , 'True', 'Contact P reference: &nbsp&nbsp ', NULL, N ULL, NULL, NULL, 'Pa nelReportP arm')
				11302		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' AHOBPR Eva luation', '3', 'Base ControlRad ioButtonLi stEvaluati on', NULL, NULL, 'Ra dio button for Regis trant AHOB PR Evaluat ion status .', '0', ' 2015-11-13 00:00:00. 000', '201 5-11-13 00 :00:00.000 ', 'AHOBPR DBA', 'AH OBPR DBA', NULL, NUL L, NULL, ' False', 'T rue', 'AHO BPR Evalua tion:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				11303		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' Email', '3 ', 'BaseCo ntrolRadio ButtonList Email', NU LL, NULL, 'Radio but ton for Re gistrants with and w ithout ema ils.', '0' , '2015-11 -13 00:00: 00.000', ' 2015-11-13 00:00:00. 000', 'AHO BPR DBA', 'AHOBPR DB A', NULL, NULL, NULL , 'False', 'True', ' Emai:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				11304		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _MY_SEND_M ESSAGE', ' State', '5 ', 'BaseCo ntrolListB oxState', NULL, NULL , 'State i s the stat e from the current a ddresses a Registran t has in A HOBPR. Th e Selectio n Criteria allows a user to fi lter with one or mor e states.' , '0', '20 15-11-13 0 0:00:00.00 0', '2015- 11-13 00:0 0:00.000', 'DBA', 'D BA', 'STD_ STATE', '1 70', '170' , 'False', 'True', ' State:<br />', NULL, NULL, NUL L, NULL, ' PanelRepor tParm')
				11305		-- Build 2 .0.14.0
				11306		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'State', '5', 'Bas eControlLi stBoxState ', NULL, N ULL, 'Stat e is the s tate from the curren t addresse s a Regist rant has i n AHOBPR. The Selec tion Crite ria allows a user to filter wi th one or more state s.', '0', '2015-11-1 3 00:00:00 .000', '20 15-11-13 0 0:00:00.00 0', 'DBA', 'DBA', 'S TD_STATE', '170', '1 70', 'Fals e', 'True' , 'State:< br />', NU LL, NULL, NULL, NULL , 'PanelAd dFlag')
				11307		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _ADD_FLAG' , 'Health Factor', ' 5', 'BaseC ontrolList BoxHealthF actor', NU LL, NULL, 'Health Fa ctors are entered in to the CPR S Template by a Heal th Care Pr ovider dur ing the Cl inical Exp osure Eval uation. T his data w ill only b e availabl e for regi strants in Participa nt status and have h ad a Clini cal Exposu re Evaluat ion. The Selection Criteria a llows the user to fi lter with one or mor e health f actors.', '0', @Toda y, @Today, 'DBA', 'D BA', 'HEAL TH_FACTOR' , '350', ' 350', 'Fal se', 'True ', 'Health Factor:<b r />', NUL L, NULL, N ULL, NULL, 'PanelAdd Flag')
				11308		-- Build 2 .0.15.0
				11309		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Report Duty Stat us', '5', 'BaseContr olListBoxD utyStatus' , NULL, NU LL, 'Duty Status is the milita ry standin g of the r egistrant: Veteran, Retiree, o r Active D uty. The S election C riteria al lows the u ser to fil ter with o ne or more statuses. ', '0', @T oday, @Tod ay, 'DBA', 'DBA', 'S TD_SERVICE _STATUS', NULL, NULL , 'False', 'True', ' Duty Statu s:<br />', NULL, NUL L, NULL, N ULL, 'Pane lReportPar m')
				11310		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Report Question Number', ' 4', 'BaseC ontrolDrop downListQu estions', NULL, NULL , 'Specifi c Question is a ques tion and r esponse fr om a compl eted quest ionnaire. This data will only be availab le for reg istrants i n Particip ant status . The Sel ection Cri teria allo ws the use r to filte r with one question and one or more resp onses.', ' 0', @Today , @Today, 'DBA', 'DB A', 'STD_F ORM_QUESTI ON', NULL, NULL, 'Fa lse', 'Tru e', 'Quest ions:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelAd HocReport' )
				11311		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Report Question Response', '4', 'Bas eControlDr opdownList QuestionRe ponse', NU LL, NULL, 'Specific Question i s a questi on and res ponse from a complet ed questio nnaire. Th is data wi ll only be available for regis trants in Participan t status. The Selec tion Crite ria allows the user to filter with one q uestion an d one or m ore respon ses.', '0' , @Today, @Today, 'D BA', 'DBA' , NULL, '1 50', '150' , 'False', 'True', ' Answers:&n bsp&nbsp', NULL, NUL L, NULL, N ULL, 'Pane lParameter AdHocRepor t')
				11312		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Report Radio But ton Health Concersn' , '3', 'Ba seControlR adioButton ListHealth Concerns', NULL, NUL L, 'Health Concerns is any pos itive resp onse to Q3 .A–3.K by the regist rant. This data will only be a vailable f or registr ants in Pa rticipant status. Th e Selectio n Criteria allows th e user to filter wit h all answ ers, any y es answers , or only no answers .', '0', @ Today, @To day, 'DBA' , 'DBA', N ULL, NULL, NULL, 'Fa lse', 'Fal se', 'Heal th Concern s:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelParam eterAdHocR eport')
				11313		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Report Status P arameters' , '5', 'Ba seControlL istBoxStat us', NULL, NULL, 'St atus is th e status o f the regi strant’s q uestionnai re: No Con sent, Cons ent, Not E ligible, R eview, Rev iew Not-El igible, Re view-Eligi ble, Eligi ble, and P articipant . The Sel ection Cri teria allo ws a user to filter with one o r more sta tuses.', ' 0', @Today , @Today, 'DBA', 'DB A', 'REGIS TRY_STATUS ', '150', '150', 'Fa lse', 'Tru e', 'Statu s:<br />', NULL, NUL L, NULL, N ULL, 'Pane lReportPar m')
				11314		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Answer ', '5', 'B aseControl ListBoxAns wer', NULL , NULL, 'S pecific Qu estion is a question and respo nse from a completed questionn aire. This data will only be a vailable f or registr ants in Pa rticipant status. T he Selecti on Criteri a allows t he user to filter wi th one que stion and one or mor e response s.', '0', @Today, @T oday, 'DBA ', 'DBA', NULL, '200 ', '200', 'False', ' True', 'An swer:<br / >', NULL, NULL, NULL , NULL, 'P anelParame terAdHocRe port')
				11315		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Search Criteria Name', '2' , 'BaseCon trolTextBo xSearchCri teriaName' , 'Search Criteria N ame is req uired.', N ULL, 'Sear ch Criteri a Name', ' 0', @Today , @Today, 'DBA', 'DB A', NULL, NULL, NULL , 'True', 'True', 'S earch Crit eria Name: ', NULL, NULL, 'OnS aveSearchC riteria', '256', 'Pa nelParamet erAdHocRep ort')
				11316		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Report Subpopula tion Flag' , '5', 'Ba seControlL istBoxSubp opulationF lag', NULL , NULL, 'S ubpopulati on Flag is a flag on the regis trant reco rd set by a Clinical Portal us er. The S election C riteria al lows the u ser to fil ter with o ne subpopu lation fla g.', '0', '2015-11-1 1 16:26:06 .280', '20 15-11-11 1 6:26:06.28 0', 'DBA', 'DBA', 'S UBPOPULATI ON_FLAG_AL L', '300', '300', 'F alse', 'Tr ue', 'Subp opulation Flag:<br>' , NULL, NU LL, NULL, NULL, 'Pan elReportPa rm')
				11317		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Health Factor', '5', 'Base ControlLis tBoxHealth Factor', N ULL, NULL, 'Health F actors are entered i nto the CP RS Templat e by a Hea lth Care P rovider du ring the C linical Ex posure Eva luation. This data will only be availab le for reg istrants i n Particip ant status and have had a Clin ical Expos ure Evalua tion. The Selection Criteria allows the user to f ilter with one or mo re health factors.', '0', @Tod ay, @Today , 'DBA', ' DBA', 'HEA LTH_FACTOR ', '350', '350', 'Fa lse', 'Tru e', 'Healt h Factor:< br />', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				11318		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Deploy ment Count ry All', ' 4', 'BaseC ontrolDrop DownListDe ploymentCo untryAll', NULL, NUL L, 'Deploy ment Count ry receive d from dep loyment da ta interfa ces. The Selection Criteria a llows the user to fi lter with one countr y and by a ll deploym ents. ', '0', @Toda y, @Today, 'DBA', 'D BA', 'DEPL OYMENT_COU NTRY', NUL L, NULL, ' False', 'T rue', 'Dep loyment Co untry (All Deploymen ts):&nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				11319		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Deploy ment Count ry With Ex posure Res ponse', '4 ', 'BaseCo ntrolDropD ownListDep loymentCou ntryExposu re', NULL, NULL, 'De ployment C ountry rec eived from deploymen t data int erfaces. The Select ion Criter ia allows the user t o filter w ith one co untry and by deploym ents that have expos ure respon ses. The data for d eployments that have exposure responses will only be availab le for reg istrants i n Particip ant status .', '0', @ Today, @To day, 'DBA' , 'DBA', ' DEPLOYMENT _COUNTRY_E XPOSURE', NULL, NULL , 'False', 'True', ' Deployment Country ( Deployment s With Exp osure Resp onses):&nb sp&nbsp', NULL, NULL , NULL, NU LL, 'Panel ReportParm ')
				11320		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Report Race', '4 ', 'BaseCo ntrolDropD ownListRac e', NULL, NULL, 'Rac e is the h ereditary group to w hich the r egistrant identifies with. The Selection Criteria allows the user to f ilter by o ne Race.', '0', '201 5-06-03 13 :22:24.530 ', '2015-0 6-03 13:22 :24.530', 'AHOBPR DB A', 'AHOBP R DBA', 'S TD_RACE', NULL, NULL , 'False', 'True', ' Race:&nbsp &nbsp ', NULL, NULL , NULL, NU LL, 'Panel ReportParm ')
				11321		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Report Gender', '4', 'Base ControlDro pDownListG ender', NU LL, NULL, 'Gender is the sex o f the regi strant. Th e Selectio n Criteria allows th e user to filter by one Gender .', '0', ' 2015-06-04 00:00:00. 000', '201 5-06-04 00 :00:00.000 ', 'AHOBPR DBA', 'AH OBPR DBA', 'STD_GEND ER', NULL, NULL, 'Fa lse', 'Tru e', 'Gende r: ', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				11322		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Report Separatio n Type', ' 4', 'BaseC ontrolDrop DownListSe parationTy pe', NULL, NULL, 'Se paration T ype is rea son for th e Registra nts most r ecent sepa ration. T he Selecti on Criteri a allows t he user to filter by one Separ ation Type .', '0', ' 2015-06-04 00:00:00. 000', '201 5-06-04 00 :00:00.000 ', 'AHOBPR DBA', 'AH OBPR DBA', 'STD_SEPA RATIONREAS ON', NULL, NULL, 'Fa lse', 'Tru e', 'Separ ation Type :&nbsp&nbs p', NULL, NULL, NULL , NULL, 'P anelReport Parm')
				11323		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Report Ethnicity ', '4', 'B aseControl DropDownLi stEthnicit y', NULL, NULL, 'Eth nicity is the ethnic affiliati on of the Registrant . The Sele ction Crit eria allow s the user to filter by one Et hnicity.', '0', '201 5-06-04 00 :00:00.000 ', '2015-0 6-04 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', 'S TD_ETHNICI TY', NULL, NULL, 'Fa lse', 'Tru e', 'Ethni city:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelRe portParm')
				11324		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Report Enrollmen t Status', '4', 'Bas eControlDr opDownList Enrollment Status', N ULL, NULL, 'Health C are Enroll ment Statu s is the R egistrant’ s status i n VA Care. The Selec tion Crite ria allows the user to filter by one Hea lth Care E nrollment Status.', '0', '2015 -06-04 00: 00:00.000' , '2015-06 -04 00:00: 00.000', ' AHOBPR DBA ', 'AHOBPR DBA', 'ST D_ELIGIBLI TYSTATUS', NULL, NUL L, 'False' , 'True', ' Health C are (VA Ca re) Enroll ment Statu s:&nbsp&nb sp', NULL, NULL, NUL L, NULL, ' PanelRepor tParm')
				11325		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Last N ame', '2', 'BaseCont rolTextBox LastName', NULL, NUL L, 'Regist rant Last Name', '0' , '2015-11 -20 00:00: 00.000', ' 2015-11-20 00:00:00. 000', 'DBA ', 'DBA', NULL, NULL , NULL, 'F alse', 'Tr ue', 'Last Name:&nbs p&nbsp', N ULL, NULL, NULL, NUL L, 'PanelP arameterSe ndQuestion s')
				11326		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Last 4 digits of SSN', '2' , 'BaseCon trolTextBo xLast4SSN' , NULL, NU LL, 'Regis trant last Four Digi st of SSN' , '0', '20 15-11-20 0 0:00:00.00 0', '2015- 11-20 00:0 0:00.000', 'DBA', 'D BA', NULL, NULL, NUL L, 'False' , 'True', 'Last Four Digits of SSN:&nbsp &nbsp', NU LL, NULL, NULL, NULL , 'PanelPa rameterSen dQuestions ')
				11327		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Contac t Preferen ce', '4', 'BaseContr olDropDown ListContac tPreferenc e', NULL, NULL, 'Con tact Prefe rence is f or the pre ferred met hod of bei ng contact ed.', '0', '2015-11- 13 00:00:0 0.000', '2 015-11-13 00:00:00.0 00', 'AHOB PR DBA', ' AHOBPR DBA ', 'CONTAC T_PREFEREN CE', NULL, NULL, 'Fa lse', 'Tru e', 'Conta ct Prefere nce:&nbsp& nbsp', NUL L, NULL, N ULL, NULL, 'PanelRep ortParm')
				11328		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'AHOBPR Evaluatio n', '3', ' BaseContro lRadioButt onListEval uation', N ULL, NULL, 'Radio bu tton for R egistrant AHOBPR Eva luation st atus.', '0 ', '2015-1 1-13 00:00 :00.000', '2015-11-1 3 00:00:00 .000', 'AH OBPR DBA', 'AHOBPR D BA', NULL, NULL, NUL L, 'False' , 'True', 'AHOBPR Ev aluation:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, 'Pan elReportPa rm')
				11329		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'Email' , '3', 'Ba seControlR adioButton ListEmail' , NULL, NU LL, 'Radio button fo r Registra nts with a nd without emails.', '0', '201 5-11-13 00 :00:00.000 ', '2015-1 1-13 00:00 :00.000', 'AHOBPR DB A', 'AHOBP R DBA', NU LL, NULL, NULL, 'Fal se', 'True ', 'Emai:& nbsp&nbsp' , NULL, NU LL, NULL, NULL, 'Pan elReportPa rm')
				11330		INSERT INT O [dbo].[S TD_GUI_CON TROLS] ([S TD_REGISTR Y_ID], [CA TEGORY], [ NAME], [BA SE_CONTROL _TYPE], [U SER_CONTRO L_ID], [VA LIDATION_E RROR_MESSA GE], [VALI DATION_REG ULAR_EXPRE SSION], [T OOL_TIP], [SORT_ORDE R], [CREAT ED], [UPDA TED], [CRE ATEDBY], [ UPDATEDBY] , [LOOKUP_ LIST_CATEG ORY], [BAS E_CONTROL_ WIDTH], [D ATA_ELEMEN T_WIDTH], [REQUIRED] , [INCLUDE _LABEL], [ LABEL_TEXT ], [LOOKUP _LIST_CATE GORY2], [L OOKUP_LIST _CATEGORY3 ], [VALIDA TION_GROUP ], [DATA_T YPE_MAX_LE NGTH], [PA NEL_NAME]) VALUES (@ RegistryId , N'AHOBPR _REPORT_CO NTACT_INFO ', 'State' , '5', 'Ba seControlL istBoxStat e', NULL, NULL, 'Sta te is the state from the curre nt address es a Regis trant has in AHOBPR. The Sele ction Crit eria allow s a user t o filter w ith one or more stat es.', '0', '2015-11- 13 00:00:0 0.000', '2 015-11-13 00:00:00.0 00', 'DBA' , 'DBA', ' STD_STATE' , '170', ' 170', 'Fal se', 'True ', 'State: <br />', N ULL, NULL, NULL, NUL L, 'PanelR eportParm' )
				11331
				11332		SET NOCOUN T OFF;
				11333		go
				11334
				11335		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				11336		print N'Up date compl ete.';
				11337		print 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				11338		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				11339
				11340
				11341		go
				11342		update [d bo].[Datab aseChangeL og]
				11343		set Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				11344		where [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				11345		and [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				11346		and [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				11347		and [S criptName] = '$(Scrip tName)'
				11348		and Ta rgetRegist ry = 'AHOBPR' ;
				11349
				11350		go
				11351		select * f rom [dbo]. [DatabaseC hangeLog]
				11352		where Targ etRegistry = 'AHOBPR'
				11353		and [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				11354		and [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				11355		and [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				11356		and [Scr iptName] = '$(Script Name)';
				11357		go
				11358		---------- ---------- ---------- ---------- ---------
				11359		---------- ---------- ---------- ---------- ---------
				11360		-- 2.0.30. 1
				11361		---------- ---------- ---------- ---------- ---------
				11362		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				11363		:setvar Ma jorRelease Number "2"
				11364		:setvar Mi norRelease Number "0"
				11365		:setvar Po intRelease Number "30 "
				11366		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.30.1. sql"
				11367
				11368
				11369		print '
				11370		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				11371		$(ScriptNa me)
				11372
				11373		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				11374
				11375		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				11376		';
				11377		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				11378		print '
				11379		******** ****** ****** ****** ****** *****
				11380		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				11381		******** ****** ****** ****** ****** *****
				11382
				11383		';
				11384		go
				11385		:on error exit
				11386		go
				11387		:setvar __ IsSqlCmdEn abled "Tru e"
				11388		/*
				11389		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				11390		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				11391		*/
				11392		set noexec off;
				11393		set nocoun t off;
				11394		go
				11395		if N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				11396		begin
				11397		pr int N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				11398		SE T NOCOUNT ON;
				11399		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.
				11400		end
				11401
				11402		go
				11403
				11404		use [$(Dat abaseName) ]
				11405		go
				11406		if EXISTS ( select * from [dbo ].[Databas eChangeLog ]
				11407		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				11408		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				11409		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				11410		and [S criptName] = '$(Script Name)'
				11411		)
				11412		begin
				11413		raiserr or('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!'
				11414		,11
				11415		,1);
				11416		end
				11417		else
				11418		insert
				11419		into [ dbo].[Data baseChange Log]
				11420		([Major ReleaseNum ber]
				11421		,[Minor ReleaseNum ber]
				11422		,[Point ReleaseNum ber]
				11423		,[Hotfi x]
				11424		,[Scrip tName]
				11425		,[Scrip tDescripti on]
				11426		,[Targe tRegistry]
				11427		,[DateA pplied])
				11428		val ues
				11429		('$(Maj orReleaseN umber)'
				11430		,'$(Min orReleaseN umber)'
				11431		,'$(Poi ntReleaseN umber)'
				11432		,0
				11433		,'$(Scr iptName)'
				11434		,'Scr ipt Starte d...'
				11435		,'AHOBP R'
				11436		,GETDAT E()
				11437		);
				11438
				11439		go
				11440		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				11441		print '$(S criptName) script st arted...';
				11442		print GETD ATE();
				11443		go
				11444		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				11445		if exists( select * f rom sys.vi ews where name = 'VI EW_LOOKUP'
				11446		and schem a_id = (se lect schem a_id from sys.schema s where na me = 'AHOB PR')
				11447		)
				11448		and not exists (s elect * fr om sys.vie ws where n ame = 'vie w_lookup_p re_2_0_30'
				11449		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				11450		)
				11451		exec sp_ rename 'AH OBPR.VIEW_ LOOKUP','v iew_lookup _pre_2_0_3 0';
				11452		go
				11453
				11454		create VIE W [AHOBPR] .[VIEW_LOO KUP]
				11455		--last upd ated in 2. 0.30.1 scr ipt
				11456		WITH SCHEM ABINDING
				11457		AS
				11458		SELECT 'RE GISTRY_FLA G' AS LOOK UP_TYPE
				11459		,STD_RE GISTRY_FLA G_ID AS ID
				11460		,RE GISTRY_FLA G_NAME AS CODE
				11461		,RE GISTRY_FLA G_NAME AS NAME
				11462		,0 AS PARENT_ ID
				11463		,1 AS SORT_OR DER
				11464		FROM AHO BPR.STD_RE GISTRY_FLA G
				11465		WHERE STD _REGISTRY_ FLAG_ID > 0
				11466		UNION ALL
				11467		SELECT 'RE GISTRY_STA TUS' AS LO OKUP_TYPE
				11468		,STD_REGI STRANT_STA TUS_ID AS ID
				11469		,RE GISTRANT_S TATUS AS C ODE
				11470		,RE GISTRANT_S TATUS AS N AME
				11471		,0 AS PARENT_ ID
				11472		,OR DINAL_VALU E AS SORT_ ORDER
				11473		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				11474		WHERE STD _REGISTRAN T_STATUS_I D > 0
				11475		UNION ALL
				11476		SELECT 'RE GISTRY_FLA G_TYPE' AS LOOKUP_TY PE
				11477		,STD_REGI STRY_FLAG_ TYPE_ID AS ID
				11478		,RE GISTRY_FLA G_TYPE AS CODE
				11479		,RE GISTRY_FLA G_TYPE AS NAME
				11480		,0 AS PARENT_ ID
				11481		,1 AS SORT_OR DER
				11482		FROM AHO BPR.STD_RE GISTRY_FLA G_TYPE
				11483		UNION ALL
				11484		SELECT 'SU BPOPULATIO N_FLAG_ACT IVE' AS LO OKUP_TYPE
				11485		,STD_REGI STRY_FLAG_ ID AS ID
				11486		,RE GISTRY_FLA G_NAME AS CODE
				11487		,RE GISTRY_FLA G_NAME AS NAME
				11488		,0 AS PARENT_ ID
				11489		,1 AS SORT_OR DER
				11490		FROM AHOBP R.STD_REGI STRY_FLAG
				11491		WHERE ACTI VE_FLAG = 1 AND STD_ REGISTRY_F LAG_TYPE_I D = 2
				11492		UNION ALL
				11493		SELECT 'ST D_STATE' A S LOOKUP_T YPE
				11494		,ID
				11495		,PO STALNAME A S CODE
				11496		,PO STALNAME A S NAME
				11497		,0 AS PARENT_ ID
				11498		,1 AS SORT_OR DER
				11499		FROM DBO.S TD_STATE
				11500		WHERE COUN TRY_ID = 1 006840
				11501		AND POSTAL NAME IN (' AL', 'AK', 'AR', 'AZ ', 'CA', ' CO', 'CT', 'DE', 'FL ', 'GA', ' HI',
				11502		'IA', 'ID' , 'IL', 'I N', 'KS', 'KY', 'LA' , 'MA', 'M D', 'ME', 'MI', 'MN' , 'MO', 'M S',
				11503		'MT', 'NC' , 'ND', 'N E', 'NH', 'NJ', 'NM' , 'NV', 'N Y', 'OH', 'OK', 'OR' , 'PA', 'R I',
				11504		'SC', 'SD' , 'TN', 'T X', 'UT', 'VA', 'VT' , 'WA', 'W I', 'WV', 'WY', 'DC' , 'AS', 'G U', 'PR', 'VI', 'MP' , 'AA', 'A E', 'AP')
				11505		UNION ALL
				11506		SELECT 'ST D_STATE' A S LOOKUP_T YPE
				11507		,0
				11508		,'F oreign Cou ntry/Other ' AS CODE
				11509		,'F oreign Cou ntry/Other ' AS NAME
				11510		,0 AS PARENT_ ID
				11511		,99 99 AS SORT _ORDER
				11512		UNION ALL
				11513		SELECT 'AD MINTRACKIN G_FLAG_ACT IVE' AS LO OKUP_TYPE
				11514		,STD_REGI STRY_FLAG_ ID AS ID
				11515		,RE GISTRY_FLA G_NAME AS CODE
				11516		,RE GISTRY_FLA G_NAME AS NAME
				11517		,0 AS PARENT_ ID
				11518		,1 AS SORT_OR DER
				11519		FROM AHOBP R.STD_REGI STRY_FLAG
				11520		WHERE ACTI VE_FLAG = 1
				11521		AND STD_ REGISTRY_F LAG_TYPE_I D = 1
				11522		AND (PRE DEFINED = 0
				11523		OR ( PREDEFINED = 1 AND R EGISTRY_FL AG_NAME = 'Eligibili ty Review - More Doc umentation Needed')) --2.0.13.1 changed t his line
				11524		UNION ALL
				11525		SELECT 'ST D_SERVICE_ STATUS' AS LOOKUP_TY PE
				11526		,STD_SERV ICE_STATUS _ID As ID
				11527		,SE RVICE_STAT US AS CODE
				11528		,SE RVICE_STAT US AS NAME
				11529		,0 AS PARENT_ ID
				11530		,1 AS SORT_OR DER
				11531		FROM AHO BPR.STD_SE RVICE_STAT US
				11532		WHERE STD _SERVICE_S TATUS_ID > 0
				11533		UNION AL L
				11534		SELECT 'ST D_FORM_QUE STION' AS LOOKUP_TYP E
				11535		,STD_FO RM_QUESTIO N_ID As ID
				11536		,FO RM_QUESTIO N_UNIQUE_I D AS CODE
				11537		,FO RM_QUESTIO N_UNIQUE_I D AS NAME
				11538		,0 AS PARENT_ ID
				11539		,1 AS SORT_OR DER
				11540		FROM AHO BPR.STD_FO RM_QUESTIO N
				11541		UNION ALL
				11542		SELECT 'RE GISTRY_STA TUS_INELIG IBLE' AS L OOKUP_TYPE
				11543		,STD_REGI STRANT_STA TUS_ID AS ID
				11544		,RE GISTRANT_S TATUS AS C ODE
				11545		,RE GISTRANT_S TATUS AS N AME
				11546		,0 AS PARENT_ ID
				11547		,ST D_REGISTRA NT_STATUS_ ID AS SORT _ORDER
				11548		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				11549		WHERE ST D_REGISTRA NT_STATUS_ ID IN (3, 4, 5)
				11550		UNION ALL
				11551		SELECT 'RE GISTRY_STA TUS_REVIEW ED' AS LOO KUP_TYPE
				11552		,STD_REGI STRANT_STA TUS_ID AS ID
				11553		,RE GISTRANT_S TATUS AS C ODE
				11554		,RE GISTRANT_S TATUS AS N AME
				11555		,0 AS PARENT_ ID
				11556		,ST D_REGISTRA NT_STATUS_ ID AS SORT _ORDER
				11557		FROM AHO BPR.STD_RE GISTRANT_S TATUS
				11558		WHERE ST D_REGISTRA NT_STATUS_ ID IN (5, 8)
				11559		UNION ALL
				11560		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				11561		,1 AS I D
				11562		,'A ll' AS COD E
				11563		,'A ll' AS NAM E
				11564		,0 AS PARENT_ ID
				11565		,1 AS SORT_OR DER
				11566		UNION ALL
				11567		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				11568		,2 AS I D
				11569		,'F acility' A S CODE
				11570		,'F acility' A S NAME
				11571		,0 AS PARENT_ ID
				11572		,2 AS SORT_OR DER
				11573		UNION ALL
				11574		SELECT 'RE PORT_LOCAT ION' AS LO OKUP_TYPE
				11575		,3 AS I D
				11576		,'V ISN' AS CO DE
				11577		,'V ISN' AS NA ME
				11578		,0 AS PARENT_ ID
				11579		,3 AS SORT_OR DER
				11580		UNION ALL
				11581		SELECT 'SU BPOPULATIO N_FLAG_ALL ' AS LOOKU P_TYPE
				11582		,STD_RE GISTRY_FLA G_ID AS ID
				11583		,RE GISTRY_FLA G_NAME AS CODE
				11584		,RE GISTRY_FLA G_NAME AS NAME
				11585		,0 AS PARENT_ ID
				11586		,1 AS SORT_OR DER
				11587		FROM AHOBP R.STD_REGI STRY_FLAG
				11588		WHERE STD_ REGISTRY_F LAG_TYPE_I D = 2
				11589		UNION ALL
				11590		SELECT 'AD MIN_FLAG_A LL' AS LOO KUP_TYPE
				11591		,STD_RE GISTRY_FLA G_ID AS ID
				11592		,RE GISTRY_FLA G_NAME AS CODE
				11593		,RE GISTRY_FLA G_NAME AS NAME
				11594		,0 AS PARENT_ ID
				11595		,1 AS SORT_OR DER
				11596		FROM AHOBP R.STD_REGI STRY_FLAG
				11597		WHERE STD_ REGISTRY_F LAG_TYPE_I D = 1
				11598		UNION ALL
				11599		SELECT 'HE ALTH_FACTO R' AS LOOK UP_TYPE
				11600		,A.[STD _HEALTH_FA CTOR_ID] A S ID
				11601		,A. [NAME] AS CODE
				11602		,B. [DESCRIPTI ON] + ': ' + A.DESCR IPTION AS NAME
				11603		,0 AS PARENT_ ID
				11604		,1 AS SORT_OR DER
				11605		FROM [AH OBPR].[STD _HEALTH_FA CTOR] A IN NER JOIN [ AHOBPR].[S TD_HEALTH_ FACTOR_CAT EGORY] B O N A.STD_HE ALTH_FACTO R_CATEGORY _ID = B.ST D_HEALTH_F ACTOR_CATE GORY_ID
				11606		UNION ALL
				11607		SELECT DIS TINCT 'DEP LOYMENT_CO UNTRY' AS LOOKUP_TYP E
				11608		,0 AS I D
				11609		,[D EPLOYMENT_ COUNTRY] A S CODE
				11610		,[D EPLOYMENT_ COUNTRY] A S NAME
				11611		,0 AS PARENT_ ID
				11612		,1 AS SORT_OR DER
				11613		FROM [AH OBPR].[REG ISTRANT_DE PLOYMENT]
				11614		UNION ALL
				11615		SELECT DIS TINCT 'DEP LOYMENT_CO UNTRY_EXPO SURE' AS L OOKUP_TYPE
				11616		,0 AS I D
				11617		,[D EPLOYMENT_ COUNTRY] A S CODE
				11618		,[D EPLOYMENT_ COUNTRY] A S NAME
				11619		,0 AS PARENT_ ID
				11620		,1 AS SORT_OR DER
				11621		FROM [AH OBPR].[REG ISTRANT_DE PLOYMENT] A JOIN AHO BPR.FORM_R ESPONSE_QU ESTION B
				11622		ON A.REGISTR ANT_DEPLOY MENT_ID = B.REGISTRA NT_DEPLOYM ENT_ID
				11623		UN ION ALL
				11624		SELECT 'ST D_RACE' AS LOOKUP_TY PE
				11625		,ID
				11626		,DE SCRIPTION AS CODE
				11627		,DE SCRIPTION AS NAME
				11628		,0 AS PARENT_ ID
				11629		,1 AS SORT_OR DER
				11630		FROM AHOBP R.VIEW_ETL _LOOKUP
				11631		WHERE TYPE = 'STD_RA CE'
				11632		AND ID > 0
				11633		UNION ALL
				11634		SELECT 'ST D_GENDER' AS LOOKUP_ TYPE
				11635		,ID
				11636		,DE SCRIPTION AS CODE
				11637		,DE SCRIPTION AS NAME
				11638		,0 AS PARENT_ ID
				11639		,1 AS SORT_OR DER
				11640		FROM AHOBP R.VIEW_ETL _LOOKUP
				11641		WHERE TYPE = 'STD_GE NDER'
				11642		AND ID > 0
				11643		UNION ALL
				11644		SELECT 'ST D_SEPARATI ONFAMILY' AS LOOKUP_ TYPE
				11645		,[ STD_SEPARA TION_FAMIL Y_ID] AS I D
				11646		,[ FAMILY_COD E] AS CODE
				11647		,[ FAMILY] A S NAME
				11648		,0 AS PARENT _ID
				11649		,1 AS SORT_O RDER
				11650		FROM AH OBPR.STD_S EPARATION_ FAMILY
				11651		WHERE [ STD_SEPARA TION_FAMIL Y_ID] > 0
				11652		UNION ALL
				11653		SELECT 'S TD_SEPARAT IONREASON' AS LOOKUP _TYPE
				11654		,[ STD_SEPARA TION_REASO N_ID] AS I D
				11655		,[ REASON_COD E] AS CODE
				11656		,[ REASON] AS NAME
				11657		,0 AS PARENT _ID
				11658		,1 AS SORT_O RDER
				11659		FROM AH OBPR.STD_S EPARATION_ REASON
				11660		WHERE [ STD_SEPARA TION_REASO N_ID] > 0
				11661		UNION ALL
				11662		SELECT 'ST D_ELIGIBLI TYSTATUS' AS LOOKUP_ TYPE
				11663		,ID
				11664		,DE SCRIPTION AS CODE
				11665		,DE SCRIPTION AS NAME
				11666		,0 AS PARENT_ ID
				11667		,1 AS SORT_OR DER
				11668		FROM AHOBP R.VIEW_ETL _LOOKUP
				11669		WHERE TYPE = 'STD_EL IGIBLITYST ATUS'
				11670		AND ID > 0
				11671		UNION ALL
				11672		SELECT 'ST D_ETHNICIT Y' AS LOOK UP_TYPE
				11673		,ID
				11674		,DE SCRIPTION AS CODE
				11675		,DE SCRIPTION AS NAME
				11676		,0 AS PARENT_ ID
				11677		,1 AS SORT_OR DER
				11678		FROM AHOBP R.VIEW_ETL _LOOKUP
				11679		WHERE TYPE = 'STD_ET HNICITY'
				11680		AND ID > 0
				11681		UNION ALL
				11682		SELECT 'S TD_CHARACT EROFSERVIC E' AS LOOK UP_TYPE
				11683		,STD_DI SCHARGE_CH ARACTER_ID As ID
				11684		,DI SCHARGE_CH ARACTER_CO DE AS CODE
				11685		,DI SCHARGE_CH ARACTER AS NAME
				11686		,0 AS PARENT_ ID
				11687		,1 AS SORT_OR DER
				11688		FROM AHO BPR.STD_DI SCHARGE_CH ARACTER
				11689		UNION ALL
				11690		SELECT 'TE MPLATE_MES SAGE_TITLE ' AS LOOKU P_TYPE
				11691		,TEMPLATE _ID AS ID
				11692		,TI TLE AS COD E
				11693		,TI TLE AS NAM E
				11694		,0 AS PARENT_ ID
				11695		,1 AS SORT_OR DER
				11696		FROM AHO BPR.EMAIL_ TEMPLATES
				11697		WHERE AC TIVE = 'Tr ue' AND CR EATEDBY_AD VANCED_USE R_FLAG = 0
				11698		AND TITL E NOT IN ( 'Eligible for Burn P it Registr y', 'Not E ligible fo r Burn Pit Registry' , 'New Fol low-up Que stions', ' Need More Documentat ion')
				11699		UNION ALL
				11700		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				11701		,2 As I D,'multipl eChoice' A S CODE,'Dr opdown Lis t - Multip le Choice' AS NAME,0 AS PARENT _ID,1 AS S ORT_ORDER
				11702		UNION ALL
				11703		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				11704		,1 As I D,'multiSe lect' AS C ODE,'Check boxes - Mu ltiple Sel ect' AS NA ME,0 AS PA RENT_ID,2 AS SORT_OR DER
				11705		UNION ALL
				11706		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				11707		,3 As I D,'text' A S CODE,'Ra dio Button s with Fre e Text' AS NAME,0 AS PARENT_ID ,3 AS SORT _ORDER
				11708		UNION ALL
				11709		SELECT 'T OOL_QUESTI ON_TYPE' A S LOOKUP_T YPE
				11710		,4 As I D,'number' AS CODE,' Radio Butt ons with N umeric Val ue' AS NAM E,0 AS PAR ENT_ID,4 A S SORT_ORD ER
				11711		UNION ALL
				11712		SELECT 'FO LLOWUP_QUE STION_GROU P_LIST' AS LOOKUP_TY PE
				11713		,STD_FORM _ID AS ID
				11714		,NA ME AS CODE
				11715		,NA ME AS NAME
				11716		,0 AS PARENT_ ID
				11717		,1 AS SORT_OR DER
				11718		FROM AHO BPR.STD_FO RM A
				11719		WHERE FO LLOWUP_FLA G = 1
				11720		--Follow up Send P age > Deac tivated gr oups showi ng in Drop down (272 277)
				11721		AND NOT EXISTS (S ELECT 'X' FROM AHOBP R.TOOL_FOR M WHERE TO OL_FORM_ID = A.TOOL_ FORM_ID AN D ACTIVE_F LAG = 0)
				11722		UNION ALL
				11723		SELECT DIS TINCT 'CON TACT_PREFE RENCE' AS LOOKUP_TYP E
				11724		,0 AS I D
				11725		,[C ONTACT_PRE FERENCE] A S CODE
				11726		,[C ONTACT_PRE FERENCE] A S NAME
				11727		,0 AS PARENT_ ID
				11728		,1 AS SORT_OR DER
				11729		FROM [AH OBPR].[REG ISTRANT]
				11730		WHERE CO NTACT_PREF ERENCE > ' '
				11731		UNION ALL
				11732		SELECT 'MY _TEMPLATES _TITLE' AS LOOKUP_TY PE
				11733		,TEMPLATE _ID AS ID
				11734		,CR EATEDBY AS CODE
				11735		,TI TLE AS NAM E
				11736		,0 AS PARENT_ ID
				11737		,1 AS SORT_OR DER
				11738		FROM AHO BPR.EMAIL_ TEMPLATES
				11739		WHERE AC TIVE = 'Tr ue' AND CR EATEDBY_AD VANCED_USE R_FLAG = 1
				11740		UNION ALL
				11741		SELECT DIS TINCT 'ENR OLLMENT_ST ATUS' AS L OOKUP_TYPE
				11742		,0 AS I D
				11743		,[E NROLLMENT_ STATUS] AS CODE
				11744		,[E NROLLMENT_ STATUS] AS NAME
				11745		,0 AS PARENT_ ID
				11746		,1 AS SORT_OR DER
				11747		FROM [AH OBPR].[REG ISTRANT]
				11748		WHERE E NROLLMENT_ STATUS > ' '
				11749
				11750		-- select * from [A HOBPR].[VI EW_LOOKUP]
				11751
				11752		go
				11753
				11754		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				11755		print N'Up date compl ete.';
				11756		print 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				11757		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				11758
				11759
				11760		go
				11761		update [d bo].[Datab aseChangeL og]
				11762		set Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				11763		where [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				11764		and [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				11765		and [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				11766		and [S criptName] = '$(Scrip tName)'
				11767		and Ta rgetRegist ry = 'AHOBPR' ;
				11768
				11769		go
				11770		select * f rom [dbo]. [DatabaseC hangeLog]
				11771		where Targ etRegistry = 'AHOBPR'
				11772		and [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				11773		and [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				11774		and [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				11775		and [Scr iptName] = '$(Script Name)';
				11776		GO
				11777
				11778
				11779
				11780		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				11781		print N'Up date compl ete.';
				11782		print 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				11783		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				11784
				11785
				11786		go
				11787		update [d bo].[Datab aseChangeL og]
				11788		set Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				11789		where [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				11790		and [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				11791		and [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				11792		and [S criptName] = '$(Scrip tName)'
				11793		and Ta rgetRegist ry = 'AHOBPR' ;
				11794
				11795		go
				11796		select * f rom [dbo]. [DatabaseC hangeLog]
				11797		where Targ etRegistry = 'AHOBPR'
				11798		and [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				11799		and [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				11800		and [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				11801		and [Scr iptName] = '$(Script Name)';
				11802
				11803		---------- ---------- ---------- ---------- ---------
				11804		---------- ---------- ---------- ---------- ---------
				11805		-- 2.0.32. 1
				11806		---------- ---------- ---------- ---------- ---------
				11807		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				11808		:setvar Ma jorRelease Number "2"
				11809		:setvar Mi norRelease Number "0"
				11810		:setvar Po intRelease Number "32 "
				11811		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.32.1. sql"
				11812
				11813
				11814		print '
				11815		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				11816		$(ScriptNa me)
				11817
				11818		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				11819
				11820		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				11821		';
				11822		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				11823		print '
				11824		******** ****** ****** ****** ****** *****
				11825		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				11826		******** ****** ****** ****** ****** *****
				11827
				11828		';
				11829		go
				11830		:on error exit
				11831		go
				11832		:setvar __ IsSqlCmdEn abled "Tru e"
				11833		/*
				11834		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				11835		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				11836		*/
				11837		set noexec off;
				11838		set nocoun t off;
				11839		go
				11840		if N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				11841		begin
				11842		pr int N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				11843		SE T NOCOUNT ON;
				11844		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.
				11845		end
				11846
				11847		go
				11848
				11849		use [$(Dat abaseName) ]
				11850		go
				11851		if EXISTS ( select * from [dbo ].[Databas eChangeLog ]
				11852		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				11853		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				11854		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				11855		and [S criptName] = '$(Script Name)'
				11856		)
				11857		begin
				11858		raiserr or('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!'
				11859		,11
				11860		,1);
				11861		end
				11862		else
				11863		insert
				11864		into [ dbo].[Data baseChange Log]
				11865		([Major ReleaseNum ber]
				11866		,[Minor ReleaseNum ber]
				11867		,[Point ReleaseNum ber]
				11868		,[Hotfi x]
				11869		,[Scrip tName]
				11870		,[Scrip tDescripti on]
				11871		,[Targe tRegistry]
				11872		,[DateA pplied])
				11873		val ues
				11874		('$(Maj orReleaseN umber)'
				11875		,'$(Min orReleaseN umber)'
				11876		,'$(Poi ntReleaseN umber)'
				11877		,0
				11878		,'$(Scr iptName)'
				11879		,'Scr ipt Starte d...'
				11880		,'AHOBP R'
				11881		,GETDAT E()
				11882		);
				11883
				11884		go
				11885		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				11886		print '$(S criptName) script st arted...';
				11887		print GETD ATE();
				11888		go
				11889		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				11890		if exists( select * f rom sys.pr ocedures w here name = 'SP_GetR egistrantA ddFlag'
				11891		and schem a_id = (se lect schem a_id from sys.schema s where na me = 'AHOB PR')
				11892		)
				11893		and not exists (s elect * fr om sys.pro cedures wh ere name = 'SP_GetRe gistrantAd dFlag_pre_ 2_0_32_1'
				11894		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				11895		)
				11896		exec sp_ rename 'AH OBPR.SP_Ge tRegistran tAddFlag', 'SP_GetReg istrantAdd Flag_pre_2 _0_32_1';
				11897		go
				11898		-- ======= ========== ========== ========== ========
				11899		-- Create date: Dece mber 1, 20 15
				11900		-- Descrip tion: Used to create the list of registr ant to add mass Admi n & Sub-po pulation f lags.
				11901
				11902		-- Modific ation log
				11903		-- 2016-02 -03 - D. B arr - Fixe d logic on Evaluatio n Location (Script 2 .0.32.1)
				11904		--
				11905		-- ======= ========== ========== ========== ========
				11906		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antAddFlag ]
				11907		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				11908		@st ate varcha r(8000) = NULL, -- M ultiple st ates, comm a-separate d values w hen not NU LL
				11909		@fo rmStartFro mDateText varchar(10 0) = NULL,
				11910		@fo rmStartToD ateText va rchar(100) = NULL,
				11911		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				11912		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				11913		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				11914		@he althConcer ns varchar (100) = 'A ll',
				11915		@re questToBeS een varcha r(100) = ' All',
				11916		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				11917		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				11918		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				11919		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				11920		@su bpopulatio nFlag varc har (8000) = NULL, - - Multiple subpopula tionFlags, comma-sep arated val ues when n ot NULL
				11921		@ad minFlag va rchar (10) = NULL,
				11922		@de ploymentAl l varchar (256) = NU LL,
				11923		@de ploymentEx posure var char (256) = NULL,
				11924		@ad minFlagFro mDateText varchar (2 0) = NULL,
				11925		@ad minFlagToD ateText va rchar (20) = NULL,
				11926		@ex cludeDead varchar(1) = 'N',
				11927		@se parationTy pe INT = 0 ,
				11928		@se parationFr omDateText varchar ( 20) = NULL ,
				11929		@se parationTo DateText v archar (20 ) = NULL,
				11930		@ex cludeAdmin Flag varch ar(1) = 'N ',
				11931		@de ploymentSt artFromDat eText varc har(100) = NULL,
				11932		@de ploymentSt artToDateT ext varcha r(100) = N ULL,
				11933		@de ploymentCo mpletionFr omDateText varchar(1 00) = NULL ,
				11934		@de ploymentCo mpletionTo DateText v archar(100 ) = NULL
				11935
				11936		AS
				11937
				11938		BEGIN
				11939
				11940		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				11941		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				11942		@formStart ToDate DAT ETIME2(0) = NULL,
				11943		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				11944		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				11945		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				11946		@adminFlag ToDate DAT ETIME2(0) = NULL,
				11947		@separatio nFromDate DATETIME2( 0) = NULL,
				11948		@separatio nToDate DA TETIME2(0) = NULL,
				11949		@deploymen tStartFrom Date DATET IME2(0) = NULL,
				11950		@deploymen tStartToDa te DATETIM E2(0) = NU LL,
				11951		@deploymen tCompletio nFromDate DATETIME2( 0) = NULL,
				11952		@deploymen tCompletio nToDate DA TETIME2(0) = NULL
				11953
				11954		DECLARE @Query VAR CHAR(8000) ;
				11955		DECLARE @MainQuery VARCHAR(8 000);
				11956		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				11957		DECLARE @AdminWith VARCHAR(8 000);
				11958		DECLARE @SubPopWit h VARCHAR( 8000);
				11959		DECLARE @DeployWit h VARCHAR( 8000);
				11960
				11961		--Temp table conc atnate fla gs for Reg istrants w ith multip le flags
				11962		CREATE T ABLE #stat e
				11963		(
				11964		[Regi strant_Id] INT,
				11965		[stat e] VARCHAR (8000)
				11966		)
				11967
				11968		SET @sta te = REPLA CE(@state, 'Foreign Country/Ot her', 'FM, MH,PW,UM,U S,CANAD,MX ,EU,PI,FG, OT,UN')
				11969
				11970		INSERT I NTO #state ([Registr ant_Id], [ state])
				11971		-- Load Table
				11972		SELECT a .REGISTRAN T_ID,
				11973		ST UFF((SELEC T ', ' + b .STATE
				11974		FRO M AHOBPR.R EGISTRANT_ ADDRESS b
				11975		WHER E a.REGIST RANT_ID = b.REGISTRA NT_ID
				11976		FOR XML PATH(' ')), 1, 1, '') [STA TE]
				11977		FROM A HOBPR.REGI STRANT a
				11978		GROUP B Y a.REGIST RANT_ID;
				11979
				11980
				11981
				11982		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				11983		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				11984		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				11985		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				11986		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				11987		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				11988		SET @sep arationFro mDate = db o.CleanDat e(@separat ionFromDat eText);
				11989		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				11990		SET @dep loymentSta rtFromDate = dbo.Cle anDate(@de ploymentSt artFromDat eText);
				11991		SET @dep loymentSta rtToDate = dbo.AddMa xTime(dbo. CleanDate( @deploymen tStartToDa teText));
				11992		SET @dep loymentCom pletionFro mDate = db o.CleanDat e(@deploym entComplet ionFromDat eText);
				11993		SET @dep loymentCom pletionToD ate = dbo. AddMaxTime (dbo.Clean Date(@depl oymentComp letionToDa teText));
				11994
				11995
				11996
				11997		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				11998		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				11999		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				12000
				12001		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				12002		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				12003		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				12004
				12005		-- Set Ins titutionID values if needed.
				12006		DECLARE @A ssignedIns titutionId INT = 0,
				12007		@E valuatedIn stitutionI d INT = 0;
				12008
				12009		IF @Assign edLocation Type IN (' Base','Ins titution')
				12010		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				12011		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				12012
				12013		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				12014		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				12015		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				12016
				12017		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				12018		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				12019		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				12020		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				12021		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				12022		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				12023		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				12024		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				12025		' F ROM AHOBPR .REGISTRAN T a ' +
				12026		'WH ERE 1 = 1 ';
				12027
				12028		--Concat enate one or more Ad min flags for Regist rants with flags
				12029		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				12030		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				12031		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				12032		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				12033		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				12034		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				12035		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				12036		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				12037		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				12038		' FROM A HOBPR.REGI STRANT a ' +
				12039		' WHERE 1 = 1 ';
				12040
				12041		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				12042		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				12043		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				12044		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				12045		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				12046		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				12047		' FROM AHOBPR.RE GISTRANT a ' +
				12048		' WHERE 1 = 1 ';
				12049
				12050		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				12051		', (a.LAST_NA ME + '', ' ' + a.FIRS T_NAME) AS Name ' +
				12052		', b.REGISTRA NT_STATUS AS Status ' +
				12053		', s.STATE AS State ' +
				12054		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				12055		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				12056		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				12057		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				12058
				12059
				12060		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				12061		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				12062		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				12063		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				12064		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				12065		',a.BI RTH_DATE A S BirthDat e ' +
				12066		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				12067		',RIG HT(a.SSN, 4) AS SSN ' +
				12068		'FRO M AHOBPR.R EGISTRANT a '
				12069
				12070		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				12071		'LEFT JOIN #state s ' + 'ON a .REGISTRAN T_ID = s.R egistrant_ Id ' +
				12072		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				12073		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				12074		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				12075		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				12076		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ' +
				12077		' LEFT JOIN AHOB PR.REGISTR ANT_DEPLOY MENT rd ON a.REGISTR ANT_ID = rd.REGISTR ANT_ID ';
				12078
				12079
				12080
				12081		--used to get all re gistrant w ithout the selected adminflag
				12082		IF ISNULL( @excludeAd minFlag, ' N') = 'Y'
				12083		SET @M ainQuery = @MainQuer y + ' Left JOIN (SEL ECT REGIST RANT_ID, S TD_REGISTR Y_FLAG_ID FROM AHOBP R.REGISTRA NT_REGISTR Y_FLAG ' +
				12084		' WHERE ST D_REGISTRY _FLAG_ID I N (' + @ad minFlag + ')) AS af on af.REG ISTRANT_ID = a.REGIS TRANT_ID ' ;
				12085
				12086
				12087		SET @M ainQuery = @MainQuer y + ' WHER E 1 = 1 ';
				12088
				12089
				12090		IF ISNULL( @excludeAd minFlag, ' N') = 'Y'
				12091		SE T @MainQue ry = @Main Query + ' AND STD_RE GISTRY_FLA G_ID is NU LL ';
				12092
				12093
				12094		IF @form StartFromD ate IS NOT NULL
				12095		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				12096
				12097		IF @form StartToDat e IS NOT N ULL
				12098		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				12099
				12100		IF @form Completion FromDate I S NOT NULL
				12101		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				12102
				12103		IF @form Completion ToDate IS NOT NULL
				12104		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				12105
				12106		IF @depl oymentStar tFromDate IS NOT NUL L
				12107		SET @ MainQuery = @MainQue ry + ' AND rd.DEPLOY MENT_START _DATE >= ' '' + CONVE RT(VARCHAR (20),@depl oymentStar tFromDate, 121) + ''' ';
				12108
				12109		IF @depl oymentStar tToDate IS NOT NULL
				12110		SET @ MainQuery = @MainQue ry + ' AND rd.DEPLOY MENT_START _DATE <= ' '' + CONVE RT(VARCHAR (20),@depl oymentStar tToDate,12 1) + '''';
				12111
				12112		IF @depl oymentComp letionFrom Date IS NO T NULL
				12113		SET @ MainQuery = @MainQue ry + ' AND rd.DEPLOY MENT_END_D ATE >= ''' + CONVERT (VARCHAR(2 0),@deploy mentComple tionFromDa te,121) + '''';
				12114
				12115		IF @depl oymentComp letionToDa te IS NOT NULL
				12116		SET @ MainQuery = @MainQue ry + ' AND rd.DEPLOY MENT_END_D ATE <= ''' + CONVERT (VARCHAR(2 0),@deploy mentComple tionToDate ,121) + '' '';
				12117
				12118
				12119
				12120		IF ISNUL L(@subpopu lationFlag ,'') != ''
				12121		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				12122		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				12123		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				12124
				12125		IF (ISNULL(@ adminFlag, '') != '' AND ISNULL (@excludeA dminFlag,' N') = 'N')
				12126		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG adminfl ag ' +
				12127		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				12128		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				12129		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				12130		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				12131
				12132
				12133
				12134		IF ISNUL L(@deploym entAll,'') != ''
				12135		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				12136		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				12137		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				12138
				12139		IF ISNUL L(@healthF actor,'') != ''
				12140		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				12141		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				12142		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				12143		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				12144
				12145
				12146		IF ISNUL L(@deploym entExposur e,'') != ' '
				12147		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				12148		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				12149		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				12150		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				12151		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				12152		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				12153
				12154
				12155
				12156
				12157
				12158		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				12159		IF @stat us IS NOT NULL
				12160		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				12161
				12162		IF ISNUL L(@state,' ') > ''
				12163		BEGIN
				12164		SET @state = R EPLACE(@St ate,',','' ',''');
				12165		SET @RegCriter ia = @RegC riteria + ' AND EXIS TS(SELECT DISTINCT a ddr.REGIST RANT_ID ' +
				12166		'FROM AH OBPR.REGIS TRANT_ADDR ESS addr ' +
				12167		'WHERE ad dr.REGISTR ANT_ID = a .REGISTRAN T_ID ' +
				12168		'AND ad dr.STATE IN ( ''' + @state + ''') ) ';
				12169		END;
				12170
				12171		IF @heal thConcerns != 'All'
				12172		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				12173
				12174		IF @requ estToBeSee n != 'All'
				12175		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				12176
				12177		IF ISNUL L(@exclude Dead,'N') = 'Y'
				12178		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				12179
				12180		IF ISNUL L(@separat ionType,0) != 0
				12181		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				12182
				12183		IF @sepa rationFrom Date IS NO T NULL
				12184		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				12185
				12186		IF @sepa rationToDa te IS NOT NULL
				12187		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				12188
				12189		IF @Assi gnedLocati onType IS NOT NULL
				12190		BEGIN
				12191		IF @ AssignedLo cationType = 'NLA'
				12192		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				12193		ELSE
				12194		IF @ AssignedLo cationType = 'VISN'
				12195		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				12196		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				12197		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				12198		ELSE
				12199		IF @ AssignedLo cationType = 'Base'
				12200		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				12201		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				12202		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				12203		ELSE
				12204		IF @ AssignedLo cationType = 'Instit ution'
				12205		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				12206		END;
				12207
				12208		IF @Eval uatedLocat ionType IS NOT NULL
				12209		BEGIN
				12210		IF @ EvaluatedL ocationTyp e = 'NLA'
				12211		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				12212		' WHERE eva l.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				12213		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				12214		ELSE
				12215		IF @ EvaluatedL ocationTyp e = 'VISN'
				12216		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				12217		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				12218		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				12219		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				12220		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				12221		ELSE
				12222		IF @ EvaluatedL ocationTyp e = 'Base'
				12223		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				12224		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				12225		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				12226		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				12227		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				12228		ELSE
				12229		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				12230		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				12231		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				12232		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				12233		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				12234		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				12235		END;
				12236
				12237		-- Add cri teria and Close With Statement
				12238		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				12239		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				12240		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				12241
				12242		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				12243
				12244		PRINT @ Query;
				12245
				12246		EXECUTE ( @Query);
				12247		END;
				12248
				12249
				12250
				12251		-- Test Ca ses
				12252		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag]
				12253		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @sta tus = '6,7 '
				12254		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @sta te = 'MD,V A'
				12255		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @for mStartToDa teText = ' 20141231'
				12256		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @hea lthFactor = '44,45,4 6,47'
				12257		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @dep loymentSta rtFromDate Text = '2 0120101'
				12258		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @for mCompletio nToDateTex t = '2014 1231'
				12259		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @hea lthConcern s = 'Yes' ,
				12260		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @req uestToBeSe en = 'Yes
				12261		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @sub population Flag = '85 ,87,89,105 ,106,91'
				12262		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @dep loymentAll = 'Iraq,d jibouti'
				12263		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @dep loymentExp osure = ' Iraq'
				12264		-- EXECUTE [AHOBPR]. [SP_GetReg istrantAdd Flag] @adm inFlag = ' 117', @exc ludeAdminF lag = 'Y' ,@adminFla gFromDateT ext = '201 50101' , @ adminFlagT oDateText = '2015020 1'
				12265		-- exec [A HOBPR].[SP _GetRegist rantAddFla g]
				12266		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Assign edLocation Type = 'NL A'
				12267		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Assign edLocation Type = 'VI SN', @Assi gnedLocati onKey = 'V 16'
				12268		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Assign edLocation Type = 'Ba se', @Assi gnedLocati onKey = '1 000089'
				12269		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Assign edLocation Type = 'In stitution' , @Assigne dLocationK ey = '1000 089'
				12270		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Evalua tedLocatio nType = 'N LA'
				12271		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Evalua tedLocatio nType = 'V ISN', @Eva luatedLoca tionKey = 'V16'
				12272		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Evalua tedLocatio nType = 'B ase', @Eva luatedLoca tionKey = '1000089'
				12273		-- exec [A HOBPR].[SP _GetRegist rantAddFla g] @Evalua tedLocatio nType = 'I nstitution ', @Evalua tedLocatio nKey = '10 00089'
				12274
				12275		GO
				12276		if exists( select * f rom sys.pr ocedures w here name = 'SP_GetR egistrantS endMessage '
				12277		and schem a_id = (se lect schem a_id from sys.schema s where na me = 'AHOB PR')
				12278		)
				12279		and not exists (s elect * fr om sys.pro cedures wh ere name = 'SP_GetRe gistrantSe ndMessage_ pre_2_0_32 _1'
				12280		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				12281		)
				12282		exec sp_ rename 'AH OBPR.SP_Ge tRegistran tSendMessa ge','SP_Ge tRegistran tSendMessa ge_pre_2_0 _32_1';
				12283		go
				12284		-- ======= ========== ========== ========== ========
				12285		-- Create date: Octo ber 28, 20 15
				12286		-- Descrip tion: Used to create the list of registr ant to sen d email/no tification s to.
				12287
				12288		-- Modific ation log
				12289		-- 2016-02 -03 - D. B arr - Fixe d logic on Evaluatio n Location (Script 2 .0.32.1)
				12290		--
				12291		-- ======= ========== ========== ========== ========
				12292		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antSendMes sage]
				12293		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				12294		@st ate varcha r(8000) = NULL, -- M ultiple st ates, comm a-separate d values w hen not NU LL
				12295		@fo rmStartFro mDateText varchar(10 0) = NULL,
				12296		@fo rmStartToD ateText va rchar(100) = NULL,
				12297		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				12298		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				12299		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				12300		@qu estionNumb er varchar (100) = NU LL,
				12301		@an swer varch ar(100) = NULL,
				12302		@he althConcer ns varchar (100) = 'A ll',
				12303		@re questToBeS een varcha r(100) = ' All',
				12304		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				12305		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				12306		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				12307		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				12308		@su bpopulatio nFlag varc har (8000) = NULL, - - Multiple subpopula tionFlags, comma-sep arated val ues when n ot NULL
				12309		@ad minFlag va rchar (10) = NULL,
				12310		@de ploymentAl l varchar (256) = NU LL,
				12311		@de ploymentEx posure var char (256) = NULL,
				12312		@ad minFlagFro mDateText varchar (2 0) = NULL,
				12313		@ad minFlagToD ateText va rchar (20) = NULL,
				12314		@ex cludeDead varchar(1) = 'N',
				12315		@co ntactPrefe rence varc har(100) = '',
				12316		@la stName var char(50) = '',
				12317		@ss n varchar( 4) = '',
				12318		@se parationTy pe INT = 0 ,
				12319		@se parationFr omDateText varchar ( 20) = NULL ,
				12320		@se parationTo DateText v archar (20 ) = NULL,
				12321		@fo rmBirthDat eText varc har(100) = NULL,
				12322		@em ail varcha r(100) = ' All',
				12323		@ev aluation v archar(100 ) = 'All',
				12324		@ex cludeAdmin Flag varch ar(1) = 'N '
				12325		AS
				12326
				12327		BEGIN
				12328
				12329		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				12330		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				12331		@formStart ToDate DAT ETIME2(0) = NULL,
				12332		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				12333		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				12334		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				12335		@adminFlag ToDate DAT ETIME2(0) = NULL,
				12336		@separatio nFromDate DATETIME2( 0) = NULL,
				12337		@separatio nToDate DA TETIME2(0) = NULL,
				12338		@formBirth Date DATET IME2(0) = NULL;
				12339
				12340		DECLARE @Query VAR CHAR(8000) ;
				12341		DECLARE @MainQuery VARCHAR(8 000);
				12342		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				12343		DECLARE @AdminWith VARCHAR(8 000);
				12344		DECLARE @SubPopWit h VARCHAR( 8000);
				12345		DECLARE @DeployWit h VARCHAR( 8000);
				12346
				12347		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				12348		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				12349		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				12350		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				12351		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				12352		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				12353		SE T @separat ionFromDat e = dbo.Cl eanDate(@s eparationF romDateTex t);
				12354		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				12355		SET @fo rmBirthDat e = dbo.Cl eanDate(@f ormBirthDa teText);
				12356
				12357		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				12358		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				12359		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				12360
				12361		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				12362		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				12363		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				12364
				12365		-- Set Ins titutionID values if needed.
				12366		DECLARE @A ssignedIns titutionId INT = 0,
				12367		@E valuatedIn stitutionI d INT = 0;
				12368
				12369		IF @Assign edLocation Type IN (' Base','Ins titution')
				12370		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				12371		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				12372
				12373		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				12374		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				12375		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				12376
				12377		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				12378		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				12379		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				12380		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				12381		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				12382		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				12383		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				12384		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				12385		' F ROM AHOBPR .REGISTRAN T a ' +
				12386		'WH ERE 1 = 1 ';
				12387
				12388		--Concat enate one or more Ad min flags for Regist rants with flags
				12389		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				12390		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				12391		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				12392		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				12393		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				12394		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				12395		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				12396		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				12397		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				12398		' FROM A HOBPR.REGI STRANT a ' +
				12399		' WHERE 1 = 1 ';
				12400
				12401		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				12402		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				12403		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				12404		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				12405		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				12406		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				12407		' FROM AHOBPR.RE GISTRANT a ' +
				12408		' WHERE 1 = 1 ';
				12409
				12410		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				12411		', (a.LAST_NA ME + '', ' ' + a.FIRS T_NAME) AS Name ' +
				12412		', b.REGISTRA NT_STATUS AS Status ' +
				12413		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				12414		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				12415		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				12416		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				12417		-- ',RIGHT(a. SSN, 4) AS SSN ';
				12418		--Decide w hich query to run de pending on if a ques tion was s elected as a paramet er for the report
				12419		IF ISNUL L(@questio nNumber, ' ') = ''
				12420		SET @M ainQuery = @MainQuer y + ','''' AS Questi onNumber ' +
				12421		','''' AS Answer '
				12422		ELSE
				12423		SET @M ainQuery = @MainQuer y + ',''' + @questio nNumber + ''' AS Que stionNumbe r ' +
				12424		',STUF F((SELECT '', '' + s tdAnswer.T EXT ' +
				12425		' FROM AHOBPR.FOR M_RESPONSE _ANSWER an swer ' +
				12426		' JOIN AHOBPR.STD _FORM_ANSW ER stdAnsw er ON answ er.STD_FOR M_ANSWER_I D = stdAns wer.STD_FO RM_ANSWER_ ID ' +
				12427		' WHERE formQuesti on.FORM_RE SPONSE_QUE STION_ID = answer.FO RM_RESPONS E_QUESTION _ID ' +
				12428		' FOR XM L PATH(''' ')), 1, 1, '''') AS Answer ' ;
				12429
				12430		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				12431		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				12432		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				12433		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				12434		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				12435		',a.BI RTH_DATE A S BirthDat e ' +
				12436		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				12437		',RIGH T(a.SSN, 4 ) AS SSN ' +
				12438		'FROM AH OBPR.REGIS TRANT a '
				12439
				12440		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				12441		' LEFT JOI N AHOBPR.F ORM_RESPON SE d ON a. REGISTRANT _ID = d.R EGISTRANT_ ID ' +
				12442		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				12443		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				12444		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				12445		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ';
				12446
				12447		IF ISNUL L(@questio nNumber, ' ') != ''
				12448		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				12449		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				12450
				12451		SET @M ainQuery = @MainQuer y + ' WHER E 1 = 1 ';
				12452
				12453
				12454		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				12455		IF ISNUL L(@questio nNumber, ' ') > ''
				12456		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				12457
				12458		IF ISNUL L(@answer, '') != ''
				12459		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SE LECT fr.RE GISTRANT_I D FROM AHO BPR.FORM_R ESPONSE_AN SWER ra ' +
				12460		'JOI N AHOBPR.F ORM_RESPON SE_QUESTIO N rq ON rq .FORM_RESP ONSE_QUEST ION_ID = r a.FORM_RES PONSE_QUES TION_ID ' +
				12461		'JOI N AHOBPR.F ORM_RESPON SE fr ON f r.FORM_RES PONSE_ID = rq.FORM_R ESPONSE_ID ' +
				12462		'JOI N AHOBPR.S TD_FORM_AN SWER A1 ON A1.STD_FO RM_ANSWER_ ID = ra.ST D_FORM_ANS WER_ID ' +
				12463		'JOI N AHOBPR.S TD_FORM_QU ESTION Q1 ON Q1.STD_ FORM_QUEST ION_ID = r q.STD_FORM _QUESTION_ ID ' +
				12464		'JOI N AHOBPR.S TD_FORM_QU ESTION Q2 ON Q2.FORM _QUESTION_ UNIQUE_ID = Q1.FORM_ QUESTION_U NIQUE_ID ' +
				12465		'JOI N AHOBPR.S TD_FORM_AN SWER A2 ON A2.STD_FO RM_QUESTIO N_ID = Q2. STD_FORM_Q UESTION_ID ' +
				12466		' AN D A1.BRP_F ORM_ANSWER _ID = A2.B RP_FORM_AN SWER_ID ' +
				12467		' WHER E A2.STD_F ORM_ANSWER _ID IN (' + @answer + ') AND f r.REGISTRA NT_ID = a. REGISTRANT _ID )';
				12468
				12469		IF @form StartFromD ate IS NOT NULL
				12470		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				12471
				12472		IF @form StartToDat e IS NOT N ULL
				12473		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				12474
				12475		IF @form Completion FromDate I S NOT NULL
				12476		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				12477
				12478		IF @form Completion ToDate IS NOT NULL
				12479		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				12480
				12481		IF @form BirthDate IS NOT NUL L
				12482		SET @ MainQuery = @MainQue ry + ' AND a.BIRTH_D ATE = ''' + CONVERT( VARCHAR(20 ),@formBir thDate,121 ) + '''';
				12483
				12484
				12485
				12486		IF ISNUL L(@subpopu lationFlag ,'') != ''
				12487		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				12488		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				12489		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				12490
				12491		IF (ISNULL(@ adminFlag, '') != '')
				12492		IF (ISNULL (@excludeA dminFlag,' N') = 'N')
				12493		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_REGISTRY _FLAG admi nflag ' +
				12494		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				12495		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				12496		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				12497		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) '
				12498		ELSE
				12499		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G adminfla g ' +
				12500		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				12501		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				12502		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				12503		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				12504		IF (@em ail = 'Yes ')
				12505		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_EMAIL em ' +
				12506		' WHER E em.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				12507		' AN D em.EMAIL != '''') '
				12508		ELSE IF (@email = 'No')
				12509		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_EM AIL em ' +
				12510		' WHER E em.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				12511		' AN D em.EMAIL != '''') ' ;
				12512
				12513		IF (@eva luation = 'Yes')
				12514		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev ' +
				12515		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				12516		' AN D ev.EVALU ATION_FLAG = ''Y'') '
				12517		ELSE IF (@evaluat ion = 'No' )
				12518		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT ev ' +
				12519		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				12520		' AN D ev.EVALU ATION_FLAG = ''Y'') ' ;
				12521
				12522		IF ISNUL L(@deploym entAll,'') != ''
				12523		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				12524		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				12525		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				12526
				12527		IF ISNUL L(@healthF actor,'') != ''
				12528		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				12529		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				12530		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				12531		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				12532
				12533
				12534		IF ISNUL L(@deploym entExposur e,'') != ' '
				12535		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				12536		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				12537		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				12538		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				12539		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				12540		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				12541
				12542		IF ISNUL L(@state,' ') != ''
				12543		BE GIN
				12544		SET @state = R EPLACE(@St ate,',','' ',''');
				12545		SET @MainQuery = @MainQu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _ADDRESS a ddr ' +
				12546		' WHER E addr.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				12547		'AND addr.STAT E IN ( '' ' + @state + ''') ) ';
				12548		EN D;
				12549
				12550
				12551		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				12552		IF @stat us IS NOT NULL
				12553		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				12554
				12555
				12556		IF @heal thConcerns != 'All'
				12557		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				12558
				12559		IF @requ estToBeSee n != 'All'
				12560		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				12561
				12562		IF ISNUL L(@exclude Dead,'N') = 'Y'
				12563		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				12564
				12565		IF ISNUL L(@contact Preference ,'') != ''
				12566		SET @R egCriteria = @RegCri teria + ' AND ''' + @contactPr eference + ''' = ISN ULL(a.CONT ACT_PREFER ENCE,''No Data Avail able'') ';
				12567
				12568		IF ISNUL L(@ssn,'') != ''
				12569		SET @R egCriteria = @RegCri teria + ' AND RIGHT( a.SSN, 4) = ''' + @s sn + '''' ;
				12570
				12571		IF ISNUL L(@separat ionType,0) != 0
				12572		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				12573
				12574		IF @sepa rationFrom Date IS NO T NULL
				12575		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				12576
				12577		IF @sepa rationToDa te IS NOT NULL
				12578		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				12579
				12580		IF ISNUL L(@lastNam e,'') != ' '
				12581		SET @R egCriteria = @RegCri teria + ' AND RTRIM( LTRIM(a.LA ST_NAME)) LIKE ''' + @lastName + '''';
				12582
				12583		IF @Assi gnedLocati onType IS NOT NULL
				12584		BEGIN
				12585		IF @ AssignedLo cationType = 'NLA'
				12586		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				12587		ELSE
				12588		IF @ AssignedLo cationType = 'VISN'
				12589		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				12590		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				12591		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				12592		ELSE
				12593		IF @ AssignedLo cationType = 'Base'
				12594		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				12595		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				12596		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				12597		ELSE
				12598		IF @ AssignedLo cationType = 'Instit ution'
				12599		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				12600		END;
				12601
				12602		IF @Eval uatedLocat ionType IS NOT NULL
				12603		BEGIN
				12604		IF @ EvaluatedL ocationTyp e = 'NLA'
				12605		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				12606		' WHERE eva l.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				12607		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				12608		ELSE
				12609		IF @ EvaluatedL ocationTyp e = 'VISN'
				12610		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				12611		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				12612		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				12613		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				12614		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				12615		ELSE
				12616		IF @ EvaluatedL ocationTyp e = 'Base'
				12617		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				12618		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				12619		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				12620		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				12621		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				12622		ELSE
				12623		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				12624		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				12625		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				12626		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				12627		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				12628		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				12629		END;
				12630
				12631		-- Add cri teria and Close With Statement
				12632		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				12633		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				12634		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				12635
				12636		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				12637
				12638		PRINT @ Query;
				12639
				12640		EXECUTE ( @Query);
				12641		END;
				12642
				12643
				12644
				12645		-- Test Ca ses
				12646		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage]
				12647		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @status = '6,7'
				12648		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @evaluatio n = 'N', @ status = ' 7'
				12649		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @contactPr eference = 'Email fr om the VA'
				12650		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @state = ' MD,VA'
				12651		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage_c hanges] @f ormBirthDa teText = '19770707'
				12652		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formStart ToDateText = '201412 31'
				12653		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthFac tor = '44, 45,46,47'
				12654		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionFromD ateText = '20010101 '
				12655		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionToDat eText = ' 20141231'
				12656		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthCon cerns = 'Y es' ,
				12657		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @requestTo BeSeen = ' Yes
				12658		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @subpopula tionFlag = '85,87,89 ,105,106,9 1'
				12659		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tAll = 'Eg ypt'
				12660		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tExposure = 'Iraq'
				12661		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @adminFlag = '117', @excludeAd minFlag = 'Y' ,@admi nFlagFromD ateText = '20150101' , @adminF lagToDateT ext = '201 50201'
				12662		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @questionN umber = '5 .4.A' , @ answer = ' 2221'
				12663		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage]
				12664		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'NLA'
				12665		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'VISN', @ AssignedLo cationKey = 'V16'
				12666		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Base', @ AssignedLo cationKey = '1000089 '
				12667		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Institut ion', @Ass ignedLocat ionKey = ' 1000089'
				12668		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @s sn = '1125 '
				12669		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'NLA'
				12670		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'VISN', @Evaluated LocationKe y = 'V16'
				12671		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Base', @Evaluated LocationKe y = '10000 89'
				12672		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Institu tion', @Ev aluatedLoc ationKey = '1000089'
				12673
				12674
				12675		GO
				12676
				12677		if exists( select * f rom sys.pr ocedures w here name = 'SP_Repo rtAdHocByI ndividual'
				12678		and schem a_id = (se lect schem a_id from sys.schema s where na me = 'AHOB PR')
				12679		)
				12680		and not exists (s elect * fr om sys.pro cedures wh ere name = 'SP_Repor tAdHocByIn dividual_p re_2_0_32_ 1'
				12681		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				12682		)
				12683		exec sp_ rename 'AH OBPR.SP_Re portAdHocB yIndividua l','SP_Rep ortAdHocBy Individual _pre_2_0_3 2_1';
				12684		go
				12685
				12686		-- ======= ========== ========== ========== ========
				12687		-- Author: Debora h Barr
				12688		-- Create date: Nove mber 12, 2 014
				12689		-- Descrip tion: Used for the A HOBPR Ad H oc Report
				12690
				12691		-- Modific ation log
				12692		-- 2014-12 -31 - Chan ged from F LAG to RES PONSE for Health Con cerns and REQUEST_SE EN, Reform atted stat ements for readabili ty
				12693		-- 2015-01 -05 - Chan ge Date Fo rmat to MM /DD/YYYY
				12694		-- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ healthFact or, @formS tartFromDa te, @formS tartToDate , @subpopu lationFlag
				12695		-- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ adminFlag, @deployme ntAll, @de ploymentEx posure, @a dminFlagFr omDate, @a dminFlagTo Date
				12696		-- 2015-01 -16 - Bruc e Clegg - Fix parame ters and r emove NULL s from dis play where possible
				12697		-- 2015-02 -09 - Bruc e Clegg - Change Hea lth Factor Exists st atements t o use new REGISTRANT _VISIT
				12698		-- 2015-03 -30 - Bruc e Clegg - Added Visn Id value o f NLA to f ind Null l ocations
				12699		-- 2015-04 -27 - Bruc e Clegg - Change to LocationTy pe and Key , for both Assigned and Evalua ted Locati ons
				12700		-- 2015-06 -04 - Bruc e Clegg - Add more p arameters
				12701		-- 2015-06 -18 - Bruc e Clegg - Changed @s eparationT ype to an Integer
				12702		-- 2015-07 -09 - Bruc e CLegg - Rewrote as Dynamic S QL for per formance
				12703		-- 2016-02 -03 - D. B arr - Fixe d logic on Evaluatio n Location (Script 2 .0.32.1)
				12704		-- ======= ========== ========== ========== ========
				12705		CREATE PRO CEDURE [AH OBPR].[SP_ ReportAdHo cByIndivid ual]
				12706		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				12707		@du tyStatus v archar(100 ) = NULL, -- Multipl e states, comma-sepa rated valu es when no t NULL
				12708		@fo rmStartFro mDateText varchar(10 0) = NULL,
				12709		@fo rmStartToD ateText va rchar(100) = NULL,
				12710		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				12711		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				12712		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				12713		@qu estionNumb er varchar (100) = NU LL,
				12714		@an swer varch ar(100) = NULL,
				12715		@he althConcer ns varchar (100) = 'A ll',
				12716		@re questToBeS een varcha r(100) = ' All',
				12717		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				12718		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				12719		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				12720		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				12721		@su bpopulatio nFlag varc har (10) = NULL,
				12722		@ad minFlag va rchar (10) = NULL,
				12723		@de ploymentAl l varchar (256) = NU LL,
				12724		@de ploymentEx posure var char (256) = NULL,
				12725		@ad minFlagFro mDateText varchar (2 0) = NULL,
				12726		@ad minFlagToD ateText va rchar (20) = NULL,
				12727		@ex cludeDead varchar(1) = 'N',
				12728		@ge nder varch ar(50) = ' ',
				12729		@ra ce varchar (50) = '',
				12730		@et hnicity va rchar(50) = '',
				12731		@se parationTy pe INT = 0 ,
				12732		@se parationFr omDateText varchar ( 20) = NULL ,
				12733		@se parationTo DateText v archar (20 ) = NULL,
				12734		@en rollmentSt atus varch ar(50) = ' ',
				12735		@ev aluation v archar(100 ) = 'All'
				12736		AS
				12737
				12738		BEGIN
				12739
				12740		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				12741		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				12742		@formStart ToDate DAT ETIME2(0) = NULL,
				12743		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				12744		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				12745		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				12746		@adminFlag ToDate DAT ETIME2(0) = NULL,
				12747		@separatio nFromDate DATETIME2( 0) = NULL,
				12748		@separatio nToDate DA TETIME2(0) = NULL;
				12749
				12750		DECLARE @Query VAR CHAR(8000) ;
				12751		DECLARE @MainQuery VARCHAR(8 000);
				12752		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				12753		DECLARE @AdminWith VARCHAR(8 000);
				12754		DECLARE @SubPopWit h VARCHAR( 8000);
				12755		DECLARE @DeployWit h VARCHAR( 8000);
				12756
				12757		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				12758		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				12759		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				12760		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				12761		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				12762		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				12763		SE T @separat ionFromDat e = dbo.Cl eanDate(@s eparationF romDateTex t);
				12764		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				12765
				12766		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				12767		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				12768		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				12769
				12770		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				12771		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				12772		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				12773
				12774		-- Set Ins titutionID values if needed.
				12775		DECLARE @A ssignedIns titutionId INT = 0,
				12776		@E valuatedIn stitutionI d INT = 0;
				12777
				12778		IF @Assign edLocation Type IN (' Base','Ins titution')
				12779		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				12780		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				12781
				12782		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				12783		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				12784		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				12785
				12786		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				12787		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				12788		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				12789		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				12790		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				12791		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				12792		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				12793		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				12794		' F ROM AHOBPR .REGISTRAN T a ' +
				12795		'WH ERE 1 = 1 ';
				12796
				12797		--Concat enate one or more Ad min flags for Regist rants with flags
				12798		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				12799		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				12800		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				12801		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				12802		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				12803		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				12804		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				12805		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				12806		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				12807		' FROM A HOBPR.REGI STRANT a ' +
				12808		' WHERE 1 = 1 ';
				12809
				12810		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				12811		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				12812		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				12813		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				12814		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				12815		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				12816		' FROM AHOBPR.RE GISTRANT a ' +
				12817		' WHERE 1 = 1 ';
				12818
				12819		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				12820		', (a.LAST_NA ME + '', ' ' + a.FIRS T_NAME) AS Name ' +
				12821		', b.REGISTRA NT_STATUS AS Status ' +
				12822		', c.SERVICE_ STATUS AS DutyStatus ' +
				12823		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				12824		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				12825		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				12826		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				12827		--Decide w hich query to run de pending on if a ques tion was s elected as a paramet er for the report
				12828		IF ISNUL L(@questio nNumber, ' ') = ''
				12829		SET @M ainQuery = @MainQuer y + ','''' AS Questi onNumber ' +
				12830		','''' AS Answer '
				12831		ELSE
				12832		SET @M ainQuery = @MainQuer y + ',''' + @questio nNumber + ''' AS Que stionNumbe r ' +
				12833		',STUF F((SELECT '', '' + s tdAnswer.T EXT ' +
				12834		' FROM AHOBPR.FOR M_RESPONSE _ANSWER an swer ' +
				12835		' JOIN AHOBPR.STD _FORM_ANSW ER stdAnsw er ON answ er.STD_FOR M_ANSWER_I D = stdAns wer.STD_FO RM_ANSWER_ ID ' +
				12836		' WHERE formQuesti on.FORM_RE SPONSE_QUE STION_ID = answer.FO RM_RESPONS E_QUESTION _ID ' +
				12837		' FOR XM L PATH(''' ')), 1, 1, '''') AS Answer ' ;
				12838
				12839		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				12840		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				12841		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				12842		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				12843		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				12844		',a.BI RTH_DATE A S BirthDat e ' +
				12845		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				12846		'FROM AH OBPR.REGIS TRANT a '
				12847
				12848		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				12849		' JOIN AHOBP R.STD_SERV ICE_STATUS c ON a.ST D_SERVICE_ STATUS_ID = c.STD_SE RVICE_STAT US_ID ' +
				12850		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				12851		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				12852		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				12853		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				12854		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ';
				12855
				12856		IF ISNUL L(@questio nNumber, ' ') != ''
				12857		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				12858		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				12859
				12860		SET @Mai nQuery = @ MainQuery + ' WHERE 1 = 1 ';
				12861
				12862
				12863		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				12864		IF ISNUL L(@questio nNumber, ' ') > ''
				12865		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				12866
				12867		IF ISNUL L(@answer, '') != ''
				12868		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SE LECT fr.RE GISTRANT_I D FROM AHO BPR.FORM_R ESPONSE_AN SWER ra ' +
				12869		'JOI N AHOBPR.F ORM_RESPON SE_QUESTIO N rq ON rq .FORM_RESP ONSE_QUEST ION_ID = r a.FORM_RES PONSE_QUES TION_ID ' +
				12870		'JOI N AHOBPR.F ORM_RESPON SE fr ON f r.FORM_RES PONSE_ID = rq.FORM_R ESPONSE_ID ' +
				12871		'JOI N AHOBPR.S TD_FORM_AN SWER A1 ON A1.STD_FO RM_ANSWER_ ID = ra.ST D_FORM_ANS WER_ID ' +
				12872		'JOI N AHOBPR.S TD_FORM_QU ESTION Q1 ON Q1.STD_ FORM_QUEST ION_ID = r q.STD_FORM _QUESTION_ ID ' +
				12873		'JOI N AHOBPR.S TD_FORM_QU ESTION Q2 ON Q2.FORM _QUESTION_ UNIQUE_ID = Q1.FORM_ QUESTION_U NIQUE_ID ' +
				12874		'JOI N AHOBPR.S TD_FORM_AN SWER A2 ON A2.STD_FO RM_QUESTIO N_ID = Q2. STD_FORM_Q UESTION_ID ' +
				12875		' AN D A1.BRP_F ORM_ANSWER _ID = A2.B RP_FORM_AN SWER_ID ' +
				12876		' WHER E A2.STD_F ORM_ANSWER _ID IN (' + @answer + ') AND f r.REGISTRA NT_ID = a. REGISTRANT _ID )';
				12877
				12878		IF @form StartFromD ate IS NOT NULL
				12879		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				12880
				12881		IF @form StartToDat e IS NOT N ULL
				12882		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				12883
				12884		IF @form Completion FromDate I S NOT NULL
				12885		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				12886
				12887		IF @form Completion ToDate IS NOT NULL
				12888		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				12889
				12890		IF ISNUL L(@subpopu lationFlag ,'') != ''
				12891		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				12892		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				12893		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				12894
				12895		IF ISNULL(@a dminFlag,' ') != ''
				12896		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG adminfl ag ' +
				12897		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				12898		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				12899		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				12900		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				12901
				12902		IF ISNUL L(@deploym entAll,'') != ''
				12903		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				12904		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				12905		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				12906
				12907		IF ISNUL L(@healthF actor,'') != ''
				12908		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				12909		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				12910		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				12911		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				12912
				12913
				12914		IF ISNUL L(@deploym entExposur e,'') != ' '
				12915		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				12916		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				12917		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				12918		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				12919		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				12920		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				12921
				12922		IF (@eva luation = 'Yes')
				12923		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev ' +
				12924		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				12925		' AN D ev.EVALU ATION_FLAG = ''Y'') '
				12926		ELSE IF (@evaluat ion = 'No' )
				12927		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT ev ' +
				12928		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				12929		' AN D ev.EVALU ATION_FLAG = ''Y'') ' ;
				12930
				12931
				12932		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				12933		IF @stat us IS NOT NULL
				12934		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				12935
				12936		IF ISNUL L(@dutySta tus,'') > ''
				12937		SET @R egCriteria = @RegCri teria + ' AND a.STD_ SERVICE_ST ATUS_ID IN (' + @dut yStatus + ')';
				12938
				12939		IF @heal thConcerns != 'All'
				12940		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				12941
				12942		IF @requ estToBeSee n != 'All'
				12943		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				12944
				12945		IF ISNUL L(@exclude Dead,'N') = 'Y'
				12946		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				12947
				12948		IF ISNUL L(@gender, '') != ''
				12949		SET @R egCriteria = @RegCri teria + ' AND ''' + @gender + ''' = ISNU LL(a.GENDE R,''No Dat a Availabl e'') ';
				12950
				12951		IF ISNUL L(@ethnici ty,'') != ''
				12952		SET @R egCriteria = @RegCri teria + ' AND ''' + @ethnicity + ''' = I SNULL(a.ET HNICITY,'' No Data Av ailable'') ';
				12953
				12954		IF ISNUL L(@separat ionType,0) != 0
				12955		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				12956
				12957		IF @sepa rationFrom Date IS NO T NULL
				12958		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				12959
				12960		IF @sepa rationToDa te IS NOT NULL
				12961		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				12962
				12963		IF ISNUL L(@race,'' ) != ''
				12964		SET @R egCriteria = @RegCri teria + ' AND ''' + @race + '' ' = ISNUL L(a.RACE , ''No Data Available' ') ';
				12965
				12966		IF ISNUL L(@enrollm entStatus, '') != ''
				12967		SET @R egCriteria = @RegCri teria + ' AND ''' + @enrollmen tStatus + ''' = ISNU LL(a.ENROL LMENT_STAT US,''No Da ta Availab le'') ';
				12968
				12969		IF @Assi gnedLocati onType IS NOT NULL
				12970		BEGIN
				12971		IF @ AssignedLo cationType = 'NLA'
				12972		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				12973		ELSE
				12974		IF @ AssignedLo cationType = 'VISN'
				12975		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				12976		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				12977		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				12978		ELSE
				12979		IF @ AssignedLo cationType = 'Base'
				12980		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				12981		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				12982		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				12983		ELSE
				12984		IF @ AssignedLo cationType = 'Instit ution'
				12985		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				12986		END;
				12987
				12988		IF @Eval uatedLocat ionType IS NOT NULL
				12989		BEGIN
				12990		IF @ EvaluatedL ocationTyp e = 'NLA'
				12991		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				12992		' WHERE eva l.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				12993		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				12994		ELSE
				12995		IF @ EvaluatedL ocationTyp e = 'VISN'
				12996		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				12997		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				12998		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				12999		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				13000		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				13001		ELSE
				13002		IF @ EvaluatedL ocationTyp e = 'Base'
				13003		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				13004		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				13005		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				13006		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				13007		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				13008		ELSE
				13009		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				13010		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				13011		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				13012		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				13013		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				13014		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				13015		END;
				13016
				13017		-- Add cri teria and Close With Statement
				13018		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				13019		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				13020		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				13021
				13022		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				13023
				13024		PRINT @ Query;
				13025
				13026		EXECUTE ( @Query);
				13027		END;
				13028
				13029
				13030
				13031		-- Test Ca ses
				13032		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual]
				13033		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ status = ' 6,7'
				13034		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ dutyStatus = '1,2'
				13035		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formStartF romDateTex t = '2001 0101'
				13036		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formStartT oDateText = '2014123 1'
				13037		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ healthFact or = '44,4 5,46,47'
				13038		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formComple tionFromDa teText = '20010101'
				13039		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formComple tionToDate Text = '2 0141231'
				13040		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ healthConc erns = 'Ye s' ,
				13041		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ requestToB eSeen = 'Y es
				13042		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ subpopulat ionFlag = '64,65,66, 67'
				13043		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ deployment All = 'Egy pt'
				13044		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ deployment Exposure = 'Iraq'
				13045		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ adminFlag = '59,60' ,@adminFla gFromDateT ext = '201 50101' , @ adminFlagT oDateText = '2015020 1'
				13046		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ questionNu mber = '5. 4.A' , @a nswer = '2 221'
				13047		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual]
				13048		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'NLA'
				13049		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'VISN', @A ssignedLoc ationKey = 'V16'
				13050		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'Base', @A ssignedLoc ationKey = '1000089'
				13051		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'Instituti on', @Assi gnedLocati onKey = '1 000089'
				13052		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @et hnicity = 'JEWISH'
				13053		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'NLA'
				13054		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'VISN', @ EvaluatedL ocationKey = 'V16'
				13055		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'Base', @ EvaluatedL ocationKey = '100008 9'
				13056		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'Institut ion', @Eva luatedLoca tionKey = '1000089'
				13057
				13058
				13059		GO
				13060
				13061		if exists( select * f rom sys.pr ocedures w here name = 'SP_Repo rtRegistra ntContact'
				13062		and schem a_id = (se lect schem a_id from sys.schema s where na me = 'AHOB PR')
				13063		)
				13064		and not exists (s elect * fr om sys.pro cedures wh ere name = 'SP_Repor tRegistran tContact_p re_2_0_32_ 1'
				13065		and schema _id = (sel ect schema _id from s ys.schemas where nam e = 'AHOBP R')
				13066		)
				13067		exec sp_ rename 'AH OBPR.SP_Re portRegist rantContac t','SP_Rep ortRegistr antContact _pre_2_0_3 2_1';
				13068		go
				13069		-- ======= ========== ========== ========== ========
				13070		-- Author: Bruce Clegg
				13071		-- Create date: Jan 12, 2015
				13072		-- Descrip tion: Used for the A HOBPR Cont act Report -- exec [AHOBPR].[ SP_ReportR egistrantC ontact] (More opt ions at bo ttom)
				13073		-- 2015-02 -23 - Cleg g - provid e individu al field n ames
				13074		-- 2015033 0 - Bruce Clegg - Ad ded VisnId value of NLA to fin d Null loc ations
				13075		-- 2015042 7 - Bruce Clegg - Ch ange to Lo cationType and Key, for both A ssigned an d Evaluate d Location s
				13076		-- 2015042 9 - Bruce Clegg - Ad ded Email column (ag ain)
				13077		-- 2015061 7 - D. Bar r - Added state para meter
				13078		-- 2015072 2 - Bruce Clegg - Fi x bug with @Evaluate dLocationT ype = 'Bas e'
				13079		-- 2015090 1 - Bruce Clegg Fix Main phone . TYPE is not NULL so old way does not work
				13080		-- 2015102 8 - D. Bar r - Change d input pa rameters
				13081		-- 2016020 3 - D. Bar r - Fixed logic on E valuation Location ( Script 2.0 .32.1)
				13082		--
				13083		-- ======= ========== ========== ========== ========
				13084		CREATE PRO CEDURE [AH OBPR].[SP_ ReportRegi strantCont act]
				13085		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				13086		@st ate varcha r(8000) = NULL, -- M ultiple st ates, comm a-separate d values w hen not NU LL
				13087		@fo rmStartFro mDateText varchar(10 0) = NULL,
				13088		@fo rmStartToD ateText va rchar(100) = NULL,
				13089		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				13090		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				13091		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				13092		@qu estionNumb er varchar (100) = NU LL,
				13093		@an swer varch ar(100) = NULL,
				13094		@he althConcer ns varchar (100) = 'A ll',
				13095		@re questToBeS een varcha r(100) = ' All',
				13096		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				13097		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				13098		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				13099		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				13100		@su bpopulatio nFlag varc har (8000) = NULL, - - Multiple subpopula tionFlags, comma-sep arated val ues when n ot NULL
				13101		@ad minFlag va rchar (10) = NULL,
				13102		@de ploymentAl l varchar (256) = NU LL,
				13103		@de ploymentEx posure var char (256) = NULL,
				13104		@ad minFlagFro mDateText varchar (2 0) = NULL,
				13105		@ad minFlagToD ateText va rchar (20) = NULL,
				13106		@ex cludeDead varchar(1) = 'N',
				13107		@co ntactPrefe rence varc har(100) = '',
				13108		@la stName var char(50) = '',
				13109		@ss n varchar( 4) = '',
				13110		@se parationTy pe INT = 0 ,
				13111		@se parationFr omDateText varchar ( 20) = NULL ,
				13112		@se parationTo DateText v archar (20 ) = NULL,
				13113		@fo rmBirthDat eText varc har(100) = NULL,
				13114		@em ail varcha r(100) = ' All',
				13115		@ev aluation v archar(100 ) = 'All',
				13116		@ex cludeAdmin Flag varch ar(1) = 'N '
				13117		AS
				13118
				13119		BEGIN
				13120
				13121		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				13122		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				13123		@formStart ToDate DAT ETIME2(0) = NULL,
				13124		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				13125		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				13126		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				13127		@adminFlag ToDate DAT ETIME2(0) = NULL,
				13128		@separatio nFromDate DATETIME2( 0) = NULL,
				13129		@separatio nToDate DA TETIME2(0) = NULL,
				13130		@formBirth Date DATET IME2(0) = NULL;
				13131
				13132		DECLARE @Query VAR CHAR(8000) ;
				13133		DECLARE @MainQuery VARCHAR(8 000);
				13134		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				13135		DECLARE @AdminWith VARCHAR(8 000);
				13136		DECLARE @SubPopWit h VARCHAR( 8000);
				13137		DECLARE @DeployWit h VARCHAR( 8000);
				13138
				13139		--registr ant contac t numbers
				13140		CREATE T ABLE #phon e
				13141		(
				13142		[Regi strant_Id] INT,
				13143		[Phon e] VARCHAR (50),
				13144		)
				13145
				13146		CREATE TABLE #mob ile
				13147		(
				13148		[Regi strant_Id] INT,
				13149		[Phon eMobile] V ARCHAR(50) ,
				13150		)
				13151		INSERT INTO #phon e ([Regist rant_Id], [Phone])
				13152		-- Load Table
				13153		SELECT R EGISTRANT_ ID,
				13154		ISNULL( PHONE_NUMB ER,'')
				13155		FROM AHOBPR.RE GISTRANT_P HONE
				13156		WHERE ISNULL(TY PE,'') != 'Mobile'
				13157
				13158
				13159		INSERT IN TO #mobile ([Registr ant_Id], [ PhoneMobil e])
				13160		-- Load Table
				13161		SELECT R EGISTRANT_ ID,
				13162		ISNULL( PHONE_NUMB ER,'')
				13163		FROM AHOBPR.RE GISTRANT_P HONE
				13164		WHERE TYPE = 'Mo bile'
				13165
				13166
				13167
				13168
				13169
				13170		CREATE T ABLE #stat e
				13171		(
				13172		[Regi strant_Id] INT,
				13173		[stat e] VARCHAR (8000)
				13174		)
				13175
				13176		SET @sta te = REPLA CE(@state, 'Foreign Country/Ot her', 'For eign Count ry/Other,F M,MH,PW,UM ,US,CANAD, MX,EU,PI,F G,OT,UN')
				13177
				13178		INSERT I NTO #state ([Registr ant_Id], [ state])
				13179		-- Load Table
				13180		SELECT a .REGISTRAN T_ID,
				13181		ST UFF((SELEC T ', ' + b .STATE
				13182		FRO M AHOBPR.R EGISTRANT_ ADDRESS b
				13183		WHER E a.REGIST RANT_ID = b.REGISTRA NT_ID
				13184		FOR XML PATH(' ')), 1, 1, '') [STA TE]
				13185		FROM A HOBPR.REGI STRANT a
				13186		GROUP B Y a.REGIST RANT_ID;
				13187
				13188
				13189
				13190		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				13191		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				13192		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				13193		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				13194		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				13195		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				13196		SE T @separat ionFromDat e = dbo.Cl eanDate(@s eparationF romDateTex t);
				13197		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				13198		SET @fo rmBirthDat e = dbo.Cl eanDate(@f ormBirthDa teText);
				13199
				13200		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				13201		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				13202		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				13203
				13204		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				13205		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				13206		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				13207
				13208		-- Set Ins titutionID values if needed.
				13209		DECLARE @A ssignedIns titutionId INT = 0,
				13210		@E valuatedIn stitutionI d INT = 0;
				13211
				13212		IF @Assign edLocation Type IN (' Base','Ins titution')
				13213		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				13214		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				13215
				13216		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				13217		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				13218		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				13219
				13220		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				13221		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				13222		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				13223		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				13224		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				13225		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				13226		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				13227		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				13228		' F ROM AHOBPR .REGISTRAN T a ' +
				13229		'WH ERE 1 = 1 ';
				13230
				13231		--Concat enate one or more Ad min flags for Regist rants with flags
				13232		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				13233		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				13234		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				13235		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				13236		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				13237		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				13238		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				13239		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				13240		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				13241		' FROM A HOBPR.REGI STRANT a ' +
				13242		' WHERE 1 = 1 ';
				13243
				13244		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				13245		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				13246		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				13247		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				13248		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				13249		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				13250		' FROM AHOBPR.RE GISTRANT a ' +
				13251		' WHERE 1 = 1 ';
				13252
				13253		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				13254		', a.LAST_NAM E AS LAST_ NAME ' +
				13255		', a.FIRST_NA ME AS FIRS T_NAME ' +
				13256		', a.CONTACT_ PREFERENCE AS Contac tPreferenc e ' +
				13257		', regADDR.ST REET1 AS S TREET1 ' +
				13258		', regADDR.ST REET2 AS S TREET2 ' +
				13259		', regADDR.CI TY AS CITY ' +
				13260		', regADDR.ST ATE AS STA TE ' +
				13261		', regADDR.CO UNTRY AS C OUNTRY ' +
				13262		', regADDR.ZI P AS ZIP ' +
				13263		', regPhone.P hone AS P HONE_NUMBE R_Main' +
				13264		',re gMobile.Ph oneMobile AS PHONE_ NUMBER_Mob ile' +
				13265		', regEmail.E MAIL AS EM AIL ';
				13266
				13267
				13268
				13269		SET @Mai nQuery = @ MainQuery +
				13270
				13271		'FROM AH OBPR.REGIS TRANT a '
				13272
				13273		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				13274		'LEFT JOIN #state s ' + 'ON a .REGISTRAN T_ID = s.R egistrant_ Id ' +
				13275		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				13276		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				13277		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				13278		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				13279		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ' +
				13280		' LEFT JOIN AHOB PR.REGISTR ANT_ADDRES S regAddr ON a.REGIS TRANT_ID = regAddr.R EGISTRANT_ ID ' +
				13281		' LEFT JOIN #pho ne regPhon e ON a.REG ISTRANT_ID = regPhon e.REGISTRA NT_ID ' +
				13282		' LEFT JOIN #mob ile regMob ile ON a.R EGISTRANT_ ID = regMo bile.REGIS TRANT_ID ' +
				13283		' LEFT JOIN AHOB PR.REGISTR ANT_EMAIL regEmail O N a.REGIST RANT_ID = regEmail.R EGISTRANT_ ID ';
				13284
				13285		IF ISNUL L(@questio nNumber, ' ') != ''
				13286		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				13287		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				13288
				13289
				13290		SET @M ainQuery = @MainQuer y + ' WHER E 1 = 1 ';
				13291
				13292
				13293		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				13294		IF ISNUL L(@questio nNumber, ' ') > ''
				13295		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				13296
				13297		IF ISNUL L(@answer, '') != ''
				13298		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SE LECT fr.RE GISTRANT_I D FROM AHO BPR.FORM_R ESPONSE_AN SWER ra ' +
				13299		'JOI N AHOBPR.F ORM_RESPON SE_QUESTIO N rq ON rq .FORM_RESP ONSE_QUEST ION_ID = r a.FORM_RES PONSE_QUES TION_ID ' +
				13300		'JOI N AHOBPR.F ORM_RESPON SE fr ON f r.FORM_RES PONSE_ID = rq.FORM_R ESPONSE_ID ' +
				13301		'JOI N AHOBPR.S TD_FORM_AN SWER A1 ON A1.STD_FO RM_ANSWER_ ID = ra.ST D_FORM_ANS WER_ID ' +
				13302		'JOI N AHOBPR.S TD_FORM_QU ESTION Q1 ON Q1.STD_ FORM_QUEST ION_ID = r q.STD_FORM _QUESTION_ ID ' +
				13303		'JOI N AHOBPR.S TD_FORM_QU ESTION Q2 ON Q2.FORM _QUESTION_ UNIQUE_ID = Q1.FORM_ QUESTION_U NIQUE_ID ' +
				13304		'JOI N AHOBPR.S TD_FORM_AN SWER A2 ON A2.STD_FO RM_QUESTIO N_ID = Q2. STD_FORM_Q UESTION_ID ' +
				13305		' AN D A1.BRP_F ORM_ANSWER _ID = A2.B RP_FORM_AN SWER_ID ' +
				13306		' WHER E A2.STD_F ORM_ANSWER _ID IN (' + @answer + ') AND f r.REGISTRA NT_ID = a. REGISTRANT _ID )';
				13307
				13308		IF @form StartFromD ate IS NOT NULL
				13309		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				13310
				13311		IF @form StartToDat e IS NOT N ULL
				13312		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				13313
				13314		IF @form Completion FromDate I S NOT NULL
				13315		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				13316
				13317		IF @form Completion ToDate IS NOT NULL
				13318		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				13319
				13320		IF @form BirthDate IS NOT NUL L
				13321		SET @ MainQuery = @MainQue ry + ' AND a.BIRTH_D ATE = ''' + CONVERT( VARCHAR(20 ),@formBir thDate,121 ) + '''';
				13322
				13323
				13324
				13325		IF ISNUL L(@subpopu lationFlag ,'') != ''
				13326		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				13327		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				13328		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				13329
				13330		IF (ISNULL (@adminFla g,'') != ' ')
				13331		IF (ISNULL (@excludeA dminFlag,' N') = 'N')
				13332		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_REGISTRY _FLAG admi nflag ' +
				13333		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				13334		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				13335		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				13336		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) '
				13337		ELSE
				13338		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G adminfla g ' +
				13339		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				13340		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				13341		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				13342		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				13343		IF (@em ail = 'Yes ')
				13344		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_EMAIL em ' +
				13345		' WHER E em.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				13346		' AN D em.EMAIL != '''') '
				13347		ELSE IF (@email = 'No')
				13348		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_EM AIL em ' +
				13349		' WHER E em.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				13350		' AN D em.EMAIL != '''') ' ;
				13351
				13352		IF (@eva luation = 'Yes')
				13353		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev ' +
				13354		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				13355		' AN D ev.EVALU ATION_FLAG = ''Y'') '
				13356		ELSE IF (@evaluat ion = 'No' )
				13357		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT ev ' +
				13358		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				13359		' AN D ev.EVALU ATION_FLAG = ''Y'') ' ;
				13360
				13361
				13362		IF ISNUL L(@deploym entAll,'') != ''
				13363		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				13364		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				13365		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				13366
				13367		IF ISNUL L(@healthF actor,'') != ''
				13368		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				13369		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				13370		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				13371		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				13372
				13373
				13374		IF ISNUL L(@deploym entExposur e,'') != ' '
				13375		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				13376		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				13377		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				13378		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				13379		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				13380		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				13381
				13382
				13383
				13384
				13385
				13386		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				13387		IF @stat us IS NOT NULL
				13388		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				13389
				13390		IF ISNUL L(@state,' ') > ''
				13391		BEGIN
				13392		SET @state = R EPLACE(@St ate,',','' ',''');
				13393		SET @RegCriter ia = @RegC riteria + ' AND EXIS TS(SELECT DISTINCT a ddr.REGIST RANT_ID ' +
				13394		'FROM AH OBPR.REGIS TRANT_ADDR ESS addr ' +
				13395		'WHERE ad dr.REGISTR ANT_ID = a .REGISTRAN T_ID ' +
				13396		'AND ad dr.STATE IN ( ''' + @state + ''') ) ';
				13397		END;
				13398
				13399		IF @heal thConcerns != 'All'
				13400		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				13401
				13402		IF @requ estToBeSee n != 'All'
				13403		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				13404
				13405		IF ISNUL L(@exclude Dead,'N') = 'Y'
				13406		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				13407
				13408		IF ISNUL L(@contact Preference ,'') != ''
				13409		SET @R egCriteria = @RegCri teria + ' AND ''' + @contactPr eference + ''' = ISN ULL(a.CONT ACT_PREFER ENCE,''No Data Avail able'') ';
				13410
				13411		IF ISNUL L(@ssn,'') != ''
				13412		SET @R egCriteria = @RegCri teria + ' AND RIGHT( a.SSN, 4) = ''' + @s sn + '''' ;
				13413
				13414		IF ISNUL L(@separat ionType,0) != 0
				13415		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				13416
				13417		IF @sepa rationFrom Date IS NO T NULL
				13418		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				13419
				13420		IF @sepa rationToDa te IS NOT NULL
				13421		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				13422
				13423		IF ISNUL L(@lastNam e,'') != ' '
				13424		SET @R egCriteria = @RegCri teria + ' AND RTRIM( LTRIM(a.LA ST_NAME)) LIKE ''' + @lastName + '''';
				13425
				13426		IF @Assi gnedLocati onType IS NOT NULL
				13427		BEGIN
				13428		IF @ AssignedLo cationType = 'NLA'
				13429		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				13430		ELSE
				13431		IF @ AssignedLo cationType = 'VISN'
				13432		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				13433		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				13434		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				13435		ELSE
				13436		IF @ AssignedLo cationType = 'Base'
				13437		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				13438		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				13439		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				13440		ELSE
				13441		IF @ AssignedLo cationType = 'Instit ution'
				13442		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				13443		END;
				13444
				13445		IF @Eval uatedLocat ionType IS NOT NULL
				13446		BEGIN
				13447		IF @ EvaluatedL ocationTyp e = 'NLA'
				13448		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				13449		' WHERE eva l.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				13450		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				13451		ELSE
				13452		IF @ EvaluatedL ocationTyp e = 'VISN'
				13453		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				13454		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				13455		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				13456		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				13457		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				13458		ELSE
				13459		IF @ EvaluatedL ocationTyp e = 'Base'
				13460		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				13461		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				13462		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				13463		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				13464		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				13465		ELSE
				13466		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				13467		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				13468		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				13469		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				13470		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				13471		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				13472		END;
				13473
				13474		-- Add cri teria and Close With Statement
				13475		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				13476		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				13477		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				13478
				13479		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @ MainQuery + @RegCrit eria;
				13480
				13481		PRINT @ Query;
				13482
				13483		EXECUTE ( @Query);
				13484		END;
				13485
				13486
				13487
				13488		-- Test Ca ses
				13489		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact]
				13490		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ status = ' 6,7'
				13491		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ evaluation = 'N', @s tatus = '7 '
				13492		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ contactPre ference = 'Email fro m the VA'
				13493		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ state = 'M D,VA'
				13494		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact_ch anges] @fo rmBirthDat eText = ' 19770707'
				13495		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ formStartT oDateText = '2014123 1'
				13496		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ healthFact or = '44,4 5,46,47'
				13497		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ formComple tionFromDa teText = '20010101'
				13498		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ formComple tionToDate Text = '2 0141231'
				13499		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ healthConc erns = 'Ye s' ,
				13500		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ requestToB eSeen = 'Y es
				13501		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ subpopulat ionFlag = '85,87,89, 105,106,91 '
				13502		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ deployment All = 'Egy pt'
				13503		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ deployment Exposure = 'Iraq'
				13504		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ adminFlag = '117', @ excludeAdm inFlag = ' Y' ,@admin FlagFromDa teText = ' 20150101' , @adminFl agToDateTe xt = '2015 0201'
				13505		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ questionNu mber = '5. 4.A' , @a nswer = '2 221'
				13506		-- exec [A HOBPR].[SP _ReportReg istrantCon tact]
				13507		-- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Ass ignedLocat ionType = 'NLA'
				13508		-- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Ass ignedLocat ionType = 'VISN', @A ssignedLoc ationKey = 'V16'
				13509		-- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Ass ignedLocat ionType = 'Base', @A ssignedLoc ationKey = '1000089'
				13510		-- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Ass ignedLocat ionType = 'Instituti on', @Assi gnedLocati onKey = '1 000089'
				13511		-- exec [A HOBPR].[SP _ReportReg istrantCon tact] @ss n = '1125'
				13512		-- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Eva luatedLoca tionType = 'NLA'
				13513		-- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Eva luatedLoca tionType = 'VISN', @ EvaluatedL ocationKey = 'V16'
				13514		-- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Eva luatedLoca tionType = 'Base', @ EvaluatedL ocationKey = '100008 9'
				13515		-- exec [A HOBPR].[SP _ReportReg istrantCon tact] @Eva luatedLoca tionType = 'Institut ion', @Eva luatedLoca tionKey = '1000089'
				13516
				13517		GO
				13518
				13519		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				13520		print N'Up date compl ete.';
				13521		print 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				13522		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				13523
				13524
				13525		go
				13526		update [d bo].[Datab aseChangeL og]
				13527		set Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				13528		where [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				13529		and [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				13530		and [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				13531		and [S criptName] = '$(Scrip tName)'
				13532		and Ta rgetRegist ry = 'AHOBPR' ;
				13533
				13534		go
				13535		select * f rom [dbo]. [DatabaseC hangeLog]
				13536		where Targ etRegistry = 'AHOBPR'
				13537		and [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				13538		and [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				13539		and [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				13540		and [Scr iptName] = '$(Script Name)';
				13541		go
				13542		---------- ---------- ---------- ---------- ---------
				13543		---------- ---------- ---------- ---------- ---------
				13544		-- 2.0.32. 2
				13545		---------- ---------- ---------- ---------- ---------
				13546		--:setvar DatabaseNa me "Regist ry_AHOBPR"
				13547		:setvar Ma jorRelease Number "2"
				13548		:setvar Mi norRelease Number "0"
				13549		:setvar Po intRelease Number "32 "
				13550		:setvar Sc riptName " Registry.A HOBPR.Data base.Build .2.0.32.2. sql"
				13551
				13552
				13553		print '
				13554		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				13555		$(ScriptNa me)
				13556
				13557		Script in support of AHOBPR Re lease $(Ma jorRelease Number).$( MinorRelea seNumber). $(PointRel easeNumber )
				13558
				13559		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
				13560		';
				13561		print 'Sta rted ' + C AST(GETDAT E() as var char(20)) + '.';
				13562		print '
				13563		******** ****** ****** ****** ****** *****
				13564		NOTE: This script mu st be run with SQLCM D Mode tur ned on.
				13565		******** ****** ****** ****** ****** *****
				13566
				13567		';
				13568		go
				13569		:on error exit
				13570		go
				13571		:setvar __ IsSqlCmdEn abled "Tru e"
				13572		/*
				13573		Detect SQL CMD mode a nd disable script ex ecution if SQLCMD mo de is not supported.
				13574		To re-enab le the scr ipt after enabling S QLCMD mode , execute the follow ing:
				13575		*/
				13576		set noexec off;
				13577		set nocoun t off;
				13578		go
				13579		if N'$(__I sSqlCmdEna bled)' NOT LIKE N'Tr ue'
				13580		begin
				13581		pr int N'SQLC MD mode mu st be enab led to suc cessfully execute th is script. ';
				13582		SE T NOCOUNT ON;
				13583		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.
				13584		end
				13585
				13586		go
				13587
				13588		use [$(Dat abaseName) ]
				13589		go
				13590		if EXISTS ( select * from [dbo ].[Databas eChangeLog ]
				13591		where [M ajorReleas eNumber] = '$(MajorR eleaseNumb er)'
				13592		and [M inorReleas eNumber] = '$(MinorR eleaseNumb er)'
				13593		and [P ointReleas eNumber] = '$(PointR eleaseNumb er)'
				13594		and [S criptName] = '$(Script Name)'
				13595		)
				13596		begin
				13597		raiserr or('!!!!Th e deployme nt script may not be rerun wit hout first backing o ut the cha nges, incl uding the DatabaseCh angeLog re cord.!!!!'
				13598		,11
				13599		,1);
				13600		end
				13601		else
				13602		insert
				13603		into [ dbo].[Data baseChange Log]
				13604		([Major ReleaseNum ber]
				13605		,[Minor ReleaseNum ber]
				13606		,[Point ReleaseNum ber]
				13607		,[Hotfi x]
				13608		,[Scrip tName]
				13609		,[Scrip tDescripti on]
				13610		,[Targe tRegistry]
				13611		,[DateA pplied])
				13612		val ues
				13613		('$(Maj orReleaseN umber)'
				13614		,'$(Min orReleaseN umber)'
				13615		,'$(Poi ntReleaseN umber)'
				13616		,0
				13617		,'$(Scr iptName)'
				13618		,'Scr ipt Starte d...'
				13619		,'AHOBP R'
				13620		,GETDAT E()
				13621		);
				13622
				13623		go
				13624		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				13625		print '$(S criptName) script st arted...';
				13626		print GETD ATE();
				13627		go
				13628		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				13629		print 'cre ate nonclu stered ind ex IX_StdF ormAnswer_ StdFormQue stion...';
				13630		go
				13631		create non clustered index IX_S tdFormAnsw er_StdForm Question O N AHOBPR.S TD_FORM_AN SWER(STD_F ORM_ANSWER _ID);
				13632		go
				13633		print 'cre ate nonclu stered ind ex IX_StdF ormAnswer_ BRPFormAns werId...';
				13634		go
				13635		create non clustered index IX_S tdFormAnsw er_BRPForm AnswerId O N AHOBPR.S TD_FORM_AN SWER(BRP_F ORM_ANSWER _ID,STD_FO RM_ANSWER_ ID)
				13636		--drop ind ex IX_StdF ormAnswer_ BRPFormAns werId on A HOBPR.STD_ FORM_ANSWE R
				13637		go
				13638
				13639
				13640		print 'reC REATE PROC EDURE [AHO BPR].[SP_R eportRegis trantConta ct]...';
				13641		go
				13642		if exists (select * from sys.p rocedures where name = 'SP_Rep ortRegistr antContact '
				13643		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				13644		)
				13645		exec sp_ rename 'ah obpr.SP_Re portRegist rantContac t', 'SP_Re portRegist rantContac t_pre_2_0_ 32_2'
				13646		go
				13647		-- ======= ========== ========== ========== ========
				13648		-- Author: Bruce Clegg
				13649		-- Create date: Jan 12, 2015
				13650		-- Descrip tion: Used for the A HOBPR Cont act Report -- exec [AHOBPR].[ SP_ReportR egistrantC ontact] (More opt ions at bo ttom)
				13651		-- 2015-02 -23 - Cleg g - provid e individu al field n ames
				13652		-- 2015033 0 - Bruce Clegg - Ad ded VisnId value of NLA to fin d Null loc ations
				13653		-- 2015042 7 - Bruce Clegg - Ch ange to Lo cationType and Key, for both A ssigned an d Evaluate d Location s
				13654		-- 2015042 9 - Bruce Clegg - Ad ded Email column (ag ain)
				13655		-- 2015061 7 - D. Bar r - Added state para meter
				13656		-- 2015072 2 - Bruce Clegg - Fi x bug with @Evaluate dLocationT ype = 'Bas e'
				13657		-- 2015090 1 - Bruce Clegg Fix Main phone . TYPE is not NULL so old way does not work
				13658		-- 2015102 8 - D. Bar r - Change d input pa rameters
				13659		-- 2016-02 -03 - D. B arr - Fixe d logic on Evaluatio n Location (Script 2 .0.32.1)
				13660		-- 2016-02 -08 - D. B arr - Adde d logic fr om Dave to addressed performan ce of spec ific quest ion query
				13661		--
				13662		-- ======= ========== ========== ========== ========
				13663		CREATE PRO CEDURE [AH OBPR].[SP_ ReportRegi strantCont act]
				13664		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				13665		@st ate varcha r(8000) = NULL, -- M ultiple st ates, comm a-separate d values w hen not NU LL
				13666		@fo rmStartFro mDateText varchar(10 0) = NULL,
				13667		@fo rmStartToD ateText va rchar(100) = NULL,
				13668		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				13669		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				13670		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				13671		@qu estionNumb er varchar (100) = NU LL,
				13672		@an swer varch ar(100) = NULL,
				13673		@he althConcer ns varchar (100) = 'A ll',
				13674		@re questToBeS een varcha r(100) = ' All',
				13675		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				13676		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				13677		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				13678		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				13679		@su bpopulatio nFlag varc har (8000) = NULL, - - Multiple subpopula tionFlags, comma-sep arated val ues when n ot NULL
				13680		@ad minFlag va rchar (10) = NULL,
				13681		@de ploymentAl l varchar (256) = NU LL,
				13682		@de ploymentEx posure var char (256) = NULL,
				13683		@ad minFlagFro mDateText varchar (2 0) = NULL,
				13684		@ad minFlagToD ateText va rchar (20) = NULL,
				13685		@ex cludeDead varchar(1) = 'N',
				13686		@co ntactPrefe rence varc har(100) = '',
				13687		@la stName var char(50) = '',
				13688		@ss n varchar( 4) = '',
				13689		@se parationTy pe INT = 0 ,
				13690		@se parationFr omDateText varchar ( 20) = NULL ,
				13691		@se parationTo DateText v archar (20 ) = NULL,
				13692		@fo rmBirthDat eText varc har(100) = NULL,
				13693		@em ail varcha r(100) = ' All',
				13694		@ev aluation v archar(100 ) = 'All',
				13695		@ex cludeAdmin Flag varch ar(1) = 'N '
				13696		AS
				13697
				13698		BEGIN
				13699
				13700		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				13701		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				13702		@formStart ToDate DAT ETIME2(0) = NULL,
				13703		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				13704		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				13705		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				13706		@adminFlag ToDate DAT ETIME2(0) = NULL,
				13707		@separatio nFromDate DATETIME2( 0) = NULL,
				13708		@separatio nToDate DA TETIME2(0) = NULL,
				13709		@formBirth Date DATET IME2(0) = NULL;
				13710
				13711		DECLARE @Query VAR CHAR(8000) ;
				13712		DECLARE @MainQuery VARCHAR(8 000);
				13713		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				13714		DECLARE @AdminWith VARCHAR(8 000);
				13715		DECLARE @SubPopWit h VARCHAR( 8000);
				13716		DECLARE @DeployWit h VARCHAR( 8000);
				13717		DECLARE @AnswerWit h VARCHAR( 8000) = '' ;
				13718
				13719		--registr ant contac t numbers
				13720		CREATE T ABLE #phon e
				13721		(
				13722		[Regi strant_Id] INT,
				13723		[Phon e] VARCHAR (50),
				13724		)
				13725
				13726		CREATE TABLE #mob ile
				13727		(
				13728		[Regi strant_Id] INT,
				13729		[Phon eMobile] V ARCHAR(50) ,
				13730		)
				13731		INSERT INTO #phon e ([Regist rant_Id], [Phone])
				13732		-- Load Table
				13733		SELECT R EGISTRANT_ ID,
				13734		ISNULL( PHONE_NUMB ER,'')
				13735		FROM AHOBPR.RE GISTRANT_P HONE
				13736		WHERE ISNULL(TY PE,'') != 'Mobile'
				13737
				13738
				13739		INSERT IN TO #mobile ([Registr ant_Id], [ PhoneMobil e])
				13740		-- Load Table
				13741		SELECT R EGISTRANT_ ID,
				13742		ISNULL( PHONE_NUMB ER,'')
				13743		FROM AHOBPR.RE GISTRANT_P HONE
				13744		WHERE TYPE = 'Mo bile'
				13745
				13746
				13747
				13748
				13749
				13750		CREATE T ABLE #stat e
				13751		(
				13752		[Regi strant_Id] INT,
				13753		[stat e] VARCHAR (8000)
				13754		)
				13755
				13756		SET @sta te = REPLA CE(@state, 'Foreign Country/Ot her', 'For eign Count ry/Other,F M,MH,PW,UM ,US,CANAD, MX,EU,PI,F G,OT,UN')
				13757
				13758		INSERT I NTO #state ([Registr ant_Id], [ state])
				13759		-- Load Table
				13760		SELECT a .REGISTRAN T_ID,
				13761		ST UFF((SELEC T ', ' + b .STATE
				13762		FRO M AHOBPR.R EGISTRANT_ ADDRESS b
				13763		WHER E a.REGIST RANT_ID = b.REGISTRA NT_ID
				13764		FOR XML PATH(' ')), 1, 1, '') [STA TE]
				13765		FROM A HOBPR.REGI STRANT a
				13766		GROUP B Y a.REGIST RANT_ID;
				13767
				13768
				13769
				13770		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				13771		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				13772		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				13773		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				13774		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				13775		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				13776		SE T @separat ionFromDat e = dbo.Cl eanDate(@s eparationF romDateTex t);
				13777		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				13778		SET @fo rmBirthDat e = dbo.Cl eanDate(@f ormBirthDa teText);
				13779
				13780		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				13781		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				13782		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				13783
				13784		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				13785		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				13786		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				13787
				13788		-- Set Ins titutionID values if needed.
				13789		DECLARE @A ssignedIns titutionId INT = 0,
				13790		@E valuatedIn stitutionI d INT = 0;
				13791
				13792		IF @Assign edLocation Type IN (' Base','Ins titution')
				13793		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				13794		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				13795
				13796		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				13797		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				13798		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				13799
				13800		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				13801		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				13802		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				13803		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				13804		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				13805		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				13806		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				13807		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				13808		' F ROM AHOBPR .REGISTRAN T a ' +
				13809		'WH ERE 1 = 1 ';
				13810
				13811		--Concat enate one or more Ad min flags for Regist rants with flags
				13812		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				13813		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				13814		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				13815		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				13816		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				13817		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				13818		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				13819		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				13820		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				13821		' FROM A HOBPR.REGI STRANT a ' +
				13822		' WHERE 1 = 1 ';
				13823
				13824		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				13825		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				13826		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				13827		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				13828		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				13829		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				13830		' FROM AHOBPR.RE GISTRANT a ' +
				13831		' WHERE 1 = 1 ';
				13832
				13833		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				13834		', a.LAST_NAM E AS LAST_ NAME ' +
				13835		', a.FIRST_NA ME AS FIRS T_NAME ' +
				13836		', a.CONTACT_ PREFERENCE AS Contac tPreferenc e ' +
				13837		', regADDR.ST REET1 AS S TREET1 ' +
				13838		', regADDR.ST REET2 AS S TREET2 ' +
				13839		', regADDR.CI TY AS CITY ' +
				13840		', regADDR.ST ATE AS STA TE ' +
				13841		', regADDR.CO UNTRY AS C OUNTRY ' +
				13842		', regADDR.ZI P AS ZIP ' +
				13843		', regPhone.P hone AS P HONE_NUMBE R_Main' +
				13844		',re gMobile.Ph oneMobile AS PHONE_ NUMBER_Mob ile' +
				13845		', regEmail.E MAIL AS EM AIL ';
				13846
				13847
				13848
				13849		SET @Mai nQuery = @ MainQuery +
				13850
				13851		'FROM AH OBPR.REGIS TRANT a '
				13852
				13853		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				13854		'LEFT JOIN #state s ' + 'ON a .REGISTRAN T_ID = s.R egistrant_ Id ' +
				13855		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				13856		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				13857		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				13858		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				13859		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ' +
				13860		' LEFT JOIN AHOB PR.REGISTR ANT_ADDRES S regAddr ON a.REGIS TRANT_ID = regAddr.R EGISTRANT_ ID ' +
				13861		' LEFT JOIN #pho ne regPhon e ON a.REG ISTRANT_ID = regPhon e.REGISTRA NT_ID ' +
				13862		' LEFT JOIN #mob ile regMob ile ON a.R EGISTRANT_ ID = regMo bile.REGIS TRANT_ID ' +
				13863		' LEFT JOIN AHOB PR.REGISTR ANT_EMAIL regEmail O N a.REGIST RANT_ID = regEmail.R EGISTRANT_ ID ';
				13864
				13865		IF ISNUL L(@questio nNumber, ' ') != ''
				13866		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				13867		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				13868
				13869
				13870		SET @M ainQuery = @MainQuer y + ' WHER E 1 = 1 ';
				13871
				13872
				13873		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				13874		IF ISNUL L(@questio nNumber, ' ') > ''
				13875		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				13876
				13877		IF ISNUL L(@answer, '') != ''
				13878		BEGIN
				13879		SET @AnswerWit h = '
				13880		, selected AnswerInst ance as
				13881		(
				13882		select B RP_FORM_AN SWER_ID, A .STD_FORM_ QUESTION_I D, Q.FORM_ QUESTION_U NIQUE_ID
				13883		from AHO BPR.STD_FO RM_ANSWER A
				13884		join AHO BPR.STD_FO RM_QUESTIO N Q on Q.S TD_FORM_QU ESTION_ID = A.STD_FO RM_QUESTIO N_ID
				13885		where a. STD_FORM_A NSWER_ID I N (' + @an swer + ')- -user spec ified answ er
				13886		)
				13887		, selected Answer as
				13888		(
				13889		select S TD_FORM_AN SWER_ID
				13890		from AHO BPR.STD_FO RM_ANSWER A
				13891		join AHO BPR.STD_FO RM_QUESTIO N Q on A.S TD_FORM_QU ESTION_ID = Q.STD_FO RM_QUESTIO N_ID
				13892		where EX ISTS (sele ct * from selectedAn swerInstan ce --1:39 w/o brp_fo rm_answer_ id index 0 :37 with
				13893		wher e A.BRP_FO RM_ANSWER_ ID = selectedAn swerInstan ce.BRP_FOR M_ANSWER_I D
				13894		an d Q.FORM_Q UESTION_UN IQUE_ID = selectedAn swerInstan ce.FORM_QU ESTION_UNI QUE_ID
				13895		)
				13896		) ';
				13897		SET @M ainQuery = @MainQuer y + '
				13898		AND EXIS TS(select *
				13899		from A HOBPR.FORM _RESPONSE_ ANSWER a
				13900		join s electedAns wer on sel ectedAnswe r.STD_FORM _ANSWER_ID = a.STD_F ORM_ANSWER _ID
				13901		where a.FORM_RES PONSE_QUES TION_ID = formQuesti on.FORM_RE SPONSE_QUE STION_ID
				13902		)';
				13903		END;
				13904
				13905		IF @form StartFromD ate IS NOT NULL
				13906		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				13907
				13908		IF @form StartToDat e IS NOT N ULL
				13909		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				13910
				13911		IF @form Completion FromDate I S NOT NULL
				13912		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				13913
				13914		IF @form Completion ToDate IS NOT NULL
				13915		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				13916
				13917		IF @form BirthDate IS NOT NUL L
				13918		SET @ MainQuery = @MainQue ry + ' AND a.BIRTH_D ATE = ''' + CONVERT( VARCHAR(20 ),@formBir thDate,121 ) + '''';
				13919
				13920
				13921
				13922		IF ISNUL L(@subpopu lationFlag ,'') != ''
				13923		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				13924		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				13925		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				13926
				13927		IF (ISNULL (@adminFla g,'') != ' ')
				13928		IF (ISNULL (@excludeA dminFlag,' N') = 'N')
				13929		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_REGISTRY _FLAG admi nflag ' +
				13930		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				13931		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				13932		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				13933		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) '
				13934		ELSE
				13935		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G adminfla g ' +
				13936		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				13937		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				13938		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				13939		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				13940		IF (@em ail = 'Yes ')
				13941		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_EMAIL em ' +
				13942		' WHER E em.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				13943		' AN D em.EMAIL != '''') '
				13944		ELSE IF (@email = 'No')
				13945		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_EM AIL em ' +
				13946		' WHER E em.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				13947		' AN D em.EMAIL != '''') ' ;
				13948
				13949		IF (@eva luation = 'Yes')
				13950		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev ' +
				13951		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				13952		' AN D ev.EVALU ATION_FLAG = ''Y'') '
				13953		ELSE IF (@evaluat ion = 'No' )
				13954		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT ev ' +
				13955		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				13956		' AN D ev.EVALU ATION_FLAG = ''Y'') ' ;
				13957
				13958
				13959		IF ISNUL L(@deploym entAll,'') != ''
				13960		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				13961		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				13962		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				13963
				13964		IF ISNUL L(@healthF actor,'') != ''
				13965		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				13966		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				13967		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				13968		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				13969
				13970
				13971		IF ISNUL L(@deploym entExposur e,'') != ' '
				13972		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				13973		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				13974		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				13975		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				13976		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				13977		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				13978
				13979
				13980
				13981
				13982
				13983		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				13984		IF @stat us IS NOT NULL
				13985		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				13986
				13987		IF ISNUL L(@state,' ') > ''
				13988		BEGIN
				13989		SET @state = R EPLACE(@St ate,',','' ',''');
				13990		SET @RegCriter ia = @RegC riteria + ' AND EXIS TS(SELECT DISTINCT a ddr.REGIST RANT_ID ' +
				13991		'FROM AH OBPR.REGIS TRANT_ADDR ESS addr ' +
				13992		'WHERE ad dr.REGISTR ANT_ID = a .REGISTRAN T_ID ' +
				13993		'AND ad dr.STATE IN ( ''' + @state + ''') ) ';
				13994		END;
				13995
				13996		IF @heal thConcerns != 'All'
				13997		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				13998
				13999		IF @requ estToBeSee n != 'All'
				14000		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				14001
				14002		IF ISNUL L(@exclude Dead,'N') = 'Y'
				14003		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				14004
				14005		IF ISNUL L(@contact Preference ,'') != ''
				14006		SET @R egCriteria = @RegCri teria + ' AND ''' + @contactPr eference + ''' = ISN ULL(a.CONT ACT_PREFER ENCE,''No Data Avail able'') ';
				14007
				14008		IF ISNUL L(@ssn,'') != ''
				14009		SET @R egCriteria = @RegCri teria + ' AND RIGHT( a.SSN, 4) = ''' + @s sn + '''' ;
				14010
				14011		IF ISNUL L(@separat ionType,0) != 0
				14012		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				14013
				14014		IF @sepa rationFrom Date IS NO T NULL
				14015		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				14016
				14017		IF @sepa rationToDa te IS NOT NULL
				14018		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				14019
				14020		IF ISNUL L(@lastNam e,'') != ' '
				14021		SET @R egCriteria = @RegCri teria + ' AND RTRIM( LTRIM(a.LA ST_NAME)) LIKE ''' + @lastName + '''';
				14022
				14023		IF @Assi gnedLocati onType IS NOT NULL
				14024		BEGIN
				14025		IF @ AssignedLo cationType = 'NLA'
				14026		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				14027		ELSE
				14028		IF @ AssignedLo cationType = 'VISN'
				14029		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				14030		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				14031		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				14032		ELSE
				14033		IF @ AssignedLo cationType = 'Base'
				14034		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				14035		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				14036		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				14037		ELSE
				14038		IF @ AssignedLo cationType = 'Instit ution'
				14039		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				14040		END;
				14041
				14042		IF @Eval uatedLocat ionType IS NOT NULL
				14043		BEGIN
				14044		IF @ EvaluatedL ocationTyp e = 'NLA'
				14045		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				14046		' WHERE eva l.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				14047		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				14048		ELSE
				14049		IF @ EvaluatedL ocationTyp e = 'VISN'
				14050		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				14051		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				14052		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				14053		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				14054		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				14055		ELSE
				14056		IF @ EvaluatedL ocationTyp e = 'Base'
				14057		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				14058		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				14059		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				14060		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				14061		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				14062		ELSE
				14063		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				14064		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				14065		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				14066		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				14067		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				14068		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				14069		END;
				14070
				14071		-- Add cri teria and Close With Statement
				14072		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				14073		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				14074		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				14075
				14076		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @A nswerWith + @MainQu ery + @Reg Criteria;
				14077
				14078		PRINT @ Query;
				14079
				14080		EXECUTE ( @Query);
				14081		END;
				14082
				14083
				14084
				14085		-- Test Ca ses
				14086		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage]
				14087		-- EXECUTE [AHOBPR]. [SP_Report Registrant Contact] @ status = ' 6,7'
				14088		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @evaluatio n = 'N', @ status = ' 7'
				14089		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @contactPr eference = 'Email fr om the VA'
				14090		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @state = ' MD,VA'
				14091		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage_c hanges] @f ormBirthDa teText = '19770707'
				14092		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formStart ToDateText = '201412 31'
				14093		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthFac tor = '44, 45,46,47'
				14094		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionFromD ateText = '20010101 '
				14095		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionToDat eText = ' 20141231'
				14096		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthCon cerns = 'Y es' ,
				14097		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @requestTo BeSeen = ' Yes
				14098		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @subpopula tionFlag = '85,87,89 ,105,106,9 1'
				14099		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tAll = 'Eg ypt'
				14100		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tExposure = 'Iraq'
				14101		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @adminFlag = '117', @excludeAd minFlag = 'Y' ,@admi nFlagFromD ateText = '20150101' , @adminF lagToDateT ext = '201 50201'
				14102		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @questionN umber = '5 .4.A' , @ answer = ' 2221'
				14103		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage]
				14104		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'NLA'
				14105		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'VISN', @ AssignedLo cationKey = 'V16'
				14106		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Base', @ AssignedLo cationKey = '1000089 '
				14107		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Institut ion', @Ass ignedLocat ionKey = ' 1000089'
				14108		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @s sn = '1125 '
				14109		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'NLA'
				14110		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'VISN', @Evaluated LocationKe y = 'V16'
				14111		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Base', @Evaluated LocationKe y = '10000 89'
				14112		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Institu tion', @Ev aluatedLoc ationKey = '1000089'
				14113
				14114		go
				14115
				14116		print 'reC REATE PROC EDURE [AHO BPR].[SP_G etRegistra ntSendQues tions]...' ;
				14117		go
				14118		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant SendQuesti ons'
				14119		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				14120		)
				14121		exec sp_ rename 'ah obpr.SP_Ge tRegistran tSendQuest ions', 'SP _GetRegist rantSendQu estions_pr e_2_0_32_2 '
				14122		go
				14123
				14124		-- ======= ========== ========== ========== ========
				14125		-- Create date: Octo ber 28, 20 15
				14126		-- Descrip tion: Used to create the list of registr ant to sen d follow-u p question s to.
				14127
				14128		-- Modific ation log
				14129		-- -- 2016 -02-08 - D . Barr - A dded logic from Dave to addres sed perfor mance of s pecific qu estion que ry
				14130		-- ======= ========== ========== ========== ========
				14131		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antSendQue stions]
				14132		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				14133		@fo rmStartFro mDateText varchar(10 0) = NULL,
				14134		@fo rmStartToD ateText va rchar(100) = NULL,
				14135		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				14136		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				14137		@qu estionNumb er varchar (100) = NU LL,
				14138		@an swer varch ar(100) = NULL,
				14139		@he althConcer ns varchar (100) = 'A ll',
				14140		@su bpopulatio nFlag varc har (10) = NULL,
				14141		@ad minFlag va rchar (10) = NULL,
				14142		@de ploymentAl l varchar (256) = NU LL,
				14143		@de ploymentEx posure var char (256) = NULL,
				14144		@ad minFlagFro mDateText varchar (2 0) = NULL,
				14145		@ad minFlagToD ateText va rchar (20) = NULL,
				14146		@ex cludeDead varchar(1) = 'Y',
				14147		@ex cludeAdmin Flag varch ar(1) = 'N ',
				14148		@la stName var char(50) = '',
				14149		@ss n varchar( 4) = '',
				14150		@fo rmBirthDat eText varc har(100) = NULL
				14151		AS
				14152
				14153		BEGIN
				14154
				14155		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				14156		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				14157		@formStart ToDate DAT ETIME2(0) = NULL,
				14158		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				14159		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				14160		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				14161		@adminFlag ToDate DAT ETIME2(0) = NULL,
				14162		@separatio nFromDate DATETIME2( 0) = NULL,
				14163		@separatio nToDate DA TETIME2(0) = NULL,
				14164		@formBirth Date DATET IME2(0) = NULL;
				14165
				14166		DECLARE @Query VAR CHAR(8000) ;
				14167		DECLARE @MainQuery VARCHAR(8 000);
				14168		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				14169		DECLARE @AdminWith VARCHAR(8 000);
				14170		DECLARE @SubPopWit h VARCHAR( 8000);
				14171		DECLARE @DeployWit h VARCHAR( 8000);
				14172		DECLARE @AnswerWit h VARCHAR( 8000) = '' ;
				14173
				14174		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				14175		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				14176		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				14177		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				14178		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				14179		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				14180		SET @for mBirthDate = dbo.Cle anDate(@fo rmBirthDat eText);
				14181
				14182		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				14183		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				14184		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				14185
				14186		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				14187		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				14188		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				14189
				14190		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				14191		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , a.SSN,'+
				14192		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				14193		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				14194		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				14195		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				14196		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				14197		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				14198		' F ROM AHOBPR .REGISTRAN T a ' +
				14199		'WH ERE 1 = 1 ';
				14200
				14201		--Concat enate one or more Ad min flags for Regist rants with flags
				14202		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				14203		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				14204		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				14205		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				14206		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				14207		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				14208		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				14209		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				14210		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				14211		' FROM A HOBPR.REGI STRANT a ' +
				14212		' WHERE 1 = 1 ';
				14213
				14214		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				14215		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				14216		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				14217		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				14218		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				14219		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				14220		' FROM AHOBPR.RE GISTRANT a ' +
				14221		' WHERE 1 = 1 ';
				14222
				14223		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				14224		', a.SSN, (a. LAST_NAME + '', '' + a.FIRST_N AME) AS Na me ' +
				14225		', b.REGISTRA NT_STATUS AS Status ' +
				14226		', c.SERVICE_ STATUS AS DutyStatus ' +
				14227		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				14228		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				14229		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				14230		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				14231		--Decide w hich query to run de pending on if a ques tion was s elected as a paramet er for the report
				14232		IF ISNUL L(@questio nNumber, ' ') = ''
				14233		SET @M ainQuery = @MainQuer y + ','''' AS Questi onNumber ' +
				14234		','''' AS Answer '
				14235		ELSE
				14236		SET @M ainQuery = @MainQuer y + ',''' + @questio nNumber + ''' AS Que stionNumbe r ' +
				14237		',STUF F((SELECT '', '' + s tdAnswer.T EXT ' +
				14238		' FROM AHOBPR.FOR M_RESPONSE _ANSWER an swer ' +
				14239		' JOIN AHOBPR.STD _FORM_ANSW ER stdAnsw er ON answ er.STD_FOR M_ANSWER_I D = stdAns wer.STD_FO RM_ANSWER_ ID ' +
				14240		' WHERE formQuesti on.FORM_RE SPONSE_QUE STION_ID = answer.FO RM_RESPONS E_QUESTION _ID ' +
				14241		' FOR XM L PATH(''' ')), 1, 1, '''') AS Answer ' ;
				14242
				14243		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				14244		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				14245		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				14246		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				14247		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				14248		',a.BI RTH_DATE A S BirthDat e ' +
				14249		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				14250		',RIGH T(a.SSN, 4 ) AS Last4 SSN ' +
				14251		'FROM AH OBPR.REGIS TRANT a '
				14252
				14253		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				14254		' JOIN AHOBP R.STD_SERV ICE_STATUS c ON a.ST D_SERVICE_ STATUS_ID = c.STD_SE RVICE_STAT US_ID ' +
				14255		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				14256		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				14257		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				14258		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				14259		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ';
				14260
				14261		IF ISNUL L(@questio nNumber, ' ') != ''
				14262		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				14263		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				14264
				14265		--used t o get all registrant without t he selecte d adminfla g
				14266		IF ISNULL( @excludeAd minFlag, ' N') = 'Y'
				14267		SET @M ainQuery = @MainQuer y + ' Left JOIN (SEL ECT REGIST RANT_ID, S TD_REGISTR Y_FLAG_ID FROM AHOBP R.REGISTRA NT_REGISTR Y_FLAG ' +
				14268		' WHERE ST D_REGISTRY _FLAG_ID I N (' + @ad minFlag + ')) AS af on af.REG ISTRANT_ID = a.REGIS TRANT_ID ' ;
				14269
				14270		SET @Mai nQuery = @ MainQuery + ' WHERE 1 = 1 ';
				14271
				14272
				14273		IF ISNULL( @excludeAd minFlag, ' N') = 'Y'
				14274		SE T @MainQue ry = @Main Query + ' AND STD_RE GISTRY_FLA G_ID is NU LL ';
				14275
				14276		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				14277		IF ISNUL L(@questio nNumber, ' ') > ''
				14278		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				14279
				14280		IF ISNUL L(@answer, '') != ''
				14281		BEGIN
				14282		SET @AnswerWit h = '
				14283		, selected AnswerInst ance as
				14284		(
				14285		select B RP_FORM_AN SWER_ID, A .STD_FORM_ QUESTION_I D, Q.FORM_ QUESTION_U NIQUE_ID
				14286		from AHO BPR.STD_FO RM_ANSWER A
				14287		join AHO BPR.STD_FO RM_QUESTIO N Q on Q.S TD_FORM_QU ESTION_ID = A.STD_FO RM_QUESTIO N_ID
				14288		where a. STD_FORM_A NSWER_ID I N (' + @an swer + ')- -user spec ified answ er
				14289		)
				14290		, selected Answer as
				14291		(
				14292		select S TD_FORM_AN SWER_ID
				14293		from AHO BPR.STD_FO RM_ANSWER A
				14294		join AHO BPR.STD_FO RM_QUESTIO N Q on A.S TD_FORM_QU ESTION_ID = Q.STD_FO RM_QUESTIO N_ID
				14295		where EX ISTS (sele ct * from selectedAn swerInstan ce --1:39 w/o brp_fo rm_answer_ id index 0 :37 with
				14296		wher e A.BRP_FO RM_ANSWER_ ID = selectedAn swerInstan ce.BRP_FOR M_ANSWER_I D
				14297		an d Q.FORM_Q UESTION_UN IQUE_ID = selectedAn swerInstan ce.FORM_QU ESTION_UNI QUE_ID
				14298		)
				14299		) ';
				14300		SET @M ainQuery = @MainQuer y + '
				14301		AND EXIS TS(select *
				14302		from A HOBPR.FORM _RESPONSE_ ANSWER a
				14303		join s electedAns wer on sel ectedAnswe r.STD_FORM _ANSWER_ID = a.STD_F ORM_ANSWER _ID
				14304		where a.FORM_RES PONSE_QUES TION_ID = formQuesti on.FORM_RE SPONSE_QUE STION_ID
				14305		)';
				14306		END;
				14307
				14308		IF @form StartFromD ate IS NOT NULL
				14309		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				14310
				14311		IF @form StartToDat e IS NOT N ULL
				14312		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				14313
				14314		IF @form Completion FromDate I S NOT NULL
				14315		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				14316
				14317		IF @form Completion ToDate IS NOT NULL
				14318		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				14319
				14320		IF @form BirthDate IS NOT NUL L
				14321		SET @ MainQuery = @MainQue ry + ' AND a.BIRTH_D ATE = ''' + CONVERT( VARCHAR(20 ),@formBir thDate,121 ) + '''';
				14322
				14323		IF ISNUL L(@subpopu lationFlag ,'') != ''
				14324		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				14325		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				14326		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				14327
				14328		IF (ISNULL(@ adminFlag, '') != '' AND ISNULL (@excludeA dminFlag,' N') = 'N')
				14329		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG adminfl ag ' +
				14330		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				14331		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				14332		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				14333		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				14334
				14335		IF ISNUL L(@deploym entAll,'') != ''
				14336		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				14337		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				14338		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				14339
				14340		IF ISNU LL(@deploy mentExposu re,'') != ''
				14341		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				14342		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				14343		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				14344		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				14345		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				14346		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				14347
				14348
				14349		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				14350		IF @stat us IS NOT NULL
				14351		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				14352
				14353		IF @heal thConcerns != 'All'
				14354		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				14355
				14356		IF ISNUL L(@exclude Dead,'N') = 'Y'
				14357		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				14358
				14359		IF ISNUL L(@ssn,'') != ''
				14360		SET @R egCriteria = @RegCri teria + ' AND RIGHT( a.SSN, 4) = ''' + @s sn + '''' ;
				14361
				14362		IF @sepa rationFrom Date IS NO T NULL
				14363		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				14364
				14365		IF @sepa rationToDa te IS NOT NULL
				14366		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				14367
				14368		IF ISNUL L(@lastNam e,'') != ' '
				14369		SET @R egCriteria = @RegCri teria + ' AND RTRIM( LTRIM(a.LA ST_NAME)) LIKE ''' + @lastName + '''';
				14370
				14371
				14372		-- Add cri teria and Close With Statement
				14373		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID, a.S SN ) '
				14374		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID, a.S SN ) '
				14375		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID, a.S SN ) '
				14376
				14377		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @A nswerWith + @MainQu ery + @Reg Criteria;
				14378
				14379		PRINT @ Query;
				14380
				14381		EXECUTE ( @Query);
				14382		END;
				14383
				14384
				14385
				14386		-- Test Ca ses
				14387		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions]
				14388		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ status = ' 6,7'
				14389		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formStartF romDateTex t = '2001 0101'
				14390		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formStartT oDateText = '2014123 1'
				14391		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formComple tionFromDa teText = '20010101'
				14392		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formComple tionToDate Text = '2 0141231'
				14393		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ healthConc erns = 'Ye s' ,
				14394		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ subpopulat ionFlag = '64,65,66, 67'
				14395		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ deployment All = 'Egy pt'
				14396		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ deployment Exposure = 'Iraq'
				14397		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ adminFlag = '59,60' ,@adminFla gFromDateT ext = '201 50101' , @ adminFlagT oDateText = '2015020 1'
				14398		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ questionNu mber = '5. 4.A' , @a nswer = '2 221'
				14399		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ lastName = 'horton'
				14400		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ formBirthD ateText = '05/05/197 5'
				14401		-- exec [A HOBPR].[SP _GetRegist rantSendQu estions] @ ssn = '112 5'
				14402		go
				14403
				14404		print 'reC REATE PROC EDURE [AHO BPR].[SP_G etRegistra ntSendMess age]...';
				14405		go
				14406		if exists (select * from sys.p rocedures where name = 'SP_Get Registrant SendMessag e'
				14407		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				14408		)
				14409		exec sp_ rename 'ah obpr.SP_Ge tRegistran tSendMessa ge', 'SP_G etRegistra ntSendMess age_pre_2_ 0_32_2'
				14410		go
				14411		-- ======= ========== ========== ========== ========
				14412		-- Create date: Octo ber 28, 20 15
				14413		-- Descrip tion: Used to create the list of registr ant to sen d email/no tification s to.
				14414
				14415		-- Modific ation log
				14416		-- 2016-02 -03 - D. B arr - Fixe d logic on Evaluatio n Location (Script 2 .0.32.1)
				14417		-- 2016-02 -08 - D. B arr - Adde d logic fr om Dave to addressed performan ce of spec ific quest ion query
				14418		--
				14419		-- ======= ========== ========== ========== ========
				14420		CREATE PRO CEDURE [AH OBPR].[SP_ GetRegistr antSendMes sage]
				14421		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				14422		@st ate varcha r(8000) = NULL, -- M ultiple st ates, comm a-separate d values w hen not NU LL
				14423		@fo rmStartFro mDateText varchar(10 0) = NULL,
				14424		@fo rmStartToD ateText va rchar(100) = NULL,
				14425		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				14426		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				14427		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				14428		@qu estionNumb er varchar (100) = NU LL,
				14429		@an swer varch ar(100) = NULL,
				14430		@he althConcer ns varchar (100) = 'A ll',
				14431		@re questToBeS een varcha r(100) = ' All',
				14432		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				14433		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				14434		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				14435		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				14436		@su bpopulatio nFlag varc har (8000) = NULL, - - Multiple subpopula tionFlags, comma-sep arated val ues when n ot NULL
				14437		@ad minFlag va rchar (10) = NULL,
				14438		@de ploymentAl l varchar (256) = NU LL,
				14439		@de ploymentEx posure var char (256) = NULL,
				14440		@ad minFlagFro mDateText varchar (2 0) = NULL,
				14441		@ad minFlagToD ateText va rchar (20) = NULL,
				14442		@ex cludeDead varchar(1) = 'N',
				14443		@co ntactPrefe rence varc har(100) = '',
				14444		@la stName var char(50) = '',
				14445		@ss n varchar( 4) = '',
				14446		@se parationTy pe INT = 0 ,
				14447		@se parationFr omDateText varchar ( 20) = NULL ,
				14448		@se parationTo DateText v archar (20 ) = NULL,
				14449		@fo rmBirthDat eText varc har(100) = NULL,
				14450		@em ail varcha r(100) = ' All',
				14451		@ev aluation v archar(100 ) = 'All',
				14452		@ex cludeAdmin Flag varch ar(1) = 'N '
				14453		AS
				14454
				14455		BEGIN
				14456
				14457		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				14458		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				14459		@formStart ToDate DAT ETIME2(0) = NULL,
				14460		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				14461		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				14462		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				14463		@adminFlag ToDate DAT ETIME2(0) = NULL,
				14464		@separatio nFromDate DATETIME2( 0) = NULL,
				14465		@separatio nToDate DA TETIME2(0) = NULL,
				14466		@formBirth Date DATET IME2(0) = NULL;
				14467
				14468		DECLARE @Query VAR CHAR(8000) ;
				14469		DECLARE @MainQuery VARCHAR(8 000);
				14470		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				14471		DECLARE @AdminWith VARCHAR(8 000);
				14472		DECLARE @SubPopWit h VARCHAR( 8000);
				14473		DECLARE @DeployWit h VARCHAR( 8000);
				14474		DECLARE @AnswerWit h VARCHAR( 8000) = '' ;
				14475
				14476		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				14477		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				14478		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				14479		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				14480		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				14481		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				14482		SE T @separat ionFromDat e = dbo.Cl eanDate(@s eparationF romDateTex t);
				14483		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				14484		SET @fo rmBirthDat e = dbo.Cl eanDate(@f ormBirthDa teText);
				14485
				14486		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				14487		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				14488		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				14489
				14490		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				14491		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				14492		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				14493
				14494		-- Set Ins titutionID values if needed.
				14495		DECLARE @A ssignedIns titutionId INT = 0,
				14496		@E valuatedIn stitutionI d INT = 0;
				14497
				14498		IF @Assign edLocation Type IN (' Base','Ins titution')
				14499		AND ISNUME RIC(@Assig nedLocatio nKey) = 1
				14500		SET @Ass ignedInsti tutionId = CONVERT(I NT,@Assign edLocation Key);
				14501
				14502		IF @Evalua tedLocatio nType IN ( 'Base','In stitution' )
				14503		AND ISNUME RIC(@Evalu atedLocati onKey) = 1
				14504		SET @Eva luatedInst itutionId = CONVERT( INT,@Evalu atedLocati onKey);
				14505
				14506		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				14507		SET @Sub PopWith = 'WITH SubP op AS ( SE LECT a.REG ISTRANT_ID , '+
				14508		'STUF F((SELECT '', '' + c .REGISTRY_ FLAG_NAME ' +
				14509		' FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G b ' +
				14510		' JOIN AHOBPR.STD _REGISTRY_ FLAG c ON b.STD_REGI STRY_FLAG_ ID = c.STD _REGISTRY_ FLAG_ID ' +
				14511		' WHERE a.REGISTRA NT_ID = b. REGISTRANT _ID ' +
				14512		' AND c.STD_REGI STRY_FLAG_ TYPE_ID = ' + CONVER T(VARCHAR( 3),@SubPop Type) +
				14513		' FOR XML PATH(' ''')), 1, 1, '''') A S [REGISTR Y_FLAG_NAM E] ' +
				14514		' F ROM AHOBPR .REGISTRAN T a ' +
				14515		'WH ERE 1 = 1 ';
				14516
				14517		--Concat enate one or more Ad min flags for Regist rants with flags
				14518		SET @Adm inWith = ' , Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				14519		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				14520		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				14521		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				14522		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				14523		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				14524		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				14525		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				14526		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				14527		' FROM A HOBPR.REGI STRANT a ' +
				14528		' WHERE 1 = 1 ';
				14529
				14530		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				14531		SET @Dep loyWith = ', Deploy AS (SELECT a.REGISTR ANT_ID, ' +
				14532		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				14533		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				14534		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				14535		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				14536		' FROM AHOBPR.RE GISTRANT a ' +
				14537		' WHERE 1 = 1 ';
				14538
				14539		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				14540		', (a.LAST_NA ME + '', ' ' + a.FIRS T_NAME) AS Name ' +
				14541		', b.REGISTRA NT_STATUS AS Status ' +
				14542		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				14543		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				14544		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				14545		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				14546		-- ',RIGHT(a. SSN, 4) AS SSN ';
				14547		--Decide w hich query to run de pending on if a ques tion was s elected as a paramet er for the report
				14548		IF ISNUL L(@questio nNumber, ' ') = ''
				14549		SET @M ainQuery = @MainQuer y + ','''' AS Questi onNumber ' +
				14550		','''' AS Answer '
				14551		ELSE
				14552		SET @M ainQuery = @MainQuer y + ',''' + @questio nNumber + ''' AS Que stionNumbe r ' +
				14553		',STUF F((SELECT '', '' + s tdAnswer.T EXT ' +
				14554		' FROM AHOBPR.FOR M_RESPONSE _ANSWER an swer ' +
				14555		' JOIN AHOBPR.STD _FORM_ANSW ER stdAnsw er ON answ er.STD_FOR M_ANSWER_I D = stdAns wer.STD_FO RM_ANSWER_ ID ' +
				14556		' WHERE formQuesti on.FORM_RE SPONSE_QUE STION_ID = answer.FO RM_RESPONS E_QUESTION _ID ' +
				14557		' FOR XM L PATH(''' ')), 1, 1, '''') AS Answer ' ;
				14558
				14559		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				14560		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				14561		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				14562		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				14563		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				14564		',a.BI RTH_DATE A S BirthDat e ' +
				14565		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				14566		',RIGH T(a.SSN, 4 ) AS SSN ' +
				14567		'FROM AH OBPR.REGIS TRANT a '
				14568
				14569		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				14570		' LEFT JOI N AHOBPR.F ORM_RESPON SE d ON a. REGISTRANT _ID = d.R EGISTRANT_ ID ' +
				14571		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				14572		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				14573		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				14574		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ';
				14575
				14576		IF ISNUL L(@questio nNumber, ' ') != ''
				14577		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				14578		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				14579
				14580		SET @M ainQuery = @MainQuer y + ' WHER E 1 = 1 ';
				14581
				14582
				14583		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				14584		IF ISNUL L(@questio nNumber, ' ') > ''
				14585		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				14586
				14587		IF ISNUL L(@answer, '') != ''
				14588		BEGIN
				14589		SET @AnswerWit h = '
				14590		, selected AnswerInst ance as
				14591		(
				14592		select B RP_FORM_AN SWER_ID, A .STD_FORM_ QUESTION_I D, Q.FORM_ QUESTION_U NIQUE_ID
				14593		from AHO BPR.STD_FO RM_ANSWER A
				14594		join AHO BPR.STD_FO RM_QUESTIO N Q on Q.S TD_FORM_QU ESTION_ID = A.STD_FO RM_QUESTIO N_ID
				14595		where a. STD_FORM_A NSWER_ID I N (' + @an swer + ')- -user spec ified answ er
				14596		)
				14597		, selected Answer as
				14598		(
				14599		select S TD_FORM_AN SWER_ID
				14600		from AHO BPR.STD_FO RM_ANSWER A
				14601		join AHO BPR.STD_FO RM_QUESTIO N Q on A.S TD_FORM_QU ESTION_ID = Q.STD_FO RM_QUESTIO N_ID
				14602		where EX ISTS (sele ct * from selectedAn swerInstan ce --1:39 w/o brp_fo rm_answer_ id index 0 :37 with
				14603		wher e A.BRP_FO RM_ANSWER_ ID = selectedAn swerInstan ce.BRP_FOR M_ANSWER_I D
				14604		an d Q.FORM_Q UESTION_UN IQUE_ID = selectedAn swerInstan ce.FORM_QU ESTION_UNI QUE_ID
				14605		)
				14606		) ';
				14607		SET @M ainQuery = @MainQuer y + '
				14608		AND EXIS TS(select *
				14609		from A HOBPR.FORM _RESPONSE_ ANSWER a
				14610		join s electedAns wer on sel ectedAnswe r.STD_FORM _ANSWER_ID = a.STD_F ORM_ANSWER _ID
				14611		where a.FORM_RES PONSE_QUES TION_ID = formQuesti on.FORM_RE SPONSE_QUE STION_ID
				14612		)';
				14613		END;
				14614
				14615		IF @form StartFromD ate IS NOT NULL
				14616		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				14617
				14618		IF @form StartToDat e IS NOT N ULL
				14619		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				14620
				14621		IF @form Completion FromDate I S NOT NULL
				14622		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				14623
				14624		IF @form Completion ToDate IS NOT NULL
				14625		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				14626
				14627		IF @form BirthDate IS NOT NUL L
				14628		SET @ MainQuery = @MainQue ry + ' AND a.BIRTH_D ATE = ''' + CONVERT( VARCHAR(20 ),@formBir thDate,121 ) + '''';
				14629
				14630
				14631
				14632		IF ISNUL L(@subpopu lationFlag ,'') != ''
				14633		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				14634		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				14635		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				14636
				14637		IF (ISNULL(@ adminFlag, '') != '')
				14638		IF (ISNULL (@excludeA dminFlag,' N') = 'N')
				14639		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_REGISTRY _FLAG admi nflag ' +
				14640		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				14641		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				14642		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				14643		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) '
				14644		ELSE
				14645		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_RE GISTRY_FLA G adminfla g ' +
				14646		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				14647		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				14648		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				14649		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				14650		IF (@em ail = 'Yes ')
				14651		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_EMAIL em ' +
				14652		' WHER E em.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				14653		' AN D em.EMAIL != '''') '
				14654		ELSE IF (@email = 'No')
				14655		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_EM AIL em ' +
				14656		' WHER E em.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				14657		' AN D em.EMAIL != '''') ' ;
				14658
				14659		IF (@eva luation = 'Yes')
				14660		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev ' +
				14661		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				14662		' AN D ev.EVALU ATION_FLAG = ''Y'') '
				14663		ELSE IF (@evaluat ion = 'No' )
				14664		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT ev ' +
				14665		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				14666		' AN D ev.EVALU ATION_FLAG = ''Y'') ' ;
				14667
				14668		IF ISNUL L(@deploym entAll,'') != ''
				14669		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				14670		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				14671		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				14672
				14673		IF ISNUL L(@healthF actor,'') != ''
				14674		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				14675		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				14676		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				14677		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				14678
				14679
				14680		IF ISNUL L(@deploym entExposur e,'') != ' '
				14681		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				14682		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				14683		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				14684		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				14685		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				14686		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				14687
				14688		IF ISNUL L(@state,' ') != ''
				14689		BE GIN
				14690		SET @state = R EPLACE(@St ate,',','' ',''');
				14691		SET @MainQuery = @MainQu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _ADDRESS a ddr ' +
				14692		' WHER E addr.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				14693		'AND addr.STAT E IN ( '' ' + @state + ''') ) ';
				14694		EN D;
				14695
				14696
				14697		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				14698		IF @stat us IS NOT NULL
				14699		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				14700
				14701
				14702		IF @heal thConcerns != 'All'
				14703		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				14704
				14705		IF @requ estToBeSee n != 'All'
				14706		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				14707
				14708		IF ISNUL L(@exclude Dead,'N') = 'Y'
				14709		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				14710
				14711		IF ISNUL L(@contact Preference ,'') != ''
				14712		SET @R egCriteria = @RegCri teria + ' AND ''' + @contactPr eference + ''' = ISN ULL(a.CONT ACT_PREFER ENCE,''No Data Avail able'') ';
				14713
				14714		IF ISNUL L(@ssn,'') != ''
				14715		SET @R egCriteria = @RegCri teria + ' AND RIGHT( a.SSN, 4) = ''' + @s sn + '''' ;
				14716
				14717		IF ISNUL L(@separat ionType,0) != 0
				14718		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				14719
				14720		IF @sepa rationFrom Date IS NO T NULL
				14721		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				14722
				14723		IF @sepa rationToDa te IS NOT NULL
				14724		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				14725
				14726		IF ISNUL L(@lastNam e,'') != ' '
				14727		SET @R egCriteria = @RegCri teria + ' AND RTRIM( LTRIM(a.LA ST_NAME)) LIKE ''' + @lastName + '''';
				14728
				14729		IF @Assi gnedLocati onType IS NOT NULL
				14730		BEGIN
				14731		IF @ AssignedLo cationType = 'NLA'
				14732		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				14733		ELSE
				14734		IF @ AssignedLo cationType = 'VISN'
				14735		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				14736		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				14737		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				14738		ELSE
				14739		IF @ AssignedLo cationType = 'Base'
				14740		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				14741		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				14742		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				14743		ELSE
				14744		IF @ AssignedLo cationType = 'Instit ution'
				14745		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				14746		END;
				14747
				14748		IF @Eval uatedLocat ionType IS NOT NULL
				14749		BEGIN
				14750		IF @ EvaluatedL ocationTyp e = 'NLA'
				14751		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				14752		' WHERE eva l.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				14753		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				14754		ELSE
				14755		IF @ EvaluatedL ocationTyp e = 'VISN'
				14756		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				14757		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				14758		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				14759		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				14760		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				14761		ELSE
				14762		IF @ EvaluatedL ocationTyp e = 'Base'
				14763		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				14764		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				14765		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				14766		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				14767		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				14768		ELSE
				14769		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				14770		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				14771		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				14772		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				14773		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				14774		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				14775		END;
				14776
				14777		-- Add cri teria and Close With Statement
				14778		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				14779		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				14780		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				14781
				14782		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @A nswerWith + @MainQu ery + @Reg Criteria;
				14783
				14784		PRINT @ Query;
				14785
				14786		EXECUTE ( @Query);
				14787		END;
				14788
				14789
				14790
				14791		-- Test Ca ses
				14792		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage]
				14793		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @status = '6,7'
				14794		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @evaluatio n = 'N', @ status = ' 7'
				14795		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @contactPr eference = 'Email fr om the VA'
				14796		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @state = ' MD,VA'
				14797		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage_c hanges] @f ormBirthDa teText = '19770707'
				14798		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formStart ToDateText = '201412 31'
				14799		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthFac tor = '44, 45,46,47'
				14800		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionFromD ateText = '20010101 '
				14801		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @formCompl etionToDat eText = ' 20141231'
				14802		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @healthCon cerns = 'Y es' ,
				14803		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @requestTo BeSeen = ' Yes
				14804		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @subpopula tionFlag = '85,87,89 ,105,106,9 1'
				14805		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tAll = 'Eg ypt'
				14806		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @deploymen tExposure = 'Iraq'
				14807		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @adminFlag = '117', @excludeAd minFlag = 'Y' ,@admi nFlagFromD ateText = '20150101' , @adminF lagToDateT ext = '201 50201'
				14808		-- EXECUTE [AHOBPR]. [SP_GetReg istrantSen dMessage] @questionN umber = '5 .4.A' , @ answer = ' 2221'
				14809		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage]
				14810		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'NLA'
				14811		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'VISN', @ AssignedLo cationKey = 'V16'
				14812		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Base', @ AssignedLo cationKey = '1000089 '
				14813		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @As signedLoca tionType = 'Institut ion', @Ass ignedLocat ionKey = ' 1000089'
				14814		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @s sn = '1125 '
				14815		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'NLA'
				14816		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'VISN', @Evaluated LocationKe y = 'V16'
				14817		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Base', @Evaluated LocationKe y = '10000 89'
				14818		-- exec [A HOBPR].[SP _GetRegist rantSendMe ssage] @Ev aluatedLoc ationType = 'Institu tion', @Ev aluatedLoc ationKey = '1000089'
				14819
				14820		GO
				14821
				14822		print 'reC REATE PROC EDURE [AHO BPR].[SP_R eportAdHoc ByLocation ]...';
				14823		go
				14824
				14825		if exists (select * from sys.p rocedures where name = 'SP_Rep ortAdHocBy Location'
				14826		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				14827		)
				14828		exec sp_ rename 'ah obpr.SP_Re portAdHocB yLocation' , 'SP_Repo rtAdHocByL ocation_pr e_2_0_32_2 '
				14829		go
				14830
				14831		-- ======= ========== ========== ========== ========
				14832		-- Author: Debora h Barr
				14833		-- Create date: Nove mber 12, 2 014
				14834		-- Descrip tion: Used for the A HOBPR Ad H oc Report
				14835
				14836		-- Modific ation log
				14837		-- 2014-12 -31 - Chan ged from F LAG to RES PONSE for Health Con cerns and REQUEST_SE EN, Reform atted stat ements for readabili ty
				14838		-- 2015-01 -05 - Chan ge Date Fo rmat to MM /DD/YYYY
				14839		-- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ healthFact or, @formS tartFromDa te, @formS tartToDate , @subpopu lationFlag
				14840		-- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ adminFlag, @deployme ntAll, @de ploymentEx posure, @a dminFlagFr omDate, @a dminFlagTo Date
				14841		-- 2015-01 -16 - Bruc e Clegg - Fix parame ters, Add distinct a nd outer q uery to gr oup counts .
				14842		-- 2015-02 -09 - Bruc e Clegg - Change Hea lth Factor Exists st atements t o use new REGISTRANT _VISIT
				14843		-- 2015-05 -07 - Bruc e Clegg - Change Fac ility name from "Oth er" to "No Facitilty Assigned" when not found
				14844		-- 2015-06 -04 - Bruc e Clegg - Add more p arameters
				14845		-- 2015-06 -18 - Bruc e Clegg - Changed @s eparationT ype to an Integer
				14846		-- 2015-07 -09 - Bruc e Clegg - Rewrote as Dynamic S QL for per formance
				14847		-- 2015-08 -05 - Bruc e Clegg - Fix bug wi th AdminFl ag - Set F rom and To date defa ults
				14848		-- 2015-12 -11 - D Ba rr - added eval uation par ameter
				14849		-- Deborah Barr - Sc ript 2.0.1 6.1
				14850		-- 2016-02 -08 D M ay - Perfo rmance Imp rovement w hen answer is specif ied. Scrip t 2.0.32.2
				14851		-- ======= ========== ========== ========== ========
				14852		CREATE PRO CEDURE [AH OBPR].[SP_ ReportAdHo cByLocatio n]
				14853		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				14854		@du tyStatus v archar(100 ) = NULL, -- Multipl e states, comma-sepa rated valu es when no t NULL
				14855		@fo rmStartFro mDateText varchar(10 0) = NULL,
				14856		@fo rmStartToD ateText va rchar(100) = NULL,
				14857		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				14858		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				14859		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				14860		@qu estionNumb er varchar (100) = NU LL,
				14861		@an swer varch ar(100) = NULL,
				14862		@he althConcer ns varchar (10) = 'Al l',
				14863		@re questToBeS een varcha r(10) = 'A ll',
				14864		@gr oupBy VARC HAR(50) = '', -- 'VISN' or 'Facili ty'
				14865		@su bpopulatio nFlag varc har (10) = NULL,
				14866		@ad minFlag va rchar (10) = NULL,
				14867		@de ploymentAl l varchar (256) = NU LL,
				14868		@de ploymentEx posure var char (256) = NULL,
				14869		@ad minFlagFro mDateText varchar (2 0) = NULL,
				14870		@ad minFlagToD ateText va rchar (20) = NULL,
				14871		@ex cludeDead varchar(1) = 'N',
				14872		@ge nder varch ar(50) = ' ',
				14873		@ra ce varchar (50) = '',
				14874		@et hnicity va rchar(50) = '',
				14875		@se parationTy pe INT = 0 ,
				14876		@se parationFr omDateText varchar ( 20) = NULL ,
				14877		@se parationTo DateText v archar (20 ) = NULL,
				14878		@en rollmentSt atus varch ar(50) = ' ',
				14879		@ev aluation v archar(100 ) = 'All'
				14880		AS
				14881
				14882		BEGIN
				14883
				14884		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				14885		@formStart ToDate DAT ETIME2(0) = NULL,
				14886		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				14887		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				14888		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				14889		@adminFlag ToDate DAT ETIME2(0) = NULL,
				14890		@separatio nFromDate DATETIME2( 0) = NULL,
				14891		@separatio nToDate DA TETIME2(0) = NULL;
				14892
				14893		DECLARE @Query VAR CHAR(8000) ;
				14894		DECLARE @AnswerWit h VARCHAR( 8000) = '' ;
				14895
				14896		-- Conve rt date pa rameters
				14897
				14898		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				14899		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				14900		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				14901		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				14902		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				14903		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				14904		SET @sep arationFro mDate = db o.CleanDat e(@separat ionFromDat eText);
				14905		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				14906
				14907		-- Build Src TDE
				14908		SET @Que ry = 'WITH ';
				14909
				14910		IF ISNUL L(@answer, '') != ''
				14911		SET @Q uery = @Qu ery + '
				14912		selectedAn swerInstan ce as
				14913		(
				14914		select B RP_FORM_AN SWER_ID, A .STD_FORM_ QUESTION_I D, Q.FORM_ QUESTION_U NIQUE_ID
				14915		from AHO BPR.STD_FO RM_ANSWER A
				14916		join AHO BPR.STD_FO RM_QUESTIO N Q on Q.S TD_FORM_QU ESTION_ID = A.STD_FO RM_QUESTIO N_ID
				14917		where a. STD_FORM_A NSWER_ID I N (' + @an swer + ')- -user spec ified answ er
				14918		)
				14919		, selected Answer as
				14920		(
				14921		select S TD_FORM_AN SWER_ID
				14922		from AHO BPR.STD_FO RM_ANSWER A
				14923		join AHO BPR.STD_FO RM_QUESTIO N Q on A.S TD_FORM_QU ESTION_ID = Q.STD_FO RM_QUESTIO N_ID
				14924		where EX ISTS (sele ct * from selectedAn swerInstan ce --1:39 w/o brp_fo rm_answer_ id index 0 :37 with
				14925		wher e A.BRP_FO RM_ANSWER_ ID = selectedAn swerInstan ce.BRP_FOR M_ANSWER_I D
				14926		an d Q.FORM_Q UESTION_UN IQUE_ID = selectedAn swerInstan ce.FORM_QU ESTION_UNI QUE_ID
				14927		)
				14928		), ';
				14929
				14930		SET @Quer y = @Query + '
				14931		Src
				14932		AS( SE LECT a.REG ISTRANT_ID , a.STD_IN STITUTION_ ID
				14933		FR OM AHOBPR. REGISTRANT a
				14934		WH ERE 1 = 1
				14935		';
				14936
				14937		IF @stat us IS NOT NULL
				14938		SET @Q uery = @Qu ery + ' AN D a.STD_RE GISTRANT_S TATUS_ID I N (' + @st atus + ')' ;
				14939
				14940		IF ISNUL L(@dutySta tus,'') > ''
				14941		SET @Q uery = @Qu ery + ' AN D a.STD_SE RVICE_STAT US_ID IN ( ' + @dutyS tatus + ') ';
				14942
				14943		IF @heal thConcerns != 'All'
				14944		SET @Q uery = @Qu ery + ' AN D a.HEALTH _CONCERNS_ RESPONSE = ''' + @he althConcer ns + '''';
				14945
				14946		IF @requ estToBeSee n != 'All'
				14947		SET @Q uery = @Qu ery + ' AN D a.REQUES T_SEEN_RES PONSE = '' ' + @reque stToBeSeen + '''';
				14948
				14949		IF @form StartFromD ate IS NOT NULL OR @ formStartT oDate IS N OT NULL
				14950		OR @fo rmCompleti onFromDate IS NOT NU LL OR @for mCompletio nToDate IS NOT NULL
				14951		BEGIN
				14952		SET @Q uery = @Qu ery + '
				14953		AND EXISTS ( SELECT d .REGISTRAN T_ID
				14954		FROM AHO BPR.FORM_R ESPONSE d
				14955		JOIN A HOBPR.FORM _RESPONSE_ STATUS e O N d.FORM_R ESPONSE_ID = e.FORM_ RESPONSE_I D
				14956		WHERE a.REGISTRA NT_ID = d. REGISTRANT _ID ';
				14957		IF @ formStartF romDate IS NOT NULL
				14958		SET @Query = @Query + ' AND e. QUESTIONNA IRE_STARTE D_DATE >= ''' + CONV ERT(VARCHA R(20),@for mStartFrom Date,121) + '''';
				14959		IF @ formStartT oDate IS N OT NULL
				14960		SET @Query = @Query + ' AND e. QUESTIONNA IRE_STARTE D_DATE <= ''' + CONV ERT(VARCHA R(20),@for mStartToDa te,121) + '''';
				14961		IF @ formComple tionFromDa te IS NOT NULL
				14962		SET @Query = @Query + ' AND e. QUESTIONNA IRE_COMPLE TED_DATE > = ''' + CO NVERT(VARC HAR(20),@f ormComplet ionFromDat e,121) + ' ''';
				14963		IF @ formComple tionToDate IS NOT NU LL
				14964		SET @Query = @Query + ' AND e. QUESTIONNA IRE_COMPLE TED_DATE < = ''' + CO NVERT(VARC HAR(20),@f ormComplet ionToDate, 121) + ''' ';
				14965		SET @Query = @ Query + ' ) ' -- Clo se Exists statement
				14966		END
				14967
				14968		IF ISNUL L(@answer, '') != ''
				14969		BEGIN
				14970		SET @Q uery = @Qu ery + '
				14971		and exists ( select *
				14972		from AHO BPR.FORM_R ESPONSE_AN SWER fra
				14973		join AHO BPR.FORM_R ESPONSE_QU ESTION frq on frq.F ORM_RESPON SE_QUESTIO N_ID = fra .FORM_RESP ONSE_QUEST ION_id
				14974		join AHO BPR.FORM_R ESPONSE fr on fr.FOR M_RESPONSE _ID = frq. FORM_RESPO NSE_ID
				14975		join sel ectedAnswe r on selecte dAnswer.ST D_FORM_ANS WER_ID = f ra.STD_FOR M_ANSWER_I D
				14976		where a. REGISTRANT _ID = fr.R EGISTRANT_ ID
				14977		)';
				14978
				14979		-- SET @Q uery = @Qu ery + '
				14980		--AND EXIS TS(SELECT fr.REGISTR ANT_ID FRO M AHOBPR.F ORM_RESPON SE_ANSWER ra ' +
				14981		-- 'JOI N AHOBPR.F ORM_RESPON SE_QUESTIO N rq ON rq .FORM_RESP ONSE_QUEST ION_ID = r a.FORM_RES PONSE_QUES TION_ID ' +
				14982		-- 'JOI N AHOBPR.F ORM_RESPON SE fr ON f r.FORM_RES PONSE_ID = rq.FORM_R ESPONSE_ID ' +
				14983		-- 'JOI N AHOBPR.S TD_FORM_AN SWER A1 ON A1.STD_FO RM_ANSWER_ ID = ra.ST D_FORM_ANS WER_ID ' +
				14984		-- 'JOI N AHOBPR.S TD_FORM_QU ESTION Q1 ON Q1.STD_ FORM_QUEST ION_ID = r q.STD_FORM _QUESTION_ ID ' +
				14985		-- 'JOI N AHOBPR.S TD_FORM_QU ESTION Q2 ON Q2.FORM _QUESTION_ UNIQUE_ID = Q1.FORM_ QUESTION_U NIQUE_ID ' +
				14986		-- 'JOI N AHOBPR.S TD_FORM_AN SWER A2 ON A2.STD_FO RM_QUESTIO N_ID = Q2. STD_FORM_Q UESTION_ID ' +
				14987		-- ' AN D A1.BRP_F ORM_ANSWER _ID = A2.B RP_FORM_AN SWER_ID ' +
				14988		-- ' WHER E A2.STD_F ORM_ANSWER _ID IN (' + @answer + ') AND f r.REGISTRA NT_ID = a. REGISTRANT _ID )';
				14989		END;
				14990
				14991		IF ISNUL L(@subpopu lationFlag ,'') != ''
				14992		SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _REGISTRY_ FLAG subpo p ' +
				14993		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				14994		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				14995
				14996		IF ISNULL(@a dminFlag,' ') != ''
				14997		SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT * FR OM AHOBPR. REGISTRANT _REGISTRY_ FLAG admin flag ' +
				14998		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				14999		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				15000		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				15001		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				15002
				15003		IF ISNUL L(@healthF actor,'') != ''
				15004		SET @Q uery = @Qu ery + ' AN D EXISTS ( SELECT re. REGISTRANT _ID FROM A HOBPR.REGI STRANT_VIS IT re ' +
				15005		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				15006		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				15007		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				15008
				15009		IF ISNUL L(@deploym entAll,'') != ''
				15010		SET @Q uery = @Qu ery + ' AN D EXISTS ( SELECT dep l.REGISTRA NT_ID FROM AHOBPR.RE GISTRANT_D EPLOYMENT depl ' +
				15011		' WHERE a.R EGISTRANT_ ID = depl. REGISTRANT _ID
				15012		AND dep l.DEPLOYME NT_COUNTRY = ''' + @ deployment All + ''') ' ;
				15013
				15014		IF ISNUL L(@deploym entExposur e,'') != ' '
				15015		SET @Q uery = @Qu ery + ' AN D EXISTS(S ELECT depl oymentExpo sure.REGIS TRANT_ID F ROM AHOBPR .REGISTRAN T_DEPLOYME NT deploym entExposur e ' +
				15016		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				15017		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				15018		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID = ''1.2.A'' ' +
				15019		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				15020		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				15021
				15022		IF (@evalu ation = 'Y es')
				15023		SET @Query = @Query + ' AND EXIST S(SELECT * FROM AHOB PR.REGISTR ANT_VISIT ev ' +
				15024		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				15025		' AN D ev.EVALU ATION_FLAG = ''Y'') '
				15026		ELSE IF (@evaluat ion = 'No' )
				15027		S ET @Query = @Query + ' AND NOT EXISTS(SE LECT * FRO M AHOBPR.R EGISTRANT_ VISIT ev ' +
				15028		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				15029		' AN D ev.EVALU ATION_FLAG = ''Y'') ' ;
				15030
				15031		IF ISNUL L(@exclude Dead,'N') = 'Y'
				15032		SET @Q uery = @Qu ery + ' AN D a.DECEAS ED_FLAG = 0 ';
				15033
				15034		IF ISNUL L(@gender, '') != ''
				15035		SET @Q uery = @Qu ery + ' AN D ''' + @g ender + '' ' = ISNULL (a.GENDER, ''No Data Available' ') ';
				15036
				15037		IF ISNUL L(@ethnici ty,'') != ''
				15038		SET @Q uery = @Qu ery + ' AN D ''' + @e thnicity + ''' = ISN ULL(a.ETHN ICITY,''No Data Avai lable'') ' ;
				15039
				15040		IF ISNUL L(@separat ionType,0) != 0
				15041		SET @Q uery = @Qu ery + ' AN D ''' + @s eparationT ype + ''' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				15042
				15043		IF @sepa rationFrom Date IS NO T NULL
				15044		SET @Q uery = @Qu ery + ' AN D a.SEPARA TION_DATE_ CURRENT >= ''' + CON VERT(VARCH AR(20),@se parationFr omDate,121 ) + '''';
				15045
				15046		IF @sepa rationToDa te IS NOT NULL
				15047		SET @Q uery = @Qu ery + ' AN D a.SEPAR ATION_DATE _CURRENT < = ''' + CO NVERT(VARC HAR(20),@s eparationT oDate,121) + '''';
				15048
				15049		IF ISNUL L(@race,'' ) != ''
				15050		SET @Q uery = @Qu ery + ' AN D ''' + @r ace + ''' = ISNULL( a.RACE ,'' No Data Av ailable'') ';
				15051
				15052		IF ISNUL L(@enrollm entStatus, '') != ''
				15053		SET @Q uery = @Qu ery + ' AN D ''' + @e nrollmentS tatus + '' ' = ISNULL (a.ENROLLM ENT_STATUS ,''No Data Available '') ';
				15054
				15055		-- Add S ummary TDE
				15056		SET @Que ry = @Quer y + ' ) ,Summary AS( ' +
				15057		' SELE CT Src.STD _INSTITUTI ON_ID, COU NT(*) AS T otalRegist rants FROM Src ' +
				15058		' GROU P BY STD_I NSTITUTION _ID ) ';
				15059		-- By Faci lity
				15060		IF @groupBy = 'Facilit y'
				15061		BE GIN SET @ Query = @Q uery + '
				15062		SELECT in st.Name AS Location,
				15063		IS NULL(CONVE RT(VARCHAR (10),Summa ry.STD_INS TITUTION_I D),''-1'') AS Locati onId,
				15064		SU M(TotalReg istrants) AS TotalRe gistrants
				15065		FROM Summary
				15066		JOIN AHOBPR.VIE W_INSTITUT ION_NAME i nst ON ins t.ID = ISN ULL(Summar y.STD_INST ITUTION_ID ,-1)
				15067		GROUP BY inst.Name, STD_INSTIT UTION_ID
				15068		OPTION (OPTIMIZE FOR UNKNOW N);';
				15069		END
				15070		ELSE -- By VISN
				15071		BEGIN
				15072		IF @groupB y = 'VISN'
				15073		SET @Qu ery = @Que ry + '
				15074		,VisnSumma ry AS
				15075		(
				15076		SELECT I SNULL(inst .VisnID,'' NLA'') AS Location,
				15077		IS NULL(inst. VisnID, '' -1'') AS L ocationId,
				15078		SU M(TotalReg istrants) AS TotalRe gistrants
				15079		FROM Su mmary
				15080		LEFT JO IN AHOBPR. VIEW_FACIL ITY_LOOKUP inst ON i nst.ID = I SNULL(Summ ary.STD_IN STITUTION_ ID,-1)
				15081		GROUP B Y inst.Vis nID
				15082		) --close the WITH
				15083		SELECT RE PLACE(Loca tion,''NLA '',''No Fa citilty As signed'') AS Locatio n,
				15084		CO NVERT(VARC HAR(10),Lo cationId) AS Locatio nId, Total Registrant s
				15085		FROM Vi snSummary
				15086		ORDER BY Location
				15087		OPTION ( OPTIMIZE F OR UNKNOWN ); ' ;
				15088		EN D;
				15089
				15090		PRINT @Q uery;
				15091
				15092		EXECUTE (@Query);
				15093		END
				15094		-- Paramet ers
				15095		--@statu s, @dutySt atus ,@que stionnaire StartDate, @question naireCompl eteDate,
				15096		--@quest ionNumber, @answer, @healthCon cerns= 'Al l', @reque stToBeSeen = 'All',
				15097		--@regis tryFlag,@I nstitution Id = 0, @V isnId = ''
				15098		-- Test Ca ses
				15099		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @ev aluation = 'No'
				15100		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @du tyStatus = '1,2'
				15101		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @fo rmStartFro mDateText = '200101 01'
				15102		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @fo rmStartToD ateText = '20141231'
				15103		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @he althFactor = '44,45, 46,47'
				15104		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @fo rmCompleti onFromDate Text = '2 0010101'
				15105		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @fo rmCompleti onToDateTe xt = '201 41231'
				15106		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @he althConcer ns = 'Yes'
				15107		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @re questToBeS een = 'Yes '
				15108		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @su bpopulatio nFlag = '6 4,65,66,67 '
				15109		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @de ploymentAl l = 'Iraq' -- 'Eg ypt'
				15110		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @de ploymentEx posure = 'Iraq'
				15111		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @ad minFlag = '59,60' ,@ adminFlagF romDateTex t = '20150 101' , @ad minFlagToD ateText = '20150201'
				15112		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = 'V ISN', @an swer = '39 '
				15113		-- EXECUTE [AHOBPR]. [SP_Report AdHocByLoc ation] @gr oupBy = ' Facility' , @status = '6,7' ,@ answer = ' 2346,1571, 17' -- ' 20,795,157 0'
				15114		go
				15115		print 'reC REATE PROC EDURE [AHO BPR].[SP_R eportAdHoc ByIndividu al]...';
				15116		go
				15117		if exists (select * from sys.p rocedures where name = 'SP_Rep ortAdHocBy Individual '
				15118		and sche ma_id = (s elect sche ma_id from sys.schem as where n ame = 'AHO BPR')
				15119		)
				15120		exec sp_ rename 'ah obpr.SP_Re portAdHocB yIndividua l', 'SP_Re portAdHocB yIndividua l_pre_2_0_ 32_2'
				15121		go
				15122
				15123		-- ======= ========== ========== ========== ========
				15124		-- Author: Debora h Barr
				15125		-- Create date: Nove mber 12, 2 014
				15126		-- Descrip tion: Used for the A HOBPR Ad H oc Report
				15127
				15128		-- Modific ation log
				15129		-- 2014-12 -31 - Chan ged from F LAG to RES PONSE for Health Con cerns and REQUEST_SE EN, Reform atted stat ements for readabili ty
				15130		-- 2015-01 -05 - Chan ge Date Fo rmat to MM /DD/YYYY
				15131		-- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ healthFact or, @formS tartFromDa te, @formS tartToDate , @subpopu lationFlag
				15132		-- 2015-01 -14 - Sher ry Wang Ad d more par ameters: @ adminFlag, @deployme ntAll, @de ploymentEx posure, @a dminFlagFr omDate, @a dminFlagTo Date
				15133		-- 2015-01 -16 - Bruc e Clegg - Fix parame ters and r emove NULL s from dis play where possible
				15134		-- 2015-02 -09 - Bruc e Clegg - Change Hea lth Factor Exists st atements t o use new REGISTRANT _VISIT
				15135		-- 2015-03 -30 - Bruc e Clegg - Added Visn Id value o f NLA to f ind Null l ocations
				15136		-- 2015-04 -27 - Bruc e Clegg - Change to LocationTy pe and Key , for both Assigned and Evalua ted Locati ons
				15137		-- 2015-06 -04 - Bruc e Clegg - Add more p arameters
				15138		-- 2015-06 -18 - Bruc e Clegg - Changed @s eparationT ype to an Integer
				15139		-- 2015-07 -09 - Bruc e CLegg - Rewrote as Dynamic S QL for per formance
				15140		-- 2016-02 -03 - D. B arr - Fixe d logic on Evaluatio n Location (Script 2 .0.32.1)
				15141		-- 2016-02 -07 - D. M ay - Addre ssed perfo rmance of specific q uestion qu ery
				15142		-- ======= ========== ========== ========== ========
				15143		CREATE PRO CEDURE [AH OBPR].[SP_ ReportAdHo cByIndivid ual]
				15144		@st atus varch ar(100) = NULL, -- M ultiple st atues, com ma-separat ed values when not N ULL
				15145		@du tyStatus v archar(100 ) = NULL, -- Multipl e states, comma-sepa rated valu es when no t NULL
				15146		@fo rmStartFro mDateText varchar(10 0) = NULL,
				15147		@fo rmStartToD ateText va rchar(100) = NULL,
				15148		@he althFactor varchar(1 00) = NULL , -- Multi ple health factor ID s, comma-s eparated v alues when not NULL
				15149		@fo rmCompleti onFromDate Text varch ar(100) = NULL,
				15150		@fo rmCompleti onToDateTe xt varchar (100) = NU LL,
				15151		@qu estionNumb er varchar (100) = NU LL,
				15152		@an swer varch ar(100) = NULL,
				15153		@he althConcer ns varchar (100) = 'A ll',
				15154		@re questToBeS een varcha r(100) = ' All',
				15155		@As signedLoca tionType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				15156		@As signedLoca tionKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				15157		@Ev aluatedLoc ationType VARCHAR(20 ) = NULL, -- 'VISN' , 'Base', 'Instituti on', 'NLA' = No Loca tion Assig ned
				15158		@Ev aluatedLoc ationKey VARCHAR(50 ) = NULL, -- 'V16', 'V01' 1000109, 1000089
				15159		@su bpopulatio nFlag varc har (10) = NULL,
				15160		@ad minFlag va rchar (10) = NULL,
				15161		@de ploymentAl l varchar (256) = NU LL,
				15162		@de ploymentEx posure var char (256) = NULL,
				15163		@ad minFlagFro mDateText varchar (2 0) = NULL,
				15164		@ad minFlagToD ateText va rchar (20) = NULL,
				15165		@ex cludeDead varchar(1) = 'N',
				15166		@ge nder varch ar(50) = ' ',
				15167		@ra ce varchar (50) = '',
				15168		@et hnicity va rchar(50) = '',
				15169		@se parationTy pe INT = 0 ,
				15170		@se parationFr omDateText varchar ( 20) = NULL ,
				15171		@se parationTo DateText v archar (20 ) = NULL,
				15172		@en rollmentSt atus varch ar(50) = ' ',
				15173		@ev aluation v archar(100 ) = 'All'
				15174		AS
				15175
				15176		BEGIN
				15177
				15178		-- Convert date para meters fro m VARCHAR to DATETIM E2(0)
				15179		DECLARE @formStart FromDate D ATETIME2(0 ) = NULL,
				15180		@formStart ToDate DAT ETIME2(0) = NULL,
				15181		@formCompl etionFromD ate DATETI ME2(0) = N ULL,
				15182		@formCompl etionToDat e DATETIME 2(0) = NUL L,
				15183		@adminFlag FromDate D ATETIME2(0 ) = NULL,
				15184		@adminFlag ToDate DAT ETIME2(0) = NULL,
				15185		@separatio nFromDate DATETIME2( 0) = NULL,
				15186		@separatio nToDate DA TETIME2(0) = NULL;
				15187
				15188		DECLARE @Query VAR CHAR(8000) ;
				15189		DECLARE @MainQuery VARCHAR(8 000);
				15190		DECLARE @RegCriter ia VARCHAR (8000) = ' ';
				15191		DECLARE @AdminWith VARCHAR(8 000);
				15192		DECLARE @SubPopWit h VARCHAR( 8000);
				15193		DECLARE @DeployWit h VARCHAR( 8000);
				15194		DECLARE @AnswerWit h VARCHAR( 8000) = '' ;
				15195
				15196		SET @for mStartFrom Date = dbo .CleanDate (@formStar tFromDateT ext);
				15197		SET @for mStartToDa te = dbo.A ddMaxTime( dbo.CleanD ate(@formS tartToDate Text));
				15198		SET @for mCompletio nFromDate = dbo.Clea nDate(@for mCompletio nFromDateT ext);
				15199		SET @for mCompletio nToDate = dbo.AddMax Time(dbo.C leanDate(@ formComple tionToDate Text));
				15200		SET @adm inFlagFrom Date = ISN ULL(dbo.Cl eanDate(@a dminFlagFr omDateText ),'1900010 1');
				15201		SET @adm inFlagToDa te = dbo.A ddMaxTime( ISNULL(dbo .CleanDate (@adminFla gToDateTex t),GETDATE ()));
				15202		SE T @separat ionFromDat e = dbo.Cl eanDate(@s eparationF romDateTex t);
				15203		SET @sep arationToD ate = dbo. AddMaxTime (dbo.Clean Date(@sepa rationToDa teText));
				15204
				15205		DE CLARE @Adm inType INT = (SELECT STD_REGIS TRY_FLAG_T YPE_ID
				15206		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				15207		WHERE REGISTRY_ FLAG_TYPE = 'Adminis trative Fl ag');
				15208
				15209		DE CLARE @Sub PopType IN T = (SELEC T STD_REGI STRY_FLAG_ TYPE_ID
				15210		FROM AHOBPR.ST D_REGISTRY _FLAG_TYPE
				15211		WHERE REGISTRY_ FLAG_TYPE = 'SubPopu lation Fla g');
				15212
				15213		-- Set I nstitution ID values if needed.
				15214		DECLARE @AssignedI nstitution Id INT = 0 ,
				15215		@Evaluated Institutio nId INT = 0;
				15216
				15217
				15218		IF @Assi gnedLocati onType IN ('Base','I nstitution ')
				15219		AND ISNU MERIC(@Ass ignedLocat ionKey) = 1
				15220		SET @A ssignedIns titutionId = CONVERT (INT,@Assi gnedLocati onKey);
				15221
				15222		IF @Eval uatedLocat ionType IN ('Base',' Institutio n')
				15223		AND ISNU MERIC(@Eva luatedLoca tionKey) = 1
				15224		SET @E valuatedIn stitutionI d = CONVER T(INT,@Eva luatedLoca tionKey);
				15225
				15226
				15227		--Concat enate one or more Su b-populati on flags f or Registr ants with flags
				15228		SET @Sub PopWith = '
				15229		WITH SubPo p AS
				15230		(
				15231		SELE CT a.REGIS TRANT_ID,
				15232		STUFF(( SELECT '', '' + c.RE GISTRY_FLA G_NAME
				15233		FROM AHOBP R.REGISTRA NT_REGISTR Y_FLAG b
				15234		JOIN AHOBP R.STD_REGI STRY_FLAG c ON b.STD _REGISTRY_ FLAG_ID = c.STD_REGI STRY_FLAG_ ID
				15235		WHERE a.RE GISTRANT_I D = b.REGI STRANT_ID
				15236		AND c.S TD_REGISTR Y_FLAG_TYP E_ID = ' + CONVERT(V ARCHAR(3), @SubPopTyp e) + '
				15237		F OR XML PAT H('''')), 1, 1, '''' ) AS [REGI STRY_FLAG_ NAME]
				15238		FROM AHOBPR.RE GISTRANT a
				15239		WHER E 1 = 1 ';
				15240
				15241		--Concat enate one or more Ad min flags for Regist rants with flags
				15242		SET @Adm inWith = '
				15243		, Admin AS ( SELECT a.REGISTR ANT_ID, ' +
				15244		' STUFF ((SELECT ' ', '' + c. REGISTRY_F LAG_NAME ' +
				15245		' FROM A HOBPR.REGI STRANT_REG ISTRY_FLAG b ' +
				15246		' JOIN A HOBPR.STD_ REGISTRY_F LAG c ON b .STD_REGIS TRY_FLAG_I D = c.STD_ REGISTRY_F LAG_ID ' +
				15247		' WHERE a .REGISTRAN T_ID = b.R EGISTRANT_ ID ' +
				15248		' AND c .STD_REGIS TRY_FLAG_T YPE_ID = ' + CONVERT (VARCHAR(3 ),@AdminTy pe) +
				15249		' AND b .CREATED B ETWEEN ''' + CONVERT (VARCHAR(2 0),@adminF lagFromDat e,121) +
				15250		' '' AND ''' + CONVERT (VARCHAR(2 0),@adminF lagToDate, 121) + ''' ' +
				15251		' FOR X ML PATH('' '')), 1, 1 , '''') AS [REGISTRY _FLAG_NAME ] ' +
				15252		' FROM A HOBPR.REGI STRANT a ' +
				15253		' WHERE 1 = 1 ';
				15254
				15255		--Concat enate one or more De ployment C ountries f or Registr ants with Deployment s
				15256		SET @Dep loyWith = '
				15257		, Deploy A S (SELECT a.REGISTRA NT_ID, ' +
				15258		' STUFF((SE LECT '', ' ' + b.DEPL OYMENT_COU NTRY ' +
				15259		' FROM AHOBP R.REGISTRA NT_DEPLOYM ENT b ' +
				15260		' W HERE a.REG ISTRANT_ID = b.REGIS TRANT_ID ' +
				15261		' FOR XML P ATH('''')) , 1, 1, '' '') AS DEP LOYMENT_CO UNTRY ' +
				15262		' FROM AH OBPR.REGIS TRANT a ' +
				15263		' WHERE 1 = 1 ';
				15264
				15265		SET @Mai nQuery = ' SELECT D ISTINCT a. REGISTRANT _ID ' +
				15266		', (a.LAST_NA ME + '', ' ' + a.FIRS T_NAME) AS Name ' +
				15267		', b.REGISTRA NT_STATUS AS Status ' +
				15268		', c.SERVICE_ STATUS AS DutyStatus ' +
				15269		', e.QUESTION NAIRE_STAR TED_DATE A S Question StartDate ' +
				15270		', e.QUESTION NAIRE_COMP LETED_DATE AS Questi onComplete Date ' +
				15271		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_STARTE D_DATE, 10 1),'''') A S Question StartDateD isplay ' +
				15272		', ISNULL(CON VERT(VARCH AR(10), e. QUESTIONNA IRE_COMPLE TED_DATE, 101),'''') AS Questi onComplete DateDispla y ';
				15273		--Decide w hich query to run de pending on if a ques tion was s elected as a paramet er for the report
				15274		IF ISNUL L(@questio nNumber, ' ') = ''
				15275		SET @M ainQuery = @MainQuer y + ','''' AS Questi onNumber ' +
				15276		','''' AS Answer '
				15277		ELSE
				15278		SET @M ainQuery = @MainQuer y + ',''' + @questio nNumber + ''' AS Que stionNumbe r ' +
				15279		',STUF F((SELECT '', '' + s tdAnswer.T EXT ' +
				15280		' FROM AHOBPR.FOR M_RESPONSE _ANSWER an swer ' +
				15281		' JOIN AHOBPR.STD _FORM_ANSW ER stdAnsw er ON answ er.STD_FOR M_ANSWER_I D = stdAns wer.STD_FO RM_ANSWER_ ID ' +
				15282		' WHERE formQuesti on.FORM_RE SPONSE_QUE STION_ID = answer.FO RM_RESPONS E_QUESTION _ID ' +
				15283		' FOR XM L PATH(''' ')), 1, 1, '''') AS Answer ' ;
				15284
				15285		SET @Mai nQuery = @ MainQuery + ',ISNULL (a.HEALTH_ CONCERNS_R ESPONSE,'' '') AS Hea lthConcern s ' +
				15286		',ISNULL (a.REQUEST _SEEN_RESP ONSE,'''') AS Reque stBeSeen ' +
				15287		',RTRIM( LTRIM(ISNU LL(SubPop. REGISTRY_F LAG_NAME,' '''))) AS Subpopulat ionFlag ' +
				15288		',RTRIM( LTRIM(ISNU LL(Admin.R EGISTRY_FL AG_NAME,'' ''))) AS A dminFlag ' +
				15289		',ISNULL (Deploy.DE PLOYMENT_C OUNTRY,''' ') AS Depl oymentCoun try ' +
				15290		',a.BI RTH_DATE A S BirthDat e ' +
				15291		',CONV ERT(VARCHA R(10), a.B IRTH_DATE, 101) AS B irthDateDi splay ' +
				15292		'FROM AH OBPR.REGIS TRANT a '
				15293
				15294		SET @Mai nQuery = @ MainQuery + ' JOIN A HOBPR.STD_ REGISTRANT _STATUS b ON a.STD_R EGISTRANT_ STATUS_ID = b.STD_RE GISTRANT_S TATUS_ID ' +
				15295		' JOIN AHOBP R.STD_SERV ICE_STATUS c ON a.ST D_SERVICE_ STATUS_ID = c.STD_SE RVICE_STAT US_ID ' +
				15296		' LEFT JOIN AHOB PR.FORM_RE SPONSE d O N a.REGIST RANT_ID = d.REGISTR ANT_ID ' +
				15297		' LEFT JOIN AHOB PR.FORM_RE SPONSE_STA TUS e ON d .FORM_RESP ONSE_ID = e.FORM_RES PONSE_ID ' +
				15298		' LEFT JOIN SubP op ON a.R EGISTRANT_ ID = SubPo p.REGISTRA NT_ID ' +
				15299		' LEFT JOIN Admi n ON a.R EGISTRANT_ ID = Admin .REGISTRAN T_ID ' +
				15300		' LEFT JOIN Depl oy ON a.R EGISTRANT_ ID = Deplo y.REGISTRA NT_ID ';
				15301
				15302		IF ISNUL L(@questio nNumber, ' ') != ''
				15303		SET @M ainQuery = @MainQuer y + ' JOIN AHOBPR.FO RM_RESPONS E_QUESTION formQuest ion ON d.F ORM_RESPON SE_ID = fo rmQuestion .FORM_RESP ONSE_ID ' +
				15304		' JOIN AHOBPR.ST D_FORM_QUE STION stdQ uestion ON formQuest ion.STD_FO RM_QUESTIO N_ID = std Question.S TD_FORM_QU ESTION_ID ';
				15305
				15306		SET @Mai nQuery = @ MainQuery + ' WHERE 1 = 1 ';
				15307
				15308
				15309		-- Quest ion Number and Answe r criteria are only used again st Main Qu ery
				15310		IF ISNUL L(@questio nNumber, ' ') > ''
				15311		SET @MainQ uery = @Ma inQuery + ' AND stdQ uestion.FO RM_QUESTIO N_UNIQUE_I D = ''' + @questionN umber + '' ' ';
				15312
				15313		IF ISNUL L(@answer, '') != ''
				15314		BEGIN
				15315		SET @AnswerWit h = '
				15316		, selected AnswerInst ance as
				15317		(
				15318		select B RP_FORM_AN SWER_ID, A .STD_FORM_ QUESTION_I D, Q.FORM_ QUESTION_U NIQUE_ID
				15319		from AHO BPR.STD_FO RM_ANSWER A
				15320		join AHO BPR.STD_FO RM_QUESTIO N Q on Q.S TD_FORM_QU ESTION_ID = A.STD_FO RM_QUESTIO N_ID
				15321		where a. STD_FORM_A NSWER_ID I N (' + @an swer + ')- -user spec ified answ er
				15322		)
				15323		, selected Answer as
				15324		(
				15325		select S TD_FORM_AN SWER_ID
				15326		from AHO BPR.STD_FO RM_ANSWER A
				15327		join AHO BPR.STD_FO RM_QUESTIO N Q on A.S TD_FORM_QU ESTION_ID = Q.STD_FO RM_QUESTIO N_ID
				15328		where EX ISTS (sele ct * from selectedAn swerInstan ce --1:39 w/o brp_fo rm_answer_ id index 0 :37 with
				15329		wher e A.BRP_FO RM_ANSWER_ ID = selectedAn swerInstan ce.BRP_FOR M_ANSWER_I D
				15330		an d Q.FORM_Q UESTION_UN IQUE_ID = selectedAn swerInstan ce.FORM_QU ESTION_UNI QUE_ID
				15331		)
				15332		) ';
				15333		SET @M ainQuery = @MainQuer y + '
				15334		AND EXIS TS(select *
				15335		from A HOBPR.FORM _RESPONSE_ ANSWER a
				15336		join s electedAns wer on sel ectedAnswe r.STD_FORM _ANSWER_ID = a.STD_F ORM_ANSWER _ID
				15337		where a.FORM_RES PONSE_QUES TION_ID = formQuesti on.FORM_RE SPONSE_QUE STION_ID
				15338		)';
				15339		END;
				15340
				15341		IF @form StartFromD ate IS NOT NULL
				15342		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE >= ''' + C ONVERT(VAR CHAR(20),@ formStartF romDate,12 1) + '''';
				15343
				15344		IF @form StartToDat e IS NOT N ULL
				15345		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_STA RTED_DATE <= ''' + C ONVERT(VAR CHAR(20),@ formStartT oDate,121) + '''';
				15346
				15347		IF @form Completion FromDate I S NOT NULL
				15348		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E >= ''' + CONVERT(V ARCHAR(20) ,@formComp letionFrom Date,121) + '''';
				15349
				15350		IF @form Completion ToDate IS NOT NULL
				15351		SET @ MainQuery = @MainQue ry + ' AND e.QUESTIO NNAIRE_COM PLETED_DAT E <= ''' + CONVERT(V ARCHAR(20) ,@formComp letionToDa te,121) + '''';
				15352
				15353		IF ISNUL L(@subpopu lationFlag ,'') != ''
				15354		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG subpop ' +
				15355		' WHERE subp op.STD_REG ISTRY_FLAG _ID IN (' + @subpopu lationFlag + ') ' +
				15356		' AND subp op.REGISTR ANT_ID = a .REGISTRAN T_ID ) ';
				15357
				15358		IF ISNULL(@a dminFlag,' ') != ''
				15359		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT * FROM AHOBPR.RE GISTRANT_R EGISTRY_FL AG adminfl ag ' +
				15360		' WHER E adminfla g.STD_REGI STRY_FLAG_ ID IN (' + @adminFla g + ') ' +
				15361		' AN D adminfla g.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				15362		' AN D adminfla g.CREATED BETWEEN '' ' + CONVER T(VARCHAR( 20),@admin FlagFromDa te,121) +
				15363		''' AND '' ' + CONVER T(VARCHAR( 20),@admin FlagToDate ,121) + '' ' ) ';
				15364
				15365		IF ISNUL L(@deploym entAll,'') != ''
				15366		SET @M ainQuery = @MainQuer y + 'AND E XISTS (SEL ECT depl.R EGISTRANT_ ID FROM AH OBPR.REGIS TRANT_DEPL OYMENT dep l ' +
				15367		' WHERE a. REGISTRANT _ID = depl .REGISTRAN T_ID
				15368		AND de pl.DEPLOYM ENT_COUNTR Y = ''' + @deploymen tAll + ''' ) ' ;
				15369
				15370		IF ISNUL L(@healthF actor,'') != ''
				15371		SET @M ainQuery = @MainQuer y + ' AND EXISTS (SE LECT re.RE GISTRANT_I D FROM AHO BPR.REGIST RANT_VISIT re ' +
				15372		' JOIN AHO BPR.REGIST RANT_HEALT H_FACTOR h f ON re.RE GISTRANT_V ISIT_ID = hf.REGISTR ANT_VISIT_ ID ' +
				15373		' WHERE a.R EGISTRANT_ ID = re.RE GISTRANT_I D AND re.E VALUATION_ FLAG = ''Y '' ' +
				15374		' AND hf. STD_HEALTH _FACTOR_ID IN (' + @ healthFact or + ') ) '
				15375
				15376
				15377		IF ISNUL L(@deploym entExposur e,'') != ' '
				15378		SET @M ainQuery = @MainQuer y + ' AND EXISTS(SEL ECT deploy mentExposu re.REGISTR ANT_ID FRO M AHOBPR.R EGISTRANT_ DEPLOYMENT deploymen tExposure ' +
				15379		' JOIN AH OBPR.FORM_ RESPONSE_Q UESTION ex posure ON deployment Exposure.R EGISTRANT_ DEPLOYMENT _ID = expo sure.REGIS TRANT_DEPL OYMENT_ID ' +
				15380		' JOIN AH OBPR.STD_F ORM_QUESTI ON quest O N exposure .STD_FORM_ QUESTION_I D = quest. STD_FORM_Q UESTION_ID ' +
				15381		' WHERE qu est.FORM_Q UESTION_UN IQUE_ID li ke ''1.2%' ' ' +
				15382		' AND de ploymentEx posure.DEP LOYMENT_CO UNTRY = '' ' + @deplo ymentExpos ure + '''' +
				15383		' AND de ploymentEx posure.REG ISTRANT_ID = a.REGIS TRANT_ID ) ';
				15384
				15385		IF (@eva luation = 'Yes')
				15386		SET @MainQuer y = @MainQ uery + ' A ND EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev ' +
				15387		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				15388		' AN D ev.EVALU ATION_FLAG = ''Y'') '
				15389		ELSE IF (@evaluat ion = 'No' )
				15390		S ET @MainQu ery = @Mai nQuery + ' AND NOT E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT ev ' +
				15391		' WHER E ev.REGIS TRANT_ID = a.REGISTR ANT_ID ' +
				15392		' AN D ev.EVALU ATION_FLAG = ''Y'') ' ;
				15393
				15394
				15395		-- The re st of the criteria w ill be app lied to Ma in Query a nd With st atememts
				15396		IF @stat us IS NOT NULL
				15397		SET @R egCriteria = @RegCri teria + ' AND a.STD_ REGISTRANT _STATUS_ID IN (' + @ status + ' )';
				15398
				15399		IF ISNUL L(@dutySta tus,'') > ''
				15400		SET @R egCriteria = @RegCri teria + ' AND a.STD_ SERVICE_ST ATUS_ID IN (' + @dut yStatus + ')';
				15401
				15402		IF @heal thConcerns != 'All'
				15403		SET @R egCriteria = @RegCri teria + ' AND a.HEAL TH_CONCERN S_RESPONSE = ''' + @ healthConc erns + ''' ';
				15404
				15405		IF @requ estToBeSee n != 'All'
				15406		SET @R egCriteria = @RegCri teria + ' AND a.REQU EST_SEEN_R ESPONSE = ''' + @req uestToBeSe en + '''' ;
				15407
				15408		IF ISNUL L(@exclude Dead,'N') = 'Y'
				15409		SET @R egCriteria = @RegCri teria + ' AND a.DECE ASED_FLAG = 0 ';
				15410
				15411		IF ISNUL L(@gender, '') != ''
				15412		SET @R egCriteria = @RegCri teria + ' AND ''' + @gender + ''' = ISNU LL(a.GENDE R,''No Dat a Availabl e'') ';
				15413
				15414		IF ISNUL L(@ethnici ty,'') != ''
				15415		SET @R egCriteria = @RegCri teria + ' AND ''' + @ethnicity + ''' = I SNULL(a.ET HNICITY,'' No Data Av ailable'') ';
				15416
				15417		IF ISNUL L(@separat ionType,0) != 0
				15418		SET @R egCriteria = @RegCri teria + ' AND ''' + @separatio nType + ' = ISNULL(a .STD_SEPAR ATION_REAS ON_ID_CURR ENT,0) ';
				15419
				15420		IF @sepa rationFrom Date IS NO T NULL
				15421		SET @R egCriteria = @RegCri teria + ' AND a.SEPA RATION_DAT E_CURRENT >= ''' + C ONVERT(VAR CHAR(20),@ separation FromDate,1 21) + '''' ;
				15422
				15423		IF @sepa rationToDa te IS NOT NULL
				15424		SET @R egCriteria = @RegCri teria + ' AND a.SEP ARATION_DA TE_CURRENT <= ''' + CONVERT(VA RCHAR(20), @separatio nToDate,12 1) + '''';
				15425
				15426		IF ISNUL L(@race,'' ) != ''
				15427		SET @R egCriteria = @RegCri teria + ' AND ''' + @race + '' ' = ISNUL L(a.RACE , ''No Data Available' ') ';
				15428
				15429		IF ISNUL L(@enrollm entStatus, '') != ''
				15430		SET @R egCriteria = @RegCri teria + ' AND ''' + @enrollmen tStatus + ''' = ISNU LL(a.ENROL LMENT_STAT US,''No Da ta Availab le'') ';
				15431
				15432		IF @Assi gnedLocati onType IS NOT NULL
				15433		BEGIN
				15434		IF @ AssignedLo cationType = 'NLA'
				15435		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID I S NULL ' ;
				15436		ELSE
				15437		IF @ AssignedLo cationType = 'VISN'
				15438		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				15439		' WHERE i nst.ID = a .STD_INSTI TUTION_ID ' +
				15440		' AND i nst.VisnID = ''' + @ AssignedLo cationKey + ''') ';
				15441		ELSE
				15442		IF @ AssignedLo cationType = 'Base'
				15443		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.VIEW _FACILITY_ LOOKUP ins t ' +
				15444		' WHER E inst.ID = a.STD_IN STITUTION_ ID ' +
				15445		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Assigned Institutio nId) + ') '
				15446		ELSE
				15447		IF @ AssignedLo cationType = 'Instit ution'
				15448		SE T @RegCrit eria = @Re gCriteria + ' AND a. STD_INSTIT UTION_ID = ' + CONVE RT(VARCHAR (20),@Assi gnedInstit utionId);
				15449		END;
				15450
				15451		IF @Eval uatedLocat ionType IS NOT NULL
				15452		BEGIN
				15453		IF @ EvaluatedL ocationTyp e = 'NLA'
				15454		SE T @RegCrit eria = @Re gCriteria + ' AND NO T EXISTS( SELECT * F ROM AHOBPR .REGISTRAN T_VISIT ev al ' +
				15455		' WHERE eva l.REGISTRA NT_ID = a. REGISTRANT _ID ' +
				15456		' AND eva l.EVALUATI ON_FLAG = ''Y'') ' ;
				15457		ELSE
				15458		IF @ EvaluatedL ocationTyp e = 'VISN'
				15459		SE T @RegCrit eria = @Re gCriteria + ' AND EX ISTS(SELEC T * FROM A HOBPR.REGI STRANT_VIS IT eval ' +
				15460		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				15461		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				15462		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				15463		' AN D inst.Vis nID = ''' + @Evaluat edLocation Key + ''') ';
				15464		ELSE
				15465		IF @ EvaluatedL ocationTyp e = 'Base'
				15466		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				15467		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				15468		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				15469		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				15470		' AN D inst.BAS E_ID = ' + CONVERT(V ARCHAR(20) ,@Evaluate dInstituti onId) + ') ';
				15471		ELSE
				15472		IF @ EvaluatedL ocationTyp e = 'Insti tution'
				15473		SE T @RegCrit eria = @Re gCriteria + ' AND E XISTS(SELE CT * FROM AHOBPR.REG ISTRANT_VI SIT eval ' +
				15474		' JOI N AHOBPR.V IEW_FACILI TY_LOOKUP inst ON in st.ID = ev al.STD_INS TITUTION_I D ' +
				15475		' WHER E eval.REG ISTRANT_ID = a.REGIS TRANT_ID ' +
				15476		' AN D eval.EVA LUATION_FL AG = ''Y'' ' +
				15477		' AN D eval.STD _INSTITUTI ON_ID = ' + CONVERT( VARCHAR(20 ),@Evaluat edInstitut ionId) + ') ';
				15478		END;
				15479
				15480		-- Add cri teria and Close With Statement
				15481		SET @Dep loyWith = @DeployWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				15482		SET @Sub PopWith = @SubPopWit h + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				15483		SET @Adm inWith = @AdminWith + @RegCr iteria + ' GROUP BY a.REGISTRA NT_ID ) '
				15484
				15485		SET @Que ry = @Sub PopWith + @AdminWit h + @Deplo yWith + @A nswerWith + @MainQu ery + @Reg Criteria;
				15486
				15487		PRINT @ Query;
				15488
				15489		EXECUTE ( @Query);
				15490		END;
				15491
				15492
				15493
				15494		-- Test Ca ses
				15495		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual]
				15496		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ status = ' 6,7'
				15497		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ dutyStatus = '1,2'
				15498		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formStartF romDateTex t = '2001 0101'
				15499		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formStartT oDateText = '2014123 1'
				15500		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ healthFact or = '44,4 5,46,47'
				15501		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formComple tionFromDa teText = '20010101'
				15502		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ formComple tionToDate Text = '2 0141231'
				15503		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ healthConc erns = 'Ye s' ,
				15504		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ requestToB eSeen = 'Y es
				15505		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ subpopulat ionFlag = '64,65,66, 67'
				15506		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ deployment All = 'Egy pt'
				15507		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ deployment Exposure = 'Iraq'
				15508		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ adminFlag = '59,60' ,@adminFla gFromDateT ext = '201 50101' , @ adminFlagT oDateText = '2015020 1'
				15509		-- EXECUTE [AHOBPR]. [SP_Report AdHocByInd ividual] @ questionNu mber = '5. 4.A' , @a nswer = '2 221'
				15510		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual]
				15511		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'NLA'
				15512		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'VISN', @A ssignedLoc ationKey = 'V16'
				15513		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'Base', @A ssignedLoc ationKey = '1000089'
				15514		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Ass ignedLocat ionType = 'Instituti on', @Assi gnedLocati onKey = '1 000089'
				15515		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @et hnicity = 'JEWISH'
				15516		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'NLA'
				15517		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'VISN', @ EvaluatedL ocationKey = 'V16'
				15518		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'Base', @ EvaluatedL ocationKey = '100008 9'
				15519		-- exec [A HOBPR].[SP _ReportAdH ocByIndivi dual] @Eva luatedLoca tionType = 'Institut ion', @Eva luatedLoca tionKey = '1000089'
				15520
				15521
				15522		--EXECUTE [AHOBPR].[ SP_ReportA dHocByIndi vidual] @ status = ' 7', @quest ionNumber = '1.3.A' , @answer = '39'; - -4:08 atfe r index
				15523		--
				15524
				15525		GO
				15526		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				15527		print N'Up date compl ete.';
				15528		print 'Com pleted ' + CAST(GETD ATE() as v archar(20) ) + '.';
				15529		---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -----
				15530
				15531
				15532		go
				15533		update [d bo].[Datab aseChangeL og]
				15534		set Sc riptDescri ption = 'S cript Comp leted Succ essfully.'
				15535		where [M ajorReleas eNumber] = '$(Major ReleaseNum ber)'
				15536		and [M inorReleas eNumber] = '$(Minor ReleaseNum ber)'
				15537		and [P ointReleas eNumber] = '$(Point ReleaseNum ber)'
				15538		and [S criptName] = '$(Scrip tName)'
				15539		and Ta rgetRegist ry = 'AHOBPR' ;
				15540
				15541		go
				15542		select * f rom [dbo]. [DatabaseC hangeLog]
				15543		where Targ etRegistry = 'AHOBPR'
				15544		and [Maj orReleaseN umber] = ' $(MajorRel easeNumber )'
				15545		and [Min orReleaseN umber] = ' $(MinorRel easeNumber )'
				15546		and [Poi ntReleaseN umber] = ' $(PointRel easeNumber )'
				15547		and [Scr iptName] = '$(Script Name)';
				15548		go
				15549
				15550		---------- ---------- ---------- ---------- ---------- ------
				15551		---------- ---------- ---------- ---------- ---------- ------
				15552		-- Refresh views and procedure s
				15553		---------- ---------- ---------- ---------- ---------- ------
				15554		print 'Ref resh sql m odules (vi ews, proce dures, etc ) to recog nize the c hanges mad e...';
				15555		go
				15556		declare @d ependedUpo nModules t able
				15557		( id int identity( 1,1) not n ull,
				15558		qu alifiedNam e nvarchar (128) not null
				15559		);
				15560		declare
				15561		@m axID int,
				15562		@i d int = 0,
				15563		@q ualifiedNa me nvarcha r(128) = ' ';
				15564
				15565		/*
				15566		Get a li st of modu les that o ther modul es are dep endent on.
				15567		Sp that they can b e rRefresh ed those f irst.
				15568		*/
				15569		print 'R efresh the modules t hat other modules de poend on.. .';
				15570		with dep endedUpon
				15571		as (
				15572		se lect dist inct
				15573		('[' + s.name + '].[' + d ependedUpo nObject.na me + ']') as name
				15574		, s.na me SchemaN ame
				15575		, depe ndentObjec t.name as depende ntObjectNa me
				15576		, depe ndentObjec t.object_i d as depende ntId
				15577		, depe ndedUponOb ject.name as depende dUponObjec tName
				15578		, depe ndedUponOb ject.objec t_id as depende dUponId
				15579		, su bstring(de pendedUpon Object_v.n ame, 5, 66 ) as depen dedUponObj ectType -- s pt_values. name is nv archar(70)
				15580		, su bstring(de pendentObj ect_v.name , 5, 66) as depen dentObject Type -- s pt_values. name is nv archar(70)
				15581		from sys. sysdepends as d
				15582		join sys. objects as depen dentObject --this obj ect refere nces the o bject iden tified as dependedUp onObject
				15583		on depe ndentObjec t.object_i d = d.id
				15584		join mast er.dbo.spt _values as depen dentObject _v
				15585		on depe ndentObjec t.type = s ubstring(d ependentOb ject_v.nam e,1,2) COL LATE datab ase_defaul t and depe ndentObjec t_v.type = 'O9T'
				15586		join sys. objects as depen dedUponObj ect
				15587		on depe ndedUponOb ject.objec t_id = d.d epid
				15588		join mast er.dbo.spt _values as depen dedUponObj ect_v
				15589		on depe ndedUponOb ject.type = substrin g(depended UponObject _v.name,1, 2) collate database_ default an d depended UponObject _v.type = 'O9T'
				15590		join sys. schemas as s
				15591		on depe ndedUponOb ject.schem a_id = s.s chema_id
				15592		where --d. depid = 21 9967960 an d--2679681 31 and
				15593		d.deptyp e < 2
				15594		--and d ependedUpo nObject.ob ject_id =3 31968359
				15595		and ex ists (sele ct * from sys.sql_mo dules m wh ere depen dedUponObj ect.object _id = m.ob ject_id an d m.is_sch ema_bound = 0)
				15596		and de pendedUpon Object.sch ema_id = ( select sch ema_id fro m sys.sche mas where name = 'AH OBPR')
				15597		and su bstring(de pendedUpon Object_v.n ame, 5, 66 ) != 'user table'
				15598
				15599		)
				15600		, levele dDependenc yModule
				15601		as (
				15602		sele ct
				15603		--dist inct depen dedUponObj ectType
				15604		*, dep endedUponI d BaseView Id, depend entId Depe ndentViewI d, 0 [Leve l]
				15605		fr om depende dUpon as i ndependent Module
				15606		wh ere 1=1
				15607		--and depe ndedUponOb jectType i n ('View')
				15608		--and depe ndentObjec tType = 'V iew'
				15609		and not ex ists (sele ct *
				15610		from dependedU pon
				15611		wher e independ entModule. dependedUp onId = dep endedUpon. dependentI d
				15612		-- and depend edUponObje ctType = ' View'
				15613		-- and depend entObjectT ype = 'Vie w'
				15614		)
				15615		unio n all
				15616		se lect depen dentModule .*, depend entModule. dependedUp onId BaseV iewId, dep endentModu le.depende ntId Depen dentViewId , [Level] + 1 as [Le vel]
				15617		fr om leveled Dependency Module
				15618		jo in depende dUpon as d ependentMo dule
				15619		on levele dDependenc yModule.De pendentVie wId = depe ndentModul e.depended UponId --3 31968359
				15620		-- where depe ndentBaseV iew.depend edUponObje ctType = ' View'
				15621		-- and dependentB aseView.de pendentObj ectType = 'View'
				15622		)
				15623		--select * from base Module
				15624
				15625		, ranked BaseModule
				15626		as (
				15627		sele ct distinc t name, [L evel], ran k() over(p artition b y name ord er by leve l) RowRank
				15628		from leveledDe pendencyMo dule
				15629		)
				15630		--select * from rank edBaseModu le
				15631		insert int o @depende dUponModul es(qualifi edName)
				15632		select n ame
				15633		from ra nkedBaseMo dule
				15634		where Ro wRank = 1
				15635		order by [Level];
				15636
				15637		select @ma xID = coal esce(@@ROW COUNT,0)
				15638
				15639		while @id <> @maxID
				15640		begin
				15641		se lect top (1)
				15642		@id = id
				15643		, @qualified Name = qua lifiedName
				15644		from @depended UponModule s
				15645		wher e @id < id
				15646		orde r by id as c;
				15647
				15648		pr int 'Refre shing '+ @ qualifiedN ame;
				15649		ex ecute sp_r efreshsqlm odule @qua lifiedName
				15650		end
				15651		---------- ---------- ---------- ---------
				15652		-- Now ref resh all t he other m odules --
				15653		---------- ---------- ---------- ---------
				15654		print 'Now refresh a ll the oth er modules ';
				15655
				15656		declare @d ependentMo dules tabl e
				15657		( id int identity( 1,1) not n ull,
				15658		qual ifiedName nvarchar(1 28) not nu ll
				15659		);
				15660
				15661		insert int o @depende ntModules( qualifiedN ame)
				15662		select 'A HOBPR.' + o.name
				15663		from sys.object s o
				15664		--where it is a non- schema bou nd sql-mod ule in the AHOBPR sc hema and h as not alr eady been refreshed
				15665		where ex ists (sele ct * from sys.sql_mo dules m wh ere o.obj ect_id = m .object_id and m.is_ schema_bou nd = 0)
				15666		and o. schema_id = (select schema_id from sys.s chemas whe re name = 'AHOBPR')
				15667		and no t exists ( select * f rom @depen dedUponMod ules a whe re a.quali fiedName = o.name) ;
				15668
				15669		select @ma xID = coal esce(@@ROW COUNT,0)
				15670
				15671		while @id <> @maxID
				15672		begin
				15673		se lect top (1)
				15674		@id = id
				15675		, @qualified Name = qua lifiedName
				15676		from @dependen tModules
				15677		wher e @id < id
				15678		orde r by id as c;
				15679
				15680		pr int 'Refre shing '+ @ qualifiedN ame;
				15681		ex ecute sp_r efreshsqlm odule @qua lifiedName
				15682		end;
				15683		print 'Ref resh done. ';
				15684		go
				15685		print 'SQL Module Re fresh comp lete.';
				15686		print '=== ========== ========== ========== ========== =========' ;
				15687		print 'Dep loyment sc ript compl ete.';
				15688		print getd ate();
				15689		print '=== ========== ========== ========== ========== =========' ;
				15690