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

306.1 Files compared

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

306.2 Comparison summary

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

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

306.4 Active regular expressions

No regular expressions were active.

306.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   YSASFUR^IN T^1^63910, 74846^0
  4   YSASFUR ;A SF/ASL ASI  FOLLOWUP  REQUIRED ; 3/13/98  1 0:39
  5    ;;5.01;ME NTAL HEALT H;**38,55* *;Dec 30,  1994
  6   MAIN ;
  7    K ^TMP("Y SAS",$J)
  8    N DIR,DIR UT,G,G2,VA ,X,X1,X2,Y ,YS2G12,YS ASAD1,YSAS BDT,YSASCL ,YSASCNT,Y SASCNT2,YS ASCNT3,YSA SDLY,YSASD T,YSASEDT, YSASG12,YS ASIN,YSASI N2,YSASITE ,YSASN,YSA SS,YSASTC, YSASTYP2,Y SCK,YSIN1, YSIN2,YSIN TER,YSLOC, YSNM,YSTOT
  9    W @IOF,!? 10,"Addict ion Severi ty Index F ollowup Re minder",!
  10    D DTRANGE  Q:YSASBDT =""!(YSASE DT="")  Q: (YSASDLY=0 )
  11    W !!,"Res ults retur ned via Ma ilman. Ple ase queue  this repor t for afte r hours."
  12   QUEUE ;
  13    K IOP,ZTI O,ZTSAVE
  14    S ZTIO="" ,ZTSAVE("Y SAS*")="", ZTRTN="ENQ ^YSASFUR", ZTDESC="AS I Followup  Reminder"  D ^%ZTLOA D W:$D(ZTS K) !!,"You r Task Num ber is "_Z TSK D ^%ZI SC
  15    K ^TMP("Y SAS",$J),^ TMP("YSAS" ,$J,"G")
  16    Q
  17   ENQ ;queue  entry
  18    ;S:$D(ZTQ UEUED) ZTR EQ="@"
  19    S YSASN=0 ,YSTOT=0
  20    D DATELP
  21    D HEAD,PT LST,BOT
  22    D MAIL2 ;  output
  23    Q
  24   DTRANGE ;d ate range
  25    W ! S (YS ASBDT,YSAS EDT)="",%D T("A")="Be ginning Da te for ASI  Followup  Reminder D ate Range:  ",%DT="AE X" D ^%DT
  26    Q:Y'>0
  27    S YSASBDT =+Y
  28    W ! S %DT ("A")="End ing Date f or ASI Fol lowup Remi nder Date  Range: " D  ^%DT
  29    Q:Y'>0
  30    S YSASEDT =+Y
  31    I (YSASED T>0)&(YSAS EDT<YSASBD T) W !,?7, "Ending Da te must be  closer to  today tha n Beginnin g Date",!  H 2 W $C(7 ) G DTRANG E
  32    W ! K DIR  S DIR(0)= "N^31:999: 0",DIR("B" )=180,DIR( "A")="Numb er of days  after whi ch a follo w-up is re quired" D  ^DIR S:$D( DIRUT) Y=0  S YSASDLY =Y K DIR
  33    Q
  34   DATELP ;lo ok for all  ASIs in r ange
  35    S YSASDT= YSASBDT-.0 001 F  S Y SASDT=$O(^ YSTX(604," AD",YSASDT )) Q:YSASD T>YSASEDT! (YSASDT'>0 )  S YSASI N=0 F  S Y SASIN=$O(^ YSTX(604," AD",YSASDT ,YSASIN))  Q:YSASIN'> 0  D
  36    . S G=^YS TX(604,YSA SIN,0),DFN =$P(G,U,2) ,YSASG12=$ P(G,U,11), YSASCL=$P( G,U,4),YSA SAD1=$P(G, U,5)
  37    . Q:YSASG 12'="N"  ;  only sear ch on comp letes
  38    . Q:DFN=" "
  39    . ;Q:YSAS CL=3  ;it  is a follo wup alread y
  40    . S YSIN2 =""
  41    . D NEXTC K ;look fo r a fu
  42    . S ^TMP( "YSAS",$J, "A",$P(^DP T(DFN,0),U ),DFN)=YSC K_U_YSASIN _U_YSIN2
  43    Q
  44   NEXTCK ;FU  checker
  45    S YSCK=0  ; DEFAULT=  NEEDS FU
  46    S X1=DT,X 2=YSASAD1  D ^%DTC I  X<YSASDLY  S YSCK=-1  Q  ; if fi rst admin  closer tha n delay
  47    S YSASIN2 =YSASIN F   S YSASIN2 =$O(^YSTX( 604,"C",DF N,YSASIN2) ) Q:YSASIN 2'>0  D
  48    . S G2=^Y STX(604,YS ASIN2,0),Y SASTYP2=$P (G2,U,4),Y S2G12=$P(G ,U,11),YSI N2=YSASIN2
  49    . S YSCK= YSASTYP2
  50    Q
  51   PTLST ; li st pts
  52    S YSNM=""  F  S YSNM =$O(^TMP(" YSAS",$J," A",YSNM))  Q:YSNM=""   S DFN=0 F   S DFN=$O (^TMP("YSA S",$J,"A", YSNM,DFN))  Q:DFN'>0   D
  53    . S G=^TM P("YSAS",$ J,"A",YSNM ,DFN),YSCK =+G,YSIN1= $P(G,U,2), YSIN2=$P(G ,U,3)
  54    . Q:YSCK= 3  ; has a  fU
  55    . Q:YSCK= -1  ;admin  less than  delay
  56    . D DEM^V ADPT S YSA SN=YSASN+1 ,^TMP("YSA S",$J,"G", YSASN)=$E( YSNM_YSASS ,1,20)_" " _$E(VA("BI D")_YSASS, 1,6)_" "
  57    . S YSTOT =YSTOT+1
  58    . S G=^YS TX(604,YSI N1,0),YSAS CL=$P(G,U, 4),Y=$P(G, U,5) X ^DD ("DD")
  59    . S YSINT ER=$P(G,U, 9) S:YSINT ER?1N.N YS INTER=$P($ G(^VA(200, YSINTER,0) ),U)
  60    . S ^TMP( "YSAS",$J, "G",YSASN) =^TMP("YSA S",$J,"G", YSASN)_$S( YSASCL=1:" Full",YSAS CL=2:"Lite ",YSASCL=3 :"F-Up",1: "    ")_"  "_$E(Y_"    ",1,13)_$ E(YSINTER_ YSASS,1,15 )
  61    . S ^TMP( "YSAS",$J, "G",YSASN) =^TMP("YSA S",$J,"G", YSASN)_" " _$S(YSCK=1 :" subsequ ent Full", YSCK=2:" s ubsequent  Lite",1:"" )
  62    Q
  63   HEAD ;head er
  64    K ^TMP("Y SAS",$J,"G ") S YSASS ="",$P(YSA SS," ",75) =""
  65    ;S YSASN= 0,YSASITE= $P($G(^YST X(604.8,1, 0)),U) S:Y SASITE'=""  YSASITE=$ P($G(^DIC( 4,YSASITE, 0)),U)
  66    S YSASN=0
  67    S YSASITE =$$SITE^YS ASCF
  68    S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)=$E(YSAS S,1,15)_"A ddiction S everity In dex Follow up Reminde r"
  69    S Y=YSASB DT\1 X ^DD ("DD") S Y SASN=YSASN +1,^TMP("Y SAS",$J,"G ",YSASN)="     Beginn ing Date:  "_Y
  70    S Y=YSASE DT\1 X ^DD ("DD") S Y SASN=YSASN +1,^TMP("Y SAS",$J,"G ",YSASN)="       Endi ng Date: " _Y
  71    S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)="Days t o Follow-u p: "_YSASD LY
  72    S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)="          Facilit y: "_YSASI TE
  73    S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)=" "
  74    S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)="The fo llowing is  a list of  all patie nts who ha ve not rec eived foll owup ASI's "
  75    S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)="after  completed  interviews  between t he above d ates."
  76    S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)=$E(YSAS S,1,34)_"L ast ASI Ad ministrati on in Rang e"
  77    S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)="Name"_ $E(YSASS,1 ,17)_"SSN     Type  D ate         Interview er"
  78    Q
  79   BOT ; bott om
  80    S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)=" "
  81    S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)=YSTOT_"  patients  listed."
  82    Q
  83   MAIL2 ; SE ND MAILMAN
  84    K ^TMP("Y SMM",$J)
  85    S YSASCNT 3=0,YSASTC =(YSASN\10 00)+1
  86    S YSASCNT =0,YSASCNT 2=0 F  S Y SASCNT=$O( ^TMP("YSAS ",$J,"G",Y SASCNT)) Q :(YSASCNT' >0)  D
  87    .S YSASCN T2=YSASCNT 2+1,^TMP(" YSMM",$J,Y SASCNT)=^T MP("YSAS", $J,"G",YSA SCNT)
  88    .I (YSASC NT2=1000)! (YSASCNT=Y SASN) D
  89    ..S YSASC NT3=YSASCN T3+1
  90    ..S DTIME =600
  91    ..S XMSUB ="ASI Foll ow-up Remi nder       ("_YSASCNT 3_" OF "_Y SASTC_")"
  92    ..S XMTEX T="^TMP("" YSMM"",$J, "
  93    ..S XMY(" G.ASI PERF ORMAN D E N M
S U   E   ")=""
  94    ..S XMY(D UZ)=""
  95    ..S XMDUZ ="AUTOMATE D MESSAGE"
  96    ..D ^XMD
  97    ..S YSASC NT2=0
  98    ..K ^TMP( "YSMM",$J)
  99    ..S DTIME =$$DTIME^X UP(DUZ)
  100    Q