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

125.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKCSSR.m Mon Nov 5 16:40:31 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKCSSR.m Mon Nov 5 17:48:49 2018 UTC

125.2 Comparison summary

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

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

125.4 Active regular expressions

No regular expressions were active.

125.5 Comparison detail

  1   CHMKCSSR ; HAC/AHJ;PU LL DATA FR OM CLAIMS
  2    ;;V1.0
  3    ;
  4           S  U="^"
  5   CHAMPVA ;
  6    S (CNT,PC NT,NOAECNT ,YAECNT)=0
  7    S (YES18C NT,NO18CNT )=0
  8    ;
  9    ;
  10    S T=$C(9)
  11    S PG=1
  12    S DFN=0,U ="^"
  13    S (TYPE,P MTAMT)=0
  14   A3       ;
  15            W  !,"Enter  the Start  date :  "  D CSBRS^CH SC2
  16            Q :$D(DUOUT)   Q:$D(DFO UT)
  17            G :$D(DFOUT)  END G:$D( DUOUT) A3
  18            I  $D(DQOUT)  W !,"Ente r the date  to start  with." G A 3
  19            ; S:Y="" Y=" A" S TMP=$ E(Y,1) S T MP=$$UP^XL FSTR(TMP)  I TMP="A"  D  G A10
  20            ; .S STDATE= 2600101,ED DATE=DT Q
  21            S  %DT="X",X =Y D ^%DT  K %DT I Y= -1 W !,"IN VALID DATE . PLEASE R EENTER" G  A3
  22            S  STDATE=Y
  23   A4       ;
  24            W  !,"Enter  the End da te: " D CS BRS^CHSC2
  25            G :$D(DFOUT)  END G:$D( DUOUT) A3
  26            I  $D(DQOUT)  W !,"Ente r the date  to stop o n." G A4
  27            I  Y="" W !, "You must  enter a st op date" G  A4
  28            S  %DT="X",X =Y D ^%DT  K %DT I Y= -1 W !,"IN VALID DATE . PLEASE R EENTER" G  A4
  29            S  EDDATE=Y      ;
  30    ;
  31    ;
  32    ;
  33    ;
  34    I EDDATE< STDATE D   G A3
  35    .W !,"End  date must  be after   "_$$FMTE^ XLFDT(CHBG DT,"5D")_" .  Please  try again. "
  36    .Q
  37    G:EDDATE= "^" END
  38    G:$D(DFOU T) END G:$ D(DUOUT) A 3
  39    ;
  40    S BEGDT=$ E(STDATE,4 ,5)_$E(STD ATE,6,7)_$ E(STDATE,2 ,3)
  41    ;
  42    K ^CHMZHO LD("DEV186 0-PRINT-RE C")        ;
  43    ;
  44    ;[FS3BIG. CODEUPDT.I DMEUPDT."_ ENVIR_"]"_ PNAME
  45    ;
  46    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .COST-SHAR E-REPORT]C SR-"_BEGDT _".XLS"       
  47    ;O FIO C  FIO:"D"
  48    ;O FIO:"N WV"
  49    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  50       S FILE NM2="CSR-" _BEGDT_".X LS"
  51       S FIO= "HAC_HFS$: [SCR.TEMP_ FILES]"_FI LENM2
  52       I UCI' ="HAC" S F IO="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM2
  53       X "D $ SYSTEM.Pro cess.SetZE OF(1)"
  54       I '$$O PENFIWR^CH TFLIB9(.FI O,"FIO") Q
  55   A1 ;
  56    ;FIND TOD AYS DATE F OR AGE TES T
  57    D NOW^%DT C S RUNTIM E=%
  58    S Y=$E(RU NTIME,1,7)
  59    S CHDATE= Y
  60    ;   18 MO NTHS
  61    ;S X1=CHD ATE S X2=- 548 D C^%D TC S STRDA T=X
  62    ;  STRDAT  = Start D ate
  63    ;S STRDAT =3040930
  64    ;S ENDDAT =3060101
  65    ;  CHDATE  = Todays  Date
  66    S TODAY=C HDATE
  67   START ;
  68    ;
  69    S FINDST= $E(STDATE, 2,3)
  70    I FINDST= "02" S CHC LMI="DU000 00"
  71    I FINDST= "03" S CHC LMI="EY000 00"
  72    I FINDST= "04" S CHC LMI="GS000 00"
  73    I FINDST= "05" S CHC LMI="IW000 00" ;256
  74    I FINDST= "06" S CHC LMI="LL000 00" ;323
  75    I FINDST= "07" S CHC LMI="NT000 00" ;383
  76    I FINDST= "08" S CHC LMI="RP000 00" ;483
  77    I FINDST= "09" S CHC LMI="VL000 00" ;583
  78    I FINDST> "09" S CHC LMI="ZH000 00" ;683
  79    ;S CHCLMI ="GW00000"
  80    ;S CHCLMI ="HQ00000"
  81    S U="^"
  82    S (CHCLM, CNT,DFN)=0
  83    ;******** ********** ********** ********** ********NE XT LINE OU T FOR TEST  ONLY
  84    U FIO W " Claim #",T ,"Bene Nam e",T,"Date  of Servic e",T,"Comp leted Date ",T,"Payme nt Amt",!
  85    ;D GETI
  86    ;G CLMDON E
  87    ;Q
  88   GETI ;
  89    S CHCLMI= $O(^CHMPAY ("B",CHCLM I)) I CHCL MI="" G EN D
  90    S CI=0
  91    ;
  92   GETJ S CI= $O(^CHMPAY ("B",CHCLM I,CI)) I C I="" G GET I
  93    G:'$D(^CH MPAY(CI,0) ) GETI
  94    ;
  95   GETDT ;
  96    ;W !,CHCL MI
  97    S CLDATA= ^CHMPAY(CI ,0)
  98    S TYPE=$P (CLDATA,U, 7)
  99    S STATUS= $P(CLDATA, U,2)
  100    ;
  101    ;G:'$D(^C HMPAY(CI," INP")) GET J
  102    ;S CLINP= ^CHMPAY(CI ,"INP")
  103    ;
  104    ;S ADDAT= $P(CLINP,U ,13) ;ADMI SSION DATE
  105    S DOSDAT= $P(CLDATA, U,8) ;DATE  OF SERVIC E
  106    S RCOMDAT =$P(CLDATA ,U,10) ; D ATE COMPLE TE
  107    S COMDAT= $E(RCOMDAT ,1,7)
  108    ;S DSDAT= $P(CLINP,U ,1) ;DISCH ARGE DATE
  109    S DFN=$P( CLDATA,U,2 1)
  110    S BFN=$P( CLDATA,U,2 2)
  111    I DOSDAT< 3000101 G  GETJ
  112   DATECK ;
  113    ;W !,CHCL MI,"               CO MPLETED=", COMDAT
  114    ;I DOSDAT >3011231 I  DOSDAT<30 70301 G JU MP
  115    I COMDAT> =STDATE I  COMDAT<=ED DATE G JUM P
  116    G GETJ
  117   JUMP ;
  118    G:'$D(^CH MPAY(CI,1) ) GETJ
  119    S PMTAMT= $P(^CHMPAY (CI,1),U,1 ) ;PAYMENT  AMOUNT OV ER $12000. 00
  120    G:'$D(PMT AMT) GETJ
  121    ;W !,CHCL MI,"                                                       ",PMTA MT
  122    I PMTAMT< 12000.00 G  GETJ
  123    S BCSTSHR =$P(^CHMPA Y(CI,1),U, 6) ;BENE C OST SHARE  OVER $2950 .00
  124    ;W !,CI,"  ",DOSDAT, " ",PMTAMT ," ",BCSTS HR
  125    I BCSTSHR <2950.00 G  GETJ
  126   OK ;
  127    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  GETJ 
  128    S NAMLAB= ^AHCHVA(DF N,100,BFN, 0)
  129    S BNAM=$P (NAMLAB,U, 1)
  130    S Y=DOSDA T D DD^%DT  S PDOSDAT =Y
  131    S Y=COMDA T D DD^%DT  S PCOMDAT =Y
  132    ;W !,CHCL MI,"   ",B NAM,?40,PD OSDAT,?55, BCSTSHR,?6 5,$J(PMTAM T,10,2)
  133    ;NEXT FIL E FOR QA V ERIFICATIO N OF DATA
  134    S ^CHMZHO LD("DEV186 0-PRINT-RE C",CHCLMI) =BNAM_U_PD OSDAT_U_PC OMDAT_U_PM TAMT_U_TYP E_U_STATUS _U
  135    S T=$C(9)
  136    S TEMP=CH CLMI_T_BNA M_T_PDOSDA T_T_PCOMDA T_T_PMTAMT _T
  137    ;******** ********** ********** ********** *********N EXT LINE O UT FOR TES T ONLY
  138    U FIO W T EMP,!
  139    S CNT=CNT +1
  140    G GETJ
  141   END ;
  142    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  143    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  144    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG .COST-SHAR E-REPORT", "PUT")
  145    ;C FIO
  146    ;W !,CNT
  147    Q