173. EPMO Open Source Coordination Office Redaction File Detail Report

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

173.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCMA9.m Mon Nov 5 16:39:55 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCMA9.m Mon Nov 5 17:50:00 2018 UTC

173.2 Comparison summary

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

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

173.4 Active regular expressions

No regular expressions were active.

173.5 Comparison detail

  1   CHMLCMA9 ; CVA/DTP;PR INT-END OF  CMAC ZIP  CODE LOAD  WITH COUNT ;02/19/98   1:57 PM
  2    ;;1.0;
  3    ;;CPTS #1 3733 BY DT P (13-FEB- 98)
  4   START S X= DT D DTPRT  S DATE=Y, PG=1,X=$P( $H,",",2), H=X\3600,M =X#3600\60
  5    S:M<10 M= 0_M S:H<10  H=0_M S T IME=H_M ;D  HEAD
  6    ;INSERT D ATA SORTS/ WRITE HERE
  7    S Y=CHBEG DT X ^DD(" DD")
  8    S XMY(" PII             ")=""    ;HAC PST G ROUP 
  9    S XMDUZ=D UZ,XMSUB=" CMAC ZIP C ODE LOAD C OMPLETE"_$ $FMTE^XLFD T(DT,"5D")
  10    S TEXT(1) ="PLEASE S AVE THIS R EPORT FOR  CMAC UPDAT E PROGRAMM ER!!!"
  11    S TEXT(1) ="This rep ort signif ies comple tion of CM AC ZIP upd ate for:   "_Y
  12    S TEXT(2) ="The tota l number o f records  read:  "_C HX
  13    S TEXT(2) ="The tota l number o f zip code s added:   "_CHZ
  14    K XMY,XMD UZ,TEXT,XM TEXT,XMSUB
  15    D ^XMD
  16    
  17   END Q
  18    ; 
  19   HEAD W @IO F,!,DUZ,?2 6,"HEALTH  ADMINISTRA TION CENTE R",?72,"Pa ge: ",PG S  PG=PG+1
  20    ;INSERT A PPROPRIATE  TITLE IN  NEXT LINE- CHECK TAB
  21    S TEXT(1) =TIME_"  C MAC ZIPCOD E Update R eport"_$E( DT,4,7)_$L (DATE)/2_D ATE
  22    Q
  23    ; 
  24   DTPRT S Y= "" Q:X'?7N   S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7)
  25    I %M S:%D  Y=$E(" ", $L(%D))_%D _", "_Y S  Y=$P($P($T (JAN),";;" ,2)," ",%M )_""_Y
  26    Q
  27   JAN ;;JAN  FEB MAR AP R MAY JUN  JUL AUG SE P OCT NOV  DEC   
  28    ;