131. EPMO Open Source Coordination Office Redaction File Detail Report

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

131.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKHCL2.m Mon Nov 5 16:44:34 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKHCL2.m Mon Nov 5 17:49:01 2018 UTC

131.2 Comparison summary

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

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

131.4 Active regular expressions

No regular expressions were active.

131.5 Comparison detail

  1   CHMKHCL2 ; HAC/AHJ;OU TPUT TO FS 3BIG HIGH  DOLLAR CLA IMS DATE R ANGE OVER  $10K
  2    ;;V1.0
  3    ;OUTPUT F ORM CHMKHC L1
  4    ;MTN01575 1 ADDED NO TIFICATION  WHEN COMP LETE DEACT IVATED TAG  ZSET 
  5    ;DEV00644 1 DGC 08/1 5/2013 - A DD LO-HI $  AMT RANGE
  6    ;
  7    ;ZSET S:' $D(DUZ) DU Z=1,DUZ(0) ="" I '$D( DT) S %DT= "",X="T" D  ^%DT S DT =Y  MTN015 751 DPTTES T
  8    ; S:'$D(I OZFO) IOZF O="^^" S:' $D(IOZBK)  IOZBK="^"  S:'$D(DTIM E) DTIME=6 0
  9    ; I '$D(I OZ) S %ZIS ="N" S IOP ="HOME" D  HOME^%ZIS  S IOZ=IO,I OZL=IOSL,I OZW=IOM,IO ZF=IOF,IOZ T=IOST,IOZ N=ION,IOZS =IOS
  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 (SPONC NT,DIAGCD, PROCCD,NDC CODE,DESC) =0
  14    ;S SWYESC LM=0
  15    S CLDATA= 0
  16    S T=$C(9)
  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 HDDATE= Y ;
  22    S HDDAT=$ E(HDDATE,4 ,5)_"/"_$E (HDDATE,6, 7)_"/"_$E( HDDATE,2,3 )
  23    S HDTIME= $E(RUNTIME ,9,10)_":" _$E(RUNTIM E,11,12)
  24    S STRALL= SMODA_STRY R
  25    S ENDALL= EMODA_ENDY R
  26    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .HIGH-DOLL AR-CLAIMS] IG-BPO-HIG HDOLLARCLA IMS-"_STRA LL_"-"_END ALL_".TXT"
  27    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]ALTEXT-"_ STRALL_"-" _ENDALL_". TXT"
  28    ;O FIO C  FIO:"D"
  29    ;O FIO:"N WS"
  30    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  31    S FILENM2 ="IG-BPO-H IGHDOLLARC LAIMS-"_ST RALL_"-"_E NDALL_".TX T"
  32    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2
  33    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2
  34    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  35    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") Q
  36    D HEAD
  37    S BNAME=0
  38   START1 ;
  39    S BNAME=$ O( ^CHMZHO LD($J,"357 0CLAIMS-OV ER10K",BNA ME)) I BNA ME="" G EN D
  40    S DFN=0
  41   START2 ;
  42    S DFN=$O( ^CHMZHOLD( $J,"3570CL AIMS-OVER1 0K",BNAME, DFN)) G:'D FN START1
  43    S BFN=0
  44   START3 ;
  45    S BFN=$O( ^CHMZHOLD( $J,"3570CL AIMS-OVER1 0K",BNAME, DFN,BFN))  G:'BFN STA RT2
  46    ;S CI=0
  47   START4 ; 
  48    S CI=$O(^ CHMZHOLD($ J,"3570CLA IMS-OVER10 K",BNAME,D FN,BFN,CI) ) G:'CI ST ART3
  49    S CLDATA= ^CHMZHOLD( $J,"3570CL AIMS-OVER1 0K",BNAME, DFN,BFN,CI )
  50    ;S CLDATA =^CHMZHOLD ($J,"3570C LAIMS-OVER 10K",BNAME ,DFN,BFN)
  51    S CLMNO=$ P(CLDATA,U ,1)
  52    S BENENAM E=$P(CLDAT A,U,2)
  53    S PDATE=$ P(CLDATA,U ,3)
  54    S CLMAMT= $P(CLDATA, U,4)
  55    S PCOMPDA T=$P(CLDAT A,U,5)
  56     ;S CHDT2 =3070831
  57    ;S TEMP=C LMNO_T_BEN ENAME_T_PD ATE_T_$J(C LMAMT,12,2 )_T_PCOMPD AT_T         ;DGC 8/2 9/2013 DEV 006441
  58    ;
  59    U FIO W C LMNO,?9,BE NENAME,?37 ,PDATE,?50 ,$J(CLMAMT ,12,2),?66 ,PCOMPDAT, !  ;TEMP,!         ;D GC 8/29/20 13 DEV0064 41
  60    G START4
  61   HEAD ;
  62    S Y=CHDT  D DD^%DT S  CHDTP=Y
  63    S Y=CHDT2  D DD^%DT  S CHDT2P=Y
  64    U FIO W D UZ,"                             HEALTH ADM INISTRATIO N CENTER", !
  65    U FIO W H DDAT," ",H DTIME,"      High Dol lar Claims  from ",CH DTP,"  thr ough ",CHD T2P,!
  66    U FIO W ? 19,"PAID A MT RANGE", ?35,"LO AM T:",$J(CHL AMT,10,2), ?57,"HI AM T:",$J(CHH AMT,10,2), !!    ;DGC  8/29/2013  DEV006441
  67    ;U FIO W  "START DAT E=",CHDTP, "     END  DATE=",CHD T2P,!
  68    U FIO W " Claim #",? 9,"Benefic ary name", ?37,"Servi ce Date",? 50,"Claim  Pd Amt",?6 5,"Complet ed Date",! !   ;DGC 8 /29/2013 D EV006441
  69    Q
  70   END ;
  71    ;U FIO W  !,"CLAIMS  COUNT =",T OTCNT
  72    ;C FIO
  73    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  74    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  75    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG .HIGH-DOLL AR-CLAIMS" ,"PUT")
  76    D NOTIFY  ;MTN015751
  77    W DT
  78    K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2
  79    K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS,U
  80    ;
  81    Q
  82   NOTIFY ;SE ND MS-EXCH ANGE EMAIL S FROM VIS TA
  83    ;
  84    S XMSUB=" CLAIMS OVE R10K  "_$$ FMTE^XLFDT (DT,"5D")   ;MTN01575 1
  85    S XMDUZ=" " ;MTN0157 51
  86    S XMY("41 2688")=""  ;MTN015751
  87    ;D UCI^%Z OSV I $P(Y ,",",1)="D EV" S XMY( " PII             ")="" ;MTN 015751
  88    S XMY("
P II                  ")=""        ;MTN015751
  89    S TEXT(1) ="The HIGH  DOLLAR re port is av ailable "  ;MTN015751
  90    S XMTEXT= "TEXT(" ;M TN015751
  91    D ^XMD ;M TN015751
  92    K XMY,XMD UZ,TEXT,XM TEXT,XMSUB  ;MTN01575 1
  93    Q ;MTN015 751
  94