282. EPMO Open Source Coordination Office Redaction File Detail Report

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.

282.1 Files compared

# 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

282.2 Comparison summary

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

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

282.4 Active regular expressions

No regular expressions were active.

282.5 Comparison detail

  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="
P II "_NAME_".V A.GOV"
  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