Produced by Araxis Merge on 11/9/2018 12:33:57 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 | CHMK4683.m | Mon Nov 5 16:43:17 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMK4683.m | Mon Nov 5 17:48:31 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 268 |
Changed | 2 | 4 |
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 | CHMK4683 ; HAC/AHJ;PU LL DATA FO R CLAIMS D ATE RANGE OVER $100K | |
2 | ;04 Apr 2 008 10:17 AM | |
3 | ;SEARCH C LAIMS FILE FOR DATE RANGE OUTP UT CLAIMS | |
4 | ;OUTPUT C LAIMS FOR PRINT IN Z AL1223B | |
5 | ; | |
6 | S U="^" | |
7 | CHAMPVA ; | |
8 | S (AGE18, CNT109,TOT DFN,TOTCNT ,NOCLM,NOC CNT,SBCNT, CNT,PCNT,N OAECNT,YAE CNT)=0 | |
9 | S (NOZIPC NT,ICNT,DF NCNT,TOTDF N1,BICNT,B CNT,FMPCNT ,YES18CNT, NO18CNT)=0 | |
10 | S (SPONCN T,DIAGCD,P ROCCD,NDCC ODE,DESC)= 0 | |
11 | S SWYESCL M=0 | |
12 | S T=$C(9) | |
13 | S PG=1 | |
14 | S DFN=0,U ="^" | |
15 | ;-------- ---------C LAIMS | |
16 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]CR4683CLA IMS_FISCAL _2008.TXT" | |
17 | ;O FIO C FIO:"D" | |
18 | ;O FIO:"N WS" | |
19 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
20 | S FILENM2 ="CR4683CL AIMS_FISCA L_2008.TXT " | |
21 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2 | |
22 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
23 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
24 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") Q | |
25 | K ^CHMZHO LD("NOTCOM PLETEDCLAI MS4683") | |
26 | K ^CHMZHO LD("4683CL AIMS") | |
27 | ; | |
28 | A1 ; | |
29 | ;FIND TOD AYS DATE F OR AGE TES T | |
30 | D NOW^%DT C S RUNTIM E=% | |
31 | S Y=$E(RU NTIME,1,7) | |
32 | S CHDATE= Y | |
33 | ; 18 MO NTHS | |
34 | ;S X1=CHD ATE S X2=- 548 D C^%D TC S STRDA T=X | |
35 | ; STRDAT = Start D ate | |
36 | ; CHDATE = Todays Date | |
37 | S TODAY=C HDATE | |
38 | ;S DAT18= STRDAT | |
39 | D HEAD | |
40 | G START | |
41 | START ; | |
42 | S CHCLMI= "NA00000" | |
43 | S U="^" | |
44 | S (CHCLM, CNT,DFN)=0 | |
45 | D GETI,EN D | |
46 | Q | |
47 | GETI ; | |
48 | S CHCLMI= $O(^CHMPAY ("B",CHCLM I)) Q:CHCL MI="" | |
49 | S CL=4474 6600 | |
50 | GETJ S CL= $O(^CHMPAY ("B",CHCLM I,CL)) G:' CL GETI | |
51 | G:'$D(^CH MPAY(CL,0) ) GETI | |
52 | ; | |
53 | GETDT ; | |
54 | S CLDATA= ^CHMPAY(CL ,0) | |
55 | ; | |
56 | S DFN=$P( CLDATA,U,2 1) | |
57 | S BFN=$P( CLDATA,U,2 2) | |
58 | ; | |
59 | ;S PDDAT= $P(CLDATA, U,25) ;CLA IM CREATIO N DATE RAN GE | |
60 | ;S MAINDA T=$E(PDDAT ,1,7) | |
61 | ;I MAINDA T<3060701 G GETJ | |
62 | ;I MAINDA T>3060930 G GETJ | |
63 | S SERDAT= $P(CLDATA, U,8) ;CLAI M SERVICE DATE RANGE | |
64 | S MAINDAT =$E(SERDAT ,1,7) | |
65 | ;W !,CL," ",MAINDAT | |
66 | I MAINDAT <3071001 G GETJ | |
67 | I MAINDAT >3080931 G GETJ | |
68 | ; | |
69 | S CI=CL | |
70 | ; | |
71 | CLAIMDAT ; | |
72 | I $D(^CHM PAY(CI,"CO MMON")) S COMMON=$G( ^CHMPAY(CI ,"COMMON") ) | |
73 | ; | |
74 | ;S TYPE=$ P(^CHMPAY( CI,0),"^", 7) | |
75 | ;I TYPE'= 1 G GETJ ; BYPASS AL L CLAIMS N OT INPATIE NT | |
76 | ;W !,TYPE ," ",CL," ",MAINDAT | |
77 | ; | |
78 | ;S BILLCH G=$P(COMMO N,U,1) ;BI LL CHARGE AMOUNT | |
79 | ;I BILLCH G<100000.0 0 G GETJ | |
80 | ; | |
81 | I '$D(^CH MPAY(CI,0) ) G GETJ | |
82 | S CLM0=^C HMPAY(CI,0 ) | |
83 | I '$D(^CH MPAY(CI,1) ) G GETJ | |
84 | S CLM1=^C HMPAY(CI,1 ) | |
85 | ;I $P(CLM 0,U,7)'="" S SERVTYP =$P(CLM0," ^",7) | |
86 | ;S:'$D(CL N0,U,3) VE NID="" | |
87 | ;I $P(CLM 0,U,3)'="" S VENID=$ P(CLM0,"^" ,3) | |
88 | ;S VENZIP =$P(^CHMVE N(VENID,4) ,U,6) ;BIL LING ZIP | |
89 | S CLMAMT= $P(CLM1,U, 1) ; CLAIM AMOUNT | |
90 | ;S VENPT= "" | |
91 | ;I $P(^CH MPAY(CI,"C OMMON"),"^ ",2)="" G JUMP | |
92 | ;S VENTYP ="UN" G JU MP | |
93 | S:$D(^CHM PAY(CI,"CO MMON")) BI LLAMT=$P(^ ("COMMON") ,U,1) | |
94 | S:$D(^CHM PAY(CI,"CO MMON")) AL LOWAMT=$P( ^("COMMON" ),U,7) | |
95 | JUMP ; | |
96 | ;S CLMAMT =$P(^CHMPA Y(CI,1),"^ ",1) ;CLAI M AMOUNT | |
97 | ;W !,TYPE ," ",CL," ",MAINDAT, " ",CLMAMT | |
98 | I CLMAMT< 100000.00 G GETJ | |
99 | ; | |
100 | ;NEXT 2 L INES BYPAS S ANY NOT COMPLETED CLAIMS | |
101 | G:'$D(^CH MPAY(CI,0) ) GETJ | |
102 | I $P(^CHM PAY(CI,0), "^",2)'=4 S ^CHMZHOL D("NOTCOMP LETEDCLAIM S4683",DFN ,BFN,CI)=D FN_U_BFN_U G GETJ | |
103 | S CLMNO=$ P(^CHMPAY( CI,0),"^", 1) | |
104 | S Y=MAIND AT D DD^%D T S PDATE= Y | |
105 | CLAIMS4 ; | |
106 | ; | |
107 | ;S TEMP=C LMNO_T_SER VTYP_T_PDA TE_T_VENTY PNM_T_VENZ IP_T_$J(CL MAMT,12,2) | |
108 | S TEMP=CL MNO_T_PDAT E_T_$J(BIL LAMT,12,2) _T_$J(ALLO WAMT,12,2) _T ;TEST O NLY | |
109 | U FIO W ! ,TEMP | |
110 | ; | |
111 | ;CONVERT PDI TO CLA IM FILED D ATE | |
112 | S PDIJ="" | |
113 | S PDIJ=$O (^CHMPAY(C I,"PDI","B ",PDIJ),-1 ) | |
114 | I PDIJ="" S PDIJ=0 | |
115 | CLAIMOUT ; | |
116 | S ^CHMZHO LD("4683CL AIMS-OVER1 00K",DFN,B FN,CI)=CLM AMT | |
117 | S TOTCNT= TOTCNT+1 | |
118 | G GETJ | |
119 | Q | |
120 | HEAD ; | |
121 | S Y=TODAY D DD^%DT S PTODAY=Y | |
122 | ;W !,"Fis cal year 2 008 Claims Service D ate" | |
123 | U FIO W " Oct 1, 200 7 Fiscal Y ear 2008 C laims Serv ice Date t hrough ",P TODAY | |
124 | ;W !,"Cla im #"," ","Servi ce Date"," "," Claim Pd A mt" | |
125 | U FIO W ! ,"Claim #" _T_"Servic e Date"_T_ "Billed Am t"_T_"Allo wed Amt" | |
126 | Q | |
127 | END ; | |
128 | U FIO W ! ,"CLAIMS C OUNT =",TO TCNT | |
129 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
130 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
131 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") | |
132 | ;C FIO | |
133 | K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2 | |
134 | K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS,U | |
135 | ; | |
136 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.