Produced by Araxis Merge on 11/9/2018 12:33:58 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 | CHMKCSSR.m | Mon Nov 5 16:40:31 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKCSSR.m | Mon Nov 5 17:48:49 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 290 |
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 | CHMKCSSR ; HAC/AHJ;PU LL DATA FR OM CLAIMS | |
2 | ;;V1.0 | |
3 | ; | |
4 | S U="^" | |
5 | CHAMPVA ; | |
6 | S (CNT,PC NT,NOAECNT ,YAECNT)=0 | |
7 | S (YES18C NT,NO18CNT )=0 | |
8 | ; | |
9 | ; | |
10 | S T=$C(9) | |
11 | S PG=1 | |
12 | S DFN=0,U ="^" | |
13 | S (TYPE,P MTAMT)=0 | |
14 | A3 ; | |
15 | W !,"Enter the Start date : " D CSBRS^CH SC2 | |
16 | Q :$D(DUOUT) Q:$D(DFO UT) | |
17 | G :$D(DFOUT) END G:$D( DUOUT) A3 | |
18 | I $D(DQOUT) W !,"Ente r the date to start with." G A 3 | |
19 | ; S:Y="" Y=" A" S TMP=$ E(Y,1) S T MP=$$UP^XL FSTR(TMP) I TMP="A" D G A10 | |
20 | ; .S STDATE= 2600101,ED DATE=DT Q | |
21 | S %DT="X",X =Y D ^%DT K %DT I Y= -1 W !,"IN VALID DATE . PLEASE R EENTER" G A3 | |
22 | S STDATE=Y | |
23 | A4 ; | |
24 | W !,"Enter the End da te: " D CS BRS^CHSC2 | |
25 | G :$D(DFOUT) END G:$D( DUOUT) A3 | |
26 | I $D(DQOUT) W !,"Ente r the date to stop o n." G A4 | |
27 | I Y="" W !, "You must enter a st op date" G A4 | |
28 | S %DT="X",X =Y D ^%DT K %DT I Y= -1 W !,"IN VALID DATE . PLEASE R EENTER" G A4 | |
29 | S EDDATE=Y ; | |
30 | ; | |
31 | ; | |
32 | ; | |
33 | ; | |
34 | I EDDATE< STDATE D G A3 | |
35 | .W !,"End date must be after "_$$FMTE^ XLFDT(CHBG DT,"5D")_" . Please try again. " | |
36 | .Q | |
37 | G:EDDATE= "^" END | |
38 | G:$D(DFOU T) END G:$ D(DUOUT) A 3 | |
39 | ; | |
40 | S BEGDT=$ E(STDATE,4 ,5)_$E(STD ATE,6,7)_$ E(STDATE,2 ,3) | |
41 | ; | |
42 | K ^CHMZHO LD("DEV186 0-PRINT-RE C") ; | |
43 | ; | |
44 | ;[FS3BIG. CODEUPDT.I DMEUPDT."_ ENVIR_"]"_ PNAME | |
45 | ; | |
46 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .COST-SHAR E-REPORT]C SR-"_BEGDT _".XLS" | |
47 | ;O FIO C FIO:"D" | |
48 | ;O FIO:"N WV" | |
49 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
50 | S FILE NM2="CSR-" _BEGDT_".X LS" | |
51 | S FIO= "HAC_HFS$: [SCR.TEMP_ FILES]"_FI LENM2 | |
52 | I UCI' ="HAC" S F IO="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM2 | |
53 | X "D $ SYSTEM.Pro cess.SetZE OF(1)" | |
54 | I '$$O PENFIWR^CH TFLIB9(.FI O,"FIO") Q | |
55 | A1 ; | |
56 | ;FIND TOD AYS DATE F OR AGE TES T | |
57 | D NOW^%DT C S RUNTIM E=% | |
58 | S Y=$E(RU NTIME,1,7) | |
59 | S CHDATE= Y | |
60 | ; 18 MO NTHS | |
61 | ;S X1=CHD ATE S X2=- 548 D C^%D TC S STRDA T=X | |
62 | ; STRDAT = Start D ate | |
63 | ;S STRDAT =3040930 | |
64 | ;S ENDDAT =3060101 | |
65 | ; CHDATE = Todays Date | |
66 | S TODAY=C HDATE | |
67 | START ; | |
68 | ; | |
69 | S FINDST= $E(STDATE, 2,3) | |
70 | I FINDST= "02" S CHC LMI="DU000 00" | |
71 | I FINDST= "03" S CHC LMI="EY000 00" | |
72 | I FINDST= "04" S CHC LMI="GS000 00" | |
73 | I FINDST= "05" S CHC LMI="IW000 00" ;256 | |
74 | I FINDST= "06" S CHC LMI="LL000 00" ;323 | |
75 | I FINDST= "07" S CHC LMI="NT000 00" ;383 | |
76 | I FINDST= "08" S CHC LMI="RP000 00" ;483 | |
77 | I FINDST= "09" S CHC LMI="VL000 00" ;583 | |
78 | I FINDST> "09" S CHC LMI="ZH000 00" ;683 | |
79 | ;S CHCLMI ="GW00000" | |
80 | ;S CHCLMI ="HQ00000" | |
81 | S U="^" | |
82 | S (CHCLM, CNT,DFN)=0 | |
83 | ;******** ********** ********** ********** ********NE XT LINE OU T FOR TEST ONLY | |
84 | U FIO W " Claim #",T ,"Bene Nam e",T,"Date of Servic e",T,"Comp leted Date ",T,"Payme nt Amt",! | |
85 | ;D GETI | |
86 | ;G CLMDON E | |
87 | ;Q | |
88 | GETI ; | |
89 | S CHCLMI= $O(^CHMPAY ("B",CHCLM I)) I CHCL MI="" G EN D | |
90 | S CI=0 | |
91 | ; | |
92 | GETJ S CI= $O(^CHMPAY ("B",CHCLM I,CI)) I C I="" G GET I | |
93 | G:'$D(^CH MPAY(CI,0) ) GETI | |
94 | ; | |
95 | GETDT ; | |
96 | ;W !,CHCL MI | |
97 | S CLDATA= ^CHMPAY(CI ,0) | |
98 | S TYPE=$P (CLDATA,U, 7) | |
99 | S STATUS= $P(CLDATA, U,2) | |
100 | ; | |
101 | ;G:'$D(^C HMPAY(CI," INP")) GET J | |
102 | ;S CLINP= ^CHMPAY(CI ,"INP") | |
103 | ; | |
104 | ;S ADDAT= $P(CLINP,U ,13) ;ADMI SSION DATE | |
105 | S DOSDAT= $P(CLDATA, U,8) ;DATE OF SERVIC E | |
106 | S RCOMDAT =$P(CLDATA ,U,10) ; D ATE COMPLE TE | |
107 | S COMDAT= $E(RCOMDAT ,1,7) | |
108 | ;S DSDAT= $P(CLINP,U ,1) ;DISCH ARGE DATE | |
109 | S DFN=$P( CLDATA,U,2 1) | |
110 | S BFN=$P( CLDATA,U,2 2) | |
111 | I DOSDAT< 3000101 G GETJ | |
112 | DATECK ; | |
113 | ;W !,CHCL MI," CO MPLETED=", COMDAT | |
114 | ;I DOSDAT >3011231 I DOSDAT<30 70301 G JU MP | |
115 | I COMDAT> =STDATE I COMDAT<=ED DATE G JUM P | |
116 | G GETJ | |
117 | JUMP ; | |
118 | G:'$D(^CH MPAY(CI,1) ) GETJ | |
119 | S PMTAMT= $P(^CHMPAY (CI,1),U,1 ) ;PAYMENT AMOUNT OV ER $12000. 00 | |
120 | G:'$D(PMT AMT) GETJ | |
121 | ;W !,CHCL MI," ",PMTA MT | |
122 | I PMTAMT< 12000.00 G GETJ | |
123 | S BCSTSHR =$P(^CHMPA Y(CI,1),U, 6) ;BENE C OST SHARE OVER $2950 .00 | |
124 | ;W !,CI," ",DOSDAT, " ",PMTAMT ," ",BCSTS HR | |
125 | I BCSTSHR <2950.00 G GETJ | |
126 | OK ; | |
127 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETJ | |
128 | S NAMLAB= ^AHCHVA(DF N,100,BFN, 0) | |
129 | S BNAM=$P (NAMLAB,U, 1) | |
130 | S Y=DOSDA T D DD^%DT S PDOSDAT =Y | |
131 | S Y=COMDA T D DD^%DT S PCOMDAT =Y | |
132 | ;W !,CHCL MI," ",B NAM,?40,PD OSDAT,?55, BCSTSHR,?6 5,$J(PMTAM T,10,2) | |
133 | ;NEXT FIL E FOR QA V ERIFICATIO N OF DATA | |
134 | S ^CHMZHO LD("DEV186 0-PRINT-RE C",CHCLMI) =BNAM_U_PD OSDAT_U_PC OMDAT_U_PM TAMT_U_TYP E_U_STATUS _U | |
135 | S T=$C(9) | |
136 | S TEMP=CH CLMI_T_BNA M_T_PDOSDA T_T_PCOMDA T_T_PMTAMT _T | |
137 | ;******** ********** ********** ********** *********N EXT LINE O UT FOR TES T ONLY | |
138 | U FIO W T EMP,! | |
139 | S CNT=CNT +1 | |
140 | G GETJ | |
141 | END ; | |
142 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
143 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
144 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG .COST-SHAR E-REPORT", "PUT") | |
145 | ;C FIO | |
146 | ;W !,CNT | |
147 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.