100. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/24/2019 1:38:08 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.

100.1 Files compared

#	Location	File	Last Modified
1	PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\MUMPS\RTN	YSCLSRV1.RTN	Wed Jul 31 17:35:31 2019 UTC
2	PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\MUMPS\RTN	YSCLSRV1.RTN	Mon Sep 23 17:30:26 2019 UTC

100.2 Comparison summary

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

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

100.4 Active regular expressions

No regular expressions were active.

100.5 Comparison detail

	1	Cache for UNIX^INT^L oad Initia l Release MH VistA S ource^~For mat=Cache. S~^RAW
	2	%RO on 14 Mar 2017 6:10 PM
	3	YSCLSRV1^I NT^1^63910 ,74846^0
	4	YSCLSRV1 ; DALOI/RLM- Clozapine data serve r ;24 APR 1990
	5	;;5.01;ME NTAL HEALT H;61,69, 74,90;De c 30, 1994 ;Build 18
	6	; Referen ce to ^%ZO SF support ed by IA # 10096
	7	; Referen ce to ^XMD supported by IA #10 070
	8	CSUM ;Calc ulate chec ksum for r outines an d transmit errors to Forum
	9	S X=$T(+0 ) X ^%ZOSF ("RSUM") S ^TMP("YSC L",$J,2,0) ="YSCLSRV1 at "_YSCL ST_" = "_Y
	10	F YSI=1:1 S YSA=$T( ROU+YSI) Q :YSA["***" S X=$P($ P(YSA,",") ,";",3) D
	11	. X ^%ZO SF("TEST") I '$T S ^ TMP("YSCL" ,$J,YSI+3, 0)=X_" is missing." Q
	12	. X ^%ZO SF("RSUM") S ^TMP("Y SCL",$J,YS I+3,0)=X_" should be "_$P(YSA, ",",2)_" i s "_Y
	13	K XMY S X MY(" PI I ")=""
	14	I YSDEBUG K XMY S X MY(" U R L ")=""
	15	S XMSUB=$ S(YSDEBUG: "DEBUG ",1 :"")_"Cloz apine Chec ksum data at "_YSCLS T_" run on "_XQDATE
	16	S XMTEXT= "^TMP(""YS CL"",$J,", XMDUZ="CLO ZAPINE MON ITOR" D ^X MD
	17	K %DT,YSA ,YSCLST,YS I,X,XMDUZ, XMSUB,XMTE XT,Y
	18	K ^TMP("Y SCL",$J)
	19	Q
	20	ROU ;
	21	;;YSCLSER V,25564583
	22	;;YSCLSRV 2,24723007
	23	;;YSCLSRV 3,24872037
	24	;;YSCLTES T,12378003
	25	;;YSCLTST 1,11839450
	26	;;YSCLTST 2,32098862
	27	;;YSCLTST 3,25645207
	28	;;***
	29	ZEOR ;YSCL SRV1