17. EPMO Open Source Coordination Office Redaction File Detail Report

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

17.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCGDUZ.m Mon Nov 5 16:42:04 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCGDUZ.m Tue Nov 6 21:57:52 2018 UTC

17.2 Comparison summary

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

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

17.4 Active regular expressions

No regular expressions were active.

17.5 Comparison detail

  1   CHCGDUZ ;U PDATE STIP EN MONTHLY -RATE USIN G VET SSN.  
  2    ;;1.0;CHA MPVA SYSTE M;;MARCH 2 4, 2011;
  3    ;;DEV0239 97-02 - Se t new CG r ates.  YJK  12/4/15
  4    ;;Input n eeds to be  in FS3BIG \CGRATE\RA TE.TXT - d elimiter ' ,'
  5    ;;FORMAT:
  6    ;;VetSSNT ext,VetZip Text,Month lyAmount
  7    ;;3236087 64,31763,3 399.96
  8    ;;VetZipT ext is not  used
  9   START ;
  10           S  $ZE="",$ZT ="END1^CHC GRATE"
  11   INIT  ; 
  12           K  ^CHMZHOLD( "CGRTERR")    ; SAVE  ERRORS:EXA MPLE - ^CH MZHOLD("CG RTERR",VET SSN)="ERRO R MSG"
  13           K  ARRNOTFD    ;SAVE VET  WITH NO A CTIVE CG 
  14           S  CHNOW="316 0108.12354 5"
  15           S  FIRSTTM=1, PREVSSN="9 99999999"
  16   READ ; 
  17           N  FOLDER,CNT R
  18           S  FILE="RATE .TXT",FOLD ER=""
  19           S  IOF="#,*27 ,*91,*50,* 74,*27,*91 ,*72"
  20    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  21           I  UCI="HAC"  S FOLDER=" HAC_HFS$:[ SCR.TEMP_F ILES]"
  22           I  UCI'="HAC"  S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]"
  23           S  FILE=FOLDE R_FILE
  24             D FTPFILE^ CHTFLIB9(F ILE," DNS     . DNS             ","/FS3BIG /CGRATE"," GET")
  25           S  UP="^" S $ ZE=""
  26           S  POP=0
  27           X  "D $SYSTEM .Process.S etZEOF(1)"
  28    S POP=0,C NTR=0
  29           F   S CNTR=CN TR+1 Q:(CN TR>5)!POP   D  
  30           .S  POP=$$OPE NFIRD^CHTF LIB9(.FILE ,"FILE")
  31           .Q
  32       I 'POP  G END1
  33   READ1 ;
  34    U FILE R  X:5 G:$$ST ATUS^%ZISH  END
  35    G:X["---- ---------- ---" READ1
  36    G:X["VetS SNText" RE AD1
  37           S  NEWREC=X
  38           S  VETSSN=$P( NEWREC,"," ,1),CGRATE =$P(NEWREC ,",",3)
  39           I  FIRSTTM S  FIRSTTM=0  I $D(ARRNO TFD(PREVSS N)) S ^CHM ZHOLD("CGR TERR",PREV SSN)="ACTI VE CG NOT  FOUND IN C HCGVETS(74 1850.7" G  READ1
  40           I  VETSSN'=""  S VSSN=$$ STRIP^XLFS TR(VETSSN, " ") S PRE VSSN=VSSN
  41           I  CGRATE'=""  S CGRATE= $$STRIP^XL FSTR(CGRAT E," ") 
  42           S  ARRNOTFD(V SSN)=""  ;  Initializ e NotFound  Array ->  when Activ e CG is fo und, ARRNO TFD is kil led
  43   A1 S (CGDF N,CGBFN,CH CGCD0,CHCG CD10)=""
  44       S CGDF N=0,CGDFN= $O(^CHCGVE TS(741850. 7,"C",VSSN ,CGDFN))
  45       I 'CGD FN S ^CHMZ HOLD("CGRT ERR",VSSN) ="VET SSN  NOT FOUND  IN CHCGVET S(741850.7 " G READ1
  46       S CGBF N=0
  47   A2  S CGBF N=$O(^CHCG VETS(74185 0.7,CGDFN, 100,CGBFN) ) G:'CGBFN  READ1
  48    G:'$D(^CH CGVETS(741 850.7,CGDF N,100,CGBF N,10)) A2
  49    S CHANGER T="N"
  50    I $D(^CHC GVETS(7418 50.7,CGDFN ,100,CGBFN ,10)) S CH CGCD0=^CHC GVETS(7418 50.7,CGDFN ,100,CGBFN ,0),CHCGCD 10=^CHCGVE TS(741850. 7,CGDFN,10 0,CGBFN,10 )
  51    ;I $P(CHC GCD10,"^", 1)=2!($P(C HCGCD10,"^ ",1)=1&($P (CHCGCD10, "^",7)=0))  S CHANGER T="Y"
  52    I $P(CHCG CD10,"^",1 )'=0 S CHA NGERT="Y"   
  53    I CHANGER T="N" S ^C HMZHOLD("C GRTERR",VS SN)="CG NO T ACTIVE:  "_$P(CHCGC D0,"^",4)_ " - STAT:  "_$P(CHCGC D10,"^",1)  G A2
  54    ;FOUND a  CG with ei ther 'Pend ing verifi cation' or  'Active'  status
  55    ;When upd ating entr ies with ' Pending' s tatus,:
  56    ;      re move stop  date if ex ists
  57    ;      se t the paym ent status  to 'Activ e' 
  58    ;      se t the paym ent types  to 'Recurr ing' if it 's set as  'backdated ' currentl y.
  59    K ARRNOTF D(VSSN)
  60    S INDUZ=" "
  61    S INDUZ=$ P(^CHCGVET S(741850.7 ,CGDFN,101 ,CHNOW,100 ,CGBFN,10) ,"^",6)                 
  62       S:INDU Z="" $P(^C HCGVETS(74 1850.7,CGD FN,101,CHN OW,100,CGB FN,10),"^" ,6)="40686 5"
  63       ;S CGH IST=^CHCGV ETS(741850 .7,CGDFN,1 01,CHNOW,1 00,CGBFN,1 0)
  64       ;I INR EC="" W !, CGDFN_"/"_ CGBFN_": " _CGHIST
  65       G A2
  66   END ;
  67           D  CLOSEF^CHT FLIB9(FILE ,"FILE")
  68    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  69    S X=$ZF(- 1,"DELETE  "_FILE_";* ")
  70   END1 ;
  71    K CGDFN,C GBFN,CHNOW ,CHCGCD0,C HCGCD10,AR RNOTFD,RTE ND
  72    Q