Produced by Araxis Merge on 11/9/2018 12:34:11 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 | CHMXMGU1.m | Mon Nov 5 16:41:41 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXMGU1.m | Mon Nov 5 17:52:56 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 414 |
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 | CHMXMGU1 ;HAC /RKN;Full Nightly Up dt MAGELLA N-Queue/DR IVER;05/30 /06 1:58 PM | |
2 | ;; V1.0;PROJ # 1490 05/ 30/2006 RK N | |
3 | ;; TEAM TRACK # DEV0001 37-01 09/2 5/2006 RKN | |
4 | ;; CALLS ^CHM XMGU2, ^CH MXMGU3 | |
5 | ;; | |
6 | ;; | |
7 | ;;AJM 07- 03-07 DEV0 02659 FIXE D DATE FOR MATTING FO R DATES PA ST 2099 | |
8 | ;; | |
9 | ;; SCHEDULED RUN @ 1800 NIGHTLY, 7 DAYS | |
10 | ;; | |
11 | ;M TN028772 D PT 7/6/17 REGION 1 D ATA CENTER LOGICAL N AME CHANGE LONG LINE S | |
12 | D NOW^%DT C | |
13 | K ^CHMXRX("M AG_NTLY_UP DT"),^CHMX RX("MAG_NT LY_UPDTX") | |
14 | K DOLFLG,FMD ATE,FMPDAT E,WRFLAG | |
15 | K ^CHMZHOLD( "OHIEXCEP_ TMP") | |
16 | S U="^",(CHE RRMSG,CHRE CCNT)=0 | |
17 | S (CHDT,FMDA TE)=$E(%,1 ,7),CHFMDT E=$E(%,4,7 ),FMPDATE= 9999999 | |
18 | S FMPDATE=$O (^CHMXRX(" MAG_NTLY_U PDT",FMPDA TE),-1) | |
19 | D GETDAT | |
20 | S NWGLOB="CH MXMGU2" | |
21 | D SGETDAT^CH MXMGU3 | |
22 | D VMSFILE^CH MXMGU2 | |
23 | I CHERRMSG'= 1 D | |
24 | .D AUTOMM^CH MXMGU2 | |
25 | .I FMPDATE'= "" K ^CHMX RX("MAG_NT LY_UPDT",F MPDATE) | |
26 | ;; EMERGENCY FIX: COMM ENTED OUT THE FTP TO WINDOWS, SYS ADMINS REMOVED | |
27 | ;; USER. MO VEIT NOW P ICKS UP FR OM VMS. - ajm | |
28 | ;; D EXFTP | |
29 | D SDADM1^CHM XMGU2 | |
30 | D END^CHMXMG U2 | |
31 | Q | |
32 | ; | |
33 | GETDAT S CHMXST=0 | |
34 | GETST S CHMXST=$O (^AHCHVA(" A-STATE",C HMXST)) Q: 'CHMXST | |
35 | I (CHMXST>56 )&(CHMXST< 72) S CHMX ST=72 | |
36 | Q: CHMXST>72 | |
37 | S CHDFN=0 | |
38 | GETDFN S CHDFN=$O( ^AHCHVA("A -STATE",CH MXST,CHDFN )) G:'CHDF N GETST | |
39 | I $D(^AHCHVA (CHDFN,0)) I $E($P(^ AHCHVA(CHD FN,0),"^", 9),1,9)'?9 N S ^CHMZH OLD("MAG_N U_BAD_DFNS SN",CHDFN) =" " G GET DFN | |
40 | S CHBFN=0 | |
41 | GETBFN S CHBFN=$O( ^AHCHVA("A -STATE",CH MXST,CHDFN ,CHBFN)) G :'CHBFN GE TDFN | |
42 | S DFNI=0,DFN I=$O(^CHMD FN("B",CHD FN,0)) G:' DFNI GETBF N | |
43 | S DFNJ=0,DFN J=$O(^CHMD FN(DFNI,10 0,"B",CHBF N,0)) G:'D FNJ GETBFN | |
44 | G: ('$D(^AHCH VA("AF","E A",CHDFN,C HBFN))&('$ D(^CHMDFN( DFNI,100,D FNJ,100,1, 0)))) GETB FN | |
45 | ; | |
46 | S CHCSFLAG=" C " | |
47 | S CHBADC1="" ,CHBADC2=" ",CHBADC3= "",CHBADC4 ="",CHCCTY ="" | |
48 | S CHBADR1="" ,CHBADR2=" ",CHRCTY=" ",CHBDED1= 0,CHBDED2= " ",CHBDED A=0 | |
49 | S CHBDOB="", CHBELDT1=0 ,CHBELDT2= "",CHBELST A="",CHBNA ME="",CHBL NAM="" | |
50 | S CHBFNAM="" ,CHBSEX="" ,CHBOSDT=" ",CHBOEDT= "",CHBODES ="",CHBOPH ="NO" | |
51 | S CHBCPH="", CHBRPH="", CHBREL="", CHBSSN="", CHBCSTE="" ,CHBRSTE=" " | |
52 | S CHBCZIP="" ,CHBRZIP=" ",CHLDT="" ,CHDNAME=" ",CHDLNAM= "",CHDFNAM ="",CHBNST AT="" | |
53 | S CHDFSSN="" ,CHFCTCP1= 0,CHFCTCP2 ="",CHFDED 1=0,CHFDED 2=" ",CH BOHIC1="", CHBOHIC2=" ",CHFDEDA= 0,CHFCTCPA =0 | |
54 | S CHFLDT="", (CHIVL,CHJ VL)=0,CHKV L=99999,CH REC1="",CH REC2="",CH REC3="" | |
55 | S CHREC4="", CHRECT1="" ,CHRECT2=" ",CHRECT3= "",CHVMSFL ="",CHLG1= "",CHLG2=" " | |
56 | ; | |
57 | ELGSTAT G :'$D(^AHCH VA(CHDFN,1 00,CHBFN,0 )) GETBFN | |
58 | S CHREC1=^AH CHVA(CHDFN ,100,CHBFN ,0) | |
59 | S: $D(^AHCHVA (CHDFN,100 ,CHBFN,1)) CHREC2=^( 1) | |
60 | S: $D(^AHCHVA (CHDFN,100 ,CHBFN,9)) CHREC3=^( 9) | |
61 | S CHBELDT1=C HDT_".9" | |
62 | S CHBSSN=$P( CHREC1,"^" ,9) | |
63 | I $E($P(CHRE C1,"^",9), 1,9)'?9N S ^CHMZHOLD ("MAG_NU_B AD_BFNSSN" ,CHDFN,CHB FN)=" " G GETBFN | |
64 | ; | |
65 | GSTAT I '$D(^AHCHV A(CHDFN,10 0,CHBFN,10 9)) S CHBE LSTA="NO", CHBELDT1=0 D G GSTA T1 | |
66 | .S CHBNSTAT= $P(CHREC1, "^",5) ; D EERS BYPAS S rkn 09/2 5/2006 | |
67 | .S :(CHBNSTAT ="EA")!(CH BNSTAT="PR ")!(CHBNST AT="PC")!( CHBNSTAT=" T") CHBELS TA="YES" | |
68 | S CHBELDT1=$ O(^AHCHVA( CHDFN,100, CHBFN,109, CHBELDT1), -1) | |
69 | I 'CHBELDT1 S CHBELSTA ="NO" G GS TAT1 | |
70 | S CHBELDT2=0 | |
71 | S CHBELDT2=$ O(^AHCHVA( CHDFN,100, CHBFN,109, CHBELDT1,C HBELDT2)) | |
72 | I (CHBELDT1> CHDT)!(CHB ELDT2<CHDT ) S CHBELS TA="NO" G GSTAT1 | |
73 | S CHBELSTA=" YES" | |
74 | GSTAT1 S CHMAXL=3, CHXAL=CHBE LSTA D PAD BLKS^CHMXM GU2 S CHBE LSTA=CHXAL | |
75 | S: $D(CHBELDT 1) CHBELDT 1=$$FMTOYY YYMMDD^CHE DILIB(CHBE LDT1) ;AJM 07-03-07 DEV002659 | |
76 | S: $D(CHBELDT 2) CHBELDT 2=$$FMTOYY YYMMDD^CHE DILIB(CHBE LDT2) ;AJM 07-03-07 DEV002659 | |
77 | S CHMAXL=8,C HNUM=CHBEL DT1 D STRP IT^CHMXMGU 2 D PADZRO S^CHMXMGU2 S CHBELDT 1=CHX4 | |
78 | S CHMAXL=8,C HNUM=CHBEL DT2 D STRP IT^CHMXMGU 2 D PADZRO S^CHMXMGU2 S CHBELDT 2=CHX4 | |
79 | ; | |
80 | OHISTAT S CHIVL=$O( ^CHMDFN("B ",CHDFN,0) ) G:'CHIVL GETBFN | |
81 | S CHJVL=$O(^ CHMDFN(CHI VL,100,"B" ,CHBFN,0)) G:'CHJVL GETBFN | |
82 | ; | |
83 | OHIST2 S CHKVL=$O( ^CHMDFN(CH IVL,100,CH JVL,2,CHKV L),-1) I ' CHKVL D EX CSET G GE TBFN | |
84 | G: '$D(^CHMDF N(CHIVL,10 0,CHJVL,2, CHKVL,0)) OHIST2 | |
85 | S CHBOSDT=$E ($P(^CHMDF N(CHIVL,10 0,CHJVL,2, CHKVL,0)," ^",1),1,7) | |
86 | S CHBOEDT=$E ($P(^CHMDF N(CHIVL,10 0,CHJVL,2, CHKVL,0)," ^",2),1,7) | |
87 | G: CHDT<CHBOS DT OHIST2 | |
88 | I CHBOEDT="" G OHIST3 | |
89 | G: CHDT>CHBOE DT OHIST2 | |
90 | K ^CHMZHOLD( "MAG_NTLY_ OHI_EXCP", CHDFN,CHBF N) ;PU RGE CORR'D OHI'S | |
91 | ; | |
92 | OHIST3 | |
93 | S: $D(CHBOSDT ) CHBOSDT= $$FMTOYYYY MMDD^CHEDI LIB(CHBOSD T) ;AJM 07 -03-07 DEV 002659 | |
94 | S: $D(CHBOEDT ) CHBOEDT= $$FMTOYYYY MMDD^CHEDI LIB(CHBOED T) ;AJM 07 -03-07 DEV 002659 | |
95 | S CHBODES=$E ($P(^CHMDF N(CHIVL,10 0,CHJVL,2, CHKVL,0)," ^",3),1,25 ) | |
96 | I CHBODES'=" " D ;MTN0 28772 DPT | |
97 | .S CHBOPH="N O" ;MTN0 28772 DPT | |
98 | .F II=2,3,8, 10,11,13,1 5,17,18,20 ,21,23,24 D ;MTN02 8772 DPT | |
99 | .. I CHBODES= II S CHBOP H="YES" ;MTN028772 DPT | |
100 | S: CHBODES'=" " CHBODES= $P(^CHMDIC (741002.76 ,CHBODES,0 ),"^",1) | |
101 | S CHMAXL=8,C HNUM=CHBOS DT D STRPI T^CHMXMGU2 D PADZROS ^CHMXMGU2 S CHBOSDT= CHX4 | |
102 | S CHMAXL=8,C HNUM=CHBOE DT D STRPI T^CHMXMGU2 D PADZROS ^CHMXMGU2 S CHBOEDT= CHX4 | |
103 | S CHMAXL=25, CHXAL=CHBO DES D PADB LKS^CHMXMG U2 S CHBOD ES=CHXAL | |
104 | S CHBOPH=" " | |
105 | S CHMAXL=3,C HXAL=CHBOP H D PADBLK S^CHMXMGU2 S CHBOPH= CHXAL | |
106 | ; | |
107 | BOHIC S CHBOHIC1= $P(^CHMDFN (CHIVL,100 ,CHJVL,2,C HKVL,0),"^ ",3) G:CHB OHIC1="" A DDCHK | |
108 | S CHBOHIC2=$ P(^CHMDIC( 741002.76, CHBOHIC1,0 ),"^",4) | |
109 | ; | |
110 | ADDCHK D CORRADD^C HMXMGU2 | |
111 | D RMITADD^CH MXMGU2 | |
112 | ; | |
113 | PFDED1 S CHLDT=99 9-$E(CHDT, 1,3)_"0000 " | |
114 | S CHLDT=$O(^ CHMDFN(CHI VL,100,CHJ VL,1,CHLDT )) G:CHLDT ="" LYBDTC K | |
115 | G: (999-$E(CH DT,1,3))'= $E(CHLDT,1 ,3) LYBDTC K | |
116 | G: '$D(^CHMDF N(CHIVL,10 0,CHJVL,1, CHLDT,0)) PFDED2 | |
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 CHNUM=CHB DEDA,DOLFL G=1,CHMAXL =7 D STRPD L^CHMXMGU2 D PADZROS ^CHMXMGU2 S CHBDEDA= CHX4 | |
122 | ; | |
123 | PFDED2 S C HNUM=CHBDE D1,DOLFLG= 1,CHMAXL=7 D STRPDL^ CHMXMGU2 D PADZROS^C HMXMGU2 S CHBDED1=CH X4 | |
124 | S CHMAXL=3,C HXAL=CHBDE D2 D PADBL KS^CHMXMGU 2 S CHBDED 2=CHXAL | |
125 | FDEDCAT S CHFLDT= 999-$E(CHD T,1,3)_"00 00" | |
126 | S CHFLDT=$O( ^CHMDFN(CH IVL,1,CHFL DT)) G:CHF LDT="" LYF DTCK | |
127 | G: (999-$E(CH DT,1,3))'= $E(CHFLDT, 1,3) LYFDT CK | |
128 | ; | |
129 | G: '$D(^CHMDF N(CHIVL,1, CHFLDT,0)) FDEDC1 | |
130 | S CHREC4=^CH MDFN(CHIVL ,1,CHFLDT, 0) | |
131 | ; | |
132 | LTYRFAM S CHFLDT=$O (^CHMDFN(C HIVL,1,CHF LDT)) | |
133 | LYFDTCK S CHFDEDA=" 0000000",C HFCTCPA="0 000000" | |
134 | I (999-($E(C HDT,1,3)-1 ))=$E(CHFL DT,1,3) D | |
135 | .S CHNUM=CHF DEDA,DOLFL G=1,CHMAXL =7 D STRPD L^CHMXMGU2 D PADZROS ^CHMXMGU2 S CHFDEDA= CHX4 | |
136 | .S CHNUM=CHF CTCPA,DOLF LG=1,CHMAX L=7 D STRP DL^CHMXMGU 2 D PADZRO S^CHMXMGU2 S CHFCTCP A=CHX4 | |
137 | ; | |
138 | FDEDC1 S C HNUM=CHFDE D1,DOLFLG= 1,CHMAXL=7 D STRPDL^ CHMXMGU2 D PADZROS^C HMXMGU2 S CHFDED1=CH X4 | |
139 | S CHMAXL=3,C HXAL=CHFDE D2 D PADBL KS^CHMXMGU 2 S CHFDED 2=CHXAL,CH MAXL=2,CHX AL=CHBOHIC 1 D PADBLK S^CHMXMGU2 S CHBOHIC 1=CHXAL,CH MAXL=2,CHX AL=CHBOHIC 2 D PADBLK S^CHMXMGU2 S CHBOHIC 2=CHXAL | |
140 | ; | |
141 | S CHNUM=CHFC TCP1,DOLFL G=1,CHMAXL =7 D STRPD L^CHMXMGU2 D PADZROS ^CHMXMGU2 S CHFCTCP1 =CHX4 | |
142 | S CHMAXL=3,C HXAL=CHFCT CP2 D PADB LKS^CHMXMG U2 S CHFCT CP2=CHXAL | |
143 | ; | |
144 | D WRGLOB^CHM XMGU2 | |
145 | ; | |
146 | G GETBFN | |
147 | ; | |
148 | EXFTP S CHFILE="M G"_CHFMDTE _".DAT" | |
149 | ; | |
150 | S CHFTPMSG=0 | |
151 | ; | |
152 | ;/ ////////// / UNREMARK /REMARK OU T CODE FOR PRODUCTIO N //////// // rkn 09/ 25/2006 | |
153 | XCOM S X=$ZF(-1," SUBMIT HAC _HFS$:[DSM MANAG]MAG_ NU_FTP.COM /NAME=MAG_ NU_FTP_JOB .LOG/NOPRI NTER/USER= HACCACHEMG R/PARAM="_ CHFILE) | |
154 | ;/ ////////// / UNREMARK /REMARK OU T CODE FOR PRODUCTIO N //////// // rkn 09/ 25/2006 | |
155 | ; | |
156 | H 600 | |
157 | FTPCK S RD="HAC_H FS$:[DSMMA NAG]MAG_NU _FTP_JOB.L OG" ;LI VE | |
158 | C RD | |
159 | K CHFTPTIM,C HFTPWT S Z E="",QFLAG =0,CHFTPWT =$P(^CHMDI C(741002.1 7,1,2),"^" ,10) | |
160 | F CHFTPTIM=1 :1:CHFTPWT H 60 O R D:"R":10 D Q:(QFLA G=1) | |
161 | .I '$T C RD Q | |
162 | .F U RD R R DLINE D Q:(QFLAG=1 )!($ZE["EN DOFILE") | |
163 | .. I (RDLINE[ "226 Trans fer comple te") S CHF TPMSG=1,QF LAG=1 Q | |
164 | .. I (RDLINE[ "Charged C PU time:") S QFLAG=1 Q | |
165 | ; | |
166 | FTPERR C RD | |
167 | S CHNB=2 | |
168 | S ZML(CHNB)= "" | |
169 | S ZML(CHNB)= CHVMSFL | |
170 | S CHNB=CHNB+ 1 | |
171 | S ZML(CHNB)= "" | |
172 | S CHNB=CHNB+ 1 | |
173 | ;I (CHFTPMSG =0) D | |
174 | ;. S ZML(CHNB )="FTP UNS UCCESSFUL. ..Ntly HAC MAG.DAT FU LL file to MAG." | |
175 | ;. S CHNB=CHN B+1,ZML(CH NB)="CHFTP TIM = "_CH FTPTIM | |
176 | ;. S CHNB=CHN B+1,ZML(CH NB)="CHFTP WT = "_CHF TPWT | |
177 | ;. S CHNB=CHN B+1,ZML(CH NB)="CHFTP MSG = "_CH FTPMSG | |
178 | ;. S CHNB=CHN B+1,ZML(CH NB)="QFLAG = "_QFLAG | |
179 | ;. S CHNB=CHN B+1,ZML(CH NB)="$ZE = "_$ZE | |
180 | ;. S CHNB=CHN B+1,ZML(CH NB)="RDLIN E = "_RDLI NE | |
181 | ;I (CHFTPMSG =1) D | |
182 | ;. S ZML(CHNB )="FTP Suc cessful... Ntly HACMA G.DAT FULL file to M AG." | |
183 | ;S XMDUZ=.5, XMY("G.MAG ELLAN")="" ;MAGELLA N VISTA MA IL GROUP L IVE | |
184 | ;S XMY(" PII ")="" | |
185 | ;S XMY("
|
|
186 | ;S XMY("
|
|
187 | ;S XMY(" P I
|
|
188 | ;S XMTEXT="Z ML(" | |
189 | ;I (CHFTPMSG =1) D | |
190 | ;. S XMSUB="S UCC Ntly FTP MAG.." _FMDATE | |
191 | ;I (CHFTPMSG =0) D | |
192 | ;. S XMSUB="U NSUC Ntly FTP MAG.." _FMDATE | |
193 | ;D ^XMD | |
194 | K CHFTPMSG,R D,RDLINE | |
195 | ; | |
196 | DOLDFLS D NOW^%DTC | |
197 | S X1=X,X2=-9 0 | |
198 | D C^%DTC | |
199 | D YX^%DTC | |
200 | S DELDTE=Y | |
201 | Q | |
202 | ; | |
203 | EXCSET K TDFNNAM,T DFNSSN,TBF NNAM,TBFNS SN | |
204 | S TDFNNAM=$P (^AHCHVA(C HDFN,0),"^ ",1),TDFNS SN=$P(^AHC HVA(CHDFN, 0),"^",9) | |
205 | S TBFNNAM=$P (^AHCHVA(C HDFN,100,C HBFN,0),"^ ",1),TBFNS SN=$P(^AHC HVA(CHDFN, 100,CHBFN, 0),"^",9) | |
206 | I '$D(^CHMZH OLD("MAG_N TLY_OHI_EX CP",CHDFN, CHBFN)) D | |
207 | .S ^CHMZHOLD ("MAG_NTLY _OHI_EXCP" ,CHDFN,CHB FN)=CHIVL_ "^"_CHJVL_ "^"_TBFNNA M_"^"_TBFN SSN_"^"_TD FNNAM_"^"_ TDFNSSN | |
208 | .S ^CHMZHOLD ("OHIEXCEP _TMP",TBFN NAM)=CHIVL _"^"_CHJVL _"^"_TBFNN AM_"^"_TBF NSSN_"^"_T DFNNAM_"^" _TDFNSSN ;sort by bene n ame | |
209 | Q | |
210 | ||
211 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.