Produced by Araxis Merge on 11/9/2018 12:33:59 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 | CHMKNAAD.m | Mon Nov 5 16:42:22 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKNAAD.m | Mon Nov 5 17:49:08 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 180 |
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 | CHMKNAAD ; AHJ/CHAMPV A/SELECT F ILE FROM C HMKNAAC BE NES ZIP CO DE DOMESTI C | |
2 | ;V1.0 SP ECIAL TRCC 155B | |
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 NOT E NOTE ELI MINATE DUP LICATE ADD RESS MAILI NG | |
8 | S U="^" | |
9 | ZSET ;S FI O="SYS$:[D SMMANAG]DO MC155.TXT" | |
10 | ;DGC 1/17 /2014 DEV0 12893 - BE GIN | |
11 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]BENE_DOME STIC_1ADDR ESS.TXT" | |
12 | ;O FIO C FIO:"D" | |
13 | ;O FIO:"N WS" | |
14 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
15 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893 | |
16 | S FILENM2="B ENE_DOMEST IC_1ADDRES S.TXT" | |
17 | S FIO="HAC_H FS$:[SCR.T EMP_FILES] "_FILENM2 | |
18 | I UCI'="HAC" S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]"_FIL ENM2 | |
19 | I '$$OPENFIW R^CHTFLIB9 (.FIO,"FIO ") X "D $S YSTEM.Proc ess.SetZEO F(0)" Q ;D GC 7/30/20 15 DEV0128 93 | |
20 | ;DGC 1/17 /2014 DEV0 12893 - EN D | |
21 | S T=$C(9) | |
22 | S (SAV1,S AV2,NEW1,N EW2)=0 | |
23 | S ZZPG=0, DOMTTL=0,Z IPIN=0 | |
24 | S DUPCNT= 0,ZZBZIP=0 ,SAVADD=0 | |
25 | START S ZZ BZIP=$O(^C HMZHOLD("N AME-ADDC15 5",ZZBZIP) ) G:ZZBZIP ="" END | |
26 | S ADD=0 | |
27 | START1 S A DD=$O(^CHM ZHOLD("NAM E-ADDC155" ,ZZBZIP,AD D)) G:ADD= "" START | |
28 | S CNT=0 | |
29 | START2 S C NT=$O(^CHM ZHOLD("NAM E-ADDC155" ,ZZBZIP,AD D,CNT)) G: CNT="" STA RT1 | |
30 | S:$D(^CHM ZHOLD("NAM E-ADDC155" ,ZZBZIP,AD D,CNT)) DA TA=^CHMZHO LD("NAME-A DDC155",ZZ BZIP,ADD,C NT) | |
31 | S ADDR1=$ P(DATA,U,1 ) | |
32 | S LAST=$P (ADDR1,"," ,1) | |
33 | S FIRST=$ P(ADDR1,", ",2) | |
34 | S ADDR1=F IRST_" "_L AST | |
35 | I ZZBZIP< 600 G STAR T2 ;SELECT DOMESTIC ONLY | |
36 | S ZIPIN=Z IPIN+1 | |
37 | D SAVEIT | |
38 | S SAV1=$P (DATA,U,2) | |
39 | S SAV2=$P (DATA,U,3) | |
40 | ;S SAVADD =$P(DATA,U ,2) | |
41 | S SAVADD= SAV1_SAV2 | |
42 | G SORT2 | |
43 | SORT S ZZB ZIP=$O(^CH MZHOLD("NA ME-ADDC155 ",ZZBZIP)) G:ZZBZIP= "" END | |
44 | S ADD=0 | |
45 | SORT1 S AD D=$O(^CHMZ HOLD("NAME -ADDC155", ZZBZIP,ADD )) G:ADD=" " SORT | |
46 | S CNT=0 | |
47 | SORT2 S CN T=$O(^CHMZ HOLD("NAME -ADDC155", ZZBZIP,ADD ,CNT)) G:C NT="" SORT 1 | |
48 | S:$D(^CHM ZHOLD("NAM E-ADDC155" ,ZZBZIP,AD D,CNT)) DA TA=^CHMZHO LD("NAME-A DDC155",ZZ BZIP,ADD,C NT) | |
49 | S ADDR1=$ P(DATA,U,1 ) | |
50 | S LAST=$P (ADDR1,"," ,1) | |
51 | S FIRST=$ P(ADDR1,", ",2) | |
52 | S ADDR1=F IRST_" "_L AST | |
53 | S ZIPIN=Z IPIN+1 | |
54 | ;I ZIPIN= 100 G END | |
55 | I ZZBZIP< 600 G SORT 2 ;ACCEPT DOMESTIC O NLY | |
56 | ;COMPATE ADDRESS #2 , ELIMINAT E SAME ADD RESS | |
57 | S NEW1=$P (DATA,U,2) | |
58 | S NEW2=$P (DATA,U,3) | |
59 | S NEWADD= NEW1_NEW2 | |
60 | ;S NEWADD =$P(DATA,U ,2) | |
61 | I NEWADD= SAVADD S A DDR1="Atte ntion CHAM PVA Benefi ciaries" | |
62 | I NEWADD= SAVADD D S AVEIT | |
63 | I NEWADD= SAVADD S D UPCNT=DUPC NT+1 S SAV ADD=NEWADD G SORT2 | |
64 | S SAVADD= NEWADD | |
65 | ;;;;;;I Z ZBZIP>599 G SORT1 ; FORIEGN | |
66 | U FIO W S AVTMP,! | |
67 | ;W !,SAVT MP | |
68 | S DOMTTL= DOMTTL+1 | |
69 | D SAVEIT | |
70 | G SORT2 | |
71 | ; | |
72 | SAVEIT ; | |
73 | S T=$C(9) | |
74 | ;S ADDR1= $P(DATA,U, 1) ;addr1 name switc hed above to first n ame first, last name last | |
75 | S ADDR2=$ P(DATA,U,2 ) | |
76 | S ADDR3=$ P(DATA,U,3 ) | |
77 | S ADDR4=$ P(DATA,U,4 ) | |
78 | S ADDR5=$ P(DATA,U,5 ) | |
79 | S ADDR6=$ P(DATA,U,6 ) | |
80 | S ADDR7=$ P(DATA,U,7 ) | |
81 | S SAVTMP= ADDR1_T_AD DR2_T_ADDR 3_T_ADDR4_ T_ADDR5_T_ ADDR6_T_AD DR7_T | |
82 | Q | |
83 | Q | |
84 | END ;DGC 1 /17/2014 D EV012893 - BEGIN | |
85 | ;C FIO | |
86 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
87 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
88 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") | |
89 | ;DGC 1/17 /2014 DEV0 12893 - EN D | |
90 | ;W !," I N TOTAL = ",ZIPIN | |
91 | ;W !," O UT TOTAL = ",DOMTTL | |
92 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.