220. EPMO Open Source Coordination Office Redaction File Detail Report

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

220.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMSXCCT.m Mon Nov 5 16:45:12 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMSXCCT.m Mon Nov 5 17:51:34 2018 UTC

220.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 158
Changed 1 2
Inserted 0 0
Removed 0 0

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

220.4 Active regular expressions

No regular expressions were active.

220.5 Comparison detail

  1   CHMSXCCT ;    
  2    ;;1.0;CHA MPVA SYSTE M;;APR 16,  2012;
  3    ;YJK MTN0 14844 REPO RT FOR DAI LY SXC PAY MENT AMOUN T FROM FMS  ACCEPT/RE JECT FILE
  4   START ;USE  QUEA^CHBP RD TO QUE  ROUTINE TO  RUN IN BA CKGROUND
  5    S IO="HAC _HFS$:[DSM MANAG.CHAM PVA]S741CH 22.1PART", U="^"
  6    ;S IO="HA C_HFS$:[DS MMANAG.CHA MPVA]S741C H22_YUN.1P ART",U="^"
  7    I $$ENVIR ^CHTFLIB'= "LIVE" S I O="HAC_HFS $:[DSMMANA G.CHAMPVA] S741CH22_" _$$ENVIR^C HTFLIB_".1 PART",U="^ "    
  8    S ST=$P($ H,",",2)
  9    K ^CHMZHO LD("SXC AC CEPT")
  10   A ;S $ZE=" ",$ZT="A" 
  11    S $ZE=""  S $ZT="A"     ; JEH
  12    Q:$P($H," ,",2)-ST>1 80  O IO:" R":5
  13    Q:$TEST=0    ; JEH 7 /19/06 - T his quits  process if  file not  available
  14    ;G:$P($H, ",",2)-ST> 180 E1 O I O:"R"
  15   A1 S $ZE=" ",$ZT="END ^ZYJKRPTS"
  16    O IO:"R": 5   ;JEH 5 /30/07 FIX
  17    F  U IO R  REC Q:$E( REC,33,36) ="SUSF"
  18    ;REPLACE  %DTC WITH  DATE CONVE RT TO CATC H YEAR 200 0
  19    S X=$E(RE C,9,16) S  %DT="P" D  ^%DT S RD= Y K %DT
  20    S HDRDT=X
  21    S:'$D(^CH MSNA(74100 8.26,0)) ^ CHMSNA(741 008.26,0)= "CHAMPVA F MS ACCEPT/ REJECT FIL ES^741008. 26D^0^0"
  22    ;W !,"ACC EPT/REJCT  FOR: "_RD
  23       S (COU NT,TOTAMT) =0
  24   A2 ;
  25       U IO R  REC 
  26       S CHST AT=$E(REC, 1)
  27    S CHREF=$ E(REC,61,6 2) ;
  28    G:(CHSTAT '="A") A2
  29    G:(CHREF' ="SO") A2   ; 'SO' =  LINE_ITEM/ CLAIM LEVE L
  30    S (CHDOCI D,CHCLM)=" "
  31    S CHDOCID =$E(REC,4, 14)
  32       G:'$D( ^CHMSNA(74 1008.2,"AE ",CHDOCID) ) A2  ; SK IP IF NOT  VENDOR DAT A
  33    S X=+$E(R EC,44,58)
  34    S CHAMT=0
  35    S:X'=0 CH AMT=$E(X,1 ,($L(X)-2) )_"."_$E(X ,($L(X)-1) ,$L(X))
  36    S CHCLM=$ E(REC,25,3 1)
  37       S CI=$ O(^CHMPAY( "B",CHCLM, ""))
  38       I '$D( CI)!(CI="" ) G A2
  39       G:('$D (^CHMPAY(C I,"ZEMC"," SXC"))) A2
  40   A3 ;  
  41    S ^CHMZHO LD("SXC AC CEPT",CHCL M)=CI_U_CH AMT_U_CHDO CID
  42    S COUNT=C OUNT+1
  43    S TOTAMT= TOTAMT+CHA MT
  44    G A2   
  45   END ;
  46    C IO
  47    I $ZE'["E NDOFFILE"  D ^%ET Q
  48    ;K ^CHMZH OLD("SXC A CCEPT")
  49    ;W !!!!," TOTAL AMOU NT FOR "_H DRDT_" = " _TOTAMT
  50    ;W !,"TOT AL CLAIM C OUNT = "_C OUNT,!!
  51    
  52       S CNT= 1,^TMP($J, "SXC-COUNT ",CNT)="", CNT=CNT+1
  53       S ^TMP ($J,"SXC-C OUNT",CNT) =" SXC cla ims counts  for accep t file ret urned on " _HDRDT_":" ,CNT=CNT+1
  54       S ^TMP ($J,"SXC-C OUNT",CNT) =" ",CNT=C NT+1
  55    S ^TMP($J ,"SXC-COUN T",CNT)="      TOTAL  AMOUNT = " _TOTAMT,CN T=CNT+1
  56    S ^TMP($J ,"SXC-COUN T",CNT)="      TOTAL  CLAIM COUN T = "_COUN T,CNT=CNT+ 1
  57    S ^TMP($J ,"SXC-COUN T",CNT)="  ",CNT=CNT+ 1
  58    I $$ENVIR ^CHTFLIB() ="LIVE" S  XMDUZ=.5,X MY(" P I            ")="",XMY( " PII                  ")="",XMY( " PII                       ")="",XMY( " PII                   ")=""
  59    ;I $$ENVI R^CHTFLIB( )'="LIVE"  S XMDUZ=.5 ,XMY(DUZ)= ""
  60    S XMTEXT= "^TMP($J," "SXC-COUNT "","           
  61    S XMSUB=" SXC CLAIMS  ACCEPTED  ==> TEST"  D ^XMD
  62    
  63    K CHAMT,T OTAMT,CNT, CI,CHCLM,C HDOCID,CHR EF,CHSTAT, HDRDT
  64    Q
  65   QUEA ;QUE  THIS ROUTI NE MANUALL Y.
  66    I '$D(DUZ ) S DUZ=40 6865,DUZ(0 )="@"
  67    D NOW^%DT C S DT=X
  68    S DTIME=3 00
  69    S U="^"
  70    S CHFIO=" "
  71    S ZTRTN=" START^ZYJK RPTS",ZTDE SC="SXC BA TCH_ACCEPT  REPORT"
  72    S ZTIO="" ,ZTSAVE("C HFIO")=""
  73    D ^%ZTLOA D
  74    Q
  75   ENVIR() ;F UNCTION TO  DETERMINE  SYSTEM RU NNING ON   ;JEH 5/20/ 08 TT #DEV 003699-1
  76    N AYGSYS        
  77    S AYGSYS= $P(^XTV(89 89.3,1,0), U) S AYGSY S=$P(^DIC( 4.2,AYGSYS ,0),U)
  78    S AYGSYS= $P(AYGSYS, ".")
  79    S AYGSYS= $S(AYGSYS= "HAC":"LIV E",1:AYGSY S)
  80    Q AYGSYS