Produced by Araxis Merge on 11/9/2018 12:34:06 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 | CHMLPR54.m | Mon Nov 5 16:43:27 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLPR54.m | Mon Nov 5 17:50:36 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 6 | 406 |
Changed | 5 | 10 |
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 | CHMLPR54 ; CVA/JEH;PR EVAILING F EE PRE-CAL C LIST;01/ 05/12 1:2 0 PM | |
2 | ;;1.0 | |
3 | ;;*** CLO NE OF CHML PR53 *** | |
4 | ;;DEV0128 93-08 YJK Mar 2014 | |
5 | ;;DEV0128 93-08 YJK Aug 2015 | |
6 | Z0 | |
7 | N POP | |
8 | S POP=0 | |
9 | W @IOF,!! ,"Prevaili ng Fee Pre -Calculati on Listing routine." | |
10 | W !!," Please rem ember that this chec ks all the claims" | |
11 | W !!," and takes a little t ime to pro cess." | |
12 | W !!," After succ essful com pletion of the listi ng, a Mail Man messag e" | |
13 | W !!," will be ge nerated le tting you know the r eport is r eady." | |
14 | W !!,"Pre ss <RETURN > to conti nue: " D SBRS G QUI T:$D(DFOUT ) | |
15 | G QUIT:$D (DUOUT) | |
16 | D INIT G QUIT:X=""! (Y=-1)!($D (DUOUT)) G Z0:Y=-1 | |
17 | Z1 ; | |
18 | D QUE | |
19 | Q | |
20 | Z2 ; | |
21 | QUE S ZTRT N="A0^CHML PR54",ZTDT H="",ZTIO= "",ZTSAVE( "CN")="",Z TSAVE("CHM DD")="" | |
22 | S ZTSAVE( "FYRBEG")= "",ZTSAVE( "FYREND")= "",ZTSAVE( "YR")="",Z TSAVE("FNA ME")="" | |
23 | S ZTSAVE( "RDATE")=" ",ZTSAVE(" ENVIR")="" ,ZTSAVE("D SPLYYR")=" " | |
24 | ;D ^%ZTLO AD | |
25 | D A0^CHML PR54 | |
26 | QUIT Q | |
27 | A0 S KT=0 | |
28 | A1 S CN=$O (^CHMPAY(C N)) G:'CN CALC | |
29 | G A1:'$D( ^(CN,0)) | |
30 | G A1:$D(^ CHMPAY(CN, "ZFI")) | |
31 | S VZIP="" ,KT=KT+1 S :KT#1000=0 ^CHMZHOLD ("PRE_PRVL ","RESTART ")=KT_"^"_ CN | |
32 | S TYPE=+$ P(^CHMPAY( CN,0),"^", 7) | |
33 | G:TYPE'=2 A1 | |
34 | G:$P(^CHM PAY(CN,0), "^",2)=0 A 1 | |
35 | S VNUM=+$ P(^(0),"^" ,3),DOS=+$ P(^(0),"^" ,8)\1 | |
36 | G:'VNUM A 1 | |
37 | G:DOS<FYR BEG A1 | |
38 | G:DOS>FYR END A1 | |
39 | I $D(^CHM VEN(VNUM,2 )) S VZIP= $E($P(^(2) ,"^",5),1, 5) | |
40 | I VZIP'?5 N S:$D(^CH MVEN(VNUM, 1)) VZIP=$ E($P(^(1), "^",5),1,5 ) | |
41 | I VZIP'?5 N G A1 | |
42 | D LOOP S J=0 G A1:S MSA="" S S MSA=+SMSA | |
43 | A6 S J=$O( ^CHMPAY(CN ,"OPT-PROC ",J)) G A1 :'J,A6:'$D (^(J,0)) | |
44 | G A6:+$P( ^(0),"^",4 ) | |
45 | G A6:'$D( ^CHMPAY(CN ,"RULE-PRO C",J,0)) G A6:$P(^(0 ),"^",1)=0 | |
46 | S SERV=$P (^CHMPAY(C N,"OPT-PRO C",J,0),"^ ",1),CHGAM T=+$P(^(0) ,"^",2) G A6:'SERV,A 6:'CHGAMT | |
47 | K CMACFG D CMAC G:$ D(CMACFG) A6 | |
48 | G A6:$D(^ CHMDIC(741 002.49,YR_ "0000",1," B",SERV)) | |
49 | A66 I 'SMS A G A1:'VS T S:'$D(^C HMZHOLD("P RE_PRVL"," PRVL",SMSA ,VST,SERV, 0)) ^(0)=0 D G A6 | |
50 | .S ^(0)=^ (0)+1,CT=^ (0) S X=CT #30 S:X=0 X=30 S Y=( CT\30)+1 | |
51 | .S:CT#30= 0 Y=Y-1 S $P(^(Y),"^ ",X)=CHGAM T | |
52 | .S ^CHMZH OLD("PRE_P RVL","REC" ,SERV,VZIP ,CHGAMT,SM SA,VST,CN) ="" | |
53 | S:'$D(^CH MZHOLD("PR E_PRVL","P RVL",SMSA, SERV,0)) ^ (0)=0 S ^( 0)=^(0)+1, CT=^(0) | |
54 | S X=CT#30 S:X=0 X=3 0 S Y=(CT\ 30)+1 S:CT #30=0 Y=Y- 1 | |
55 | S $P(^(Y) ,"^",X)=CH GAMT,^CHMZ HOLD("PRE_ PRVL","REC ",SERV,VZI P,CHGAMT,S MSA,VST,CN )="" | |
56 | S:'$D(^CH MZHOLD("PR E_PRVL","P RVL",0,VST ,SERV,0)) ^(0)=0 | |
57 | S ^(0)=^( 0)+1,CT=^( 0) S X=CT# 30 S:X=0 X =30 S Y=(C T\30)+1 | |
58 | S:CT#30=0 Y=Y-1 S $ P(^(Y),"^" ,X)=CHGAMT | |
59 | G A6 | |
60 | CALC S SMS A=0 | |
61 | S:'$D(^CH MZHOLD("PR E_PRVL",CH MDD,0)) ^( 0)="CHAMPV A PREVAILI NG FEE "_$ $FMYR^CHTF LIB(YR)_"^ "_CHMDD_"P ^^" | |
62 | C1 S SMSA= $O(^CHMZHO LD("PRE_PR VL","PRVL" ,SMSA)) G CALC2:'SMS A S SERV=0 | |
63 | C2 S SERV= $O(^CHMZHO LD("PRE_PR VL","PRVL" ,SMSA,SERV )) G C1:'S ERV S NODE =0,CT=0 | |
64 | G C2:'$O( ^CHMZHOLD( "PRE_PRVL" ,"PRVL",SM SA,SERV,NO DE)) K ^UT ILITY("PRE _PRVL","SM SASORT1") | |
65 | I $D(^CHM ZHOLD("PRE _PRVL","PR VL",SMSA,S ERV,0)),+^ (0)<5 K ^C HMZHOLD("P RE_PRVL"," PRVL",SMSA ,SERV) G C 2 | |
66 | C3 S NODE= $O(^CHMZHO LD("PRE_PR VL","PRVL" ,SMSA,SERV ,NODE)) G C4:'NODE S Z=^(NODE) ,L=$L(Z,"^ ") | |
67 | F I=1:1:L I +$P(Z," ^",I) D | |
68 | .S CT=CT+ 1,^UTILITY ("PRE_PRVL ","SMSASOR T1",+$P(Z, "^",I),CT) ="" | |
69 | G C3 | |
70 | C4 K ^UTIL ITY("PRE_P RVL","SMSA SORT2") S J=0,CT=0 | |
71 | F I=1:1 S J=$O(^UTI LITY("PRE_ PRVL","SMS ASORT1",J) ) Q:'J D | |
72 | .S K=0 F L=1:1 S K= $O(^UTILIT Y("PRE_PRV L","SMSASO RT1",J,K)) Q:'K D | |
73 | ..S CT=CT +1,^UTILIT Y("PRE_PRV L","SMSASO RT2",CT,J) ="" | |
74 | S PCNT80= CT*.8,PCNT 80=PCNT80- .001 | |
75 | S PCNT80= $O(^UTILIT Y("PRE_PRV L","SMSASO RT2",PCNT8 0)),DOLAMT ="" | |
76 | S DOLAMT= $O(^UTILIT Y("PRE_PRV L","SMSASO RT2",PCNT8 0,DOLAMT)) ,I="" | |
77 | S I=$O(^C HMZHOLD("P RE_PRVL",C HMDD,"B",S ERV,I)) | |
78 | I 'I S $P (^(0),"^", 4)=$P(^CHM ZHOLD("PRE _PRVL",CHM DD,0),"^", 4)+1 D | |
79 | .S I=$P(^ (0),"^",4) ,$P(^(I,0) ,"^")=SERV ,^CHMZHOLD ("PRE_PRVL ",CHMDD,"B ",SERV,I)= "" | |
80 | S J=$S(SM SA<21:1,SM SA<41:2,SM SA<61:3,SM SA<81:4,1: 5),K=SMSA# 20 | |
81 | S:K=0 K=2 0 I I S L= "" S:$D(^C HMZHOLD("P RE_PRVL",C HMDD,I,J)) L=$P(^(J) ,"^") D | |
82 | .S $P(L," ,",K)=(DOL AMT\1)_";P ",$P(^(J), "^")=L | |
83 | G C2 | |
84 | CALC2 S VS T=0 | |
85 | D1 S VST=$ O(^CHMZHOL D("PRE_PRV L","PRVL", 0,VST)) G END:'VST S SERV=0 | |
86 | D2 S SERV= $O(^CHMZHO LD("PRE_PR VL","PRVL" ,0,VST,SER V)) G D1:' SERV S NOD E=0,CT=0 | |
87 | K ^UTILIT Y("PRE_PRV L","SMSASO RT1") | |
88 | I $D(^CHM ZHOLD("PRE _PRVL","PR VL",0,VST, SERV,0)),+ ^(0)<5 K ^ CHMZHOLD(" PRE_PRVL", "PRVL",0,V ST,SERV) G D2 | |
89 | D3 S NODE= $O(^CHMZHO LD("PRE_PR VL","PRVL" ,0,VST,SER V,NODE)) G D4:'NODE S Z=^(NODE ),L=$L(Z," ^") | |
90 | F I=1:1:L I +$P(Z," ^",I) D | |
91 | .S CT=CT+ 1,^UTILITY ("PRE_PRVL ","SMSASOR T1",+$P(Z, "^",I),CT) ="" | |
92 | G D3 | |
93 | D4 K ^UTIL ITY("PRE_P RVL","SMSA SORT2") S J=0,CT=0 | |
94 | F I=1:1 S J=$O(^UTI LITY("PRE_ PRVL","SMS ASORT1",J) ) Q:'J D | |
95 | .S K=0 F L=1:1 S K= $O(^UTILIT Y("PRE_PRV L","SMSASO RT1",J,K)) Q:'K D | |
96 | ..S CT=CT +1,^UTILIT Y("PRE_PRV L","SMSASO RT2",CT,J) ="" | |
97 | S PCNT80= CT*.8,PCNT 80=PCNT80- .001 | |
98 | S PCNT80= $O(^UTILIT Y("PRE_PRV L","SMSASO RT2",PCNT8 0)),DOLAMT ="" | |
99 | S DOLAMT= $O(^UTILIT Y("PRE_PRV L","SMSASO RT2",PCNT8 0,DOLAMT)) ,I="" | |
100 | S I=$O(^C HMZHOLD("P RE_PRVL",C HMDD,"B",S ERV,I)) | |
101 | I 'I S $P (^(0),"^", 4)=$P(^CHM ZHOLD("PRE _PRVL",CHM DD,0),"^", 4)+1 D | |
102 | .S I=$P(^ (0),"^",4) ,$P(^(I,0) ,"^")=SERV ,^CHMZHOLD ("PRE_PRVL ",CHMDD,"B ",SERV,I)= "" | |
103 | S J=$S(VS T<21:101,V ST<41:102, VST<61:103 ,1:0),K=VS T#20 G D2: 'J | |
104 | S:K=0 K=2 0 I I S L= "" S:$D(^C HMZHOLD("P RE_PRVL",C HMDD,I,J)) L=$P(^(J) ,"^") D | |
105 | .S $P(L," ,",K)=(DOL AMT\1)_";P ",$P(^(J), "^")=L | |
106 | G D2 | |
107 | END | |
108 | D PRLST | |
109 | D PRMSG | |
110 | Q | |
111 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
112 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
113 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
114 | I IOZFO=Y W:$D(IOZF ) @IOZF S (DFOUT,Y)= "" Q | |
115 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
116 | Q | |
117 | LOOP S VST =0,SMSA="Z Z" | |
118 | L1 S VST=$ O(^CHMSMSA ("ZIP",VZI P,VST)) Q: 'VST S CN TY=0 | |
119 | L2 S CNTY= $O(^CHMSMS A("ZIP",VZ IP,VST,CNT Y)) G L1:' CNTY S REV DT=0 | |
120 | L3 S REVDT =$O(^CHMSM SA(VST,1,C NTY,3,REVD T)) G L2:' REVDT,L3:' $D(^(REVDT ,0)) | |
121 | S SMSA=$P (^(0),"^", 2) Q | |
122 | ; | |
123 | INIT ; | |
124 | K ^CHMZHO LD("PRE_PR VL"),^UTIL ITY("PRE_P RVL") | |
125 | S ENVIR=$ $ENVIR^CHT FLIB | |
126 | W !! S %D T("A")="En ter the Ye ar to be c alculated (ie. 2012) : ",%DT=" AEF" D ^%D T | |
127 | Q:Y=-1 | |
128 | I ($D(DUO UT))!($D(D TOUT)) Q | |
129 | S DSPLYYR =X | |
130 | S YR=$E(Y ,1,3) | |
131 | S RDATE=Y | |
132 | S CHMDD=$ $FNSET^CHF BC2A(Y) | |
133 | S FYRBEG= (YR-2)_"07 01",FYREND =(YR-1)_"0 630" | |
134 | I (YR-2)< 299 D ;29 9 is the y r the pdi was conver ted from 1 3 to 15 di g | |
135 | .S STPDI= $E((YR-2), 2,3)_18000 000000 ; 13 digit P DI | |
136 | E S STPD I=$$FMYR^C HTFLIB(YR- 2)_1800000 0000 ;15 digit PDI | |
137 | S STPDI=$ O(^CHMPAY( "C",STPDI) ) Q:'STPDI S CN=$O( ^CHMPAY("C ",STPDI,0) ) | |
138 | ;SET FILE NAME | |
139 | S DIR(0)= "F^3:50" | |
140 | S DIR("A" )="Enter P re-Prevail ings Listi ng name" D ^DIR K DI R | |
141 | I ($D(DUO UT))!($D(D TOUT)) Q | |
142 | S FNAME=Y _"_"_DSPLY YR_".TXT" K DIR | |
143 | ;S CHIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .PMPAY.LIV E]"_FNAME | |
144 | ;KILL STA TEMENTS | |
145 | K ^CHMZHO LD("PRVL") ,^CHMZHOLD ("REC") | |
146 | K ^UTILIT Y("SMSASOR T1"),^UTIL ITY("SMSAS ORT2") | |
147 | Q | |
148 | CMAC K CMA CFG | |
149 | Q:'$D(^CH MSERV(SERV ,0)) | |
150 | S CODE=$P (^CHMSERV( SERV,0),"^ ",1) | |
151 | Q:CODE="" | |
152 | Q:'$D(^CH MCPF("B",C ODE)) | |
153 | S CMACI=$ O(^CHMCPF( "B",CODE,0 )) | |
154 | Q:'CMACI | |
155 | S DATE=99 99999-DOS | |
156 | I DOS<298 0201 S DAT E=$O(^CHMC PF(CMACI,1 ,DATE)) | |
157 | I DOS>298 0200 S DAT E=$O(^CHMC PF(CMACI,2 97,DATE)) | |
158 | I DATE S CMACFG=1 Q | |
159 | Q | |
160 | PRMSG ;SEN D MESSAGE INDICATING PRE-PRVL LISTING IS COMPLETE | |
161 | S CNT=1,^ TMP($J,"PR E_PRVL-MSG ",CNT)="", CNT=CNT+1 | |
162 | S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="PRE-PREV AILING LIS T HAS COMP LETED.",CN T=CNT+1 | |
163 | S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="",CNT=CN T+1 | |
164 | S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="LISTING OF OUTPATI ENT SERVIC E CODES CA N",CNT=CNT +1 | |
165 | S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="",CNT=CN T+1 | |
166 | S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="BE FOUND IN:",CNT= CNT+1 | |
167 | S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="",CNT=CN T+1 | |
168 | S ^TMP($J ,"PRE_PRVL -MSG",CNT) =" DNS FS3\CODEUP DT\PRVL_FE E\"_ENVIR_ "\"_FNAME, CNT=CNT+1 | |
169 | S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="",CNT=CN T+1 | |
170 | S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="SEE FILE NAME: "_F NAME,CNT=C NT+1 | |
171 | S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="" | |
172 | S XMTEXT= "^TMP($J," "PRE_PRVL- MSG""," | |
173 | S XMDUZ=. 5 | |
174 | S XMY(DUZ )="" | |
175 | S XMY("
|
|
176 | S XMSUB=" PRE-PRVL L ISTING COM PLETED" D ^XMD | |
177 | Q | |
178 | PRLST ;PRE -PRVL LIST ING ON FS3 BIG | |
179 | N CTR,SRV CD,SIVAL,P RVARY | |
180 | ;DEV01289 3-08 YJK M ar 2014 | |
181 | ;S CHIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. PRVL_FEE." _ENVIR_"]" _FNAME | |
182 | ;O CHIO:" NWS":2 | |
183 | ;I $T=1 U CHIO | |
184 | N FOLDER, CNTR | |
185 | S FOLDER= "",DIR="" | |
186 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
187 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
188 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DE V012893-08 YJK Aug 2 015 | |
189 | S FILE="H AC_HFS$:[S CR.TEMP_FI LES]"_FNAM E | |
190 | I UCI'="H AC" S FILE ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FNAME | |
191 | S POP=0 | |
192 | S POP='$$ OPENFIWR^C HTFLIB9(.F ILE,"FILE" ) | |
193 | I POP U F ILE | |
194 | W "PRE-PR EVAILING L ISTING OF OUTPATIENT CODES FOR ",DSPLYYR | |
195 | W !,"Line ",?10,"Cod e" | |
196 | S CTR=0 F S CTR=$O (^CHMZHOLD ("PRE_PRVL ",CHMDD,CT R)) Q:'CTR D | |
197 | .S SIVAL= "",SIVAL=$ P(^CHMZHOL D("PRE_PRV L",CHMDD,C TR,0),"^", 1) | |
198 | .S SRVCD= "",SRVCD=$ P(^CHMSERV (SIVAL,0), "^",1) | |
199 | .S PRVARY (SRVCD)="" | |
200 | S PRVCD=" " F S PRV CD=$O(PRVA RY(PRVCD)) Q:PRVCD=" " D | |
201 | .U FILE W !,$I(CTR) ,?10,PRVCD | |
202 | ;C CHIO | |
203 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) | |
204 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01289 3-08 YJK A ug 2015 | |
205 | S FOLDER= "/FS3BIG/C ODEUPDT/PR VL_FEE/"_E NVIR | |
206 | D FTPFILE ^CHTFLIB9( FILE," DNS fs3. DNS ",FOLDER," PUT") | |
207 | Q | |
208 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.