96. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:54 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.

96.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMEDCF1.m Mon Nov 5 16:39:05 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMEDCF1.m Mon Nov 5 17:44:03 2018 UTC

96.2 Comparison summary

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

96.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

96.4 Active regular expressions

No regular expressions were active.

96.5 Comparison detail

  1   CHMEDCF1 ; HAC/RKN;DE ERS OUTGOI NG FTP TO  DOD;11/01/ 99  10:30  AM
  2    ;;V1.0;;C PTS 15719  BY RKN
  3    ;
  4    S U="^"
  5    D NOW^%DT
  6    S FMDATE= $E(%,1,7)
  7    K CHFTPTI M,CHFTPWT
  8    ;
  9   EEXFTP S C HFILE="DRO HAC.DAT "
  10    S CHFTPMS G=0
  11    S X=$ZF(- 1,"SUBMIT  HAC_HFS$:[ DSMMANAG]D EERS_MU_FT P_OUT.COM" ,"/NAME=DE ERS_MU_FTP _OUT_JOB/N OPRINTER/U SER=HACCAC HEMGR",CHF ILE,FMDATE ) ; SUBMIT  FTP JOB I N LIVE
  12    ;
  13   FFTPCK S R RD="HAC_HF S$:[DSMMAN AG]DEERS_M U_FTP_OUT_ JOB.LOG"     ;LIVE
  14    C RRD
  15    K CHFTPTI M,CHFTPWT  S ZE="",QF LAG=0,CHFT PWT=$P(^CH MDIC(74100 2.17,1,2), "^",10)
  16    F CHFTPTI M=1:1:CHFT PWT H 60   O RRD:"R": 10  D  Q:( QFLAG=1)
  17    .I '$T C  RRD Q
  18    .F  U RRD  R RRDLINE   D  Q:(QF LAG=1)!($Z E["ENDOFFI LE")
  19    ..I (RRDL INE["250 T ransfer co mpleted")  S CHFTPMSG =1,QFLAG=1  Q
  20    ..I (RRDL INE["Charg ed CPU tim e:") S QFL AG=1 Q
  21    ;
  22   FTPERR C R RD
  23    S CCHNB=2
  24    S ZML(CCH NB)=""
  25    S ZML(CCH NB)="FILE: HAC_HFS$:[ DSMMANAG]" _"DEERS_OF ILE_"_FMDA TE_".DAT"
  26    S CCHNB=C CHNB+1
  27    S ZML(CCH NB)=""
  28    S CCHNB=C CHNB+1
  29    I (CHFTPM SG=0)  D
  30    .S ZML(CC HNB)="FTP  UNSUCCESSF UL..Mthly. .OUT..FTP  DEERS_OFIL E_"_FMDATE _".DAT fil e"
  31    I (CHFTPM SG=1)  D
  32    .S ZML(CC HNB)="FTP  successful ..Mthly..O UT..FTP DE ERS_OFILE_ "_FMDATE_" .DAT file"
  33    S XMDUZ=. 5,XMY("G.D EERS")=""   ;RKN/JULI A/TONY/TAM MY LIVE
  34    S XMTEXT= "ZML("
  35    I (CHFTPM SG=1)  D
  36    .S XMSUB= "SUCC   MO  OUT DEERS  File"_FMD ATE
  37    I (CHFTPM SG=0)  D
  38    .S XMSUB= "UNSUC MO  OUT DEERS  File"_FMDA TE
  39    D ^XMD
  40    D:CHFTPMS G=1 NOTIFY                 ;SEND  EMAILS VI A MS-EXCHG
  41    ;
  42   END K CHFT PMSG,RRD,R RDLINE,CHF ILE,FMDATE ,CCHNB,QFL AG
  43    Q
  44   NOTIFY ;SE ND MS-EXCH ANGE EMAIL S FROM VIS TA
  45    ;
  46    D UCI^%ZI SV I $P(Y, ",",1)'="H AC" Q
  47    S XMDUZ=D UZ,XMY(107 22)="",XMY (13)="",XM Y(23249)=" ",XMY(5824 3)=""
  48    S XMY(" P I                     ")=""
  49    S XMY(" P I
I                         ")=""
  50    S XMY("
P II                       ")=""
  51    S XMY(" PII                      " )=""
  52    S XMY("je nnifer.ben ch.CTR@osd .pentagon. mil")=""
  53    S TEXT(1) ="Jennifer ,"
  54    S TEXT(2) =" "
  55    S TEXT(3) ="The week ly file is  available  on your s ite for pr ocessing."
  56    S TEXT(4) ="Please l et us know  via this  message wh en you are  finished. "
  57    S TEXT(5) =" "
  58    S TEXT(6) ="Thank Yo u"
  59    S XMTEXT= "TEXT("
  60    S XMSUB=" Weekly Fil e"
  61    D ^XMD
  62    K XMY,XMD UZ,TEXT,XM TEXT,XMSUB
  63    Q