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 | CHMKNAAF.m | Mon Nov 5 16:43:32 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKNAAF.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 | CHMKNAAF ; AHJ/CHAMPV A/SELECT F ROM CHMKNA AC FOREIGN FILE BENE S ZIP CODE | |
2 | ;V1.0 SP ECIAL TRCC 155B | |
3 | ; | |
4 | ;DEV01289 5 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 ;DGC 1/17/2014 DEV012893 - BEGIN | |
10 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]BENE_FORE IGN_1ADDRE SS.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="B ENE_FOREIG N_1ADDRESS .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 (NEW1,N EW2,SAV1,S AV2)=0 | |
22 | S ZZPG=0, ZIPTTL=0,Z IPIN=0 | |
23 | S DUPCNT= 0,ZZBZIP=0 ,SAVADD=0 | |
24 | START S ZZ BZIP=$O(^C HMZHOLD("N AME-ADDC15 5",ZZBZIP) ) G:ZZBZIP ="" END | |
25 | S ADD=0 | |
26 | START1 S A DD=$O(^CHM ZHOLD("NAM E-ADDC155" ,ZZBZIP,AD D)) G:ADD= "" START | |
27 | S CNT=0 | |
28 | START2 S C NT=$O(^CHM ZHOLD("NAM E-ADDC155" ,ZZBZIP,AD D,CNT)) G: CNT="" STA RT1 | |
29 | S:$D(^CHM ZHOLD("NAM E-ADDC155" ,ZZBZIP,AD D,CNT)) DA TA=^CHMZHO LD("NAME-A DDC155",ZZ BZIP,ADD,C NT) | |
30 | S ADDR1=$ P(DATA,U,1 ) | |
31 | S LAST=$P (ADDR1,"," ,1) | |
32 | S FIRST=$ P(ADDR1,", ",2) | |
33 | S ADDR1=F IRST_" "_L AST | |
34 | I ZZBZIP> 600 G STAR T2 ;SELECT FOREIGN O NLY CONTIN UE | |
35 | S ZIPIN=Z IPIN+1 | |
36 | D SAVEIT | |
37 | S SAV1=$P (DATA,U,2) | |
38 | S SAV2=$P (DATA,U,3) | |
39 | S SAVADD= SAV1_SAV2 | |
40 | ;S SAVADD =$P(DATA,U ,2) | |
41 | G SORT2 | |
42 | SORT S ZZB ZIP=$O(^CH MZHOLD("NA ME-ADDC155 ",ZZBZIP)) G:ZZBZIP= "" END | |
43 | S ADD=0 | |
44 | SORT1 S AD D=$O(^CHMZ HOLD("NAME -ADDC155", ZZBZIP,ADD )) G:ADD=" " SORT | |
45 | S CNT=0 | |
46 | SORT2 S CN T=$O(^CHMZ HOLD("NAME -ADDC155", ZZBZIP,ADD ,CNT)) G:C NT="" SORT 1 | |
47 | S:$D(^CHM ZHOLD("NAM E-ADDC155" ,ZZBZIP,AD D,CNT)) DA TA=^CHMZHO LD("NAME-A DDC155",ZZ BZIP,ADD,C NT) | |
48 | S ADDR1=$ P(DATA,U,1 ) | |
49 | S LAST=$P (ADDR1,"," ,1) | |
50 | S FIRST=$ P(ADDR1,", ",2) | |
51 | S ADDR1=F IRST_" "_L AST | |
52 | S ZIPIN=Z IPIN+1 | |
53 | ;I ZIPIN= 30 G END | |
54 | I ZZBZIP> 599 G END | |
55 | I ZZBZIP> 600 G SORT 2 ;FOREIGN | |
56 | ;I ZIPIN >100 G END | |
57 | ;COMPARE ADDRESS #2 , AND ADDR ESS #3, EL IMINATE SA ME ADDRESS | |
58 | S NEW1=$P (DATA,U,2) | |
59 | S NEW2=$P (DATA,U,3) | |
60 | S NEWADD= NEW1_NEW2 | |
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 | U FIO W S AVTMP,! | |
66 | ;W !,SAVT MP | |
67 | S ZIPTTL= ZIPTTL+1 | |
68 | D SAVEIT | |
69 | G SORT2 | |
70 | ; | |
71 | SAVEIT ; | |
72 | S T=$C(9) | |
73 | ;S ADDR1= $P(DATA,U, 1) ;name s witched ab ove to fir st name fi rst and la st name la st | |
74 | S ADDR2=$ P(DATA,U,2 ) | |
75 | S ADDR3=$ P(DATA,U,3 ) | |
76 | S ADDR4=$ P(DATA,U,4 ) | |
77 | S ADDR5=$ P(DATA,U,5 ) | |
78 | S ADDR6=$ P(DATA,U,6 ) | |
79 | S ADDR7=$ P(DATA,U,7 ) | |
80 | S SAVTMP= ADDR1_T_AD DR2_T_ADDR 3_T_ADDR4_ T_ADDR5_T_ ADDR6_T_AD DR7_T | |
81 | Q | |
82 | Q | |
83 | END ;DGC 1 /17/2014 D EV012893 - BEGIN | |
84 | ;C FIO | |
85 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
86 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
87 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") | |
88 | ;DGC 1/17 /2014 DEV0 12893 - EN D | |
89 | ;W !," IN COUNT = " ,ZIPIN | |
90 | ;W !," O UT TOTAL = ",ZIPTTL | |
91 | Q | |
92 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.