Produced by Araxis Merge on 11/9/2018 12:34:17 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 | CHVMC301.m | Mon Nov 5 16:43:33 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHVMC301.m | Fri Nov 9 03:52:06 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 258 |
Changed | 1 | 2 |
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 | CHVMC301 ; JLR/DEV;VA MC ACCESS - CALC BEN E LISTING; 02/24/98 11:10 AM | |
2 | ;V1.0 | |
3 | G:'$D(^UT ILITY($J," ZIP")) END | |
4 | S ^CHMIHQ ("ZBENE-LI ST-LOCK",$ J)="" | |
5 | K CHDOM D DOMAIN^CH VMCUTL | |
6 | D TEXT | |
7 | S BLK=CHS ITE | |
8 | D BLANK | |
9 | S CHSITE= BLK | |
10 | Q:'$D(^DI C(4,CHSITE ,0)) | |
11 | S NAME=$P (^(0),"^", 1) | |
12 | S NAME=$P (NAME,",", 1) | |
13 | ;I $D(CHD OM) S DOMN =CHDOM_".V A.GOV" | |
14 | ;E S DOMN="
|
|
15 | I $D(CHDO M) S DOMN= CHDOM | |
16 | E S DOMN ="G.CHAMPV A@"_NAME | |
17 | D STNAME | |
18 | D BENE | |
19 | D MAIL | |
20 | END K ^UTI LITY("ZIP" ) | |
21 | K ^CHMIHQ ("ZBENE-LI ST-LOCK",$ J) | |
22 | Q | |
23 | ; | |
24 | BLANK F X= 1:1:($L(BL K)) Q:$E(B LK,X)'=" " | |
25 | S BLK=$E( BLK,X,$L(B LK)) | |
26 | Q | |
27 | BENE S DFN =0 | |
28 | B1 S DFN=$ O(^AHCHVA( "AF","EA", DFN)) Q:'D FN S BFN= 0 | |
29 | B2 S BFN=$ O(^AHCHVA( "AF","EA", DFN,BFN)) G:'BFN B1 | |
30 | G:'$D(^AH CHVA(DFN,1 00,BFN,1)) B2 | |
31 | S BZIP=$P (^(1),"^", 5) | |
32 | G:BZIP="" B2 | |
33 | G:'$D(^UT ILITY($J," ZIP",BZIP) ) B2 | |
34 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) B2 | |
35 | S REC0=^( 0),REC1=^( 1) | |
36 | S BSSN=$P (REC0,"^", 9) | |
37 | S BNAM=$P (REC0,"^", 1) | |
38 | S BSEX=$P (REC0,"^", 2) | |
39 | S BDOB=$P (REC0,"^", 3) | |
40 | S BREL=$P (REC0,"^", 4) | |
41 | S CHSUB=$ S(BREL="C" :"CHILD",B REL="S":"S POUSE",BRE L="XS":"EX -SPOUSE",1 :"") | |
42 | S BADD1=$ P(REC1,"^" ,1) | |
43 | S BADD2=$ P(REC1,"^" ,2) | |
44 | S BCTY=$P (REC1,"^", 3) | |
45 | S BSTA=$P (REC1,"^", 4) | |
46 | S PSTA="" | |
47 | I BSTA'=" " S:$D(^DI C(5,BSTA,0 )) PSTA=$P (^(0),"^", 2) | |
48 | S X="B"_U _BNAM_"^"_ BSEX_"^"_B DOB_"^"_CH SUB_"^"_BA DD1_"^"_BA DD2_"^"_BC TY_"^"_PST A_"^"_BZIP | |
49 | D BUILD | |
50 | D ^CHVMC3 02 | |
51 | G B2 | |
52 | MAIL S XMS UB="CITI B eneficiary Listing f or "_NAME_ " "_"("_C HSITE_")" | |
53 | S XMDUZ=D UZ | |
54 | S XMTEXT= "^UTILITY( $J,""W"",1 ," | |
55 | S XMY(DUZ )="",U="^" | |
56 | ;S XMY(DO MN)="",U=" ^" | |
57 | D ^XMD | |
58 | K ^UTILIT Y($J),X,XM TEXT,XMY | |
59 | Q | |
60 | TEXT S LNC NT=1 | |
61 | F I=1:1 S X=$P($T(T XT+I),";", 2) Q:X="EN D" D | |
62 | .S:$E(X,1 ,5)=" To: " X=X_"G.C HAMPVA" | |
63 | .S LNCNT= LNCNT+1 D BUILD | |
64 | F I=LNCNT :1:58 S X= "" D BUILD | |
65 | Q | |
66 | STNAME S X =" " | |
67 | D BUILD | |
68 | S X="Bene ficiary Li sting for Staion: "_ CHSITE_" ("_NAME_") " | |
69 | D BUILD | |
70 | S X=" " | |
71 | D BUILD | |
72 | Q | |
73 | BUILD D SP ACE | |
74 | I '$D(^UT ILITY($J," W",1)) S H OLDJ=0 | |
75 | S JJ=HOLD J+1 | |
76 | S ^UTILIT Y($J,"W",1 ,JJ,0)=X,H OLDJ=JJ | |
77 | Q | |
78 | SPACE S LE N=$L(X) | |
79 | S TIMES=7 4-LEN,SPAC E="" | |
80 | F II=1:1: TIMES S S PACE=SPACE _" " | |
81 | S X=X_SPA CE Q | |
82 | TXT ; | |
83 | ;From: C HAMPVA Cen ter | |
84 | ; | |
85 | ;Subj: C ITI Benefi ciary List ing | |
86 | ; | |
87 | ; To: | |
88 | ; | |
89 | ; | |
90 | ; 1 . As requ ested, we are provid ing a file of all | |
91 | ; e ligible ac tive CHAMP VA benefic iaries. T his file | |
92 | ; w ill contai n those be neficiarie s that hav e mailing | |
93 | ; a ddresses w ithin the zip codes that were provided | |
94 | ; t o CHAMPVA. | |
95 | ; | |
96 | ; 2 . This fi le contain s 2 record types, be neficiary | |
97 | ; r ecord and claim reco rd. The b eneficary records | |
98 | ; b egin with a "B" and contain na me, sex, D OB, relati on- | |
99 | ; s hip and ad dress info rmation fo r the requ ested zip | |
100 | ; c odes and a re structu red as fol lows: | |
101 | ; | |
102 | ; " B"^name^se x^DOB^rela tionship^a ddr1^addr2 ^city^st^z ip | |
103 | ; | |
104 | ; 3 . The cla im records begin wit h a "C" an d contain the | |
105 | ; c laim no., type of cl aim, date of service , diagnosi s | |
106 | ; c ode and di agnosis de scription. All clai ms for a | |
107 | ; b eneficiary have a co rrespondin g claim re cord. The y | |
108 | ; a re structu red as fol lows: | |
109 | ; | |
110 | ; " C"^diagnos is^dx desc ription^oc curances^a mt pd^ohi | |
111 | ; | |
112 | ; 4 . The dia gnosis des cription h as been se t to "Clai ms | |
113 | ; w ithout a d iagnosis" for those claims whi ch either | |
114 | ; h ave no dia gnosis or it is unkn own. For these clai ms | |
115 | ; t he diagnos is code wi ll be set to the typ e of servi ce | |
116 | ; a s follows: | |
117 | ; | |
118 | ; INP=Inpa tient OPT=Out patient P HM=Pharmac y | |
119 | ; DME=Dura ble Medica l DEN=Den tal T VL=Travel | |
120 | ; | |
121 | ; T hus, these claim rec ords will contain th e type of | |
122 | ; s ervice (TO S) and the descripti on as stat ed above, | |
123 | ; t he number of occuran ces, total amount pa id for eac h | |
124 | ; T OS and whe ther or no t they hav e other he alth | |
125 | ; i nsurance. | |
126 | ; | |
127 | ; 5 . If you have any q uestions o r problems , please | |
128 | ; co ntact the HAC Help D esk throug h Outlook or send a | |
129 | ; V ista mail message to the CITI- HELP@CHAMP VA mailgro up. | |
130 | ;END |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.