69. EPMO Open Source Coordination Office Redaction File Detail Report

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

69.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHLREDF2.m Mon Nov 5 16:44:19 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHLREDF2.m Mon Nov 5 17:41:50 2018 UTC

69.2 Comparison summary

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

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

69.4 Active regular expressions

No regular expressions were active.

69.5 Comparison detail

  1   CHLREDF2 ; JEH/DEN;UP DATE FORM  CODE FOR R EDBOOK;09/ 13/04  8:4 0 AM
  2    ;V1.0
  3   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  4    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  5    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
  6    ;
  7    S FILE="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. REDBOOK.LI VE]form.do s"
  8    O FILE:"R ":5 S $ZE= "",$ZT="EN D^CHLREDF2 "
  9    I '$T W ! !,"NOT ABL E TO OPEN  FILE" G EN D
  10    S CTR=0
  11    ;
  12    W !! S %D T("A")="Pl ease enter  date (mm/ dd/yy) of  REDBOOK Fo rm Code fi le: "
  13    S %DT="AE X" D ^%DT  K %DT S TD =Y
  14    S ^CHMPDX ("REDFC",T D)=DT
  15   A1 ;
  16    U FILE R  REC
  17    ;
  18    ;FC=FORM  CODE
  19    ;MFC=MAST ER FORM CO DE
  20    ;FORM DES CRIPTION
  21    ;
  22    S CTR=CTR +1
  23    S FC=$P(R EC,"|",1)
  24    S MFC=$P( REC,"|",2)
  25    S FD=$P(R EC,"|",3)
  26    U 0 W !," FC = ",FC, ?10,"MFC =  ",MFC,?30 ,"FD = ",F D
  27    ;G A1
  28    ;BELOW TA KES OUT TR AILING SPA CES
  29    F  Q:$E(M FC,$L(MFC) )'=" "  S  MFC=$E(MFC ,1,$L(MFC) -1)
  30    F  Q:$E(F C,$L(FC))' =" "  S FC =$E(FC,1,$ L(FC)-1)
  31    F  Q:$E(F D,$L(FD))' =" "  S FD =$E(FD,1,$ L(FD)-1)
  32    I '$D(^CH MPDX(74100 4.01,"B",F C)) D NEWR EC G A1
  33    S CI=0,CI =$O(^CHMPD X(741004.0 1,"B",FC,C I))
  34    I 'CI D N EWREC G A1
  35    S ^CHMPDX (741004.01 ,"C",MFC,C I)=""
  36    S ^CHMPDX (741004.01 ,CI,0)=MFC _"^"_FC_U_ FD
  37    G A1
  38   NEWREC ;CR EATES A NE W RECORD A ND X-REFS  FOR A CODE  WHICH DOE SN'T EXIST
  39    U 0 W !," *** NEW CO DE ***",?2 5,FC
  40    L ^CHMPDX (741004.01 )
  41    S CI=$P(^ CHMPDX(741 004.01,0), U,3)
  42    S CI=CI+1 ,^CHMPDX(7 41004.01,C I,0)=MFC_U _FC_U_FD
  43    S $P(^CHM PDX(741004 .01,0),U,3 )=CI
  44    S $P(^CHM PDX(741004 .01,0),U,4 )=$P(^CHMP DX(741004. 01,0),U,4) +1
  45    S ^CHMPDX (741004.01 ,"B",FC,CI )=""
  46    S ^CHMPDX (741004.01 ,"C",MFC,C I)=""
  47    ;
  48    G A1
  49   END ;
  50    C FILE
  51    U 0 W !," Total numb er of reco rds loaded  = ",CTR
  52    Q