164. EPMO Open Source Coordination Office Redaction File Detail Report

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

164.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAIUPDT.m Mon Nov 5 16:39:05 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAIUPDT.m Mon Nov 5 17:49:56 2018 UTC

164.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 5 276
Changed 4 8
Inserted 0 0
Removed 0 0

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

164.4 Active regular expressions

No regular expressions were active.

164.5 Comparison detail

  1   CHMLAIUPDT  ;JEH/DEN; MASS UPDAT E SB AI TE ST TO MATC H CHV AI T EST;03/08/ 99  11:26  AM
  2    ;V 1.0
  3    ;
  4   START ;
  5    S UPDATE= 0
  6    S DIR(0)= "SO^C:CPT; H:HCPCS;P: ICPX;D:ICD X"
  7    S DIR("A" )="OPTION"
  8    D ^DIR
  9    Q:$D(DIRU T)
  10    Q:$D(DIRO UT)
  11    S CHOICE= Y K DIR
  12    D:CHOICE= "C" CPT
  13    D:CHOICE= "H" HCPCS
  14    D:CHOICE= "P" ICPX    ; SERVICE  FILE
  15    D:CHOICE= "D" ICDX    ; ICD9 DX  FILE
  16    S DIR(0)= "Y",DIR("B ")="NO",DI R("A")="CH ANGE ANOTH ER CODE" D  ^DIR K DI R
  17    G:Y=1 STA RT
  18    D END
  19    Q
  20   END ;
  21    Q
  22   CPT ; SEAR CH SERVICE  FILE FOR  CPT CODES
  23    S $ZE="", $ZT="ENDC" ,CNT=0
  24    ;SET CPT  FILE NAME
  25    S DIR(0)= "F^3:50"
  26    S DIR("A" )="Enter C PT file na me" D ^DIR  K DIR
  27    Q:$D(DUOU T)
  28    Q:Y="^"!( Y="")
  29    S CNAME=Y  K DIR
  30    S FILE="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. SB_AI_TEST _ASSGN.UPD ATE_2008_1 2_10]"_CNA ME     ; NAME OF  CPT FILE
  31    O FILE:"R ":5
  32    U FILE
  33    K ^CHMZHO LD("CHMLAI 3")
  34   AILDC ;LOA DING AI TE STS
  35    F  R REC  D
  36    .S CNT=CN T+1  
  37    .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",3 )
  38    .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV   ; <--- C HANGE
  39    .D AIUPDT C   ;JEH 2 /8/08
  40   AIUPDTC ;U PDATES THE  AI GBLS
  41    S:DUZ=""  DUZ=1
  42    S ERR=$$^ CHMLAI3L(C HPGPT,CODE ,TEST,DUZ)
  43    S:ERR]""  ^CHMZHOLD( "CHMLAI3", ERR)=""
  44    Q
  45   ENDC ;
  46    C FILE
  47    S ^CHMZHO LD("CHMLAI 3",0)=CNT
  48    W !!,"Num ber of CPT  Codes upd ated: ",CN T,!!
  49    K FILE,CN T,CODE,CHP GPT,TEST
  50    Q
  51    ;
  52   HCPCS ; SE ARCH SERVI CE FILE FO R HCPCS CO DES
  53    S $ZE="", $ZT="ENDH" ,CNT=0
  54    ;SET CPT  FILE NAME
  55    S DIR(0)= "F^3:50"
  56    S DIR("A" )="Enter H CPCS file  name" D ^D IR K DIR
  57    Q:$D(DUOU T)
  58    Q:Y="^"!( Y="")
  59    S CNAME=Y  K DIR
  60    S FILE="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. SB_AI_TEST _ASSGN.UPD ATE_2008_1 2_10]"_CNA ME     ; NAME OF  CPT FILE
  61    O FILE:"R ":5
  62    U FILE
  63    K ^CHMZHO LD("CHMLAI 2")
  64   AILDH ;LOA DING AI TE STS
  65    F  R REC  D
  66    .S CNT=CN T+1  
  67    .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",3 )
  68    .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV   ; <--- C HANGE
  69    .D AIUPDT H   ;JEH 2 /8/08
  70   AIUPDTH ;U PDATES THE  AI GBLS
  71    S:DUZ=""  DUZ=1
  72    S ERR=$$^ CHMLAI2L(C HPGPT,CODE ,TEST,DUZ)
  73    S:ERR]""  ^CHMZHOLD( "CHMLAI2", ERR)=""
  74    Q
  75   ENDH ;
  76    C FILE
  77    S ^CHMZHO LD("CHMLAI 2",0)=CNT
  78    W !!,"Num ber of HCP CS Codes u pdated: ", CNT,!!
  79    K FILE,CN T,CODE,CHP GPT,TEST
  80    Q
  81    ;
  82   ICPX ; SEA RCH SERVIC E FILE FOR  ICD-9 PX  CODES
  83    S $ZE="", $ZT="ENDP" ,CNT=0
  84    ;SET FILE  NAME
  85    S DIR(0)= "F^3:50"
  86    S DIR("A" )="Enter I CD-9 PX fi le name" D  ^DIR K DI R
  87    Q:$D(DUOU T)
  88    Q:Y="^"!( Y="")
  89    S CNAME=Y  K DIR
  90    S FILE="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. SB_AI_TEST _ASSGN.UPD ATE_2008_1 2_10]"_CNA ME     ; NAME OF  CPT FILE
  91    O FILE:"R ":5
  92    U FILE
  93    K ^CHMZHO LD("CHMLAI 1")
  94   AILDP ;LOA DING AI TE STS
  95    F  R REC  D
  96    .S CNT=CN T+1  
  97    .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",2 )
  98    .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV   ; <--- C HANGE
  99    .D AIUPDT P   ;JEH 2 /8/08
  100   AIUPDTP ;U PDATES THE  AI GBLS
  101    S:DUZ=""  DUZ=1
  102    S ERR=$$^ CHMLAI1L(C HPGPT,CODE ,TEST)
  103    S:ERR]""  ^CHMZHOLD( "CHMLAI1", ERR)=""
  104    Q
  105   ENDP ;
  106    C FILE
  107    S ^CHMZHO LD("CHMLAI 1",0)=CNT
  108    W !!,"Num ber of ICD -9 PX Code s updated:  ",CNT,!!
  109    K FILE,CN T,CODE,CHP GPT,TEST
  110    Q
  111    ;
  112   ICDX ;SEAR CH ICDX GL OBAL - ICD 9 DX FILE
  113    S $ZE="", $ZT="ENDD" ,CNT=0
  114    ;SET NAME
  115    S DIR(0)= "F^3:50"
  116    S DIR("A" )="Enter I CD-9 DX fi le name" D  ^DIR K DI R
  117    Q:$D(DUOU T)
  118    Q:Y="^"!( Y="")
  119    S CNAME=Y  K DIR
  120    S FILE="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. SB_AI_TEST _ASSGN.UPD ATE_2008_1 2_10]"_CNA ME     ; NAME OF  CPT FILE
  121    O FILE:"R ":5
  122    U FILE
  123    K ^CHMZHO LD("CHMLAI 4")
  124   AILDD ;LOA DING AI TE STS
  125    F  R REC  D
  126    .S CNT=CN T+1  
  127    .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",3 )
  128    .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV   ; <--- C HANGE
  129    .D AIUPDT D   ;JEH 2 /8/08
  130   AIUPDTD ;U PDATES THE  AI GBLS
  131    S:DUZ=""  DUZ=1
  132    S ERR=$$^ CHMLAI4L(C HPGPT,CODE ,TEST)
  133    S:ERR]""  ^CHMZHOLD( "CHMLAI4", ERR)=""
  134    Q
  135   ENDD ;
  136    C FILE
  137    S ^CHMZHO LD("CHMLAI 4",0)=CNT
  138    W !!,"Num ber of ICD -9 DX Code s updated:  ",CNT,!!
  139    K FILE,CN T,CODE,CHP GPT,TEST
  140    Q
  141    ;
  142