Produced by Araxis Merge on 11/9/2018 12:33:56 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 | CHMICBSA.m | Mon Nov 5 16:43:33 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMICBSA.m | Mon Nov 5 17:48:10 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 386 |
Changed | 1 | 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 | CHMICBSA ; DRW;DATA L OAD CBSA A ND WAGE RA TE INDEX F ILE; 04/18 /12 | |
2 | ;;1.0;CHA MPVA SYSTE M;;APRIL 1 8, 2012; | |
3 | ; | |
4 | ;DEV00642 1 - AUTOMA TE HOSPICE PAYMENT M ETHODOLOGY | |
5 | ; | |
6 | ;THIS ROU TINE LOADS THE TRICA RE AND OR MEDICARE W AGE RATE | |
7 | ;INDEX BA SED ON CBS A (Core Ba sed Statis tical Area ) | |
8 | ; fo rmat of th e file is | |
9 | ; CB SA (5-Nume ric) Count y and or c ity name, ST (1-50) Wage Inde x 0.9999 | |
10 | ; At th is point i n time, th e county p ortion of the global will not be in use | |
11 | ;GLOBAL: | |
12 | ; ^CHM DIC(741043 ) - CHAMPV A CBSA HOS PICE WAGE REATE INDE X | |
13 | ; ^CHM ZHOLD("CHM CBSA","WAG ERATE", - TEMP GLOBA L TO HOUSE EFFECTIVE DATE + | |
14 | ; CBSA/CO UNTY NAME/ WAGE RATE INDEX | |
15 | ;BUG00642 1-04-02 - corrected name tag a nd called routine to from pers onal | |
16 | ;routine name (ZDRW CBSA) to t he name of the routi ne (CHMICB SA) 08/17/ 12. | |
17 | ;BUG00642 1-08-04 -- corrected county le ngth name. Since co unty name exceeded o ver 40 cha racters, | |
18 | ;wage ind ex for tha t particul ar county failed to load. 01/ 09/2014 | |
19 | ;DEV01 2893, DEV0 16554 - DP T replace decnet | |
20 | ;INC18 97543 DPT 8/20/2018 REMOVE ENV IR CHECK, CHANGE FIE LD FOR IND EX | |
21 | ||
22 | START ; | |
23 | D INIT | |
24 | Q:$D(DUOU T) | |
25 | G:EFFDATE ="^" END | |
26 | D CBSALOA D | |
27 | W !!,"CHM ZHOLD FOR WAGE INDEX LOADED" | |
28 | W !,"THE NUMBER OF RECS WRITT EN IS "_CT R | |
29 | I '$D(^CH MZHOLD("CH MCBSA","WA GERATE",CH DLRJ)) G F IN1 | |
30 | S DIR(0)= "Y",DIR("A ")="OK TO UPDATE CBS A GLOBAL", DIR("B")=" NO" D ^DIR K DIR | |
31 | Q:$D(DUOU T) | |
32 | S ANS=Y | |
33 | Q:Y="^"!( Y="") | |
34 | I ANS=1 D LOADCBSA D ENDMSG ;LO ADING URBA N AND RURA L CBSA TO GLOBAL | |
35 | I ANS=0 D CHTOMSG^C HMICBSA(CH DLRJ,CHFLD T) D ENDM SG1 ; USER ENTERS "N O" AND MAI L MAN MESS AGE IS GEN ERATED | |
36 | FIN1; | |
37 | D END | |
38 | Q | |
39 | CBSALOAD ; READ CBSA( URBAN) FIL E FROM FS3 BIG(FLAT F ILE) INTO TEMP HOLDI NG AREA | |
40 | U 0 W !!, "Reading i n CBSA Dat a...",! | |
41 | X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 012893 DPT | |
42 | ;S FOL DER="HAC_H FS$:[SCR.T EMP_FILES] " ;DEV0128 93 DPT | |
43 | ;I UCI '="HAC" S FOLDER="HA C_HFS$:[DS MMANAG.CHA MPVA]" ;DE V012893 DP T | |
44 | S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" | |
45 | S CHIO =FNAME ;D EV012893 D PT | |
46 | S CHIO =FOLDER_CH IO ;DEV012 893 DPT | |
47 | ;S CHU CI=$S(UCI= "DEV":"DEV ",UCI="TST ":"TEST",U CI="TRN":" TRAIN",UCI ="SLA":"LI VE",UCI="H AC":"LIVE" ) ;INC189 7543 DPT;D EV012893 D PT | |
48 | ;S FLD R="/FS3BIG /CODEUPDT/ HOSPUPDT/" _CHUCI ;I NC1897543 DPT;DEV012 893 DPT | |
49 | ;D FTPFILE ^CHTFLIB9( CHIO," DNS fs3. DNS ",FLDR,"GE T") ;DEV012893 DPT | |
50 | ;S CHIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. HOSPUPDT." _ENVIR_"]" _FNAME ;IN C1897543 D PT | |
51 | ; H 5 | |
52 | ;S POP =0,CNTR=0 ;DEV016554 DPT | |
53 | ;F S CNTR=CNTR+ 1 Q:(CNTR> 5)!POP D ;DEV016554 DPT | |
54 | ; . X "D $SYSTEM .Process.S etZEOF(1)" ;DEV0165 54 DPT | |
55 | ; . S POP=$$OPE NFIRD^CHTF LIB9(.CHIO ,"CHIO") ; DEV016554 DPT | |
56 | ; .Q ; DEV016554 DPT | |
57 | ;I 'PO P G FIN ;D EV016554 D PT | |
58 | O CHIO:"R ":5 | |
59 | ;Q:$T=0 ;FILE OP EN CHECK 1 =OPEN/0=NO T OPEN | |
60 | S CTR=0,C TRA=0 | |
61 | S CTR1=0 | |
62 | F U CHIO R REC G:R EC="^^^^" FIN D | |
63 | .Q:$A(REC )=26 ;ER RONEOUS DA TA IN FILE CHECK | |
64 | .S CTR=CT R+1,CTR1=C TR1+1 | |
65 | .S ^CHMZH OLD("CHMCB SA","WAGER ATE",CHDLR J,CTR)=EFF DATE_"^"_R EC | |
66 | FIN D ENDC | |
67 | Q | |
68 | LOADCBSA ; UPDATE CBS A GLOBAL C HMDIC(7410 43 USING F M | |
69 | Q:'$D(^CH MZHOLD("CH MCBSA","WA GERATE",CH DLRJ)) | |
70 | W !!,"Loa ding HOSPI CE RATE WA GE Global From ^CHMZ HOLD (may take up to 6 minutes )",! | |
71 | S ANS=Y | |
72 | S CTR=0 F S CTR=$O (^CHMZHOLD ("CHMCBSA" ,"WAGERATE ",CHDLRJ,C TR)) Q:'CT R D | |
73 | .S (CHCBS A,CHCOUNTY ,CHINDEX,C HIEN,EFFDA TE)="" | |
74 | .S CHCBSA =$P(^CHMZH OLD("CHMCB SA","WAGER ATE",CHDLR J,CTR),"^" ,2) ;cb sa code | |
75 | .I CHCBSA '="" D | |
76 | ..S EFFDA TE=$P(^CHM ZHOLD("CHM CBSA","WAG ERATE",CHD LRJ,CTR)," ^",1) ; EFFECTIVE DATE | |
77 | ..S CHCOU NTY=$P(^CH MZHOLD("CH MCBSA","WA GERATE",CH DLRJ,CTR), "^",3) ; COUN TY NAME (l imit to 39 character s) | |
78 | ..S CHCOU NTY=$E(CHC OUNTY,1,39 ) | |
79 | ..S CHIND EX=$P(^CHM ZHOLD("CHM CBSA","WAG ERATE",CHD LRJ,CTR)," ^",5) ; C BSA CODE w age index ;INC189754 3 DPT | |
80 | ..I CHIND EX'?0.1N1" ."1.4N S CHINDEX=" " | |
81 | ..S (DIC, DLAYGO)="^ CHMDIC(741 043,",DIC( 0)="FL",X= CHCBSA D ^ DIC | |
82 | ..S DA(1) =+Y | |
83 | ..S DIC=D IC_DA(1)_" ,1," | |
84 | ..S DI C(0)="L" | |
85 | ..S X= EFFDATE | |
86 | ..D ^D IC | |
87 | ..S DI E=DIC K DI C | |
88 | ..S DA =+Y | |
89 | ..S DR="4 ///"_CHCOU NTY_";5/// "_CHINDEX_ ";6///"_DU Z_";7///"_ CHFLDT | |
90 | ..D ^DIE | |
91 | ..K DIE,D R,DA,Y | |
92 | S CTRA=$P (^CHMDIC(7 41043,0)," ^",5) ;UPD ATE ACTUAL COUNTER I N THE FILE | |
93 | S CTRA=CT RA+CTR1 | |
94 | S $P(^CHM DIC(741043 ,0),"^",5) =CTRA | |
95 | D MMMSG(C TR1) ;S ENDING MM MESSAGE TH AT REPORT IS READY | |
96 | Q | |
97 | INIT ;INIT ILIZING VA RIABLES | |
98 | D NOW^%DT C S CHFLDT =% ;FILE LOAD DATE | |
99 | S:'$D(DUZ ) DUZ=1 | |
100 | S CTR=0 | |
101 | S EFFDATE ="" | |
102 | S CHDLRJ= $J | |
103 | K FNAME | |
104 | ;DISPLAY MENU TITLE | |
105 | W !,@IOF ;;force t itle to to p of scree n | |
106 | S TITLE=" Wage Rate Index and CBSA Data Load" | |
107 | W ?(39-($ L(TITLE)/2 )),TITLE,! !! | |
108 | ;SET ENVI RONMENT | |
109 | ;S ENVIR= $$ENVIR^CH TFLIB | |
110 | ;S DIR("B ")=ENVIR | |
111 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
112 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
113 | ;S DIR("L ",2)="" | |
114 | ;S DIR("L ",3)=" 1 LIVE" | |
115 | ;S DIR("L ",4)=" 2 TRAIN" | |
116 | ;S DIR("L ",5)=" 3 TEST" | |
117 | ;S DIR("L ",6)=" 4 DEV" | |
118 | ;S DIR("L ",7)="" | |
119 | ;S DIR("L ")=" ^ QUIT" | |
120 | ;D ^DIR K DIR | |
121 | ;Q:$D(DUO UT) | |
122 | ;Q:Y="" | |
123 | ;Q:Y="^"! (Y="") | |
124 | ;S ENVIR= Y(0) | |
125 | ;K DIR | |
126 | W ! | |
127 | ;ASK for file name of the dat a load LOA D | |
128 | ;SET ZIP5 CODE FILE | |
129 | S DIR(0)= "F^3:50" | |
130 | S DIR("A" )="Enter F Y Wage Ind ex File Na me" D ^DIR K DIR | |
131 | Q:$D(DUOU T) | |
132 | Q:Y="^"!( Y="") | |
133 | S FNAME=Y K DIR | |
134 | K ^CHMZHO LD("CHMCBS A","WAGERA TE") | |
135 | K ^CHMZHO LD("CHMCBS A","WAGERA TE","RR") | |
136 | Q:$D(DUOU T) | |
137 | ;SET FY E FFECTIVE D ATE | |
138 | S EFFDATE ="" K DIR | |
139 | S DIR(0)= "D" S DIR( "A")="Ente r FY Effec tive date (mm/dd/yy) " D ^DIR K DIR | |
140 | Q:$D(DUOU T) | |
141 | S EFFDATE =Y | |
142 | Q | |
143 | ENDC ;CLOS ING FILE | |
144 | ;C CHIO | |
145 | D CLOS EF^CHTFLIB 9(CHIO,"CH IO") ;DEV0 16554 DPT | |
146 | X "D $ SYSTEM.Pro cess.SetZE OF(0)" ;DE V016554 DP T | |
147 | ;I $T=1 W !!,"Hospi ce Wage Ra te data fi le success fully clos ed",! | |
148 | W !!,"Hos pice Wage Rate data file succe ssfully cl osed",! | |
149 | Q | |
150 | END ; | |
151 | K EFFDATE ,AYGSYS,EN VIR,CHIO,F NAME,REC,C HLDGB | |
152 | K CHZPST, CHZPCD,CHZ PCR,CHZPPL ,CHZPRI,CH ZPPFF | |
153 | K CHZPPF, CHZPYQ,CTR ,EDSPLY,FT YPE,CHIEN, CHDLRJ | |
154 | K DIC,CTR ,CTR1,CTRA | |
155 | Q | |
156 | MMMSG(CTR1 ) ;GENERAT E MM MESSA GE | |
157 | S CNT=1,^ TMP(CHDLRJ ,"CHMCBSA" ,CNT)="",C NT=CNT+1 | |
158 | S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "GLOBAL 74 1043 - HAS BEEN UPDA TED WITH " ,CNT=CNT+1 | |
159 | S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "",CNT=CNT +1 | |
160 | S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "THESE NUM BER OF REC ORDS "_CTR 1,CNT=CNT+ 1 | |
161 | S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "",CNT=CNT +1 | |
162 | S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "GLOBAL SH OULD BE RE ADY TO CHE CK.",CNT=C NT+1 | |
163 | S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "",CNT=CNT +1 | |
164 | S XMTEXT= "^TMP(CHDL RJ,""CHMCB SA""," | |
165 | S XMDUZ=. 5 | |
166 | S XMY(DUZ )="" | |
167 | S XMSUB=" GBL 741043 CBSA HOSP ICE WAGE R ATE INDEX UPDT-CMPLT D" D ^XMD | |
168 | Q | |
169 | CHTOMSG(CH DLRJ,CHFLD T) ;GENE RATE MESSA GE TO RUN SECOND PAR T OF UPDAT E | |
170 | S CNT=1,^ TMP(CHDLRJ ,"CHMCBSA" ,CNT)="",C NT=CNT+1 | |
171 | S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "NO UDATE HAS TAKEN PLACE...", CNT=CNT+1 | |
172 | S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "CHECK: ^C HMZHOLD("" CHMCBSA"", ""WAGERATE "","_CHDLR J_")",CNT= CNT+1 | |
173 | S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "DO THE FO LLOWING TO UPDATE ^C HMDIC(7410 43):",CNT= CNT+1 | |
174 | S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "RUN (HOT) TO SCREEN :",CNT=CNT +1 | |
175 | S ^TMP(CH DLRJ,"CHMC BSA",CNT)= " S CHDL RJ="_CHDLR J,CNT=CNT+ 1 | |
176 | S ^TMP(CH DLRJ,"CHMC BSA",CNT)= " S CHFL DT="_CHFLD T,CNT=CNT+ 1 | |
177 | S ^TMP(CH DLRJ,"CHMD BSA",CNT)= " D LOAD CBSA^CHMIC BSA",CNT=C NT+1 | |
178 | S XMTEXT= "^TMP(CHDL RJ,""CHMCB SA""," | |
179 | S XMDUZ=. 5 | |
180 | S XMY(DUZ )="" | |
181 | S XMSUB=" GBL 741043 CBSA HOSP ICE WAGE R ATE INDEX UPDT-NOT C MPLTD" D ^ XMD | |
182 | Q | |
183 | ENDMSG; | |
184 | W !!," GLOBAL 741 043 Update completed . Ready t o view " | |
185 | Q | |
186 | ENDMSG1 | |
187 | W !!," GLOBAL 741 043 Not up dated. Fo llow instr uctions to update gl obal " | |
188 | Q | |
189 | ;KLLAFS ; use this only to k ill off en tries in g lobal. Not to be use d in LIVE only in DE V | |
190 | ; Q ;SAFETY QUIT | |
191 | ; S I=0 F { S I=$O(^CHM DIC(741043 ,I)) Q:'I S DIK="^C HMDIC(7410 43,",DA=I D ^DIK } | |
192 | ; Q | |
193 | ; S I=0 F { S I=$O(^CHM DIC(741045 ,I)) Q:'I S DIK="^C HMDIC(7410 45,",DA=I D ^DIK } | |
194 | ; Q | |
195 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.