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 | CHMLAFS1.m | Mon Nov 5 16:41:48 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLAFS1.m | Mon Nov 5 17:49:53 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 5 | 554 |
Changed | 4 | 8 |
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 | CHMLAFS1 ; JEH/CHV;DA TA LOAD AF S ZIP5 AND ZIP9 FILE S;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 | ; ZI P5 CODE TO LOCALITY RECORD (EXAMPLE: ZIP5_APR10 .TXT, ZIP5 _JUL10_V2) | |
8 | ; ZI P9 CODE TO LOCALITY RECORD (EXAMPLE: ZIP9_APR10 .TXT, ZIP9 _JUL10_V2) | |
9 | ; | |
10 | ;GLOBAL: | |
11 | ; ^CHM DIC(741038 ) - CHAMPV A AMBULANC E ZIP CODE TO LOCALI TY | |
12 | ; ^CHM ZHOLD("CHM LAFS","ZIP 5", - TEMP GLOBA L TO HOUSE EFFECTIVE DATE + ZI P 5 DATA | |
13 | ; ^CHM ZHOLD("CHM LAFS","ZIP 9", - TEMP GLOBA L TO HOUSE EFFECTIVE DATE + ZI P 9 DATA | |
14 | ;MTN02009 2 DEV01655 4 CODE UPD ATE EOF RE PLACE DECN ET 1/13/14 | |
15 | ;MTN02657 7 DPT JUL2 016 UPDATE . LAYOUT F OR ZIP5 CH ANGED | |
16 | ;R1922288 5FY18 DPT 3/13/18 A PRIL AMB L OAD OF SIP TO LOCALI TY ZIP5 ZI P9. REMOVE EDIT OF E NRIVORNMEN T | |
17 | ; | |
18 | START ; | |
19 | D INIT | |
20 | Q:$D(DUOU T) | |
21 | G:EFFDATE ="^" END | |
22 | I FTYPE=5 D ;GET TING & LOA DING ZIP5 DATA INTO ^CHMDIC(74 1038) | |
23 | .D GTZP5 | |
24 | .I $D(^CH MZHOLD("CH MLAFS","ZI P5",CHDLRJ )) D | |
25 | ..S DIR(0 )="Y",DIR( "A")="OK T O UPDATE Z IP5 GLOBAL ",DIR("B") ="NO" D ^D IR K DIR | |
26 | ..I Y=1 D | |
27 | ...S CHLD GB=5 | |
28 | ...D QUEA ^CHMLAFS1 ;TASKING GLOBAL DA TA UPDATE | |
29 | ..I Y="" D CHTOMSG ^CHMLAFS1( 5,CHDLRJ,C HFLDT) ; UPDATE TIM ED OUT MES SAGE | |
30 | I FTYPE=9 D ;GETT ING & LOAD ING ZIP9 D ATA INTO ^ CHMDIC(741 038) | |
31 | .D GTZP9 | |
32 | .I $D(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ )) D | |
33 | ..S DIR(0 )="Y",DIR( "A")="OK T O UPDATE Z IP9 GLOBAL ",DIR("B") ="NO" D ^D IR K DIR | |
34 | ..I Y=1 D | |
35 | ...S CHLD GB=9 | |
36 | ...D QUEA ^CHMLAFS1 ;TASKING GLOBAL DA TA UPDATE | |
37 | ..I Y="" D CHTOMSG ^CHMLAFS1( 9,CHDLRJ,C HFLDT) ; UPDATE TIM ED OUT MES SAGE | |
38 | D END | |
39 | Q | |
40 | GTZP5 ;GAT HERING ZIP 5 DATA | |
41 | U 0 W !!, "Reading i n ZIP5 Dat a...",! | |
42 | ;S $ZE="" ,$ZT="ENDC ^CHMLAFS1" | |
43 | N FOLDER, CNTR ;DEV 016554 DPT | |
44 | S IOF= "#,*27,*91 ,*50,*74,* 27,*91,*72 " ;DEV0165 54 DPT | |
45 | S FILE =FNAME,FOL DER="" ;DE V016554 DP T | |
46 | X ^%ZO SF("UCI") S UCI=$P(Y ,",",1) ;D EV016554 D PT | |
47 | ;S FOL DER="HAC_H FS$:[SCR.T EMP_FILES] " ;DEV0165 54 DPT | |
48 | ;I UCI '="HAC" | |
49 | S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" ;DEV016 554 DPT | |
50 | S FILE =FOLDER_FI LE ;DEV016 554 DPT | |
51 | ;S CHU CI=$S(UCI= "DEV":"DEV ",UCI="HAD TST":"DEV" ,UCI="TST" :"TEST",UC I="TRN":"T RAIN",UCI= "SLA":"LIV E",UCI="HA C":"LIVE") ;MTN DPT DEV01289 3 DPT | |
52 | ;S FLD R="/FS3BIG /CODEUPDT/ AMBUPDT/"_ CHUCI ;DEV 016554 DPT | |
53 | ;D FTPFILE ^CHTFLIB9( FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 6554 DPT | |
54 | ;H 5 | |
55 | ;S CHIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. AMBUPDT."_ ENVIR_"]"_ FNAME | |
56 | ;O CHIO:" R":5 | |
57 | S POP=0,C NTR=0 ;DEV 016554 DPT | |
58 | F S C NTR=CNTR+1 Q:(CNTR>5 )!POP D ; DEV016554 DPT | |
59 | .X "D $SYSTEM.Pr ocess.SetZ EOF(1)" ;D EV016554 D PT | |
60 | .S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT | |
61 | .Q ;DE V016554 DP T | |
62 | I 'POP G ENDC ; DEV016554 DPT | |
63 | ||
64 | S CTR=0 | |
65 | F U FILE R REC G:$ $STATUS^%Z ISH ENDC D ;DEV01655 4 DPT | |
66 | .Q:$A(REC )=26 ;ER RONEOUS DA TA IN FILE CHECK | |
67 | .S CTR=CT R+1 | |
68 | .S ^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R)=EFFDATE _"^"_REC | |
69 | Q | |
70 | GTZP9 ;GAT HERING ZIP 9 DATA | |
71 | U 0 W !!, "Reading i n ZIP9 Dat a...",! | |
72 | ;S $ZE="" ,$ZT="ENDC ^CHMLAFS1" | |
73 | N FOLDER, CNTR ;DEV 016554 DPT | |
74 | S IOF= "#,*27,*91 ,*50,*74,* 27,*91,*72 " ;DEV0165 54 DPT | |
75 | S FILE =FNAME,FOL DER="" ;DE V016554 DP T | |
76 | X ^%ZO SF("UCI") S UCI=$P(Y ,",",1) ;D EV016554 D PT | |
77 | ;S FOL DER="HAC_H FS$:[SCR.T EMP_FILES] " ;DEV0165 54 DPT | |
78 | ;I UCI '="HAC" | |
79 | S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" ;DEV016 554 DPT | |
80 | S FILE =FOLDER_FI LE ;DEV016 554 DPT | |
81 | ;S CHU CI=$S(UCI= "DEV":"DEV ",UCI="HAD TST":"DEV" ,UCI="TST" :"TEST",UC I="HACTST" :"TEST",UC I="TRN":"T RAIN",UCI= "SLA":"LIV E",UCI="HA C":"LIVE") ;MTN D PT DEV0128 93 DPT | |
82 | ;S FLD R="/FS3BIG /CODEUPDT/ AMBUPDT/"_ CHUCI ;DEV 016554 DPT | |
83 | ;D FTPFILE ^CHTFLIB9( FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 6554 DPT | |
84 | ;H 5 | |
85 | ;S CHIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. AMBUPDT."_ ENVIR_"]"_ FNAME | |
86 | ;O CHIO:" R":5 | |
87 | ;Q:$T=0 ;FILE OP EN CHECK 1 =OPEN/0=NO T OPEN | |
88 | ||
89 | S POP=0,C NTR=0 ;DEV 016554 DPT | |
90 | F S C NTR=CNTR+1 Q:(CNTR>5 )!POP D ; DEV016554 DPT | |
91 | . S PO P=$$OPENFI RD^CHTFLIB 9(.FILE,"F ILE") ;DEV 016554 DPT | |
92 | .Q ;DE V016554 DP T | |
93 | I 'POP G ENDC ; DEV016554 DPT | |
94 | F U FILE R REC G:$ $STATUS^%Z ISH ENDC D ;DEV0165 54 DPT | |
95 | .Q:$A(REC )=26 ;ER RONEOUS DA TA IN FILE CHECK | |
96 | .S CTR=CT R+1 | |
97 | .S ^CHMZH OLD("CHMLA FS","ZIP9" ,CHDLRJ,CT R)=EFFDATE _"^"_REC | |
98 | Q | |
99 | ||
100 | LDZP5 ;UPD ATE ZIP5 G LOBAL USIN G FM | |
101 | Q:'$D(^CH MZHOLD("CH MLAFS","ZI P5",CHDLRJ )) | |
102 | S CTR=0 F S CTR=$O (^CHMZHOLD ("CHMLAFS" ,"ZIP5",CH DLRJ,CTR)) Q:'CTR D | |
103 | .S (CHZPS T,CHZPCD,C HZPCR,CHZP PL,CHZPRI, CHZPPFF,CH ZPPF,CHZPY Q,EFFDATE) ="" | |
104 | .S EFFDAT E=$P(^CHMZ HOLD("CHML AFS","ZIP5 ",CHDLRJ,C TR),"^",1) ; EFFE CTIVE DATE | |
105 | .;S CHZPS T=$E($P(^C HMZHOLD("C HMLAFS","Z IP5",CHDLR J,CTR),"^" ,2),1,2) ; AL PHA STATE CODE | |
106 | .;S CHZPC D=$E($P(^C HMZHOLD("C HMLAFS","Z IP5",CHDLR J,CTR),"^" ,2),3,7) ; ZI P CODE | |
107 | .;S CHZPC R=$E($P(^C HMZHOLD("C HMLAFS","Z IP5",CHDLR J,CTR),"^" ,2),8,12) ; ME DICARE PAR T B CARRIE R NUMBER | |
108 | .;S CHZPP L=$E($P(^C HMZHOLD("C HMLAFS","Z IP5",CHDLR J,CTR),"^" ,2),13,14) ; PRICING LO CALITY | |
109 | .;S CHZPR I=$TR($E($ P(^CHMZHOL D("CHMLAFS ","ZIP5",C HDLRJ,CTR) ,"^",2),15 ,15)," ") ; RURAL IN DICATOR BLANK=URBA N/R=RURAL/ B=SUPER RU RAL | |
110 | .;S CHZPB L=$E($P(^C HMZHOLD("C HMLAFS","Z IP5",CHDLR J,CTR),"^" ,2),16,17) ; BENE. LAB CB LOCALIT Y LAB C OMPETIVE B ID LOCALIT Y - Z1=CBA 1,Z2=CBA2, Z9=NOT A D EMONSTRATI ON LOCALIT Y | |
111 | .;S CHZPR 2=$TR($E($ P(^CHMZHOL D("CHMLAFS ","ZIP5",C HDLRJ,CTR) ,"^",2),18 ,18)," ") ; RURAL IN DICATOR 2 WHAT WAS EFFECTIVE 12/1/2006 | |
112 | .;S CHZPP FF=$E($P(^ CHMZHOLD(" CHMLAFS"," ZIP5",CHDL RJ,CTR),"^ ",2),21,21 ) ; PLUS FOUR FLAG 0=NO +4 EXTENSION/ 1=+4 EXTEN SION | |
113 | .;S CHZPY Q=$E($P(^C HMZHOLD("C HMLAFS","Z IP5",CHDLR J,CTR),"^" ,2),76,80) ; YEAR/QUART ER (YYYYQ) | |
114 | .S CHZPST =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",2) ; ALPHA STAT E CODE M TN026577 D PT | |
115 | .S CHZPCD =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",3) ; ZIP CODE MTN026577 DPT | |
116 | .S CHZPCR =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",4) ; MEDICARE P ART B CARR IER NUMBER MTN02657 7 DPT | |
117 | .S CHZPPL =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",5) ; PRICING LO CALITY MT N026577 DP T | |
118 | .S CHZPRI =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",6) ; RURAL IN DICATOR BLANK=URBA N/R=RURAL/ B=SUPER RU RAL | |
119 | .S CHZPBL =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",7) ; BENE. LAB CB LOCALIT Y LAB C OMPETIVE B ID LOCALIT Y - Z1=CBA 1,Z2=CBA2, Z9=NOT A D EMONSTRATI ON LOCALIT Y MTN02657 7 DPT | |
120 | .S CHZPR2 =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",8) ; RURAL INDICATOR 2 WHAT W AS EFFECTI VE 12/1/20 06 MTN02 6577 DPT | |
121 | .S CHZPPFF=$ P(^CHMZHOL D("CHMLAFS ","ZIP5",C HDLRJ,CTR) ,"^",9) ; PL US FOUR FL AG 0=NO +4 EX TENSION/1= +4 EXTENSI ON MTN026 577 DPT | |
122 | .S CHZPYQ =$P(^CHMZH OLD("CHMLA FS","ZIP5" ,CHDLRJ,CT R),"^",10) ; YEAR/QUA RTER (YYYY Q) MTN026 577 DPT | |
123 | .S CHIEN= CHZPCD | |
124 | .S DIC="^ CHMDIC(741 038,",DIC( 0)="L",X=C HIEN D ^DI C | |
125 | .I Y=-1 K DIC Q | |
126 | .S DA=+Y | |
127 | .S DIE=DI C | |
128 | .S DR="1/ ///"_EFFDA TE ;ZIP5 DATA | |
129 | .S DR(2,7 41038.01)= "1///"_CHZ PST_";2/// "_CHZPCR_" ;3///"_CHZ PPL_";4/// "_CHZPRI_" ;5///"_CHZ PBL_";6/// "_CHZPR2_" ;7///"_CHZ PPFF_";8// /"_CHZPYQ_ ";9///"_DU Z_";10///" _CHFLDT | |
130 | .D ^DIE | |
131 | .K DIE,DR ,DA,Y | |
132 | D MMMSG(5 ) ;SEND ING MM MES SAGE THAT REPORT IS READY | |
133 | Q | |
134 | LDZP9 ;UPD ATE ZIP9 G LOBAL USIN G FM | |
135 | Q:'$D(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ )) | |
136 | S CTR=0 F S CTR=$O (^CHMZHOLD ("CHMLAFS" ,"ZIP9",CH DLRJ,CTR)) Q:'CTR D | |
137 | .S (CHZPS T,CHZPCD,C HZPCR,CHZP PL,CHZPRI, CHZPPFF,CH ZPPF,CHZPY Q,EFFDATE) ="" | |
138 | .S EFFDAT E=$P(^CHMZ HOLD("CHML AFS","ZIP9 ",CHDLRJ,C TR),"^",1) ; EFFE CTIVE DATE | |
139 | .S CHZPST =$E($P(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ,CTR),"^", 2),1,2) ; AL PHA STATE CODE | |
140 | .S CHZPCD =$E($P(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ,CTR),"^", 2),3,7) ; ZI P CODE | |
141 | .S CHZPCR =$E($P(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ,CTR),"^", 2),8,12) ; ME DICARE PAR T B CARRIE R NUMBER | |
142 | .S CHZPPL =$E($P(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ,CTR),"^", 2),13,14) ; PRICING LO CALITY | |
143 | .S CHZPRI =$TR($E($P (^CHMZHOLD ("CHMLAFS" ,"ZIP9",CH DLRJ,CTR), "^",2),15, 15)," ") ; RURAL IN DICATOR BLANK=URBA N/R=RURAL/ B=SUPER RU RAL | |
144 | .S CHZPPF F=$E($P(^C HMZHOLD("C HMLAFS","Z IP9",CHDLR J,CTR),"^" ,2),21,21) ; PLUS FOUR FLAG 0=NO +4 EXTENSION/ 1=+4 EXTEN SION | |
145 | .S CHZPPF =$E($P(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ,CTR),"^", 2),22,25) ; PLUS FOUR | |
146 | .S CHZPYQ =$E($P(^CH MZHOLD("CH MLAFS","ZI P9",CHDLRJ ,CTR),"^", 2),76,80) ; YEAR/QUART ER (YYYYQ) | |
147 | .S CHIEN= CHZPCD | |
148 | .S DIC="^ CHMDIC(741 038,",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="2/ ///"_EFFDA TE | |
153 | .S DR(2,7 41038.02)= "1///"_CHZ PST_";2/// "_CHZPCR_" ;3///"_CHZ PRI_";4/// "_CHZPPFF_ ";5///"_CH ZPYQ_";6// /"_DUZ_";7 ///"_CHFLD T_";8///"_ CHZPPF | |
154 | .S DR(3,7 41038.28)= "1///"_CHZ PPL_";2/// "_DUZ_";3/ //"_CHFLDT | |
155 | .D ^DIE | |
156 | .K DIE,DR ,DA,Y | |
157 | D MMMSG(9) ;SENDING MM MESSAG E THAT REP ORT IS REA DY | |
158 | Q | |
159 | INIT ;INIT ILIZING VA RIABLES | |
160 | D NOW^%DT C S CHFLDT =% ;FILE LOAD DATE | |
161 | S:'$D(DUZ ) DUZ=1 | |
162 | S CTR=0 | |
163 | S EFFDATE ="" | |
164 | S CHDLRJ= $J | |
165 | K FNAME | |
166 | ;DISPLAY MENU TITLE | |
167 | S TITLE=" ZIP5/ZIP9 Code to Lo cality Dat a Load" | |
168 | W ?(39-($ L(TITLE)/2 )),TITLE,! !! | |
169 | ;SET ENVI RONMENT | |
170 | ;S ENVIR= $$ENVIR^CH TFLIB | |
171 | ;S DIR("B ")=ENVIR | |
172 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
173 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
174 | ;S DIR("L ",2)="" | |
175 | ;S DIR("L ",3)=" 1 LIVE" | |
176 | ;S DIR("L ",4)=" 2 TRAIN" | |
177 | ;S DIR("L ",5)=" 3 TEST" | |
178 | ;S DIR("L ",6)=" 4 DEV" | |
179 | ;S DIR("L ",7)="" | |
180 | ;S DIR("L ")=" ^ QUIT" | |
181 | ;D ^DIR K DIR | |
182 | ;Q:$D(DUO UT) | |
183 | ;Q:Y="" | |
184 | ;Q:Y="^"! (Y="") | |
185 | ;S ENVIR= Y(0) | |
186 | K DIR | |
187 | W ! | |
188 | ;ASK IF Z IP5 OR ZIP 9 FILE LOA D | |
189 | S DIR(0)= "S^5:ZIP5; 9:ZIP9",DI R("B")="5" D ^DIR K DIR | |
190 | Q:$D(DUOU T) | |
191 | Q:Y="^"!( Y="") | |
192 | S FTYPE=Y K DIR | |
193 | I FTYPE=5 { | |
194 | ;S ET ZIP5 CO DE FILE | |
195 | S DIR(0)="F^ 3:50" | |
196 | S DIR("A")=" Enter AFS ZIP5 file name (ZIP5 _APR10.txt )" D ^DIR K DIR | |
197 | Q: $D(DUOUT) | |
198 | Q: Y="^"!(Y=" ") | |
199 | S FNAME=Y K DIR | |
200 | K ^CHMZHOLD( "CHMLAFS", "ZIP5") | |
201 | } | |
202 | Q:$D(DUOU T) | |
203 | Q:Y="^"!( Y="") | |
204 | I FTYPE=9 { | |
205 | ;S ET ZIP9 CO DE FILE | |
206 | S DIR(0)="FO ^3:50" | |
207 | S DIR("A")=" Enter AFS ZIP9 file name (ZIP9 _APR10.txt )" D ^DIR K DIR | |
208 | Q: $D(DUOUT) | |
209 | S FNAME=Y K DIR | |
210 | K ^CHMZHOLD( "CHMLAFS", "ZIP9") | |
211 | } | |
212 | Q:$D(DUOU T) | |
213 | ;SET FY E FFECTIVE D ATE | |
214 | S EFFDATE ="" K DIR | |
215 | S DIR(0)= "D" S DIR( "A")="Ente r FY Effec tive date (mm/dd/yy) " D ^DIR K DIR | |
216 | Q:$D(DUOU T) | |
217 | S EFFDATE =Y | |
218 | Q | |
219 | ENDC ;CLOS ING FILE | |
220 | ;C CHIO | |
221 | D CLOSE F^CHTFLIB9 (FILE,"FIL E") ;DEV01 6554 DPT | |
222 | X "D $SYSTEM.P rocess.Set ZEOF(0)" ; DEV016554 DPT | |
223 | Q | |
224 | END ; | |
225 | K EFFDATE ,AYGSYS,EN VIR,CHIO,F NAME,REC,C HLDGB | |
226 | K CHZPST, CHZPCD,CHZ PCR,CHZPPL ,CHZPRI,CH ZPPFF | |
227 | K CHZPPF, CHZPYQ,CTR ,EDSPLY,FT YPE,CHIEN, CHDLRJ | |
228 | K DIC | |
229 | W !!,"UDA TE HAS BEE N TASKED. MM WILL BE SENT WHEN DONE." | |
230 | Q | |
231 | QUEA ;QUE OR RUN THI S ROUTINE MANUALLY. | |
232 | I '$D(DUZ ) S DUZ=1, DUZ(0)="@" | |
233 | D NOW^%DT C S DT=X | |
234 | I '$D(CHF LDT) S CHF LDT=% | |
235 | S CHLDTG= $S(CHLDGB= 5:"LDZP5", CHLDGB=9:" LDZP9",1:" UNKNOWN") ;ROUTIN E TAG | |
236 | S CHFIO=" ",ZTSAVE(" DUZ")="",Z TSAVE("CHF LDT")="" | |
237 | S ZTSAVE( "CHDLRJ")= "" | |
238 | S ZTRTN=C HLDTG_"^CH MLAFS1",ZT DESC="PROC ESS ZIP "_ CHLDTG_" F ILE" | |
239 | S ZTIO="" | |
240 | D ^%ZTLOA D | |
241 | ;D @ZTRTN ; USE IF RUNNING HOT | |
242 | Q | |
243 | MMMSG(CHFL TYP) ;GENE RATE MM ME SSAGE | |
244 | S CNT=1,^ TMP(CHDLRJ ,"CHMLAFS" ,CNT)="",C NT=CNT+1 | |
245 | S ^TMP(CH DLRJ,"CHML AFS",CNT)= "GLOBAL 74 1038, NODE "_CHFLTYP _", HAS BE EN UPDATED .",CNT=CNT +1 | |
246 | S ^TMP(CH DLRJ,"CHML AFS",CNT)= "",CNT=CNT +1 | |
247 | S ^TMP(CH DLRJ,"CHML AFS",CNT)= "PLEASE CH ECK.",CNT= CNT+1 | |
248 | S ^TMP(CH DLRJ,"CHML AFS",CNT)= "",CNT=CNT +1 | |
249 | S XMTEXT= "^TMP(CHDL RJ,""CHMLA FS""," | |
250 | S XMDUZ=. 5 | |
251 | S XMY(DUZ )="" | |
252 | S XMSUB=" GBL 741038 ("_CHFLTY P_") UPDT- CMPLTD" D ^XMD | |
253 | Q | |
254 | CHTOMSG(CH TOFT,CHTOD J,CHTOFDT) ;GENERA TE MESSAGE TO RUN SE COND PART OF UPDATE | |
255 | S CNT=1,^ TMP(CHDLRJ ,"CHMLAFS2 ",CNT)="", CNT=CNT+1 | |
256 | S ^TMP(CH TODJ,"CHML AFS2",CNT) ="UDATE HA S TIMED OU T...",CNT= CNT+1 | |
257 | S ^TMP(CH TODJ,"CHML AFS2",CNT) ="CHECK: ^ CHMZHOLD(" "CHMLAFS"" ,""ZIP""," _CHTOFT_", "_CHTODJ_" )",CNT=CNT +1 | |
258 | S ^TMP(CH TODJ,"CHML AFS2",CNT) ="DO THE F OLLOWING T O UPDATE ^ CHMDIC(741 038):",CNT =CNT+1 | |
259 | S ^TMP(CH TODJ,"CHML AFS2",CNT) ="RUN (HOT ) TO SCREE N:",CNT=CN T+1 | |
260 | S ^TMP(CH TODJ,"CHML AFS2",CNT) =" S CHD LRJ="_CHTO DJ,CNT=CNT +1 | |
261 | S ^TMP(CH TODJ,"CHML AFS2",CNT) =" S CHF LDT="_CHTO FDT,CNT=CN T+1 | |
262 | S ^TMP(CH TODJ,"CHML AFS2",CNT) =" D LDZ P"_CHTOFT_ "^CHMLAFS1 ",CNT=CNT+ 1 | |
263 | S ^TMP(CH TODJ,"CHML AFS2",CNT) ="RUN (TAS K) TO TASK MAN:",CNT= CNT+1 | |
264 | S ^TMP(CH TODJ,"CHML AFS2",CNT) =" S CHD LRJ="_CHTO DJ,CNT=CNT +1 | |
265 | S ^TMP(CH TODJ,"CHML AFS2",CNT) =" S CHF LDT="_CHTO FDT,CNT=CN T+1 | |
266 | S ^TMP(CH TODJ,"CHML AFS2",CNT) =" S CHL DGB="_CHTO FT,CNT=CNT +1 | |
267 | S ^TMP(CH TODJ,"CHML AFS2",CNT) =" D QUE A^CHMLAFS1 ",CNT=CNT+ 1 | |
268 | S XMTEXT= "^TMP(CHDL RJ,""CHMLA FS2""," | |
269 | S XMDUZ=. 5 | |
270 | S XMY(DUZ )="" | |
271 | S XMSUB=" GBL 741038 ("_CHTOFT _") UPDT-N OT CMPLTD" D ^XMD | |
272 | Q | |
273 | KLLAFS ; | |
274 | Q ;SAFE TY QUIT | |
275 | S I=0 F { S I=$O(^ CHMDIC(741 038,I)) Q: 'I S DIK= "^CHMDIC(7 41038,",DA =I D ^DIK } | |
276 | Q | |
277 | ;KILL NOD E | |
278 | S CHNODE= 5 S I=0 F S I=$O(^C HMDIC(7410 38,I)) Q:' I I $D(^C HMDIC(7410 38,I,CHNOD E)) W !,I, ?11,^CHMDI C(741038,I ,CHNODE,0) K ^CHMDIC (741038,I, CHNODE) | |
279 | S CHNODE= 9 S I=0 F S I=$O(^C HMDIC(7410 38,I)) Q:' I I $D(^C HMDIC(7410 38,I,CHNOD E)) W !,I, ?11,^CHMDI C(741038,I ,CHNODE,0) K ^CHMDIC (741038,I, CHNODE) | |
280 | Q | |
281 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.