Produced by Araxis Merge on 11/9/2018 12:34:14 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 | CHMXWBFC.m | Mon Nov 5 16:41:42 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXWBFC.m | Mon Nov 5 17:53:52 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 238 |
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 | CHMXWBFC ;HAC/RK N;WEB NTLY ELIG FILE CK;06/10/ 03 1310 PM | |
2 | ;;V1. 0;;CHAMPVA SYSTEM;;J ANUARY 28, 2014 | |
3 | ;;;;* **** ROUTI NE NOT USE D RKN 05/2 4/2005 *** ** | |
4 | ;; | |
5 | ;DEF0 16554 - Re place Open command w ith new Op en Functio n - DRW 01 /28/14 | |
6 | S U=" ^" | |
7 | D CKW EEK | |
8 | D CKN IGHT | |
9 | G END | |
10 | ; | |
11 | CKWEEK D END | |
12 | S CCN TFLAG=0,CC WKFLAG=1 | |
13 | D CCS ETVRS ; SET VARIAB LES FOR NI GHTLY FILE S | |
14 | D NOW ^%DTC | |
15 | S (CC CHDT,CCFMD ATE)=$E(%, 1,7),CCCHF MDTE=$E(%, 4,7),CCTIM E=$E(%,9,1 2),CCFMPDA TE=9999999 | |
16 | S CCF MPDATE=$O( ^CHMXWB("W EB_WKLY_FC K",CCFMPDA TE),-1) | |
17 | CKWFDT S X1=CCFMPD ATE,X2=+1 | |
18 | D C^% DTC | |
19 | S CCF MPDATE=$E( X,1,7),CCC HFMDTE=$E( X,4,7) | |
20 | S CCC HFILE="WK" _CCCHFMDTE _".DAT" | |
21 | D DW^ %DTC | |
22 | I (Y' =0)&(CCFMP DATE<CCCHD T) G CKWFD T ;SK IP WEEKDAY S | |
23 | I CCF MPDATE<CCC HDT D CVMX FL G CKWF DT | |
24 | Q | |
25 | ; | |
26 | CKNIGHT D END | |
27 | S CCN TFLAG=1,CC WKFLAG=0 | |
28 | D CCS ETVRS ; SET VARIAB LES FOR WE EKLY FILES | |
29 | D NOW ^%DTC | |
30 | S (CC CHDT,CCFMD ATE)=$E(%, 1,7),CCCHF MDTE=$E(%, 4,7),CCTIM E=$E(%,9,1 2),CCFMPDA TE=9999999 | |
31 | S CCF MPDATE=$O( ^CHMXWB("W EB_NTLY_FC K",CCFMPDA TE),-1) | |
32 | CKNFDT S X1=CCFMPD ATE,X2=+1 | |
33 | D C^% DTC | |
34 | S CCF MPDATE=$E( X,1,7),CCC HFMDTE=$E( X,4,7) | |
35 | S CCC HFILE="WN" _CCCHFMDTE _".DAT" | |
36 | D DW^ %DTC | |
37 | I Y=0 G CKNFDT ;SKIP SUNDAYS | |
38 | I CCF MPDATE<CCC HDT D CVMX FL G CKNF DT | |
39 | Q | |
40 | ; | |
41 | CVMXFL S IO="HAC_H FS$:[KERMI T.MATRIX]" _CCVAR1_CC CHFMDTE_". DAT" ;LIV E | |
42 | ;C IO | |
43 | I '$$ OPENFIWR^C HTFLIB9(.I O,"IO") Q | |
44 | S CCC HVMSFL="FI LE: "_IO | |
45 | ;O IO :"NWS" | |
46 | U IO | |
47 | CWRCNT S CCCHRECCN T="0" | |
48 | D NOW ^%DTC | |
49 | W "// ////////// ////// [En d Of File - Tot Rec Cnt = "_CC CHRECCNT_" - "_$E(CC CHDT,4,5)_ "/"_$E(CCC HDT,6,7)_" /19"_$E(CC CHDT,2,3)_ "("_$E(%,9 ,14)_")] / /" | |
50 | D CLO SEF^CHTFLI B9(IO,"IO" ) | |
51 | ; | |
52 | CKWGLB K ^CHMXWB(" WEB_"_CCVA R3_"_FCK") | |
53 | S ^CH MXWB("WEB_ "_CCVAR3_" _FCK",CCFM PDATE)="" | |
54 | ; | |
55 | CAUTMM S CCCHNB=2 | |
56 | S ZM L(CCCHNB)= "" | |
57 | S ZM L(CCCHNB)= CCCHVMSFL_ " (Total Records = "_CCCHRECC NT_")" | |
58 | S CC CHNB=CCCHN B+1 | |
59 | S ZML(CC CHNB)="" | |
60 | S CCCHNB =CCCHNB+1 | |
61 | S ZML(CC CHNB)="NOT ICE: Succe ssful CREA TION of (" _CCVAR2_") WebMD fil e!" | |
62 | S XMDUZ= .5,XMY("10 722")="" ;RKN LIVE | |
63 | S XMY(" PII " )="" | |
64 | ;S XMY(" P I I ")="" | |
65 | ;S XMY(" PII ")= "" | |
66 | S XMY("
|
|
67 | S XMTEXT ="ZML(" | |
68 | S XMSUB= CCVAR3_" U p WB..Succ ess.."_CCF MDATE | |
69 | D ^XMD | |
70 | ; | |
71 | CCFTP S CCCHFILE =CCVAR1_CC CHFMDTE_". DAT" | |
72 | S CCC HFTPMSG=0 | |
73 | ;H 30 0 | |
74 | S X=$ ZF(-1,"SUB MIT HAC_HF S$:[DSMMAN AG]WEB_"_C CVAR1_"_FT P.COM /NAM E=WEB_"_CC VAR1_"_FTP _JOB/NOPRI NTER/USER= HACCACHEMG R/PARAM="_ CCCHFILE) ; SUBMIT F TP WEEK JO B IN LIVE ; edited f or cache b y scott do an on 03.1 5.05 | |
75 | ;H 30 0 | |
76 | CCFTPCK S CCRD="HAC_ HFS$:[DSMM ANAG]WEB_" _CCVAR1_"_ FTP_JOB.LO G" ;LIV E | |
77 | ;C CC RD | |
78 | I '$$ OPENFIRD^C HTFLIB9(.C CRD,"CCRD" ) Q ;D EF016554 F UNCTION DR W 01/28/14 | |
79 | K CHF TPTIM,CHFT PWT | |
80 | S ZE= "",QFLAG=0 | |
81 | S CHF TPWT=$P(^C HMDIC(7410 02.17,1,2) ,"^",10) | |
82 | F CHF TPTIM=1:1: CHFTPWT H 6 D Q:(QF LAG=1) | |
83 | .F U CCRD R CC RDLINE D Q:(QFLAG= 1)!($$STAT US^ZISH) ;DEF0165 54 DRW 01/ 28/14 | |
84 | ..I ( CCRDLINE[" 226 Transf er complet e") S CCCH FTPMSG=1,Q FLAG=1 Q | |
85 | ..I ( CCRDLINE[" Charged CP U time:") S QFLAG=1 Q | |
86 | ; | |
87 | CCFTPERR; | |
88 | D CLO SEF^CHTFLI B9(CCRD,"C CRD") ;DEF 016554 CLO SING FUNCT ION DRW 01 /28/14 | |
89 | S CCC HNB=2 | |
90 | S ZML (CCCHNB)=" " | |
91 | S ZML (CCCHNB)=C CCHVMSFL | |
92 | S CCC HNB=CCCHNB +1 | |
93 | S ZML (CCCHNB)=" " | |
94 | S CCC HNB=CCCHNB +1 | |
95 | ;I (C CCHFTPMSG= 0) D | |
96 | ;.S Z ML(CCCHNB) ="FTP UNSU CCESSFUL.. ."_CCVAR3_ " "_CCCHFI LE_" file to WebMD." | |
97 | ;I (C CCHFTPMSG= 1) D | |
98 | ;.S Z ML(CCCHNB) ="FTP succ essful..." _CCVAR3_" "_CCCHFILE _" file to WebMD." | |
99 | ;S XM DUZ=.5,XMY ("10722")= "" ;RKN LI VE | |
100 | ;S XM TEXT="ZML( " | |
101 | ;I (C CCHFTPMSG= 1) D | |
102 | ;.S X MSUB="SUCC "_CCVAR3 _" FTP WEB .."_CCFMDA TE | |
103 | ;I (C CCHFTPMSG= 0) D | |
104 | ;.S X MSUB="UNSU C "_CCVAR3 _" FTP WEB .."_CCFMDA TE | |
105 | ;D ^X MD | |
106 | Q | |
107 | ; | |
108 | CCSETVRS ; | |
109 | I CCN TFLAG="1" D Q | |
110 | .S CC VAR1="WN" | |
111 | .S CC VAR2="Nigh tly" | |
112 | .S CC VAR3="NTLY " | |
113 | ; | |
114 | I CCW KFLAG="1" D Q | |
115 | .S CC VAR1="WK" | |
116 | .S CC VAR2="Week ly" | |
117 | .S CC VAR3="WKLY " | |
118 | ; | |
119 | Q | |
120 | ; | |
121 | END K CCCHDT ,CCCHFILE, CCCHFMDTE, CCFMDATE,C CFMPDATE,C CSDTE1,CCS DTE2,CCTIM E,CCNTFLAG ,CCWKFLAG, CCVAR1,CCV AR2,CCVAR3 ,X,X1,X2,Y ,CCCHFTPMS G,CCCHNB,C CCHRECCNT, CCCHVMSFL, CCNTFLAG,C CRD,CCRDLI NE,CHFTPTI M,CHFTPWT, QFLAG | |
122 | Q | |
123 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.