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 | CHMKCCA.m | Mon Nov 5 16:39:03 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKCCA.m | Mon Nov 5 17:48:40 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 464 |
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 | CHMKCCA ;H AC/JAK; Al l Claims R eport ;11/ 23/2009 | |
2 | ;;1.0;CHA MPVA SYSTE M;;January 20, 2010; Build 1 | |
3 | ;; | |
4 | START ; | |
5 | K ACR1,^C HMZHOLD($J ,"ACR") | |
6 | S:'$D(DUZ ) DUZ=1,DU Z(0)="" ; duz init alizer | |
7 | D NOW^%DT C S TODAY= X,TIME=$P( %,".",2) ; date in itializer | |
8 | S ICODE=0 ,VWOPT="" | |
9 | D PTYPE | |
10 | I PFLG=1 D | |
11 | .I "Pp "[VWOPT W !!!,"Pleas e select a wide prin ter.",! D PTSK | |
12 | .I "Ff"[V WOPT D FTS K | |
13 | Q | |
14 | PTSK ; que ueing prin ting task using Task man | |
15 | S %ZIS="N Q",IOP="Q" D ^%ZIS G :POP END | |
16 | I ION'["/ W" W !!,"T HIS REPORT REQUIRES A WIDE PRI NTER SELEC TION." G P TSK ;CHV DEV$PRT/W | |
17 | I $D(I O("Q")) D Q ;Queued print cho sen | |
18 | .S ZUS R=DUZ,ZTDE SC="ALL CL AIMS REPOR T" | |
19 | .S ZTS AVE("CHFIO ")=ION,ZTR TN="GTCLMS ^CHMKCCA" | |
20 | .S ZTS AVE("*")=" " | |
21 | .D ^%Z TLOAD | |
22 | .D HOM E^%ZIS | |
23 | .Q | |
24 | FTSK ; cre ating file for the s erver FS3B IG | |
25 | S ION="" | |
26 | X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) | |
27 | S FILE="A llClaimsRe port_"_DUZ _"_"_$E(TO DAY,2,7)_" _"_TIME_". xls" | |
28 | I CHUCI=" HAC" D | |
29 | .S ACR1=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .REPORTS.A LL_CLAIMS] "_FILE | |
30 | .W !,"DAT A WILL BE WRITTEN TO [FS3BIG\R EPORTS\ALL _CLAIMS] " _FILE | |
31 | E D | |
32 | .S ACR1=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .REPORTS.A LL_CLAIMS] "_"TEST_"_ FILE | |
33 | .W !,"THI S TEST DAT A WILL BE WRITTEN TO [FS3BIG\R EPORTS\ALL _CLAIMS] " _"TEST_"_F ILE | |
34 | S CHFI O="" | |
35 | S ZTRTN=" GTCLMS^CHM KCCA",ZTDE SC="ALL CL AIMS REPOR T" | |
36 | S ZTDTH=$ H S ZTIO=" " | |
37 | S ZTSAVE( "ACR1")="" ,ZTSAVE("C HFIO")="", ZTSAVE("*" )="" | |
38 | D ^%ZT LOAD | |
39 | ;D GTCLMS ^CHMKCCA ; FOR TES TING/DEBUG GER | |
40 | D HOME^%Z IS | |
41 | Q | |
42 | GTCLMS ;ge t claims f iltered fo r report | |
43 | D INIT | |
44 | S PDI=STR PDI F S P DI=$O(^CHM IMAGE("B", PDI)) Q:'P DI!(PDI>TD YPDI) D | |
45 | .S I=0 S I=$O(^CHMP AY("C",PDI ,I)) Q:'I Q:'$D(^CH MPAY(I,0)) | |
46 | .S X1= I D PROGTY P^CHFCD001 ; program type | |
47 | .S SVT=$P (^CHMPAY(I ,0),"^",7) ; typ e of claim | |
48 | .S STT=$P (^CHMPAY(I ,0),"^",2) ; cla im status | |
49 | .S STA RT=$P(^CHM PAY(I,0)," ^",8) ; start date | |
50 | .I (SVT=1 ) D | |
51 | ..S STOP= $P(^CHMPAY (I,"INP"), "^",1) | |
52 | .E D | |
53 | ..S STOP= "" | |
54 | .I (PT YP=CHPGPT! ((PTYP="AL L")&(AP[CH PGPT_",")) ) D ; re quired fie ld | |
55 | ..S PR OGRAM=$S(C HPGPT=1:"C HAMPVA",CH PGPT=3:"FO REIGN",CHP GPT=5:"NON -VA",CHPGP T=6:"SPINA ",CHPGPT=7 :"CWVV") | |
56 | ..I (S VTYP=SVT!( SVTYP="ALL ")) D ; required f ield | |
57 | ...S SERV ICE=$S(SVT =1:"IPT",S VT=2:"OPT" ,SVT=3:"RX T",SVT=4:" DME",SVT=5 :"DNT",SVT =6:"TRV") | |
58 | ...I ( STTYP=STT! (STTYP="AL L")) D ; optional fields | |
59 | ....S STATUS=$S( STT=0:"REJ ECTED",STT =1:"IN PRO G",STT=2:" PAY REQ",S TT=3:"EOB REQ",STT=4 :"COMPLETE ",STT=5:"A DJUCATD",S TT=6:"PAY REJ",STT=7 :"ADM SUSP ",STT=8:"P Y APRVD",S TT=9:"MANU AL",STT=10 :"DELETED" ,1:"") | |
60 | ....I (SV T'=1&(ISDT <=START&(S TART<=IEDT ))!(SVT=1& ((ISDT<=ST ART&(START <=IEDT))!( ISDT<=STOP &(STOP<=IE DT))))) D | |
61 | .....D RJ ECT | |
62 | .....I RE JECT'="" D | |
63 | ...... S RCLMNO=$ P(^CHMPAY( I,0),"^",1 ) ; clai m number | |
64 | ......S S PONN=$P(^A HCHVA($P(^ CHMPAY(I,0 ),"^",21), 0),"^",1) ; sponso r name | |
65 | ......S B ENEN=$P(^A HCHVA($P(^ CHMPAY(I,0 ),"^",21), 100,$P(^CH MPAY(I,0), "^",22),0) ,"^",1) ; bene nam e | |
66 | ......D P RCD | |
67 | D CRFILES | |
68 | D END | |
69 | Q | |
70 | RJECT ;; Obtain err or codes | |
71 | S REJECT= "" | |
72 | I ICOD E'=1 D | |
73 | .K IRE JCD | |
74 | .I $P( ^CHMPAY(I, 0),"^",13) '="" D | |
75 | ..S EF LG=1 | |
76 | ..F IM=0: 1:$L(INFMS G,",") Q:E FLG=0 D | |
77 | ...I $P(I NFMSG,",", IM)=$P(^CH MPAY(I,0), "^",13) D S EFLG=0 | |
78 | ...E D S EFLG=1 | |
79 | ...I E FLG=1 D S IREJCD($P (^CHMPAY(I ,0),"^",13 ))="" | |
80 | .S J=0 F S J=$O (^CHMPAY(I ,4,J)) Q:' J D | |
81 | ..I $P (^CHMPAY(I ,4,J,0),"^ ",1)'="" D | |
82 | ...S E FLG=1 | |
83 | ...F I M=0:1:$L(I NFMSG,",") Q:EFLG=0 D | |
84 | ....I $P(INFMSG, ",",IM)=$P (^CHMPAY(I ,4,J,0),"^ ",1) D S EFLG=0 | |
85 | ....E D S EFLG =1 | |
86 | ...I E FLG=1 D S IREJCD($P (^CHMPAY(I ,4,J,0),"^ ",1))="" | |
87 | ; put in order a nd ensure reject cod e matches record | |
88 | S E=0 F S E=$O(IRE JCD(E)) Q: 'E D | |
89 | .S J=0 F S J=$O(^C HMPAY(I,4, J)) Q:'J D | |
90 | ..I (E=($ P(^CHMPAY( I,4,J,0)," ^",1)))!(E =$P(^CHMPA Y(I,0),"^" ,13)) D | |
91 | ...I $P(R EJECT,",", $L(REJECT, ",")-1)'=E D ; rem ove duplic ate reject s | |
92 | ....S REJ ECT=REJECT _E_"," | |
93 | S REJECT= $E(REJECT, 1,$L(REJEC T)-1) ; r emove fina l comma | |
94 | Q | |
95 | PRCD ; pop ulate hold area | |
96 | ;; increm ent counte r for CHMZ HOLD refer ence purpo ses | |
97 | S ACRCTR= ACRCTR+1 | |
98 | S ^CHM ZHOLD($J," ACR",I)=RC LMNO_"^"_P DI_"^"_STA RT_"^"_STO P_"^"_BENE N_"^"_SPON N_"^"_PROG RAM_"^"_ST ATUS_"^"_S ERVICE_"^" _REJECT | |
99 | Q | |
100 | CRFILES ; create out put for pr int or scr een | |
101 | S T=$C(9) ;; TAB DE LIMITED | |
102 | D HSBH ; print h eadings | |
103 | I ACRC TR>0 D | |
104 | .S C=0 F S C=$O (^CHMZHOLD ($J,"ACR", C)) Q:'C D | |
105 | ..S DA TA=^CHMZHO LD($J,"ACR ",C) | |
106 | ..S CN =$P(DATA," ^",1) | |
107 | ..S PD =$P(DATA," ^",2) | |
108 | ..S SR =$P(DATA," ^",3) | |
109 | ..S ST =$P(DATA," ^",4) | |
110 | ..S BE =$P(DATA," ^",5) | |
111 | ..S SP =$P(DATA," ^",6) | |
112 | ..S PR =$P(DATA," ^",7) | |
113 | ..S SU =$P(DATA," ^",8) | |
114 | ..S SV =$P(DATA," ^",9) | |
115 | ..S RJ =$P(DATA," ^",10) | |
116 | ..I "F f"[VWOPT D | |
117 | ...I S T="" D | |
118 | ....U ACR1 W !,C N,T,PD,T,$ $FMTE^XLFD T(SR,"5D") ,T,BE,T,SP ,T,PR,T,SU ,T,SV,T,RJ | |
119 | ...E D | |
120 | ....U ACR1 W !,C N,T,PD,T,$ $FMTE^XLFD T(SR,"5D") ,"-",$$FMT E^XLFDT(ST ,"5D"),T,B E,T,SP,T,P R,T,SU,T,S V,T,RJ | |
121 | ..E D | |
122 | ...D:L INENUM>=59 HSBH | |
123 | ...I S T="" D | |
124 | ....W !,CN,?9,PD ,?26,$$FMT E^XLFDT(SR ,"5D"),?50 ,$E(BE,1,1 8),?70,$E( SP,1,18),? 88,PR,?97, SU,?107,SV ,?114,RJ | |
125 | ...E D | |
126 | ....W !,CN,?9,PD ,?26,$$FMT E^XLFDT(SR ,"5D"),"-" ,$$FMTE^XL FDT(ST,"5D "),?50,$E( BE,1,18),? 70,$E(SP,1 ,18),?88,P R,?97,SU,? 107,SV,?11 4,RJ | |
127 | ...S L INENUM=LIN ENUM+1 | |
128 | E W ! !!!!!,"NO DATA MET S ELECTED CR ITERIA" | |
129 | Q | |
130 | HSBH S PG= PG+1 | |
131 | I "Ff"[VW OPT D | |
132 | .O ACR1:" WRNS":5 Q: $T=0 | |
133 | .S TITLE= "HEALTH AD MINISTRATI ON CENTER" | |
134 | .U ACR1 W !,DUZ,T,T ITLE,T,"Pa ge: ",PG ;; display date and title | |
135 | .S TITLE= "ALL CLAIM S SUMMARY REPORT" | |
136 | .U ACR1 W !,$$FMTE^ XLFDT(TODA Y,"5D"),T, TITLE | |
137 | .S TITLE= "Report fo r "_$$FMTE ^XLFDT(ISD T,"5D")_" to "_$$FMT E^XLFDT(IE DT,"5D") | |
138 | .U ACR1 W !,$E(TIME ,1,2)_":"_ $E(TIME,3, 4),T,TITLE | |
139 | .U ACR1 W !!!!! ; seperatio n of main header and subheader | |
140 | .U ACR1 W "Claim #" ,T,"PDI",T ,"DOS",T," Bene Name" ,T,"Sponso r Name",T, "Program", T,"Status" ,T,"TOS",T ,"Reject R eason(s)" | |
141 | .U ACR1 W !,"------ -",T,"---- ---------- -",T,"---- ---------- -------",T ,"-------- ---------- ",T,"----- ---------- -",T,"---- ---",T,"-- -----",T," ---",T,"-- ---------- ----" | |
142 | E D | |
143 | .W @IOF | |
144 | .S TITLE= "HEALTH AD MINISTRATI ON CENTER" | |
145 | .W !,DUZ, ?(132-$L(T ITLE)/2),T ITLE,?120, "Page: ",P G | |
146 | .S TITLE= "ALL CLAIM S SUMMARY REPORT" | |
147 | .W !,$$FM TE^XLFDT(T ODAY,"5D") ,?(132-$L( TITLE)/2), TITLE | |
148 | .S TITLE= "Report fo r "_$$FMTE ^XLFDT(ISD T,"5D")_" to "_$$FMT E^XLFDT(IE DT,"5D") | |
149 | .W !,$E(T IME,1,2)_" :"_$E(TIME ,3,4),?(13 2-$L(TITLE )/2),TITLE | |
150 | .W !!!!! ; sepera tion of ma in header and subhea der | |
151 | .W "Claim #",?9,"PD I",?26,"DO S",?50,"Be ne Name",? 70,"Sponso r Name",?8 8,"Program ",?97,"Sta tus",?107, "TOS",?114 ,"Reject R eason(s)" | |
152 | .W !,"--- ----",?9," ---------- -----",?26 ,"-------- ---------- ---",?50," ---------- --------", ?70,"----- ---------- -",?88,"-- -----",?97 ,"-------" ,?107,"--- ",?114,"-- ---------- ----" | |
153 | .S LINENU M=10 | |
154 | Q | |
155 | INIT ; ini talize | |
156 | K ^CHMZHO LD($J,"ACR ") S ^CHMZ HOLD($J,"A CR")=$H | |
157 | S ACRC TR=0,PG=0, LINENUM=0 ; all cl aims accum ulator and page coun ter and li nenum | |
158 | ; pdi initialize r | |
159 | ;S STR 180=$$FMAD D^XLFDT(IS DT,-2) ; T ESTING | |
160 | ;S STP 180=$$FMAD D^XLFDT(IE DT,+2) ; T ESTING | |
161 | S STR1 80=$$FMADD ^XLFDT(ISD T,-180) ;pdi six m onths prev ious | |
162 | S STP1 80=$$FMADD ^XLFDT(IED T,+180) ;pdi six m onths futu re | |
163 | S STRPDI= "20"_$$FMJ UL^CHTFLIB (STR180)_" 00000000" ; PDI st art | |
164 | S TDYPDI= "20"_$$FMJ UL^CHTFLIB (STP180)_" 99999999" ; PDI fi nish | |
165 | ; program type tran slation | |
166 | S PTYP=$S (IPTYP=1:" ALL",IPTYP =2:1,IPTYP =3:5,IPTYP =4:6,IPTYP =5:3,IPTYP =6:7) | |
167 | S AP="1,3 ,5,6,7," | |
168 | ; service type tran slation | |
169 | S SVTYP=$ S(ISVTYP=1 :"ALL",ISV TYP=2:1,IS VTYP=3:2,I SVTYP=4:4, ISVTYP=5:5 ,ISVTYP=6: 6,ISVTYP=7 :3) | |
170 | ; status type trans lation | |
171 | S STTYP=$ S(ISTTYP=1 :1,ISTTYP= 2:2,ISTTYP =3:3,ISTTY P=4:4,ISTT YP=5:5,IST TYP=6:6,IS TTYP=7:7,I STTYP=8:8, ISTTYP=9:9 ,ISTTYP=10 :10,ISTTYP =66:"ALL", ISTTYP="": "ALL") | |
172 | Q | |
173 | PTYPE ;se t program type | |
174 | S TITLE=" ALL CLAIMS SUMMARY R EPORT" | |
175 | W !,?(80- $L(TITLE)/ 2),TITLE | |
176 | S DIR(0)= "S^1:ALL P ROGRAMS;2: CHAMPVA;3: NON-VA;4:S PINA BIFID A;5:FOREIG N MEDICAL; 6:CHILDREN OF WOMEN VIETNAM VE TERANS" | |
177 | S DIR("A" )="Enter t he program type" D ^ DIR K DIR | |
178 | I $D(DUOU T)!$D(DIRO UT)!$D(DTO UT) S PFLG =0 Q | |
179 | S IPTYP=Y | |
180 | S PFLG=1 | |
181 | SVTYPE ;se t the type of servic e | |
182 | S DIR(0)= "S^1:ALL T YPES OF SE RVICE;2:IN PATIENT;3: OUTPATIENT ;4:DURABLE MEDICAL E QUIPMENT;5 :DENTAL;6: TRAVEL;7:P HARMACY" | |
183 | S DIR("A" )="Enter t he service type" D ^ DIR K DIR | |
184 | G:$D(DUOU T)!(Y="^^" ) PTYPE | |
185 | S ISVTYP= Y | |
186 | STTYPE ;se t the stat us type | |
187 | S DIR(0)= "SO^1:IN P ROCESS;2:P AYMENT REQ UESTED;3:E OB REQUEST ED;4:COMPL ETE;5:ADJU DICATED;6: PAYMENT RE JECTED CAP PS/CALM;7: ADMINISTRA TIVE SUSPE NSE;8:PAYM ENT APPROV ED CAPPS/C ALM;9:MANU ALLY PROCE SSED;10:DE LETED;66:A LL" | |
188 | S DIR("A" )="Enter t he status type" D ^D IR K DIR | |
189 | G:$D(DUOU T) SVTYPE | |
190 | G:$D(DIRO UT) END | |
191 | S ISTTYP= Y | |
192 | S STTYP=$ S(ISTTYP=1 :1,ISTTYP= 2:2,ISTTYP =3:3,ISTTY P=4:4,ISTT YP=5:5,IST TYP=6:6,IS TTYP=7:7,I STTYP=8:8, ISTTYP=9:9 ,ISTTYP=10 :10,ISTTYP =66:"ALL", ISTTYP="": "ALL") | |
193 | SDOS ;se t the star t date of service | |
194 | S DIR(0)= "D" S DIR( "A")="Ente r the star t date ser vice perio d (MM/DD/Y Y)" D ^DIR K DIR | |
195 | G:$D(DUOU T) STTYPE | |
196 | G:$D(DIRO UT) END | |
197 | S ISDT=Y | |
198 | EDOS ;se t the end date of se rvice | |
199 | S DIR( 0)="D^"_IS DT_":"_TOD AY_"" S DI R("A")="En ter the en d date ser vice perio d" S DIR(" B")=$$FMTE ^XLFDT(ISD T,"5D") D ^DIR K DIR | |
200 | ;;S DIR(0 )="D^ISDT: TODAY:EX" | |
201 | G:$D(DUOU T) SDOS | |
202 | G:$D(DIRO UT) END | |
203 | S IEDT=Y | |
204 | CODE ;set the reject reason co de | |
205 | S INFM SG="319,32 2,352,353, 356,358,35 9,360,361, 368,371" | |
206 | S DIR(0)= "NO" | |
207 | S DIR("A" )="Enter t he reject reason cod e(s)" D ^D IR K DIR | |
208 | G:$D(DUOU T) EDOS | |
209 | G:$D(DIRO UT) END | |
210 | G:Y="" VI EW | |
211 | I '$D(^CH MDIC(74100 2.22,Y)) W !,"NOT A VALID REJE CT REASON CODE. PLE ASE REENTE R" G CODE | |
212 | F IM=0:1: $L(INFMSG, ",") I $P( INFMSG,"," ,IM)=Y W ! ,"INFORMAT IONAL CODE IS EXCLUD ED FROM RE PORT." G C ODE | |
213 | S IREJCD( Y)="" | |
214 | S ICODE=1 | |
215 | G CODE | |
216 | W ! | |
217 | VIEW ;dete rmine scre en display or print out | |
218 | S DIR(0)= "S^P:PRINT ;F:FILE" | |
219 | S DIR("A" )="Enter t he output format (P) rint or (F )ile F//" D ^DIR K D IR | |
220 | G:$D(DUOU T) CODE | |
221 | G:Y="^^" INIT | |
222 | I "PpFf"' [Y W !,"IN VALID REPS ONSE. (P)R INT or (F) ILE." G VI EW | |
223 | S VWOPT=Y | |
224 | Q | |
225 | END ; clos e out file s and loca l variable s | |
226 | I "Ff"[VW OPT D | |
227 | .C ACR 1 | |
228 | K ^CHM ZHOLD($J," ACR") | |
229 | K ACRCTR, PG,ICODE,T ODAY,TIME, TITLE,SCRW ,SCRN,X,FI LE,ACR1,RE JECT | |
230 | K IPTYP,P TYP,AP,PRO GRAM,ISVTY P,SVTYP,SV T,SERVICE, ISTTYP,STT YP,STT | |
231 | K ISDT,IE DT,START,S TOP,INFMSG ,IM,IREJCD ,VWOPT | |
232 | K STR180, STP180,STR PDI,TDYPDI ,PDI | |
233 | K X1,RCLM NO,SPONN,B ENEN | |
234 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.