145. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:00 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.

145.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKOHIP.m Mon Nov 5 16:41:35 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKOHIP.m Mon Nov 5 17:49:09 2018 UTC

145.2 Comparison summary

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

145.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

145.4 Active regular expressions

No regular expressions were active.

145.5 Comparison detail

  1   CHMKOHIP ; HAC/AHJ;PU LL OHI DAT A FOR AUDI T REPORT
  2    ;;V1.0
  3    ;
  4    ;DEV01289 3 1/17/201 4 DGC - MO DIFY DECEN T WRITE
  5    ;MTN02426 5 09/23/15  SBB - Fix  the DECNE T routines  that have  a typo
  6    ;
  7    ;SEARCH B ENE FILE,  PULL CLAIM S
  8    ;OUTPUT T O TEXT FIL E with TOD AYS DATE
  9           S  U="^"
  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 (SPONCN T,DIAGCD,P ROCCD,NDCC ODE,DESC)= 0
  14    S SWYESCL M=0
  15    S T=$C(9)
  16    K ^CHMZHO LD("CHMKOH IP-1026")
  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 FILEDAT =$$FMTE^XL FDT(Y,"5D" )
  22    S ALLDAT= $E(FILEDAT ,1,2)_$E(F ILEDAT,4,5 )_$E(FILED AT,7,10)
  23    ;-------- -----INPAT IENT OHI C LAIMS 11/1 /06 - 12/1 5/06 -- DG C 1/17/201 4 DEV01289 3 - BEGIN
  24    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]INPATIENT _OHI_CLIAM S"_ALLDAT_ ".TXT"
  25    ;O FIO C  FIO:"D"
  26    ;O FIO:"N WS"
  27           X  ^%ZOSF("UC I") S UCI= $P(Y,",",1 )
  28           X  "D $SYSTEM .Process.S etZEOF(1)"  ;DGC 7/30 /2015 DEV0 12893
  29           S  FILENM2="I NPATIENT_O HI_CLIAMS" _ALLDAT_". TXT"
  30           S  FIO="HAC_H FS$:[SCR.T EMP_FILES] "_FILENM2
  31           I  UCI'="HAC"  S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]"_FIL ENM2
  32           I  '$$OPENFIW R^CHTFLIB9 (.FIO,"FIO ") X "D $S YSTEM.Proc ess.SetZEO F(0)" Q ;D GC 7/30/20 15 DEV0128 93
  33           ;D GC 1/17/20 14 DEV0128 93 - END
  34    ;
  35   A1 ;
  36    ;FIND TOD AYS DATE F OR AGE TES T
  37    D NOW^%DT C S RUNTIM E=%
  38    S Y=$E(RU NTIME,1,7)
  39    S CHDATE= Y
  40    ;   18 MO NTHS
  41    S X1=CHDA TE S X2=-5 48 D C^%DT C S STRDAT =X
  42    ;  STRDAT  = Start D ate
  43    ;  CHDATE  = Todays  Date
  44    S TODAY=C HDATE
  45    S DAT18=S TRDAT
  46    ;
  47    ;S DFN=10 427
  48    D HEADA,G ETDFN,END
  49    ;D GETDFN ,END
  50    Q
  51    ; ALL ELI GIBLE/ACTI VE BENE'S  ON TODAY
  52    ;******** ********** ********** ********** ********** *****
  53    ; CHAMPVA  BENE FILE
  54   GETDFN S D FN=$O(^AHC HVA(DFN))  Q:'DFN
  55    S TOTDFN= TOTDFN+1
  56    G:$D(^AHC HVA("FMP", DFN)) GETD FN
  57    ;G:'$D(^A HCHVA(DFN, 100)) GETD FN
  58    S TOTDFN1 =TOTDFN1+1
  59    S BFN=0
  60   GETBFN S B FN=$O(^AHC HVA(DFN,10 0,BFN)) G: 'BFN NODFN 100
  61    S BICNT=B ICNT+1
  62    ; ELIMINA TE SPINA B IFIDA
  63    G:$D(^AHC HVA("SB",D FN,BFN)) S B
  64    ;
  65    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETDFN
  66    ;
  67   CLAIMS ;FI ND LAST CL AIM DATE F IRST- IF L AST CLAIM  OLDER 3061 101 THEN G O TO NEXT  BENE
  68    ;THIS IS  TO SPEED U P PROCESS  ONLY
  69   L32 S CHDF NI=$O(^CHM DFN("B",DF N,0)) G GE TDFN:'CHDF NI
  70    ;
  71    S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G GETD FN:'CHDFNJ
  72    S CHDFNK= 99999999
  73    ;
  74   LOOP2 ;
  75    S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ,-1) G:'CH DFNK NOCLM
  76    ;
  77    G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N2
  78    G L32
  79   MAIN2 ;
  80    S CI=^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)
  81    G LOOP2:' $D(^CHMPAY (CI,0))
  82    ;
  83    ;CONVERT  PDI TO CLA IM FILED D ATE
  84    S PDIJ=""
  85    S PDIJ=$O (^CHMPAY(C I,"PDI","B ",PDIJ),-1 )
  86    G:PDIJ=""  LOOP2
  87    S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ)
  88    ;
  89    G:TFMDT<3 061101 GET BFN ;NO CL AIMS LESS  THAN OCT 1 , 2004
  90    ;
  91    ;NEED TO  FIND CLAIM S FROM FIR ST CLAIM D ATE TO TOD AY FOR THI S BENE
  92    S YAECNT= YAECNT+1
  93   L322 S CHD FNI=$O(^CH MDFN("B",D FN,0)) G G ETDFN:'CHD FNI
  94    ;
  95    S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G GETD FN:'CHDFNJ
  96    S CHDFNK= 0 ;START A T FRONT
  97   LOOP22 ;
  98    S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ) G:'CHDFN K GETBFN
  99    G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N22
  100    G L322
  101   MAIN22 ;
  102    S CI=^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)
  103    G LOOP22: '$D(^CHMPA Y(CI,0))
  104    ;CONVERT  PDI TO CLA IM FILED D ATE
  105    S PDIJ=""
  106    S PDIJ=$O (^CHMPAY(C I,"PDI","B ",PDIJ),-1 )
  107    G:PDIJ=""  LOOP22
  108    S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ)
  109    G:TFMDT<3 061101 LOO P22 ;NO CL AIMS LESS  THAN OCT 1 , 2004
  110    G:TFMDT>3 061215 LOO P22 ;REST  OF CLAIMS  ARE OVER J AN 1, 2006
  111   CLAIMDAT ;
  112    S TYPE=$P (^CHMPAY(C I,0),U,7)
  113    I TYPE'=1  G LOOP22  ;WANT ONLY  INPATIENT  CLAIMS
  114    S STATUS= $P(^CHMPAY (CI,0),"^" ,2)
  115    I STATUS' =4 G LOOP2 2 ; WANT O NLY COMPLE TED CLAIMS
  116    I $D(^CHM PAY(CI,"CO MMON")) S  COMMON=$G( ^CHMPAY(CI ,"COMMON")
  117    S CALCMET D=$P(COMMO N,U,16)
  118    I CALCMET D=0 G JUMP  ;PPS
  119    I CALCMET D=1 G JUMP  ;CTC
  120    G LOOP22
  121   JUMP ;
  122    S OHIPATA M=$P(^CHMP AY(CI,1),U ,29)
  123    I OHIPATA M=0 G LOOP 22
  124    I OHIPATA M="" G LOO P22
  125   ACCEPT ;
  126    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETDFN
  127    S BENE0=^ AHCHVA(DFN ,100,BFN,0 )
  128    S BNAME=$ P(BENE0,U, 1)
  129    S Y=TFMDT  D DD^%DT  S TFMDT=Y
  130    S VALUE=O HIPATAM
  131    S AMOUNT= $J(VALUE,8 ,2)
  132    S OHITEMP =TFMDT_T_C I_T_$J(BNA ME,30)_T_A MOUNT_T
  133    U FIO W O HITEMP,!
  134    S ^CHMZHO LD("CHMKOH IP-1026",D FN,BFN,CI) =TFMDT_U_C I_U_BNAME_ U_AMOUNT_U
  135    G LOOP22
  136   HEADA ;
  137    U FIO W ! ," INPATIE NT OHI CLA IMS REPORT  "_FILEDAT
  138    U FIO W !
  139    U FIO W ! ,"PDI Date "_T_"Claim #"_T_"         Bene N ame"_T_"         Bene  Responsib le Amt"
  140    U FIO W !
  141    Q      
  142   NODFN100 ;
  143    S DFNCNT= DFNCNT+1
  144    G GETDFN
  145   SB ;
  146    ;W !,"SB=  ",DFN," " ,BFN
  147    S SBCNT=S BCNT+1
  148    S ^CHMZHO LD("SB794" ,DFN,BFN)= ""
  149    G GETBFN
  150   NOCLM ;
  151    S NOCLM=N OCLM+1
  152    S ^CHMZHO LD("NOCLAI M794",DFN, BFN)=""
  153    G GETBFN
  154   END ;DGC 1 /17/2014 D EV012893 -  BEGIN
  155    ;C FIO
  156    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  157    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893
  158    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  159    ;DGC 1/17 /2014 DEV0 12893 - EN D
  160    K BFN,CHD ATE,CHDFNI ,CHDFNJ,CH DFNK,DFN,F IO
  161    K PCNT,PD IJ,PG,RUNT IME,STRDAT ,T,TFMDT,T MPS,U
  162    ;
  163    Q