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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 100 |
Changed | 3 | 6 |
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 | 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
|
|
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
|
|
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
|
|
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.