748. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/26/2017 10:44:46 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.

748.1 Files compared

#	Location	File	Last Modified
1	OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\CreationScripts\BMS\4.Stored Procedures	dbo.usp_Filter_Transfer_Request.sql	Wed Oct 18 19:07:02 2017 UTC
2	OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\CreationScripts\BMS\4.Stored Procedures	dbo.usp_Filter_Transfer_Request.sql	Thu Oct 26 19:45:38 2017 UTC

748.2 Comparison summary

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

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

748.4 Active regular expressions

No regular expressions were active.

748.5 Comparison detail

	1	/**** Ob ject: Sto redProcedu re [dbo].[ usp_Filter _Transfer_ Request] Script D ate: 03/22 /2012 11:0 4:49 *** */
	2	IF EXISTS (SELECT * FROM sys. objects WH ERE object _id = OBJE CT_ID(N'[d bo].[usp_F ilter_Tran sfer_Reque st]') AND type in (N 'P', N'PC' ))
	3	DROP PROCE DURE [dbo] .[usp_Filt er_Transfe r_Request]
	4	GO
	5	SET ANSI_N ULLS ON
	6	GO
	7	SET QUOTED _IDENTIFIE R ON
	8	GO
	9	-- ======= ========== ========== ========== ========
	10	-- Author: PII
	11	-- Create date: 09.0 9.2011
	12	-- Descrip tion: Filt er transfe rs by faci lity.
	13	-- ======= ========== ========== ========== ========
	14	CREATE PRO CEDURE [db o].[usp_Fi lter_Trans fer_Reques t]
	15	@F ACILITY_UI D UNIQUEID ENTIFIER,
	16	@F ACILITY_VI SN NVARCHA R(100)
	17	AS
	18	BEGIN
	19	SET NOCOUN T ON
	20
	21	DE CLARE @SQL NVARCHAR( MAX), @SQL _WHERE NVA RCHAR(MAX) , @SQL_SEC URITY NVAR CHAR(MAX), @DOMAIN N VARCHAR(25 0), @FACIL ITY_ID INT
	22	SE T @DOMAIN = dbo.F_GE T_CURRENT_ DOMAIN()
	23
	24	IF (dbo.F_GE T_IS_SUPER USER() != 1)
	25	SET @SQL_SECUR ITY = COAL ESCE(@SQL_ SECURITY, '') + 'INN ER JOIN vP olicyConte xt V ON V. resource_r oot = ''' + @DOMAIN + '''
	26	AND V. resource_e xtension = CAST(TR.F ACILITY_UI D AS nvarc har(36)) A ND v.actio n_name = ' 'BMS, Read '''
	27	EL SE
	28	SET @SQL_SECUR ITY = ''
	29
	30	SE T @SQL_WHE RE = COALE SCE(@SQL_W HERE,'')
	31	IF (@FACILITY _UID IS NU LL)
	32	--se lect all t ransfers
	33	SET @SQL_WHERE = @SQL_WH ERE + ' AN D [TR].[FA CILITY_VIS N] = '''+ @FACILITY_ VISN +''''
	34	EL SE
	35	SET @SQL_WHERE = @SQL_WH ERE + ' AN D [TR].[FA CILITY_UID ] = ''' + CAST(@FACI LITY_UID A S VARCHAR( 50)) + ''' '
	36
	37	SE T @SQL = C OALESCE(@S QL,'') + '
	38	SELE CT DISTINC T
	39	[A].[I D] AS [ACT _ID],
	40	[A].[C REATION_DA TE],
	41	[A].[C ANCELED_DA TE],
	42	[A].[P ARENT_ACT_ ID],
	43	[A].[F LOW_ID],
	44	[A].[D OMAIN_ID],
	45	[A].[P ATIENT_UID ] AS [PATI ENT_UID],
	46	NULL A S [EVN_ADM ISSION_FAC ILITY_UID] ,
	47	[ERA]. [CODE] AS [REQ_ERA_C ODE],
	48	[ERA]. [CODE_SYST EM] AS [RE Q_ERA_CODE _SYSTEM],
	49	[ERA]. [CODE_SYST EM_NAME] A S [REQ_ERA _CODE_SYST EM_NAME],
	50	[ERA]. [DISPLAY_N AME] AS [R EQ_ERA_DIS PLAY_NAME] ,
	51	[TR].[ FACILITY_U ID] AS [RE Q_FACILITY _UID],
	52	[TR].[ COMMENTS] AS [REQ_CO MMENTS],
	53	[CC].[ CODE] AS [ REQ_CONTRA CT_CODE],
	54	[CC].[ CODE_SYSTE M] AS [REQ _CONTRACT_ CODE_SYSTE M],
	55	[CC].[ CODE_SYSTE M_NAME] AS [REQ_CONT RACT_CODE_ SYSTEM_NAM E],
	56	[CC].[ DISPLAY_NA ME] AS [RE Q_CONTRACT _DISPLAY_N AME],
	57	[TR].[ DIAGNOSIS] AS [REQ_D IAGNOSIS],
	58	[TR].[ CURRENT_LO CATION] AS [REQ_CURR ENT_LOCATI ON],
	59	[REQSP ].[CODE] A S [REQ_SPE CIALITY_CO DE],
	60	[REQSP ].[CODE_SY STEM] AS [ REQ_SPECIA LITY_CODE_ SYSTEM],
	61	[REQSP ].[CODE_SY STEM_NAME] AS [REQ_S PECIALITY_ CODE_SYSTE M_NAME],
	62	[REQSP ].[DISPLAY _NAME] AS [REQ_SPECI ALITY_DISP LAY_NAME],
	63	[TR].[ LOCATION_A DMISSION_D ATE] AS [R EQ_LOCATIO N_ADMISSIO N_DATE],
	64	[TR].[ FACILITY_V ISN] AS [R EQ_FACILIT Y_VISN],
	65	[TR].[ IS_NATIONA L_WAIT_LIS T] AS [IS_ NATIONAL_W AIT_LIST]
	66	FROM ACT A
	67	INNER JOIN TRANS FER_REQ TR ON A.ID = TR.ACT_ID
	68	LEFT J OIN CONCEP T AS CC ON TR.CONTRA CT_ID = CC .ID
	69	LEFT J OIN CONCEP T AS ERA O N TR.ERA_I D = ERA.ID
	70	LEFT J OIN CONCEP T AS REQSP ON TR.SPE CIALITY_ID = REQSP.I D
	71	' + @S QL_SECURIT Y + '
	72	WHER E 1 = 1 ' + @SQL_WHE RE + '
	73	AND TR .ACT_ID NO T IN (SELE CT PARENT_ ACT_ID FRO M ACT WHER E ID IN (S ELECT ACT_ ID FROM TR ANSFER_EVN ) AND PARE NT_ACT_ID IS NOT NUL L)
	74	ORDE R BY [A].[ ID]'
	75
	76	EX ECUTE sp_e xecutesql @SQL
	77
	78	END
	79	GO