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

100.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMEDU41.m Mon Nov 5 16:43:19 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMEDU41.m Mon Nov 5 17:44:13 2018 UTC

100.2 Comparison summary

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

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

100.4 Active regular expressions

No regular expressions were active.

100.5 Comparison detail

  1   CHMEDU41 ; HAC/CSW;WR ITE SSN CH ANGES TO T APE;10/13/ 94  9:45 A M
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  3    ;;HAC/RKN  CPTS 1571 9 BY RKN 1 1/22/2000  @ 1004AM
  4    ;;MODIFIE D TO REMOV E FTP AND  TAPE WRITE S --RVS 1/ 14/10
  5    ;IO="HAC_ HFS$:[DEER S]DEERSSN. DAT
  6    ;DEERS EM AIL NOTIFI CATIONs FR OM VISTA -  ADDED 1/2 2/2010 RVS
  7    ;DEERS EM AIL NOTIFI CATIONs FR OM VISTA -  ADDED 1/2 2/2010 RVS
  8    ;update d eers email  - MTN0196 17 DPT -11 /8/13
  9    ;POC chan ge - MTN02 3373 DPT 5 /22/15
  10   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  11    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  12    I '$D(IOZ ) S %IS="N ",IOP=$I D  ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS
  13   ZNAM ;
  14   A0 S Y="F"
  15    ;S:Y="t"  Y="T" S:Y= "f" Y="F" 
  16    S CHDEST= "F"
  17    ;W:CHDEST ="T" !!,"D eers Tape  Process -  Write SSN/ NAME Chang es to Tape " -- remov ed RVS 1/1 4/10
  18    W:CHDEST= "F" !!,"De ers File P rocess - W rite SSN/N AME Change s to File" ,!!,"(Plea se wait, f ile proces sing may t ake approx imately 10  minutes!) "
  19    ;I CHDEST ="T" D  Q: '$T
  20    ;.W !!,"W hen tape i s ready hi t ",$C(155 ,49,109)," RETURN",$C (155,50,50 ,109)," to  start: "  R Y Q:Y["^ "
  21    ;.O "TAPE 1$":(FORMA T="ELF5":R ECORDSIZE= 84:BLOCKSI ZE=8064):5
  22    ;.I '$T U  0 W $C(7) ,$C(7),!!, "Tape driv e not avai lable!  Ex iting..."  Q
  23    ;.U "TAPE 1$" W *5
  24   A01 
  25    I CHDEST= "F" D F1 G  A0:$D(DUO UT),A0:$D( DFOUT),A01 :$D(DQOUT) ,A0:'$D(IO ) O IO:"NW U"   ; JEH  8/11/05
  26    K FILL S  $P(FILL,"  ",80)=" ", NNAM=$E(FI LL,1,27)
  27    S CT=0,OS SN="" 
  28   A1 S OSSN= $O(^AHCHVA ("SSN-CHG" ,OSSN)),NA ME="" G NA ME:OSSN=""
  29   A2 S NAME= $O(^AHCHVA ("SSN-CHG" ,OSSN,NAME )),NSSN=""  G A1:NAME =""
  30   A3 S NSSN= $O(^AHCHVA ("SSN-CHG" ,OSSN,NAME ,NSSN)) G  A2:NSSN=""
  31    S L=$P(NA ME,","),F= $P($P(NAME ,",",2),"  "),M=$P($P (NAME,",", 2)," ",2)
  32    S X="" F  I=1:1:$L(L ) S:$E(L,I )?1U X=X_$ E(L,I)
  33    S L=$E(X_ FILL,1,16) ,X="" F I= 1:1:$L(F)  S:$E(F,I)? 1U X=X_$E( F,I)
  34    S F=$E(X_ FILL,1,10)  S M=$E(M)  S:M'?1U M =" " S ONA M=L_F_M
  35    S REC=" " _OSSN_" "_ ONAM_"   " _NNAM_" "_ NSSN_"       "
  36    I $L(REC) '=84 S $P( ^AHCHVA("S SN-CHG",OS SN,NAME,NS SN),"^",2) ="BAD" G A 3
  37    ;I CHDEST ="T" U "TA PE1$" W RE C
  38    I CHDEST= "F" D ZWCH AR^CHMSNUT L(IO,REC)     ;U IO W  REC,!     ;SKD,7-19- 05
  39    S CT=CT+1
  40    G A3
  41   NAME D ^CH MEDU71       ;write N ame Change s to file,  DEERSSN.D AT
  42   END ;I CHD EST="T" C  "TAPE1$":D ISMOUNT
  43    I CHDEST= "F" C IO D  ZWCLOSE^C HMSNUTL(IO ,84,512)    ;SKD, 7-1 9-05
  44    W @IOF,$C (7),!!,"Fi le write c ompleted.   ",CT," re cords sent ."
  45    W !!,"Dir ectory and  filename:  ",IO
  46    W !!,"Hit  ",$C(155, 49,109),"R ETURN",$C( 155,50,50, 109)," to  exit: " R  Y
  47    K OSSN,FI LL,NNAM,NA ME,NSSN,L, F,M,X,I,ON AM,REC
  48    G NOTIFY
  49    Q
  50   F1 
  51    S Y="DEER SSN.DAT"
  52    S CHC=Y,I O="HAC_HFS $:[DEERS]" _Y   ; JEH  8/11/05 -  CHANGED D IR - RVS 1 /14/2010
  53   FTPOUT ;C  IO -- remo ved RVS 1/ 14/10
  54    ;H 600                  ;wait 1 0 minutes  for file t o be close d
  55    ;H 200                   ;wait  2 minutes  for file t o be close d   ;SKD - - removed  RVS 1/14/1 0
  56    ;D ^CHMED U42  -- re moved RVS  1/14/10
  57    Q
  58    ;
  59   NOTIFY ;SE ND DEERS N OTIFICATIO N EMAILS F ROM VISTA  - ADDED 1/ 22/2010 RV S
  60    ;
  61    S XMSUB=" DEERS Spon sor SSN/Na me change  file "
  62    S XMDUZ=. 5
  63    ;S XMY(98 87)="" S X MY(23249)= "" S XMY(3 53244)=""  ;MTN019617  DPT 
  64    ;S XMY(35 3244)=""
  65    ;D UCI^%Z OSV I $P(Y ,",",1)="H AC" S XMY( " PII                    ")=""
  66    S XMY(" PII             ")=""
  67    D UCI^%ZO SV I $P(Y, ",",1)="HA C" S XMY(" PII             ")=""
  68    ;D UCI^%Z OSV I $P(Y ,",",1)="H AC" S XMY( " P I                 ")=""
  69    ;D UCI^%Z OSV I $P(Y ,",",1)="H AC" S XMY( "cindy.ful tz@osd.pen tagon.mil" )=""
  70    ;D UCI^%Z OSV I $P(Y ,",",1)="H AC" S XMY( "jennifer. a.bench.ct r@mail.mil ")="" ;MTN 019617 DPT  
  71    D UCI^%ZO SV I $P(Y, ",",1)="HA C" S XMY(" 'patti.k.n ortham.ctr @mail.mil' ")=""  ;DP T 5/22/15  MTN023373
  72    D UCI^%ZO SV I $P(Y, ",",1)="HA C" S XMY(" production .support@o sd.pentago n.mil")=""
  73    ;D UCI^%Z OSV I $P(Y ,",",1)="H AC" S XMY( "richard.b urton@osd. pentagon.m il")=""
  74    S TEXT(1) ="Greeting s;"
  75    S TEXT(2) =" "
  76    S TEXT(3) ="We have  generated  a file on  the HAC Pr oduction s ystem whic h will be  rename to  DMDCP.DRS3 4W.TR.DRSC VA dated " _$$FMTE^XL FDT(DT,"5D ")
  77    S TEXT(4) ="and move d to your  system via  our MoveI t Applicat ion."
  78    S TEXT(5) =" "
  79    S TEXT(6) ="This fil e contains  "_CT_" re cords."
  80    S TEXT(7) =" "
  81    S TEXT(8) ="You will  receive a nother ema il confirm ing the su ccessful m ovement of  the file  from our s ystem to y ours"
  82    S TEXT(9) =" "
  83    S TEXT(10 )="If ther e are any  questions  please fee l free to  contact HA C PST or T ammy Byrum ."
  84    S TEXT(11 )=" "
  85    S TEXT(12 )="Thank Y ou and hav e a Great  Day"
  86    S XMTEXT= "TEXT("
  87    D ^XMD
  88    K XMY,XMD UZ,TEXT,XM TEXT,XMSUB
  89    Q
  90   SBRS D CSB RS^CHSC2 Q
  91    R Y:$S($D (DTIME):DT IME,1:60)
  92    I '$T W $ C(7) R Y:5  G SBRS:Y= "." S:'$T  Y=IOZFO
  93   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  94    I IOZFO=Y  W:$D(IOZF ) @IOZF S  (DFOUT,Y)= "" Q
  95    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  96    Q