Produced by Araxis Merge on 11/9/2018 12:33:58 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 | CHMKCAL1.m | Mon Nov 5 16:44:03 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKCAL1.m | Mon Nov 5 17:48:40 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 386 |
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 | CHMKCAL1 ; HAC/AHJ;AL L BENE'S W ITH RE-CAL C SWITCH=Y ES | |
2 | ;;V1.0 | |
3 | ;PROJECT TRACKING # 1351 BY AH J | |
4 | ;01/21/20 16 SBB MTN 025039 Add ing Status Comment t o this rep ort. | |
5 | ;05/12/20 16 SBB BUG 025039 Fix the whole report re move GOTOs and add F or loop. | |
6 | ; | |
7 | W !!,"PLE ASE SELECT DEVICE FO R PRINTOUT OR ""FILE "" FOR TEX T FILE ON FS3BIG: " ;TLH 4/21 /08 DEV004 416 | |
8 | K %IS,IO( "Q") D ^%Z IS Q:POP S CHFILE=" " | |
9 | I ION="FI LE" D ;TL H 4/21/08 DEV004416 | |
10 | .W !!,?24 ,"COPY YOU R QUEUED F ILE TO FS3 BIG" ;TLH 4/21/08 D EV004416 | |
11 | A .W !!,"E nter the n ew 1-8 cha racter fil e name EXI T// " ;TL H 4/21/08 DEV004416 | |
12 | .D CSBRS^ CHSC2 ;TL H 4/21/08 DEV004416 | |
13 | .Q:$D(DFO UT) Q:$D( DTOUT) G: $D(DQOUT) A ;TLH 4/2 1/08 DEV00 4416 | |
14 | .S CHFILE =Y ;TLH 4 /21/08 DEV 004416 | |
15 | .I Y["." W !,"DO NO T ENTER AN EXTENTION . EXTENTIO N WILL BE '.TXT'" G A | |
16 | .Q:Y="" ;TLH 4/21/ 08 DEV0044 16 | |
17 | .G:Y'?1.8 AN A ;TLH 4/21/08 D EV004416 | |
18 | .W !!,"Yo ur file wi ll now be copied to FS3BIG: " ;TLH 4/21 /08 DEV004 416 | |
19 | .W "\\ DNS FS3\FS3BIG \",CHFILE, ".TXT" ;TLH 4/21/ 08 DEV0044 16 | |
20 | .S CHFILE =CHFILE_". TXT" | |
21 | .Q ;TLH 4/21/08 DE V004416 | |
22 | G:$D(IO(" Q"))!(IO'= IO(0)) QUE UEIT | |
23 | ; | |
24 | AAA ; | |
25 | S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0 | |
26 | S (LINE,P AGE,BCNT,F MPCNT,YES1 8CNT,NO18C NT)=0 | |
27 | S PAGE=0 S T=$C(9) | |
28 | S DFN=0,U ="^" | |
29 | K ^CHMZHO LD("NOTELI G1351") | |
30 | K ^CHMZHO LD("SB1351 ") | |
31 | K ^CHMZHO LD("FMP135 1") | |
32 | N QUIT | |
33 | S QUIT=0 | |
34 | I ION="FI LE" D Q:Q UIT | |
35 | . X ^%ZOS F("UCI") S UCI=$P(Y, ",",1) | |
36 | . I UCI'= "HAC" S CH FILE="HAC_ HFS$:[DSMM ANAG.CHAMP VA]"_UCI_C HFILE | |
37 | . I UCI=" HAC" S CHF ILE="HAC_H FS$:[SCR.T EMP_FILES] "_CHFILE | |
38 | . I '$$OP ENFIWR^CHT FLIB9(.CHF ILE,"CHFIL E") S QUIT =1 Q | |
39 | . W ! | |
40 | . Q | |
41 | D HEAD | |
42 | D GETDFN, END | |
43 | Q | |
44 | ; | |
45 | ; | |
46 | ; NOT CHE CKED FOR A LL ELIGIBL E/ACTIVE B ENE'S ON T ODAY | |
47 | ;******** ********** ********** ********** ********** ***** | |
48 | ; CHAMPVA BENE FILE | |
49 | GETDFN ; | |
50 | S DFN=0 F S DFN=$O (^AHCHVA(D FN)) Q:'DF N D | |
51 | . Q:'$D(^ AHCHVA(DFN ,0)) | |
52 | . S SPON= ^AHCHVA(DF N,0) | |
53 | . Q:'$D(^ AHCHVA(DFN ,1)) | |
54 | . S SPON1 =^AHCHVA(D FN,1) | |
55 | . Q:'$D(^ AHCHVA(DFN ,100)) | |
56 | . Q:$D(^A HCHVA("FMP ",DFN)) ;SKI P IF FMP | |
57 | . S TOTDF N=TOTDFN+1 | |
58 | . S BFN=0 F S BFN= $O(^AHCHVA (DFN,100,B FN)) Q:'BF N D | |
59 | . . Q:$D( ^AHCHVA("S B",DFN,BFN )) ;SKI P IF SPINA BIFIDA | |
60 | . . Q:'$D (^AHCHVA(D FN,100,BFN ,0)) | |
61 | . . Q:$P( ^AHCHVA(DF N,100,BFN, 0),"^",4)= "SF" | |
62 | . . S TOT CNT=TOTCNT +1 | |
63 | . . Q:'$D (^AHCHVA(D FN,100,BFN ,0)) | |
64 | . . ;TEST FOR RE-CA LC SWITCH | |
65 | . . Q:'$D (^AHCHVA(D FN,100,BFN ,8)) | |
66 | . . S CAL CSW=$P(^AH CHVA(DFN,1 00,BFN,8), U,1) | |
67 | . . Q:CAL CSW'=1 | |
68 | . . S NAM LAB=^AHCHV A(DFN,100, BFN,0) | |
69 | . . ; | |
70 | . . N BEN ESTAT,STAT RESN | |
71 | . . S (BE NESTAT,STA TRESNS,STA TRESNB)="" | |
72 | . . S STA TRESNS=$S( $P(^AHCHVA (DFN,100,B FN,0),U,12 )'="":12,$ P(^AHCHVA( DFN,100,BF N,0),U,13) '="":13,1: "") | |
73 | . . ;S ST ATRESNS=$S (:$P(^AHAD IC(554801. 7,$P(^AHCH VA(DFN,100 ,BFN,0),U, 12),0),U,2 ),STATRESN S=13:$P(^A HADIC(5548 01.6,$P(^A HCHVA(DFN, 100,BFN,0) ,U,13),0), U,2),1:"") | |
74 | . . I STA TRESNS=12 D | |
75 | . . . S S TATRESNS=$ O(^AHADIC( 554801.7," B",$P(^AHC HVA(DFN,10 0,BFN,0),U ,12),"")) | |
76 | . . . S S TATRESNS=$ P(^AHADIC( 554801.7,S TATRESNS,0 ),U,2) | |
77 | . . . Q | |
78 | . . I STA TRESNS=13 D | |
79 | . . . S S TATRESNS=$ O(^AHADIC( 554801.6," B",$P(^AHC HVA(DFN,10 0,BFN,0),U ,13),"")) | |
80 | . . . S S TATRESNS=$ P(^AHADIC( 554801.6,S TATRESNS,0 ),U,2) | |
81 | . . . Q | |
82 | . . S BEN ESTAT=$P(N AMLAB,U,5) | |
83 | . . I BEN ESTAT'="" D | |
84 | . . . S B ENESTAT=$S (BENESTAT= "EA":"ELIG IBLE-ACTIV E",BENESTA T="D":"INE LIGIBLE",1 :BENESTAT) | |
85 | . . . S B ENESTAT=$S (BENESTAT= "PS":"PEND ING-REVIEW ",BENESTAT ="PR":"PEN DING DEERS ACCEPTANC E",1:BENES TAT) | |
86 | . . . S B ENESTAT=$S (BENESTAT= "PC":"PEND ING DEERS- DATA CONFL ICT",BENES TAT="T":"S ENT TO DEE RS-UNEDITA BLE",1:BEN ESTAT) | |
87 | . . . S B ENESTAT=$S (BENESTAT= "U":"UNKNO WN",BENEST AT="SF":"S ELF",1:BEN ESTAT) | |
88 | . . . S B ENESTAT=$S (BENESTAT= "PW":"PEND ING HAC VA LIDATION", BENESTAT=" SF":"SELF" ,1:BENESTA T) | |
89 | . . . S B ENESTAT=$S (BENESTAT= "REN":"RE- ENROLLED", BENESTAT=" DIS":"DISE NROLLED",1 :BENESTAT) | |
90 | . . . S B ENESTAT=$S (BENESTAT= "DL":"DELE TED",1:BEN ESTAT) | |
91 | . . . Q | |
92 | . . S SPO NNAME=$P(S PON,U,1) | |
93 | . . S SPO NSSN=$P(SP ON,U,9) | |
94 | . . S BEN ENAME=$P(N AMLAB,U,1) | |
95 | . . S BEN ESSN=$P(NA MLAB,U,9) | |
96 | . . S BEN EDOB=$P(NA MLAB,U,3) | |
97 | . . S Y=B ENEDOB D D D^%DT S PB ENEDOB=Y | |
98 | . . S BEN EACSW="YES " | |
99 | . . ; FIN D ALL DATE S FOR PERI ODS OF ELI GIBILITY | |
100 | . . I ION '="FILE" W !!,DFN," ",BFN ;TL H 5/15/08 DEV004416 | |
101 | . . S PSP ONSSN=$E(S PONSSN,1,3 )_"-"_$E(S PONSSN,4,5 )_"-"_$E(S PONSSN,6,9 ) | |
102 | . . I ION '="FILE" W !,SPONNAM E,?26,PSPO NSSN ;TLH 5/15/08 D EV004416 | |
103 | . . I ION ="FILE" U CHFILE W !,SPONNAME _T_PSPONSS N ;TLH 5/ 15/08 DEV0 04416 | |
104 | . . S PBE NESSN=$E(B ENESSN,1,3 )_"-"_$E(B ENESSN,4,5 )_"-"_$E(B ENESSN,6,9 ) | |
105 | . . I ION '="FILE" W !,BENENAM E,?26,PBEN ESSN,?40,P BENEDOB ;TLH 5/15/ 08 DEV0044 16 | |
106 | . . I ION ="FILE" U CHFILE W !,BENENAME _T_PBENESS N_T_PBENED OB ;TLH 5 /15/08 DEV 004416 | |
107 | . . I ION '="FILE" W ?54,STATR ESNS | |
108 | . . I ION ="FILE" U CHFILE W T _STATRESNS | |
109 | . . S J1= 9999999 F S J1=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1),-1) Q:'J1 D | |
110 | . . . S J 2=0 F S J 2=$O(^AHCH VA(DFN,100 ,BFN,109,J 1,J2)) Q:' J2 D | |
111 | . . . . S Y=J1 D DD ^%DT S PJ1 =Y | |
112 | . . . . S Y=J2 D DD ^%DT S PJ2 =Y | |
113 | . . . . I ION'="FIL E" W !,?54 ,PJ1,?66," -",PJ2 ;T LH 5/15/08 DEV004416 | |
114 | . . . . I ION="FILE " U CHFILE W !,T_T_T _PJ1_" - " _PJ2 ;TLH 5/15/08 D EV004416 | |
115 | . . . . S LINE=LINE +1 | |
116 | . . . . Q | |
117 | . . . Q | |
118 | . . D OUT | |
119 | . . Q | |
120 | . Q | |
121 | ;END GETD FN | |
122 | Q | |
123 | ; | |
124 | OUT ; | |
125 | ; NEXT TH REE LINES DELIMITED WITH TAB D ELIMITED | |
126 | ;I ION=FI LE S TEMP= SPONNAME_T _SPONSSN_T _BENENAME_ T_BENESSN_ T_BENEDOB_ T_BENEACSW _T_PJ1_T_P J2 ;TLH 5 /15/08 | |
127 | I ION'="F ILE" I LIN E>35 D HEA D ;TLH 5/ 14/08 RESO LVE BUG | |
128 | S LINE=LI NE+3 | |
129 | S CNT=CNT +1 | |
130 | I ION="FI LE" U CHFI LE W ! | |
131 | ;G GETBFN | |
132 | Q | |
133 | HEAD ; | |
134 | I ION="FI LE" D Q ;TLH 5/15/ 08 DEV0044 16 | |
135 | .S PAGE=P AGE+1 ;TL H 5/15/08 DEV004416 | |
136 | .U CHFILE W !,"HEAL TH ADMINIS TRATION CE NTER"_T_"P AGE"_T_PAG E ;TLH 5/ 15/08 DEV0 04416 | |
137 | .U CHFILE W !,"BENE FICIARY AU TO-CALC RE PORT" ;TL H 5/15/08 DEV004416 | |
138 | .;W !,"NA ME"_T_"SSN " ;TLH 5/ 15/08 DEV0 04416 | |
139 | .U CHFILE W !,"NAME "_T_"SSN"_ T_T_"STATU S COMMENT" ;SBB 1/2 1/16 | |
140 | .U CHFILE W !,"SPON SOR/BENE"_ T_"SPONSOR /BENE"_T_" BENE DOB"_ T_"ELIGIBI LITY PERIO DS" ;TLH 5/15/08 DE V004416 | |
141 | .Q ;TLH 5/15/08 DE V004416 | |
142 | S LINE=0 | |
143 | S PAGE=PA GE+1 | |
144 | S TITLE=" HEALTH ADM INISTRATIO N CENTER" | |
145 | S TAB=80- $L(TITLE)/ 2 | |
146 | W #,DUZ,? TAB,TITLE, ?60,"Page: ",PAGE | |
147 | S TITLE=" BENEFICIAR Y AUTO-CAL C REPORT" | |
148 | S Y=DT D DD^%DT S T ODAY=Y | |
149 | W !,TODAY ,?(80-$L(T ITLE)/2),T ITLE | |
150 | ;W !!!,"N AME",?26," SSN" | |
151 | W !!!,"NA ME",?26,"S SN",?54,"S TATUS COMM ENT" ;SB B 1/21/16 | |
152 | W !,"SPON SOR/BENE", ?26,"SPONS OR/BENE" | |
153 | W ?40,"BE NE DOB",?5 4,"ELIGIBI LITY PERIO DS" | |
154 | W !,"---- ---------- ------- -------- --- ---- -------- ---------- ---------- ------" | |
155 | Q | |
156 | ; | |
157 | QUEUEIT ; | |
158 | S ZTDTH=$ H | |
159 | S ZTRTN=" AAA^CHMKCA L1" | |
160 | S ZTDESC= "Beneficia ry Auto Ca lc Report" | |
161 | S ZTSAVE( "CHFILE")= "" | |
162 | S ZTSAVE( "*")="" | |
163 | D ^%ZTLOA D | |
164 | ;D AAA^CH MKCAL1 | |
165 | W !!?5,"R eport Queu ed!" | |
166 | D HOME^%Z IS Q | |
167 | Q | |
168 | END ; | |
169 | K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2 | |
170 | K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS | |
171 | I ION="FI LE" D Q | |
172 | . D CLOSE F^CHTFLIB9 (CHFILE,"C HFILE") | |
173 | . D MOVE ;TLH 4/21 /08 DEV004 416 | |
174 | . Q | |
175 | ; | |
176 | W !,"COUN T = ",CNT | |
177 | Q | |
178 | ;;TLH 4/2 1/08 DEV00 4416 | |
179 | MOVE | |
180 | ;S ZTRTN= "COPY^CHMK CAL1",ZTDE SC="COPY T EXT FILE T O PC DISK" | |
181 | ;S ZTSAVE ("CHFILE") ="",ZTIO=" " D ^%ZTLO AD | |
182 | ;COPY S C HCOM="HAC_ HFS$:[DSMM ANAG]DHCPC OPY.COM" | |
183 | ;S CHVAL= "/NOLOG/QU EUE=SYS$BA TCH" | |
184 | ;S CHPAR= CHFILE_".T XT" | |
185 | ;S X=$ZF( -1,"SUBMIT CHCOM,CHV AL,CHPAR") | |
186 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG] DHCPCOPY.C OM /NOLOG/ QUEUE=SCRA TCH$/PARAM ="_CHPAR) ;SKD | |
187 | ;S CHPAR= "HACFS3"" DNS COLEDEC We lcome1!"": :d:[FS3BIG ]"_$G(CHPA R) ;SKD | |
188 | ;S X=$ZF( -1,"COPY H AC_HFS$:[T MP]TEMP.TM P "_CHPAR) | |
189 | ;S X=$ZF( -1,"DELE H AC_HFS$:[T MP]TEMP.TM P;*") | |
190 | ;S CHFILE =CHFILE_". TXT" | |
191 | ;S X=$ZF( -1,"COPY H AC_HFS$:[D SMMANAG]"_ CHFILE_" H AC_HFS$:[S CR.TEMP_FI LES]"_CHFI LE) | |
192 | H 5 | |
193 | ;S CHFILE ="HAC_HFS$ :[SCR.TEMP _FILES]"_C HFILE | |
194 | D FTPFILE ^CHTFLIB9( CHFILE," DNS fs3. DNS ","/FS3BIG ","PUT") | |
195 | Q | |
196 | ;;TLH 4/2 1/08 DEV00 4416 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.