123. EPMO Open Source Coordination Office Redaction File Detail Report

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.

123.1 Files compared

# 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

123.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 226
Changed 2 4
Inserted 0 0
Removed 0 0

123.3 Comparison options

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

123.4 Active regular expressions

No regular expressions were active.

123.5 Comparison detail

  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