805. EPMO Open Source Coordination Office Redaction File Detail Report

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

805.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_Insert_Movement_Event.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_Insert_Movement_Event.sql	Thu Oct 26 19:45:37 2017 UTC

805.2 Comparison summary

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

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

805.4 Active regular expressions

No regular expressions were active.

805.5 Comparison detail

	1	/**** Ob ject: Sto redProcedu re [dbo].[ usp_Insert _Movement_ Event] Script Dat e: 03/22/2 012 11:04: 49 ****/
	2	IF EXISTS (SELECT * FROM sys. objects WH ERE object _id = OBJE CT_ID(N'[d bo].[usp_I nsert_Move ment_Event ]') AND ty pe in (N'P ', N'PC'))
	3	DROP PROCE DURE [dbo] .[usp_Inse rt_Movemen t_Event]
	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: 24.1 0.2012
	12	-- Descrip tion: Inse rts a move ment event .
	13	-- ======= ========== ========== ========== ========
	14	CREATE PRO CEDURE [db o].[usp_In sert_Movem ent_Event]
	15	@I D INT OUTPUT,
	16	@D OMAIN_ID V ARCHAR(50) ,
	17	@P ATIENT_UID UNIQUEIDE NTIFIER,
	18	@I EN VARCHAR (50),
	19	@E NTERED_DAT E DATETIME ,
	20	@W ARD_UID UN IQUEIDENTI FIER,
	21	@B ED_UID UNI QUEIDENTIF IER,
	22	@O LD_WARD_UI D UNIQUEID ENTIFIER,
	23	@O LD_BED_UID UNIQUEIDE NTIFIER,
	24	@V ISTA_SITE_ UID UNIQUE IDENTIFIER ,
	25	@T YPE_OF_MOV EMENT_CODE VARCHAR(1 00),
	26	@T YPE_OF_MOV EMENT_CODE _SYSTEM VA RCHAR(100) ,
	27	@T YPE_OF_MOV EMENT_CODE _SYSTEM_NA ME VARCHAR (100),
	28	@T YPE_OF_MOV EMENT_DISP LAY_NAME V ARCHAR(250 ),
	29	@M OVEMENT_DA TE DATETIM E,
	30	@E NTERED_BY_ UID UNIQUE IDENTIFIER ,
	31	@A DMISSION_I EN NVARCHA R(20)
	32	AS
	33	SET NOCOUN T ON
	34
	35	BEGIN
	36
	37	IF EXISTS (S ELECT ID F ROM MOVEME NT_EVN WHE RE IEN = @ IEN AND VI STA_SITE_U ID = @VIST A_SITE_UID )
	38	SELE CT @ID = I D FROM MOV EMENT_EVN WHERE IEN = @IEN AND VISTA_SIT E_UID = @V ISTA_SITE_ UID
	39	EL SE
	40	BEGI N
	41	DECLAR E @TYPE_OF _MOVEMENT_ ID INT, @A DMISSION_I D INT, @tm pID INT
	42	SELECT @ADMISSIO N_ID = ID FROM ADMIS SION_EVN W HERE IEN = @ADMISSIO N_IEN AND VISTA_SITE _UID = @VI STA_SITE_U ID
	43
	44	-- TYP E OF MOVEM ENT CONCEP T EXISTENC E CHECK
	45	EXEC d bo.usp_Man age_Concep t
	46	@CODE = @TYPE_OF_M OVEMENT_CO DE,
	47	@CODE_SY STEM = @TY PE_OF_MOVE MENT_CODE_ SYSTEM,
	48	@CODE_SY STEM_NAME = @TYPE_OF _MOVEMENT_ CODE_SYSTE M_NAME,
	49	@DISPLAY _NAME = @T YPE_OF_MOV EMENT_DISP LAY_NAME,
	50	@ID = @T YPE_OF_MOV EMENT_ID O UTPUT
	51
	52	SELECT TOP 1 @tm pID = ID F ROM MOVEME NT_EVN WHE RE VISTA_S ITE_UID = @VISTA_SIT E_UID AND MOVEMENT_D ATE > @MOV EMENT_DATE AND ADMIS SION_ID = @ADMISSION _ID ORDER BY MOVEMEN T_DATE
	53	IF (@t mpID IS NO T NULL)
	54	BEGIN
	55	SELECT @OL D_BED_UID = OLD_BED_ UID, @OLD_ WARD_UID = OLD_WARD_ UID FROM M OVEMENT_EV N WHERE ID = @tmpID
	56	UPDATE MOV EMENT_EVN
	57	SE T OLD_BED_ UID = @BED _UID,
	58	OLD_ WARD_UID = @WARD_UID
	59	WH ERE ID = @ tmpID
	60	END
	61	ELSE I F ((SELECT HAS_DISCH ARGE FROM ADMISSION_ EVN WHERE ID = @ADMI SSION_ID) = 1)
	62	BEGIN
	63	SELECT @tm pID = ID F ROM DISCHA RGE_EVN WH ERE ADMISS ION_ID = @ ADMISSION_ ID
	64	UPDATE DIS CHARGE_EVN
	65	SE T BED_UID = @BED_UID ,
	66	WARD _UID = @WA RD_UID
	67	WH ERE ID = @ tmpID
	68	UPDATE ADM ISSION_EVN
	69	SE T BED_UID = @BED_UID ,
	70	WARD _UID = @WA RD_UID
	71	WH ERE ID = @ ADMISSION_ ID
	72	END
	73
	74	INSERT INTO MOVE MENT_EVN
	75	(
	76	DOMAIN_I D,
	77	IEN,
	78	PATIENT_ UID,
	79	ENTERED_ DATE,
	80	WARD_UID ,
	81	BED_UID,
	82	OLD_WARD _UID,
	83	OLD_BED_ UID,
	84	VISTA_SI TE_UID,
	85	TYPE_OF_ MOVEMENT_I D,
	86	MOVEMENT _DATE,
	87	ENTERED_ BY_UID,
	88	ADMISSIO N_ID
	89	)
	90	VALUES
	91	(
	92	@DOMAIN_ ID,
	93	@IEN,
	94	@PATIENT _UID,
	95	@ENTERED _DATE,
	96	@WARD_UI D,
	97	@BED_UID ,
	98	@OLD_WAR D_UID,
	99	@OLD_BED _UID,
	100	@VISTA_S ITE_UID,
	101	@TYPE_OF _MOVEMENT_ ID,
	102	@MOVEMEN T_DATE,
	103	@ENTERED _BY_UID,
	104	@ADMISSI ON_ID
	105	)
	106
	107	SET @I D = IDENT_ CURRENT('d bo.MOVEMEN T_EVN')
	108
	109	IF (@A DMISSION_I D IS NOT N ULL AND @t mpID IS NU LL)
	110	BEGIN
	111	UPDATE ADM ISSION_EVN
	112	SE T BED_UID = @BED_UID ,
	113	WARD _UID = @WA RD_UID
	114	WH ERE ID = @ ADMISSION_ ID
	115	END
	116
	117	IF (@t mpID IS NO T NULL)
	118	SET @ID = -2
	119	END
	120	END
	121	GO