81. EPMO Open Source Coordination Office Redaction File Detail Report

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

81.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHM4268S.m Mon Nov 5 16:45:00 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHM4268S.m Fri Nov 9 01:35:44 2018 UTC

81.2 Comparison summary

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

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

81.4 Active regular expressions

No regular expressions were active.

81.5 Comparison detail

  1   CHM4268S ; HAC/AHJ;SP ONSORS FIL E NUMBERS  WITH BENE' S WITH CLA IMS LAST 1 2 MO'S
  2    ;;1.0;CHA MPVA;;09/3 0/09;Build  2
  3    ;AHJ FORM  ZAL4268S
  4    ;;DEF0165 54 Remove  DECNET and  replace w ith standa rd FTP fro m VMS to F S3  DRW 07 /16/2015
  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 ="^"
  10    S BENESW= 0
  11    S ^CHMZHO LD($J,"BEN E-NA-LABEL S")=""
  12    K ^CHMZHO LD($J,"NAM E-ADD4268" )
  13    K ^CHMZHO LD($J,"FMP 4268")
  14    K ^CHMZHO LD($J,"NO1 2CLAIM4268 ")
  15    K ^CHMZHO LD($J,"YES 12CLAIM426 8")
  16    K ^CHMZHO LD($J,"NOT ELIG4268")
  17    K ^CHMZHO LD($J,"SB4 268")
  18    K ^CHMZHO LD($J,"FMP 4268")
  19    K ^CHMZHO LD($J,"NOC LAIM4268")
  20    K ^CHMZHO LD($J,"VBA -SPONSOR-S POUSE-CLAI MS")
  21    S CHTMPDT =$$FMTE^XL FDT(DT,"5D ")
  22    S CHFILDT =$$STRIP^X LFSTR(CHTM PDT,"/")
  23    ;S DEVICE ="HACFS3"" DNS  HACdec741 !""::D:[FS 3BIG]VBASp onSpouse"_ CHFILDT_". TXT"
  24    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)                                 ;;DEF0 16554 REPL ACE DECNET  WITH THE  NEXT 4 LIN ES OF CODE  07/16/201 5
  25    S FILENM1 ="VBASponS pouse"_CHF ILDT_".TXT "
  26    S DEVICE= "HAC_HFS$: [SCR.TEMP_ FILES]"_FI LENM1
  27    I UCI'="H AC" S DEVI CE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM1
  28    X "D $SYS TEM.Proces s.SetZEOF( 1)"                              ;;DEF01655 4 OPEN AND  CLOSE MOD IFIED  07/ 30/2015
  29    I '$$OPEN FIWR^CHTFL IB9(.DEVIC E,"DEVICE" )  W "FILE  NOT AVAIL ABLE AT TH IS MOMENT"   Q
  30    ;O DEVICE  C DEVICE: "D"
  31    ;O DEVICE :"NWV"
  32    ;
  33   A1 ;
  34    ;FIND TOD AYS DATE F OR AGE TES T
  35    D NOW^%DT C S RUNTIM E=%
  36    S Y=$E(RU NTIME,1,7)
  37    S CHDATE= Y
  38    ;   12 MO NTHS
  39    ;S X1=CHD ATE S X2=- 365 D C^%D TC S STRDA T=X
  40    ;MOVE TO  7 YEARS  3 65*7=2555
  41    S STRDAT= $$FMADD^XL FDT(CHDATE ,-2555,0,0 ,0)  ;AEB  9/25/2009  DEV0064444
  42    ;  STRDAT  = Start D ate
  43    ;  CHDATE  = Todays  Date
  44    S TODAY=C HDATE
  45    S DAT12=S TRDAT
  46    ;
  47    D GETDFN, END
  48    Q
  49    ;
  50    ;
  51    ; ALL ELI GIBLE/ACTI VE BENE'S  ON TODAY
  52    ;******** ********** ********** ********** ********** *****
  53    ; CHAMPVA  BENE FILE
  54   GETDFN ;         
  55    I BENESW= 1 D WANTIT
  56    ;Q:CNT=10 00
  57    S DFN=$O( ^AHCHVA(DF N)) Q:'DFN
  58    S TOTDFN= TOTDFN+1
  59    I $D(^AHC HVA("FMP", DFN)) D FM P G GETDFN
  60    ;G:'$D(^A HCHVA(DFN, 100)) GETD FN
  61    S TOTDFN1 =TOTDFN1+1
  62    G:'$D(^AH CHVA(DFN,0 )) GETDFN
  63    S SPON=^A HCHVA(DFN, 0)
  64    S SN=$P(S PON,"^",1) ,BFN="",BN =""  ;AEB  DEV007799  9/24/2009   REMOVE DE LETED SPON SORS
  65    S T=$$DEL CHK^CHTFLI B(SN,DFN,B N,BFN)  ;A EB DEV0077 99 9/24/20 09
  66    I T=1 G G ETDFN  ;AE B DEV00779 9 9/24/200 9
  67    S SPONFIL E=$P(SPON, U,7)
  68    G:'$D(SPO NFILE) GET DFN
  69    I SPONFIL E="" G GET DFN
  70    ;I $L(SPO NFILE)=8 I  $E(SPONFI LE,U,1)=0  S NEWSPON= " "_SPONFI LE S SPONF ILE=NEWSPO N
  71    I $L(SPON FILE)=8 S  NEWSPON="  "_SPONFILE  S SPONFIL E=NEWSPON
  72    S BFN=0
  73   GETBFN S B FN=$O(^AHC HVA(DFN,10 0,BFN)) G: 'BFN GETDF N
  74    ;W !,"DFN =",DFN," B FN=",BFN,"  SW=",BENE SW
  75    S BICNT=B ICNT+1
  76    ; ELIMINA TE SPINA B IFIDA
  77    ;G:$D(^AH CHVA("ZEMC ","CMOP",D FN,BFN)) G ETBFN
  78    ;
  79    ;
  80    I $D(^AHC HVA("SB",D FN,BFN)) D  SB G GETB FN
  81    ;ELIMINAT E FMP
  82    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETBFN
  83    S BEN0=^A HCHVA(DFN, 100,BFN,0)
  84    S SN="",B N=$P(BEN0, "^",1)   ; AEB DEV007 799 9/24/2 009
  85    I BN="" G  GETBFN  ; AEB DEV007 799 9/24/2 009
  86    S T=$$DEL CHK^CHTFLI B(SN,DFN,B N,BFN)  ;A EB DEV0077 99 9/24/20 09
  87    I T=1 G G ETBFN
  88    I $P(BEN0 ,"^",6)?7N  G GETBFN   ;AEB DEV0 07799 9/24 /2009 SKIP  IF DATE O F DEATH IS  7 NUMERIC S
  89    S BENSTAT =$P(BEN0,U ,5)
  90    ;I (BENST AT'="EA")! (BENSTAT'= "D")!(BENS TAT'="PS")  G GETBFN
  91    I (BENSTA T="PR")!(B ENSTAT="PC ")!(BENSTA T="T")!(BE NSTAT="U") !(BENSTAT= "SF")!(BEN STAT="PW")  G GETBFN
  92    ;
  93    S TOTCNT= TOTCNT+1
  94    ;I TOTCNT >5000 Q
  95    S BDATA=^ AHCHVA(DFN ,100,BFN,0 )
  96           ;A CCEPT ONLY  BENE SPOU SE
  97    S BREL=$P (BDATA,U,4 )
  98    I BREL'=" S" G GETBF N   ;spons or spouse  only    
  99    ;
  100    ;CHECK DA TES OF ELI GIBILITY F OR BENE
  101    ;
  102    ;
  103    ;
  104    G C1 ;BYP ASS DATES  OF ELIGIBI LITY CHECK
  105    ;
  106    I '$D(^AH CHVA(DFN,1 00,BFN,0))  D NO109 G  GETBFN
  107    I '$D(^AH CHVA(DFN,1 00,BFN,1))  D NO109 G  GETBFN
  108    I '$D(^AH CHVA(DFN,1 00,BFN,109 )) D NO109  G GETBFN 
  109    S J1=0
  110   G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1))  G:'J1 GETB FN
  111    S J2=0
  112    S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2))  G:'J2 G2
  113    I J1>CHDA TE D NOTEL IG G GETBF N
  114    I J2<CHDA TE D NOTEL IG G GETBF N
  115    S YAECNT= YAECNT+1
  116    ;
  117    ;
  118   C1 ;NEED T O FIND CLA IMS FROM S TART DATE  TO TODAY F OR THIS BE NE
  119    ;
  120   L3 S CHDFN I=$O(^CHMD FN("B",DFN ,0)) I 'CH DFNI D NOI CNT G GETD FN
  121    ;S CHDFNJ =$O(^CHMDF N(CHDFNI,1 00,"B",BFN ,0)) G GET DFN:'CHDFN J
  122    S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) I 'CHD FNJ D NOCL M G GETBFN
  123    S CHDFNK= 99999999
  124   LOOP ;W !, "   LOOP    ",DFN,"    =  ",CHDF NK
  125    S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ,-1) I 'CH DFNK D NOC LM G GETBF N
  126    G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N
  127    G L3
  128   MAIN ;
  129    S CLAIMNO =^CHMDFN(C HDFNI,100, CHDFNJ,100 ,CHDFNK,0)
  130    G LOOP:'$ D(^CHMPAY( CLAIMNO,0) )
  131    ;CONVERT  PDI TO CLA IM FILED D ATE
  132    S PDIJ=""
  133    S PDIJ=$O (^CHMPAY(C LAIMNO,"PD I","B",PDI J),-1)
  134    G:PDIJ=""  LOOP
  135    S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ)
  136    ;I TFMDT< DAT12 S BE NESW=0 D N O12CLM G G ETBFN
  137    ;I TFMDT< 3060630 D  NO12CLM G  GETBFN
  138           I  TFMDT<STRD AT D NO12C LM G GETBF N
  139   GOODONE ;
  140    S BENESW= 1
  141    G GETBFN
  142    ;
  143   WANTIT ;NE XT FILE FO R SPONSOR  WITH A BEN E WITH DAT ES OF ELIG IBILITY AN D 12 MO CL AIMS
  144   OK ;
  145    S BENESW= 0
  146    S T=$C(9)
  147    S CNT=CNT +1
  148    S NEWCFIL E=$$FXLGTH ^CHTFLIB(S PONFILE,"R ",9)
  149    S TMP=NEW CFILE
  150    U DEVICE  W TMP,!
  151    S ^CHMZHO LD($J,"VBA -SPONSOR-S POUSE-CLAI MS-4268",D FN,SPONFIL E)=""
  152           ;S ELECT 1000  ONLY PER  REQUEST
  153    ;I CNT=10 01 G END
  154    Q
  155   NOICNT ;
  156    S ICNT=IC NT+1
  157    Q
  158   SB ;
  159    ;W !,"SB=  ",DFN," " ,BFN
  160    S SBCNT=S BCNT+1
  161    S ^CHMZHO LD($J,"SB4 268",DFN,B FN)=""
  162    Q
  163   FMP ;
  164    S FMPCNT= FMPCNT+1
  165    S ^CHMZHO LD($J,"FMP 4268",DFN) =""
  166    Q
  167   NO109 ;
  168    S CNT109= CNT109+1
  169    Q
  170   NOCLM ;
  171    S NOCLM=N OCLM+1
  172    ;W !,"                                                              NO CLAI M ",DFN,"  ",BFN
  173    S ^CHMZHO LD($J,"NOC LAIM4268", DFN,BFN)=" "
  174    Q
  175   NO12CLM ;
  176    S NO12CNT =NO12CNT+1
  177    ;W !,"      NO CLAIM S 12 MOS                             ",DFN, " ",BFN,"  ",TFMDT
  178    S ^CHMZHO LD($J,"NO1 2CLAIM4268 ",DFN,BFN) =""
  179    Q
  180   NOTELIG ;
  181    ;W !,"          NOT  ELIG DATES       ",DF N," ",BFN, " ",J1," " ,J2
  182    S ^CHMZHO LD($J,"NOT ELIG4268", DFN,BFN)=" "
  183    S NOAECNT =NOAECNT+1
  184    Q
  185   END ;
  186    ;C DEVICE                    ;; DEF016554  REPLACE CL OSE WITH N EW CLOSE
  187    D CLOSEF^ CHTFLIB9(D EVICE,"DEV ICE")
  188    X "D $SYS TEM.Proces s.SetZEOF( 0)"                 ; ;DEF016554  CLOSE MOD IFIED 07/3 0/2015
  189    D FTPFILE ^CHTFLIB9( DEVICE," DNS     fs3. DNS             ","/FS3BIG ","PUT") 
  190    W !,"   C OUNT=",CNT
  191    Q