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 | CHCMSFFM.m | Mon Nov 5 16:43:04 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHCMSFFM.m | Tue Nov 6 22:09:01 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 240 |
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 | CHCMSFFM ; HAC/SKD; G enerate th e monthly finder fil e to be se nt to the CMS ;1-8-0 8 3:23 PM | |
2 | ;;V1.0 | |
3 | ;;new rou tine per D EV000123-0 3, skd 1-8 -08 | |
4 | ;;DEF0165 54, SBB, 0 7/30/15 - Adding cha nges for D ECNET | |
5 | ;; | |
6 | ;;Jan and Jul finde r files wi ll list al l CHAMPVA eligible b enes ($P(^ AHCHVA(DFN ,100,BFN,0 ),"^",5)=" EA") | |
7 | ;;Any oth er month's finder fi le will li st only ne w CHAMPVA eligible b enes for t he prior m onth. | |
8 | ;; | |
9 | ;;******* **Finder f ile format ********** ********** | |
10 | ;;SSN fin der file m ust be in CSV (ASCII comma del imited) fo rmat | |
11 | ;;1st lin e: SSN, Ge nder, DOB | |
12 | ;;2nd lin e and beyo nd: | |
13 | ;;;SSN: 9 digit | |
14 | ;;;Gender : ?M? or ? 1? = male, ?F? or ?2 ? = female and ?0? = unknown | |
15 | ;;;DOB: m m/dd/yyyy | |
16 | ;;A carri age return must end each line. | |
17 | ;;******* ********** ********** ********** ********** * | |
18 | ;; | |
19 | D INIT | |
20 | ; | |
21 | QUE S CHFI O="",ZTDTH =$H,ZTIO=" " | |
22 | S ZTRTN=" MAIN^CHCMS FFM",ZTDES C="CMS Mon thly Finde r File Gen eration fo r "_MMYY | |
23 | S ZTSAVE( "CHFIO")=" ",ZTSAVE(" MMYY")="", ZTSAVE("BE GDT")="",Z TSAVE("END DT")="",ZT SAVE("YY") ="" | |
24 | S ZTSAVE( "MM")="",Z TSAVE("DUZ ")="",ZTSA VE("PMM")= "" | |
25 | D ^%ZTLOA D | |
26 | END Q | |
27 | ; | |
28 | MAIN ; | |
29 | K ^CHMZHO LD("ZSKDCM SFILE") | |
30 | I PMM="01 "!(PMM="07 ") D GETAL LEA^CHCMSF FI | |
31 | E D GETM ONTH | |
32 | ;DEF01655 4-11/26/13 -SBB usein g CLOSE^%Z ISH to clo se file. T his close not needed . | |
33 | ;C FILE | |
34 | K YY,MM,P MM,BEGDT,E NDDT,DFN,B FN,B500K,B SSN,BSEX,B DOB,BLTRDT ,BLTRTY,CH CCLA43,CHE XIST,FILE | |
35 | K ^CHMZHO LD("ZSKDCM SFILE","EX CEPTION") | |
36 | Q | |
37 | ; | |
38 | GETMONTH ; | |
39 | I '$D(MMY Y)!(MMYY=" ") D INIT | |
40 | K ^CHMZHO LD("ZSKDCM S_BENECOUN T",MMYY) | |
41 | S U="^" | |
42 | S FILENM= "CMSFILE_" _MMYY_".DA T" | |
43 | ;DEF01655 4 SBB 11/2 6/13 - Co nverting f rom DECNET to FTP. | |
44 | ;S FILE=" HACFS3""
|
|
45 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
46 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
47 | S FILE="H AC_HFS$:[S CR.TEMP_FI LES]"_FILE NM | |
48 | I UCI'="H AC" S FILE ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FILENM | |
49 | ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH to open fi le | |
50 | ;O FILE:" NWS":5 I ' $T Q | |
51 | ;SBB 07/3 0/15 DEF01 6554 | |
52 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
53 | I '$$OPEN FIWR^CHTFL IB9(.FILE, "FILE") X "D $SYSTEM .Process.S etZEOF(0)" Q | |
54 | U FILE W "SSN, G ender, DOB ",! | |
55 | S ^CHMZHO LD("ZSKDCM S_BENECOUN T",MMYY)=0 | |
56 | S DFN=0 | |
57 | F S DFN= $O(^AHCHVA (DFN)) Q:' DFN D | |
58 | .Q:'$D(^A HCHVA(DFN, 0)) | |
59 | .Q:$D(^AH CHVA("SB", DFN)) ;d on't inclu de SB bene | |
60 | .Q:$D(^AH CHVA("FMP" ,DFN)) ; don't incl ude FMP be ne | |
61 | .Q:$D(^AH CHVA("WV", DFN)) ;d on't inclu de CWVV be ne | |
62 | .S BFN=0 | |
63 | .F S BFN =$O(^AHCHV A(DFN,100, BFN)) Q:'B FN D | |
64 | ..Q:'$D(^ AHCHVA(DFN ,100,BFN,0 )) | |
65 | ..Q:$P($G (^AHCHVA(D FN,100,BFN ,0)),"^",5 )'="EA" | |
66 | ..S (BNAM E,BSSN,BSE X,BDOB,BLT RDT,ERR)=" " | |
67 | ..S CHEXI ST=0 | |
68 | ..S B500K ="" | |
69 | ..F S B5 00K=$O(^AH CHVA(DFN,1 00,BFN,500 ,B500K)) Q :'B500K Q :CHEXIST D | |
70 | ...Q:'$D( ^AHCHVA(DF N,100,BFN, 500,B500K, 0)) | |
71 | ...S BLTR DT=$P($G(^ AHCHVA(DFN ,100,BFN,5 00,B500K,0 )),"^",1) | |
72 | ...Q:BLTR DT<BEGDT | |
73 | ...Q:BLTR DT>ENDDT | |
74 | ...S BLTR TY="",BLTR TY=$P($G(^ AHCHVA(DFN ,100,BFN,5 00,B500K,0 )),"^",2) Q:'BLTRTY | |
75 | ...S CHCC LA43=0,CHC CLA43=$O(^ AHADIC(554 801.1,"B", "CCL-A43 N ew Eligibl e",CHCCLA4 3)) Q:'CHC CLA43 | |
76 | ...I BLTR TY=CHCCLA4 3 S CHEXIS T=1 | |
77 | ..Q:'CHEX IST | |
78 | ..S BNAME =$P($G(^AH CHVA(DFN,1 00,BFN,0)) ,"^",1) Q: BNAME="" | |
79 | ..Q:BNAME ["(SN)" ;don't i nclude SN bene | |
80 | ..S BSSN= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",9) | |
81 | ..S BSSN= $$LTRIM^CH TFLIB(BSSN ) | |
82 | ..S BSSN= $$TRIM^CHT FLIB(BSSN) | |
83 | ..Q:$D(^A HCHVA("C", BSSN)) ;don't inc lude if a sponsor | |
84 | ..I BSSN' ?9N S ^CHM ZHOLD("ZSK DCMSFILE", "EXCEPTION ",BNAME,"S SN")="SSN = "_BSSN S ERR=1 | |
85 | ..S BSEX= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",2) | |
86 | ..S BSEX= $TR(BSEX," abcdefghij klmnopqrst uvwxyz","A BCDEFGHIJK LMNOPQRSTU VWXYZ") | |
87 | ..I BSEX' ="M",BSEX' ="F" S ^CH MZHOLD("ZS KDCMSFILE" ,"EXCEPTIO N",BNAME," SEX")="Gen der = "_BS EX S ERR=1 | |
88 | ..S BDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3) | |
89 | ..I BDOB' ?7N S ^CHM ZHOLD("ZSK DCMSFILE", "EXCEPTION ",BNAME,"D OB")="DOB = "_BDOB S ERR=1 | |
90 | ..S BDOB= $$FMTE^XLF DT(BDOB,"5 D") ;m/d /yyyy form at | |
91 | ..S BDOB= $$CONVDT5^ CHCMSFFI(B DOB) ;mm/d d/yyyy for mat | |
92 | ..Q:BDOB= "" | |
93 | ..Q:ERR | |
94 | ..U FILE W BSSN_"," _BSEX_","_ BDOB | |
95 | ..U FILE W ! | |
96 | ..S ^CHMZ HOLD("ZSKD CMS_BENECO UNT",MMYY) =$G(^CHMZH OLD("ZSKDC MS_BENECOU NT",MMYY)) +1 | |
97 | ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH to close file | |
98 | ;C FILE | |
99 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) | |
100 | ;SBB 07/3 0/15 DEF01 6554 | |
101 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
102 | ;DEF01655 4 SBB 11/2 6/13 - Co nverting f rom DECNET to FTP. | |
103 | D FTPFILE ^CHTFLIB9( FILE," DNS . DNS ","/CMS/HA CFINDERFIL ES","PUT") | |
104 | S ^CHMZHO LD("ZSKDCM S_LASTFNDR FILECT")=^ CHMZHOLD(" ZSKDCMS_BE NECOUNT",M MYY) | |
105 | ;generate an except ion report for incor rect SSN,S ex,DOB dat a | |
106 | D EXCRPT^ CHCMSFFI,B ENCOUNT^CH CMSFFI | |
107 | K ^CHMZHO LD("ZSKDCM SFILE","EX CEPTION") | |
108 | Q | |
109 | ; | |
110 | INIT ; | |
111 | I '$D(DUZ ) S DUZ=1 | |
112 | I '$D(DT) D NOW^%DT C S DT=X | |
113 | S (YY,MM, PMM,BEGDT, ENDDT)="" | |
114 | S YY=$E(D T,1,3),MM= $E(DT,4,5) | |
115 | I MM="01" S YY=YY-1 | |
116 | S PMM=$S( MM="01":"1 2",MM="02" :"01",MM=" 03":"02",M M="04":"03 ",MM="05": "04",MM="0 6":"05",MM ="07":"06" ,MM="08":" 07",MM="09 ":"08",MM= "10":"09", MM="11":"1 0",MM="12" :"11",1:"" ) | |
117 | Q:PMM="" | |
118 | S BEGDT=Y Y_PMM_"00" | |
119 | S ENDDT=Y Y_PMM_"32" | |
120 | S MMYY=PM M_$E(YY,2, 3) | |
121 | Q | |
122 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.