25. EPMO Open Source Coordination Office Redaction File Detail Report

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

25.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMS1010.m Mon Nov 5 16:39:42 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMS1010.m Tue Nov 6 22:07:05 2018 UTC

25.2 Comparison summary

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

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

25.4 Active regular expressions

No regular expressions were active.

25.5 Comparison detail

  1   CHCMS1010  ;DP;read t he new for mat of cms  file;Clea r all opti on;5/19/20 10
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  3    ;TST00583 2:  Auto p opulate da tes of dea th in APP  from the C MS reply f ile
  4    ;DEF01655 4 SBB 10/2 4/13  - Mo dified EOF  handling  as per VHA  standard.
  5    ;DEF01655 4 SBB 07/3 0/15  - Ad ding chang es for DEC NET
  6    ;
  7   RFILE1 ;re adin ssn f ile
  8    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  9    ;S FILE=" HACFS3"" DNS      HACdec741! ""::D:[FS3 BIG.cms100 9]NSSN.TXT "
  10    N POP,CNT R
  11    S FILE="N SSN.TXT"
  12    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  13    I UCI="HA C" S FOLDE R="HAC_HFS $:[SCR.TEM P_FILES]"
  14    I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"
  15    S FILE=FO LDER_FILE
  16    D FTPFILE ^CHTFLIB9( FILE," DNS     . DNS             ","/FS3BIG /cms1009", "GET")
  17    S UP="^"  S NTPN=1,$ ZE=""
  18    ;DEF01655 4-10/24/13 -SBB call  OPEN^%ZISH  to open t he file
  19    ;O FILE:" RS" U FILE  G:$ZE["EN DOFFILE" R FILE2 U FI LE
  20    ;SBB 07/3 0/15 DEF01 6554
  21    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  22    S POP=0,C NTR=0
  23    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D  
  24    . S POP=$ $OPENFIRD^ CHTFLIB9(. FILE,"FILE ")
  25    . Q
  26    I 'POP G  RFILE2
  27    ;DEF01655 4-10/24/13 -SBB use S TATUS^%ZIS H to check  for EOF
  28    ;F  U FIL E R TMPX:5  G:NTPN=0  RFILE2 G:$ ZE["ENDOFF ILE" RFILE 2 D
  29    F  U FILE  R TMPX:5  G:NTPN=0 R FILE2 G:$$ STATUS^%ZI SH RFILE2  D
  30    .S CHBID= $E(TMPX,1, 15)
  31    .S CHHICN =$E(TMPX,1 6,27) Q:CH BID=""
  32    .S CHSSN= $E(TMPX,85 ,93) Q:CHS SN=""  Q:C HSSN'?9N
  33    .S CHSEX= $E(TMPX,84 )
  34    .S LNAME= $E(TMPX,28 ,51)
  35    .S FNAME= $E(TMPX,52 ,66)
  36    .S MNAME= $E(TMPX,67 )
  37    .S DOB=$E (TMPX,68,7 5),Z1=3 S: $E(DOB,1)= 1 Z1=2 S D OB=Z1_$E(D OB,3,99)
  38    .S DOD=$E (TMPX,76,8 3),Z1=3 S: $E(DOD,1)= 1 Z1=2 S D OD=Z1_$E(D OD,3,99)
  39    .S CHSSN= $E(TMPX,85 ,93)
  40    .S CHMASD T=$E(TMPX, 94,101),Z1 =3 S:$E(CH MASDT,1)=1  Z1=2 S CH MASDT=Z1_$ E(CHMASDT, 3,99)
  41    .S CHMAED T=$E(TMPX, 102,109),Z 1=3 S:$E(C HMAEDT,1)= 1 Z1=2 S C HMAEDT=Z1_ $E(CHMAEDT ,3,99)
  42    .S CHMBSD T=$E(TMPX, 112,119),Z 1=3 S:$E(C HMBSDT,1)= 1 Z1=2 S C HMBSDT=Z1_ $E(CHMBSDT ,3,99)
  43    .S CHMBED T=$E(TMPX, 120,127),Z 1=3 S:$E(C HMBEDT,1)= 1 Z1=2 S C HMBEDT=Z1_ $E(CHMBEDT ,3,99) 
  44    .D STT,RE SET
  45    Q
  46   RFILE2
  47    ;DEF01655 4-10/24/13 -SBB use C LOSE^%ZISH  to close  file
  48    D CLOSEF^ CHTFLIB9(F ILE,"FILE" )
  49    ;SBB 07/3 0/15 DEF01 6554
  50    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  51    S X=$ZF(- 1,"DELETE  "_FILE_";* ")
  52    ;C FILE 
  53    Q
  54   STT
  55    S CHSSN=$ E("0000000 00",1,9-$L (CHSSN))_C HSSN
  56    I '$D(^AH CHVA("G",C HSSN)) S C HNOSSN=1 Q
  57    S (DFN,BF N)=""
  58    S DFN=$O( ^AHCHVA("G ",CHSSN,0) ) I 'DFN S  CHNOSSN=1  Q
  59    S BFN=$O( ^AHCHVA("G ",CHSSN,DF N,0)) I 'B FN S CHNOS SN=1 Q
  60    I '$D(^AH CHVA(DFN,1 00,BFN,0))  S CHNOSSN =1 Q
  61    S:'$D(^CH MZHOLD("CM S_RESET"))  ^("CMS_RE SET")=$H
  62    S CHHDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3)
  63    S CHHDOD= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",6)
  64    Q
  65   RESET
  66    S %=$O(^A HCHVA(DFN, 101,""),-1 )
  67    S %1=$O(^ AHCHVA(DFN ,101,%),-1 )
  68    I $P(%,". ")=$P(%1," .") S %=%1
  69    Q:'$D(^AH CHVA(DFN,1 01,%,100,B FN,99))
  70    Q:$P(^AHC HVA(DFN,10 1,%,100,BF N,99),"^", 3)'="DOD E DIT"
  71    ;U 0 W !, $G(^AHCHVA (DFN,101,% ,100,BFN,9 9)) R XXX
  72    S $P(^AHC HVA(DFN,10 0,BFN,0)," ^",6)=""
  73    K ^AHCHVA (DFN,101,% ,100,BFN)
  74    ;Get rema ining vari ables for  Auto Calc:
  75    S (CHCD1, CHPD1)=$G( ^AHCHVA(DF N,100,BFN, 1))
  76    S CHCD5=$ G(^AHCHVA( DFN,100,BF N,5))
  77    S (CHCD9, CHPD9)=$G( ^AHCHVA(DF N,100,BFN, 0)),DT=$P( CHCD9,U,6)  S:'$D(DUZ ) DUZ=1
  78    K ^CHMZHO LD("CMS_RE SET",DFN)
  79    ;Auto Cal c:
  80    ;D ^CHMEA E9 D:CHCD' =CHPD ^CHM EAE8 S CHP D=CHCD D ^ CHMEAE81,^ CHMEAE9 D: CHCD'=CHPD  ^CHMEAE8     
  81    
  82    
  83