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

838.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_Update_Scheduled_Admission.sql	Wed Oct 18 19:07:04 2017 UTC
2	OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\CreationScripts\BMS\4.Stored Procedures	dbo.usp_Update_Scheduled_Admission.sql	Thu Oct 26 19:45:37 2017 UTC

838.2 Comparison summary

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

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

838.4 Active regular expressions

No regular expressions were active.

838.5 Comparison detail

	1	/**** Ob ject: Sto redProcedu re [dbo].[ usp_Update _Scheduled _Admission ] Scrip t Date: 07 /25/2012 1 6:04:43 ****/
	2	IF EXISTS (SELECT * FROM sys. objects WH ERE object _id = OBJE CT_ID(N'[d bo].[usp_U pdate_Sche duled_Admi ssion]') A ND type in (N'P', N' PC'))
	3	DROP PROCE DURE [dbo] .[usp_Upda te_Schedul ed_Admissi on]
	4	GO
	5
	6	SET ANSI_N ULLS ON
	7	GO
	8
	9	SET QUOTED _IDENTIFIE R ON
	10	GO
	11
	12
	13	-- ======= ========== ========== ========== ========
	14	-- Author: PII
	15	-- Create date: 25.0 7.2011
	16	-- Descrip tion: Upda te schedul ed admissi on.
	17	-- ======= ========== ========== ========== ========
	18	CREATE PRO CEDURE [db o].[usp_Up date_Sched uled_Admis sion]
	19	@I D INT,
	20	@P ATIENT_UID UNIQUEIDE NTIFIER,
	21	@I EN VARCHAR (50),
	22	@D OMAIN_ID V ARCHAR(50) ,
	23	@C ANCELED_DA TE DATETIM E,
	24	@R ESERVATION _DATE DATE TIME,
	25	@S CHEDULER_U ID UNIQUEI DENTIFIER,
	26	@P ROVIDER_UI D UNIQUEID ENTIFIER,
	27	@V ISTA_SITE_ UID UNIQUE IDENTIFIER ,
	28	@W ARD_UID UN IQUEIDENTI FIER,
	29	@S PECIALITY_ CODE VARCH AR(100),
	30	@S PECIALITY_ CODE_SYSTE M VARCHAR( 100),
	31	@S PECIALITY_ CODE_SYSTE M_NAME VAR CHAR(100),
	32	@S PECIALITY_ DISPLAY_NA ME VARCHAR (250),
	33	@D IAGNOSIS V ARCHAR(MAX ),
	34	@S URGERY BIT ,
	35	@L ENGTH_OF_S TAY_EXPECT ED INT,
	36	@V ISTA_DIVIS ION_CODE V ARCHAR(100 ),
	37	@V ISTA_DIVIS ION_DISPLA Y_NAME VAR CHAR(250),
	38	@V ISTA_DIVIS ION_CODE_S YSTEM_NAME VARCHAR(1 00),
	39	@V ISTA_DIVIS ION_CODE_S YSTEM VARCHAR(10 0)
	40
	41	AS
	42	SET NOCOUN T ON
	43
	44	BEGIN
	45
	46	DE CLARE @SPE CIALITY_ID INT, @VIS TA_DIVISIO N_ID INT
	47
	48	-- SPECIALIT Y CONCEPT EXISTENCE CHECK
	49	EX EC DBO.USP _MANAGE_CO NCEPT
	50	@COD E = @SPECI ALITY_CODE ,
	51	@COD E_SYSTEM = @SPECIALI TY_CODE_SY STEM,
	52	@COD E_SYSTEM_N AME = @SPE CIALITY_CO DE_SYSTEM_ NAME,
	53	@DIS PLAY_NAME = @SPECIAL ITY_DISPLA Y_NAME,
	54	@ID = @SPECIAL ITY_ID OUT PUT
	55
	56	-- VISTA_DIV ISION CONC EPT EXISTE NCE CHECK
	57	EX EC DBO.USP _MANAGE_CO NCEPT
	58	@COD E = @VISTA _DIVISION_ CODE,
	59	@COD E_SYSTEM = @VISTA_DI VISION_COD E_SYSTEM,
	60	@COD E_SYSTEM_N AME = @VIS TA_DIVISIO N_CODE_SYS TEM_NAME,
	61	@DIS PLAY_NAME = @VISTA_D IVISION_DI SPLAY_NAME ,
	62	@ID = @VISTA_D IVISION_ID OUTPUT
	63
	64	UP DATE SCHED ULED_ADMIS SION
	65	SET
	66	PATIEN T_UID = @P ATIENT_UID ,
	67	IEN = @IEN,
	68	DOMAIN _ID = @DOM AIN_ID,
	69	CANCEL ED_DATE = @CANCELED_ DATE,
	70	RESERV ATION_DATE = @RESERV ATION_DATE ,
	71	PROVID ER_UID = @ PROVIDER_U ID,
	72	SCHEDU LER_UID = @SCHEDULER _UID,
	73	VISTA_ SITE_UID = @VISTA_SI TE_UID,
	74	WARD_U ID = @WARD _UID,
	75	SPECIA LITY_ID = @SPECIALIT Y_ID,
	76	DIAGNO SIS = @DIA GNOSIS,
	77	SURGER Y = @SURGE RY,
	78	LENGTH _OF_STAY_E XPECTED = @LENGTH_OF _STAY_EXPE CTED,
	79	VISTA_ DIVISION_I D = @VISTA _DIVISION_ ID
	80	WHER E ID = @ID
	81
	82	IF @@ERROR<> 0 RETURN
	83
	84	END
	85	GO