21. EPMO Open Source Coordination Office Redaction File Detail Report

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

21.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCHULAC.m Mon Nov 5 16:44:35 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCHULAC.m Tue Nov 6 22:04:26 2018 UTC

21.2 Comparison summary

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

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

21.4 Active regular expressions

No regular expressions were active.

21.5 Comparison detail

  1   CHMLCXB1 ; JLR/DEV;RE ADING MAIL MAN MESSAG ES TO CREA TE BENE LI ST;07/14/9 4  2:55 PM
  2    ;V1.0
  3    S FILE="V A7415::PW_ WPCORP:[BI GDISK]JIM. DAT"
  4    O FILE:"N WS" S T=$C (9)
  5    S MSG=0 K  ^UTILITY( "ZIP")
  6   A1 S MSG=$ O(^XMB(3.7 ,DUZ,2,BSK ,1,MSG)) G :'MSG END
  7    G:'$D(^XM B(3.7,DUZ, 2,BSK,1,MS G,0)) A1 G :'$D(^XMB( 3.9,MSG))  A1
  8    S J=.99
  9   A2 S J=$O( ^XMB(3.9,M SG,2,J)) G :'J A5 G:' $D(^XMB(3. 9,MSG,2,J, 0)) A2
  10    S REC=^(0 ) G:$L(REC )<5 A2
  11    I REC[":"  S STAT=$P (REC,":",2 ),BLK=STAT  D BLANK S  STAT=BLK  G:'$D(^DIC (4,STAT,0) ) END D  G  A2
  12    .S NAME=$ P(REC,":", 1)
  13    .;S NAME= $P(^DIC(4, STAT,0),"^ ",1),NAME= $P(NAME,", ",1)
  14    .;S DOMN= "
P II "
  15    F XX=1:1  S ZIP=$P(R EC,",",XX)  Q:ZIP=""   D
  16    .I ZIP["- " D RANGE  Q
  17    .S BLK=ZI P D BLANK  S ZIP=BLK  S ^UTILITY ("ZIP",ZIP )="" Q
  18    G A2
  19   A5 D BENE
  20    K ^UTILIT Y("ZIP") G  A1
  21   END K ^UTI LITY("ZIP" )
  22    C FILE
  23    Q
  24   BLANK F X= 1:1:($L(BL K)) Q:$E(B LK,X)'=" "
  25    S BLK=$E( BLK,X,$L(B LK)) Q
  26   RANGE S ZI P1=$P(ZIP, "-",1),ZIP 2=$P(ZIP," -",2) S BL K=ZIP1 D B LANK S ZIP 1=BLK
  27    S BLK=ZIP 2 D BLANK  S ZIP2=BLK
  28    F ZZ=ZIP1 :1:ZIP2 D
  29    .S:$L(ZZ) =4 ZZ="0"_ ZZ
  30    .S:$L(ZZ) =3 ZZ="00" _ZZ
  31    .S ^UTILI TY("ZIP",Z Z)=""
  32    Q
  33   BENE S DFN =0
  34   B1 S DFN=$ O(^AHCHVA( "AF","EA", DFN)) Q:'D FN  S BFN= 0
  35   B2 S BFN=$ O(^AHCHVA( "AF","EA", DFN,BFN))  G:'BFN B1
  36    G:'$D(^AH CHVA(DFN,1 00,BFN,1))  B2 S BZIP =$P(^(1)," ^",5) G:BZ IP="" B2
  37    G:'$D(^UT ILITY("ZIP ",BZIP)) B 2 G:'$D(^A HCHVA(DFN, 100,BFN,0) ) B2
  38    S REC0=^( 0),REC1=^( 1) S BSSN= $P(REC0,"^ ",9)
  39    S BNAM=$P (REC0,"^", 1),BSEX=$P (REC0,"^", 2),BDOB=$P (REC0,"^", 3)
  40    S BREL=$P (REC0,"^", 4)
  41    S X=BDOB  D DTPRT S  BDOB=Y
  42    S CHSUB=$ S(BREL="C" :"CHILD",B REL="S":"S POUSE",BRE L="XS":"EX -SPOUSE",1 :"")
  43    S BADD1=$ P(REC1,"^" ,1),BADD2= $P(REC1,"^ ",2)
  44    S BCTY=$P (REC1,"^", 3),BSTA=$P (REC1,"^", 4)
  45    S PSTA=""  I BSTA'=" " S:$D(^DI C(5,BSTA,0 )) PSTA=$P (^(0),"^", 2)
  46    S X=BNAM_ T_BSEX_T_B DOB_T_CHSU B_T_BADD1_ T_BADD2_T_ BCTY_T_PST A_T_BZIP D  BUILD
  47    G B2
  48   DTPRT S Y= "" Q:X'?7N   S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7)
  49    I %M S:%D  Y=$E(" ", $L(%D))_%D _", "_Y S  Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y
  50    Q
  51   JAN ;;JAN  FEB MAR AP R MAY JUN  JUL AUG SE P OCT NOV  DEC
  52   BUILD U FI LE W X,! Q