152. EPMO Open Source Coordination Office Redaction File Detail Report

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

152.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKVEA1.m Mon Nov 5 16:44:48 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKVEA1.m Mon Nov 5 17:49:42 2018 UTC

152.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 410
Changed 2 4
Inserted 0 0
Removed 0 0

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

152.4 Active regular expressions

No regular expressions were active.

152.5 Comparison detail

  1   CHMKVEA1 ; HAC/AHJ;SE LECT VETS  VEA WITH B ENE'S WITH  NO CLAIMS  LAST 12 M O'S
  2    ;;V1.0
  3    ;DEV01289 3 1/20/201 4 DGC - MO DIFY DECNE T WRITE
  4    ;MTN02426 5 09/23/15  SBB - Fix  the DECNE T routines  that have  a typo
  5    ;
  6    ;SELECT V ETS MATCH  DOB MO TO  ENTERED MO NTH
  7    ;ELIMINAT E VETS WIT H ANNUAL E LIG VERIFI CATION (AE V) = YES W ITHIN 12 M O'S
  8    ;SELECT V ETS WITH B ENE'S WHO  ARE CURREN TLY ELIGIB LE
  9    ;SELECT V ETS WITH B ENE'S WITH OUT CLAIMS  LAST 12 M ONTHS
  10    ;
  11    ;OUTPUT O N FS3BIG   List Veter ans name,  gender, do b, ssn, ae v status,  aev date
  12   CHAMPVA ;
  13    S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0
  14    S (NOZIPC NT,ICNT,DF NCNT,TOTDF N1,BICNT,B CNT,FMPCNT ,YES12CNT, NO12CNT)=0
  15    S PG=1
  16    S T=$C(9)
  17    S DFN=0,U ="^"
  18    S BENESW= 0
  19    S ^CHMZHO LD("BENE-N A-LABELS") =""
  20    K ^CHMZHO LD("NAME-A DD262")
  21    K ^CHMZHO LD("FMP262 ")
  22    K ^CHMZHO LD("NO12CL AIM262")
  23    K ^CHMZHO LD("YES12C LAIM262")
  24    K ^CHMZHO LD("NOTELI G262")
  25    K ^CHMZHO LD("SB262" )
  26    K ^CHMZHO LD("FMP262 ")
  27    K ^CHMZHO LD("NOCLAI M262")
  28    K ^CHMZHO LD("AEV-SP ONSOR-SPOU SE-NOCLAIM S-262")
  29    ;
  30   A1 ;
  31    ;FIND TOD AYS DATE F OR AGE TES T
  32    D NOW^%DT C S RUNTIM E=%
  33    S Y=$E(RU NTIME,1,7)
  34    S CHDATE= Y
  35    ;   12 MO NTHS
  36    S X1=CHDA TE S X2=-3 65 D C^%DT C S STRDAT =X
  37    ;  STRDAT  = Start D ate
  38    ;  CHDATE  = Todays  Date
  39    S TODAY=C HDATE
  40    S DAT12=S TRDAT
  41   MONS ;
  42    W !!,"Ent er Veteran 's DOB two  numeric m onth to se lect  (Ent er ""END""  to Quit:  "
  43    D CSBRS^C HSC2
  44    ;G:$D(DFO UT) END G: $D(DUOUT)  ESSN
  45    I $D(DQOU T) D  G MO NS
  46    .W !,"    days input  must be n umeric num ber."
  47    Q:Y="END"
  48    I Y="" D   G MONS
  49    .W !,"    The month  input Numb er is mand atory."
  50    .W "  You  may not p roceed wit hout it."
  51    I (Y?2N)  S MONTHNUM =Y G OKMOS
  52    G MONS
  53    ;
  54   OKMOS ;DGC  1/20/2014  DEV012893  - BEGIN
  55    ;S DEVICE ="HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]AEV-SPONS OR-ELIG-BE NE-"_MONTH NUM_".XLS"
  56    ;O DEVICE  C DEVICE: "D"
  57    ;O DEVICE :"NWV"
  58    X ^%ZOSF( "UCI") S U CI=$P(Y,"1 ,",1)
  59    X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893
  60    S FILENM2 =AEV-SPONS OR-ELIG-BE NE-_MONTHN UM_".XLS"
  61    S DEVICE= "HAC_HFS$: [SCR.TEMP_ FILES)"_FI LENM2
  62    I UCI'="H AC" S DEVI CE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM2
  63           I  '$$OPENFIW R^CHTFLIB9 (.DEVICE," DEVICE") X  "D $SYSTE M.Process. SetZEOF(0) " Q ;DGC 7 /30/2015 D EV012893 ; DGC 1/20/2 014 DEV012 893 - END
  64    U DEVICE  W "VET NAM E"_T_"VET  GENDER"_T_ "VET DOB"_ T_"VET SSN "_T_"AEV S TAT"_T_"AE V DATE"_T, !
  65    ;
  66    D GETDFN, END
  67    Q
  68    ; ALL ELI GIBLE/ACTI VE BENE'S  ON TODAY
  69    ;******** ********** ********** ********** ********** *****
  70    ; CHAMPVA  BENE FILE
  71   GETDFN ;         
  72    I BENESW= 1 D WANTIT
  73    S DFN=$O( ^AHCHVA(DF N)) Q:'DFN
  74    S TOTDFN= TOTDFN+1
  75    G:$D(^AHC HVA("FMP", DFN)) FMP
  76    ;G:'$D(^A HCHVA(DFN, 100)) GETD FN
  77    S TOTDFN1 =TOTDFN1+1
  78    G:'$D(^AH CHVA(DFN,0 )) GETDFN
  79    S SPON=^A HCHVA(DFN, 0)
  80    S VDOB=$P (SPON,U,3)
  81    I $E(VDOB ,4,5)'=MON THNUM G GE TDFN ;matc h dob mont
  82    G:'$D(^AH CHVA(DFN,1 )) GETDFN
  83    S SPON1=^ AHCHVA(DFN ,1)
  84    S CHAEV=9 9999999
  85   GETDFNJ5 ;
  86    S CHAEV=$ O(^AHCHVA( DFN,5,CHAE V),-1) G:' CHAEV GETD FN
  87    G:$D(^AHC HVA(DFN,5, CHAEV,0))  GETDFN1
  88    G GETDFN
  89   GETDFN1 ;
  90    S AEVDATA =^AHCHVA(D FN,5,CHAEV ,0)
  91    S AEVSTAT =$P(AEVDAT A,U,1)
  92    S AEVDAT= $P(AEVDATA ,U,3)
  93    S AEVDAT= $E(AEVDAT, 1,7)
  94    ;W !,"        AEVDAT =",DFN," " ,AEVDAT,"  ",AEVSTAT
  95    S Y=AEVDA T D DD^%DT  S AEVPDAT =Y ; FORMA T TO PRINT
  96    I AEVSTAT =1  I AEVD AT<STRDAT  G GETDFN ; ELIMINATE  AEV="Y" LA ST 12 MONT HS
  97    ;W !,"                                          GOOD  AEVDAT 12  MO=",DFN,"  ",AEVDAT, " ",AEVSTA T
  98    S BFN=0
  99   GETBFN S B FN=$O(^AHC HVA(DFN,10 0,BFN)) G: 'BFN GETDF N
  100    ;W !,"DFN =",DFN," B FN=",BFN,"  SW=",BENE SW
  101    S BICNT=B ICNT+1
  102    G:$D(^AHC HVA("SB",D FN,BFN)) S B
  103    ;ELIMINAT E FMP
  104    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETBFN
  105    S BEN0=^A HCHVA(DFN, 100,BFN,0)
  106    S BFNSAV= BFN
  107    ;CHECK DA TES OF ELI GIBILITY F OR BENE
  108    ;
  109    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  NO109
  110    G:'$D(^AH CHVA(DFN,1 00,BFN,1))  NO109
  111    G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) NO109 
  112    S J1=0
  113   G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1))  G:'J1 GETB FN
  114    S J2=0
  115    S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2))  G:'J2 G2
  116    ;W !,"                       AL L ELIG =", DFN," ",BF N," ",J1,"  ",J2
  117    G:J1>CHDA TE NOTELIG
  118    G:J2<CHDA TE NOTELIG
  119    ;W !,"                                                  GOOD ELI G DATES=", DFN," ",BF N," ",J1,"  ",J2
  120    ;
  121    ;
  122   C1 ;NEED T O FIND CLA IMS IN LAS T 12 MONTH S, SELECT  NO CLAIMS  LAST 12 MO NTHS
  123    ;
  124   L3 S CHDFN I=$O(^CHMD FN("B",DFN ,0)) G NOI CNT:'CHDFN I
  125    ;S CHDFNJ =$O(^CHMDF N(CHDFNI,1 00,"B",BFN ,0)) G GET DFN:'CHDFN J
  126    S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G NOCL M:'CHDFNJ
  127    S CHDFNK= 99999999
  128   LOOP ;W !, "   LOOP    ",DFN,"    =  ",CHDF NK
  129    S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ,-1) G:'CH DFNK NOCLM
  130    G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N
  131    G L3
  132   MAIN ;
  133    S CLAIMNO =^CHMDFN(C HDFNI,100, CHDFNJ,100 ,CHDFNK,0)
  134    G LOOP:'$ D(^CHMPAY( CLAIMNO,0) )
  135    ;CONVERT  PDI TO CLA IM FILED D ATE
  136    S PDIJ=""
  137    S PDIJ=$O (^CHMPAY(C LAIMNO,"PD I","B",PDI J),-1)
  138    G:PDIJ=""  LOOP
  139    S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ)
  140    ;
  141           I  TFMDT>STRD AT G NO12C LM
  142   GOODONE ;
  143    S BENESW= 1 ; NO CLA IMS LAST 1 2 MONTHS
  144    ;W !,"                                                                                     BENE   WITH NO CL AIMS=",DFN ," ",BFN,"  ",TFMDT
  145    S SAVCLMN O=CLAIMNO
  146    S SAVCLMD T=TFMDT
  147    G GETBFN
  148    ;
  149   WANTIT ;SP ONSOR WITH  A BENE WI TH DATES O F ELIGIBIL ITY AND NO  12 MO CLA IMS
  150   OK ;
  151    S BENESW= 0
  152    S T=$C(9)
  153    S CNT=CNT +1
  154    S VNAME=$ P(SPON,U,1 )
  155    S VSEX=$P (SPON,U,2)
  156    S VDOB=$P (SPON,U,3)
  157    S Y=VDOB  D DD^%DT S  VPDOB=Y
  158    S VSSN=$P (SPON,U,9)
  159    S VSSN=$E (VSSN,1,3) _"-"_$E(VS SN,4,5)_"- "_$E(VSSN, 6,9)
  160    S TMP=VNA ME_T_VSEX_ T_VPDOB_T_ VSSN_T_AEV STAT_T_AEV PDAT_T
  161    U DEVICE  W TMP,!
  162    S ^CHMZHO LD("AEV-SP ONSOR-SPOU SE-NOCLAIM S-262",DFN ,BFNSAV)=V NAME_U_VSE X_U_VPDOB_ U_VSSN_U_A EVSTAT_U_A EVPDAT_U_S AVCLMNO_U_ SAVCLMDT_U
  163    Q
  164   NOZIP ;
  165    S NOZIPCN T=NOZIPCNT +1
  166    G GETBFN
  167   NODFN100 ;
  168    S DFNCNT= DFNCNT+1
  169    G GETDFN
  170   NOICNT ;
  171    S ICNT=IC NT+1
  172    G GETDFN
  173   SB ;
  174    ;W !,"SB=  ",DFN," " ,BFN
  175    S SBCNT=S BCNT+1
  176    S ^CHMZHO LD("SB262" ,DFN,BFN)= ""
  177    G GETBFN
  178   FMP ;
  179    S FMPCNT= FMPCNT+1
  180    S ^CHMZHO LD("FMP262 ",DFN)=""
  181    G GETDFN
  182   NO109 ;
  183    S CNT109= CNT109+1
  184    G GETBFN
  185   NOCLM ;
  186    S NOCLM=N OCLM+1
  187    ;W !,"                                                              NO CLAI M ",DFN,"  ",BFN
  188    S ^CHMZHO LD("NOCLAI M262",DFN, BFN)=""
  189    G GETBFN
  190   NO12CLM ;
  191    S NO12CNT =NO12CNT+1
  192    ;W !,"      NO CLAIM S 12 MOS                             ",DFN, " ",BFN,"  ",TFMDT
  193    S ^CHMZHO LD("NO12CL AIM262",DF N,BFN)=""
  194    G GETBFN
  195   NOTELIG ;
  196    ;W !,"          NOT  ELIG DATES       ",DF N," ",BFN, " ",J1," " ,J2
  197    S ^CHMZHO LD("NOTELI G262",DFN, BFN)=""
  198    S NOAECNT =NOAECNT+1
  199    G GETBFN
  200   END ;DGC 1 /20/2014 D EV012893 -  BEGIN
  201    D CLOSEF^ CHTFLIB9(D EVICE,"DEV ICE") ;C D EVICE
  202    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893
  203             D FTPFILE^ CHTFLIB9(D EIVE," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  204           ;D GC 1/20/20 14 DEV0128 93 - END
  205    ;W !,"    COUNT=",CN T
  206    Q
  207    Q