Produced by Araxis Merge on 11/9/2018 12:33:57 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 | CHMKBBR.m | Mon Nov 5 16:42:13 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKBBR.m | Mon Nov 5 17:48:39 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 432 |
Changed | 1 | 2 |
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 | CHMKBBR ;H AC/AHJ;PRI NT REPORT OF BENE'S WITH SAME NAMES | |
2 | ;;V1.0 | |
3 | ; ONLY BE NES WITH M BM AND USE 1ST TWO C HARACTERS OF FIRST N AME | |
4 | ZSET S :'$D(DUZ) DUZ=1,DUZ( 0)="" I '$ D(DT) S %D T="",X="T" D ^%DT S DT=Y | |
5 | S :'$D(IOZFO ) IOZFO="^ ^" S:'$D(I OZBK) IOZB K="^" S:'$ D(DTIME) D TIME=60 | |
6 | I '$D(IOZ) S %IS="N", IOP="HOME" D HOME^%Z IS S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS | |
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 (PAGEC NT,I,J,K,I I)=0 | |
16 | S (PAGECN T,STATE,LI NECNT)=0 | |
17 | S U="^" | |
18 | S T=$C(9) | |
19 | S JJ=0 | |
20 | S SW=0 | |
21 | S BLAST=0 | |
22 | A1 ; | |
23 | ;FIND TOD AYS DATE | |
24 | ;S X1=$E( RUNTIME,1, 7) S X2=-3 1 D C^%DTC S STRDAT= X | |
25 | D NOW^%DT C S RUNTIM E=% | |
26 | S Y=$E(RU NTIME,1,7) | |
27 | S CHDATE= Y | |
28 | ; CHDATE = Todays Date | |
29 | S MIN=$E( RUNTIME,9, 10) | |
30 | S SEC=$E( RUNTIME,11 ,12) | |
31 | S RCLOCK= MIN_":"_SE C | |
32 | S TODAY=C HDATE | |
33 | ;W !,"MUS T USE WIDE PRINTER" | |
34 | ;Q | |
35 | ;K %IS,IO ("Q") D ^% ZIS Q:POP | |
36 | ;G:$D(IO( "Q"))!(IO' =IO(0)) QU EUEIT ; | |
37 | QUE ; W !!!,"PLE ASE QUEUE THIS REPOR T TO A WID E PRINTER. " | |
38 | Q1 ; S IOP="Q", %ZIS="Q" W !! D ^%ZI S G:POP EN D | |
39 | ; I ION'["/W " W !!,"YO U MUST USE A WIDE PR INTER." G Q1 | |
40 | ; S CHFIO=IO N | |
41 | ; S ZTRTN="S TART1^ZALB B042",ZTDE SC="BENE'S DUPLICATE NAMES" | |
42 | ; S ZTIO="", ZTSAVE("CH FIO")="" | |
43 | ; S ZTSAVE(" *")="" | |
44 | ; D ^%ZTLOAD | |
45 | ; | |
46 | START1 ; | |
47 | S FIO="HA CFS3"" DNS coledec We lcome1!"": :D:[FS3BIG ]MBM_BENE_ DUPLICATE_ NAMES.TXT" | |
48 | O FIO:"NW " C FIO:"D " | |
49 | O FIO:"NW V" | |
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= "" AEND | |
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 | I $P(DATA A,U,3)=0 G START4 ;B YPASS SPON SORS FOR B ENE REPORT | |
65 | S JJ=JJ+1 | |
66 | S SAVLAST (JJ)=ALAST | |
67 | S SAVFIRS T(JJ)=AFIR ST | |
68 | S SAVNAME (JJ)=ALAST _AFIRST | |
69 | S SAVTWO( JJ)=$P(DAT AA,U,1) | |
70 | S SAVDFN( JJ)=$P(DAT AA,U,2) | |
71 | S SAVBFN( JJ)=$P(DAT AA,U,3) | |
72 | G GETNA4 | |
73 | GETNA1 ; | |
74 | S ALAST=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST) ) G:ALAST= "" AEND | |
75 | S AFIRST= 0 | |
76 | GETNA2 ; | |
77 | S AFIRST= $O(^CHMZHO LD("ENC002 042-NAME-T WOI",ALAST ,AFIRST)) G:AFIRST=" " GETNA1 | |
78 | S ACNT1=0 | |
79 | GETNA3 ; | |
80 | S ACNT1=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST, AFIRST,ACN T1)) G:ACN T1="" GETN A2 | |
81 | S ACNT2=0 | |
82 | GETNA4 ; | |
83 | S ACNT2=$ O(^CHMZHOL D("ENC0020 42-NAME-TW OI",ALAST, AFIRST,ACN T1,ACNT2)) G:ACNT2=" " GETNA3 | |
84 | S DATAA=^ CHMZHOLD(" ENC002042- NAME-TWOI" ,ALAST,AFI RST,ACNT1, ACNT2) | |
85 | I $P(DATA A,U,3)=0 G GETNA4 ;B YPASS SPON SORS FOR B ENE REPORT | |
86 | S JJ=JJ+1 | |
87 | ;I CNT>60 0 G END ;T EST ONLY | |
88 | S SAVLAST (JJ)=ALAST | |
89 | S SAVFIRS T(JJ)=AFIR ST | |
90 | S SAVNAME (JJ)=ALAST _AFIRST | |
91 | S SAVTWO( JJ)=$P(DAT AA,U,1) | |
92 | S SAVDFN( JJ)=$P(DAT AA,U,2) | |
93 | S SAVBFN( JJ)=$P(DAT AA,U,3) | |
94 | I SAVNAME (JJ-1)=SAV NAME(JJ) G GETNA4 | |
95 | ;PRINT MA TCHES FIRS T NAME TWO CHARACTER S | |
96 | I JJ=2 I SAVNAME(JJ -1)'=SAVNA ME(JJ) D M OVEIT D BL ANK2 S JJ= 1 G GETNA4 | |
97 | ; | |
98 | I JJ>2 I SAVNAME(JJ )'=SAVNAME (JJ-1) D P RINTIT D M OVEIT D BL ANKIT G GE TNA4 | |
99 | ; | |
100 | ;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 ) | |
101 | Q | |
102 | BLANKIT ; | |
103 | ;BLANK OU T MOVED SP OTS JJ+1 T HROUGH JJ | |
104 | F LL=2:1: JJ D | |
105 | .S SAVTWO (LL)="" | |
106 | .S SAVLAS T(LL)="" | |
107 | .S SAVFIR ST(LL)="" | |
108 | .S SAVNAM E(LL)="" | |
109 | .S SAVDFN (LL)="" | |
110 | .S SAVBFN (LL)="" | |
111 | .Q | |
112 | S JJ=1 ;S TART INDEX EQUAL TO DATA IN JJ | |
113 | Q | |
114 | Q | |
115 | ;G GETNA3 | |
116 | MOVEIT ; | |
117 | 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) | |
118 | Q | |
119 | BLANK2 ; | |
120 | S SAVTWO( 2)="" | |
121 | S SAVLAST (2)="" | |
122 | S SAVFIRS T(2)="" | |
123 | S SAVNAME (2)="" | |
124 | S SAVDFN( 2)="" | |
125 | S SAVBFN( 2)="" | |
126 | Q | |
127 | PRINTIT ; | |
128 | W ! S LIN ECNT=LINEC NT+1 | |
129 | F J=1:1:J J-1 D | |
130 | .I SAVBFN (J)'=0 D | |
131 | ..S BENEN AM=^AHCHVA (SAVDFN(J) ,100,SAVBF N(J),0) | |
132 | ..S BENEA DD=^AHCHVA (SAVDFN(J) ,100,SAVBF N(J),1) | |
133 | ..S Y=$P( BENENAM,U, 3) D DD^%D T S PDATE= Y | |
134 | ..S PNAME =$P(BENENA M,U,1) | |
135 | ..S PADD= $P(BENEADD ,U,1) | |
136 | ..S PSSN= $P(BENENAM ,U,9) | |
137 | ..S PCITY =$P(BENEAD D,U,3) | |
138 | ..S BZIP= $P(BENEADD ,U,5) | |
139 | ..S PZIP= $E(BZIP,1, 5) | |
140 | ..S STATE =$P(BENEAD D,U,4) | |
141 | ..S:STATE STATE=$P( ^DIC(5,STA TE,0),U,2) | |
142 | ..Q | |
143 | .I SAVBFN (J)=0 D | |
144 | ..S SPONN AM=^AHCHVA (SAVDFN(J) ,0) | |
145 | ..S SPONA DD=^AHCHVA (SAVDFN(J) ,1) | |
146 | ..S Y=$P( SPONNAM,U, 3) D DD^%D T S PDATE= Y | |
147 | ..S PNAME =$P(SPONNA M,U,1) | |
148 | ..S PADD= $P(SPONADD ,U,1) | |
149 | ..S PSSN= $P(SPONNAM ,U,9) | |
150 | ..S PCITY =$P(SPONAD D,U,3) | |
151 | ..S BZIP= $P(SPONADD ,U,5) | |
152 | ..S PZIP= $E(BZIP,1, 5) | |
153 | ..S STATE =$P(SPONAD D,U,4) | |
154 | ..S:STATE STATE=$P( ^DIC(5,STA TE,0),U,2) | |
155 | ..S LINEC NT=LINECNT +1 | |
156 | ..W !," SPONSOR MATCH" | |
157 | ..Q | |
158 | .;U FIO W !,PNAME,? 25,PSSN,?3 7,PDATE,?5 5,PADD,?90 ,PCITY,?12 0,STATE,?1 30,PZIP | |
159 | .U FIO W !,PNAME_T_ PSSN_T_PDA TE_T_PADD_ T_PCITY_T_ STATE_T_PZ IP | |
160 | .;W !,PNA ME,?25,PSS N,?41,PDAT E,?60,PADD ,?89,PCITY ,?116,STAT E,?123,PZI P | |
161 | .;I LINEC NT>50 D HE AD1 S LINE CNT=0 | |
162 | .;S LINEC NT=LINECNT +1 | |
163 | .S CNT=CN T+1 | |
164 | .Q | |
165 | Q | |
166 | ; | |
167 | HEAD1 ; MAIN HEAD ING | |
168 | ;S PAGECN T=PAGECNT+ 1 | |
169 | ; W ! | |
170 | ; S TITLE="H EALTH ADMI NISTRATION CENTER" | |
171 | U FIO W !,"H EALTH ADMI NISTRATION CENTER" | |
172 | ; S TAB=132- $L(TITLE)/ 2 | |
173 | ; W #,DUZ,?T AB,TITLE,? 120,"Page: ",PAGECN T | |
174 | ; S TITLE="M bM bene's and/or oth er bene's with same or similar names" | |
175 | U FIO W ! ,"MbM bene 's and/or other bene 's with sa me or simi lar names" | |
176 | ;S Y=TODAY D DD^%DT S T ODAT=Y | |
177 | ; W !,TODAT, ?(132-$L(T ITLE)/2),T ITLE | |
178 | ;W !,RCLO CK | |
179 | ;W ! | |
180 | ;W !,"BEN EFICIARY SSN DO B Str eet Addres s City State Zip Code" | |
181 | ;W !,"--- ---------- -------- -------- -- -- ---------- --- ---------- -- ---- ---------- ------ ----- -------" | |
182 | ;U FIO W !,"BENEFIC IARY",?25, "SSN",?37, "DOB",?55, "Street Ad dress",?90 ,"City",?1 20,"State" ,?130,"Zip Code" | |
183 | U FIO W ! ,"BENEFICI ARY"_T_"SS N"_T_"DOB" _T_"Street Address"_ T_"City"_T _"State"_T _"Zip Code " | |
184 | Q | |
185 | QUEUEIT ; | |
186 | S ZTDTH=$ H | |
187 | S ZTRTN=" START1^CHM KBBR" | |
188 | S ZTDESC= "BENEFICIA RY DUPLICA TE NAMES" | |
189 | S ZTSAVE( "*")="" | |
190 | D ^%ZTLOA D | |
191 | W !!?5,"R eport Queu ed!" | |
192 | D HOME^%Z IS Q | |
193 | Q | |
194 | ZNAM ; | |
195 | W !!,"CHAMP VA Project Tracking System-" | |
196 | W !,"Open P roblems by Assignmen t Group, b y person a ssigned to " | |
197 | QUEA ; | |
198 | W ! S IOP=" Q" D ^%ZIS G:POP END S CHFIO=I ON | |
199 | S ZTRTN="^S TART1^CHMK BBR",ZTDTH =$H,ZTDESC ="BENEFICI ARY DUPLIC ATE NAMES" | |
200 | S ZTSAVE("* ")="" | |
201 | D ^%ZTLOAD | |
202 | S IOP="HOME " D HOME^% ZIS | |
203 | QUEB ; | |
204 | K IOP W ! ! S %ZIS=" Q" D ^%ZIS G END:POP I '$D(IO( "Q")) G EN D | |
205 | S CHFIO=ION | |
206 | S ZTRTN="^S TART1^CHMK BBR",ZTDES C="BENE DU P REPORT", ZTIO="",ZT SAVE("CHFI O")="" | |
207 | S :$D(BEGDT) ZTSAVE("* ")="" | |
208 | D ^%ZTLOAD | |
209 | S IOP="HOME " D HOME^% ZIS | |
210 | END ; | |
211 | QEND ; | |
212 | AEND ; | |
213 | K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2 | |
214 | K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS,U | |
215 | W !,"TOTA L COUNT=", CNT | |
216 | Q | |
217 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.