Produced by Araxis Merge on 11/9/2018 12:33:59 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 | CHMKHCL2.m | Mon Nov 5 16:44:34 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKHCL2.m | Mon Nov 5 17:49:01 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 178 |
Changed | 3 | 10 |
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 | CHMKHCL2 ; HAC/AHJ;OU TPUT TO FS 3BIG HIGH DOLLAR CLA IMS DATE R ANGE OVER $10K | |
2 | ;;V1.0 | |
3 | ;OUTPUT F ORM CHMKHC L1 | |
4 | ;MTN01575 1 ADDED NO TIFICATION WHEN COMP LETE DEACT IVATED TAG ZSET | |
5 | ;DEV00644 1 DGC 08/1 5/2013 - A DD LO-HI $ AMT RANGE | |
6 | ; | |
7 | ;ZSET S:' $D(DUZ) DU Z=1,DUZ(0) ="" I '$D( DT) S %DT= "",X="T" D ^%DT S DT =Y MTN015 751 DPTTES T | |
8 | ; S:'$D(I OZFO) IOZF O="^^" S:' $D(IOZBK) IOZBK="^" S:'$D(DTIM E) DTIME=6 0 | |
9 | ; I '$D(I OZ) S %ZIS ="N" S IOP ="HOME" D HOME^%ZIS S IOZ=IO,I OZL=IOSL,I OZW=IOM,IO ZF=IOF,IOZ T=IOST,IOZ N=ION,IOZS =IOS | |
10 | CHAMPVA ; | |
11 | S (AGE18, CNT109,TOT DFN,TOTCNT ,NOCLM,NOC CNT,SBCNT, CNT,PCNT,N OAECNT,YAE CNT)=0 | |
12 | S (NOZIPC NT,ICNT,DF NCNT,TOTDF N1,BICNT,B CNT,FMPCNT ,YES18CNT, NO18CNT)=0 | |
13 | ;S (SPONC NT,DIAGCD, PROCCD,NDC CODE,DESC) =0 | |
14 | ;S SWYESC LM=0 | |
15 | S CLDATA= 0 | |
16 | S T=$C(9) | |
17 | S PG=1 | |
18 | S DFN=0,U ="^" | |
19 | D NOW^%DT C S RUNTIM E=% | |
20 | S Y=$E(RU NTIME,1,7) | |
21 | S HDDATE= Y ; | |
22 | S HDDAT=$ E(HDDATE,4 ,5)_"/"_$E (HDDATE,6, 7)_"/"_$E( HDDATE,2,3 ) | |
23 | S HDTIME= $E(RUNTIME ,9,10)_":" _$E(RUNTIM E,11,12) | |
24 | S STRALL= SMODA_STRY R | |
25 | S ENDALL= EMODA_ENDY R | |
26 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .HIGH-DOLL AR-CLAIMS] IG-BPO-HIG HDOLLARCLA IMS-"_STRA LL_"-"_END ALL_".TXT" | |
27 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]ALTEXT-"_ STRALL_"-" _ENDALL_". TXT" | |
28 | ;O FIO C FIO:"D" | |
29 | ;O FIO:"N WS" | |
30 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
31 | S FILENM2 ="IG-BPO-H IGHDOLLARC LAIMS-"_ST RALL_"-"_E NDALL_".TX T" | |
32 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2 | |
33 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
34 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
35 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") Q | |
36 | D HEAD | |
37 | S BNAME=0 | |
38 | START1 ; | |
39 | S BNAME=$ O( ^CHMZHO LD($J,"357 0CLAIMS-OV ER10K",BNA ME)) I BNA ME="" G EN D | |
40 | S DFN=0 | |
41 | START2 ; | |
42 | S DFN=$O( ^CHMZHOLD( $J,"3570CL AIMS-OVER1 0K",BNAME, DFN)) G:'D FN START1 | |
43 | S BFN=0 | |
44 | START3 ; | |
45 | S BFN=$O( ^CHMZHOLD( $J,"3570CL AIMS-OVER1 0K",BNAME, DFN,BFN)) G:'BFN STA RT2 | |
46 | ;S CI=0 | |
47 | START4 ; | |
48 | S CI=$O(^ CHMZHOLD($ J,"3570CLA IMS-OVER10 K",BNAME,D FN,BFN,CI) ) G:'CI ST ART3 | |
49 | S CLDATA= ^CHMZHOLD( $J,"3570CL AIMS-OVER1 0K",BNAME, DFN,BFN,CI ) | |
50 | ;S CLDATA =^CHMZHOLD ($J,"3570C LAIMS-OVER 10K",BNAME ,DFN,BFN) | |
51 | S CLMNO=$ P(CLDATA,U ,1) | |
52 | S BENENAM E=$P(CLDAT A,U,2) | |
53 | S PDATE=$ P(CLDATA,U ,3) | |
54 | S CLMAMT= $P(CLDATA, U,4) | |
55 | S PCOMPDA T=$P(CLDAT A,U,5) | |
56 | ;S CHDT2 =3070831 | |
57 | ;S TEMP=C LMNO_T_BEN ENAME_T_PD ATE_T_$J(C LMAMT,12,2 )_T_PCOMPD AT_T ;DGC 8/2 9/2013 DEV 006441 | |
58 | ; | |
59 | U FIO W C LMNO,?9,BE NENAME,?37 ,PDATE,?50 ,$J(CLMAMT ,12,2),?66 ,PCOMPDAT, ! ;TEMP,! ;D GC 8/29/20 13 DEV0064 41 | |
60 | G START4 | |
61 | HEAD ; | |
62 | S Y=CHDT D DD^%DT S CHDTP=Y | |
63 | S Y=CHDT2 D DD^%DT S CHDT2P=Y | |
64 | U FIO W D UZ," HEALTH ADM INISTRATIO N CENTER", ! | |
65 | U FIO W H DDAT," ",H DTIME," High Dol lar Claims from ",CH DTP," thr ough ",CHD T2P,! | |
66 | U FIO W ? 19,"PAID A MT RANGE", ?35,"LO AM T:",$J(CHL AMT,10,2), ?57,"HI AM T:",$J(CHH AMT,10,2), !! ;DGC 8/29/2013 DEV006441 | |
67 | ;U FIO W "START DAT E=",CHDTP, " END DATE=",CHD T2P,! | |
68 | U FIO W " Claim #",? 9,"Benefic ary name", ?37,"Servi ce Date",? 50,"Claim Pd Amt",?6 5,"Complet ed Date",! ! ;DGC 8 /29/2013 D EV006441 | |
69 | Q | |
70 | END ; | |
71 | ;U FIO W !,"CLAIMS COUNT =",T OTCNT | |
72 | ;C FIO | |
73 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
74 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
75 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG .HIGH-DOLL AR-CLAIMS" ,"PUT") | |
76 | D NOTIFY ;MTN015751 | |
77 | W DT | |
78 | K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2 | |
79 | K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS,U | |
80 | ; | |
81 | Q | |
82 | NOTIFY ;SE ND MS-EXCH ANGE EMAIL S FROM VIS TA | |
83 | ; | |
84 | S XMSUB=" CLAIMS OVE R10K "_$$ FMTE^XLFDT (DT,"5D") ;MTN01575 1 | |
85 | S XMDUZ=" " ;MTN0157 51 | |
86 | S XMY("41 2688")="" ;MTN015751 | |
87 | ;D UCI^%Z OSV I $P(Y ,",",1)="D EV" S XMY( " PII ")="" ;MTN 015751 | |
88 | S XMY("
|
|
89 | S TEXT(1) ="The HIGH DOLLAR re port is av ailable " ;MTN015751 | |
90 | S XMTEXT= "TEXT(" ;M TN015751 | |
91 | D ^XMD ;M TN015751 | |
92 | K XMY,XMD UZ,TEXT,XM TEXT,XMSUB ;MTN01575 1 | |
93 | Q ;MTN015 751 | |
94 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.