Produced by Araxis Merge on 11/9/2018 12:34:01 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 | CHMKSSR.m | Mon Nov 5 16:44:08 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKSSR.m | Mon Nov 5 17:49:30 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 406 |
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 | CHMKSSR ;H AC/AHJ;INP UT HOLD FI LE LIST BE NE'S WITH SAME NAMES | |
2 | ;;V1.0 | |
3 | ;DEV01289 3 1/20/201 4 DGC - MO DIFY DECNE T WRITE - ADDED CLOS E TO FIO | |
4 | ;MTN02426 5 09/23/15 SBB - Fix the DECNE T routines that have a typo | |
5 | ; | |
6 | ; ONLY BE NES WITH M BM AND USE 1ST TWO C HARACTERS OF FIRST N AME | |
7 | CHAMPVA ; | |
8 | S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0 | |
9 | S (NOZIPC NT,ICNT,DF NCNT,TOTDF N1,BICNT,B CNT,FMPCNT ,YES18CNT, NO18CNT)=0 | |
10 | S PG=1 | |
11 | S DFN=0,U ="^" | |
12 | S (SAVFIR ST,SAVLAST ,BNAME)="" | |
13 | S XX=99 | |
14 | S X=0 | |
15 | S (PAGECN T,I,J,K,II )=0 | |
16 | S (STATE, LINECNT)=0 | |
17 | S T=$C(9) | |
18 | S U="^" | |
19 | S JJ=0 | |
20 | S SW=0 | |
21 | S BLAST=0 | |
22 | S MCNT=0 | |
23 | A1 ; | |
24 | ;FIND TOD AYS DATE | |
25 | ;S X1=$E( RUNTIME,1, 7) S X2=-3 1 D C^%DTC S STRDAT= X | |
26 | D NOW^%DT C S RUNTIM E=% | |
27 | S Y=$E(RU NTIME,1,7) | |
28 | S CHDATE= Y | |
29 | ; CHDATE = Todays Date | |
30 | S MIN=$E( RUNTIME,9, 10) | |
31 | S SEC=$E( RUNTIME,11 ,12) | |
32 | S RCLOCK= MIN_":"_SE C | |
33 | S TODAY=C HDATE | |
34 | ;W !,"MUS T USE WIDE PRINTER" | |
35 | ;Q | |
36 | ;K %IS,IO ("Q") D ^% ZIS Q:POP | |
37 | ;G:$D(IO( "Q"))!(IO' =IO(0)) QU EUEIT ; | |
38 | START1 ; | |
39 | ;S FIO="H ACFS3"" DNS coledec We lcome1!"": :D:[FS3BIG ]MBM_BENE_ SPONSOR_DU PLICATE_NA MES.TXT" | |
40 | ;DGC 1/20 /2014 DEV0 12893 - BE GIN | |
41 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]MBM_BENE_ SPONSOR_DU PLICATE_NA MES.TXT" | |
42 | ;LO FIO:" NW" C FIO: "D" | |
43 | ;O FIO:"N WV" | |
44 | X ^%ZOSF( "UCI") S U CI=$P(Y,"1 ,",1) | |
45 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893 | |
46 | S FILENM2 =MBM_BENE_ SPONSOR_DU PLICATE_NA MES.TXT | |
47 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES)"_FILEN M2 | |
48 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
49 | I '$$OPENFIW R^CHTFLIB9 (.FIO,"FIO ") X "D $S YSTEM.Proc ess.SetZEO F(0)" Q ;D GC 7/30/20 15 DEV0128 93 ;DGC 1/ 20/2014 DE V012893 - END | |
50 | D HEAD1 | |
51 | S ALAST=0 | |
52 | S BLAST=0 | |
53 | S ALAST=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST) ) G:ALAST= "" END | |
54 | S AFIRST= 0 | |
55 | START2 ; | |
56 | S AFIRST= $O(^CHMZHO LD("ENC002 042-NAME-T WOI",ALAST ,AFIRST)) G:AFIRST=" " START1 | |
57 | S ACNT1=0 | |
58 | START3 ; | |
59 | S ACNT1=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST, AFIRST,ACN T1)) G:ACN T1="" STAR T2 | |
60 | S ACNT2=0 | |
61 | START4 ; | |
62 | S ACNT2=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST, AFIRST,ACN T1,ACNT2)) G:ACNT2=" " START3 | |
63 | S DATAA=^ CHMZHOLD(" ENC002042- NAME-TWOI" ,ALAST,AFI RST,ACNT1, ACNT2) | |
64 | S JJ=JJ+1 | |
65 | S SAVLAST (JJ)=ALAST | |
66 | S SAVFIRS T(JJ)=AFIR ST | |
67 | S SAVNAME (JJ)=ALAST _AFIRST | |
68 | S SAVTWO( JJ)=$P(DAT AA,U,1) | |
69 | S SAVDFN( JJ)=$P(DAT AA,U,2) | |
70 | S SAVBFN( JJ)=$P(DAT AA,U,3) | |
71 | G GETNA4 | |
72 | GETNA1 ; | |
73 | S ALAST=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST) ) G:ALAST= "" END | |
74 | S AFIRST= 0 | |
75 | GETNA2 ; | |
76 | S AFIRST= $O(^CHMZHO LD("ENC002 042-NAME-T WOI",ALAST ,AFIRST)) G:AFIRST=" " GETNA1 | |
77 | S ACNT1=0 | |
78 | GETNA3 ; | |
79 | S ACNT1=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST, AFIRST,ACN T1)) G:ACN T1="" GETN A2 | |
80 | S ACNT2=0 | |
81 | GETNA4 ; | |
82 | S ACNT2=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST, AFIRST,ACN T1,ACNT2)) G:ACNT2=" " GETNA3 | |
83 | S DATAA=^ CHMZHOLD(" ENC002042- NAME-TWOI" ,ALAST,AFI RST,ACNT1, ACNT2) | |
84 | S JJ=JJ+1 | |
85 | ;I CNT>60 0 G END ;T EST ONLY | |
86 | S SAVLAST (JJ)=ALAST | |
87 | S SAVFIRS T(JJ)=AFIR ST | |
88 | S SAVNAME (JJ)=ALAST _AFIRST | |
89 | S SAVTWO( JJ)=$P(DAT AA,U,1) | |
90 | S SAVDFN( JJ)=$P(DAT AA,U,2) | |
91 | S SAVBFN( JJ)=$P(DAT AA,U,3) | |
92 | I SAVNAME (JJ-1)=SAV NAME(JJ) G GETNA4 | |
93 | ;PRINT MA TCHES FIRS T NAME TWO CHARACTER S | |
94 | I JJ=2 I SAVNAME(JJ -1)'=SAVNA ME(JJ) S M CNT=MCNT+1 D MOVEIT D BLANK2 S JJ=1 G GE TNA4 | |
95 | ; | |
96 | I JJ>2 I SAVNAME(JJ )'=SAVNAME (JJ-1) D P RINTIT D M OVEIT D BL ANKIT G GE TNA4 | |
97 | ; | |
98 | ;I SAVLAS T(JJ)'=SAV LAST(JJ-1) S SAVLAST (1)=SAVLAS T(JJ) S SA VFIRST(1)= SAVFIRST(J J) S SAVTW O(1)=SAVTW O(JJ) S SA VDFN(1)=SA VDFN(JJ) S SAVBFN(1) =SAVBFN(JJ ) | |
99 | Q | |
100 | BLANKIT ; | |
101 | ;BLANK OU T MOVED SP OTS JJ+1 T HROUGH JJ | |
102 | F LL=2:1: JJ D | |
103 | .S SAVTWO (LL)="" | |
104 | .S SAVLAS T(LL)="" | |
105 | .S SAVFIR ST(LL)="" | |
106 | .S SAVNAM E(LL)="" | |
107 | .S SAVDFN (LL)="" | |
108 | .S SAVBFN (LL)="" | |
109 | .Q | |
110 | S JJ=1 ;S TART INDEX EQUAL TO DATA IN JJ | |
111 | Q | |
112 | Q | |
113 | ;G GETNA3 | |
114 | MOVEIT ; | |
115 | S SAVLAST (1)=SAVLAS T(JJ) S SA VFIRST(1)= SAVFIRST(J J) S SAVNA ME(1)=SAVN AME(JJ) S SAVTWO(1)= SAVTWO(JJ) S SAVDFN( 1)=SAVDFN( JJ) S SAVB FN(1)=SAVB FN(JJ) | |
116 | Q | |
117 | BLANK2 ; | |
118 | S SAVTWO( 2)="" | |
119 | S SAVLAST (2)="" | |
120 | S SAVFIRS T(2)="" | |
121 | S SAVNAME (2)="" | |
122 | S SAVDFN( 2)="" | |
123 | S SAVBFN( 2)="" | |
124 | Q | |
125 | PRINTIT ; | |
126 | W ! S LIN ECNT=LINEC NT+1 | |
127 | F J=1:1:J J-1 D | |
128 | .I SAVBFN (J)'=0 D | |
129 | ..S BENEN AM=^AHCHVA (SAVDFN(J) ,100,SAVBF N(J),0) | |
130 | ..S BENEA DD=^AHCHVA (SAVDFN(J) ,100,SAVBF N(J),1) | |
131 | ..S Y=$P( BENENAM,U, 3) D DD^%D T S PDATE= Y | |
132 | ..S PNAME =$P(BENENA M,U,1) | |
133 | ..S PADD= $P(BENEADD ,U,1) | |
134 | ..S PSSN= $P(BENENAM ,U,9) | |
135 | ..S PCITY =$P(BENEAD D,U,3) | |
136 | ..S BZIP= $P(BENEADD ,U,5) | |
137 | ..S PZIP= $E(BZIP,1, 5) | |
138 | ..S STATE =$P(BENEAD D,U,4) | |
139 | ..S:STATE STATE=$P( ^DIC(5,STA TE,0),U,2) | |
140 | ..S PNAME =" "_ PNAME | |
141 | ..Q | |
142 | .I SAVBFN (J)=0 D | |
143 | ..S SPONN AM=^AHCHVA (SAVDFN(J) ,0) | |
144 | ..S SPONA DD=^AHCHVA (SAVDFN(J) ,1) | |
145 | ..S Y=$P( SPONNAM,U, 3) D DD^%D T S PDATE= Y | |
146 | ..S PNAME =$P(SPONNA M,U,1) | |
147 | ..S PADD= $P(SPONADD ,U,1) | |
148 | ..S PSSN= $P(SPONNAM ,U,9) | |
149 | ..S PCITY =$P(SPONAD D,U,3) | |
150 | ..S BZIP= $P(SPONADD ,U,5) | |
151 | ..S PZIP= $E(BZIP,1, 5) | |
152 | ..S STATE =$P(SPONAD D,U,4) | |
153 | ..S:STATE STATE=$P( ^DIC(5,STA TE,0),U,2) | |
154 | ..;W !," SPONSO R MATCH" | |
155 | ..S PNAME ="(Spon)"_ PNAME | |
156 | ..Q | |
157 | .;W !,PNA ME,?30,PSS N,?46,PDAT E,?65,PADD ,?94,PCITY ,?116,STAT E,?123,PZI P | |
158 | .;U FIO W !,PNAME,? 35,PSSN,?4 7,PDATE,?6 5,PADD,?10 0,PCITY,?1 30,STATE,? 140,PZIP | |
159 | .U FIO W !,PNAME_T_ PSSN_T_PDA TE_T_PADD_ T_PCITY_T_ STATE_T_PZ IP | |
160 | .;I LINEC NT>49 D HE AD1 S LINE CNT=0 | |
161 | .;S LINEC NT=LINECNT +1 | |
162 | .S CNT=CN T+1 | |
163 | .Q | |
164 | Q | |
165 | ; | |
166 | HEAD1 ; MAIN HEAD ING | |
167 | ;S PAGECN T=PAGECNT+ 1 | |
168 | ; W ! | |
169 | ; S TITLE="H EALTH ADMI NISTRATION CENTER" | |
170 | U FIO W ! ,"HEALTH A DMINISTRAT ION CENTER " | |
171 | ; S TAB=132- $L(TITLE)/ 2 | |
172 | ; W #,DUZ,?T AB,TITLE,? 120,"Page: ",PAGECN T | |
173 | ; S TITLE="M bM bene's and/or spo nsors with same or s imilar nam es" | |
174 | U FIO W ! ,"MbM bene 's and/or sponsors w ith same o r similar names" | |
175 | ; S Y=TODAY D DD^%DT S TODAT=Y | |
176 | ; W !,TODAT, ?(132-$L(T ITLE)/2),T ITLE | |
177 | ;W !,RCLO CK | |
178 | ;W ! | |
179 | ;W !,"BEN EFICIARY SSN DOB Street A ddress City State Zip Code" | |
180 | ;U FIO W !,"BENEFIC IARY",?35, "SSN",?47, "DOB",?65, "Street Ad dress",?10 0,"City",? 130,"State ",?140,"Zi p Code" | |
181 | ;U FIO W !,"BENEFIC IARY"_T_"S SN"_T_"DOB "_T_"Stree t Address" _T_"City"_ T_"State"_ T_"Zip Cod e" | |
182 | U FIO W ! ,"BENEFICI ARY"_T_"SS N"_T_"DOB" _T_"Street Address"_ T_"City"_T _"State"_T _"Zip Code "_T | |
183 | ; | |
184 | ;W !,"--- ---------- -------- --- ------- ------- ----- -------- ------- --------- ---------- - ----- -------" | |
185 | Q | |
186 | QUEUEIT ; | |
187 | S ZTDTH=$ H | |
188 | S ZTRTN=" START1^CHM KSSR" | |
189 | S ZTDESC= "BENEFICIA RY/SPONSOR DUPLICATE NAMES" | |
190 | S ZTSAVE( "*")="" | |
191 | D ^%ZTLOA D | |
192 | W !!?5,"R eport Queu ed!" | |
193 | D HOME^%Z IS Q | |
194 | Q | |
195 | STOPIT ; | |
196 | Q | |
197 | END ;DGC 1 /20/2014 D EV012893 - BEGIN - N O CLOSE LI STED FOR T HIS FIO IO | |
198 | D CLOSEF^CHT FLIB9(FIO, "FIO") | |
199 | X "D $SYSTEM .Process.S etZEOF(0)" ;DGC 7/30 /2015 DEV0 12893 | |
200 | D FTPFILE^ CHTFLIB9(F IO," DNS fs3. DNS ","/FS3BIG ","PUT") ; DGC 1/20/2 014 DEV012 893 - END | |
201 | K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2 | |
202 | K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS,U | |
203 | W !,"TOTA L COUNT=", CNT | |
204 | W !," SIN GLES PURGE D=",MCNT | |
205 | Q | |
206 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.