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 | CHIDMERT.m | Mon Nov 5 16:38:52 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHIDMERT.m | Fri Nov 9 01:23:13 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 210 |
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 | CHIDMERT ; HAC/TLH;ID ME FILE RE AD; 06-15- 2001; | |
2 | ; | |
3 | ;S $ZE="" ,$ZT="END^ ZAEBFT1",T =$C(9) | |
4 | ;VARIABLE LIST | |
5 | ;CHBDATE. ..Start da te for rep ort | |
6 | ;CHEDATE. ..End date for repor t | |
7 | ;CHIFIO.. .File name for incom ing file | |
8 | ;CHOFIO.. .File name for outgo ing file | |
9 | ;REC....I DMEProvide rs file | |
10 | ;CHVTAX.. ..Vendor T ax ID | |
11 | ;CHVENPT. ..Vendor P ointer num ber | |
12 | ;CHCLMPT. ..Claim po inter numb er | |
13 | ;CHTOS... .Type of s ervice | |
14 | ;CHIDME.. .IDME Calc ulation nu mber | |
15 | ;TMPI.... .Temporary I value | |
16 | ;CHVENNAM ....Vendor Name | |
17 | ;CHDRGAMT ...Base DR G Amount | |
18 | ;CHNDRGAM T....New D RG Amount | |
19 | ;CHPERCNT ....Percen t differen ce from Ba se DRG to New DRG | |
20 | ;CHDIFF.. ...Differe nce betwee n Base DRG and New D RG | |
21 | ;CHCLNUM. ...Claim N umber | |
22 | ;CHDATE.. ..Claim Co mpletion d ate | |
23 | ;CHSTAT.. ..Claim st atus | |
24 | ; | |
25 | A11 S CHIF IO="" | |
26 | W !,"Ente r the file name+exten sion: " D CSBRS^CHS C2 | |
27 | ;This wil l read the file that P&C set u p for the IDME calcu lation fac tors for s pecified v endors. | |
28 | Q:$D(DFOU T) Q:$D(D UOUT) I $ D(DQOUT) D G A11 | |
29 | .W !,"Ent er the fil ename with it's exte nsion (tes t.txt)" | |
30 | .Q | |
31 | Q:Y="" | |
32 | S CHIFIO= Y | |
33 | S1 ;ENTER START DATE PARAMITER S FOR REPO RT | |
34 | W !!,"Ent er the sta rt date fo r this rep ort: " D C SBRS^CHSC2 | |
35 | Q:Y="" I $D(DQOUT) W !,"Ente r the firs t date for report." G S1 | |
36 | Q:$D(DUOU T) Q:$D(D FOUT) | |
37 | S X=Y,%DT ="EPX" D ^ %DT I Y=-1 K %DT G S 1 | |
38 | S CHBDATE =Y | |
39 | S2 ;ENTER END DATE P ARAMITERS FOR REPORT | |
40 | W !!,"Ent er the end date for this repor t: " D CS BRS^CHSC2 | |
41 | Q:Y="" I $D(DQOUT) W !,"Ente r the end date for r eport." G S2 | |
42 | G:$D(DUOU T) S2 Q:$ D(DFOUT) | |
43 | S X=Y,%DT ="EPX" D ^ %DT I Y=-1 K %DT G S 2 | |
44 | S CHEDATE =Y | |
45 | S CHOFIO= "" | |
46 | S ZTRTN=" Q",ZTDESC= "CREATE CO UNTS BY ZI P CODE FIL E" | |
47 | S ZTIO="P RT^CHIDMER T",ZTSAVE( "CHIFIO")= "",ZTSAVE( "CHBDATE") ="",ZTSAVE ("CHEDATE" )="" | |
48 | ;D ^%ZTLO AD | |
49 | ;W !!,"Yo ur task nu mber is ", ZTSK | |
50 | D PRT^CHI DMERT | |
51 | Q | |
52 | PRT ;Print ing of IDM E COMPARIS ON REPORT | |
53 | S $ZE="", $ZT="END^C HIDMERT" | |
54 | I '$D(DT) D NOW^%DT C S DT=X | |
55 | D ARRY^CH FCD001 | |
56 | A1 S IFIO= "HACFS3"" DNS Welcome1!" "::D:[FS3B IG]"_CHIFI O | |
57 | O IFIO:"R " | |
58 | S CHOFIO= "IDME"_$P( CHIFIO,"." ,1) | |
59 | S OFIO="H ACFS3"" DNS Welcome1!" "::D:[FS3B IG]"_CHOFI O_".TXT" | |
60 | O OFIO:"N WS" | |
61 | D HEAD | |
62 | A2 U IFIO R REC | |
63 | S CHVTAX= $P(REC,T,1 ) | |
64 | S CHVENPT =0 | |
65 | A3 S CHVEN PT=$O(^CHM VEN("D",CH VTAX,CHVEN PT)) G:'CH VENPT A2 | |
66 | I $P(^CHM VEN(CHVENP T,0),"^",2 3)'=" " G A3 ;SKIP IF NOT BA SE TAX ID | |
67 | I $P(^CHM VEN(CHVENP T,14),"^", 1)'=" " G A3 ;SKIP IF NOT 2 SPACES | |
68 | S GLP="" | |
69 | A4 S GLP=$ O(CHPGARY( GLP)) G:GL P="" A3 | |
70 | S GLPAY=" ^"_GLP | |
71 | S CHCLMPT =0 | |
72 | A5 S CHCLM PT=$O(@(GL PAY_"""AD" ",CHVENPT, CHCLMPT)") ) G:'CHCLM PT A4 | |
73 | G:'$D(@(G LPAY_"CHCL MPT,0)")) A5 | |
74 | S CHTOS=$ P(@(GLPAY_ "CHCLMPT,0 )"),"^",7) | |
75 | G:CHTOS'= 1 A5 | |
76 | G:'$D(@(G LPAY_"CHCL MPT,""COMM ON"")")) A 5 | |
77 | S CHIDME= $P(REC,T,1 9) | |
78 | D DRGCALC | |
79 | G A5 | |
80 | DRGCALC ;T his will u se the DRG calculati on and the n factor i n the IDME factors t o calculat e the new DRG amount for certa in teachin g hospital s. | |
81 | S CHVENAM ="",CHDRGA MT=0,CHNDR GAMT=0,CHC LNUM="" | |
82 | S CHVENAM =$P(^CHMVE N(CHVENPT, 0),"^",1) | |
83 | S TMPI=CH CLMPT | |
84 | S CHCLNUM =$P(@(GLPA Y_"TMPI,0) "),"^",1) Q:CHCLNUM= "" | |
85 | S CHDRGAM T=+$P(@(GL PAY_"TMPI, ""COMMON"" )"),"^",7) | |
86 | S CHNDRGA MT=(CHDRGA MT*CHIDME) +CHDRGAMT | |
87 | S CHDIFF= CHNDRGAMT- CHDRGAMT | |
88 | S:CHDRGAM T=0 CHDRGA MT=1 | |
89 | S CHPERCN T=CHDIFF/C HDRGAMT | |
90 | S CHCLNUM =$P(@(GLPA Y_"TMPI,0) "),"^",1) | |
91 | S CHDATE= $P(@(GLPAY _"TMPI,0)" ),"^",10) | |
92 | S CHSTAT= $P(@(GLPAY _"TMPI,0)" ),"^",2) I CHSTAT'=4 Q | |
93 | I (CHDATE <CHBDATE)! (CHDATE>CH EDATE) Q | |
94 | U OFIO W !,CHCLNUM_ T_CHVTAX_T _CHVENAM_T _$J($FN(CH DRGAMT,"," ,2),10)_T_ CHIDME_T_$ J($FN(CHND RGAMT,",", 2),10)_T_$ J($FN(CHDI FF,",",2), 10)_T_CHPE RCNT | |
95 | Q | |
96 | HEAD S TIT LE="HEALTH ADMINISTR ATION CENT ER" | |
97 | S TAB=(80 -$L(TITLE) )/2 | |
98 | U OFIO W DUZ_T_TITL E | |
99 | S TITLE=" IDME COMPA RISION REP ORT" | |
100 | S TAB=(80 -$L(TITLE) )/2 | |
101 | U OFIO W !,$$FMTE^X LFDT(DT,"5 D")_T_TITL E,! | |
102 | HDRS U OFI O W !,"CLA IM #"_T_"B ASE-9 TIN" _T_"PROVID ER NAME"_T _"FULL DRG AMT"_T_"I DME FACTOR "_T_"NEW D RG AMT"_T_ "DIFFERNCE "_T_"PERCE NT DIFF" | |
103 | Q | |
104 | END C IFIO C OFIO | |
105 | K REC,CHV TAX,CHVENP T,CHCLMPT, CHTOS,CHID ME,TMPI,CH VENNAM,CHD RGAMT | |
106 | K CHNDRGA MT,CHCLNUM ,CHPERCNT, CHDIFF,CHD ATE,CHSTAT ,STDATE,ED DATE | |
107 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.