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 | CHMKCQAR.m | Mon Nov 5 16:41:41 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKCQAR.m | Mon Nov 5 17:48:47 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 396 |
Changed | 2 | 6 |
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 | CHMKCQAR ; HAC/JEH; C HAMPVA QUA RTERLY CLA IMS AUDIT REPORT ;01 /22/12 | |
2 | ;;V1.0 | |
3 | ; | |
4 | I $$INIT( )=1 D | |
5 | .D QUEA^C HMKCQAR ;QUE T O RUN IN B ACKGROUND | |
6 | .W ! | |
7 | .I QFLG=1 D INOTE | |
8 | .E W !!, "REPORT HA S BEEN CAN CELLED!" H 1 | |
9 | Q | |
10 | START ; | |
11 | D GTCLMS ; CREATING L IST IF CLA IMS | |
12 | I $$OFILES() =1 D ;CR EATE LISTI NG ON FS3B IG | |
13 | .D CRFILES | |
14 | E D MMSG2 ;MESSAGE L ETTING USE R KNOW THE RE WAS AN ISSUE WITH THE REPOR T | |
15 | D END | |
16 | Q | |
17 | GTCLMS ;GE TTING LIST OF CLAIMS | |
18 | N CTR,CLM CDT | |
19 | S CLMCDT= 0 | |
20 | I $D(^CHM ZHOLD($J," CHMKCQAR") ) K ^CHMZH OLD($J,"CH MKCQAR") | |
21 | S CTR=0 | |
22 | S CLMCDT= STRDT-1 F S CLMCDT= $O(^CHMPAY ("E",CLMCD T)) Q:'$D( CLMCDT)!(C LMCDT>ENDD T)!(CLMCDT ="") D | |
23 | .S CLMPTR =0,CLMPTR= $O(^CHMPAY ("E",CLMCD T,CLMPTR)) Q:'$D(CLM PTR) | |
24 | .Q:$P(^CH MPAY(CLMPT R,0),"^",2 )'=4 ;COMPLETED CLAIMS ON LY | |
25 | .Q:$$GTLT C()=1 ;GET LABEL TYP E CODE | |
26 | .Q:$$GTAM T()=1 ;GET PAID AMOU NT | |
27 | .Q:$$BENE LG()'="EA" | |
28 | .S ^CHMZH OLD($J,"CH MKCQAR",CL MPTR)="" | |
29 | Q | |
30 | INIT() ;IN ITIALIZATI ON | |
31 | N IFLG | |
32 | S IFLG=0 ;0=QUIT/1 =CONTINUE | |
33 | W @IOF | |
34 | S TITLE=" CHAMPVA Qu arterly Cl aims Audit Report" | |
35 | W ?(80-$L (TITLE)/2) ,TITLE,! | |
36 | INIT1 ;SET FILE NAME | |
37 | S DIR(0)= "FO^3:50" | |
38 | S DIR("A" )="Enter r eport file name (i.e . RPTNAME) " D ^DIR K DIR | |
39 | I Y="^^"! (Y="")!($D (DUOUT)) D Q IFLG | |
40 | .W !!,"RE PORT HAS B EEN CANCEL LED!" H 1 | |
41 | S FNAME=Y | |
42 | W ! | |
43 | SDATE ;STA RT DATE | |
44 | S DIR(0)= "D" S DIR( "A")="Plea se enter s tart date (MM/DD/YY) " D ^DIR S STRDT=Y K DIR | |
45 | I Y="^^"! (Y="") D Q IFLG | |
46 | .W !!,"RE PORT HAS B EEN CANCEL LED!" H 1 | |
47 | G:STRDT=" "!(STRDT=" ^")!(STRDT =-1) INIT1 | |
48 | I STRDT>D T W !!,"P lease do n ot enter a future da te!",! G S DATE | |
49 | W ! | |
50 | EDATE ;END DATGE | |
51 | ||
52 | S DIR(0)= "D" S DIR( "B")=$$FMT E^XLFDT(DT ,"2DZ") S DIR("A")=" Please ent er end dat e (MM/DD/Y Y)" D ^DI R S ENDDT= Y K DIR | |
53 | I Y="^^" D Q IFLG | |
54 | .W !!,"RE PORT HAS B EEN CANCEL LED!" H 1 | |
55 | G:ENDDT=" "!(ENDDT=" ^")!(ENDDT =-1) SDATE | |
56 | I STRDT>E NDDT D SDA TE | |
57 | I ENDDT>D T W !!,"P lease do n ot enter a future da te!",! G E DATE | |
58 | S ENDDT=Y +.999999 | |
59 | W ! | |
60 | PDAMIN ;PA ID DOLLAR AMOUNT MIN IMUM | |
61 | S DIR(0)= "N" | |
62 | S DIR("B" )=1.00 | |
63 | S DIR("A" )="Enter m inimum pai d dollar a mount" D ^ DIR K DIR | |
64 | I Y="^^" D Q IFLG | |
65 | .W !!,"RE PORT HAS B EEN CANCEL LED!" H 1 | |
66 | G:Y="^"!( Y="")!(Y=0 ) EDATE | |
67 | S MINPDA= Y | |
68 | W ! | |
69 | PDAMAX ;PA ID DOLLAR AMOUNT MAX IMUM | |
70 | S DIR(0)= "N" | |
71 | S DIR("B" )=MINPDA | |
72 | S DIR("A" )="Enter m aximum pai d dollar a mount" D ^ DIR K DIR | |
73 | I Y="^^" D Q IFLG | |
74 | .W !!,"RE PORT HAS B EEN CANCEL LED!" H 1 | |
75 | G:Y="^"!( Y="")!(Y=0 ) PDAMIN | |
76 | I MINPDA> Y W !!,"Ma ximum amou nt must be greater t han minimu m amount." G PDAMAX | |
77 | S MAXPDA= Y | |
78 | W ! | |
79 | INT2 ;SET OUTLOOK EM AIL ADDRES S | |
80 | S DIR(0)= "FO^3:50" | |
81 | S DIR("?" ,1)="A not ification will be se nt when do ne process ing report ." | |
82 | S DIR("?" )="Email a ddress exa mple: PII " | |
83 | S DIR("A" )="Enter E mail Addre ss PII )" D ^DIR K DIR | |
84 | I Y="^^" D Q IFLG | |
85 | .W !!,"RE PORT HAS B EEN CANCEL LED!" H 1 | |
86 | I Y="^"!( Y=0) W !! G PDAMAX | |
87 | S EMAILNM =Y | |
88 | S IFLG=1 | |
89 | Q IFLG | |
90 | INOTE ;NOT IFICATION | |
91 | W !,?5,"T his will t ake some t ime to gat her and pr ocess the data." | |
92 | W !,?5,"A message w ill be sen t when the CHAMPVA Q uarterly" | |
93 | W !,?5,"C laims Audi t Report i s ready.", !! | |
94 | K:$D(^CHM ZHOLD("CQA R",FNAME)) ^CHMZHOLD ("CQAR",FN AME) | |
95 | H 2 | |
96 | Q | |
97 | MMMSG ;GEN ERATE MM M ESSAGE | |
98 | S CNT=1,^ TMP($J,"CQ AR",CNT)=" ",CNT=CNT+ 1 | |
99 | S ^TMP($J ,"CQAR",CN T)="YOUR R EPORT CAN BE FOUND H ERE:",CNT= CNT+1 | |
100 | S ^TMP($J ,"CQAR",CN T)="",CNT= CNT+1 | |
101 | S ^TMP($J ,"CQAR",CN T)=" DIRE CTORY: FS3 BIG\BPO",C NT=CNT+1 | |
102 | S ^TMP($J ,"CQAR",CN T)="",CNT= CNT+1 | |
103 | S ^TMP($J ,"CQAR",CN T)=" REPO RT NAME:", CNT=CNT+1 | |
104 | S ^TMP($J ,"CQAR",CN T)="",CNT= CNT+1 | |
105 | S ^TMP($J ,"CQAR",CN T)=" "_ FNAME_".TX T",CNT=CNT +1 | |
106 | S ^TMP($J ,"CQAR",CN T)="" | |
107 | S XMTEXT= "^TMP($J," "CQAR""," | |
108 | S XMDUZ=. 5 | |
109 | S:EMAILNM '="" XMY(E MAILNM)="" | |
110 | S XMY(DUZ )="" | |
111 | S XMSUB=" CHAMPVA QT RLY AUDIT REPORT HAS COMPLETED " D ^XMD | |
112 | Q | |
113 | MMSG2 ;MES SAGE LETTI NG USER KN OW THERE W AS AN ISSU E WITH THE REPORT | |
114 | S CNT=1,^ TMP($J,"CQ AR",CNT)=" ",CNT=CNT+ 1 | |
115 | S ^TMP($J ,"CQAR",CN T)="ERROR CREATING R EPORT.",CN T=CNT+1 | |
116 | S ^TMP($J ,"CQAR",CN T)="",CNT= CNT+1 | |
117 | S ^TMP($J ,"CQAR",CN T)="CONTAC T OCIO HEL PDESK, 777 7",CNT=CNT +1 | |
118 | S ^TMP($J ,"CQAR",CN T)="" | |
119 | S XMTEXT= "^TMP($J," "CQAR""," | |
120 | S XMDUZ=. 5 | |
121 | S:EMAILNM '="" XMY(E MAILNM)="" | |
122 | S XMY(DUZ )="" | |
123 | S XMSUB=" ***ERROR** * CHAMPVA QTRLY AUDI T REPORT" D ^XMD | |
124 | Q | |
125 | BENELG() ; CHECK FOR BENE BEING ELIGIBLE ON DOS FUN CTION | |
126 | S STDAT=0 ,STAT="I" | |
127 | S DFN=$P( ^CHMPAY(CL MPTR,0),"^ ",21) Q:DF N="" | |
128 | S BFN=$P( ^CHMPAY(CL MPTR,0),"^ ",22) Q:BF N="" | |
129 | I '$D(^AH CHVA(DFN,1 00,BFN,109 )) Q STAT | |
130 | S STDAT=0 F S STDA T=$O(^AHCH VA(DFN,100 ,BFN,109,S TDAT)) Q:' STDAT D | |
131 | .S ENDAT= 0 F S END AT=$O(^AHC HVA(DFN,10 0,BFN,109, STDAT,ENDA T)) Q:'END AT D | |
132 | ..Q:(STDA T>ENDDT) | |
133 | ..Q:(ENDA T<STRDT) | |
134 | ..S STAT= "EA" | |
135 | Q STAT | |
136 | GTLTC() ;G ET LABEL T YPE CODE | |
137 | N TYPFLG | |
138 | S TYPFLG= 0 | |
139 | S CLMPDI= $P($P(^CHM PAY(CLMPTR ,0),"^",4) ,"*",1) | |
140 | S CLMTYP= $$TYPE^CHM FPDI2(CLMP DI) ;PDI TYPE | |
141 | I CLMTYP= 98 S TYPFL G=1 ;CMOP | |
142 | I CLMTYP= "04" S TYP FLG=1 ;CITI | |
143 | I CLMTYP= 60 S TYPFL G=1 ;SB | |
144 | I CLMTYP= 95 S TYPFL G=1 ;SB OCR | |
145 | Q TYPFLG | |
146 | GTAMT() | |
147 | N TYPFLG, PDAMT | |
148 | S TYPFLG= 0 | |
149 | Q:'$D(^CH MPAY(CLMPT R,1)) 1 | |
150 | S PDAMT=$ P(^CHMPAY( CLMPTR,1), "^",1) ; AMOUNT TO BE PAID ON CLAIM | |
151 | I PDAMT<1 S TYPFLG= 1 | |
152 | I PDAMT>M AXPDA S TY PFLG=1 | |
153 | I PDAMT<M INPDA S TY PFLG=1 | |
154 | Q TYPFLG | |
155 | OFILES() ; OUTPUT IS GENERATED HERE | |
156 | N OFLG | |
157 | S $ZE="", $ZT="OFEND ^CHMKCQAR" | |
158 | S OFLG=0 ;0=FILE CLOSED/1=F ILE OPENED | |
159 | S CHFIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .BPO]"_FNA ME_".TXT" | |
160 | O CHFIO:" WRNS":5 Q: $T=0 OFLG | |
161 | S OFLG=1 | |
162 | Q OFLG | |
163 | OFEND ; | |
164 | Q | |
165 | CRFILES ;P OPULATING FILE WITH DATA | |
166 | N REC,CLM PTR,CLMNM, DFN,BENNM, DOS,TOS,BL DAMT,ALLAM T,OHPAMT,P YDAMT | |
167 | S (CLMPTR ,CLMNM,DFN ,BENNM,DOS ,TOS,BLDAM T,ALLAMT,O HPAMT,PYDA MT)="" | |
168 | U CHFIO W "Claim #" _"^"_"Bene Name"_"^" _"Date of Service (D OS)"_"^"_" Type of Se rvice (TOS )"_"^"_"Bi lled Amoun t"_"^"_"Al lowed Amou nt"_"^"_"O HI Paid Am ount"_"^"_ "Amount Pa id",! | |
169 | S CLMPTR= 0 F S CLM PTR=$O(^CH MZHOLD($J, "CHMKCQAR" ,CLMPTR)) Q:'CLMPTR D | |
170 | .S CLMNM= $P(^CHMPAY (CLMPTR,0) ,"^",1) ;CLM NAME | |
171 | .S DFN=$P (^CHMPAY(C LMPTR,0)," ^",21),BFN =$P(^CHMPA Y(CLMPTR,0 ),"^",22) | |
172 | .S BENNM= $P(^AHCHVA (DFN,100,B FN,0),"^", 1) ;BEN E NAME | |
173 | .S DOS=$$ FMTE^XLFDT ($P(^CHMPA Y(CLMPTR,0 ),"^",8)," 5D") ;DAT E OF SERVI CE | |
174 | .S TOS=$P (^CHMDIC(7 41002.05,$ P(^CHMPAY( CLMPTR,0), "^",7),0), "^",1) ;TYPE OF SERVICE | |
175 | .S BLDAMT =$FN($P(^C HMPAY(CLMP TR,"COMMON "),"^",1), "") ;BIL LED AMOUNT | |
176 | .S ALLAMT =$FN($P(^C HMPAY(CLMP TR,"COMMON "),"^",7), "") ;CAL C ALLOWED AMOUNT | |
177 | .S OHPAMT =$FN($P(^C HMPAY(CLMP TR,1),"^", 7),"") ;OHI P AID AMOUNT | |
178 | .S PYDAMT =$FN($P(^C HMPAY(CLMP TR,1),"^", 1),"") ;PAID AMOUNT | |
179 | .U CHFIO W CLMNM_"^ "_BENNM_"^ "_DOS_"^"_ TOS_"^"_BL DAMT_"^"_A LLAMT_"^"_ OHPAMT_"^" _PYDAMT,! | |
180 | Q | |
181 | QUEA ;QUE THIS ROUTI NE MANUALL Y. | |
182 | S QFLG=1 | |
183 | W ! | |
184 | I '$D(DUZ ) S DUZ=1, DUZ(0)="@" | |
185 | S CHFIO=" ",ZTIO="" | |
186 | S ZTRTN=" START^CHMK CQAR",ZTDE SC="PROCES S CHV QRTL Y AUDIT RE PORT" | |
187 | S ZTSAVE( "FNAME")=" ",ZTSAVE(" STRDT")="" ,ZTSAVE("E NDDT")="", ZTSAVE("MI NPDA")="" | |
188 | S ZTSAVE( "MAXPDA")= "",ZTSAVE( "EMAILNM") ="",ZTSAVE ("QFLG")=" " | |
189 | D ^%ZTLOA D | |
190 | S:$D(%ZTL OAD("ERROR ")) QFLG=0 | |
191 | Q | |
192 | END ;END O F ROUTINE | |
193 | C CHFIO | |
194 | D: QFLG=1 MMM SG ;SEN DING MM ME SSAGE THAT REPORT IS READY | |
195 | K ^CHMZHO LD("CQAR", FNAME),^CH MZHOLD($J, "CHMKCQAR" ) | |
196 | K CHFIO,D TIME,FNAME ,OFLG,MAXP DA,MINPDA, TYPFLG,CLM TYP | |
197 | K STAT,EN DAT,IFLG,T ITLE,Y,CLM CDT,CNT,ST DAT,DFN,BF N,QFLG | |
198 | K CLMPTR, CLMNM,DFN, BENNM,DOS, TOS,BLDAMT ,ALLAMT,OH PAMT,PYDAM T | |
199 | Q | |
200 | ||
201 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.