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

79.1 Files compared

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

79.2 Comparison summary

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

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

79.4 Active regular expressions

No regular expressions were active.

79.5 Comparison detail

  1   CHM4268C ; HAC/AHJ;SP ONSORS FIL E NUMBERS  WITH CHILD  BENE'S WI TH CLAIMS  LAST 12 MO 'S
  2    ;;1.0;CHA MPVA;;09/3 0/09;Build  2
  3    ;AHJ FROM  ZA4268CC
  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 TOTAMT= 0
  11    S BENESW= 0
  12    S ^CHMZHO LD($J,"BEN E-NA-LABEL S")=""
  13    K ^CHMZHO LD($J,"NAM E-ADD4268" )
  14    K ^CHMZHO LD($J,"FMP 4268")
  15    K ^CHMZHO LD($J,"NO1 2CLAIM4268 ")
  16    K ^CHMZHO LD($J,"YES 12CLAIM426 8")
  17    K ^CHMZHO LD($J,"NOT ELIG4268")
  18    K ^CHMZHO LD($J,"SB4 268")
  19    K ^CHMZHO LD($J,"FMP 4268")
  20    K ^CHMZHO LD($J,"NOC LAIM4268")
  21    ;
  22    K ^CHMZHO LD($J,"VBA -SPONSOR-C HILD-PD-CL AIMS-4268" )
  23    S CHTMPDT =$$FMTE^XL FDT(DT,"5D ")
  24    S CHFILDT =$$STRIP^X LFSTR(CHTM PDT,"/")
  25    ;S DEVICE ="HACFS3"" DNS  HACdec741 !""::D:[FS 3BIG]VBASp onBene"_CH FILDT_".TX T"
  26    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
  27    S FILENM1 ="VBASponB ene"_CHFIL DT_".TXT"
  28    S DEVICE= "HAC_HFS$: [SCR.TEMP_ FILES]"_FI LENM1
  29    I UCI'="H AC" S DEVI CE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM1
  30    X "D $SYS TEM.Proces s.SetZEOF( 1)"      ; ;DEF016554  MODIFIED  OPEN STATE MENT  07/3 0/2015
  31    I '$$OPEN FIWR^CHTFL IB9(.DEVIC E,"DEVICE" )  W "FILE  NOT AVAIL ABLE AT TH IS MOMENT"   Q 
  32    ;O DEVICE  C DEVICE: "D"
  33    ;O DEVICE :"NWV"
  34    ;
  35   A1 ;
  36    ;FIND TOD AYS DATE F OR AGE TES T
  37    D NOW^%DT C S RUNTIM E=%
  38    S Y=$E(RU NTIME,1,7)
  39    S CHDATE= Y
  40    ;   12 MO NTHS
  41    ;S X1=CHD ATE S X2=- 365 D C^%D TC S STRDA T=X
  42    ;MOVE TO  7 YEARS  3 65*7=2555
  43    S STRDAT= $$FMADD^XL FDT(CHDATE ,-2555,0,0 ,0)  ;AEB  DEV006444  9/25/2009
  44    ;  STRDAT  = Start D ate
  45    ;  CHDATE  = Todays  Date
  46    S TODAY=C HDATE
  47    S DAT12=S TRDAT
  48    ;
  49    S (BENESW ,DFN,BICNT )=0
  50    S DFN=0
  51    D GETDFN, END
  52    Q
  53   ABA ;
  54    S DFN=$O( ^AHCHVA(DF N))  Q:'DF N
  55    S BFN=0
  56   ABB ;
  57    S BFN=$O( ^AHCHVA(DF N,100,BFN) ) G:'BFN A BA
  58    W !,"DFNB FN=",DFN,"  ",BFN
  59    G ABB
  60    ;
  61    ; ALL ELI GIBLE/ACTI VE BENE'S  ON TODAY
  62    ;******** ********** ********** ********** ********** *****
  63    ; CHAMPVA  BENE FILE
  64   GETDFN ;         
  65    I BENESW= 1 D WANTIT
  66    ;Q:CNT=10 00
  67    S TOTAMT= 0
  68    S DFN=$O( ^AHCHVA(DF N)) Q:'DFN
  69    G:$D(^AHC HVA("FMP", DFN)) GETD FN
  70    G:'$D(^AH CHVA(DFN,0 )) GETDFN
  71    S SPON=^A HCHVA(DFN, 0)
  72    S SN=$P(S PON,"^",1) ,BFN="",BN =""  ;AEB  DEV007799  9/24/2009
  73    S T=$$DEL CHK^CHTFLI B(SN,DFN,B N,BFN)  ;A EB DEV0077 99 9/24/20 09
  74    I T=1 G G ETDFN  ;AE B DEV00779 9 9/24/200 9
  75    S SPONFIL E=$P(SPON, U,7)
  76    S BFN=0
  77   GETBFN S B FN=$O(^AHC HVA(DFN,10 0,BFN)) G: 'BFN GETDF N
  78    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETBFN  ; AEB DEV007 799 9/24/2 009
  79    G:$D(^AHC HVA("SB",D FN,BFN)) G ETBFN
  80    S BEN0=^A HCHVA(DFN, 100,BFN,0)   ;AEB DEV 007799 9/2 4/2009
  81    ;CHECK DA TES OF ELI GIBILITY F OR BENE
  82    S SN="",B N=$P(BEN0, "^",1)   ; AEB DEV007 799 9/24/2 009
  83    I BN="" G  GETBFN  ; AEB DEV007 799 9/24/2 009
  84    S T=$$DEL CHK^CHTFLI B(SN,DFN,B N,BFN)  ;A EB DEV0077 99 9/24/20 09
  85    I T=1 G G ETBFN
  86    I $P(BEN0 ,"^",6)?7N  G GETBFN   ;AEB DEV0 07799 9/24 /2009 SKIP  IF DATE O F DEAT IS  7 NUMERICS
  87    I '$D(^AH CHVA(DFN,1 00,BFN,0))  D NO109 G  GETBFN  ; AEB DEV007 799 9/24/2 009
  88    I '$D(^AH CHVA(DFN,1 00,BFN,1))  D NO109 G  GETBFN  ; AEB DEV007 799 9/24/2 009
  89    ;WANT BEN E CHILD ON LY, NO HEL PLESS
  90    S BREL=$P (BEN0,U,4)
  91    I BREL'=" C" G GETBF N ; WANT C HILD ONLY,  NO SPOUSE
  92    S BHELP=$ P(BEN0,U,3 3)
  93    I BHELP=1  G GETBFN  ;ELIMINATE  HELPLESS
  94    I '$D(^AH CHVA(DFN,1 00,BFN,109 )) D NO109  G GETBFN   ;AEB DEV0 07799 9/24 /2009
  95    S J1=0
  96   G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1))  G:'J1 GETB FN
  97    S J2=0
  98    S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2))  G:'J2 G2
  99    I J1>CHDA TE D NOTEL IG G GETBF N  ;AEB DE V007799 9/ 24/2009
  100    I J2<CHDA TE D NOTEL IG G GETBF N  ;AEB DE V007799 9/ 24/2009
  101    ;CLAIMS P ROCESSING  HERE
  102   L322 S CHD FNI=$O(^CH MDFN("B",D FN,0)) G G ETDFN:'CHD FNI
  103    S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G GETD FN:'CHDFNJ
  104    S CHDFNK= 0 ;START A T FRONT
  105   LOOP22 ;
  106    ; RETURN  AFTER LAST  CLAIM TO  BENE NEXT  LINE
  107    S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ) G:'CHDFN K GETBFN
  108    G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N22
  109    G L322
  110   MAIN22 ;
  111    S CI=^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)
  112    G LOOP22: '$D(^CHMPA Y(CI,0))
  113    ;CONVERT  PDI TO CLA IM FILED D ATE
  114    S PDIJ=""
  115    S PDIJ=$O (^CHMPAY(C I,"PDI","B ",PDIJ),-1 )
  116    G:PDIJ=""  LOOP22
  117    S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ)
  118    ;TEST TES T TEST TES T TEST ONL Y NEXT LIN E
  119    G:TFMDT<D AT12 LOOP2 2 ;NO CLAI MS OVER 7  YEARS OLD
  120   CLAIMDAT ;
  121    G:'$D(^CH MPAY(CI,1) ) LOOP22
  122    S DATAPAY =^CHMPAY(C I,1)
  123    S CLMAMT= $P(DATAPAY ,U,1)
  124    I CLMAMT< 1.00 G LOO P22 ;CLAIM S LESS $1  DO NOT QUA LIFY
  125    S STATUS= $P(^CHMPAY (CI,0),"^" ,2)
  126    I STATUS' =4 G LOOP2 2 ; WANT O NLY PAID ( COMPLETED)  CLAIMS
  127    S BENESW= 1
  128    G LOOP22
  129    Q
  130   WANTIT ;NE XT FILE FO R SPONSOR  WITH A HEL PLESS CHIL D BENE WIT H DATES OF  ELIG W/12  MO CLAIMS
  131    S BENESW= 0
  132    S T=$C(9)
  133    S CNT=CNT +1
  134    S NEWCFIL E=$$FXLGTH ^CHTFLIB(S PONFILE,"R ",9)
  135    S TMP=NEW CFILE
  136    U DEVICE  W TMP,!
  137    S ^CHMZHO LD($J,"VBA -SPONSOR-C HILD-PD-CL AIMS-4268" ,DFN,BFN,S PONFILE)=" "
  138    Q
  139   NO109 ;
  140    S CNT109= CNT109+1
  141    Q
  142   NO12CLM ;
  143    S NO12CNT =NO12CNT+1
  144    S ^CHMZHO LD($J,"NO1 2CLAIM4268 ",DFN,BFN) =""
  145    Q  ;AEB D EV007799 9 /24/2009
  146   NOTELIG ;
  147    S ^CHMZHO LD($J,"NOT ELIG4268", DFN,BFN)=" "
  148    S NOAECNT =NOAECNT+1
  149    Q  ;AEB D EV007799 9 /24/2009
  150   END ;
  151    ;C DEVICE                    ;; DEF016554  REPLACE CL OSE WITH N EW CLOSE
  152    D CLOSEF^ CHTFLIB9(D EVICE,"DEV ICE")
  153    X "D $SYS TEM.Proces s.SetZEOF( 0)"      ; ;DEF016554  MODIFIED  CLOSE STAT MENT 07/30 /2015
  154    D FTPFILE ^CHTFLIB9( DEVICE," DNS     fs3. DNS             ","/FS3BIG ","PUT")   
  155    W !,"   C OUNT=",CNT
  156    Q