Produced by Araxis Merge on 11/9/2018 12:34:05 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 | CHMLIDMQP.m | Mon Nov 5 16:43:03 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLIDMQP.m | Mon Nov 5 17:50:21 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 464 |
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 | CHMLIDMQP ;JEH/DEN;R EAD IN PRV /Z2W FILES FOR IDME FACTOR;01/ 24/05 8:4 0 AM | |
2 | ;V1.0 | |
3 | ; | |
4 | D INIT | |
5 | Q:$D(DUOU T) | |
6 | G:EFFDATE ="^"!(ENDD ATE="^") E ND | |
7 | START ; | |
8 | I FTYPE=1 D GTPDATA ; GETTI NG FI PROV IDER DATA | |
9 | I FTYPE=2 D GTCDATA ; GETTI NG ZIP COD E TO WAGE INDEX CROS SWALK DATA | |
10 | D ^CHMLID MCP | |
11 | D ^CHMLID MP | |
12 | G END | |
13 | ; | |
14 | GTPDATA ;G ATHERING P ROVIDER DA TA | |
15 | U 0 W !," Reading in Provider Data..." | |
16 | S $ZE="", $ZT="END1^ CHMLIDMQ" | |
17 | ;*** INIT IAL LOAD F ILE - FOR LIVE *** | |
18 | S IO="HAC FS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. IDMEUPDT." _ENVIR_"]" _PNAME | |
19 | O IO:"R": 5 | |
20 | I '$T W ! !,"NOT ABL E TO OPEN FILE" G EN D | |
21 | A1 ; | |
22 | FMTP1 ; | |
23 | U IO | |
24 | R A | |
25 | S CTRPT=C TRPT+1 | |
26 | ;Q:CTRP=3 3!(CTRC=33 ) ;R EMOVE/COMM ENT OUT TO PROCESS E NTIRE/PART IAL FILE JEH | |
27 | G:EFFDATE <3050110 F MTP3 ;M ODIFIED FO RMAT - UNC OMMENT OUT FOR INTIT IAL LOAD - provfi_re vised_2004 _USE_THIS_ FILE.TXT & ZIP2WAGE. TXT (FY05) | |
28 | G:EFFDATE >3050111 F MTP4 ;MO DIFIED FOR MAT - UNCO MMENT OUT FOR FY06 L OAD - Pro vFI2005.TX T & ZIP2WA GE.TXT | |
29 | S TPP(1)= $P(A,"^",1 ) ;TMA NUMBER | |
30 | S TPP(2)= $P(A,"^",2 ) ;MUL TI-PROVIDE R ID | |
31 | S TPP(3)= $P(A,"^",3 ) ;MED ICARE NUMB ER | |
32 | S TPP(4)= $P(A,"^",4 ) ;HOS PITAL NAME | |
33 | S TPP(5)= $P(A,"^",5 ) ;HOS PITAL ADDR ESS | |
34 | S TPP(6)= $P(A,"^",6 ) ;HOS PITAL CITY | |
35 | S TPP(7)= $P(A,"^",7 ) ;HOS PITAL STAT E | |
36 | S TPP(8)= $P(A,"^",8 ) ;HOS PITAL ZIP | |
37 | S TPP(9)= $P(A,"^",9 ) ;TYP E OF HOSPI TAL | |
38 | S TPP(10) =$P(A,"^", 10) ;SPE CIAL UNIT 1 | |
39 | S TPP(11) =$P(A,"^", 11) ;SPE CIAL UNIT 2 | |
40 | S TPP(12) =$P(A,"^", 12) ;SPE CIAL UNIT 3 | |
41 | S TPP(13) =$P(A,"^", 13) ;RAT IO OF INTE RNS AND RE SIDENTS | |
42 | S TPP(14) =$P(A,"^", 14) ;NUM BER OF BED S | |
43 | S TPP(15) =$P(A,"^", 15) ;MSA CODE | |
44 | S TPP(16) =$P(A,"^", 16) ;WAG E INDEX | |
45 | S TPP(17) =$P(A,"^", 17) ;FOO TNOTE TO W AGE INDEX | |
46 | S TPP(18) =$P(A,"^", 18) ;TYP E OF ASA | |
47 | S TPP(19) =$P(A,"^", 19) ;IDM E FACTOR ( 4 IMPLIED DECI) | |
48 | ; (USE 1 + IDME FACTOR IN CALCS) | |
49 | S TPP(20) =$P(A,"^", 20) ;CBS A | |
50 | G LOADP | |
51 | FMTP2 ;MOD IFED FORMA T | |
52 | S TPP(1)= $P(A,"^",1 ) ;TMA NUMBER | |
53 | S TPP(3)= $P(A,"^",2 ) ;MED ICARE NUMB ER | |
54 | S TPP(4)= $P(A,"^",3 ) ;HOS PITAL NAME | |
55 | S TPP(5)= $P(A,"^",4 ) ;HOS PITAL ADDR ESS | |
56 | S TPP(6)= $P(A,"^",5 ) ;HOS PITAL CITY | |
57 | S TPP(7)= $P(A,"^",6 ) ;HOS PITAL STAT E | |
58 | S TPP(8)= $P(A,"^",7 ) ;HOS PITAL ZIP | |
59 | S TPP(16) =$P(A,"^", 9) ;WAG E INDEX | |
60 | S TPP(19) =$P(A,"^", 10) ;IDM E FACTOR ( 4 IMPLIED DECI) | |
61 | ; (USE 1 + IDME FACTOR IN CALCS) | |
62 | G LOADP | |
63 | FMTP3 ;INI TIAL LOAD FORMAT ( FY04/05 ) | |
64 | ;S TPP(1) =$E(A,8,16 ) ;TMA NUMBER | |
65 | S TPP(1)= $$LTRIM^CH TFLIB($E(A ,8,16)) | |
66 | S TPP(3)= $$LTRIM^CH TFLIB($E(A ,21,26)) ;MEDI CARE NUMBE R | |
67 | S TPP(4)= $$TRIM^CHT FLIB($E(A, 27,59)) ;HOSP ITAL NAME | |
68 | S TPP(5)= $$TRIM^CHT FLIB($E(A, 60,86)) ;HOSP ITAL ADDRE SS | |
69 | S TPP(6)= $$TRIM^CHT FLIB($E(A, 87,102)) ;HOSP ITAL CITY | |
70 | S TPP(7)= $E(A,103,1 04) ;HOSP ITAL STATE | |
71 | S TPP(8)= $E(A,106,1 10) ;HOSP ITAL ZIP | |
72 | S TPP(16) =$E(A,138, 143) ;WAGE INDEX | |
73 | I TPP(16) '=""!(TPP( 16)'=0) D | |
74 | .S TPP(16 )=$$LTRIM^ CHTFLIB(TP P(16))/100 00 ;THIS IS TO SET TO >nnnn DIGITS | |
75 | S TPP(19) =$E(A,204, 209) ;IDME FACTOR (4 IMPLIED D ECI) | |
76 | ; (US E 1 + IDME FACTOR IN CALCS) | |
77 | I TPP(19) '=""!(TPP( 19)'=0) D | |
78 | .S TPP(19 )=$$LTRIM^ CHTFLIB(TP P(19))/100 00 ; THI S IS TO SE T TO >nnnn DIGITS | |
79 | G LOADP | |
80 | FMTP4 ;INI TIAL LOAD FORMAT ( FY06 ) | |
81 | S TPP(3)= $E(A,1,6) ;MCR PROVIDER N UMBER | |
82 | S TPP(1)= $E(A,7,15) ;TMA NUMBER | |
83 | S TPP(4)= $$TRIM^CHT FLIB($E(A, 26,75)) ;PROV IDER/HOSPI TAL NAME | |
84 | S TPP(5)= $$TRIM^CHT FLIB($E(A, 81,130)) ;HOSP ITAL ADDRE SS LINE 1 | |
85 | S TPP(6)= $$TRIM^CHT FLIB($E(A, 181,205)) ;HOSP ITAL CITY | |
86 | S TPP(7)= $E(A,206,2 07) ;HOSP ITAL STATE | |
87 | S TPP(8)= $E(A,208,2 12) ;HOSP ITAL ZIP | |
88 | S TPP(16) =$E(A,239, 244) ;WAGE INDEX | |
89 | I TPP(16) '=""!(TPP( 16)'=0) D | |
90 | .S TPP(16 )=$$LTRIM^ CHTFLIB(TP P(16))/100 00 ;THIS IS TO SET TO >nnnn DIGITS | |
91 | S TPP(19) =$E(A,297, 302) ;IDME FACTOR (4 IMPLIED D ECI) | |
92 | ; (US E 1 + IDME FACTOR IN CALCS) | |
93 | I TPP(19) '=""!(TPP( 19)'=0) D | |
94 | .S TPP(19 )=$$LTRIM^ CHTFLIB(TP P(19))/100 00 ; THI S IS TO SE T TO >nnnn DIGITS | |
95 | LOADP ;LOA DING TEMP FI PROVIDE R FILE GLO BAL | |
96 | I TPP(1)= ""!(TPP(1) =0)!(TPP(3 )="")!(TPP (3)=0) D | |
97 | .S ECTR=E CTR+1 | |
98 | .S ^CHMZH OLD("IDME" ,"EXCPTN", "PROV",ECT R)=TPP(1)_ "^"_TPP(3) _"^"_TPP(4 )_"^"_TPP( 5)_"^"_TPP (6)_"^"_TP P(7)_"^"_T PP(8)_"^"_ TPP(16)_"^ "_TPP(19)_ "^"_EFFDAT E_"^"_ENDD ATE | |
99 | E D | |
100 | .S CTRP=C TRP+1 | |
101 | .S ^CHMZH OLD("IDME" ,"PROV",CT RP)=TPP(1) _"^"_TPP(3 )_"^"_TPP( 4)_"^"_TPP (5)_"^"_TP P(6)_"^"_T PP(7)_"^"_ TPP(8)_"^" _TPP(16)_" ^"_TPP(19) _"^"_EFFDA TE_"^"_END DATE | |
102 | .S ^CHMZH OLD("IDME" ,"PROV","B ",TPP(1),T PP(3),CTRP )="" | |
103 | G A1 | |
104 | END1 ; | |
105 | C IO | |
106 | Q | |
107 | GTCDATA ;G ATHERING P ROVIDER DA TA | |
108 | U 0 W !," Reading in Zip Code to Wage In dex Crossw alk Data.. ." | |
109 | S $ZE="", $ZT="END1^ CHMLIDMQ" | |
110 | ;*** INIT IAL LOAD F ILE - FOR LIVE *** | |
111 | ;S IO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. IDMEUPDT." _ENVIR_"]Z IP2WAGE.TX T" | |
112 | S IO="HAC FS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. IDMEUPDT." _ENVIR_"]" _CNAME | |
113 | O IO:"R": 5 | |
114 | ;I '$T W !!,"NOT AB LE TO OPEN FILE" G E ND | |
115 | B1 ; | |
116 | U IO | |
117 | R A | |
118 | S CTRC=CT RC+1 | |
119 | S CTRCT=C TRCT+1 | |
120 | FMTC1 ; IN ITIAL LAOD FORMAT (F Y06) | |
121 | S TPC(1)= $E(A,1,5) ; ZIP CODE | |
122 | .S TPC(2) =$E(A,6,7) ; FIL LER (FORMA T BEFORE 1 0/1/06) | |
123 | I EFFDATE >3060930 D ; DAT E ZIP2WAGE FILE FORM AT CHANGED | |
124 | .S TPC(3) =$E(A,6,7) ; STA TE ABBREVI ATION | |
125 | E S TPC( 3)=$E(A,8, 9) | |
126 | S TPC(4)= $E(A,10,18 ) ; FIL LER | |
127 | S TPC(5)= $$LTRIM^CH TFLIB($E(A ,19,20)) ; STA TE CODE | |
128 | S TPC(6)= $E(A,21,22 ) ; FIL LER | |
129 | S TPC(7)= $E(A,23,27 ) ; CBS A (right j ustified) | |
130 | S TPC(8)= $$LTRIM^CH TFLIB($E(A ,28,35)) ; WAG E INDEX (r ight justi fied, form at is 1.00 00) | |
131 | S TPC(9)= DFLTIDME ; DEF AULT IDME FACTOR | |
132 | G LOADC | |
133 | LOADC ;LOA DING TEMP ZIP CODE T O WAGE IND EX CROSSWA LK FILE GL OBAL | |
134 | ;S TPP(1) =1 | |
135 | ;I TPP(1) =""!(TPP(1 )=0) D | |
136 | ;.S ECTR= ECTR+1 | |
137 | ;.S ^CHMZ HOLD("IDME ","EXCPTN" ,"ZIP",ECT R)=TPC(1)_ "^"_TPC(3) _"^"_TPC(5 )_"^"_TPC( 8)_"^"_TPC (9)_"^"_EF FDATE_"^"_ ENDDATE | |
138 | ;E D | |
139 | S CTRC=CT RC+1 | |
140 | S ^CHMZHO LD("IDME", "ZIP",CTRC )=TPC(1)_" ^"_TPC(3)_ "^"_TPC(5) _"^"_TPC(8 )_"^"_TPC( 9)_"^"_EFF DATE_"^"_E NDDATE | |
141 | S ^CHMZHO LD("IDME", "ZIP","B", TPC(1),CTR C)="" | |
142 | G B1 | |
143 | ; | |
144 | INIT ;INIT ILIZING VA RIABLES | |
145 | S (CTRP,C TRPT,CTRC, CTRCT)=0 | |
146 | S ECTR=0 | |
147 | S (EFFDAT E,ENDDATE) ="" | |
148 | K PNAME,C NAME | |
149 | ;DISPLAY MENU TITLE | |
150 | W @IOF,?2 8,"DRG Ini tial Load (IDME)",! | |
151 | ;SET ENVI RONMENT | |
152 | S AYGSYS= XQVOL | |
153 | S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V") | |
154 | S ENVIR=A YGSYS | |
155 | S DIR("B" )=ENVIR | |
156 | S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V" | |
157 | S DIR("L" ,1)="Selec t one of t he followi ng environ ments" | |
158 | S DIR("L" ,2)="" | |
159 | S DIR("L" ,3)=" 1 LIVE" | |
160 | S DIR("L" ,4)=" 2 TRAIN" | |
161 | S DIR("L" ,5)=" 3 TEST" | |
162 | S DIR("L" ,6)=" 4 DEV" | |
163 | S DIR("L" ,7)="" | |
164 | S DIR("L" )=" ^ QUIT" | |
165 | D ^DIR K DIR | |
166 | Q:$D(DUOU T) | |
167 | Q:Y="" | |
168 | Q:Y="^"!( Y="") | |
169 | S ENVIR=Y (0) | |
170 | K DIR | |
171 | Q:ENDDATE ="^" | |
172 | W ! | |
173 | ;ASK IF P ROVIDOR FI LE LOAD OR ZIP2WAGE FILE LOAD | |
174 | S DIR(0)= "S^1:PROVI DER;2:ZIP2 WAGE",DIR( "B")="P" D ^DIR K DI R | |
175 | Q:$D(DUOU T) | |
176 | Q:Y="^"!( Y="") | |
177 | S FTYPE=Y K DIR | |
178 | I FTYPE=1 D | |
179 | .;SET FI PROVIDER F ILE NAME | |
180 | .S DIR(0) ="F^3:50" | |
181 | .S DIR("A ")="Enter FI Provide r file nam e" D ^DIR K DIR | |
182 | .Q:$D(DUO UT) | |
183 | .Q:Y="^"! (Y="") | |
184 | .S PNAME= Y K DIR | |
185 | .K ^CHMZH OLD("IDME" ,"PROV") | |
186 | Q:$D(DUOU T) | |
187 | Q:Y="^"!( Y="") | |
188 | I FTYPE=2 D | |
189 | .;SET ZIP TO WAGE I NDEX CROSS WALK FILE | |
190 | .S DIR(0) ="FO^3:50" | |
191 | .S DIR("A ")="Enter Wage Index Crosswalk file name " D ^DIR K DIR | |
192 | .Q:$D(DUO UT) | |
193 | .S CNAME= Y K DIR | |
194 | .K ^CHMZH OLD("IDME" ,"ZIP") | |
195 | Q:$D(DUOU T) | |
196 | ;SET DEFA ULT IDME F ACTOR | |
197 | S DIR("B" )=0 S DIR( 0)="NA^-10 :10:4" | |
198 | S DIR("A" )="Enter D efault IDM E Factor " D ^DIR K DIR | |
199 | Q:$D(DUOU T) | |
200 | S DFLTIDM E=Y K DIR | |
201 | ;SET EFFE CTIVE DATE | |
202 | S EFFDATE ="" K DIR | |
203 | S DIR(0)= "D" S DIR( "A")="Ente r Effectiv e date (mm /dd/yy)" D ^DIR K DI R | |
204 | Q:$D(DUOU T) | |
205 | S (EFFDAT E,FEFFDATE )=Y | |
206 | ;SET END DATE | |
207 | S DIR(0)= "D;O" S DI R("A")="En ter Previo us Year's End date ( mm/dd/yy)" D ^DIR K DIR | |
208 | Q:$D(DUOU T) | |
209 | S ENDDATE =Y | |
210 | W !!,"Rea ding in Da ta...",! | |
211 | Q | |
212 | END ; | |
213 | K DIC | |
214 | ;U 0 W ! | |
215 | ;U 0 W !, "Total num ber of FI Provider r ecords rea d in: ",CT RPT | |
216 | ;U 0 W:$D (^CHMZHOLD ("IDME","Z IP")) !,"T otal numbe r of Zip C ode to Wag e Index Cr osswalk re cords read in: ",CTR CT | |
217 | ;U 0 W !! ,"Total nu mber of re cords adde d to Excep tion Repor t: ",ECTR | |
218 | Q | |
219 | END2 ;W !! ,"*** DATA FILE ERRO R HAS OCCU RED ***",! ! | |
220 | G END | |
221 | Q | |
222 | QUEA ;QUE THIS ROUTI NE MANUALL Y. | |
223 | I '$D(DUZ ) S DUZ=58 243,DUZ(0) ="@" | |
224 | D NOW^%DT C S DT=X | |
225 | S U="^" | |
226 | S CHFIO=" " | |
227 | S ZTRTN=" START^CHML IDMQ",ZTDE SC="PROCES S AWI RATE S" | |
228 | S ZTIO="" ,ZTSAVE("^ CHMZHOLD(" "IDME"")") ="",ZTSAVE ("ECTR")=" " | |
229 | S ZTSAVE( "CTRPT")=" ",ZTSAVE(" CNAME")="" ,ZTSAVE("P NAME")="", ZTSAVE("DF LTIDME")=" " | |
230 | S ZTSAVE( "EFFDATE") ="",ZTSAVE ("FEFFDATE ")="",ZTSA VE("ENDDAT E")="" | |
231 | S ZTSAVE( "ENVIR")=" ",ZTSAVE(" CTRP")="", ZTSAVE("CT RPT")="",Z TSAVE("CTR C")="" | |
232 | S ZTSAVE( "CTRCT")=" ",ZTSAVE(" FTYPE")="" | |
233 | D ^%ZTLOA D | |
234 | Q | |
235 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.