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

317.1 Files compared

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

317.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 4 100
Changed 3 6
Inserted 0 0
Removed 0 0

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

317.4 Active regular expressions

No regular expressions were active.

317.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   YSKFMAIL^I NT^1^63910 ,74846^0
  4   YSKFMAIL ; 16IT/BL -  SUBSTANCE  ABUSE ;6/2 0/01  20:4 7
  5    ;;5.01;ME NTAL HEALT H;**73**;D ec 30, 199 4
  6   MAIL ; SEN D REPORT I N MAILMAN
  7    S DTIME=6 00
  8    I $D(YSKF EQST) G MA IL2
  9    S XMSUB=$ P(YSKFSITE ,U,1)_" "_ YSKFDIS_"  RPT ("_$E( YSKFBDT,4, 5)_"/"_$E( YSKFBDT,6, 7)_"/"_$E( YSKFBDT,2, 3)_"-"_$E( YSKFEDT,4, 5)_"/"_$E( YSKFEDT,6, 7)_"/"_$E( YSKFEDT,2, 3)_")"
  10    S XMTEXT= "^TMP($J,"
  11    I YSKFMG= "Y"!(YSKFM G="y") D
  12    .I $G(YSK FMHFG)=1 S  XMY("G.YS  ASI PERFO RMAN D E N M
S U   E   ")=""
  13    S XMY(DUZ )=""
  14    S XMDUZ=" AUTOMATED  MESSAGE"
  15    D ^XMD
  16   MAIL2 ; SE ND DATASET  MAILMAN
  17    I (YSKFZZ ="Y")!(YSK FZZ="y") D
  18    .S YSKFMC NT=0,YSKFM TC=(YSKFJC NT\1000)+1
  19    .S (YSKFC NT,YSKFCNT 2)=0 F  S  YSKFCNT=$O (^TMP("XM" ,$J,YSKFCN T)) Q:(YSK FCNT'>0)   D
  20    ..S YSKFC NT2=YSKFCN T2+1,^TMP( "M",$J,YSK FCNT)=^TMP ("XM",$J,Y SKFCNT)
  21    ..I (YSKF CNT2=1000) !(YSKFCNT= YSKFJCNT)  D
  22    ...S YSKF MCNT=YSKFM CNT+1
  23    ...S DTIM E=600
  24    ...S XMSU B=$P(YSKFS ITE,U,1)_"  "_YSKFDIS _" DATA (" _$E(YSKFBD T,4,5)_"/" _$E(YSKFBD T,6,7)_"/" _$E(YSKFBD T,2,3)_"-" _$E(YSKFED T,4,5)_"/" _$E(YSKFED T,6,7)_"/" _$E(YSKFED T,2,3)_")" _" "_YSKFM CNT_" OF " _YSKFMTC
  25    ...S XMTE XT="^TMP(" "M"",$J,"
  26    ...I YSKF MG="Y"!(YS KFMG="y")  D
  27    ....I $G( YSKFMHFG)= 1 S XMY("G .YS ASI PE RFORMAN D E N M
S U   E   ")=""
  28    ...S XMY( DUZ)=""
  29    ...S XMDU Z="AUTOMAT ED MESSAGE "
  30    ...D ^XMD
  31    ...S YSKF CNT2=0
  32    ...K ^TMP ("M",$J)
  33    .I $D(^TM P("XM",$J, "ALC")) D
  34    ..S YSKFM CNT=0,YSKF MTC=(YSKFJ CNT\1000)+ 1
  35    ..S YSKFC NT=0,YSKFC NT2=0 F  S  YSKFCNT=$ O(^TMP("XM ",$J,"ALC" ,YSKFCNT))  Q:YSKFCNT '>0  D
  36    ...S YSKF CNT2=YSKFC NT2+1,^TMP ("M",$J,YS KFCNT)=^TM P("XM",$J, "ALC",YSKF CNT)
  37    ...I (YSK FCNT2=1000 )!(YSKFCNT =YSKFJCNT)  D
  38    ....S YSK FMCNT=YSKF MCNT+1
  39    ....S DTI ME=600
  40    ....S XMS UB=$P(YSKF SITE,U,1)_ " "_YSKFDI S_" DATA ( "_$E(YSKFB DT,4,5)_"/ "_$E(YSKFB DT,6,7)_"/ "_$E(YSKFB DT,2,3)_"- "_$E(YSKFE DT,4,5)_"/ "_$E(YSKFE DT,6,7)_"/ "_$E(YSKFE DT,2,3)_") "_" "_YSKF MCNT_" OF  "_YSKFMTC
  41    ....S XMT EXT="^TMP( ""M"",$J,"
  42    ....I YSK FMG="Y"!(Y SKFMG="y")  D
  43    .....I $G (YSKFMHFG) =1 S XMY(" G.YS ASI P ERFORMAN D E N M
S U   E   ")=""     ;if from M H monthly  menu
  44    ....S XMY (DUZ)=""
  45    ....S XMD UZ="AUTOMA TED MESSAG E"
  46    ....D ^XM D
  47    ....S YSK FCNT2=0
  48    ....K ^TM P("M",$J)
  49   KILL ;KILL  MAIL VARI ABLES
  50    S DTIME=$ $DTIME^XUP (DUZ)
  51    K XMSUB,X MTEXT,XMY, XMDUZ,^TMP ($J),^TMP( "XM",$J),^ TMP("M",$J ),^TMP("XN ",$J),^TMP ("XN1",$J) ,^TMP("YSK F",$J),YSK FMCNT,YSKF CNT,YSKFCN T2,YSKFMTC ,^TMP("XN2 ",$J),^TMP ("YSKFY",$ J),^UTILIT Y($J)
  52    D KILL^XM
  53    Q