Produced by Araxis Merge on 11/9/2018 12:34:04 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 | CHMLDME3.m | Mon Nov 5 16:39:51 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLDME3.m | Mon Nov 5 17:50:05 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 448 |
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 | CHMLDME3 ; JEH/CHV;DA TA LOAD L- CODE PRICI NG FILES;0 8/13/13 8 :40 AM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Buil d 1 | |
3 | ; | |
4 | ;DEV00369 8 - INTALL DMEPOS FE E SCHEDULE | |
5 | ; | |
6 | ;THIS ROU TINE LOADS THE FOLLO WING DATA FILES INTO CP&E: | |
7 | ; L -CODE PRIC ING UPDATE (EXAM PLE: JAN13 _CodePrici ngUpdate.t xt) | |
8 | ; | |
9 | ;GLOBALS: | |
10 | ; ^CH MDIC(74103 1) - CHAM PVA DMEPOS FEE SCHED ULE | |
11 | ; ^CH MZHOLD("CH MLDME", - TEMP GL OBAL TO HO LD EFF & E ND DATE + FEE SCHED DATA | |
12 | ; | |
13 | ;JEH 9/5/ 13 - ENC01 8925 Post- SLLA/DMEPO S, to add a history piece & lo okup optio n to view DMEPOS fil es | |
14 | ;DPT 2/1/ 14 - DEV01 6554,DEV01 2893 EOF, REPLACE DE CNET | |
15 | ;mtn02731 1 DPT 12/0 1/14 - CHA NGE CAT TO LOOK UP C AT IN NEW GLOBAL CHM DIC(741031 .12 | |
16 | ;MTN DP T - FY2018 OMIT CHEC K FOR ENVI RONMENT MA NUALLY MOV E FILE FRO M FS3 TO C ACHE | |
17 | START ; | |
18 | D INIT | |
19 | Q:$D(DUOU T) | |
20 | G:EFFDATE ="^" END | |
21 | D GTDME | |
22 | I $D(^CHM ZHOLD("CHM LDME",CHDL RJ)) D | |
23 | .S DIR(0) ="Y",DIR(" A")="OK TO UPDATE DM EPOS GLOBA L",DIR("B" )="NO" D ^ DIR K DIR | |
24 | .Q:Y=-1 | |
25 | .S ANS=Y | |
26 | .I ANS=1 D | |
27 | ..D QUEA^ CHMLDME3 ;TASKING GLOBAL DAT A UPDATE | |
28 | .I ANS="" D CHTOMS G^CHMLDME1 (CHDLRJ,CH FLDT) ; U PDATE TIME D OUT MESS AGE | |
29 | E W !,"N OTHING UPD ATED...PLE ASE CHECK FILES!" | |
30 | D END | |
31 | Q | |
32 | GTDME ;GAT HERING L-C ODE PRICIN G DATA | |
33 | U 0 W !!, "Reading i n L-CODE P RICING Dat a...",! | |
34 | N CHIO,RE C,ST,JUR,C AT,CTR,CD, RECARY,COD E | |
35 | ;S $ZE="" ,$ZT="GT1^ CHMLDME3" | |
36 | ; N FOLDE R,CNTR ;D EV012893 D PT | |
37 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" ;DEV012893 DPT | |
38 | ;S FILE=F NAME,FOLDE R="" ;DEV0 12893 DPT | |
39 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 012893 DPT | |
40 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV012893 DPT | |
41 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT | |
42 | ;S FILE=F OLDER_FILE ;DEV01289 3 DPT | |
43 | ;S FLDR=" /FS3BIG/CO DEUPDT/DME POSUPDT/"_ UCI ;DEV01 2893 DPT | |
44 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 2893 DPT | |
45 | ||
46 | ;S CHIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. DMEPOSUPDT ."_ENVIR_" ]"_FNAME | |
47 | ;O CHIO:" R":3 Q:$T= 0 | |
48 | ; S POP= 0,CNTR=0 ; DEV016554 DPT | |
49 | ;F S CNT R=CNTR+1 Q :(CNTR>5)! POP D ;DE V016554 DP T | |
50 | ; . X "D $SYSTEM.Pr ocess.SetZ EOF(1)" ; DEV016554 DPT | |
51 | ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT | |
52 | ; .Q ;DEV 016554 DPT | |
53 | ;I 'POP G GT1 ;DEV 016554 DPT | |
54 | S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FN AME ;MTN DPT | |
55 | O FILE:"R ":3 Q:$T=0 | |
56 | ; | |
57 | U FILE R REC G:$$ST ATUS^%ZISH GT1 ;DEV0 16554 DPT | |
58 | F I=1:1 S CD=$P(REC ,"^",I) Q: CD="" S C ODE(CD)="" ;SET C ODES INTO ARRAY | |
59 | F U FILE R REC G:$ $STATUS^%Z ISH GT1 D ;DEV016554 DPT | |
60 | .S REC=$T R(REC,"~", "^") | |
61 | .F I="$", ","," ","" "" S REC=$ TR(REC,I) ;REMOVE UNWANTED C HARACTERS | |
62 | .S ST=$P( REC,"^",1) ;STATE | |
63 | .S JUR=$P (REC,"^",2 ) ;JURIS | |
64 | .S CAT=$P (REC,"^",3 ) ;CATG | |
65 | .S CTR=0 | |
66 | .S CD="" F S CD=$O (CODE(CD)) Q:CD="" D | |
67 | ..S RECAR Y(CD,ST)=J UR_"^"_CAT _"^"_$P(RE C,"^",$I(C TR)+3) | |
68 | GT1 ; | |
69 | ;C CHIO | |
70 | C FILE ;M TN DPT | |
71 | D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT | |
72 | X "D $S YSTEM.Proc ess.SetZEO F(0)" ;DEV 016554 DPT | |
73 | S CTR=0 | |
74 | S CD="" F S CD=$O( RECARY(CD) ) Q:CD="" D | |
75 | .S ST="" F S ST=$O (RECARY(CD ,ST)) Q:ST ="" D | |
76 | ..S ^CHMZ HOLD("CHML DME",CHDLR J,$I(CTR)) =EFFDATE_" ^"_ENDDATE _"^"_CD_"^ "_ST_"^"_R ECARY(CD,S T) | |
77 | Q | |
78 | LDDME ;UPD ATE DMEPOS FEE SCHED ULE GLOBAL USING FM | |
79 | Q:'$D(^CH MZHOLD("CH MLDME",CHD LRJ)) | |
80 | N EFFDATE ,ENDDATE,C HHCCD,CHMO D1,CHMOD2, CHMOD3,CHM OD4,CHJURI SD,CHCATEG Y | |
81 | N CHSTATU S,CHSTNM,C HCEILING,C HFLOOR,CHS TRATE,CHDE SC,CHMLRZT N,CHIEN | |
82 | S CTR=0 F S CTR=$O (^CHMZHOLD ("CHMLDME" ,CHDLRJ,CT R)) Q:'CTR D | |
83 | .S (EFFDA TE,ENDDATE ,CHHCCD,CH MOD1,CHMOD 2,CHMOD3,C HMOD4,CHML RZTN,CHJUR ISD,CHRDC) ="" ;mtn0 2448 dpt | |
84 | .S (CHCEI LING,CHFLO OR,CHSTFEA MT,CHCATEG Y,CHDESC,C HSTAT)="" | |
85 | .S EFFDAT E=$P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,1) ; EF FECTIVE DA TE | |
86 | .S ENDDAT E=$P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,2) ; EN D DATE | |
87 | .S CHHCCD =$P(^CHMZH OLD("CHMLD ME",CHDLRJ ,CTR),"^", 3) ; HC PCS CODE | |
88 | .S CHSTNM =$P(^CHMZH OLD("CHMLD ME",CHDLRJ ,CTR),"^", 4) ; ST ATE NAME | |
89 | .S CHJURI SD=$P(^CHM ZHOLD("CHM LDME",CHDL RJ,CTR),"^ ",5) ; JU RISDICTION | |
90 | .D EDITCA T I CHCAT EGY=CHCATI ; CATEGO RY mtn023 711 DPT | |
91 | .;S CHCAT EGY=$P(^CH MZHOLD("CH MLDME",CHD LRJ,CTR)," ^",6) ; CA TEGORY | |
92 | .S CHSTRA TE=$P(^CHM ZHOLD("CHM LDME",CHDL RJ,CTR),"^ ",7) ; ST ATE RATE/U PDATED FEE SCHEDULE AMOUNT | |
93 | .S CHSTAT US="A" ; ST ATUS A-A CTIVE CODE | |
94 | .S CHMLRZ TN=CHJURIS D_"*"_CHCA TEGY_"*"_C HMOD1_"*"_ CHMOD2_"*" _CHMOD3_"* "_CHMOD4 ; MODIFIE RIZATION P OINTER | |
95 | .S CHIEN= CHHCCD | |
96 | .D HSTUPD ^CHMLDME1 ;UPDATE HISTORY NO DE / QUIT IF NO CHAN GES ;JEH 9/5 /13 - ENC0 18925 | |
97 | .S DIC="^ CHMDIC(741 031,",DIC( 0)="L",X=C HIEN D ^DI C | |
98 | .I Y=-1 K DIC Q | |
99 | .S DA=+Y | |
100 | .S DIE=DI C | |
101 | .S DR="1/ ///"_EFFDA TE ; EFF ECTIVE DAT E | |
102 | .S DR(2,7 41031.01)= "1////"_EN DDATE_";5/ ///"_CHMLR ZTN | |
103 | .S DR(3,7 41031.15)= "1////"_CH MOD1_";2// /"_CHMOD2_ ";3///"_CH MOD3_";4// /"_CHMOD4_ ";5///"_CH JURISD_";6 ///"_CHCAT EGY_";7/// "_CHSTATUS _";8///"_C HSTNM_";9/ //"_CHDESC _";10///"_ DUZ_";11// /"_CHFLDT_ ";12////"_ CHCEILING_ ";13////"_ CHFLOOR | |
104 | .S DR(4,7 41031.158) ="1////"_C HSTRATE | |
105 | .D ^DIE | |
106 | .K DIE,DI C,DR,DA,Y | |
107 | D MMMSG^C HMLDME1($J ) | |
108 | Q | |
109 | INIT ;INIT ILIZING VA RIABLES | |
110 | S (EFFDAT E,CHDLRJ,Y ,CHFLDT,CH IO,CTR,REC ,RC1,RC2,E NDDATE,ANS )="" | |
111 | K ^CHMZHO LD("CHMLDM E",$J) | |
112 | D NOW^%DT C S CHFLDT =% ;FILE LOAD DATE | |
113 | S:'$D(DUZ ) DUZ=1 | |
114 | S CTR=0 | |
115 | S EFFDATE ="" | |
116 | S CHDLRJ= $J | |
117 | K FNAME | |
118 | ;DISPLAY MENU TITLE | |
119 | S TITLE=" L-Code Pri cing Data Load" | |
120 | W ?(39-($ L(TITLE)/2 )),TITLE,! !! | |
121 | ;SET ENVI RONMENT | |
122 | ;S ENVIR= $$ENVIR^CH TFLIB | |
123 | ;S DIR("B ")=ENVIR | |
124 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
125 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
126 | ;S DIR("L ",2)="" | |
127 | ;S DIR("L ",3)=" 1 LIVE" | |
128 | ;S DIR("L ",4)=" 2 TRAIN" | |
129 | ;S DIR("L ",5)=" 3 TEST" | |
130 | ;S DIR("L ",6)=" 4 DEV" | |
131 | ;S DIR("L ",7)="" | |
132 | ;S DIR("L ")=" ^ QUIT" | |
133 | ;D ^DIR K DIR | |
134 | ;Q:$D(DUO UT) | |
135 | ;Q:Y="" | |
136 | ;Q:Y="^"! (Y="") | |
137 | ;S ENVIR= Y(0) | |
138 | K DIR | |
139 | W ! | |
140 | ;SET L-CO DE PRICING FILE | |
141 | S DIR(0)= "F^3:50" | |
142 | S DIR("A" )="Enter L -Code Pric ing file n ame (JAN13 _CodePrici ngUpdate_M OD.txt)" D ^DIR K DI R | |
143 | Q:$D(DUOU T) | |
144 | Q:Y="^"!( Y="") | |
145 | S FNAME=Y K DIR | |
146 | K ^CHMZHO LD("CHMLDM E",$J) | |
147 | Q:$D(DUOU T) | |
148 | ;SET EFFE CTIVE DATE | |
149 | S EFFDATE ="" K DIR | |
150 | S DIR(0)= "D" S DIR( "A")="Ente r Effectiv e date (mm /dd/yy)" D ^DIR K DI R | |
151 | Q:$D(DUOU T) | |
152 | S EFFDATE =Y | |
153 | ;SET END DATE | |
154 | S ENDDATE ="" K DIR | |
155 | S DIR(0)= "DO" S DIR ("A")="Ent er End dat e (mm/dd/y y)" D ^DIR K DIR | |
156 | Q:$D(DUOU T) | |
157 | S ENDDATE =Y | |
158 | Q | |
159 | ENDC ;CLOS ING FILE | |
160 | ;C CHIO | |
161 | D CLOSE F^CHTFLIB9 (FILE,"FIL E") ;DEV01 6554 DPT | |
162 | X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT | |
163 | Q | |
164 | END ;END O F ROUTINE | |
165 | K EFFDATE ,CHDLRJ,Y, CHFLDT,CHI O,CTR,REC, ENDDATE | |
166 | K DIC | |
167 | W !!,"UPD ATE HAS BE EN TASKED. MM WILL B E SENT WHE N DONE." | |
168 | Q | |
169 | QUEA ;QUE OR RUN THI S ROUTINE MANUALLY. | |
170 | I '$D(DUZ ) S DUZ=1, DUZ(0)="@" | |
171 | D NOW^%DT C S DT=X | |
172 | I '$D(CHF LDT) S CHF LDT=% | |
173 | S CHFIO=" ",ZTSAVE(" DUZ")="",Z TSAVE("CHF LDT")="" | |
174 | S ZTSAVE( "CHDLRJ")= "" | |
175 | S ZTRTN=" LDDME^CHML DME3",ZTDE SC="PROCES S L-CODE P RICING FIL E" | |
176 | S ZTIO="" | |
177 | ;D ^%ZTLO AD | |
178 | D @ZTRTN ; U SE IF RUNN ING HOT | |
179 | Q | |
180 | MMMSG(CHTO DJ) ;GENER ATE MM MES SAGE | |
181 | S CNT=1,^ TMP(CHTODJ ,"CHMLDME" ,CNT)="",C NT=CNT+1 | |
182 | S ^TMP(CH TODJ,"CHML DME",CNT)= "GLOBAL 74 1031, HAS BEEN UPDAT ED.",CNT=C NT+1 | |
183 | S ^TMP(CH TODJ,"CHML DME",CNT)= "",CNT=CNT +1 | |
184 | S ^TMP(CH TODJ,"CHML DME",CNT)= "PLEASE CH ECK.",CNT= CNT+1 | |
185 | S ^TMP(CH TODJ,"CHML DME",CNT)= "",CNT=CNT +1 | |
186 | S XMTEXT= "^TMP(CHTO DJ,""CHMLD ME""," | |
187 | S XMDUZ=. 5 | |
188 | S XMY(DUZ )="" | |
189 | S XMSUB=" GBL 741031 UPDT-CMPL TD" D ^XMD | |
190 | Q | |
191 | CHTOMSG(CH TODJ,CHTOF DT) ;GEN ERATE MESS AGE TO RUN SECOND PA RT OF UPDA TE | |
192 | S CNT=1,^ TMP(CHTODJ ,"CHMLDME2 ",CNT)="", CNT=CNT+1 | |
193 | S ^TMP(CH TODJ,"CHML DME2",CNT) ="UPDATE H AS TIMED O UT...",CNT =CNT+1 | |
194 | S ^TMP(CH TODJ,"CHML DME2",CNT) ="CHECK: ^ CHMZHOLD(" "CHMLDME"" ,"_CHTODJ_ ")",CNT=CN T+1 | |
195 | S ^TMP(CH TODJ,"CHML DME2",CNT) ="DO THE F OLLOWING T O UPDATE ^ CHMDIC(741 031):",CNT =CNT+1 | |
196 | S ^TMP(CH TODJ,"CHML DME2",CNT) ="RUN (HOT ) TO SCREE N:",CNT=CN T+1 | |
197 | S ^TMP(CH TODJ,"CHML DME2",CNT) =" S CHD LRJ="_CHTO DJ,CNT=CNT +1 | |
198 | S ^TMP(CH TODJ,"CHML DME2",CNT) =" S CHF LDT="_CHTO FDT,CNT=CN T+1 | |
199 | S ^TMP(CH TODJ,"CHML DME2",CNT) =" D LDD ME^CHMLDME 1",CNT=CNT +1 | |
200 | S ^TMP(CH TODJ,"CHML DME2",CNT) ="RUN (TAS K) TO TASK MAN:",CNT= CNT+1 | |
201 | S ^TMP(CH TODJ,"CHML DME2",CNT) =" S CHD LRJ="_CHTO DJ,CNT=CNT +1 | |
202 | S ^TMP(CH TODJ,"CHML DME2",CNT) =" S CHF LDT="_CHTO FDT,CNT=CN T+1 | |
203 | S ^TMP(CH TODJ,"CHML DME2",CNT) =" D QUE A^CHMLDME1 ",CNT=CNT+ 1 | |
204 | S XMTEXT= "^TMP(CHTO DJ,""CHMLD ME2""," | |
205 | S XMDUZ=. 5 | |
206 | S XMY(DUZ )="" | |
207 | S XMSUB=" GBL 741031 UPDT-NOT CMPLTD" D ^XMD | |
208 | Q | |
209 | EDITCAT ; MTN022145 DPT | |
210 | ; THIS SE CTION WILL USE THE P OINTER FOR THE CATEG ORY CODE | |
211 | S CHCAT=$ P(^CHMZHOL D("CHMLDME ",CHDLRJ,C TR),"^",6) ; CATEGO RY MTN0221 45 DPT | |
212 | N K,K1 ; MTN022145 DPT | |
213 | ||
214 | I CHCAT=" " S CHCATI ="" Q ;MT N022145 DP T | |
215 | ||
216 | I $D(^CHM DIC(741031 .12,"B",CH CAT)) S CH CATI=0 ;M TN022145 D PT | |
217 | S CHCATI= $O(^CHMDIC (741031.12 ,"B",CHCAT ,CHCATI)) Q ;MTN0221 45 DPTT | |
218 | ;IF CATEG ORY NOT IN DME CATEG ORY GLOBAL ADD TO GL OBAL PLACE NEW POINT ER IN DMEP OS | |
219 | I '$D(^CH MDIC(74103 1.12,"B",C HCAT)) D ; MTN022145 DPT | |
220 | .S K=$P( ^CHMDIC(74 1031.12,0) ,"^",3),K1 =$P(^CHMDI C(741031.1 2,0),"^",4 ) ;MTN022 145 DPT | |
221 | .S K=K+1 ,K1=K1+1,^ CHMDIC(741 031.12,K,0 )=CHCAT,^C HMDIC(7410 31,"B",CHC AT)="",$P( ^CHMDIC(74 1031.12,0) ,"^",3)=K, $P(^CHMDIC (741031.12 ,0),"^",4) =K1 ;ENC0 22145 DPT | |
222 | .S CHCAT I=K ;MTN02 2145 DPT | |
223 | .U 0 W ! ,"ADDED NE W CATEGORY = ",CHCAT ," AT POIN TER = ",K ;MTN022145 DPT | |
224 | ||
225 | Q ;MTN02 2145 DPT | |
226 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.