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 | CHMKCINP.m | Mon Nov 5 16:40:48 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKCINP.m | Mon Nov 5 17:48:44 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 226 |
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 | CHMKCINP ; CVA/JEH;IN PATIENT CO UNTER FOR IDME;10/16 /08 4:15 PM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Buil d 10 | |
3 | ; | |
4 | ;S START= 3041002 ;LIVE - 3080630 | |
5 | ;S END=30 70529 ; 30 81016 | |
6 | ;JEH 2/1/ 11 DEV0078 20 - SLLA - REMOVE/F IX ENVIR() LINE TAG | |
7 | ; | |
8 | W !! S %D T="AEX",%D T("A")="En ter START date: (308 0630) " D ^%DT Q:X=" " Q:Y=-1 S START=Y | |
9 | W ! S %DT ="AEX",%DT ("A")="Ent er END dat e: (308101 6) " D ^%D T Q:X="" Q:Y=-1 S END=Y | |
10 | ; | |
11 | D OFILE | |
12 | ; | |
13 | S CTR=0 | |
14 | S CLMTOT= 0 | |
15 | S I=START F S I=$O (^CHBPACC( "D",I)) Q: 'I!(I>=END ) D | |
16 | .S J=0 F S J=$O(^C HBPACC("D" ,I,J)) Q:' J D | |
17 | ..S CLMNU M=$P(^CHBP ACC(J,0)," ^",1) | |
18 | ..I CLMNU M'["FMP" D | |
19 | ...S CLMP TR=0 S CLM PTR=$O(^CH MPAY("B",C LMNUM,CLMP TR)) | |
20 | ...I $G(C LMPTR) I $ D(^CHMPAY( CLMPTR,0)) D | |
21 | ....Q:$P( ^CHMPAY(CL MPTR,"COMM ON"),"^",1 6)'=0 ; CALCULATIO N METHOD U SED | |
22 | ....I $P( ^CHMPAY(CL MPTR,0),"^ ",7)=1 D | |
23 | .....S DS DDT=$P(^CH MPAY(CLMPT R,0),"^",8 ) ;DATE OF SERVICE | |
24 | .....I $P (^CHMPAY(C LMPTR,0)," ^",25)>STA RT D | |
25 | ......S C HVNDR=$P(^ CHMPAY(CLM PTR,0),"^" ,3) ;GET TING VENDO R ID | |
26 | ......S ( CHVDMCR80, CHVDMCR81) =0 | |
27 | ......I $ D(^CHMVEN( CHVNDR,80) ) D | |
28 | .......S JJ=START S JJ=$O(^CH MVEN(CHVND R,80,DSDDT ),-1) | |
29 | .......S: $D(^CHMVEN (CHVNDR,80 ,JJ,0)) CH VDMCR80=$P (^CHMVEN(C HVNDR,80,J J,0),"^",2 ) | |
30 | ......I $ D(^CHMVEN( CHVNDR,81) ) D | |
31 | .......S JJ=START S JJ=$O(^CH MVEN(CHVND R,81,DSDDT ),-1) | |
32 | .......S: $D(^CHMVEN (CHVNDR,81 ,JJ,0)) CH VDMCR81=$P (^CHMVEN(C HVNDR,81,J J,0),"^",2 ) | |
33 | ......I $ G(CHVDMCR8 0) I $D(^C HMDIC(7410 06.07,"B", CHVDMCR80) ) D Q | |
34 | .......S PRVRI=0 S PRVRI=$O(^ CHMDIC(741 006.07,"B" ,CHVDMCR80 ,PRVRI)) | |
35 | .......S PRVRJ=0 F S PRVRJ=$ O(^CHMDIC( 741006.07, PRVRI,1,PR VRJ)) Q:'P RVRJ D | |
36 | ........I $P(^CHMDI C(741006.0 7,PRVRI,1, PRVRJ,0)," ^",1)<=DSD DT&(DSDDT< =$P(^CHMDI C(741006.0 7,PRVRI,1, PRVRJ,0)," ^",2)) D | |
37 | ......... D:$P(^CHMD IC(741006. 07,PRVRI,1 ,PRVRJ,0), "^",3)'="" CLMCALC | |
38 | ......I $ G(CHVDMCR8 1) I $D(^C HMDIC(7410 06.07,"B", CHVDMCR81) ) D Q | |
39 | .......S PRVRI=0 S PRVRI=$O(^ CHMDIC(741 006.07,"B" ,CHVDMCR81 ,PRVRI)) | |
40 | .......S PRVRJ=0 F S PRVRJ=$ O(^CHMDIC( 741006.07, PRVRI,1,PR VRJ)) Q:'P RVRJ D | |
41 | ........I $P(^CHMDI C(741006.0 7,PRVRI,1, PRVRJ,0)," ^",1)<=DSD DT&(DSDDT< =$P(^CHMDI C(741006.0 7,PRVRI,1, PRVRJ,0)," ^",2)) D | |
42 | ......... D:$P(^CHMD IC(741006. 07,PRVRI,1 ,PRVRJ,0), "^",3)'="" CLMCALC | |
43 | ;C FILE | |
44 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
45 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
46 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG .OCIO_DATA ","PUT") | |
47 | Q | |
48 | CLMCALC ; | |
49 | S CTR=CTR +1 | |
50 | S CLMAMT= $P(^CHBPAC C(J,0),"^" ,5) ; CLAIM AMOU NT PAID/AC CEPTED IN AUSTIN | |
51 | S CCLMAMT =$P(^CHMPA Y(CLMPTR," COMMON")," ^",7) ;C ALCULATED ALLOWABLE AMOUNT | |
52 | S CLMTOT= CLMTOT+CLM AMT | |
53 | S CLMNAM= $P(^CHMPAY (CLMPTR,0) ,"^",1) ;CLAIM NUM BER | |
54 | S CVNAM=$ P(^CHMVEN( CHVNDR,0), "^",1) ;VENDOR NA ME | |
55 | ; | |
56 | S NCCMAMT =$$DRGCALC ^CHMKCINP | |
57 | Q:NCCMAMT =0 | |
58 | ; | |
59 | I NCCMAMT >0 D | |
60 | .U 0 W !, CTR,?5,CLM NAM,?15,$E (CVNAM,1,2 0),?45,CLM AMT,?55,CC LMAMT,?68, $E(NCCMAMT ,1,10) | |
61 | .U 0 W !? 40,CHWISV, ?50,CHIDME SV | |
62 | U FIO W ! ,CTR,?5,CL MNAM,?15,$ E(CVNAM,1, 20),?45,CL MAMT,?55,C CLMAMT,?68 ,NCCMAMT,? 80,CHWISV, ?90,CHIDME SV | |
63 | Q | |
64 | OFILE ; | |
65 | ;S FILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .OCIO_DATA ]INPCLMS_R ECALC_2_"_ $$ENVIR^CH TFLIB_".TX T" ;JEH 2/1/1 1 DEV00782 0 - SLLA | |
66 | ;O FILE:" NWRS":5 | |
67 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
68 | S FILENM2 ="INPCLMS_ RECALC_2_" _$$ENVIR^C HTFLIB_".T XT" | |
69 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2 | |
70 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
71 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
72 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") Q | |
73 | U 0 W !,? 5,"CLAIM # ",?15,"VEN DOR NAME", ?45,"AMT P AID",?55," C ALLW AMT ",?68,"REC ALC",?80," WI",?90,"I DME",! | |
74 | U FIO W ? 5,"CLAIM # ",?15,"VEN DOR NAME", ?45,"AMT P AID",?55," C ALLW AMT ",?68,"REC ALC","RECA LC",?80,"W I",?90,"ID ME",! | |
75 | Q | |
76 | DRGCALC() ;MANUAL CA LC OF 'CAL CULATED AL LOWABLE AM OUNT' USIN G DRG CALC ULATOR - S IMULATE RU NNING CLAI M THROUGH BC | |
77 | ;N CCMANT = N EW CACLULA TED CLAIM AMOUNT | |
78 | S DSD=$P(^CH MPAY(CLMPT R,"INP")," ^",1) ; DISCHARGE DATE | |
79 | I DSD<304100 1 S ^CHMZH OLD("CHMKC INP",CLMPT R)="" | |
80 | Q: $G(DSD)<30 41001 0 | |
81 | S DOS=$P(^CH MPAY(CLMPT R,0),"^",8 ) ;DAT E OF SERVI CE | |
82 | S RSD=999999 9-DSD ;R EVERSED DI SCHARGE DA TE | |
83 | S DRG=+$P(^C HMPAY(CLMP TR,"COMMON "),"^",8) ;DRG AS SIGNED | |
84 | Q: '$G(DRG) 0 | |
85 | S CHVNPTR=$P (^CHMPAY(C LMPTR,0)," ^",3) ;VE NDOR POINT ER | |
86 | S ST=$P(^CHM VEN(CHVNPT R,2),"^",4 ) ;PROVI DER STATE | |
87 | S ZIP=$E($P( ^CHMVEN(CH VNPTR,2)," ^",5),1,5) ;PROVID ER ZIP COD E | |
88 | S VC=$O(^CHM SMSA("ZIP" ,ZIP,ST,0) ) | |
89 | Q: '$G(VC) 0 | |
90 | S CHCNTY=$P( ^CHMSMSA(S T,1,VC,0), "^",1) ; PROVIDER C OUNTY | |
91 | S CHV80J=DSD +1,CHV80J= $O(^CHMVEN (CHVNPTR,8 0,CHV80J), -1) | |
92 | S CHMEDNO=$P ($G(^CHMVE N(CHVNPTR, 80,CHV80J, 0)),U,2) | |
93 | I $$UP PER^CHTFLI B($G(CHMED NO))="YES" S CHMEDNO =999999 | |
94 | I CHMEDNO ="" S CHME DNO=999999 | |
95 | I $L(CHME DNO)'=6 S CHMEDNO=99 9999 | |
96 | S CHMC BDT=$P($G( ^CHMVEN(CH VNPTR,80,C HV80J,0)), U,1) | |
97 | S CHBLDAMT=$ P(^CHMPAY( CLMPTR,"CO MMON"),"^" ,1) ;TO TAL BILLED AMOUNT | |
98 | S X1=DSD,X2= DOS D ^%DT C S LOS=X I LOS=0 S LOS=1 ; LENGTH OF STAY | |
99 | S CH=0 F CHI =21,71,72, 73,74,75,7 6,77,78,79 I CHI=$P( ^CHMVEN(CH VNPTR,1)," ^",7) S CH =1 ;CHI LDRENS HOS P 0=NO 1=Y ES | |
100 | S TR=0 I $P( ^CHMPAY(CL MPTR,"INP" ),"^",2)=2 S TR=1 ;TRANSFER 0=NO 1=YE S | |
101 | S SPN=$P(^CH MPAY(CLMPT R,0),"^",2 1) ;SPON SOR | |
102 | S BFN=$P(^CH MPAY(CLMPT R,0),"^",2 2) ; BEN | |
103 | S X1=DT,X2=$ P(^AHCHVA( SPN,100,BF N,0),"^",3 ) D ^%DTC S AGEDYS=X ;NUMBE R OF DAYS BETWEEN YE ARS | |
104 | S TRNEON=0 I AGEDYS<30 S TRNEON= 1 ;NEO NATE <29 D AYS NO=0 Y ES=1 | |
105 | S CP=0 I $$A GE^CHTFLIB ($P(^AHCHV A(SPN,100, BFN,0),"^" ,3),DT)<=1 8 S CP=1 ;CHILD L ESS THAN 1 8 YRS NO =0 YES=1 | |
106 | S CHVI=CHVNP TR | |
107 | S CHCLPTR=CL MPTR | |
108 | S CHDRGDSC=" " | |
109 | D INIT^CHMZD RG3 | |
110 | S (CHIDMESV, CHWISV)="" | |
111 | S CHIDMESV=C HIDME ;SAVIN G IDME RAT E | |
112 | S CHWISV= CHWI ;SA VING WAGE INDEX | |
113 | D CALC1^CHMZ DRG3 | |
114 | S NCCMAMT=$F N(CHALLAMT ,"",2) | |
115 | Q NCCMAMT |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.