Produced by Araxis Merge on 11/9/2018 12:34:00 AM Central Standard 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 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKNABD.m | Mon Nov 5 16:41:47 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKNABD.m | Mon Nov 5 17:49:08 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 102 |
Changed | 2 | 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 | CHMKNABD ; AHJ/CHAMPV A/SELECT F ILE FROM C HMKNABC DO MESTIC N&A BENES ZIP CODE | |
2 | ;V1.0 SP ECIAL TRCN ABCB | |
3 | ; | |
4 | ;DEV01289 3 1/17/201 4 DGC - MO DIFY DECNE T WRITE | |
5 | ;MTN02426 5 09/23/15 SBB - Fix the DECNE T routines that have a typo | |
6 | ; | |
7 | S U="^" | |
8 | ZSET ;S FI O="SYS$:[D SMMANAG]DO MNABC.TXT" | |
9 | ;DGC 1/17 /2014 DEV0 12893 - BE GIN | |
10 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]BENEDOMES TICNEWS.TX T" | |
11 | ;O FIO C FIO:"D" | |
12 | ;O FIO:"N WS" | |
13 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
14 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893 | |
15 | S FILENM2=BE NEDOMESTIC NEWS.TXT | |
16 | S FIO="HAC_H FS$:[SCR.T EMP_FILES] "_FILENM2 | |
17 | I UCI'="HAC" S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]"_FIL ENM2 | |
18 | I '$$OPENFIW R^CHTFLIB9 (.FIO,"FIO ") X "D $S YSTEM.Proc ess.SetZEO F(0)" Q ;D GC 7/30/20 15 DEV0128 93 | |
19 | ;DGC 1/17 /2014 DEV0 12893 - EN D | |
20 | S T=$C(9) | |
21 | S ZZPG=0, DOMTTL=0 | |
22 | S ZZBZIP= 0 | |
23 | SORT S ZZB ZIP=$O(^CH MZHOLD("NA ME-ADDNABC ",ZZBZIP)) G:ZZBZIP= "" END | |
24 | S CNTA=0 | |
25 | SORT1 S CN TA=$O(^CHM ZHOLD("NAM E-ADDNABC" ,ZZBZIP,CN TA)) G:CNT A="" SORT | |
26 | S:$D(^CHM ZHOLD("NAM E-ADDNABC" ,ZZBZIP,CN TA)) DATA= ^CHMZHOLD( "NAME-ADDN ABC",ZZBZI P,CNTA) | |
27 | I ZZBZIP> 96909 I ZZ BZIP<96961 G OKNEW ; SELECT GUA M ZIPS AS DOMESTIC | |
28 | I ZZBZIP< 600 G SORT 1 ;ELIMINA TE FOREIGN ZIPS SELE CT DOMESTI C | |
29 | ; | |
30 | OKNEW ; | |
31 | S T=$C(9) | |
32 | S NAME=$P (DATA,U,1) | |
33 | S LAST=$P (NAME,",", 1) | |
34 | S FIRST=$ P(NAME,"," ,2) | |
35 | S NAME=FI RST_" "_LA ST | |
36 | S ADDR1=$ P(DATA,U,2 ) | |
37 | S ADDR2=$ P(DATA,U,3 ) | |
38 | S ADDR3=$ P(DATA,U,4 ) | |
39 | S CITY=$P (DATA,U,5) | |
40 | S STATE=$ P(DATA,U,6 ) | |
41 | S ZIP=$P( DATA,U,7) | |
42 | S TMPS=NA ME_T_ADDR1 _T_ADDR2_T _ADDR3_T_C ITY_T_T_ST ATE_T_ZIP | |
43 | S DOMTTL= DOMTTL+1 | |
44 | U FIO W T MPS,! | |
45 | G SORT1 | |
46 | END ;DGC 1 /17/2014 D EV012893 - BEGIN | |
47 | ;C FIO | |
48 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
49 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
50 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") | |
51 | ;DGC 1/17 /2014 DEV0 12893 - EN D | |
52 | ;W !," T OTAL = ",D OMTTL | |
53 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.