216. EPMO Open Source Coordination Office Redaction File Detail Report

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

216.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMRZIP2.m Mon Nov 5 16:44:03 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMRZIP2.m Mon Nov 5 17:51:29 2018 UTC

216.2 Comparison summary

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

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

216.4 Active regular expressions

No regular expressions were active.

216.5 Comparison detail

  1   CHMRZIP2 ; HAC/AHJ;LA BELS WITH  DATE OF EL IG BENE'S  FROM SELEC TED ZIPS
  2    ;;V1.0
  3    ;INPUT FR OM CHMRZIP 1 ROUTINE  ^CHMZHOLD( "ZIPS",FNA ME,"ZIP-MA TCH"
  4    ;OUTPUT O N FS3BIG S HARED DRIV E FILE NAM E IS ZIPMA TCH(JOB NO .).TXT
  5    ;TEMP FIL E FOR QA V ERIFICATIO N IS ^CHMZ HOLD("ZIPS ",FNAME,"Q A-ZIP-SELE CTION"
  6    ;TEMP FIL E FOR DISP LAYING JOB  NUMBER FO R FS3BIG N &A FILE ^C HMZHOLD("Z IPS",FNAME ,"ZIPMATCH "
  7    ;JEH 11/1 3/08  TT # MTN006023  Name and a ddress of  all CHAMPV A benies i n Fargo
  8    ;DEV01289 3 1/17/201 4 DGC - MO DIFY DECNE T WRITE
  9    ;MTN02426 5 09/23/15  SBB - Fix  the DECNE T routines  that have  a typo
  10    ;
  11   CHAMPVA ;
  12    S (ZIPCNT ,PART,TOTB FN,BYCNT,T OTCNT,BCNT ,CLAIM,CNT )=0
  13    S DFN=0,U ="^"
  14    D NOW^%DT C S CHDATE =X
  15    S NUMBER= 0
  16    ;S NUMBER =$O(^CHMZH OLD("ZIP-M ATCH",$J,N UMBER))
  17    S NUMBER= $O(^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH",NU MBER))
  18    S LOWTST= NUMBER
  19    S NUMBER= 999999
  20    ;S NUMBER =$O(^CHMZH OLD("ZIP-M ATCH",$J,N UMBER),-1)
  21    S NUMBER= $O(^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH",NU MBER),-1)
  22    S HIGHTST =NUMBER
  23    ;
  24    K ^CHMZHO LD("ZIPS", FNAME,"ZIP -SELECTION -QA")
  25    S ^CHMZHO LD("ZIPS", FNAME,"SEL ECTED-ZIP- BENE-NA-LA BELS")=""
  26    ;
  27    ;;S FIO=" HAC_HFS$:[ DSMMANAG]Z IPMATCH.TX T"
  28    S JOBNO=$ J
  29    S FILENM= "ZIPMATCH" _$J_".TXT"
  30    S ZTSAVE( "CHSTDT")= "",ZTSAVE( "IOFILE")= "",ZTSAVE( "*")=""
  31    S ZTSAVE( "FNAME")=" "
  32    S ZTRTN=" START^CHMR ZIP2",ZTDE SC="Select  N&A from  zip codes" ,ZTIO=""
  33    D ^%ZTLOA D S IOP=0  D HOME^%ZI S ;
  34    Q ;
  35   START ; DG C 1/17/201 4 DEV01289 3 - BEGIN
  36    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.BENE_LST ]"_FNAME_" .TXT"      ;JEH 1/9/0 9
  37    ;;S HOLDI T="ZIPMATC H"_JOBNO_" .TXT"
  38    ;;S FIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.BENE_LST ]""HOLDIT" ""
  39    ;;S ^CHMZ HOLD(JOBNO ,"ZIPMATCH ")=""
  40    ;O FIO C  FIO:"D"
  41    ;O FIO:"N WV"
  42    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  43    X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893
  44    S FILENM2 ="_FNAME_. TXT"
  45    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2
  46    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2
  47    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D  $SYSTEM.P rocess.Set ZEOF(0)" Q  ;DGC 7/30 /2015 DEV0 12893 ;DGC  1/17/2014  DEV012893  - END
  48    ;S DFN=52 0186
  49    D STRT    ;NEW SEARC H  JEH 11/ 13/08
  50    D END
  51    ;D GETDFN ,END
  52    Q
  53    ;
  54    ; ALL BEN E'S
  55    ;******** ********** ********** ********** ********** *****
  56    ; CHAMPVA  BENE FILE
  57   GETDFN S T OTCNT=TOTC NT+1
  58    S DFN=$O( ^AHCHVA(DF N)) Q:'DFN
  59    G:'$D(^AH CHVA(DFN,0 )) GETDFN
  60    ;W !,DFN
  61    S SPON=^A HCHVA(DFN, 0)
  62    G:'$D(^AH CHVA(DFN,1 )) GETDFN
  63    S SPON1=^ AHCHVA(DFN ,1)
  64    G:'$D(^AH CHVA(DFN,1 00)) GETDF N
  65    S BFN=0
  66   GETBFN S T OTBFN=TOTB FN+1
  67    S BFN=$O( ^AHCHVA(DF N,100,BFN) ) G:'BFN G ETDFN
  68    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETBFN
  69    G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) GETBFN
  70    S J1=0
  71   G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1))  G:'J1 GETB FN
  72    S J2=0
  73    S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2))  G:'J2 GET BFN
  74    ;
  75   OK ;NEXT L INE DATES  OF ELIGIBI LITY ONLY
  76    G:J1>CHDA TE WRITEIT
  77    G:J2<CHDA TE WRITEIT
  78    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETBFN
  79    S NAMELAB =^AHCHVA(D FN,100,BFN ,0)
  80    G:'$D(^AH CHVA(DFN,1 00,BFN,1))  GETBFN
  81    S ADDRLAB =^AHCHVA(D FN,100,BFN ,1)
  82    ;
  83    S STATE=$ P(ADDRLAB, U,4)
  84    I STATE=" " G GETBFN
  85    G GETBFN: '$D(^DIC(5 ,STATE,0))
  86    S:STATE S TATE=$P(^D IC(5,STATE ,0),U,2)
  87    S BIGZIP= $P(ADDRLAB ,U,5)
  88    ;I $E(BIG ZIP,1,1)=0  S BIGZIP= $E(BIGZIP, 2,5) ;**** ********** *COMMENT O UT FOR TES T
  89    ;
  90    S ZIP=$E( BIGZIP,1,5 )
  91    S PART=$E (BIGZIP,1, 2)
  92   NEXT ;I PA RT="00" S  ZIP=$E(BIG ZIP,3,5) G  JUMP ;*** ********** COMMENT OU T FOR TEST
  93    ;S PART=$ E(BIGZIP,1 ,1)
  94    ;I PART=" 0" S ZIP=$ E(BIGZIP,2 ,5) G JUMP  ;******** ********** *COMMENT O UT FOR TES T
  95    ;I $E(BIG ZIP,1,2)=0 0 S ZIP=$E (BIGZIP,3, 5) G JUMP
  96    ;I $E(BIG ZIP,1,1)=0  S ZIP=$E( BIGZIP,2,5 )
  97   JUMP ;
  98    ;
  99    ;BAD ADDR ESS FLAG B YPASS
  100    I $P(ADDR LAB,U,10)' =1 S BCNT= BCNT+1 G G ETBFN
  101    ;NEXT LIN ES FOR SEL ECTED INDI VIDUAL ZIP S
  102    I $E(ZIP, 1,1)=0 S Z IP=$E(ZIP, 2,5)
  103    S MATCH=$ E(ZIP,1,5)
  104    ;I $L(MAT CH)=4 S MA TCH=0_MATC H
  105    ;I $L(MAT CH)=3 S MA TCH=00_MAT CH
  106    ;I $D(^CH MZHOLD("ZI P-MATCH",$ J,MATCH))  G GOOD
  107    I $D(^CHM ZHOLD("ZIP S",FNAME," ZIP-MATCH" ,MATCH)) G  GOOD
  108    ;++++++++ ++++++++++ ++++++++++ ++++++++++ ++++++++
  109    ;W !," NO T=",MATCH
  110    ;G GETBFN
  111    ;++++++++ ++++++++++ ++++++++++ ++++++++++ +++++++++
  112    G GETBFN
  113   GOOD ;
  114    ; NEXT CO DE FOR DEL IMITED WIT H TAB CHAR
  115    ;******** ********** ********** ****
  116    ;++++++++ ++++++++++ ++++++++++ ++++++++++ ++++++++
  117    ;W !,"                                                                        MINN=",M ATCH
  118    ;S ZIPCNT =ZIPCNT+1
  119    ;G GETBFN
  120    ;++++++++ ++++++++++ ++++++++++ ++++++++++ +++++++++
  121    S SSN=$P( NAMELAB,U, 9)
  122    S NAME=$P (NAMELAB,U ,1)
  123    S LAST=$P (NAME,",", 1)
  124    S FIRST=$ P(NAME,"," ,2)
  125    S NAME=FI RST_" "_LA ST
  126    S ADDR1=$ P(ADDRLAB, U,1)
  127    S ADDR2=$ P(ADDRLAB, U,2)
  128    S ADDR3=$ P(ADDRLAB, U,12)
  129    S CITY=$P (ADDRLAB,U ,3)
  130    S T=$C(9)
  131    ;I BIGZIP ="" G GETB FN
  132    S ZIP=BIG ZIP
  133    I $L(BIGZ IP)=9 S ZI P=$E(BIGZI P,1,5)_"-" _$E(BIGZIP ,6,9)
  134    S TMPS=NA ME_T_ADDR1 _T_ADDR2_T _ADDR3_T_C ITY_T_STAT E_T_ZIP_T
  135    ;S ^CHMZH OLD("ZIP-S ELECTION-Q A",$J,DFN, BFN)=DFN_U _BFN_U_NAM E_U_ADDR1_ U_ADDR2_U_ ADDR3_U_CI TY_U_STATE _U_ZIP_U
  136    S ^CHMZHO LD("ZIPS", FNAME,"ZIP -SELECTION -QA",DFN,B FN)=DFN_U_ BFN_U_NAME _U_ADDR1_U _ADDR2_U_A DDR3_U_CIT Y_U_STATE_ U_ZIP_U
  137    ;S ^CHMZH OLD("ZIP-S ELECTION-D FN",$J,DFN ,BFN)=""
  138    S ^CHMZHO LD("ZIPS", FNAME,"ZIP -SELECTION -DFN")=DFN _U_BFN
  139    ;
  140   N1 ;
  141    ;
  142    ;++++++++ ++++++++++ ++++++++++ ++++++++++ +++++++++
  143    U FIO W T MPS,!
  144    ;++++++++ ++++++++++ ++++++++++ ++++++++++ ++++++++++ ++
  145    ;******** ********** ********** *****
  146    S ZIPCNT= ZIPCNT+1
  147    ;I CNT=3  G END
  148    ;G GETBFN
  149    Q
  150   WRITEIT ;B YPASS DATE  OF ELIG N OT TODAY
  151    S BYCNT=B YCNT+1
  152    G GETBFN
  153    Q
  154   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  155    I '$T W * 7 R Y:15 G  SBRS:Y=". " S:'$T Y= IOZFO
  156   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  157    I IOZFO=Y  W:$D(IOZF ) @IOZF S  (DFOUT,Y)= "" Q
  158    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  159    Q
  160   BOMB C DEV ICE
  161    W !,MESSA GE
  162    D INT^%ET
  163    Q
  164   END ;
  165    D CLOSEF^ CHTFLIB9(F IO,"FIO")  ;C FIO - D GC 1/17/20 14 DEV0128 93
  166    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893
  167    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG /COMMO_RPT S/BENE_LST ","PUT") ; DGC 1/17/2 014 DEV012 893
  168    S Y=CHDAT E D DD^%DT  S PTODAYD T=Y
  169    ;K ADDRLA B,BFN,CHDA TE,CHDFNI, CHDFNJ,CHD FNK,DFN,DF NDATA,FIO, J1,J2
  170    ;K NAMELA B,PCNT,PDI J,PG,RUNTI ME,STATE,S TRDAT,T,TF MDT,TMPS,U
  171    S CNTZ=1, ^CHMZHOLD( "ZIPS",FNA ME,"BENEZ- TEXTMESSZ" ,CNTZ)="", CNTZ=CNTZ+ 1
  172    S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1
  173    S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "  BENEFIC IARY NAME  AND ADDRES S LIST          ",CNT Z=CNTZ+1     
  174    S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "  SELECTE D ZIPS HAS   COMPLETE D   ",CNTZ =CNTZ+1
  175    S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "                                                   ", CNTZ=CNTZ+ 1
  176    S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "TODAYS DA TE="_PTODA YDT,CNTZ=C NTZ+1
  177    S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "TOTAL COU NT="_ZIPCN T,CNTZ=CNT Z+1
  178    S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "(OUTPUT F ILE NAMES  )                             ", CNTZ=CNTZ+ 1
  179    S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "SELECTED  ZIP CODES  FILE NAME  ON:",CNTZ= CNTZ+1
  180    S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "   FS3BIG .COMMO_RPT S.BENE_LST ="_FNAME_" .TXT",CNTZ =CNTZ+1
  181    S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1
  182    S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= ""
  183    S XMTEXT= "^CHMZHOLD (""ZIPS"", FNAME,""BE NEZ-TEXTME SSZ"","
  184    S XMDUZ=. 5
  185    S XMY(DUZ )=""
  186    S XMSUB=" SELECTED Z IP BENE NA ME AND ADD RESS" D ^X MD
  187    ;
  188    K ^CHMZHO LD("ZIPS", FNAME)
  189    Q
  190    ;S ^CHMZH OLD("ZIP-S ELECTION-C NT",$J,CNT )=""
  191    ;K CHMZHO LD("ZIP-MA TCH",$J)
  192    ;K ^CHMZH OLD("ZIP-S ELECTION-D FN",$J)
  193    ;W !," CO UNT=",CNT
  194    ;
  195    ;K ADDRLA B,BFN
  196    ;K DELETE ,DFN,FIO,J 1,J2,NAMEL AB,STATE,U ,X,ZIP
  197    Q
  198   STRT ;NEW  SEARCH
  199    D NOW^%DT C S CHDATE =X   ;GET  CURRENT DA TE
  200    S CTR=0
  201    S DFN=0 F   S DFN=$O (^AHCHVA(D FN)) Q:'DF N  D
  202    .S BFN=0  F  S BFN=$ O(^AHCHVA( DFN,100,BF N)) Q:'BFN   D
  203    ..Q:'$D(^ AHCHVA(DFN ,100,BFN,0 ))
  204    ..Q:$P(^A HCHVA(DFN, 100,BFN,0) ,"^",5)="D "   ;STATS  D-INELIGI BLE
  205    ..Q:'$D(^ AHCHVA(DFN ,100,BFN,1 ))
  206    ..S ZIP=$ E($P(^AHCH VA(DFN,100 ,BFN,1),"^ ",5),1,5)
  207    ..Q:'$G(Z IP)
  208    ..Q:$P(^A HCHVA(DFN, 100,BFN,1) ,"^",10)'= 1   ;BENE  REMIT ADDR ESS CORREC T 1-YES
  209    ..Q:$$DT1 09^CHMRZIP 2(DFN,BFN) =0
  210    ..S PRTMT CH=0
  211    ..I $D(^C HMZHOLD("Z IPS",FNAME ,"ZIP-MATC H",ZIP)) D
  212    ...S CTR= CTR+1
  213    ...;S PRT MTCH=1
  214    ...S NAME LAB=^AHCHV A(DFN,100, BFN,0)
  215    ...S ADDR LAB=^AHCHV A(DFN,100, BFN,1)
  216    ...S STAT E=$P(ADDRL AB,U,4)
  217    ...S:STAT E STATE=$P (^DIC(5,ST ATE,0),U,2 )
  218    ...Q:STAT E=""
  219    ...S BIGZ IP=$P(ADDR LAB,U,5)
  220    ...S ZIP= $E(BIGZIP, 1,5)
  221    ...S PART =$E(BIGZIP ,1,2)
  222    ...D GOOD
  223    .;W:PRTMT CH=1 !,CTR ,?10,DFN,? 30,BFN,?50 ,ZIP
  224    .;S PRTMT CH=0
  225    Q
  226   DT109(DDFN ,DBFN) ;10 9 NODE - E LIGIBILITY  DATES
  227    N EBEGDT, EENDDT
  228    N ELIG109
  229    S ELIG109 =0   ;SET  TO NOT ELI G  0-NOT E LIG
  230    Q:'$D(^AH CHVA(DFN,1 00,BFN,109 )) ELIG109
  231    S EBEGDT= 0  F  S EB EGDT=$O(^A HCHVA(DFN, 100,BFN,10 9,EBEGDT))  Q:'EBEGDT   D
  232    .S EENDDT =0 F  S EE NDDT=$O(^A HCHVA(DFN, 100,BFN,10 9,EBEGDT,E ENDDT)) Q: 'EENDDT  D
  233    ..I CHDAT E>=EBEGDT& (CHDATE<=E ENDDT) S E LIG109=1     ;BENE EL IG
  234    Q ELIG109
  235