262. EPMO Open Source Coordination Office Redaction File Detail Report

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.

262.1 Files compared

# 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

262.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 238
Changed 1 8
Inserted 0 0
Removed 0 0

262.3 Comparison options

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

262.4 Active regular expressions

No regular expressions were active.

262.5 Comparison detail

  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                    ")=""
  65                ;S XMY(" PII                               ")= ""
  66                 S XMY("
P II                       ")=""
  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