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

190.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLHCP3.m Mon Nov 5 16:42:48 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLHCP3.m Mon Nov 5 17:50:17 2018 UTC

190.2 Comparison summary

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

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

190.4 Active regular expressions

No regular expressions were active.

190.5 Comparison detail

  1   CHMLHCP3 ; MCR/DEN;CO NVERT HCPC S UPDATE T O FILEMAN; 01/11/99   8:40 AM
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  3    ;V1.0
  4    ;JEH/DEN; COMPLETE R EWRITE TO  ACCEPT NEW  FORMAT FR OM INGENIX ;1/29/04
  5    ;JEH/DEN; MOD TO ACC EPT Alpha- Numeric HC PCS File C ontent 200 5
  6    ;JEH/DEN; MOD TO REA D FULL 200 8 DESC
  7    ;DPT MTN0 0949 USE X X3 DESC
  8    ;DPT MTN0 10987 MOD  XX2 DESC
  9    ;DPT MTN0 12794 ADD  EDIT OF TE RM/DELETE  DATE
  10    ;DPT MTN0 19951 DEV0 16554 REPL ACE DECNET  & 2014 UP DATE
  11    ;DPT R191 00844FY18  3/6/18 APR IL 2018 UP DATE, REMO VE REFEREN CE TO ENVI RONMENT
  12    S DIR(0)= "D" S DIR( "A")="Ente r Effectiv e Date(fil eman forma t)" D ^DIR  K DIR
  13    Q:$D(DIRU T)!($D(DUO UT))
  14    S EFFDATE =Y                  ; EFFECTIVE  DATE
  15    ;S EFFDAT E="2011040 1"         ;EFFECTIVE  DATE YYYY MMDD
  16    ;S TERMDA TE="200909 30"        ;TERMINATI ON DATE YY YYMMDD
  17    S DA=9999 999-EFFDAT E        ; SETTING DA  YYYMMDD
  18    S UPDTYR= "2012"                 ;SETTING  NEW YEAR
  19    ;SET HCPC S FILE NAM E
  20    S DIR(0)= "F^3:50"
  21    S DIR("A" )="Enter H CPCS file  name (08an web.txt)"  D ^DIR K D IR
  22    Q:$D(DUOU T)
  23    Q:Y="^"!( Y="")
  24    S CHFNM=Y  K DIR
  25    ;SET ENVI RONMENT
  26    ;S AYGSYS =XQVOL
  27    ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV")
  28    ;S ENVIR= AYGSYS
  29    N FOLDER, CNTR 
  30     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"
  31    S FILE=CH FNM,FOLDER ="" ;DEV01 6554 DPT
  32    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DEV0 16554 DPT
  33    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  34    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT
  35    S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]"  ;DPT R1910 0844FY18
  36    S FILE=FO LDER_FILE
  37    ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "SLA":"LIV E",UCI="HA C":"LIVE")  ;DPT R191 00844FY18  DEV012893  DPT
  38    ;S FLDR=" /FS3BIG/CO DEUPDT/HCP CUPDT/"_CH UCI ;DPT R 19100844FY 18 DEV0128 93 DPT
  39       ;S FILE="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. HCPCUPDT." _ENVIR_"]" _CHFNM ;O  FILE:"R":1 0 ; DPT R1 9100844FY1 8 edited f or cache b y scott do an on 03.1 7.05
  40    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T")    ;DPT R1910 0844FY18 D EV016554 D PT
  41    S $ZE="", $ZT="END^C HMLHCP3"        
  42    H 5
  43    S POP=0,C NTR=0 ;DEV 016554 DPT
  44    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D ;DEV 016554 DPT
  45     . X "D $ SYSTEM.Pro cess.SetZE OF(1)"  ;D EV016554 D PT
  46     .  S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT
  47     .Q ;DEV0 16554 DPT
  48    I 'POP G  END ;DEV01 6554 DPT
  49    ;I '$T W  !!,"NOT AB LE TO OPEN  FILE" G E ND
  50    K ^UTILIT Y("HCUP")
  51    S CTR=0
  52    S CODE=""
  53    S FIRST=0
  54    S J=1
  55    S TP(8)=0   ;PREV RE C ID CODE  - NOT USED
  56    S TMPCODE =""  ;COPY  OF TEMP C ODE
  57    S FIRST=0      ;FLAG  FOR FIRST  TIME THRO UGH
  58    S RECIDCD =0
  59    K ^CHMZHO LD("HCPCS" ,UPDTYR)               ; <------ ---- CHANG E
  60    ;
  61    ;G XX2008  ;*** FOR  2008 UPDAT E AND BEYO ND***
  62    ;G XX2     ;*** FOR  A YEARLY M ASTER UPDA TE - BEFOR E 2008***
  63    ;G XX1     ;*** COMM ENT OUT FO R FULL MID  YR UPDATE S ***
  64    G XX3     ;*** FOR 8 /4/09 UPDA TE FROM P& C
  65    ;Q
  66   A1 ;
  67    Q
  68    U FILE R  A
  69    S TP(1)=$ P(A,"^",1)     ;CODE
  70    S TP(2)=$ P(A,"^",3)     ;DESCR IPTION 35- CHAR
  71    S TP(3)=$ P(A,"^",4)     ;DESCR IPTION 48- CHAR
  72    S TP(4)=$ P(A,"^",4)     ;DESCR IPTION FUL L 1 HALF
  73    S TP(5)=$ P(A,"^",4)     ;DESCR IPTION FUL L 2 HALF
  74    S TP(6)=" A"             ;STATU S                 <-- - CHANGE
  75    ;S TP(6)= $E($P(A,"^ ",4),1,1)     ;STATUS        <-- - CHANGE
  76    ;S:TP(6)[ "A" TP(6)= "N"                                                <-- - CHANGE
  77    ;
  78    ;S EFFDAT E=$P(A,"^" ,7)  ;EFFE CT DATE
  79    S DA=0
  80    S DA=9999 999-($$YR8 FMYR^CHTFL IB(EFFDATE ))
  81    S CTR=CTR +1
  82    D XX9
  83    G A1
  84    Q
  85    ;
  86   XX1 U FILE
  87    Q
  88    R TP(1)#5         ;H CPCS_CODE
  89    R TP(2)#3 5       ;H CPCS 35-ch ar abbrev  desc
  90    R TP(3)#4 8       ;H CPCS 48-ch ar abbrev  desc
  91    R TP(4)#5 00      ;H CPCS full,  unabbrev  desc 1st h alf
  92    R TP(5)#1 10      ;H CPCS full,  unabbrev  desc 2nd h alf
  93    R TP(6)#1         ;S tatus N=ne w, C=chang e, D=del,  null=no ch g
  94    ;D XX9
  95    G A1
  96    ;
  97   XX2 ;*** A lpha-Numer ic HCPCS F ile Conten t 2005 LAY OUT ***
  98    Q
  99    U FILE R  A
  100    G:$E(A,1, 3)="   " X X2
  101    ;I (FIRST =1)&(CODE' =$E(A,1,5) ) D XX9
  102    S FIRST=1
  103    S CODE=""
  104    S CODE=$E (A,1,5)
  105    I $D(^CHM ZHOLD("HCP CS","2007" ,CODE))&($ E(A,7,8)<9 ) D                      ;<--- C HANGE
  106    .S (TMP3, TMP4)=""
  107    .S TMP3=$ P(^CHMZHOL D("HCPCS", "2007",COD E),"^",3)     ;_" "                       ; <--- CHANG E
  108    .S:$E(A,7 ,8)<8 $P(^ CHMZHOLD(" HCPCS","20 07",CODE), "^",3)=TMP 3_$E(A,12, 91)      ; <--- CHANG E
  109    .S:$E(A,7 ,8)=8 $P(^ CHMZHOLD(" HCPCS","20 07",CODE), "^",3)=TMP 3_$E(A,12, 70)      ; <--- CHANG E
  110    .S TMP4=$ P(^CHMZHOL D("HCPCS", "2007",COD E),"^",4)_ " "                            ; <--- CHANG E
  111    .S:$E(A,7 ,8)<8 $P(^ CHMZHOLD(" HCPCS","20 07",CODE), "^",4)=TMP 4_$E(A,12, 91)      ; <--- CHANG E
  112    .S:$E(A,7 ,8)=8 $P(^ CHMZHOLD(" HCPCS","20 07",CODE), "^",4)=TMP 4_$E(A,12, 70)      ; <--- CHANG E
  113    .S TMP4=" "
  114    .S TP(4)= $P(^CHMZHO LD("HCPCS" ,"2007",CO DE),"^",4)       ;<-- - CHANGE
  115    I '$D(^CH MZHOLD("HC PCS","2007 ",CODE)) D                  ;<-- - CHANGE
  116    .S (TP(1) ,TP(2),TP( 3),TP(4),T P(5),TP(6) )=""
  117    .S TP(1)= $E(A,1,5)         ;CO DE
  118    .S TP(2)= $$TRIM^CHT FLIB($E(A, 92,119))      ;HCPCS  Short Desc  (28 char)
  119    .S TP(3)= $$TRIM^CHT FLIB($E(A, 92,119))      ;HCPCS  Short Desc  (28 char)
  120    .S TP(4)= $$TRIM^CHT FLIB($E(A, 12,91))       ;HCPCS  Long Desc  (80 char)
  121    .S TP(5)= $$TRIM^CHT FLIB($E(A, 12,91))       ;HCPCS  Long Desc  (80 char)
  122    .S TP(6)= $E(A,293,2 93)    ;HC PCS Action  [status]  Code
  123    .;S:TP(6) ["A" TP(6) ="N"
  124    .S EFFDAT E=$E(A,277 ,284)  ;HC PCS Effect ive date ( YYYYMMDD)
  125    .S TERMDA TE=$E(A,28 5,292) ;HC PCS Termin ation Date  (YYYYMMDD )
  126    .S ^CHMZH OLD("HCPCS ","2007",C ODE)=TP(2) _"^"_TP(3) _"^"_TP(4) _"^"_TP(5) _"^"_TP(6) _"^"_EFFDA TE_"^"_TER MDATE      ;<--- CHAN GE
  127    .S CTR=CT R+1
  128    D XX9
  129    G XX2
  130    Q
  131   XX2008 ;** * Alpha-Nu meric HCPC S File Con tent 2008  LAYOUT and  BEYOND ** *
  132    Q
  133    S $ZE="", $ZT="END08 ^CHMLHCP3"
  134    K ^CHMZHO LD("HCPCS" ,"FILE")
  135    F  U FILE  R REC D
  136    .I $E(REC ,1,3)'="    " D
  137    ..S CODE= $E(REC,1,5 )        ; CODE
  138    ..S CSEQ= +$E(REC,6, 10)      ; HCPCS SEQ  NUMBER
  139    ..S ^CHMZ HOLD("HCPC S","FILE", CODE,CSEQ) =REC
  140    ..S CTR=C TR+1
  141    Q
  142   END08 ;
  143    Q
  144    C FILE
  145    W !,"Tota l number o f records  in "_UPDTY R_" update  file: ",C TR
  146    S CTR=0
  147    S CODE=""  F  S CODE =$O(^CHMZH OLD("HCPCS ","FILE",C ODE)) Q:CO DE=""  D
  148    .S (SDESC ,LDESC)=""
  149    .F RCTR=1 :1:6 S TP( RCTR)=""
  150    .S FND100 ="N"   ;CH ECK FOR MI SSING 100  SEQUENCE N UMBER
  151    .S CSEQ=0  F  S CSEQ =$O(^CHMZH OLD("HCPCS ","FILE",C ODE,CSEQ))  Q:'CSEQ   D
  152    ..I CSEQ= 100 D
  153    ...S FND1 00="Y"   ; CHECK FOR  MISSING 10 0 SEQUENCE  NUMBER
  154    ...S SDES C=$$TRIM^C HTFLIB($E( ^CHMZHOLD( "HCPCS","F ILE",CODE, CSEQ),92,1 19))
  155    ...S LDES C=$$TRIM^C HTFLIB($E( ^CHMZHOLD( "HCPCS","F ILE",CODE, CSEQ),12,9 1))
  156    ...S TP(6 )=$E(^CHMZ HOLD("HCPC S","FILE", CODE,CSEQ) ,293,293)     ;HCPCS  Action [st atus] Code
  157    ...S EFFD ATE=$E(^CH MZHOLD("HC PCS","FILE ",CODE,CSE Q),277,284 )  ;HCPCS  Effective  date (YYYY MMDD)
  158    ...S TERM DATE=$E(^C HMZHOLD("H CPCS","FIL E",CODE,CS EQ),285,29 2) ;HCPCS  Terminatio n Date (YY YYMMDD)
  159    ..I CSEQ= 200 D
  160    ...S LDES C=LDESC_"  "_$$TRIM^C HTFLIB($E( ^CHMZHOLD( "HCPCS","F ILE",CODE, CSEQ),12,9 1))
  161    ..I CSEQ= 300 D
  162    ...S LDES C=LDESC_"  "_$$TRIM^C HTFLIB($E( ^CHMZHOLD( "HCPCS","F ILE",CODE, CSEQ),12,7 1))
  163    .;I "ABCD FPRST"[TP( 6) D
  164    .Q:FND100 ="N"
  165    .Q:TP(6)= "N"         ;No maint enance cha nge
  166    .Q:TP(6)= "F"         ;Chg in a dmin data  fld of pro c or modif ier code
  167    .Q:TP(6)= "P"         ;Payment  change
  168    .S TP(1)= CODE        ;CODE
  169    .S TP(2)= SDESC       ;HCPCS Sh ort Desc ( 28 char)
  170    .S TP(3)= SDESC       ;HCPCS Sh ort Desc ( 28 char)
  171    .S TP(4)= LDESC       ;HCPCS Lo ng Desc (8 0 char)
  172    .S TP(5)= LDESC       ;HCPCS Lo ng Desc (8 0 char)
  173    .S ^CHMZH OLD("HCPCS ",UPDTYR,C ODE)=TP(2) _"^"_TP(3) _"^"_TP(4) _"^"_TP(5) _"^"_TP(6) _"^"_EFFDA TE_"^"_TER MDATE      ;<--- CHAN GE
  174    .S CTR=CT R+1
  175    .D XX9
  176    W !,"Tota l number o f ^CHMZHOL D global:  ",CTR
  177    G END
  178    Q
  179   XX2A ;
  180    Q
  181    S CODE=""  F  S CODE =$O(^CHMZH OLD("HCPCS ",2006,COD E)) Q:CODE =""  D                      ;<-- - CHANGE
  182    .S TP(1)= CODE            ;CODE
  183    .S TP(2)= $P(^CHMZHO LD("HCPCS" ,2005,CODE ),"^",1)     ;DESC SH ORT (28)
  184    .S TP(3)= $P(^CHMZHO LD("HCPCS" ,2005,CODE ),"^",2)     ;DESC SH ORT (28)
  185    .S TP(4)= $P(^CHMZHO LD("HCPCS" ,2005,CODE ),"^",3)     ;DESC LO NG  (80)
  186    .S TP(5)= $P(^CHMZHO LD("HCPCS" ,2005,CODE ),"^",4)     ;DESC LO NG  (80)
  187    .S TP(6)= $P(^CHMZHO LD("HCPCS" ,2005,CODE ),"^",5)     ;STATUS
  188    .S EFFDAT E=$P(^CHMZ HOLD("HCPC S",2005,CO DE),"^",6)   ;EFFECT  DATE
  189    .S TERMDA TE=$P(^CHM ZHOLD("HCP CS",2005,C ODE),"^",7 ) ;TERM DA TE
  190    .;   A -  ADD             B, C,  F, P, S,  T - CHANGE
  191    .;   D -  DISCONTINU E    N - N O MAINTENA NCE
  192    .;   R -  REACTIVATE
  193    .S:TP(6)[ "B" TP(6)= "C"
  194    .S:TP(6)[ "C" TP(6)= "C"
  195    .S:TP(6)[ "F" TP(6)= "C"
  196    .S:TP(6)[ "P" TP(6)= "C"
  197    .S:TP(6)[ "S" TP(6)= "C"
  198    .S:TP(6)[ "T" TP(6)= "C"
  199    .S:TP(6)[ "R" TP(6)= "C"
  200    .S:TP(6)[ "N" TP(6)= ""
  201    .S:TP(6)[ "A" TP(6)= "N"
  202    .D:TP(6)' =""&(TP(6) '=" ") XX9
  203    G END
  204    ;
  205   XX3 ; FOR  JUN 06 UPD ATE FROM P &C layout  changed
  206    ;Q
  207    U FILE R  A G:$$STAT US^%ZISH E ND 
  208    S TP(1)=$ P(A,"^",1)     ;CODE
  209    S TP(2)=$ P(A,"^",2)     ;statu s  DPT
  210    S TP(3)=$ P(A,"^",3)     ;DESCR IPTION 35- CHAR DPT
  211    S TP(4)=$ P(A,"^",4)     ;DESCR IPTION 48- CHAR DPT
  212    S TP(5)=$ P(A,"^",5)     ;effec tive dated   DPT
  213    S TP(6)=" A"             ;STATU S                 <-- - CHANGE
  214    I $P(A,"^ ",6)'="" S  TP(6)="D"  ;DPT 7/7/ 11
  215    ;S TP(6)= $E($P(A,"^ ",4),1,1)     ;STATUS        <-- - CHANGE
  216    ;S:TP(6)[ "A" TP(6)= "N"                          <-- - CHANGE
  217    ;
  218    S EFFDATE =$P(A,"^", 5)  ;EFFEC T DATE
  219    S DA=0
  220    S DA=9999 999-($$YR8 FMYR^CHTFL IB(EFFDATE ))
  221    S TERMDAT E=""
  222    S TERMDAT E=$P(A,"^" ,6) ;termi nation dat e of code  dpt
  223    S CTR=CTR +1
  224    D XX9
  225    G XX3
  226    Q
  227    ;
  228   XX9 G:TP(1 )=" " END1
  229    ;S CTR=CT R+1
  230    S (EFFDT, TERMDT)=""
  231    I TP(6)=" D" D
  232    .S X1=TER MDATE   ;Y YYYMMDD
  233    .S X=$E(X 1,5,6)_$E( X1,7,8)_$E (X1,1,4)
  234    .S %DT="X " D ^%DT
  235    .I Y I Y' =-1 S X1=Y
  236    .;NO LONG ER EXPIRIN G 4/1   -  JEH
  237    .S TERMDT =Y
  238    .;I X1 S  X2=91 D C^ %DTC S:$E( X,4,7)="03 31" $E(X,4 ,7)="0101"  S TERMDT= X
  239    ;
  240    I (TP(6)= "N")!(TP(6 )="C")!(TP (6)="A") D
  241    .S EFFDT= $E(EFFDATE ,5,6)_$E(E FFDATE,3,4 )  ;MMYY
  242    .S X1=EFF DATE
  243    .S X=$E(X 1,5,6)_$E( X1,7,8)_$E (X1,1,4)
  244    .S %DT="X " D ^%DT
  245    .I Y I Y' =-1 S DA=9 999999-Y
  246    ;
  247    S PNN=""    ;PROCESS ING NOTE N UMBER - NO T USED
  248    S HCRC=""   ;HCPCS C ROSS REFER ENCE CODE  - NOT USED
  249    ;
  250    D CLEAN
  251    S ^UTILIT Y("HCUP",J ,0)=TP(1)
  252    S:TP(6)=" D" ^UTILIT Y("HCUP",J ,1,DA,0)=T ERMDT_"^"_ EFFDT_"^"_ PNN_"^"_TP (6)
  253    S:TP(6)'= "D" ^UTILI TY("HCUP", J,1,DA,0)= "^"_EFFDT_ "^"_PNN_"^ "_TP(6)
  254    S ^UTILIT Y("HCUP",J ,1,DA,1)=$ E(TP(4),1, 220)_"^"_H CRC
  255    S ^UTILIT Y("HCUP",J ,1,DA,5)=T P(8),TP(8) =0
  256    S ^UTILIT Y("HCUP"," B",TP(1),J )=""
  257    I TP(3)'= "" S ^UTIL ITY("HCUP" ,"C",$E(TP (3),1,48), J,DA)=""    ;DPT 12/2 0/11
  258    S J=J+1
  259    ;G XX9
  260    Q
  261    ; 
  262    
  263   END K A,I, J,K,L,Y,TP
  264    ;C FILE
  265     D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT
  266     X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT
  267    U 0 W !," Total numb er of reco rds loaded  = ",$G(CT R)
  268    Q
  269   CLEAN S K= 2
  270   A4 I $A(TP (K))=32 S  TP(K)=$E(T P(K),2,$L( TP(K))) G  A6:TP(K)=" ",A4:1
  271   A5 I $A($E (TP(K),$L( TP(K))))=3 2 S TP(K)= $E(TP(K),1 ,$L(TP(K)) -1) G A6:T P(K)="",A5 :1
  272   A6 S K=K+1  G A4:K'>4  Q
  273    ;
  274   REMSP(NM)        ;
  275    S NM2=""
  276    F N1=1:1: $L(NM) I $ E(NM,N1)'= " " S NM2= NM2_$E(NM, N1)
  277    Q NM2
  278   END1 W !!, "*** DATA  FILE ERROR  HAS OCCUR ED ***",!!
  279    G END
  280    Q
  281   SACTCD(AC)  ;SET ACTI ON CODE                 ;<------ ---------- -NOT USED. ..FOR FUTU RE UPDATES
  282    ;   A - A DD             B, C,  F, P, S, T  - CHANGE
  283    ;   D - D ISCONTINUE     N - NO  MAINTENAN CE
  284    ;   R - R EACTIVATE
  285    S SAC="N"
  286    S:AC["B"  SAC="C"
  287    S:AC["C"  SAC="C"
  288    S:AC["F"  SAC="C"
  289    S:AC["P"  SAC="C"
  290    S:AC["S"  SAC="C"
  291    S:AC["T"  SAC="C"
  292    S:AC["R"  SAC="C"
  293    S:AC["N"  SAC=""
  294    S:AC["A"  SAC="N"
  295    D:AC'=""& (SAC'=" ")  XX9
  296    Q SAC