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 | CHMKNABF.m | Mon Nov 5 16:43:02 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKNABF.m | Mon Nov 5 17:49:08 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 100 |
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 | CHMKNABF ; AHJ/CHAMPV A/SELECT F ROM CHMKNA BC FILE FO RIEGN 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 | ;NOTE!!!! !!!!!!NEED TO COPY V IA MANUAL COMMAND | |
8 | S U="^" | |
9 | ZSET ;DGC 1/17/2014 DEV012893 - BEGIN | |
10 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]BENEFOREI GNNEWS.TXT " | |
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 NEFOREIGNN EWS.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, ZIPTTL=0 | |
22 | S ZZBZIP= 0 | |
23 | SORT S ZZB ZIP=$O(^CH MZHOLD("NA ME-ADDNABC ",ZZBZIP)) G:ZZBZIP= "" END | |
24 | S CNTF=0 | |
25 | SORT1 S CN TF=$O(^CHM ZHOLD("NAM E-ADDNABC" ,ZZBZIP,CN TF)) G:CNT F="" SORT | |
26 | S:$D(^CHM ZHOLD("NAM E-ADDNABC" ,ZZBZIP,CN TF)) DATA= ^CHMZHOLD( "NAME-ADDN ABC",ZZBZI P,CNTF) | |
27 | I ZZBZIP> 599 G END ;ELIMINATE DOMESTIC ZIPS SELEC T FOREIGN | |
28 | ; | |
29 | S T=$C(9) | |
30 | S ANAME=$ P(DATA,U,1 ) | |
31 | S LAST=$P (ANAME,"," ,1) | |
32 | S FIRST=$ P(ANAME,", ",2) | |
33 | S NAME=FI RST_" "_LA ST | |
34 | S ADDR1=$ P(DATA,U,2 ) | |
35 | S ADDR2=$ P(DATA,U,3 ) | |
36 | S ADDR3=$ P(DATA,U,4 ) | |
37 | S CITY=$P (DATA,U,5) | |
38 | S STATE=$ P(DATA,U,6 ) | |
39 | S ZIP=$P( DATA,U,7) | |
40 | S TMPS=NA ME_T_ADDR1 _T_ADDR2_T _ADDR3_T_C ITY_T_T_ST ATE_T_ZIP | |
41 | S ZIPTTL= ZIPTTL+1 | |
42 | U FIO W T MPS,! | |
43 | ;I ZIPTTL =97 G END | |
44 | G SORT1 | |
45 | END ;DGC 1 /17/2014 D EV012893 - BEGIN | |
46 | ;C FIO | |
47 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
48 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
49 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") | |
50 | ;DGC 1/17 /2014 DEV0 12893 - EN D | |
51 | ;W !," T OTAL = ",Z IPTTL | |
52 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.