52. EPMO Open Source Coordination Office Redaction File Detail Report

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

52.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHICDML.m Mon Nov 5 16:43:23 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHICDML.m Mon Nov 5 17:41:16 2018 UTC

52.2 Comparison summary

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

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

52.4 Active regular expressions

No regular expressions were active.

52.5 Comparison detail

  1   CHICDML ;M J/HARRIS;I CD-10 DIFF  Mapping T ool file
  2           ;; V1.0;Jan 2 012;HARRIS  TEAM
  3    ;
  4    ;
  5    ;S TP="CM ",RG="R",Y EAR=2011 K  ^GLAZ("MC M") G GO
  6    ;
  7    ;R !,"Cle ar (Y/N):  Y// ",CLR  I CLR'="N" ,CLR'="n"  D ERASE
  8    I '$D(DUZ ) S DUZ=1, DUZ(0)="@"
  9    S RG="",Y R="",ICDTY PE=""
  10    ; both 9  and 10 out  of Glaz d irectory
  11    ;K IN S I N=0,IN("DI R")="CHAMP VA_USER:[ DNS     GLAZAY]"
  12       ;S IN( "FILES")=" 20*.TXT,RE IMB*.TXT"
  13    ; Reimbur sement onl y from FS3 BIG.  It i s now fixe d
  14    K IN S IN ="R"
  15    S RFILE=$ $MENU^CHIC DOL(.IN,.S EL)
  16    I SEL("CO DETYPE")'= "P",SEL("C ODETYPE")' ="C" R !," (C)M or (P )CS: ",SEL ("CODETYPE ")
  17    I RFILE[" GEM" S RG= "G"
  18    I RFILE[" REIMB" S R G="R"
  19    S TP=SEL( "CODETYPE" ) S:TP="C"  TP="CM" S :TP="P" TP ="PCS"
  20    I RG="" R  !,"(R)eim bursement  or (G)em:  ",RG
  21    S YEAR=20 _+$P(RFILE ,"20",2) 
  22    I YEAR'?1 "20"2N R ! ,"Year: ", YEAR
  23    I $G(SEL( "ICDTYPE") ) S ICDTYP E=SEL("ICD TYPE")
  24    E  I RFIL E["10_9" S  ICDTYPE=1 0
  25    E  I RFIL E["9_10" S  ICDTYPE=9
  26    I ICDTYPE ="" R !,"I CD(10) or  ICD(9): ", ICDTYPE
  27   GO O RFILE :"R"
  28    ;U 0 W !, "Opened fi le ",RFILE
  29    ;S SUB="M "_TP,GL="^ GLAZ" S:$G (@GL@(SUB) )="" @GL@( SUB)=0
  30    ;S $ZT="C MSER^CHICD ML"
  31    S A=$ZUTI L(68,40,1)
  32    U 0 W !," Loading",! ,! S REP=$ ZH
  33    F COUNT=0 :1 D  Q:$Z EOF=-1
  34    . U RFILE  R RST I $ ZEOF=-1 Q
  35    . S RST=$ TR(RST,$C( 10,13))
  36    . U 0
  37    . I $ZH-R EP>3 U 0 W  COUNT," "  S REP=$ZH
  38    . K ICD9
  39    . I ICDTY PE=10 S CO DE=$$STS($ E(RST,1,8) ),CODE=$ZU (28,CODE,5 )
  40    . I ICDTY PE=9 S COD E=$$STS($E (RST,1,6)) ,CODE=$ZU( 28,CODE,5)
  41    . I TP="P CS",ICDTYP E=9,$L(COD E)>2 S COD E=$E(CODE, 1,2)_"."_$ E(CODE,3,9 9)
  42    . I TP="C M",$L(CODE )>3 S CODE =$E(CODE,1 ,3)_"."_$E (CODE,4,99 )
  43    . I RG="G ",ICDTYPE= 10 D
  44    . . S FLA GS=$$STS($ E(RST,15,1 9))
  45    . . S ICD 9($$STS($Z U(28,$E(RS T,9,14),5) ))=FLAGS
  46    . I RG="G ",ICDTYPE= 9 D
  47    . . S FLA GS=$$STS($ E(RST,15,1 9))
  48    . . S ICD 9($$STS($Z U(28,$E(RS T,7,14),5) ))=FLAGS
  49    . I RG="R ",ICDTYPE= 10 D 
  50    . . S C1= $E(RST,9)
  51    . . K ICD 9
  52    . . F J=1 :1:C1 S IC D9($$STS($ ZU(28,$E(R ST,J*6+5,J *6+10),5)) )=""
  53    . ; store  data
  54    . ; add/l ookup entr y for icd1 0 code
  55    . K DA,DI C,DIE,DR
  56    . I ICDTY PE=10 S DI C="^CHIVM( 741033.7," ,DIC(0)="B LVX",DLAYG O=741033.7
  57    . I ICDTY PE=9 S DIC ="^CHMDIC( 741033.5," ,DIC(0)="B LVX",DLAYG O=741033.5
  58    . S DIC(" S")="I $P( ^(0),""^"" ,2)=TP"
  59    . S X=COD E D ^DIC
  60    . I Y=-1  Q
  61    . ;W !,2
  62    . S IEN=+ Y,GLAZIEN( IEN)=1
  63    . K DIC,D R
  64    . I ICDTY PE=10 S DI E="^CHIVM( 741033.7," ,DA=IEN
  65    . I ICDTY PE=9 S DIE ="^CHMDIC( 741033.5," ,DA=IEN
  66    . S DR="2 ///"_TP
  67    . D ^DIE
  68    . ;W !,3
  69    . ; add I CD9s
  70    . ;W !,CO DE,! ZW IC D9 W !
  71    . S IGX="
  72    . F  S IG X=$O(ICD9( IGX)) Q:IG X=""  D
  73    . . ; add  "new" ICD 9 multiple  under ICD 10
  74    . . K DIC ,DA,DIE,DR
  75    . . I ICD TYPE=10 S  DIC="^CHIV M(741033.7 ,"_IEN_",3 ,",DIC(0)= "BLVX",DLA YGO=741033 .73
  76    . . I ICD TYPE=9 S D IC="^CHMDI C(741033.5 ,"_IEN_",3 ,",DIC(0)= "BLVX",DLA YGO=741033 .53
  77    . . S DA( 1)=IEN,X=I GX D ^DIC
  78    . . ;W !, 4
  79    . . S IEN 1=+Y I IEN 1=-1 S GLA Z=1/0 Q 
  80    . . ; add  "new" YEA R entry un der ICD9
  81    . . K DIC ,DA,DIE,DR
  82    . . I ICD TYPE=10 S  DIC="^CHIV M(741033.7 ,"_IEN_",3 ,"_IEN1_", 1,",DIC(0) ="BLVX",DL AYGO=74103 3.731
  83    . . I ICD TYPE=9 S D IC="^CHMDI C(741033.5 ,"_IEN_",3 ,"_IEN1_", 1,",DIC(0) ="BLVX",DL AYGO=74103 3.531
  84    . . S DA( 2)=IEN,DA( 1)=IEN1
  85    . . S X=Y EAR D ^DIC
  86    . . ;W !, 5
  87    . . S IEN 2=+Y I IEN 2=-1 S GLA Z=1/0 Q
  88    . . ; add  data to Y EAR multip le
  89    . . K DIC ,DA,DIE,DR
  90    . . I ICD TYPE=10 S  DIE="^CHIV M(741033.7 ,"_IEN_",3 ,"_IEN1_", 1," K DR,D A
  91    . . I ICD TYPE=9 S D IE="^CHMDI C(741033.5 ,"_IEN_",3 ,"_IEN1_", 1," K DR,D A
  92    . . S DA( 2)=IEN,DA( 1)=IEN1,DA =IEN2
  93    . . S DR= $S(RG="R": 2,1:3)_"// /1" I RG=" G" S DR=DR _";4///"_I CD9(IGX)
  94    . . ;I IE N=15 D
  95    . . ;. ZW
  96    . . ;. ZW  ^CHIVM(74 1033.7,15)  W !,"Ente ring DIE"
  97    . . D ^DI E
  98    . . ;W !, 6
  99    . . ;I IE N=15 D
  100    . . ;. ZW  ^CHIVM(74 1033.7,15)  W !,"Done  with DIE"
  101    . . ;. R  *GLAZ
  102    . ;W 1/0
  103    Q
  104   CMSER ;
  105    U 0
  106    I $ZE'["E NDOFFILE"  W !,$ZE 
  107    E  W !,$G (COUNT),"  records lo aded into  ",GL,"(""" ,SUB,""")"
  108    C RFILE
  109    ZQ
  110   STS(A) ;
  111    N I
  112    F I=$L(A) :-1:1 Q:$E (A,I)'=" "
  113    Q $E(A,1, I)
  114    ; obsolet e
  115   GFILE() ;
  116    R !,"CM o r PCS: ",T P
  117    R !,"(R)e imbursemen t or (G)em  mapping:  ",RG
  118    R !,"Year : ",YEAR S :YEAR<20 Y EAR=20_YEA R
  119    S RFILE=" CHAMPVA_US ER:[ DNS     GLAZAY]CM_ 10_9_"_$S( RG="R":"R" ,1:"GEM")_ "_"_YEAR_" .TXT;1"
  120    Q RFILE
  121   XX ;
  122    S DIC=741 033.5,DIC( 0)="BLVX", DLAYGO=DIC
  123    R !,X D ^ DIC
  124    Q
  125   ERASE10 ;
  126    S ^CHIVM( 741033.7,0 )="ICD-10  REIMBURSEM ENT MAPPIN G^741033.7 ^0^0"
  127    S A=0 F   S A=$O(^CH IVM(741033 .7,A)) Q:A =""  K ^CH IVM(741033 .7,A)
  128    Q
  129   ERASE9 ;
  130    S ^CHMDIC (741033.5, 0)="ICD9 R EIMBURSEME NT MAPPING ^741033.5^ 0^0"
  131    S A=0 F   S A=$O(^CH MDIC(74103 3.5,A)) Q: A=""  K ^C HMDIC(7410 33.5,A)
  132    Q