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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 108 |
Changed | 1 | 10 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 I ")="" | |
52 | S XMY("
|
|
53 | S XMY("
|
|
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.