159. EPMO Open Source Coordination Office Redaction File Detail Report

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

159.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAI2.m Mon Nov 5 16:42:38 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAI2.m Mon Nov 5 17:49:54 2018 UTC

159.2 Comparison summary

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

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

159.4 Active regular expressions

No regular expressions were active.

159.5 Comparison detail

  1   CHMLAI2 ;M CR/DEN;Loa d AI test  into HCPCS ;03/08/99   11:26 AM
  2    ;V 1.0
  3    ;JEH 10/2 2/07 ENC00 0118: P&C  add codes  for paymen t
  4    ;DPT MTN0 19951 2014  UPDATE
  5    ; DEV0165 54 DEV0128 93 CHANGE  EOF REPLAC E DECNET  
  6    ;R1871937 8FY18 DPT  2/12/18 CH ANGE AI RE MOVE ENVIR ONMENT CHE CK
  7    D ENVIR
  8    S CDCOL=1  ;CODE AI  COLUMN IN  PMPAY SPRE ADSHEET
  9    S CVCOL=8  ;CVA AI C OLUMN IN P MPAY SPREA DSHEET
  10    S SBCOL=9  ;SB AI CO LUMN IN PM PAY SPREAD SHEET
  11    K ^CHMZHO LD("CHMLAI 2")
  12    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T")    ;DEV012893  DPT
  13    ;O FILE:" R":5
  14    ;S $ZE="" ,$ZT="END"
  15     S CNT=0
  16    S POP=0,C NTR=0 ;DEV 012893 DPT
  17    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D ;DEV 012983 DPT
  18      . X "D  $SYSTEM.Pr ocess.SetZ EOF(1)"  ;  DEV016554
  19     . S POP= $$OPENFIRD ^CHTFLIB9( .FILE,"FIL E") ;DEV01 2893 DPT
  20     .Q  ;DEV 012893 DPT
  21    I 'POP G  END  ;DEV0 12893 DPT
  22    
  23    ;U FILE
  24    F  U FILE  R REC G:$ $STATUS^%Z ISH END D   ;DEV16554  DPT
  25     .S CNT=C NT+1
  26    .S CODE=$ P(REC,"^", CDCOL),TES T=$P(REC," ^",CVCOL)
  27    .I TEST'[ "TEST" S T EST="TEST  #"_TEST
  28    .S CHPGPT =1 ; 1 = C VA, 6 = SB , 7 = CWVV
  29    .D AIUPDT
  30    .S CODE=$ P(REC,"^", CDCOL),TES T=$P(REC," ^",SBCOL)  ;MTN019951
  31    .I TEST'[ "TEST" S T EST="TEST  #"_TEST
  32    .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV
  33    .D AIUPDT
  34   END S CNT= CNT+1 ;
  35     D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT
  36      ;C FILE
  37      X "D $S YSTEM.Proc ess.SetZEO F(0)" ;DEV 016554 DPT
  38    S ^CHMZHO LD("CHMLAI 2",0)=$G(C NT)  ;DEV0 16554 DPT
  39    Q
  40   ENVIR ;
  41    ;S AYGSYS =XQVOL
  42    ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV")
  43    ;S ENVIR= AYGSYS
  44    ;S ENVIR= $$ENVIR^CH TFLIB          ;MTN02 4995 2016  HCPCS UPDA TE
  45    ;S DIR("B ")=ENVIR
  46    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  47    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  48    ;S DIR("L ",2)=""
  49    ;S DIR("L ",3)="   1   LIVE"
  50    ;S DIR("L ",4)="   2   TRAIN"
  51    ;S DIR("L ",5)="   3   TEST"
  52    ;S DIR("L ",6)="   4   DEV"
  53    ;S DIR("L ",7)=""
  54    ;S DIR("L ")="   ^    QUIT"
  55    ;D ^DIR K  DIR
  56    ;Q:$D(DUO UT)
  57    ;Q:Y=""
  58    ;Q:Y="^"! (Y="")
  59    ;S ENVIR= Y(0)
  60    ;S $ZE="" ,$ZT="END"
  61    ;SET ICD- 9 DX FILE  NAME
  62    U 0 W !
  63    S DIR(0)= "F^3:50"
  64    S DIR("A" )="Enter H CPCS file  name (hcpc _2008_AI_T ESTS.txt)"  D ^DIR K  DIR
  65    Q:$D(DUOU T)
  66    Q:Y="^"!( Y="")
  67    S CNAME=Y  K DIR
  68    S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CN AME ;R1871 9378FY18 D PT 2/12/18  
  69    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. HCPCUPDT." _ENVIR_"]" _CNAME     ; NAME OF  HCPCS FILE      
  70    ;N FOLDER ,CNTR 
  71     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"
  72    ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT
  73    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 016554 DPT
  74    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  75    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT
  76    ;S FILE=F OLDER_FILE
  77    ;S FLDR=" /FS3BIG/CO DEUPDT/HCP CUPDT/"_UC I
  78    Q
  79   AIUPDT ;UP DATES THE  AI GBLS  ; JEH 1/7/08  ADD SUBRT N
  80    S:DUZ=""  DUZ=1
  81    S ERR=$$^ CHMLAI2L(C HPGPT,CODE ,TEST,DUZ)
  82    S:ERR]""  ^CHMZHOLD( "CHMLAI2", ERR)=""
  83    Q
  84