60. EPMO Open Source Coordination Office Redaction File Detail Report

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

60.1 Files compared

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

60.2 Comparison summary

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

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

60.4 Active regular expressions

No regular expressions were active.

60.5 Comparison detail

  1   CHIVFI ;lg /HARRIS;IC D-10 VENDO R FILE ING EST
  2    ;;V1.0;Ja n 2012;HAR RIS TEAM
  3    ;;V2.0;Ma y 2013;HAR RIS TEAM
  4    ;;09/29/1 5 SBB DEF0 16554 fix  for decnet
  5    ;;
  6    ;; This r outine rep laces the  logic foun d in the H AC CHMLICD 2 routine
  7    ;; CHMLIC D2 ;JLR/DE N;ICD-9 CO DES TAPE R EAD IN;09/ 30/98  2:5 2 PM
  8    ;; and al so replace s the logi c in routi nes - CHML ICD3, CHML ICD4, and  CHMLICD5
  9    ;; CHMLIC D3 ;MCR/DE N;ICD-9 UP DATE CODES  TO FILEMA N FORMAT;1 0/13/92  3 :28 PM
  10    ;; CHMLIC D4 ;MCR/DE N;UPDATE I CD-9 SERVI CE FILE;10 /15/98  4: 21 PM
  11    ;; CHMLIC D5 ;MCR/DE N;UPDATE I CD-9 DX FI LE;10/01/9 8  8:27 AM
  12    ;;
  13    ;;Impleme nting nece ssary chan ges for CR 7 (SUBDIVI DED codes)  ICD-10 RC S -lg 4/30 /13
  14    ;;comment ed out cal l to load  vendor fil e -lg 5/8/ 13
  15    ;;added p rompt for  compliance  date -lg  5/8/13
  16    ;;working  on load a utomation  -lg 5/8/13
  17    ;;Bug #30  - GETIEN  fix for du plicate DX  codes bet ween versi on 9 & 10  -lg 8/29/1 4
  18    ;;
  19    Q
  20    ;
  21   EN ; code  set load a uto-instal L
  22    ;
  23    N DATA,DU Z,ER,IO,IO F,LG,LN,LN X,MMODE,ST OP,U,X,Y,Y Y
  24    ;
  25    S $ZE="", $ZT="EOF^C HIVFI" ; n ecessary e rror trapp ing logic  for proces s to compl ete
  26    S U="^",D UZ=1,DUZ(0 )="@" ; se t FileMan  user varia bles
  27    W #!!!,"Y ou are abo ut to run  THE HAC IC D-10 CODE  SET LOAD i n automati c mode.",! !,"Is this  okay" S % =2 D YN^DI CN I %'=1  Q
  28    S U="^",D UZ=1,DUZ(0 )="@"                             ; *** FOR  TESTING * ** -lg
  29    I '$D(IOF ) S IOF="# ,$C(27,91, 50,74,27,9 1,72)"      ; if the  pagefeed v ariable is  undefined , define i t -lg
  30    S STOP=0, $P(LN,"_", 80)=""                            ; process ing STOP f lag, line  characters
  31    S DATA("D ATE")=$P($ $FMDT^CHIU TIL(),".")             ; today's  date
  32    ; set eff ective yea r - effect ive and te rmination  dates alwa ys 10/01 a nd 09/30 r espectivel y
  33    ; if mont h is Jul ( 7) thru De c (12), ef fective an d terminat ion dates  are this y ear, other wise previ ous year
  34    S DATA("Y R")=$E(DAT A("DATE"), 1,3)-(($E( DATA("DATE "),4,5))'> 6) ; effec tive year
  35    S DATA("E FFDATE")=D ATA("YR")_ "1001"                 ; effecti ve   date  always Oct   1st
  36    S DATA("T ERMDATE")= DATA("YR") _"0930"                ; termina tion date  always Sep  30th
  37    F  W !!," The ICD-10  'Complian ce Date' w ill be set  to: ",$$F MTE^DILIBF (DATA("EFF DATE"),"1U ") D  Q:OK AY=1
  38    .W !,"Is  this date  correct" S  %=1 D YN^ DICN S OKA Y=% Q:OKAY =1  D  ;
  39    ..W !!,"W ould you l ike to cha nge the 'C ompliance  Date'" S % =2 D YN^DI CN
  40    ..I %=1 D   Q:Y'>0   S DATA("EF FDATE")=Y, X1=Y,X2=-1  D C^%DTC  S DATA("TE RMDATE")=X
  41    ...S %DT= "AEX",%DT( "A")="NEW  ICD-10 Com pliance Da te: ",%DT( "B")=$$FMT E^DILIBF(D ATA("EFFDA TE"),"1U")  ; DILIBF  call from  ^DD("DD")
  42    ...W ! D  ^%DT
  43    ...Q
  44    ..Q
  45    .Q
  46    K OKAY S  LNX=0
  47    S LG("H") =$P($T(LTX T+LNX),";; ",2)
  48   CONT ; the  process c omes here  after each  file load  to contin ue process ing next f ile
  49    I STOP Q
  50    S LNX=$I( LNX)
  51    S LG("L") =$T(LTXT+L NX),LG("W" )=$P(LG("L "),";;",2)
  52    I LG("W") =""  D FIN ISH Q  ; i f all file s have bee n processe d run the  conversion s then qui t, done.
  53    S IO=LG(" H")_LG("W" )
  54    S DATA("F ILE")=$P(L G("W"),"]" ,2)
  55    S DATA("R T")=$S($P( LG("L"),"; ;",3)="C": "D",1:"P")
  56    S DATA("L DTYP")=$P( LG("L"),"; ;",4)
  57    W @IOF,!, "  THE HAC  CHAMPVA I CD-10 LOAD  PROCESS", !,$E(LN,1, 39),! ; wr ite load p rocess hea der
  58    ;
  59    ;OPEN  ;  OPEN data  file
  60    ;
  61    W !!,"  S tarting... " ; messag e to indic ate ingest  process i s starting
  62    O IO:"R": 10 ; open  load file  with a 10  second tim eout
  63    ; if unab le to open  the file  notify the  user and  set the 'S TOP' flag  to stop al l further  processing
  64    I '$T D    S STOP=1  Q
  65    . W !!,"U nable to o pen "_DATA ("FILE"),! !,"Please  make sure  the file n ame is cor rect.",!!
  66    I STOP Q
  67    ;
  68    ;LOAD  ;  LOAD data  file
  69    ;
  70    S DATA("S TTM")=$$NO W^CHIUTIL( ) ; start  time
  71    S (DATA(" DXCNT"),DA TA("PCSCNT "))=0                  ; Diagnos is and Pro cedure rec ord counte rs
  72    S MMODE=( DATA("LDTY P")'="B")                         ; MMODE =  mapping f ile mode i f file typ e not = (B )ase
  73    I MMODE W  !!,"  ...  *Processi ng Mapping  Tool Upda te* ..."
  74    W !!,"  P rocessing  "_$S('MMOD E:"vendor  ",1:"")_"d ata file.. .",?39,":  ",DATA("FI LE"),!!?20 ,"Processi ng Started  : ",DATA( "STTM")
  75    W !!,"  . .. Please  be patient ",!,"  ...  wait for  processing  to comple te"
  76    I MMODE W  !!,"  ...  Parsing t he mapping  tool file "
  77    I 'MMODE  W !!,"  .. . Parsing  the vendor  data file "
  78    W !!,"  . .. Startin g FileMan  file load  ... "
  79    S DATA("F MTM")=$$NO W^CHIUTIL( ) ; FileMa n load sta rt time
  80           W  !!?18,"Fil eMan Load  Started :  ",DATA("FM TM"),!
  81    S DATA("M OD")=$S(MM ODE:"PARSE M",1:"PARS E")
  82           U  IO F YY=1: 1 R X Q:X= ""  U 0 D  @DATA("MOD ") U IO I  (YY#2500)= 0 U 0 W ". " U IO
  83    Q
  84    ;
  85   FINISH ; r un post-in stall conv ersions th en end wit h congratu latory sta tement
  86    W !!,"Now  running t he MCCR co nversion.. ."
  87    D MCCR^CH ICDMC
  88    W !!,"Now  running t he EOB con version... "
  89    D EOB^CHI CDMC
  90    W !!,"Now  running t he NPPS co nversion.. ."
  91    D NPPS^CH ICDMC
  92    W !!,"Now  running t he NPPSDX  conversion ..."
  93    D NPPSDX^ CHICDMC
  94    D ^CHICDP RE
  95    W !!,$E(L N,1,78)
  96    W !!," CO NGRATULATI ONS! THE H AC CHAMPVA  ICD-10 LO AD PROCESS  COMPLETED  SUCCESSFU LLY!"
  97    W !,$E(LN ,1,78)
  98    W !!,"Now  starting  THE HAC CH AMPVA ICD- 10 AUTO-MA INTENANCE  LOAD PROCE SS" H 5
  99    D AUTO^CH IVFI2(DATA ("EFFDATE" ))
  100    Q
  101    ;
  102   EN1 ; cont inue proce ssing -lg
  103    ; when th e '<END OF  FILE>' er ror occurs  during th e data fil e load, pr ocessing c omes to, a nd continu es here
  104    ; after b eing trapp ed @EOF su broutine.  If an erro r other th an 'end of  file' occ urs the er ror will b e posted
  105    ; to the  screen and  processin g will com e to a sto p and retu rn the use r to the m enu option .
  106    ; call to  parse dat a for inst allation t o Diagnosi s file (#7 41006.05)  and Servic es file (# 741006)
  107    ; Modules  called:
  108    ; PARSE   = module i n this rou tine calle d to proce ss (B)ase  type data  files for  baseline a nd mainten ance code  set load
  109    ; PARSEM  = module i n this rou tine calle d to proce ss (M)appi ng type da ta files
  110    ;
  111    I 'STOP D   ; print  process st atistics i f processi ng complet e
  112    . S DATA( "CTM")=$$N OW^CHIUTIL ()
  113    . W !,"   The "_$S(D ATA("LDTYP ")="B":"ve ndor file" ,1:"mappin g file")_"  load is C omplete!", ?38," : ", DATA("CTM" )
  114    . W !!,$E (LN,1,39), !
  115    . ; put l oad statis tics here  **
  116    . W !,"           Pr ocessing S tarted : " ,DATA("STT M")
  117    . W !,"         File Man Load S tarted : " ,DATA("FMT M")
  118    . W !,"         Proc essing Com pleted : " ,DATA("CTM ")
  119    . W !!,"    Total IC D Diagnosi s Codes :  ",$J(DATA( "DXCNT"),7 )
  120    . W !,"    Total ICD  Procedure  Codes : " ,$J(DATA(" PCSCNT"),7 )
  121    . W !,"                   Total  Codes : " ,$J(DATA(" DXCNT")+DA TA("PCSCNT "),7)
  122    . I 'MMOD E,$G(DATA( "D")) D  K  DATA("D")
  123    . . W !,"       Tota l D Status  Records :  ",$J(DATA ("D"),7)
  124    . . W !,"    Subtota l Added to  File(s) :  ",$J((DAT A("DXCNT") +DATA("PCS CNT"))-DAT A("D"),7)
  125    . . Q
  126    . Q
  127    W !!,$E(L N,1,39) G  CONT
  128    Q
  129    ;
  130   EOF ; come  here on e nd of file  error; OR  ANY OTHER  error -lg
  131    S ER=$ZE
  132    C:IO["FS3 BIG" IO U  0
  133    I ER["<EN DOFFILE>"  D  G EN1   ; continue  on with l oad @EN1
  134    . W !!,"   ... End o f File rea ched ..."
  135    . Q
  136    I ER'=""  W !!," ***  A System  error has  occurred!  ***",!!?4, ER,!!
  137    W $E(LN,1 ,39),!
  138    R !!,"    Press <Ent er> to con tinue ",*X
  139    Q
  140    ;
  141   PARSE ; pa rse data f rom data f ile to tem porary glo bal for in stallation  in FileMa n files
  142    ; using O PTUM Recor d Layout
  143    S DATA(1. 01)=$E(X,1 ,8)                    ;ICD10_Co de;1-8;8                \741033. 01|.01|ICD  CODE|0;1|
  144    S DATA(1. 16)=$S($E( X,9)="I":1 ,1:"")      ;Validity ;9;1                    \741033. 01|1.16|SU BDIVIDED F LAG|0;16|
  145    S DATA(1) =$E(X,10,3 4)                     ;Short_De scription; 10-44;35     \741033. 01|1|SHORT  DESCRIPTI ON|1;1|
  146    S DATA(2) =$E(X,45,9 2)                     ;Long_Des cription;4 5-92;48      \741033. 01|2|LONG  DESCRIPTIO N|2;1|
  147    S DATA(3) =$E(X,93,2 092)                   ;Full_Des cription;9 3-2092;200 0 \741033. 01|3|FULL  DESCRIPTIO N|3;1|
  148    S DATA(1. 02)=$E(X,2 093)                   ;Status;2 093;1                   \741033. 01|1.02|ST ATUS|0;2|
  149    S DATA(1. 03)=$S($E( X,2094)=1: "D",1:"O")  ;Code_Typ e;2094;1                \741033. 01|1.03|RE CORD TYPE| 0;3|
  150    S @$S(DAT A(1.03)="D ":"DATA("" DXCNT"")=D ATA(""DXCN T"")+1",1: "DATA(""PC SCNT"")=DA TA(""PCSCN T"")+1") ;  count cod e types fo r stats
  151    N I,L S I =0 D  ; re move space s from end  of fields
  152    . F  S I= $O(DATA(I) ) Q:I=""   D:$E(DATA( I),$L(DATA (I)))=" "   ; if last  character  is a spac e, strip s paces
  153    . . F L=$ L(DATA(I)) :-1:0 I $E (DATA(I),L )'=" "!('L ) S DATA(I )=$E(DATA( I),1,L) Q
  154    . . Q
  155    . Q
  156    S STATUS= DATA(1.02)   ; STATUS  = N:NEW C :CHANGED D :DELETED R :REINSTATE D U:UNOFFI CIAL CHANG E
  157    I STATUS= "D" Q
  158    ; update  file #7410 06.05 (CHA MPVA ICD D IAGNOSIS)  or #741006  (CHAMPVA  SERVICES)  depending  on record  type
  159    N X,Y D @ $S(DATA(1. 03)="D":"D XI",1:"PCS I")
  160    Q
  161    ;
  162   DXI ; make  FileMan c all to pop ulate CHAM PVA ICD DI AGNOSIS fi le (#74100 6.05)
  163    N DA,DR   ; new DA,D R to get p ertinent D A,DR for D IAGNOSIS e ntries wit hout affec ting data  for Vendor  Data file  #741033
  164    S DIE="^C HMICDX(",D IC=DIE,DX( "DA2")=$P( @(DIC_"0)" ),U,4)
  165    I '$D(DX( "DA")) F   S DA=$P(@( DIC_"0)"), U,3)+1 I ' $D(@(DIC_D A_",0)"))  S DX("DA") =DA,$P(@(D IC_"0)"),U ,3)=DA Q
  166    E  F  S D X("DA")=DX ("DA")+1 I  '$D(@(DIC _DX("DA")_ ",0)")) S  DA=DX("DA" ),$P(@(DIC _"0)"),U,3 )=DA Q
  167           S  $P(@(DIC_" 0)"),U,4)= (DX("DA2") +1)
  168   DXIC ; mid -entry poi nt to make  changes t o existing  DX codes
  169    D DX,FM(D IE,.DR)
  170    Q
  171    ;
  172   PCSI ; mak e FileMan  call to po pulate CHA MPVA SERVI CES file ( #741006)
  173    N DA,DR   ; new DA,D R to get p ertinent D A,DR for S ERVICES en tries with out affect ing data f or Vendor  Data file  #741033
  174    S DIE="^C HMSERV(",D IC=DIE,PCS ("DA2")=$P (@(DIC_"0) "),U,4)
  175    I '$D(PCS ("DA")) F   S DA=$P(@ (DIC_"0)") ,U,3)+1 I  '$D(@(DIC_ DA_",0)"))  S PCS("DA ")=DA,$P(@ (DIC_"0)") ,U,3)=DA Q
  176    E  F  S P CS("DA")=P CS("DA")+1  I '$D(@(D IC_PCS("DA ")_",0)"))  S DA=PCS( "DA"),$P(@ (DIC_"0)") ,U,3)=DA Q
  177    S $P(@(DI C_"0)"),U, 4)=(PCS("D A2")+1)
  178   PCSIC ; mi d-entry po int to mak e changes  to existin g PCS code s
  179    D PCS,FM( DIE,.DR)
  180    N DINUM,S UB
  181    S (DINUM, SUB)=(9999 999-DATA(" EFFDATE"))       ; DI NUM to set  uncoventi onal 'END  DATE' mult iple struc ture 
  182    D PCS2,FM (DIE,.DR)
  183    S $P(^CHM SERV(DA(1) ,1,SUB,0), U)=""            ; se t uncovent ional 'END  DATE' mul tiple .01  field equa l to ""
  184    K ^CHMSER V(DA(1),1, "B",DATA(" EFFDATE"), SUB)  ; no w kill the  B-xref on  the uncov entional s etting of  the 'END D ATE' .01 f ield
  185    Q
  186           ;  DINUM=(999 9999-DATA( ""EFFDATE" ")) to set  ^CHMSERV( DA(1),1,DI NUM,30)="L ong Descri ption 48 c haracters"
  187    ;
  188   FM(DIE,DR)  ; FileMan  call to p opulate da tabase fil e(s)
  189    ; DIE  =  in global  format ex:  ^CHIVF(
  190    ; DR   =  in DR form at ex: DR= ".01///^S  X=VAR1;.02 ///^S X=VA R2"
  191    ;
  192    S DIC=DIE ,DIC(0)="L " D ^DIE
  193    Q
  194    ;
  195   DX ; DR va riable use d to set C HAMPVA ICD  DIAGNOSIS  file #741 006.05 zer o node fie lds
  196    ;
  197    ; SET Fil eMan DR va riable (fi eld edit s tring)
  198    S DATA("C AT")=$L($T R(DATA(1.0 1),".")),D ATA("CAT") =$S(DATA(" CAT")=3:1, DATA("CAT" )=4:2,DATA ("CAT")=5: 3,1:4) ;de fine categ ory field# 3 ;ICD-10  RCS Bug 36
  199    S DR=".01 ///^S X=DA TA(2);1/// ^S X=DATA( 1.01);2/// ^S X=DATA( 1.03);3/// ^S X=DATA( ""CAT"");1 5///^S X=D ATA(1.16); 24///^S X= 1"
  200    S DR=DR_" ;22///^S X =DATA(""EF FDATE"")"
  201    Q
  202    ;
  203   DXM ; DR v ariable &  array used  to set AI  tests in  Program In dicator mu ltiple fie ld #102
  204    ; 
  205    S DR="102 ////^S X=D ATA(.01)"  ; this is  the Progra m Indicato r multiple  that hold s AI test  informatio n for vari ous progra ms (from m apping dat a)
  206    S DR(2,74 1006.05102 )=".01//// ^S X=DATA( .01);.02// //^S X=DAT A(.02);.03 ////^S X=D ATA(.03);. 04////^S X =DATA(.04) "
  207    Q
  208    ;
  209   PCS ; ^DD  map for CH AMPVA SERV ICES file  #741006 an d subfiles
  210    S DR=".01 ///^S X=DA TA(1.01);. 05///^S X= ""ICD-10"" ;.09///^S  X=DATA(1.1 6)" ; adde d subdivid ed flag (. 09) 7/3/12  -lg
  211    Q
  212    ;
  213   PCS2 ; usi ng DINUM v ia FileMan  to set th e END DATE  multiple  field (#1)  then sett ing .01 fi eld (END D ATE) NULL  in module  PCSI
  214    S DR="1// /^S X=DATA (""EFFDATE "")"
  215    ; added s ubdivided  flag (.1)  to next li ne to popu late 'End  Date' mult iple 4/30/ 13 -lg
  216    S DR(2,74 1006.01)=" .01///^S X =DATA(""EF FDATE"");. 09///^S X= DATA(""EFF DATE"");.1 ///^S X=DA TA(1.16);3 0.01///^S  X=DATA(2)"
  217    Q
  218    ;
  219   PCSM ; DR  variable &  array use d to set A I tests in  Program I ndicator m ultiple fi eld #102
  220    ; for upd ating PCS  codes with  AI tests
  221    S DR="102 ////^S X=D ATA(.01)"  ; this is  the Progra m Indicato r multiple  that hold s AI test  informatio n for vari ous progra ms (from m apping dat a)
  222    S DR(2,74 1006.0102) =".01////^ S X=DATA(. 01);.02/// /^S X=DATA (.02);.03/ ///^S X=DA TA(.03);.0 4////^S X= DATA(.04)"
  223    Q
  224    ;
  225    /*
  226    ;OPTUM Re cord Layou t & corres ponding \f ile|field| name|node; position|l ocalvariab le and set  logic use d to PARSE  -lg 01/30 /2012
  227    ;ICD10_Co de;1-8;8                \741033. 01|1.01|IC D CODE|0;1 |S DATA(1. 01)=$E(X,1 ,8)
  228    ;Validity ;9;1                    \741033. 01|1.16|SU BDIVIDED F LAG|0;16|S  DATA(1.16 )=$S($E(X, 9)="I":1,1 :"")
  229    ; *** C =  Complete;  indicates  code is a t its grea test degre e of speci ficity I =  Incomplet e; indicat es code re quires add itional in formation 
  230    ;Short_De scription; 10-44;35     \741033. 01|1|SHORT  DESCRIPTI ON|1;1|S D ATA(1)=$E( X,10,34)
  231    ;Long_Des cription;4 5-92;48      \741033. 01|2|LONG  DESCRIPTIO N|2;1|S DA TA(2)=$E(X ,45,92)
  232    ;Full_Des cription;9 3-2092;200 0 \741033. 01|3|FULL  DESCRIPTIO N|3;1|S DA TA(3)=$E(X ,93,2092)
  233    ;Status;2 093;1                   \741033. 01|1.02|ST ATUS|0;2|S  DATA(1.02 )=$E(X,209 3)
  234    ;Code_Typ e;2094;1                \741033. 01|1.03|RE CORD TYPE| 0;3|S DATA (1.03)=$S( $E(X,2094) =1:"D",1:" O")
  235    ; *** DD  SET OF COD ES CHANGE  1:CM,3:PCS  *** -lg s ee documen tation
  236    ;
  237    ;OPTUM Ch ange Recor d Layout - lg
  238    ;ICD10_Co de;1-8;8\
  239    ;Change_T ype;9;1\
  240    ;Original _Start;10- 19;10\
  241    ;Version_ End;20-29; 10\
  242    ;Revised_ Start;30-3 9;10\
  243    ;Date_Ter minated;40 -49;10 
  244    ;Status_I ndicator;5 0-89;40\
  245    ;Old_Desc ;90-2089;2 000\
  246    ;New_Desc ;2090-4089 ;2000\
  247    ;Release_ Date;4090- 4099;10\
  248    ;Code_Typ e;4100;1\
  249    */
  250    ;
  251   PARSEM ; p arse AI ma pping data  for add t o DX and P CS file
  252    ;
  253    I YY<2 Q   ; First l ine of map ping tool  file is he aders, cod es start o n second l ine
  254    ; *** nex t line nec essary at  this point  to format  mapping t ool files  *** Glaz d eveloped f unction ca ll -lg 3/8 /12
  255    S X=$S(DA TA("RT")=" D":$$MTFIX CM^CHICDOL (X),1:$$MT FIXPCS^CHI CDOL(X))   ; *** func tion to re align spre adsheet co lums *** - lg 3/8/12
  256    ;
  257    S DATA("C ODE")=$TR( $P(X,U),"x ","X") ; I CD code
  258    S DATA("C VA")=+$P(X ,U,5)  ; C hampVA AI  test value       - CV A is ien # 1 in file  #741002.94
  259    S (DATA(" SB"),DATA( "CWVV"))=+ $P(X,U,6)    ; Spina  Bifida & C WVV AI tes t value -  SB  is ien  #6 in fil e #741002. 94 CWVV ie n #7
  260    ; next tw o lines ar e to chang e CVA and  SB and CWV V value fr om externa l to inter nal IEN fo rmat
  261    S DATA("C VA")=$O(^D IC(741100, "B","TEST  #"_DATA("C VA"),""))
  262    S (DATA(" SB"),DATA( "CWVV"))=$ O(^DIC(741 100,"B","T EST #"_DAT A("SB"),"" ))
  263    S DATA("D UZ")=$P(X, U,12)  ; D UZ of user  approving  AI test m apping
  264    S DATA("D T")=$P(X,U ,13)   ; d ate user a pproved AI  test mapp ing
  265    ;
  266    S IEN=+$$ GETIEN(DAT A("CODE"), DATA("RT") ) ; module  to match  the code i n the mapp ing file w ith the IE N in the l ive file
  267    I 'IEN Q
  268    ; count c ode types  for stats
  269    S @$S(DAT A("RT")="D ":"DATA("" DXCNT"")=D ATA(""DXCN T"")+1",1: "DATA(""PC SCNT"")=DA TA(""PCSCN T"")+1")
  270    D MFI  ;  populate a ppropriate  file
  271    Q
  272    ;
  273   MFI ; mapp ing file i ngest File Man call t o populate  AI test P rogram Ind icator mul tiple
  274    N DA,DR,I ,X,Y ; new  DA,DR to  get pertin ent DA,DR  for DIAGNO SIS entrie s without  affecting  data for V endor Data  file #741 033
  275    S DA=IEN, DIE=$S(DAT A("RT")="D ":"^CHMICD X(",1:"^CH MSERV(")
  276    F I="CVA" ,"SB","CWV V" S DATA( .01)=$S(I= "CVA":1,I= "SB":6,1:7 ),DATA(.02 )=DATA(I), DATA(.03)= DATA("DUZ" ),DATA(.04 )=DATA("DT ") D  ;
  277    . D @$S(D ATA("RT")= "D":"DXM", 1:"PCSM"), FM(DIE,.DR )
  278    . Q
  279    Q
  280    ;
  281   GETIEN(COD E,TYPE) ;  function t o return l ive file r ecord IEN  based on I CD code in  mapping f ile
  282    N IEN
  283    I TYPE="D " D  Q IEN   ; ICD-10  RCS fix f or duplica te DX code s between  version 9  & 10 -lg
  284    . S IEN=0  F  S IEN= $O(^CHMICD X("C",CODE ,IEN)) I $ S(IEN:$P($ G(^CHMICDX (IEN,0)),U ,24),1:'IE N) Q
  285    . Q
  286    S IEN=$O( ^CHMSERV(" B",CODE,0) ) Q IEN
  287    ;
  288    ;NEW
  289    ;09/29/15  SBB DEF01 6554 fix f or decnet
  290   LTXT ;;HAC _HFS$:[SCR .TEMP_FILE S.
  291    ;;FS3BIG. CODEUPDT.I CD10UPDT.D EV]INGENIX _ICD10CM_B ASE_201201 01_2.TXT;; C;;B
  292    ;;FS3BIG. CODEUPDT.I CD10UPDT.D EV]INGENIX _ICD10PCS_ BASE_20120 101_2.TXT; ;P;;B
  293    ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] ICD10CM_A0 0_THRU_R99 _07172012. csv;;C;;M
  294    ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] ICD10CM_S0 000_THRU_S 909365_070 72012.csv; ;C;;M
  295    ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] ICD10CM_S9 1_thru_END _07172012. csv;;C;;M
  296    ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] ICD10PCS_0 D20X0Z_THR U_0RGX4220 7172012.cs v;;P;;M
  297    ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] ICD10PCS_0 RH003Z_THR U_END_0717 2012.csv;; P;;M
  298    ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] ICD10PCS_1 6070_THRU_ 0D1N3J4_07 172012.csv ;;P;;M
  299    ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] DISC_REPT_ CM_APPROVE D.CSV;;C;; M
  300    ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] DISC_REPT_ PCS_APPROV ED.CSV;;P; ;M
  301    ;;
  302    ;; The En d
  303    ;
  304    ;;;;;;;;; ;;;;;;;;;; ;;;;;;;
  305    ;OLD
  306    ;LTXT  ;; HACFS3" DNS     decnet HAC dec741!":: D:
  307    ;;[FS3BIG .CODEUPDT. ICD10UPDT. DEV]INGENI X_ICD10CM_ BASE_20120 101_2.TXT; ;C;;B
  308    ;;[FS3BIG .CODEUPDT. ICD10UPDT. DEV]INGENI X_ICD10PCS _BASE_2012 0101_2.TXT ;;P;;B
  309    ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]ICD10CM_A 00_THRU_R9 9_07172012 .csv;;C;;M
  310    ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]ICD10CM_S 0000_THRU_ S909365_07 072012.csv ;;C;;M
  311    ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]ICD10CM_S 91_thru_EN D_07172012 .csv;;C;;M
  312    ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]ICD10PCS_ 0D20X0Z_TH RU_0RGX422 07172012.c sv;;P;;M
  313    ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]ICD10PCS_ 0RH003Z_TH RU_END_071 72012.csv; ;P;;M
  314    ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]ICD10PCS_ 16070_THRU _0D1N3J4_0 7172012.cs v;;P;;M
  315    ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]DISC_REPT _CM_APPROV ED.CSV;;C; ;M
  316    ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]DISC_REPT _PCS_APPRO VED.CSV;;P ;;M
  317    ;;
  318    ;; The En d