Produced by Araxis Merge on 11/9/2018 12:33:43 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 | CHCMSFFI.m | Mon Nov 5 16:40:35 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHCMSFFI.m | Tue Nov 6 22:08:39 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 7 | 346 |
Changed | 6 | 12 |
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 | CHCMSFFI ; HAC/SKD; G enerates t he initial finder fi le to be s ent to the CMS ;1-8- 08 3:23 P M | |
2 | ;;V1.0 | |
3 | ;;new rou tine per D EV000123-0 3, skd 1-8 -08 | |
4 | ;; | |
5 | ;;Initial finder fi le lists a ll CHAMPVA eligible benes ($P( ^AHCHVA(DF N,100,BFN, 0),"^",5)= "EA") | |
6 | ;; | |
7 | ;;******* **Finder f ile format ********** ********** | |
8 | ;;SSN fin der file m ust be in CSV (ASCII comma del imited) fo rmat | |
9 | ;;1st lin e: SSN, Ge nder, DOB | |
10 | ;;2nd lin e and beyo nd: | |
11 | ;;;SSN: 9 digit | |
12 | ;;;Gender : ?M? or ? 1? = male, ?F? or ?2 ? = female and ?0? = unknown | |
13 | ;;;DOB: m m/dd/yyyy | |
14 | ;;A carri age return must end each line. | |
15 | ;;******* ********** ********** ********** ********** * | |
16 | ;;DEF0184 04, SBB, 0 6/25/13 - Adding a l ine to res trict FMP benes from going | |
17 | ;; on to C MS finder files | |
18 | ;;DEF0165 54, SBB, 1 1/26/13 - Modified W riting to a file as per VHA st andard. | |
19 | ;; Converting from DECN ET to FTP. | |
20 | ;;DEF0165 54, SBB, 0 7/30/15 - Adding cha nges for D ECNET | |
21 | ;; | |
22 | QUE ;S IOP ="Q",%ZIS= "Q" W !! D ^%ZIS G:P OP QEND | |
23 | ;S CHFIO= ION | |
24 | I '$G(DUZ ) S DUZ=1 | |
25 | S MMYY="I NITIAL" | |
26 | S CHFIO=" ",ZTDTH=$H | |
27 | S ZTRTN=" GETALLEA^C HCMSFFI",Z TDESC="CMS Finder Fi le Generat ion for al l CHAMPVA elig benes " | |
28 | S ZTIO="" ,ZTSAVE("C HFIO")="", ZTSAVE("MM YY")="" | |
29 | D ^%ZTLOA D | |
30 | Q | |
31 | GETALLEA ; | |
32 | ;S T=$C(9 ) ;USE TO SET DELIM ITER TO TA B | |
33 | S U="^" | |
34 | K ^CHMZHO LD("ZSKDCM SFILE"),^C HMZHOLD("Z SKDCMS_BEN ECOUNT","I NITIAL") | |
35 | S CNT=0 | |
36 | S FILENM= "CMSFILE_" _MMYY_".DA T" | |
37 | ;DEF01655 4 SBB 11/2 6/13 - Co nverting f rom DECNET to FTP. | |
38 | ;S FILE=" HACFS3""
|
|
39 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
40 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
41 | ;N POP | |
42 | S FILE="H AC_HFS$:[S CR.TEMP_FI LES]"_FILE NM | |
43 | I UCI'="H AC" S FILE ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _$P(FILENM ,".")_UCI_ "."_$P(FIL ENM,".",2) | |
44 | ;S FILE=" HAC_HFS$:[ ARC.TEMP_F ILES]CMSFF I.DAT" O F ILE C FILE :"D" | |
45 | ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH to open fi le | |
46 | ;O FILE:" NWS":5 I ' $T Q | |
47 | ;SBB 07/3 0/15 DEF01 6554 | |
48 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
49 | I '$$OPEN FIWR^CHTFL IB9(.FILE, "FILE") X "D $SYSTEM .Process.S etZEOF(0)" Q | |
50 | U FILE W "SSN, G ender, DOB ",! | |
51 | S ^CHMZHO LD("ZSKDCM S_BENECOUN T",MMYY)=0 | |
52 | S DFN=0 | |
53 | F S DFN= $O(^AHCHVA (DFN)) Q:' DFN D | |
54 | .Q:'$D(^A HCHVA(DFN, 0)) | |
55 | .Q:$D(^AH CHVA("SB", DFN)) ;d on't inclu de SB bene | |
56 | .Q:$D(^AH CHVA("FMP" ,DFN)) ; don't incl ude FMP be ne | |
57 | .Q:$D(^AH CHVA("WV", DFN)) ;d on't inclu de CWVV be ne | |
58 | .;Q:$D(^A HADIC(5548 04.07,"B", SNAME)) ; CHK FOR DE LETED SPON SOR | |
59 | .S BFN=0, ERR=0 | |
60 | .F S BFN =$O(^AHCHV A(DFN,100, BFN)) Q:'B FN D | |
61 | ..Q:'$D(^ AHCHVA(DFN ,100,BFN,0 )) | |
62 | ..Q:$P($G (^AHCHVA(D FN,100,BFN ,0)),"^",5 )'="EA" | |
63 | ..S (BNAM E,BSSN,BSE X,BDOB,ERR )="" | |
64 | ..S BNAME =$P($G(^AH CHVA(DFN,1 00,BFN,0)) ,"^",1) Q: BNAME="" | |
65 | ..Q:BNAME ["(SN)" ;don't i nclude SN bene | |
66 | ..S BSSN= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",9) | |
67 | ..S BSSN= $$LTRIM^CH TFLIB(BSSN ) | |
68 | ..S BSSN= $$TRIM^CHT FLIB(BSSN) | |
69 | ..I BSSN' ?9N S ^CHM ZHOLD("ZSK DCMSFILE", "EXCEPTION ",BNAME,"S SN")="SSN = "_BSSN S ERR=1 | |
70 | ..I (BSSN '=""),$D(^ AHCHVA("C" ,BSSN)) Q ;don't i nclude if a sponsor ;;DEF01840 4-SBB-06/2 5/13 | |
71 | ..S BSEX= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",2) | |
72 | ..S BSEX= $TR(BSEX," abcdefghij klmnopqrst uvwxyz","A BCDEFGHIJK LMNOPQRSTU VWXYZ") | |
73 | ..I BSEX' ="M",BSEX' ="F" S ^CH MZHOLD("ZS KDCMSFILE" ,"EXCEPTIO N",BNAME," SEX")="Gen der = "_BS EX S ERR=1 | |
74 | ..S BDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3) | |
75 | ..I BDOB' ?7N S ^CHM ZHOLD("ZSK DCMSFILE", "EXCEPTION ",BNAME,"D OB")="DOB = "_BDOB S ERR=1 | |
76 | ..S BDOB= $$FMTE^XLF DT(BDOB,"5 D") ;m/d /yyyy form at | |
77 | ..S BDOB= $$CONVDT5( BDOB) ;mm/ dd/yyyy fo rmat | |
78 | ..I BDOB= "" S ^CHMZ HOLD("ZSKD CMSFILE"," EXCEPTION" ,BNAME,"DO B")="DOB = "_BDOB S ERR=1 | |
79 | ..Q:ERR | |
80 | ..;S CNT= CNT+1 | |
81 | ..U FILE W BSSN_"," _BSEX_","_ BDOB | |
82 | ..U FILE W ! | |
83 | ..S ^CHMZ HOLD("ZSKD CMS_BENECO UNT",MMYY) =$G(^CHMZH OLD("ZSKDC MS_BENECOU NT",MMYY)) +1 | |
84 | ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH to close file | |
85 | ;C FILE | |
86 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) | |
87 | ;SBB 07/3 0/15 DEF01 6554 | |
88 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
89 | ;DEF01655 4 SBB 11/2 6/13 - Co nverting f rom DECNET to FTP. | |
90 | D FTPFILE ^CHTFLIB9( FILE," DNS . DNS ","/CMS/HA CFINDERFIL ES","PUT") | |
91 | S ^CHMZHO LD("ZSKDCM S_LASTFNDR FILECT")=^ CHMZHOLD(" ZSKDCMS_BE NECOUNT",M MYY) | |
92 | S PMONTH= MMYY D EXC RPT,BENCOU NT | |
93 | K T,CNT,D FN,BFN,BSS N,BSEX,BDO B,FILE,MMY Y,BNAME,D1 ,M1,D,PMON TH | |
94 | Q | |
95 | ; | |
96 | CONVDT5(D) ;convert m/d/yyyy f ormat to m m/dd/yyyy format | |
97 | NEW D1,M1 | |
98 | I D="" Q "" | |
99 | S D1=$P(D ,"/",1) | |
100 | I D1="" Q "" | |
101 | I $L(D1)= 1 S D1="0" _D1 | |
102 | S M1=$P(D ,"/",2) | |
103 | I M1="" Q "" | |
104 | I $L(M1)= 1 S M1="0" _M1 | |
105 | Q D1_"/"_ M1_"/"_$P( D,"/",3) | |
106 | ; | |
107 | EXCRPT ;ge nerate an exception report for incorrect SSN,Sex,D OB data | |
108 | Q:'$D(^CH MZHOLD("ZS KDCMSFILE" ,"EXCEPTIO N")) | |
109 | S CHPG=0 | |
110 | S FILENM2 ="EXCEPTIO N_REPORT_" _MMYY_".DA T" | |
111 | ;DEF01655 4 SBB 11/2 6/13 - Co nverting f rom DECNET to FTP. | |
112 | ;S FILE2= "HACFS3""
|
|
113 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
114 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
115 | S FILE2=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM2 | |
116 | I UCI'="H AC" S FILE 2="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FILENM2 | |
117 | ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH to open fi le | |
118 | ;O FILE2: "NWS":5 I '$T Q | |
119 | ;SBB 07/3 0/15 DEF01 6554 | |
120 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
121 | I '$$OPEN FIWR^CHTFL IB9(.FILE2 ,"FILE2") X "D $SYST EM.Process .SetZEOF(0 )" Q | |
122 | D HEAD | |
123 | ;U FILE2 W ?10,"BEN E EXCEPTIO N REPORT F OR THE MON TH OF: "_$ G(PMONTH), !! | |
124 | U FILE2 W "The foll owing bene ficiaries have inval id or miss ing SSN, G ender or D OB: ",!! | |
125 | S BNAME=" " | |
126 | F S BNAM E=$O(^CHMZ HOLD("ZSKD CMSFILE"," EXCEPTION" ,BNAME)) Q :BNAME="" D | |
127 | .S ERR="" | |
128 | .F S ERR =$O(^CHMZH OLD("ZSKDC MSFILE","E XCEPTION", BNAME,ERR) ) Q:ERR="" D | |
129 | ..U FILE2 W BNAME,? 30,$G(^CHM ZHOLD("ZSK DCMSFILE", "EXCEPTION ",BNAME,ER R)),! | |
130 | ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH to close file | |
131 | ;C FILE2 | |
132 | D CLOSEF^ CHTFLIB9(F ILE2,"FILE 2") | |
133 | ;SBB 07/3 0/15 DEF01 6554 | |
134 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
135 | ;DEF01655 4 SBB 11/2 6/13 - Co nverting f rom DECNET to FTP. | |
136 | D FTPFILE ^CHTFLIB9( FILE2," DNS . DNS ","/CMS/HA CFINDERFIL ES","PUT") | |
137 | K FILENM2 ,FILE2,^CH MZHOLD("ZS KDCMSFILE" ,"EXCEPTIO N") | |
138 | Q | |
139 | ; | |
140 | HEAD ; | |
141 | I '$G(DUZ ) S DUZ=1 | |
142 | S TITLE=" Health Adm inistratio n Center" S TAB=((80 -$L(TITLE) )/2) | |
143 | S %H=$H D YX^%DTC S CHDATE=$P (Y,"@",1) | |
144 | U FILE2 W "DUZ: ",D UZ,?TAB,TI TLE,?68,CH DATE,! K T AB,TITLE | |
145 | U FILE2 W !,?25,"CM S Finder F ile Except ion Report ",!! | |
146 | Q | |
147 | ; | |
148 | BENCOUNT ; | |
149 | I '$G(DUZ ) S DUZ=1 | |
150 | I '$D(DT) D NOW^%DT C S DT=X K X | |
151 | S X=MMYY | |
152 | S %DT="M" D ^%DT S PMONTH=$$F MTE^XLFDT( Y,"1D") | |
153 | I PMONTH= -1 S PMONT H=$$FMTE^X LFDT(DT,"1 D") | |
154 | S FILENM= "CMSFILE_" _MMYY_"_BE NECOUNT.DA T" | |
155 | ;DEF01655 4 SBB 11/2 6/13 - Co nverting f rom DECNET to FTP. | |
156 | ;S FILE3= "HACFS3""
|
|
157 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
158 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
159 | S FILE3=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM | |
160 | I UCI'="H AC" S FILE 2="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FILENM | |
161 | ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH to open fi le | |
162 | ;O FILE3: "NWS":5 I '$T Q | |
163 | ;SBB 07/3 0/15 DEF01 6554 | |
164 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
165 | I '$$OPEN FIWR^CHTFL IB9(.FILE3 ,"FILE3") X "D $SYST EM.Process .SetZEOF(0 )" Q | |
166 | S TITLE=" Health Adm inistratio n Center" S TAB=((80 -$L(TITLE) )/2) | |
167 | S %H=$H D YX^%DTC S CHDATE=$P (Y,"@",1) | |
168 | U FILE3 W "DUZ: ",D UZ,?TAB,TI TLE,?68,CH DATE,! K T AB,TITLE | |
169 | U FILE3 W !!," CMS Finder Fil e BENE COU NT FOR "_P MONTH_" = "_$G(^CHMZ HOLD("ZSKD CMS_BENECO UNT",MMYY) ) | |
170 | ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH to close file | |
171 | ;C FILE3 | |
172 | D CLOSEF^ CHTFLIB9(F ILE3,"FILE 3") | |
173 | ;SBB 07/3 0/15 DEF01 6554 | |
174 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
175 | ;DEF01655 4 SBB 11/2 6/13 - Co nverting f rom DECNET to FTP. | |
176 | D FTPFILE ^CHTFLIB9( FILE3," DNS . DNS ","/CMS/HA CFINDERFIL ES","PUT") | |
177 | K FILENM, FILE3,TITL E,TAB,CHDA TE | |
178 | Q | |
179 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.