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

95.1 Files compared

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

95.2 Comparison summary

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

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

95.4 Active regular expressions

No regular expressions were active.

95.5 Comparison detail

  1   CHMEDC6 ;C SW/DEN;DEE RS TAPE CR EATION REP ORTS - MAI L MESSAGE  SUMMARY;01 /07/94  9: 00 AM
  2    ;V2.1D
  3    S FILE="D EERSHOLD.D AT"
  4    O FILE C  FILE:"D"
  5    O FILE:"N WS"
  6    S LINE="W  DUZ,?33," "CHAMPVA C ENTER"",?7 2,""page:  1""" D EXE
  7    S LINE="W  !,TM,?27, ""DEERS TA PE CREATIO N SUMMARY" "" D EXE
  8    S LINE="W  !,$E(DT,4 ,7),?34,DA TE" D EXE
  9    S Y=$O(^A HCHVA("DTD ",9999999) ,-1) X ^DD ("DD")
  10    S LINE="W  !!,""Date  of DEERS  Tape: "",Y " D EXE
  11    S LINE="W  !!,""Info rmation th at has Cha nged from  Last Tape  to this Ta pe""" D EX E
  12    S LINE="W  !,""----- ------ --- - --- ---- --- ---- - --- ---- - - ---- --- -""" D EXE
  13    S LINE="W  !!,?15,"" Sponsor SS N: "",$J($ FN(^AHCHVA (""DC"","" NON-MATCH" ",""SSN"") ,"",""),6) " D EXE
  14    S LINE="W  !,?14,""S ponsor Nam e: "",$J($ FN(^AHCHVA (""DC"","" NON-MATCH" ",""SNAM"" ),"",""),6 )" D EXE
  15    S LINE="W  !,?10,""B eneficiary  Name: "", $J($FN(^AH CHVA(""DC" ",""NON-MA TCH"",""BN AM""),""," "),6)" D E XE
  16    S LINE="W  !,?11,""B eneficiary  DOB: "",$ J($FN(^AHC HVA(""DC"" ,""NON-MAT CH"",""DOB ""),"","") ,6)"
  17    S LINE="W  !,""Begin ning Eligi bility Dat e: "",$J($ FN(^AHCHVA (""DC"","" NON-MATCH" ",""BCVA"" ),"",""),6 )" D EXE
  18    S LINE="W  !,?3,""En ding Eligi bility Dat e: "",$J($ FN(^AHCHVA (""DC"","" NON-MATCH" ",""ECVA"" ),"",""),6 )" D EXE
  19    S LINE="W  !,?28,""- -----"",!, ?21,""Tota l: """ D E XE
  20    S X=$S($D (^AHCHVA(" DC","CODE" ,1)):+^(1) ,1:0)
  21    S LINE="W  $J($FN(X, "",""),6)"  D EXE
  22    S LINE="W  !!!,""Sum mary of DE ERS Change  Codes (Co de in Pare nthesis)"" " D EXE
  23    S LINE="W  !,""----- -- -- ---- - ------ - ---- ----- ---------- ------"""  D EXE
  24    S LINE="W  !!,""No C hange to C HAMPVA Eli gibility ( 0): "",$FN (^AHCHVA(" "DC"",""CO DE"",0),"" ,"")" D EX E
  25    S LINE="W  !,?13,""A ny and All  Changes ( 1): "",$FN (^AHCHVA(" "DC"",""CO DE"",1),"" ,"")" D EX E
  26    S LINE="W  !,?18,""A dd New Per son (2): " ",$FN(^AHC HVA(""DC"" ,""CODE"", 2),"","")"  D EXE
  27    S LINE="W  !,?15,""O verride Ad d Code (6) : "",$FN(^ AHCHVA(""D C"",""CODE "",6),""," ")" D EXE
  28    S LINE="W  !,?4,""Mu ltiple Bir th Overrid e Code (7) : "",$FN(^ AHCHVA(""D C"",""CODE "",7),""," ")" D EXE
  29    S LINE="W  !!!,""Sta tuses of B eneficiari es Sent to  DEERS"""
  30    S LINE="W  !,""----- --- -- --- ----------  ---- -- - ----""" D  EXE
  31    S LINE="W  !!,?12,"" Eligible A ctive: "", $J($FN(^AH CHVA(""DC" ",""STAT"" ,""EA"")," ",""),7)"  D EXE
  32    S LINE="W  !,?17,""I neligible:  "",$J($FN (^AHCHVA(" "DC"",""ST AT"",""D"" ),"",""),7 )" D EXE
  33    S LINE="W  !,?3,""Pe nding DEER S Acceptan ce: "",$J( $FN(^AHCHV A(""DC""," "STAT"","" PR""),""," "),7)" D E XE
  34    S LINE="W  !,""Pendi ng DEERS D ata Confli ct: "",$J( $FN(^AHCHV A(""DC""," "STAT"","" PC""),""," "),7)" D E XE
  35    S LINE="W  !,?13,""P ending Rev iew: "",$J ($FN(^AHCH VA(""DC"", ""STAT""," "PS""),"", ""),7)" D  EXE
  36    S LINE="W  !,?14,""S ent to DEE RS: "",$J( $FN(^AHCHV A(""DC""," "STAT"","" T""),"","" ),7)" D EX E
  37    S X=0 S:$ D(^AHCHVA( "DC","STAT ","I")) X= X+^("I")
  38    S:$D(^AHC HVA("DC"," STAT","E") ) X=X+^("E ")
  39    S LINE="W  !,?20,""U nknown: "" ,$J($FN(X, "",""),7)"  D EXE
  40    S LINE="W  !,?29,""- ------"",! ,?22,""Tot al: "",$J( $FN(^AHCHV A(""DC""," "DEERSCNT" "),"",""), 7)" D EXE
  41    C FILE
  42    O FILE S  CNT=1
  43    S $ZE="", $ZT="EXIT"  K TEXT
  44    F  U FILE  R REC S T EXT(CNT)=R EC S CNT=C NT+1
  45   EXIT D:$ZE ["ENDOFFIL E" MAIL
  46   END Q
  47   EXE U FILE  X LINE Q
  48   MAIL S XMD UZ=DUZ,XMY (9887)=""
  49    S XMY(13) ="",XMY(23 249)="",XM Y(58243)=" "
  50    S XMY(" PII                        ")=""
  51    S XMY(" P I                     ")=""
  52    S XMY("
P II                        ")=""
  53    S XMY("
P II                       ")=""
  54    S XMY(" PII                      " )=""
  55    S XMY("BI GGERCJ@OSD .PENTAGON. MIL")=""
  56    S XMY("BU RTONRM@OSD .PENTAGON. MIL")=""
  57    S XMTEXT= "TEXT("
  58    S XMSUB=" Weekly Sum mary Repor t"
  59    D ^XMD