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

29.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSFFM.m Mon Nov 5 16:43:04 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSFFM.m Tue Nov 6 22:09:01 2018 UTC

29.2 Comparison summary

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

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

29.4 Active regular expressions

No regular expressions were active.

29.5 Comparison detail

  1   CHCMSFFM ; HAC/SKD; G enerate th e monthly  finder fil e to be se nt to the  CMS ;1-8-0 8  3:23 PM
  2    ;;V1.0
  3    ;;new rou tine per D EV000123-0 3, skd 1-8 -08 
  4    ;;DEF0165 54, SBB, 0 7/30/15 -  Adding cha nges for D ECNET
  5    ;;
  6    ;;Jan and  Jul finde r files wi ll list al l CHAMPVA  eligible b enes ($P(^ AHCHVA(DFN ,100,BFN,0 ),"^",5)=" EA")
  7    ;;Any oth er month's  finder fi le will li st only ne w CHAMPVA  eligible b enes for t he prior m onth.
  8    ;;
  9    ;;******* **Finder f ile format ********** **********
  10    ;;SSN fin der file m ust be in  CSV (ASCII  comma del imited) fo rmat
  11    ;;1st lin e: SSN, Ge nder, DOB
  12    ;;2nd lin e and beyo nd: 
  13    ;;;SSN: 9  digit 
  14    ;;;Gender : ?M? or ? 1? = male,  ?F? or ?2 ? = female  and ?0? =  unknown
  15    ;;;DOB: m m/dd/yyyy
  16    ;;A carri age return  must end  each line.  
  17    ;;******* ********** ********** ********** ********** *
  18    ;;
  19    D INIT
  20    ;
  21   QUE S CHFI O="",ZTDTH =$H,ZTIO=" "
  22    S ZTRTN=" MAIN^CHCMS FFM",ZTDES C="CMS Mon thly Finde r File Gen eration fo r "_MMYY
  23    S ZTSAVE( "CHFIO")=" ",ZTSAVE(" MMYY")="", ZTSAVE("BE GDT")="",Z TSAVE("END DT")="",ZT SAVE("YY") =""
  24    S ZTSAVE( "MM")="",Z TSAVE("DUZ ")="",ZTSA VE("PMM")= ""
  25    D ^%ZTLOA D
  26   END Q
  27    ;
  28   MAIN ;
  29    K ^CHMZHO LD("ZSKDCM SFILE")
  30    I PMM="01 "!(PMM="07 ") D GETAL LEA^CHCMSF FI
  31    E  D GETM ONTH
  32    ;DEF01655 4-11/26/13 -SBB usein g CLOSE^%Z ISH to clo se file. T his close  not needed .
  33    ;C FILE
  34    K YY,MM,P MM,BEGDT,E NDDT,DFN,B FN,B500K,B SSN,BSEX,B DOB,BLTRDT ,BLTRTY,CH CCLA43,CHE XIST,FILE
  35    K ^CHMZHO LD("ZSKDCM SFILE","EX CEPTION")
  36    Q
  37    ;
  38   GETMONTH ;
  39    I '$D(MMY Y)!(MMYY=" ") D INIT
  40    K ^CHMZHO LD("ZSKDCM S_BENECOUN T",MMYY)
  41    S U="^"
  42    S FILENM= "CMSFILE_" _MMYY_".DA T"
  43    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  44    ;S FILE=" HACFS3""
D NS       Welcome1!" "::e:[CMS. HACFINDERF ILES]"_FIL ENM O FILE  C FILE:"D "
  45    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  46    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  47    S FILE="H AC_HFS$:[S CR.TEMP_FI LES]"_FILE NM
  48    I UCI'="H AC" S FILE ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FILENM
  49    ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH  to open fi le
  50    ;O FILE:" NWS":5 I ' $T Q
  51    ;SBB 07/3 0/15 DEF01 6554
  52    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  53    I '$$OPEN FIWR^CHTFL IB9(.FILE, "FILE") X  "D $SYSTEM .Process.S etZEOF(0)"  Q
  54    U FILE W  "SSN,    G ender, DOB ",!
  55    S ^CHMZHO LD("ZSKDCM S_BENECOUN T",MMYY)=0
  56    S DFN=0
  57    F  S DFN= $O(^AHCHVA (DFN)) Q:' DFN  D   
  58    .Q:'$D(^A HCHVA(DFN, 0))
  59    .Q:$D(^AH CHVA("SB", DFN))   ;d on't inclu de SB bene
  60    .Q:$D(^AH CHVA("FMP" ,DFN))   ; don't incl ude FMP be ne
  61    .Q:$D(^AH CHVA("WV", DFN))   ;d on't inclu de CWVV be ne
  62    .S BFN=0
  63    .F  S BFN =$O(^AHCHV A(DFN,100, BFN)) Q:'B FN  D
  64    ..Q:'$D(^ AHCHVA(DFN ,100,BFN,0 ))
  65    ..Q:$P($G (^AHCHVA(D FN,100,BFN ,0)),"^",5 )'="EA"
  66    ..S (BNAM E,BSSN,BSE X,BDOB,BLT RDT,ERR)=" "
  67    ..S CHEXI ST=0
  68    ..S B500K =""
  69    ..F  S B5 00K=$O(^AH CHVA(DFN,1 00,BFN,500 ,B500K)) Q :'B500K  Q :CHEXIST   D
  70    ...Q:'$D( ^AHCHVA(DF N,100,BFN, 500,B500K, 0))
  71    ...S BLTR DT=$P($G(^ AHCHVA(DFN ,100,BFN,5 00,B500K,0 )),"^",1)
  72    ...Q:BLTR DT<BEGDT
  73    ...Q:BLTR DT>ENDDT
  74    ...S BLTR TY="",BLTR TY=$P($G(^ AHCHVA(DFN ,100,BFN,5 00,B500K,0 )),"^",2)  Q:'BLTRTY
  75    ...S CHCC LA43=0,CHC CLA43=$O(^ AHADIC(554 801.1,"B", "CCL-A43 N ew Eligibl e",CHCCLA4 3)) Q:'CHC CLA43
  76    ...I BLTR TY=CHCCLA4 3 S CHEXIS T=1
  77    ..Q:'CHEX IST
  78    ..S BNAME =$P($G(^AH CHVA(DFN,1 00,BFN,0)) ,"^",1) Q: BNAME=""
  79    ..Q:BNAME ["(SN)"      ;don't i nclude SN  bene  
  80    ..S BSSN= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",9) 
  81    ..S BSSN= $$LTRIM^CH TFLIB(BSSN )
  82    ..S BSSN= $$TRIM^CHT FLIB(BSSN)
  83    ..Q:$D(^A HCHVA("C", BSSN))     ;don't inc lude if a  sponsor
  84    ..I BSSN' ?9N S ^CHM ZHOLD("ZSK DCMSFILE", "EXCEPTION ",BNAME,"S SN")="SSN  = "_BSSN S  ERR=1
  85    ..S BSEX= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",2)
  86    ..S BSEX= $TR(BSEX," abcdefghij klmnopqrst uvwxyz","A BCDEFGHIJK LMNOPQRSTU VWXYZ")
  87    ..I BSEX' ="M",BSEX' ="F" S ^CH MZHOLD("ZS KDCMSFILE" ,"EXCEPTIO N",BNAME," SEX")="Gen der = "_BS EX S ERR=1
  88    ..S BDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3)
  89    ..I BDOB' ?7N S ^CHM ZHOLD("ZSK DCMSFILE", "EXCEPTION ",BNAME,"D OB")="DOB  = "_BDOB S  ERR=1
  90    ..S BDOB= $$FMTE^XLF DT(BDOB,"5 D")   ;m/d /yyyy form at
  91    ..S BDOB= $$CONVDT5^ CHCMSFFI(B DOB)            ;mm/d d/yyyy for mat
  92    ..Q:BDOB= ""
  93    ..Q:ERR
  94    ..U FILE  W BSSN_"," _BSEX_","_ BDOB
  95    ..U FILE  W !
  96    ..S ^CHMZ HOLD("ZSKD CMS_BENECO UNT",MMYY) =$G(^CHMZH OLD("ZSKDC MS_BENECOU NT",MMYY)) +1
  97    ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH  to close  file
  98    ;C FILE
  99    D CLOSEF^ CHTFLIB9(F ILE,"FILE" )
  100    ;SBB 07/3 0/15 DEF01 6554
  101    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  102    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  103    D FTPFILE ^CHTFLIB9( FILE," DNS     . DNS             ","/CMS/HA CFINDERFIL ES","PUT")
  104    S ^CHMZHO LD("ZSKDCM S_LASTFNDR FILECT")=^ CHMZHOLD(" ZSKDCMS_BE NECOUNT",M MYY)
  105    ;generate  an except ion report  for incor rect SSN,S ex,DOB dat a
  106    D EXCRPT^ CHCMSFFI,B ENCOUNT^CH CMSFFI
  107    K ^CHMZHO LD("ZSKDCM SFILE","EX CEPTION")
  108    Q
  109    ;
  110   INIT ; 
  111    I '$D(DUZ ) S DUZ=1
  112    I '$D(DT)  D NOW^%DT C S DT=X
  113    S (YY,MM, PMM,BEGDT, ENDDT)=""
  114    S YY=$E(D T,1,3),MM= $E(DT,4,5)
  115    I MM="01"  S YY=YY-1
  116    S PMM=$S( MM="01":"1 2",MM="02" :"01",MM=" 03":"02",M M="04":"03 ",MM="05": "04",MM="0 6":"05",MM ="07":"06" ,MM="08":" 07",MM="09 ":"08",MM= "10":"09", MM="11":"1 0",MM="12" :"11",1:"" )
  117    Q:PMM=""
  118    S BEGDT=Y Y_PMM_"00"
  119    S ENDDT=Y Y_PMM_"32"
  120    S MMYY=PM M_$E(YY,2, 3)
  121    Q
  122