Produced by Araxis Merge on 9/24/2019 1:38:08 PM Eastern 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.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\MUMPS\RTN | YSGAFTR.RTN | Wed Jul 31 17:35:31 2019 UTC |
| 2 | PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\MUMPS\RTN | YSGAFTR.RTN | Fri Sep 20 20:38:00 2019 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 276 |
| Changed | 1 | 4 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| 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 |
No regular expressions were active.
| 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(" P I
|
|
| 129 | S XMY(" P I
|
|
| 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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.