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 | CHMKAG5P.m | Mon Nov 5 16:40:35 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKAG5P.m | Mon Nov 5 17:48:34 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 388 |
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 | CHMKAG5P ; CVA/CR;AGI NG OF CLAI MS REPORT CALC/PRINT ;05/11/98 1:06 PM | |
2 | ;V1.0 | |
3 | ;DPT MTN0 16163 3/12 /13 ADD SX C/CATARAMA N, REMOVE ZZ IN GRP2 | |
4 | ;S CHBDT= 3020205 | |
5 | ;S CHEDT= 3020205 | |
6 | ;S MENUVA L="3^HAC S UMMARY^CHA MPVA,CITI, CFL,CVAF,C WVV,SB,FMP ^" | |
7 | K AGEARR | |
8 | D COMPILE | |
9 | D PRINT | |
10 | Q | |
11 | COMPILE S CHDT=(CHBD T\1)-.0001 | |
12 | S CHBBEG= "",CHBEND= "" | |
13 | S PRGMSTR =$P(MENUVA L,"^",3) | |
14 | S SUMFLG= +$P(MENUVA L,"^",4) | |
15 | F S CHDT =$O(^CHAGE ("C",CHDT) ) Q:CHDT\1 >CHEDT Q: 'CHDT D | |
16 | .S CHB=0 | |
17 | .F S CHB =$O(^CHAGE ("C",CHDT, CHB)) Q:'C HB D | |
18 | ..S:CHBBE G="" CHBBE G=CHB | |
19 | ..S CHBEN D=CHB | |
20 | ..F X=1:1 S PRGM=$P (PRGMSTR," ,",X) Q:PR GM="" D | |
21 | ...S PRGM 1=PRGM | |
22 | ...S:SUMF LG PRGM1=" SUMMARY" | |
23 | ...S GRP= "" | |
24 | ...F S G RP=$O(^CHA GE(CHB,PRG M,GRP)) Q: GRP="" D | |
25 | ....S CAT ="" | |
26 | ....F S CAT=$O(^CH AGE(CHB,PR GM,GRP,CAT )) Q:CAT=" " D | |
27 | .....S TI ME="" | |
28 | .....F S TIME=$O(^ CHAGE(CHB, PRGM,GRP,C AT,TIME)) Q:TIME="" D | |
29 | ......S C NT1=+$P(^C HAGE(CHB,P RGM,GRP,CA T,TIME),"^ ") | |
30 | ......S C NT2=+$P(^C HAGE(CHB,P RGM,GRP,CA T,TIME),"^ ",2) | |
31 | ......; D o not coun t time it time is 0 | |
32 | ......I T IME I TIME <CHLOW D | |
33 | .......S $P(AGEARR( PRGM1,GRP, CAT),"^",1 )=$P($G(AG EARR(PRGM1 ,GRP,CAT)) ,"^",1)+CN T1 | |
34 | .......S $P(AGEARR( PRGM1,GRP, CAT),"^",4 )=$P($G(AG EARR(PRGM1 ,GRP,CAT)) ,"^",4)+CN T2 | |
35 | .......S $P(AGEARR( PRGM1,GRP) ,"^",1)=$P ($G(AGEARR (PRGM1,GRP )),"^",1)+ CNT1 | |
36 | .......S $P(AGEARR( PRGM1,GRP) ,"^",4)=$P ($G(AGEARR (PRGM1,GRP )),"^",4)+ CNT2 | |
37 | ......; D o not coun t time it time is 0 | |
38 | ......I T IME I TIME <CHMID D ;TLH 6/5/0 7 DEV00027 1 | |
39 | .......S $P(AGEARR( PRGM1,GRP, CAT),"^",2 )=$P($G(AG EARR(PRGM1 ,GRP,CAT)) ,"^",2)+CN T1 ;TLH 6 /5/07 DEV0 00271 | |
40 | .......S $P(AGEARR( PRGM1,GRP, CAT),"^",5 )=$P($G(AG EARR(PRGM1 ,GRP,CAT)) ,"^",5)+CN T2 ;TLH 6 /5/07 DEV0 00271 | |
41 | .......S $P(AGEARR( PRGM1,GRP) ,"^",2)=$P ($G(AGEARR (PRGM1,GRP )),"^",2)+ CNT1 ;TLH 6/5/07 DE V000271 | |
42 | .......S $P(AGEARR( PRGM1,GRP) ,"^",5)=$P ($G(AGEARR (PRGM1,GRP )),"^",5)+ CNT2 ;TLH 6/5/07 DE V000271 | |
43 | ......; D o not coun t time it time is 0 | |
44 | ......I T IME I TIME <CHHIGH D | |
45 | .......S $P(AGEARR( PRGM1,GRP, CAT),"^",3 )=$P($G(AG EARR(PRGM1 ,GRP,CAT)) ,"^",3)+CN T1 | |
46 | .......S $P(AGEARR( PRGM1,GRP, CAT),"^",6 )=$P($G(AG EARR(PRGM1 ,GRP,CAT)) ,"^",6)+CN T2 | |
47 | .......S $P(AGEARR( PRGM1,GRP) ,"^",3)=$P ($G(AGEARR (PRGM1,GRP )),"^",3)+ CNT1 | |
48 | .......S $P(AGEARR( PRGM1,GRP) ,"^",6)=$P ($G(AGEARR (PRGM1,GRP )),"^",6)+ CNT2 | |
49 | ......S $ P(AGEARR(P RGM1,GRP,C AT),"^",7) =$P($G(AGE ARR(PRGM1, GRP,CAT)), "^",7)+CNT 1 | |
50 | ......S $ P(AGEARR(P RGM1,GRP,C AT),"^",8) =$P($G(AGE ARR(PRGM1, GRP,CAT)), "^",8)+(CN T1*TIME) | |
51 | ......S $ P(AGEARR(P RGM1,GRP,C AT),"^",9) =$P($G(AGE ARR(PRGM1, GRP,CAT)), "^",9)+(CN T2*TIME) | |
52 | ......S $ P(AGEARR(P RGM1,GRP), "^",7)=$P( $G(AGEARR( PRGM1,GRP) ),"^",7)+C NT1 | |
53 | ......S $ P(AGEARR(P RGM1,GRP), "^",8)=$P( $G(AGEARR( PRGM1,GRP) ),"^",8)+( CNT1*TIME) | |
54 | ......S $ P(AGEARR(P RGM1,GRP), "^",9)=$P( $G(AGEARR( PRGM1,GRP) ),"^",9)+( CNT2*TIME) | |
55 | Q | |
56 | PRINT ; | |
57 | N PC | |
58 | S PG=0 | |
59 | S PCNT=0 | |
60 | I SUMFLG F PRGM="SU MMARY" D P 1 | |
61 | Q:SUMFLG | |
62 | F PC=1:1 S PRGM=$P( PRGMSTR,", ",PC) Q:PR GM="" D | |
63 | .D P1 | |
64 | Q | |
65 | P1 ; | |
66 | ;S PCNT=P CNT+1 | |
67 | ;I PCNT>2 D HDR S P CNT=1 | |
68 | D HDR | |
69 | W ! | |
70 | W PRGM | |
71 | D GRP1 | |
72 | D GRP2 | |
73 | D GRP3 | |
74 | D GRP4 | |
75 | W ! | |
76 | Q | |
77 | GRP1 ; | |
78 | S GRP=1 | |
79 | S VAR="AG EARR(PRGM, GRP,CAT)" | |
80 | F CAT="PR OVIDER","B ENE","REJE CT" S CATN M=CAT D DE T | |
81 | D SUM | |
82 | Q | |
83 | GRP2 ; | |
84 | W ! | |
85 | S GRP=2 | |
86 | S VAR="AG EARR(PRGM, GRP,CAT)" | |
87 | F CAT="PA PER","EDI" ,"EDI RO", "OCR","CAT AMARAN" S CATNM=CAT D DET ;KM L user st ory 005-02 4a add EDI RO catego ry | |
88 | D SUM | |
89 | Q | |
90 | GRP3 ; | |
91 | W ! | |
92 | S GRP=3 | |
93 | S VAR="AG EARR(PRGM, GRP,CAT)" | |
94 | F CAT=1:1 :$P(^CHMDI C(741002.0 5,0),"^",4 ) D | |
95 | .S CATNM= $P(^CHMDIC (741002.05 ,CAT,0),"^ ",2) | |
96 | .D DET | |
97 | D SUM | |
98 | Q | |
99 | GRP4 ; | |
100 | W ! | |
101 | S GRP=4 | |
102 | S VAR="AG EARR(PRGM, GRP,CAT)" | |
103 | S (CAT,CA TNM)="Not Covered Sv c" D DET | |
104 | S (CAT,CA TNM)="Form dt < Svc" D DET | |
105 | S (CAT,CA TNM)="No D X/PX/NDC" D DET | |
106 | S (CAT,CA TNM)="Clm denied-oth " D DET | |
107 | S (CAT,CA TNM)="No O HI EOB" D DET | |
108 | S (CAT,CA TNM)="No C VA Clm for m" D DET | |
109 | S (CAT,CA TNM)="Clm not signed " D DET | |
110 | S (CAT,CA TNM)="Inel ig bene" D DET | |
111 | S (CAT,CA TNM)="No p re-auth" D DET | |
112 | S (CAT,CA TNM)="Clm miss info" D DET | |
113 | S (CAT,CA TNM)="Rej 0 Paid" D DET | |
114 | S (CAT,CA TNM)="No R sn Cat Id" D DET | |
115 | W ?8 F X= 1:1:15 W " -" | |
116 | W ! | |
117 | S (CAT,CA TNM)="Paid " D DET | |
118 | S (CAT,CA TNM)="0 Pa id w/ rsn" D DET | |
119 | S (CAT,CA TNM)="0 Pa id w/o rsn " D DET | |
120 | D SUM | |
121 | Q | |
122 | DET ; | |
123 | S (HAC14, HAC21,HAC3 0,AAC14,AA C21,AAC30, CLMTOT,HAC AVG,AACAVG )=0 | |
124 | S CLMTOT= +$P($G(@VA R),"^",7) ;TLH 6/5/ 07 DEV0002 71 | |
125 | I CLMTOT> 0 D | |
126 | .S HAC14= $P(@VAR,"^ ",1)/CLMTO T*100 ;TL H 6/5/07 D EV000271 | |
127 | .S HAC21= $P(@VAR,"^ ",2)/CLMTO T*100 ;TL H 6/5/07 D EV000271 | |
128 | .S HAC30= $P(@VAR,"^ ",3)/CLMTO T*100 ;TL H 6/5/07 D EV000271 | |
129 | .S AAC14= $P(@VAR,"^ ",4)/CLMTO T*100 ;TL H 6/5/07 D EV000271 | |
130 | .S AAC21= $P(@VAR,"^ ",5)/CLMTO T*100 ;TL H 6/5/07 D EV000271 | |
131 | .S AAC30= $P(@VAR,"^ ",6)/CLMTO T*100 ;TL H 6/5/07 D EV000271 | |
132 | .S HACAVG =$P(@VAR," ^",8)/CLMT OT ;TLH 6 /5/07 DEV0 00271 | |
133 | .S AACAVG =$P(@VAR," ^",9)/CLMT OT ;TLH 6 /5/07 DEV0 00271 | |
134 | W ?8,$E(C ATNM,1,15) | |
135 | W ?30,$J( HAC14,6,2) ;TLH 6/5 /07 DEV000 271 | |
136 | W ?40,$J( HAC21,6,2) ;TLH 6/6 /07 DEV000 271 | |
137 | W ?50,$J( HAC30,6,2) ;TLH 6/6 /07 DEV002 71 | |
138 | W ?65,$J( AAC14,6,2) ;TLH 6/6 /07 DEV000 271 | |
139 | W ?75,$J( AAC21,6,2) ;TLH 6/6 /07 DEV000 271 | |
140 | W ?85,$J( AAC30,6,2) ;TLH 6/6 /07 DEV000 271 | |
141 | W ?100,$J (HACAVG,6, 1) ;TLH 6 /6/07 DEV0 00271 | |
142 | W ?110,$J (AACAVG,6, 1) ;TLH 6 /6/07 DEV0 00271 | |
143 | W ?121,$J (CLMTOT,9) ;TLH 6/6 /07 DEV000 271 | |
144 | W ! | |
145 | Q | |
146 | SUM ; | |
147 | W ?8 | |
148 | F X=1:1:1 25 W "-" ;TLH 6/6/0 7 DEV00027 1 | |
149 | W ! | |
150 | S CATNM=" TOTAL" | |
151 | S VAR="AG EARR(PRGM, GRP)" | |
152 | D DET | |
153 | Q | |
154 | HDR ; | |
155 | W @IOF | |
156 | S TITLE=" HEALTH ADM INISTRATIO N CENTER" | |
157 | S TAB1=13 2-$L(TITLE )/2 ;TLH 6/6/07 DEV 000271 | |
158 | D NOW^%DT C S PG=PG+ 1,PAGE="Pa ge: "_PG | |
159 | W !,$$FMT E^XLFDT(X, "2D"),?TAB 1,TITLE,?1 22,PAGE ; TLH 6/6/07 DEV000271 | |
160 | W !,$E($P (%,".",2), 1,4),?53," Summary Ag ing of Cla ims" ;TLH 6/6/07 DE V000271 | |
161 | S TITLE2= $$FMTE^XLF DT(CHBDT,2 )_" - "_$$ FMTE^XLFDT (CHEDT\1,2 ) | |
162 | S TAB1=13 2-$L(TITLE 2)/2 ;TLH 6/6/07 DE V000271 | |
163 | W !,?TAB1 ,TITLE2 | |
164 | S TITLE2= "Batch: "_ CHBBEG_" - "_CHBEND | |
165 | S TAB1=13 2-$L(TITLE 2)/2 ;TLH 6/6/07 DE V000271 | |
166 | W !,?TAB1 ,TITLE2 | |
167 | I SUMFLG D | |
168 | .S TITLE3 =$P(MENUVA L,"^",2)_" ("_$P(MEN UVAL,"^",3 )_")" | |
169 | .S TAB1=1 32-$L(TITL E3)/2 ;TL H 6/6/07 D EV000271 | |
170 | .W !,?TAB 1,TITLE3 | |
171 | W !!,?40, "HAC % Und er",?72,"H AC/AAC % U nder",?105 ,"Avg Days " ;TLH 6/ 6/07 DEV00 0271 | |
172 | W ?124,"T otal",! ; TLH 6/6/07 DEV000271 | |
173 | W "Progra m",?10,"Ca tegory",?3 0,CHLOW_" Days",?40, CHMID_" Da ys",?50,CH HIGH_" Day s",?65,CHL OW_" Days" ;TLH 6/6 /07 DEV000 271 | |
174 | W ?75,CHM ID_" Days" ,?85,CHHIG H_" Days", ?103,"HAC" ,?110,"HAC /AAC",?124 ,"Claims", ! ;TLH 6/ 6/07 DEV00 0271 | |
175 | F X=1:1:1 32 W "-" ;TLH 6/6/0 7 DEV00027 1 | |
176 | Q | |
177 | ; | |
178 | EDIRO(BATC H) ; user stories 00 5-024a1, 0 05-024b1 | |
179 | ; input - BATCH - b atch # ass igned at t he 1st sub script of ^CHAGE | |
180 | ; structu re of ^CHA GE = ^CHAG E(Batch#,P rogram,Sub missionTyp e,Sequence #) | |
181 | ; Batch# | |
182 | ; Program - CHAMPVA or SB (sp ina bifuda ) | |
183 | ; Submiss ion Type - 1, 2, 3, or 4 | |
184 | ; Sequenc e# | |
185 | ; the 3rd subscript represent s submissi on type an d so for " EDI" | |
186 | ; the CHA MPVA Progr am and Sp ina Bifuda program | |
187 | ; is alwa ys built w ith 2 subs cript in C HBPAGE rou tine | |
188 | ; note: the origin al version of the CH AGE global was backe d up via ^ %GO before this proc edure was executed | |
189 | ; back up re sides at C HAMPVA_USE R:[
|
|
190 | N Y,PGM | |
191 | S Y=0 | |
192 | F S BATC H=$O(^CHAG E(BATCH)) Q:'BATCH F PGM="CHA MPVA","SB" S Y=$O(^C HAGE(BATCH ,PGM,2,"ED I",Y)) Q:' Y D | |
193 | . S ^CHAG E(BATCH,PG M,2,"EDI R O",Y)=^CHA GE(BATCH,P GM,2,"EDI" ,Y) | |
194 | . K ^CHAG E(BATCH,PG M,2,"EDI", Y) ; remov e so it do esn't get counted tw ice | |
195 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.