Produced by Araxis Merge on 11/9/2018 12:34:00 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 | CHMKOHIP.m | Mon Nov 5 16:41:35 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKOHIP.m | Mon Nov 5 17:49:09 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 322 |
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 | CHMKOHIP ; HAC/AHJ;PU LL OHI DAT A FOR AUDI T REPORT | |
2 | ;;V1.0 | |
3 | ; | |
4 | ;DEV01289 3 1/17/201 4 DGC - MO DIFY DECEN T WRITE | |
5 | ;MTN02426 5 09/23/15 SBB - Fix the DECNE T routines that have a typo | |
6 | ; | |
7 | ;SEARCH B ENE FILE, PULL CLAIM S | |
8 | ;OUTPUT T O TEXT FIL E with TOD AYS DATE | |
9 | S U="^" | |
10 | CHAMPVA ; | |
11 | S (AGE18, CNT109,TOT DFN,TOTCNT ,NOCLM,NOC CNT,SBCNT, CNT,PCNT,N OAECNT,YAE CNT)=0 | |
12 | S (NOZIPC NT,ICNT,DF NCNT,TOTDF N1,BICNT,B CNT,FMPCNT ,YES18CNT, NO18CNT)=0 | |
13 | S (SPONCN T,DIAGCD,P ROCCD,NDCC ODE,DESC)= 0 | |
14 | S SWYESCL M=0 | |
15 | S T=$C(9) | |
16 | K ^CHMZHO LD("CHMKOH IP-1026") | |
17 | S PG=1 | |
18 | S DFN=0,U ="^" | |
19 | D NOW^%DT C S RUNTIM E=% | |
20 | S Y=$E(RU NTIME,1,7) | |
21 | S FILEDAT =$$FMTE^XL FDT(Y,"5D" ) | |
22 | S ALLDAT= $E(FILEDAT ,1,2)_$E(F ILEDAT,4,5 )_$E(FILED AT,7,10) | |
23 | ;-------- -----INPAT IENT OHI C LAIMS 11/1 /06 - 12/1 5/06 -- DG C 1/17/201 4 DEV01289 3 - BEGIN | |
24 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]INPATIENT _OHI_CLIAM S"_ALLDAT_ ".TXT" | |
25 | ;O FIO C FIO:"D" | |
26 | ;O FIO:"N WS" | |
27 | X ^%ZOSF("UC I") S UCI= $P(Y,",",1 ) | |
28 | X "D $SYSTEM .Process.S etZEOF(1)" ;DGC 7/30 /2015 DEV0 12893 | |
29 | S FILENM2="I NPATIENT_O HI_CLIAMS" _ALLDAT_". TXT" | |
30 | S FIO="HAC_H FS$:[SCR.T EMP_FILES] "_FILENM2 | |
31 | I UCI'="HAC" S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]"_FIL ENM2 | |
32 | I '$$OPENFIW R^CHTFLIB9 (.FIO,"FIO ") X "D $S YSTEM.Proc ess.SetZEO F(0)" Q ;D GC 7/30/20 15 DEV0128 93 | |
33 | ;D GC 1/17/20 14 DEV0128 93 - END | |
34 | ; | |
35 | A1 ; | |
36 | ;FIND TOD AYS DATE F OR AGE TES T | |
37 | D NOW^%DT C S RUNTIM E=% | |
38 | S Y=$E(RU NTIME,1,7) | |
39 | S CHDATE= Y | |
40 | ; 18 MO NTHS | |
41 | S X1=CHDA TE S X2=-5 48 D C^%DT C S STRDAT =X | |
42 | ; STRDAT = Start D ate | |
43 | ; CHDATE = Todays Date | |
44 | S TODAY=C HDATE | |
45 | S DAT18=S TRDAT | |
46 | ; | |
47 | ;S DFN=10 427 | |
48 | D HEADA,G ETDFN,END | |
49 | ;D GETDFN ,END | |
50 | Q | |
51 | ; ALL ELI GIBLE/ACTI VE BENE'S ON TODAY | |
52 | ;******** ********** ********** ********** ********** ***** | |
53 | ; CHAMPVA BENE FILE | |
54 | GETDFN S D FN=$O(^AHC HVA(DFN)) Q:'DFN | |
55 | S TOTDFN= TOTDFN+1 | |
56 | G:$D(^AHC HVA("FMP", DFN)) GETD FN | |
57 | ;G:'$D(^A HCHVA(DFN, 100)) GETD FN | |
58 | S TOTDFN1 =TOTDFN1+1 | |
59 | S BFN=0 | |
60 | GETBFN S B FN=$O(^AHC HVA(DFN,10 0,BFN)) G: 'BFN NODFN 100 | |
61 | S BICNT=B ICNT+1 | |
62 | ; ELIMINA TE SPINA B IFIDA | |
63 | G:$D(^AHC HVA("SB",D FN,BFN)) S B | |
64 | ; | |
65 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETDFN | |
66 | ; | |
67 | CLAIMS ;FI ND LAST CL AIM DATE F IRST- IF L AST CLAIM OLDER 3061 101 THEN G O TO NEXT BENE | |
68 | ;THIS IS TO SPEED U P PROCESS ONLY | |
69 | L32 S CHDF NI=$O(^CHM DFN("B",DF N,0)) G GE TDFN:'CHDF NI | |
70 | ; | |
71 | S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G GETD FN:'CHDFNJ | |
72 | S CHDFNK= 99999999 | |
73 | ; | |
74 | LOOP2 ; | |
75 | S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ,-1) G:'CH DFNK NOCLM | |
76 | ; | |
77 | G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N2 | |
78 | G L32 | |
79 | MAIN2 ; | |
80 | S CI=^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0) | |
81 | G LOOP2:' $D(^CHMPAY (CI,0)) | |
82 | ; | |
83 | ;CONVERT PDI TO CLA IM FILED D ATE | |
84 | S PDIJ="" | |
85 | S PDIJ=$O (^CHMPAY(C I,"PDI","B ",PDIJ),-1 ) | |
86 | G:PDIJ="" LOOP2 | |
87 | S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ) | |
88 | ; | |
89 | G:TFMDT<3 061101 GET BFN ;NO CL AIMS LESS THAN OCT 1 , 2004 | |
90 | ; | |
91 | ;NEED TO FIND CLAIM S FROM FIR ST CLAIM D ATE TO TOD AY FOR THI S BENE | |
92 | S YAECNT= YAECNT+1 | |
93 | L322 S CHD FNI=$O(^CH MDFN("B",D FN,0)) G G ETDFN:'CHD FNI | |
94 | ; | |
95 | S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G GETD FN:'CHDFNJ | |
96 | S CHDFNK= 0 ;START A T FRONT | |
97 | LOOP22 ; | |
98 | S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ) G:'CHDFN K GETBFN | |
99 | G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N22 | |
100 | G L322 | |
101 | MAIN22 ; | |
102 | S CI=^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0) | |
103 | G LOOP22: '$D(^CHMPA Y(CI,0)) | |
104 | ;CONVERT PDI TO CLA IM FILED D ATE | |
105 | S PDIJ="" | |
106 | S PDIJ=$O (^CHMPAY(C I,"PDI","B ",PDIJ),-1 ) | |
107 | G:PDIJ="" LOOP22 | |
108 | S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ) | |
109 | G:TFMDT<3 061101 LOO P22 ;NO CL AIMS LESS THAN OCT 1 , 2004 | |
110 | G:TFMDT>3 061215 LOO P22 ;REST OF CLAIMS ARE OVER J AN 1, 2006 | |
111 | CLAIMDAT ; | |
112 | S TYPE=$P (^CHMPAY(C I,0),U,7) | |
113 | I TYPE'=1 G LOOP22 ;WANT ONLY INPATIENT CLAIMS | |
114 | S STATUS= $P(^CHMPAY (CI,0),"^" ,2) | |
115 | I STATUS' =4 G LOOP2 2 ; WANT O NLY COMPLE TED CLAIMS | |
116 | I $D(^CHM PAY(CI,"CO MMON")) S COMMON=$G( ^CHMPAY(CI ,"COMMON") ) | |
117 | S CALCMET D=$P(COMMO N,U,16) | |
118 | I CALCMET D=0 G JUMP ;PPS | |
119 | I CALCMET D=1 G JUMP ;CTC | |
120 | G LOOP22 | |
121 | JUMP ; | |
122 | S OHIPATA M=$P(^CHMP AY(CI,1),U ,29) | |
123 | I OHIPATA M=0 G LOOP 22 | |
124 | I OHIPATA M="" G LOO P22 | |
125 | ACCEPT ; | |
126 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETDFN | |
127 | S BENE0=^ AHCHVA(DFN ,100,BFN,0 ) | |
128 | S BNAME=$ P(BENE0,U, 1) | |
129 | S Y=TFMDT D DD^%DT S TFMDT=Y | |
130 | S VALUE=O HIPATAM | |
131 | S AMOUNT= $J(VALUE,8 ,2) | |
132 | S OHITEMP =TFMDT_T_C I_T_$J(BNA ME,30)_T_A MOUNT_T | |
133 | U FIO W O HITEMP,! | |
134 | S ^CHMZHO LD("CHMKOH IP-1026",D FN,BFN,CI) =TFMDT_U_C I_U_BNAME_ U_AMOUNT_U | |
135 | G LOOP22 | |
136 | HEADA ; | |
137 | U FIO W ! ," INPATIE NT OHI CLA IMS REPORT "_FILEDAT | |
138 | U FIO W ! | |
139 | U FIO W ! ,"PDI Date "_T_"Claim #"_T_" Bene N ame"_T_" Bene Responsib le Amt" | |
140 | U FIO W ! | |
141 | Q | |
142 | NODFN100 ; | |
143 | S DFNCNT= DFNCNT+1 | |
144 | G GETDFN | |
145 | SB ; | |
146 | ;W !,"SB= ",DFN," " ,BFN | |
147 | S SBCNT=S BCNT+1 | |
148 | S ^CHMZHO LD("SB794" ,DFN,BFN)= "" | |
149 | G GETBFN | |
150 | NOCLM ; | |
151 | S NOCLM=N OCLM+1 | |
152 | S ^CHMZHO LD("NOCLAI M794",DFN, BFN)="" | |
153 | G GETBFN | |
154 | END ;DGC 1 /17/2014 D EV012893 - BEGIN | |
155 | ;C FIO | |
156 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
157 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
158 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") | |
159 | ;DGC 1/17 /2014 DEV0 12893 - EN D | |
160 | K BFN,CHD ATE,CHDFNI ,CHDFNJ,CH DFNK,DFN,F IO | |
161 | K PCNT,PD IJ,PG,RUNT IME,STRDAT ,T,TFMDT,T MPS,U | |
162 | ; | |
163 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.