201. EPMO Open Source Coordination Office Redaction File Detail Report

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

201.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLRT1.m Mon Nov 5 16:40:46 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLRT1.m Fri Nov 9 03:18:08 2018 UTC

201.2 Comparison summary

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

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

201.4 Active regular expressions

No regular expressions were active.

201.5 Comparison detail

  1   CHMLRT1 ;M D/DEN;READ  REDBOOK U PDATE TAPE ;04/18/97   12:39 PM
  2    ;V1.0
  3    ;PT #1612 1 (Y2K) -  Converted  to Y2K For mat
  4    ;FWP Cach e Updates  - Tape Rou tine, no c hanges. 3/ 10/2005
  5   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  6    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  7    ;*** MODI FICATION -  kill temp  global be fore start  10/10/200 3-sgs ***
  8    K ^CHMZPD X("RED"),^ CHMZPDX("R EDBCH"),^C HMZPDX("RE DUP")
  9    ;set var  IOF for cl ear screen
  10    S:'$D(IOF ) IOF="#,$ C(27,91,50 ,74,27,91, 72)"
  11    ;*** END  MODIFICATI ON ***
  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    W @IOZF,! ,?15,"CHAM PVA CENTER  - READ IN  REDBOOK U PDATE FILE ",!,?30,"[ Part 1 of  3]"
  15   A0 W !!,"A re you rea ding from  the <T>ape  or <F>ile ? " D SBRS
  16    Q:$D(DUOU T)  Q:$D(D FOUT)  I $ D(DQOUT) D   G A0
  17    .W !!,"En ter a <T>  if reading  from the  Tape, or"
  18    .W !,"Ent er an <F>  if reading  from a Fi le."
  19    Q:Y=""  S  Y=$E(Y) I  "TFtf"'[Y  W *7," ?? " G A0
  20    S:Y="t" Y ="T" S:Y=" f" Y="F" S  CHSRCE=Y
  21   A01 I CHSR CE="F" D F 1 G A0:$D( DFOUT),A0: $D(DUOUT), A01:$D(DQO UT),A0:'$D (IO)
  22    .W !!,"Fi le Name: V A554A01""D SMVAXMGR p assword"": :HAC_HFS$: [DSMMANAG] TAPERD.DAT  //"
  23    ;.D SBRS  Q:$D(DFOUT )  Q:$D(DU OUT)  Q:$D (DQOUT)  K  IO
  24    ;.I Y=""  D  Q
  25    ;..S IO=" VA5541""DS MMANAG MEX COP""::HAC _HFS$:[DSM MANAG]TAPE RD.DAT"
  26    ;.I Y'?1" VA554"1N.E 1"::".A1"4 ".A1":[".A 1"]".A1"." .E W *7,"  ??" Q
  27    ;.S IO=Y
  28    W !! S %D T("A")="Pl ease enter  date (mm/ dd/yy) of  REDBOOK up date file:  "
  29    S %DT="AE X" D ^%DT  K %DT S TD =Y
  30    S ^CHMZPD X("REDUP", "CHDATE")= TD  ;**NEW  MAR 18, 9 4
  31    G A1:'$D( ^CHMPDX("T APE",TD))
  32    R !!,"Fil e has alre ady been r ead!!  Do  you wish t o re-read?   NO//",X
  33    Q:(X="")! ($E(X,1)'= "Y")
  34   A1 ;R !!," Enter numb er of reco rds to be  read in:   ",B
  35    S ^CHMPDX ("TAPE",TD )=DT
  36    U $I W !! ,"READING  IN REDBOOK  FILE...", !!
  37    S I=0
  38    I CHSRCE= "T" D  Q:' $T
  39    .S $ZT="F ATAL"
  40    .O "TAPE1 $":(FORMAT ="AUF5":RE CORDSIZE=1 95:BLOCKSI ZE=780):10
  41    .I '$T U  0 W *7,*7, !!,"Tape d rive not a vailable!   Exiting.. ." Q
  42    .U "TAPE1 $" W *5
  43    I CHSRCE= "F" O IO:" R":767 S $ ZE="",$ZT= "END^CHMLR T1"  ;edit ed for cac he by scot t doan on  03.17.05
  44   A2 S I=I+1
  45    ;*** MODI FICATION -  monitor p rogress 10 /10/2003-s gs ***
  46    U 0 D IOX Y^XGF(22,1 ) W "Proce ssing reco rd #",I
  47    ;*** END  MODIFICATI ON ***
  48    ;G A3:B=( I-1)
  49    ;S N=195
  50    S CHKFGL= ""   ;7/15 /08  JPN I NITIALIZED  FLAG
  51    S N=0
  52    S SN=1
  53    S XX=""
  54    U:CHSRCE= "T" "TAPE1 $"
  55    U:CHSRCE= "F" IO
  56    R X
  57    D GLCHK    ;ADDED 5/ 13/08 JPN   TTID DEV0 00150-02  
  58    G A2:CHKF LG   ;ADDE D 5/13/08  JPN  TTID  DEV000150- 02
  59    F J=1:1:4  D
  60    .S:J<4 N= N+195
  61    .S:J=4 N= N+182
  62    .S XX=$E( X,SN,N)
  63    .S:J<4 SN =SN+195
  64    .S:J=4 SN =SN+182
  65    .G A3:($Z A\1024#2) 
  66    .S:($ZA\1 6384#2) I= I-1 
  67    .G A2:$L( X)=0  
  68    .S ^CHMZP DX("REDUP" ,TD,I,J)=X X
  69    ;*** MODI FICATION -  take out  monitor 10 /10/2003-s gs ***
  70    ;I I#100= 0 U 0 W !, I,"  ",$H
  71    ;*** END  MODIFICATI ON ***
  72    G A2
  73   A3 I CHSRC E="T" C "T APE1$":DIS MOUNT
  74    I CHSRCE= "F" C IO
  75    ;I B'=(I- 1) W !!,"N umber of r ecords rea d does not  equal num ber entere d!!!"
  76    U 0 W *7, *7,*7,!!," Tape Is Fi nished!"
  77   END ;*** M ODIFICATIO N - additi onal info  for user 1 0/10/2003- sgs ***
  78    C IO D HO ME^%ZIS
  79    I $D(^CHM ZPDX("REDU P")) W !!, "The 1st o f this 3-p art proced ure is com plete ",I- 1," record s read",!, " from the  REDBOOK s ource file .",!! D
  80    .K AYG S: '$D(DTIME)  DTIME=60  R !,"<Pres s any key  to continu e>",AYG#1: 5
  81    .;*** Sta rt other r outines fr om here -  sgs ***
  82    .I AYG'[" ^" D
  83    ..D ^CHML RL1 I '$D( ^CHMZPDX(" RED")) Q
  84    ..D ^CHML UR
  85    Q
  86    ;*** END  MODIFICATI ON ***
  87   FATAL U 0  W !!!,*7,* 7,"A tape  drive erro r has occu red!!",!!, "Error is:  ",$ZE
  88    G A3
  89   F1 ;K IO W  !!,"Enter  CPU: VA55 40// " D S BRS Q:$D(D FOUT)  Q:$ D(DUOUT)
  90    ;I $D(DQO UT) D  G F 1
  91    ;.W !!,"E nter the C PU name or  <RETURN>  for the de fault. "
  92    ;I Y="" S  CHA="VA55 40" G F2
  93    ;I Y'?1"V A554"1N W  *7," ??" G  F1
  94    ;S CHA=Y
  95   F2 ;W !!," Enter Pass word: " D  SBRS Q:$D( DFOUT)  Q: $D(DUOUT)
  96    ;I $D(DQO UT) W !!," Enter the  Password o r <RETURN> . " G F2
  97    ;Q:Y=""   S CHB=Y
  98   F3 W !!,"E nter Filen ame: " D S BRS Q:$D(D FOUT)  Q:$ D(DUOUT)
  99    I $D(DQOU T) W !!,"E nter the F ilename or  <RETURN>.  " G F3
  100    Q:Y=""  I  Y'?.E1"." .A W *7,"  ??" G F3
  101    ;SET ENVI RONMENT
  102    S ENVIR=" "
  103    S AYGSYS= XQVOL
  104    S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V")
  105    S ENVIR=A YGSYS
  106    ;S CHC=Y, IO="HACFS1 ::E:[FS1BI G.REDBOOK] "_CHC
  107    ;S CHC=Y, IO="HACFS1 "" DNS     DWYDEC Dwy er123""::E :[FS1BIG.R EDBOOK]"_C HC
  108    S CHC=Y,I O="HACFS3" " DNS     COLEDEC We lcome1!"": :d:[FS3BIG .CODEUPDT. REDBOOK."_ ENVIR_"]"_ CHC
  109   F4 W !!,IO ,!!,"Is th is correct ? " D SBRS
  110    Q:$D(DFOU T)  Q:$D(D UOUT)  I $ D(DQOUT) D   G F4
  111    .W !!,"En ter 'Y' or  'N'. "
  112    I Y="" W  !!,"Enter  'Y' or 'N' . " G F4
  113    S Y=$E(Y, 1) I "ynYN "'[Y W *7, " ??" G F4
  114    G F1:"Nn" [Y Q
  115   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  116    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  117   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  118    I IOZFO=Y  W:$D(IOZF ) @IOZF S  (DFOUT,Y)= "" Q
  119    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  120    Q
  121   GLCHK ;ADD ED 5/13/08  JPN  TTID  DEV000150 -02
  122    ;ADDING N EW LINE TA G TO CHECK  THE GLOBA L ^CHMPDX  TO SEE IF 
  123    ;THERE HA S BEEN A M ODIFICATIO N TO THE F IELD
  124    ;IF A MOD IFICATION  HAS TAKEN  PLACE THEN  WE WILL N OT UPDATE  THE FIELD
  125    S (NDCNUM ,CHMDI)="" ,CHKFLG=0
  126    S NDCNUM= $E(X,69,81 )
  127    I $D(^CHM PDX("C",ND CNUM))  D
  128    . S CHMDI =$O(^CHMPD X("C",NDCN UM,CHMDI))
  129    . I $D(^C HMPDX(CHMD I,3)) S CH KFLG=1
  130    Q