Produced by Araxis Merge on 11/9/2018 12:34:04 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 | CHMLCXB1.m | Mon Nov 5 16:44:12 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLCXB1.m | Fri Nov 9 03:11:46 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 226 |
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 | 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 | ;G:'$D(ZT SK) END G: '$D(^%ZTSK (ZTSK,0)) END S DUZ= $P(^(0),"^ ",3) | |
4 | ;G:'$D(^% ZTSK(ZTSK, 1)) END S BSK=^(1) | |
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 D TEXT | |
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= "
|
|
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 STNAM E D BENE D MAIL S ^C HMZHOLD("C MAC-BENE-L IST",STAT) ="" | |
20 | K ^UTILIT Y("ZIP") G A1 | |
21 | END K ^UTI LITY("ZIP" ) Q | |
22 | BLANK F X= 1:1:($L(BL K)) Q:$E(B LK,X)'=" " | |
23 | S BLK=$E( BLK,X,$L(B LK)) Q | |
24 | RANGE S ZI P1=$P(ZIP, "-",1),ZIP 2=$P(ZIP," -",2) S BL K=ZIP1 D B LANK S ZIP 1=BLK | |
25 | S BLK=ZIP 2 D BLANK S ZIP2=BLK | |
26 | F ZZ=ZIP1 :1:ZIP2 D | |
27 | .S:$L(ZZ) =4 ZZ="0"_ ZZ | |
28 | .S:$L(ZZ) =3 ZZ="00" _ZZ | |
29 | .S ^UTILI TY("ZIP",Z Z)="" | |
30 | Q | |
31 | BENE S DFN =0 | |
32 | B1 S DFN=$ O(^AHCHVA( "AF","EA", DFN)) Q:'D FN S BFN= 0 | |
33 | B2 S BFN=$ O(^AHCHVA( "AF","EA", DFN,BFN)) G:'BFN B1 | |
34 | G:'$D(^AH CHVA(DFN,1 00,BFN,1)) B2 S BZIP =$P(^(1)," ^",5) G:BZ IP="" B2 | |
35 | G:'$D(^UT ILITY("ZIP ",BZIP)) B 2 G:'$D(^A HCHVA(DFN, 100,BFN,0) ) B2 | |
36 | S REC0=^( 0),REC1=^( 1) S BSSN= $P(REC0,"^ ",9) | |
37 | S BNAM=$P (REC0,"^", 1),BSEX=$P (REC0,"^", 2),BDOB=$P (REC0,"^", 3) | |
38 | S BREL=$P (REC0,"^", 4) | |
39 | S CHSUB=$ S(BREL="C" :"CHILD",B REL="S":"S POUSE",BRE L="XS":"EX -SPOUSE",1 :"") | |
40 | S BADD1=$ P(REC1,"^" ,1),BADD2= $P(REC1,"^ ",2) | |
41 | S BCTY=$P (REC1,"^", 3),BSTA=$P (REC1,"^", 4) | |
42 | S PSTA="" I BSTA'=" " S:$D(^DI C(5,BSTA,0 )) PSTA=$P (^(0),"^", 2) | |
43 | S X="B"_U _BNAM_"^"_ BSEX_"^"_B DOB_"^"_CH SUB_"^"_BA DD1_"^"_BA DD2_"^"_BC TY_"^"_PST A_"^"_BZIP D BUILD | |
44 | D ^CHMLCX B2 | |
45 | G B2 | |
46 | MAIL S XMS UB="CITI B eneficiary Listing f or "_NAME_ " "_"("_S TAT_")" | |
47 | S XMDUZ=D UZ | |
48 | ;S XMTEXT ="^UTILITY ($J,""W"", 1,",XMY(DO MN)="",U=" ^" D ^XMD | |
49 | S XMTEXT= "^UTILITY( $J,""W"",1 ,",XMY(248 8)="",U="^ " D ^XMD | |
50 | K ^UTILIT Y($J),X,XM TEXT,XMY Q | |
51 | TEXT S LNC NT=1 | |
52 | T1 F I=1:1 S X=$P($T (TXT+I),"; ",2) Q:X=" END" S:$E (X,1,5)=" To:" X=X_ "G.CHAMPVA " S LNCNT= LNCNT+1 D BUILD | |
53 | F I=LNCNT :1:58 S X= "" D BUILD | |
54 | Q | |
55 | STNAME S X =" " D BUI LD | |
56 | S X="Bene ficiary Li sting for Staion: "_ STAT_" (" _NAME_")" D BUILD | |
57 | S X=" " D BUILD | |
58 | DTPRT S Y= "" Q:X'?7N S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7) | |
59 | I %M S:%D Y=$E(" ", $L(%D))_%D _", "_Y S Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y | |
60 | Q | |
61 | JAN ;;JAN FEB MAR AP R MAY JUN JUL AUG SE P OCT NOV DEC | |
62 | BUILD D SP ACE I '$D( ^UTILITY($ J,"W",1)) S HOLDJ=0 | |
63 | S JJ=HOLD J+1 S ^UTI LITY($J,"W ",1,JJ,0)= X,HOLDJ=JJ Q | |
64 | SPACE S LE N=$L(X) S TIMES=74-L EN,SPACE=" " F II=1:1 :TIMES S SPACE=SPAC E_" " | |
65 | S X=X_SPA CE Q | |
66 | TXT ; | |
67 | ;From: C HAMPVA Cen ter | |
68 | ; | |
69 | ;Subj: C ITI Benefi ciary List ing | |
70 | ; | |
71 | ; To: | |
72 | ; | |
73 | ; | |
74 | ; 1 . As requ ested, we are provid ing a file of all | |
75 | ; e ligible ac tive CHAMP VA benefic iaries. T his file | |
76 | ; w ill contai n those be neficiarie s that hav e mailing | |
77 | ; a ddresses w ithin the zip codes that were provided | |
78 | ; t o CHAMPVA. | |
79 | ; | |
80 | ; 2 . This fi le contain s 2 record types, be neficiary | |
81 | ; r ecord and claim reco rd. The b eneficary records | |
82 | ; b egin with a "B" and contain na me, sex, D OB, relati on- | |
83 | ; s hip and ad dress info rmation fo r the requ ested zip | |
84 | ; c odes and a re structu red as fol lows: | |
85 | ; | |
86 | ; " B"^name^se x^DOB^rela tionship^a ddr1^addr2 ^city^st^z ip | |
87 | ; | |
88 | ; 3 . The cla im records begin wit h a "C" an d contain the | |
89 | ; c laim no., type of cl aim, date of service , diagnosi s | |
90 | ; c ode and di agnosis de scription. All clai ms for a | |
91 | ; b eneficiary have a co rrespondin g claim re cord. The y | |
92 | ; a re structu red as fol lows: | |
93 | ; | |
94 | ; " C"^diagnos is^dx desc ription^oc curances^a mt pd^ohi | |
95 | ; | |
96 | ; 4 . The dia gnosis des cription h as been se t to "Clai ms | |
97 | ; w ithout a d iagnosis" for those claims whi ch either | |
98 | ; h ave no dia gnosis or it is unkn own. For these clai ms | |
99 | ; t he diagnos is code wi ll be set to the typ e of servi ce | |
100 | ; a s follows: | |
101 | ; | |
102 | ; INP=Inpa tient OPT=Out patient P HM=Pharmac y | |
103 | ; DME=Dura ble Medica l DEN=Den tal T VL=Travel | |
104 | ; | |
105 | ; T hus, these claim rec ords will contain th e type of | |
106 | ; s ervice (TO S) and the descripti on as stat ed above, | |
107 | ; t he number of occuran ces, total amount pa id for eac h | |
108 | ; T OS and whe ther or no t they hav e other he alth | |
109 | ; i nsurance. | |
110 | ; | |
111 | ; 5 . As alwa ys, questi ons are to be forwar ded to Cin di | |
112 | ; G ramals-Pel letier, CH AMPVA (IRM ) via the establishe d | |
113 | ; C ITI-HELP@C HAMPVA mai lgroup. | |
114 | ;END |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.