311. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/25/2018 2:13:29 PM Central 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.

311.1 Files compared

# Location File Last Modified
1 build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN YSCLSRV1.RTN Thu Sep 6 11:30:06 2018 UTC
2 build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN YSCLSRV1.RTN Wed Sep 12 18:10:01 2018 UTC

311.2 Comparison summary

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

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

311.4 Active regular expressions

No regular expressions were active.

311.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("G.CLOZ APINE ROLL -UP@FORUM. VA.GOV")=" "
  14    I YSDEBUG  K XMY S X MY("G.CLOZ APINE DEBU G@FO-DALLA S URL          ")=""
  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