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

315.1 Files compared

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

315.2 Comparison summary

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

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

315.4 Active regular expressions

No regular expressions were active.

315.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   YSGAFTR^IN T^1^63910, 74846^0
  4   YSGAFTR ;D ALOI/MJE/M JD-GAF INT  ENTRY BUI LD ROUTINE  ;09/01/98   16:17
  5    ;;5.01;ME NTAL HEALT H;**43,49, 59**;Dec 3 0, 1994
  6    ;
  7    ;This rou tine will  be execute d from opt ion YS GAF  TRANSMISS ION.
  8    ;This rou tine will  transmit G AF data fo r the date s entered.   This
  9    ;routine  will also  be used to  re-transm it GAF dat a as neede d.
  10    ;It will  only trans mit GAF re cords cont aining all  necessary
  11    ;pieces o f informat ion.  A MA ILMAN mess age for ea ch GAF sco re
  12    ;transmit ted will b e sent to  users enro lled in ma il group
  13    ;YS GAF T RANSMISSIO N ACK.
  14    ;
  15    ;
  16    Q
  17   START ;
  18    ; Date ra nge will b e from no  less than  10-01-1997  to any ti me
  19    ; in the  future.
  20    I '$D(DUZ ) D  Q
  21    .W !!,$C( 7),"ERROR:   DUZ is n ot defined .  Use ^XU P or ask y our "
  22    .W !,"IRM  why you d on't have  a DUZ vari able defin ed.",!!
  23    .D CLNUP
  24    ;
  25    S YSGFDAT E=""
  26    D DTRANGE  Q:+Y<1
  27    K ^TMP("Y SGAFTR",$J )
  28    S ZTRTN=" GEN^YSGAFT R"
  29    ;
  30    ;VARIABLE S TO BE SA VED IN ZTS AVE
  31    S ZTSAVE( "*")=""
  32    ;
  33    S ZTDESC= "MENTAL HE ALTH - GAF  TRANSMISS ION"
  34    S ZTIO=""
  35    D ^%ZTLOA D
  36    I '$D(ZTS K) QUIT  ; -->
  37    W !!,"The  Mental He alth GAF T ransmissio n has been  Tasked, j ob# "
  38    W ZTSK,". ..",!
  39    Q
  40    ;
  41   DTRANGE ;
  42    W !
  43    S (YSSTD, YSSPD)=0
  44    S %DT("A" )="Enter t he Start d ate: ",%DT ="AEQ",%DT (0)=297100 1
  45    D ^%DT K  %DT
  46    Q:+Y<1
  47    S YSSTD=+ Y
  48    W !
  49    S %DT("A" )="Enter t he End dat e: ",%DT=" AEQ"
  50    D ^%DT K  %DT
  51    Q:+Y<1
  52    S YSSPD=+ Y
  53    I YSSPD<Y SSTD D  G  DTRANGE
  54    .W !?5,". .. Start d ate is aft er the End ing date . .."
  55    .W !?5,". .. Please  re-enter b oth the St art and En ding Dates  ..."
  56    .H 2 W $C (7)
  57    Q
  58    ;
  59   GEN ;
  60    I $D(ZTQU EUED) S ZT REQ="@" K  ZTSK
  61    S (YSIEN, YSTOT,YSIN C,YSTRMT,Y SSUBT)=0
  62    F YSJ="I" ,"O" D
  63    .S (YSTOT (YSJ),YSTR MT(YSJ),YS INC(YSJ))= 0
  64    F  S YSIE N=$O(^YSD( 627.8,YSIE N)) Q:YSIE N=""!('YSI EN)  D
  65    .S YSGFDA TE=$P($P($ G(^YSD(627 .8,YSIEN,0 )),"^",1), ".",1)
  66    .S YSO=$G (^YSD(627. 8,YSIEN,0) )
  67    .S YSPATI D=$P(YSO,U ,2)   ; Pa tient ID
  68    .S YSGAFD T=$P(YSO,U ,3)   ; Da te/time of  diagnosis
  69    .Q:YSGAFD T=""
  70    .S YSGFDA TE=$P($P(Y SO,U,3),". ",1)
  71    .I (YSGFD ATE>(YSSTD -1))&(YSGF DATE<(YSSP D+1)) D
  72    ..S YSTOT =YSTOT+1     ; Count  total reco rds found  in this da te range
  73    ..S YSP=$ G(^YSD(627 .8,YSIEN,6 0)),YSPATY PE=$P(YSP, U,4)
  74    ..I YSPAT YPE="" D   Q:YSPATYPE =""
  75    ...Q:YSPA TID=""
  76    ...S DFN= YSPATID
  77    ...D PATS TAT^YSDX3B
  78    ...I '$D( DFN) D  QU IT  ;--->
  79    ....D EN^ YSGAFOBX(Y SIEN)
  80    ...S YSPA TYPE=YSSTA T
  81    ..S YSTOT (YSPATYPE) =YSTOT(YSP ATYPE)+1
  82    ..S YSAX5 =$P(YSP,U, 3),YSPROV= $P(YSO,U,4 )
  83    ..I YSAX5 =""!(YSPRO V="") D  Q
  84    ...S YSIN C=YSINC+1
  85    ...S YSIN C(YSPATYPE )=YSINC(YS PATYPE)+1
  86    ..S YSTRM T=YSTRMT+1
  87    ..S YSTRM T(YSPATYPE )=YSTRMT(Y SPATYPE)+1
  88    ..D EN^YS GAFOBX(YSI EN)
  89    D REPORT, MAILIT,CLN UP
  90    Q
  91   REPORT ;
  92    S YSSUBT= YSINC+YSTR MT,YSLN=0
  93    S XTMP="G AF TRANSMI SSION TOTA LS" D YSLN ,SPC
  94    S XTMP="T otal GAF R ecords:" D  YSLN,SPC
  95    F YSJ="I" ,"O" D
  96    .S XTMP=$ J(+YSTOT(Y SJ),8)_"   "
  97    .S XTMP=X TMP_$S(YSJ ="I":"In", 1:"Out")_" -patient"  D YSLN
  98    S XTMP=$J (YSTOT,8)_ "  Total G AF Records "
  99    D YSLN,DS H,DSH,SPC
  100    S XTMP="G AF Records  Transmitt ed:" D YSL N,SPC
  101    F YSJ="I" ,"O" D
  102    .S XTMP=$ J(+YSTRMT( YSJ),8)_"   "
  103    .S XTMP=X TMP_$S(YSJ ="I":"In", 1:"Out")_" -patient"  D YSLN
  104    S XTMP=$J (YSTRMT,8) _"  GAF Re cord(s) tr ansmitted"  D YSLN,SP C
  105    S XTMP="G AF Records  Not Trans mitted:" D  YSLN,SPC
  106    F YSJ="I" ,"O" D
  107    .S XTMP=$ J(+YSINC(Y SJ),8)_"   "
  108    .S XTMP=X TMP_$S(YSJ ="I":"In", 1:"Out")_" -patient"  D YSLN
  109    S XTMP=$J (YSINC,8)_ "  GAF Rec ord(s) not  transmitt ed" D YSLN ,DSH,SPC
  110    S XTMP=$J (YSSUBT,8) _"  Total  GAF Record s" D YSLN, DSH,DSH,SP C
  111    S XTMP=$J ((YSTOT-YS SUBT),8)_"   Differen ce" D YSLN
  112    Q
  113   SPC ;
  114    S XTMP="  " D YSLN
  115    Q
  116   DSH ;
  117    S XTMP="- -------" D  YSLN
  118    Q
  119   YSLN ;Stor e to ^TMP  for MAILMA N message
  120    S YSLN=YS LN+1
  121    S ^TMP("Y SGAFTR",$J ,YSLN)=XTM P
  122    Q
  123   MAILIT ; M ail totals
  124    S DTIME=6 00
  125    S XMSUB=" GAF Transm ission"
  126    S XMTEXT= "^TMP(""YS GAFTR"",$J ,"
  127    S XMY(DUZ )=""
  128    S XMY("YO UNG,TIM@
D N S          .VA.GOV")= ""
  129    S XMY("DE VLIN,MARK@
D N S          .VA.GOV")= ""
  130    S XMDUZ=" AUTOMATED  MESSAGE"
  131    D ^XMD
  132    S DTIME=$ $DTIME^XUP (DUZ)
  133    Q
  134   CLNUP ;Thi s section  for clean  up of vari ables
  135    K X,Y,YSD IROUT,YSDI RUT,YSDUOU T,YSDTOUT, YSGFDATE,Y SIEN,YSSPD ,YSSTD
  136    K YSANIMA ,YSHH,YSST AT,YSAX5,Y SGAFDT,YSI NC,YSLN,YS O,YSP,YSPA TID
  137    K YSPATYP E,YSPROV,Y SSUBT,YSTO T,YSTRMT,Z TDESC,ZTIO ,ZTRTN,ZTS AVE
  138    K XTMP,XM DUZ,XMSUB, XMTEXT,XMS UB,XMY,XCN P,XMZ,YSYE AR,YSJ,YSI
  139    K ^TMP("Y SGAFTR",$J )
  140    Q