203. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:06 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.

203.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMMBMCM.m Mon Nov 5 16:39:34 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMMBMCM.m Mon Nov 5 17:50:53 2018 UTC

203.2 Comparison summary

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

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

203.4 Active regular expressions

No regular expressions were active.

203.5 Comparison detail

  1   CHMMBMCM ; HAC/AHJ;CM OP/MBM BEN EFICIARIES  LIST
  2    ;;V1.0
  3    ;AHJ
  4    ;JEH 9/10 /08 BUG005 337-04-01  - CHG REFE RERNCE TO  AHCHVA
  5   CHAMPVA ;
  6    S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0
  7    S (NOZIPC NT,ICNT,DF NCNT,TOTDF N1,BICNT,B CNT,FMPCNT ,YES12CNT, NO12CNT)=0
  8    S PG=1
  9    S DFN=0,U ="^",CDFN= 0
  10    S BENESW= 0
  11    S ^CHMZHO LD("BENE-N A-LABELS") =""
  12    K ^CHMZHO LD("NAME-A DD5337")
  13    K ^CHMZHO LD("FMP533 7")
  14    K ^CHMZHO LD("NO12CL AIM5337")
  15    K ^CHMZHO LD("YES12C LAIM5337")
  16    K ^CHMZHO LD("NOTELI G5337")
  17    K ^CHMZHO LD("SB5337 ")
  18    K ^CHMZHO LD("FMP533 7")
  19    K ^CHMZHO LD("NOCLAI M5337")
  20    K ^CHMZHO LD("VBA-SP ONSOR-BENE -CLAIMS")
  21    ;
  22    ;
  23   A1 ;
  24    ;FIND TOD AYS DATE F OR AGE TES T
  25    D NOW^%DT C S RUNTIM E=%
  26    S Y=$E(RU NTIME,1,7)
  27    S CHDATE= Y
  28    ;   12 MO NTHS
  29    S X1=CHDA TE S X2=-3 65 D C^%DT C S STRDAT =X
  30    ;  STRDAT  = Start D ate
  31    ;  CHDATE  = Todays  Date
  32    S TODAY=C HDATE
  33    S Y=$E(RU NTIME,1,7)
  34    S FILEDAT =$$FMTE^XL FDT(Y,"5D" ) ;
  35    S DAY=$E( RUNTIME,4, 5)
  36    S MO=$E(R UNTIME,6,7 )
  37    S YR=$P(F ILEDAT,"/" ,3)
  38    S FILEDAT =DAY_"-"_M O_"-"_YR
  39    ;
  40    ;
  41    S DEVICE= "HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]MbM-Maili ng-Address es-"_FILED AT_".TXT"
  42    O DEVICE  C DEVICE:" D"
  43    O DEVICE: "NWV" 
  44    ;
  45    D GETDFN, END
  46    Q
  47    ;
  48    ;
  49    ; ALL ELI GIBLE/ACTI VE BENE'S  ON TODAY
  50    ;******** ********** ********** ********** ********** *****
  51    ; CHAMPVA  BENE FILE
  52   GETDFN ;         
  53    S CDFN=$O (^CHMDFN(C DFN)) Q:'C DFN
  54    S DFN=0 S  DFN=$P(^C HMDFN(CDFN ,0),"^",1)
  55    G:$G(DFN) ="" GETDFN     ;JEH 9 /11/08
  56    ;
  57    S CBFN=0
  58   GETBFN ;
  59    S CBFN=$O (^CHMDFN(C DFN,100,CB FN)) G:'CB FN GETDFN
  60    G:'$D(^CH MDFN(CDFN, 100,CBFN,0 )) GETDFN    ;JEH 9/1 1/08
  61    S BFN=0 S  BFN=$P(^C HMDFN(CDFN ,100,CBFN, 0),"^",1)
  62    ;S BFN=$O (^AHCHVA(D FN,100,BFN )) G:'BFN  GETDFN
  63    G:$G(BFN) ="" GETDFN
  64    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETDFN
  65    S NAMLAB= ^AHCHVA(DF N,100,BFN, 0)
  66    G:'$D(^AH CHVA(DFN,1 00,BFN,1))  GETDFN
  67    S ADDRLAB =^AHCHVA(D FN,100,BFN ,1)
  68    I $P(ADDR LAB,U,10)' =1 S BCNT= BCNT+1 G G ETBFN   ;
  69    ;ACCEPT O NLY MBM NE XT LINE
  70    ;G GETBFN :'$D(^AHCH VA("SB",DF N,BFN))
  71    ;
  72    ;FIND AGE  DOB
  73    S DOB=$P( NAMLAB,"^" ,3)
  74    S BRTHDAY =DOB
  75    S TODAY=C HDATE
  76    S TAGE=$$ AGE^CHTFLI B(BRTHDAY, TODAY)
  77    ; test on ly
  78    ;
  79   NEXT ;  
  80    ;
  81    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  NO109
  82    G:'$D(^AH CHVA(DFN,1 00,BFN,1))  NO109
  83    G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) NO109 
  84    S J1=0
  85   G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1))  G:'J1 GETB FN
  86    S J2=0
  87    S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2))  G:'J2 G2
  88    G:J1>CHDA TE NOTELIG
  89    G:J2<CHDA TE NOTELIG
  90    S YAECNT= YAECNT+1
  91    ;W !,DFN, " ",BFN,"  ",TAGE," " ,J1," ",J2
  92    ;I TAGE>6 5 W !,"OVE R 65 AND E LIG",DFN,"  ",BFN," " ,TAGE," ", J1," ",J2
  93    G:TAGE>65  OK
  94    ;
  95   UNDER65 ;T HIS TEST U NDER 65 ON LY FOR OHI  CODES and  CMOP Elig  code
  96    S OHISW=" N"
  97    S OHIBEG= ""
  98    S CHDFNPT =0
  99    S CHDFNPT =$O(^CHMDF N("B",DFN, CHDFNPT))  G:'CHDFNPT  NOTOHI
  100    G:'$D(^CH MDFN(CHDFN PT,0)) NOT OHI
  101    G:'$D(^CH MDFN(CHDFN PT,100,"B" ,BFN)) NOT OHI
  102    S CHBFNPT =0
  103    S CHBFNPT =$O(^CHMDF N(CHDFNPT, 100,"B",BF N,CHBFNPT) ) G:'CHBFN PT NOTOHI
  104    G:'$D(^CH MDFN(CHDFN PT,100,CHB FNPT,2)) N OTOHI
  105    S CHKVAL= 99999
  106   OHICK1 ;
  107    S CHKVAL= $O(^CHMDFN (CHDFNPT,1 00,CHBFNPT ,2,CHKVAL) ,-1) G:'CH KVAL NOTOH I
  108    G:'$D(^CH MDFN(CHDFN PT,100,CHB FNPT,2,CHK VAL,0)) OH ICK1
  109    ;
  110    S OHICODE =$P(^CHMDF N(CHDFNPT, 100,CHBFNP T,2,CHKVAL ,0),"^",3)
  111    I OHICODE =2 G GETBF N
  112    I OHICODE =3 G GETBF N
  113    I OHICODE =8 G GETBF N
  114    I OHICODE =10 G GETB FN
  115    I OHICODE =11 G GETB FN
  116    I OHICODE =13 G GETB FN
  117    I OHICODE =15 G GETB FN
  118    I OHICODE =17 G GETB FN
  119    I OHICODE =18 G GETB FN
  120    I OHICODE =20 G GETB FN
  121    I OHICODE =21 G GETB FN
  122    I OHICODE =23 G GETB FN
  123    I OHICODE =24 G GETB FN
  124    S CHKCMP= 99999
  125   OHICK2 ;TH IS FILTER  FOR UNDER  65 WITH CM OP INDICAT OR OF 1=EL IGIBLE-ACT IVE
  126    S CHKCMP= $O(^CHMDFN (CHDFNPT,1 00,CHBFNPT ,5,CHKCMP) ,-1) G:'CH KCMP NOTOH I
  127    G:'$D(^CH MDFN(CHDFN PT,100,CHB FNPT,5,CHK CMP,0)) OH ICK2
  128    ;
  129    S CMPCODE =$P(^CHMDF N(CHDFNPT, 100,CHBFNP T,5,CHKCMP ,0),"^",3)
  130    I CMPCODE '=1 G GETB FN
  131    ;W !,"UND ER 65"," " ,DFN," ",B FN," ",TAG E," ",J1,"  ",J2," ", CHDFNPT,"  ",OHICODE, " ",CMPCOD E
  132    G OK
  133    ;
  134   NOTOHI ;
  135    G GETBFN
  136    Q
  137   OK ;
  138    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETDFN
  139    S NAMLAB= ^AHCHVA(DF N,100,BFN, 0)
  140    G:'$D(^AH CHVA(DFN,1 00,BFN,1))  GETDFN
  141    S ADDRLAB =^AHCHVA(D FN,100,BFN ,1)
  142    I $P(ADDR LAB,U,10)' =1 S BCNT= BCNT+1 G G ETBFN ;BYP ASS BAD AD DRESSES HE RE
  143    ;
  144    S T=$C(9)
  145    ;
  146    S NAME=$P (NAMLAB,U, 1)
  147    S LAST=$P (NAME,",", 1)
  148    S FIRST=$ P(NAME,"," ,2)
  149    S NAME=FI RST_" "_LA ST
  150    S ADD2=$P (ADDRLAB,U ,1)
  151    S ADD3=$P (ADDRLAB,U ,2)
  152    S ADD4=$P (ADDRLAB,U ,12)
  153    S CITY=$P (ADDRLAB,U ,3)
  154    S STATE1= $P(ADDRLAB ,U,4)
  155    S:STATE1  STATE1=$P( ^DIC(5,STA TE1,0),U,2 )
  156    I STATE1= "" S STATE 1=""
  157    S PZIP=$P (ADDRLAB,U ,5)
  158    S:'$D(PZI P) PZIP=""
  159    I $L(PZIP )>5 I $E(P ZIP,6,6)'= "-" S PZIP =$E(PZIP,1 ,5)_"-"_$E (PZIP,6,9)
  160    ;S ZIP1=$ P(ADDRLAB, U,5)
  161    ;S ZIP=$E (ZIP1,1,5)
  162    ;
  163           S  TEMP=NAME_ T_ADD2_T_A DD3_T_CITY _T_STATE1_ T_PZIP_T
  164    U DEVICE  W TEMP,!
  165    S CNT=CNT +1
  166    ;W !,TEMP
  167    G GETBFN
  168    ;
  169   NOZIP ;
  170    S NOZIPCN T=NOZIPCNT +1
  171    G GETBFN
  172   NODFN100 ;
  173    S DFNCNT= DFNCNT+1
  174    G GETDFN
  175   NOICNT ;
  176    S ICNT=IC NT+1
  177    G GETDFN
  178   SB ;
  179    ;W !,"SB=  ",DFN," " ,BFN
  180    S SBCNT=S BCNT+1
  181    S ^CHMZHO LD("SB5337 ",DFN,BFN) =""
  182    G GETBFN
  183   FMP ;
  184    S FMPCNT= FMPCNT+1
  185    S ^CHMZHO LD("FMP533 7",DFN)=""
  186    G GETDFN
  187   NO109 ;
  188    S CNT109= CNT109+1
  189    G GETBFN
  190   NOCLM ;
  191    S NOCLM=N OCLM+1
  192    ;W !,"                                                              NO CLAI M ",DFN,"  ",BFN
  193    S ^CHMZHO LD("NOCLAI M5337",DFN ,BFN)=""
  194    G GETBFN
  195   NO12CLM ;
  196    S NO12CNT =NO12CNT+1
  197    ;W !,"      NO CLAIM S 12 MOS                             ",DFN, " ",BFN,"  ",TFMDT
  198    S ^CHMZHO LD("NO12CL AIM5337",D FN,BFN)=""
  199    G GETBFN
  200   NOTELIG ;
  201    ;W !,"          NOT  ELIG DATES       ",DF N," ",BFN, " ",J1," " ,J2
  202    ;S ^CHMZH OLD("NOTEL IG5337",DF N,BFN)=""
  203    S NOAECNT =NOAECNT+1
  204    G GETBFN
  205   END ;
  206    C DEVICE
  207    W !,"   C OUNT=",CNT
  208    Q
  209    Q