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

192.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLICD22.m Mon Nov 5 16:43:18 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLICD22.m Mon Nov 5 17:50:19 2018 UTC

192.2 Comparison summary

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

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

192.4 Active regular expressions

No regular expressions were active.

192.5 Comparison detail

  1   CHMLICD22  ;JEH/DEN;I CD-9 CODES  TAPE READ  IN;10/10/ 06  2:52 P M
  2    ;V1.0
  3    ;*** COPY  OF ^CHMLI CD2 *** MO DIFIED TO  PROCESS P& C's FILE
  4    ;     RUN  ^CHMLICD3 3 AFTER RU NNING THIS  ROUTINE
  5    ;     
  6    ;*** DO N OT USE FOR  YEARLY MA SS UPDATE  - USE ONLY  FOR P&C E XCEL UPDAT E ***
  7    ;
  8    W @IOF,!, "CHAMPVA C ENTER - RE AD P&C's F ILE OF ICD -9 CODES"
  9   A01 ;D F3
  10    D SETENV
  11    Q:$D(DUOU T)
  12    Q:Y="^"!( Y="")
  13    Q:PCUPDT= 0   ; QUIT  IF NOT A  P&C UPDATE
  14    W !!,"REA DING IN IC D-9 DX FIL E........"
  15    O IODX:"R ":5 S $ZE= "",$ZT="B0 1^CHMLICD2 2"
  16    S I=0
  17   A1 ;
  18    U IODX R  X
  19    S I=I+1
  20    S CTYPE=" D"
  21    S CODE=""  S CODE=$P (X,"^",1)    ; ICD-9  CODE
  22    S DESC=""  S DESC=$P (X,"^",2)    ; DESCRI PTION OF C ODE
  23    S CHAI=""  S CHAI=$P (X,"^",3)    ; CHAMPV A AI TEST
  24    S SBAI=""  S SBAI=$P (X,"^",4)    ; SPINA  BIFIDA AI  TEST
  25    S REC=""  S REC=CTYP E_"^"_CODE _"^"_DESC_ "^"_EFFDT_ "^"_CHAI_" ^"_SBAI
  26    I $L(X)'< 1 S:'$D(^C HMZHOLD("I CD-9",I))  ^CHMZHOLD( "ICD-9",I) =REC
  27    G A1
  28   B01 ;
  29    C IODX
  30    W !,"READ ING IN ICD -9 PX FILE ........"
  31    O IOPX:"R ":5 S $ZE= "",$ZT="MO RE^CHMLICD 22"
  32   B1 ;
  33    U IOPX R  X
  34    S I=I+1
  35    S CTYPE=" O"
  36    S CODE=""  S CODE=$P (X,"^",1)    ; ICD-9  CODE
  37    S DESC=""  S DESC=$P (X,"^",2)    ; DESCRI PTION OF C ODE
  38    S CHAI=""  S CHAI=$P (X,"^",3)    ; CHAMPV A AI TEST
  39    S SBAI=""  S SBAI=$P (X,"^",4)    ; SPINA  BIFIDA AI  TEST
  40    S REC=""  S REC=CTYP E_"^"_CODE _"^"_DESC_ "^"_EFFDT_ "^"_CHAI_" ^"_SBAI
  41    I $L(X)'< 1 S:'$D(^C HMZHOLD("I CD-9",I))  ^CHMZHOLD( "ICD-9",I) =REC
  42    G B1
  43   MORE ;
  44    C IOPX
  45    S ^CHMZHO LD("ICD-9" ,0)=I_"^"_ EFFDT
  46    U 0 W *7, *7,*7,!!," Tape Is Fi nished!"
  47   END ;
  48    W !!,"End  of ^CHMLI CD22"
  49    W !!,"***  RUN ^CHML ICD33 NEXT  ***",!
  50    K IODX,IO PX,CTYPE,I ,PCUPDT,EN VIR,CNAME, EFFDT,CODE ,DESC,CHAI ,SBAI,REC
  51    Q
  52   F3 ;
  53    S IO="HAC FS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD9UPDT.L IVE]CDTA04 10.DAT"
  54    W !!,"Ope ning: ",IO ,!!
  55    Q
  56   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  57    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  58   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  59    I IOZFO=Y  W:$D(IOZF ) @IOZF S  (DFOUT,Y)= "" Q
  60    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  61    Q
  62   SETENV ;SE T ENVIRONM ENT/DEFAUL TS
  63    ;CHECK FO R MASS/P&C  UPDATE
  64    K PCUPDT   ;P&C UPDA TE FLAG
  65    S DIR(0)= "Y",DIR("A ")="Is thi s a P&C up date",DIR( "B")="YES"  D ^DIR K  DIR
  66    Q:$D(DUOU T)
  67    Q:Y="^"!( Y="")
  68    S PCUPDT= Y
  69    Q:PCUPDT= 0
  70    ;
  71    S AYGSYS= XQVOL
  72    S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V")
  73    S ENVIR=A YGSYS
  74    S DIR("B" )=ENVIR
  75    S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V"
  76    S DIR("L" ,1)="Selec t one of t he followi ng environ ments"
  77    S DIR("L" ,2)=""
  78    S DIR("L" ,3)="   1   LIVE"
  79    S DIR("L" ,4)="   2   TRAIN"
  80    S DIR("L" ,5)="   3   TEST"
  81    S DIR("L" ,6)="   4   DEV"
  82    S DIR("L" ,7)=""
  83    S DIR("L" )="   ^    QUIT"
  84    D ^DIR K  DIR
  85    Q:$D(DUOU T)
  86    Q:Y=""
  87    Q:Y="^"!( Y="")
  88    S ENVIR=Y (0)
  89    S $ZE="", $ZT="END"
  90    ;SET ICD- 9 DX FILE  NAME
  91    W !
  92    S DIR(0)= "F^3:50"
  93    S DIR("A" )="Enter I CD-9 DX fi le name" D  ^DIR K DI R
  94    Q:$D(DUOU T)
  95    Q:Y="^"!( Y="")
  96    S CNAME=Y  K DIR
  97    S IODX="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD9UPDT." _ENVIR_"]" _CNAME     ; NAME OF  ICD-9 DX F ILE      ; ICD-9DXE ffOct106.t xt
  98    ;SET ICD- 9 PX FILE  NAME
  99    S DIR(0)= "F^3:50"
  100    S DIR("A" )="Enter I CD-9 PX fi le name" D  ^DIR K DI R
  101    Q:$D(DUOU T)
  102    Q:Y="^"!( Y="")
  103    S CNAME=Y  K DIR
  104    S IOPX="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD9UPDT." _ENVIR_"]" _CNAME     ; NAME OF  ICD-9 PX F ILE      ; ICD-9PXE ffOct106.t xt
  105    W ! S %DT ("A")="Ent er effecti ve date:   ",%DT="AEX "
  106    D ^%DT K  %DT S EFFD T=Y
  107    Q
  108