3301. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 6/9/2017 3:50:02 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.

3301.1 Files compared

#	Location	File	Last Modified
1			Fri Jun 9 19:50:02 2017 UTC
2	eHealth_Exch (eHealth Exchange Enhancements) Build 3 docs & code_May_2017.zip\VAP_CIF_CODE0502.zip\VAP_CIF_CODE0502\VAP_CIF_CODE0502\nvap-db\src\main\resources\sql\production	VAP_Update_2.6.1.sql	Wed Jun 7 05:16:28 2017 UTC

3301.2 Comparison summary

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

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

3301.4 Active regular expressions

No regular expressions were active.

3301.5 Comparison detail

				1		spool VAP_ Update_2.6 .1.log
				2
				3		ALTER SESS ION SET CU RRENT_SCHE MA = VAP;
				4
				5		SET SQLBLA NKLINES OF F
				6
				7		---------- ALTER CON SENT_AUDIT _EX VIEW - ---------
				8
				9		create or replace fo rce view C ONSENT_AUD IT_EX (
				10		CON SENT_AUDIT _ID, ACTIO N_TYPE, CO NSENT_TYPE , CREATED_ DATE, FACI LITY, FACI LITY_NAME,
				11		OPT OUT_REASON , PATIENT_ GIVEN_NAME , PATIENT_ ID, PATIEN T_LAST_NAM E, PATIENT _SSN, POU_ VALUE,
				12		TIM E_OF_EVENT , USER_ID, PATIENT_M IDDLE_NAME , VISN_NAM E, VISN_NU MBER, PARE NT_STATION _NUMBER,
				13		IS_ TEST_PATIE NT, PARENT _FACILITY_ NAME
				14		) as
				15		select c.C ONSENT_AUD IT_ID, c.A CTION_TYPE , c.CONSEN T_TYPE, c. CREATED_DA TE,
				16		nvl (fa.FACILI TY_STATION , c.FACILI TY) as FAC ILITY,
				17		nvl (fa.FACILI TY_NAME, ' Unknown') as FACILIT Y_NAME,
				18		c.O PTOUT_REAS ON, c.PATI ENT_GIVEN_ NAME, c.PA TIENT_ID,
				19		c.P ATIENT_LAS T_NAME, c. PATIENT_SS N, c.POU_V ALUE, c.TI ME_OF_EVEN T,
				20		c.U SER_ID, c. PATIENT_MI DDLE_NAME, v.VISN_NA ME, v.VISN _NUMBER, c .PARENT_ST ATION_NUMB ER,
				21		IST ESTPATIENT (c.PATIENT _SSN),
				22		nvl (fb.FACILI TY_NAME, ' Unknown') PARENT_FAC ILITY_NAME
				23		from (
				24		select c i.CONSENT_ AUDIT_ID, ci.ACTION_ TYPE, ci.C ONSENT_TYP E, ci.CREA TED_DATE,
				25		c i.FACILITY , ci.FACIL ITY_NAME, ci.OPTOUT_ REASON, ci .PATIENT_G IVEN_NAME, ci.PATIEN T_ID,
				26		c i.PATIENT_ LAST_NAME, ci.PATIEN T_SSN, ci. POU_VALUE, ci.TIME_O F_EVENT,
				27		c i.USER_ID, ci.PATIEN T_MIDDLE_N AME,
				28		( select fi. FACILITY_I D from FAC ILITY fi w here ci.FA CILITY = f i.FACILITY _STATION) STATION_LO OKUP_TYPE,
				29		( select fi. FACILITY_I D from FAC ILITY fi w here subst r(ci.FACIL ITY,1,3) = fi.FACILI TY_STATION ) FACILITY _LOOKUP_TY PE,
				30		s ubstr(ci.F ACILITY,1, 3) as PARE NT_STATION _NUMBER
				31		from CON SENT_AUDIT ci
				32		) c
				33		left outer join FACI LITY fa on fa.FACILI TY_ID =
				34		case
				35		whe n c.STATIO N_LOOKUP_T YPE is not null then c.STATION _LOOKUP_TY PE
				36		whe n c.FACILI TY_LOOKUP_ TYPE is no t null the n c.FACILI TY_LOOKUP_ TYPE
				37		end
				38		left outer join FACI LITY fb on c.PARENT_ STATION_NU MBER = fb. FACILITY_S TATION
				39		left outer join VISN v on fa.V ISN_ID = v .ID;
				40
				41		COMMIT;
				42
				43		---------- ALTER IST ESTPATIENT FUNCTION ----------
				44
				45		/
				46		CREATE OR REPLACE FU NCTION IST ESTPATIENT (ssn IN VA RCHAR2)
				47		RETURN N UMBER
				48		RESULT_C ACHE
				49		IS
				50		BEGIN
				51		IF SUB STR(ssn,1, 3) = '000' THEN
				52		RETU RN 1;
				53		END IF ;
				54
				55		IF SUB STR(ssn,1, 3) = '666' THEN
				56		RETU RN 1;
				57		END IF ;
				58
				59		IF SUB STR(ssn,1, 1) = '9' T HEN
				60		RETU RN 1;
				61		END IF ;
				62
				63		IF SUB STR(ssn,4, 2) = '00' THEN
				64		RETU RN 1;
				65		END IF ;
				66
				67		IF SUB STR(ssn,6, 4) = '0000 ' THEN
				68		RETU RN 1;
				69		END IF ;
				70
				71		RETURN 0;
				72		END;
				73		/
				74
				75		COMMIT;