655. EPMO Open Source Coordination Office Redaction File Detail Report

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

655.1 Files compared

#	Location	File	Last Modified
1	OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports	DROP_CREATE_BMS_DW_usp_EmergencyManagementEvacuationPTTransfer.sql	Wed Oct 18 19:06:44 2017 UTC
2	OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports	DROP_CREATE_BMS_DW_usp_EmergencyManagementEvacuationPTTransfer.sql	Thu Oct 26 19:34:32 2017 UTC

655.2 Comparison summary

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

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

655.4 Active regular expressions

No regular expressions were active.

655.5 Comparison detail

	1	USE [BMS_D W]
	2	GO
	3
	4	/**** Ob ject: Sto redProcedu re [dbo].[ usp_Rpt_Em ergencyMan agementEva cuationPTT ransfer] Script D ate: 6/14/ 2016 9:18: 36 AM /
	5	DROP PROCE DURE [dbo] .[usp_Rpt_ EmergencyM anagementE vacuationP TTransfer]
	6	GO
	7
	8	/**** Ob ject: Sto redProcedu re [dbo].[ usp_Rpt_Em ergencyMan agementEva cuationPTT ransfer] Script D ate: 6/14/ 2016 9:18: 36 AM /
	9	SET ANSI_N ULLS ON
	10	GO
	11
	12	SET QUOTED _IDENTIFIE R ON
	13	GO
	14
	15
	16
	17	/*
	18	exec usp_R pt_Emergen cyManageme ntEvacuati onPTTransf er ' DNS ',Null, Nu ll, Null, Null
	19	CURRENT ST ATUS = 64. 01 Almost Done. Need Originati ng Facilit y Info
	20	Can't test Locally.
	21	*/
	22
	23	CREATE PRO CEDURE [db o].[usp_Rp t_Emergenc yManagemen tEvacuatio nPTTransfe r]
	24	@U SER_NAME N VARCHAR(50 0) = NULL,
	25	@F ACILITY_EX TENSION NV ARCHAR(250 ),
	26	@D IVISION_ID INT = NUL L,
	27	@D IVISION_NA ME NVARCHA R(250),
	28	@U serSalt NV ARCHAR(250 )
	29	AS
	30	BEGIN
	31
	32	-- create permissio n table
	33	CREA TE TABLE # PERMISSION
	34	(
	35	DIM _ORGANIZAT ION_ID INT ,
	36	DIM _WARD_ID I NT
	37	)
	38	--in sert permi ssion for the user
	39	INSE RT INTO #P ERMISSION
	40	SELECT * FROM db o.ufn_GetP ermissionB yUserName( @USER_NAME )
	41	CREATE N ONCLUSTERE D INDEX [D IM_ORGANIZ ATION_ID] ON #PERMIS SION ([DIM _ORGANIZAT ION_ID] AS C)
	42	WITH (
	43	P AD_INDEX = OFF,
	44	S TATISTICS_ NORECOMPUT E = OFF,
	45	S ORT_IN_TEM PDB = OFF,
	46	I GNORE_DUP_ KEY = OFF,
	47	D ROP_EXISTI NG = OFF,
	48	O NLINE = OF F,
	49	A LLOW_ROW_L OCKS = ON ,
	50	A LLOW_PAGE_ LOCKS = O N)
	51	CREATE N ONCLUSTERE D INDEX DI M_WARD_ID ON #PERMIS SION (DIM_ WARD_ID AS C)
	52	WITH (
	53	P AD_INDEX = OFF,
	54	S TATISTICS_ NORECOMPUT E = OFF,
	55	S ORT_IN_TEM PDB = OFF,
	56	I GNORE_DUP_ KEY = OFF,
	57	D ROP_EXISTI NG = OFF,
	58	O NLINE = OF F,
	59	A LLOW_ROW_L OCKS = ON ,
	60	A LLOW_PAGE_ LOCKS = O N) ;
	61
	62	DE CLARE @FAC ILITY_ID I NT
	63	-- get facili ty id
	64	SE T @FACILIT Y_ID = dbo .ufn_GetFa cilityIdBy Identifier (@FACILITY _EXTENSION );
	65	-- check if t he user ha s permissi on for the facility
	66	IF EXISTS(SE LECT 1
	67	FROM #PERMISSI ON
	68	WHER E DIM_ORGA NIZATION_I D = @FACIL ITY_ID)
	69	BEGI N
	70
	71	CREATE TABLE #WA RD (ID INT , SPECIALT Y_NAME NVA RCHAR(250) , NUMA NVA RCHAR(250) , HAvBED N VARCHAR(50 ))
	72	IF @DI VISION_ID = -1 OR @D IVISION_ID IS NULL
	73	BEGIN
	74	INSERT INT O #WARD(ID , SPECIALT Y_NAME, NU MA, HAvBED )
	75	SELECT WAR D.ID, SPEC IALTY.DISP LAY_NAME, NUMA.DISPL AY_NAME, H AvBED.DISP LAY_NAME
	76	FROM dbo.D IM_WARD AS WARD
	77	INNER JOIN dbo.ufn_G etWardsByF acilityId( @FACILITY_ ID) AS FAC _WARD ON F AC_WARD.ID = WARD.ID
	78	LEFT JOIN dbo.DIM_SP ECIALTY AS SPECIALTY ON SPECIA LTY.ID = W ARD.VISTA_ DIM_SPECIA LTY_ID
	79	LEFT JOIN dbo.DIM_NU MA AS NUMA ON NUMA.I D = SPECIA LTY.DIM_NU MA_ID
	80	LEFT JOIN dbo.DIM_HA vBED AS HA vBED ON HA vBED.ID = SPECIALTY. DIM_HAvBED _ID
	81	WHERE WARD .STATUS = 'active'
	82	END
	83	ELSE
	84	BEGIN
	85	INSERT INT O #WARD(ID , SPECIALT Y_NAME, NU MA, HAvBED )
	86	SELECT ACT IVE_WARD.I D, SPECIAL TY.DISPLAY _NAME, NUM A.DISPLAY_ NAME, HAvB ED.DISPLAY _NAME
	87	FROM GROUP _WARD_ORGA NIZATION a s WARD
	88	INNER JOIN dbo.DIM_W ARD AS ACT IVE_WARD O N ACTIVE_W ARD.ID = W ARD.ID
	89	LEFT JOIN dbo.DIM_SP ECIALTY AS SPECIALTY ON SPECIA LTY.ID = A CTIVE_WARD .VISTA_DIM _SPECIALTY _ID
	90	LEFT JOIN dbo.DIM_NU MA AS NUMA ON NUMA.I D = SPECIA LTY.DIM_NU MA_ID
	91	LEFT JOIN dbo.DIM_HA vBED AS HA vBED ON HA vBED.ID = SPECIALTY. DIM_HAvBED _ID
	92	WHERE ACTI VE_WARD.ST ATUS = 'ac tive' AND WARD.DIM_O RGANIZATIO N_ID = @DI VISION_ID
	93	END
	94
	95	CREATE TABLE #AC TIVE_ADMIS SION(
	96	PATIEN T_ID INT,
	97	BED_ID INT,
	98	WARD_I D INT
	99	)
	100
	101	CREATE TABLE #AD MISSION_AN D_TRANSFER (
	102	FACT_I D INT NOT NULL ,
	103	BED_ID INT,
	104	WARD_I D INT,
	105	PATIEN T_ID INT,
	106	CREATE D_DATE DAT ETIME NULL ,
	107	IS_ADM ISSION_EVN BIT)
	108
	109	INSERT INTO #ADM ISSION_AND _TRANSFER( FACT_ID, B ED_ID, WAR D_ID, PATI ENT_ID, CR EATED_DATE , IS_ADMIS SION_EVN)
	110	SELECT ADM_EVN.I D, ADM_EVN .DIM_BED_I D, ADM_EVN .DIM_WARD_ ID, ADM_EV N.DIM_PATI ENT_ID, AD M_EVN.ADMI SSION_DATE , 1
	111	FROM F ACT_ADMISS ION_EVN AS ADM_EVN
	112	INNER JOIN #WARD AS WARD O N WARD.ID = ADM_EVN. DIM_WARD_I D
	113	WHERE ADM_EVN.HA S_DISCHARG E = 0
	114
	115	INSERT INTO #ADM ISSION_AND _TRANSFER( FACT_ID, B ED_ID, WAR D_ID, PATI ENT_ID, CR EATED_DATE , IS_ADMIS SION_EVN)
	116	SELECT MOV_EVN.F ACT_ADMISS ION_EVN_ID , MOV_EVN. DIM_BED_ID , MOV_EVN. DIM_WARD_I D, MOV_EVN .DIM_PATIE NT_ID, MOV _EVN.MOVEM ENT_DATE, 0
	117	FROM F ACT_MOVEME NT_EVN AS MOV_EVN
	118	INNER JOIN (SELE CT MAX(LAS T_MOV_EVN. MOVEMENT_D ATE) AS MO VEMENT_DAT E, LAST_MO V_EVN.FACT _ADMISSION _EVN_ID
	119	FR OM FACT_MO VEMENT_EVN LAST_MOV_ EVN
	120	IN NER JOIN # ADMISSION_ AND_TRANSF ER AS ADM_ EVN ON ADM _EVN.FACT_ ID = LAST_ MOV_EVN.FA CT_ADMISSI ON_EVN_ID
	121	GR OUP BY LAS T_MOV_EVN. FACT_ADMIS SION_EVN_I D) MAX_ME_ EVENT
	122	ON MAX_ME_EV ENT.MOVEME NT_DATE = MOV_EVN.MO VEMENT_DAT E AND MAX_ ME_EVENT.F ACT_ADMISS ION_EVN_ID = MOV_EVN .FACT_ADMI SSION_EVN_ ID
	123
	124	DELETE DEL FROM #ADMISSION _AND_TRANS FER AS DEL
	125	INNER JOIN #ADMI SSION_AND_ TRANSFER A S ADM ON A DM.FACT_ID = DEL.FAC T_ID AND A DM.BED_ID <> DEL.BED _ID AND AD M.IS_ADMIS SION_EVN = 1
	126	WHERE DEL.IS_ADM ISSION_EVN = 0
	127
	128	INSERT INTO #ACT IVE_ADMISS ION(WARD_I D, BED_ID, PATIENT_I D)
	129	SELECT ADMISSION _INFO.WARD _ID, ADMIS SION_INFO. BED_ID, AD MISSION_IN FO.PATIENT _ID
	130	FROM # ADMISSION_ AND_TRANSF ER AS ADMI SSION_INFO
	131	INNER JOIN
	132	( SE LECT MAX(C REATED_DAT E) AS CREA TED_DATE, BED_ID
	133	FROM #AD MISSION_AN D_TRANSFER
	134	GROUP BY BED_ID
	135	) LAST _ADMISISON _INFO ON L AST_ADMISI SON_INFO.C REATED_DAT E = ADMISS ION_INFO.C REATED_DAT E AND LAST _ADMISISON _INFO.BED_ ID = ADMIS SION_INFO. BED_ID
	136
	137	DROP T ABLE #ADMI SSION_AND_ TRANSFER
	138
	139	SELECT EVACUATIO N_PATIENT. SOURCE_ID AS ACT_ID,
	140	PATIEN T.FIRST_NA ME AS FIRS T_NAME,
	141	PATIEN T.LAST_NAM E AS LAST_ NAME,
	142	SUBSTR ING(PATIEN T.LAST_NAM E, 1, 1) + SUBSTRING (PATIENT.S SN, 7, 5) AS LAST_NA ME_INITIAL _AND_LAST_ FOUR,
	143	PATIEN T.GENDER A S GENDER,
	144	EVACUA TION_PATIE NT.EVACUAT ION_TRANSF ER_EVACUAT E_TO AS DE STINATION_ EVACUATE_T O,
	145	EVACUA TION_PATIE NT.EVACUAT ION_DESTIN ATION_ADDR ESS AS DES TINATION_A DDRESS,
	146	EVACUA TION_PATIE NT.EVACUAT ION_DESTIN ATION_CITY _STATE AS DESTINATIO N_CITY_STA TE,
	147	EVACUA TION_PATIE NT.EVACUAT ION_DESTIN ATION_POC_ TELEPHONE AS DESTINA TION_POC_T ELEPHONE,
	148	EVACUA TION_PATIE NT.EVACUAT ION_COMMEN TS AS EVAC UATION_COM MENTS,
	149	[dbo]. [ufn_Encry pt] ('idAd mission=' + cast(EVA CUATION_PA TIENT.SOUR CE_ID as n varchar(10 0))
	150	+ '&isFr omEvacuati onReport=t rue&select edDivision Name=' + @ DIVISION_N AME + '&se lectedDivi sionId='
	151	+ cast(@ DIVISION_I D as nvarc har(100))
	152	+ '&isRo sterReport =false&isR egulateRep ort=false& isManifest Report=fal se&isTrans ferReport= true', @Us erSalt) AS PATIENT_L INK,
	153	EVACUA TION_PATIE NT.EVACUAT ION_ORIGIN ATING_FACI LITY_NAME AS SENDING _FACILITY_ NAME,
	154	EVACUA TION_PATIE NT.EVACUAT ION_ORIGIN ATING_ADDR ESS AS SEN DING_FACIL ITY_ADDRES S,
	155	EVACUA TION_PATIE NT.EVACUAT ION_ORIGIN ATING_CITY _STATE AS SENDING_FA CILITY_CIT Y_STATE,
	156	EVACUA TION_PATIE NT.EVACUAT ION_ORIGIN ATOR_POC_T ELEPHONE A S SENDING_ FACILITY_T ELEPHONE
	157
	158	FROM d bo.FACT_WA ITING_LIST AS EVACUA TION_PATIE NT
	159	INNER JOIN DIM_P ATIENT AS PATIENT ON PATIENT.I D = EVACUA TION_PATIE NT.DIM_PAT IENT_ID
	160	LEFT J OIN DIM_EV AC_DISPOSI TION_STATU S AS CONCE PT_EVAC_DI SPOSITION_ STATUS ON CONCEPT_EV AC_DISPOSI TION_STATU S.ID = EVA CUATION_PA TIENT.DIM_ EVACUATION _DISPOSITI ON_STATUS_ ID
	161	LEFT J OIN #ACTIV E_ADMISSIO N ADMISSIO N ON ADMIS SION.PATIE NT_ID = EV ACUATION_P ATIENT.DIM _PATIENT_I D
	162	LEFT J OIN #WARD AS WARD ON WARD.ID = ADMISSION .WARD_ID
	163	WHERE EVACUATION _PATIENT.R EMOVED_DAT E IS NULL AND EVACUA TION_PATIE NT.FACILIT Y_DIM_ORGA NIZATION_I D = @FACIL ITY_ID AND EVACUATIO N_PATIENT. IS_EVACUAT ION_PATIEN T = 1
	164
	165	DROP T ABLE #WARD
	166	DROP T ABLE #ACTI VE_ADMISSI ON
	167	END
	168
	169
	170	IF OBJECT_ID ('tempdb.. #PERMISSIO N') IS NOT NULL
	171	BEGI N
	172	DROP T ABLE #PERM ISSION
	173	END
	174	END
	175
	176
	177	GO
	178
	179