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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 190 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.