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

80.1 Files compared

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

80.2 Comparison summary

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

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

80.4 Active regular expressions

No regular expressions were active.

80.5 Comparison detail

  1   CHM4268H ; HAC/AHJ;SP ONSORS FIL E NUMBERS  WITH CHILD  HELPLESS  BENE'S WIT H CLAIMS L AST 12 MO' S
  2    ;;1.0;CHA MPVA;;09/3 0/09;Build  2
  3    ;AHJ  FRO M ZA4268HC
  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 onChild"_C HFILDT_".T XT"
  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 ="VBASponC hild"_CHFI LDT_".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)"                              ;;DEF01655 4 OPEN AND  CLOSE MOD IFIED  07/ 30/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=CHDA TE S X2=-3 65 D C^%DT C S STRDAT =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           ;W  !,"DFN=", DFN
  78   GETBFN S B FN=$O(^AHC HVA(DFN,10 0,BFN)) G: 'BFN GETDF N
  79    G:$D(^AHC HVA("SB",D FN,BFN)) G ETBFN
  80    ;W !,"DFN BFN=",DFN, " ",BFN
  81    ;G GETBFN
  82    ;
  83    ;CHECK DA TES OF ELI GIBILITY F OR BENE
  84    ;
  85    I '$D(^AH CHVA(DFN,1 00,BFN,0))  D NO109 G  GETBFN
  86    I '$D(^AH CHVA(DFN,1 00,BFN,1))  D NO109 G  GETBFN
  87    ;
  88    ;WANT BEN E HELPLESS  CHILD ONL Y
  89    S BEN0=^A HCHVA(DFN, 100,BFN,0)
  90    I $P(BEN0 ,"^",6)?7N  G GETBFN   ;AEB DEV0 07799 9/24 /2009 SKIP  IF DATE O F DEATH IS  7 NUMERIC S
  91    S BREL=$P (BEN0,U,4)
  92    I BREL="C " G G0
  93    G GETBFN
  94   G0 ;
  95    S BHELP=$ P(BEN0,U,3 3)
  96    I BHELP=1  G G1
  97    G GETBFN
  98   G1 ;
  99    I '$D(^AH CHVA(DFN,1 00,BFN,109 )) D NO109  G GETBFN
  100    S J1=0
  101   G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1))  G:'J1 GETB FN
  102    S J2=0
  103    S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2))  G:'J2 G2
  104    I J1>CHDA TE D NOTEL IG G GETBF N
  105    I J2<CHDA TE D NOTEL IG G GETBF N
  106    ;
  107    ;CLAIMS P ROCESSING  HERE
  108    ;
  109   L322 S CHD FNI=$O(^CH MDFN("B",D FN,0)) G G ETDFN:'CHD FNI
  110    ;
  111    S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G GETD FN:'CHDFNJ
  112    S CHDFNK= 0 ;START A T FRONT
  113   LOOP22 ;
  114    ; RETURN  AFTER LAST  CLAIM TO  BENE NEXT  LINE
  115    S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ) G:'CHDFN K GETBFN
  116    G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N22
  117    G L322
  118   MAIN22 ;
  119    S CI=^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)
  120    G LOOP22: '$D(^CHMPA Y(CI,0))
  121    ;CONVERT  PDI TO CLA IM FILED D ATE
  122    S PDIJ=""
  123    S PDIJ=$O (^CHMPAY(C I,"PDI","B ",PDIJ),-1 )
  124    G:PDIJ=""  LOOP22
  125    S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ)
  126    ;TEST TES T TEST TES T TEST ONL Y NEXT LIN E
  127    ;I TFMDT< DAT12 W !, " DATE OLD ER 12 MONT HS=",TFMDT
  128    ;
  129    G:TFMDT<D AT12 LOOP2 2 ;NO CLAI MS OVER 7  YEARS OLD
  130    ;G:TFMDT> 3061215 LO OP22 ;REST  OF CLAIMS  ARE OVER  JAN 1, 200 6
  131   CLAIMDAT ;
  132    ;
  133    G:'$D(^CH MPAY(CI,1) ) LOOP22
  134    S DATAPAY =^CHMPAY(C I,1)
  135    S CLMAMT= $P(DATAPAY ,U,1)
  136    I CLMAMT< 1.00 G LOO P22 ;CLAIM S LESS $1  DO NOT QUA LIFY
  137    ;
  138    S STATUS= $P(^CHMPAY (CI,0),"^" ,2)
  139    I STATUS' =4 G LOOP2 2 ; WANT O NLY PAID ( COMPLETED)  CLAIMS
  140    ;W !,"CLA IM OK TO U SE=",CI,"  ",TFMDT
  141    S BENESW= 1
  142    G LOOP22
  143    Q
  144   WANTIT ;NE XT FILE FO R SPONSOR  WITH A HEL PLESS CHIL D BENE WIT H DATES OF  ELIG W/12  MO CLAIMS
  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-C HILD-PD-CL AIMS-4268" ,DFN,BFN,S PONFILE)=" "
  152    ;I CNT=10 01 G END
  153    ;W !,DFN, " ",BFN,"  ",CNT," ", SPONFILE
  154    Q
  155   NO109 ;
  156    S CNT109= CNT109+1
  157    Q
  158   NOTELIG ;
  159    ;W !,"          NOT  ELIG DATES       ",DF N," ",BFN, " ",J1," " ,J2
  160    S ^CHMZHO LD($J,"NOT ELIG4268", DFN,BFN)=" "
  161    S NOAECNT =NOAECNT+1
  162    Q
  163   END ;
  164    ;C DEVICE                    ;; DEF016554  REPLACE CL OSE WITH N EW CLOSE
  165    D CLOSEF^ CHTFLIB9(D EVICE,"DEV ICE")
  166    X "D $SYS TEM.Proces s.SetZEOF( 0)"                 ; ;DEF016554  CLOSE MOD IFIED 07/3 0/2015
  167    D FTPFILE ^CHTFLIB9( DEVICE," DNS     fs3. DNS             ","/FS3BIG ","PUT")   
  168    W !,"   C OUNT=",CNT
  169    Q