28. EPMO Open Source Coordination Office Redaction File Detail Report

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

28.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSFFI.m Mon Nov 5 16:40:35 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSFFI.m Tue Nov 6 22:08:39 2018 UTC

28.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 7 346
Changed 6 12
Inserted 0 0
Removed 0 0

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

28.4 Active regular expressions

No regular expressions were active.

28.5 Comparison detail

  1   CHCMSFFI ; HAC/SKD; G enerates t he initial  finder fi le to be s ent to the  CMS ;1-8- 08  3:23 P M
  2    ;;V1.0
  3    ;;new rou tine per D EV000123-0 3, skd 1-8 -08 
  4    ;;
  5    ;;Initial  finder fi le lists a ll CHAMPVA  eligible  benes ($P( ^AHCHVA(DF N,100,BFN, 0),"^",5)= "EA")
  6    ;;
  7    ;;******* **Finder f ile format ********** **********
  8    ;;SSN fin der file m ust be in  CSV (ASCII  comma del imited) fo rmat
  9    ;;1st lin e: SSN, Ge nder, DOB
  10    ;;2nd lin e and beyo nd: 
  11    ;;;SSN: 9  digit 
  12    ;;;Gender : ?M? or ? 1? = male,  ?F? or ?2 ? = female  and ?0? =  unknown
  13    ;;;DOB: m m/dd/yyyy
  14    ;;A carri age return  must end  each line.  
  15    ;;******* ********** ********** ********** ********** *
  16    ;;DEF0184 04, SBB, 0 6/25/13 -  Adding a l ine to res trict FMP  benes from  going 
  17    ;;                                 on to C MS finder  files
  18    ;;DEF0165 54, SBB, 1 1/26/13 -  Modified W riting to  a file as  per VHA st andard.
  19    ;;                              Converting  from DECN ET to FTP.
  20    ;;DEF0165 54, SBB, 0 7/30/15 -  Adding cha nges for D ECNET
  21    ;;
  22   QUE ;S IOP ="Q",%ZIS= "Q" W !! D  ^%ZIS G:P OP QEND
  23    ;S CHFIO= ION
  24    I '$G(DUZ ) S DUZ=1
  25    S MMYY="I NITIAL"
  26    S CHFIO=" ",ZTDTH=$H
  27    S ZTRTN=" GETALLEA^C HCMSFFI",Z TDESC="CMS  Finder Fi le Generat ion for al l CHAMPVA  elig benes "
  28    S ZTIO="" ,ZTSAVE("C HFIO")="", ZTSAVE("MM YY")=""
  29    D ^%ZTLOA D
  30    Q
  31   GETALLEA ;
  32    ;S T=$C(9 )  ;USE TO  SET DELIM ITER TO TA B
  33    S U="^"
  34    K ^CHMZHO LD("ZSKDCM SFILE"),^C HMZHOLD("Z SKDCMS_BEN ECOUNT","I NITIAL")
  35    S CNT=0    
  36    S FILENM= "CMSFILE_" _MMYY_".DA T"
  37    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  38    ;S FILE=" HACFS3""
D NS       Welcome1!" "::e:[CMS. HACFINDERF ILES]"_FIL ENM O FILE  C FILE:"D "
  39    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  40    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  41    ;N POP
  42    S FILE="H AC_HFS$:[S CR.TEMP_FI LES]"_FILE NM
  43    I UCI'="H AC" S FILE ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _$P(FILENM ,".")_UCI_ "."_$P(FIL ENM,".",2)
  44    ;S FILE=" HAC_HFS$:[ ARC.TEMP_F ILES]CMSFF I.DAT" O F ILE C FILE :"D"
  45    ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH  to open fi le
  46    ;O FILE:" NWS":5 I ' $T Q
  47    ;SBB 07/3 0/15 DEF01 6554
  48    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  49    I '$$OPEN FIWR^CHTFL IB9(.FILE, "FILE") X  "D $SYSTEM .Process.S etZEOF(0)"  Q
  50    U FILE W  "SSN,    G ender, DOB ",!
  51    S ^CHMZHO LD("ZSKDCM S_BENECOUN T",MMYY)=0
  52    S DFN=0
  53    F  S DFN= $O(^AHCHVA (DFN)) Q:' DFN  D  
  54    .Q:'$D(^A HCHVA(DFN, 0))
  55    .Q:$D(^AH CHVA("SB", DFN))   ;d on't inclu de SB bene
  56    .Q:$D(^AH CHVA("FMP" ,DFN))   ; don't incl ude FMP be ne
  57    .Q:$D(^AH CHVA("WV", DFN))   ;d on't inclu de CWVV be ne
  58    .;Q:$D(^A HADIC(5548 04.07,"B", SNAME))  ; CHK FOR DE LETED SPON SOR
  59    .S BFN=0, ERR=0
  60    .F  S BFN =$O(^AHCHV A(DFN,100, BFN)) Q:'B FN  D
  61    ..Q:'$D(^ AHCHVA(DFN ,100,BFN,0 ))
  62    ..Q:$P($G (^AHCHVA(D FN,100,BFN ,0)),"^",5 )'="EA"
  63    ..S (BNAM E,BSSN,BSE X,BDOB,ERR )=""
  64    ..S BNAME =$P($G(^AH CHVA(DFN,1 00,BFN,0)) ,"^",1) Q: BNAME=""
  65    ..Q:BNAME ["(SN)"      ;don't i nclude SN  bene  
  66    ..S BSSN= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",9) 
  67    ..S BSSN= $$LTRIM^CH TFLIB(BSSN )
  68    ..S BSSN= $$TRIM^CHT FLIB(BSSN)
  69    ..I BSSN' ?9N S ^CHM ZHOLD("ZSK DCMSFILE", "EXCEPTION ",BNAME,"S SN")="SSN  = "_BSSN S  ERR=1
  70    ..I (BSSN '=""),$D(^ AHCHVA("C" ,BSSN)) Q    ;don't i nclude if  a sponsor  ;;DEF01840 4-SBB-06/2 5/13
  71    ..S BSEX= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",2)
  72    ..S BSEX= $TR(BSEX," abcdefghij klmnopqrst uvwxyz","A BCDEFGHIJK LMNOPQRSTU VWXYZ")
  73    ..I BSEX' ="M",BSEX' ="F" S ^CH MZHOLD("ZS KDCMSFILE" ,"EXCEPTIO N",BNAME," SEX")="Gen der = "_BS EX S ERR=1
  74    ..S BDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3)
  75    ..I BDOB' ?7N S ^CHM ZHOLD("ZSK DCMSFILE", "EXCEPTION ",BNAME,"D OB")="DOB  = "_BDOB S  ERR=1
  76    ..S BDOB= $$FMTE^XLF DT(BDOB,"5 D")   ;m/d /yyyy form at
  77    ..S BDOB= $$CONVDT5( BDOB)            ;mm/ dd/yyyy fo rmat
  78    ..I BDOB= "" S ^CHMZ HOLD("ZSKD CMSFILE"," EXCEPTION" ,BNAME,"DO B")="DOB =  "_BDOB S  ERR=1
  79    ..Q:ERR
  80    ..;S CNT= CNT+1
  81    ..U FILE  W BSSN_"," _BSEX_","_ BDOB
  82    ..U FILE  W !
  83    ..S ^CHMZ HOLD("ZSKD CMS_BENECO UNT",MMYY) =$G(^CHMZH OLD("ZSKDC MS_BENECOU NT",MMYY)) +1
  84    ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH  to close  file
  85    ;C FILE
  86    D CLOSEF^ CHTFLIB9(F ILE,"FILE" )
  87    ;SBB 07/3 0/15 DEF01 6554
  88    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  89    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  90    D FTPFILE ^CHTFLIB9( FILE," DNS     . DNS             ","/CMS/HA CFINDERFIL ES","PUT")
  91    S ^CHMZHO LD("ZSKDCM S_LASTFNDR FILECT")=^ CHMZHOLD(" ZSKDCMS_BE NECOUNT",M MYY)
  92    S PMONTH= MMYY D EXC RPT,BENCOU NT
  93    K T,CNT,D FN,BFN,BSS N,BSEX,BDO B,FILE,MMY Y,BNAME,D1 ,M1,D,PMON TH
  94    Q
  95    ;
  96   CONVDT5(D)  ;convert  m/d/yyyy f ormat to m m/dd/yyyy  format
  97    NEW D1,M1
  98    I D="" Q  ""
  99    S D1=$P(D ,"/",1)
  100    I D1="" Q  ""
  101    I $L(D1)= 1 S D1="0" _D1
  102    S M1=$P(D ,"/",2)
  103    I M1="" Q  ""
  104    I $L(M1)= 1 S M1="0" _M1
  105    Q D1_"/"_ M1_"/"_$P( D,"/",3)
  106    ;
  107   EXCRPT ;ge nerate an  exception  report for  incorrect  SSN,Sex,D OB data
  108    Q:'$D(^CH MZHOLD("ZS KDCMSFILE" ,"EXCEPTIO N"))
  109    S CHPG=0
  110    S FILENM2 ="EXCEPTIO N_REPORT_" _MMYY_".DA T"
  111    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  112    ;S FILE2= "HACFS3""
D NS       Welcome1!" "::e:[CMS. HACFINDERF ILES]"_FIL ENM2 O FIL E2 C FILE2 :"D"
  113    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  114    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  115    S FILE2=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM2
  116    I UCI'="H AC" S FILE 2="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FILENM2
  117    ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH  to open fi le
  118    ;O FILE2: "NWS":5 I  '$T Q
  119    ;SBB 07/3 0/15 DEF01 6554
  120    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  121    I '$$OPEN FIWR^CHTFL IB9(.FILE2 ,"FILE2")  X "D $SYST EM.Process .SetZEOF(0 )" Q
  122    D HEAD
  123    ;U FILE2  W ?10,"BEN E EXCEPTIO N REPORT F OR THE MON TH OF: "_$ G(PMONTH), !!
  124    U FILE2 W  "The foll owing bene ficiaries  have inval id or miss ing SSN, G ender or D OB: ",!!
  125    S BNAME=" "
  126    F  S BNAM E=$O(^CHMZ HOLD("ZSKD CMSFILE"," EXCEPTION" ,BNAME)) Q :BNAME=""   D
  127    .S ERR=""
  128    .F  S ERR =$O(^CHMZH OLD("ZSKDC MSFILE","E XCEPTION", BNAME,ERR) ) Q:ERR=""   D
  129    ..U FILE2  W BNAME,? 30,$G(^CHM ZHOLD("ZSK DCMSFILE", "EXCEPTION ",BNAME,ER R)),!
  130    ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH  to close  file
  131    ;C FILE2
  132    D CLOSEF^ CHTFLIB9(F ILE2,"FILE 2")
  133    ;SBB 07/3 0/15 DEF01 6554
  134    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  135    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  136    D FTPFILE ^CHTFLIB9( FILE2," DNS     . DNS             ","/CMS/HA CFINDERFIL ES","PUT")
  137    K FILENM2 ,FILE2,^CH MZHOLD("ZS KDCMSFILE" ,"EXCEPTIO N")
  138    Q
  139    ;
  140   HEAD ;
  141    I '$G(DUZ ) S DUZ=1
  142    S TITLE=" Health Adm inistratio n Center"  S TAB=((80 -$L(TITLE) )/2)
  143    S %H=$H D  YX^%DTC S  CHDATE=$P (Y,"@",1)
  144    U FILE2 W  "DUZ: ",D UZ,?TAB,TI TLE,?68,CH DATE,! K T AB,TITLE
  145    U FILE2 W  !,?25,"CM S Finder F ile Except ion Report ",!!
  146    Q
  147    ;
  148   BENCOUNT ;
  149    I '$G(DUZ ) S DUZ=1
  150    I '$D(DT)  D NOW^%DT C S DT=X K  X
  151    S X=MMYY
  152    S %DT="M"  D ^%DT S  PMONTH=$$F MTE^XLFDT( Y,"1D")
  153    I PMONTH= -1 S PMONT H=$$FMTE^X LFDT(DT,"1 D")
  154    S FILENM= "CMSFILE_" _MMYY_"_BE NECOUNT.DA T"
  155    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  156    ;S FILE3= "HACFS3""
D NS       Welcome1!" "::e:[CMS. HACFINDERF ILES]"_FIL ENM
  157    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  158    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  159    S FILE3=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM
  160    I UCI'="H AC" S FILE 2="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FILENM
  161    ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH  to open fi le
  162    ;O FILE3: "NWS":5 I  '$T Q
  163    ;SBB 07/3 0/15 DEF01 6554
  164    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  165    I '$$OPEN FIWR^CHTFL IB9(.FILE3 ,"FILE3")  X "D $SYST EM.Process .SetZEOF(0 )" Q
  166    S TITLE=" Health Adm inistratio n Center"  S TAB=((80 -$L(TITLE) )/2)
  167    S %H=$H D  YX^%DTC S  CHDATE=$P (Y,"@",1)
  168    U FILE3 W  "DUZ: ",D UZ,?TAB,TI TLE,?68,CH DATE,! K T AB,TITLE
  169    U FILE3 W  !!," CMS  Finder Fil e BENE COU NT FOR "_P MONTH_" =  "_$G(^CHMZ HOLD("ZSKD CMS_BENECO UNT",MMYY) )
  170    ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH  to close  file
  171    ;C FILE3
  172    D CLOSEF^ CHTFLIB9(F ILE3,"FILE 3")
  173    ;SBB 07/3 0/15 DEF01 6554
  174    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  175    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  176    D FTPFILE ^CHTFLIB9( FILE3," DNS     . DNS             ","/CMS/HA CFINDERFIL ES","PUT")
  177    K FILENM, FILE3,TITL E,TAB,CHDA TE
  178    Q    
  179