Produced by Araxis Merge on 11/9/2018 12:34:10 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 | CHMXMFU1.m | Mon Nov 5 16:40:04 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXMFU1.m | Mon Nov 5 17:52:52 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 440 |
Changed | 1 | 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 | CHMXMFU1 ;HAC /RKN;Full Nightly Up dt MMI-Que ue;03/03/0 5 08:15 A M | |
2 | ;; V1.0;PROJ # 1241 03/ 03/2005 RK N | |
3 | ;; CALLS ^CHM XMD09, ^CH MXMFU2 | |
4 | ;; | |
5 | ;; | |
6 | ;; ;AJM 07-03 -07 DEV002 659 FIXED DATE FORMA TTING FOR DATES PAST 2099 | |
7 | ;; ; | |
8 | ;; SCHEDULED RUN @ 1800 NIGHTLY, 7 DAYS | |
9 | ;; | |
10 | ;M TN028772 D PT 7/6/17 REGION 1 D ATA CENTER LOGICAL N AME CHANGE LONG LINE S | |
11 | D NOW^%DTC | |
12 | K ^CHMXRX("M MX_NTLY_UP DT"),^CHMX RX("MMX_NT LY_UPDTX") | |
13 | K DOLFLG,FMD ATE,FMPDAT E,WRFLAG | |
14 | K ^CHMZHOLD( "OHIEXCEP_ TMP") | |
15 | S U="^",(CHE RRMSG,CHRE CCNT)=0 | |
16 | S (CHDT,FMDA TE)=$E(%,1 ,7),CHFMDT E=$E(%,4,7 ),FMPDATE= 9999999 | |
17 | S FMPDATE=$O (^CHMXRX(" MMX_NTLY_U PDT",FMPDA TE),-1) | |
18 | ;I FMPDATE=" " D EMPTY MM^CHMXMFU 2 ;/// / REMARKED OUT 03/03 /05 RKN | |
19 | D GETDAT | |
20 | S NWGLOB="CH MXMFU2" | |
21 | D SGETDAT^CH MXMD09 | |
22 | D VMSFILE^CH MXMFU2 | |
23 | I CHERRMSG'= 1 D | |
24 | .D AUTOMM^CH MXMFU2 | |
25 | .I FMPDATE'= "" K ^CHMX RX("MMX_NT LY_UPDT",F MPDATE) | |
26 | ;; D EXFTP 6 -28-06,SKD . Removed because t he FTP tra nsfer no l onger occu rs. This FTP proces s is repla ced by Win dow SFTP. | |
27 | D SDADM1^CHM XMFU2 | |
28 | D END^CHMXMF U2 | |
29 | Q | |
30 | ; | |
31 | GETDAT S CHMXST=0 | |
32 | GETST S CHMXST=$O (^AHCHVA(" A-STATE",C HMXST)) Q: 'CHMXST | |
33 | I (CHMXST>56 )&(CHMXST< 72) S CHMX ST=72 | |
34 | Q: CHMXST>72 | |
35 | S CHDFN=0 | |
36 | GETDFN S CHDFN=$O( ^AHCHVA("A -STATE",CH MXST,CHDFN )) G:'CHDF N GETST | |
37 | I $D(^AHCHVA (CHDFN,0)) I $E($P(^ AHCHVA(CHD FN,0),"^", 9),1,9)'?9 N S ^CHMZH OLD("MMX_N U_BAD_DFNS SN",CHDFN) =" " G GET DFN | |
38 | S CHBFN=0 | |
39 | GETBFN S CHBFN=$O( ^AHCHVA("A -STATE",CH MXST,CHDFN ,CHBFN)) G :'CHBFN GE TDFN | |
40 | S DFNI=0,DFN I=$O(^CHMD FN("B",CHD FN,0)) G:' DFNI GETBF N | |
41 | S DFNJ=0,DFN J=$O(^CHMD FN(DFNI,10 0,"B",CHBF N,0)) G:'D FNJ GETBFN | |
42 | G: ('$D(^AHCH VA("AF","E A",CHDFN,C HBFN))&('$ D(^CHMDFN( DFNI,100,D FNJ,100,1, 0)))) GETB FN | |
43 | ; | |
44 | S CHCSFLAG=" C " | |
45 | S CHBADC1="" ,CHBADC2=" ",CHBADC3= "",CHBADC4 ="",CHCCTY ="" | |
46 | S CHBADR1="" ,CHBADR2=" ",CHRCTY=" ",CHBDED1= 0,CHBDED2= "",CHBDEDA =0 | |
47 | S CHBDOB="", CHBELDT1=0 ,CHBELDT2= "",CHBELST A="",CHBNA ME="",CHBL NAM="" | |
48 | S CHBFNAM="" ,CHBSEX="" ,CHBOSDT=" ",CHBOEDT= "",CHBODES ="",CHBOPH ="NO" | |
49 | S CHBCPH="", CHBRPH="", CHBREL="", CHBSSN="", CHBCSTE="" ,CHBRSTE=" " | |
50 | S CHBCZIP="" ,CHBRZIP=" ",CHLDT="" ,CHDNAME=" ",CHDLNAM= "",CHDFNAM ="",CHBNST AT="" | |
51 | S CHDFSSN="" ,CHFCTCP1= 0,CHFCTCP2 ="",CHFDED 1=0,CHFDED 2="",CHBOH IC1="",CHB OHIC2="",C HFDEDA=0,C HFCTCPA=0 | |
52 | S CHFLDT="", (CHIVL,CHJ VL)=0,CHKV L=99999,CH REC1="",CH REC2="",CH REC3="" | |
53 | S CHREC4="", CHRECT1="" ,CHRECT2=" ",CHRECT3= "",CHVMSFL ="",CHLG1= "",CHLG2=" " | |
54 | ; | |
55 | ELGSTAT G :'$D(^AHCH VA(CHDFN,1 00,CHBFN,0 )) GETBFN | |
56 | S CHREC1=^AH CHVA(CHDFN ,100,CHBFN ,0) | |
57 | S: $D(^AHCHVA (CHDFN,100 ,CHBFN,1)) CHREC2=^( 1) | |
58 | S: $D(^AHCHVA (CHDFN,100 ,CHBFN,9)) CHREC3=^( 9) | |
59 | S CHBELDT1=C HDT_".9" | |
60 | S CHBSSN=$P( CHREC1,"^" ,9) | |
61 | I $E($P(CHRE C1,"^",9), 1,9)'?9N S ^CHMZHOLD ("MMX_NU_B AD_BFNSSN" ,CHDFN,CHB FN)=" " G GETBFN | |
62 | ; | |
63 | GSTAT I '$D(^AHCHV A(CHDFN,10 0,CHBFN,10 9)) S CHBE LSTA="NO", CHBELDT1=0 D G GSTA T1 | |
64 | .S CHBNSTAT= $P(CHREC1, "^",5) ; D EERS BYPAS S-DTP-1001 | |
65 | .S :(CHBNSTAT ="EA")!(CH BNSTAT="PR ")!(CHBNST AT="PC")!( CHBNSTAT=" T") CHBELS TA="YES" | |
66 | S CHBELDT1=$ O(^AHCHVA( CHDFN,100, CHBFN,109, CHBELDT1), -1) | |
67 | I 'CHBELDT1 S CHBELSTA ="NO" G GS TAT1 | |
68 | S CHBELDT2=0 | |
69 | S CHBELDT2=$ O(^AHCHVA( CHDFN,100, CHBFN,109, CHBELDT1,C HBELDT2)) | |
70 | I (CHBELDT1> CHDT)!(CHB ELDT2<CHDT ) S CHBELS TA="NO" G GSTAT1 | |
71 | S CHBELSTA=" YES" | |
72 | GSTAT1 S CHMAXL=3, CHXAL=CHBE LSTA D PAD BLKS^CHMXM FU2 S CHBE LSTA=CHXAL | |
73 | S: $D(CHBELDT 1) CHBELDT 1=$$FMTOYY YYMMDD^CHE DILIB(CHBE LDT1) ;AJM 07-03-07 DEV002659 | |
74 | S: $D(CHBELDT 2) CHBELDT 2=$$FMTOYY YYMMDD^CHE DILIB(CHBE LDT2) ;AJM 07-03-07 DEV002659 | |
75 | S CHMAXL=8,C HNUM=CHBEL DT1 D STRP IT^CHMXMFU 2 D PADZRO S^CHMXMFU2 S CHBELDT 1=CHX4 | |
76 | S CHMAXL=8,C HNUM=CHBEL DT2 D STRP IT^CHMXMFU 2 D PADZRO S^CHMXMFU2 S CHBELDT 2=CHX4 | |
77 | ; | |
78 | OHISTAT S CHIVL=$O( ^CHMDFN("B ",CHDFN,0) ) G:'CHIVL GETBFN | |
79 | S CHJVL=$O(^ CHMDFN(CHI VL,100,"B" ,CHBFN,0)) G:'CHJVL GETBFN | |
80 | ; | |
81 | OHIST2 S CHKVL=$O( ^CHMDFN(CH IVL,100,CH JVL,2,CHKV L),-1) I ' CHKVL D EX CSET G GE TBFN | |
82 | G: '$D(^CHMDF N(CHIVL,10 0,CHJVL,2, CHKVL,0)) OHIST2 | |
83 | S CHBOSDT=$E ($P(^CHMDF N(CHIVL,10 0,CHJVL,2, CHKVL,0)," ^",1),1,7) | |
84 | S CHBOEDT=$E ($P(^CHMDF N(CHIVL,10 0,CHJVL,2, CHKVL,0)," ^",2),1,7) | |
85 | G: CHDT<CHBOS DT OHIST2 | |
86 | I CHBOEDT="" G OHIST3 | |
87 | G: CHDT>CHBOE DT OHIST2 | |
88 | K ^CHMZHOLD( "MMX_NTLY_ OHI_EXCP", CHDFN,CHBF N) ;PU RGE CORR'D OHI'S | |
89 | ; | |
90 | OHIST3 | |
91 | S: $D(CHBOSDT ) CHBOSDT= $$FMTOYYYY MMDD^CHEDI LIB(CHBOSD T) ;AJM 07 -03-07 DEV 002659 | |
92 | S: $D(CHBOEDT ) CHBOEDT= $$FMTOYYYY MMDD^CHEDI LIB(CHBOED T) ;AJM 07 -03-07 DEV 002659 | |
93 | S CHBODES=$E ($P(^CHMDF N(CHIVL,10 0,CHJVL,2, CHKVL,0)," ^",3),1,25 ) | |
94 | I CHBODES'=" " D ;MTN028772 DPT 7/6/1 7 | |
95 | .S CHBOPH="NO " ; MTN028772 DPT 7/6/17 | |
96 | .F II=2,3,8,1 0,11,13,15 ,17,18,20, 21,23,24 D ;MTN0 28772 DPT 7/6/17 | |
97 | ..I CHBODES=I I S CHBOPH ="YES" ;MTN028772 DPT 7/6/1 7 | |
98 | S: CHBODES'=" " CHBODES= $P(^CHMDIC (741002.76 ,CHBODES,0 ),"^",1) | |
99 | S CHMAXL=8,C HNUM=CHBOS DT D STRPI T^CHMXMFU2 D PADZROS ^CHMXMFU2 S CHBOSDT= CHX4 | |
100 | S CHMAXL=8,C HNUM=CHBOE DT D STRPI T^CHMXMFU2 D PADZROS ^CHMXMFU2 S CHBOEDT= CHX4 | |
101 | S CHMAXL=25, CHXAL=CHBO DES D PADB LKS^CHMXMF U2 S CHBOD ES=CHXAL | |
102 | S CHMAXL=3,C HXAL=CHBOP H D PADBLK S^CHMXMFU2 S CHBOPH= CHXAL | |
103 | ; | |
104 | BOHIC S CHBOHIC1= $P(^CHMDFN (CHIVL,100 ,CHJVL,2,C HKVL,0),"^ ",3) G:CHB OHIC1="" A DDCHK | |
105 | S CHBOHIC2=$ P(^CHMDIC( 741002.76, CHBOHIC1,0 ),"^",4) | |
106 | ; | |
107 | ADDCHK D CORRADD^C HMXMFU2 | |
108 | D RMITADD^CH MXMFU2 | |
109 | ; | |
110 | PFDED1 S CHLDT=99 9-$E(CHDT, 1,3)_"0000 " | |
111 | S CHLDT=$O(^ CHMDFN(CHI VL,100,CHJ VL,1,CHLDT )) G:CHLDT ="" LYBDTC K | |
112 | G: (999-$E(CH DT,1,3))'= $E(CHLDT,1 ,3) LYBDTC K | |
113 | ; | |
114 | G: '$D(^CHMDF N(CHIVL,10 0,CHJVL,1, CHLDT,0)) PFDED2 | |
115 | S CHBDED1=$P (^CHMDFN(C HIVL,100,C HJVL,1,CHL DT,0),"^", 2) | |
116 | S CHBDED2=$E ($P(^CHMDF N(CHIVL,10 0,CHJVL,1, CHLDT,0)," ^",3),1,3) | |
117 | ; | |
118 | LTYRBEN S CHLDT=$O( ^CHMDFN(CH IVL,100,CH JVL,1,CHLD T)) | |
119 | LYBDTCK S CHBDEDA=" 0000000" | |
120 | I (999-($E(C HDT,1,3)-1 ))=$E(CHLD T,1,3) D | |
121 | .S CHBDEDA=$ P(^CHMDFN( CHIVL,100, CHJVL,1,CH LDT,0),"^" ,2) | |
122 | .S CHNUM=CHB DEDA,DOLFL G=1,CHMAXL =7 D STRPD L^CHMXMFU2 D PADZROS ^CHMXMFU2 S CHBDEDA= CHX4 | |
123 | ; | |
124 | PFDED2 S CHBDED2=$ S(CHBDED2= 1:"YES",CH BDED2=0:"N O",1:"NO") | |
125 | S CHNUM=CHBD ED1,DOLFLG =1,CHMAXL= 7 D STRPDL ^CHMXMFU2 D PADZROS^ CHMXMFU2 S CHBDED1=C HX4 | |
126 | S CHMAXL=3,C HXAL=CHBDE D2 D PADBL KS^CHMXMFU 2 S CHBDED 2=CHXAL | |
127 | FDEDCAT S CHFLDT= 999-$E(CHD T,1,3)_"00 00" | |
128 | S CHFLDT=$O( ^CHMDFN(CH IVL,1,CHFL DT)) G:CHF LDT="" LYF DTCK | |
129 | G: (999-$E(CH DT,1,3))'= $E(CHFLDT, 1,3) LYFDT CK | |
130 | ; | |
131 | G: '$D(^CHMDF N(CHIVL,1, CHFLDT,0)) FDEDC1 | |
132 | S CHREC4=^CH MDFN(CHIVL ,1,CHFLDT, 0) | |
133 | S CHFDED1=$P (CHREC4,"^ ",2) | |
134 | S CHFDED2=$E ($P(CHREC4 ,"^",3),1, 3) | |
135 | S CHFCTCP1=$ P(CHREC4," ^",4) | |
136 | S CHFCTCP2=$ E($P(CHREC 4,"^",5),1 ,3) | |
137 | ; | |
138 | LTYRFAM S CHFLDT=$O (^CHMDFN(C HIVL,1,CHF LDT)) | |
139 | LYFDTCK S CHFDEDA=" 0000000",C HFCTCPA="0 000000" | |
140 | I (999-($E(C HDT,1,3)-1 ))=$E(CHFL DT,1,3) D | |
141 | .S CHFDEDA=$ P(^CHMDFN( CHIVL,1,CH FLDT,0),"^ ",2) | |
142 | .S CHNUM=CHF DEDA,DOLFL G=1,CHMAXL =7 D STRPD L^CHMXMFU2 D PADZROS ^CHMXMFU2 S CHFDEDA= CHX4 | |
143 | .S CHFCTCPA= $P(^CHMDFN (CHIVL,1,C HFLDT,0)," ^",4) | |
144 | .S CHNUM=CHF CTCPA,DOLF LG=1,CHMAX L=7 D STRP DL^CHMXMFU 2 D PADZRO S^CHMXMFU2 S CHFCTCP A=CHX4 | |
145 | ; | |
146 | FDEDC1 S CHFDED2=$ S(CHFDED2= 1:"YES",CH FDED2=0:"N O",1:"NO") | |
147 | S CHFCTCP2=$ S(CHFCTCP2 =1:"YES",C HFCTCP2=0: "NO",1:"NO ") | |
148 | S CHNUM=CHFD ED1,DOLFLG =1,CHMAXL= 7 D STRPDL ^CHMXMFU2 D PADZROS^ CHMXMFU2 S CHFDED1=C HX4 | |
149 | S CHMAXL=3,C HXAL=CHFDE D2 D PADBL KS^CHMXMFU 2 S CHFDED 2=CHXAL,CH MAXL=2,CHX AL=CHBOHIC 1 D PADBLK S^CHMXMFU2 S CHBOHIC 1=CHXAL,CH MAXL=2,CHX AL=CHBOHIC 2 D PADBLK S^CHMXMFU2 S CHBOHIC 2=CHXAL | |
150 | ; | |
151 | S CHNUM=CHFC TCP1,DOLFL G=1,CHMAXL =7 D STRPD L^CHMXMFU2 D PADZROS ^CHMXMFU2 S CHFCTCP1 =CHX4 | |
152 | S CHMAXL=3,C HXAL=CHFCT CP2 D PADB LKS^CHMXMF U2 S CHFCT CP2=CHXAL | |
153 | ; | |
154 | D WRGLOB^CHM XMFU2 | |
155 | ; | |
156 | G GETBFN | |
157 | ; | |
158 | EXFTP S CHFILE="N U"_CHFMDTE _".DAT" | |
159 | ; | |
160 | S CHFTPMSG=0 | |
161 | ; | |
162 | ;/ ////////// / UNREMARK /REMARK OU T CODE FOR PRODUCTIO N //////// // | |
163 | XCOM ;S X=$ZF(-1, "SUBMIT HA C_HFS$:[DS MMANAG]MMX _NU_FTP.CO M/NAME=MMX _NU_FTP_JO B.LOG/NOPR INTER/USER =HACCACHEM GR/PARAM=" _CHFILE) ;EAT 06/13 /2006 | |
164 | ;/ ////////// / UNREMARK /REMARK OU T CODE FOR PRODUCTIO N //////// // | |
165 | ; | |
166 | ;; H 600 ;6 -28-06,SKD . Removed due to un necessary wait time | |
167 | FTPCK Q ;6-28-06 ,SKD. Rem oved becau se the FTP transfer no longer occurs. T his FTP pr ocess is r eplaced by Window SF TP. | |
168 | S RD="HAC_HF S$:[DSMMAN AG]MMX_NU_ FTP_JOB.LO G" ;LIV E | |
169 | C RD | |
170 | K CHFTPTIM,C HFTPWT S Z E="",QFLAG =0,CHFTPWT =$P(^CHMDI C(741002.1 7,1,2),"^" ,10) | |
171 | F CHFTPTIM=1 :1:CHFTPWT H 60 O R D:"R":10 D Q:(QFLA G=1) | |
172 | .I '$T C RD Q | |
173 | .F U RD R R DLINE D Q:(QFLAG=1 )!($ZE["EN DOFILE") | |
174 | .. I (RDLINE[ "226 Trans fer comple te") S CHF TPMSG=1,QF LAG=1 Q | |
175 | .. I (RDLINE[ "Charged C PU time:") S QFLAG=1 Q | |
176 | ; | |
177 | FTPERR C RD | |
178 | S CHNB=2 | |
179 | S ZML(CHNB)= "" | |
180 | S ZML(CHNB)= CHVMSFL | |
181 | S CHNB=CHNB+ 1 | |
182 | S ZML(CHNB)= "" | |
183 | S CHNB=CHNB+ 1 | |
184 | ;I (CHFTPMSG =0) D | |
185 | ;. S ZML(CHNB )="FTP UNS UCCESSFUL. ..Ntly HAC MMI.DAT FU LL file to MMI." | |
186 | ;. S CHNB=CHN B+1,ZML(CH NB)="CHFTP TIM = "_CH FTPTIM | |
187 | ;. S CHNB=CHN B+1,ZML(CH NB)="CHFTP WT = "_CHF TPWT | |
188 | ;. S CHNB=CHN B+1,ZML(CH NB)="CHFTP MSG = "_CH FTPMSG | |
189 | ;. S CHNB=CHN B+1,ZML(CH NB)="QFLAG = "_QFLAG | |
190 | ;. S CHNB=CHN B+1,ZML(CH NB)="$ZE = "_$ZE | |
191 | ;. S CHNB=CHN B+1,ZML(CH NB)="RDLIN E = "_RDLI NE | |
192 | ;I (CHFTPMSG =1) D | |
193 | ;. S ZML(CHNB )="FTP Suc cessful... Ntly HACMM I.DAT FULL file to M MI." | |
194 | ;S XMDUZ=.5, XMY("G.MMI FILES")="" ;MMIFILE S GROUP LI VE | |
195 | ;S XMY(" PII ")="" | |
196 | ;S XMY("
|
|
197 | ;S XMY("
|
|
198 | ;S XMY(" P I
|
|
199 | ;S XMTEXT="Z ML(" | |
200 | ;I (CHFTPMSG =1) D | |
201 | ;. S XMSUB="S UCC Ntly FTP MMX.." _FMDATE | |
202 | ;I (CHFTPMSG =0) D | |
203 | ;. S XMSUB="U NSUC Ntly FTP MMX.." _FMDATE | |
204 | ;D ^XMD | |
205 | K CHFTPMSG,R D,RDLINE | |
206 | ; | |
207 | DOLDFLS D NOW^%DTC | |
208 | S X1=X,X2=-9 0 | |
209 | D C^%DTC | |
210 | D YX^%DTC | |
211 | ;; ;;;DON'T U SE;;;S DEL DTE=$E(Y,5 ,6)_"-"_$E (Y,1,3) | |
212 | S DELDTE=Y | |
213 | ;; ;;;DON'T U SE;;;S X=$ &ZLIB.%SUB MIT("HAC_H FS$:[DSMMA NAG]MMX_DE L_OLDFILES .COM","/NO PRINTER/US ER=HACCACH EMGR",DELD TE) | |
214 | Q | |
215 | ; | |
216 | EXCSET K TDFNNAM,T DFNSSN,TBF NNAM,TBFNS SN | |
217 | S TDFNNAM=$P (^AHCHVA(C HDFN,0),"^ ",1),TDFNS SN=$P(^AHC HVA(CHDFN, 0),"^",9) | |
218 | S TBFNNAM=$P (^AHCHVA(C HDFN,100,C HBFN,0),"^ ",1),TBFNS SN=$P(^AHC HVA(CHDFN, 100,CHBFN, 0),"^",9) | |
219 | I '$D(^CHMZH OLD("MMX_N TLY_OHI_EX CP",CHDFN, CHBFN)) D | |
220 | .S ^CHMZHOLD ("MMX_NTLY _OHI_EXCP" ,CHDFN,CHB FN)=CHIVL_ "^"_CHJVL_ "^"_TBFNNA M_"^"_TBFN SSN_"^"_TD FNNAM_"^"_ TDFNSSN | |
221 | .S ^CHMZHOLD ("OHIEXCEP _TMP",TBFN NAM)=CHIVL _"^"_CHJVL _"^"_TBFNN AM_"^"_TBF NSSN_"^"_T DFNNAM_"^" _TDFNSSN ;sort by bene n ame | |
222 | Q | |
223 | ; | |
224 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.