Produced by Araxis Merge on 11/9/2018 12:34:01 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 | CHMLAFS2.m | Mon Nov 5 16:42:23 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLAFS2.m | Mon Nov 5 17:49:53 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 428 |
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 | CHMLAFS2 ; JEH/CHV;DA TA LOAD CM S AMB SRVS FEE SCHED ULE FILES; 07/26/10 8:40 AM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; | |
3 | ; | |
4 | ;DEV00369 8 - INTALL PPS AMBUL ANCE FEE S CHEDULE | |
5 | ; | |
6 | ;THIS ROU TINE LOADS THE FOLLO WING DATA FILES INTO CP&E: | |
7 | ; AS FS CODE TO LOCALITY RECORD (EXAMPLE: ASFS_APR10 .TXT, ASFS _JUL10_V2) | |
8 | ; ZI P9 CODE TO LOCALITY RECORD (EXAMPLE: ZIP9_APR10 .TXT, ZIP9 _JUL10_V2) | |
9 | ; | |
10 | ;GLOBAL: | |
11 | ; ^CHM DIC(741040 ) - CHAMPV A CMS AMB SRVS FEE S CHEDULE | |
12 | ; ^CHM ZHOLD("CHM LAFS","ASF S", - TEMP GLOBA L TO HOUSE AMB SRVC FEE SCHED DATA | |
13 | ; | |
14 | ;MTN02009 3 DEV01655 4 CODE UPD ATE EOF RE PLACE DECN ET 1/13/14 | |
15 | ;MTN02 7620 DPT 2 017 UPDATE REMOVE UP DATE OF CH STNM 12/23 /16 | |
16 | START ; | |
17 | D INIT | |
18 | Q:$D(DUOU T) | |
19 | G:EFFDATE ="^" END | |
20 | ;GETTING & LOADING ASF DATA I NTO ^CHMDI C(741040) | |
21 | D GTASFS | |
22 | I $D(^CHM ZHOLD("CHM LAFS","ASF S",CHDLRJ) ) { | |
23 | S DIR(0)="Y" ,DIR("A")= "OK TO UPD ATE ASFS G LOBAL",DIR ("B")="NO" D ^DIR K DIR | |
24 | I Y=1 D QUEA ^CHMLAFS2 ;TASKING GLOBAL DA TA UPDATE | |
25 | E D CHTOMSG ^CHMLAFS2( CHDLRJ,CHF LDT) ; UP DATE MESSA GE | |
26 | } | |
27 | D END | |
28 | Q | |
29 | GTASFS ;GA THERING AS FS DATA | |
30 | U 0 W !!, "Reading i n ASFS Dat a...",! | |
31 | ;S $ZE="" ,$ZT="ENDC ^CHMLAFS2" | |
32 | ;N FOL DER,CNTR ;DEV016554 DPT | |
33 | ;S IOF ="#,*27,*9 1,*50,*74, *27,*91,*7 2" ;DEV016 554 DPT | |
34 | ;S FIL E=FNAME,FO LDER="" ;D EV016554 D PT | |
35 | ;X ^%Z OSF("UCI") S UCI=$P( Y,",",1) ; DEV016554 DPT | |
36 | ;S FOL DER="HAC_H FS$:[SCR.T EMP_FILES] " ;DEV0165 54 DPT | |
37 | ;I UCI '="HAC" S FOLDER="HA C_HFS$:[DS MMANAG.CHA MPVA]" ;DE V016554 DP T | |
38 | ;S FIL E=FOLDER_F ILE ;DEV01 6554 DPT | |
39 | ;S FLD R="/FS3BIG /CODEUPDT/ AMBUPDT/"_ UCI ;DEV01 6554 DPT | |
40 | ;D FTPFILE ^CHTFLIB9( FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 6554 DPT | |
41 | ||
42 | ;S CHIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. AMBUPDT."_ ENVIR_"]"_ FNAME | |
43 | ;O CHIO:" R":5 | |
44 | ;I $T=0 W !,"UNABLE TO OPEN F ILE." Q | |
45 | ; S POP=0 ,CNTR=0 ;D EV016554 D PT | |
46 | ;F S CNTR=CNTR+ 1 Q:(CNTR> 5)!POP D ;DEV016554 DPT | |
47 | ;.X "D $SYSTEM.P rocess.Set ZEOF(1)" ; DEV016554 DPT | |
48 | ;. S P OP=$$OPENF IRD^CHTFLI B9(.FILE," FILE") ;DE V016554 DP T | |
49 | ;.Q ;D EV016554 D PT | |
50 | ;I 'PO P Q ;DEV0 16554 DPT | |
51 | S FILE ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FNAME | |
52 | O FILE :"R":5 | |
53 | U FILE | |
54 | S CTR=0 | |
55 | S CTR2=0 | |
56 | F { | |
57 | U FILE R REC | |
58 | G: $$STATUS^% ZISH ENDC ;DEV016554 DPT | |
59 | Q: $A(REC)=26 ;ERRONE OUS DATA I N FILE CHE CK | |
60 | S CHTMP=$P(R EC,"^",2) | |
61 | IF $G(CHTMP) ="" { | |
62 | S CT R2=CTR2+1 | |
63 | S CH STNM=$$UPP ER^CHTFLIB ($P(REC,"^ ",1)) ;S TATE NAME | |
64 | } | |
65 | EL SE { | |
66 | S CT R=CTR+1 S REC=$TR(RE C,"""$,n/a ") | |
67 | S CH STNM="" | |
68 | ||
69 | S ^C HMZHOLD("C HMLAFS","A SFS",CHDLR J,CTR)=EFF DATE_"^"_E NDDATE_"^" _CHSTNM_"^ "_REC | |
70 | } | |
71 | } | |
72 | Q | |
73 | LDASFS ;UP DATE ASFS GLOBAL USI NG FM | |
74 | Q:'$D(^CH MZHOLD("CH MLAFS","AS FS",CHDLRJ )) | |
75 | W !!,"Upd ating Ambu lance FS d ata.",! | |
76 | S CTR=0 F { | |
77 | S CTR=$O(^CH MZHOLD("CH MLAFS","AS FS",CHDLRJ ,CTR)) Q:' CTR | |
78 | ;D US09FMT ;USE CY09 FILE FORM AT | |
79 | D US17FMT ;MTN DPT USE CY201 7 FORMAT | |
80 | S (DLAYGO,DI C)="^CHMDI C(741040," ,DIC(0)="L ",X=CHCAR D ^DIC ; ADD CARRIE R NODE | |
81 | I Y=-1 K DIC Q | |
82 | S DIE=DIC | |
83 | S DA=+Y | |
84 | S DR="1////" ";2////"_C HLOC | |
85 | ||
86 | S DR="1////" _CHSTNM_"; 2////"_CHL OC | |
87 | S DR(2,74104 0.02)="1// //"_CHHCD | |
88 | S DR(3,74104 0.21)="1// //"_EFFDAT E | |
89 | S DR(4,74104 0.211)="1/ //"_ENDDAT E_";2///"_ CHBSRT_";3 ///"_CHRVU _";4///"_C HGPCI_";5/ //"_CHUBRU M_";6///"_ CHRBRRM_"; 7///"_CHRB RLQ_";8/// "_CHRGM117 _";11///"_ DUZ_";12// /"_CHFLDT ;EFFECTI VE DATE PR OMPT | |
90 | D ^DIE | |
91 | } | |
92 | D MMMSG ; SENDING MM MESSAGE T HAT REPORT IS READY | |
93 | Q | |
94 | INIT ;INIT ILIZING VA RIABLES | |
95 | D NOW^%DT C S CHFLDT =% ;FILE LOAD DATE | |
96 | S:'$D(DUZ ) DUZ=1 | |
97 | S CTR=0 | |
98 | S EFFDATE ="" | |
99 | S CHDLRJ= $J | |
100 | K FNAME | |
101 | ;DISPLAY MENU TITLE | |
102 | S TITLE=" Ambulance Services F EE Schedul e Data Loa d" | |
103 | W ?(39-($ L(TITLE)/2 )),TITLE,! !! | |
104 | ;SET ENVI RONMENT | |
105 | ;S ENVIR= $$ENVIR^CH TFLIB | |
106 | ;S DIR("B ")=ENVIR | |
107 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
108 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
109 | ;S DIR("L ",2)="" | |
110 | ;S DIR("L ",3)=" 1 LIVE" | |
111 | ;S DIR("L ",4)=" 2 TRAIN" | |
112 | ;S DIR("L ",5)=" 3 TEST" | |
113 | ;S DIR("L ",6)=" 4 DEV" | |
114 | ;S DIR("L ",7)="" | |
115 | ;S DIR("L ")=" ^ QUIT" | |
116 | ;D ^DIR K DIR | |
117 | ;Q:$D(DUO UT) | |
118 | ;Q:Y="" | |
119 | ;Q:Y="^"! (Y="") | |
120 | ;S ENVIR= Y(0) | |
121 | ;K DIR | |
122 | W ! | |
123 | ;SET ASFS CODE FILE | |
124 | W !,"FILE EXAMPLE: ambfspuf_ 2010_ACA_u pdate_fina l.txt",! | |
125 | S DIR(0)= "F^3:50" | |
126 | S DIR("A" )="Enter A SFS file n ame" D ^DI R K DIR | |
127 | Q:$D(DUOU T) | |
128 | Q:Y="^"!( Y="") | |
129 | S FNAME=Y K DIR | |
130 | K ^CHMZHO LD("CHMLAF S","ASFS") | |
131 | ;SET ASFS EFFECTIVE DATE | |
132 | S EFFDATE ="" K DIR | |
133 | S DIR(0)= "D" S DIR( "A")="Ente r ASFS Eff ective dat e (mm/dd/y y)" D ^DIR K DIR | |
134 | Q:$D(DUOU T) | |
135 | S EFFDATE =Y | |
136 | ;SET ASFS END DATE | |
137 | S ENDDATE ="" K DIR | |
138 | S DIR(0)= "DO" S DIR ("A")="Ent er ASFS En d date (mm /dd/yy)" D ^DIR K DI R | |
139 | Q:$D(DUOU T) | |
140 | S ENDDATE =Y | |
141 | Q | |
142 | ENDC ;CLOS ING FILE | |
143 | C FILE | |
144 | D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT | |
145 | X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT | |
146 | Q | |
147 | END ; | |
148 | K EFFDATE ,AYGSYS,EN VIR,CHIO,F NAME,REC,C HLDGB | |
149 | K CHZPST, CHZPCD,CHZ PCR,CHZPPL ,CHZPRI,CH ZPPFF | |
150 | K CHZPPF, CHZPYQ,CTR ,EDSPLY,FT YPE,CHIEN, CHDLRJ | |
151 | K DIC | |
152 | Q | |
153 | QUEA ;QUE OR RUN THI S ROUTINE MANUALLY. | |
154 | I '$D(DUZ ) S DUZ=1, DUZ(0)="@" | |
155 | D NOW^%DT C S DT=X | |
156 | S CHFIO=" ",ZTSAVE(" DUZ")="",Z TSAVE("CHF LDT")="" | |
157 | S ZTSAVE( "CHDLRJ")= "" | |
158 | S ZTRTN=" LDASFS^CHM LAFS2",ZTD ESC="PROCE SS AFS FIL E" | |
159 | S ZTIO="" | |
160 | ;D ^%ZTLO AD | |
161 | D @ZTRTN ; USE IF RUNNING HOT | |
162 | W !!,"UDA TE HAS BEE N TASKED. MM WILL BE SENT WHEN DONE." | |
163 | Q | |
164 | MMMSG ;GEN ERATE MM M ESSAGE | |
165 | S CNT=1,^ TMP(CHDLRJ ,"CHMLAFS" ,CNT)="",C NT=CNT+1 | |
166 | S ^TMP(CH DLRJ,"CHML AFS",CNT)= "GLOBAL 74 1040 HAS B EEN UPDATE D.",CNT=CN T+1 | |
167 | S ^TMP(CH DLRJ,"CHML AFS",CNT)= "",CNT=CNT +1 | |
168 | S ^TMP(CH DLRJ,"CHML AFS",CNT)= "PLEASE CH ECK.",CNT= CNT+1 | |
169 | S ^TMP(CH DLRJ,"CHML AFS",CNT)= "",CNT=CNT +1 | |
170 | S XMTEXT= "^TMP(CHDL RJ,""CHMLA FS""," | |
171 | S XMDUZ=. 5 | |
172 | S XMY(DUZ )="" | |
173 | S XMSUB=" GBL 741040 UPDT-CMPL TD" D ^XMD | |
174 | Q | |
175 | CHTOMSG(CH TODJ,CHTOF DT) ;GEN ERATE MESS AGE TO RUN SECOND PA RT OF UPDA TE | |
176 | W !,"TO R UN SECOND PART OF UP DATE..." | |
177 | W !,"CHEC K: ^CHMZHO LD(""CHMLA FS"",""ASF S"",",CHTO DJ,")" | |
178 | W !,"DO T HE FOLLOWI NG TO UPDA TE ^CHMDIC (741040):" | |
179 | W !,?5,"R UN (HOT) T O SCREEN:" ,?30,"S CH DLRJ=",CHT ODJ | |
180 | W !,?30," S CHFLDT=" ,CHTOFDT | |
181 | W !,?30," D LDASFS^C HMLAFS2" | |
182 | W !!,?5," RUN (TASK) TO TASKMA N:",?30,"S CHDLRJ=", CHTODJ | |
183 | W !,?30," S CHFLDT=" ,CHTOFDT | |
184 | W !,?30," D QUEA^CHM LAFS2" | |
185 | W ! | |
186 | Q | |
187 | US09FMT ;U SE CY09 FI LE FORMAT | |
188 | S (CHZPST ,CHZPCD,CH ZPCR,CHZPP L,CHZPRI,C HZPPFF,CHZ PPF,CHZPYQ ,EFFDATE)= "" | |
189 | S (EFFDAT E,ENDDATE, CHSTNM,CHC AR,CHLOC,C HHCD,CHBSR T,CHRVU)=" " | |
190 | S (CHGPCI ,CHUBRUM,C HRBRRM,CHR BRLQ,CHRGM 117)="" | |
191 | S EFFDATE =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",1) ; EFFECT IVE DATE | |
192 | S ENDDATE =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",2) ; END DA TE | |
193 | S CHSTNM= $P(^CHMZHO LD("CHMLAF S","ASFS", CHDLRJ,CTR ),"^",3) ; STATE NAME mtn02 7620 dpt 1 2/23/16 | |
194 | S CHCAR=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",4) ; CARRIE R | |
195 | S CHLOC=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",5) ; LOCALI TY | |
196 | S CHHCD=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",6) ; HCPCS CODE | |
197 | S CHBSRT= $P(^CHMZHO LD("CHMLAF S","ASFS", CHDLRJ,CTR ),"^",7) ; BASE R ATE | |
198 | S CHRVU=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",8) ; RELATI VE VALUE U NITS (RVU) | |
199 | S CHGPCI= $P(^CHMZHO LD("CHMLAF S","ASFS", CHDLRJ,CTR ),"^",9) ; GEOGRA PHIC PRACT ICE COST I NDEX (GPCI ) | |
200 | S CHUBRUM =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",10) ; URBAN BASE RATE/ URBAN MILE AGE | |
201 | S CHRBRRM =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",11) ; RURAL BASE RATE/ RURAL MILE AGE | |
202 | S CHRBRLQ =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",12) ; RURAL BASE RATE/ LOWEST QUA RTILE | |
203 | S CHRGM11 7=$P(^CHMZ HOLD("CHML AFS","ASFS ",CHDLRJ,C TR),"^",13 ) ; RURA L GROUND M ILES 1-17 | |
204 | Q | |
205 | US17FMT ;L AYOUT FOR 2017 AND F ORWARD | |
206 | S (CHZPST ,CHZPCD,CH ZPCR,CHZPP L,CHZPRI,C HZPPFF,CHZ PPF,CHZPYQ ,EFFDATE)= "" | |
207 | S (EFFDAT E,ENDDATE, CHSTNM,CHC AR,CHLOC,C HHCD,CHBSR T,CHRVU)=" " | |
208 | S (CHGPCI ,CHUBRUM,C HRBRRM,CHR BRLQ,CHRGM 117)="" | |
209 | S EFFDATE =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",1) ; EFFECT IVE DATE | |
210 | S ENDDATE =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",2) ; END DA TE | |
211 | S CHSTNM= $P(^CHMZHO LD("CHMLAF S","ASFS", CHDLRJ,CTR ),"^",3) ; STATE NAME mtn02 7620 dpt 1 2/23/16 | |
212 | S CHCAR=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",4) ; CARRIE R | |
213 | S CHLOC=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",5) ; LOCALI TY | |
214 | S CHHCD=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",6) ; HCPCS CODE | |
215 | S CHRVU=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",7) ; RELATI VE VALUE U NITS (RVU) | |
216 | S CHGPCI= $P(^CHMZHO LD("CHMLAF S","ASFS", CHDLRJ,CTR ),"^",8) ; GEOGRA PHIC PRACT ICE COST I NDEX (GPCI ) |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.