182. EPMO Open Source Coordination Office Redaction File Detail Report

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.

182.1 Files compared

# 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

182.2 Comparison summary

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

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

182.4 Active regular expressions

No regular expressions were active.

182.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    ;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= "
P II "_NAME_".V A.GOV"
  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
  113    ;       C ITI-HELP@C HAMPVA mai lgroup.
  114    ;END