Produced by Araxis Merge on 11/9/2018 12:33:48 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 | CHIDMEPT.m | Mon Nov 5 16:40:08 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHIDMEPT.m | Fri Nov 9 01:22:51 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 194 |
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 | CHIDMEPT ; HAC/TLH;ID ME FILE RE AD; 12/09/ 04; | |
2 | ; | |
3 | ;S $ZE="" ,$ZT="END^ CHIDMEPT" | |
4 | ;VARIABLE LIST | |
5 | ;CHBDATE. ..Start da te for rep ort | |
6 | ;CHEDATE. ..End date for repor t | |
7 | ;CHDATE.. ..Claim co mpletion d ate | |
8 | ;CHDISDT. ..Discharg e Date | |
9 | ;CHVTAX.. ..Vendor T ax ID | |
10 | ;CHVNAM.. ..Vendor N ame | |
11 | ;CHCLMPT. ..Claim po inter | |
12 | ;CHTOS... .Type of s ervice | |
13 | ;TMPI.... .Temporary I value | |
14 | ;CHVENNAM ....Vendor Name | |
15 | ;CHAMTPD. ..Amount P aid | |
16 | ;CHDRGNM. ..DRG Numb er | |
17 | ;CHCLNUM. ...Claim N umber | |
18 | ;CHBNAM.. ...Bene na me | |
19 | ;CHBNUM.. ...Bene nu mber | |
20 | ;CHPGPT.. ...Program Indicator | |
21 | ;CHPGNAM. ...Program Name | |
22 | ; | |
23 | A11 S FIO= "HACFS3"" DNS Welcome1!" "::D:[FS3B IG]CVA_RET ORPT.DAT" | |
24 | ;S FIO="H AC_HFS$:[D SMMANAG]CV A_RETRORPT .DAT" | |
25 | O FIO:"NW S" | |
26 | S T=$C(9) | |
27 | S1 ;ENTER START DATE PARAMITER S FOR REPO RT | |
28 | W !!,"Ent er the sta rt date fo r this rep ort: " D C SBRS^CHSC2 | |
29 | Q:Y="" I $D(DQOUT) W !,"Ente r the firs t date for report." G S1 | |
30 | Q:$D(DUOU T) Q:$D(D FOUT) | |
31 | S X=Y,%DT ="EPX" D ^ %DT I Y=-1 K %DT G S 1 | |
32 | S CHBDATE =Y | |
33 | S2 ;ENTER END DATE P ARAMITERS FOR REPORT | |
34 | W !!,"Ent er the end date for this repor t: " D CS BRS^CHSC2 | |
35 | Q:Y="" I $D(DQOUT) W !,"Ente r the end date for r eport." G S2 | |
36 | G:$D(DUOU T) S2 Q:$ D(DFOUT) | |
37 | S X=Y,%DT ="EPX" D ^ %DT I Y=-1 K %DT G S 2 | |
38 | S CHEDATE =Y | |
39 | S ZTRTN=" Q",ZTDESC= "CREATE A REPORT OF CLAIMS PAI D" | |
40 | S ZTIO="P RT^CHIDMEP T",ZTSAVE( "CHIFIO")= "",ZTSAVE( "CHBDATE") ="",ZTSAVE ("CHEDATE" )="" | |
41 | D ^%ZTLOA D | |
42 | W !!,"You r task num ber is ",Z TSK | |
43 | D PRT^CHI DMEPT | |
44 | Q | |
45 | PRT ;Print ing of RET OACTIVE CL AIM REVIEW REPORT | |
46 | ;S $ZE="" ,$ZT="END^ CHIDMEPT" | |
47 | I '$D(DT) D NOW^%DT C S DT=X | |
48 | D HEAD | |
49 | S CHCLMPT =25000000, CHPGPT="", CHPGNAM="" ,CNT=0 | |
50 | A1 S CHCLM PT=$O(^CHM INDEX(CHCL MPT)) G:'C HCLMPT END | |
51 | S X1=CHCL MPT | |
52 | D PROGTYP ^CHFCD001 | |
53 | S CHPGNAM =$P(^CHMDI C(741002.9 4,CHPGPT,0 ),"^",5) | |
54 | G:'$D(@(G LPAY_"CHCL MPT,0)")) A1 | |
55 | S CHTOS=" ",CHVENPT= "",CHVTAX= "" | |
56 | S CHTOS=$ P(@(GLPAY_ "CHCLMPT,0 )"),"^",7) | |
57 | G:CHTOS'= 1 A1 | |
58 | G:'$D(@(G LPAY_"CHCL MPT,""COMM ON"")")) A 1 | |
59 | S CHVENPT =$P(@(GLPA Y_"CHCLMPT ,0)"),"^", 3) G:CHVEN PT="" A1 | |
60 | I '$D(^CH MVEN(CHVEN PT,0)) G A 1 | |
61 | S CHVTAX= $P(^CHMVEN (CHVENPT,0 ),"^",3) | |
62 | G:'$D(@(G LPAY_"CHCL MPT,1)")) A1 | |
63 | S CHAMTPD =+$P(@(GLP AY_"CHCLMP T,1)"),"^" ,1) I CHAM TPD=0 G A1 | |
64 | D RPT | |
65 | G A1 | |
66 | RPT ;Upon getting cl aims that are inpati ent pull v endor name , claim nu mber, DOS, DRG Amoun t Bene nam e and BFN. | |
67 | S CHVENAM ="",CHDRGN UM="",CHCL NUM="",CHD FN="",CHBN AM="",CHBN UM="",CHDI SDT="" | |
68 | S CHVENAM =$P(^CHMVE N(CHVENPT, 0),"^",1) | |
69 | S TMPI=CH CLMPT | |
70 | S CHCLNUM =$P(@(GLPA Y_"TMPI,0) "),"^",1) Q:CHCLNUM= "" | |
71 | S CHCLNUM =CHPGNAM_C HCLNUM | |
72 | I '$D(@(G LPAY_"TMPI ,""INP"")" )) Q | |
73 | S CHDISDT =$P(@(GLPA Y_"TMPI,"" INP"")")," ^",1) | |
74 | S CHDRGNU M=$P(@(GLP AY_"TMPI," "COMMON"") "),"^",8) | |
75 | I '$D(@(G LPAY_"TMPI ,""COMMON" ")")) Q | |
76 | I CHDRGNU M'?3N Q | |
77 | S CHBNUM= $P(@(GLPAY _"TMPI,0)" ),"^",22) | |
78 | S CHDFN=$ P(@(GLPAY_ "TMPI,0)") ,"^",21) | |
79 | Q:'$D(^AH CHVA(CHDFN ,100,CHBNU M,0)) | |
80 | S CHBNAM= $P(^AHCHVA (CHDFN,100 ,CHBNUM,0) ,"^",1) | |
81 | ;S CHDATE =$P(@(GLPA Y_"TMPI,0) "),"^",10) | |
82 | I (CHDISD T<CHBDATE) !(CHDISDT> CHEDATE) Q | |
83 | U FIO W ! ,CHCLNUM_T _CHVTAX_T_ CHVENAM_T_ $$FMTE^XLF DT(CHDISDT ,"5D")_T_C HDRGNUM_T_ $J($FN(CHA MTPD,",",2 ),10)_T_CH BNAM_T_CHB NUM | |
84 | S CNT=CNT +1 | |
85 | Q | |
86 | HEAD S TIT LE="HEALTH ADMINISTR ATION CENT ER" | |
87 | S TAB=(80 -$L(TITLE) )/2 | |
88 | U FIO W D UZ_T_TITLE | |
89 | S TITLE=" RETROACTIV E CLAIMS R EPORT" | |
90 | S TAB=(80 -$L(TITLE) )/2 | |
91 | U FIO W ! ,$$FMTE^XL FDT(DT,"5D ")_T_TITLE ,! | |
92 | HDRS U FIO W !,"CLAI M #"_T_"PR OVIDER TIN "_T_"PROVI DER NAME"_ T_"DISCHAR GE DATE"_T _"DRG NUMB ER"_T_"AMO UNT PAID"_ T_"BENE NA ME"_T_"BEN E ID #" | |
93 | Q | |
94 | END U FIO W !,"TOTAL # OF CLAI MS "_CNT | |
95 | C FIO | |
96 | K CHVTAX, CHVENPT,CH CLMPT,CHTO S,TMPI,CHV ENNAM,CHDR GAMT,CHCLN UM | |
97 | K STDATE, EDDATE,CHD ISDT,CHBNA M,CHBNUM | |
98 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.