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 | CHMLDMEZ.m | Mon Nov 5 16:44:27 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLDMEZ.m | Mon Nov 5 17:50:06 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 396 |
Changed | 1 | 2 |
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 | CHMLDMEZ ; DPT/CHV;DA TA LOAD DM EPOS FILES ;02/03/11 8:40 AM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Buil d 10 | |
3 | ; | |
4 | ;DEV00369 6 - DMEP OS FEE SCH EDULE ZIP GLOBAL | |
5 | ; | |
6 | ;THIS ROU TINE LOADS THE FOLLO WING DATA FILES INTO CP&E: | |
7 | ; D MERURAL ZI P (EXAM PLE: DMERu ralZIP_Q12 016_V1123. txt) | |
8 | ; | |
9 | ;GLOBALS: | |
10 | ; ^CH MDIC(74103 1.14) - C HAMPVA DME ZIP | |
11 | ; ^CH MZHOLD("CH MLDME_ZIP" - TEMP GLOBAL TO HOLD EFF & END DATE + ZIP DAT A | |
12 | ;MTN02658 0 DPT - ZI P GLOBAL I NITALLY SE T UP WITH DEV03696. WILL BE MO VED TO LIV E WITH JUL Y 2016 UPD ATE. WILL NOT BE USE D | |
13 | ; UNTIL e nc025018 | |
14 | ;MTN DPT OMIT CHEC K FOR ENVI RONMENT MA NUALLY MOV E FILE FRO M FS3 TO C ACHE | |
15 | START ; | |
16 | D INIT | |
17 | Q:$D(DUOU T) | |
18 | G:EFFDATE ="^" END | |
19 | D GTDME | |
20 | I $D(^CHM ZHOLD("CHM LDME_ZIP", CHDLRJ)) D | |
21 | .S DIR(0) ="Y",DIR(" A")="OK TO UPDATE DM EZIP GLOBA L",DIR("B" )="NO" D ^ DIR K DIR | |
22 | .Q:Y=-1 | |
23 | .S ANS=Y | |
24 | .I ANS=1 D | |
25 | ..D QUEA^ CHMLDMEZ ;TASKING GLOBAL DAT A UPDATE | |
26 | .I ANS="" D CHTOMS G^CHMLDMEZ (CHDLRJ,CH FLDT) ; U PDATE TIME D OUT MESS AGE | |
27 | D END | |
28 | Q | |
29 | GTDME ;GAT HERING DME ZIP DATA | |
30 | U 0 W !!, "Reading i n DMEPOS Z IP Data... ",! | |
31 | ;S $ZE="" ,$ZT="ENDC ^CHMLDMEZ" | |
32 | ;N FOLDER ,CNTR ;DE V012893 DP T | |
33 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" ; DEV012893 DPT | |
34 | ;S FILE=F NAME,FOLDE R="" ;DEV0 12893 DPT | |
35 | ;SET ENVI RONMENT | |
36 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 012893 DPT | |
37 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV012893 DPT | |
38 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT | |
39 | ;S FILE=F OLDER_FILE ;DEV01289 3 DPT | |
40 | ;S CHUCI= $S(UCI="DE V":"DEV",U CI="HADTST ":"DEV",UC I="TST":"T EST",UCI=" HACTST":"T EST",UCI=" TRN":"TRAI N",UCI="SL A":"LIVE", UCI="HAC": "LIVE") ;D EV012893 D PT | |
41 | ;S FLDR=" /FS3BIG/CO DEUPDT/DME POSUPDT/"_ CHUCI ;DEV 012893 DPT | |
42 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 2893 DPT | |
43 | ;H 15 ;DE V012893 DP T | |
44 | ; S POP=0 ,CNTR=0 ;D EV012893 D PT | |
45 | ;F S CNT R=CNTR+1 Q :(CNTR>5)! POP D ;DE V012893 DP T | |
46 | ; . X "D $SYSTEM.P rocess.Set ZEOF(1)" ;DEV016554 DPT | |
47 | ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 12893 DPT | |
48 | ; .Q ;DEV 012893 DPT | |
49 | ;I 'POP G ENDC ;DE V016554 DP T | |
50 | ; D CLOSE F^CHTFLIB9 (FILE,"FIL E") ;DEV01 6554 DPT | |
51 | ;X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT | |
52 | ; S POP=0 ,CNTR=0 ;D EV012893 D PT | |
53 | ;F S CNT R=CNTR+1 Q :(CNTR>5)! POP D ;DE V012893 DP T | |
54 | ; . X "D $SYSTEM.P rocess.Set ZEOF(1)" ;DEV016554 DPT | |
55 | ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 12893 DPT | |
56 | ; .Q ;DEV 012893 DPT | |
57 | ;I 'POP G ENDC ;DE V016554 DP T | |
58 | S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FN AME | |
59 | O FILE:"R ":5 | |
60 | S CTR=0 | |
61 | F U FILE R REC G:$ $STATUS^%Z ISH ENDC D ;DEV016 554 DPT | |
62 | .S CTR=CT R+1 | |
63 | .S ^CHMZH OLD("CHMLD ME_ZIP",CH DLRJ,CTR)= EFFDATE_"^ "_ENDDATE_ "^"_REC | |
64 | C FILE | |
65 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) ;DEV0165 54 DPT | |
66 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01 6554 DPT | |
67 | Q | |
68 | LDDME ;UPD ATE DMEPOS ZIP GLOBA L USING FM | |
69 | Q:'$D(^CH MZHOLD("CH MLDME_ZIP" ,CHDLRJ)) | |
70 | N EFFDATE ,ENDDATE,C HHCCD,CHMO D1,CHMOD2, CHMOD3,CHM OD4,CHJURI SD,CHCATEG Y | |
71 | N CHSTATU S,CHSTNM,C HCEILING,C HFLOOR,CHS TRATE,CHDE SC,CHMLRZT N,CHIEN | |
72 | S CTR=0 F S CTR=$O (^CHMZHOLD ("CHMLDME_ ZIP",CHDLR J,CTR)) Q: 'CTR D | |
73 | .S (EFFDA TE,ENDDATE ,CHZIP,CHS TNM,CHYR)= "" | |
74 | .S EFFDAT E=$P(^CHMZ HOLD("CHML DME_ZIP",C HDLRJ,CTR) ,"^",1) ; EFFEC TIVE DATE | |
75 | .S ENDDAT E=$P(^CHMZ HOLD("CHML DME_ZIP",C HDLRJ,CTR) ,"^",2) ; END D ATE | |
76 | .S CHZIP= $P(^CHMZHO LD("CHMLDM E_ZIP",CHD LRJ,CTR)," ^",4) ; ZIP CO DE | |
77 | .S CHSTNM =$P(^CHMZH OLD("CHMLD ME_ZIP",CH DLRJ,CTR), "^",3) ; S TATE NAME | |
78 | .S CHYR=$ E($P(^CHMZ HOLD("CHML DME_ZIP",C HDLRJ,CTR) ,"^",5),1, 4) ; YEAR YYYY | |
79 | .S CHQT=$ E($P(^CHMZ HOLD("CHML DME_ZIP",C HDLRJ,CTR) ,"^",5),5, 6) ; QUART ER | |
80 | .S CHIEN= CHZIP | |
81 | .S DIC="^ CHMDIC(741 031.14,",D IC(0)="L", X=CHIEN D ^DIC | |
82 | .I Y=-1 D NEW^CHMLD MEZ Q | |
83 | .;I Y=-1 K DIC Q | |
84 | .S DA=+Y | |
85 | .S DIE=DI C | |
86 | .S DR="1/ ///"_EFFDA TE ;EFFD ATE | |
87 | .S DR(2,7 41031.141) =".02///"_ ENDDATE_"; .03///"_CH STNM_";.04 ///"_CHYR_ ";.05///"_ CHQT_";.06 ///"_DUZ_" ;.07///"_C HFLDT | |
88 | .D ^DIE | |
89 | .K DIE,DI C,DR,DA,Y | |
90 | D MMMSG^C HMLDMEZ($J ) | |
91 | Q | |
92 | NEW S DIC= "^CHMDIC(7 41031.14," ,DIC(0)="M L",DLAYGO= DIC,X=CHZI P D ^DIC | |
93 | S DA=+Y | |
94 | S DIE=DIC | |
95 | S DR="1// //"_EFFDAT E ;EFFDA TE | |
96 | S DR(2,74 1031.141)= ".02////"_ ENDDATE_"; .03///"_CH STNM_";.04 ///"_CHYR_ ";.05///"_ CHQT_";.06 ///"_DUZ_" ;.07///"_C HFLDT | |
97 | D ^DIE | |
98 | K DIE,DIC ,DR,DA,Y | |
99 | INIT ;INIT ILIZING VA RIABLES | |
100 | S (EFFDAT E,CHDLRJ,Y ,CHFLDT,CH IO,FILE,CT R,REC,RC1, RC2,ENDDAT E,ANS)="" | |
101 | ;K ^CHMZH OLD("CHMLD ME_ZIP",$J ) | |
102 | K ^CHMZH OLD("CHMLD ME_ZIP") | |
103 | D NOW^%DT C S CHFLDT =% ;FILE LOAD DATE | |
104 | S:'$D(DUZ ) DUZ=1 | |
105 | S CTR=0 | |
106 | S EFFDATE ="" | |
107 | S CHDLRJ= $J | |
108 | K FNAME | |
109 | ;DISPLAY MENU TITLE | |
110 | S TITLE=" DMEPOS ZIP Data Load " | |
111 | W ?(39-($ L(TITLE)/2 )),TITLE,! !! | |
112 | ;SET ENVI RONMENT | |
113 | ;S ENVIR= $$ENVIR^CH TFLIB | |
114 | ;S DIR("B ")=ENVIR | |
115 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
116 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
117 | ;S DIR("L ",2)="" | |
118 | ;S DIR("L ",3)=" 1 LIVE" | |
119 | ;S DIR("L ",4)=" 2 TRAIN" | |
120 | ;S DIR("L ",5)=" 3 TEST" | |
121 | ;S DIR("L ",6)=" 4 DEV" | |
122 | ;S DIR("L ",7)="" | |
123 | ;S DIR("L ")=" ^ QUIT" | |
124 | ;D ^DIR K DIR | |
125 | ;Q:$D(DUO UT) | |
126 | ;Q:Y="" | |
127 | ;Q:Y="^"! (Y="") | |
128 | ;S ENVIR= Y(0) | |
129 | K DIR | |
130 | ;SET DMEP OS ZIP FIL E | |
131 | S DIR(0)= "F^3:50" | |
132 | S DIR("A" )="Enter D ME ZIP fil e name (DM ERuralZIP_ Q12016_V11 23JAN.Ttxt )" D ^DIR K DIR | |
133 | Q:$D(DUOU T) | |
134 | Q:Y="^"!( Y="") | |
135 | S FNAME=Y K DIR | |
136 | K ^CHMZHO LD("CHMLDM E_ZIP",$J) | |
137 | Q:$D(DUOU T) | |
138 | ;SET EFFE CTIVE DATE | |
139 | S EFFDATE ="" K DIR | |
140 | S DIR(0)= "D" S DIR( "A")="Ente r Effectiv e date (mm /dd/yy)" D ^DIR K DI R | |
141 | Q:$D(DUOU T) | |
142 | S EFFDATE =Y | |
143 | ;SET END DATE | |
144 | S ENDDATE ="" K DIR | |
145 | S DIR(0)= "DO" S DIR ("A")="Ent er End dat e (mm/dd/y y)" D ^DIR K DIR | |
146 | Q:$D(DUOU T) | |
147 | S ENDDATE =Y | |
148 | Q | |
149 | ENDC ;CLOS ING FILE | |
150 | ;C CHIO | |
151 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) ;DEV0165 54 DPT | |
152 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01 6554 DPT | |
153 | Q | |
154 | END ;END O F ROUTINE | |
155 | K EFFDATE ,CHDLRJ,Y, CHFLDT,CHI O,CTR,REC, ENDDATE,FI LE | |
156 | K DIC | |
157 | W !!,"UPD ATE HAS BE EN TASKED. MM WILL B E SENT WHE N DONE." | |
158 | Q | |
159 | QUEA ;QUE OR RUN THI S ROUTINE MANUALLY. | |
160 | I '$D(DUZ ) S DUZ=1, DUZ(0)="@" | |
161 | D NOW^%DT C S DT=X | |
162 | I '$D(CHF LDT) S CHF LDT=% | |
163 | S FILE="" ,ZTSAVE("D UZ")="",ZT SAVE("CHFL DT")="" ;D EV016554 D PT | |
164 | S ZTSAVE( "CHDLRJ")= "" | |
165 | S ZTRTN=" LDDME^CHML DMEZ",ZTDE SC="PROCES S DME ZIP" | |
166 | S ZTIO="" | |
167 | D ^%ZTLOA D | |
168 | ;D @ZTRTN ; USE IF RUN NING HOT | |
169 | Q | |
170 | MMMSG(CHTO DJ) ;GENER ATE MM MES SAGE | |
171 | S CNT=1,^ TMP(CHTODJ ,"CHMLDME_ ZIP",CNT)= "",CNT=CNT +1 | |
172 | S ^TMP(CH TODJ,"CHML DME_ZIP",C NT)="GLOBA L 741031.1 4, HAS BEE N UPDATED. ",CNT=CNT+ 1 | |
173 | S ^TMP(CH TODJ,"CHML DME_ZIP",C NT)="",CNT =CNT+1 | |
174 | S ^TMP(CH TODJ,"CHML DME_ZIP",C NT)="PLEAS E CHECK.", CNT=CNT+1 | |
175 | S ^TMP(CH TODJ,"CHML DME_ZIP",C NT)="",CNT =CNT+1 | |
176 | S XMTEXT= "^TMP(CHTO DJ,""CHMLD ME_ZIP""," | |
177 | S XMDUZ=. 5 | |
178 | S XMY(DUZ )="" | |
179 | S XMSUB=" GBL 741031 .14 UPDT-C MPLTD" D ^ XMD | |
180 | Q | |
181 | CHTOMSG(CH TODJ,CHTOF DT) ;GEN ERATE MESS AGE TO RUN SECOND PA RT OF UPDA TE | |
182 | S CNT=1,^ TMP(CHTODJ ,"CHMLDME2 ",CNT)="", CNT=CNT+1 | |
183 | S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="UPDATE H AS TIMED O UT...",CNT =CNT+1 | |
184 | S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="CHECK: ^ CHMZHOLD(" "CHMLDME_Z IP"","_CHT ODJ_")",CN T=CNT+1 | |
185 | S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="DO THE F OLLOWING T O UPDATE ^ CHMDIC(741 031.14):", CNT=CNT+1 | |
186 | S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="RUN (HOT ) TO SCREE N:",CNT=CN T+1 | |
187 | S ^TMP(CH TODJ,"CHML DMEZ",CNT) =" S CHD LRJ="_CHTO DJ,CNT=CNT +1 | |
188 | S ^TMP(CH TODJ,"CHML DMEZ",CNT) =" S CHF LDT="_CHTO FDT,CNT=CN T+1 | |
189 | S ^TMP(CH TODJ,"CHML DMEZ",CNT) =" D LDD ME^CHMLDME Z",CNT=CNT +1 | |
190 | S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="RUN (TAS K) TO TASK MAN:",CNT= CNT+1 | |
191 | S ^TMP(CH TODJ,"CHML DMEZ",CNT) =" S CHD LRJ="_CHTO DJ,CNT=CNT +1 | |
192 | S ^TMP(CH TODJ,"CHML DMEZ",CNT) =" S CHF LDT="_CHTO FDT,CNT=CN T+1 | |
193 | S ^TMP(CH TODJ,"CHML DMEZ",CNT) =" D QUE A^CHMLDMEZ ",CNT=CNT+ 1 | |
194 | S XMTEXT= "^TMP(CHTO DJ,""CHMLD MEZ""," | |
195 | S XMDUZ=. 5 | |
196 | S XMY(DUZ )="" | |
197 | S XMSUB=" GBL 741031 .14 UPDT-N OT CMPLTD" D ^XMD | |
198 | Q | |
199 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.