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

309.1 Files compared

# Location File Last Modified
1 build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN YSASU1.RTN Thu Sep 6 11:30:08 2018 UTC
2 build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN YSASU1.RTN Wed Sep 12 18:09:59 2018 UTC

309.2 Comparison summary

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

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

309.4 Active regular expressions

No regular expressions were active.

309.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   YSASU1^INT ^1^63910,7 4846^0
  4   YSASU1 ;AS F/ALB- ASI  MANAGEMEN T UTILITIT IES CONT ; 2/4/98  10 :02
  5    ;;5.01;ME NTAL HEALT H;**38**;D ec 30, 199 4
  6   PTLST ;pat ient list
  7    S YSASN=Y SASN+1,^TM P("YSASU", $J,"M",YSA SN)=" "
  8    S YSASN=Y SASN+1,^TM P("YSASU", $J,"M",YSA SN)="Name" _$E(YSASS, 1,17)_"SSN    Intervi ew Class S pecial         Transm itted Queu ed"
  9    S YSFL=""  F  S YSFL =$O(^TMP(" YSASU",$J, "A",YSFL))  Q:YSFL=""   D
  10    . S YSASN =YSASN+1,^ TMP("YSASU ",$J,"M",Y SASN)=$E(Y SFL_YSASS, 1,20)
  11    . S YSIFN =0,J=0 F   S YSIFN=$O (^TMP("YSA SU",$J,"A" ,YSFL,YSIF N)) Q:YSIF N'>0  S J= J+1 D
  12    .. S G=^T MP("YSASU" ,$J,YSIFN)
  13    .. I J=1  S DFN=$P(G ,U,2),VA(" BID")="     " D:DFN D EM^VADPT S  ^TMP("YSA SU",$J,"M" ,YSASN)=^T MP("YSASU" ,$J,"M",YS ASN)_" "_$ E(VA("BID" )_"        ",1,6)
  14    .. I J>1  S YSASN=YS ASN+1,^TMP ("YSASU",$ J,"M",YSAS N)=$E(YSAS S,1,27)
  15    .. S Y=+G ,^TMP("YSA SU",$J,"M" ,YSASN)=^T MP("YSASU" ,$J,"M",YS ASN)_$E(Y, 4,5)_"/"_$ E(Y,6,7)_$ S(Y>299999 9:"/20",1: "/19")_$E( Y,2,3)
  16    .. S ^TMP ("YSASU",$ J,"M",YSAS N)=^TMP("Y SASU",$J," M",YSASN)_ "  "_$S($P (G,U,3)=1: "Full",$P( G,U,3)=2:" Lite",$P(G ,U,3)=3:"F -up",1:"     ")
  17    .. S ^TMP ("YSASU",$ J,"M",YSAS N)=^TMP("Y SASU",$J," M",YSASN)_ "  "_$S($P (G,U,4)="" :" ",1:$P( G,U,4))
  18    .. S ^TMP ("YSASU",$ J,"M",YSAS N)=^TMP("Y SASU",$J," M",YSASN)_ "  "_$S($P (G,U,6)=1: "  signed" ,1:"unsign ed")
  19    .. S Y=$P (G,U,9),^T MP("YSASU" ,$J,"M",YS ASN)=^TMP( "YSASU",$J ,"M",YSASN )_"  "_$S( Y>1:$E(Y,4 ,5)_"/"_$E (Y,6,7)_$S (Y>2999999 :"/20",1:" /19")_$E(Y ,2,3),1:"           " )
  20    .. S ^TMP ("YSASU",$ J,"M",YSAS N)=^TMP("Y SASU",$J," M",YSASN)_ "  "_$S($P (G,U,8)=1: "queued",1 :"")
  21    Q
  22   MAIL2 ; SE ND MAILMAN
  23    S YSASMCN T=0,YSASMT C=(YSASN\1 000)+1
  24    S YSASCNT =0,YSASCNT 2=0 F  S Y SASCNT=$O( ^TMP("YSAS U",$J,"M", YSASCNT))  Q:(YSASCNT '>0)  D
  25    .S YSASCN T2=YSASCNT 2+1,^TMP(" YSASM",$J, YSASCNT)=^ TMP("YSASU ",$J,"M",Y SASCNT)
  26    .I (YSASC NT2=1000)! (YSASCNT=Y SASN) D
  27    ..S YSASM CNT=YSASMC NT+1
  28    ..S DTIME =600
  29    .. S XMSU B="ASI Sta ts "_YSASI TE_"  ("_Y SASMCNT_"  OF "_YSASM TC_")"
  30    ..S XMTEX T="^TMP("" YSASM"",$J ,"
  31    ..S XMY(" G.ASI PERF ORMAN D E N M
S U   E   ")=""
  32    ..S XMY(D UZ)=""
  33    ..S XMDUZ ="AUTOMATE D MESSAGE"
  34    ..D ^XMD
  35    ..S YSASC NT2=0
  36    ..K ^TMP( "YSASM",$J )
  37    Q