107. EPMO Open Source Coordination Office Redaction File Detail Report

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

107.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMG127.m Mon Nov 5 16:45:20 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMG127.m Mon Nov 5 17:46:28 2018 UTC

107.2 Comparison summary

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

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

107.4 Active regular expressions

No regular expressions were active.

107.5 Comparison detail

  1   CHMG127 ;A HJ/DEN;MCC R FILE TO  FS3BIG XLS  FILE
  2    ;V1.0;CHA MPVA SYSTE M;OCTOBER  09,2015
  3    ;SELECT B Y START AN D END DATE
  4    ;DEF01655 4 COMMENTE D OUT DECN ET CODE TO  UPGRADE T O STANDARD  FTP  DRW  10/09/15
  5    S U="^"
  6    S T=$C(9)
  7    D NOW^%DT C S RUNTIM E=%
  8    S Y=$E(RU NTIME,1,7)
  9    S TODAY=Y
  10    S Y=TODAY  D DD^%DT  S TODAY=Y
  11   START ;
  12   STDT ;
  13   ST1 S DIR( 0)="D" S D IR("A")="E nter START  date (mm/ dd/yy) Ent er ""^"" t o END" D ^ DIR
  14    S CHBGDT= Y
  15    Q:CHBGDT= "^"
  16    I CHBGDT< 3000000 D   G STDT
  17    ;.W !,"Da te range m ust be aft er 2000.   Please try  again.",!
  18    ;.Q
  19    G:CHBGDT= "^" END
  20    G:$D(DFOU T) END G:$ D(DUOUT) E ND
  21    S CHBGDT= Y
  22   ST2 S DIR( 0)="D" S D IR("A")="E nter END d ate (mm/dd /yy)" D ^D IR
  23    S CHENDT= Y
  24    ;I CHENDT <3000000 D   G ST2
  25    ;.W !,"Da te range m ust be aft er 2000.   Please try  again.",!
  26    ;.Q
  27    I CHENDT< CHBGDT D   G ST1
  28    .W !,"End  date must  be after   "_$$FMTE^ XLFDT(CHBG DT,"5D")_" .  Please  try again. "
  29    .Q
  30    G:CHENDT= "^" END
  31    G:$D(DFOU T) END G:$ D(DUOUT) S T1
  32    ;W !
  33    S BEGDT=$ E(CHBGDT,4 ,5)_$E(CHB GDT,6,7)_$ E(CHBGDT,2 ,3)
  34    S CHFIO=" "
  35    ;;S FIO=" HACFS3"" DNS     coledec We lcome1!"": :D:[FS3BIG ]MCCRQUE_" _BEGDT_".X LS"
  36    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]MCCRQUE_" _BEGDT_".X LS"
  37    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .MCCR-FILE S]MCCRQUE_ "_BEGDT_". XLS"
  38    ;;S FIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]MCCR_PEND ING_CHBGDT _CHENDT.XL S"
  39    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  40    S FILENM2 ="MCCRQUE_ "_BEGDT_". XLS"
  41    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2
  42    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2
  43    ;O FIO:"N WS":5
  44    ;O FIO:"N W" C FIO:" D"
  45    ;O FIO:"N WV"
  46    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  47    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") Q
  48    S CHSTOP= 0,SORT=0,C T=0
  49    S IN=0
  50    U FIO W " MCCR QUE", !
  51    S Y=CHBGD T D DD^%DT  S DATEIN= Y
  52    S Y =CHEN DT D DD^%D T S DATOUT =Y
  53    ;U FIO W  "DATE IN Q UE=",DATEI N,!
  54    U FIO W " DATE IN QU E FROM: ", DATEIN,"     DATE IN  QUE TO: ", DATOUT,!
  55    ;;U FIO W  !,"CLAIM  #"_T_"DATE  OF SERVIC E"_T_"NAME "_T_"PAYME NT AMT"_T_ "REASON",!
  56    U FIO W " BENE NAME" _T_"DOS"_T _"PAYMENT  AMT"_T_"CL AIM#"_T_"R EASON",!
  57    S SEARCH= CHBGDT
  58    ;;S $E(SE ARCH,1,3)= $E(SEARCH, 1,3)-1
  59    ;;S INB=S EARCH
  60    S INB=CHB GDT
  61   A ;
  62    S INB=$O( ^CHMCCR("B ",INB)) S  INC=0 I IN B="" G END  G:'$D(INB ) END        
  63   A1 ;
  64    S INC=$O( ^CHMCCR("B ",INB,INC) ) I INC=""  G A
  65    S J=0
  66    ;W !,"RUN NING"
  67   A2 ;
  68    S J=$O(^C HMCCR(INC, 1,J)) G:J= "" A1
  69    G:'$D(^CH MCCR(INC,1 ,J,0)) A1
  70    S REASON= ^CHMCCR(IN C,1,J,0)
  71    I REASON= 1 S PREASO N="CLAIM F ORM"
  72    I REASON= 2 S PREASO N="PROCEDU RE"
  73    I REASON= 3 S PREASO N="HISTORY "
  74    I REASON= 4 S PREASO N="REOPEN  OVERPMT"
  75    I REASON= 5 S PREASO N="OFFSET"
  76    I REASON= 6 S PREASO N="OVERPMT  DECEASED"
  77    I REASON= 7 S PREASO N="THIRD P ARTY"
  78   A3 ;
  79    I $E(INB, 1,7)<CHBGD T G A1
  80    I $E(INB, 1,7)>CHEND T G END
  81    G:'$D(^CH MCCR(INC))  A1
  82    S DATA=^C HMCCR(INC, 0)
  83    S DATEIN= $P(DATA,U, 1)
  84    S DATE5=$ E(DATEIN,1 ,7)
  85    S Y=DATE5  D DD^%DT  S DATEIN=Y
  86    S CLAIMIN =$P(DATA,U ,2)
  87    I CLAIMIN ="" G A1
  88    G:'$D(^CH MPAY(CLAIM IN,0)) A1
  89    S DATA1=^ CHMPAY(CLA IMIN,0)
  90    S CLNO=$P (DATA1,U,1 )
  91    S STATUS= $P(DATA,U, 3)
  92    S KDATE=$ P(DATA,U,1 )
  93    I $D(^CHM CCR("C",2, KDATE,INC) ) G A1 
  94    I $D(^CHM CCR("C",3, KDATE,INC) ) G A1
  95    I STATUS= 0 S PSTATU S="PENDING  Q"
  96    I STATUS= 1 S PSTATU S="IN PROG RESS"
  97    I STATUS= 2 S PSTATU S="NOT NEE DED"
  98    I STATUS= 3 S PSTATU S="COMPLET E"
  99    S DUZIN=$ P(DATA,U,4 )
  100    S CHDFN=$ P(DATA1,U, 21)
  101    S CHBFN=$ P(DATA1,U, 22)
  102    S NAMLAB= ^AHCHVA(CH DFN,100,CH BFN,0)
  103    S BNAME=$ P(NAMLAB,U ,1)
  104    S DOS=$P( DATA1,U,8)
  105    S Y=DOS D  DD^%DT S  PDOS=Y
  106    S DATA2=^ CHMPAY(CLA IMIN,1)
  107    S PAYAMT= $P(DATA2,U ,1)
  108    ;;S FPAYA MT=$J(PAYA MT,10,2)
  109    ;;S FPAYA MT=""
  110    S FPAYAMT = $J($FN(P AYAMT,"P", 2),12)
  111   B ;
  112    ;;W !,"ST ATUS 0/1=" ,IN,"  ",D ATEIN,"    ",CLNO,"    ",STATUS, "   ",STAT USNM,"   " ,DUZIN
  113    ;;U FIO W  CLNO_T_PD OS_T_BNAME _T_FPAYAMT _T_PREASON ,!
  114    U FIO W B NAME_T_PDO S_T_FPAYAM T_T_CLNO_T _PREASON,!
  115    S CT=CT+1
  116    ;next lin e marks qu eue with " completed"
  117    S CHMQNAM ="CHMCCR(" ,CHMOUT=""  K CHMIN D  ^CHMIS041
  118   C ;
  119    ; CHANGE  STATUS  IN  "C" X-REF
  120    ;KILL O O R 1 IN "C"  X-REF NOD E IF IT IS  THERE
  121    I $D(^CHM CCR("C",0, KDATE,INC) ) K ^CHMCC R("C",0,KD ATE,INC)
  122    I $D(^CHM CCR("C",1, KDATE,INC) ) K ^CHMCC R("C",1,KD ATE,INC)
  123    I $D(^CHM CCR("E",0, INC)) K ^C HMCCR("E", 0,INC)  ;A EB 7/15/20 08 DEV0053 29
  124    I $D(^CHM CCR("E",1, INC)) K ^C HMCCR("E", 1,INC)  ;A EB 7/15/20 08 DEV0053 29
  125    S ^CHMCCR ("C",3,KDA TE,INC)=""
  126    S ^CHMCCR ("E",3,INC )=""  ;AEB  7/15/2008  DEV005329
  127    S $P(^CHM CCR(INC,0) ,"^",3)=3
  128    G A1
  129   END ;W !,C T
  130    S ^CHMZHO LD("CHMCCR -COUNT-DEV 00246")=CT
  131    U FIO W "    COUNT =  ",CT
  132    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  133    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG /MCCR-FILE S","PUT")      ;;DEF01654 4 10/09/15      PLEASE NOT E THAT DUE  TO FTP, F ILENAME WI LL BE IN L OWER CASE  IN FS3BIG
  134    X "D $SYS TEM.Proces s.SetZEOF( 0)"                                                      ;;DEF016 554 10/09/ 15  
  135    ;C FIO
  136    Q
  137    Q