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

18.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCGRATE.m Mon Nov 5 16:45:27 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCGRATE.m Tue Nov 6 21:59:03 2018 UTC

18.2 Comparison summary

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

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

18.4 Active regular expressions

No regular expressions were active.

18.5 Comparison detail

  1   CHCGRATE ; UPDATE STI PEN MONTHL Y-RATE USI NG 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  RTSTART="" ,RTEND=""
  11           S  $ZE="",$ZT ="END1^CHC GRATE"
  12   INIT  ; 
  13           K  ^CHMZHOLD( "CGRTERR")    ; SAVE  ERRORS:EXA MPLE - ^CH MZHOLD("CG RTERR",VET SSN)="ERRO R MSG"
  14           K  ARRNOTFD    ;SAVE VET  WITH NO A CTIVE CG 
  15           D  NOW^%DTC S  CHNOW=%
  16           D  GETDATE Q: RTSTART=""
  17           S  FIRSTTM=1, PREVSSN="9 99999999"
  18   READ ; 
  19           N  FOLDER,CNT R
  20           S  FILE="RATE 1.TXT",FOL DER=""
  21           S  IOF="#,*27 ,*91,*50,* 74,*27,*91 ,*72"
  22    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  23           I  UCI="HAC"  S FOLDER=" HAC_HFS$:[ SCR.TEMP_F ILES]"
  24           I  UCI'="HAC"  S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]"
  25           S  FILE=FOLDE R_FILE
  26             D FTPFILE^ CHTFLIB9(F ILE," DNS     . DNS             ","/FS3BIG /CGRATE"," GET")
  27           S  UP="^" S $ ZE=""
  28           S  POP=0
  29           X  "D $SYSTEM .Process.S etZEOF(1)"
  30    S POP=0,C NTR=0
  31           F   S CNTR=CN TR+1 Q:(CN TR>5)!POP   D  
  32           .S  POP=$$OPE NFIRD^CHTF LIB9(.FILE ,"FILE")
  33           .Q
  34       I 'POP  G END1
  35   READ1 ;
  36    U FILE R  X:5 G:$$ST ATUS^%ZISH  END
  37    G:X["---- ---------- ---" READ1
  38    G:X["VetS SNText" RE AD1
  39           S  NEWREC=X
  40           S  VETSSN=$P( NEWREC,"," ,1),CGRATE =$P(NEWREC ,",",3)
  41           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
  42           I  VETSSN'=""  S VSSN=$$ STRIP^XLFS TR(VETSSN, " ") S PRE VSSN=VSSN
  43           I  CGRATE'=""  S CGRATE= $$STRIP^XL FSTR(CGRAT E," ") 
  44           S  ARRNOTFD(V SSN)=""  ;  Initializ e NotFound  Array ->  when Activ e CG is fo und, ARRNO TFD is kil led
  45   A1 S (CGDF N,CGBFN,CH CGCD0,CHCG CD10)=""
  46       S CGDF N=0,CGDFN= $O(^CHCGVE TS(741850. 7,"C",VSSN ,CGDFN))
  47       I 'CGD FN S ^CHMZ HOLD("CGRT ERR",VSSN) ="VET SSN  NOT FOUND  IN CHCGVET S(741850.7 " G READ1
  48       S CGBF N=0
  49   A2  S CGBF N=$O(^CHCG VETS(74185 0.7,CGDFN, 100,CGBFN) ) G:'CGBFN  READ1
  50    G:'$D(^CH CGVETS(741 850.7,CGDF N,100,CGBF N,10)) A2
  51    S CHANGER T="N"
  52    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 )
  53    ;I $P(CHC GCD10,"^", 1)=2!($P(C HCGCD10,"^ ",1)=1&($P (CHCGCD10, "^",7)=0))  S CHANGER T="Y"
  54    I $P(CHCG CD10,"^",1 )'=0 S CHA NGERT="Y"   
  55    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
  56    ;FOUND a  CG with ei ther 'Pend ing verifi cation' or  'Active'  status
  57    ;When upd ating entr ies with ' Pending' s tatus,:
  58    ;      re move stop  date if ex ists
  59    ;      se t the paym ent status  to 'Activ e' 
  60    ;      se t the paym ent types  to 'Recurr ing' if it 's set as  'backdated ' currentl y.
  61    K ARRNOTF D(VSSN)
  62       L +^CH CGVETS(741 850.7,CGDF N)
  63       ;Creat e a histor y entry on ly for new  changes.
  64       I $P(C HCGCD10,"^ ",2)'=RTST ART D                              
  65           .S  ^CHCGVETS (741850.7, CGDFN,101, CHNOW,100, CGBFN,10)= CHCGCD10
  66           .I  $P(CHCGCD 10,"^",3)= "" S $P(^C HCGVETS(74 1850.7,CGD FN,101,CHN OW,100,CGB FN,10),"^" ,3)=RTEND
  67           .Q
  68           S  $P(^CHCGVE TS(741850. 7,CGDFN,10 0,CGBFN,10 ),"^",2)=R TSTART
  69    S $P(^CHC GVETS(7418 50.7,CGDFN ,100,CGBFN ,10),"^",3 )=""
  70    S $P(^CHC GVETS(7418 50.7,CGDFN ,100,CGBFN ,10),"^",5 )=CGRATE
  71    S $P(^CHC GVETS(7418 50.7,CGDFN ,100,CGBFN ,10),"^",6 )=DUZ
  72    I $P(CHCG CD10,"^",1 )=1&($P(CH CGCD10,"^" ,7)=1) S $ P(^CHCGVET S(741850.7 ,CGDFN,100 ,CGBFN,10) ,"^",7)=0, ^CHMZHOLD( "CGRTERR", VSSN)="**C HANGED FRO M BACKDATE D TO RECUR RING**"_$P (CHCGCD0," ^",4)
  73    I $P(CHCG CD10,"^",1 )'=2 S $P( ^CHCGVETS( 741850.7,C GDFN,100,C GBFN,10)," ^",1)=2 
  74    L -^CHCGV ETS(741850 .7,CGDFN)
  75       G A2
  76   GETDATE ;  GET START  DATE OF NE W RATE 
  77       S DIR( 0)="D" S D IR("A")="E nter START  date (mm/ dd/yy) for  the New R ate; Enter  ""^"" to  END" D ^DI R K DIR
  78       G:$D(D UOUT) END1
  79       G:$D(D IRUT) END1
  80       G:$D(D IROUT) END 1
  81    S RTSTART =Y
  82    S RTEND=$ $FMADD^XLF DT(RTSTART ,-1,0,0,0)
  83    W !!!,"Ne w Rate Sta rt = "_RTS TART
  84           W  !,"Old Rat e End   =  "_RTEND
  85    W !,"Are  the dates  correct? Y // "
  86    D CSBRS^C HSC2 I ($D (DFOUT))!( $D(DUOUT))  G GETDATE
  87           I  $D(DQOUT)  W "  Answe r ",@CHBON ,"Yes or N o." R Y:3  G GETDATE
  88    S:Y="" Y= "Y" I "YN" '[$$UPPER^ CHTFLIB(Y)  W *7,"  ? ?" R Y:2 G  GETDATE
  89    G:"Nn"[Y  GETDATE
  90    Q
  91   END ;
  92           D  CLOSEF^CHT FLIB9(FILE ,"FILE")
  93    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  94    ;S X=$ZF( -1,"DELETE  "_FILE_"; *")
  95   END1 ;
  96    K CGDFN,C GBFN,CHNOW ,CHCGCD0,C HCGCD10,AR RNOTFD,RTS TART,RTEND
  97    Q