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

106.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMG125.m Mon Nov 5 16:44:20 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMG125.m Mon Nov 5 17:46:27 2018 UTC

106.2 Comparison summary

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

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

106.4 Active regular expressions

No regular expressions were active.

106.5 Comparison detail

  1   CHMG125 ;A HJ/DEN;MCC R FILE TO  FS3BIG XLS  FILE
  2    ;V1.0
  3    ;
  4    S U="^"
  5    S T=$C(9)
  6    D NOW^%DT C S RUNTIM E=%
  7    S Y=$E(RU NTIME,1,7)
  8    S TODAY=Y
  9    S Y=TODAY  D DD^%DT  S TODAY=Y
  10   START ;
  11   STDT ;
  12   ST1 S DIR( 0)="D" S D IR("A")="E nter START  date (mm/ dd/yy)" D  ^DIR
  13    S CHBGDT= Y
  14    I CHBGDT< 3000000 D   G STDT
  15    .W !,"Dat e range mu st be afte r 2000.  P lease try  again.",!
  16    .Q
  17    G:CHBGDT= "^" QEND
  18    G:$D(DFOU T) QEND G: $D(DUOUT)  QEND
  19    S CHBGDT= Y
  20   ST2 S DIR( 0)="D" S D IR("A")="E nter END d ate (mm/dd /yy)" D ^D IR
  21    S CHENDT= Y
  22    I CHENDT< 3000000 D   G ST2
  23    .W !,"Dat e range mu st be afte r 2000.  P lease try  again.",!
  24    .Q
  25    I CHENDT< CHBGDT D   G ST1
  26    .W !,"End  date must  be after   "_$$FMTE^ XLFDT(CHBG DT,"5D")_" .  Please  try again. "
  27    .Q
  28    G:CHENDT= "^" QEND
  29    G:$D(DFOU T) QEND G: $D(DUOUT)  ST1
  30    W !
  31    S CHFIO=" "
  32    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]MCCR_PEND ING_INPROG RESS.XLS"
  33    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  34    S FILENM2 ="MCCR_PEN DING_INPRO GRESS.XLS"
  35    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2
  36    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2
  37    ;O FIO C  FIO:"D"
  38    ;O FIO:"N WV"
  39    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  40    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") Q
  41    S CHSTOP= 0,SORT=0,C T=0
  42    S IN=0
  43    U FIO W " MCCR QUE", !
  44    U FIO W ! ,"DATE IN  QUE"_T_"CL AIM #"_T_" STATUS"_T_ "PERSON",!
  45    S SEARCH= CHBGDT
  46    S $E(SEAR CH,1,3)=$E (SEARCH,1, 3)-1
  47    S INB=SEA RCH
  48   A1 ;
  49   A ;
  50    S INB=$O( ^CHMCCR("B ",INB)) S  INC=0 I IN B="" G END  G:'$D(INB ) END        
  51    ;
  52   A2 ;
  53    S INC=$O( ^CHMCCR("B ",INB,INC) ) I INC=0  G A
  54    I $E(INB, 1,7)<CHBGD T G A1
  55    I $E(INB, 1,7)>CHEND T G A1
  56    G:'$D(^CH MCCR(INC))  A
  57    S DATA=^C HMCCR(INC, 0)
  58    S DATEIN= $P(DATA,U, 1)
  59    S DATE5=$ E(DATEIN,1 ,7)
  60    S Y=DATE5  D DD^%DT  S DATEIN=Y
  61    S CLAIMIN =$P(DATA,U ,2)
  62    I CLAIMIN ="" G A
  63    G:'$D(^CH MPAY(CLAIM IN,0)) A
  64    S DATA1=^ CHMPAY(CLA IMIN,0)
  65    S CLNO=$P (DATA1,U,1 )
  66    S STATUS= $P(DATA,U, 3)
  67    S DUZIN=$ P(DATA,U,4 )
  68    ;W !,"ALL  STATUS=", IN,"  ",DA TEIN,"   " ,CLNO,"    ",STATUS,"    ",DUZIN
  69    I STATUS' =0 I STATU S'=1 G A
  70    I STATUS= 0 S STATUS NM="PENDIN G"
  71    I STATUS= 1 S STATUS NM="IN PRO GRESS"
  72   B ;
  73    ;W !,"STA TUS 0/1=", IN,"  ",DA TEIN,"   " ,CLNO,"    ",STATUS,"    ",STATU SNM,"   ", DUZIN
  74    U FIO W D ATEIN_T_CL NO_T_STATU SNM_T_DUZI N_T,!
  75    S CT=CT+1
  76    G A1
  77   QEND ;
  78   END ;W !,C T
  79    S ^CHMZHO LD("CHMCCR -COUNT-DEV 00246")=CT
  80    U FIO W "    COUNT =  ",CT
  81    ;C FIO
  82    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  83    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  84    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  85    Q
  86    Q