191. EPMO Open Source Coordination Office Redaction File Detail Report

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

191.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLICD2.m Mon Nov 5 16:41:58 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLICD2.m Mon Nov 5 17:50:18 2018 UTC

191.2 Comparison summary

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

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

191.4 Active regular expressions

No regular expressions were active.

191.5 Comparison detail

  1   CHMLICD2 ; JLR/DEN;IC D-9 CODES  TAPE READ  IN;09/30/9 8  2:52 PM
  2    ;V1.0
  3    ;W @IOF,! ,"CHAMPVA  CENTER - R EAD FILE O F ICD-9 CO DES"
  4    ;W ! S %D T("A")="En ter effect ive date:   ",%DT="AE X"
  5    ;D ^%DT K  %DT S TD= Y
  6    D INIT
  7   A01   ;D F 3
  8    W @IOF,!, "READING I N ICD-9 TA PE........ ",!
  9    O IO:"R": 10
  10    S $ZE="", $ZT="MORE^ CHMLICD2"
  11    S I=0
  12   A1 S I=I+1
  13    U IO R X
  14    I $L(X)'< 1 S:'$D(^C HMZHOLD("I CD-9",I))  ^CHMZHOLD( "ICD-9",I) =X
  15    G A1
  16   MORE C IO
  17    S ^CHMZHO LD("ICD-9" ,0)=I_"^"_ TD
  18    U 0 W *7, *7,*7,!!," Tape Is Fi nished!"
  19   END Q
  20    ;F3 ;CHEC K FILENAME  IN ICD9UP DT -- MODI FIED DTP A UG-01
  21    ;S IO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD9UPDT.T EST]CDTA05 10.DAT"
  22    ;S IO="ED I1::E:[X12 .IN]CDTA01 10.DAT"
  23    ;S IO="74 1D01::HAC_ HFS$:[SCR. 000000]CDT A0110.DAT"
  24    ;W !!,"Op enning: ", IO,!!
  25    ;Q
  26   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  27    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  28   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  29    I IOZFO=Y  W:$D(IOZF ) @IOZF S  (DFOUT,Y)= "" Q
  30    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  31    Q
  32   INIT ;INIT IALIZE VAR IABLES
  33    W @IOF,!, "CHAMPVA C ENTER - RE AD FILE OF  ICD-9 COD ES"
  34    W ! S %DT ("A")="Ent er effecti ve date:   ",%DT="AEX "
  35    D ^%DT K  %DT S TD=Y
  36    ;SET ENVI RONMENT
  37    S AYGSYS= XQVOL
  38    S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V")
  39    S ENVIR=A YGSYS
  40    S DIR("B" )=ENVIR
  41    S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V"
  42    S DIR("L" ,1)="Selec t one of t he followi ng environ ments"
  43    S DIR("L" ,2)=""
  44    S DIR("L" ,3)="   1   LIVE"
  45    S DIR("L" ,4)="   2   TRAIN"
  46    S DIR("L" ,5)="   3   TEST"
  47    S DIR("L" ,6)="   4   DEV"
  48    S DIR("L" ,7)=""
  49    S DIR("L" )="   ^    QUIT"
  50    D ^DIR K  DIR
  51    Q:$D(DUOU T)
  52    Q:Y=""
  53    Q:Y="^"!( Y="")
  54    S ENVIR=Y (0)
  55    S $ZE="", $ZT="END"
  56    ;SET ICD- 9 FILE NAM E
  57    S DIR(0)= "F^3:50"
  58    S DIR("A" )="Enter I CD-9 file  name (CDTA 0810.DAT)"  D ^DIR K  DIR
  59    Q:$D(DUOU T)
  60    Q:Y="^"!( Y="")
  61    S CNAME=Y  K DIR
  62    S IO="HAC FS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD9UPDT." _ENVIR_"]" _CNAME     ; NAME OF  ICD-9 FILE
  63    Q
  64