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 | CHMLDME2.m | Mon Nov 5 16:39:06 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLDME2.m | Mon Nov 5 17:50:05 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 568 |
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 | CHMLDME2 ; JEH/CHV;DA TA LOAD PE N FILES;08 /13/13 8: 40 AM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Buil d 1 | |
3 | ; | |
4 | ;DEV00369 8 - INTALL PEN FEE S CHEDULE | |
5 | ; | |
6 | ;THIS ROU TINE LOADS THE FOLLO WING DATA FILES INTO CP&E: | |
7 | ; Par enteral an d Enteral Nutrition Items and Services ( PEN) Fee S chedule | |
8 | ; (EX AMPLE: DME 2013 JAN P EN PUF.txt ) | |
9 | ; | |
10 | ;FILE FOR MAT FOR PE N | |
11 | ; CO LUMN | |
12 | ; NU MBER & NAM E COMMENT | |
13 | ; 1 --Y EAR | |
14 | ; 2 --HCPCS CO DE All curr ent year a ctive and deleted co des subjec t to DMEPO S floors a nd ceiling s. | |
15 | ; 3 --1ST MODI FIER NU--Purc hased, New | |
16 | ; RR --Rented | |
17 | ; UE --Purchase d, Used | |
18 | ; 4 --2ND MODI FIER KE--Bid Under Roun d I of the DMEPOS Co mpetitive Bid Progra m For Use With Non-C ompetitive Bid Base Equipment | |
19 | ; BA --Item Fu rnished In Conjuncti on with Pa renteral E nteral (PE N) Service s | |
20 | ; 5 --NATIONAL FEE SCHED ULE AMOUNT (RURAL/NO NRUAL INDI CATOR R-RU RAL NR-NON RURAL) | |
21 | ; 6 --SHORT DE SCRIPTION | |
22 | ; | |
23 | ;GLOBALS: | |
24 | ; ^CH MDIC(74103 1) - CHAM PVA DMEPOS FEE SCHED ULE | |
25 | ; ^CH MZHOLD("CH MLDME", - TEMP GL OBAL TO HO LD EFF & E ND DATE + FEE SCHED DATA | |
26 | ; | |
27 | ;JEH 9/5/ 13 - ENC01 8925 Post- SLLA/DMEPO S, to add a history piece & lo okup optio n to view DMEPOS fil es | |
28 | ;DPT DEV0 16554 DEV0 12893 CHAN GE EOF REP LACE DECNE T | |
29 | ;DPT MTN0 26580 - 7/ 1/16 JUL20 16 MODIFY LAYOUT ADD RURAL FIE LD | |
30 | ;ENC02501 8 DPT - AP PLY RURAL NON RURAL RULES CHAN GE ROUTINE TO ADD RU RAL AND NO N RURAL AM TS | |
31 | ;MTN27311 DPT - C HANGE CAT TO LOOK UP CAT IN NE W GLOBAL C HMDIC(7410 31.12 THIS WILL WAIT | |
32 | ;MTN02750 4 DPT - FY 2017 UPDAT E | |
33 | ;MTN DPT - FY 2018 REMOV E REFERENC E TO ENVIR ONMENT MAN UALLY MOVE FILE FROM FS3 FOR N OW | |
34 | START ; | |
35 | D INIT | |
36 | Q:$D(DUOU T) | |
37 | G:EFFDATE ="^" END | |
38 | D GTDME | |
39 | I $D(^CHM ZHOLD("CHM LDME",CHDL RJ)) D | |
40 | .S DIR(0) ="Y",DIR(" A")="OK TO UPDATE PE N GLOBAL", DIR("B")=" NO" D ^DIR K DIR | |
41 | .Q:Y=-1 | |
42 | .S ANS=Y | |
43 | .I ANS=1 D | |
44 | ..D QUEA^ CHMLDME2 ;TASKING GLOBAL DAT A UPDATE | |
45 | .I ANS="" D CHTOMS G^CHMLDME1 (CHDLRJ,CH FLDT) ; U PDATE TIME D OUT MESS AGE | |
46 | D END | |
47 | Q | |
48 | GTDME ;GAT HERING PEN DATA | |
49 | N STIEN,S TABV | |
50 | U 0 W !!, "Reading i n PEN FEE SCHEDULE D ata...",! | |
51 | ; S $ZE=" ",$ZT="END C^CHMLDME1 " | |
52 | ; N FOLDE R,CNTR ;D EV016554 D PT | |
53 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" ;DEV016554 DPT | |
54 | ;S FILE=F NAME,FOLDE R="" ;DEV0 12893 DPT | |
55 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 012893 DPT | |
56 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV012893 DPT | |
57 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT | |
58 | ;S FILE=F OLDER_FILE ;DEV01655 4 DPT | |
59 | ;S FLDR=" /FS3BIG/CO DEUPDT/DME POSUPDT/"_ UCI ;DEV01 2893 DPT | |
60 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 2893 | |
61 | ;S CHIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. DMEPOSUPDT ."_ENVIR_" ]"_FNAME | |
62 | S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FN AME | |
63 | O FILE:"R ":5 | |
64 | ; S POP=0 ,CNTR=0 ;D EV016554 D PT | |
65 | ;F S CNT R=CNTR+1 Q :(CNTR>5)! POP D ;DE V016554 DP T | |
66 | ; .X "D $SYSTEM.Pr ocess.SetZ EOF(1)" ;D EV016554 D PT | |
67 | ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT | |
68 | ; .Q ;DEV 016554 DPT | |
69 | ;I 'POP G ENDC ;DE V016554 DP T | |
70 | ;H 5 | |
71 | S CTR=0 | |
72 | F U FILE R REC G:$ $STATUS^%Z ISH ENDC D ;DEV01655 4 DPT | |
73 | .S REC=$T R(REC,"~", "^"),REC=$ TR(REC,"(" ,"^"),REC= $TR(REC,") ","^") ;RE MOVE UNWAN TED CHARAC TERS MTN02 6580 DPT | |
74 | .;F I="$" ,","," "," """ S REC= $TR(REC,I) ; | |
75 | .S CRYR=$ P(REC,"^", 1) | |
76 | .S CODE=$ P(REC,"^", 2) ;COD E MTN0248 89 DPT | |
77 | .S MOD1=$ P(REC,"^", 3) ;MODI FIER MTN02 4889 DPT | |
78 | .S MOD2=$ P(REC,"^", 4) ;MODI FIER MTN02 4889 DPT | |
79 | .S JUR="" ;JURIS MTN024889 DPT | |
80 | .S CAT="" ;CATG M TN024889 D PT | |
81 | .I EFFDAT E<3170201 D | |
82 | ..S ST=$ P(REC,"^", 5) ;STATE M TN024889 D PT | |
83 | ..S RDC= $P(REC,"^" ,6) ;RUR UAL INDICA TOR MTN024 889 DPT | |
84 | ..S RAT= $FN($P(REC ,"^",8),"" ,2) ;RAT E MTN02488 9 DPT | |
85 | ..Q | |
86 | .I EFFDAT E>3170131 D | |
87 | ..S ST=$ E($P(REC," ^",6),1,2) ;STATE MTN 024889 DPT | |
88 | ..S RDC= $P(REC,"^" ,8) ;RUR UAL INDICA TOR MTN024 889 DPT | |
89 | ..S RRAT =$P(REC,"^ ",5) | |
90 | ..S NRAT =$FN($P(RE C,"^",7)," ",2) ;RA TE MTN0248 89 DPT | |
91 | ..Q | |
92 | .S DESC=$ P(REC,"^", 9) ;DESC RIPTION MT N024889 DP T | |
93 | .;I RDC'= "R" D ; BYPASS RURAL RAT ES FOR NOW MTN024889 DPT | |
94 | .;S CTR=C TR+1 | |
95 | .I EFFDAT E<3170201 S ^CHMZHOL D("CHMLDME ",CHDLRJ,$ I(CTR))=EF FDATE_"^"_ ENDDATE_"^ "_CRYR_"^" _CODE_"^"_ MOD1_"^"_M OD2_"^"_JU R_"^"_CAT_ "^"_"^^"_S T_"^"_RDC_ "^^^^^"_RA T_"^^^"_DE SC | |
96 | .I EFFDAT E>3170131 S ^CHMZHOL D("CHMLDME ",CHDLRJ,$ I(CTR))=EF FDATE_"^"_ ENDDATE_"^ "_CRYR_"^" _CODE_"^"_ MOD1_"^"_M OD2_"^"_JU R_"^"_CAT_ "^"_"^^"_S T_"^"_RDC_ "^^^^"_NRA T_"^"_RRAT _"^^^"_DES C | |
97 | ;F U FIL E R REC Q: $$STATUS^% ZISH D ;DEV016554 DPT | |
98 | ;.S CRYR= $E(REC,1,4 ) ;CUR RENT YEAR ACTIVE | |
99 | ;.S CODE= $E(REC,6,1 0) ;HCP CS CODE | |
100 | ;.S MOD1= $TR($E(REC ,12,13)," ","") ;1 st MODIFIE R | |
101 | ;.S MOD2= $TR($E(REC ,15,16)," ","") ;2 nd MODIFIE R | |
102 | ;.S FAMT= $E(REC,25, 31)/100 ;NAT IONAL FEE SCHEDULE A MOUNT | |
103 | ;.S DESC= $E(REC,35, 62) ;SHO RT DESCRIP TION | |
104 | ;.F STIEN =1:1:56,72 ,78 D | |
105 | ;..Q:'$D( ^DIC(5,STI EN,0)) | |
106 | ;..S STAB V=$P(^DIC( 5,STIEN,0) ,"^",2) ;7 2-"PR", 78 -"VI" | |
107 | ;..S ^CHM ZHOLD("CHM LDME",CHDL RJ,$I(CTR) )=EFFDATE_ "^"_ENDDAT E_"^"_CRYR _"^"_CODE_ "^"_MOD1_" ^"_MOD2_"^ ^^^^"_STAB V_"^^^^"_F AMT_"^^^"_ DESC | |
108 | C FILE | |
109 | D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT | |
110 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01 6554 DPT | |
111 | Q | |
112 | LDDME ;UPD ATE FEE SCHEDULE G LOBAL USIN G FM | |
113 | Q:'$D(^CH MZHOLD("CH MLDME",CHD LRJ)) | |
114 | N EFFDATE ,ENDDATE,C HHCCD,CHMO D1,CHMOD2, CHMOD3,CHM OD4,CHJURI SD,CHCATEG Y | |
115 | N CHSTATU S,CHSTNM,C HCEILING,C HFLOOR,CHS TRATE,CHDE SC,CHMLRZT N,CHIEN | |
116 | S CTR=0 F S CTR=$O (^CHMZHOLD ("CHMLDME" ,CHDLRJ,CT R)) Q:'CTR D | |
117 | .S (EFFDA TE,ENDDATE ,CHHCCD,CH MOD1,CHMOD 2,CHMOD3,C HMOD4,CHML RZTN,CHJUR ISD,CHCATE GY,CHDESC, CHSTAT,CHR URL,CHRDC1 )="" ;mtn 026580 dpt | |
118 | .S (CHCEI LING,CHFLO OR,CHSTFEA MT)=0 | |
119 | .S EFFDAT E=$P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,1) ; EFFECTIVE DATE | |
120 | .S ENDDAT E=$P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,2) ; END DATE | |
121 | .S CHHCCD =$P(^CHMZH OLD("CHMLD ME",CHDLRJ ,CTR),"^", 4) ; HCPCS COD E | |
122 | .S CHMOD1 =$TR($P(^C HMZHOLD("C HMLDME",CH DLRJ,CTR), "^",5)," " ,"") ; MO DIFIER 1 | |
123 | .S CHMOD2 =$TR($P(^C HMZHOLD("C HMLDME",CH DLRJ,CTR), "^",6)," " ,"") ; MO DIFIER 2 | |
124 | .S CHMOD3 ="" ;$P( ^CHMZHOLD( "CHMLDME", CHDLRJ,CTR ),"^",#) ; MO DIFIER 3 *** NOT U SED - FOR FUTURE USE *** | |
125 | .S CHMOD4 ="" ;$P( ^CHMZHOLD( "CHMLDME", CHDLRJ,CTR ),"^",#) ; MO DIFIER 4 *** NOT U SED - FOR FUTURE USE *** | |
126 | .S CHJURI SD=$P(^CHM ZHOLD("CHM LDME",CHDL RJ,CTR),"^ ",7) ; JURISDICT ION | |
127 | .S CHCATE GY=$P(^CHM ZHOLD("CHM LDME",CHDL RJ,CTR),"^ ",8) ; CATEGORY | |
128 | .S CHSTAT US=$P(^CHM ZHOLD("CHM LDME",CHDL RJ,CTR),"^ ",9) ; STATUS A-ACTIVE C ODE | |
129 | .S CHSTNM =$P(^CHMZH OLD("CHMLD ME",CHDLRJ ,CTR),"^", 11) ; STATE NAM E | |
130 | .;S CHCEI LNG=$FN($P (^CHMZHOLD ("CHMLDME" ,CHDLRJ,CT R),"^",13) ,"",2) ; C EILING | |
131 | .;S CHFLO OR=$FN($P( ^CHMZHOLD( "CHMLDME", CHDLRJ,CTR ),"^",14), "",2) ; F LOOR | |
132 | .I EFFDAT E<3170201 D | |
133 | ..S CHRDC 1=$P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,12) ;RURUAL/ NONRURAL I NDICATOR m tn026580 d pt | |
134 | ..I CHRDC 1="NR" S C HSTRATE=$F N($P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,17),"",2) ; STATE R ATE/UPDATE D FEE SCHE DULE AMOUN T | |
135 | ..I CHRDC 1="R" S CH RURL=$FN($ P(^CHMZHOL D("CHMLDME ",CHDLRJ,C TR),"^",17 ),"",2) ; STATE RATE /UPDATED F EE SCHEDUL E AMOUNT | |
136 | ..Q | |
137 | .I EFFDAT E>3170131 D | |
138 | ..S CHRDC 1=$P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,12) ;RURUAL/ NONRURAL I NDICATOR m tn026580 d pt | |
139 | ..I CHRDC 1=" " S CH STRATE=$FN ($P(^CHMZH OLD("CHMLD ME",CHDLRJ ,CTR),"^", 16),"",2) S CHRURL=$ FN(0,"",2) Q ; STATE RATE/UPDA TED FEE SC HEDULE AMO UNT MTN026 580 DPT | |
140 | ..I CHRDC 1="R" S CH RURL=$FN($ P(^CHMZHOL D("CHMLDME ",CHDLRJ,C TR),"^",17 ),"",2) S CHSTRATE=$ FN($P(^CHM ZHOLD("CHM LDME",CHDL RJ,CTR),"^ ",16),"",2 ) ; RURAL STATE RATE /UPDATED F EE SCHEDUL E AMOUNT M TN026580 D PT | |
141 | ..;S CHRU RL=$FN($P( ^CHMZHOLD( "CHMLDME", CHDLRJ,CTR ),"^",17), "",2) ;RUR AL RATE | |
142 | ..;S CHST RATE=$FN($ P(^CHMZHOL D("CHMLDME ",CHDLRJ,C TR),"^",16 ),"",2) ; NON RURAL STATE RATE /UPDATED F EE SCHEDUL E AMOUNT | |
143 | ..Q | |
144 | .S CHDESC =$P(^CHMZH OLD("CHMLD ME",CHDLRJ ,CTR),"^", 20) ; SHORT DE SCRIPTION MTN024889 DPT | |
145 | .S CHMLRZ TN=CHJURIS D_"*"_CHCA TEGY_"*"_C HMOD1_"*"_ CHMOD2_"*" _CHMOD3_"* "_CHMOD4 ; MODIFIE RIZATION P OINTER | |
146 | .S CHIEN= CHHCCD | |
147 | .D HSTUPD ^CHMLDME1 ;UPDATE HISTORY NO DE / QUIT IF NO CHAN GES ;JEH 9/5 /13 - ENC0 18925 | |
148 | .S DIC="^ CHMDIC(741 031,",DIC( 0)="L",X=C HIEN D ^DI C | |
149 | .I Y=-1 K DIC Q | |
150 | .S DA=+Y | |
151 | .S DIE=DI C | |
152 | .S DR="1/ ///"_EFFDA TE ; EFF ECTIVE DAT E | |
153 | .S DR(2,7 41031.01)= "1////"_EN DDATE_";5/ ///"_CHMLR ZTN | |
154 | .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 | |
155 | .S DR(4,7 41031.158) ="1////"_C HSTRATE_"; 2///"_CHRU RL ;mtn02 6580 dpt | |
156 | .D ^DIE | |
157 | .K DIE,DI C,DR,DA,Y | |
158 | D MMMSG^C HMLDME1($J ) | |
159 | Q | |
160 | DSPLY ;DIS PLAY RECOR D DATA | |
161 | Q | |
162 | W !,"DA = ",?20,DA | |
163 | W:$D(DA(1 )) !,"DA(1 ) =",?20,D A(1) | |
164 | W:$D(DA(2 )) !,"DA(2 ) =",?20,D A(2) | |
165 | W ! | |
166 | Q | |
167 | INIT ;INIT ILIZING VA RIABLES | |
168 | S (EFFDAT E,CHDLRJ,Y ,CHFLDT,CH IO,CTR,REC ,RC1,RC2,E NDDATE,ANS )="" | |
169 | K ^CHMZHO LD("CHMLDM E",$J) | |
170 | D NOW^%DT C S CHFLDT =% ;FILE LOAD DATE | |
171 | S:'$D(DUZ ) DUZ=1 | |
172 | S CTR=0 | |
173 | S EFFDATE ="" | |
174 | S CHDLRJ= $J | |
175 | K FNAME | |
176 | ;DISPLAY MENU TITLE | |
177 | S TITLE=" PEN Fee Sc hedule Dat a Load" | |
178 | W ?(39-($ L(TITLE)/2 )),TITLE,! !! | |
179 | ;SET ENVI RONMENT | |
180 | ;S ENVIR= $$ENVIR^CH TFLIB | |
181 | ;S DIR("B ")=ENVIR | |
182 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
183 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
184 | ;S DIR("L ",2)="" | |
185 | ;S DIR("L ",3)=" 1 LIVE" | |
186 | ;S DIR("L ",4)=" 2 TRAIN" | |
187 | ;S DIR("L ",5)=" 3 TEST" | |
188 | ;S DIR("L ",6)=" 4 DEV" | |
189 | ;S DIR("L ",7)="" | |
190 | ;S DIR("L ")=" ^ QUIT" | |
191 | ;D ^DIR K DIR | |
192 | ;Q:$D(DUO UT) | |
193 | ;Q:Y="" | |
194 | ;Q:Y="^"! (Y="") | |
195 | ;S ENVIR= Y(0) | |
196 | K DIR | |
197 | W ! | |
198 | ;SET PEN FEE SCHEDU LE FILE | |
199 | S DIR(0)= "F^3:50" | |
200 | S DIR("A" )="Enter P EN file na me (DME201 3JANPENPUF .txt)" D ^ DIR K DIR | |
201 | Q:$D(DUOU T) | |
202 | Q:Y="^"!( Y="") | |
203 | S FNAME=Y K DIR | |
204 | K ^CHMZHO LD("CHMLDM E",$J) | |
205 | Q:$D(DUOU T) | |
206 | ;SET EFFE CTIVE DATE | |
207 | S EFFDATE ="" K DIR | |
208 | S DIR(0)= "D" S DIR( "A")="Ente r Effectiv e date (mm /dd/yy)" D ^DIR K DI R | |
209 | Q:$D(DUOU T) | |
210 | S EFFDATE =Y | |
211 | ;SET END DATE | |
212 | S ENDDATE ="" K DIR | |
213 | S DIR(0)= "DO" S DIR ("A")="Ent er End dat e (mm/dd/y y)" D ^DIR K DIR | |
214 | Q:$D(DUOU T) | |
215 | S ENDDATE =Y | |
216 | Q | |
217 | ENDC ;CLOS ING FILE | |
218 | C FILE | |
219 | ;C CHIO | |
220 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) ;DEV0165 54 DPT | |
221 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01 6554 DPT | |
222 | Q | |
223 | END ;END O F ROUTINE | |
224 | K EFFDATE ,CHDLRJ,Y, CHFLDT,CHI O,CTR,REC, ENDDATE,FI LE | |
225 | K DIC | |
226 | W !!,"UPD ATE HAS BE EN TASKED. MM WILL B E SENT WHE N DONE." | |
227 | Q | |
228 | QUEA ;QUE OR RUN THI S ROUTINE MANUALLY. | |
229 | I '$D(DUZ ) S DUZ=1, DUZ(0)="@" | |
230 | D NOW^%DT C S DT=X | |
231 | I '$D(CHF LDT) S CHF LDT=% | |
232 | S CHFIO=" ",ZTSAVE(" DUZ")="",Z TSAVE("CHF LDT")="" | |
233 | S ZTSAVE( "CHDLRJ")= "" | |
234 | S ZTRTN=" LDDME^CHML DME2",ZTDE SC="PROCES S PEN FEE FILE" | |
235 | S ZTIO="" | |
236 | ;D ^%ZTLO AD | |
237 | D @ZTRTN ; U SE IF RUNN ING HOT | |
238 | Q | |
239 | MMMSG(CHTO DJ) ;GENER ATE MM MES SAGE | |
240 | S CNT=1,^ TMP(CHTODJ ,"CHMLDME" ,CNT)="",C NT=CNT+1 | |
241 | S ^TMP(CH TODJ,"CHML DME",CNT)= "GLOBAL 74 1031, HAS BEEN UPDAT ED.",CNT=C NT+1 | |
242 | S ^TMP(CH TODJ,"CHML DME",CNT)= "",CNT=CNT +1 | |
243 | S ^TMP(CH TODJ,"CHML DME",CNT)= "PLEASE CH ECK.",CNT= CNT+1 | |
244 | S ^TMP(CH TODJ,"CHML DME",CNT)= "",CNT=CNT +1 | |
245 | S XMTEXT= "^TMP(CHTO DJ,""CHMLD ME""," | |
246 | S XMDUZ=. 5 | |
247 | S XMY(DUZ )="" | |
248 | S XMSUB=" GBL 741031 UPDT-CMPL TD" D ^XMD | |
249 | Q | |
250 | CHTOMSG(CH TODJ,CHTOF DT) ;GEN ERATE MESS AGE TO RUN SECOND PA RT OF UPDA TE | |
251 | S CNT=1,^ TMP(CHTODJ ,"CHMLDME2 ",CNT)="", CNT=CNT+1 | |
252 | S ^TMP(CH TODJ,"CHML DME2",CNT) ="UPDATE H AS TIMED O UT...",CNT =CNT+1 | |
253 | S ^TMP(CH TODJ,"CHML DME2",CNT) ="CHECK: ^ CHMZHOLD(" "CHMLDME"" ,"_CHTODJ_ ")",CNT=CN T+1 | |
254 | S ^TMP(CH TODJ,"CHML DME2",CNT) ="DO THE F OLLOWING T O UPDATE ^ CHMDIC(741 031):",CNT =CNT+1 | |
255 | S ^TMP(CH TODJ,"CHML DME2",CNT) ="RUN (HOT ) TO SCREE N:",CNT=CN T+1 | |
256 | S ^TMP(CH TODJ,"CHML DME2",CNT) =" S CHD LRJ="_CHTO DJ,CNT=CNT +1 | |
257 | S ^TMP(CH TODJ,"CHML DME2",CNT) =" S CHF LDT="_CHTO FDT,CNT=CN T+1 | |
258 | S ^TMP(CH TODJ,"CHML DME2",CNT) =" D LDD ME^CHMLDME 1",CNT=CNT +1 | |
259 | S ^TMP(CH TODJ,"CHML DME2",CNT) ="RUN (TAS K) TO TASK MAN:",CNT= CNT+1 | |
260 | S ^TMP(CH TODJ,"CHML DME2",CNT) =" S CHD LRJ="_CHTO DJ,CNT=CNT +1 | |
261 | S ^TMP(CH TODJ,"CHML DME2",CNT) =" S CHF LDT="_CHTO FDT,CNT=CN T+1 | |
262 | S ^TMP(CH TODJ,"CHML DME2",CNT) =" D QUE A^CHMLDME1 ",CNT=CNT+ 1 | |
263 | S XMTEXT= "^TMP(CHTO DJ,""CHMLD ME2""," | |
264 | S XMDUZ=. 5 | |
265 | S XMY(DUZ )="" | |
266 | S XMSUB=" GBL 741031 UPDT-NOT CMPLTD" D ^XMD | |
267 | Q | |
268 | EDITCAT ; MTN027311 DPT | |
269 | ; THIS SE CTION WILL USE THE P OINTER FOR THE CATEG ORY CODE | |
270 | S CHCAT=$ P(^CHMZHOL D("CHMLDME ",CHDLRJ,C TR),"^",8) ; CATEGO RY MTN0273 11 DPT | |
271 | ||
272 | N K,K1 ; MTN027311 DPT | |
273 | ||
274 | I CHCAT=" " Q ;MTN0 27311 DPT | |
275 | ||
276 | I $D(^CHM DIC(741031 .12,"B",CH CAT)) S CH CATI=0 ;M TN027311 D PT | |
277 | S CHCATI= $O(^CHMDIC (741031.12 ,"B",CHCAT ,CHCATI)) Q ;MTN0273 11 DPT | |
278 | ;IF CATEG ORY NOT IN DME CATEG ORY GLOBAL ADD TO GL OBAL PLACE NEW POINT ER IN DMEP OS | |
279 | I '$D(^CH MDIC(74103 1.12,"B",C HCAT)) D ; MTN027311 DPT | |
280 | .S K=$P( ^CHMDIC(74 1031.12,0) ,"^",3),K1 =$P(^CHMDI C(741031.1 2,0),"^",4 ) ;MTN0273 11 DPT | |
281 | .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 ;MTN0 27311 DPT | |
282 | .S CHCAT I=K ;ENC02 5018 DPT | |
283 | .U 0 W ! ,"ADDED NE W CATEGORY = ",CHCAT ," AT POIN TER = ",K ;MTN027311 DPT | |
284 | ||
285 | Q ;MTN02 7311 DPT | |
286 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.