116. EPMO Open Source Coordination Office Redaction File Detail Report

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.

116.1 Files compared

# 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

116.2 Comparison summary

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

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

116.4 Active regular expressions

No regular expressions were active.

116.5 Comparison detail

  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