154. EPMO Open Source Coordination Office Redaction File Detail Report

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

154.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKZIPQ.m Mon Nov 5 16:39:14 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKZIPQ.m Mon Nov 5 17:49:49 2018 UTC

154.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 190
Changed 1 2
Inserted 0 0
Removed 0 0

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

154.4 Active regular expressions

No regular expressions were active.

154.5 Comparison detail

  1   CHMKZIPQ ; HAC/TLH;CO UNT ELIGIB ILE BENE'S  BY ZIP CO DE FOR DAT E RANGE   
  2    ;;V1.0 10 /1/2004
  3    ;LIST OF  BENES WITH  PERIODS O F ELIGIBIL ITY DURING  DATE RANG E
  4    ;
  5   S1 ;ENTER  DATE PERAM ITERS FOR  PERIODS OF  ELIGIBILI TY FOR REP ORT
  6    W !!,"Ent er the dat e to start  eligibili ty check o n " D CSBR S^CHSC2
  7    Q:Y=""  I  $D(DQOUT)  W !,"Ente r the firs t date to  count as ' EA'." G S1
  8    Q:$D(DUOU T)  Q:$D(D FOUT)
  9    S X=Y,%DT ="EPX" D ^ %DT I Y=-1  K %DT G S 1
  10    S STDATE= Y
  11   S2 W !!,"E nter the d ate to end  eligibili ty check o n " D CSBR S^CHSC2
  12    Q:Y=""  I  $D(DQOUT)  W !,"Ente r the end  date to co unt as 'EA '." G S2
  13    G:$D(DUOU T) S2  Q:$ D(DFOUT)
  14    S X=Y,%DT ="EPX" D ^ %DT I Y=-1  K %DT G S 2
  15    S EDDATE= Y
  16    S CHFIO=" "
  17    S ZTRTN=" CHAMPVA^CH MKZIPQ",ZT DESC="CREA TE COUNTS  BY ZIP COD E FILE"
  18    S ZTIO="" ,ZTSAVE("C HFIO")="", ZTSAVE("ST DATE")="", ZTSAVE("ED DATE")=""
  19    D ^%ZTLOA D
  20    ;D CHAMPV A^CHMKZIPQ
  21    W !!,"You r task num ber is ",Z TSK
  22    R XTEMP:5
  23    Q
  24   CHAMPVA ;
  25    S (TOTBFN ,BADFMP,FM PEL,CLMCNT ,CLAIM,CNT ,TOTCNT,CC NT)=0
  26    S (NOBFN1 0,NOBFN11, NODFN100,B FNCNT,COUN TCTY,SBCNT ,VWCNT,FMP CNT)=0
  27    S DFN=0
  28    K ^CHMZHO LD("EA-BY- ZIP")
  29   GETDFN ;
  30    S TOTCNT= TOTCNT+1
  31    S DFN=$O( ^AHCHVA(DF N)) G:'DFN  END
  32    I '$D(^AH CHVA(DFN,1 00))  G GE TDFN
  33    S (TFMDT, BFN)=0
  34   GETBFN ;
  35    S BFN=$O( ^AHCHVA(DF N,100,BFN) ) G:'BFN G ETDFN
  36    I '$D(^AH CHVA(DFN,1 00,BFN,0))  G GETDFN
  37    ;
  38    ;CHECK EL IGIBILITY  DATES HERE
  39    G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) GETBFN
  40    S J1=9999 999
  41   G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1),- 1) G:'J1 G ETBFN
  42    S J2=9999 999
  43    S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2), -1) G:'J2  G2
  44    ;NEXT LIN E CHECK BE GIN/END EL IGIBLE DAT ES
  45    G:J1>EDDA TE GETBFN
  46    G:J2<STDA TE GETBFN
  47   G3 ;
  48    S ZZNAM=^ AHCHVA(DFN ,100,BFN,0 )
  49    IF ZZNAM[ "(SN)" G G ETBFN
  50    G:$D(^AHA DIC(554804 .07,"B",ZZ NAM)) GETB FN       ; TLH 021406  MODIFIED  TO ACCOUNT  FOR DELET ED BENES/S PONSORS
  51    S SSN=$P( ZZNAM,"^", 9) G:SSN=" " GETBFN
  52    G:'$D(^AH CHVA(DFN,1 00,BFN,1))  GETBFN
  53    S ZZADR=^ AHCHVA(DFN ,100,BFN,1 )
  54    S ZZST=$P (ZZADR,"^" ,4) G:ZZST ="" GETBFN          ; TLH 021406  MODIFIED  TO COMPARE  STATE TO  BENE DEMO  RPT
  55    S ZZBZIP= $P(ZZADR," ^",5) G:ZZ BZIP="" GE TBFN
  56    S ZZBZIP= $E(ZZBZIP, 1,5)
  57    I '$D(^AH CHVA("A-ST ATE",ZZST, DFN,BFN))  G GETBFN ; TLH 021406  MODIFIED  TO COMPARE  STATE TO  BENE DEMO  RPT
  58    S:'$D(^CH MZHOLD("EA -BY-ZIP",Z ZBZIP)) ^C HMZHOLD("E A-BY-ZIP", ZZBZIP)=0
  59    S ^CHMZHO LD("EA-BY- ZIP",ZZBZI P)=^CHMZHO LD("EA-BY- ZIP",ZZBZI P)+1
  60    S CNT=CNT +1 
  61    G GETBFN  ;ALL BENES
  62    Q
  63   END ;
  64    D PRINT
  65    Q
  66   PRINT ;CRE ATE FILE
  67    ;USE NEXT  LINE IN D EV/TRN
  68    ;S FIO="H AC_HFS$:[D SMMANAG]CH V_BENEZIP. DAT"
  69    ;USE NEXT  LINE IN l ive
  70    S FIO="HA CFS3"" DNS     coledec We lcome1!"": :D:[FS3BIG ]CHV_BENEZ IP.DAT"
  71    ;O FIO C  FIO:"D"
  72    O FIO:"NW V"
  73    Q:$TEST=0
  74    S T=$C(9)
  75    S TITLE=" BENEFICIAR Y STATISTI CS FROM "_ $$FMTE^XLF DT(STDATE, "5D")_" TO  "_$$FMTE^ XLFDT(EDDA TE,"5D")
  76    U FIO W ! ,TITLE
  77    S TITLE=" BENEFICIAR IES WITH P ERIODS OF  ELIGIBILIT Y BY ZIP C ODE"
  78    U FIO W ! ,TITLE
  79   RPTHDR ;RE PORT HEADE R TITLE &  COLUMNS
  80    S TITL="H EALTH ADMI NISTRATION  CENTER"
  81    U FIO W ! ,TITL
  82    U FIO W ! ,"ZIP CODE "_T_"BENE  COUNTS"
  83    S ZZPG=0, ZIPTTL=0
  84    
  85    S ZZBZIP= ""
  86   SORT S ZZB ZIP=$O(^CH MZHOLD("EA -BY-ZIP",Z ZBZIP)) G: ZZBZIP=""  PEND
  87    S:$D(^CHM ZHOLD("EA- BY-ZIP",ZZ BZIP)) ZIP TTL=^CHMZH OLD("EA-BY -ZIP",ZZBZ IP)
  88    S TMPS=ZZ BZIP_T_ZIP TTL
  89    U FIO W ! ,TMPS
  90    G SORT
  91   PEND C FIO
  92    K ZZBZIP, ZIPTTL,ZZD ATE,DFN,BF N,ZZPG,HDR ,ZZADR
  93    K STDATE, ENDATE
  94    K ^CHMZHO LD("EA-BY- ZIP")
  95    K FIO
  96    Q